EXTENDED CPC DSK File Disk-Info CPDRead v3.24(Track-Info  N  H%?Copyright (C) 1983-87, Crystal Electronics %$: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ɞ8LKA+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ϠϡååééÚÝÁ϶ϷϸϷϹϺϻLKA_#"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 TIME COMAUTO COMCOPY COM(8XBAS COM9:;<=XSM COM2 HLOAD COM XED COMh TEST DOCTIME ASMXC COMXR COMv ERASTO XBS!HANGMAN XBS "#FRUIT XBSV$%&'()GRUFF 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.345BACKUP COM67XBAS COM>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>2sl1 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 *' LKAsO1!]~ B!?=1{O  00:00:00 $!>0w#6 ~ ( 082:0.#!~2# ~40#~60##~60!>?2)000000 $  00:00:00 $!>0w#6 ~ ( 082:0.#!~2#LKAXED COMhTEST DOCTIME ASMXC COM !XR COMv"#$%&'()ERASTO XBS*HANGMAN XBS +,FRUIT XBSV-./012Track-Info  N  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(~ 62}: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{À î$$$ 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 2OCTrack-Info  N B0ÿ0LKADD>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 %*:E҄"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[TBB:.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+ͼ"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>28, #*[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*VTrack-Info  N q#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:$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 8ͻ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 VERSION 1.05 (C) 1985-87 Xtal $===O : : >(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:Qb 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 (2+:2.je.",ʹʹ.:gQ((&( ͣjÐ :2+͗G:+2+ͯ( o&ʹQʹ>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?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* Dis(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-}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|)Track-Info  N 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+*Wp*<C4-4 ,8~w,CN6,~qO(45("*:*#"*:(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/,,= <{[<*: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.02!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?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!+!"!! (!-:7G@ SET RESˀ RSTINOUTDAA'NOPEXXLDIRLDILDDRLDDCPIRCPICPDRCPDINIRINIINDRINDOUTIOTIROUTDOTDRRLDoRRDgHALTvDIEIIMFRETIMRETNEMLTLSLPvTST TSTIOtIN0OUT0OTIM OTIMROTDM OTDMREQUDEFSDEFBDEFWENDORGPAGE INCLUDEIF ELSE  ENDIF MCAL LIST  XLISTNZZNCCPOPEPMHLDEBCAFSPIXIY (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%A%B%C%D%E%H%L%I%R POPS2 COPYARGS CARGS1 CARGS2 CARGS3 CARGS4 CARGS5 CARGS6 CARGS7 CARGS8 FLUSHLINEPDOT OULKA 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*Track-Info  N ͽLError Address*ͽQ][*R0+:7][*R' ~*#"> ͷͰäͰ*ͽ>:ͷ> ÷Ϳ0 0 Invalid Hex DigippO͕!ww*#"!4 *#"\r(LKAst Address*ͽLLast Address*ͽQ*LBlocks Written*#<ðLBytes Read [*R0(Invalid Addres*[R0J2:0"*&' *& w*#"!4 *#"\r((Disc Writ*&' wULLoad Address*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(͔ ͔+$ *( !" M'![r 02  x'>.(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:!" !͌+"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+ = !"*+%"p%"n%"l " " "+!^6 TF+N+3!* !!9~#(/ (O"('( +}|+#~( 6#~#!46#6*!c*|ğLKArwDM*j}[8! 9RfS4!!ʍ _> _!U! > (%con:rdr:pun:lst: 8 0_~O7! !"# "S!D  #i&^V" !ͅ(* * ,**z2* *z2 ," |=͂:u(!  " !ͅ(* * ,* ͌+i!cmnd:; !ͼ" #$!*"!" !9='} n !9u !9u(I[ !͓(!ͼ" #$* +" !" [ * ͔(* 1"* #" !9u(!ͼ" #$!" 4!9u(([ !͔(!$"* #" +1!9~ !9 n(!9! ͔ !9u [ !͔(* #" +1&}"* 16* #### ~ !~(#!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(6#" 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!͚!> * 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?(+!Track-Info  N  ,!+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*.)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*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#"+}*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+])~#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!*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)"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"* 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#"43"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<%͸""4Track-Info  N          ͼ""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#o#*.[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"+!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Ī*!(!!(!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!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! !+D%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 mi2!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(SRL8BITssing 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~#f@ SET RESˀ RSTINOUTDAA'NOPEXXLDIRLDILDDRLDDCPIRCPICPDRCPDINIRINIINDRINDOUTIOTIROUTDOTDRRLDoRRDgHALTvDIEIIMFRETIMRETNEMLTLSLPvTST TSTIOtIN0OUT0OTIM OTIMROTDM OTDMREQUDEFSDEFBDEFWENDORGPAGE INCLUDEIF ELSE  ENDIF MCAL LIST  XLISTNZZNCCPOPEPMHLDEBCAFSPIXIYTrack-Info  N          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, 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/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 ͽLError Address*ͽQ][*R0+:7][*R' ~*#"> ͷͰäͰ*ͽ>:ͷ> ÷Ϳ0 0 Invalid Hex DigippO͕!ww*#"!4 *#"\r(LKAt Address*ͽLLast Address*ͽQ*LBlocks Written*#<ðLBytes Read [*R0(Invalid Addres*[R0J2:0"*&' *& w*#"!4 *#"\r((Disc Writ*&' wULLoad Address*of 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 perfo;*******************************************; ;* 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 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: Track-Info  N          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!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{* C4-4ʜ,8~w,CN6,~qO(45(4C,>,,= <{[ * G-{[ * G-_Wz(=!w,6,r,s[ C(,r!ͥ !:˾!K p ê K " goB9*   K !9! ! K * [ K1!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 B*  ~#w#1 !R8 bk)))0_͑ Line number too large(* ##x($ ~# 08  ##g  ##g b R>>!#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  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++ͥa#6 S ɯ  ( ,(.:? 80%($ ~ <f   f ͟ ~˿ͱ #(͑ : > ı _ >(<2  LKAXBSXBIs "W( (~~w##Ⱥ #~ (:0?==< wy(1/G :( x w  #6 #~?a ! y2222'2;<.   (#w  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[?#! ?(# "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          X*X*>G>~) |}~# +2 ^#V*Rn|2 |gͦKG " J: : * ͦ +~_ :s~_>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>_#~ (:0?==< #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#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 A[n >*I[a(L[K(PN#F#~ 0"c~O #[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~pv!%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(~["(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~"ʃBK"]*UR8*G[* Rb*SC"1~SSKQ`i[Q"QR[?"?B"O̓6 0>3+s"] *] ø 0>3+ͺ>2  #s ~# :=2 3: <2~~#"W(:~~#Ⱥ ¼ ~#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 <+ #(?u-t+==!ͺ6- 6 :%o(#"e!:-*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 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 #QO: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! $<*?:=*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+ #͉>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;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!%ˎ!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#")Track-Info  N I*~&ݶ' GN$ >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 ~#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(+Ͼ!"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/rOLx(_'_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( /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/_,#~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>; ($/> O8/7/#+:./CSO/~~(r(̈́/( ~#~~,#+Lx(0ͽ/~ # WX;5 (A( B(/8 0 # M> ;RY5 0{ +  s5DM(G>^*G{zvm!á~+ϼLyA0 D24:4D͎3w#6#w#6#w 0~0!3n1(#!3n1(#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!*8bk6!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.00 (c) Xtal 1986-7 !\; )=K('{Q*l6 +"U"S[ R"Q["R"Oa: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!*8bk6Track-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{>!#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  1 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)~"a#6 S ɯ  ( ,(.:? 80%($ ~ <f   f ͟ ~˿ͱ #(͑ : > ı _ >(<2  LKAXBSXBI "W( (~~w##Ⱥ #~ (:0?==< wy(1/G :( x w  #6 #~?a ! y2222'2;<.   (#w  =,$*):": 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"Track-Info  N  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"";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): "-D2IXSRVUS,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,R"# 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 rZAAQ,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,LDVOE4 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' 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,IRHkey 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,12 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,30Track-Info  N Y 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  14: : @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,70H 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~!"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(K\ 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$~$: C): @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)t1d1~(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": 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 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,12Track-Info  N ;"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("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)tR2t2): @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,"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;(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): CU* 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"(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(NNwNTrack-Info  N N) 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;" 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"; , 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: 0201F1F1F1F1F" 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" 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 1,"0F01010F08083800" 2,"008080C08246CC98" 3,"F08080F010101C00" 4,"F89CCFE7E3FFF9F9" 5,"9F8FC3EAFA783C1F" 6,"1FB9F3D7C7FF9F9F" 7,"F9F1C3575F1E3CF8": : 0,0 0: 1 15,0Y 120,20 r 50,120 r 70,110 r 120,20 r 100,104 r 70,110 r 80,120 r 100,116 r 100,104T 100,104 r 140,104 r 120,20 r 170,110 r 140,104 r 140,116 r 160,120 r 170,110@ 120,20 r 190,120 r 170,110 r 160,120 r 174,128 r 190,1204 50,120 r 66,128 r 80,12(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;"0 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~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~Track-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: 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,"8041 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: !{CQ0201F1F1F1F1F" 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"P 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 1,"0F01010F08083800" 2,"008080C08246CC98" 3,"F08080F010101C00" 4,"F89CCFE7E3FFF9F9" 5,"9F8FC3EAFA783C1F" 6,"1FB9F3D7C7FF9F9F" 7,"F9F1C3575F1E3CF8": : 0,0 0: 1 15,0Y 120,20 r 50,120 r 70,110 r 120,20 r 100,104 r 70,110 r 80,120 r 100,116 r 100,104T 100,104 r 140,104 r 120,20 r 170,110 r 140,104 r 140,116 r 160,120 r 170,110@ 120,20 r 190,120 r 170,110 r 160,120 r 174,128 r 190,1204 50,120 r 66,128 r 80,12drive:}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 ͖ ! ͖0 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~!͖!͖&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>2Track-Info  N 1 @  ϣ 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 ~#˿ (_ @     (LKA:/ (>4(>82 le Sided, 40-Track :P<8 ~#˿ (_2,:2.2-Ö>2+:2,]!((@͊(:2+7>2(!",b:2+*"7n!"G:+2+( 2+>2,]>͒ áڼ! N#F#^#V#~#fo|} +x~+ xw# LKA