(2063)LLQ  d<t%/ e6(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$d/DEFINITION; ?;q)R+ YRU;    hQUI;   bl 3  OK ABOR; STARTU COLx 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/#Lu0ASSEMBLE$5;9XSAVu!0u-0Uu50Iu>0u|G0POuW O0POPTWuU Y0PUuLf0PUSuJp0NEXuQ{0SETUuy0INDE    ,0MOD 0.;0 0;0 0ME;0 0,;0 0,;q0 1X;q0 1);q0 #1;q0 31BO;0 B1SE;0 P1RP;07 ^1UPMOD;10q] 3 1q00q] d 1 1mh] 3 n1CP;NLu0 1BRK11CLC11CLD11CLI1X1CLV11DEX12DEY1 2INX12INY1!2NOP1+2PHA1H52PHP1?2PLA1hI2PLP1(S2RTI1@]2RTS1`g2SEC18q2SED1{2SEI1x2TAX12TAY12TSX12TXA12TXS12TYA12M/CP;NLuhq] 2q0m7] u1u1)30 3HAS INCORRECT ADDRESS MODE00  0q] `30q] qG^3`30 2ADC2`nf3AND2 nr3CMP2n~3EOR2@n3LDA2n3ORA2n3SBC2n3STA2l3ASL2 3DEC2 3INC2 3LSR2A 3ROL2! 3ROR2a 4STX24CPX24CPY2&4LDX224LDY2 >4STY2J4JSR2V4JMP2@b4BIT2 n4BEGIN; z4UNTIL;  h 4IF; 4THEN;m44mh 4ELSE;hg4mh7 4AGAIN;g4 5WHILE;  4 )5REPEAT; g4 4 D5NO;q d5Cus50u|50u5>u5VuP 0END-COD;$ 5COD;00 5;COD;$N0 5PRINTEҰ/65NOPRINTEҰ/:65L; / 0%&0&&q 6NL; / q A&0% 66?KEX6 HLJQ6PAUS;V66t 6 6;6G g6EDITO$HE06(LINE;/6A&! /60&~ 6.LIN;6 6LIS; SCR #*q;  * 6 %7 7 6 6.INDE;/@7A&($!#R7'/`70&~~ -7INDE; h;  q*q *  47m6 7~7 n7.VERSIO; REL64.1.1.3 7TITL; q *BLAZIN' FORTH '85 VERSION 7 -- OK TO COPY, NOT TO SELL. 7TRIA;`  ~m ;  6m6 K8;87`qh 9DUM; $;   qy+ *q;  *9~q q;  *:~ *q;  q Gmq~dr \:~q. ;:~m6 q:q 9~  9PAG;q `  :EMPT;qU75qUqUqU :DCLOS;q %q% :RESTAR;: :BY;:7 :MOV; ,.);W -;" ;>DO;q%qqm%~q&~ 1;DOS; u;6;0A&;q"_/6;A& X;M; ;M*; ,   m 0     ~H ;P ;CURSO; LU ;CURSORPO<ʆ8 HLJ NOT ENOUGH PARAMETERS = ='TRAC ?>IP E >;NEX.>hhhhi慠L&>NEXTT>\]^LQL>>NEXp>L\]^LW h>ń>兰)">ń#>児ʥHH>>LL:>>ID.;mx * >'EXI;h7 > >CO E ?STE;R> q >D9 qmO?? ~ P? bl P? ?;?qmn?~  TRACING OFF~>n>,> ?TRAC;R>*(s= 3 CAN'T TRACE>> >>n> z?NOTRAC;R> TRACING OFF ?CON;?  ?EY E ?'UNRAVE =?LOO ?? ??L:>??LT>?WATC;???@hh@q @n> $@LIN;7] 3OFF EDITING SCREEN6~ Y@>VIE;/ @LOCAT;*(@3 m7dr 3 CAN'T LOCATE6 @-TEX@ y~|HLJ~~|L@HLJ@MATC; , m,m ; , @DA +   HA A+3  9#LOCAT;7 TA#LEA;\A^@ jA#LA;pA   |A>MOV;^@" ABUFMOV;Ah" A~ A>LINE;\A~ AFBU;qU AIBU;AqU A(HOLD;^@AhA" B(KILL;^@ #B(SPREAD;Axq; ^@ hA; NB*B 8B;A Bqd B h^@ AyB*B dBPOIN; pAq^ A\A*~ B;7B B;6 B; B;; B(TOP;7 B?SEE;CB;3 NOT FOUND B(R;AAhA C;q^_/AA C 0CWIP; l!7 CC;HC bCCOP;!ml!7" ! ~ lC1LIN;AA A7 C(SEEK;77GCCC C(DELETE; A  A 27pA "  C(F;q^_/AAC C;CB D(E;AC D;DB $D;C&D 0DTIL;pA q^_/AAC3 CpA CB ; ,GHr 6H(IN$TH yȄ{}}т|{HLJȄ}LH{~HLJ{}L`HLHIN; ,}F}F ,] 3 ,G ] H++H h RH HVALUE; HINPUT;hqPX&F HSIuIVOICuINOTE ~ԏ.I3CONSTAN;NIȱHLJ@I2+VOIC;qNI ȘeHeLJeIC+VOIC;NLuI IOFFSETVIIWAVEFORVIIOCTAVVIIDURATIOVIIRESTINGIISUSIMǡIIRELIMǡIJATTIMǡIJDECIMǡI#JTRANu1JTIMExIJVOL.=JMAAZE REMJREL.TIM YSZJVOL.MOD IRiJRES.FL xJSYSIR 1JSETIRќJxJJXLW JGATEOF H EJFJ1EJFJEJFJhIeJ II)LJhLKhlJJSTART.IR;JJ KEND.IR;JJ K+VOIC;I I 4KNOTEQK &I'II0VvLdKLW IKTEMP;TJqKcJ sKNOTE.LE;IqKTJCJ KTRANSPOSżK9JLW KPLA;CJ3 KGI7J q I OK;KIq;KK KMAKEWAV;NIILQLMAKEOCTAV;NIILQ!LMAKEVOIC;NILQCLMAKELE;NIILQaLMAKENOT;NLuK LTRIANGLLLSAWTOOTL!LPULSLALNOISLLSYNCLLRINLLOC4LLOC4LLOC4LLOC4LLOC4LMOC4LMOC4LMOC4L"MVUL+MVUL3MVUL;M1/3qLCM.1/3qL MM1/1qL XM.1/1qLbM1/qLmM.1/qL$vM1/qL0M.1/qLJM1/qL`M.1/qLMWHOLqLMTRIPLE;I>7II  M;CJ3 M;Iq;KK MTI;;ICJ3 NGIK MÑLNCLNđL%NDL,NőL4NƑL;NFLBNǑLJNGLQNL YNAL `N‘L hNDߑLoNEߑLwNFߑLNELNGߑLNAߑLNBߑL NATTAC;J*Jr q;K NDECA;*JJr q;K NSUSTAI;JJr q;K NRELEAS;JJr q;K OPULSE.WIDT;;K 8OMOD;NLurJq] r rJ Iq  POHIPAS]OOOBANDPAS]O/OLOWPAS]OONOTC]O_OVOLUM;rJq] r rJ Iq  OFILTE;I3 Jr J Iq  ONOFILTE;qI3 J] J Iq  PRESONANC;Jq] r J Iq  8PCUTOF;q] Iq  Iq  jPV3OF;rJqr rJ Iq I>MP7I POSC3;7 PENV3;7 PMUSIC.O; Iq.M7ICJqJJ*JJIKrJ J K PMUSIC.OF; Iq(K AQPENSTAT ZQTURTLESTAT iQGRAPHIC {QMULT QHEADIN QQPE QGBAC QXCO  QYCO  QSPLIT QSPRITE QL LEQR LEQL LEQH LERW LERW LERA LE!RPu*RPu3RMOVEuU4Q ULVͪQ=ULVQ U6`EV(DLINEV y R|}|}0^ORe~ORPRePReeeeLWeeee8OR倍ORPR偍PRLVLU VSINTA ;Xw  6 N f{   !"#$%&g'F(#))*+u,A- ../M011n233m455E66l77899:v::W;;$<<<4===>\>>>?6?a????????@&WSIWg 8hɵ鴕ȘH[ /Wȹ/WhL4LQWCOAXZuuLW;XSGXX0 HLLLJ RX?DNEGATwXLRLW lX/COҌXH XVvvhL4LQXASPECԽXH :ʩՕ h :8ǕL4X(G$X y *UL >U4Q Q1~` ) `)L3Y )? & & & Ѕ6i~|}||}АLQXG;X7] 6R7] -R YXY+ wYTPI 8 eJJJe)~RU~R`YSPRITEPOY yHIh 8||}||~i~i~~Х UL8Z=UЦLQYTCO;m   d- uXX BZDLIN;6R-RVX VX  ,dZ  BRBR Z ,GZ BRBR m,m2MRV gZSIN12ul7ZCOS12uZDRAW-TURTL;|Rq@YRhq QWGZq -Rq Q?XGZq 6RmZGZmZGZ mZGZmZGZ mq mq mZq q mZmZGZmZGZ ZGZ ZGZq q mZ q q mZ|R7q@q4" q6JVRh ZTPO;qQq qQXY [TSE;uQ`\Q7.q7m] 77m] 7q47q6ZWRqr 7WR[ [S;Q\q7 AS77Q d\F;Q\7717q7 TQ7  \NOSPLI;Q \ \HRB\4Q|؅~}})|}~})|}6LQ\B;q] QQ L]Q7 7!Q X]\ "]P;cQ \]P;cQ i]H;uQ WRq] WR7 v]S;uQ [ ]N;\SQ ]P;H ]~QQ]q] Q7. ]P;7] ](SETXY;Q-RQX6R ,QQcQ.^XmZ0^+uQ:^[ ]SETX; ,7 mR,7 aR,^ >^SET;H w^7h 7hTQuQ^Z b^R;Q g^ ^L;2^ ^F; QW  d-  uXaR, ,aR,X Q?X  d- uXmR, ,mR,X^ ^B;2^ _RESWIN;q$RQ R qȟRR7@QRqQqxQ _(RYh_ ULt_HLJa_(TX_ TL_HLJz_?WINDO;_];3WINDOW OUT OF RANGE _R;f__ _T;__ _HOM;QQ $RD^g^ _DRA;Q S7!S7#__:.TTQ2`g\q;[ _SCOLO;Q ` 8`DCOLO;Q ` K`SETSHAP;q@7r q4qq@" q6q ^`SPRITEO;q@7r q4qq? 7Q q6q`7UQq r a77UQq ] 7WRUQq r WR7 `S;NLuQ -aS8aEaS8aMaS8aUaS8a]aS8aeaS8amaS8auaS8a}aSPR-DCOLO;7&7% aSPRITECOLO;7'Q  aHIDESPRIT;WR7UQq ] 7WR aSHOWSPRIT;WRUQq r 7WR aSPRITEX; Q qqY 'bWIDE-SPRIT;7ybUQq r b7UQq ] 7 JbHIGH-SPRIT;7bUQq r b7UQq ] 7 bSPRITECOVE;7c7UQq ] $cUQq r 7 bSPRITEBAN;7Qq U ] .cDATABAN;7Qq U ] XcWINDO;+m X6R_ RX6R_hR-R_hQ-R_QQQRR RR $RcQ_]_cQ cNODRA;] cFULLSCREE;\ dCLEARSCREE;.T !dSETHEADIN;g^ 5dHIDETURTL;y] HdSHOWTURTL;] [dRIGH;^ ndLEF;^ |dBAC;_ dFORWAR;^ dPENERAS;] dPENCOLO;] dPENU;_] dPENDOW;l] dBACKGROUN;%] dSPLITSCREE;g\