ZXTape! 2YPoolOmega861.99ROM+CotL-DS from orig. tape re-release of The Hustler by CRLh I 51960 1:7:1: !7,10 ;"THE HUSTLER" (!8,10 ;"-----------" 2!10 ,10 ;"is LOADING" <1:1 P0,0; Z "pool"51962,135745 d65162 i:21,14;1;6;"  CRL Group PLC " n23659k\,0:21,0;::7;" PLEASE LEAVE TAPE RUNNING ";" WHILE I COMPLETE LOADING":23659k\,2 x6:6 0,0; "p"  h I 51960 1:7:1: !7,10 ;"THE HUSTLER" (!8,10 ;"-----------" 2!10 ,10 ;"is LOADING" <1:1 P0,0; Z "pool"51962,135745 d65162 n23659k\,0:21,0;::7;" PLEASE LEAVE TAPE RUNNING ";" WHILE I COMPLETE LOADING":23659k\,2 x6:6 0,0; "p"  pool 55 Y'ZY%ZXY%Z:Y%ZX%ZX%ZX&Z6Y&ZzY& ZY& ZX& ZY  Z Y'ZY%ZXY%Z:Y%ZX%ZX%ZX&Z6Y&ZzY& ZY& ZX& ZY  Z!!BX"X#X/X0X1X=X>X^XYYYYYYYYYp:@> 2P>2`>2pG:<2>2-<2>2<<2>2>2> 2R>2]>2h>2>2p:>`2Š>P2•>@2:¬<2>02»<2>`2<2>02>22> 2>2>2>2p: >2>2 !>20a:8<2>2G<2>2V<2>2>2>2@l>2Pw>2`‚>2>p2p:™>`2¤>P2 ¯>@2º>2>2>2:<2>p2<2>2<2>p2>2>@2>02[*̧Rʽ*̧Rʽ*̧Rʽ*̧R*̧R*̧R*̧R*̧R*̧R*̧R*̧R*̧R*̧R *̧R *̧R *̧R!*̧R!*̧R!>$*w>*w>22>$*w>*w>22>$*w>*w>22>$*w>*w>22>$*w>*w>22>$*w>*w>2>222>=?z*"": w! >k<`:! ͵!!͵Enܗ;dݍݶ!3͵:!ˆ!ˆ2˯:z2˂2:!:@>2 І2  !ˆ2>22[*˧Rʅ* ˧Rʭ*˧R*$˧R*0˧R%*<˧RM*H˧Ru*T˧Rʝ*`˧R*l˧R*x˧R*˧R=:2:2*">2:¬>22:2:2*">2:>22:2:2*">2:>22:2):2(*">2:$>22:25:24*">2:L>22:2A:2@*">2:t>22:2M:2L*">2:œ>22:2Y:2X*">2:>22:2e:2d*">2:>22:2q:2p*">2:>22:2}:2|*">2:<>22:2:2*">2:d>22>=r*>$w*:w":”>2* R"~$ʸʈ!>2è*R"~$!>2è*?R"~$!>2è: =2>2p*R"p>2* R"~$Mʈ!>2è*#"~$l!> 2è*R"~$p!>2è:˜>2*#"~$ʷ!>2è*R"~$ʈ!>2è*R"~$!>2è: =2>2p*R"p>2*R"~$LL!L>2è*!"~$nn!n> 2è*#"~$p!>2è:š>2*#"~$ʹ!>2è*!"~$!>2è#"~$ !>2è:=2>2p*!"p>2*#"~$=!>2è* "~$_!> 2è#"~$p!>2è:ƒ>2* "~$ʥ!>2è#"~$!>2è "~$!>2è:=2>2p*!"p>2*!"~$))!)>2è*"~$KK!K> 2è* "~$p!>2è:z>2* "~$ʜ!>2è*"~$ʾn!>2è "~$!>2è:=2>2p*"p>2*+"~$#n!> 2è* "~$E!>2è+"~$p!>2è:i>2*+"~$ʈn!>2è "~$ʧ!>2è+"~$!>2è:=2>2p*"p>2*"~$  ! >2è*!R"~$00!0> 2è*+"~$pn!>2è:\>2*+"~${n!>2è R"~$ʜʈ!>2è+"~$ʸ!>2è:=2>2p*!R"p>2*+"~$n!>2èR"~$!ʈ!> 2è+"~$p!>2è:E>2* R"~$iʈ!>2è*!R"~$ʍn!>2è R"~$ʮ!>2è:ʻ=2>2p*!R"p>2*!R"~$!>2è*R"~$!> 2è* R"~$pʈ!>2è!"!E"!n"!"!"!"!"!;"!d"!"!"!":2:2!:´w¿p p0p@pp0p p pp> !w# !y !:E=2* ! y  !:n=2* !y !:ʗ=2* !$y $!:=2* !0y 0!:=2* !!*w*w*w*w*w*w>!˾!˾!˾!(˾!4˾!@˾!L˾!X˾!d˾!p˾!|˾!˾>={::=2!>x2G>P=Ÿ:ʇ$ ʋ0#@ʍP`vpm\O8>=<8B~<@B@x @~|x?? B@xxxiB@x<B~<<<???|@<<|<<@??<?B@BD@BBB@xx?p?jB@B(<BBB@???*|@~|BB@@?*@@BB@BB@*@~B<@<<~>?@B><<<|~| ?<<|~<|BB|<<@<| (B@BBB@(B8D8B@B@BBBfBBB@BB8D88~<@BB|BDD @B|@|B><<@ << ~<@~<B!@@!>>'G? !AA! ?G'~ Ј ~}}}}}}}}>>>> T8~@JJJnࠠ80(    jp OOQO 8000@ SCORE r23659k\,e0:e0:e5:e21,e0;::"Shots=";shots;" Score=";score;" ";e3;e7;"HI=";HIS;e0;" ":23659k\,e2  2f=e1e5:l=e7e0-e1:l:.005y# =,(l*e2):l:f # 2DIRECTON Sub-routines 3e22,e24:e6,e11:d=e1: 41e1;e22,e24:e1;e6,e11:e24,e24:e9,e9:d=e2: 51e1;e24,e24:e1;e9,e9:e24,e22:e12,e6:d=e3: 62e1;e24,e22:e1;e12,e6:e24,e19:e13,e0:d=e4: 73e1;e24,e19:e1;e13,e0:e24,e17:e12,-e6:d=e5: 83e1;e24,e17:e1;e12,-e6:e24,e15:e8,-e8:d=e6: 92e1;e24,e15:e1;e8,-e8:e22,e15:e3,-e8:d=e7: :2e1;e22,e15:e1;e3,-e8:e20,e15:e0,-e8:d=e8: ;3e1;e20,e15:e1;e0,-e8:e18,e15:-e4,-e9:d=e9: <5e1;e18,e15:e1;-e4,-e9:e15,e15:-e8,-e8:d=e10: =6e1;e15,e15:e1;-e8,-e8:e15,e17:-e11,-e6:d=e11: >6e1;e15,e17:e1;-e11,-e6:e15,e19:-e12,e0:d=e12: ?5e1;e15,e19:e1;-e12,e0:e15,e22:-e11,e6:d=e13: @4e1;e15,e22:e1;-e11,e6:e15,e24:-e9,e9:d=e14: A4e1;e15,e24:e1;-e9,e9:e18,e24:-e6,e11:d=e15: B4e1;e18,e24:e1;-e6,e11:e20,e24:e0,e12:d=e16: dPosition cueball ec=e1:n(e1)=e1 f(f=e0e16:col;e9;f,e0;b$(c,f+e1):f n"qa=e8:qb=e9:e4;e7;qa,qb;"" x e0:e9:e0 f=e17e21:f,e0;z$:f 082R,77M:e0,62>:e0,-62>, ccol;e17,e6;"Position Cue Ball";e19,e6;"Using keys 5,6,7 and 8";e21,e6;"Press 'ENTER' to fix." e4:e7 ="7"qa>e5qb=e9240 ="7"qa>e6qb=e8240 ="7"qa>e7qb=e7240 ="7"qa>e8qb=e6240 250 &e4;qa,qb;"":qa=qa-e1:qa,qb;"" ="6"qae5qae6qa150710 s=s+e1:e3,s:s=s+e1:e3,s  650 s<44,740 $e1;e3,s:s=s-e1:e1;e3,s:s=s-e1  650 s=s-41)  52112,s   Spin *!f=e17e21:f,e16;z$(e1e16):f 4 c$(e1)=a$ >q=e15:spin=e1 HOe17,e0;" ";e17,e9;"SELECT";18,e6;" SPIN";e7;" " R#e19,e9;" ^ " \#e20,e9;"ANY key moves indicator" f!e21,e9;"Press 'ENTER' to fix." pe1;e17,q;"" z.005y# =,40(:e20 =""900 =e13960  e17,q;" " q=q+e2:q>e31q=e15  spin=spin+e1:spin>e9spin=e1  880p 2e20,e9;z$(e1e23);e21,e9;z$(e1e23);e17,q;"" spin=1spin=64@ spin=2spin=128 spin=3spin=208 spin=4spin=224 spin=5spin=240 spin=6spin=0 spin=7spin=16 spin=8spin=32 spin=9 spin=480 52114,spin  SPECTRUM POOL  e0:e0:  8700!  8300l  A$(e1e17)=" SPECTRUM POOL "  9300T$  85004!  7500L zz=52398 $c=e1:n(e1)=e1 . 100d KREPEAT LOOP L t=e0:t1=e0 Vc$="000000000000" `h$="000000000000" jm$="000000000000" o col=c(c) te9:col:col ~f=e17e21:f,e0;z$:f f=e0e16:f,e0;b$(c,f+e1):f e21,e0;"Shots=";n(c);" " 500:Direction 600X:Strength 800 :Spin  n(c)=n(c)-e1 e21,e6;n(c);" " e4:e0 zz=56217 p=52134 3f=112 :m$(f)=(((p+f))+480):f p=52146 3f=112 :h$(f)=(((p+f))+480):f  f=112  m$(f)"0"p$(f)="0"  f h$"000000000000"1310 p$(1)="0"1380d s<81380d f=e17e21:e0;f,e0;z$:f Ye0;e9;e18,e2;"Referee awards a free shot, ";e20,e2;"miscue due to lack of chalk!" f=1100d:f  1630^ h$"000000000001"1350F (&col=e5p$(e2e6)="00000"1390n 2'col=e6p$(e7e11)="00000"1390n < 1380d F&col=e5h$(e2e6)"00000"1390n P'col=e6h$(e7e11)"00000"1390n Zcol=e01390n dt1=e2:e3:1400x nt=e1 x<m$(e1e11)="00000000000"m$(12 )"0"t=e11800 m$(12 )"0"1810 -m$(1)"0"e3:7000X:1640h cole01550 %m$(e2e11)="0000000000"1640h 2m$(e2e6)"00000"m$(e7e11)="00000"1480 2m$(e2e6)="00000"m$(e7e11)"00000"1500 -e21,e0;"Colour? Blue(key5) Yellow(key6) " ="5"1480 ="6"1500  1471 1c=e1c(e1)=e5:c(e2)=e6:col=c(e1):1520 1c=e2c(e2)=e5:c(e1)=e6:col=c(e2):1520 1c=e1c(e1)=e6:c(e2)=e5:col=c(e1):1520 1c=e2c(e2)=e6:c(e1)=e5:col=c(e1):1520  n(c)=n(c)+e1:t=e1:1640h c=e21600@ ;c(e1)=e5m$(e2e6)"00000"m$(e7e11)="00000"15906 ";c(e1)=e6m$(e2e6)="00000"m$(e7e11)"00000"15906 't=e11640h ,t1=e2:e3:1640h 6 t=e1:n(c)=n(c)+e1:1640h @;c(e2)=e5m$(e2e6)"00000"m$(e7e11)="00000"1630^ J;c(e2)=e6m$(e2e6)="00000"m$(e7e11)"00000"1630^ Ot=e11700 Tt1=e2:e3:1640h ^t=e1:n(c)=n(c)+e1 hc=e21700 rt1=e2te11680 |n(e1)e01690  1100L n(e2)=n(e2)+e1 ,n(e1)=e0:n(e2)=n(e2)+e1:c=e2:1100L t1=e2te11730 n(e2)e01740  1100L n(e1)=n(e1)+e1 ,n(e2)=e0:n(e1)=n(e1)+e1:c=e1:1100L POT BLACK c=e21805   (c(e1)=e5p$(e2e6)="00000"1910v  )c(e1)=e6p$(e7e11)="00000"1910v  1810  (c(e2)=e5p$(e2e6)="00000"1910v )c(e2)=e6p$(e7e11)="00000"1910v  1810 c=e118400 c=e21850: 0c=e2:1870N :c=e1:1870N Nf=e17e21:f,e0;z$:f X,col;e9;e17,e6;"FOUL! You potted black!" b 1920 vf=e17e21:f,e0;z$:f "e1;e18,e9;"Player ";c;" Wins!"  30  7100 HI-SCORE POOL score>HISHIS=score shots=sk:score=e0  e0:e0:  8300l  9300T$  85004!  7500L  zz=52398  3000  3500 % 20 * 110n /e0:e9 4c$="000000000000" >h$="000000000000" Hm$="000000000000" M 3500 N#f=e1e17:e0;e9;f-e1,e0;" ":f Rf=e17e21:e0;f,e0;z$:f W 20 ae0:e9 f 500 p 600X z 800  e4:e0 shots=shots-e1 zz=56217  20 e0:e9 p=52134 )f=e1e12:m$(f)=(((p+f))+480):f p=52146 )f=e1e12:h$(f)=(((p+f))+480):f  f=e1e12 m$(f)"0"p$(f)="0" f m$(e12)"0"2600( p$(e1)="0"2700 h$="000000000000"2770 %m$(e2e11)="0000000000"2800 $f=5213652140 .+(f)0score=score+(2*r(f)) 8f Bf=5214152145 L+(f)0score=score+(4*r(f)) Vf `shots=shots+e1 j 3000 t 21004 ?(52146)0score=score+(8*r(52146)) f=e17e21:f,e0;z$:f 0e9;e17,e0;" You cleared the table! " sk1=(sk*2)/5 4e9;e19,e0;" You get bonus of ";sk1;" shots. " shots=shots+sk1 0e9;e20,e0;" and a bonus score of 50. " score=score+502 30 f=1150:f shots>e02020 )e9;e18,e0;" You scored : ";score Ascore>HISe7;e1;e19,e0;"YOU BEAT THE HIGH SCORE!":30 *e9;e20,e0;"Another game? Press Y or N" 1e9;e21,e0;" (N returns to choice screen) " ="y"Ŧ="Y"2000 ="n"Ŧ="N"6000p 2550 (%p$(e2e11)="0000000000"2500 2f=e17e21:f,e0;z$:f <0e9;e17,e0;" You potted the black too soon! " F 2530 f=e17e21:f,e0;z$:f 7000X e19,e0;" You lose 1 shot" f=e1502:f shots=shots-e1 20 2800 f=e17e21:f,e0;z$:f s<72800 1 e9;e18,e0;" Referee awards a free shot. " f=e1502:f shots=shots+e1 shots>e021004 f=e17e21:f,e0;z$:f 0e9;e17,e0;" You have run out of shots! "  2530 r(e6) Re4;e1;e1,e2;"";e1,e16;"";e1,e30;"";e15,e2;"";e15,e16;"";e15,e30;""  r(e1)=((*e6)+e1) r(e2)=((*e6)+e1) r(e2)=r(e1)3030 r(e3)=((*e6)+e1) )(r(e3)=r(e1))(r(e3)=r(e2))3050 r(e4)=((*e6)+e1) 7(r(e4)=r(e1))(r(e4)=r(e2))(r(e4)=r(e3))3070 r(e5)=((*e6)+e1) E(r(e5)=r(e1))(r(e5)=r(e2))(r(e5)=r(e3))(r(e5)=r(e4))3090 &r(e6)=((*e6)+e1) 0S(r(e6)=r(e1))(r(e6)=r(e2))(r(e6)=r(e3))(r(e6)=r(e4))(r(e6)=r(e5))3110& : e4:e1:e1 *e1,e2;r(e1);e1,e16;r(e2);e1,e30;r(e3) -e15,e2;r(e4);e15,e16;r(e5);e15,e30;r(e6) e0:e9:e0  pCHOOSE GAME ze0 -shots=e0:score=e0:HIS=e0:skill=e0:sk=e0 65162 e0 |23659k\,e0:e21,e0;::e9;" Please CHOOSE GAME by ":e9;" Pressing key 1 or 2 ":23659k\,e2 ="1"6100 ="2"62008  6040 8e0;e9;e1;e21,e0;"1 Player game selected " e0 |23659k\,e0:e21,e0;::e9;" Do you want instructions? ":e9;" Press key Y or N ":23659k\,e2 ="y"Ŧ="Y"6500d ="n"Ŧ="N"6800  6130 88e0;e9;e1;e21,e0;"2 Player game selected " Be0 L|23659k\,e0:e21,e0;::e9;" Do you want instructions? ":e9;" Press key Y or N ":23659k\,e2 V="y"Ŧ="Y"6750^ `="n"Ŧ="N"1000 j 6230V d 9300T$ n 9000(# x 6800 ^ 9300T$ h 8850" r 8900" | 1000 SKILL LEVEL y23659k\,e0:e21,e0;::e0;" ":;" ":23659k\,e2 !f=e17e21:e0;e7; f,e0;z$:f 8e0;e7;e1;e17,e0;" Choose SKILL LEVEL 1 to 9 " 4e0;e6;e18,e0;"Level 1 2 3 4 5 6 7 8 9" 4e0;e6;e19,e0;"Shots 45 40 35 30 25 20 15 10 5" 8e0;e7;e1;e21,e0;" (Press key 1 to 9) " skill=()-480 )skill<1skill>9 6840 skill=e1sk=45- skill=e2sk=40( skill=e3sk=35# skill=e4sk=30 skill=e5sk=25 skill=e6sk=20 skill=e7sk=15 skill=e8sk=10 skill=e9sk=5 & 2000 XPOT CUE BALL Y"f=e17e21:col;e9; f,e0;z$:f Z-col;e9;e18,e6;"YOU POTTED THE CUE BALL!" ['c$(e1)=e$:p$(e1)="1":51971,e1 \W51968,9 :51969,89Y:x(e1)=22793 Y:(e8,e9)=a57050 ]Y51968,10 :51969,89Y:x(e1)=22794 Y:(e8,e10)=a57050 ^Z51968,234:51969,88X:x(e1)=22762X:(e7,e10)=a57050 _Y51968,42*:51969,89Y:x(e1)=22826*Y:(e9,e10)=a57050 `Y51968,233:51969,88X:x(e1)=22761X:(e7,e9)=a57050 aX51968,41):51969,89Y:x(e1)=22825)Y:(e9,e9)=a57050 bW51968,8:51969,89Y:x(e1)=22792Y:(e8,e8)=a57050 cY51968,232:51969,88X:x(e1)=22760X:(e7,e8)=a57050 dX51968,40(:51969,89Y:x(e1)=22824(Y:(e9,e8)=a57050 Reset Cue Ball 23280Z,e0 51971,e1 51977 ,e0 f=1100d:f  x(e1),a1 col;e9;e18,e6;z$(e1e24) t1=e2  END OF GAME -NEW? ,e20,e0;"Want another game? Press Y or N" +e21,e0;" (N returns to choice screen) " ="y"Ŧ="Y"1000 ="n"Ŧ="N"6000p  7140 LINITIAL SET UP BALLS V x(e1),a1 `f=e2e6:x(f),a2:f jf=e7e11:x(f),a3:f t x(e12),a4 ~ @INITIAL SET UP ETC J3zz=0:z$=" " T 8700! ^ 8300l |23659k\,e0:e21,e0;::e0;" ":e2;e1;" PLEASE STOP TAPE ":23659k\,e2 f=1150:f e0  6000p lINITIALISE CONSTANTS md=e0:e$="0" vZa1=39':a2=37%:a3=38&:a4=32 :a5=36$:a6=4:a7=33! x(e12):y(e12) i(e12) n(e2) p=e0 c(e2):c(e1)=e0:c(e2)=e0 m=3110& col=e0 t=e0:t1=e0 q=e15:spin=e1 m$="000000000000" h$="000000000000" p$="111111111111" c$="000000000000" b$(e3,e17) b$(e1)=" PLAYER 1 " b$(e2)=" PLAYER 2 " b$(e3)="Max " A$=" " i(e1)=a1:i(e12)=a4 f=e2e6:i(f)=a2:f f=e7e11:i(f)=a3:f x(e1)=22794 Y x(e2)=22804Y x(e3)=22872XY x(e4)=22842:Y x(e5)=22778X x(e6)=22744X x(e7)=22774X x(e8)=228386Y x(e9)=22906zY x(e10)=22812Y x(e11)=22714X x(e12)=22808Y  !4clear table 1 !5-23675{\,88X:23676|\,255 !7e4:e4 !8)f=e2e14:f,e13;"":f !9!f=e2e14:f,e3;" ":f !>23269Z,e0 !?23271Z,e0 !@23273Z,e0 !A23275Z,e0 !B23277Z,e0 !C23283Z,e0 !D23285Z,e0 !E23287Z,e0 !F23289Z,e0 !G23291Z,e0 !H23280Z,e0 !I23294Z,e0 !f !clear table 2 !e4:e4 !!f=e2e14:f,e3;"":f ! !constants "`e0=0:e1=1:e2=2:e3=3:e4=4:e5=5:e6=6:e7=7 "le8=8:e9=9 :e10=10 :e11=11 :e12=12 :e13=13 :e14=14:e15=15 "pe16=16:e17=17:e18=18:e19=19:e20=20:e21=21:e22=22:e23=23 "$pe24=24:e25=25:e26=26:e27=27:e28=28:e29=29:e30=30:e31=31 ". "j0e9;e21,e0;" Press any key to continue " "t=""8820t" "~e0: " "1st Inst. "e4:e0 "e3,e4;" The game is played with";e4,e4;"a set of 12 balls. 5 Blue";e5,e4;"5 Yellow,1 Black,1 White.";e6,e4;"The White is Cue ball." "e7,e4;" The object of the game";e8,e4;"is to pot all the balls";e9,e4;"of one colour (Yellow or";e10,e4;"Blue) and the Black." "ke11,e4;" The colour each player";e12,e4;"is to play is determined";e13,e4;"by the 1st ball potted." " "2nd Istr. "e0:e7 "&e19,e4;"Press any key to continue" "=""8910" " e19,e0;z$ "e4:e0 "f=e3e14:f,e4;z$(e1e25):f "be3,e4;" The background colour";e4,e4;"is used to indicate the";e5,e4;"player's colour." "e6,e4;" Until the colours are";e7,e4;"determined the background";e8,e4;"will be BLACK to indicate";e9,e4;"any colour may be potted";e10,e4;"(except Black!)." "e11,e4;"Should a player pot both";e12,e4;"a Yellow and Blue in the";e13,e4;"same shot (unlikely!) he";e14,e4;"will be given the choice." "e0:e7 "&e19,e4;"Press any key to continue" "=""8951" " e19,e0;z$ "e4:e0 "f=e3e14:f,e4;z$(e1e25):f # e3,e4;" A free shot is awarded";e4,e4;"to the other player for";e5,e4;"any fouls. Fouls are:-";e6,e4;" Potting White ball.";e7,e4;" Not hitting a ball. ";e8,e4;" Hitting the wrong colour";e9,e4;" first. ";e10,e4;" Hitting the black first";e11,e4;" (unless as last ball!)" #je12,e4;" The number of shots are";e13,e4;"shown. Fouls shots change";e14,e4;"the border to Magenta!" #e0:e7 # &e19,e4;"Press any key to continue" # =""8971 # # e19,e0;z$ # e4:e0 #f=e3e14:f,e4;z$(e1e26):f #e3,e4;" For each shot you must";e4,e4;"indicate the following;-";e5,e4;" DIRECTION (16 choices)";e6,e4;" STRENGTH (54 choices)";e7,e4;" SPIN ( 9 choices)" #e8,e4;" Full instructions are";e9,e4;"given on each option and";e10,e4;"a different graphic aid";e11,e4;"is used for each option";e12,e4;"to simplify your choice." #e0:e7 #)e19,e2;"Press any key to START game." #=""8981# # e19,e0;z$ #e4:e4 #f=e2e14:f,e3;z$(e1e27):f #' #(INSTS. 1 PLAYER #2e4:e0 #<e3,e4;" The game is played with";e4,e4;"a set of 12 balls. 5 Blue";e5,e4;"5 Yellow,1 Black,1 White.";e6,e4;"The White is Cue ball." #F{e7,e4;" The object of the game";e8,e4;"is to pot all the yellow";e9,e4;"and blue balls before the";e10,e4;"Black." #Pke11,e4;" The pockets are numbered";e12,e4;"1 to 6(at random) and are";e13,e4;"changed after each pot." #Ze0:e7 #d%e19,e4;"Press any key to continue" #n=""9070n# #x e19,e0;z$ #e4:e7 #f=e3e14:f,e4;z$(e1e25):f #e4:e0 #e3,e4;" You score the value of";e4,e4;"the pocket x 2 Blue ball";e5,e4;" x 4 Yellow ball";e6,e4;" x 8 Black ball." #e7,e4;" You start with 5 to 45";e8,e4;"shots(skill level),gain a";e9,e4;"shot if ball is potted.";e10,e4;" You lose a shot if you" #e11,e4;"pot the white ball.";e12,e4;" Game ends when you run";e13,e4;"out of shots, or pot the";e14,e4;"black too soon!" #e0:e7 #%e19,e4;"Press any key to continue" #=""9170# # e19,e0;z$ #e4:e7 #f=e3e14:f,e4;z$(e1e25):f #e4:e0 $e3,e4;" Unfortunately there isnt";e4,e4;"any chalk in this Poolroom";e5,e4;"so there is a tendence to";e6,e4;"miscue on long shots." $e7,e4;" The referee will decide";e8,e4;"whether miscue was due to";e9,e4;"either a lack of chalk or";e10,e4;"a lack of skill!" $`e11,e4;" If is because of lack of";e12,e4;"chalk you will be given a";e13,e4;"free shot." $" 8965# $, 6800 $S table $T823675{\,176:23676|\,254:e0:e0: $U2e2:e1:e0,e1;" " $Vde1,e1;"";e4;"";e0;e4;"";e4;e1;"";e0;e4;"";e4;e1;"";e2;"" $W+e2,e1;" ";e4;"";z$(e1e27);"";e2;" " $Y f=e3e13 $ZAf,e1;" ";e0;e4;"";e4;e4;z$(e1e27);e0;e4;"";e2;" ":f $[,e14,e1;" ";e4;"";z$(e1e27);"";e2;" " $\ie15,e1;"";e4;e1;"";e0;e4;"";e4;e1;"";e0;e4;"";e4;e1;"";e2;"" $]+e16,e1;" " $^ A$(e17) $he0:e9 $| f=e1e17 $f-e1,e0;A$(f):f $-23675{\,88X:23676|\,255 $^23659k\,e0:e0:e0:e21,e0;:::" ":23659k\,e2:e9 $e4: '(zz=23653e\+256*23654f\ '(zz-16384@);" memory" '-zz=zz-(23635S\+256*23636T\) ' zz;" program" '  '- P.G.Curtis  1983 '