e  %`LLS^u~||2=B*H˱ʕhʅΈʅiʐLq|"dH `yN(LZ[͵L2~/4{eHȱe˅hLDY"-T@ȔiʐLBoXT#Ѻ hhhhL1E4ѵHH}h}hLQ-Kd>IHѺ}h}8LL ,L=HHHHLB} 8ѺHL;ʟѺHL;9YTuԵ800 08 0  HL=HL=A?j  jѠQ)?,ȱQ "ie•eÕ•L ȱȱªȱ…ÆжѩL (g]i"i  j8ȱLBLBwL] LILٟ HL=ITy5c"Y-̮ 6SQ :hc"=  jLBƑL :3e   j-eąĥeŅeƅƥeDžǘ…LjLBƑL: ”Ô666uu S`& U LB4  *66LS66Lj;đ 5H5L= HL=; UHUL=hh cL  HL;  - ϪLB X% = ѠϪLB95 Q hhLBqje{J d ѺLBIZ  HHLBFx hhLBҊ ѺHL;P ȔLB ȔLBY *LB' G L  uuLB  uuuuL*%<0 A G LB8`.9Gv7 ^ 8 H LB6,S x HL;csgo o5SЀ HL=}YЉ HL;E uuLe.c!Ų UL HL= LB Lb % L D   ybHHiʘe΅LB, D >O vTO 8vcIz@Y D yvʠ͕L@>+Q_9V a yrY "37# $ #7 &S (ET * ,: .E  0G(8LBD1HLB(AZiLBHa gLB8PIȔ`[ LB8Lp1~ L = gL c1ԣHHhL=Iyv԰HHhL=Fp_2D  O &gL LB+osD v bv _ O "j)ujD  O R@D bO D6SD mO xibD b(%O },nD %b O +t9ЃD   O pGTҖD  O O^"?ЧD  bO q 8 D  bO Y 8D bO L'D   bO .xR+>@D  bO = 8yL D  X} O 4D  O PD b O %7b^D Ib O # mD b O (W9́D b  O qNJ_RD Ih O D#[PŧD >Tv&O !S,moӿD v O A$$nD I HHͅȱͅiiLBd4IzD 6 O vs} D v  b  O 2MW,}>*4D v v  b  O ?XubD ( 6 } ;O -D b" > 6 (;O xH/ٵD k bPP  O D  *    ;   O 7oQC j LBLPHJRI:D AO 7$oeD AO [qpuD (. . # O daĆD b O YΟ g~ư jh,ǹ 0pd HLD    Ik  g b"~ v } # 6 O E/WZQD 6 }  ,     6   O 7hfMr'D  6 b- } (  2  b.   \ O " wD *   I O }1#i,9D O k OHD  (; ? +   fO 6D b b_A Yv  (b ;O ni nt?D ( b 3  tEb v 6 b b  b I XO H OQ]>wpD   hO ;j$|ND  >(O H@i4E(D    O O yzDD  b 3  b3bO d: JNR9D  _ hhB  6' BO G@6ZJ_D Ib@ O W>'U/ٯD ( h  X O B>T u5tv8Q) stD   O "sK1 D  b  } L ok O 'D b)O .oARD  ';  b   k 0O M/: _D + |  valFORTH 1.1 An Extended fig-FORTH (C) 1982 Valpar International f`)_qĝ  % č̍)I    ϭй ψ˩ةlL= K*MʵLBwLA LBtL^ LB*YӡLh)ӵL+18PILu8LP UH G  G U hL^ LBD v } }     O 0] U L G  G ʵ66680Ѡ G E G ` =aW cL  cLB* cLOd*D }  5O ,D  O H3QD } } O ! ,{40 V,i=:D ( #  A O r+5ED A ( A O $(e}lD #/b 6 ( O t FK!>5OLpqzӋD #v mO COD  O A1D ( O ch-D 6 } L6  X (  A XO MeC$D  } A  4L       A XO AQ>RAD } / ;[ I O )D:šD n;O GDV`&D  . $bX b     ; MSG # ! O &"<D  }  }  ;[ k   O o_%D %   ; v  O ǝDE  ȝDE `ɝDE `JKB V`KEP8qϑȩqϑϵ L)(Ѣ L)Ѣ`H BHIh V`ѢBHI V`IL  LBf  FXR BHIDµEÆĢ VLRH8mSSeRRΐeUSSeRURT LeS;7GRW   S0L0YD (6 6   !bO D   O 62I?D Ct  3b}  v 3   bY 3v     O L^SD O =VcD  O e%-CD  v  O C:D O }D > O kbX D >O EyP& D > O { M2 D >GO gwUfH D >O zJ^ D f O 74Kt D >O I3~Ԁ D } } O ;Ɩ D >  O ksų D >   O $RV D XO &Bg! D   O  D . O %!D . v O q)!D  b-O @!D  b v _b b0 O X!D \!v v O ! !D } v !!G!.! v !;O G!D !O ZҺ!D } ~ !O !D ~!O !D !O !D !O !D !O F!D X O | "D } X O o|!"D v v O =O6"?E"D }  O 7"YnO"D W"="} } W" O `xmc"D } } W" W"O u6I}"" "LBu`K#̔"" H "heѪLY*GR˵"" †ѺeªHL=r"D b~ O X"D !O QU$#D   Scr # !b   !  O 8A@#g# jʔ*ƥ¥ðդƩuHuL= e ]#D 6   !  b O 0i$ķ#D  [ v  %# b O d@NH#D b   (  EY  O k+M$n$Dl_ULe$$! SHL=?BlF]v$D Ib I bI bI  b I b (Ib bO Ř$D  Save? (Y/N) bY $-%Save aborted... O /%ѵ%W   S0$ii  %ݦLL @%Z$D $ b[%O %ѵ0BJKD%E V0 BDEѹHI V0 B V0LC3ZJnf3҃%& TA{ j & 1RS& B|K& =M *& ;&?,?s4& =*?& ]`X$L& tA BV&   s|b& uo& |& Ѕ& ~yDō& N92Ж& G  %D ( ^O :&D  b } O 7Bs' gWgl'D (O Ou )'D &yvO 6?'D   O #~iT'D ( (  ((= O S4g'D (@(  ((= O rˇ'D (@ O $'D M"((O P'D ()O 'D O lD'D !O D  TI  Y  O *' V|2( R'( @ti2( S ] =(Q(ѵ0KBED(E0(J VѠLLG((Ѣ0 B VLB4T~(D ( (/ ( } ( ( ( v ( ( .(# O( (/ (/# (1 (6 (# (# .( (  O $vӗ(D v O u;%)D O pV5)D ' ,O (!F)f)HhL~&>7^)D } v v  (~*  m }  ((~ > ("   b   (}(} # 6 R M"O \T>})D  (+) ( # GO .vo*B DSV ENDIF 0 ENDIF UNTIL ; -->( Auto command ) : AUTO ( -- ) [COMPILE] ' CR ." Auto? Y/N " KEY 89 = CR IF CFA ' ABORT 6 + ! ' COLD CFA ' ABORT 8 + ! -1 26 +ORIGIN ! ' ZAP NFA DP ! BEHEAD DECIS ABORT ELSE DROP ." Auto aborted..." CR ENDIF ; BASE ! ( Auto command ) : QUEST2 ( -- n ) ." Format and save: " ." press OPTION" CR ." Just save: " ." press SELECT" CR CR WAIT ?TERMINAL -WAIT ." Prepare disk -- " ." press START" WAIT -WAIT ; : CSV ( -- ) ." Prepare cassette " ." (play/record) -- " CR ." press START" CR WAIT CSAVE -WAIT ; -->( Auto command ) : DSV QUEST2 4 = IF 1 (FMT) 1 <> IF CR ." Format error" ELSE DODISK ENDIF ELSE DODISK ENDIF CR ; ==>( Auto command ) : DECIS ( -- ) BEGIN QUEST WAIT ?TERMINAL -WAIT DUP 1 = IF DROP 1 ELSE 2 = IF CSV ELSE gz`}<*D ="  6 F    b   O p+jdž2 ce:t{2D    2  6 (- } (  2 &  (.2  \ 2 M" 2  2 O gA4x2D v v 3   O 2i3D v 6q3O Y\XLzԍ3D ( v 3 (3 6O 3 6 3O 4D  (; O :A24D ( 3v 3( 3O PO4D ( } 3 6 6 "q3 ( # 3O p`Fny4D 3v v # O AK4D 3v v ("  F v v # 6 O B|4D " 6  4 v v # O /'5D O AeT5D 6 O Jfj@t`5D =" ="} 6 62     O _n5D y5 O M5D y5 O 5D y5 O r5D ( v 3O .L;e5 [t;q5D 6 6 } v F } 6 F 6 v ="2 6 b M" 6 O 83,6D # 6# O fn6D 3 v 6 # 2O &̇6D 6 O fjw6D !!G!.! F # 3O ;V'6D ~6O @=FIg6D 6 v # 6AO 47s6D 6 n v # O b?;7D  (6 )6 6# O UK27D 97O L~ ? k7D yvieΕL gD.#y7D yv6L79m*Wŝ7D yvL7> .(Ÿ7D yvL7-\}e7D  [ } [ XO @;W7D  [ } [  XO ** 8D v F } #  O !:8D v F }   O Y6Jc`8D yvv @8L7 QA`҉8D yvv e8L7?L 8D ( d) ( } O Ai,8D >8 > (O u'"8D ((O qe~9D ( > (m v 6 v ( # O ~v]/19D 6 X  }  " X b (G d)O j+x9D %>9 > T(O {H,y9D (Chv 6 (O z9D ( 6v # Ch(O +)n9$ :D ( bO I3:D > O jJ:D 6 > O O[:D > O ]VaJ&l:D >M"O G&MK_]}:D O .k.:D vb  d)O 4 _Ҧ:D ((^ O :8:D ((# O ;  (Y(N O *^Y)t IF &S|  =04= %GAM?= #& @zJ= o3d]V= ep.{c= _WU*p= 04}= i8tLj= Ga($ԓ=7&= \= EZ= e{= WCz=D = O  =D (X F= 6=[ O }\=D (X (  O f>D (  O ;>D !>= =O *I9->D (X = (D =;= O +~6G_>D h> = # O *b71jt>D h> ( # O N/9lҎ>D >F=   =F= |>O w<9ҫ>D >F= = F= |>O L5>D >;=   (;= |>O /{x>D >;= 6 ( ;= |>O ,9 {'?D F= (= O fbQ?D R= R= O y;m?D > ;= |>>O YqSl̃?D >I> = h>=;= m|>Y?O Gқ?D > ;= F= |>O 2YtLv?D >;= (_h> 6(;=  h># |>Y?O h ?D >;= (_h> 6 (;=  h>(;=  # |>Y?O F)C@D > = I>(F= ( = F= =_= = =F= =[ ==m|>Y?O b/w^@D > = I>(F= ( = F= =_= = =F= =[ ==F= =[ =m|>Y?O [׼@D 4>= >( O QS^*AD !> = =!> = == 4>= 4>=2AO p_Td:DAD 4> = =!> = == !> = =2AO Ob]mxAD 4>=mAO ^*٭AD >LA=4>=2A|>O tGkGAD A?O W305AD A@O atKKAD f@4>==|>AO G TAD >I>(= 4>==A|>Y?O DqBD >;= ( (( (([ ( (;= |>O l8BD ;=  ? h># |>Y?R=  @O RbׄBD >(X ( (  ((( ( (( M"(( " X# = |>O z"ӰBD = >(X = (}<|> = O OB $CD F= =&$>f@= = ;= == ;= m|>O ' SCD F= ,>== @>;= =;= =;=  |>O , 7֍CD (X = (<( = = =[ =  I= u R= ;= F= O 0@0CD ( =  I=[ = (X = (} C= = O /S*DvDD (~DO J7HAED ~DO ,4k9!ED = O n`{2ED ?(_= O u} EEED =(mLEO Nn<;ZED R= Y??_= ( _= =h># /?;= > = |>O p5<) hsED 9{ELEcE>>C?/?~B>B u??? @f@@LAAA AABE*E;E?BB+C [CO =fED  I =  ( (# & (/ ( (/# (p(0 ( # (p(0 ( # Screen #( !#Bufs: ==!: =(m ~Dy= v y= !> l=   !>=m2A2; _= =  {E _= ER= >|>_= (>C (# (0 ( # (0 ( # !> l= (/ ( (/# = (# & Last edit on screen #  ! R= O !=D ;[DFO GD  6;[ ;[=   =   ;[DFO L GD ;[;+)I/~uO ]HD ;[ ;[;+) Im 6u O XG<.ID   O KB0\v.>ID  (FI( ({ O |KLORVID C tF m (3  m HM"  Cannot locateM" O zID   (  O ID   (  O UVID ( ((# ( ((# ( O kIJD 6  >bO Z@`JD ( O /;ӄJD +) %#6  J ' O :(# SӖJD  IJ  O  bfJD JO hJD  ! O F,IJD ( O uBoKD K!bytes O 6?f%KD  TCh b O ;>KD   !\!\!.!; O L5fJ_KD +) (' (  (! '(G O Z(LЀKD  Iv  (' (  & '(G  O L`LO d'yLD (!2L >LO #L) O F\wˠLD  (L( (C O t OĻL HjLD XtEO >S7~LD LL ! L O D&LD LL ! L O MD (O v (  L 0f  0fO zWY3MD Lto L L ! L O =*ehMD L ! !L L O =UǐMD L(" L (;(" L 6L O ] ԱMD (v ( v ( v (  v (G pMZ ((MH (bM6 (>L ML ( ("MLO uh[J|MD m (D &Primitive pfa dump:m (K0fO )Io~ND t E (@  (IMMEDIATE) NL M8MM O qF"пND CNO ;vO SO ,g#O |j.O `"'9O `*/FO <$=gQO  [:r]O o2hjO bB0JwO gтO ||ȉO tye'ΚO 0Xv /ΦO K aβO  {TaaǿO ~#zZ,} OD ([ ( # O X\OD OO zWy!!r`LOD ([ ( (1# (# (6# (# O (6POPHѢ0BHIh VL 9vL'QFP p/SykPD tP O P,xPD (T# (U O MSXQKc?ΈPD PO * UPD PMPO ~k԰PPHѢ0 BHIh VL:o.PD (U (T O E@>uPD P(T (Z# (U ([ O R5PD PtP PO kpUt!QD (# ( O V'4c4QD   +) =tP (@[ =PO @6dLQD ( 6 } TQO zQD (" >Q 6 (TQO N ͛QQѵ0B VL|{QD tP (# P(QO aVnzQD QO uRD (# (QO a\\R 4Sh%RD (# (2# ([ ( v # 6# .R (# O Sj2RD :RO s8jvRD (# .R O SD &(  =" ;[/[3*  Too many: /;[!max. M" } &&  SMOVE from v ! thru F ! (!to ! thru F !<q  Insert sourceb< ;[ (";[ ES  Insert dest.b< ;[ ;[ ES M" Smove aborted... O 1K:uSD +), 'O ofTD v 6O ;TD (T$ O t+TD (  O TY U4ULB4/^+UFULB "=UWUL BAOUfUȩ866LBRa^UD dU O J? {UD dU O SfԌUD dU O qH:ԛUD ( U O $Th˪UUxH) UȹUhJJ) UȹUL [!P*UVpL 4< UVIL &e.aV.V|IL cLc!$VD  ( (M# O Rivp@8VD ((# O M8^- ZVD (# O &o;qVVʥLBĆVV L MsxĤVV HhHhH L;]"3zųVD V O e]g3VD F  6V v  =" # # (  O #1VD F  6V v  ="  (  O WD ( ( _v (|  (.RO @TaWD +) 2UdKdK !(+)=" dK (!fW ! '(G O ~JАWW jLBƥ‘LW-*WXEXLWeKX+X%XLW^l"X;XXLW&jwjX3XD ( V O >A7'MCXD ( ( V O widX 7D8 ԌXD  X I I6  ! !( ([ F  &(!( ; (!( ( ; (!(@ ( ; (!(` ( ;  X X (  'Z I IO rU ŖXD  I I(  (!("  O 7RhYD I IO fnƠYD I IO 9;4|ӲYD  O YD O 5 YD  # O "!2YD (_ O gaq SYD 976O lZD When ready, press b< O WY ZD ( O ;CZD I IO 9'SZD I IO cmeZD IZ(N O 8,mxZD IZ(E O 9NɌZD IZ(Q O {F \ҠZD IZ(P O lA"`ĴZD IZ!O }zZD IZ(f O ]zZD IZ(r O i nZD IZ(L !O 5RmZD IZ(f O //R[D IZ(r O `&[D (d_IZ(T ! O 2J'h9[D  (( O Y_+GO=`[D  I I(  (!("  O s̀[D IZ (X(Y O AkƸ[D  YZJ  O L43@V[D  ! (K O *4p{N[D } (/# ( (} (0 (@(} 6 ES($ } (p (&& (# (( (($ ("(u  (# ( ($ (@( (v ( # (# ("(/#  (/# (# ($ (@(# ("(/# O 3I\D I IO "]D I IO A&-]D  O @]D O @gV]D  # O <*`]D (_ O WQ2v]D 976O uΊ]D When ready, pressb< O ]HgPHě]D COMMAND ABORTED TO \ǽ]D $J]O H ]D Turn on printer & pressb< O Y8|QQ]D ([   ( (!( [ ( ; O IVE q^D ( (R# : Want Instructions< (  creen or ( rinter ~] (P ]!])^4]B(S6Press CTRL-1 to Pause T (R# &)^(!]M"M"O gq^ -O5_ bd?_ WGy!J_ mT_ ZP`_ zk_ E;Pv_ D9)ځ_ */!^nj_ T FK3Ǘ_ Y7 zGǣ_ skǰ_  ǽ_ c _ y7M]_ !7+_7 [ ~s_7 a K5_7 \](P `7 E6a`7 fN'ZD1`7 j?C`7 ( For auto-boot disk, remove )( last 3 lines`2`7 so, change )( 60 44 INSTR? to 60 60 INSTR? )( on screen 40. ) F?/u`7 ^;2 lcD _O {W)7gD _O v"GgD _O %, WgD _O 1-8ggD (_O +)W~wgD (_O 8 tgD (PO dq^gD (PO fypgD (X (  (mO A gD (X (p (PmgO .I8SgD (([( (X ('mO R--jgD ((j (([( (j ((# O oc^G&'hD (j (([( ( ( (j (([( (( # O qZ|.qD _ P_ O .AZ KqD P_ p (0  F_ 0  F_   F_  P_ O BKKk P.QQcqD p6 p# r_ P_ O q0;WAnqD q_ }_ O I=|wsqD L` } 6 p r_ O x!=J_*erD _  _ ( _ (r P_ O Y#1e4x:rD _  _ ( _ (#r P_ O B.~qrD _  _ (7 _ (2r P_ O 2}v$ҬrD ILLEGAL CHARACTER - ROW ;_ ! !p P_ P ( gg TO 8dklrD r_ (r P_ O Z>sD L`q3 ?g [(2 (dg_ g [(2 (d_ _g [(2 (d_ O jTxOfsD (d lsO PsD (w(lsO $ssD (( lsO cOsD P_ O ZyssD P_ O P?EM? tD p ( 9HsqrHsEr|rtHsrO Xp)i&l\4tD p ( 9t;qnqSqO AI4 \tD p ( p# P_ r_ _ }_ O @G`̉tD _  _ (-rtO F 1BO #ŹtD _  _ ((rtO g@tD ;_ (P[` P_ O 5 Z$K]'HOuD p ( )tD (z t0 ( )t ( t M"rO SӏuD q# F_ 9 sss_ ;_ `# _ ;_ `# g_ ;_ 9`# _ (L`q~4q3 _ F_ O FfEWuD _ | _ g_ }_ hg_ }_   } r_ (wB;_ (x[6uc v F q3 ( A ;_ '`f] ;_ (x[ucf] O s|Ox0TI:vD F_ g\_ Updating Print Buffer Og 6 ;_ P_ r_ }_ p(w( ApF ,uu P_ 1u ur_ (u }_ g_  _  _ (-r_ |r_ Er_ rr_ ;_ (x[uc# }_ ;_ '`# DvP \_ (UggO ojSvD _ ] I I P_ P_ Og (x[uc T( [`74` !g (x[uc74g F_9` '` ` ! 'og   _ P_  j I IO !HrTn wD v !( est or ( rint~] (T gg wy(Pm Print how many: : 976  :gg;g  6Press START to Abort Printing w]]O T}ԐxD ((\_ (  L`(< (@ _( 1hnh `(Pm `(m uc(m _ _ _ _ O x[VyD ((R# ( P FORMAT (^) F Font  E Enlarged D Double Strike  C Centered A Send Byte no ctr B Send Byte w/ ctr Y User Def no tgl Z User Def w/ tgl (R# ( PGLOBAL 0-7 Write to Lines  P Print  C # of Columns  R # of Rows  L Left Margin  H Horz Gap  V Vert Gap  N # of Lbls/Row  D S/L Label Data  E S/L Esc Codes]jO (3SyD gLABEL: ?g ! cols Og ! rows g ! lbl/row  GAPS: g ! marg _g ! horz og ! vertI