Ë,Å, o g^#VFORT)UprppnpR{*4+p+q"4KB EXIQ*4N#F#"4 HUNNESQ*4+p+q"4  `U{,*^#V*s#r^#V ^#V* (LIT o g -BRANC`iN#F ?BRANC} *4"4 !(LOOP*44#4*4s#r!(+LOOP9*4^#V|L!!"-(DO6w%Bw%%%i"U(?DO6 ` %w%Bw%%%i"BOUND6di$>NEXԝ $EXECUT$zPERFOR^#V^#V͋$G$NOO# $PAUS2 %=*4^#V#~#fo %T*4@%((LEAVEl*4####N#F#"4 %`(?LEAVE|l &^#V &7s#r &Cn& &Cs 'CMOV`ix~#  'CMOVE`i + +x~+  (SP)!9 (!SP: (NRPI*4 (ARPY"4 )DROk )bDUy )2SWAЉ )OVEҙ*qTUC˪*QNIк *RO*-RO*FLIcj *?DU6wwi+R*4^#V#"4 + >'*4++"4s#r + R?*4^#V +PICT)9^#V +8ROL6%=R'wB4ii,ANċ{ozg ,Oҟ{ozg ,KXOҴ{ozg ,`NO}/o|/g ,TRUŝ,FALSŝ! ! -CSE~w -CRESE{/_~w -CTOGGL3~w -'OD!í-=OFV!í.Nf .NEGATy+.z/W{/_ .ABӞ|y .`+~w#~w ...n./2) /2|g}o /U2|g}o /8&))) / 16# /2D## //1S+ /=2a++ !)t)| l0LUMD}ggxDgJ Ulg0U*6i_|g{|g{)Ҵ_|g{,! 2UM/MO`i}||ejkW\a 30}30))3"0:|330W>o>g7 S>c !zn +79 DAB| |E 8s D2 |g}ozW{_8 D6C  i8[ ?DNEGAT6' C i9 D06i9 D6 i9 DU6   x  i9 D6R`7 ? ii9 D6 # i9C DMI6 H e i9R DMA6 # ~ i: *6 % i:M/MO6 w% %%z =' w Q=ii: MU/MO6%=%i; 6ii; /MO6%a  i; 6% i; MO6% ii; */MO6%  i;Q *6Y i<k TOӦ<A ENTR٦<v LIN˦<3 SP<g RP< DЦ < #OUԦ < #LINŦ< OFFSEԦ< BASŦ< HLĦ< FILŦ< PRINTINǦ< EMI= SC{= PRIO{!=. STAT{=H WARNIN{=: DP{= R{=f LAS{p=V CS{= CURREN{!= #VOCӝ= CONTEX{!!.> 'TI{> WIDT{>r VOC-LIN{L> BL{> >I{> SPA{>#TI{>! END{?B̝ ?9Bӝ?DBEL̝?CAP{?OFILr`ixʄ} x ?,ERAS6pi?iBLAN6>pi?\COUNԸ^#?} LENGT^#Vü?MOV6 ia{ @UPPE z~w# @HER6 i@#PA6*Pdi@-TRAILIN6w\r dQ>xQ^iACOMi`xʩ~–# æ!â! Ä! BvCAPS-COMi`x~O~# !! ! BCOMPAR6c}iCBDO&M&o CBIO?*BKP&o C4(KEY?6=OiCY(KEY60bz=iCp(EMIT60=i iC(PRINT60==i iDKEYbDKExDC D(PEMIT6w iDCRL6 (  ( T iDTYP6S( KiiDSPAC6>( iDYSPACE6 aiD6BACKSPACE6I( iDBEE6V( iEBS-I6iwQIV( iE<(DEL-IN6iwQI( aIV( iEBACK-U6iwwtiE RES-I6$ResetiEP-I6i( +w`imiFkCR-I6i>( iFB(CHAR6 ( d4iFuCHAFDEL-IFC{FCC{0}IGHEXPEC6wRnw>Vwdjw`hj. iiGTI6 iGQUER6|P"&T TiH'FIRSԝHvLIMIԝH#BUFFERӝHB/BUƝHB/REÝHREC/BL˝HB/FC)HDISK-ERRO{H>SIZŝ*H&>BUFFER6.iH4>EN6_iHKBUFFER6$?diI\FCB{D3WRDS BLKHICLR-FC6 w 4 iIrRECORD6 !diIMAXREC6 &diICAPACIT64iIBADREC{IIN-FILE6w'$ Out of RangeiIVIEW6 (diISET-DRIV6$iiIuSET-DM6$iiI]REC-REA68 !$ iIREC-WRIT68 "$ iJREAD-BLOCDJWRITE-BLOCsJSET-I6w diJFILE-REA6\`wdLiiJ8FILE-WRIT6 wB \wdi iJfFILE-I6DT+sT+ iKLATEST6 dw fO ifdiiK-ABSENT6w?f\{ `qwB `qw?w?wd?i wfjd+diLUPDAT6fdBiLDISCAR6fdTiLMISSIN6R_R R_T ?BR?d?dT?wd$iLBUFFE60GifdiL$BLOC60qifwdiMEMPTY-BUFFER6?4$f\d dd iMSAVE-BUFFER6f\ w4wdw wdTdiiMKFLUS6SiiN&FILE-SIZ6 #$iiNCPM-ERR6`iN`OPEN-FIL6 $k$Can't open fileJQiNuMOR6$iNwCPM-FC\NDEFAUL6y 4>xy iN(LOAD6% % T+ iNLOA O5DIGIL{0 a _OBDOUBLE6l 4OiOCONVER64w% J i  wl iiPm(NUMBER?6w4-`w%l w,/! l 'C >`iP>NUMBER6e; JaijKowiiP(NUMBER6="iP3NUMBEQ{HOL6  iQ<6: iQ#6 :iQSIG6'-iQ6   d0diQ#6 0iQHE6 iQ@DECIMA6 iRT(U.6.iRU6sCaiRU.6%stCiRl(.6w.iR6CaiR.6%tCiR(UD.6.iRUD6CaiRUD.6%tCiR(D.6z .iR2D69CaiRMD.6%9tCi S)SKIЇ`izʛ~v#ÌvS~SCAΩ`izʽ~v#îvT/STRIN6diT^PLAC6 4iT(SOURCE6S|&iTSOURCTPARSE-WOR6%* =i %4 iT0PARS6%* iw4 iU!'WOR6*iUWOR6=wd>iU.6){CiUs6){ iV63BiVTRAVERS> VDONE6P x33TiVFORTH-86iV>.VERSIO6d..CaiWON>LIN6_iW L>NAM6BiWBODY6_iWNAME64iWLINK6iW>BOD6BiW>NAM6QiW>LIN6iW>VIE6 _iW VIEW6BiXHAS= #~o&) X4 (FINDX |##?‡ #‡ j ###~@! ^#V|^ Y#THREADӝY" FIN6B T \ i ;dw wB B ` i ; V w iYM DEFINE6>c!w  iZ ?STAC6' $Stack Underflow':$Stack OverflowiZ$!STATUZINTERPRE6-! !!!w!i(!i[u!ALLO6 i[!6*!i[f!C6*!i[!ALIG6i[!EVE6i[!COMPIL6wB%!i[!IMMEDIAT6@ 1i[!LITERA6"!i[3"DLITERA6="="i["ASCI6>4P |"="i[!CONTRO6>4@P "="i\"CRAS6$ Uninitialized execution vector.i\"?MISSIN6"C$ ?i\"6 !"i\"['6#="i\ #[COMPILE6#!i\I"("6 d%i\3#(."6 d%Ci\I#,6"{4!i\ .6"P#g#i\}#6"9#g#i]#FENC{^]b#TRI6 \#  ##B# i]#(FORGET6w#$ Below fencew  $ $w w8$ #"$i i]#FORGE6>c_$w  ; V " #i^#WHERL^y$?ERRO$^#(?ERROR6$%% 8 T$ $aCa+$ i^$(ABORT"6=$d%i^`"ABORT6"$g#i^$ABOR6 8+i_$?CONDITIO6$Conditionals Wrongi_B$>MAR6*!i_S%>RESOLV6*i_$MAR6[%i_%?>RESOLV66%r%i_%? ; w*_*w 4!*Qia&CREAT6/'"{ib&!CS6' ib'?CS6' x$ Stack Changedib&'HID6 w ; ib&REVEA6 w ; ib'(;USES6 ib'ASSEMBLE)q::::)b';USE6'"E((#(c(ib;((;CODE6 ibq(;COD6'"((#(c(ib(DOES6"(!k!ic(6P TicW(6P B-! !w)8 ) )!%)iw!)T"%)i="((ic(6'  '((E(6c(6'"i#((id1)RECURSIV6#(idM)CONSTAN6'!E(da)VARIABL6'!E({d(DEFE6'"!E(d)VOCABULAR6' \)!)* ! (k id)DEFINITION6  ie)2CONSTAN6'!!(kO ie*2VARIABL6*(kie(AVO{!eu)COD6'(**_ V*c(ieEND-COD6V* #(if\*#USE{fO*USE)****m(fALLO6*ifCREAT6**!E(fVARIABL6**ifDEFE6*E(g2*>I6ww`w`iG+dI+ig)(IS6=+B%ig*I6P +"T++#+ih+RU6P +(P +!+!ihh+QUI6  T( Wo!+P +P# ok+ih+BOOB^h*WAR6$ Warm Startih+COL6++ii+INITIA̝i,O60,<ii6,STAR6;,ii+BY6*4^iP#Pages$i!,*."""4͓8" ͓!,,ѳp q{lM+DEPT6' ilY,.6,(-\$-,;QRa-1-P#Empty il,.I6w4w-w( w-_}-4wU- ail,DUM6\-wa\-w4-7-iim5-RECURS6 !imE,OCTA6 i -BASICӝ -FILE-INTERFACŝ -C/̝@ -L/SCҝ *.6 w$.G i 8.(6i .6i ].?ENOUG6,Q$Not enough Parametersi P.THR6u.4.;<.i k.+THR6dd.i &,--6 Ti .ONL ///0m@* ALS6 wB _i(kw Q d i 63Bi SEA6#  i =/PREVIOU6 wB _ _dTi FORT6i h/DEFINITION6*i K/ORDE6P# Context: \/w/;-B/iP# Current: ;-i /VOC6 w ;-w0ii .CP/)32 233/ FCB{Y COM@^^ Q0RESE6 $ii CLOS6 $i 0SEARCH6 $i 0SEARC6 $i 0OPE6 $i MAK6 $i DELET6 $i 0REA6 $i 0WRIT6 $i 1(!FCB6w w w4 %4:`1@=4\1w.`1;d1 441 i 0!FC6>c2 g1i 1MAKE-FIL61k$Can't MAKE File i ^1HEADE! F1SAV6 X011i2<22wN1k$ Write errord7c2i0k$ Close error i <0CREATE-FIL6u.X012w2;-20i /1.NAM6 $.2  :d4 CadCti .DI6 9# ????????.???X0g1:020wk@3i i ..FIL64 TCdP#.Cai V3FILE6 ^3i 2FILE6 '  *w !1 (k i B2?DEFIN6  !33i 3i 2OPE63 i 3DEFIN6 3 i |3FILE)4C4"NMM0 >FRO{G= EXCHANG6 =4 =4i 4FRO6 3N4 '4i LOA6 %=4 < i 3CPU8080.BL˺3CPU8080 BLK  G04LABE6'c(i04DOES-OН0C6*i04C!0!0 5?>MAR%0!5?>RESOLV%005?8IΠ608ADɠ608ACɠ608SUɠ608SBɠ608ANɠ608XRɠ608ORɠ608CPɠ608SHLĻ6"09CAL̻608LHLĻ6*09ST6209LD6:0v8JMл60?9JNڻ60J9Jڻ60U9JNû60_9Jû60j9JPϻ60t9JPŻ609Jл609Jͻ60)9C009C0<09Cӝ0490090<09Pŝ090090>09NO6i09NEX6E9i08MO6$@dd5i0:MV6$d55i09LX6$455i06:I65*5i0N:THE6<5i0b:ELS6g: x:i0 :BEGI6K5i0:UNTI65]5i0:AGAI65]5i09WHIL6g:i0:REPEA6 :x:i 0d4BU)/\&;[\14 0SSU{}o|g 0 2 >2 >o2  0;DNEX{ o g^#V 0j;DNEXTz; 02;'DEBU{7\ 0;DEBNEX{PY=;;:;<2;;2;X;*;z;t; 0;PNEX;>2 !;"   0:FI;X; 04(PAUSE <*4!9*s#r##0;RESTAR*6i@=<6i@=>6i@>0>6'i@0>0<68i@@>HIDDE)ZNUYX;@!>>TYP6::Ci@P>LMARGI{@g>RMARGI{F@=?LIN6 d>>>ti@>?C6>i@>LIS6u.w4 P#Scr # w2.\'?;awS;$. d$.To>?ii@>TRIA6 ( 7  \W?;>O?i@>INDE6u.4\?;a;S$.To>;G `?q?i@[?IN6wG ?wawS$.To>4?ii@/?LARGES6\@  @ wB?ii@>WORD6>t * * ?wg@ww>;-aac@O3@ i@/WORD6@i@@#TIME{@?TIME6@@@@@ Ti@?MAN6@ Ti@}@WHE60@%i@>64 i@@64 i@@64 >i@@ESTABLIS6fi@A(COPY6 dSi.Ai@@COP6.CA.i@AVIEW-FILE{] ^4E=E{~]]4Q=^A@bAVIE6@lAVIE6# wA7 QyAd>i @:AHOPPE{ @"AU/{ @YACONVEY-COPCA @AHO6Ai @A.T6P#to wi @ B(CONVEY6fBwwAd!BBAdJB.i @ACONVE6.A'B4Bw4A% %BBBBBBii @7BT6>iBi @COP6N4SN4Si @BCONVE6B%BT+BuBBi @AUP6waz! BC>i@&CINSER6%=w=di@BREPLAC6i@BDELET6%=w8C w=ddi@qCFOUN{@lBSEARC6CT% C D4D  DCBj4CiCi@FCAO@CBLO5O@%D-LINlO@CDARXDTO(k T Ti@=DEDITO)QsP~OKc>@.SCREEJ@(AT6 i@D(BLOT6$.ti@D(DARK6\DDi@C/SCҝ@DTO6w Ti@D6w dDG w i@D6D$. Di@DCURSO6w i@ ELINE6(E$.7 i@ECOL6(E$.G i@FE+6:EdEi@YE'STAR64 Si@jE'CURSO6sE(Edi@E'LIN6EMEi@E#AFTE6$.MEi@E#REMAININ6(Ei@E#EN6EMEdi@ECHANGE{@MODIFIE6EBi@EEOӝ^@E?TEX6%FCF=$.4*=i@FC/PAĝT@KF'INSER6:SFdi@YF'FIN6cFSFdi@oF'VIDE6wFSFdi@D.FRAME6P#'CP#'i@F.BUF6P#I cFFP#F wFFi@F?MISSIN6GiwFFP# not found +i@FKEE6E$.cFi@G6wF:SFcFwFSF:cFSFi@G6i@^( EEo>i@CJREDISPLA62J=Jd *D2J7D*Dw$. sEd$.Cai@JCHANGED6$. wsEdFd$.}i@kJ.AL6*D4 a.t3t2.\K;JJ;wJJsEF*DKJ*DED*D Ti@IEDIT-A6(E$.% 2Jd=Jd*Di@JNE62.\K;E7K T{K7HK;wJjDaKDi@JGET-I6GKP#Enter your ID: G\K.( KGGG"i@QK>VO{!@-KQUI6T+o!K i@KDDON6K4 E"LP#UnP#modifiedG@Gi@iDE6KETRD2J*DP#Scr #4 a.sEF2.\L;=Jd*Dwaw$. sEd$.CafL*DDT+o! KrDi@5LEDI6u.4 D:Li@L(WHERE6LDi@CSHADO)L MM4[|D@DISPLACEMEN6i@1SHADO6i@>SHADO6MM&>=M?Mdi@L64 )M4 i@C64 w)MCAGMi@WMCOP6 `A)M)M`Ai@nMCONVE6 uB)M)MuBi@M6 H$.wDGM)MHGMi@MBRIN64\Mw;MMii@B6w %4 %E4 N4 G4 w N4$.wDOH$.Di@54BRIN64\>Nw;M4Nii@8JH19-A6( Y(  d(  d( i@DNH19-DAR6( E( i@oNH19-BLO6i( K( i@NH19--LIN6( M( i@NHEAT6JT+DMNT+*DzNT+RDNT+EDNT+7Di@KFDP-A6( =(  d(  d( i@NFDP-BLO6i( T( i@*OFDP-DAR6( i@IOFDP--LIN6( R( i@`OFALC6JT+DOT+*DTOT+RDlOT+ED5OT+7Di@NTELEVIDE6Oi@KQUM6Oi@OANSI-A6 ^( [( 4;( 4H( i@OANSI-BLO6i( P#[Ki@PANSI-DAR6( P#[2Ji@6PANSI--LIN6( P#[1Mi@TPANS6JT+DOT+*DBPT+RDaPT+ED#PT+7Di@OPERKIN-A6( X(  d( ( Y(  d( i@PPERKIN-BLO6i( I( i@PPERKIN-DAR6( K(  \2Q( *Qi@QPERKI6JT+DPT+*DQT+RD!T+EDPT+7Di @6QDUMB-.AL6KJi @mQDUM6yQT+DDT+*DDT+7D!T+EDDT+RDi"@0D.6Cai"@LD.6Q;QQi"@CMEMIT6w>~! Ri.( i"@QDL6wt QadQa[R;QQRi"@L?.6 `zRP#\/i~Rai"@_R?.6 `RP#ViRi#@Q.HEA6wt\R;eRRa\R;eRRa\S;RRdi#@RDUM6 FR\3S;!R7'S i#@SD6w@S@di#@;SD6$. 4 Sd$.Si%@ROU6P#Subscript out of range on w;-P# Max is a.P# tried +i%@QMA6 SBdSuSi%@oSCASE6)(((kSi&@SASSOCIATIVE6)(kww\FTB `BT i;j*T i'@TS(SEEX'@.WOR6w;-Bi'@ZT.INLIN6bTwBi'@rT.BRANC6bTwBi'@T.QUOT6bTbTi'@T.STRIN6bT Cadi(@DOES6wd4`i(@T.(;CODE6bTTUP#DOES> Uii(@T.UNNES6P#; ii(@U.FINIS6bTii)@EXECUTION-CLAST7\"P#$(i9#E(*@8U.EXECUTION-CLASS|TTTTTTTTTU)UTTBUbTi+@U.PF6>w`UUwUii+@U.IMMEDIAT6@ VP# IMMEDIATEi,@U.CONSTAN6wa.P# CONSTANT ;-i,@V.VARIABL6wP# VARIABLE w;-P#Value = a.i,@7V.6P#: w;-tUi,@pV.DOES6w;-P#DOES> 4Ui,@V.USER-VARIABL6wa.P#USER VARIABLE w;-P#Value = +a.i-@V.DEFE6P# DEFERRED w;-P#IS +TTi-@V.USER-DEFE6P#USER DEFERRED w;-P#IS +TTi-@ W.OTHE6w`W;-P#IS CODEOw`WVO;-P# IS UNKNOWNi.@TDEFINITION-CLAST6{.@WW.DEFINITION-CLASSuVVCVVV.W`Wi/@W((SEE)6wwWWUi/@SSE6#TTi1@TEPSO6( i1@&XINIT-P.X1@LTLOGϝ1@JXPAGE{1@WXPAGrXX(k_X T Ti1@RFORM-FEE6 ( i1@SCR#{ALLOT XTEXT1@WPR-STAR6 B TT+( XT_XDXi1@XPR-STO6T+(  Ti2@XTEXT6Sw>~! ,YTO.Yi2@YP6XXwdi2@W2P6wa$. %:S=d:$.Sd:$.d4$.:TCi2@OY2SC6t=tw\Y ;UYY i3@2YP-HEADIN6tP#Page# _Xa.t3i3@YP-FOOTIN6:tP#Forth 83 ModellXi3@ZPR-PAG6YXTXB\vZwdYB`ZiZi3@BZPR-S-PAG6YXTXB\ZwBYdZiZi3@~ZPR-FLUS6XwZXZ7YZQX7YOi4@XSHO6X4\&[; Y[;7YX`"[LZ[Z.[LZXi4@MSHO6X4\m[; YY[;7Y;)M7YX`i[ZG[Zu[ZXi4@eXLISTIN6Q;[i@XBUGGINǝ6@{[TASKINǝ97@;L.I6w;-wQdti7@;SLO{7@N;RE{7@[(DEBUG6;B,; ;;i7@['UNNES64wi`\i8@[TRAC6%, [[\[T[TP# --> ,CC`\[[F`\i+[\Q`$Unbugi;i8@[DEBU6#_w\[i8@[RESUM6[B;i:@\TASK6'| *** I