ZXTape! 0Created with Ramsoft MakeTZXBOWLS q 0:7:7:7::.5,20:236099\,557:23658j\,8:"":0,0:"" ,BOWLS A <<` PP ?P?  ? ~???@(P ~P ?@@?@ ??~~~ff(( ?0대?~~~~ P(?(?!!~???~~~(`(?B(?B3B~~~~??(@( (? ?~~????P<< ?P P (?ǀ??~??~~À PP P?  P?~??~~~?~ ??~?? ???>||@??~~?@~?|??~~~?~~?~~?>>!?~~?ZU?~~~?>>>B?~'o??>~>|>?~ ??|~>|>R ~~B~~||>!~??~~|B_>]@>||!>|>> @>||">||>"@#D`> |>|"!>||>@!>>!`f8fHHf`8(>>t| >!||>| >|BBd `f0f< >Hs|||>> |!6B!Pb`f0f&>&f`0 P||>|>>@{|hs"|>|>A| @ V ,"BpBf0fFFf`0||>>>s|>"|>B8"!~<<<@@||>|>1|>D|||> QhD!`;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;>>>>>>>>>>>>>>>>>>>>;;;;;;;;;;;;>>>>>>>>>>>>>>>>>>>>;;;;;;;;;;;;>>>>:::>>>>>>>>>>>>>;;;;;;;;;;;;>>>::::>>>>>>>>>>>>>>;;;;;;;;;;;>>>::::>>>>>>>>>>99>>;;;;;;;;;;;>>>:::;;;>>>>>>>999==>>>>>>>>>>>>>:::>;;;>>>>::::9>====;>;;>>>>>>::::>;;;>>>>:>::9>===;;;;>>>>>>>::::>;888888:::99>==>;;;;>>>>>>>>>>>;;88>>>88>>>>>>>>>>>>>>>>>>>>>>>;88>>>>>88>>>>>>>>>>88>>>>>>>>>;;88>>>>>88>>>>>>>>>>88>>>>>>>>>>>8>88>>>88>>>>>>>>>>8>>>>>>>>>>>>>>8>>>>88>>>>>>>>>88>>>>>>>>>>>>888>>>88888>>>>>>>88>>>>>>>>>>>>888888888>88>8888888>888>>>>>>>>88>>>888>>>88888888>>88>>>>>>>>>88>>>888>>>88888888>>88>>>>>>>>888>>88888>888888888>888>>>>>>>>8>88888>888888888>888888>>>888888888>>>>>>>><<<>>>>>888888888888888888888888<<<888888888888;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;}BOWLS *2R)*2u  GOVERNMENT HEALTH WARNING ************************* PROGRAMMING CAN ENDANGER YOUR HEALTH!!  7,23658j\,10 :236099\,35# <:8000@ Fget instructions PP#1;1,0;5;0;" Do you wish instructions? (y/n)" U=""85U W}="Y"8100::10 ,0;1;7;"Do you wish to see instructions again? (y/n) " X="N"90Z Y 85U Z8:5,5;"SPECTRUM BOWLS  IWS":4220| d playgame n 2000  SET KITTY  6000p b/2=(b/2)0,8;3;9 ;ysc;0,25;bsc;" ";5;3;1;"BLUE":505 n0,0;3;6;1;"YELLOW ";0;9 ;ysc;0,25;bsc:505 6pl=0pl=6:left=left-1:510 2pl=6pl=1:rt=rt-1:510 6pl=1pl=6:left=left-1:510 Kleft>021,5;:f=1left:6;" ";:f Hrt>021,20;:f=1rt:1;" ";:f  1100L @.5,24:"What weight? (040)";s$:S$=""530 qF=1̱S$:S$(F)<480ůS$(F)>579#1;1,7;1;"INCORRECT ENTRY":545! YF:ST=S$:ST>40(#1;1,7;1;"INCORRECT ENTRY":545! R.5,480:#1;3;7;" ~B~ to Bowl-Other key=Restart " =""535 ="B"600X !/.75@,-20::2000:800 : & 520 X8280X :b=b+1 Zx=132+dir:y=20 bf=st1-1 df>st/2.5 618j fx<132dir=dir+4 hdir=dir-2 jMx=x+dir/4:x>253x<3x=253:y=173:F=0 l2y=y+5:y>173y=173:F=0 nyyq1=y $FL=1:8270N :FL=0 =""650  900::enlarged  2000  800   501  Uf=1b:u(f,1);u(f,2),u(f,3),2:.2~L,f*3:f * Ig=031:0,g;3;"";1,g;3;"";:g (1;0,11 ;"DEAD AREA"  f=1b 6col=(((175-(u(f,3)))/4)+.5) 3row=(((u(f,2)-68D)/4)+.5) col>21983 %row>31row<0983  col,row;u(f,1);"" f Ru(1,3)>1701;21,11 ;"DEAD END":4220| b=9 3000 y19,9 ;"PRESS ANY KEY"'5;"(~SPACE~ for enlargement)":#1;" ~I~ For Instructions":0 ="I":8170::  " " 7000X: Lset direction Q-#1;"Use Cursor keys- ~Enter~ to lock" V2dir=0:132,0:pl;dir,20 j=""1130j t=13 1185: ~="8"1190 ="5"1194  1130j  'dir=0dir=1-(*3)  wDIR<20132,0:1;dir,20:dir=dir+1:132,0:1;pl;dir,20  xDIR>-20132,0:1;dir,20:dir=dir-1:132,0:pl;1;dir,20  21,16;"" vf=031:0,f;3;"":f:f=121:f,0;3;" ";f,28;" ":f  CALCULATE RADIUS !f=2b:.01z# =,20 X1=u(1,2) Y1=u(1,3) 4r1=x1-u(f,2):r1<0r1=u(f,2)-x1 4r2=y1-u(f,3):r2<0r2=u(f,3)-y1 +u(f,4)=((r1^2)+(r2^2)) 0u(f,3)169u(f,4)=500 f ;b=9 21,13 ;9 ;1;"SCORING"  bubblesort *f=2b-1:g=2b-1 .01z# =,24 u(g,4)>u(g+1,4)h=14:u(10 ,h)=u(g,h):u(g,h)=u(g+1,h):u(g+1,h)=u(10 ,h):h g:f  b<9  scoring f=25 Ju(f,1)=6U(F,3)<173ysc=ysc+1:4140, ")U(F,3)<173bsc=bsc+1 ,6col=(((175-(u(f,3)))/4)+.5) 63row=(((u(f,2)-68D)/4)+.5) ;3col>21row<0row>314170J @)col,row;u(f,1);1;"" JS0,0;3;9 ;"YELLOW ";ysc;0,25;bsc;" ";"BLUE" T 1,f ^bsc=win4500 cysc=win4600 h0u(f+1,1)u(f,1)f=5 rf |24900$:f=135#:a:.2~L,a:f (pl=0:end=end+1:b=1 =#1;1,12 ;6;1;"END No. ";end Jf=05:.2~L,(*f):.05|L,(*f):.1}L,(*f):f   100d  blue wins 1:5: f=031 31;0,f;"";21,f;"" Sf=0g=120:1;g,f;"";g,f+31;"":g f =6,11 ;"BLUE WINS";7,11 ;"" A10 ,11 ;"BY ";bsc-ysc;" SHOT";:bsc-ysc1"S" %20,10 ;"Another Game? " -4585:f=18:a:b:a,b:f =""4580 .5,12 ,.25~,14,.25~,16,.25~,14,.25~,12 ,.5,19,.25~,19,1,19 ="y"Ŧ="Y"   yellow wins 6:7:  f=031 36;0,f;"";21,f;""  Sf=0g=120:6;g,f;"";g,f+31;"":g %f *A5,11 ;"YELLOW WINS";6,11 ;"" 4A11 ,11 ;"BY ";ysc-bsc;" SHOT";:ysc-bsc1"S" > 4570 $4,5,7,7,4,4,7,7,4,4,5,5,2,2,5,5,2,4,0,0,12 ,12 ,9 ,9 ,7,4,9 ,7,0,-1,2,2,0,12 ,0 check collisions ?x>(u(g,2)-4)x<(u(g,2)+4)5100   f=f/2 f<1f=1 h=f1-1 u(g,2)=u(g,2)+dir  #u(g,3)=u(g,3)+5 ;u(g,3)>172u(g,3)=173:H=0 hu(g,2)>250u(g,2)<5u(g,2)=250:u(g,3)=173:H=0 PFu(g,1);u(g,2),u(g,3),2:.1}L,20 Zh dRu(1,3)>16821,12 ;1;"DEAD END":4220|  zplace=(*160)+1 place<120x6000p ,place/5ɺ(place/5)6010z .f=20(22-place/8)-1 @f,16;7;"o":.1}L,f-20:f,16;" " f +7;1;131,place,2 BTu(1,1)=7:u(1,2)=131:u(1,3)=place Lq1=u(1,3)-5 jleft=4:rt=4 t X enlarged b lC10 ,5;7;"";1;10 ,5;"J" vBf=50220016:f,120x:0,-70F:f  3000  f=2b B7+u(f,1),2*f+5;u(f,1);"":f BF18,5;"GRAPHIC REPRESENTATION"''8;"press any key" G 0 L @ set values JLpl=0:ysc=0:bsc=0:end=0:dir=0:st=0 T89030F#:f=07:a:(144)+f,a:f ^u(10 ,4) h&4:4:0:1: m*5,5;"SPECTRUM BOWLS  IWS" ||9 ,1;"YOU MAY PLAY"''5;"MATCH BOWLS:(1st10)"''" OR"''5;"COMPETITION BOWLS"'17;"(1st21)" H#1;1,0;" M for MATCH - C for COMPETITION" =""8075 ="M"win=10 : ="C"win=21:  8075 afl=0::1,7;"SPECTRUM BOWLS IWS";1;1,7;"______________" J:"you are at the"'" mat";21,16;1;"":100d 4,18;"YOUR COMPUTER";5,18;"WILL PLACE THE";6,18;"JACK....":f=195-1:7;f,16;"o";f+1,16;" ":.1}L,f:f 10 ,5;"YOU MAY CHOOSE YOUR";11 ,13 ;"COLOUR";7,8;1;6;"";8,0;"PLAYER 1 (YELLOW)";7,24;5;"";8,17;"PLAYER 2 (BLUE)"  8270N 8,0;6;"PLAYER 1 (YELLOW)";5;"PLAYER 2 (BLUE)";4;14,0;"NUMBER OF SHOTS LEFT IS PRINTED"'" AT THE BASE OF THE SCREEN":F=14:21,F+5;6;"";21,F+22;5;"":.6,F*2:F  8270N  u:21,16;"";1,0;"USE CURSOR KEYS TO SET DIRECTION"'''5;" PRESS -8- TO GO RIGHT..." CF=015:.01z# =,f:132,0:F,20:F  8270N -6,9 ;"OR -5- TO GO LEFT " VF=015:.01z# =,15-f:1;132,0:-F,20:F $f=110 :3580 :f ?15,0;1;"THEN ~ENTER~ TO LOCK DIRECTION."  75K &4:17,0;"ENTER WEIGHT of BOWL: (0 40)" 0 100d D219,0;" THEN PRESS B to BOWL" I615,0;"THEN ~ENTER~ TO LOCK DIRECTION." NT#1;1,0;fl;6;" press any key when ready ":0 X@#1;1,0;" ": #FI195,129,0,0,0,0,129,195 ssniai blacefS