FORTH-79 S.E.F.I. 1.0gdcc62~yK+,O-bA12;;00.(,h 3K74~RDY56~PICRi/ XI6~ROL`/4`XI3ˮBb&5`~OVEyB6~SWA76~DU6~RO4 76666 5 ~DDRO3D~DDUĮB6~~C$O~2B3D~C,BC3D~+;R~DEPTKf0^6CSDV6~AN\7A~Oy7A~XO7A~SP06~RP6@~0hY~0&\~NO0,\~7.Z~U-7"Z~&B7'Z~<Wd6~CMOVQh4`/ BD1?&5`3F~1^lA&l~1ă~2~2ă~2hAi~2gfA~7~DBFFEDD3D~NEGAT~DNEGAT +BBA~UEAC=mB=kA=llkkC=llklmB~U/MO>B% DB3B~kB$k$BiEiDiCiB0&fBfC776~S->xm*6~RP^P~SP^R~DIGIC0+ % % A$ CA~3B_ (FIND54 70_?&"\H&$16 O665 ~%\*\& (CR*{   & Y'  ~(KEYr]'&[&]' 6 & ~]'K& (B& A& H& C& {&ƙ k]'a&Ɓ .c&ƀ &e&ƅ i&Ɖ o&ƍ u&Ƒ n&ƕk~(EMITM7$  & ~% kk& Kc $a 6$e ,$i "$o $u $n { "@ H ?TERMINABܽ]'6~INKE6~ENCLOS 4 ABo^o\_ 1!\&ll^l\'Am& ]\&l^_ 1!\&l^l\' m&_] _\&l\]3\5 ~TOGGLk3D~~; 5 ~   U a^BAS (>I dFTI nWIDT xFENC D VOC-LIN CS BHL DRP PSP R>OU N?DU    D @ +p    + + AB 7 < D+ H) M VI N NCW \  h m MA  MI   DAB  \ M II 1 NW1 <W < /MO IW MO      */MO I mW *  ( M/MO 4I 1WIW HER C   h^S-g+  ALLO a p P   h0  C   0 EMI    P KE   B  SPAC  SPACE     BLANK   ERAS (  COUN 9" TYP I  #"  PA ] h^T HOL ^ P @ (." 1 QWI d ER UKESDFBANUTBDRFSLOCOXOCDUFPR DL I>VFIOMESSAG ^  " Q d ERRO  h Q d  ?  ERROR  t j `]"^  ]^ i ?ERRO F Np TRAVERS ^" NF ^ /^ CF  LF ^ / PF   ^ ?COM  `^ COMPIL (WI LATES8 T (;CODETW] 0 g `0 ^ `0 DECIMA^ 80 IB h  ?PAIR /^ THE(  h /0 ELS Bp h    DB h $ BAC h / LOO* $B1 +LOO; $B1 /LOOP $B1 BEGIf( h  WHIL| UNTI B1 AGAI Bp1 REPEAIIWW IN j 4p ~ t WOR   h0p, tP /I1 h@ hW^ ^ f h ?WOR "^ h .\^" `B " p Q d IDv ^ ^_ /I 1f W"^@ d FIN  p CREAT   ^  h"   ^i h^i] T0^ ?EXE `^ !CSY 0 SMUDGo]^ i av T F0 q4 1~?CS  /^ B  ^)d IMMEDIAT]^@i DEFINITION F T0 B EXPEC# pf  ^@(WI( ( pIp(^ @; p #0 [COMPILE, QUER ~^P5 t0 W LITERA `B^ DLITERA ` DP LCONVER*I" 8, 8C 8C0 0PWpW (NBR4 "^-@I^00>" &"^.@ 00>" " @ @ W) NUMBE $ -FIN  F3   C) h@  DOES=Bq^~BBh 4 1#06~a`VOCABULARNz^ @^  ^v0 v0z0 h  0q~hv F0 FORT~S  R  ?+  ^ab+^ (INTRP  ` p p h0ppĉINTERPRE1^ QUI{ j0  `  OKp(ABORT"C, ABOR^  FORTH-TO7 VERSION 1.0 'COPYRIGHT (C) 1983 SEFI/TO-TEK EDITIONS  5I^ -^<f^\v^f-g-[0-g-0^`" 3? COL^ SYSVE7^6~&(* 2"$ 0.,46CONSTAN q6~VARIABL q06~^6~-TRAILIN $ " /;p  8 K^ ^^0 #>B <h 0 #}   / SIG^- STR m USTRm D.d $  IW /  d D   UD.d $  IW /  d UD" ) U.EI W UU  .gIW x FORGE-  +^ ^ae+^ I 1+ 0^zPpv1+ pv0 W 0 EXIB  MOV. f HE=^ 80 CARRAP q~h ARRAb  q~h CTABLz q~h" TABL q~h ?FIN SWAPDRO BEL^`3 *N^1*^5*^8*^=**N CAS( v^ (OF"B7&'3B1"~O9^B@ h ^ ENDOR^Bp h  ^ ENDCASo^B @ p 0 (GODO7XI*k줃k$k!10knGODB h  DBԮD3F~D+ԮĮ6~DSWA$BĮDDBFFB~DOVE8_DF6~DROU^^ DCONSTANh q~h) DVARIABL D) D0 D DMI]] @ DMA]] @ DUII^WW^ UDN?kAE=mAD=llkkE=llkkAC=kkD=kkA=kkC=klBmD3B~DN6I NI W=W) D $gI  @ NpI W=W)  = =_006~RN NC ("1 QWI TEX% 5 1 Q @  fp =^" `B+" pD Q $p"  $g@f STRIN  ^ B B q~h Q ARRAY B B q~h"  Q SUB$ f "!LE7 MLEB" MIDN I  W p   /W IW RIGHT_ /^f LEFT f $4 k7B& B'ĮD3Fk65 ~ k 呂&Z& k9$ 4 kBF' B#B'3Fk65 ~ k 呂& Z&_C"9" k9$I"1@ Wp$1" @W^f) CHRL @  AS" VA"^-@II 1f W@ 1>W) INST4 k'/B%+lmnBpDq k& l+n1!nqp 3F65 ~ml\ LINPUT 5 "p@ Q INPUT J^P T LINPU ~ T INPU ^P CL ^ 0 HOM ^K 0 CSRO ^ CSROF ^K !~!~^ad"!p! ^K GLOBA  ^ad@ LOCA!6 ^ad@ LOCAT!K!,^@K^@K 0 WINDO!_!, ^ ^ K^ K!,^ ^K^K SCROL!! ^np^jK PAG!!^kK ^"^ PAL!! ^aC@ DAR"  ^aC@ INITSC"&!S ^! " % !"- PO"9^` " CSRLI"a^`" SIZ"s!^LK^aY@ MAS"!^XK NOMAS"!^_K SCREE""ڦAB03D$'O6~$K&$ƀ B& $A& H& C& {&ƙ k$a&Ɓ &e&ƅ i&Ɖ o&ƍ u&Ƒ n&ƕk CHARTA" ^ q~h^`-0 DEFG#`^ /^ ^`-^#@ IN# ^a @^aA"^`8@ PAPE# ^a @^aB"^`8@ BLAC#RE#GREE$YELLO$ BLU$MAGENT$$CYA$/WHIT$=COLO$H^aC"^a " ^xp^Pp ^pp^@!K GCOLO$T^aC"^^a "^aB@p^aA@^`8@ INVCOLO$!^\K COLORO$!^iK COLOROF$!^hK FRAM%%/ƀ C&`~PSE%%%M4 7 7Z\5 ~LINET%D%k4`7 7Z\ 5`3D~LIN%`@%K%i BOXT%^aZ^a\II%K1%iW1%iW%i%i BO%@%K% BOXFT%%4`ĮBkm\%+\Zm \1!\k#k\mZ5`3D~\Zm \1?\k$ ӄBOX%@%K% POIN&8&S4 7 7!,65 ~INPE&I&u4 $66 5 ~PTRI&k&Y6~INPUTPE&&&s PE&^ ^a I^ ^ 10^1 $01@^W^@ BOXPE&^ ^a I@ $g@^g $g IW1@101^@W $0 ONPE' ^&pz^a ^0# $g P# $ >#" .#^" #^a /^ ;^ STIC'j( 7'6~BUTTO(('7'Y6~MUSTA(  q~h^aW0 MUSBU(9^aW >MU(]^aW^ >MUS(r(fP pitc((yI^ 1@W@ ( du((yI^!1@W0 $( tem((yI^"1@W0 $( )A$/@'XJ ~oc((yI^#1@)W0 $( d)$^1(y@ ( r)F^3(y@ ( m)[^5(y@ ( f)p^6(y@ ( so)^8(y@ ( l)^:(y@ ( s)^<(y@ ( do)^=(y@ ( paus)^0(y@ ( .)(y"@ .*(y"@ PITC*^`5@ DU*6^`30 TEM*H^`10 OC*X)^`60 NOT*i*7~PLA*{^aW^"^ @"^`5@pr^!@^`30pR^"@^`10p2^#@^`60p *(y@d INITMU*^aW A RS-+C^6^`D0 RS-+e^ /^@^@^`F@ (PIO++&`+Y`~& & &@ &  ؇(PEMIT++`+7$ Y`~&c $a $e $i $o $u $n &{ (PCR+^ +^ + (PKEY,G,j`+6I`~ ^ @ PRINTE,_,}@ + $+1 ^a=0^  0 ^a?0^  0 CONSOL,,} +^a= 0^a? 0 (GPRT,^^`G@ + $+1 ^+1 SCRPR-^  US->TFIRS-U^aD LIMI-_^aF B/BU-qPRE-VOFFSE-#BU-^aH" SC- D-ER-`DM-`DNA-`I-^ PUT-^ GET-^ (KIO. .*' `.K~`&` `.K 4~`''!'0C}5~U' &J,0o%Ͻ/U%ʍ%]&% .p%/v &&J&덭%/v&ʍ%/v&%/v&%J&e%&p0o0oO%H%'7&ۍ:%ZO/%O1?&#%&0 ' a~.l0 ~%&J&%\'&%<&945U'Z0V%_%ڍ%O憍%L %덞%ٍ썖%э%ɍ_%J&u%0d0 &T`%M%G%/vO7%/v1?&*%Ӎj &%%%_% %I%~.l~ ' '% % J&%<94)%)54)%)54)5(KEMIT. 0`7.K~(KKEY00`.K6}`&`~MOTORO00`)~MOTOROF00`)~IOER0-"^ FNAM1-^ 1^ f FNB1I -Wf FTYP1=1d7`~FASC1Z1v7`~(FR/W1l+ BLOCK DAT1#^1D 1b^1t p --"^@ - 1p21 - .#@p#"-1  -1  +BU1~-^-y@-g- / (KBUF2-[I2-[0101-0W R/22^  (KFLUSH2_-I111^ 11^W0 ^^0@ SKI2s+ 1# .(1 SKIP: -^ d 03 1 p .( SKIP2  2pB + BLOCK DAT If1^f2-^ 1W SAV3 h 0+ DICT FTH1#^1D 1b 1t -1 ^b^a#"-1  h^ae#"-1  -1 EO3r-"^@ RU3+ DICT FTH1#^1D 1b 1t -1 -g^.1 #@^ae.31 @p --g^a^f ~^P A? BUFFE3^  BLOC4o-I-1 /0214x1 2e1 /-0W BBLOC4-I-1 /.214x- 11 /-0W EMPTY-BUFFER4-g-y / A- ^^# -g0 SAVE-BUFFER59^ LOA5s jI tI t0 j0W t0W j0 UPDAT5-^-0 79-STANDAR5^ 0 C/58L/SC5:(LINE624p45 5 .LIN66 d LIS67 -0 SCR: l6   #-6?>'; MAXBU6I-y ^ /-  BUFFER6  6 - -y /^aD05I-g-0-g-[0^aH@ EDITO6LaaIH6aKV6aMTP7aOT7aQX7aSN7$aUL/S-7-6  (LN76-6 L7H"|7O ?FUL7Y7>7O R7f77 !h L7z !h7O d7 720 BT76 "| #!h7^ d7 720 A7 7 7 7> 7 07 7 5 707 V77 7 V8 7 7 H877 H8/77 CC8@8 7 T8Q"g^ /^7 <8a"g^ /7 7 7 W867^"g@ 8475@5 I8 7^5"g5"g /@"|75 DC9 7^"g5"g /f@"|75 (LINS9A7>#7Of^5 (LDEL9s7>#7O /f7>7O 15 (LCOP97 5-g+7^7 f57 Pp LCO998W LDE:9"|97 SPLI:"|7> 7n p,9|7^ 1"g /II"gW1fW 17 GLU:$"|7>7O5"g / 7^"g /I"gWf97p LN:t7 5 /7+7n p"|9|7^f7 07 ZT: ^T7 070 BY: 7)0 ! R;-4 70 7 07 720< B;--4 70 7 07 720< RA;T -4- 15 7 7 720 B;{ -P2;Yp;2 B;^-P2;Yp;2 BL; !-5; RNE;^-0--[0;2 N;72720 7>!h$ SCR :-^}$7p7>7 HCO<, -6P, CM a?STO>  @ 1+>>Cl&l~1->;>Vj*j~VLIS>N5 0 F5  /"^^  >' DUM>a 8IV #^[ :#^##" $}   #^##" ^. >';^ W 80 .> PARAMETER:+ p RETURN:^+l p ONER?B^0 AUTORU?^0 G?^