ZXTape! 0Created with Ramsoft MakeTZXSNKR fym"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 2bp#aaox$dK6B.Chaperon (Canada) E.Charlton (Australia) S.Davis (England) T.Drago (Malta) N.Foulds (England) P.Francisco (S.Africa) 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.Longworth (England) T.Meo (England) D.Mountjoy (Wales) S.Newbury (Wales) D.O'Kane (N.Zealand) J.Parrott (England) R.Reardon (Wales) D.Reynolds (England) D.Roe (England) J.Spencer (England) K.Stevens (Canada) Da.Taylor (England) De.Taylor (N.Ireland) C.Thorburn (Canada) W.Thorne (England) J.Virgo (England) B.Werbeniuk (Canada) 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 opppvv v tc$B.Chaperon Canada 071467566832 043402134244 009987678896 61;2BDDE33 014203506173 7<00 E.Charlton Australia 051466578732 034042134421 099967878899 61:0ADDB34 014203506174 6900 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 P.Francisco S.Africa 018746657328 044042132434 006886978798 61:2BDDC2; 014203506172 3700 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 031456786763 040341243414 008689787988 2241BAAB<3 043204506175 7900 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 018475667382 024041234432 009688787999 40;2BCCC24 025203506174 7900 S.Longworth England 013876564762 014023142431 007698879777 2061CDCC24 025203506174 7<00 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 041646578372 043042134424 009887678998 50:1BDDB34 004203506172 6900 J.Parrott England 013876657482 044041324344 008869789788 40;2BCBB24 043204506176 7900 R.Reardon Wales 012846756367 023024134222 007886977888 5161BCCD24 004203506172 3600 D.Reynolds England 061747658362 043024132444 008986779888 42:1BBCD33 014203506172 239< D.Roe England 018766547382 044303124424 007889677886 61;2CECC25 014203506172 7000 J.Spencer England 013764658772 044032123444 009896788799 70;2BDCC24 025203506174 6<00 K.Stevens Canada 081547683677 020432143441 007977688986 70;1CCDE23 045203506174 2700 Da.Taylor England 081837654762 012043124443 007887678996 51:0BDCC32 004203506171 6900 De.Taylor N.Ireland 081467675832 043044231244 006898779888 42;1ABBB34 000623506174 4700 C.Thorburn Canada 017375686427 003144233442 009978788996 41<2ADCA32 015203506174 7900 W.Thorne England 013656768472 023444123044 009698787899 51<2BBCD23 035203506174 79<< J.Virgo England 013675678452 044034123442 009698787899 42:0BCCD44 024203506174 6900 B.Werbeniuk Canada 013764567862 043042341214 007779688798 3171CCCD24 024203506174 3700 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 B.ChaperonE.CharltonCanada Australi} -  /       - Q /D2/DX071467566832 Y043402134244 ZN5   u