e  %`LLS^W`~g`QU*H˱ʕhʅΈʅiʐL%C"dH `G'b1c[͵L'-J{eHȱe˅hLDPaeLȔiʐLB(@Ѻ hhhhL`0 kѵHH}h}hLPNePIHѺ}h}8LL{EM=HHHHLB} mѺHL;ʟѺHL;s2p Ե800 08 0  HL=HL=oX2PF  jѠQ)?,ȱQ "ie•eÕ•L ȱȱªȱ…ÆжѩL b\GZi  j8ȱLBLBl+y] L`Vٟ HL=< mS +pf̮ 2z :?j  jLBƑL Y\*,P   j-eąĥeŅeƅƥeDžǘ…LjLBƑL: ”Ô666uuu`x U LBQ  *66866Lvđ 5H5L=q HL=/h UHUL=6y t  HL;b6 - ϪLBd % = ѠϪLBr5 Q hhLB qJ d ѺLBuZ  HHLBJx hhLBҊ ѺHL;e ȔLB< ȔLB* *LB? G L  uuLB  uuuuLX' A G LB8`;:U7 ^ 8 H LB8aSS x HL;K6Ao %$Ѐ HL=LЉ HL;d uuL%g4V.Ų UL HL=H LB Ln % L D   ybHHiʘe΅LB, D >O vTO fr1ZY D yvʠ͕L@%f,i,'k D v ieΕLB/LHҐ D v ʠeϕeЕLBOSв B   D a O"dz F*bzGH 2onSw PR '  9zb23D ( O I? S ]\ ToO:e pf]9 n  s& y tІ t4"+J.ˑ V˙ Χ 6԰ '"Ҹ ~iH#+ ueV{)c kyZ ":lQ2 $;L_ &=  (l *! , .\  0y(8LB1HLB:AZiLBISo8LB0h6LB}H G Vvh G LB_ZŋD  O dinԧD  O D  O oD # O 8LB LBUUȔ`p( L !58ȔLK.O8L>Ha gLB8PIȔ`[ LB8Lp<~ L Q gL =nԣHHhL= =԰HHhL=[UGD  O LcL LB[,XL wD v bv _ O Gk\eVD  O ?'@D bO 1iSD mO inbD b(%O &6nD %b O r~ЃD   O pp 8ҖD  O J? \ЧD  bO m3u D  bO &2K(iD bO H D   bO wnvNbeND  UbO n{ .W;D  X} O 4D  O PD b O .(V'?^D Ib O 2mD b O !B,?iB́D b  O Z6PpD Ih O e$]ŧD >Tv&O Y2o!ӿD v O I@D I HHͅȱͅiiLBIeHD 6 O cx D v  b  O zp x\b04D v v  b  O GKbD ( 6 } ;O XD b" > 6 (;O 6#8 ٵD k bPP  O D  *    ;   O F(xC j LBLP1:":D AO 1EYieD AO oCouD (. . # O MfĆD b O Ο 8?ư )ipeǹ VM`_ `BD    Ik  g b"~ v } # 6 O 4N/V#lD 6 }  ,     6   O l^^y'D  6 b- } (  2  b.   \ O )k~wD *   I O ii"-2D O kvSD  (; ? +   fO D b b_A Yv  (b ;O 'PU(O S1?/ D    O z}D  b 3  b3bO [TF3Iy}9D  _ hhB  6' BO vdm||/s,_D Ib@ O S=H%HTٯD ( h  X O X'*6W`C#=RC`%8D   O $L?4S D  b  } ok O 'D b)O T-ERD U ';  b   k 0O {_h_D + `  valFORTH 1.1 An Extended fig-FORTH (C) 1982 Valpar International f`#HDĝ  % č̍)I    ϭй ψ˩ةlL= )eVʵLBvwLA LB%L^ LBoHӡL{ |ӵL`M8PILUQ8Lk UH G  G U hL^ LBD v } }     O 0] U L G  G ʵ66680Ѡ G E G `E{qW cL  cLBL cLz7ID }  5O }D  O -2oD } } O A N+>@=0 *A([:D ( #  A O 7RE|*ED A ( A O LH lD #/b 6 ( O O1jk4 s[xӋD #v mO )6D  O :kD ( O l) O Q D >O B, D > O X3_2 D >GO K%JH D >O v ^ D f O jxB{t D >O bJvYXԀ D } } O qƖ D >  O ]Sų D >   O Xn@ D XO &>S~ D   O X D . O 8!D . v O `I)!D  b-O @!D  b v _b b0 O }X!D \!v v O 1M!D } v !!G!.! v !;O !D !O FҺ!D } ~ !O !D ~!O !D !O /!D !O !D !O !D X O  "D } X O R&!"D v v O W"36"FE"D }  O HuO"D W"="} } W" O Rc"D } } W" W"O PsU}"" "LBu` ̔"" H "heѪLNt #˵"" †ѺeªHL="D b~ O '"D !O _#D   Scr # !b   !  O tD[b#g# jʔ*ƥ¥ðդƩuHuL=/)G]#D 6   !  b O eMķ#D  [ v  %# b O Y ]"#D b   (  EY  O ,}l$n$Dl{ep%e$$! SHL==H+SZv$D Ib I bI bI  b I b (Ib b`O LBŘ$D  Save? (Y/N) bY $ Save aborted... O /%ѵ%W   S0$ii  %ݦLL uR7$D $ b[%O %ѵ0BJKD%E V0 BDEѹHI V0 B V0LC3V$ jN҃%& (c j & X& BY*& =_D*& ;UU4& h6?& 2}(zL& Z1V_V&  W&69b& ^o& |& Ѕ& wvLsō& ' )%lЖ& G p%D ( ^O د&D O \m&D O <#&D (} O ei@]&D ( O 4i8&D  b } O 5k V' BX( 'D (O 9>b)'D &yvO A?'D   O F9IMT'D ( (  ((= O (51g'D (@(  ((= O =ˇ'D (@ O 'D M"((O 'D ()O 'D O R'D !O D  TI  Y  O }' V ( uM'( @&2( Sh]f=(Q(ѵ0KBED(E0(J VѠL"~G((Ѣ0 B VLBNV~(D ( (/ ( } ( ( ( v ( ( .(# O( (/ (/# (1 (6 (# (# .( (  O aӗ(D v O oX/%)D O Cv5)D ' ,O 5F)f)HhL>; J^)D } v v  (~*  m }  ((~ > ("   b   (}(} # 6 & M"O [dG})D  (+) ( # GO J ?*B -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 DSV ENDIF 0 ENDIF UNTIL ; -->( Auto command ) : AUTO ( -- ) [COMPILE] ' CR ." Auto? Y/N " KEY 89 = CR IF CFA ' ABORT 6 + ! ' COLD CFA ' ABORT 8 + ! N^\Z<*D ="  6 F    b   O Py&dž2 |NvFh|2D    2  6 (- } (  2 &  (.2  \ 2 M" 2  2 O ]L2D v v 3   O Si3D v 6q3O :>]vqԍ3D ( v 3 (3 6O rXcz eŞ3D FO |m3D 6 } O 3D (" >3 6 3O 4D  (; O nJtf24D ( 3v 3( 3O AO4D ( } 3 6 6 "q3 ( # 3O y7D    O WԚ7D   X O *V7 HȱL;(#C)7 ȵLx~7 HͅhΠLLIf8D } ( (  O m#,8D  (58(( O mZCU8D \81'(78(  \8O i v8D \81'(88( ( \8O *9w٣8D yvieΕL x u8D yv6L83:MSQ8D yvL8?Qk!9D yvL 97>Vx1%9D  [ } [ XO .H*,89D  [ } [  XO Rxd9D v F } #  O W9D v F }   O QR'kҹ9D yvv 9L8f$Kd 9D yvv 9L 9[;9P &Yx  ALLOT lEGL-:78 a= B:78 84.mR:78 ,1b:78 0D4K(s:78 b$yÂ:78 &T@ē:78 .53 E1Fӣ:78 MKt@ų:78 N#to}:78 C*z:78 F}Sue:78 5ohO`:78 C ;78 6r^h;78 L*;78 ';;78 6R'7)I;78 X;78 eXi;78 6_I?w;78 lBÅ;78 4@E9LЖ;78 J1 Χ;88 vGӸ;88 R1 6;88 %:VuC;88 <#5/ ;88 V'P; L < 2)S< 9Ao%$< 9 r\xH8< D:*.9 w\W<  APg< EUSt< S !ԁ< Y`*r̎< AQ %̛< w "Ũ< E{ŵ< C(O< XaAI;< >w Y< NrqD< UHrS< } nU= =/= \\du= ALLOT ALLOT j4S(=D ( FO {wP-д@D ; <O t|@D @(@O ay<6@D @(<[O C|H@D : O /N)DD C(g ;&"; @; @v ; ; O ?!w@DD ; @;  ; ;O iЁDD ;O ;bm1qӤDD CDO $s:ҴDD : :(A5; (p(hz:C C; < ;6 $; ( (BZ(  ( 5: (? & $;b "; :@ # :  3;5; : (Gzb :O |y 4DD ID@ ~F@ (@( (Z+) 8 b < < 6  ( G  <AD O Zu@ÐED ID6(@( d !]Q ALLOT 4* mQ88 y}wχQD  ( ( QO o>"+`̗QD ;("~;v 6 ;I  h; O T1D~EӴQD (  v M" (T (([(U (X # O *JABcQD v ( [C ("& F 6   F[C#  v #  O v"xc5RD :(( ; ( [; ( n; + DfO ]SE2mҒRD R O \~mIRD =RO krrRD :RO \AR ALLOT mNSD S6(Dv # 6 (1 v # 6(:v # 6v (n} v (.v # 6 ( n} v S6S} # O J+SD k:(C eQv xM S Fv K S( O P6k9nҩSD  <'AEQKEA YQ Q ( UQ WQ(' SEA O _SD ("~6 S :< S  ("&v # 6@( v M0=RS :< S  ("v M"6# O Iww(?TD QR(,>R QF  EQ} ( } X } (( (IT(X(X  } UQ}  uQ( LG SGQ EQS kEQGC WQ  ( v X GQO _jA7TD (h( ( h(X O &Z[{UD ("} } U , (&"O ["=\{UD ( (h& O :hUD :(1 `RR L  :< S DN S $=RLG S v lC ( =Rk:(A [C8L S } (,>R  6} LG S ; <[CH a; <&; RR N S  File renamed DO Z1[(mX78 _k}~Y78 "KGqi"Y88 \8a3Y88 CoaDY78 llj6hSYD QR } (,>R  6} q;3Bk:-Y:YD 05:z:3S  74( !is non-existent @v [C z: D( z:3S Y+Y(N&[ KY 74 ? Q  n Y(ZMYmYO .UwFZD lockO I,[D (O>Y( [MYmYO TJ{[D unlockO '#$]0[D (P>Y(:[MYmYO PSg*~G[D QRQ v ( }R QF  LG S v \YS5:z:3S File: 74 k:(N& m:ZY6[\Y k:[  K@k: & m:ZYZY !\!\!\!\!.!; ^Y (m:G DO efzfΐ[D 6 ( (0( \Y( ZY  L  :< SLG S O _0W\D (QR(,>RR (,>R (" QQ \Y`\H :<&  SZYA;G DO ++Ŵ\D QR(,>RR (,>RRQ Q \Y`\I : = SA;G =RZY A;P SA;G DO lZ/J]D Q QG DO /m]D QRLG S  File access #! DO /]Vtҍ]D QRL S DO g%wź]D QR(,>RRQ Q xM S DO o/8]D QRQP S DO ~nnJ]D  (   O |^D ( ( _v (|  (. O <9^D QRLG S5:z:3S File: 74 (k:(W6[m:   ; <("H} ^ JM"  & G  DO 6 j=f^D QRQ 8L S DO QLƙ_D QRQ 8L S DO U:5rO6R˸_D :6Q Q _v (  }>ka ?>nxa yWs'̃a jU`̏a x}NŜa UH,`4ũa ""Ѵa D'1a C<a Q-Z~a C }xa :ft0a >|/~#EaD ([ ( # O z& bD bO 6-pIZ.bD ([ ( (1# (# (6# (# O 5`>i:bb jLBH)` i@Lb8 h)đLbPO?xbb jLBH)` @i Lb8@h)đLb(ĻbD  bO Ff bD  bO =Fc-cHѢ0BHIh VL Uy$c :7!rIcD Rc O y hVcD (T# (U O UUg7,SdfcD mcO |o}cD mc+cO op[ԎccHѢ0 BHIh VL]cD (U (T O TPcD mc(T (Z# (U ([ O a<cD mcRc cO  ycD (# ( O 'QdD   +) cRc (@[ ccO '_*dD ( 6 } 2dO ^dD (" >ed 6 (2dO \iiyddѵ0B VL;dD Rc (# mc(dO @?g9,dD dO (dD (# (dO .uWdD ( d) ( } O h eD > e > (O oas:eD ((O 1NR'YeD ( > (m v 6 v ( # O MspeD 6 X  }  " X b (G d)O N=̷eD %>e > T(O k?7Q fD (Chv 6 (O B+fD ( 6v # Ch(O "wyxKfD ( bO ;LrfD > O fD 6 > O &fD > O H{bmīfD >M"O N0",ipļfD O RhafD vb  d)O ?mNfD ((^ O /zmgD ((# O 5AOIgD (# ( ( O |kSF '0gD (# "gO /;@QgD ( ( (\g v ( b ( N (| (@\g 4 (< \g  ('  M" O uhgD (_ (Y  (N  M" O #_ hD  h  (Y(N O HQ'O?zRhD (O A,G3~hD  hO {X\טhD ("  "/[ " "M"M"O 0ZŴhD &(  =" ;[/[3*  Too many: /;[!max. M" } &&  SMOVE from v ! thru F ! (!to ! thru F !Xhq  Insert sourceh ;[ (";[ h  Insert dest.h ;[ ;[ h M" Smove aborted... O W`OhD +)U 'O ~P7jD v 6O hzQjD (T$ O  =bjD (  O &NP̀jjLB%Q#ȡjjLBW$̳jjL 3 jjȩ866LBg>jD j O }jD j O -ukD j O @&kD ( k O ]`~9 kGkxH) 5kȹ5khJJ) 5kȹ5kL b:A,=k~kpL skkIL QRVdžkk|IL :PIԚkD  ( (M# O _LjҮkD ((# O GouIkD (# O ?vo]klʥLB,k#l L B 7zl3l HhHhH L;=8M%N)lD 1l O >J|.AlD F  6Jl v  =" # # (  O B[VlD F  6Jl v  ="  (  O >lD ( ( _v (|  (.&O lD   !\!\!.!; O m*AmD +) j m m !(+)=" m (!l ! '(G O e%'mm jLBƥ‘LmT]ҀmmEmLm57`Ĩmm%mLmNҹmmmLm=Xy/D9mD ( !l O X 2lNcmD ( ( 1l O [@m (((( (((O!zq#n"922 }8P>n5922u -Ln"9(((( (((? Cq@_n8 XM5zn 9 /7Xo lr+t6ˌq n\{gӗq :Ipw Ĥq XZ0\Աq <оq tAJ!q LIEq tlq e[T[q mpVQNq Xbxwr hf&*r @hzL!r LYUzh.r8^WLG;r8 jIr! QrD r q o q q q q Dr( mO XVfrD (j ([( (qrO qSc§rD ( (( ( O ZW>rD ( ( hn ( q  q o FO c*rD q o q q q q Dr 06 Dr v _ q F Dr# b  q q  q q o Frq O [?[: 3sD *r q v n# 6q 0 q q (( r r& r6([ q ([ n q q Dr 6 Dr# Dr# O '}[ sD r rq v q & sq o r q n# q 6q v o O qhLtD ( ( Tt(q n# q q o 6o q O Nq ֢tD q n(Av # ;sq n q } v 6 q nq O i"tD (A&4 ( v (@ ( t t6M"O N2uD t t;uO 70ỸuD 6t ;s;uO QX@ĖuD 6t ;s q n t;uO f "ͮuD 6t ;sq n ( t;uO e5 kuD q F;sO AhvD Dv (  ( O KdӔvD  t O iIiRvD  u O q[TvD  u6 O }ib2vD  q ( q q  t ;s q  t(q  ;uq O S! YwD (/ ( (/# O hIzgwD r q n(Av # 6 nr q O bF-@9ЈwD w(/ pwr (0 pwO ZK?ļwD q (X wO .P.x9wD q   BLK ADDR BYTE MODS  --- ---- ---- ----   !o ( 'rv('v M ! ( I ( V ( H(@ J o ! 'No display list O 8[TwD q (j ([v mO -hxD o O H&W<yD t ,n(jn( Un (zn(jn " # GFn q ;uO e#yD   (  O FqyD   (  O N[ЖyD ( ((# ( ((# ( O 3! ɻyD 6  >bO Zj?yD ( O Hbvc"zD +) %#6  *z ' O  A'4zD  yД|D (O v (  n| 0f  0fO @T"ZȰ|D n|to b| b| ! b| O  |D b| ! !b| b| O >b }D n|(" b| (;(" b| 6b| O ;P.}D (v ( v ( v (  v (G |Z ((|H (b|6 (>n| }n| ( ("4}n|O ]0!J^}D m (D &Primitive pfa dump:m ({0fO js}D t E (@  (IMMEDIATE) ~b| }|e} O ?D1<~D CD~O Peτ~ p \e̕~ uSH͟~ {O.+ͪ~ |.Oҵ~ [/~ 9Z~ v`~ ,"F ~ L eJ~ " Y~ /i] +yL; 9 u)}}#) D:PICTURE~l3D (X (m mcO lZJD (# O f+fD (# O cIpxD 976O fvKD (_ O }\ԴD } ~    ~# zO k ͆D Enter Graphics Mode Number:( v _ @ ~ ( _Ն ~ (_Ն  O *-'= D l~ Write to Which Line:  v ~  hF ~ ((/  (/ ~ y / m Enter Text: (R# / 97 (R# 6  b ~ ~ ((/  (/ c } (m(/   Enter up to ! Characters for Scrolling 97 / _D/ F~X#  6/ ( A6 / b6 / / b, F~X# 6  b6  / bO vEΊD When Ready, Pressh O `/%D y hjO +G+e GD How Many Lines for Text Window: l 2 @ ~  ( (_v ~# ~# z  O t!4]ZD ~ 4Disable Text WindowXh ~# z ccO x>nZۉD  ILLEGAL ENTRYNO JYPh&D r ~6 O U}I2HDD ~ GErase Text Window MemoryXh&~ y~  (((~ [mO cNf:9GZD  K O :D COMMAND UNSUCCESSFULNO L7,p_يD lEnter Filename:(97 O ~M> D  Kill FileXh +!OD O h{01D  Format DiskXh d+;( ~$ ;  3B :  .  +D   LLG  J(H(  8L ( <  H r (  q (  H( <  I r (  IDREAD/WRITE ERRORNDFILE OPENING ERRORND  GDFILE CREATION ERROR ND(S lEnter Sector Number:(  v (__ b+ v  (H "(v 6(@ r h READ SECTOR ERRORN .N zO s@sUg0ηD wSave to O y19.ȁD  Load from O v;ZD (# (( (($ r (0 ("((# (/# O !1 D hj | hj(j(((# (^j((# ((# (j( ((# (}j((# (j (u# hjO 2i`(QD w (/# ($  ~ (&R~ 6 (# ( ($ r (0 ("(@(# (/# r (0 ("(/# ( ~ 6 ( # ~ (X  (/# (# ((  ($ % (0 (@(# ("(/# ((# ((# (# # ~m# O F@LUl" Jl_%sD ((j# ( One Moment Please....(r (q (0 % ((X (@r (Y h( zP ~# (~# 됥(( zq (m ~ ၤe CRTEcWMHƅLS׏VFkNPDNK:O *B D +)( ( #  O JzD  O @="2D } Now protecting...  m 6v 6"OSCRLSTLOVVBLKAD*uAANote - remove DIM & INPUT D} statements if previously used.+uPPRead rainbow & scroll routines & screen descriptor data to Page 6.0u\;@E},1@@E-A6AcR)@X\ 5uPPGet load address for display lisF}t & screen memory & turn off DMA.:u,6-F:Ab,$AV,AY?u44Read display list & screen data into meG}mory.Du5-%A )@&* 5@IuQQPoint to new display list & save vertical blank deferred H} register.NuKA`)Aa'AVK6-F:AH,%AV$F:AI,Su77Test for rainbow enable - II}f so, set pointers.XuF:AH,@*BB<ANA@`AH@rAIJ}@BBA B`]u44Test for scroll enable - If so, set pointers.bu`F:AS,"@*BBK}<AH@2NAI@`BB@dgu**Set colors & turn on screen.lu>-ATAXL}(&A FF:,, >AY@4quWait for console button.vu F:B2y,!@Bp{uReset pointers.uM}AY'BB>AIP:'AV,]AH&F:AI,$AVoBB@dAY@4N}uaaGraphics statement is used to obtain new display list. Change or remove as necessary.u +D:LOADS}29994 REM Note - remove DIM & INPUT statements if previously used.29995 REM Read rainbow & scroll routines & screeP}n descriptor data to Page 6.30000 DIM SCR$(14):INPUT SCR$:OPEN #1,4,0,SCR$:FOR I=1536 TO 1663:GET #1,A:POKE I,A:NEXT I3000Q}5 REM Get load address for display list & screen memory & turn off DMA.30010 LSTLOC=PEEK(1662)*256:POKE 559,030015R} REM Read display list & screen data into memory.30020 FOR I=LSTLOC TO LSTLOC+8191:GET #1,A:POKE I,A:NEXT I:CLOSE #130025S} REM Point to new display list & save vertical blank deferred register.30030 POKE 560,0:POKE 561,LSTLOC/256:VVBLKD=T}PEEK(548)+256*PEEK(549)30035 REM Test for rainbow enable - If so, set pointers.30040 IF PEEK(1648)<>5 THEN POKE 54286,0:U}POKE 512,0:POKE 513,6:POKE 548,15:POKE 549,6:POKE 54286,192:GOTO 3006030045 REM Test for scroll enable - If so, set pointerV}s.30050 IF PEEK(1653)=1 THEN POKE 54286,0:POKE 548,32:POKE 549,6:POKE 54286,6430055 REM Set colors & turn on screenW}.30060 FOR I=1654 TO 1658:POKE I-946,PEEK(I):NEXT I:POKE 559,3430065 REM Wait for console button.30070 IF PEEK(53279)>6 THX}EN 3007030075 REM Reset pointers.30080 POKE 559,0:POKE 54286,0:POKE 549,INT(VVBLKD/256):POKE 548,VVBLKD-PEEK(549)*256:POKE Y}54286,64:POKE 559,3430085 REM Graphics statement is used to obtain new display list. Change or remove as necessary.30Z}090 GRAPHICS 0- remove DIM & INPUT statements if previously used.29995 REM Read rainbow & scroll routines & screeHn ԍnh@onouLbq qqLbtqԭrs sՀLbsՀLb2-&gF \} ]}RAA ^}PPP _}PPP `}PP@ a}@@@ b}UUU c}U?TT?? d}T?T?T e}TTP? f}P?P?PP g}UPUPUP q}Bear Essentialsb CLOADSCRNBASb OLOADSCRNLSTbC[KOALA DATBCPICTURE UP?UP?U@? r}U@?U@?U@? s}U@?UU t}UTUT u}UTUTUT v}UTUTUTU w}PUPUPUP x}UPU@U@ y}U@U@U@ z}U@U@U {}UUU* |}U *U U * }}U*TT ~}TUT꪿UTUT }UTUTUT }UTUTUT }UTUTUT }UT?UT?UT? }UTUPUP }UPUPUP }UP?UP?UP? }UPUP?UPUP }UU@UU@?UU@ }?UU@??UU@?UU@ }?UU@?UU@UU@ }UUUUUU }UUUUUU }UUUTUT }5UUUUUUUUUUUU }?UUUT?UUUT?UUUT }?UUUT?UUUT?UUUT }UUUTUUUTUUUT }UUUTUUUTUUUT }UUUTUUUPby"ob&loyd0ress34!24for }-ain-enu4he"ear%ssentialsby"ob&loyd }FCRN.BASOSCRLSTLOVVBLKAD*uAANote - remove DIM & INPUT Hn ԍnh@onouLbq qqLbtqԭrs s͠Lbs͠Lb2-&y(ʔF } }WAA } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } F-: XR/W ( #secs addr blk# f -- ) 4 PICK 0 DO 3 PICK I 128 * + 3 PICK I + 3 PICK R/W LOOP 2DROP 2DROP ; ==>: LOADSCREEN ( sec# -- ) >R 0 559 C! ( turn off DMA ) 1536 R 1 R/W ( read ML subrs ) 1661 @ 560 ! ( point to DL ) 64 1661 @ R> 1+ ( read ) 1 XR/W ( screen ) 548 @ >R ( save VVBLKD reg ) 1648 @ 5 <> ( RBO enabled? ) IF 0 54286 C! 1536 512 ! 1551 548 ! 192 ELSE 1653 C@ ( SCRL enabled? ) IF 0 54286 C! 1568 548 ! ENDIF 64 ENDIF -->5 0 DO ( set colors ) I 1654 + C@ I 708 + C! LOOP 54286 C! 34 559 C! ( turn on ) BEGIN ?TERMINAL UNTIL ( wait ) ( restore pointers & VVBLKD ) 0 559 C! 0 54286 C! R> 548 ! 64 54286 C! 34 559 C! ; ( Remember to make a new ) ( GRAPHICS call or point to ) ( another display list. ) Hn ԍnh@onouLbq qqLbtqԭrs sՠLbsՠLb2-&gFRAAPPPPPPPP@@@@UUUU?TT??T?T?TTTP?P?P?PPUPUPUPUP?UP?U@?U@?U@?U@?U@?UUUTUTUTUTUTUTUTUTUPUPUPUPUPU@U@U@U@U@U@U@UUUU*U *U U *U*TTTUT꪿UTUTUTUTUTUTUTUTUTUTUTUT?UT?UT?UTUPUPUPUPUPUP?UP?UP?UPUP?UPUPUU@UU@?UU@?UU@??UU@?UU@?UU@?UU@UU@UUUUUUUUUUUUUUUTUTUT?UPUPUPUUPUUPUUPUUTUUTꪺUUTUUTUT?UT?T?꯫뮯?뫯?UUUUUUUUTꪪꪪUꪪUjꮪUU몮꺮ꮪUUU@몮꺮UU@꺮UU@?몪꺮ꪕU@?몪꺮ꪥU@몪꺮@꺮V@ꪪUjUVUUUUPUUUPUUUPUUUPUUUPUUUPUUUP?UUUPUUU@UUU@UUU@UUU@UUU@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU?UUUT?UUUT?UUUT?UUUT?UUUT?UUUTUUUTUUUTUUUTUUUTUUUTUUUTUUUTUUUPby"ob&loyd0ress34!24for-ain-enu4he"ear%ssentialsby"ob&loydHn ԍnh@onouLbq qqLbtqԭrs sLbsLb2-&d(ʔF