' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#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 < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   ɱ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BB@@BBBBBBBBBBBBBBBBBBBBBB@Bb@l  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵h5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!fi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&z#?     "ɱ! Ԡ! IJ2ŠֲϠֲİ2RESOLVE WRONG MASK FOR 'INC' (ASSEM)1 (16667,2O - CHANGE VERSION TO V2.11d 28200,2:8201,17 <D$"BSAVE FORTHD0,A$2000,L$3000 F C******************9  * ALT=FORTHD2.1, NEU=FORTHD0 *` ********************************f AFORTH V2.11 RESOLVES TWO MINOR BUGS IN V2.1 D$(13)(4) D$"BLOAD FORTHD2.1,A$2000"  RESOLVE WRONG CFA IN 'NOT' 9319,83$ # (*********************************O* *v* DAS PROGRAMM BEHEBT DIE FEHLER** IN DER AFORTH VERSION 2.1 ** 03.01.83 GLASI ** *  **************  R@ԔՃգ,(Ճ؃ҶԌp֌O))ӆNUMBEhh@הՉ-@ԝOף@ՔՉ^@ՔՉ.^h)h)Ӆ-FINBՉօ!a@Q !Ӈ(ABORTsӅERROn!؋۞ ?))ӄFIL(ջ@)p^ؠӅERAS hBLANK)ՉӄHOL;OOկջӃPAL!؉DӄWOReՅ!- -I6՝(:!؉"D6O^;!ػ՝!)ԠӅUPPEv՝(kфєՉ_ щ pӇCONVE.";ԋ@)ԝԞ.Չ"y܅!ؔ1 !؋۞ӆEXPEC՝kс@ՉըՉՄѨ@)x^؝^'@Չ Չh@ՄѻhքףyѩӅQUERCՉPLh6ף-*p-Oh6ף-hQZEՉףӇDECIMAՉ ףӇ(;CODE )٣;COD Ղڷ*DOES8շ*ۉ Nطgie8hhLՅCOUNN@(ՔӄTYPŃՅ՝(kфєyӉ-TRAILINǗ@hk՝p^ؔՉ^p^(PFp֜ىӄ!CSբӞףӆ?ERRO(Ӆ?COM yQԉ)Ӆ?EXE;yՉ)ӆ?PAIRR^؉)ӄ?CSgբӞ^؉)ӈ?LOADIN{-Qԉ)ӇCOMPILœC)@=ۭhyףӁՉyףӆSMUDGى pӃHTբ(^JӄPIC@p؉)<ӢӝӄROL@p؉)@(<Ӣӝ@գآQӅSPAC.Չyӄ?DUn@@ӈTRAVERS~(՝ԉՔ(ӆLATESԑnӃLFՉ^ӃCFx^ӃNFՉ^Oӝӂ1p^ӂ2x^ӄHER ӅALLOOӁ)!أx1ӂC9!ػp1ӁIԝӂDZԶӂDfըkn((((Ӂs^QӂU^nӁ8PIȔL{с(ӃRO()(ӅDEPRNINUFENCUDUVOC-LINUBLU>I'UOU0USC9UOFFSEBUCONTEXKU CURRENWU"STATdU$BASqU&DP|U(FLĆU*CSЏU,RU.HLġU0USũU2PREֲU4SFLAǻU6DFLAU8PFLAU:1p֝ӂ2xӈCONSTANP=*۠HȱLbЈVARIABLh6*iHeLbЄUSE#*۠eHeLbЁHdltB| C/̄@FIRSԍLIMIԗB/BUƣB/SCү+ORIGIλOНSUTIU WIDTU WALԄOVEյHLbЄDRO{фSWA*յHLdЃDU!BյHLbЂ+:QuuLyцTOGGLJrաULyсgՁաHLdЂC{ՖաLiЁեյLyтCսյLyZnaףP*ۥHHiޘeLiՂڷiЄEXIԆ蚦LiЂ>ԵHHLiЂR+hhLiЂR$=Ԇ庽HLbЂ06SԵȔLiЃNOLSԂ0ap*LiЂ0iԂԵ0 ȔLiДLiЁ{ԟuuLiЂDԸuuuuLyцNEGATű8LiЇDNEGAT8Oӵ *66866L{т2>6LiЂ27LӵVv)LiЃANEcӵ5H5LdЂO[xӵHLdЃXOqӎӵUHULdЃSPӤӊHLbЃSPӳӠLiЃRPӆ㪚LiЂ;ӻhhLiЅLEAVӆ庽L֕eו֕HLbаȱȱ֪ȱօ׆еHLbЇENCLOS<ҩ Њ8ȱLiДLiЄEMI0ҤKEr҆?TERMINA{C҃ҺCMOVőҢҩ LiбڑL҂Uҵ֔ה666uuuLiЂU/M(LOOPц hhhhLЇ(+LOOP6HH}h}hLф(DO*mѵHHHHLiЁd=ԁʀьц庽HLbЅDIGIԆѥ800 08 0  HLdИHLdІ(FINDѩ ІQ)?-ȱQ #ie 0LL^@  @F @@ TASLIQбH߱ʕhޅ∱ޅiސLCLIIЋбH յ`EXECUTłЮеLBRANCȢeHȱe߅hLkЇ0BRANCȻiސLiІ               Q g۔N g@הՅhkщO߀)ڔլԔ՝@OO^@ՉZՉNՉa@N= g۔@Չa@+(ՉNN (Չ(ӄBRKCLCCLD؄CLӂ.hӁpӃME xӂ,Հӂ,'ՉӂX4Չӂ)BՉӂZPՉӁ^ՉӃTOl,hӃSEy,xOa@Չa NNNՉaQ OpՉaӅhk@՝a IU XSAVINTFLAINTVEC'PO5{цPOPTWCyуPUMdЄPUSZbЄNEXdiІPUSH0o֥ӅPUT0z֘ՆBINARهlӅSETUГ֑<   <,xi 8<>MODŠUJ@h։Qvى(hk@ՔՀփxַ@Չ^؉՝(kфє@@Չ (Չ_v .yy(Տ4э)ԃףՖӄHANՏӃPR{ Hבh L{уIN L{цENABLŭ뭃LiЇDISABL뭀LiЃMOLiLiЁ<҄рփvhք҉ӅTRIAՀ՝(kі҄Ѯ҉ yӅVLIS!Ճۖa@h։Q@h։Qxַ@ߖ@QԏvՃףՖ҉vӂ.U@ppkі҄ٓpӄDUMдՃhkіn-SӁՃ(؉ ԉ0Sӂ# vQӃD.4(F9)^طӂDKhQvӂ.o)QӁ~tӁՓӄLISԛۖ@HףSCR # hkі҄рփvلHҖҖӅINDEاՖ(kՀpڷѬ+LOOՀpڷ4ѬUNTI ppڷЬAGAIppڷЬREPEA5=))x^IKշ!h=xELShxpڷ!h=(xxWHIL}mӆSPACEӞhl hkvӂOvգӌSAVE-BUFFEReի֟^ط։hkOӍEMPTY-BUFFERӄ՟֫^1ӃDRhTףӃDROЌTףӆBUF`S->ě@nӂ+nӃD+nӃAB@ӄDAB1@%ӃMI?(ӃMAN(ӂMfՌ7(7)%ӂM~F;7);Ԍ()(Ӂӄ/MO)ԠӁ(ӃMOZD!@أӋDEFINITIONanףՉ)ӄQUI0h-ףӖһ:yQOKӅABOR=ձAFORTH II V2.1 1983$DCOLk: ЅЅ  Бߩuةl& LӠ <Й@`2"Б(ӆ?STACՉ΢ӵp)ڢӉ`؉)ӉINTERPRE աy =٬!KތIMMEDIAT.ى@pӊVOCABULAR|DOЁ=n=!$=$ף* gaףFORTȓaףASSEMBLEU>UDCOD6-DӃIDk݉ _@^k(ՠk݋ۉaӞvӆCREAT .O1՟!؉РԵx)ڡ߉v!@ՔT1הՉ1@ՉРp!p^؉Ѐp=nգ!=[COMPILE;աQh)=LITERA̳yO=DLITERAy____INppREPEATՀp)!^(ջIF ա!hNxTHEN/Zxp!Ք (գ ^(ջELSECxp!p(!^(ջxEND-CODqnaףZڂ @DEC  INC  BIT  STZ ` TSB+ TRB8 RMBESMBRBSE\BRESEf0pV|Cӄ0ЃNOԔՉ BEGIN!pUNTILZpp))ԡ!^NWHILEա!hN؀AGAJSR CPX CPY STY  STX' LDY4  ASLA  LSRN A ROL[ ! RORh a LDXu STA ADC `AND CMP EOR @LDA ORA SBC JMPIXCLVDEXʄDEY INXINY!ȄNOP+PHA5HPHP?PLAIhPLPT(RTI^@RTSh`SECr8SED|SEIxTAXTAYTSXTXATXSTYAPHYZPHXڄPLYzPLXb@l  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵h5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!fi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&____INppREPEATՀp)!^(ջIF ա!hNxTHEN/Zxp!Ք (գ ^(ջELSECxp!p(!^(ջxEND-CODqnaףZڂ @DEC  INC  BIT  STZ ` TSB+ TRB8 RMBESMBRBSE\BRESEf0pV|Cӄ0ЃNOԔՉ BEGIN!pUNTILZpp))ԡ!^NWHILEա!hN؀AGAJSR CPX CPY STY  STX' LDY4  ASLA  LSRN A ROL[ ! RORh a LDXu STA ADC `AND CMP EOR @LDA ORA SBC JMPIXCLVDEXʄDEY INXINY!ȄNOP+PHA5HPHP?PLAIhPLPT(RTI^@RTSh`SECr8SED|SEIxTAXTAYTSXTXATXSTYAPHYZPHXڄPLYzPLXQ g۔N g@הՅhkщO߀)ڔլԔ՝@OO^@ՉZՉNՉa@N= g۔@Չa@+(ՉNN (Չ(ӄBRKCLCCLD؄CLӂ.hӁpӃME xӂ,Հӂ,'ՉӂX4Չӂ)BՉӂZPՉӁ^ՉӃTOl,hӃSEy,xOa@Չa NNNՉaQ OpՉaӅhk@՝a IU XSAVINTFLAINTVEC'PO5{цPOPTWCyуPUMdЄPUSZbЄNEXdiІPUSH0o֥ӅPUT0z֘ՆBINARهlӅSETUГ֑<   <,xi 8<>MODŠUJ@h։Qvى(hk@ՔՀփxַ@Չ^؉՝(kфє@@Չ (Չ_v .yy(Տ4э)ԃףՖӄHANՏӃPR{ Hבh L{уIN L{цENABLŭ뭃LiЇDISABL뭀LiЃMOLiLiЁ<҄рփvhք҉ӅTRIAՀ՝(kі҄Ѯ҉ yӅVLIS!Ճۖa@h։Q@h։Qxַ@ߖ@QԏvՃףՖ҉vӂ.U@ppkі҄ٓpӄDUMдՃhkіn-SӁՃ(؉ ԉ0Sӂ# vQӃD.4(F9)^طӂDKhQvӂ.o)QӁ~tӁՓӄLISԛۖ@HףSCR # hkі҄рփvلHҖҖӅINDEاՖ(kՀpڷѬ+LOOՀpڷ4ѬUNTI ppڷЬAGAIppڷЬREPEA5=))x^IKշ!h=xELShxpڷ!h=(xxWHIL}mӆSPACEӞhl hkvӂOvգӌSAVE-BUFFEReի֟^ط։hkOӍEMPTY-BUFFERӄ՟֫^1ӃDRhTףӃDROЌTףӆBUF`S->ě@nӂ+nӃD+nӃAB@ӄDAB1@%ӃMI?(ӃMAN(ӂMfՌ7(7)%ӂM~F;7);Ԍ()(Ӂӄ/MO)ԠӁ(ӃMOZD!@أӋDEFINITIONanףՉ)ӄQUI0h-ףӖһ:yQOKӅABOR=ձAFORTH II V2.1 1983$DCOLk: ЅЅ  Бߩuةl& LӠ <Й@`2"Б(ӆ?STACՉ΢ӵp)ڢӉ`؉)ӉINTERPRE աy =٬!KތIMMEDIAT.ى@pӊVOCABULAR|DOЁ=n=!$=$ף* gaףFORTȓaףASSEMBLEU>UDCOD6-DӃIDk݉ _@^k(ՠk݋ۉaӞvӆCREAT .O1՟!؉РԵx)ڡ߉v!@ՔT1הՉ1@ՉРp!p^؉Ѐp=nգ!=[COMPILE;աQh)=LITERA̳yO=DLITERAyR@ԔՃգ,(Ճ؃ҶԌp֌O))ӆNUMBEhh@הՉ-@ԝOף@ՔՉ^@ՔՉ.^h)h)Ӆ-FINBՉօ!a@Q !Ӈ(ABORTsӅERROn!؋۞ ?))ӄFIL(ջ@)p^ؠӅERAS hBLANK)ՉӄHOL;OOկջӃPAL!؉DӄWOReՅ!- -I6՝(:!؉"D6O^;!ػ՝!)ԠӅUPPEv՝(kфєՉ_ щ pӇCONVE.";ԋ@)ԝԞ.Չ"y܅!ؔ1 !؋۞ӆEXPEC՝kс@ՉըՉՄѨ@)x^؝^'@Չ Չh@ՄѻhքףyѩӅQUERCՉPLh6ף-*p-Oh6ף-hQZEՉףӇDECIMAՉ ףӇ(;CODE )٣;COD Ղڷ*DOES8շ*ۉ Nطgie8hhLՅCOUNN@(ՔӄTYPŃՅ՝(kфєyӉ-TRAILINǗ@hk՝p^ؔՉ^p^(PFp֜ىӄ!CSբӞףӆ?ERRO(Ӆ?COM yQԉ)Ӆ?EXE;yՉ)ӆ?PAIRR^؉)ӄ?CSgբӞ^؉)ӈ?LOADIN{-Qԉ)ӇCOMPILœC)@=ۭhyףӁՉyףӆSMUDGى pӃHTբ(^JӄPIC@p؉)<ӢӝӄROL@p؉)@(<Ӣӝ@գآQӅSPAC.Չyӄ?DUn@@ӈTRAVERS~(՝ԉՔ(ӆLATESԑnӃLFՉ^ӃCFx^ӃNFՉ^Oӝӂ1p^ӂ2x^ӄHER ӅALLOOӁ)!أx1ӂC9!ػp1ӁIԝӂDZԶӂDfըkn((((Ӂs^QӂU^nӁ8PIȔL{с(ӃRO()(ӅDEPRNINUFENCUDUVOC-LINUBLU>I'UOU0USC9UOFFSEBUCONTEXKU CURRENWU"STATdU$BASqU&DP|U(FLĆU*CSЏU,RU.HLġU0USũU2PREֲU4SFLAǻU6DFLAU8PFLAU:1p֝ӂ2xӈCONSTANP=*۠HȱLbЈVARIABLh6*iHeLbЄUSE#*۠eHeLbЁHdltB| C/̄@FIRSԍLIMIԗB/BUƣB/SCү+ORIGIλOНSUTIU WIDTU WALԄOVEյHLbЄDRO{фSWA*յHLdЃDU!BյHLbЂ+:QuuLyцTOGGLJrաULyсgՁաHLdЂC{ՖաLiЁեյLyтCսյLyZnaףP*ۥHHiޘeLiՂڷiЄEXIԆ蚦LiЂ>ԵHHLiЂR+hhLiЂR$=Ԇ庽HLbЂ06SԵȔLiЃNOLQԂ0ap*LiЂ0iԂԵ0 ȔLiДLiЁ{ԟuuLiЂDԸuuuuLyцNEGATű8LiЇDNEGAT8Oӵ *66866L{т2>6LiЂ27LӵVv)LiЃANEcӵ5H5LdЂO[xӵHLdЃXOqӎӵUHULdЃSPӤӊHLbЃSPӳӠLiЃRPӆ㪚LiЂ;ӻhhLiЅLEAVӆ庽L֕eו֕HLbаȱȱ֪ȱօ׆еHLbЇENCLOS<ҩ Њ8ȱLiДLiЄEMI0ҤKEr҆?TERMINA{C҃ҺCMOVőҢҩ LiбڑL҂Uҵ֔ה666uuuLiЂU/M(LOOPц hhhhLЇ(+LOOP6HH}h}hLф(DO*mѵHHHHLiЁd=ԁʀьц庽HLbЅDIGIԆѥ800 08 0  HLdИHLdІ(FINDѩ ІQ)?-ȱQ #ie 0LL^@  @F @@ TASLIQбH߱ʕhޅ∱ޅiސLCLIIЋбH յ`EXECUTłЮеLBRANCȢeHȱe߅hLkЇ0BRANCȻiސLiІ! !!!!!!!!!                      &: X  X &   LЍ oLнd `ƠԠǠ ɠɠàà !"! ! ! ACHER 1983 *";#'SB$;ST$)'3 *";'SB$;F'"* WITH COURTESY OF *";w'"* FORTH INTEREST GROUP SAN CARLOS *";'"* ADAPTED FOR APPLE ][ LIKE OPERATING *";'"* SYSTEMS: P.GLASMACHER 1983 *";'SB$;ST$'SYSTEMS: P.GLASMBOOTED..."<'J1:D0:I(H$)11:N((H$,I,1))48K'N9NN7f$'DDJN:JJ16:ND::t'ST$"****************************************"~'SB$"* *"'ST$;SB$; '"* AFORTH ][ D""P(4)"BLOAD FORTHD0,A$D000"AZ --WRITE PROTECT THE CARDZdA(16254): $C082vn(4)"BRUN FINIT,A$300"|x--NO CARD OR CAN'T RELOAD(768)0Ā :"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS RE2:818,169:819,0:820,141:821,0:r822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: 831,192:832,96:769(768)15250( 2--IF THERE, LOAD INTG AND PA#1< F:"LOADING FORTH INTO LANGUAGE CAR9,169:790,165:791,141:792,0:793,208:794,205:795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205:804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129:"813,192:814,169:815,1:816,208:817,PR#6" :10100: --POKE LANGUAGE CARD FINDER768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776,104:777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192:1786,173:787,131:788,192:78RETURN>, SONST ";: A$:A$(27)A$(13)ī2780_ A$(27)DR2ĺCL$"RUN ASI1,D2"}" A$(13)DR2ĺCL$"PR#6"' A$(27)ĺCL$"PR#6", ::"BITTE SYSTEMDISKETTE EINLEGEN UND 'RETURN' DRUECKEN ";:6 A$:A$(13)2870@ CL$"TIONSDISKETTE WIRD ERSTELLT ( DAUER CA. 90 SEKUNDEN) "X 2056,49:CL$"INIT ASI1,D";DRe( 2056,48Z CL$"BSAVEFORTHD0,A$2000,L$3000,D";DR CL$"BSAVE FINIT,A$6000,L$AF,D";DR (7)::"WENN SIE EINE WEITERE FORTH-DISKETTE ERSTELLEN WOLLEN, : ";5 I$:I$(13)I$(27)2315H I$(13)1000N- . :10100:::"BITTE LEGEN SIE EINE ";::"LEERE";::" DISKETTE IN LAUFWERK #";::DR;::" UND DRUECKEN 'RETURN'";` A$:A$(13)24006 :10100:::"FORTH-PRODUK#"IO-REGISTER :";"$"IO$G"STROBE-REGISTER :";"$"SO$s"APPLE ][ TASTATUR :";:TS$"N"ĺ"JA"TS$"Y"ĺ"NEIN":"ALLE ANGABEN KORREKT (Y/N) ";:I$:I$:I$"Y"2350 :"KONFIGURATION WIEDERHOLEN , PROGRAMM VERRL O(-),CTRL L(\) UND CTRL K([) ERSETZT. BITTE";::" 'N'";::" EINGEBEN." :" EINGABE: ";:TS$:TS$"Y"Ĺ13707,234:13708,234:13709,234*:10100:,"LAUFWERKE :";DR4"80-ZEICHEN-KARTE :";Z8$f"PRINTERKARTE :";PI$RSTELLEN, DIE VON FORTH GE-BRAUCHT WERDEN."[ :"DIES SIND DIE ZEICHEN '[ _ UND \ '":: "WENN SICH DIESE ZEICHEN AUF IHRER TASTA-TUR BEFINDEN, GEBEN SIE BITTE";::" 'Y'";::" EIN."M :"BEI EINEN ORIGINAL APPLE ][ WERDEN DIESEZEICHEN DURCH CT)256:13782,(D)c :"STROBE REGISTER :";H$:10000:DD256:13776,(D(D))256:13777,(D):SO$H$m l2050 13776,193:13777,193:13781,144:13782,192 IO$"C090":SO$"C1C1" :10100+ "DIE TASTATUR DES APPLE ][ KANN DREI ZEI-CHEN NICHT DAE-"4 @"GISTER UND DIE SPEICHERSTELLE, DIE DURCH";v r"SETZEN VON BIT 7 'PRINTER READY' ANZEIGT(STROBE REGISTER)." :"BITTE GEBEN SIE DIESE REGISTERADRESSEN (HEXADEZIMAL) EIN: :" I/O REGISTER :";H$:10000:DD256:IO$H$ 13781,(D(D) 1 (Y/N) ? ";:PI$::PI$:PI$"Y"2050k F:"EPSON PRINTERCARD ][ ( Y/N) ? ";:I$:I$:I$"Y"1950z x:10100: "FORTH BENOETIGT ZUR DRUCKERSTEUERUNG" "DIE SPEICHERSTELLE, IN DIE EIN ZEICHEN" "ZUM DRUCKER ABGESPEICHERT WIRD (I/O RR LAUFWERKE (1/2) ? ";C DR$:DR(DR$)48:DR1DR21220V DR:8232,DR1 :"80-ZEICHEN-KARTE IN SLOT 3 (Y/N) ? "; Z8$:Z8$"Y"Z8$"N"1260 Z8$:Z8$"Y"Ĺ8230,1:15113,16:15144,16:15149,16' :"PRINTER-INTERFACE IN SLOT, FL0:CL$(13)(4):HO$(12)::HO$:<2FL0İ1000K<FL15000Qz:10100:::"LOADING CONFIGURATOR"Z8$"N":PI$"N":IO$"0000":SO$"0000"LCL$"BLOAD FORTHD0,A$2000,D1"~CL$"BLOADFINIT,A$6000":8230,0 "ANZAHL DE""" " " " " """""""""!!!