EXTENDED CPC DSK File Disk-Info CPDRead v3.24(Track-Info  N  H%?STARTcs %$:EW( > H>`Iϛ>> ͨ> _-2v9v͊No FilvѷvvYȯ28!8!02+,8!D:+02j!n~#(˿u~#(!b, Drive : $ad Datarite Protecto Sectorot Readyo Driveile Lockrive Lock Try Again(Y/N)?$ Unlock(Y/N)?$ Which Drive?$ Press any key to abort:$!3~6 ͌  :3   23>> K> O:2y " !14 5 5 60 >^K@͌y > K:1 ͥ  >#KD:1!0> K~$#͌:120*8N# h h 8x(:122ͪ< 7ȷ!+#N8#z(##~ &G!()%Q㇇G:2a{_͡~˿ͨ#(k }!F#x(~́ww! "IG:_:G:x͡0!~(͍ͨ =_.:;<> 72v>!vo[I!SK(G:( : K/*y(  : !q">%2:*8~(~!#8 >2B>#+~w:+O|^#VSn#"Q##"S##"U##W*Y>ɯ*Sw#w*Uw#w<2r!"*#"*fR02&:2 ͩ:rOͮ2rͣM!~#<͆͹!B45C![O'Ͷ(*Ͷ(*<<""!N#F*U^#V*S~#foyx0 *_R+*_#O~8( Xɯ21vy_Q y2: 1v͛27!!f~#fo! fWZn>: O!w ~0 0#Wx0;x82G ~ (# x|Ķ{0è PXB0 ͡*K~ ( (ͨ#͍?>>[!v6#~  6?#F2##~2#^#VS!"!6?v([ ͏xͣ ͡* ͍k Size,[# ͍k Free, ͍k Tota:= =!o ~ :~#(#( *#"~ : ͍ ~> (>*8 yx8#*l",DM*Ss#r*Us#rR".DM[nz(N!!aN:} G>O:| (O :c ng ^#VEe"|:a*)= ":b_:}o"ɯ2|~2{~ 2}:+<=<yw#xw:+<=!*KʹE!K*f#*Qs#r ~! ˾`iͲ,!*W:o$6[*Q{#z5r+s*[jR*W#[[* ( 5w  "Kͩ͹SOKOKW$y<_W888*] ~ Ͱ w" :c NG N#Fy(*d>.:G)öͨ~#è>-!"!4Fv:=_ͣ+\ : ͍ _A >Y2FY !\w w ~ ( ͍ Unlock(Y/N) Y \\<( ͍ Erase!47w ' ( S SI (S *[I!!v7ͷ(<͡!6:<8 2!o~ͨ=͊Read Errò*(-2go)|(+! v< ͊No Spac*:(O[I!T O #"I!B G!~(pp v͊FileB#گ2+go"K"M͟:u!+:u2+*MʹEKd888*]6# x [h*]s#r!*Q6#69("">(:* #~$ =2:B!M >2s!wq"6!9(S(50D":wOy($?(x ( ( N͠ # :2:!s~0 w2|2:tͤz"6͒ͶPYy( Ͱ0*d{z0BKͰ00>w~#+w#w+2:22 Exist7'͡+l&Ͷ͍ Block(sͷ(%! R8͊Mem Ful= ̀ 2}:w :(l= 6C#6O#6M'*I>!~2v>?~22\!v!~(#x2͡k1v} >> .""@*8{2ugo":"x2z!)K!dꇅo0$~#fo*<{4oty &D]?ht,02=!(=! (=! ( =!(!^#V 8!( _N(Y u~ͦ" :c ~ w ~ 5 '# ! #  8 w ~>2pÏ!:5-F6ͦp w# w Bzɯ2pt~ <w 4~(!ͦ :q<(kt( Ͷͣã'Ô'>2t>2qͣ!{8 !͙2}:: |(͈ͬ͆>ã>'>2t2qͣ0| :E2v( eDM=| >ã" :vO :c s s#r::͈:t 1 .*Ww#ͩ*"}:bG# "ͣ}:}!{8w4 :t Track-Info  N ͙!:~ =2}6:t O:}w :{w2t~!Gx~"GOxGn#,-. Hw y x(..::<(&q pͭ::< . (k.::<(ã6}2:ÔN! ~态O>G~G!~G}!ͤ!6#6#6"͟_y#x#{8s+p+qͶ ͟q#p#w>2x~=2u0:+2y~2zw:*w?( ~ ?0ͦ *6Ͷ*W[Ou:sã*M:+ã*]*K*Y"::u :*ã2**8}/_|/*MW}_*K"M}o|g"K:x(6:z( w:y2u*>*@*:}Dɞ8s+p /"-s%1!`yS)"/"1*){2f!"+2k2i!)K!e뇅o0$~#fo*-{%sx}5N 9Ueqv|&0,=!(=! (=! ( =!(!^#V 9!( _N(Y yYȯ29! 9! 02%9!H:02k!o~#(˿y~#(!c, Drive : $ad Datarite Protecto Sectorot Readyo Driveile Lockrive Lock Try Again(Y/N)?$ Unlock(Y/N)?$ Drive No.(0-3)?$ Press any key to abort:$!+qͶ ͟q#p#w>2x~=2u?( ã*]*K*Y"::u :*ã2**8}/_|/*MW}_*K"M}o|g"K:x(6:z( w:y2u*>*@*:}Dɞ8LL+qͶ ͟q#p#w>2x~=2Ͽ XtalDOS 2.05 (C) Xtal 1983-81!"!s:0_( >_0s#r+&!]*K*Y"::u :*ã2**8}/_|/*MW}_*K"M}o|g"K:x(6:z( w:y2u*>*@*:}Dɞ8s+p$~6 ͐  :$   2$>> O> O:#y & !"4 5 5 60 >^O@͐y > O:" ͩ  >#OH:"!!> O~$#͐:"2!*)N# l l 8x(:"2#ͮx(#~y:#(!"2#͡!#5 ( :!!"05͡8 0 ͐#wyx p> O /*y(  : !q&> 2+*)~(~!#8y >23>#+~w:O|^#VS1!GOϤ!~8w!!NO!:Ow+>% !i"!"S!"0BOOT ERROR $(^?P(P2u*>*@*:}Dɞ8s+pQVOHof]xϚ::ony3o339999:EW( > H>`Iϛ>ɯϜyϞyϟyϠϡååééÚÝÁ϶ϷϸϷϹϺϻLL_#"B##"D##"F##H*J>ɯ*Dw#w*Fw#w<2c!"u*u#"u*WR06&:u2t ͭ:cOͲ2cͧQ!u~#<͊ͽ!3454!y[@'ͷ(*ͷ(*u<<"p"w!pN#F*F^#V*D~#foyx0 *PR+*P8 yx8#*]"DM*Ds#r*Fs#rR"DM[_z(N!!RN:n G>O:m (O ^#VIi"p|:R*p)= "r:S_:no"p:T 2m~2l~ 2n:<=<yw#xw:<=!*<ʹE!<*W#*Bs#r ~! H$?Copyright (C) 1983-86, Crystal Electronics $$> ]> _29ͳ?No FilÐѷ͒͛< ͛͛7ȷ͛!+#N8#z(͛˾`iͣ%!*H:to$ 6[u*B{#z9r+s*w[[R*H#[L*w ( 9w  &OͭͽS@K@KH$y<_W888*N ~ ʹ w& N#Fy(*UB#2go"<">ͣ:f!:f2*>ʹEKU888*N6# x [Y*Ns#r%*B6#6=("&>(: #~$ =2+F!>:T/GyO >2d!hq"'%=(S(90D&:hOy($?(x ( ( N͙ #^Ͻ:V*n:(=(:Q:R 8}:P!5o>w̸̩̎ w(( g w {2V8=0 x  z  x(O(?=:=:Q?:P!o$ :u2+!d~0 w6|2+x ͪk&6͖ͼPYy( ʹ0*U{z0BKʹ00>w~#+w#w+ 2+2u2v~ͬ&  '# ! #  8 w ~>2aÓ!+51 F6ͬp w# w F~ɯ2ax~ <w ( G:T!a( !4~(!ͬ :b<(Xx( ͹͞ç!Á  >2e>2b͞!l8 !Track-Info  N BACKUP COMTIME COMAUTO COMCOPY COM(XBAS COM XBAS COMXSM COM2HLOAD COM XED COMhTEST DOCTIME ASMXC COM !XR COMv"#$%&'()ERASTO XBS*HANGMAN XBS +,FRUIT XBSV-./012P h#K :0 R :0 :. 2. G:/ ( 8mT Disc Backed up -- OYʴôô Unformatted -- Format first and then retry Backup ? Drive Type Mismatch ͱô Verify Errob Disc::V=($=(4=(?=( No DrivW Not ReadI Bad Data Erro Protecte( No Secto͏ , Track 00, Sector 00Ͻ Press 'X' to restart͕:Q!`͞:R!k 00#w+x0w1 FORMAT DISC r Ensure that disc with desired system tracks is in GRUFF XBS.345START COM6ST 7LST 8BOLD BS9BOLD1 BS:BOLD2 BS;BOLD3 BS<MAXIMA OMd=>?@ABCNVADERS COM4DEFGTRAXMAN COM5HIJKPHROGGY COMCLMNOPPUNCHY OMrTUVWXYZ[TRAXMAN $$$drive:}2P0 ͱv! 3 Ok -- Forma ұ2P2- 02\ Format Drive 0 ͱ?2V @O Previously Formatted, Continue anyway (Y/N)͕Yy?()0% Formatting: !"Q vP'ñP{2Q >Ϯ̨ r! :0 >(>:/ :/ =w:- ! 3 Verifying: [(# x :0 (!3:0 (:- :0 (!>6 A# :/ ϯ Disc Formatted and Verified -- OY((22 P!r>Ϯ!N ͖ ! ͖!͖!͖&k͖*2 ͖&n#͖!͖!͖!N͖! ͖!͖!͖!͖!͖!͖!N,͖!l!N͖>2V> disc and press ENTER  8 @_X Press ENTER to continue or 'X' to abando͕  More (Y/N)͕YN Drive (0-3 or X)͕0 Invalid Drive PϯGw>xgo:2 (}#! ! :Po0$~g:(>20 b:>((2/ 0 0}%–8z <z :PO!X >21 @  Ϣ #K 8>21 @  ϣ K 8:V:1 :R:Q!9 ͞ Track 002P"SCQ!R4 :0 (!~86+4*S "SR2V Drive Configuration: 2P0 v:0 : Sin : Dou:/ (>4(>82 le Sided, 40-Track :P<8 ~#˿ (_ @     (LL:/ (>4(>82 le Sided, 40-Track :P<8 ~#˿ (_2,:2.2-Ö>2+:2,]!((@͊(:2+7>2(!",b:2+*"7n!"G:+2+( 2+>2,]>1 EINSTEIN DISC BACKUP & FORMAT V2.02 (C) 1984-86 Xtal 1 r Press 'B' for BACKUP or 'F' for FORMAT or 'X' to exit Which (B/F/X) _XB( Fʱ> 1 BACKUP DISC r Sourc 02, 2P02,v Destinatio 02- 2Pg*/ v*/ ѷR¿02A Source drive 0, Destination drive 0, ͱ 2.  Put in SOURC| Reading: :. O:, ! {:-  Put in DESTINATIO| Copying: ! ! Verifying: !{CQTrack-Info  N sl1 Xtal AUTOGEN 2.11  Drive to use (0-3)ͪN #T]6 Command line to be executed?  +{l~#˿]( No system on drive 0>2 !~#~2202j Illegal Drive 02kGϢ !~>2kGϢ !~Í Disc Read ErroGϣ Disc Write Erro.:kg"Q:j2P!"S_!"m !0 8 Ҳ f:qD0z"(Bad Offse*#"R8 *' ~!"*R8En *' LLsO1!]~ B!?=1{O  00:00:00 $! "!>0w#6 ~ ( 082:0.#!~2# ~40#~60##~60!>?2)000000 $LLTrack-Info  N {À î$$$ XEC =.:,<>_[] INPKBDUI1UI2OUTLPTPRNLSTUO1UO2VDUSRLAUXUC1CONNULEOFDisc Read Error$Disc Write Error$Verify Error$Aborted$Invalid Format$Invalid Option$Invalid User No.$Record Too Long$Invalid Digit$Checksum Error$HEX$$$$No Directory Space$No File$COM$Start Not Found$Quit Not Found$Cannot Close Output File$Unrecognised Destination$Cannot Write$Cannot Read$1 Copy V1.40 (C) 1984/5, Xta!DM:2d2Z21 !"#"":2go"2h!kw+w+w!6#w! w#6: ͖ 2G  :K2J* !6ɯ2!Mw#2!w#w#w2* (::* a G ͻ :: :: (*#~0<2 ͻ * (p p !K5!6: >!% [# !6ͻ s !K5y2!~6:. !ͻ * (: :*  a G p !K5!6: :<2*6 6:_z 0j& {>=!4N* :w?!6!6?:G :ʻ A28: ͻ î:S(Q :K<2ͻ ( ͻ 9ͻ 02 8!6&ͻ 02 0*&)DM)) DM*& !K6: :ǯ2222 : %:=2ͭ(D:f"!C#:Pͭ ?2 "f!"C!v8!# 6?#>2f\!"!̈́ͅ  : fͅ1!K6 :8:2!: Pg!6:8 oڮ:<2 !D~T#~O:2 2 : : f-!6: :8?bڮ:[! w:<2: 1 < ͣ3:!!0>2T: >2Z!`~ 6!\~ 6 ͮ : :̽2ø:  y_!4 05 6!s*&M :w:„ >!ڮ:2Ä !6>'دͥ!4 !L$>>#!62C2:(1!6 #End of File, Ctrl-Z>ȯ2!6͞2 C2(:>>ͧ"͞2:( :(5͐͞!(:>Я!~6!~6*}2x}o"v$*v[ Kx&":> 2 !6*&g :w!4~O:C0  8yy͐!w͞͞ob 203 :U :8N !g ~ͥ> ͥ> ͥ:*&g6$~#˿(  _Cͩ"C ::_ !"$G!()%>  m .9!"h!l6:8;*[>(Y *"[6:2l *"!l4!"m*)|=2oC̀!m6:o8)*K  "pͩIi®*"!m4 :b!"ͦ!m6:o8:Cv*d#"d *K  C #z®*"!m4I!":(:(Insert sourc%::(#:Error, Press Ctrl-Z to stop ñ!LQ 2!E 6CQ>2h!"c"eʮ!"h""m:^/:,>8xʮ2B !+Q 2 *":_®:]!®* "@*R!0[*")|=2[ *R<K  ".<":U!Tڱ 2! F(ͥ ɯ2h:L2Jg!6#6>!8,n&M ~(:((( ((2!4 :0*} }* *":h-$ :h- :!P0:/w6:( !P4ͣͮ$:C*0ʮ!H 2OC Insert destinatio>%:2 disc in 0::Å2r 8 ! 4:P(:2sK!l ^#V[*R$*K  :rw*#";bî!6%!6 !6 !60!6!6:r_:s2y2t :` :tC,: 2u!`:u82u!u:`w!u~(5> C:t ! 6J :g( 0O2g:Z=2g!k~'w+~'w+~'w~A#~A#~A:Z :  >!yw:R0~ :07~ (2:\!zw(~ 6Y2FY !1 Copie:b( & verifieÊ!> C N} ,:8)!:0~=2ɯ!:0~=2 : î!:024: !#D #>2 !D~T #~O:K2L ::y !6>2}:2{K!! cA  h o a t [*R[*~2|#" >!~(5+N4! ~2~ 2~:_(́ 0!_~26!~6<2:](́ 0 2]>2> :~!w:wO! ~2 *& :~w>!~:! 4ɯw!K4~!o> 0 &  2ͻ "CS2!6+6 2: 0͒ áڼ! N#F#^#V#~#fo|} +x~+ xw# LLTrack-Info  N ҄"47!.V(ˆ8!( !6#6  #{2*`"(T!~+~#w T{Q /B+* {<(*U8?:(  Error*`|<'m:o&6:(**0"!6#6*{ *f~ #####*`3D {ZN0MSize:6go""42  /B+ReadG+!1!"`>]͌+8(͠ڄ G0Wu8K ͹0*PRPYSP(!KP "P*++++" s[VKP*TRͼCVST*R "R*T[VR*PKV[TBͼ"V[ +>~ ʧ G" & 08<8k~ >xc?>(] [ wN#\ ~ [n  O#(( y( Hy( # :( M(j ~(&(# ~(0 :8 A G # P #>2NSn(,s[(,(+p( kSn"uN#F#x(T| +:N %ͻ+(B*~0!.F( N( *1*+ ++^#V#͔ G+W0( [n8> *~" *#~ȸ#(+#<(%=n8[nU?8((~#?[ <_7>2B0ÿ0LLDD>G>~)|}~,~#<#~ (:0?<=~˿*#(##~#fo~W0"f!*`|<( "j*f"lS*w#w#"P*+w"f*X"V*P"R"Tz{Z!}"{og"l2ws*f"fN *+6 0 -=.q-*0"(,[\(s+[+(kʄBK"f*^8*P[0 ?*\C+1S\KZͼ`i[Z"ZR[H"HB"X? *`>3͠8ͯ*`R#xu`i+S"f͒ *f͒ "`í*`>3"!>2u ~##Q^#V#S` ~# :=2 3: <2͒Q "`iS`*`>3"f͒a{_?~A[?*4!4q#p7"4 in!"4%+#ͰPYz *!GZ7(w#g6*DM~#+R`i ??!9~#N#F#`iz(R!K7 DM B0 BBBKͼ*VR?G*X r S͔͑O͉WY!'{0_#z0W*T]~####GORs#r͔͝O͑OO26! #(0C7y=29! ":! "<!: "><  ͑2K:K ͑/2J:J/f͉ ffs#r# f!!Q ""!(*fS``i(#(͑~G(+K x#͡ڄ,(O(<Gy!(!p#p͡ڄ#s#r~Sy:u*yͅ (([̓̀̓!!ɯ|s#r+(~DMW/͝^#VK+~#N#F#N#F+++ͅ < :҄Oq#p>2wG :u"f͔9~#͝!+~#Ͳ! |*|Ep#wZ!Ͳ! "(S``ib*f~, ]?>2wi ͔  ͭ*`r^!!"~p> "!^!3*y3s*y>ĉ_Gx(͔OE ~ |o|UM[T*VR*|W]~$ x((ͻ+ Y͝|BK>2w#w+x(ͻ+8* 4 #4+2 ~ S!L~7T06 W~$z *w ͻ+ ͔OxGWX!v6PY~$: #* <(*U8_͑o) f (s#r„{83<(0sQo)  g[04O͑2@:@ ͑2D:DSBO!B~0A xO AQ!.8#G~ajy  "f~:(<#~# #^#VS`(`i D<[O N#Fր<<[~(s+"!(0 ͱ[( suPYK Sd*l|S[jS`:yHG~ȸ#" ~#," ;B>͆+ :@w*d2~ :„:@(: r͊+ :u : #~W"(:@+_<%ͅ +(G:@  :(Extra ignoreG+ͭ #~#S#^#VSb#( ;("ͻ'+G+#,qo([@(;(`,(*:v %*:ETrack-Info  N B:.g>+B*͎~, ͎2A:AW:E/0͎ G+z*͡8#!T[j:.<(ͭ?>+`i͑+@ SjSp,(͠Sj,͡Sp[j*p"j*%6 [juO8[pu(`iDM*PBSPÄSj͆[juC[pu(`iw#w*0"l*N#Fx(9#^#V+++["*lxB(9DM[+*[P( 6+"3*0"6 u#6 *j[p*^#V+z( 0O*00MS806͠ڄ*0'Rͭ"l~# yĒ*l+Wp*<C4-4 ,8~w,CN6,~qO(45(8, #*[j^#Vzʄ+#s#r͡*j[p*DM~#+R`i ??u7#(+s~#"W( :(~#Ⱥ BK*P_W"Pͼ*d "d*bs#r*8 ""bN#FCd###[P.!q#p0#s#r+"S#~(( "#*{">2u2v!"{R~S7[T*VB8"V#?0*X>2x"V!*T!}[{k B*P[R( ###~#`D[T(N## " 0"pN #[p(7N#F˸#^#V#x"r*VR*r|+F+N+~+ng PY+DM*V4C,>,,= <{[<*:G-{[<*:G-!"Ͳ! ^!ͅ![ ͅ![/2!~ :z0D!!:8t,4 7C,,t.0O*<Czw--wtͯ!ͅ![!~( :(8B! ƀw:-w:9*<~!C O~q#yJ<~q,G!<C>,,!C,,tͯ!0O!~2[7-~(0uB! Ɓ wytQO>:9<<!~88w*>!C--*<C&--= Wkͅ![-~E:(0B! Ɓ >!w:-w:9G.0q#p`i+]*]N#F˸*~#f˼o GDMgf[NN! N#F˸#~#fox*̓PYN#F˸*V  "V*{+F+N++"{`W2v2uN#F+˸x͘##^#V͘##^#V͔*w Pz(~#f˼oR0|(!B 0DM##~#foZg P~#f˼oBxʄ~ )(sBK͘B! F6~<%p%`N#F#^#VZ͔(!(O+N*Z( = K)|~,> ͎(҄G|}0:?8*>!C--*<C--{k-~yľ!*:~ij/:W_d!>FOk!^+V!R*:C4+*:C5~<+_"!_Wz(ͩ=!w,6,r,s[7C(,r!͓!:˾ !%!"!!%!:ր>2^!Zͅ!^!!%Ϳ!b~!r !4!$!!"ZQ!%!!!!K!>ͩ!!L͚!ͫ Z!!K͝!:!!9ͯ!:8 2Z!4S(F!+!"!! (!-:7G8ͻs!8|7 DM+|( Sͻbk "!:ڋSvz {+!R8 bk)))0_>G:v S(+]"h*hxx~}0W<"pz 8"p~t _:v= {_!xV#z`^!N#F*p!y:vz_.S2u2v(<% 0It(u(1&(.<%"(OG>o*=x8Fָ0O}*h5!S:u( =F#~͝!<O*=OyO0'I8,!z> S\)j0 = z::/<"!!~w!5!2!K7pb!K7"|!goB9*|!É!K7!9!Sõ!!Sò!!Cò!!K7!$͝!Ͳ!:7(~(+4!!õ!!S!!S!!Cõ!s#r#q#p#^#V#N#F#r,s:7G,w,wͅ!W!^!Oͅ!ͅ!bͯ!:ƀ/ƀ2:7GW!!ͣ!Z!5ͅ!ͅ!"!:(S"EC!:W!ͯ!!~ :7G#~ ~!0 O |~!=!5!W! ͅ!: !"!!$!:0(Oƀ8!*s8K N#fi7|~!|y8 Ox OxOxAZ+|{/Gz/`|yͅ!>! 2u2v*c "g "z| }z <+ ݾ#(?-!<yWy_w"|||,"X3P2P/2t <AGQY8/#ٳ_ 0% $ x2u(2v:w='q~(2w[R*PR((L K7 :u K7*T *yR8 "yy"T`i"RG+6{ #z #y #x###~#"*tGi ͣ!b5!'#.""!/B! 5!!!K!!"Z!!K͝!ͩ!L!͚!:=Ͱ 8"!=!5!:8!"͊#!$!b:0!K͝!ͩ!!L͚!ͫ Z!!>Qͣ!!4!"b͑#!$!!5b^!$ͅ!^!!$ͅ!!$!bͯ!!$Ϳ!Ob:8!@"b!!G5!!$!!!5!!K!>ͩ!Lu-t+͹ =!"!6-&6 :.o(#"r!:6 w (8/G :( :-<x w//#6 #~?  y!#0 # # x !)022(x2.  0(#* 6? w 0<#6 ɯ  <.: ASCXBSOBJ6$(~ äC000;2L2<'>U>;;;;D6@A*?5@B@CzBK0XTAL BASP>, D !+<"0͢.>  88ͪ'Ϟ0;2<;>.(Oxt'+*4| #+~0(~.(#6:6==G>'6E#:6+e'6-D#/ 0:p#w(0<  (p>0:6G*4|x}<$!'x[F*|0:(M({2EE0l)SF"H 8*Hw#(:( M(l)H0*Z6 T]K) !:(G6#:'_> H0:M H0͈)<( wy#N W{ :'_H(z*)W:'_RDM*ZG> :(O!~(= T]#w # ͈)<*H:(=*ZK) +=(:'OBR:'G> ~H0#8!+z#0x=84#6l))7 G:Ͼ!"8!"J"4""*0".@!0!@1052+ ϟ> ϟx8ͧ12"J>ϟ~#ϟ#͑O88ö#͑OG ó22_(sρ͑ O()͑G(( (P<`2<P> > (>:'G> x 2B*>*`2>>P@x/yWx( Gy2'xS)'͑ x 89,O(͑GyOv5GyOy{z;_W=5CSɯ>l5|@5==x DM͈) :(O Pl)Ql)+~  +#RyDMx( ~ # !(:' OB=R0< JP:'_![Z:G!A#N ȹ0>*ͻ+[F (" 8(0#R0:'= ͋(ͻ')Wͻ'[:0O (6*+͵*G+Q0[F(0#~*>+͈)Pͻ'(0>+#͈)6#6(0>*R0`iR(BK͒* > H0M( ͒*͋( ͻ'ͻ'PY+ #yN*8W:(:'_ͻ'+͵*Q0>+Q0!.N654^#V#N#y(N#fiN ( #^#V# ͵*!E*z0ör`5r**`51323ɯv5҄!S3o0$    !"DvS=5CS^!vS͐5( ͅ!ͅ!>L!44vS2313͐5(33BKBK:3Ɉ"nND"!0 !˾>23!3!P5l5=2:9(Ov5s 29z29 ͑&o))) ͻ͐4(o͐4( x (%!S͑҄Ñ2(W͑;35=5>0! 0E.RM0 $ y0PY22˺zv5 84 :.> 0~!BG+0#0DG>++ w+\+> :E> *:N(:.w> :J(G x :D=!E8:KG+>(>?*:.<ʢ)*ͻ+w*x0 8:(~#+!.^(0!w7 !O45,+2M:O!, :N!,(*NO#_~#fo0-<%͔*O!N !!. /Qͺ:v(!--^% {(w%W(!N !.ˎ!O6z(,r0;,ko0! -,wf0! -$~c08,~!~6ʯ< /7<0S(WW{v5_2>đ; (35> ҄OI5F5:҄͋=5CS`5(r(͔5( ͑,(7͑OͻxA x(06~ # ;{>s > *{0*:; 0* ( (G+{8WX;; (A( B(/8 s6 # M> ;RY; s6{ +  S;DM(͑ʄG>H0{OzQ! ~ϼͻy„A0 ҄͑҄D2n:^$4${:< "! :xȯ2xq#~(#^#V.(#=!()=.!\.Z0>22O1*\[^i0U͹*[Vi03#"P.(%=(/!\.]0!6!N~6 w.kkl0*[Pl0.>2Z08c08308~#(.<B/ !:  xS->2wbk#"r~,.! m.ks&r'/!/ .Z0*r.]0(.,[P*R+8=.˿%~.w# /30~&ݶ' GN$ >G6:n:D͑҄9w#6#w#6#w͉ 0͉0͉!::7!K:7!\:72m:!::8!K:>8!\:>8:m:(3:n:G> !::;8!K:>;8!\:>;8= <8 Ͻ 6(,(ͻGA ^VF ,8srp 2p:~(5"ͭ86 w ~^VGͶ8srp>2m:2p:~(Z~(T~ (M4 4 F n f )))~ ())))8~ͤ8~F~ͤ8 ~ͤ8ݾ 94 >= ɼͭ8p >w w >2o:C9.(l=(l-(l+(l'(lVʪ9b!":( #!: !:C9M98|(:p:O}9 |Track-Info  N 9:q:92q:9:q:92q:N (9>> >>>ø8(R(!X(A?O ~#fo:o:=(<!R> =w>2o:( G90 8~w!0:o0$~=w(*G9089~9#~w#~w#~w#~wû8y ~ :p:G!r:o$:p:<= M 0 aw 0 h a      fBK͉ fBKf{z #fBK;ö#fBK;og[ü#!;Ͳ!ÿ#¯2{b } -2 - p<2#$$G"p#X/X< a_!E!0>bk6*02-+"^"\[)R"Z[+R"X+ :OP1#2Xtal BASIC 5.02 (C) 1983/84/85 !\ ~ > 2]ͩ/=.q-{Z06 [)R"Z[+ڻK70 1#2Xtal BAS!;{5Ɇe.#f~,> ͎(҄GG;LL;M>0(ͻx ( '<x;y x ( ) (;( H( ' 8(q2x2Q2 ( )F1A***(*7** ) ) )** **** **U U U U s)<Ϝ>><ʔ=-(!˾U>.|=#r>?>30= ~#( 1>Hq${.B/! ~  6?#Drive:/*G+!E:B<͏>͞= G+G+W0(:Nͻ+|=?= (ʹ=1>0y= -r!(-r><S!!(-|==ʹ=r><(>w!w"w#S!!"!0=r>r>r>< F30/01>=!r>8/7/0="r>1> >S!r>7ȷ308/="4!4"4#!^#Vz(r+s!<=()%_:2ݾ3/ 0>*ͽ>>.*~#*=N&F'! 0)j u$|ݾ! {ݾ" zݾ#(y,>t!s"r#>SN3/%?"??NN"Sreakextyntaxeturnatatyvflem Fullranchangeimensionivisiontack Fullypemdtr Ovfltr Complexontn Defnperandad Datand of Textilerive Selectile Typeo Fileile Existsile Lockedisc Lockedisc Seekisc Fullir Fulley Defnhape Defnrite Protectoop{PC(TEPAB(OHENުODNDRORUTOHAINLEARLOSELSONTREATEATAEFELIMOKERIVELSENDOROSUBOTOOLDFNPUTETISTOADGEOSEWEXTFFNPENUTOKEOPRINTEADEMENUMNPLOTESTOREETURNb ASM> w͍A8 HEX.($(08:8* PRN͍)8.8 (;( ASM+"|+~H!(Q.( S|"̈́͠A8 *_*"|"!\ $E:e2:f23b ASM> w͍A8 HEX.($(08:8* PRN͍)8.8 (;( ASM+"|+~HQ.( :X(: :Y(N~ͤ~ #^~ #~! 0$ ( ( ( ~G>G UNAVELOTTOPWAPERIFYAITMTPPENDIRRAOCKENNLOCKUSICALLOMULLTREPPEEDIDTHONEI$EMPOOICESGBSSCTNHR$OSEEKVALXPEX$NPNTENNOGEEKOINTOSNDCRN$GNINQRTR$ANALEFT$ID$IGHT$RRRLOFNNCHBDUL$OTIIZERAWCOLCOLCOLPRITEAGHAPERIGINLLIPSEOSAD(EG(OLYILLPOKEPEEK(DOKEDEEK(EEPIN$(STEYDC(TN(SWPTAUDEPEATNTILHILEEND322244\4230::k34::::}6;1511Y;^1 u Oo . 2. /  0 Wi ;-0* <! u.P 464_~ # _! 6! 6 v Drive Select Error $ [| # #~#foS|~#(##BK!x( z|MD!x< z>8jS\>)j0# 0 =+|/g}/o: :*[R &*"[͑͜*"*~#"8*[R &*"[͜f͑*"*~#": [͜E͘ 7_<2*w: [͜$͘ _<2* DisTrack-Info  N          c/Directory Full $2.d. .}>B<0 !F <=(0zP{G_x 80w#ɯ2/go"")͍08:8)$(-A8[8-+(R-(Q*(Q/(Q'ͣ*)}ͣkC*";ͣ0ͣ! ~2#~2!">2 >>>2/:/*)[=( =( =(  Rsͮ"|y2>2( !> w͍A8 [0 w#̈́.($(08:8*|"! "͍)8.8 (;( ( (̈́+"|+~H!(Q.( D. (B ."*|[S|"̈́͠A8 *_*"|"!\ 2.}p2,:2-$j<(<( ͎G:1x2+: Q͠(SP)cͤAF,AF[ͤDE,H_ >(>$(o&%>͍ ( (;4͗1j"ͯ((j͆G:Q.(&o"+jʹ͆G:g"->Dʹ((1j:=(}<(<( ͎G:h: g%͎G:')2+j2-ʹ:02,>Dʹ:02+>D*"+j(=V(=^ x2,B:t(((%j:=(= >dj>teoÐ ͎G: ʹ>4j: ͎*g"+B!$:(ͯ͋ G:2,Ϳͯͺj2-ô!:ì )2|)$E:e2:f23(':$Hj(:EH(*"2W No Source File $ Can't open Object File $ Can't open List File $~O[* R0 "6+++SSymbol Table Overflow $[(S2G #( O O ~ ===O : : >(2>=!"|6 O!r(R0w# +6 +6 #!456 *|~#"|*|~ #( ("|͍*|+~"|*|N#>' ~# ~#'SSymbol Ta< Xtal Z-80/64180 ASSEMBLER 72Gj":~*s#r#6ój"G+' ͮ ͣj!(4:)ͪ(G*|~ G' #~' :(<2("|+ͪGj!(44!)j*">2 j"">2Gj82:2z0 ( ( !gf3( >2*"K>Fo: +<2j| 5>2>2):(= :(>Ioj2,>2+>2(: $:(*|~ ( ( ( ( ;(>W2:~:(>U2: ( *#":N(X:!w> #w: *[!:K!+:((GP# ([!K>=2!:((G+* VERSION 1.05 (C) 1985-87 Xtal $"ɩ : >(2>=!"|6 O!r(R1b !""!"!0"*""""""><222~222go"2(22222*#"go"> 2Dʝ: G;G (i (e0::(W!~ (#x 8>L2 x2:w#:w#6!" ^#V#~ *R(>M2!͞"0!~ ͣG>2>Oo~22+#~2#: : G G~G~! =_^#V - o T 9r9W:4Q((0!>Uo:Q"*:*#"*:(O [":ʽ :~/2~(4!63!#6*"2!">2:2"î :N(":'Č!- ~#>$͍: (00>ͤE͍[!K[![! Last Address: H Lines Read: Errors Found: ASSEMBLY COMPLETE $:00000001FF G:Nx*#|( *#R( ͌S2'S:'8͌*"<2'=_!w*#|(N:'OG!6:#xP:O:P:O:PPOPy/1(%ͣ>2(j[7R+}2,|G>Ro͗ 2+ͯj81A ͪ ((#j:=(=(>:2+}Q.:ƀ1(2+:Ɔ2,j2-ʹ$ʹ:Ɔ1ͯ:)<(!<(: ( >2+͋ ͋G:1x2+j< < >2)͎G:Q:(FA ͯͺ͠Cz j2,ʹB>x2,͋@2,ͯͺC ʹ>2+Bͺ͠C j2,͠),B ͯ͋A͠͠A ͤI,0ͤR,5ͤSP,HDͤSP,I:ͤSP,I?2!j!:P++~0 6 :<'2!=ͼ!ͼ<2!ë XSM V1.05 (C) 1985 Xtal SOURCE FILE NAME: XXXXXXXX PAGE XX :j:)8!"ͣ͋!",ͪ )( ͍#ã*|#~,#~,͍H(I ̈́X(Y >>ݷ͍Lͣͣ7>SoLDJPCALLJRDJNZRET INC DEC PUSH POP OR0CP8EX ADD ADCJSBCBSUBAND XOR(CPL/NEGDCCF?SCF7RLCARLARRCARRARLCRLRRCRRSLA SRA(SRL8BIT(Ij":(V= ͯ(("j:=( ͆2+}Q͆G:)@1(2+͆F2,j2-ʹ$ʹ͆F1ͯ(ʢ j: :<(<( ͆<2+",$x2+>!!>*jʹ:(<(<(>2+͆K2,"->2+>*>!"((j:(= :)(- (2*)" ] F jʹ:(>:Í ͎ 1!W"+B!_!G!O!!>18ʹnj"ʹ:(Lͯj:(>2%:)(<($<(*>2+͎C2,*"->"2+*Ð >2+>">ͯA ͎1ͯj:=(e.6%}p12+j"ʹͯj:=(>62,:2-}@ SET RESˀ RSTINOUTDAA'NOPEXXLDIRLDILDDRLDDCPIRCPICPDRCPDINIRINIINDRINDOUTIOTIROUTDOTDRRLDoRRDgHALTvDIEIIMFRETIMRETNEMLTLSLPvTST TSTIOtIN0OUT0OTIM OTIMROTDM OTDMREQUDEFSDEFBDEFWENDORGPAGE INCLUDEIF ELSE  ENDIF MCAL LIST  XLISTNZZNCCPOPEPMHLDEBCAFSPIXIYTrack-Info  N          %A%B%C%D%E%H%L%I%R POPS2 COPYARGS CARGS1 CARGS2 CARGS3 CARGS4 CARGS5 CARGS6 CARGS7 CARGS8 FLUSHLINEPDOT OULL TSTIOtIN0OUT0OTIM OTIMROTDM OTDMREQUDEFSDEFBDEFWENDORGPAGE INCLUDEIF ELSE  ENDIF MCAL LIST  XLISTNZZNCCPOPEPMHLDEBCAFSPIXIY( (Disc Rea*' 6!"*"0!":'!""""!"!'6Ϳ: !6ͤ2(s*&["ͤͤog""[z "ͤ2!5ͤc*#"*[R0*+"͕!(Check Sum Error*"[*R0 c*#"LFirst Address*ͽLLast Address*ͽQ*LBlocks Written*#<ðLBytes Read [*R0(Invalid Addres*[R0J2:0"*&' *& w*#"!4 *#"\r((Disc Writ*&' wULLoad Address*ͽLError Address*ͽQ][*R0+:7][*R' ~*#"> ͷͰäͰ*ͽ>:ͷ> ÷Ϳ0 0 Invalid Hex DigippO͕!ww*#"!4 *#"\r(LLst Address*ͽLLast Address*ͽQ*LBlocks Written*#<ðLBytes Read [*R0(Invalid Addres*[R0J2:0"*&' *& w*#"!4 *#"\r((Disc Writ*&' wULLoad Address*!"*+%"p%"n%"l " " "+!^6 TF+N+3!* !!9~#(/ (O"('( +}|+#~( 6#~#!46#6*!c*|ğLLrwDM*j}[8! 9RfS4!!ʍ _> _!U! > (%con:rdr:pun:lst: 8 0_~O7! !"# "S!D  #i& (C) 1985, AJC s1'!"!"!\!!́e (Can't Open Sourc!e\v (Directory Ful9\j (Can't Close FilͰ{HEXCOM> ͷ> _|}O 8A 0÷2'd }>B<0 !F <=( 0ͷOError:UO, Address*ͽäͰU~#˿ͷ(!"m !0 8 Ҳ O))))  "(Bad Offse*#"R8 *' ~!"*R8En *' `i#### ~ !~(#!7*~#F6%pw62XRDM*y=6(>w <(!s 6#6 ~+ !s#rz{ 8!U####^{!!xw#w!~<6!~r(4!N!~#fo(!*yb( >w# %!= )3{=6 #+ *!; sz((^#Vr+s*F!>b( x (((h&![{ !~!N#F{p+pH#*͸"͊ > 8#!U}  > _+!9~ !~b(6Track-Info  N          > * wq#p᯾ [%,!3|+!9n&ɯ2>>2>2DM!9~=+6~+ngx(;:O ! DM:  !B!9^#V):|!xw0#4!wDisc Full Error $ #6 w w##w w#~+: ~##./~#(.(. (.w#a O! ^#Vz!$r+sbk#|}o|g}o|g}o|gɷR R(!|(z { !,zz {!-|!| }!0-ɵz {!-)~ogs#rN#F#x( ~#~# `iD$!9*͓.*z2+"z2D*#"É͊"[*!"\*x2͞)(*x2#"x2*\#"\*\:uͪ# !" #b+*z2-!z9͌+"""*" *z2+"z2#|(f! ͦu U! *  ,n A0| :!9!/!h)"[!96 !9!͚!͊"* #" ! *" ,!9 $!1ZQ!l9!9u( !9!9͞)|(͒*: !9!("Yu(ͪ*!9Q!1$b+*Y!9!*"W!ͅ(4[W!͓( *!"W!9*WU-u -u(*Y?(+!M!z>S\))0 =ɯ zZ|ZMD!x< z>8jS\>))0# 0 =@Z+|/g}/o! ! #ͪ#͊"!!͚!!# # b+!9^#V!ͅ( ##~#fo$!". *   ͍!"XED Screen Editor V1.2: Jan '86;!"""͕$!9='}* !9   * A I N S X ] e m u }    Ñ !3*u( !"͕$ !"! ͘$ !"! ͘$ *u(͔ ͔+$ *( !"  ,!+iQr[x2Z"x2!!l9!9u( !9!9n( !9Q!1$!1͞)|(͒*!1!9Z!1R&!1!Lͧ&!1!P(":u ͌+">! ,u( *:?(40(;!9!/!h)"<*:!9*<M*u -u(0|+*> ,*:?(!1!Rͧ&!1Ͷ(!9!1͊(!1!Lͧ&!1!9͊(4$$$wBAK*x2"n*n͞)|( 4"r͌+"pͦu*p#"p+ ,u0u͐+"l"t*l n(=*l*ny)u(*z2+"z2(͊"[t*rj*l#"l*!" !͌+"R])!i$͌+"+!i$Ͱ$ͧ͵͕$͚$$L$Dͯ??:5R0!9)(!*u( !9 !9!9n(!"5*u( !9 !9*u( ͕$!"$inst:lit:s͌+" ͼ"R#" !" !" #! ͘$*x2u(*x2#"x2*x2u(ͭ ͊"$!"z2! ͓u(* "z2*x2#u( !}"z2*x2#"x2*x2#"x2+R) c f) g< iA kF lK pP qd r s t v+ = t#"t!Â!j[z2!͔ [z2!͓(!"z2*z2 +!!w!͚!$='(R)yn( ͊"!%!͊"!Buffer not Saved -- Continue (Y/N)? Cancelled'' !$=' u(!!"d[d͔ *d#"d+!9~#fo! 9~#fo#+}! 9~#fo"f!9~#fo"h*h#"h+͞)( *f#"f!9~#fo͞):[d!͓(;*!!9~#fo?n(+*d#"d+!9~#fo!9~#fo#+}<!9~#fo?n(8!9~#fo͞)|((+!!9~#fo#! 9~#fo#*d#"d+!9^V" !ͅ(* * ,**z2* *z2 ," |=͂:u(!  " !ͅ(* * ,* ͌+i!cmnd:; !ͼ" #$!*"!" !9='} n !9u !9u(I[ !͓(!ͼ" #$* +" !" [ * ͔(* 1"* #" !9u(!ͼ" #$!" 4!9u(([ !͔(!$"* #" +1!9~ !9 n(!9! ͔ !9u [ !͔(* #" +1&}"* 16* ~#fo! 9~#fo#+}!9~#fo#!9~#fo#<*f͞)(7[d!ͅ(;*!*d#"d+!9~#fo*f#"f+}[d!9~#fo6*d;!9*x2}!9!0͔ !9!9͓(!3!9~#fo!90R!9*x2#"x2}|K!9!0͔ !9!9͓K!9~#fo!9~#fo^#V! !90R!!1Z;!"[!͔(K!9!9~#fo}͞)| 1!9~#fo#+!9}!9~#fo#*#"!9^#V!9n(!9~#fo#!9~#fo3! !"3!#" 63!16! $!1"x26!l9!9u( !9!9͞)|(͒*!9! ("> u(ͪ**> !9!*"@ !ͅ(4[@ !͓( *!"@ !9*@ U-u -u(*> ?(!͌+])!i6 r!z9͌+"*x2" * ͞)|(!!94*x2" !"*x2n(*x2#"x2" 4"[z2!͓&ͦu&*#"+ ,u&0u&͐+" !"[*  n([ ** y)u(h* !9* * *!9"*u(!͊"͌+!ͬ)!9!͚!"3 *3"3ͼ" #;[3*3ͅ( !93*3|2~o*3|2!9}!|2*3*33 *3ͻ "[!͓(*3|2}!|2*3*33 !"3*3#"3[3!͓ͯ͸"͔[3*3ͅ!"3*3"*3͔(*|2T]#~*#*3+"3͸""gsn!0|!-n!! *gͤ"3͊|(͌+"R#*g"*gͼ"# #!su(!!9~#fo ,u 0|( ͏,u ! #͌+C1! #![3!ͅ([3*3u( ͸"͔(>͸"R"*Track-Info  N          3"3*+"#!͓(*3#"3+|26 *3"3*3"[*3͓(*|2*{2}*+"*3|2!9~*3#"3*3#"3!|2*3+*33 *3ͻ "[!͓(ͧ !"30|sn͏,n!|2!/"-n*"3|2![R/["!͓( ;*! ͏,n*"3!"3sn-n-n͏,n͕(5ͼ"+"* #͌+*"[R#0* #*3[3u!"3*3"3͸"͔(!͸"+])*3n*3+"3ͼ" #*3"P*3͔(*P|2!9!9~#fo*4͔ !9~#fo[4*4ͅ(S!9~#fo*4͔(*4R"4!9^#V[4*4ͅ( *4"4͞!9~#fo"4$!9~#fo"4"4*4[4R*4# $!#!"4"4"4USJ!O^#V!f"4!(͔(!(*4+"4!"!4! (!(!(!(!(!(!!͓(F$+!d"^$*^$+"^$#!͓ !"#! (͸""4ͼ""4""4!"! #$!$r$%*4%&!4͇%<%*4"*4*4 #edit:r$%*4%&͇%!#4<%r$%*4%&!4͇%!#4<%͸""4.)u *P#"P[P*3͔(*P|2.) *P#"P*P"3ͼ" #!*3+])"[!͓(*|2.) *+"[!͓(*|2.)u(*#"*"3ͼ" #*+"sn!|2!U-n! ͕|(͌+! #ͼ""=*= #͌+*="[=R#0*= #͸"͔(!͸"#h)1͸"͓ [3*3͔( *3#"3 !͸"#h)ͼ" #!"30|(!|2*3U-n(!|2*3͓.n*3"*3""3!"3[*͔(*3#"3+|2*ͼ""4""4!"*4%&r$$!͚!!$'$ͯ$!d1$! . #$! ͚!!"%*%#"%+#4!9~#fo#+}| !$!! #$!9~#fou( !%!͚! !͚!!"%*%#"%+4!9~#fo#+}| !$no file! #$!&!͚!͌+!ͬ)!$Line ! . #$!M&! ͚!!ͬ)!$Col |(#+.u(!"&[&!͓ &*&#"&+4!9~#fo}#+| !9~#fo|(#!9~#fo.u !9~#fo#!9~#fo#+6.|('!9~#fo##"+}*3"3!"3-n!|2*3U-n!"͊|(͌+"R#!" #6ͼ""!*# #͌+*#"[R0!*# #͸""sn(!0|!͏,n!! *ͤ"3͕|(͌+*! # *ͼ"+ #!-n0|((͏,n! ͕|$!ͼ"+ #! ͕|(͌+!# #!ͼ"" #͌+*"[R#0!* #ͼ""uͼ"uͼ""͌+[R#C1*3"* #!"|2*36!͚!$!|2!*33 !|2!*3+])+!9~#fo#+}!9~#fo6!!!"4"4;*'[4!͓(P!9:4w!"'['*4͔(*'4*'4}*'#"'*4+"4!9"'3!.;*4#"4!͔(3!"49''} [4!(͔(*4#"4+4!9}!9!!9!9}Ϟ!9~#fo!9~#fo"=(*=((!͟!,"Z(u*Z(!!9!9~#fo͸u(:+!!9!(!9^#V!(!!(uĪ*!(!!(*3 ͼ" #*3*3û !"3!|2!/"q[q!͓( *!"3*q"3!|2!*33 *3h)"3*3(!!"30|( !|2*3U-!|2*3͓.!"3[3*3͔(*3ͻ ͅ *3#"3*3`$"+"!0-$u(q$!0C1u( !" 3." 3!" 3." 3 3!!9~#fo" * !9~#fo͔(][ !9~#fo u E* #) 3* )~#fo* ! 9~#fo* ) 3~#fo3"* #" H ) 3~#fo!#9~#fo])"3!9~#fo) 3^#V* 3ͅ(!9~#fo)x(x(} *) _!!}! 8 0:8A!}a{ o}A[ oŷRŷR|Z͟)(( ? ~ !#!}! +|(s)!-"`i)ѷR! "#! |)`i)#DM!0""I*"K*!"G**K*F(} *G*ȷR0*I*w#"I**G*#"G*"I*"K*z(*I*~#"I*&o*K*\(#| +! *K*\(! *K*\(!*gFile Not Specified!*OFile Not Found!*;Line Too Long!*(Line Chopped!*Bad Argument! !+ 3~#foͼ" #!9^#V!9~#fo͔ʔ!!9^#V!9~#fo u !9~#fo#) 3^#V* 3͓ :!9^#V!9~#fo!9~#fo) 3~#foQ"!9~#fo#!$ ;*/"*1"!"/"!9! 9~#fo#+}|(Z!9 u K!9*/"3""1"[/"*1"!9~#fo* 3͓ !9*/"Q"[1"*/""/""1""/"3y *3R !#y 7"E! {" 0 !^{"`iͪ': 3"'* 3u( ! '! '!" #! (! (*4*4"4*4"4*!4[4*4ͅ(*4[4*4͔( !9(*4#"4%Pattern Not Found!+Invalid Command!-+Too Many ?'s!?+Disc Write Failed!V+Memory Full!4"4"4'"4!"4+"446 !"4*4*4*+*4"+[+*4(*+#"++ n [+*4n [+*4ͯ( "+*+6 *4#"4*4#"4*4!"4*4[4R!9!*4#!9~#foh)])!u(!"4!4"4!*4u(!*4͔(͏,u(!*4͓(-u(!!*4",0|(!*4+"4 n(!,%*,"4!*4+"4 n *4#"4!4( *,"4!*4+"4!CR miTrack-Info  N          ssing in text*4"-0|(!*4#"4+ n [4*4Ϳ( *-"4!*4#"4!#ͱ1u(!!"g-[g-͔(#[4*g-!9^#V*g-}*g-#"g-[4*g-6 *4#"4u(0| !"4!!*5.*7.*9.*4"5.*4"9.!"7.!9~#fo+#!͓(A0| :-u(%*5."4*9."4!"9."7."5.*7.#"7.-*4*4+*4[9.R͌0*4[9.R*4R"4*9."4*5."4[7.*4R"4!"4%.*.*.*.0|(+! 9~#fo!9~#foU-".".".-u(!*4".͏,u(!!9~#fo#*.[4R".*.!9~#fo͔(!9~#fo[.Rͱ1H*.!9~#fo͓(6*.*4+*.! 9~#foR͌0!9~#fo[.R*4"4!".*.!9~#fo+͔(%[.*4[.! 9~#fo}*.#".[.*46 !"4ü.0|(!!"/[/͔(? */#"/*4[/ u(*/!9^#V*/[4*/}[4*/ n( */#"/*/!9~#fo!9^#VR#!9~#fo!9~#fo!9~#fo)!9~#fo!9^#VR#!9~#fo!9^#VR! 9~#fo)[4*4Ó[4*4Å*4u*4"?1*4"A1!͓(4"REPEAT/UNTIL The REPEAT command indicates the start of a loop, which is terminated by an UNTIL statement. The REPEAT command appears by itself, and the UNTIL statement contains a conditional expression which, if true, causes execution to pass back to the statement directly following the REPEAT. If true, the loop terminates and execution continues with the statement following the UNTIL statement. Example: 10 I=2 is equivalent to: 10 I=2 20 REPEAT 30 PRINT I, 30 PRINT I, !9~#fo#+ #!"!9~#fo#+͛1$*?1"4*A1"4 $*4"1*4"1!"1*1"͆(!"*1 #!"#+͛1*1#"1*1"4*1"4 ,0*4!͚![4*4ͯ(Q+!*4*4+R0*4"4!40 I=I*I 40 I=I*I 50 UNTIL I>100000 50 IF I<=100000 THEN 30 60 END 60 END When RUN, these both produce the output: 2 4 16 256 65536 The big advantage of the REPEAT/UNTIL version is, of course, that the line number is not given, and cuts out the search for the line number. This does not matter in small programs, but can be very time-consuming in larger programs. REPEAT/UNTIL loops are, like FOR/NEXT loops, always executed at least once, since the loop test is made at the end Dof the loop (as in the NEXT statement). Again, like FOR loops, they may be nested. WHILE/WEND As for REPEAT/UNTIL, the WHILE/WEND construct allows us to make structured loops, without resorting to specification of line numbers. In this case, however, the loop test is performed at the start of the loop, meaning that it is possible that the loop will not be executed at all. If the condition evaluated after WHILE is true, the body of the loop will be executed. Otherwise, the program is scanned forward for a matching WEND command, and execution continues from after this WEND command. Rewriting our previous example as for REPEAT/UNTIL we obtain this: 10 I=2 20 WHILE I<=100000 30 PRINT I, 40 I=I*I 50 WEND 60 END It is perfectly reasonable to nest WHILE loops, just as for FOR and REPEAT loops. However, 'responsible' programming is called for, since scanning for WEND is done in the forward direction through the program. Because the loop test is perfoTrack-Info  N rmed at the start, BASIC does not know where the end of the loop is (with NEXT and UNTIL, the start of their respective loops is held on the stack). Here is an example of 'irresponsible' programming to illustrate the point: a. 10 I=2: GOTO 40 b. 10 I=2: GOTO 40 20 UNTIL I>100000 20 WEND 30 END 30 END 40 REPEAT 40 WHILE I<=100000 50 PRINT I,: I=I*I 50 PRINT I,: I=I*I 60 GOTO 20 60 GOTO 20 Program a., though horrible, will work just as the original REPEAT/MONITOR LD SP,STACK LD HL,FDESC+1 LD A,(HL) CP ' ' JR NZ,SETIME ; NOTHING AFTER TIME, SO WANT TO KNOW THE TIME RDTIME: LD HL,TIMBUF LD DE,TIMTX1 LD BC,0 LDI LDI INC DE ; SKIP COLONS LDI LDI INC DE LDI LDI LD DE,TIMTXT FINIS: CALL PRMESS LD SP,(OLDSP) ; GO STRAIGHT BACK TO DOS, TO SAVE TIME RET ; DOS PRINT MESSAGE ROUTINE PRMESS: PUSH BC PUSH DE PUSH HL LD C,9 CALL DOS POP HL POP DE POP BC RET ; BUILD TIME OUTPUT TEXT HERE TIMTXT: UNTIL example. Program b., no more horrible, will work until I becomes greater than 100000, at which point a 'Loop Error' will occur, because the WEND cannot be found after the WHILE. GOTO 40 b. 10 I=2: GOTO 40 20 UNTIL I>100000 20 WEND 30 END 30 END 40 REPEAT 40 WHILE I<=100000 50 PRINT I,: I=I*I 50 PRINT I,: I=I*I 60 GOTO 20 60 GOTO 20 Program a., though horrible, will work just as the original REPEAT/DEFB CR,LF TIMTX1: DEFB '00:00:00',CR,LF,'$' DEFS 0005H OLDSP: DEFS 0002H ; ROUTINE TO SET THE TIME SETIME: PUSH HL LD HL,INTEXT PUSH HL LD A,'0' LD B,6 SET0: LD (HL),A INC HL DJNZ SET0 LD (HL),' ' POP DE POP HL LD B,6 SET1: LD A,(HL) ; FILL INTEXT FROM CMD LINE BUFFER CP ' ' JR Z,SET2 CP '0' JR C,ERR CP '0'+10 JR NC,ERR LD (DE),A INC HL INC DE DJNZ SET1 SET2: LD HL,INTEXT LD A,(HL) CP '2' INC HL JR NZ,SET3 LD A,(HL) ; HOURS CAN'T EXCEED 23! CP '4' SET3: JR NC,ERR INC HL LD A,(HL) ; MINS & SECS CAN'T EXCEED 59! CP '6' JR NC,ERR INC HL INC HL LD A,(HL) CP '6' JR NC,ERR LD HL,INTEXT LD DE,TIMBUF LD BC,6 LDIR ; COPY TO TIME BUFFER JP RDTIME ; ALL SET, GO BACK AND DISPLAY ERR: LD DE,INTEXT ; ERROR, JUST DO ERROR DISPLAY LD A,'?' LD (INTEXT+6),A JP FINIS ; BUILD INPUT TIME HERE INTEXT: DEFB '000000 ',CR,LF,'$' END 1!H" *+" 2 ! w A͑ Xtal BASIC Compiler Ver 5.10 (c) Xtal 1987 <2 !"("@"0D : =2 ͎ > ͟ :/!" h (!  ! ! ͑ Compiling -G sN N* q  [ R80 " 9[ * } 7 R8\ ͎ Compiled OK Ö: w͎ Memory Ful=͎ Disc Ful/͎ Directory Ful͎ Bad File Nam ͎ No Fil͑ Error Cannot Compile Ö͎ Numeric Overflo͎ Variabl%͎ Functio͎ Arra͎ Line Numbe͑ Table Overflo͎ Consta;*******************************************; ;* EINSTEIN REAL TIME CLOCK ACCESS PROGRAM *; ;* COPYRIGHT (C) 1980/85 A.J.CORNISH BSc. *; ;* Crystal Electronics *; ;* Originally written for SHARP MZ80K 1980 *; ;* Adapted for TATUNG EINSTEIN, Nov 1985 *; ;*******************************************; ORG 0100H CR EQU 0DH LF EQU 0AH DOS EQU 0005H FDESC EQU 005CH STACK EQU 0300H TIMBUF EQU 0FB8CH ; AREA FOR STORING TIME (SAVING TIME?!) TIME: LD (OLDSP),SP ; SAVE STACK FROM DOS n͎ Strin͎ 'HOLD ͎ 'EVAL͑ ' Not Allowed -}!6#6#" 2 * ~#͎ Pass 1 ~#(@#^#V#͐ 8+ ? z(6#s#r#͔ 2 , w##w#w#" Ͷ!" !$" !"8͑ Pass 2 ##ͮ+R * [ RDMbk##~ #S + * ###" ~#+ +6#" [ Rs#r͑ Pass 3* ##~#(~#8 0 ##8 ͇* $R s#r#B:0:(:@:8! !$x(6#q#q#" ɯ2  ~# +w#  :( ;%(@& +p#0I.( &(08=:09++ͥTrack-Info  N 89>w#q#z( 6#{J{8>K0OA8[0 ++d:  +2 ò()s( "O(® ȹ î>2 ^#V!~#foR(###~( [ p+q##!^#Vz<#~#: ͑ - Reference Error(s): C>2 ͑ in:* ~#(1 ^#V#R !###~( x +V+^C͑  ͟ RzC0ñ  B0 }$ % $ 1 x2 : #~((:: O !(ڱ!@~( #: ˧2 !8ھ#: 2 !0#~7 ?~A[?#! ?(# 0~ + ! ~# ++yR!~ #w#w#w!$[ XS R(: G ##>0K 1 "8))))o7&(+ 8 .(E(7͏ PX1 85.(E 1 9(+1 86 _ ({Gi< WxGO0 {0_0 ? 8?>u-t+O= : 8 2  !4Ü ! ~2 [ -~(02Ɓʜwyʆ QO: <<! ~88w* !C--* C&--= W{G>~) |}~#6#ͦ V m ! ~ʄ :ʌ 0D! ! :8* ҆ ,4ʜ7C,,Æ @ 0O* Czw--wÆ ! ~2 !~2[ ͢ K ! : 8˾-! ~-(~,C!--5,~8w,C~qO-~qO6~>* C4-4ʜ,8~w,CN6,~qO(45(4C,>,,= <{[ * G-{[ * G-_Wz(=!w,6,r,s[ C(,r!ͥ !:˾!K p ê K " goB9*   K !9! ! K * [ K_#~ (:0?==<>!#N#F#B (00++* RT]S !#R+w+r+sɶw* ~##ȯGO 7  s "W( (~~w##Ⱥ #~ (:0?==< wy(1/G :( x w  #6 #~?a ! y2222'2;<.   (#w  #s#r#~ !'!*GyG~(#_Gx(< ~ oz[K*MR!|W]R~$ s#~((8&\U̓BKm>2w#w+x(8&8k% 4 #4+2á~ s!C~7g*6 W~$z #m*~wá8&\OxGWX!i6\PY~$: #*<(*ͅ8^͖͂#)  (s#r{84<01sv͖) ~#fo gÈ*+27:7 2;:;GS9t!9~G0A x Aa#6 S ɯ  ( ,(.:? 80%($ ~ <f   f ͟ ~˿ͱ #(͑ : > ı _ >(<2  LLXBSXBIs "W( (~~w##Ⱥ #~ (:0?==< wy(1/G :( x w  #6 #~?a ! y2222'2;<.   (#w  v!%8#G~Gajy "+7!%V(ˆ8!( !6#  {2(H!~ L{Ę")ͼ%*{<(*ͅ8o:(  Error*:o&f:(***"!6*{ *]~ #####!3r [MKG*KRCMSK*I "I*a "a*K[MR*GKM[KB"M*s*w#w#"G*+>w"]!""}2*O"M*G"I"a"Kͧ {Q!p"nog2js*]"]͕*+l56 o 1(=K('**"(,[S(~["(Track-Info  N BK"]*UR8*G[* Rb*SC"1~SSKQ`i[Q"QR[?"?B"Ov6 0>3+s"] *] ø 0>3+ͺ>2  #s ~# :=2 3: <2~~##ڠ;:~~#Ⱥ ¼ ~#fo0>3+"] N#F#ͺ(*]`i("(~G(+K xV #~,(O#~(_Gy!(!p##s#rͳ~Sl:h+2*lͦ (([Ð͉ɯs#rn  ͻ+^+V##~BKT]͘vu(I(zָҒ'#O!% ~#foͪ@ @` 0@P`p}.*_jͻS:h( =F#~5#~_O* 9O#yO0%I8'#*8'EXK  N#fi7y8 Ox OxOxAZ+.{/Gz/:`y>!kY2h2i*͡͡z| }z <+ #(?2j͐:hĻ"]\~#~#5J *|Ep#w͉JYN#F(`i^#*]~, X#~ͅ +>2j͇   0͸ r+!ͪ~p> #+ͺ_:W*l36 s"]~Y_ ###~(!`ڇ D_[ O N#F#~~#~ր__[ +ͺ(~ o ͼ #[S[yHG~ȸ ###"(8 0# #~#̘&" ̓%r> ͦ#*a:O}8<2o))DMC`i"a+ 6x ))[I*K *lR8 "l"K~#`2g~ͧ#^KB*g #G~~( %(##~~T5"+#~%~#̗&q0o(T&(%(Y,(%+:i s ͂*r:%gĸ%r*~, 28:8W:</0 G+#~zo%"!|q#p0#s#r+"S#~(( " ##p|*n">2h2i͐"nR~s7[K*MB8"M#b*O>2k"M!*K!p.!:8˾-!~-(~,C!--5,~8w,C~qO-~qO6~>*3C4-4T,8~w,CN6,~qO(45(4C,>,,= <{[3*1G-{[3*1G-!ͯJ X /2!~ʆ:0D!a!:8͜,4T7C,,Ͳ0O*3Czw--wG!~( :(8iTƀw:-w:0*3~!C O~q#yJ~q,G!C>,,ܜ!C,,G0O!~2[.-~(0TƁTwy[n >*I[a(L[K(P#N#F#~ 0"cO #[c(>7N#F˸#^#V#x"e*MR*e|+F+N+~+ng PY+DM*Mq#p`i+*N#F˸*~#f˼o DMm[~!=áN#F˸#~#fox*PYN#F˸*M  "M*n+F+N++"n&W2i2hN#F+˸x)##^#V)##^#Vm*~wáz(~#f˼oR0|(!B 0DM##~#fomá~#f˼oBx~ )(#BKq)) F6~pQO:0<<!~88w*5!C--*3C&--= Wk-~h:(0cTƁT!w:-w:0GͲ0?ܜ8*5!C--*3C--{~-~yB!a*1~7/:W_!>FO!^+V!R*1C4+*1C5~<+_ͺ_Wz(-=!w,6,r,s[.C(,r!!:˾͝!\Mͺ!\:ր>2!WH!4!\M!ͯ!\M̀͆E!s ͂bN#F#^#Vm(!+N*Q( = mbK ~,> (G{͂|̀}͉0:8'L#͌8|7 DMm+|(ás+ #+ͺ:s#+z {~u #^#V*#ɯ>G:i s(+0"_*_xx~}0W_"c#~Gz 7"c~t _:i=ʞ{_!uxV#z`:N#F*c!:iz_~s#(=^#V#R^~[W#o&)))Wɯ2h2i#~( a\~08~"ʃ͉>AM͆2/̀!5:!!0G:8 2!4s(Z!ͺ!}(!-:.G,!z> S\)j0 = zT])):.(G::/<ͺ!~w!2!K.pK."goB9*!K.!9!M!J!J!K.!5J:.(~(+4!!M!s!É!Ms#r#q#p#^#V#N#F#r,s:.G,w,wHMG:ƀ/ƀ2:.G̀H;Track-Info  N !5ͺ:(S!h:G!~ :.G#~ E0 Y|͝M: !ề!\M:0(ƀ8!;Ϳ.ͯMͺ/T͆!͉!ͯ̀!5AM͆2/8ͺ:8!ͯH!{\:0<̀͆E!͉>!5AM͆2/̀̀>;!4H!ͯ%!{\!5ͭpͤH!{\G!WH:8!@ͯ!!!\M̀͆E!͉>AM!F6q#pz(i'ą*~~%i'͂*!6̈́'r'wy*!8̈́'$~v*8r'~!~6<")7R*s(^$4${:<^#V*4R :kȯ2kS4~#~# ÷ ^#V:(K(*S[U|**[M|*e#"G CW>2:(_*:(>2m*8v*8I*8~#(:(_[) !;:< xs1(#>2jͳs!; ͙(~s&r'/)!4/) P(m*P(p*(ͳ(s~#[I*a+R8 ()%~)w#")<͆<2/̀!5z!eS[.*'+|['RMS'#+_wɁIڢ!h‚Iڢ!hƒIڢ!h8;)\^[ة7(r1rz53eF 8))))o͈&(-(+(+PX88.(E ] (+89 _ ({k  < WxG=0{0_0 ? 8?>u-t+==!ͺ6- 6 :%o(#"e!:-G6#y*s*!"E!%7ɯw#w#w#w!)0 ͈*2$s6#~  +)DO!;:$ w (8/G :( :$<x w**#6 #~?  y!<*D # # x !?*D2G2[x2:.  ,*(#* 6? w ,*_#6 ɯ  _.: XBIOBJ6$(~ :**4,E,å5å567)7i7Â7Ñ6å6Z8÷77f5p5)5@89::9n*XTAL BASP, D (88$"Ϟ*55555Ϛ*###8SJ aj0w=#"&o~5860R( +4~: +4#61:G*+|( |<}(*LxE~!:-<.(Ox!+*+| #+~0(~.(#6:-==G>~!6E#:6+!6-D#/ 0:p#w(0<  (p>0:-G*+|x}<$!"x[=>%*:"{2<[*#S="? 8*?w#͈": "#^**Q6 T]K  !:G6#:_> ^*:D ^*$<( wy#N W{ :_"z* W:_RDM*QG> :O!~(= T]#w #Ͼ!"8!"A"+""%!*!8+0.,ɽ5X*X*͏++!!!͏++(+yϟ,# ͏++ 8͏++*J^#V#GϟAK 2#88#G +#+_~(#ρ ~()G(( (P_Y,_P> > (>:G> x 29o%>o%Y,>>P@x/yWx( Gy2xS c" x 89,O(GyOe/GyOy{z5_W./CSɯ>[/1/rO $<*?:=*QK  +=(:OBR:G> ~^*#8!+z#0x=84#6#͈#7 G:==x DM$ :O P#Q#+~  +#RyDMx( ~ # !: OB=R0< JP:_͌[Q:>!A#N ȹ0>k%8&[= (" 8k#0#R0:= #5"͈#W5"[:0O (6*+/%%d*[=k#0#~o%͸%$P5"k#0͸%#$6#6k#0>o%R0`iR(BK % > ^*" %# 5"5"PY+ #/r**O/+-2~~-ɯe/!M-o0$    +#!ͯHS./CS#+S̀/( +M>!44S2-+-̀/( -#-BKBK:-Ɉ"nND+ͺ0 !˾>2-!-\M?/[/=2:9(Oe/s 29z29=&o))) #+L͂.(o͂.( x (F !sÊ,(U;$/#./>0! 0E.RM0 $ y0PY,,˺ze/WW{e/_,#~yNo%8W::_5"+/%d*͸%d*!%N654^#V#N#y(N#fiN ( #^#V# /%!<>%* 84 :%> 0~!9%0#0DG͸% b& %%> :<> o%:E(:%w> :A( G x j*:;=!<8:BGv&>(>?*:%<$k%8&w>%* 8:(~#k&!%^(0!w7 !F45V'v&2D:F!@' :E!0'(*N#_+#~(**!6E !8!% /)KͳS4͡'^% {(w%W(6!E 8!%ˎ>; ($/> O8/7/#+:./CSO/~~(r(̈́/( ~#~~,#+Ly(0ͽ/~ # WY;5 (A( B(/8 0 # M> ;RY5 0{ +  s5DM(G>^*G{zvm!á~+ϼLyA0 D24:4D͎3w#6#w#6#w 0~0!3n1(#!3n1(#Track-Info  N !3n12 4!3ͥ1!3>ͥ1!3>ͥ1: 4(3:4G> !31!3>1!3>1= ͥ58 Ͻ*6~~(,(+LA ^VF 1srp ~24~(5"M26 w ~^VGV2srp>2 424~(Z~(T~ (M4 4 F n f )))~ ())))+2~D2~F~D2 ~D2ݾ 34 >= ɼM2p >w w >242.(l=(l-(l+(l'(lVJ3b!3( #!3 !3228|(:4O}{3 |{3:4͜324{3:4͜324N (͜3>> >>>X2(R(!X(A?O'**2$+"U"S[ R"Q["R"Oa:OP+,Xtal BASIC System Ver 5.10 (c) Xtal 1986-7 !\; )=K('{Q*l6 +"U"S[ "W ( ##OP+,Xtal BASIC System Ver 5.00 (c) Xtal 1986-7 !\; ͚ k(,k( ke8) Y b o f k'k*Y H; (/z kk, ',\ (56.665650Nb000/0!yO00_>0=UbkmM%k,P) Uk*_ Tr!*8bk6 ~#fo:4=(<!R> =w>24( 20 8~w!3o0$~=w(*208͎3~{3#~w#~w#~w#~w[2y ~ :4G!4o$:4<= M 0 aw 0 h a      BK~ BK#{z~ #BK5#BK5og͈#+!4JM#+!4{5Ɇe.#~,> (G4͂L4M>0(+Lx(_'_5y x "# "" " c" "j,q,J,"#$|$$$$$## n$%% 7%:%<%:% 7%7%s5Ϝ>><(s5ϛ2F͊58e7̓52C>&{57G:&Gx(ϟϠϡ1(5!D8<$71((!D˾7P( 7#87I*o7 ~#( 7Hq$[)!<~  6?#Drive:;/o%%!<:9t68.7 %%j*(:E8& 7bl7 (D770yͅ7 1(r!;[1(8<s!;K![1( 7i7D78<(>w!w"w#s!;!"4!cZ7888< FI*E*7Z7!8Q)7E*Z7"87 ͠7s!87ȷI*Q)W7"4!4"4#!^#Vz(r+s!<=()%_:)ݾL) 0>*M8>.o%~#o%W7N&F'͌ 0)j u$|ݾ! {ݾ" zݾ#(y7t!s"r#͠7sqL)888qq"sreakextyntaxeturnatatyvflem Fullranchangeimensionivisiont+: "BYTE Sieve of Erastothenes test" F(8191): ~"000000" "1 iteration only..."(C~02 I~0 r 8191: F(I)~1: P I~0 r 8191Z F(I)~0 s 150dP~ItIt3: PRINT P, K~I r 8191 p P: F(K)~0: C~Ct12: C;"primes found at ";(,3,2);":";(,2)XR COMv"#$%&'()ERASTO $$$ack Fullypemdtr Ovfltr Complexontn Defnperandad Datand of Textilerive Selectile Typeo Fileile Existsile Lockedisc Lockedisc Seekisc Fullir Fulley Defnhape Defnrite Protectoop,,,,..P.,|-*44e-.:4e4L4s404+/++4+  k(,k( ke8) Y b o f k'k*Y H; (/z kk, ',\ (56.665650Nb000/0!yO00_>0=UbkmM%k,P) Uk*_ Tr!*8bk6Track-Info  N  =,$*):": N1~N1t1  L  1040  620V~(G1$)  V1 s 1180 $N~Nt18B$(N)~G1$B I~1 r Nu1.L B$(NuIt1)B$(NuI) s B$(NuI),B$(NuIt1) I@0,15;"You have used "; L~1 r N: B$(L);:  ". " !@0,20;"You have been hung!"L8~L8t1: 1500  1300 @0,20;"You win!!": W8~W8t1  1350 "The word was "; J~1 r A: W$(J);: 4F: "Do you want to try another word ";N$;: T$Z (T$)~89 s 300 d L$n W8~1 s W7$~"y"%RJJ B L8~1 s L7$~"."3: "Well ";N$;" you retire with a record of" W8;"victor";W7$;" and"; L8;"defeat";L7$ $ "Thanks for playing HANGMAN."@0,3;"+===+": "| |" I~1 r 4  "| ";# J~1 r 5: Q$(5w(Iu1)tJ);:  L$ I "|": "========"2" X}0 s @0,14;"You have ";X;" more guesses.",+@ DATA STATEMENTS INCLUDING VOCABULARY!^ 3,8,14,12,7,9,16,20,1,5 1h "0","I","\","/","-","-","-","-","\","/" r 1803 ZDPT,RANLT,LDMT,ZMWPV/d: : : "Hello. What is your name?";N$-n "Hi ";N$;". This is the game known as"-x "HANGMAN. Do you know how to play?";Y$ (Y$)~89 s 220/ "I'll think of a word, you then have 10"- "guesses for the letters in the word."0 "If you guess the correct word, you win."- "If not, you hang. Correct guesses do". "not affect the guess counter. You may". "surrender at any time by typing in an"/ "asterisk(*). We're now ready to begin."6 C$(20),G$(20),B$(4IXSRVUS,VCZTLMS,RWVLFHS7 BKMLGRXS,TFZMZR,MXLTMRGLR,MWRERWFZOR,VDVOQ,FWTVQ4 SZPRP,ZABO,RXLIRXVO,RJFRWZGVO,LEVOBO,ZTZARMVN4 ZWIRTZON,VOZMXSLOBN,ZERTZYRORGBM,BNKSM,YQVXGL7 KGRXL,LTM,BHGVIL,ZQZNZHK,ZIZWLCK,SLHKSLIVHXVMXVK5 BTNBK,ILCBK,IRXPOBK,FZPVJ,SZKHLWBI,RTRWI,SBNVI4 ZEZTVH,XSVIALH,XIFGRMRAVH,ZCD,VITVZMGH,SZMGBH1 SZDOH,SIREVOH,XZOKH,LUZH,DZBH,SZDG,SBILRWG7 BKVG,MRUBF,MRXBXOVF,ZMGZTVE,ZMJFRHSE,ZPVD,RTDZND1 ZDMB,ZMBA,RMXA,VMLMC,BMXSO,BOLKSLMVC,SRXSD. AZIX,ZNYQ,0),W$(20),F(10),O$(10),Q$(20)( "Press any key when ready:";: A~ I~1 r 10: F(I):  I~1 r 10: O$(I):  NWDS, I~1 r 20: Q$(I)~" ": 6: X~0: 1500: L$@W7$~"ies": L7$~"s." T 1700|N~0: Q~0: N2~0I~(NWDS)t1 J~1 r I: A$: "A~(A$): A$~(A$,1)t(A$,Au1) I~1 r A6W$(I)~(155u((A$,I,1))): G$(I)~W$(I): C$(I)~"-"%A$~"": I~1 r A: A$~A$tW$(I): X START GUESSING, FOLKS!bX~10: N~1: N1~0 l@0,17;"The word is ";v J~ZAAQ,FRAJ,OBU,VKGD,IRHPY,XIVZ/ ZMPY,LYX,IVDW,MRTNZV,IZEBT,ZIPS,IPR,ZIPO3 ROPN,ZHGBM,IZMTVL,RMPH,IZDOG,MXOVF,ZHGE,ZMWD:& ZDOB,RXVMGRLFHO,VDWO,MLNZGLKLVRZL,VWRXZGVW,VGRXVMGI40 ZMLHVXLMWM,RXLUZIZWK,ZXLMRXO,IRNRGREVK,GZIIBH<: IBLTVMRXX,NMRKLGVMGL,MLNZOBZ,RHGVIMX,RORZX,NMRHXRVMGL5D FWRXILFHO,ZMGLX,BOVNC,SOVTNK,RGFRGZIBK,VCGFIVG6N SVGLIRXI,IRMTD,GVILWZXGBOK,VNLIISLRWS,ZIOVJFRMS7X VNLKSRORZXS,VMLKSLYRXC,OZMTVU,ROORYFHGVIU,RIXLMA2b BNFITBA,FZHZIJ,FZIPJ,BVO,HZIG,SLMVNVK,LDVOE41 r A: C$(J);" ";:  N1~A s 1280 X~0 s 1240  L$ @0,19: "GUESS:";G1$@0,21;o30);@0,21! G1$~"*" s 1300: GIVE UP!* G1$~A$ s 1280: GUESS WHOLE WORD! K~1 r A  G1$~G$(K) s 930  K  L~1 r N   G1$}B$(L) s 830+* "No...You tried this before.": 850 > L H "No";q26)RX~Xu1: N2~N2t1\Q$(F(N2))~O$(N2)f X~0 s 1240p 1500: 1000! "Hey, that's right!!";q26) L~K r A 5 G$(L)~G1$ s C$(L)~G1$: G$(L)~"l VIVMWRKRGBH,LMRXR,KLTVVZ,ZMGRXOVX,VVIBO,OZNZO5v VIIZXLGGZG,ZMTZILLP,LGZGVI,IZXGG,IIVZIHZ,RYVOO2 LMWLMVX,VMVIRXT,LGZR,FHRMVHHY,RIZUUVT,BIISN4 MGRGSVHRHZ,ZGHFKX,LIZXOVX,ZXFFNE,ZKVM,ZMTNZMS6 ZHVIO,LOLTIZNS,SROLHLKSBK,NYIBLMRXV,LNKGILOOVIX6 ITBOVZ,WQVXGREVZ,TVMWZZ,OXSVNBZ,MGRJFVZ,JFVLFHZ7 HBOFNZ,VOUIBY,ORGAPIRVTY,LFITVLRHRVY,FHSBY,BXOVXA ORJFVX,LMEVITVX,LABX,RMLHZFIW,BMZNRXW,OVXGILVMXVKSZOLTIZNV7 JFZORAZGRLMV,OZHPU,OZELIU,IRHPBU,FZIGAJ,ZOEZMRXTi|{U,IRHTrack-Info  N   A$~(255): : 4,0: 5,0! CR(13),CT(13),CU(13): NN~3; R$(13),T$(13),U$(13),H$(13),O$(210): 32: R~1: 1C~0: CLEAR CREDIT 169,"00000000F0101010"# 244,"10387CFEFE10FE00": # 245,"6CFEFEFE7C381000": # 246,"10387CFEFE7C3810": # 241,"103838387CFE82FE": # 240,"0000183C7E7E3C18": # 247,"103854FEFE541010": !2 I~1 r 13: H$(I): : Y~21"7 GOTO 530: REM TO BE REMOVED#< 14: @5,6,"";("",17);""&K X~7 r 21: @5,X;,"-=30p"$ 15: @7,12,"WIN WIN WIN 27"4 6: 81,115 r 101,115: 129,115 r 149,1152 54,103 r 54,127 r 80,127 r 80,103 r 54,1037 102,103 r 102,127 r 128,127 r 128,103 r 102,103d 150,103 r 150,127 r 176,127 r 176,103 r 150,103: 15: 54,128 r 54,174 r 80,174 r 80,128A 54,151 r 80,151: 102,128 r 102,174 r 128,174 r 128,128 102,151 r 128,151C 150,128 r 150,174 r 176,174 r 176,128: 150,151 r 176,1513 8: 14,30 r 14,41 r 40,41 r 40,30 r 14,30"";o17);"": P@5,22;"";@23,22;""(U 4: X~7 r 15: @6,X;(A$,17): 8 X~16 r 22: @6,X;A$;@22,X;A$: : @7,22;("",15)$-2: @7,16,;"";("",13);"" X~7 r 21: @25,X;"": ' X~17 r 20: @7,X;"";o13);"": 9@7,21;"";("",13);"";@23,21;"Ĵ": X~1 r 50: U I~1 r 14: @25,6tI,"": X~1 r 20: : @25,6tI;" ";: "-D1R": : @25,20,"";A P~1 r 13: I~1 r 5: Pt1: @Pt7,9,H$(I): 7: "A1R": A 2: Y~Yu1: @25,Y,"";@25,Yu1,"";: @Pt7,9,H$(P): "-D2Y 47,30 r 47,41 r 88,41 r 88,30 r 47,30: 95,30 r 95,41 r 136,41 r 136,30 r 95,30a 143,30 r 143,41 r 184,41 r 184,30 r 143,30: 215,30 r 215,41 r 241,41 r 241,30 r 215,30 6: @24,13,"-=20p" 13: @10,15,"X X"L@10,13,"X X ": 14: @24,14,"-=20p": 13: @24,15,"-=10p"@10,15,"X X"@ 15: @7,16,"WIN WIN WIN 50p";@19,15;"WIN";@19,13;"WAYS"@7,14,"WIN WIN WIN TO"J 15: @3,21;"V";@8,21;"B";@14,21;"N";@20,21;"M";@27,21;"SPC": 15  14R"# I~1 r 50: I,P: @25,7,"";6 K~1 r 13: @8,9," ": K1~1 r 30: )@8,9,"FRUIT MACHINE": "-C+CR": K " F,R,U,I,T,-,M,A,C,H,I,N,E@,@13,17,"by": I~1 r 100: : @9,18,"Phil": I~1 r 100: &6@14,18,"Ludgate": I~1 r 100: (:@9,19,"Adapted by": I~1 r 100: (=@10,20,"Den Lakin": I~1 r 100: 2@ (12)t3: @9,21;("0",11);: I~1 r 200: 2J (12)t3: @4,22;("0",21);: I~1 r 200: "T (12)t3: @0,23;("0",29);^ I~1 r 400: | J~22 r70H CR(1): @7,9,R$(1): CR(2): @7,6,R$(2): CR(3): @7,3,R$(3)K  CT(1): @13,9,T$(1): CT(2): @13,6,T$(2): CT(3): @13,3,T$(3)\* CU(1): @19,9,U$(1): CU(2): @19,6,U$(2): CU(3): @19,3,U$(3): C~0: T~0: 15@4H1~0: H2~0: H3~0: Z$~" ": Q~0: NG~0: NW~0: Y1~0: Y2~0: Y3~09 POKE &13D,0> C1 s 990H 1290: KEY IN AND FLASH=M@2,19;" ";@6,19;" ";@12,19;" ";@18,19;" "P CH~32 s 8602R X~1 r 10: 0,2: @27,19,"RUN": : 15,0 WCH~! 0 pu1! (12)t3: @0,J;("0",29); A~1 r 50: A,J: : 15,0: " 'FRUIT MACHINE'is played the same as";+ " for the famous pub machine."; 32,183 r 134,1830 "It has NUDGE,HOLD and GAMBLE features"@9,7;"INSTRUCTIONS:-" 72,127 r 166,1275@2,9;"The keys directly below the displayed";. " boxes affect operationand are self-"; "explanatory......"#: " They are the"+: " 'V' 'B' 'N' 'M' and 'SPC' Keys",: "Press 'F' \ CH~32 s CH~0: 900: RUN)p X~1 r 10: 2,0: @27,19;"RUN": z CH~70 s 2230: END  850  1480) 1700: Y1~0: Y2~0: Y3~0: NW~0: NG~0 Q~1 s 930N1~(4): N1~2 s 1980M@2,NN;" ";@6,19;" ";@12,19;" ";@18,19;" ": REMOVES NUDGE7 II~7 r 12: @5,II;" ": : REMOVES GAMBLE&NUDGEX@3,19," ";@2,15," ";@2,12," ";@2,9," ";@2,6," ";@2,3," ": GAMBLE NO.S ERASER~0: 820@0,0,o31);G 15: @0,0,"Input No.of Credits?";@20,0: C$~$: Ckey to finish the game"1@5,22,"TYPE ANY KEY TO START";: A~: 4: :& 1: 15: 4,179 r 251,179 r 251,4 r 4,4 r 4,179a0 3: 14,168 r 18,176 r 28,176 r 32,168 r 32,56 r 28,48 r 18,48 r 14,56 r 14,168 r 32,168: 14,56 r 32,56? 19,171: 20,50D 2: @24,4,"```= `1"I 10: @24,5,"=80p"N 4: @24,6,"=60p"X 6: @24,7,"=40p"b 14: @24,8,"=40p"l 13: @24,9,"=30p"v 2: @24,10,"``-=50p" 10: @24,11,"-=40p" 4: @24,121~(C$): T~TtC1$ M~1 r C1: C~Ct1w(C1): "A1R" C1 s 990* 15,0: @0,0,"Credit =";C;o12): M@@12,0,"Coins taken =": 0,15: @26,0;Tw10"p": 15,0: G~(2): Q~1: G}1 s A$@6,19," ";@12,19," ";@18,19," ": ERA HOLD ETC. C1}4 s F8 15: @5,7,"G";@5,8,"a";@5,9,"m";@5,10,"b";@5,11,"l";@5,12,"e";(B@2,NN," "@27,19,"GAM";@2,19,"COL"+LG$~$: G$~" " s 1120: G$~"V" s 1V 5,15: @2,19;"COL": 15,5: @2,19,"COL"<[ 5,15: @27,19;"GAM": Track-Info  N  15,5: @27,19,"GAM";: 1100` 15,0: G1~(9)3j G1 1160,1180,1200,1220,1240,1200,1200,1220.t@2,6,"80";: C2~7: "-D0R": ~86 s 1270~@2,6," ";: 1240.@2,9,"60";: C2~5: "-B0R": ~86 s 1270@2,9," ";: 1240.@2,3,"`1";: C2~9: "-C0R": ~86 s 1270@2,3," "/@2,15,"20";: C2~1: "-F0R": ~86 s 1270@2,15," "/@2,12,"40";: C2~3: "-B0R": ~86 s 1270@2,12," ""-E0R": ~86 s 1260  1120<@2,15,"00": C2~u1: I~1 r 10: "+0DR")~"" s C1~5)& R$(R1)~"" { R$(R1)~"" s C1~30 R$(R1)~"" s C1~24: 2450: "R4-A1-F-CFBFB-C-A5R4": 1040: 1000 DNW~1: N R$(R1)~"```" s C1~4X R$(R1)~"" s C1~3b R$(R1)~"" s C1~2)l R$(R1)~"" { R$(R1)~"" s C1~1v R$(R1)~"" s C1~0 R$(R1)~"WIN" s 17600 2480: "R4+B2+E+ADG+B3R4": 1040: 1000 NW~1:  ** NUDGE ROUTINE ** N~(4)t1  2223(@3,NN;N;@5,7,"N";@5,8,"u";@5,9,"d"@5,10;"g";@5,11;"e"; N}1 s @5,12: : @2,15," " C1~C2 I~1 r 500: : CH~0:   R~1 s Z~(5) Z}2 s B2 5,6: @6,19," HOLD";@12,19," HOLD";@18,19," HOLD": 15,0 < 14002F 6,5: H1~0 s @6,19," HOLD": FLASH HOLD+P H2~0 s @12,19," HOLD": FLASH HOLD3Z H3~0 s @18,19," HOLD": 15,0: FLASH HOLD d 1400i CH~70 s 2230: END n 1330$xCH~: K~1 r 5: CH~70 s 22301} 2,0: @27,19,"RUN": 2,13: @2,19,"CAN"~ K~1 r 5: 0,2: @27,19;"RUN": 13,2: @2,19,;"s" N$~$& 5,15: @6,19;((A$,5)t(4),3)/ 15,5: @6,19,("NUDGE"t(4),3): 15,0 N$~"B" s 2110  N$~"N" s 2150 N$~"M" s 2190  N}~1 z NW}1 s 20204C1~0: 1000> R1}10 s R1~0HR1~R1t1: "+2BR" M 2221VR CR(R1): @7,9,R$(R1): CR(R1t1): @7,6,R$(R1t1): CR(R1t2): @7,3,R$(R1t2)W 15: @3,NN;N#\ "+D1R": NG~1: 1700: 2080f R2}10 s R2~0pR2~R2t1: "+2BR" u 2221Yz CT(R2): @13,9,T$(R2): CT(R2t1): @13,6,T$(R2t1): CT("CAN": 15,0 CH~0 s " CH~86 s H1~0: H2~0: H3~0:  CH~66 s H1~1 CH~78 s H2~1 CH~77 s H3~1 CH~32 s ' K~1 r 13: R$(K),T$(K),U$(K): * K~1 r 13: CR(K),CT(K),CU(K): : @27,19;" ": CLEAR RUN N~1 r V K~1 r 11 H1~1 s 1530P CR(K): @7,9,R$(K): CR(Kt1): @7,6,R$(Kt1): CR(Kt2): @7,3,R$(Kt2) H2~1 s 1550S CT(K): @13,9,T$(K): CT(Kt1): @13,6,T$(Kt1): CT(Kt2): @13,3,T$(Kt2) H3~1 s 1570S CU(KR2t2): @13,3,T$(R2t2) 15: @3,NN;N# "+D1R": NG~1: 1700: 2080 R3}10 s R3~0R3~R3t1: "+B2R"  2221Y CU(R3): @19,9,U$(R3): CU(R3t1): @19,6,U$(R3t1): CU(R3t2): @19,3,U$(R3t2) 15: @3,NN;N# "+D1R": NG~1: 1700: 2080 N~Nu1@2,NN;" "; N~0 s NN~15 N~1 s NN~12 N~2 s NN~9 N~3 s NN~6 N~4 s NN~3: T}C s 2260 TC s 22806@4,10,"YOU BROKE EVEN--SO NOBODY LOSES";: 23109WN~TuC: 2510: @4,10,): @19,9,U$(K): CU(Kt1): @19,6,U$(Kt1): CU(Kt2): @19,3,U$(Kt2) " K,N, H1~1 s 16106R1~(11)t1V@ CR(R1): @7,9,R$(R1): CR(R1t1): @7,6,R$(R1t1): CR(R1t2): @7,3,R$(R1t2)EH1~1: V~1: "+DR": 1480JAA~0: H2~1 s 1660TR2~(11)t1%^AA~AAt1: R$(R1)}T$(R2) s 16502h AA~1 s 1650: R4~(4): R41 s 1650: 1620Yr CT(R2): @13,9,T$(R2): CT(R2t1): @13,6,T$(R2t1): CT(R2t2): @13,3,T$(R2t2)wH2~1: V~1: "+ER": 1480| H3~1 s R3~(11)t1d"YOU LOST "WD$" -- BAD LUCK"; "C5R0+C5R": 2310LWN~CuT: 2510: "+C5R0C5R0": @0,10,"YOU WON "WD$" - CONGRATULATIONS"/ @0,20,"GAMBLE AGAIN SOON......TA..RA.": B ```,,,,,,,,```,,WIN,,,```,B ,,,,,,WIN,,,,,,,,*$ ,,WIN,```,,,,,,) 2,13,6,14,14,4,10,4,2,6,15,14,13,2,10-* 4,14,13,6,6,6,15,10,4,14,13,13,13,4,14+ 4,6,15,2,13,6,14,14,45. K~1 r 10: R1~8 s @7,9; CU(R3): @19,9,U$(R3): CU(R3t1): @19,6,U$(R3t1): CU(R3t2): @19,3,U$(R3t2): H3~1: V~1 "+BR": 1480$ R1~8 { R1t1~8 { R1t2~8 s Y1~1$ R2~4 { R2t1~4 { R2t2~4 s Y2~1' R3~11 { R3t1~11 { R3t2~11 s Y3~1  Y1~1 z Y2~1 z Y3~1 s 1780+ R$(R1)~T$(R2) z T$(R2)~U$(R3) s 1800 R$(R1)~T$(R2) s 1870  NG~1 s : C1~u1: 10008C1~4: 2350: 3: "R5B0CDEFGA-B-C-D-E-F3R5": 4 1040: 1000: NW~1:  R$(R1)~"```" s C1~9 R$(R1)~"" s C1~7 R$(R1(A$,3): @7,9,R$(R1)@8 R1t1~8 s 6: @7,6;(A$,3): CR(R1t1): @7,6,R$(R1t1)@B R1t2~8 s 6: @7,3;(A$,3): CR(R1t2): @7,3,R$(R1t2)<L R2~4 s 6: @13,9;(A$,3): CT(R2): @13,9,T$(R2)BV R2t1~4 s 6: @13,6;(A$,3): CT(R2t1): @13,6,T$(R2t1)B` R2t2~4 s 6: @13,3;(A$,3): CT(R2t2): @13,3,T$(R2t2)=j R3~11 s 6: @19,9;(A$,3): CU(R3): @19,9,U$(R3)Ct R3t1~11 s 6: @19,6;(A$,3): CU(R3t1): @19,6,U$(R3t1)C~ R3t2~11 s 6: @19,3;(A$,3): CUTrack-Info  N  (R3t2): @19,3,U$(R3t2) : @ K~1 r 15: 6: @7,9;(A$,3);@13,9;(A$,3);@19,9;(A$,3)P CR(R1): @7,9,R$(R1): CT(R2): @13,9,T$(R2): CU(R3): @19,9,U$(R3) : 2 K~1 r 15: 6: @7,9;(A$,3);@13,9;(A$,3)6 CR(R1): @7,9,R$(R1): CT(R2): @13,9,T$(R2) :  WN$~(WN): WL~(WN$)' 15: WL~2 s WD$~WN$t"0"t"p": 4 WL~3 s WD$~"`"t(WN$,2,1)t"."t(WN$,1)t"0": 4 WL~4 s WD$~"`"t(WN$,2,2)t"."t(WN$,1)t"0": 4 WL~5 s WD$~""t(WN$,2,3)t"."t(WN$,1)t: " dark and you have no light!"K "If you hit the cave side it ": " glows, but Gruff can hear you."H "Gruff has been known to break": " down a wall to get at food" "So do be careful"&: q4)"USE CURSOR KEYS TO MOVE",: q4)"PRESS ANY KEY TO BEGIN ";: A~ 4: 1: W$~(255) : NN~7BB~3wNN: SS~BB) I~0 r BB p 3: @0,I;(W$,BBt1);: . I~1 r BB p 3: @0,I;(W$t" ",NNt1);: . I~2 r BB p 3: @0,I;(W$t" ",NNt1);: S~1000 M(NNwNN),T(NNwN"0": ! **************************! *WRITTEN BY PHIL LUDGATE *! * ADAPTED BY DEN LAKIN *! * Copyright XtalSoft *! * Crystal Electronics *! * July 81 *!# **************************( ~,R$(R1): CT(R2): @13,9,T$(R2) :  WN$~(WN): WL~(WN$)' 15: WL~2 s WD$~WN$t"0"t"p": 4 WL~3 s WD$~"`"t(WN$,2,1)t"."t(WN$,1)t"0": 4 WL~4 s WD$~"`"t(WN$,2,2)t"."t(WN$,1)t"0": 4 WL~5 s WD$~""t(WN$,2,3)t"."t(WN$,1)tN) I~1 r NNwNN: T(I)~0:  I~1 r NNwNN: M(I)~11: "X~(NN)t1: Y~(NN)t1: C~NNwNN C~1 s 54;R~0: D~0: L~0: U~0: K~XtNNw(Yu1): M(K)~u(M(K)): C~Cu1 X}NN s R~u(M(Kt1)}0) Y}NN s D~u(M(KtNN)}0) X}1 s L~u(M(Ku1)}0)! Y}1 s U~u(M(KuNN)}0)"Q~RtDtLtU!# (Q3 z (10)2) { Q~0 s 51 $DR~(4)% DR 42,45,49%& R~0 s 36: M(K)~M(K)t1: X~Xt1'@3wXu3,3wYu2;" ";(@3wXu3,3wYu1;" "; ) 28&* D~0 s 36: M(K)~M(K)t10: Y~Yt1+@3wXu2,3wYu3;" "; , 28)- L~0 s 36: M(Ku1)~M(Ku1)u1: X~Xu1.@3wX,3wYu2;" ";/@3wX,3wYu1;" "; 0 28,1 U~0 s 36: M(KuNN)~M(KuNN)u10: Y~Yu12@3wXu2,3wY;" ";: 283X~(NN)t1: Y~(NN)t14 M(Xt7w(Yu1))}0 s 515C~Ct1: 28&6: II~1 r 1000: : A}92 s 7 158X~1: Y~(NN)t1: MAN"9 0,8w(3wXu2),u8w(3wYu2),9,0:HX~3wXu2: HY~3wYu2;WY~(NN)t1,< 2: @21,3wWYu2;" ";@21,3wWYu1;" ";=SX~NN: SY~WY>QX~3wSXu2: QY~3wSYu2 ?RD~4@@26,3;: K~AQQ~K: e 135 BK~QQC SX~X z SY~Y s 162D K~4 s 73E K~8 s 90F K~11 s 94G K~10 s 98 H: 64IDX~1: DY~0"J M(XtNNw(Yu1)) y 10}0 s 101"KFX~3wXu2: FY~3wYu2: I~1 r 3LFX~FXtDX: FY~FYtDYM 0,8wFX,u8wFY,9,0N 8,15: 10,128: 7,119'Q I1~15 r 0 pu1: 6,I1: 8,I1: U 7,127V IWX~XtDX: Y~YtDYX X~NN z Y~WY s 125 Y 64ZDX~u1: DY~0[ Xu1~0 s 105$\ M(XtNNw(Yu1)u1) y 10}0 s 105 ] 75^DX~0: DY~u1_ Yu20 s 1090`MM~M(XtNNw* GRUFF COPYRIGHT Crystal Electronics 32: 15: 2I1~0: U1~0: I2~0 0,191:  198: A~0 q10)"GRUFF"B "Gruff is a despicable beast ": " that lives in a cave."; "Gruff is blind but can smell": " and hear you."G "Gruff's only food source is ": " silly people like you that"A " try to steal the jewel in the": " back of the cave."M "You may start with a map of the": " cave, but little good it will"I " do you, because the cave is"(Yu2))x10: MM~MMt1: MM~0 s 109 a 75bDX~0: DY~10cMM~M(XtNNw(Yu1))x10: MM~MMt1: MM~0 s 113 d 75 e 118&g I~0 r 3: @3wX,3w(Yu1)tI;W$;: h 64 i 118*k I~0 r 3: @3w(Xu1),3w(Yu1)tI;W$;: l 64 m 118o@3w(Xu1),3w(Yu1);(W$,3); p 64 q 118s@3w(Xu1),3wY;(W$,3); t 64 u 8,15vSS~SSu1: 1,1: 7,126w I1~15 r 0 p u1.5x I2~1 r 10: 0,I2: y I2~10 r 1 pu1: 0,I2: z 8,I1: 11 { I1|$} 9: @25,3;"YOU";@25,4;"Track-Info  N WIN!"~ 1,1: 8,15  7,126 U1~1 r 5 I1~128 r 1 pu1: 0,I1: U1 7,127 208! X}SX s 137: Y}SY s 150! XSX s 154: YSY s 158 SX~NN s 150 T(SXtNNw(SYu1))}9 s 140$ M(SXtNNw(SYu1)) y 10}0 s 150DX~1: DY~0 1RX~3wSXu2: RY~3wSYu2" I~1 r 3: RX~RXtDX: RY~RYtDY 1,8wRX,u8wRY,2,4QX~RX: QY~RY ISX~SXtDX: SY~SYtDY&T(SXtNNw(SYu1))~T(SXtNNw(SYu1))t1 SY~NN s 154 T(SXtNNw(SYu1))}9 s 153$TRYtMV3BLX~BLXuMV: BLY~BLYuMV: BRX~BRXtMV: BRY~BRYuMV (2) TLY~}190 s 220A~: A}32 s 226 15,4: : 4: : !@13,5;"PLAY AGAIN ";: A$~$ A$~"N" { A$~"n" s : @@8~3 3,8: @7,22;"Crystal Research"@14,23;"Ltd";@10,3;"SCORE= ";SS; RN~(15) 0,TLX,TLY,RN,0 1,TRX,TRY,RN,1 2,BLX,BLY,RN,1 3,BRX,BRY,RN,0" 4,60t(130),40t(130),RN,23TLX~TLXuMV: TLY~TLYtMV: TRX~TRXtMV: TRY~ M(SXtNNw(SYu1))x10t1~0 s 154DX~0: DY~1: 141 SX~1 s 158 T(SXtNNw(SYu1))}9 s 157' M(SXtNNw(SYu1)u1) y 10 }0 s 158DX~u1: DY~0: 141 SY~1 s 137 T(SXtNNw(SYu1))}9 s 161$ M(SXtNNw(SYu2))x10t1~0 s 137DX~0: DY~u1: 141A: 7: : 3: @25,3;"GRUFF";@26,4;"GOT";@26,5;"YOU!" 3: 1: 0,0 0,"6060F0F8FCC7E3E3" 1,"FFF9F99F80808000" 2,"06060F1F3FF3C7C7" 3,"FF9F9FF901010100" 4,"0080808080808080" 5,"804>20201F1F1F1F1F" 6,"0001010101010101" 7,"010204F8F8F8F8F8" 1,100,166,3,0% I~150 r 166: 2,100,I,3,7: * I~166 r 150 p u1: 2,100,I,3,7:  8,15: 10,128: 7,119( I1~15 r 0 p u1: 6,I1: 8,I1: 7,127+A$~"": I~1 r 16: A$~A$t((9)t49): 8,A$X~108: Y~150N~(2): M~3 N~1 s X~XuM: X~XtM Y~YuM 0,X,Y,6,8 Y}~5 s 191A~: A~32 s 243 172 I~1 r 1000: : 243 2 0,"0001010341623319"e0 r 100,116 r 140,116, 66,128 r 100,134 r 140,134 r 174,128 0,"8040201008040201" 1,"0102040810204080" 2,"8142241818244281"X~120: Y~100: MV~5TRX~Xt8: TRY~Yt8TLX~Xu8: TLY~Yt8BRX~Xt8: BRY~Yu8BLX~Xu8: BLY~Yu83 3,8: @7,22;"Crystal Research"@14,23;"Ltd";@10,3;"SCORE= ";SS; RN~(15) 0,TLX,TLY,RN,0 1,TRX,TRY,RN,1 2,BLX,BLY,RN,1 3,BRX,BRY,RN,0" 4,60t(130),40t(130),RN,23TLX~TLXuMV: TLY~TLYtMV: TRX~TRXtMV: TRY~Track-Info  N