o>_t|>|>N L L t愼>慱ʕhL?"ꈱiLCLIԢH z{z`EXEL6!Lq!o>_t|>|>N LIH慱ʕhL?"ꈱiLCLIԢH z{z`EXECUTLBRANCeHȱehL0BRANC>iL(LOOP2_ hhhhLF(+LOOPT膋HH}h}hLw(DOHHHHLɽDIGI800 08 0  HLHL(FIND {Q})?-ȱ{Q} #ie{e|{HLȱ{ȱ{ȱ{|{{еHLENCLOS 8 {  L怱{ƥL}e~e`EMItv!KE!?TERMINA!C !CMOV* {|L}~L/2 O6LUH]{|666{u|uuLUV *{66866{LANĎ5H5LOHLXOUHULSPHLSP "LRP2L;*FhhLLEAV?YL>OtHHLRmhhLHL0ȔL0*LuuLDuuuuLMINU8LDMINU+8LOVE BHLDRO9SWAJ\HLDUStHLPICl {|{Hȱ{L+|uuL1+ {i{ȱ{i{L1- {8{ȱ{{LTOGGLULHLC#L2LC,JLCi 0nHHieLQiJD`DCONSTAN~iiHȱLVARIABLŐiiHeLUSEҰieHeLB C/ (FIRSԅLIMIB/BU(B/SC4+ORIGI@iDTIL WIDT` WARNINiFENCtDЁVOC-LINˌBL˔I΢OUԫSCҳOFFSEԼCONTEX CURREN"STAT$BAS&DP(FL*CS ,R.HL01#iD2,iDHER9i DALLOFiDUiM0]DCeiMH]DuiD1iD2iDiDUp&ꁼ8PIȔLiZDROirZZDSPACiD-DUir<rDTRAVERSiZ@@!<ZQDLATES#i  DLFIiDCF\iDNFki.DPFzi.D!CSЏi0D?ERROҢiZ< QD?COMгi D?EXEi D?PAIRiD?CSi D?LOADINi  DCOMPIL&ir>r iD@i0D\i0DSMUDGjiR DHEyi0DDECIMA̍i 0D(;CODEiRq0DiD[COMPILE݃iQqiDLITERAi <JiDMI-i@@<ZQDDLITERAIi <Z77D?STACairDINTERPRE~i< < qiqMk 1<lQ7DIMMEDIATŢiR@DVOCABULARii qiM i0>0DFORT 6 o>DEFINITION> i 0DP i)DQUIj i0`0 < OKDABORw i 7F ^ ~ DOHY-FORTH FOR C-16/64K/ BY J.ROHONCZY F ^ ~ DCOLĦ ;!BY >LEWAR q! *-$`(0$k(0)/SSSSSSSSS D L M xآt?l! L2LI!8qȩq> f1?L>X x?L>X x?L > f1?L>X x?LS->!irDMA!i@@<ZQDHJJJJ ""h) i: ` " "`$y\ " "Ȇ ": ," " "Ȋ "> ," 1" 1" 1" 1"$yP>Xx?LEXPEC"i@@ rV <Q@rr'r <WQrH10Q]QD+"i<DD+#i<)DAB.#ir"#DDAB@#ir4#DMN#i@@rF#[4#DM]#i@rrU#F#"#Z"#ZDv#i[QD/MOĝ#ir!{#D#i#ZQDMOļ#i#QD*/MO#irb#{#D*#i#ZQDM/MO#irZrD#iQ7DFORGE$i$r r @<F ^ r0rb r<@0 <0DBAC-$iMiDBEGIΚ$iMDENDIƫ$iM@Z0DTHEν$i$DD$iJMDLOO$iJ]$D+LOO$iJ$DUNTI %iJ<$DEN"%i*%DAGAI8%iJ$DREPEAD%irrL%$DIZ%iJ<MiDELSw%iJMiZ$DWHILŌ%i|%>DCASŭ%i DOƽ%iJ@JJ<MiJQDENDO%iJMiZ$DENDCAS%iJQ < $0DSPACE&i"< ]D*IHLr00D2'ir> Z D2VARIABLŬ'iiD''2DU'i@@D2OVE'iD2SWA'irD2RO (io'o'D2DRO(iQQDI3(irrDUSC(ԄPREZ(ԃR/d(i3SD+BUo(i<r0<Q$rk( DUPDAT}(ik(  k( 0DFLUSȧ(i0$<#1*)Q]DEMPTY-BUFFER(i$0@aDDR(i0DBUFFE)i`( rr(<`(0 <> u(0k(0>DBLOC!)i rk( r r<4(<Q*)ru(r r<rk(0Q>D(LINEj)ir<#H#r)D.LIN)i)c*DLOA)irT' r r0H#000D--)i10H @#`'DLIS6*ir0SCR # T'!< D' )<W]DINDE\*i1ZD')<W] DVLIS԰*i0   $Z@!?< 0r@b r<QDMESSAG*i~ <E0MS>0GS>>0R<TQ r1!<W3r!<r1*WZQZ.]Qr<)1'Zr< Z1ZZ)Q  MSG# T'D2CONSTAN<+iiʕʕL,:,HL4,O, H LNAMI,g,Hh> ?LOPE^,,Hh>X x? ,L`i`CLOSŀ,,>X x?LHPIι,,ꪍ>X x? ,LHPOU,-ꪍ>X x? ,LHPOF,,->X x?LCHR->AS"-Q-{)?{${ p @LEMSGD- CAN'T FIND EMPTY STACKDICTIONARY FULLILLEGAL ADDRESS MODE ISN'T UNIQUEIN PROTECTED DICTIONARY ILLEGAL SCR# FULL STACK DISC ERROR VALUE > 255USE ONLY WHEN LOADINGOFF CURRENT EDITING SCREENILLEGAL VALUE - REENTERTOO LARGE - REENTER C16 FORTHUSE IN COLON DEF ONLYEXECUTION ONLYCONDITIONALS MISPAIREDDEF NOT FINISHEDTERMINATED BY STOP KEYTOO MANY OPEN FILESFILE ALREADY OPEN FILE NOT OPENFILE NOT FOUNDDEVICE NOT FOUNDFILE OPENED FOR OUTPUTFILE OPENED FOR INPUTFILENAME IS MISSINGILLEGAL DEVICE #TROFj-iy0DTROΗ/iy0DTRON-STEЪ/iy0D(EDIT/i*-M_0 g' k0f " !rnZj< ! r HHn<Grr)rr Z(Z!O-H]LSCR# T'SAVEDLSCR# T' NOT SAVEDDEDI/irc*/D0EDIԳ0i/DDISC/CA0COP0ir)Zr)(DWHER0ir0SCR# T' LINE# #rT' )X&^ ~ DTEX0iM1rM1(DX x`DUMG1i r1ZD'@@!&&&&*]!r@<Q.]<W0DVIDEl1i*-',DPAPE2i 2e,'',r'-rD?DIS2i,r}("*-}~|HQQ;(DDERROA2i*-M* ? DOS ERROR : |* QQ  ~ D(DERRORw2i2DDIS÷2i ,,e,@,r-rI1*--rI0*-/3e, @,rD#T&SCALC2ir#rrX< Lrt<X.r<trr#Z@MM#D(-DISC13i4D(R/W3i0 <^0$<'#rr<'#$0]<;(" ? ILLEGAL SCR #   ~ lrC@<3'3<2rrrr>#];(;(;(D-DIS34>X 55 W5L4 5 W5 5x ?LB-P13,0 U1:13,U2:13,{|{ `{}~{}e}}&~إ}HJJJJ Q5h)i0L{| {| 5 +5,  +5,  +5  } | }0`L4 5 5 L5} ~ 5 x?}>X L5} ~ 5 x?}>X L5SAVE-SYSTEͺ4i*-,   V0MrV0V0HSAVE MEMORY FIELD FROM 7' TO 7' DSAVE-BLOCK6iH0$SAVE MEMORY FIELD FROM 7' TO 7' DBOOT-UЖ6iDISC SYSTEM ? (Y/N)PRESS THE RIGHT KEYrrNZY<00CASSETTE SYSTEMY< 002DISC SYSTEM D)6i)FORTH+ (C-16/60K & PLUS4) BY J.ROHONCZY& COPYRIGHT NOVOTRADE - DELTASOFT 1986.DASSEMBLEҋ76 g>N MOD7Z8i 80DCOD8i78D;COD8iJ`78DLABE28i]78DEND-CODJ i 0D.l8i 80D8i 80D,ؘ8i 80D,٦8i' 80DX8i 80D)8i 80D8i 80DIN8iz!z8DBRK89CLC 99CLD99؄CLI$99XCLV099DEX<99ʄDEYH99INXT99INY`99ȄNOPl99PHAx99HPHP99PLA99hPLP99(RTI99@RTS99`SEC998SED99SEI99xTAX99TAY99TSX99TXA:9TXS:9TYA :9ABY,:iz!zzDBCC8:G:BCSO:G:BEQ[:G:BMIg:G:0BNEs:G:ЄBPL:G:BVC:G:PBVS:G:pINDEX-ARRA٣:   ,UPMODů:i< 8 <  8 8 <r]@1 DMCP:izir1 <  8@::<8R@ ! 8!:!z 8!< 8!<zi8DADC0;A;`nAND;A; nCMP;A;nEOR;A;@nLDA;A;nORA;A;nSBC;A;nSTA<A;nASL<A; DEC#<A; INC1<A; LSR?<A;A ROLM<A;! ROR[<A;a STXi<A;CPXw<A;CPY<A;LDX<A;LDY<A; STY<A;JSR<A;JMP<A;@BIT<A; BEGIN=C=>E >N>NEX>PUS$>TO/>i8DSE:>i8DIH>V>_>{TASL8iSDBYE 3EC0EMSGS