ZXTape!Shots r"a",00001000:"a"+1,00011100:"a"+2,00101010*:"a"+3,00011100:"a"+4,00101010*:"a"+5,00001000:"a"+6,00001000:"a"+7,00001000 "b",00101000(:"b"+1,11010110:"b"+2,00000001:"b"+3,01110000p:"b"+4,10001101:"b"+5,00100010":"b"+6,11010001:"b"+7,00001110 "c",001100113:"c"+1,11001100:"c"+2,001100113:"c"+3,11001100:"c"+4,001100113:"c"+5,11001100:"c"+6,001100113:"c"+7,11001100  6 &.5,15:.5,15 100d l=a$ i=0(y1-l)*s1*f/l x1*+x0,y0+(y1-l)*;klo;a$ (i -9.1}L,20:.1}L,20:.1}L,20 2 d42;" Enter number of holes you wish to play" n01;3,6;"9 for a short game" x01;6,6;"18 for a long game" gl #gl18gl9 130  2;"Enter handicap" b1;3,5;"1)=Expert";6,5;"2)=Average";9 ,5;"3)=Duffer" hc "hc<1hc>3200 hc=hc-2 p6=/6 course par=0 hole=0 green=3e3 bunker=3500 !trees=4e3 &lake=4500 +rough=5e3 5 ruf=0 :'k$=" " Xpar=(3+3*) bshots=0 l,yards=10 *(10 *(par-2*)) ns1=32 /yards qhole=hole+1 vo$="T"   par=par+hc Xi=021:5;"";:.1}L,25:i  1105Q i=2282 l=5+5* $j=l11 +5* .4;j,i;""; 8j Bi G&.5,10 :.5,10 L 1205 Q f=502 j y1=3 t x0=0 ~ x1=20  klo=0 a$="" z=12 y0=5+20*  10 z  1255 ^x0=3:y0=2:x1=15:y1=25:klo=7:a$="...":f=4:10  1270 a$=""  klo=0  f=502  10  1030 z=12 x0=(15*+1)  y0=20*+5 i=x0x0+2+2* (y1=y0+2* <-1;i,y1;""(2+4*) Fi:.1}L,*10 :z dholex=(3+15*) xi=15 /6;(holex-3)+i,26;" " i F0,13 ;"Hole ";hole;holex,29;2;1;"H" 3ph=(*14+3):ballx=ph:bally=2 <0,0;yards;" yds";0,27;"Par ";par 3;ph,2;"T"  15 3;ph,2;"t"  15 =""1500 ?21,0;k$;21,0;"Direction (0 to 12)?" ang ang>12 1520  ang=ang*p6 ?21,0;k$;21,0;"Strength (0 to 200)?" s 21,0;k$ s>200s=200 "s=s*s1 +rufs=s/4 -#o$="o"ballx,bally;4;"" ."o$=""ballx,bally;1;o$ /"o$=""ballx,bally;0;o$ 0%o$="lop"ballx,bally;5;"" 1#o$="p"ballx,bally;6;"" @shots=shots+1 J ruf=0 Tballx=ballx-s*ang ^bally=bally+s*ang cG(ballx-10 )10 ƽ(bally-15.5x)15.5x1700 hballx<0ballx=0 r ballx>20ballx=20 |bally<0bally=0  bally>31bally=31 shots=shots+1 J21,0;"Out of bounds - penalty shot";0,22;shots &(ballx,bally)=17821004  (ballx,bally)=546green $(ballx,bally)=5242e3  (ballx,bally)=535rough (ballx,bally)=491lake !(ballx,bally)=557bunker  (ballx,bally)=480trees  1700 bee=20:beep=20 o$="o" 0,22;shots 1;ballx,bally;"B" .2~L,bee:.1}L,beep =""2006  1515 4par=shots-par 9X3,12 ;0;"Hole ";hole;6,8;"Holed it in ";shots;" shots" >dshots=11;3;5,8;"*************";7,8;"*************" C+par9 ,6;"A par, well done" D4par=-19 ,6;"A birdie, not bad" E?par=-29 ,2;"My god... a great big eagle." F7par=-39 ,8;"An albatross, superb" HWpar=-49 ,0;"4 under, I don't know what that is, a Dodo perhaps!" I,par>09 ,12 ;par;" over" J:course par=course par+par:12 ,6;"Overall "; Kcourse par2130R L "on par" M 2140\ Rcourse par; W"course par<0" Under par" X!course par>0" Over par" \holegl2500 ^i=115 _ .1}L,i `i a 100d f 600X i=20-20-1 .01z# =,i:i /.1}L,20:5:.1}L,20 c19,0;"End of game, have a pint at the nineteenth or press ""ENTER"" to start again" ocourse par715,1;"Your handicap is suspiciously low, better change it this time around" "Again? ",a$ a$="" 10000' A21,0;k$;21,0;"On the green in ";shots o$="p" 2004 @21,0;k$;21,0;"Bunkered, a chip shot" 20 o$="." shots=shots+1 3600 3ballx,bally;7;".";0,22;shots ballx=ballx+3*-1 bally=bally+2*  1700 $i=110 :.01z# =,i:i  F21,0;k$;21,0;"In the trees - penalty shot" o$="" shots=shots+1 bee=25:beep=10  2004 D21,0;k$;21,0;"In the lake, penalty shot" o$="" shots=shots+1 bee=25:beep=10  2004 H21,0;k$;21,0;"In the rough - better hack it"  o$="lop"  ruf=1 bee=10 :beep=20  2004