(2063)LLQf<t%/f1(LIT9H慱ʕhiL1CLIsH {|{`lEXECUTŖLBRANCȮHȱhLS?BRANCiLQ(LOOP 8}pЯhhhhL(+LOOP 膋H}h}pЦL (DO= iHH8HHLQ6 (?DOf iL= L^ ɍ }H}LJ ʩ L (LEAVE hhhhL (?LEAVE L DIGI 800 08 0 HLLHLL (FIND  yȈ|Q~)?2ȱ|Q~ *Șe|e}| LQHLL8||}}|ȱ|}||Шʥ~HLJ SKIГ  y~E| 恥~~L ʥ~HLJ SCA  y~ڱE| 恥~~L EMIԲ" KE" ?TERMINA" C" CMOV$  y}~|~LQ CMOVEY  y}Hehe| ~}Ɓ~LQP FIL̝  y| ~בL UM LQ|}666|u}u` UM/MO  LQ} *|66&}8H} }hh66|` AN_ 5H5LLY Ot HLLo XOҊ UHULL NOԠ UULQ SP HLJ SP LQ RP LQ EXI hhLQ > HHLQ R hhLQ R HLJ 05 LQ0 0J LQE 0] LQX I΢#OUԢSCҢOFFSEԢCONTEXԢ CURRENԢ"STATŢ$BASŢ&DP̢(SPA΢*!CSТ,+R.4HLĢ0<DONE2E#TI¢4P#LINŢ6Z1jLQe1zLQu2Lj2Lz2VvLQ26LQHER; ALLO; ; C;   :L LW U08LW +I8PILW EfHhLIbROԅHhLSPAC; ?DUгLLQTRAVERS;m qmG~ LATES; FORTH-8; >BOD; >NAM;x; >LIN; )BODY; 9NAME;h GLINK;M YN>LIN; iL>NAM; x!CS; / WHER;  SCR# *?LINE# *!   d   x * 3 ; q^  (ABORT";OA&  [  h *,;m ,h" h _ABORT;3q"Rb |?COM; 3 3#COMPILATION ONLY, USE IN DEFINITION ?FIN;3NOT IN CURRENT SEARCH ORDER ?PAIR;3CONDITIONALS NOT PAIRED ?CS; /t 3DEFINITION NOT FINISHED ?CHA; m ~ t mh    MISSING  ~ LCOMPIL;   ;  ;  uH ~hb~7; SMUDG;q  HE;q DECIMA;q  1(;CODE; M FDOES;$NqLu HHiȱiiHiLJ\COUNԠHLJTYPŶmVVmWW y|}LQ~ L-TRAILIN;; , xt x (."; h  .;q"Rb -.;q)R AEXPEC"QQUER;0qPX&U  \;K QUIT; t Kr K ERAS; BLAN; HOL;;@@ PA;qP 'STREA; !0Um?    WOR; m m ~mm h mmh"   +>LOWE҇ y|}LQ~)~L~(PUNCT?;q. PUNCT; CONVER;h   ~ h   NUMBE;;mm d I  E+G I/hq-  z ft  P FIN; 3 ~ EXISTS;0 ID;q q* Mm" q] , CREAT;y .3DICTIONARY FULLm73 NAME REQUIRED] v q q  ALREADY EXISTS x~m  hW y?h , q] q ,hW qh qxqmmNiHeLJ[COMPILE;*( LITERA;7.OqU7 /DLITERA;77 Y?STAC; qt.3 STACK EMPTY q .3STACK OVERFLOW nINTERPRE;uh3 ~G IMMEDIAT;q@ VOCABULAR;7NLu FORT$f/DEFINITION; ?;q)R+ YRU;    hQUI;   bl 3  OK ABOR; STARTU fCOLx 78 >{lXtL   Э!Э 6`` " >dL 9  !95Kg BLAZIN' FORTH FOR CBM-64 COPYRIGHT (C) 1985 BY SCOTT BALLANTYNE OK TO COPY, BUT NOT TO SELL! WELCOME TO FORTH!S>;H ABL4LQDAB2LR+MI; ,dK~ ;MA; ,Ga~ QMl rLQUH :  hLX`gM LQot`HHUHH : X  h h : huhu`hh` :`  rLW /MO LQHHhhL@ LW <MOV LW P*/MOh nLQHH rhhL`* nLW M/MOģ LQHHhhHH  }hh}HH  hh`BC;q  LATEST;  H ~ G ~  ABSENT;" ; ; , q" q W ~+G q l ~ L UPDAT;  DR; DR;7 DISCAR;  MISSIN;9!q$  q qW !BUFFE;T !~!  e!BLOC;T !~! $  !EMPTY-BUFFER;mhq ; 7m , !+ !SAVE-BUFFER; ; hU"P"m$ q $"~ "FLUS;"! _"LOA;3 3CAN'T LOAD SCR# 0   l   VW LW L HLJ VWrsLQ y| ~L"fgLQo">DIS## V $Y$ n#LP#R$ n# #H h LU |} |} 6$ #,  #,  # L# I$ 6$ L#~  # ~ L#8 i H 0 h 0L   0`L ~  # ~ L#|}| `B-P13,0 U1:13,U2:13,#(R/W;($q; q; q+|$!#$' 7 + u$+++ b$R/;h$ $T&; 7Lm.3SCREEN DOES NOT EXIST q qXG %q j%q\G%%q j%qxGA%q\qq j%qG]%qxqq j%qqq Tm + $(OPEN%Hh Hh ),Hi hL %CLOS% LW %(CMDIN% ",L %(CMDOUT& H hL )ͩ &CMDOFC& LQ:&STATU;7 O&(?DISC;q%&7q(XA&&77q0d b&IOER;'3TOO MANY OPEN FILES3FILE ALREADY OPEN3 FILE NOT OPENq3FILE NOT FOUNDq3DEVICE NOT PRESENTq3NOT INPUT FILEq3NOT OUTPUT FILEq3MISSING FILE NAMEq 3ILLEGAL DEVICE NUMBER &.DER;A& DISK ERROR: 7 'MOUN;q %q%qqm%&q&&I1A&q&&I0A&q qm7 (%&( #'?DIS;j&$('  (;3  (([';*(7 6(?>MAR; F(?RESOLV;(z( n(?MAR;; + , (~M( ;(~ (BEGI;b( (THE;x(x( (D;; b( )?D;d M(b(~ )LOO;( +)+LOO; ( @)LEAV; ( V)?LEAV; ( j)UNTI;( )AGAI;( )REPEA;) )I;M( )ELS;M(x(7 )WHIL;( )SPACE;Ud ** *<;@ !*#;+@m 0*SIG;H W*q- E*;q mGw*q q0  [*#;]* ,r 3 * *(U.;$**3* *U;* *U.; * m * *(.;$**J*3* *;* *.; * m * *(UD.;$**3* +UD;+ "+UD.; + m * 2+(D.; 0$** J*3* K+D;P+ f+D.; P+ m * u+;* +PICˠ+ |}|Hȱ|LL+ROL̽+ eHH0hLL+DEPT+|t8|JL +2DRO,LU +2DU ,ʵLo,2OVE#,ʵ HLJ,2RO>,H ʈhʈLQ7,2SWAo,HHhLLg,2, y|LQ,2, yʱ|LQ,2CONSTAN;NLu, ,2VARIABL;q ,D, XL ,D0 -LW -D%- LU -DUO- LU I-D2f-VvvvLQ`-D2y-666LQs-D;m, -DMI;!,!,--m,+ -DMA;!,!,-m,+ -CONFIGUR;7hq7-FREEZ;77qUyq Uq " -(BSAVE&. y |~ LQ.SAVE-FORT;5K-  FILENAME? hqX&qqm%~7h$.(q% N.FORGE;*(.3IN PROTECTED DICTIONARY  m..5K.p ..m3 .  .........THR;h; * t" V/D/ 7/TEX;qTh0qTh" Z/?VECTO;;3UNSPECIFIED VECTOR y/DEFE;7/NLu /(IS;   /I; ///*( /PRINTING8/ /ASCI;0h !07 0CONTRO;q"0h D07 '0FRE; J0.;+0; + x+q*n00 STACK EMPTY ]0RECURS;M 0/;3 3USE ONLY WHEN LOADING>h 0PAG;q `  0EMPT;qU75qUqUqU 1DCLOS;q %q% E1RESTAR;L1 ^1BY;L17 r1MOV; ,.1W 1" 211ASSEMBLE$7;9XSAVu1u1Uu1Iu1u|1POuW 1POPTWuU  2PUuL2PUSuJ$2NEXuQ12SETUuy>2INDE    ,L2MOD x2.;}2 2;}2 2ME;}2 2,;}2 2,;q}2 2X;q}2 2);q}2 2;q}2 2BO;2 3SE;2  3RP;27 03UPMOD;e3}2q] 3 e3q}2}2q] d ~3 v3mh] 3 B3CP;NLu2 3BRK33CLC33CLD33CLI3X3CLV33DEX33DEY33INX33INY3 4NOP34PHA3H!4PHP3-4PLA3h94PLP3(E4RTI3@Q4RTS3`]4SEC38i4SED3u4SEI3x4TAX34TAY34TSX34TXA34TXS34TYA34M/CP;NLuhq] 4q}2m7] I3I3352 3HAS INCORRECT ADDRESS MODE}2R2  }2q] j5}2q] qGh5j52 4ADC4`nr5AND4 n5CMP4n5EOR4@n5LDA4n5ORA4n5SBC4n5STA4l5ASL4 5DEC4 5INC4 5LSR4A  6ROL4! 6ROR4a (6STX466CPX4D6CPY4R6LDX4`6LDY4 n6STY4|6JSR46JMP4@6BIT4 6BEGIN; 6UNTIL;  h 6IF; 6THEN;m7(7mh 6ELSE;h6mh7 .7AGAIN;6 Z7WHILE;  6 o7REPEAT; 6 7 7NO;q 7Cu70u70u7>u7VuP1END-COD;$ 7COD;21 8;COD;$N1 238?STRIN;qd3MAX LENGTH IS 255 2M8$ALLO; 2v8STRIN;U8}8NiHeLJ28STRING;U8; }88~NLu  28(";  h 28;q"R $98b49h"  G 9PENSTAT G:9TURTLESTAT GK9GRAPHIC G_9MULT Gp9HEADIN G~9PE G9GBAC G9XCO OAG9YCO hG9SPLIT G9SPRITE ;G9L  G9R  *G9L  G9H  G:W  G :W  G:A  *H#:PuH.:PuH9:MOVEuHD:LER qHR:#O H_:UR   Hk:UR  PAGHy:TSHAP ALLOT EMPT;qU75qUqUqU :DCLOS;q %q% :RESTAR;H:'PLO LI:GRT hh@I;GNM HH;HH7HlI;GIR HH;HH7HlJ6;(SPLIT ЍЭ<))Э ݭ) ЩЊ)!Ќ РȌЎL;)ݩ;Эe:Эx9؍ЩѢhЬ9 Ќ!ЍЭ )LL1KU;GROF;h9E<7qr 7q7q7q77U7 U70 K;C;h9<77@779r q4q q6qv9<779 97 7! LK49|؅~}})|}~})|}6LQ^>B;q] 99 >97 7!v9 >> bX>DRA;h9 ;7;;70N<<9>O=q= b>H; >?KE> HLJ>N; >HPO RS>VPO ;?ORIGI ?SRBYTE ?$?SRTOP-LIN 4?SRBOT-LIN G?SRTOP-BYT G Z?SRTOP-BYTE TRm?SRBOT-1BYT CA?SRBOT-RLIN >?SRTOP-RLIN R??DECO FF?HOST>T-SAV ??DECOM-SAV NR?UND-SAV  ?INV-SAV @HPOS-SAV ?@VPOS-SAV ?(@SRTL-SAV h:@SRBL-SAV @L@'100ADVANC FF^@'PCHA ENr@IN Y@@MAS @IMAS *(@CURCHA d@CURBYT AT@CURSTAT @CHARSE @64> ~@HOST> LJ@SRLINE  ACURPREFI ,APFPREFI  'AKPPREFI A8A'SEND-C #IA?SAV ZAUN AhA'BEL #tA?XOF  AGSTOuATABTABL ALLOT ;Ah" A~ A>LINE;\A~ AFBU;qU AIBU;AKEYTRAN MSPQRstuvwxypmnlqrALAT ALLOT NB*B 8B;A BMBRESET-LAT;RBqq rBK;B  B; BTRANSLATE-TABL   !"#$%&'()*+,-./0123456789:;<=>?@abcdefghijklmnopqrstuvwxyz[\]^`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~?????_`{|~} ???????????????? ???????????????????????????????`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~ ??????????????????????????????~  !"#$%&'()*+,-./0123456789:;<=>?@abcdefghijklmnopqrstuvwxyz[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~  !"#$%&'()*+,-./0123456789:;<=>?@abcdefghijklmnopqrstuvwxyz[\]^BCHARACTER-DAT DDDDD"DfD"D"DDU"D"DDDD"DDDDDDDDDD""DDDDDDDD"D"f"""""D"DDDD"DD"D"D"fDDDf"ff"ffD̈"f̪DDDDDDDD̪DDDDf̪"3"DDDfDDDD"fDDDDfDD""DDDDDDD̪̪ff̪̈̈DDDD""""̪"f̪̪f"DDDDDDDDDD"D"D""D"DDDDDDDDUDw"wUwUwUww"""̻̈"3"wwfU3"3""UUU"DDݻDDwf""w""DDDDDDDwDDDDDDDwDDDDDDDDDDwDDDDDDDDDDDDDDDDDDDDDDDDDD"D"wD""DwUUU"DD"UDDDDDSETBYTH@@~) @@LH@@%~~&~&&~&~@e@LQHRO'I4LQ!IROF9I6LQ2IINVERMI@ ~M@~6LW DIUNDEqInA ~ @~LMIiISWCHAҏI|-@~-@~LqIIDWCHAҴI|*&8&LI&&ƃ쥀~߭?P?@LqII(DHCHARI|*&8&LJ&&Ƃ쥀~~~|}~ƃʭ?P?@@~@`IDHCHAR-]Je||} ILqIRJDHCHAR-}J ILMIrJPCHAҏJɟLW 8 |}&|&}&|&}&|&}|m@|}m@}@~@4?m?TBL}JL]JLILIJCTES;@771771771771 JCURTOHOSԪK@|@}|LQKHOST>6K@|A}|LQKVHOS;%~>KA& K?HOS;%~>A&K L>HOS;&~K A& L>HOST;&~ A& 4LWAI;7; \L MLLWAI;q ; RLuL fL>MODE;m ;  LRLLq L LXO;A q;LRL LXOF;A q;LRL LCOMMAN;A3 LLO=(VT100.C64 BY L. LEFF PUBLIC DOMAIN *TYPE _ TO ENTER TERMINAL, F8 TO RETURN  bgM~L= L; MPITT;8 6215864LM MPITT;8 6215954LM M320M&|&}&|&}&|&}&|&}&|&}&|&}|~}&|&}&|&}|e~~}e`MSET-SN8T?A?A|}A M~.?/?A?|} M~g?ih?~i@{?i|?T?|} M~?i?LQ NFINIS;%> NINITDAT;B@B7 @D@ NSET-MODE;$SETTING MODEMlL8 LlL80=5LlL87=120L NBELL;[>q[> OBELL;q[>[> 6OBEL;zA MOCSITABL d_W XAXW qX[_^{__ L_ V V ^ [ qXZ` laSV AU `OESCTABL  t````w\\ kS VW *Z N<[>7 7Nq7 7%OzA #hT100HOMŤT????LS#TSET-ORIGIT??A??T?8A?LTA???T?????LT#TSET-DECO;? T #URESET-DECO;? T #UDECSTB;IRGZU~q`U IR R???NT $9USU;%Iy?e?,?1?7@ 7IRB?? hx A1qRBR?  $rUSD;%Ie?y?,?W e?7@ 7IRB?? h AW qRB??  $US;R; vUV $VS;R; U(V $VSGR;lA @ $4VSELECT-G;IRGgV9VV}VlA @ VqVlA @ VqV@ lA %IV100C;?S %V100L; ??VvUVq?GV ?S %V100CRL;VV %V100B;?d0W7?S %W100R; ??TWUfWdfW7 ?S %6WSEND-C;q ;LRL %lWSEND-CRL;q ;LRLq ;LRL &WCU;R ??xdW ?W? ?S &WCU;R?dW?X?S &WCU;R ? ?hG-X ?5X? ?S & XCU;R? qQG^X?eXqP?S &=XCU;IR[ X IR X~? ?S 'mX100ADVANCE/;?qPGX?SXW 'X100ADVANCE/N;?qPGX?S 'XSET-DECAW;7Xj@ 'XRESET-DECAW;7Xj@ 'Y100S;B7 @ '0Y100S;B7 @ 'JYSET-LN;7WPq Pq Pq 7WRA 'dYRESET-LN;7VPq Pq Pq 7tWRA (YCLEAR-TAB;AqP (YSET-8TA;qJq ;  A q Z (YSET-TA;?A  ("ZCLEAR-TA;?A  (>Z100TA;AqP ?qPGZhA Z?S Z (\ZREVTA;A ?dZxA Z?S Z (ZTB;IRGZHZZY (ZCH;R; cZ [ ([CB;R; Z$[ )[DCHA8[48R?J8&&&&&&@e@ee}e~}|*&|*&|*&|*&|* H|}Ƃ8}}~}|hL[@ %||h|}L[h惥С6LQ*0[ICHA[48R?J@e}m@~}|jf|jf|jf|jf|jH|}Ƃe}}~}|hJJJJL\h惥Ю@}@~@} }Lf\}-@}6LQ+[DECSy\?"@?4@A?F@T?X@nA?@@??@?A?bALQ+q\DECR\bA<"@?4@??nA@@F@A?X@T????@?ALSL]LT,\CHAROFF/;@q(]@ q JH , ]CHAROFF/;@qR]@ q JH ,5]EL/;%I 7I ,_]LINE-STAR;%Tx7@A ,t]EL;]?qOG]qPq@q d] ,]EL;?]?d]xq]d] ,]EL;]7@d] ,]ED;]@7GT^7q@q d]%TRB qq - ^ED;?]@d^qAd]RB%Thq -Z^ED;A7@d]}B -^EC;w\9VR; q Jj@^\ -^E-LIN;IRG^]_^]__] -^E-DISPLA;IRG&_^B_6_^^B_B_^ ._DC;R; 6[T_ .H_IC;R; [l_ .`_I;%T??xdR?G] _?? ??N V ??N_R?_] .x_D;%T??xdR?G] `?? ??N V ??N `R? `] ._IPCHA;[J .`SET-IR;7`y@ .%`RESET-IR;7Jy@ /=`SET-L;%TRB  /W`DHL-;^` /n`DHL-;q^` /`SW;q^` /`DW;q^` /`SET-MOD;IR[ [a`qOAUa`^AUUaqa-`UaqaETUaq&aUUaq7aYUaqHaSUaqUalY~` 0`RESET-MOD;IR[  baq[Aba^AUbqaG`bqavTbqa+Ubqa YbqaSbqbY~na 0aa52HV;Kq[ qG] 9b ?;b~Kq[ qQG] ]b?_b~S 1b52ESCAP;Kqob@ /cqnb@ /cqAbW/cqBb X/cqCbAX/cqDbW/cqHbT/cqIcudqc.Sudqc~qARudq d~qBRudq d~qCRudq6d~qDRudqId~?cudq `d~RAudqsd~Lud LLdpKqGdQdy@j@Kcc 5cRSNAM  <5dOPENRS23;d%~ 5d120; 5d30;q 5dBAU;dhq] r dh 5dSTO;xqdhq] r dh 5eBIT;qq dhq] r dh 5BeN; 5neOD;q 5{eEVE;q` 5eMAR;q 5eSPAC;q 5ePARIT;dq] r d 6e100R;>PY9VAU +U YG`Y}B@ S`A >NLvTYZq7wq 6eVT10;%ed7QPq6 76YPq NqO0AqOAAq[Ac 6'fVT5;%ed7pbPq6 7PYPq N0Aq?AAAc pfFO; -ff