ZXTape!Golf Club 999::7:0:0:0:0:7: 2,8;1;7;"WE WELCOME YOU";5,12 ;"TO THE";9 ,6;"SPECTRUM GOLF CLUB";11 ,1;"(Professional, Clive Sinclair)" =x(h)=(h/100d):y(h,x)=h-100d*x h(18):w$="<^>" !h$(18,20,4): m=118 &n=117:q:h$(m,n)=q:n #m (~finish=4000:stream=1600@:print=1500:tee=1000:bunker=1050:green=1100L:hole=1150~ -Gbot r=1300:top r=1200:trees=1400x:lake=1550 2's(18):l(18):p(18) 7n=118 <l(n),p(n),s(n) An Kn="a"65535:u:n,u:n P hl=0 Z14,1;"If you need further advice on playing the course then please press 1, otherwise please"'" press ENTER." _%q$=:q$"1"q$13 95_ dq$="1":2000 i]:2,1;"Please inform the professional of your name and handicap."'" (0 - 24)" n "Name: ";n$ s"Handicap: ";q$ xq$<"0"q$>"9"115s }%q$<0Űq$>24115s hc=q$ R6,1;"Please press any key when you are ready for the first hole." 0 84:0:0:0:0:7: hl=hl+1 hl=19finish }t1=0:ob1=0:sc=0:cg=163:cga=32 :s1=0:r1=0:t1=0:w1=0:g1=0 top r bot r +t1=6:t2=4:t3=5:trees +t1=9 :t2=7:t3=8:trees &n=10 12 :b1=n:bunker:n lake stream green hole tee print 7050 ,w1w1=0:3150N 1"Club? ";l$ 3l$=""3051 6l$(1)=" "3051 ;l$(1)="p"3300 @(l$(1)="w"c=10 :360h ENl$>1l$(2)="sw"s11c=12 :cw=0:360h JTl$>1l$(2)="sw"s1=1l2=(*41)):s1=0:375w TGcw=0:l$>1l$(2)="w"l$=l$(1):cw=20 Yl$>13051 ^c=l$(1) h%l1=220-c^2-c*2+cw r l2=l1-hc/c w"% swing (30 to 100)? ";s$ |s$=""375w s$="100"390 ,s$(1)<"3"s$(1)>"9"375w s$>100d375w sw=s$ &l=(l2/20)*(sw/100d)*s(hl) "Direction (clock) ";d$ d$=""400 d$<"0"d$>"9"400 d$>12 400 r1r1=0:3050 s1l$"sw"3000  3350 da=d$*/6+da1 t1t1=0:3020 4yd=by+l*da+wy*l/5:xd=bx-l*da+wx*l/5 %xd<1xd=1:ob1=1 'xd>20xd=20:ob1=1 %yd<0yd=0:ob1=1 'yd>31yd=31:ob1=1 23693\,cga  bx,by;cg ob17000X x=xd:y=yd:9000(#  cg=i:cga=(xd,yd) 'xd,yd;8;7;8;"" bx=xd:by=yd Yg1=0:cg=""cg=""cg=""cg=""cg=""cg=""cg=""cg=""g1=1 !+g1xd,yd;1;5;7;" " &cg=""s1=1 +cg=""r1=1 0cg=""cg=""t1=1 55cg=""cg=""cg=""cg=""cg=""w1=1 D+s1xd,yd;1;6;7;" " Isc=sc+1 S221,23;0;5;"Score ";sc Xcg=""3250 b 300, h=h$(hl,1) x=x(h):y=y(h,x) x,y;0;""  bx=x:by=y  h$(hl,b1)="9999" $h=h$(hl,b1) .x=x(h):y=y(h,x) 8x,y;6;4;"" = Lh=h$(hl,2) Vx=x(h):y=y(h,x) `Dx,y;5;4;"";x+1,y;"";x+2,y;"" j ~h=h$(hl,3) x=x(h):y=y(h,x) $x+1,y;5;0;""  h$(hl,16)="9999" h=h$(hl,16) x=x(h):y=y(h,x)  c1=31  r=0x c=0c1 (>.2~Lr,c;1;0;"" c  c1=c1-y r   h$(hl,17)="9999" h=h$(hl,17) (x=x(h):y=y(h,x) 2c1=y <r=x21 Fc=0c1 P(>.2~Lr,c;1;0;"" Zc d#c1=c1+y:c131c1=31 ir n xh$(hl,t1)="9999" p$="" h$(hl,t1)=100dp$="" h=h$(hl,t2) n1=x(h):n2=y(h,n1) h=h$(hl,t3) m1=x(h):m2=y(h,m1) n=n1n2:m=m1m2 >.6n,m;2;p$ m:n  wn=(*4)+1 %wn=1wy=-1:wx=0 %wn=2wy=0:wx=-1 $wn=3wy=1:wx=0 $wn=4wy=0:wx=1 m0,0;5;" HOLE ";hl;9 ;l(hl);" Yds";17;"Par ";p(hl);26;"Wind ";w$(wn)  h$(hl,13 )="9999" h=h$(hl,13 ) "x=x(h):y=y(h,x) ,`x,y;7;5;1;"";x+1,y;"";x+2,y;"";x+3,y;"" 6 @h$(hl,14)="9999" Jh=h$(hl,14) Tx1=x(h):y1=y(h,x1) ^h=h$(hl,15) hx2=x(h):y2=y(h,x2) r n=x1x2 |m=y1y2-1 0n+m=x1+y1n,m;7;5;1;"" m:n  23692\,255 1,1;"The round of gold that you will play is as near as possible"'" to a real game. You will be"'" asked to state your handicap (0 to 24) and this will"'" influence the length and"'" accuracy of your shots." ;'" You will carry a normal bag of clubs consisting of:-" 12 ,7;"Driver .........1w";7;" .........2w";7;"Spoon ..........3w";7;"1 - 9 irons ....1 - 9";7;"wedge ..........w";7;"sand wedge .....sw";7;"putter .........p" 421,1;"(Any key to continue)":0 '" If you attempt to hit the ball off the screen you will incur 2 penalty strokes for going out of bounds and your ball will be replaced on the edge of"'" the screen." '" If you drive into water you"'" will incur 2 penalty strokes and your ball will be replaced on the tee side of the water."  ''" For each hole you will be told the yardage, par, direction of wind and number of strokes so far. This information is"'" displayed above and below the plan of the hole." $'" (Any key to continue)":0  '''" The direction of your stroke is entered in terms of a clock face. The strength can be from 30% to 100% of a full swing. Information about the result of the previous stroke is shown below the plan of the hole." %P'" At the end of your round you will be shown your card for"'" that round." *.'''''''';" (Any key to continue)":0: 021,0;6;"Take a sand wedge" "100d:7050:585I 'da=da+(1-(*3))/10 l=l-(*4)  Nyd=by-3:xd=bx X w1=0 b(21,0;6;"In water " lsc=sc+1 v"100d:7050:500 e21,0;0;5;1;"You have holed out in ";sc;" strokes";" "sc<10 200 h(hl)=sc 150 !"Strength of putt (1 - 3) ";v$ v$<"1"v$>"3"3300 wy=0:wx=0 l=v$(1)  400 da2=(/18)*hc/12 da1=da2*((*3)-1) * 7:0: Npt1=0:pt2=0:ht1=0:ht2=0:lt1=0:lt2=0 R1,7;"SPECTRUM GOLF CLUB";3,5;"Length 6505 yds Par 72" 35,0;" Yds Par Sc Yds Par Sc" ^3,44,:0,93]:249,0:0,-93]:-249,0 &126~,44,:0,93] o22,44,:0,93]:60<,44,:0,93]:93],44,:0,93] r148,44,:0,93]:187,44,:0,93]:220,44,:0,93] Jn=19 :n+6,1;n;n+6,16;n+9 :n /n=19 :ht1=ht1+h(n):ht2=ht2+h(n+9 ):lt1=lt1+l(n):lt2=lt2+l(n+9 ):pt1=pt1+p(n):pt2=pt2+p(n+9 ):n+6,4;l(n);n+6,9 ;p(n);n+6,13 ;h(n);n+6,20;l(n+9 );n+6,25;p(n+9 );n+6,29;h(n+9 ):n I17,3;lt1;" ";pt1;" ";ht1;19;lt2;" ";pt2;" ";ht2 m19,23;"Total ";ht1+ht2;20,20;"Handicap ";hc;21,24;"NETT ";ht1+ht2-hc 20,1;n$  10000' X721,0;0;5;"Out of Bounds. " b ob1=0 lsc=sc+2 v100d:7050: 21,0;5,,  J0401,0326F,0427,0110n,1219,0100d,1820,0031,0100d,1313!,1216,0728,9999',9999',9999',0200,1606F T1201,0928,0929,0108l,1015,0100d,1420,1631_,0200,1210,1126f,08259,9999',9999',9999',1002,1403{ ^1101M,08226,08237,0417,2731 ,0200,9999',9999',9999',0720,0918,1220,9999',9999',9999',0802",1405} h1801 ,0426,0527,1321),1131k,0100d,9999',9999',9999',0330J,0524 ,0530,9999',9999',9999',1402z,9999' r0401,1626Z,1628\,0106j,0931,0200,0711,1831',0200,1427,1630^,1830&,9999',9999',9999',0300,,0702 |0801!,1628\,1729,0108l,2031,0200,1221,0011 ,0200,1214,1825!,13291,9999',0123{,21037,0505,1203 0201,1426,1428,0112p,1031,0100d,9999',9999',9999',1411,1508,1730,9999',9999',9999',9999',1610J 1501,0626r,0727,0610b,03117,0200,1421,2131S,0100d,0425,0530,1027,1210,9999',9999',1302,1711 1701,1625Y,1626Z,0107k,2531 ,0100d,08204,08215,0100d,1429,1924,1930,9999',9999',9999',1005,9999' 1001,0927,1028,1421,1931,0200,9999',9999',9999',1024,1325-,1116\,9999',9999',9999',0700,1304 1802 ,0424,0426,0110n,0014,0100d,1221,1731,0100d,0225,0429,0827;,9999',9999',9999',9999',9999' 1302,0626r,0727,0207,1117],0200,1321),2231,0200,1214,1415,08248,9999',9999',9999',1002,1631_ ¼0302.,1525,1626Z,9999',9999',9999',9999',9999',9999',0713,0911,1829%,0922,0130,2011,0200,1931 ̼1701,1427,13280,1120`,1023,0200,0107k,2131S,0200,0716,0918,1525,9999',9999',9999',1003,1831' ּ1001,1123c,1125e,0120x,2831 ,0100d,0120x,2831 ,0200,0925,1116\,1525,9999',9999',9999',0801!,1207 1002,0926,1027,9999',9999',9999',9999',9999',9999',0728,0930,1229,9999',0130,2011,0701,1311 1101M,0526,0527,0108l,0021,0100d,1420,0026,0200,1017,1217,0930,9999',9999',9999',0200,9999' 0202,1727,1828$,0107k,0931,0200,0813-,2031,0100d,1527,1825!,1217,9999',9999',9999',9999',0702 300,,4,1.7Y 500,5,1 &250,3,2.2 0400,4,1.5@ :200,3,2.5 D350^,4,1.43333 N420,4,1.459 X480,5,1.15333 b280,4,1.75` l330J,4,1.6L v160,3,3.2L 450,4,1.3&fff 495,5,1 400,4,1.5@ 440,4,1.35, 190,3,2.83333 470,5,1.2 390,4,1.6L 247,255,255,255,255,255,255,255,96`,248,254,254,255,127,127,30,3,15,31,63?,127,127,255,255,192,240,252,254,254,255,255,255,255,255,255,127,63?,31,31,7,255,254,254,254,252,248,224,192,255,255,255,254,255,255,255,255,0,0,24,60<,60<,24,0,0,3,14,24,17,502,36$,109m,192,192,32 ,24,198,34",35#,145,73I,146,137,72H,36$,35#,16,24,7,73I,173,17,34",66B,4,28,240,8,8,28,28,62>,62>,8,8,28,62>,127,127,127,62>,8,8,255,255,255,255,255,255,255,247,0,82R,34",0,0,74J,68D,0,0,0,24,36$,36$,24,0,0,8,8,8,8,8,62>,28,8,0,480,73I,134,0,480,73I,134,126~,1,579,17,17,17,1,126~,255,255,255,255,127,255,255,255 #(i=(x,y):i #2<236066\,23675{\:236077\,23676|\-1 #<i=(x,y)+112p #F-236066\,0:236077\,60<: G