+JJJJ ?> / X5 l>ҭōŠԠΠӍҠͭҭōΠĠΠΠǠǠǠPLEFT)#(IN$)0IN$"0"81009KOFFSET(IN$):DKIT1PIOITeI$(I)IN$8140rKI:IIT~:KK1'#:(# Initialisierung2#I7687689<#A:I,A:F# 1,0,4,0,40,54,63,36,4,0P#232,0:233,3Z#0:1d# 07070:7040?:B@ Naechster Instruktions-Index VJLINE$LINE$" "TPRIGHTPRIGHT1:PRIGHT(LINE$)K0:^(LINE$,PRIGHT,1)" "8020hPLEFTPRIGHTrPRIGHTPRIGHT1:(LINE$,PRIGHT,1)" "8050|IN$(LINE$,PLEFT,PRIGHTIP1:LLPITIS1n10621Dx Initialisiere Basic-Return-StackL25RW:zX Fuehre einen gelernten Befehl ausbNIPNIP1lKISNL2KKOFFSETvL1(NIP)K2IS:L2(NIP)0KL(L1(NIP),L2(NIP)):L2(NIP)L2(NIP)1K0NIPNIP1:7 卪ؠٍؠٍؠڍؠöؠ ƍЍŠРƍԠƍ؍ؠ؍ؠЍؠ؍ؠ̍ؠ̍ؠҍؠҍؠ؍ؠ؍ؠÍؠøÍؠôؠčؠҍؠÍؠؠؠЍؠøÍ ؠƴٍؠàōؠčؠ؍ؠƲ؍ؠэؠčؠؠԍؠЍؠЍؠٍؠٍؠٍؠ؍ؠؠӍؠ²؍ؠ؍ؠ²ŲЍؠɍؠÍؠɍؠؠøÍؠɍؠӍؠؠŸӍؠɍؠôؠ´ٍؠÍؠؠٍؠ´ٍؠӍؠŠ֍ؠٍȠؠؠؠؠؠؠؠؠƍ 卪ؠؠؠؠÍؠҠؠĸˍؠЍؠ̍ؠÍؠҍؠؠؠؠؠؠؠؠؠĠؠؠؠؠؠؠؠؠōؠōؠؠčؠؠؠÍؠؠؠÍؠčؠÍؠؠؠؠ̠ؠàؠؠÍؠؠčؠؠؠؠčؠؠčؠؠčؠؠčؠؠàؠؠؠōؠؠؠؠؠȍؠؠؠԲؠؠؠؠؠؠčؠؠؠؠؠؠčؠұؠؠĹؠؠĸؠؠҲؠؠÍؠؠÍؠؠؠؠؠƍؠؠؠؠƍؠؠؠؠƍؠؠؠؠƍؠؠؠؠƍؠؠؠؠƍؠؠؠؠƍؠؠؠؠƍؠؠؠؠƍؠؠؠؠƍؠؠؠؠƍؠؠؠؠƍؠؠƍؠؠƍؠؠؠؠƍؠؠƍؠؠƍؠؠؠؠƍؠčؠ؍Š؍ٍؠҠōРōˠؠ̲Ҡԍ؍Š̲Ӎ 荪 Ŷ РРʠԱؠƠұؠѠҵҲ̠ōàҳҲ؍Ҡԍұ؍ѠҳҠԍҳ؍ŠұӍҴٍɠҲҠōҵōРŸٍàҴҠҠʳ؍̠Ҡ̲٠ƍٍàЍؠ٠àٍٍ̬̍ÍҬٍčα٠Ͳ̠č̠Íٍ̍ŠͲàƍҠԍ؍ŠαҠˍ٠ƍ 占ѠР٠ 占РР 占ŠҠһح؍Š٠堻 ٠ŠРŠӠ à Р 𲍠ЍٍŠ𱍍ؠؠ٠Íؠ؍Ҡ߲؍؍̠𶍠ٍ̍Š𵍠àŠ𴍍Ҡҍؠ ح 퍍ҠŠ岍٠ 堻 ٭ Ҡ٭Ѝؠؠؠؠؠ̠߲؍؍àŠ𳍠ЍЍàŠ  I0I1 YF,I1 ********************k (DI)0BT(XF)((RI)(RI1)7(LE)(LE1)71) (DI)1BT(YF)((BO)(BO1)7(TP)(TP1)71) BT(BT(RD))(RF) BY1,(BT256) BY,BT(BT256)256 ,E LLEST, "Oberer Rand : ";I36 I(I):I191I0=@ TP,I]J "Unterer Rand : ";IuT I(I):I191I191^ BO,Ih "X-Faktor : ";Ir I(I):I31I1| I0I1 XF,I "Y-Faktor : ";I I(I):I31I1h$LRNFLG0r$ERRFLG0%|$EPS1643$PI(1)4A$PX0:PY0J$HC0T$DIR0f$MX279:MY159r$PLEFT0$PRIGHT0$A0:I0$G$(135)$ ': ' ':'"END OF TURTLE GRAPHIC"'LRNFLG0ERFLG5:6000 PK21LRNFL# TURNTO,PENUP,PENDOWN7# TEXT,GRAPH,LIST,FORGETP# PULL,DUP,SWAP,PICKd# +,-,*,/,STACK{# DO,LOOP,LEARN>,<$ BYE$L(NL,INS)$L1(NL),L2(NL)"$COUNT(NL),$K06$KBD49152@$CS147J$OFFSET215T$LLP1^$NIPLLP !' Programme, die mehr als 25 Diskettensektoren lang sindv!' und die HGR aufrufen, loeschen sich zum Teil selbst.00100: Hole Eingabezeile und arbeite sie abPRIGHT0":";LINE$#8000(K025 -KIT2ERFLG1:60nd die Eingabezeile und die daraus abgespaltenen Befehle> $D ':] ' Ende des Programmse ': '"END OF TURTLE GRAPHIC" ' ': ' HINWEIS: ' Wer dieses Programm mit allen REM's abtippt ' und es dann ausfuehrt wird sich wundern.;uer PENUP/PENDOWN9$DIR0: Richtung der Turtle in GradY$MX279:MY159: HGR Fenster$PLEFT0: Linker Zeiger der Eingabezeile$PRIGHT0: Rechter Zeiger der Eingabezeile$A0:I0: Allgemeine Variablen$G$(135): Bell8 $ LINE$,IN$ si0: Wird waehrend des Lernmodus auf 1 gesetzt]r$ERRFLG0: Fehlercode fuer Fehlerbehandlung|$EPS164: LRNFLG wird bei jedem DO um EPS erhoeht und bei jedem LOOP erniedrigt$PI(1)4$PX0:PY0: Plot-Koordinaten$HC0: Logische Variable f PEEK zur Tastaturabfrage8@$CS147: CS = ASC (CTRL-S)J$OFFSET215: K wird um OFFSET erhoeht um Zahlen als Instruktionen abzuspeichernT$LLP1: Zaehler fuer LEARN> und aktive Schleifen^$NIPLLP: Zaehler fuer geschachtelte Befehle-h$LRNFLG# DO,LOOP,LEARN>,<!$ BYEa$L(NL,INS): Matrix mit NL Befehlen zu je INS Instruktionen$L1(NL),L2(NL): Zeilen- und Spaltenindex der "L"-Matrix"$COUNT(NL): Zaehler fuer geschachtelte Schleifen,$K0: Instruktionsindex6$KBD49152:tandartbefehle7#ITIS: Anzahl der Befehle insgesamtd#I$(ISNL1): Feld mit den Befehlsnamenp#I0IS}#I$(I):# TURTLE,MOVE,TURN,MOVETO# TURNTO,PENUP,PENDOWN# TEXT,GRAPH,LIST,FORGET# PULL,DUP,SWAP,PICK# +,-,*,/,STACKFormtabelle fuer die Turtle<n#ST(100): 101 Stackelementex#SP1:ST0: Stapelzeiger (Stackpointer) und angefordertes Stackelement#NL20: Anzahl der zu lernenden Befehle#INS50: Anzahl der Instruktiuonen pro Befehl #IS24: Anzahl der S屍Ҡ㍠٠ƍҠҍ岠婬ٍٍ٠à岍ؠ峠Ҡ㍠٠婬ٍ占Ҡҍɠ崠占Š嵠 獍٠ 퍠堻 魍٠򫱍ƍҠҍ屠ٍٍ٠à򪪪ƠҠ 占ҠƍҠҠ占Ӎӱà ⍠ҠʧҠҠŠ䱍ٍ̠䱍Ӎ à⍠ҠҠҠӍ堻 ؠ 占嫱ٍŠ퍠Ѡ䍍 孍䱠Ҡ؍젻 Ҡ쫱ѠҠ Ҡ 荠󫱍ҠӍ ٍ؍占ӍҠ Ҡà í 뭍Ҡ  堻 Ԡ⠻ ɠ ꤷƍ٠ҠٍŠؠàؠ퍠ӠРӍ堻 魍؍àŠ벍ЍЍàŠ벰ЍٍŠ뱍ؠؠ볠٠ 봠Íؠ؍뵠Ҡ߲؍؍̠뵍ٍ̍Š봍àŠ볍ҠҍĠĠ占占٠٠占Š덠ؠѠ덠ƍ̍؍Š덠Ġ٠뱠ҍЍؠؠ벰ؠؠؠ베̠߲؍ɪҠ㍠٠占婬ٍ占٠Š ÍàѠ؍؍ƍҍ؍Š卍ҠҠҠ占ҠàŠРѠ؍àРؠ占ٍٍРŠР􍍪 򭍠ҠƍҠ占ҠàŠҠҠӱؠؠѠؠŠ Ӎ ⍠Ҡ 􍍠٠ ٠堻 占ҠàŠӍР 占ŠҠҠ占ҠàŠ ؠ ̠屠 占̠堻 占àѠ䍠Р퍠Ѡ岍àŠ岠̠占à٠ ٠占 Ҡ㍠婬٠ 占ؠ 屠ҠҠҠ占ҠàŠӍ 占 Ҡà 占ŠҠ 卍Ҡӱ ⍍ؠؠ 占ѠؠŠ렻 卍РѠàР 占Íà Р퍠àРȱҠƠ 卍Ҡ占 ⍠Ҡ٠ 䍠٠ ٭獍Ҡȱ堻 占 卍 Š占Ҡ堻  ѠР􍍪 䍠䫱Ӎ堻 Š߲占Š߲ō߲ՠ獍ՠð 쩍ՠññ כֿ ՠՠՠՠՠՠƠՠ ҠՠĠ àՠ  ՠ ՠ حՠà ٭獍ՠՠՠՠà ՠŠ ՠ ՠ ՠ ՠ ՠ ՠ Ҡՠ ՠ 뮩ՠ ՠ ՠŠ ՠ ՠƶ ՠ íŠǠð ح ح ح ح ح ح ح ՠà               RF,I' "Wiederholungsdistanz: ";I= I(I):I255I0G RD,Ig "Linker Rand : ";I} I(I):I279I0 LE1,(I7) LE,I(I7)7 "Rechter Rand : ";I I(I):I279I279 RI1,(I7)" RI,I(I7)7> Kein Rahmen": 2100*( FR,(C$)102 J< ********************PF eP "<1> Seite 1":zZ "<2> Seite 2":d 2100n PA,(C$)1x  ********************  "Wiederholungsfaktor : ";I I(I):I255I1 I0I1*** t ~ "<1> Positiv":3 "<2> Negativ":= 2100Q C$"2"ĹXO,255W p *******************v  "<1> Horizontal": "<2> Vertikal": 2100 DI,(C$)1  *******************  "<1> Rahmen": "<2,("L"):CO,("Y"):+CO,("Z"):9CO1,4:G CO1,5:U CO1,6:o ********************u$ . "<1> Single strike":8 "<2> Double strike":B "<3> Quadruple strike":L 2100V IM,(C$)1` j *****************y":,"<3> Double speed, dual density":K"<4> Quadruple density":e"<5> CRT graphics":"<6> Plotter graphics":"<7> CRT graphics II":CO,("*")2100(C$)2260,2270,2280,2290,2300,2310,2320CO,("K"): CORI,6RI1,39BO,191) XF,13YF,19 S*********************p4:"Welches Kommando: ";>C$:(C$" ")(C$(13))C$"1"H(C$)0C$"1"R\********************fp"<1> Normal density":z"<2> Dual densitNE ($1C0B)v:(22)4"Nochmal ? (j/n)";<A$j(A$"Y")(A$"y")(A$"J")(A$"j")1240(A$"N")(A$"n")19801920:********************CO,("K")BY,24:BY1,1:280 BITS PER HORIZONTAL LINERF,1GRAPHICS ONLYP1PA,1'A$-E16300,0:LOW PAGE_!16301,0:MIXED MODEi&1650016303,0:RESET TEXT:1470:TRY AGAIND16302,0: GRAPHICS ONLYNP0Ĺ16299,0X16297,0b16304,0 l:CALL MACHINE ROUTI(A$"j")1300)(A$"N")(A$"n")171031630?:(22){"Wollen Sie die andere Graphikseite":"sehen ? (j/n)";A$(A$"Y")(A$"y")(A$"J")(A$"j")1770(A$"N")(A$"n")1840171016299,0:HIGH PAGE 16302,0: ":(22)% ,"BLOAD";A$:LOW PAGE= 616300,0:LOW PAGEW @16301,0:MIXED MODEq J16297,0:HIRES MODE T16304,0:GRAPHICS MODE ^P0 hPA,0 r:(22) |"Ist dies das richtige Bild ? (j/n)"; A$ (A$"Y")(A$"y")(A$"J") x2340 2420 2490& 25600 2630: 2700D 1860P :(22) "Diskette mit Graphikfiles einschieben":"und Taste druecken"; A$   "CATALOG"  "Welche Graphik laden ? ";A$ A$""A$"PICTURE"  IXED MODE# (16297,0:HIRES MODE@ 216304,0:GRAPHICS MODEL <:(22)y AISTST29:I,0::CLEAR ALL PARAMETERS F2000:SET DEFAULT PARAMETERS P"Grundeinstellung ? (j/n)";:A$ Z(A$"Y")(A$"y")(A$"J")(A$"j")1860 d n215022::"GRAPHIK HARDCOPY FUER EPSON DRUCKER":E "BRUN PRINTHIRES"Q :(22){ "Graphik schon im Speicher ? (j/n)"; A$ (A$"N")(A$"n")1470 (A$"Y")(A$"y")(A$"J")(A$"j")1590 1250 16300,0:LOW PAGE 16301,0:M18:LEFT VRIST20:RIGHT. `TPST22:TOPC jBOST24:BOTTOMZ tXFST26:X FACTORq ~YFST28:Y FACTORy : "Bild speichern ? (j/n)";:A$ (A$"Y")(A$"y")(A$"J")(A$"j")1220  "BSAVE PICTURE,A$2000,L$2000"- :ST768:START4COST00:CONTROL CHARACTERSHBYST02:BYTESaIMST04:IMPRESSION|XOST06:EXCLUSIVE ORDIST08:DIRECTION$FRST10:FRAME.PAST12:PAGE8RFST14:REPEAT FACTORBRDST16:REPEAT DISTANCE LLEST     ԠӠӠԠſŠбάҡѠԠΡҠà͍͍Р͍Ӡв;ͬҠàԠ͠٠٠͍б٠ŠʠōР٠ŠԠԠōŠҠԠȍв٠Š͠Πō٠ҠàààԠҠŠӠĠǠԠ΍àԍ̠̠̍ȍÍ̍à̍؍ȍàȍàִؠ̍ȍàִٍ̍ŠֳֵǍؠǍ٠ǍӍԠƍ̍ȍ̍ŠֲȍŠֲ ΍̍ȍѠֲֵ̍̍ȍȍ٠Ӎֳ̠̠̍ȍ̠ؠȠؠ̠ؠȠؠ ԍ̠ؠȠؠ̠ؠȠؠǠؠǠؠǠؠֱǍؠǍ٠Ǎ        Šؠ ְРֱ Ҳijčؠųōؠųōؠ²Ƴ³ƍؠ²Ƴ³ƍ 卪 Š      Ƴ³ƍؠóÍؠóÍؠijčؠijčؠųōؠųōؠ²Ƴ³ƍؠ²Ƴ³ƍؠóÍؠóÍؠijčؠؠİİİİİİİİؠؠİİİİİİİİȠؠóÍؠóÍؠijčؠijčؠųōؠųōؠ²Ƴ³ƍؠ²ƳҠƠ ⍠ҠƍҠ􍍠Ӡ ÍԠƍ占嫱̠̍̍̍嫱̠̍嫱̍Ҡ占嫱Ġƍ占嫱Ӎà ҠӍ Ġð 堻 Ҡ 뭍Ҡ占崠Ġ嵠占占婬ٍ٠婬ٍ占ҠҍРŠ嶠占Š巍嶠Ġ巠占占婬ٍ؍ؠà峍  >cgo{scc>8x~>c0`c>cc>6f``~c>0`~ccc>c 000>ccc>ccc>>ccc? 8  0`0 ~~`0  0`>cc n333>00x;fff>n;300x>c8c>fffff;ff<~fc66cccc6 pf 3 8 8  8p6l6l6l |>ff;p00>3333n>c``c>>ffff;>c`c>300|000x;ff<`>c>p006;333s8<f<p0036<66s8<n33333>cccc>~333>000x|w~333><66s>cc0cc>ۙ<cccccccc>ff<<~fff<6cccccc~333>333~3a````3fcccccf314<413314<400x3```gc3cccccccc<<ff<fflxlffx0000013ccs{ogccc>ccccccc> *-START  OINT 2(VARPNT),YSPEICHERE POSITION IN 2. VARIABLE MISM *(VAR),YSPEICHERE NR. DER MISMATCHES (DATASPRINGE ZURUECK NACH APPELSOFT * * DATEN SPEICHER * LOBJ 1,0 LTAR 1,0 POINT 1,0 MISM 1,0 MAXM 1,0 ZEND N BYTE #LTARIST ES LETZTES TARGET BYTE? LOOP1NEIN, WEITER! HITGEFUNDEN! ERR MISM MAXM MISM LOOP2MAXM>=MISM, WEITER #NEXTMAXM < MISM, NICHT GEFUNDEN NOTFND #0 !POINTLOESCHE DIE PARAMETER MISM HIT #1 PA1+1  A1 #1 A1 A1+1 #0 A1+1 NEXT NXTA1ERHOEHE A1 "NOTFNDSUBSTRING NICHT GEFUNDEN POINT #0 MISM LOOP1 (A1),YHOLE OBJ BYTE $(A3),YVERGLEICHE MIT TARGET BYTE ERRNICHT IDENTISCH #LOOP2 GEHE ZUM NAECHSTET  LOBJIST OBJ. > TARGET ? LTAR OK NOTFNDTARGET > OBJECT &OK SETZE A2 AUF DIE LETZTE A1VERGLEICHSPOSITION A2 A1+1 #0 A2+1  A1 POINTSETZE A1 AUF DEN WERT A1VOR VERGLEICHSBEGINN A1+1 #0 UND SPEICHERE SIE #1 (VARPNT),YHOLE LO BYTE WERT !MAXMSPEICHERE MAX. FEHLERZAHL CHKCOMIST ES ","? (PTRGETHOLE ADRESSE DER 2. VARIABLEN #1 (VARPNT),YHOLE LO BYTE POS $SYNERRSTART BEI 0 NICHT MOEGLICH POS POINT POINŠҮҠӠРŠˠȠԠΠҍʠӠҠӠԠӠ͠Ӡ͠ӠĠՠԍĠͬԠ΍ĠԠŠŠҠ͍Ԡ٠ԍԩ٠ŠΠΠŠ͍ҩ٠PVR ^T 2U 2 dU/ T/ U', T', U&/- (T'/- (U/- (T/- (,,T _L9.n333>00x;fff>n;300x>c8c>fffff;ff<~fc66cccc6 pf 366|>ff;66>cccc>66fffff;>cccncccn6l6l6l |>ff;p00>3333n>c``c>>ffff;>c`c>300|000x;ff<`>c>p006;333s8<f<p0036<66s8<n33333>cccc>~333>000x|w~333><66s>cc0cc>ۙ<cccccccc>ff<<~fff<ccccc>66cccccc><~>c`>cc>c>6cccccc~333>333~3a````3fcccccf314<413314<400x3```gc3cccccccc<<ff<fflxlffx0000013ccs{ogccc>ccccccc>ōٲðč̠ٲԠðōűðōðà̍ðƠγРԍԠƍ؍ٲֲٱҠō  䍪Ų٠؍ٲֲٱҠōű٠؍ٲֲٱҠōٱԠðرزȲٍҠōű٠رزȲٍҠō  䍪Ų٠؍ٲֲٱҠōű٠ҠҍҠ̍ Ų٠؍ٍҠԍű٠؍ٍҠԍ  䍪Ų٠ ٲ ֲŠՠƸ  ðˍðӍð؍ðōðĠ̍ðŠγűҠҍŲ ź  ر ٭ ز Ȳ ٭ 򍪍ŠՠƸ ź  ح ٭ ٱ Һ  к ҠՠƸРՠƸ Ժ  ح ٭ ٭ 򍪍ԠՠƸ ̺  򍪍̠ՠƸ κ  ح ٭ ٭ 򍪍ΠՠƸ Ȳز ֲٲ 卪ȲՠàزֲՠĠٲ 󍪍Ҡՠ´ҭ䍪Ԡՠ³󍪍űՠðŲՠðǠ ŮӍ ծ ح卪 󩍪 ٭庍 ؍ ̍     ӫīٍӫīٍٍŠٱӍӫīٍӫīٍӫīٍӫīٍӫīٍӫīٍӫīٍӫīٍӫīٍӫīٍӫīٍPlkglipi egg 䆡 ?gNe i 桥 e ` L`Ɉ ɉ(ɍ3L}PVR ^T 2U 2L _QL JTU( 0 L TL PRIM.OBJ0 "BRUN PRIM.OBJ1 T 4650 GELSENKIRCHEN : " TEL: 02 09/812 914B :\ "RESET = NEU BOOTEN b " 0 = MONITOR AUFRUFEN " 1-9 = ANZAHL DER PROGRAMMLAEUFE * 256 " 1=256, 4=1024 DURCHLAEUFE 24 20 "BLOAD! 24*"ZEITMESSUNG: (1-9)";1(1821D<1011,0nd"PRIMZAHLEN VON 2 BIS 8191 BERECHNENtin" NACH DEM SIEB DES ERATOSTHENESs:x" VON NORBERT OVERMEYER}" STETTINER STR. 5 "    Ӡ٠ح٭箍٠ӠҍŠ٭箍РӠҍ 􍪍ҠԍРԍ 򍪍ҠҠ̍ԠűРԠƍ) ԠҠԍҠԠحح箍ؠōҠ͠፠ҠԠ٭ح箍ؠō ōҠàҲұ٠űӠӍҲ٠Ų ҠҍŲҠҍРԍ ԍ Ԡðōðà̍ðƠγðԍРԍ ج ٍ ح ٭ ٭ѠԍРˍѠԍРҍ ҍ  ҠðˍðӍð؍ðōðĠ̍ðŠγűŲՠð ԠàЍˍҍ˫ҍ˫Ӎ  Ҭ Ԭ ԍҠРˍѠҍРˍ 򭍪 ᬍ  Ԡՠ±ˠՠƵՠĹԠՠŶƸ؍͠ՠŠűՠðՠč 荪 卪 ح ԍ 򭍪  Ǡ ҮŮӍ ծ ˠՠˠՠˠՠč ٍŠՠōŠՠƍҠՠƸԠՠƸ̠     Y10Y1YEįX,Y1, 7Y20Y2YEįX,Y23 <X: ACB FX$K K:7L+ (21):(4)"BRUN AMPER.DOUBLE.LORES"\Amper.Double.Lores.Demo zeichnet eine Kugele:XE79:YE47:AXE2:BYE2:F17:F223C115:C:RCC#XARAR:X0XXE60(HRR(XA)(XA):H060-Y1B(H)F1:Y2B(H)F1 2  <<<6666666666~~~pv 0npppw  00000 0 0~<~ ~ 0`~ccc~``?ccc?ns```?`>~ffff;f<~fc66ccc3 `~ 0~6|>f;6>ccc>6ffff;>ccnccn6l6l6l |>f;``~ccc~>c``??ccc?>c`?30|000?ccc?>``~sccc8<f<``flxlf8<n3333>ccc>~cc~```~{~cc~lfc>c`>c>cccccc>ff<~ff<ccc>6cccc><~?`>cc>~6cccc~cc~cc~>c```c>xfcccfx``|````|```>c`gcc?cccccc<<c>cflx|fc``````cs{ogcc>ccccc>>go{sc>8<>c0`c>6f`~c>0`~cc>c >cc>cc>>cc?| `~~``>c66666666 ?l>~s|>{ppw  000 0 0~<~ ~ 0` ` 00 ~<<~~<~<1a`0>>>>>>>          X49152,0:80OFF& [49164,0:40COL< ^P(49236):PAGE1B aPSTORE_49165,0:80COLuP(49234):NOMIXP(49246):AN3P(49237):63538:CLRP2P(49236):63538:CLRP1"P(49152):P12834:P(49168): KEY%C1501:C (X0364# +P(49237):PAGE2/ .0,47XE 1P(49236):PAGE1S 40,47X1\ 7X,Cd :10p =X0:Y0 @P(49237):PAGE2 CX,Y FYY1 IP(49236):PAGE1 LX,Y OXX1:YY1 RY4864 UP(49152):P12885:P(49168):KEYC" "DOUBLE.LORES IN APPLESOFT"5 P(49232):GRK49153,0:80STORE_49165,0:80COLuP(49234):NOMIXP(49246):AN3P(49237):63538:CLRP2P(49236):63538:CLRP1"P(49152):P12834:P(49168): KEY%C1501:C  >cgo{scc>8x~>c0`c>cc>6f``~c>0`~ccc>c 000>ccc>ccc>>ccc? 8  0`0 ~~`0  0`>cc <<<6666666666~~~pv 0npppw  00000 0 0~<~ ~ 0`~ccc~``?ccc?ns```?`>~ffff;f<~fc66ccc3 `~ 0~ 8 8  8p6l6l6l |>f;``~ccc~>c``??ccc?>c`?30|000?ccc?>``~sccc8<f<``flxlf8<n3333>ccc>~cc~```~{~cc~lfc>c`>c>cccccc>ff<~ff<c```c>xfcccfx``|````|```>c`gcc?cccccc<<c>cflx|fc``````cs{ogcc>ccccc>>go{sc>8<>c0`c>6f`~c>0`~cc>c >cc>cc>>cc?| `~~``>c66666666 ?l>~s|>{ppw  000 0 0~<~ ~ 0` ` 00 ~<<~~<~<1a`0>>>>>>>         $:Page1=rechter Punkt;"unten"X :(4)"PR#3":(4)"PR#3":Softswitches normalisieren Y P(49232):GR* 49153,0:80STORE> 49165,0:80COLT P(49234):NOMIXhP(49246):AN3P(49237):63538:Clear Page2P(49236):63538:Clear Page1P(49237):1024,15:X$:Page2=linker Punkt;"oben" P(49236):1024,15:X   T  :KK1 '#:(#*2#I76876898<#A:I,A:VF# 1,0,4,0,40,54,63,36,4,0hP#232,0:233,3rZ#0:1n#ST(100)x#SP1:ST0#NL20#INS50#IS24#ITIS#I$(ISNL1)#I0IS#I$(I):# TURTLE,MOVE,TURN,MOVETONE$)K0:*^(LINE$,PRIGHT,1)" "8020;hPLEFTPRIGHTlrPRIGHTPRIGHT1:(LINE$,PRIGHT,1)" "8050|IN$(LINE$,PLEFT,PRIGHTPLEFT)(IN$)0IN$"0"8100KOFFSET(IN$):KIT1IOITI$(I)IN$8140KI:IIT1n1062125W:"X0bNIPNIP1JlKISNL2KKOFFSETgvL1(NIP)K2IS:L2(NIP)0KL(L1(NIP),L2(NIP)):L2(NIP)L2(NIP)1K0NIPNIP1:707070:7040?:@JLINE$LINE$" " TPRIGHTPRIGHT1:PRIGHT(LI6200"STACK EMPTY":62005"STACK FULL":6200S"DIVISION BY ZERO":6200k"MISSING DO":6200"MISSING LOOP":6200"OUT OF MEMORY":6200"TO MANY INSTRUCTIONS":6200"CAN'T FORGET"8ERFLG0:LRNFLG0dNIP1:LLPITIS LRNFLG06200' LRNFLGLRNFLG1C LRNFLG0ERFLG5:6000_ LRNFLG0ERFLG6:6000k ITIT1 L(LLP,L2(LLP))0 :pz49168,0G$;ERFLG6060,6070,6080,6090,6100,6110,6120,6130,61406200"SYNTAX ERROR":2560 KISLLP2:7000; COUNT(LLP)COUNT(LLP)1:2530I LLPLLP1O U :[ o LRNFLG03040y 8000 KIT23050 ERFLG1:6000 LRNFLG1 ITISNLERFLG7:6000 I$(IT1)IN$ LLPLLP1:L2(LLP)0  : ;" ";(93)*(I1)22((I1)22)1950EA$:(A$)CS128ISPO1910U[:awLRNFLGLRNFLGEPSLLPLLP1LLPNLERFLG7:6000L2(LLP)0 :  L(LLP,L2(LLP))0 1000:COUNT(LLP)ST COUNT(LLP)01"ST(SP)ST(I),?:%@/J1000MTK151630,1640,1650,1660d^ST(SP)ST(SP)ST:{hST(SP)ST(SP)ST:rST(SP)ST(SP)ST:|ST0ERFLG4:6000ST(SP)ST(SP)ST::lqI1vII1:ISP1960 (91);" ";ST(I): SPSP1&SP1SP1,2:8GSP01010[(KST(SP)OFFSETe21110kw:qx~AST(SP)ST(SP)ST(SP1)ST(SP1)A:1000ISPST1SP01010ISP1580I0I0SPSP  LRNFLG0940" 8000: KIS1KIT1950L ERFLG9:6000W ITK2g LLPITIS1m s :y  SP0ERFLG2:6000 STST(SP) SPSP1  K: L VSP100ERFLG3:6000 `SPSP1 jST(SP)KOFFSET t  HC1  :! + ::K 13);"TURTLE GRAPHIK";13)W :34,1] c :i w 16304,0}  21  :  *I0IT 4"- ";I$(I) >(I1)22((I1)22)850 HA$:(A$)CS128IIT R \ :HC255 PX,PY 150% +:+ ,5 61000D @DIRDIRSTe JDIR360(DIR360(DIR360))k Tq :w  1000 AST 1000 150 PYA:PXST 225 :  1000 DIRST 330 W: X bHC0 l : n::21% xDIR0:PXMX2:PYMY21 HC1:37 := J 1PX,PYW HC190b PX,PYh n :t ~ 1000 150 PXPX(DIR180PI)ST PYPY(DIR180PI)ST PXMXPXMX PX0PX0 PYMYPYMY PY0PY0 GLRNFLGEPSD RL(LLP,L2(LLP))K:L2(LLP)L2(LLP)1:L2(LLP)INS86V TERFLG8:6000\ Vp XKISNL21100 ZK100,200,300,400,500,600,650,700,750,800,900,1200,1300,1400,1500,1600,1600,1600,1600,1900,2000,2500,3000,3500,9996 \7000 c: d 4163 9000 100&:3PRIGHT0B":";LINE$L#8000X(K025r-KIT2ERFLG1:6000z270735<:FH(KBD)CS6000JK22LRNFLGLRNFLGEPSLLRNFLG0K2488NLRNFLG0ERFLG5:6000 PK21LRNFL     SYNTAX ERROR":6200,"STACK EMPTY":6200D"STACK FULL":6200b"DIVISION BY ZERO":6200z"MISSING DO":6200"MISSING LOOP":6200"OUT OF MEMORY":6200"TO MANY INSTRUCTIONS":6200"CAN'T FORGET"8ERFLG0:LRNFLG0dN LRNFLG0ERFLG5:60007 LRNFLG0ERFLG6:6000C ITIT1X L(LLP,L2(LLP))0^ d:p Fehlerbehandlungsroutinez49168,0 TastaturruecksetzimpulsG$;ERFLG6060,6070,6080,6090,6100,6110,6120,6130,61406200"LP1   : LEARN0 LRNFLG03040: 8000K KIT23050] ERFLG1:6000j LRNFLG1 ITISNLERFLG7:6000 I$(IT1)IN$ LLPLLP1:L2(LLP)0  : "<" Ende des Lernmodus LRNFLG06200 LRNFLGLRNFLG1enstartLRNFLGLRNFLGEPS+LLPLLP1ELLPNLERFLG7:6000SL2(LLP)0Y_ :z Schleifenende (LOOP) L(LLP,L2(LLP))0 1000:COUNT(LLP)ST COUNT(LLP)02560 KISLLP2:7000 COUNT(LLP)COUNT(LLP)1:2530 LLPL(SP)ST: rST(SP)ST(SP)ST:8|ST0ERFLG4:6000OST(SP)ST(SP)ST:U:al STACKjqI1vII1:ISP1960(91);" ";ST(I);" ";(93)(I1)22((I1)22)1950A$:(A$)CS128ISP1910: DO-Schleif PICK holt das von oben indizierte Stackelement=1000KISPST1ZSP01010iISP1580vI0I0SPSP1"ST(SP)ST(I),?:@ STACK + - * /J1000TK151630,1640,1650,1660^ST(SP)ST(SP)ST: hST(SP)ST: PULL holt ein "Dummy"*SPSP1;SP1SP1AG:X DUPlizieregSP01010{(KST(SP)OFFSET21110w:x SWAP vertauscht die oberen beiden StackelementeAST(SP)ST(SP)ST(SP1)ST(SP1)A:3KIS1KIT1950$ERFLG9:6000/ITK2?LLPITIS1EK:a Hole vom StackySP0ERFLG2:6000STST(SP)SPSP1K:L Schiebe auf den StackVSP100ERFLG3:6000`SPSP1jST(SP)KOFFSETtC16304,0: HGR Schalter; andere Schalter durch TURTLE gesetztIQ 21W]:h  LISTt*I0IT4"- ";I$(I)>(I1)22((I1)22)850HA$:(A$)CS128IITR\: FORGETLRNFLG09408000:PXST 225 :"  TURNTO, 10007 DIRST@ 330F W:R X PENUP[ bHC0a lg :u  PENDOWN~ HC1  :  TEXT :: 13);"TURTLE GRAPHIK";13) :34,1: Textfenster: WINDOWTOP = 1  : GRAPHPYMYPYMY PY0PY0( HC2554 PX,PY= 150C +:N , TURNX 61000g @DIRDIRST JDIR360(DIR360(DIR360)) T :  MOVETO 1000 AST 1000 150: Kein XDRAW der Turtle vor Pruefung des Stacks PYA d TURTLE n::212 xDIR0:PXMX2:PYMY2> HC1:3D :V DRAW TURTLEc 1PX,PYp HC190{ PX,PY : MOVE 1000 150 PXPX(DIR180PI)ST PYPY(DIR180PI)ST PXMXPXMX PX0PX0 LP)1:L2(LLP)INS86( TERFLG8:6000. VB XKISNL21100 ZK100,200,300,400,500,600,650,700,750,800,900,1200,1300,1400,1500,1600,1600,1600,1600,1900,2000,2500,3000,3500,9996 \7000: K > IS + 1 -> Ausfuehren eines gelernten Befehls c:00 270 735 <:( F Verteiler< H(KBD)CS6000g JK22LRNFLGLRNFLGEPS: IN$ = "LOOP" LLRNFLG0K2488: Direkt Modus oder IN$ = "<" NLRNFLG0ERFLG5:6000 PK21LRNFLGLRNFLGEPS: IN$="DO" RL(LLP,L2(LLP))K:L2(LLP)L2(Lw ********************4 TURTLE GRAPHIKO ********************Ua4163r Hinter HGR| 9000100: Hole Eingabezeile und arbeite sie abPRIGHT0":";LINE$#8000(K025 -KIT2ERFLG1:60          z#?????ήҠ  ͮʰ ͮʱ ͮԠ ͮԮŠ Š"@ǮŠ  ȭ! ήӮӠ" ɭ ͮȠ  ͮȠ  ʭ   ҮŮӠԮҮŮӠ ҮҠ ǭǮԠ Ǯʠ ԮǮʠ ӠԮӠ( Ӡ ҠԠ ƭ ҮԮϠ ҮŮӮӠ ŮӮԮϠ ҮŮӮϠ ԮҮŮӠ ҮŮӠԮŮӠ ŮӠŭ Ԯ̮ͮŲ ̮ͮŲ!í"ŠˠԠӠŠˠŠӠĭ ŮӮȮϠ Ԯ̮Ԡ̮Ԡ̮îҠԮ̮îŠ̮îŠԮ̮ͮű ̮ͮűҠԠԮҮðҮð­Ԯ̮Ԡ̮ԠlOO : (I  Pޠil>yKX*e7 rDQ#^0Ј`x x` M( vM( v!M0 !-!!!'!@M@ !-!!!`H)JJh & & f) ` x2 x x x`%J.!#$$!#!J)#>#()(ܮ!" -!J(#>#(((ܮ&$~*$M) x   L`!HH!,0hh!` x x x x x x'` x`H x3 xh x` x x ` xJ &$~*$M x" %`%%Lȩ%L   '`   '` "&   ' `  `   '&&L"аL  v"!8J-!! `  @   Lv  & ^&&L< i L   ' J  J   '`%" $#$ v%J.!#$$!#!J)#>#()(ܮ    CA :"DR. ALFRED HUETHIG VERLAG":"HEIDELBERG POSTF. 102869"Dn dP3:N2nX40988192)xZ(X)3PP1DZ1ĺ(7):NPP1`Z1ĺP:NN1fmNN CA :"DR. ALFRED HUETHIG VERLAG":"HEIDELBERG POSTF. 102869"  ѠسرҍàسҍزҍٍŠزٍسٍŠرՠӠؠƠ򍪍 Ŷ РҠӱРٍҠōؠΠàӱҍӠ΍ĠӱҠ؍Ա؍ҠβŠԍΠ٠àƸԠؠƸԲ؍ōĠƍҠձѠՍĠƍ؍٠ؠ ¸Í Ƹ  䍪 򭍪 βàڍҍҍҍҍڠĠƍӍӱؠ٠ҠزҠˍةٍҍʠàƹʲƍʳ٠؍̠ʴٍʴààӲٍӲӍ ͭ Ƹ 荪 ¬ ٬ 㲠ЍؠԍؠàؠڍؠڍؠĠؠŠЍؠƠÍؠ í   ƹ ؠIJؠƲؠͲؠؠؠÍؠؠčؠԍؠÍؠԍؠҍؠٍؠڍؠ ÍؠڍؠٍؠӍճ²؍٠Ӎ±ؠؠؠؠÍؠؠؠؠÍؠؠؠؠؠؠؠÍؠؠؠÍؠōؠ² زՠĹŠՠԠՠč ƸǠƸձؠղР±؍Ѡճ؍̠ղ 獪 ð򬍪 ԍ  Ƹ 򭍪 ծ 捪 ɼ 獪 ү 卪ðÍðÍŶӠ􍪍 ðIJ ƸձIJձIJ٠ųıٍIJٍàıŠŴàıŴàIJŠŵàIJŵIJРԍàųIJРԍàųıԍıŲı٠͍ı٠ÍٍŠŲàıŠŲƍ Ƹ 퍪  ı ōŶıŶı ƍԠՠİԠՠıՠàčIJՠŠƍ 獪 ͬ Íűð͍ð͍ İ Í Ƹ͍٠٠Ǡ ðҍ İƍ           ٍӫīٍӫīٍӫīٍӫīٍӫīٍӫīٍӫīٍӫīٍӫīٍӫīٍӫīٍӫīٍӫīٍӫīٍӫīٍӫīٍӫīٍӫīٍӫīٍӫīٍӫīٍӫīٍӫīѠŭРӠō占ҫРҠàҍŠЍàҫŠЍѠō卻٠٠Ӎٱīٍӫīٍӫīٍ􍻍ǠؠŭԫԠԭ؍­؍؍Šԍ퍠ؠҍŠҠƳ̍ҠİÍٍҠ°č͠àà̴Ġ؍ؠīōà̳ؠԫĠàͫͫà̠ͫàԫà̲؍ؠīōà̱ŠӍҠٍؠčҫ̱ؠԫ̲ԫԠҠčàčÍàͫӠč̳ؠȫ̴ȫȠٲÍҫҠ٠č؍ؠͰͰàȰȰ٠čРӍàͰ؍؍̠àҫҫؠàҍؠͫӠՠҠՠǠԠč󠲱٠ӫ԰ĬٍٍŠ԰ؠ󍻍򍻠򮠠 ՠ䠳ĠՠŠՠ  R i$$)|mi)S4i#bZH&bTDThDĴt(ntJrtttrDh2r"r&&rr&HDDttv4:?D8/;e:`JJJJ)`:; H:Jj )JV y.)/ *) JJJ Ȉ` H:  J/Ȑh,--&,*i H/.  `0 .: mȘ L `Lj"3bs"3fw 3`p"9f} "3˦s"3˦"3`p"3`p$1ex!YMJIZؤ#]#)i#$S#$S[[`dЅN`*@䭃`<`S`24:?D8/;e:`JJJJ)`:; H:Jj )JV y.)/ *) JJJ Ȉ` H:    T(Q*U *}?wn]*@*]{w/Ut |~EU*U*U*uno]{*UDh(U+U *Uj]{wn]*UP*U(@(Q DQ*U*Tj};o_;Aj}oU@U*U*U*unn/uj_w*U*(U+U  U*U;wo]+*D@ @U*U*U"DQ*?(}/Upz "D(U*uno}o]?w.Tj#U*U*Uj];wow/T*U*E@D(U*EQ"hwo_+@(}/U@/}?WU*U*U*un_;.@j]+UQ*U.];wn_+U"U*U*@"U+*U*U*U*w+U*EU~~@*u~"U**U*wU*"}{.U @hw.U*U"E*U*u?U*U*@z/U*U*U*un}+U*UU~Q*U*"U*w~;U*];w.U H.U*U*U *U*U*U;~;U*U@"U+"T*U*U*u_"]*u/*}"UD*U*un]{w~u_;W*EDjw.U*"D(U*}?U"D*U*U@"u*_jU*U*U*w/U/EQjT*D(*U*wn}W"*UnU{w*E@jw.U*U"DU*Uz+U*U*U*@"T*U*D*U*U*U*U "D*E(*}wkz+U*W*U:w_*U*u ]w.U*"D*un.U* D*U*U*U"@T*U*U U*U*un_+UDQz*}"DQ*U*w*U:w_?U*}  TzW*U*"D*Uj}_*U*Q"@(U*U*@ >Ux>U*U*U*w @PjU*U*"U*~?"D(u Qj};w*U @D"U U*U*U*E U*U*U*}*}jWW.U*U*U*w_@*}U*U*"U*w~W*U"U+U*};U*E@   YTE)7.5)  Seite w{hlen E P(PE): obere Seite einschaltenp PGP(PA): untere Seite einschaltenv Ce einschalten, 4P(TE): Text einschaltenS >P(AE): Double Hires ausschalteni HCA,0: 40-Column RSA,0: 40-Store \ f z X-KOORDINATE BRECHNEN UND AUF RICHTIGE SEITE SCHALTEN UI7:BYTE(U):ZBYTE2:PGZ(Z):XX(((Z)UBage 1 (obere Seite): 0,95279,95: X-Achse obere SeiteO  Sinus zeichnen] PI4(1)l S2PI559| XX02PIS bI(X559(2PI)) g900 lY(96(X)95) vXX,Y X A$  Double Hires abschalten *P(PA): untere Seit 8SE,0: 80-Store ein3 :CE,0: 80-Column einX <P(PE): Page 2 (obere Seite)z ^62450: untere Seite l|schen hP(AA): AN 3 aus (Double Hires)  Koordinatenszstem Zeichnen 3 0,95279,95: X-Achse untere Seite P(PA): P49234: MIXED AUS, SE49153: 80STORE EING SA49152: 80STORE AUSb PE49237: PAGE2 EIN { PA49236: PAGE2 AUS AE49247: AN3 EIN AA49246: AN3 AUS , Double Hires initialisieren 1: untere Seite l|schen 6P(MA): Mixed ausw#d Double-Hires-Applesoft-DemoKn(21): 80-Zeichenkarte abstellendxCE49165: 80COL EIN}CA49164: 80COL AUSHE49239: HIRES EINHA49238: HIRES AUSTE49233: TEXT EINTA49232: TEXT AUSME49235: MIXED EIN MA      " D*U:w* U~*U~]{W. U*];W T*U*U*U*WnU{T*U*U*D+"*Un}]*@ U.Q T*U?wU"U(_U*U*U+w.@*U{w U*U*U*U+w/U(U*@+" T*U{_*U@("D(U"(U;w~];u**un}+UUku D*U*T*U;w_*un_+U*: U+U"(U*ujU+W*@"@"T"D*U*U@P*un]{W.*Uz+U D*U*U*U*wo_;w*U*w]*U T+"Q*Un}{W*@ T*Q"u?w/*w;U(_"D"T*U:w;wo];W.]+P*w "T*U*u*U;UT?P*U*@"D@u{~]+W**u~}+Ua.QD *T*U:}Wn]+*u+U"D*U*Uj];W*T Q*U@(U](U*U*U*U{/U("U{oU+Wn] *Uz(U*@(U*];~?un}+U*b]+U*U"D U*U;?/U*U"@~~/U*U*U*Uo{+UTzU*U*@U*U;W*U?W(un]+U`]*U*U*"D*U*U*U;W*U*`U*DU*U*U*U{_ u*}?D*u_Uz@(U*]:uj}{wU*UjWj] jU*U*D"D*u~U"DQ*U @(uj_:U*U*U*}?U*uD*{_*]"D(U*];~_**U*Un_*jU*U*E"D Uj}+U(U*E@P*U P*D*U*U*U" U_*un*Uz+U*U*Uj]*U*}U~]*U*D"U:]**D*U*U*U@U*U"U*U*U{/UD*_*}o@(U*U*Uj]{WnU QPjU*U*D"U*w_ "D U*U*@ T*"E*U*U*U*U*U*U~ uo U~?U*U*U*]{@*U*U*Q*U;?"D~*D*wnU*U@""E*U*U*"D*U*U*Q_*unA*_~/U*U*U*U_(wU*U*Q*U;_ @Q*U*w*U*@@*W:PDU*u? *UnU*U*U*"u~@U*U*];wn?W@*U*U @+U*P*Uj_;W*U"D@|~G"DQ*u;Uz]U unD(U*U*];w.U*?W @*U*U @+U D*U*U*U*P*"DQ*un]+(zT*];w_+(U{wUU*U*U*Uj]?w~_"U*Uz*U*P+UT*]{W "@@(Q*T D(U*uW*U~Tj];un+P*w@U*U*U:wn] "U(U*EP+U (U:w.@Y10Y1YEįX,Y1+ Y20Y2YEįX,Y2F X:X$:24579: UNHOOKXGd:(21):80-Z-OFF<n(4)"BLOAD AMPER.DOUBLE.HIRES"Mx24576:HOOK_24582:CLEARf3XE559:YE191:AXE2:BYE2:R95:F145:F245: PARABELNXARAR:X0XXE200HRR(XA)(XA):H0200Y1B(H)F1:Y2B(H)F1   ð 䮍ؠԱҠԲ؍ŠԱӍԲؠōؠ٠Գұ򱍠؍ŠԳҲ򲍠ٍŠԳؠōӍŠؠԠƍ Ҳ ðƍ 卪 獪  荪Ǡ ̮ԍ ұՠðҲՠƍ ұ 荪 ð  卪  ұ Ҳ ð   ("T*U*U*"@(U*U*_ unxu>_+U*U*U*U{W@(}U*U"Q*U{UDh.U*W.U*@P"T "D*U*U*"D"D(j_*unq?_n}*U*U*U*]WjU*(uU*U"*U{_+Q"*U*U*U @`}?"@U*U~_*@(U:uU*U* U~}@ U*U*U;wn]{W @*U*U @+U *U*U*U*U*@|n~G"DU*U~o_?w~}{/Tn!T Q*U*U;W*}W*@*U*U@+U Q*U*"@@("T "@U*un;E}D*];w~}+U*w~](U*U*U*Un]{wT*U*U*P+U @*U:w*@@*U*T@U*u~ UT Uj]*Un}+*u~(U*U*U*wn}?U (U*UP+U U*u~w*U"@*DU*U* uj]?wn]+@j_/UDu@U*U*U*un]W*]{w*U*E(U+U "U*U;wn]*D"U@  DU*UjU@@j]?~]+@*U{/]U*U*U*U.]wn]*u.Uw*U*U+U  T*U?_+E D@@(U*UT~}+(]/Up(]?UQ"E(U*Unw];w*Tj}+U Q*Uj];w~]T? T*U*U@@*U*ETwn]+Aj]w.Uy.]>EQ*E*U*Un]{*Q@*]+U P*U*];w~]+T"U*U@`*U*U*U*w~?U*U+w?W*U*U"(U~*U**U*w~U U;.U hw.U*U*D(Q*U*Uj}o?U*U  E@~_?/U*U*U*u~+"Q~U*U "T*w~W Q*}o] *];.U Hu.U*U*U(Q"U*U*U*un]*U*E @ U+U*U*U*U*u*U?Q*}"U;@*U*uo];U@:_{W*D@jw*U*"D(Q*UW "T*U*E@"u+*U*U*U*wU:U~EQj@*u D**U:wn}U*Q*T;.U hw*U*"DQ*U*;U*U*"@ T*U*T*Q*U*U*U*@(DQ*}{nW~*U*u*U:_;Uj Uu*U*"D*UjW*U*(U*U*@ U*"T(U*U*w~?D`j}*} @*U*wj]:W~_?W*D Tzu.U*"D(Uj*E"(U*U @ U*E*U*U*U*U*"U*Uj"u{ T{?U*U*U*w_ *}U*U "T*wU"Dz+Uj_;W*U@ @ "T(Q*U*U*U(Q"U*U*Tz"}{q]/U*U*U*w_*>*}u*U "T*u~w*U "D:U*U+U*@@*>D*U{wWD*U?U*U*U*(U:" U*U*Un];wn]]*U*@+U"(U*W*U*U @};\ D*U{_?w*U:o}?U:w"T*U*U*U*Uz~U*P*U*U@+U""T*U*U@8"&*.26:>#'+/37;?#'+/37;? @ @LKbHbIbJbFbGbBb CbDbEb6@bDbAbEbDb.Eb.Fb.Gb8FbBbGbCb FbGbDbحHbIbJb`((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,04`L `L.`L>`Lb`RWP ^`VQT `Ω ϠUέTϥ@` F `P `Q ` ``ιnaϭ `@b `Ab =bFb.bW T*U*U*U*wn}T*U"U*@+U"U*]]+@"E*D*Uzw+DU:U*U:u*(U: T*U*U*]:/U*U*@+U"@*U:oU*U @ @"T*U*U:wn];w**w?U@"D D*Q"U*U:w{}?w/U*w~U*U : U+U*U*U*U*@D*U*u D*u*U:W* U*];U T*U*U*U*wnU;W*U*U~]*U T+Q*Un}.@ T z];w**w~_+UX#} D"D*U:?wo];W*U**u D*U*U.];W @*Q*U @"D@j;wo];U**un]+UP+n D*"E*U:+un_+D *u+U@(U*un];W* TQ*D@`(U*U*U*UW*uj.U*U"T U:A*U*U*U;w?(U.]+U*`]*U*U "DQ*U*un];w*U*"@xU/U*U*U*U{*D*U*U"U*U{w *?w@*U.]*U`U*U*U "D"D U*U*U*U @ u*]*U*U*U*]+U~?@*w_Q*]D(U*U+wnE*U{Wn]*jU+U*D"D(Unw*U*U@ U*_*U*U*U*]W*U*Tzw_{_*UzQ*D(U*]+woU*Dun_*U"h]*U*E DQ*]{/U*U*D@T*U "D*U*U*W*DTz_*o`WzG*U*U*U*]wW.U*U~U*U*"U*w_U*"D U*U*@U*"T*U*U;UU"E(w_(U(U*U*Uj];UWnU jU*U*E"T*w+ U*@): untere Seite einschalten"E HCA,0: 40-Column, RSA,0: 40-Store 2 \8 fv z X-KOORDINATE BRECHNEN UND AUF RICHTIGE SEITE SCHALTEN UI7:BYTE(U):ZBYTE2:PGZ(Z):XX(((Z)UBYTE)7.5)  Seite w{hlen P(PE): obere Seite einschaltenPGP(PA &IX1:900 0XX,Y1+ :X1X2ĭY1Y2ıO DSUM0Y1Y1YS:SUMSUMXD:550l NX1X1XS:SUMSUMYD:550  Double Hires abschalten %A$ *P(PA): untere Seite einschalten 4P(TE): Text einschalten >P(AE): Double Hires ausschalten0:Y2150 5000 X1200:Y1150:X2100:Y2Y19 500W X1100:Y1150:X2X1:Y250` 500 X1100:Y150:X2200:Y2150 500 805 XDX2X1:YDY2Y1 XS1:YS1 XD0XS1:XD(XD) YD0YS1:YD(YD) SUM0:XD0SUM1 Mixed aus" 8SE,0: 80-Store ein< :CE,0: 80-Column eina <P(PE): Page 2 (obere Seite) ^62450: untere Seite l|schen hP(AA): AN 3 aus (Double Hires)  Lineplotter 3 X1100:Y150:X2200:Y250 500 X1200:Y150:X220N MA49234: MIXED AUS5 SE49153: 80STORE EINP SA49152: 80STORE AUSk PE49237: PAGE2 EIN PA49236: PAGE2 AUS AE49247: AN3 EIN AA49246: AN3 AUS , Double Hires initialisieren 1: untere Seite l|schen 6P(MA): #,d Double-Hires-Lineplotter Tn(21): 80-Zeichenkarte abstellenmxCE49165: 80COL EINCA49164: 80COL AUSHE49239: HIRES EINHA49238: HIRES AUSTE49233: TEXT EINTA49232: TEXT AUS ME49235: MIXED EI    (ЅLb>Ux>U*U*U*w @PjU*U*"U*~?"D(u Qj};w*U @D"U U*U*U*E U*U*U*}*}jWW.U*U*U*w_@*}U*U*"U*w~W*U"U+U*};U*E@@z?"D*U?wow*:Uj}?U(U:" T*U*U*U*Uj]wnU*U*@+U"*U*U*U@\u?"@"D*U:w_;wn]?uj]+P*"D*U*U.U*h]*P*U*@  2 w! (4)"BLOAD ACCEL.LC.KOPIE";X(49281):X(49281)N"LC-FILE:";X$l((4)"BLOAD";X$;",A$D000"u2768d  "" B%;"TEN POSITION GEFUNDEN"D "MIT MAXIMAL ";A%;" FEHLERN"J AL(4);"BRUN INSTRING.OBJ"':Q "GEBEN SIE DEN OBJEKTSTRING EIN ";A${ :"GEBEN SIE DEN SUCHSTRING EIN ";B$ :"AB DER WIEVIELTEN STELLE ";B%:"MIT MAX. WIEVIELEN FEHLERN ";A%:(A$,B$,A%,B%) "DER SUCHSTRING WURDE AN DERвàıàIJıРҳŠв ͢ 鍪 ̺̍ð˲ð˲ӍԠƍIJ ͢ 卪 ̍ð˲ð˲ İƬ ͢ ٠вıٍIJٍٍŠIJıŠбð˲ð˲  ҲıҲıұİIJұҲIJ 孍 ̺̍ð˲ð˲ İ ٠бıٍIJٍٍŠбàıàҳՠ嫱ıՠàčIJՠŠƍ̠ՠð  ұİıұıҲIJ̮ Í  캍 ˲ Ҥ ì İ Ҥ ̮îŢұՠİҲՠǠ ̮îō í 벍 İ ƍ ƍ ͢ Í      L,st`éʮ® ߠȱ<ȱ= ߠȱ@ȱA ߥ ߠLލ8Lޔe<>=i?