' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( z  Š@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`  d ֠z# u`          =================ZUSAETZLICHE PROGRAMMFILES========================== 'DC DRUCK.BEISPIEL1' 'DC DRUCK.BEISPIEL2' sind zwei Hires-Bilder zum schnellen Ausprobieren.======TECHNISCHE HINWEISE=================== Die Druckroutinen sind fuer einen Epson FX80 ( bzw. RX80, MX80 etc. )geschrieben, der ueber ein Epson APL Interface angesteuert wird.========= Druckroutinen, die die 'Stauchung' des Bildes verhindernoder auch Anpassungen an andere Drucker/Druckinterfaces, vielleicht mitschoenen Menues ? Also Leute, an's Werk ! Herzliche Gruesse aus Hamburg M 4539"=============enutzen moechte und welche nicht (ist ja auch eine Frage desSpeicherplatzes). Zu tun ist noch viel: Ich denke z.B. an eine gute Fehlerbehandlung(provozieren sie doch z.B. mal einen FILE NOT FOUND Error bei Funktion L !),oder auch andereltet und dann die einzelnen Blocks der (hoffentlich)vielen, vielen Program-Autoren durch Sprungbefehle aus einem kurzenHauptprogramm angesprochen werden koennen. So kann auch jeder Benutzer spaeter schnell entscheiden, welche Blocks erb Und das ist mein Vorschlag: Nehmen sie sich doch bei Interesse einmal dasProgramm vor und schreiben sie auch mal eine Verbesserung oder Ergaenzung. Ich wuerde es fuer sinnvoll halten, wenn jeder seinen Anteil alsUnterprogramm gestas einheitlich gestaltet und angeglichen. Eigentlich war das somit entstandene DC DRUCK nur fuer meinen persoenlichenGebrauch bestimmt, aber dann kam mir die Idee, dass sicher viele andereVereinsmitglieder aehnliches getan hatten/tun wollen.er fuer die Geraetekonfiguration Apple //e + Epson FX80 + EpsonAPL Interface einen kompletten, neuen Druckteil geschrieben und bei dieserGelegenheit gleich eine Abfrage auf die Druckbereitschaft des Druckers miteingebaut, sowie die ganzen Menue Folgendes: "...Liebe A.U.G.E.-Kollegen ! Ich habe mit dem Trendcom Programm von AUGE 1 leider nichts anfangenkoennen. Zwar erhielt ich die geladenen Bilder auf den Schirm, aber gedrucktwurde absolut nichts. Ich habe dah DRUCKnur noch die gewuenschte Option auf dem Bildschirm herausgesucht werdenmuss. Vergessen Sie nicht, Ihren Drucker einzuschalten ! Wenn Ihnen die Moeglichkeiten des Programmes etwas zu duerftig erscheinen,dann lesen Sie bitte=========== Dieses Programm laedt & speichert Hires-Graphiken und druckt sie auf einemEpson FX80 Drucker aus.==============WIE BENUTZEN ?============== Das Programm ist Menu-gesteuert, d.h. dass nach dem Start mit RUN DC : Dieter Charchot ** Veroeffentl.: 15.02.85 ** ******* apple user group europe ******==============WAS MACHT ES ?===****** apple user group europe ******* ** Programm : DC DRUCK ** Autor      x3`~@` ``?@`x@`~OxO`|paC`p|g`~@~`@yaggC@Oapp3~`|@`@@x@<``||xyGcGc? `|@``?@?`@3x@pyp``s`??`@ g` @<@@@~?` pa``xxOa?x>py`Gq?`x~~@@` p`@?``Ca~|?`s`?~<`` ~<|C@p| ~`L``?x3~Oa|?`~?x``gx` ~ p@|gO`|3~`x``py f~`?~3`@O@`@`@@@`x~`pO|y`x@@|@x`@g`0?`py0`Lx?@`OL`x@f`>>py`8?xxx@p`?@ |`@?`CL@s`p|<`~3`~`x@O@@ `L ```pO~py?`~?xO``?f``x<|L|aO`@3@Oxs``pyLx`?~3`@yC@~<@`pyyxA;@;nC@p`@~?`x ```@p@@`~g`<@ ~?`@a0C`|`||`x@?`>>`ypp?@|x?`@?`?|O@ |`@?`@Ogpxs`<@|`x``@`~`O@py?`< `| ``?`|g~?`@xO``?``|Oy?|C|y`p3@xs`xpyOgOx`?@3`@C@|@`pyyxawaw_@@<?`x~?`xx ```@0@@`pg`@ ~ @ ~?`@g0`px `||g`@ap`x``ya>`C?| s p``<~|0xp`|?p~~x?xs`~p``O@a`@@y@g`@0x xs`p ``|gLgsL?`@xO`p0`?O`|xy|@3xO`0~3xx`pyg``@?`@C@``@`pyyxagcg|pp`x~?`x@` ```@?@@`@xg`@ pg<@x ~?`~?`0` `p|g`x@a@`x``ya@cG?@ O<0``|x0xp`pxgx`@p`x?@`@@@`px ``|x ``pOg|gg`~OxO`p3`pOy <@f`~3`x`pggx`|@`C~ ``||xaggg @~`x~3`@` ``@@p`@g`@ <<p@ ~?``x<<` `p|g`~@yx`@ya`gG@La|00``O`@sL`p@@px`@ C@``?@?`~?@x0?xL``<`?`@~OxO`|@s`pOy<`?`|?`??`?`|?|y~xcp||?`? ~||x~p?`x~@~@p@Opp`|p`?`xC0px@`~|pp`~`x~>~xc>N@p@>p@?|ycpp@yf``8|spp`x~`~ ~`xp@?p@xsp@aOa@A@pA?|`|?`??@p`|?|y~@`~X@}?` ??@X@}?|y~xCx||?`? ~||x~?p?`x~@~@p@Opp@>p@?`xc`p|@`~|`y`8~`x~>~xC>O`p`|@p`?|yCxp0@}l@`papp`x~x?~? ~x?~p@?p@xsp@aOaC|?@`pp|?`??xp|?|y~``~X@}?`0??@X@}?~x~||||?`???||?@?x~p?`x~@~x@Opp@>p@?pxc@p~@?`~|`y`x?0`x ~|@~|A|@pp`x`p`?~x|p`@}l@@papx`x~|~?|p@?p@?@?xspw@aOaC|>`pp|?`??xp|?|y~p`~X@}?8`8??@X@}?@x~>@w~0|?`???~0|?~x~|q@`x~@~x@Opp@>p@?xxcp~@?` @8`qpp?0`x~|x~A|x^pxp<px?@x>@wp@@}l@`@xx`x ~|?~|?|?p@?p@?~xspg@qcF||ppp|?`??p|?|y~pp~~gx?`ayx?~g@|p?|Cx?@@|C?|@|c~0|?`??p~0|?|x~xq@`x~`~`Oxp@?p@?xxsp?@?`@`pp x?~O|@xx?|@||`~p?||px?@~p@xp|x? x? ~x`x@?|@|cx``xA?x`x~~~xq~@p@?p@?|xspG@qcLx?xqpx|?`??~x|?|x~xp~<@~Cp@@pp<@~C?`~|~gy?`a~g~`Op?@~0|?`??p~0|?|y~xs@`O`x~x~~x~p@?p@?|xspG@A`0@pxp p|FppFCqx`x@`|xx` p@`@?~`|y?~O`H`x||`~`p?@|ppx?~|| `x~~~xs~Hp@?p@?|ys@p@qcXxxqpx|?`??|x|?~x~|p@|?`??``@|?@p`~~>@?`|?`??p?`|?|y~xc``O`x ~@~|@pp@?p@?~xspg@A`0@p||s`x~@nx~``nxG{~pxp|px??p`>@pp@ `@p8`xx| `x~> ~xs>Lp@>p@?|yc`p@yfX0xspx|?`?? ~x|?@?x~|p@`|?`??```|?~p@~??`|?`??`?`|?|y~xc``O`x~|~ ~|p@?p@?~xspg@A``@|`x ~>`~``>`Gxp`x`p`?@p@pp@`@xppp@~`x~> ~xc>Lp@>p@?|yc`p @yfp0xsp                     R CHARCHOT AND A.U.G.E. =============== = PRG NACHWEIS:V A.U.G.E. DISC NR.1] v UEBERARBEITET FUER EPSON FX80 UND EPSON APL INTERFACE VON: D.CHARCHOT,HAMBURG -> 1"-" -> 2";5C$XC$"1"C$"2"ĺ"";:1183g:C$:::B$"1"ĺD$;"BSAVE ";A$;" ,A$2000,L$1FFF,D";C$B$"2"ĺD$;"BSAVE ";A$;" ,A$4000,L$1FFF,D";C$) =============== DC DRUCK (C)-1985 BY DIETEBILD ABSPEICHERN----9-------------------------------?`"GRAFIKSEITE -> 1""GRAFIKSEITE -> 2";B$B$"1"B$"2"ĺ"";:1175:::"NAME ==> ";6050:A$A$""1004: "AUF LAUFWERK # 1163-49232,0:49234,0:49236,0:49239,03WD$;"BLOAD ";A$;" ,A$2000,D";C$_A$l49233,0v100449232,0:49234,0:49237,0:49239,0D$;"BLOAD ";A$;" ,A$4000,D";C$A$49233,0:49236,01004----"{" -> 2";*|C$M}C$"1"C$"2"ĺ"";:1148[~C$:::|"AUF GRAFIKSEITE -> 1""AUF GRAFIKSEITE -> 2";:"(DANACH WEITER DURCH TASTENDRUCK)"B$B$"1"B$"2"ĺ"";:1154B$"2" DRUCKER AN$n(17): CTRL/QEoD$;"PR#0": DRUCKER AUSOp1004Uq:mr----BILD LADEN----s-------------------------------tu"WAS SOLL GELADEN WERDEN ?"vwA$xA$""1004y:z"VON LAUFWERK # -> 1" NICHT FERTIGab:<c"OK, JETZT WIRD GEDRUCKT !"Dd:[e::"(CTRL+C)";:rf" <- DRUCKENDE !"xg:~h:iN1: FALLS DRUCKINTERF.IN SLOT1j1912N,PLID: MODE SETZENk1144N,DD: '' ''l: mD$;"PR#1": "ALLES OK ? -> J"?X" -> N";GYA$XZA$"N"1066s[A$"J"ĺ"";:1113\(15935)127ī1122] DRUCKER FERTIG^:::" -> DRUCKER FERTIG MACHEN !! <- ":_(15935)127ī1119 ` DRUCKERG$!MG$"N"D0:" ->";G$?NG$"D"D64:" ->";G$bOG$"N"G$"D"ĺ"";:1107hPQ"DICHTE : NORMAL -> N"R" DOPPELT -> D";SDD$TDD$"N"DD75:" ->";DD$UDD$"D"DD76:" ->";DD$VW1081 B+C"NORMAL -> N"MD"INVERTIERT -> I";UEA$rFA$"N"I0:" ->";A$GA$"I"I32:" ->";A$HA$"N"A$"I"ĺ"";:1093IJ"GROESSE: NORMAL -> N"K" DOPPELT -> D";LP1:L0:" ->";A$6;A$"2"P2:L0:" ->";A$W<A$"3"P3:L0:" ->";A$x=A$"4"P1:L4:" ->";A$>A$"5"P1:L8:" ->";A$?A$"6"P1:L16:" ->";A$@:AA$"1"A$"2"A$"3"A$"4"A$"5"A$"6"ĺ"";:0:$1"GRAFIKSEITE 1 -> 1"E2"GRAFIKSEITE 2 -> 2"a3"GRAFIKSEITE 1 UND 2:"g45"NEBENEINANDER -> 3"6"]BEREINANDER 1 AND 2 -> 4"7"]BEREINANDER 1 OR 2 -> 5"8"]BEREINANDER 1 EOR 2 -> 6";9A$:A$"1"ĺ"";:1054!A(A$)3"A1C$"CATALOG,D1"L#A2C$"CATALOG,D2"R$X%c&D$;C$k'A$u(1004{):*:+----DRUCKEN----,--------------------------------.:" WIE SOLL GEDRUCKT WERDEN ? ":/:---+49232,0:49234,0:49237,0:49239,03A$I49233,0:49236,0S1004Y:_:t----CATALOG-----------------------------------"LAUFWERK 1 -> 1""ODER 2 -> 2"A$ A$"1"A$"2"A$"E"ė: "";:1025" :G ----GRAFIKSEITE 1 AUF SCHIRM---l ------------------------------- 49232,0:49234,0:49236,0:49239,0 A$ 49233,0 1004 : ----GRAFIKSEITE 2 AUF SCHRIM-------------------------------AFIKSEITE 2 AUF BILDSCHIRM -> 2"( S "GRAFIKSEITE DRUCKEN -> D"Y  "PROGRAMM BEENDEN -> E" :: A$ A$"1"1034 A$"2"1041 A$"C"1049 A$"D"1066 A$"L"1137 A$"S"1169  GRAFIK NACH WUNSCH : *DC"::3 ::^ "CATALOG AUF BILDSCHIRM -> C"d  "GRAFIKSEITE LADEN -> L"  "GRAFIKSEITE SPEICHERN -> S"  "GRAFIKSEITE 1 AUF BILDSCHIRM -> 1" " "GR- LICH ZU SCHREIBEN (WENIG SPRUENGE, VIELE REMS), DASS AUCH IHRE NACHFOLGER LEICHTMIT DEM PRG UMGEHEN KOENNEN,SONST WIRD WOHL KAUM ETWAS AUS DIESEM VERSUCH ! :  PRG ANFANG------------------- D$(4)  CHR$(4)=CTRL/D  ) "DC* EIN 1. SCHRITT SEIN.MACHEN SIE ES DOCH WIE ICH: SCHREIBEN SIE EINE ERWEITERUNG UND SENDEN SIE SIE EIN ! VIELLEICHT ENTSTEHT SO IM LAUFE DER ZEIT EIN GANZ TOLLES GRAFIKPROGRAMM  ABER DENKEN SIE DARAN, IHR PRG SO DEUT ****************************************BITTE BEACHTEN SIE DIE QUELLENANGABE AM ENDE DES PROGRAMMS ! ****************************************  DIESES PRG SOLL NUR            栧맠ŠŠŠӠ嬠䠱ŠΠΠΠ栍堠렠쮺堪ӠԠӠ堪Π򠠠   15)S ! "GEDACHT !!!"+ 32,05 ::W "EIN ANDREAS BIECK PROGRAMM" ============= ZAHLENRATEN (C)-1985 BY ANDREAS BIECK AND A.U.G.E. ============= JN 6L1K ;H(J2)' @RJH2/ JJH5 TD ^(0)36ĺU hR1ĺN;" ";[ re w::s z16368,0 |"IST IHRE ZAHL DABEI ":A$ A$"J"SS2(K1)   ::  "SIE HABEN SICH DIE ZAHL:"  32,7  :"DENKEN SIE SICH NUN EINE NATUERLICHE"F "ZAHL X FUER 0 FUER JA UND FUER" "NEIN. VIEL SPASS!" 32,0)  ZAHLENRATESPIEL- ===============3G( ANDREAS BIECKN2 T<_@:255iA32,6oFuKN" "P"Z A H L E N R A T E S P I E L"Z"*****************************"_di n"SIE     ŠӠ֠報䠱̥Рڠ䠍堨報堍報笠堹󮠍報ح򠍠Π쩠䠱笠堹堵堶堷堍砍쬠堍場àӠڱڲڳ堍堲堨堳堍堍堍󮠍Ω˨Ω򠽠젪Υά󠍠̨Ω嬠بΩ٨ΩШ̥ͩͩ砍򠍠̥̥򠍠䠱֨ͩ砍堍頠Ψάڨͬͩ⠍򠍠孠󠍠砨報κ쬠ͺ堍謠堍ŠŠ᠍͠仠宠䠍蠍鵯 Π堨򮩺캠Ŷ堍宩󺠍캠ح٭栍򮩺讠򮠍堍堨⠍堍宠͠堍ō䠍箠堍嬠䮠讠孠堍򠍠堍笠򠍠堨堍򠍠讠讠ͺӠ®򠴴笠젍ᠳ頳蠵謠렍젍򠍠孠孠ŠΠΠ͠󠍠쮠򠍠䠍堢렭墮堍彽͠婠堍묠묠렍魠魠堍堠ȮǮ⠠쮺堪ӠԠӠ堪͠򠠠                  ::A$"J"600?"EINE ANDERE LAGERBEDINGUNG ? (J/N): ";A$S::A$"J"500 =========== FEM (C)-1985 BY H.G. SEIB AND A.U.G.E. =========== N),LY(SN)"KNOTENKOORDINATEN:":N0KN:"KNOTEN-NR.: ";N1 "WAAGRECHT: ";KN(N,0):KM:L%(Y)012086Y2(Y2)ĺ"WAAGRECHT ";:1203I"SENKRECHT ";k"AM KNOTEN: ";(Y2)1;": ";K0:X0KM:L%(X)11207XYKKZ(Y,X)V(X):1207KKZ(X,Y)V(X)X:KY::"EINEN ANDEREN LASTFALL ? (J/N): ";A$ MIT DEN KNOTEN ";K11;" UND ";K21;":"`NK12K1:K32K2:K2K11:K4K31:LXLX(N)V(K1)V(K3)OLYLY(N)V(K2)V(K4):L(LXLXLYLY)L(N)P"STABDEHNUNG: ";L:"STABLAST:";LK(N)Q"STABSPANNUNG: ";LK(N)A(N)::A$:N::"LAGERLAST:":Y05ZYKMLN11:ZXLNZY:KV(ZY)Z(ZX,ZY):V(ZY)K^Y0ZY1:V(Y)V(Y)Z(ZX,Y)K:Y:ZYtV(0)V(0)Z(LN,0)YKMLN:ZYKM01L%(ZY)1V(ZY)0:1003V(ZY)V(Y):YY1ZYLN0SN:K1SN%(N,0):K2SN%(N,1)'M"STAB-NR. ";N1;"L%(Y2)1704- Y10:X20Y2:L%(X2)1703K Z(X1,Y1)Z(X2,Y2):Y1Y11j X2:V(X1LN)P(Y2):X1X11r Y2 ZY0KMLN1:ZXLNZY !YZY1KMLN:X1LNY:KZ(X1,ZY)Z(ZX,ZY) "XX1KM:Z(X,Y)Z(X,Y)Z(X,ZY)K:X#V(Y)V(Y)V(ZY)K:Y:ZY";K:"0=WAAGRECHT, 1=SENKRECHT: ";LB KK1:L%(2KL)1::N::m X"LASTANZAHL: ";LA::N0KM:P(N)0:N YN1LA:"LAST-NR.: ";N Z"AM KNOTEN-NR.: ";K:"0=WAAGRECHT, 1=SENKRECHT: ";L ["FACHWERKLAST: ";P(2K2L)::N:: X1LN:Y20KM:Z(K1,K4)Z(K1,K4)Z2:Z(K2,K2)Z(K2,K2)Z3:Z(K2,K3)Z(K2,K3)Z2 Z(K2,K4)Z(K2,K4)Z3:Z(K3,K3)Z(K3,K3)Z1:Z(K3,K4)Z(K3,K4)Z2 Z(K4,K4)Z(K4,K4)Z3::N:: "LAGERANZAHL: ";LN::N0KM:L%(N)0:N N1LN:"LAGER-NR.: ";N# "KNOTEN-NR.: LXKN(K1,0)KN(K2,0):LYKN(K1,1)KN(K2,1):LX(N)LX:LY(N)LYy L(LXLXLYLY):L(N)L:CLXL:SLYL:KEA(N)L:K(N)K Z1CCK:Z2SCK:Z3SSK:K12K1:K32K2:K2K11:K4K31 Z(K1,K1)Z(K1,K1)Z1:Z(K1,K2)Z(K1,K2)Z2:Z(K1,K3)Z(K1,K3)Z1> "SENKRECHT: ";KN(N,1)# :N::S ,"STABWERTE:"::"ELASTIZITAETSMODUL: ";E:q -N0SN:"STAB-NR.: ";N1 ."1.KNOTEN-NR.: ";K1:"2.KNOTEN-NR.: ";K2 /K1K11:K2K21:K1K2KK1:K1K2:K2K 0SN%(N,0)K1:SN%(N,1)K2:"QUERSCHNITT : ";A(N)= ,d"KNOTENANZAHL: ";KN:KM2KN1:KNKN1Oe"STABANZAHL : ";SN:SNSN1:ynKN(KN,1),Z(KM,KM),V(KM),P(KM),L%(KM)oSN%(SN,1),A(SN),K(SN),L(SN),LX(SN),LY(SN)"KNOTENKOORDINATEN:":N0KN:"KNOTEN-NR.: ";N1 "WAAGRECHT: ";KN(N,0):    خة󍠠ŠӠŠŠéŠΠΠӠ젍젠쮺堪ӠԠӠ堪Ӡ򠠠E","DOUZE","TREIZE","QUATORZE","QUINZE"R "SEIZE","UNE","CENT","DIX","VINGT","TRENTE","QUARANTE","CINQUANTE","SOIXANTE","SEPTANTE","QUATRE - VINGT","NONANTE"\Q127fL$(Q)pQzQLLIEME";:790+ZW%1ĺ" CENTIEME";:790< " DIXIEME";dC$(3)"1"C$(2)"0"C$(1)"0"ī810m "S"*10:5:"FORTSETZUNG MIT RETURN";:Q$4Q$(13)ī190>'H "UN","DEUX","TROIS","QUATRE","CINQ","SIX","SEPT","HUIT","NEUF","DIX","ONZLS%1C$(3)"1"LS%0:# vLS%0: " ";L$((C$(3)));@ Z " ";L$((C$(3))10);` j 7:1 LL%1:LS%1:WS%0:WW%0:410 LL%0ĺ" MILLE"; LS%0:WW%0 WS%3:410 LS%0:WW%1 WS%7:410 LS%1ī810 ZW%0ĺ" MIC$(2)"0"LS%1C$(3)"0"C$(1)"1"ĺ"S";M C$(2)"0"C$(3)"0"LS%1:W &LL%0u 0C$(2)"1"C$(3)"7"ī660 :C$(2)"0"ī620 D" ";L$((C$(2))18); NC$(3)"0"C$(2)"8"WS%0ĺ"S"; XC$(3)"1"ĺ" ET";:640 bC$(3)"0"ĺ" -"; lI13 C$(I)(A$,WS%I,1)& I7 WW%1ī480R C$(3)"0"ZW%2ī480x C$(3)C$(2):C$(2)C$(1):C$(1)"0" ZW%ZW%1:450 WW%1C$(3)"0"ĺ" ET"; C$(1)"0"ī540 LL%0 C$(1)"1"ĺ" ";L$((C$(1))); " ";L$(18);, (A$,I1):B$(2)(A$,(A$)I)H ,(B$(1))6SW%6(B$(1)):S1%1:330s 6(B$(2))3SW%3(B$(2)):S1%2:330| @380 JI1SW% TS1%1B$(S1%)"0"B$(S1%) ^S1%2B$(S1%)B$(S1%)"0" hI r |A$B$(1)","B$(2) A$ 680 ************ L$(30)! 860' I 1:1:"ALS KOMMA . NEHMEN":{ "EINE ZAHL EINGEBEN BITTE: ";A$:(A$)0190 (A$)10A$(A$,10) ZW%0 I0 II1 (A$,I,1)"."ī290 I(A$)A$A$".0":II1:290 250 "B$(1)'d *******************************Mn * UEBERSETZUNGSPROGRAMM *sx * ZAHLEN -> FRANZOESICH AUSG. * * (BELGISCH) * * COPYRIGHT FERNAND SCHROELL * * M 3527 & A.U.G.E CO84 * *******************    䬠ɬ̭箍ŠӠũ͠宠¤ͬ¤򍠠z#àˠ̠ԠԠ̠Ǡ̠ Ϡ̠̠"Ԡ̠ Ӡ̠̠͠+ Π̠ Р       Ϡˠ̠Ҡ̠  ӠҠ̠ ̠͠  ͠  Π àˠ àˮ̱!àˮ̲!  Ϡ̠)!Ԡ Ӡ  ͠ ɭӠҠҠ ҠŠ Ԡ+ Ǡ  Ҡ ӠҠŠҮ֠ Ӯ֠Š    ж̠жԠз̠зԠзĠԠ@L6@00@ `I -Lɝ᭳0έ0ɭ0ĩ @@@@@@ @@@@ʎ @@@ @z#HIHIH,8L( H8`(B?BC8 àMB`I -LBC8 íJJJJ)**) I 8   =< <<=?<>B C LϠˠҠΠéԠϠЬ٠@LQBз0*HhHh݌h<;LåBCHI<=i>=i?BC8 í " $A@, =i?HBIC íBC,Líе ) =i?89@@L @&L,@00I -Lɝ᭳0έ0ɭ0ĩ@ @ @ @@֩@@@!ǩ@@@@ʎ@ @@@ z#HIH,8L( H8`(B?BC8 àMB`I -L**)I H8T  U=< <XBYC L@LQB0*HhHh݌h<;LäHI H=i?PBC8 åQ_R`\&"^RUT >U6@,]P=i?HBIC é,LåS^¥\)XY=i?BC8 íJJJJ)   :I1750: n:(4)"CATALOG"y =============== TITEL (C)-1985 BY FRANK POHLEMANN AND A.U.G.E. =============== 1z  :'5::" A U G E 31 ":6I1750:j(A$"UTILITY ":I3211:14:I:A$:K12:K,Iy2I1500:<16:11:"UND"FI1500:PA$"KRAUT & RUEBEN":I1(A$):J218ZJ1:I16:" ":J:I16:(A$,I,1) dK11:K,J,I 䮍Šō庠堯򠶴堯㮍󮍍ᠱ󠳮謠堸䬍堸堠ᠳ󩬠ᠴ󠵠󠳮堶Ӭ젱Я͠󠳮ΠзĠԧ堶Πж̧󠳮頧зԧ򠶴뺠䬠䠨멨Πз̧󠳮ΠжԧΠзԧ򠶳Πж̧۠堯鮠򠶴堯堯㮠򠳠ӠԠӠ뮍鮠쮺堪ӠԠӠ堍堪Ϡˠ򠠠𠠠    @L@0 0 g@@@@@@#@@@ g@@Lg@@ `@ Lҡ @L@쮺堪ӠԠӠ堨®㍠堪Ҡ򠠠𠠠     I i`HH11`IJ듧ƙɾ5Ė+]̵b@L u ?l:L``L@ 'A&?1?=A>? < `JJJ>Ie@@A`41`>BD`8>6>) `L`BC<>=?<=`K i! Ȉ2 ,`H h*:` `E/E//`$(H)? @(hl8NO,(,` ɛ`2H2 h2Ɉɘ  : 3  5ɕ()ߝɍв [=< @L< >=?<)HJ) )h)i( ((`ɇ@ 0`$($$!f`ɠɍZɊZɈ$!$$"% %% e (`I(ii,i\$%H $ hi#ʥ"%$$%%#%"H $(*)+!hi# H $(*0 $(!`8HhȆ׍숈l E@A  J 0`YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐJؤ#]#)i#$S#$S[[i$$)|mi)S4i#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `/) JJJ Ȉ` H:  J/Ȑh,--&,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YM@KЅ  K@ ꍲLJ G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)   жԮ堶뮍зԮ堷련򠶴驮зĠԮ堷򮍍ŠӍж̮堶з̮堷󠤴Ʈ嬠Ӡİ՟Ց%.4=թ +RECORD LENGTH ЭLЩ +RECORD NUMBERL' dթ +NEW NAMEL'ө +VOLUME LЩ +DRIVE LЩ +SLOT LЩ +FILE TYPE µ Рµ0 Эµ)JLӹ ЩL© h LX "&,2:>??OPECLOSREAWRITDELETCATALOLOCUNLOCRENAMPOSITIOINIVERIF٭A= +SUBCODE Э ЬҨH h L 'NOONE BYTRANGE OF BYTEPOS & ONE BYTPOS & RANGE OF BYTEӭ HHHH`HJ)  h)i ` HLЩ H Lh>> FILE NICHT GEFUNDEN"(7)" "(7):11 216,0:::"BELIEBIGE TASTE, UM ZU STARTEN *"(8);:B$::A$"PR#"B:D$:A$"OPEN"E$:A$"READ"E$:21 B$:AB$((B$)32(B$(95))) " "B$;:EĭB$(13)ĺ(10);B$:E(B$"J")::11h :5:"HABEN SIE EINEN KLEINSCHRIFT-ADAPTER ?"(8);:B$:A(B$"N"):D$"":B0:E0 ::"BITTE FILE-NAMEN EINGEBEN:":"( 'CAT' FUER EINEN CATALOG )":"->";E$:(E$)2 E$"CAT"ė:A$"CATALOG":11 (E$,1)"A"ĺ(7);(7):P-STRING' EIN,":"FALLS IHR DRUCKER SO ETWAS BRAUCHT.":"->"::"( ERLAUBT, CTRL INVERS DARGESTELLT)":D$"":C3:10 C:B$:D(B$):D139 D32Ğ:(D64);::8 B$; D$D$B$:CC1:5 14::"BRAUCHEN SIE EXTRA-LINEFEEDS ?"(8);:&A$(4):M$:?j::10000:2:20)::15:"BRAUCHEN SIE INFORMATIONEN ?"(8);:B$:B$"J"ĺ:23:20:"BILDSCHIRM ODER AUSDRUCK (B/A) ?"(8);:B$:B$"B"10x A0::5:"SLOT DES DRUCKER-INTERFACES ->";C$:B(C$):::"GEBEN SIE DEN 'SETU     A30I1SZ87:JAASB:J,159J,159E(I):Jg6:JASB3A2SB3:J,159J,159Z(I):JvAA2SB8}I7:A30I1SZA,159A,159E(I)ASB,159E(I)ASB,159&ASB3,159ASB3,159Z(I)A2SB3,159Z(I)A2SB3,1514:"ANZAHL DER SAEULEN : ";SZCh:"EINGABE:"12)EG$;28)ZG$Or:34,4[|I1SZ"WERT "I;:14:"";E(I):30:(37):"";Z(I)E(I)Z(I)E(I)GWGWE(I)Z(I)E(I)Z(I)GWGWZ(I)I150:270SB(248(SZ2.5)):SBSB2TEN GROESSE: "&,7:1:868:"";EG$p6(EG$)13Ģ7:1::"ZU LANG! NUR 13 BUCHSTABEN!":I11000:::1580@10:"NAME DER ZWEITEN GROESSE: "J11:1:868:"";ZG$T(ZG$)13Ģ11:1::"ZU LANG! NUR 13 BUCHSTABEN!":I11000:::1610"^:BF0:350: OBERER TEIL b7:I1030:I,182I,190::155,182175,182175,190155,190155,182k49024:7:UG$:24:28:OG$700:::1:SP$:1:2:"HISTOGRAMM MIT 2 WERTEN NEBENEINANDER"::AA134,2:100:"6:"NAME DER ERS : ";SZ)Z:"EINGABE:"12)UG$;28)OG$5d:34,4AnI1SZqx"WERT "I;:14:"";U(I):30:(37):"";O(I)U(I)O(I)U(I)GWGWU(I)U(I)O(I)O(I)GWGWO(I)IGW2GW150:270I1SZ:D(I)U(I)::BF7350K1868:"";UG$W(UG$)13Ģ7:1::"ZU LANG! NUR 13 BUCHSTABEN!":I11000:::1300|(10:"NAME DER OBEREN GROESSE: "211:1:868:"";OG$<(OG$)13Ģ11:1::"ZU LANG! NUR 13 BUCHSTABEN!":I11000:::1330F14:"ANZAHL DER SAEULEN AEULEN":AA0970?T9:SZ15T4: T=SAEULENTIEFEVF$"SAEULEN":1080i150:270:350w490:700:::1:SP$:1:2:"HISTOGRAMM MIT 2 WERTEN UEBEREINANDER"::AA134,2:100: 6:"NAME DER UNTEREN GROESSE: " 7:1::":B4:"WEISS <1>"4L4:"STREIFEN <2>"LV4:"SCHWARZ <3>"f`:4:"IHRE WAHL < >"zj10:15:A$:A$tA$"1"A$"2"A$"3"1130~A$"1"BF7A$"2"BF6A$"3"BF0 :::1:SP$:1:9:"HISTOGRAMM MIT S "I;:10:": ";D(I)(D(I)GWGWD(I)::(7):34,2GW10000Ğ:"HISTOGRAMM FUNKTIONIERT NUR FUER WERTE BIS 10000! AENDERN SIE MASSSTAB UND DIE KOPFZEILEN DES HISTOGRAMMS ENTSPRECHEND!"::I16000:::100:1000$8::"FARBE DER "F$"90:700&-----EINGABE-ROUTINE-----734,2:100:V12:"WIEVIELE WERTE: ";SZSZ50ğ::"ANDERN SIE DIE DIMENSIONIERUNG":"IN ZEILE 80 FUER ALLE ARRAYS":"AUF DIE ANZAHL IHRER WERTE!"::"EINGABE: "::34,4I1SZ"WERTRR$"RSUNA"m21:31WpR$:16368,0:RR0:R1(RR$):R$(RR$,R,1)RRR:R(RR$)htR:RR0880zRR910,1200,1270,1550,1940:::1:SP$:1:7:"HISTOGRAMM MIT RECHTECKEN"::AA1970F$"RECHTECKE":1080150:270:3504T RECHTECKEN "K>12:"MIT SAEULEN "wH14:"MIT 2 WERTEN UEBEREINANDER "R16:"MIT 2 WERTEN NEBENEINANDER "\18:"ODER WOLLEN SIE AUFHOEREN "f21:"BITTE WAEHLEN SIE < >" k::23:"BILD SAVEN (J/N)? ";:B$:B$:B$"J"790W"UNTER WELCHEM NAMEN: ";NB$(13);(4)"BSAVE "NB$".PIC.,A$2000,L$2000":::1:SP$:1:15:"HISTOGRAMM": X(0):GW0:AA0:K0*7:"WOLLEN SIE EIN HISTOGRAMM"410:"MI:12:" 50":20:" 0":>3:"200":12:"100":20:" 0":d3:"500":12:"250":20:" 0":2:"1":3:"000":12:"500":20:" 0":2:"10":3:"000":11:"5":12:"000":20:" 0":X(16384)X12870016368,006T1$)2:T1$$:2:23(T2$)2:T2$3D22:5:J$[I1:"";"B";(102): COPYRIGHT BF NSY620,630,640,650,660,670,680,690Xl3:"10":12:" 5":20:" 0":v3:"20":12:"10":20:" 0":3:"50":12:"25":20:" 0":3:"100" J$J$A$.A$(8)(J$)2J$"":504NA$(8)J$(J$,((J$))2)Z5:J$;mA$(13)500{16302,0(4)"BLOAD HI-RES CHARACTER GENERATOR,A$8000"(4)"BLOAD CHARACTER TABLE,A$6800"(4)&54,0:55,128 01:23(򠱠堍򠲠堍򮠍ŠΠ쮺堪ӠԠӠ堪͠򠠠 ~  <"\:FBF:<<@@\bBb\\bb\@<:FBBB8 0 "" "8.TTTT>DDDD8DDD8:FF:\bb\@@:F|<@>>H0BBBb\BBB$DDTTlB$$BBBb\@<~ ~880(8DRj2x$B~BBB>DD
DDDDD>~~~BB>BB>"B$$$$$~$~$$x8P<F&db  R"\   T8|8T| ~@ BB<~B > 60HH0>>>***>"6*""">$ 88>>>>*>><> ?:{>`H XN7<6NWRU@ TPhhHNɍ-Ɍ+*+*++8 $%ll%J) +%j )* * (je$*h-HJJJ'hH*&'*&'*&')&&OH**hQ**O+i+$$! $%%#"%Nh`  175,190155,190155,182! l490> v24:7:EG$:24:28:ZG$G 700[ -----ENDE-----x :12:15:"TSCHUESS!":SGRAMM (C)-1984 BY ROLF BIERFERT AND A.U.G.E. ============= z59&ASB3,159ASB3,159Z(I)A2SB3,159Z(I)A2SB3,1590AA2SB8:ID25,159277,159NI1030:I,182I,190:X6:I155175:I,182I,190: b7:155,182175,18290AA2SB8:I+D25,159277,159GNI1030:I,182I,190:hX6:I155175:I,182I,190:b7:155,182175,182175,190155,190155,182l490v24:7:EG$:24:28:ZG$700:12:15:"TSCHUESS!":< ============= HISTO werden alle Werte in der bereits bestehenden Datei gel|scht!"U216,0:381020:"Wollen Sie das (JA/N)? ";:"";A$:A$"JA"560D$"OPEN HAUSHALT "J$D$"DELETE HAUSHALT "J$D$"OPEN HAUSHALT "J$D$"WRITE HAUSHALT "J$S- D A T E I >> "J$" << : Initialisieren">4I180:"=";:D>NH920jRD$"VERIFY HAUSHALT "J$\10:"Eine Datei mit dem Namen"f12:"HAUSHALT "J$p14:"befindet sich bereits auf der Diskette."Cz16:"Beim Initialisieren der Datei,750,800,1130,1130,1130,3960U23:10:(29);:"Welches Jahr: 19";J$:(J$)2700j2379,((J$,1))2380,((J$,1))J$"19"J$560D$"SAVE HAUSHALT":  DATEI INITIALISIEREN: (12)**"H A U S H A L T S Datei initialisieren (am Jahresanfang)"Nv14:10:"<4> Ausgaben eingeben"u16:10:"<5> Einnahmen eingeben"18:10:"<6> Liste drucken"20:10:"<7> Aufh|ren"23:10:"W{hlen Sie: ";:"";A$(A$)1(A$)7670(A$)700:  MENU&: 0:(12)Z:"H A U S H A L T S - D A T E I >> "J$" << : Menu"nDI180:"=";:N5:10:"Bitte w{hlen Sie:"X8:10:"<1> Jahreszahl {ndern"b10:10:"<2> Programm mit neuer Jahreszahl absaven"(l12:10:"<3> be <<<<<<<<<<<<<<"F23:K179:"*";:K::1:K179:"*";:K:hK122:"**";:36,77:"**":10:19:"H A U S H A L T S - D A T E I"12:34:"f } r "J$14:25:"v o n R o l f B i e r f e r t"16384,128ub+  Briefmarken,Lotto,Blumen,Geschenke;  SonstigesQ I1GE:GE$(I):  Gehalt Mann,Gehalt Frau,Steuerr}ckz.,Zinsen,Abhebungen,Sonstiges E1$"<<<<<<<<<<<<<< Korrektur der Eingabe >>>>>>>>>>>>>>"E2$">>>>>>>>>>>>>> N{chste EingaSparen+Bankgeb.J rAutoreparatur,Tanken,Auto-Vers/Steuer,Sonstiges(Auto) | Kleidung Frau,Kosmetik Frau,Friseur Frau,Kleidung Mann,Kosmetik Mann,Friseur Mann,Drogerie/Apoth.  Zeitung,Zeitschriften,B}cher,Schule,Computer  Restaurant,Cafe,UrlaGA$(I):L T Miete + Garage,\l, Strom,Wasser/Gem. Strom,Telefon,Fernsehen ^Lebensmittel,Metzger,Wein,Mittag Mann,Mittag Frau,Hausrat,Putzfrau h Lebensversicherung,Krankenvers. Mann,Krankenvers. Frau,Verm.Bildg.Ges.,Hausrat/Haftpfl.,Unfall-Vers., VER[NDERN DIE ZAHL IN ZEILE 230 *] ************************************************~ "GA44: GRUPPENZAHL AUSGABEN ,GE6: GRUPPENZAHL EINNAHMEN 6M1: 1. MONAT @GA$(45),A(12,GA),SS(12),ZS(GA),E(12,6),ZE(GE),SE(12),SG(12) JI1GA: ++++++++++++++++++++++++++( D$(4)6 D$"PR#3"A (12)O J$"1985" ************************************************ * ZEILEN 100-230 D]RFEN NICHT VER[NDERT WERDEN * * WEGEN DER POKE'S IN ZEILEN 710 - 720 *' * SIE)d HAUSHALTS-DATEI6n VON ROLF BIERFERT (M984)Sx VERSION VOM 31.12.1984t ++++++++++++++++++++++++++ ERFORDERT: 80-ZEICHEN-KARTE IN SLOT 3 DRUCKER EPSON FX-80 MIT GRAFIK-INTERFACE ODER BEL. ANDEREN DRUCKER              ŠӠɭӠҠҧ䠍Ҡŧ堽䬠Π͠ŠŠ-Grafikinterface; dabei wird eine Routine verwendet, die sich im Interface befindet."# :"<2> f}r andere Konfigurationen, wobei ggfs. die Codes f}r Breitschrift oder Schmalschrift anzupassen sind." $ :" bringt Sie zur}ck:" :(12)K" "H A U S H A L T S - D A T E I >> "J$" << : Drucken"_" I180:"=";:e" " "Sie haben die Auswahl zwischen 2 unterschiedlichen Formatierungsroutinen,die zumgleichen Ergebnis f}hren:"_# :"<1> f}r EPSON RX/FX-80 mit EPSONZ!8 S#!B S112:(SS(S).5):>!L Z1GA:(ZS(Z).5):L!V (SA.5)t!` S112:Z1GE:(E(S,Z).5):Z:S!j S112:(SE(S).5):(SG(S).5):!t Z1GE:(ZE(Z).5):!~ (SE.5):(SG.5)! D$"CLOSE"! 560! :! DRUCKEN" SGSESA> 16:10:"Werte werden jetzt auf Disk gesaved"I 3810e D$"VERIFY HAUSHALT "J$ D$"OPEN HAUSHALT "J$ D$"DELETE HAUSHALT "J$ D$"OPEN HAUSHALT "J$  D$"WRITE HAUSHALT "J$  S112  Z1GA $ (A(S,Z).5)!. 0::Z1GE:ZE(Z)0:(4SA0:SE0:SG04>S112@HZ1GAWRSS(S)SS(S)A(S,Z)n\ZS(Z)ZS(Z)A(S,Z)ufZpSASASS(S):SzS112Z1GESE(S)SE(S)E(S,Z)ZE(Z)ZE(Z)E(S,Z)ZSESESE(S):SG(S)SE(S)SS(S)S ::(12)L"H A U S H A L T S - D A T E I >> "J$" << : Addieren"`I180:"=";: 12:10:"E s w i r d a d d i e r t!"14:10:"Zeilen- und Spaltensummen werden berechnet" S112:SS(S)0:SE(S)0:SG(S)0:*Z1GA:ZS(Z)(BE$,L,1))L1A451950[A57A46A47L(BE$):21:36,15:(29);(7);E1$:1900bLpB(B.5)23:1:"Richtig (J/N)? ";:A$:A$"J"A$""A$(13)ĺ(7);:E$E1$:1820E(M,G)E(M,G)BE$E2$:1820: ADDIERENppe: Betrag: "F:22:28:"";G$:G$"M"1800WDG$"E"2030tNG(G$):G1(GGE)1830X(G$)21840b(G$)2G101840l22:38:"Betrag: ":22:36,46:"";BE$:B(BE$):B01900vL1(BE$) A(34,19]"[ndern des Monats: bei Gruppe -Taste *** Ende: bei Gruppe -Taste ***"z22:1:"Monat: "M:184022:1:958:"Monat: ";M$:M(M$):M1M12M(M)1800184021:36,0:(29);:E$&23:1:(29)&022:20:"GruE1$:1490rA(M,G)A(M,G)B/|E$E2$:14905:E EINNAHMENK:X:(12)"H A U S H A L T S - D A T E I >> "J$" << : Eingabe der E i n n a h m e n"I180:"=";:I16I10)I". "GE$(I)I180:"=";: ":22:36,46:"";BE$:B(BE$):B01570?,L1(BE$)S6A((BE$,L,1))f@L1A451620JA57A46A47L(BE$):21:36,15:(29);(7);E1$:1570TL^B(B.5) h23:1:"Richtig (J/N)? ";:A$:A$"J"A$""A$(13)ĺ(7);:E$0 1510%21:36,0:(29);:E$723:1:(29)o22:20:"Gruppe: Betrag: "22:28:"";G$:G$"M"1470G$"E"2030G(G$):G1(GGA)1510(G$)21510(G$)2G101510/"22:38:"Betrag: 15". "GA$(I15);:36,60:I30". "GA$(I30)1EI180:"=";:P34,19"[ndern des Monats: bei Gruppe -Taste *** Ende: bei Gruppe -Taste ***"22:1:"Monat: "M:151022:1:958:"Monat: ";M$:M(M$):M1M12M(M)147Z1GE:ZE(Z):SE:SG+(D$"CLOSE"G2(A$)31370,1700,2490M<:\F AUSGABENbP:oZ:(12)d"H A U S H A L T S - D A T E I >> "J$" << : Eingabe der A u s g a b e n"nI180:"=";:xI115+I10)I". "GA$(I);:30:I0:"=";:+D$"VERIFY HAUSHALT "J$ED$"OPEN HAUSHALT "J$_D$"READ HAUSHALT "J$kS112wZ1GAA(S,Z):S112:SS(S):Z1GA:ZS(Z):SAS112:Z1GE:E(S,Z):Z:S S112:SE(S):SG(S):113Z1GA10!Z(S4S113?Z18F0MZTS\$D$w.D$"CLOSE HAUSHALT "J$8DFıB560L:V LADEN`:j:(12)t3810~"H A U S H A L T S - D A T E I >> "J$" << : Laden" I18堪Ԡ򠠠    2);(21)31"Ende der Haushalts-Datei":"Tsch}~!"911 ============= HAUSHALT (C)-1984 BY ROLF BIERFERT AND A.U.G.E. ============= Dtz mehr auf der Diskette.":D$"DELETE HAUSHALT "J$:"Formatierte Diskette einlegen!":DF1:840:DF0:2260x0(D$"CLOSE"02(18);(12);(21)0<D$"PR#0"0F"Fehler Nr. "(222)" in Zeile Nr. "(218)(219)256"."0P0Z:0d ENDE0n:1x(1:"Taste dr}cken! ";:A$:/ F6ĺ"Datei Haushalt "J$" existiert nicht. Datei mu~ erst initialisiert werden!":"Taste dr}cken ";:A$::560/F8ĺ"I/O-ERROR. Diskette defekt oder Laufwerk offen.":"Taste dr}cken ";:A$::3288:i0F9ĺ"Kein PlaS))))SG(S)" ";.tS+.~6((SG)))SG7.(18);C.(12);N.(21)\.D$"PR#0"j.D$"PR#3"s.560y.:. FEHLERBEHANDLUNG.:.F(222).216,0.F103880/F4ĺ"Diskette schreibgesch}tzt!":"Schreibschutz entfernen!"men:";:36,30- S1129- 5((SE(S))))SE(S)" ";@-ST-6((SE)))SEz-36,11:"Summe Ausgaben:";:36,30-$S112-.5((SS(S))))SS(S)" ";-8S-B6((SA)))SA-L-V36,11:"Saldo:";:36,30-`S112.j5((SG( Apr Mai Jun Jul Aug Sep Okt Nov Dez Summe"T, `, Z1GEv, 6(Z10))Z". ";, GE$(Z);:36,30, S112, 5((E(S,Z))))E(S,Z)" ";, S, 6((ZE(Z))))ZE(Z), Z, - 36,11:"Summe Einnah12%+ 5((A(S,Z))))A(S,Z)" ";,+ SF+ 6((ZS(Z))))ZS(Z)M+* ZS+4 y+> 36,11:"Summe Ausgaben:";:36,30+H S112+R 5((SS(S))))SS(S)" ";+\ S+f 6((SA)))SA+p N,z 36,11:"Einnahmen";:36,32:"Jan Feb Mar ,30:(14)"============="4* (15): SCHMALSCHRIFT* 36,11:"Ausgaben";:36,32:"Jan Feb Mar Apr Mai Jun Jul Aug Sep Okt Nov Dez Summe"* * Z1GA* 6(Z10))Z". ";* GA$(Z);:36,30+ S12) WRITE:SG(S);I5," ":")& S:)0 WRITE:SG;I6,(13):F): (18);R)D (12);])N (21)k)X D$"PR#0"z)b 53247,255)l D$"PR#3")v 560) :) FORMATIERUNG F]R BEL. DRUCKER) :) D$"PR#1") (0)) 36,30:(14)"Haushalt "J$* 3636,11:"Summe Einnahmen:";:36,29.( S112H( WRITE:SE(S);I5," ":O( Sg( WRITE:SE;I6,(13):( 36,11:"Summe Ausgaben:";:36,29( S112( WRITE:SS(S);I5," ":( S( WRITE:SA;I6,(13):( ( 36,11:"Saldo:";:36,29) S112:"Jan Feb Mar Apr Mai Jun Jul Aug Sep Okt Nov Dez Summe"o'6 {'@ Z1GE'J WRITE:Z;I7,". ":'T GE$(Z);:36,29'^ S112'h WRITE:E(S,Z);I5," ":'r S'| WRITE:ZE(Z);I6,(13):' Z' "( ,". ":& GA$(Z);:36,29&& S112A& WRITE:A(S,Z);I5," ":H& Sc& WRITE:ZS(Z);I6,(13):j& Zp& & 36,11:"Summe Ausgaben:";:36,29& S112& WRITE:SS(S);I5," ":& S& WRITE:SA;I6,(13):&" i', 36,11:"Einnahmen";:36,31" %Z (0)+%d 36,30:(14)"Haushalt "J$L%n 36,30:(14)"============="W%x (15)% 36,11:"Ausgaben";:36,32:"Jan Feb Mar Apr Mai Jun Jul Aug Sep Okt Nov Dez Summe"% % Z1GA& WRITE:Z;I7 zum Menu"y$ :::"Schalten Sie den Drucker ein, und dr}cken Sie eine der Tasten 1,2 oder M: ";:P$:P$:P$(77)560$ P$"1"P$"2"2570$ (P$)2630,3210$( :$2 FORMATIERUNG MIT EPSON-GRAFIK-INTERFACE$< :$F WRITE52480%P D$"PR#쮺堪ӠԠӠ堪Ǡ򠠠 ====== F(PZ)0ĺ10(PZ10)(PZ100))PZ:510P 10(PZ10)(PZ100))PZ" "(K$,Z(PZ))V ^ : 10)"ERREICHTER DURCHSCHNITT: "((GPSZ)100.5)100" %." 0 ================ PUNKTEVERTEILUNG (C)-1984 BY ROLF BIERFERT AND A.U.G.E. ==========SCHIRM"# " FUER DRUCKER"Y 1:"TASTE DRUECKEN";:T$:T$(27)ĉ::200:430l T$(32)360s 1z 1 10)N". KLASSENARBEIT DER KLASSE "KL$" AM "DA$" IM FACH "F$  12)"% ANZAHL" 12)"---------" PZ0100$ ZLER ERREICHTEN PROZENTPUNKTE EIN:"/ "Z(100)5 ,A 6I1SZn @I10)I".SCHUELER: ";:"";P:Z(P)Z(P)1z JGPGPP T ^K$"***************************************" h1:"-------------------" r"DRUCKER EINSCHALTEN" |" FUER BILDFACH: "& 12:"NUMMER DER ARBEIT: "E 14:" DATUM DER ARBEIT: "d 16:" SCHUELERZAHL: "w 8:20:"";KL$ 10:20:"";F$ 12:20:"";N 14:20:"";DA$ 16:20:"";SZ 34,17 :# "GEBEN SIE JETZT DIE VON JEDEM SCHUE d ROLF BIERFERT2n VERSION VOM 17.11.1984:x:j"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%""PUNKTEVERTEILUNG BEI EINER KLASSENARBEIT""%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"8:" KLASSE: " 10:" OGRAMMFILES========================== -嬠㮩ŠӠaendert werden.==========================ZUSAETZLICHE PR蠍䠴堸ң®󠍠ŠŠ䠍򮠍ŠΠΠԠ堠쮺堪ӠԠӠ620 1007" LERNPROGRAMM"V" ############"\"ICH, PLATO, ACHTE NUN AUF DEN LERNPROZESS. WIR BEGINNEN AM BESTEN MIT EINER WIEDERHOLUNG."A14000 990(1930 ":15:2:D$(K);" "aL17:2:X(K,2);"LAT -> DEU UND ";X(K,4);"DEU -> LAT. "kVZ$:r`Kxjt"SOLL LAT -> DEU GELERNT WERDEN (J/N) ";E$~E$"J"J2E$"N"J4E$"J"E$"N"11403760A13ı3210202850:"ICH ZEIGE DIR NUN DIE VOKABELN, DIE DU EINST NICHT KONNTEST. DIE ZAHLEN GEBEN DIE HAEUFIGKEITEN HIERFUER IN BEIDEN LERNRICHTUNGEN AN:"$::.K1I:X(K,2)0X(K,4)0112081090:1120B13:2:L$(K);" EN WORTES ?";:" ";L$(I)R"KORREKTUR DES DEUTSCHEN WORTES ";D$(I)fD$(I)D$(I)";"}A:X$(I,1)NR:580A:X(I,1)NR:570 SPEZIALLERNENA$"NEIN"1140"GEWUENSCHTE DATEI 0-1-2 ";MAXMAX0MAX1MAX84)160980\B$If"LEKTIONSAENDERUNG ? (J,N)";:B$YpB$"N"940jzB$"J"870"NUMMER DER LEKTION =?";NR"VOKABELKORREKTUR ? (J/N)";:B$B$"N"980B$"J"910:"KORREKTUR DES LATEINISCH80 II1$C$"OPEN MAX"8C$"DELETE MAX"JC$"OPEN MAX"]C$"WRITE MAX"fMAXyC$"CLOSE MAX"2440 "DEUTSCHES WORT:":D$(I)D$(I)D$(I)";" :"KONTROLLE:":*4L$(I)>D$(I)HA1100 R(163C$"READ MAX" MAX) C$"CLOSE MAX"> &A$"NEIN"10190H 02850R :II1X Dh NZMAX500Iy XZ15013530 bZ501Z1001650 l3620 vMAXMAX1 I1  "EINGABE DER ";MAX500I;".VOKABEL" L$(I)L$(I)"STOP"7R >SPACE< DRUECKEN!" @ "WOERTER STETS MIT ';' TRENNEN!"F r "LAT. & DTSCH. WORT MIT >CR< TRENNEN!" :"SYNONYME SIND VERSCHIEDENE VOKABELN!": "WEITER MIT >CR<":G$  A$"NEIN"570 A$"JA"2440 C$"OPEN MAX" ,990,1220,1920,2440,3100! ,110' 61 @::T J" REGELN ZUR EINGABE"w T" ==================" ^: h r"LEKTIONSAENDERUNG:>SPACE< BEI KONTROLLE!" | "LAT.WORT 'STOP' BEENDET DIE EINGABE!"  "ZUR KORREKTU 5 - PROGRAMMENDE" :" 6 - AUSDRUCK DER LISTE":: BEI BEDARF SPRUNGADRESSE VERFOLGEN UND FUER DRUCKER UMPROGRAMMIEREN!! "HAST DU DIESE DISKETTENSEITE SCHON EIN- MAL FUER DIESES PROGRAMM BENUTZT ? ";A$ "WAEHLE NUN!";:A A1A "A310 MENUE n x:: " MENUE DES LERNPROGRAMMS "^ " ========================="d " 1 - EINGABE VOKABELN" " 2 - SPEZIALLERNEN " " 3 - PLATO'S ABFRAGEN" " 4 - AUSWERTEGRAPHIK"  " ' LATEINLERNPROGRAMMAL$(500),D$(500),X(500,4),LOB$(12)M:::e2A112:LOB$(A):A<RICHTIG,SPITZE,GUT,KLASSE,BRAVO,SUPER,IRRE,GENAU,TOLL,STARK,KORREKT,WAHRFV$(1)"VOC1":V$(2)"VOC2":V$(3)"VOC3"PV$(0)"VOC0"ZC$(4) d               ŠŠŠӠ堍砨ŠΠΠǠ((W)(IW))W1$# V0V5003520J# L$(V)L$(V1)L$(V)L$(V1)3080T# 3510# 20:6:V". WORT MIT "W" . WORT TRANSPONIERT! "# W# 3520# :A1I#& A8(A8)03130#0 B015000::#: L$(A):D$(A):#D A:B05000::10033520" " "ICH ERZEUGE AUS DER VOKABEL- LISTE EINE ZUFALLSPERMUTA - TION. WILLST DU ALPHABETISCH SORTIEREN LASSEN, DANN DRUEK- KE >SPACEZ5&HG03RA1200A\GI2350TfS0:F0:K1IhpAX(K,1)2200rzSS1X(K,2)02200FF1KS02350ZZ1Z392350P(100FS)P8122802290R81P:(101MAX1MAX2MAX01960'28509E$"JA"2020NE$"NEIN"1930X2400^|1:12:"AUSWERTEGRAPHIK"1:1:"100%"A220 (A):2:101A;"%": 23:1:"LEKTION ^ AUSWERTUNG NACH BIECK/KIEL":*42:1 NKK1XKI18200bX(K,32J3)01870:l3910Dv1870S1930:100T515000::::8)"AUSWERTETEIL":8)"############":"LAT -->DEU AUSWERTUNG (JA/NEIN) ?":E$A131990A$"NEIN"ı"WELCHE DATEI BITTE? 0-1-2";MAXAN !":Y100:1750&Z$:Z$"E"149001420GA13000::A1YYK((1)I1)kPRO65İ18302:10:"NOCH ";YA1;" VON ";Y;" "3910A1610KK1:& UNTERROUTINE SCHOCK-ABSORBER0PRO70ı:K1KDK00Z"PRIMA GELERNT ! NUN NUR NOCH 10 KLEINE FRAGEN!":Y10:1750"ES MUESSEN ZUR WEITEREN UEBUNG NOCH 30 WEITERE VOKABELN ABGE- FRAGT WERDEN!":Y30:1750"ES GIBT VIEL ZU TUN - PACK'N WIR ES TPRO851700"^PRO5517103hPRO301720Wr"DU MUSST VIEL BESSER WERDEN!"{|"UEBE MIT FOLGENDEN VOKABELN!"Y12000::1930:1830:Y40:1750"AUSGEZEICHNET GELERNT - WEGEN HITZEFREI ERFOLGT PROGRAMMENDE."1930:244 "::Z$)D$(K);" ":1730Q:12:D$(K);" "::Z$kL$(K);" ":1730x:K1IX(K,1)NR15201090KK1I1830X(K,1)NR1580"3910,K6@::JPRO9316802<::)F" LEKTION LERNEN"CP" ##############"IZqd"WELCHE LEKTION WILLST DU UEBEN ?"ynNRx:"INTERNES-ABFRAGEN""ENDE MIT E >CR< "K((1)I1)X(K,1)NR1420:J4147012:L$(K);" 堍堨婠蠍젠렠쮺堪ӠԠӠ堪Ϡ򠠠   !!! ! ! ! ! !!!!!!!!1 /NFG1/XJ4ı$/bL(D$(K))+/lL1/v?/ML:4460/ ============= PLATO VOKABEL (C)-1984 BY ANDREAS BIECK AND A.U.G.E. ============= /bL(D$(K))/lL/v/ML:4460AH$.H$L$(K)4170".4280K. AUSWERTEUNTERPROGRAMM ZUM U. 63200S.M0e.L1(D$(K)).(D$(K),L,1)";"4460.(D$(K),M1,LM1)H$4480.&::LOB$((111(1))).0A134420.:X(K,J)X(K,J)1/DX(K,32J3)X(K,32J3)220-r(D$(K),1,(D$(K))1)1-|X(K,32J3)0E-X(K,J)X(K,J)1P-1052a-S315000:g-{-H$L$(K)4300-4390--"FALSCH-VIELLEICHT DENKE ICH AN EIN ANDERES LAT. WORT! VERSUCH ES NOCH EINMAL !".(K1)L$(K)4110 ,I$D$(K1)2,D$(K1)D$(K)E,D$(K)I$:4340Q,FG1ıj,L$(K)L$(K1)4170y,I$D$(K1),"D$(K1)D$(K),,D$(K)I$,64340,@FG1ı,J MIESER TEIL ,T:"RICHTIG LAUTET ES:",^J24210-hL$(K):4 ":W+ZFG1BSBS1L+dFG0:6:1:PRO100(BS1)VERS:PRO;" % "n+n8:1:MAX500K;" .VOKABEL:"y+x10:1+J23990+D$(K):4000+L$(K)+::H$+J44270+4340+FG1ı+ SYNONYM-TEST+K0KI4170,L$DIGE WIEDERHOLUNG #"9*" ###########################"E*S0:K0O*KK1b*X(K,J)03870l* 3910v*SS1*KI3830*(A133900*2S03820*<*FVERSVERS1+PW11700:W:W523:(W):1:" )LC$"DELETE";V$(MAX).)VC$"OPEN";V$(MAX)E)`C$"WRITE";V$(MAX)L)jIa)tA1I:L$(A):Ax)~A1500:D$(A):A)A1I:B04)X(A,B):B,A)C$"CLOSE";V$(MAX))))))" ###########################"*" # NOTWENLL!""( "FANGE DAS PROGRAMM SO"A( "MIT EINER NEUEN DISKET-"`( "TE NEU AN, ALS OB DU ES"y( "NIE BENUTZT HAST!"(:(A130000:(2440($ DATEI SAVEN(.:12:"PLATO SCHREIBT CA.30 KBYTE VOKABELN AB !"(8)BC$"OPEN";V$(MAX)K1)3440'f VL:WK:3510"'p K3'z H$"D"3470D' L$(L):3480O' D$(L)U' \' Lb' ' I$L$(W):J$D$(W):Q04:V(Q)X(W,Q):X(W,Q)X(V,Q):X(V,Q)V(Q):Q:L$(W)L$(V):D$(W)D$(V):L$(V)I$:D$(V)J$:' ' :::( "DIE DISKETTE IST VO# #"E& "##############################"K& c& H$: SPAACE-PSEUDOk& H$& H$"L"H$"D"ı& L1I1&* KL1I&4 H$"D"3410&> L$(L)L$(K)3440&H 3430&R D$(L)D$(K)3440 '\ L$(K)L$(K1)L$(K)L$(HAST DICH NUN #";% "# ZUM ALPHABETISCHEN #"a% "# SORTIEREN ENTSCHIEDEN.#"% "# #"% "# L = NACH LAT. VOKABELN#"% "# D = NACH DEU. VOKABELN#"% "# #"& "$N $X 1$b "##############################"W$l "# #"}$v "# S O R T I E R E N #"$ "# ================= #"$ "# #"$ "# #"% "# DU """ " " " " Ӡðò䠍ؠ®Ӡ򠍠ԮŠŠŠ͍Š蠨Ω蠍䬠򠍠蠡䠍讠ŬŮ堍젍堍젍砍堍堍򠍠䠿殠󠍠䠍堍詠󠍠堍頍蠭렠笠姠ŭ󠍠ҠҠ堍ή򠍍Π堍Р䬠󠲠堵򠍠ŠΠΠϠ̠젍嬠򠴠󍠠Ҡڠ箍캠庠ŠŠ庠宠占ŠΠ򭍠嬠󍠠獠䮠齽占㍠젠쮺堪ӠԠӠ堪Ԡ򠠠"""""""",Z):ZZ1:XX1:550.DWW%1WW%0:470ANNUM1(Q1)1uX ENDE DER SORTIERROUTINE UND BEGIN DER AUSGABEb15:1:CC1l RESULTAT STEHT IN B$(0,..) ODER IN B$(2,..)vB$(NUM,CC)CCCC1B$(NUM,CC)"^"Ā630 )"?":B$(1Q1,X)"^":X1:SW%0:Z0:510R A$(I)B$(1Q1,Z)ZZ1:WW%1:550[ 310e ZZ1s Q12Q2  DIES ZEILE KANN ENTFERNT WERDEN 1:10:Q; 310 &B$(1Q1,Z)"^"B$(1(Q1)1,X)"^":5800B$(1(Q1)1,X)B$(1Q1"?"SW%1ī4007 B$(1(Q1)1,X)B$(1Q1,Z):XX1R B$(1(Q1)1,X)A$(I)\ XX1x A$(I1)"^"ZZ1:550 B$(1Q1,Z)A$(I):SW%1 II1  DIESE ZEILE KANN ENTFERNT WERDEN 1:5:I;) B$(1Q1,Z)"^"QQ1:B$(1(Q1)1,0$(2,0)"?":B$(0,1)"^":B$(2,1)"^"V 6A$(I)B$(1Q1,Z)A$(I)B$(1Q1,Z1)ī380q @B$(1Q1,Z)"^"ī470 JSW%1B$(1Q1,Z)"?"SW%0:500 TB$(1Q1,Z)"?"ī360 ^B$(1(Q1)1,X)B$(1Q1,Z):XX1 hZZ1 r310 |B$(1Q1,Z)N DER KETTE MUSS IMMER EIN BUCHSTABE STEHENV (A$(CC))64(A$(CC))94ĺ(7);:230  DIE PRINT ANWEISUNG KANN ENTFERNT WERDEN A$(CC)"^"Ģ1:20:CC:CCCC1:230  EIGENTLICHER BEGINN DER SORTIRROUTINE "I1:Z0:Q1:X1" ,B$(0,0)"?":BENDE ELEMENTE X50) A$(X),B$(3,X)\ EINGABEROUTINE NUR ZU ANSCHAULICHEN ZWECKEN KANN NATURLICH VON JEDEM PROGRAMM UBERNOMMEN WERDEN :CC1 10:5:"BITTE MIT ^ ABSCHLIESSEN" 5:5:"WOERTER ";A$(CC)+ ALS ERSTES ZEICHEN I'd *******************************Mn * SCHNELLES SORTIER *sx * -PROGRAMM * * COPYRIGHT FERNAND SCHROELL * * M 3527 & A.U.G.E C84 * ******************************* X=ZAHL DER ZU SORTIR