ZXTape! 0Created with Ramsoft MakeTZXSNKR fyx"SNOOKER MASTERS" r(x)=(*x+1) (o(2,2) Pp$(2,10 ) Zc$(2,8) _)d(2,12 ):e(2,4) db(2,2,2) np(2,4,12 ) xa(2,4) g(2):s(2) 'q$=" " pox=0:poy=0 shrt=0:st=0 fb=0 -p1=0:y=0:x=0:z=0 y$=" "  7: 0,0; 2n=((y*18)+1)((y*18)+18) p1=n6 z=n6 n<10 " "; n;". ";u$(n) 5 7 :n <x=2690 ?+21,0;1;"'x' for more" D7mm=2"Enter player to amend : ";z$:610b I8mm=1"Enter player to delete : ";z$:610b N/x=1"Enter player 2 : ";z$:610b S z=0 X"Enter player 1 : ";z$ bz$"x"z$"X"618j d y=y+1 gy=2y=0 h 500 j$z$1Ʊz$2580D l&z$<491ůz$>579580D vz$=1645 8z$(2)<480ůz$(2)>579580D p1=z$580D z=z$ Ez<((y*18)+1)z>((y*18)+18)z>nxt580D mm0st=z: x=0p1=z  x=x+1  505 p$(x)=n$(z,1) c$(x)=n$(z,2) q=14 )q=3z$="012301232103":740 q<3z$=n$(z,q+2) q=4z$=n$(z,5) (n=112 :p(x,q,n)=z$(n):n q z$=n$(z,6) b(x,1,1)=z$(1)-480:b(x,1,2)=z$(2):b(x,2,1)=z$(3)-480:b(x,2,2)=z$(4)  a(x,1)=z$(5)-64@:a(x,2)=z$(6)-64@:a(x,3)=z$(7)-64@:a(x,4)=z$(8)-64@  Io(x,1)=z$(9 )-64@:o(x,2)=z$(10 )-64@ z$=n$(z,7) &n=112 :d(x,n)=z$(n):n z$=n$(z,8) n=14 z$(n)=" "790 e(x,n)=z$(n)-480 n 'x=2x=1:z=p1:690   %/s(2):h(502,2):mtch=1 *1,1;"ENTER PLAYER TO BREAK :";4,2;"1. ";p$(1);6,2;"2. ";p$(2);8,2;"3. Toss a coin" Rz$ \!z$"1"z$"2"z$"3"850R fbr=z$ pbr=3br=r(2) z/14,1;1;p$(br);" to break" "Press 'ENTER' to start ";z$ 23658j\,8  nb=1 br=1nb=2 /:shrt=1:sz=st:st=3:7000X !st=sz:shrt=0:gm=0  5 W10 ,2;"Press 'S' for SHORT GAME";13 ,5;"or 'L' for LONG GAME" z$= !z$="S"shrt=2:921 :z$="X"mtch=mtch-1:.6,11 :28706 Gz$="B":mtch=mtch-1:.6,11 :3500 :2945 Ez$>491Ưz$<58:gm=z$-480:shrt=2:921 z$"L"915 .6,11 &n=713 :n,0;q$:n (tb=3+a(br,1)-a(nb,1) (9020<#+tb) z$ #z=r(6)+r(6)-1 *x$=z$(((z*3)-2)(z*3)) st=nb:nc=br x$(1)="S"st=br:nc=nb pox=x$(2) poy=x$(3)-64@ zz=st:st=3 Xcbv=0:rl=15:sh=1:apr=0:bk=0:saf=0:pv=0  7010b shrt=07300 st=zz  (16,8;p$(br);" breaks off" n=1160:n )4shrt=216,8;y$;" ":5000 . 7010b 816,8;y$;" " = fb=0 ?16,10 ;y$ B'rl<0pv=f(pox,poy):1250 L'sh=1pv=r(pox,poy):1250 V=z=c(pox,poy,1):c1=(z/10 ):pv1=z-(c1*10 ) Ypv1=0pv1=10 \ pv1=pv1-cbv `z=c(pox,poy,2) j"z=0z=1:1230 t+c2=(z/10 ):pv2=z-(c2*10 )-cbv ~15,10 ;"Colour :" )17,11 ;"1. ";a$(c1);" ";pv1 )18,11 ;"2. ";a$(c2);" ";pv2 /21,0;1;"Press '1' or '2'" z$= z$"1"z$"2"1190 15,10 ;" " *17,11 ;" " *18,11 ;" " 21,0;q$ z=z$ pv=pv1+cbv:sh=c1 z=2pv=pv2+cbv:sh=c2 pv=0pv=10 /apr=pv-cbv:z$=a$(sh):7010b:7300 "z$(6)=" "z$=z$(5) "z$(5)=" "z$=z$(4) "z$(4)=" "z$=z$(3) 1z=z$:n=2z:z$(n)=(z$(n)-32 ):n .apr=78,1;1;"APR" fb=2z$="FREE BALL" mx=s$(apr+1,r(6)):(8999'#+(x/10 )):l$:(90102#+(x-(x/10 )*10 )):x$ 0(sh1rl=1)x=82R1261 '14,8;"POTTING FOR A ";z$ 516,8;"HE HAS ";l$;17,8;x$ Irl-621,0;1;"1. Pot, 2. Safety, 3. Snooker" =rl=-621,0;1;"1. Pot, 2. Safety" z$=  )z$"1"z$"2"z$"3"z$"Q"1280  rl=-6z$="3"1280 21,0;q$ V14,8;y$;" ";16,8;y$;" ";17,8;y$;" " 'z$="q"z$="Q"fb=0:2460 wt=r(6)+r(6) r1=r(6) r2=r(6)  rt=r1+r2 (gt=r(6) 2z$="2"1600@ 7 saf=0 <z$="3"1670 Aapr=72170z Fz=p(st,1,rt) K0pv=o(st,1)cbv=o(st,2)2500 PHzapr.11}aG,6:16,10 ;"AND POTS IT":1470 Z).5,-25:.85Y,-30 d016,10 ;1;"BUT HAS MISSED !" nn=1200:n s$rl=0sh1rl=-1 x16,10 ;y$ cbv=p(st,2,wt) bk > m(10 )3600  bk=0 -sh=1rl<0cbv=p(st,3,wt) 0st=1st=2:nc=1:1450 $st=2st=1:nc=2 rl>0sh=1 $rl=0sh1rl=-1 rl0sh=1-rl  6900  7010b  1085= s(st)=s(st)+sh:bk=bk+sh sh11560 fb01500 rl=rl-1  sh=0 /cbv4cbv=p(st,2,wt):1535 Acbv=4wt=b(st,1,1)cbv=b(st,1,2) Acbv=4wt=b(st,2,1)cbv=b(st,2,2)  7010b  6900  1085= $rl>0sh=1:1510 fb01582. "rl=rl-1 ,sh=1-rl .sh=8s(1)=s(2)16,8;1;"RESPOT THE BLACK":n=1180:n:16,8;y$:rl=-6:cbv=0:sh=7:st=r(2):1430 1Xsh=816,10 ;y$;16,8;1;"END OF GAME":2260 6 1510 @pv=p(st,4,rt) ET16,12 ;"BUT PLAYS SAFE":n=1150:n:16,12 ;y$ Gbk > m(10 )3600 Jsaf=saf+1 T:cbv=0:bk=0:sh=1:pv=p(st,4,rt) Yrl0sh=1-rl ^ 6900 c0st=1st=2:nc=1:1640h fst=1:nc=2 h@rt=2rl=-6rt=r(6)+r(6):1640h m$rt=2sp=0:1775 rsaf>2r1=r21085= w 7010b | 1250 bk > m(10 )3600  bk=0 ,16,8;"HE PLAYS FOR A SNOOKER" 'rl11 rl=-5esc=12 @(rl4rl10 )rl=-3rl=-4esc=11 1rl=2rl=3rl=-2esc=10 0rl=1rl=0rl=-1esc=9 pv=p(st,1,rt) cbv=p(st,2,wt) sp=esc-pv-cbv sp>3sp=3 n=1150:n ֍sp>017,12 ;"- BUT FAILS":n=1200:n:16,8;y$;" ";17,12 ;y$:cbv=sp:1430 5n=1150:n:16,8;y$;" "  6900 0st=1st=2:nc=1:1775 st=1:nc=2  7010b A14,12 ;p$(st);" is";15,12 ;"snookered." rt=r(6)+r(6) wt=r(6)+r(6) gt=r(6)  ec=0 $rl=0sh1rl=-1 !'rl0sh=1-rl:1830& # sh=1 &#rt=7z=0:1850: 0z=p(st,1,rt)-4+sp :apr=4-sp ;7010b:7300 <n=1150:n ?)17,12 ;"He tries to escape" An=1150:n D]z018,12 ;"and is successful":cbv=p(st,3,wt)+1:2150f Ifl=sh Ngwt=4wt=6wt=7wt=10 18,12 ;"but misses the ";a$(sh):1950 XKwt=218,12 ;"But goes in-off":cbv=2:1950 b%18,12 ;"But hits the "; cwt=3fl=sh+3 d(wt=5fl=sh+2:cbv=3 e(wt=8fl=sh+1:cbv=1 f%wt=9 fl=7:cbv=2 g)wt=11 fl=sh+4:cbv=0 h)wt=12 fl=sh+5:cbv=3 jfl>7fl=7 la$(fl) fl<4fl=4 wt=4cbv=0 wt=7cbv=2 +19,12 ;"FOUL - ";fl;" POINTS" s(nc)=s(nc)+fl:bk=0  7010b n=1150:n 0st=1st=2:nc=1:2020 st=1:nc=2  7010b  6900 (n=12 19:n,12 ;y$:n /wt3wt6wt10 2133U  cbv=0  $wt=3wt=10 2560  26102 H0st=1st=2:nc=1:2131S Rst=1:nc=2 S 7010b T(n=1418:n,12 ;y$:n U$rl=0sh1rl=-1 W)rl < 0sh=1-rl:1085= Y sh=1 a 1085= fcbv>3cbv=3 p 2120H z z=2 s(st)=s(nc)z=3 s(st) < s(nc)z=4 (9030F#+a(st,z)) z$  x=z$(rt) Sx=1z=apr:.11}aG,6:16,10 ;"AND POTS IT":1470  1370Z  z=1 bk > m(10 )3600 $s(2) > s(1)z=2 g(z)=g(z)+1 8h(mtch,1)=s(1):h(mtch,2)=s(2)  apr=0  7010b )20,8;"ANOTHER FRAME Y/N ?" z$= z$"Y"z$"N"2320 $.6,11 .z$="N"28706 jst=3:shrt=3 l20,0;q$ rmtch=mtch+1 smtch=51328706 t s(2) y 7010b ~st=nb:nc=br br=st:nb=nc /5:n=721:n,0;q$:n shrt=0 %gm0shrt=2:921 914 Z18,6;"ARE YOU SURE YOU WANT TO";19,6;"CONCEDE THE FRAME Y/N ?" z$= z$"Y"z$"N"2462 .6,11 818,6;y$;" ";19,6;y$;" " z$="n"z$="N"1251 sh=8 15851 N16,12 ;"THE WHITE HAS GONE";17,12 ;"IN-OFF - FOUL "; bk > m(10 )3600 !sh=1zaprrl=rl-1 rl=0rl=-1 fl=sh:wt=4:cbv=2 fl<4fl=4 fl;" PTS." 1970 play again '19,12 ;"PLAY AGAIN Y/N ?" z$= z$"N"z$"Y"2570 19,10 ;y$ z$="n"z$="N"1090B  2120H 2'16,10 ;"FREE BALL CHANCE" :pvc=10 :pv2=10 <rl<0pvc=f(pox,poy) Fpvr=r(pox,poy) P=z=c(pox,poy,1):c1=(z/10 ):pv1=z-(c1*10 ) dpv1=0pv1=10 n pv1=pv1 xz=c(pox,poy,2) "z=0z=1:2710 'c2=(z/10 ):pv2=z-(c2*10 ) -pv1pv2pv1pvrpv1pvcpv=pv1:2750 -pv2pv1pv2pvrpv2pvcpv=pv2:2750 -pvcpv2pvcpvrpvcpv1pv=pvc:2750 !pvrpv2pvrpv1pvrpvcpv=pvr '18,10 ;"1. Free ball ";pv 19,10 ; !sh=1"2. Red ";pvr +rl<0pvr=pvc:"2. ";a$(sh);" ";pvr $20,10 ;"3. Play again" z$= "z$"1"z$"2"z$"3"2810 Y16,10 ;y$;18,10 ;y$;19,10 ;y$;20,10 ;y$ z$="1"fb=2 z$="2"fb=1:pv=pvr "z$="3"2120H , 1250 6 @!1,10 ;"FINAL SCORE" E!2,10 ;"-----------" Jx=1:y=2 O/g(2) > g(1)x=2:y=1 QYg(1)=g(2)5,0;p$(x);" v ";p$(y);" ";g(x);"-";g(y):2905Y T95,0;p$(x);" beat ";p$(y);" ";g(x);"-";g(y) Y: ^mtch=513mtch=502 cn=1mtch hh(n,x);"-";h(n,y);" "; m(n/5)=(n/5) o*(n/5)=(n/5)mtch25 rn t.mtch=513:"MAXIMUM OF 50 FRAMES ONLY" w%"C to copy; ENTER to continue ";z$ y z$="C" |z$"R"6000p  shrt=1:7000X 2410j  23,1;"DO YOU WANT TO ADD THE PLAYER" .6,3;"IN PLACE OF A CURRENT ONE" $9 ,7;"(Y)ES OR (N)O ?" z$= z$=""3040 z$"N"z$"Y"3040 .1}L,5 z$="N"3240  mm=1  490 & 0z$=n$(st,1) :z=z$ Dz$(z)" "3180l Nz$=z$((z-1)) X z=z-1 b 3140D l&3,1;z$;" to be deleted" v$6,8;"(Y)es or (N)o ?" z$= z$"Y"z$"N"3200 .1}L,5 z$="N"6000p 3360 nxt=nxt+1 "nxt<37%st=nxt:3360 nxt=36$  03,1;"THE PROGRAM ALREADY HAS THE" /6,1;"MAXIMUM NUMBER OF PLAYERS." 09 ,1;"PRESS (M) TO RETURN TO MAIN" -12 ,1;"MENU OR (D) TO DELETE A" %15,1;"CURRENT PLAYER." z$= z$"M"z$"D"3320 .1}L,5 z$="M"6000p 3090 n$(st,3)="000000000000" *n$(st,4)="000000000000" 4n$(st,5)="000000000000" 9n$(st,6)="0000CEEE22" >n$(st,7)="000000000070" Cn$(st,8)="0000" H M23658j\,0 R)19,2;"ENTER PLAYER NAME :" \#20,3;"(EG. S.Davis)" fz$ kn$(st,1)=z$ p z119,2;"ENTER COUNTRY (EG. England)" x$ 23658j\,8 n$(st,2)=x$ u$(st)=z$+" ("+x$+")" 6500d  .1,3;"HIGHEST BREAKS OF THE DAY" .2,3;"-------------------------" : n=110 n<10 " "; m(n)=03570 n;": "; m(n)<100d" "; m(n)<10 " "; ,m(n);" ";m$(n,1);" v ";m$(n,2) n %"C to copy; ENTER to continue ";z$  z$="C"  n=110 bk < m(n)3680` $n=10 3660L .q=9 n-1 8]m(q+1)=m(q):m$(q+1,1)=m$(q,1):m$(q+1,2)=m$(q,2) Bq L5m(n)=bk:m$(n,1)=p$(st):m$(n,2)=p$(nc) V 3685e `n j  sh=1 rl=15:col=2  7010b  bk=0 rt=r(6)+r(6) 1pot=d(st,rt):rpt=pot:cpt=0:ppy=0 pot=05100 pot=75300 'pot>rlrl0rpt=rl:cpt=pot-rl "rl<0rpt=0:cpt=pot gt=r(6)+r(6) rl=rl-rpt-cpt rl0rl=1-col rpt=05082 (9100#+rpt) z$ Dbk=bk+z$((((gt-1)*2)-1)((gt-1)*2)) cpt05410" ^e(st,1)=rte(st,2)=rte(st,3)=rte(st,4)=rtppy=1ppy=1 %col8ppy=15020 Jbk015,1;p$(st);" makes a break of ";bk:5105 ,15,2;p$(st);" fails to score" s(st)=s(st)+bk  7010b bk > m(10 )3600  125} 0st=1st=2:nc=1:5130  st=1:nc=2  =col8(col=8s(1)s(2))5140  ?15,0;q$;15,7;"RESPOTTING THE BLACK"  st=r(2)  st=1nc=2 st=2nc=1 %17,6;p$(st);" pots it" s(st)=s(st)+7  7010b  200  5160( col=85160(  7010b (15,0;q$;q$;q$ )col=85180< *rl>05015 +df=(s(1)-s(2)) ,dfmax5015 -10 ,0;q$;q$ 4Ns(1) > s(2)10 ,2;p$(2);" concedes the frame" 6Ns(2) > s(1)10 ,2;p$(1);" concedes the frame" 8 200 :10 ,0;q$ <.7,9 ;1;"END OF THE FRAME" F8s(1) > s(2)g(1)=g(1)+1 P8s(1) < s(2)g(2)=g(2)+1 U8h(mtch,1)=s(1):h(mtch,2)=s(2) Z&st=3:shrt=1:7010b d/5:n=9 12 :n,0;q$:n igm=gm-1 kgm<0gm=0 ngm02410j )12 ,7;"ANOTHER FRAME Y/N ?" z$= z$"Y"z$"N"5270 12 ,0;q$ .6,11 z$="N"28706  2410j  s(st) > s(nc)z=a(st,2) s(st)=s(nc)z=a(st,3)  s(st) < s(nc)z=a(st,4) (9040P#+z) x$,z$ rt=r(6)+r(6)  rpt=x$(rt) n=1̱z$ !rt=z$(n)-480ppy=1 n  "n=1cpt , bk=bk+col 6col=col+1 @col=85460T Jn Trl=1-col h f4:0 h05993i:n=015:z:"a"+n,z:n i128,128,128,128,128,128,128,255,1,1,1,1,1,1,1,255 k p23658j\,8 u6::mm=0 z/1,1;"ENTER CHOICE (SELECT 1-5):" $4,2;"1. PLAY a match" &6,2;"2. AMEND a player" $8,2;"3. ADD a player" ,10 ,2;"4. HIGHEST break table" )12 ,2;"5. SAVE alterations" z$= z$=""6053 .1}L,5 z$="1"40( z$="2"6140 z$="3"3000  z$="4"3500 :6000p z$="5"6100  6050  v3,4;"DO YOU WISH TO SAVE THE";6,6;"HIGHEST BREAK TABLE";9 ,8;"(Y)ES OR (N)O ?" z$= z$"Y"z$"N"6107 .1}L,5 4z$="N"m(10 ):m$(10 ,2,10 )  .5,2;"PREPARE A TAPE FOR SAVING" "SNKR"5990f  6000p mm=2:490  add=0  6500d  6: cx=0:cy=8 .1,1;"NAME : ";n$(st,1) .2,1;"COUNTRY : ";n$(st,2) 5,0;"SHORT GAME"  6,0;"----------" !0z1=0:z2=0:z3=0:z4=0 "z$=n$(st,8) %z1=z$(1)-480 'z2=z$(2)-480 )z3=z$(3)-480 *z4=z$(4)-480 ,n=212 .(n+6),1; 3n<10 " "; 8'n=11 n;"-PRESSURE":6210B <n;"-";n$(st,7,n) =(n+6),6;" " > z1=n(n+6),6;"*" ? z2=n(n+6),6;"*" @ z3=n(n+6),6;"*" A z4=n(n+6),6;"*" Bn GH8,13 ;1;"B/O";0;" - ";n$(st,6,5) L'5,23;1;"PRESSURE" Q#6,25;1;"PLAY" V8,24;"A - ";n$(st,6,6);9 ,24;"L - ";n$(st,6,7);10 ,24;"B - ";n$(st,6,8) [)11 ,12 ;1;"BREAKDOWN" `d13 ,14;(n$(st,6,1))-480;" (";(n$(st,6,2))-480;") " ed14,14;(n$(st,6,3))-480;" (";(n$(st,6,4))-480;") " gcy,cx;1;">" j220,3;"Use arrow keys, *, S, P or X" l23658j\,8 oz$= qz$=""6255o rz$="P"6500d sz$="S"6430 tz$="X"6870 vz$="*"z$="B"6350 w cy,cx;" " |vt=0:hz=0 ~!z$=8z$="5"hz=-1  z$=9 z$="8"hz=1 !z$=10 z$="6"vt=1 "z$=11 z$="7"vt=-1 #cx=5vt06293 #cx0vt=06299  cy=cy+vt %cy=17vt=1cy=18 &cy=17vt=-1cy=16 cy<8cy=8 cy>18cy=18  6247g ;cy=8cx=0hz=1cx=11 :6247g <cy=8cx=11 hz=-1cx=0:6247g <cy=8cx=11 hz=1cx=22:6247g =cy=8cx=22hz=-1cx=11 :6247g I(cy=9 cy=10 )cx=0hz=1cx=22:6247g J(cy=9 cy=10 )cx=22hz=-1cx=0:6247g <cy=9 cx=22vt=1cy=10 :6247g <cy=9 cx=22vt=-1cy=8:6247g ;cy=8cx=22vt=1cy=9 :6247g =cy=10 cx=22vt=-1cy=9 :6247g J(cy=13 cy=14)cx=0hz=1cx=12 :6247g K(cy=13 cy=14)cx=12 hz=-1cx=0:6247g =cy=13 cx=12 vt=1cy=14:6247g >cy=14cx=12 vt=-1cy=13 :6247g  6247g cx06370  "Enter new value (0-6) : ";z$ z$16490Z 'z$<480ůz$>5466490Z n$(st,7,cy-6)=z$  6188, $cy8cx11 6390 %"Enter break-off mode (A-C) : ";z$ z$16490Z 0z$>96`Ưz$<100dz$=(z$-32 ) 'z$<65Aůz$>67C6490Z n$(st,6,5)=z$  6215G cx226405 "Enter rating (A-E) : ";z$ z$16490Z 0z$>96`Ưz$<102fz$=(z$-32 ) 'z$<65Aůz$>69E6490Z n$(st,6,cy-2)=z$  6230V Ncy=13 x1=n$(st,6,3)-480:x2=n$(st,6,4)  Ncy=14x1=n$(st,6,1)-480:x2=n$(st,6,2)  Fcy,14;1;n$(st,6,((cy-12 )*2)-1)  "Enter value (2-12) : ";z$  6484T 'z<2z>12 z=x16489Y >n$(st,6,((cy-12 )*2)-1)=(z+480) cy,14;(n$(st,6,((cy-12 )*2)-1))-480;" (";1;(n$(st,6,((cy-12 )*2)))-480;0;") " "Enter value (0-2) : ";z$  6482R &z<0z>2z=x26489Y 4n$(st,6,(cy-12 )*2)=(z+480) cy,14;(n$(st,6,((cy-12 )*2)-1))-480;" (";(n$(st,6,((cy-12 )*2)))-480;") "  6247g $x=n$(st,8,1)-480 $y=n$(st,8,2)-480  $z=n$(st,8,3)-480 !%z2=n$(st,8,4)-480 "'x=(cy-6)x=0:64480 $'y=(cy-6)y=0:64480 &'z=(cy-6)z=0:64480 ')z2=(cy-6)z2=0:64480 (+x0y0z06247g *'x=0x=(cy-6):64480 ,'y=0y=(cy-6):64480 .'z=0z=(cy-6):64480 /z2=0z2=(cy-6) 0&n$(st,8,1)=(x+480) 2&n$(st,8,2)=(y+480) 4&n$(st,8,3)=(z+480) 6)n$(st,8,4)=((z2)+480) P 6177! S%z$=0űz$>26489Y T'z$<491ůz$>5796489Y Uz$=16487W V9z$(2)<480ůz$(2)>5026489Y Wz=z$ X Ycy,14;(n$(st,6,((cy-12 )*2)-1))-480;" (";(n$(st,6,((cy-12 )*2)))-480;") " Zf20,0;q$;20,8;1;"INVALID ENTRY":.1}L,10 :5:0 _ 6247g d 6: n.1,1;"NAME : ";n$(st,1) x.2,1;"COUNTRY : ";n$(st,2) 05,0;"POTTING CUE BALL SAFETY" 06,0;"------- -------- ------" cx=1:cy=2 x$=n$(st,3) y$=n$(st,4) z$=n$(st,5) n=818  z=n-6  n,1; z<10 " "; z;"-";x$(z); n,11 ; z<10 " "; z;"-"; &y$(z)=4"BREAK";:6650 y$(z); n,21; z<10 " "; z;"-"; "n=8"SNOOKER":6700, "z$(z) ,n 61(n$(st,6,9 )-42*),6;"*" @3(n$(st,6,10 )-42*),16;"*" O0cy+6,(cx-1)*10 ;1;">" T220,3;"Use arrow keys, *, S, P or X" Wz$= Xz$=""6743W YEz$="S"cx3(n$(st,cx+2,cy)"4"cx2)69600 Zz$="P"6160 [z$="X"6870 \z$="*"z$="B"6795 ]'cy+6,(cx-1)*10 ;" " ^#z$=8z$="5"cx=cx-1 c#z$=9 z$="8"cx=cx+1 h$z$=10 z$="6"cy=cy+1 m$z$=11 z$="7"cy=cy-1 o#cx=3cy=2cy=3 rcx<1cx=1 wcx>3cx=3 |cy<2cy=2 cy>12 cy=12  6720@ "Enter new value : ";z$ z$16835 'z$<480ůz$>5796835 z=z$ .cx=1(z<1z>9 )6835 .cx=2(z<0z>4)6835 .cx=3(z<5z>9 )6835  6860 A20,0;q$;20,8;1;"INVALID ENTRY" .1}L,10  0 20,0;q$  6720@ n$(st,cx+2,cy)=z  6550 ,mm=2"Another amendment Y/N ? ";z$ +mm=1"Another addition Y/N ? ";z$ (mm=2(z$="y"z$="Y")6140 (mm=1(z$="y"z$="Y")3000 z$="n"z$="N"6000p  6870  gt=1poy=poy+1 gt=2poy=poy-1 (gt=3gt=5pox=pox-1 (gt=4gt=6pox=pox+1 )gt5poy4poy=poy+1  )gt5poy5poy=poy-1 pox=0pox=2 pox=12 pox=10 poy=0poy=2 !poy=9 poy=7 & 0D(n$(st,6,(8+cx))-42*),(cx*10 )-4;" " 5,n$(st,6,(8+cx))=(cy+480) :D(n$(st,6,(8+cx))-42*),(cx*10 )-4;"*" ? 6740T X]6:n=06:n,0;q$:n:5:n=721:n,0;q$:n b66:1,6;:z=g(1):7980, l1,12 ;"Frames" v.1,21;:z=g(2):7980, Zst=13,4;1;p$(1);3,19;0;p$(2) Qst=23,4;p$(1);3,19;1;p$(2) Hst=33,4;p$(1);3,19;p$(2) shrt=1 -5,6;:z=s(1):7980, .5,21;:z=s(2):7980,  5 shrt=3 shrt=27089 +8,1;"APR";8,20; cbv=41 -"BREAK";:0:" : ";:z=bk:7980, Jrl010 ,20;"REDS : ";:z=rl:7980,:7100 "10 ,20;" " 3rl=-110 ,20;6;"YELLOW" 2rl=-210 ,20;4;"GREEN" 2rl=-310 ,20;2;"BROWN" :rl=-410 ,20;1;7;"BLUE" :rl=-510 ,20;3;7;"PINK" ;rl=-610 ,20;0;7;"BLACK" >rl0sh=1max=(rl*8)+27:7200  >rl0sh1max=(rl*8)+34":7200  z=1-rl  max=0  n=z7  max=max+n n  311 ,20;"MAX. : ";:z=max:7980, *  0  7306 n=1sh:col,bt:n y2,1,6,0,4,0,2,0,1,1,3,1,0,0,0 n=110 aprncol:bt (20-n),2;"" 0:5 115,(n*8)+16:-1,0 n %16,96`:15,0 L ,z<100d" "; 1z<10 " "; 6z ; #("A DIFFICULT SHOT" #)"A STRAIGHT SHOT" #*"AN ANGLED SHOT" #+"AN EASY SHOT" #,"A POSSIBLE DOUBLE" #-"A FINE CUT" #."A LONG SHOT" #/"A POSSIBLE PLANT" #0"TO PLAY SAFE" #3"ALONG THE CUSHION" #4"INTO CORNER POCKET" #5"INTO CENTRE POCKET" #6"FROM THE TOP CUSHION" #7" " #=%"S6CO3DS7FO4DS6ES5FS7DO9DS7GO5CS8F" #>%"O9CO4FS5ES6FO8ES5DO7ES6DS8DO7CO4E" #?%"S6BO3ES7DO7BS4FO6ES5CO7FS8DO6GS4C" #@%"S9CS4FO5EO6FS8EO5DS7EO6DO8DS7CS4E" #A%"O6CS3DO7FS4DO6EO5FO7DS9DO7GS5CO8F" #G"010011111001" #H"000101110100" #I"010001110001" #J"010010101001" #K"000100100100" #Q"036055463211","3579<" #R"063505362401","247:" #S"025350326401","37:" #T"052530234601","28" #U"055232013406","29" #"0601050807080607040308" #"0809121315161416111007" #"1023151922242024171214" #"1324162129322620321811" #"2017353338402840312522" #"1827314044483735482338" .z oohryx 2bpKaaox$dK6B.Chaperon (Canada) E.Charlton (Australia) S.Davis (England) T.Drago (Malta) N.Foulds (England) M.Clark (England) S.Francisco (S.Africa) T.Griffiths (Wales) M.Hallett (England) S.Hendry (Scotland) A.Higgins (N.Ireland) E.Hughes (Eire) S.James (England) J.Johnson (England) T.Knowles (England) S.Duggan (England) T.Meo (England) D.Mountjoy (Wales) S.Newbury (Wales) D.O'Kane (N.Zealand) J.Parrott (England) A.Robeniux (Canada) D.Reynolds (England) D.Roe (England) W.Jones (Wales) T,Jones (England) G.Wilkinson (England) De.Taylor (N.Ireland) C.Thorburn (Canada) W.Thorne (England) J.Virgo (England) J.Wattana (Thailand) B.West (England) J.White (England) R.Williams (England) C.Wilson (Wales) vs w O.CKL$L,M98MN#<8O9%KMC#KBJN7NM#FOF7M#8CMNB8KFKE:M8LBK<-NL(NLM8E$NBMMBLD9LMAKMCML;NML:$KNF/K9FKMKNL;/LJNC:MMB                       /Red YellowGreen Brown Blue Pink Black opppvOv v tc$B.Chaperon Canada 071467566832 043402134244 009987678896 61;2BDDE33 014203506173 7<00 E.Charlton Australia 081476567382 041021342444 099967878899 61:0ADDB34 014203506173 7900 S.Davis England 031478765663 040342143443 008697987888 2241AAAC<3 046023506174 7922 T.Drago Malta 012876567436 044042123344 006987678798 51:0CDCC34 015203506174 7<00 N.Foulds England 017368756462 044043214344 008687978898 2091ABCE24 033204506175 7900 M.Clark England 017346758626 044034123442 008697789888 2251BBCD24 035203506174 6900 S.Francisco S.Africa 018365674782 030424312414 008698779878 60;1ACCD23 015203506174 3490 T.Griffiths Wales 071456768372 030423142444 009897788986 31;0AEDB33 035203506174 7900 M.Hallett England 081746765388 040442133442 009968787899 51<2BCCC33 014203506174 7900 S.Hendry Scotland 014765786632 040341243414 008679879888 2241CAAB23 043204506175 79<0 A.Higgins N.Ireland 031648765762 013402143444 008896778988 2051CACE<5 045203506174 7900 E.Hughes Eire 017347655862 013402123444 009967878989 2071BCCB42 004203506172 7<00 S.James England 071856764536 043014231444 008897678986 51;0BCDD34 014203506174 3490 J.Johnson England 013676578642 040441233442 009968788799 51<2BCCB23 043204506175 6900 T.Knowles England 018376567428 043023142443 008697879888 40:2BCCD24 024203506174 7030 S.Duggan England 061736745862 044041223344 007798689777 4192CBCD24 014203506172 3700 T.Meo England 023678564768 423401234344 009887789699 2162BCCB23 035203506174 37<0 D.Mountjoy Wales 013756864772 044032143444 009778689787 51:2BCCD24 025203506174 349< S.Newbury Wales 071367564862 042032143444 009987678798 70<2CCCC34 014203506173 3700 D.O'Kane N.Zealand 017476568327 043023144244 009886797888 41:2BCCB24 035203506174 7<30 J.Parrott England 013876657482 044041324344 008869789788 40;2BCBB24 043204506176 7900 A.Robeniux Canada 071465678732 043014243134 008967987888 41:2BCCC33 015203506174 3700 D.Reynolds England 061467568377 040324143244 008867978898 31:2BBCD33 033204506175 7090 D.Roe England 018766547382 044303124424 007889677886 61;2CECC25 014203506172 7000 W.Jones Wales 017466578327 024042123434 007876988779 4192CEDB24 035203506174 7<00 T,Jones England 017856764328 044021324244 008897678988 52:1BDCB24 025203506174 7<00 G.Wilkinson England 071675684732 040243143244 008697879888 2241BACD33 045203506174 7900 De.Taylor N.Ireland 081467675832 043044231244 006898779888 42;1ABBB34 000623506174 4700 C.Thorburn Canada 017476568327 040423431242 008897978868 41:2ADCC23 015203506174 4930 W.Thorne England 013656768472 023444123044 009698787899 51<2BBCD23 035203506174 79<< J.Virgo England 013675678452 044034123442 009698787899 42:0BCCD44 024203506174 6900 J.Wattana Thailand 071486763527 044042123434 008896789788 5192BCCE24 014203506172 39<0 B.West England 071467566832 042042134434 007896789878 51;0CCCB34 014203506173 6900 J.White England 013768675462 044024314344 007886977889 2142BCCA24 043204506175 7900 R.Williams England 016476657832 040432123444 009768779898 51<0BCDD23 035203506174 4900 C.Wilson Wales 027467586737 004243102443 008775687876 61;0CBDD24 043204506175 7000 Ӌ 424342434243424342434243424342434243224243224342437252224132236372123222143311637212118233721362741182625333959595959595959595959595L AN EASY SHOT S.Davis S.Hendry England Scotland} -  /     - Q ^2^X071467566832 Y043402134244 ZN5