ZXTape!Golf ? ?(? 1000 h=13:18 2:sh=0:a$="T":paper=3:ink=7  2000 ( 3000 - 75K 2 4000 < 5000 Fh P 6000p Zplayagain10  10000'  1280  9000(# ""Random or normal course (r/n)?" 0:a$= a$"n"a$"r"1020 'p(18):l(18):s(18) a$="r"1110V $ 9990' .h=118 8 l(h):p(h) Bh L 1250 V$"Course no? ENTER if not bothered" `d$ jd$="":1150~ oF6500d:legal.4L,20:.4L,20:1120` td$ ~ par=0 h=118 l(h)=(*411)+140 0p(h)=3+(l(h)>240)+(l(h)>449) %p(h)5ƥ<.61170 par=par+p(h) h:"Par=";par  "O.K.?" 0:a$= a$"y"a$"n"1220 a$="n"1110V #'"Input your handicap (0-28)" $d$:6500d:legal1270 2.4L,20:.4L,20:1260 ,ha=d$:ha<0ha>281265   9900& i=17:a$  j=07:any  a$+j,any j:i (r$="":c$="" 2i=132 <r$=r$+"":c$=c$+" " Fi P rough=38&:water=47/ Zfairway=6:pin=568 d green=4:bunker=39' ntree=32 xrc=1:mc=0 ts=0:pr=0   21004  2200  2300  2400`  2500  2700  2900T   7  20,0;c$ 21,0;c$ * 44:6: >i=119 Hr$ Ri \C4;7;1;"Hole ";h;",Length ";l(h);",Par ";p(h) f 2050  ,0:6:vp=3+(*13 ) vp1=vp:hp=(l(h)/20) a=1hp .b=-1-(>.5)1+(>.5) vp+b,a-1;"" b !vp=vp+(>.5)-(>.5) "vp=vp-(vp>16)+(vp<2) a vp2=vp  >.25~ 5:7 hp=(l(h)/40() a=018 $ a,hp;"" .!hp=hp+(>.5)-(<.5) 82hp=hp-(hpȺ(l(h)/20-2))+(hp<2) Ba V `0:4:vp=vp2 jhp=(l(h)/20)-1 t/a=-1-(>.5)1+(>.5) ~/b=-1-(>.5)1+(>.5) vp+b,hp+a;"" b:a 7;0;vp,hp;"" hpf=hp vpf=vp  >.9ffff M9970&:k=13+(>.73333)+(>.73333):vp:not:i=0 +(i,vp)=fairwayū(i,vp)=green2540 %i=i+1:i=192590 2520 i=i+2 j=1not:tre= Ri1=i-((4+*3)*(tre>.5))+((4+*3)*(tre.5)) .(i1,vp)=roughi1,vp;4;0;"" j k: 4:7:vp=vpf *zz=-4+(*9 ):yy=(vp+zz,hp) !yyroughyyfairway2705 vp+zz,hp;"" a=12+(>.4L) 4zz=-3-(*3):xx=-3+(*7) yy=(vp+xx,hp+zz) !yyroughyyfairway2740 vp+xx,hp+zz;"":a p(h)<4 hp=10 :2830 p(h)<5 hp=17:2830 (zz=hp+(*4):b=018 "(b,zz)fairway28706 ,b,zz;"":2880@ 6b @a J Tvp=vp1:hp=0 ^3:7 h vp,hp;"T"  3100 %ps=1:ci<213030 3200 sh13900< 3250 Bsh=sh+1:7;0;0,0;(480+sh) rc=1:mc=0 3300 7:1 &#21,0;"Input club ("; ("mc=0"1-4, 11-19, 21-29)" *mc=11 "11-19, 21-29)" ,mc=29"29)" .$mc>20mc29mc;"-29)" 0$d$:6500d:legal3130: 52.4L,20:.4L,20:31200 :\ci=d$:ci<1ci>29ci>4ci<11 ci=20cid$:d$""d$(1)="j"d$(1)="J"d$(1)="-" S6500d:legal3160X U2.4L,20:.4L,20:3150N X0as=d$:as<-180as>1803157U b-as=as+(*(22+ha))-(*(22+ha)) las=as*/180 v 521,0;"Input percentage swing (10-100)" $d$:6500d:legal3220 2.4L,20:.4L,20:3210 .ps=d$:ps<10 ps>100d3215 ps=ps/100d  ci>20ci=ci-10 ci>10 ci=ci-6 ci=16-ci Ihs=((ci*(12 +(*3))+38&)*ps*as*rc/20+.5) Ivs=((ci*(12 +(*3))+38&)*ps*as*rc/20+.5)  2050:7:2 Ghp+hs>31hp+hs<0vp+vs>18vp+vs<03360 hp=hp+hs:vp=vp+vs yy=(vp,hp) yywater33804 ?20,0;1;"SPLASH - Water, penalty 1 stroke" [b$=a$:paper1=paper:ink1=ink:a$="":paper=5:ink=7:3800:3900< Zsh=sh+1:hp=hp-hs:vp=vp-vs:a$=b$:paper=paper1:ink=ink1:3800:3000 ?20,0;1;"OUT OF BOUNDS, Penalty 1 stroke " *'sh=sh+1:3800:3000 4yygreen3410R >420,0;"On the green in ";sh;" shot(s)" H2a$="":paper=0:ink=4:3800: Ryyrough3470 \rgh= f.mc=11 :20,0;"You're in "; p8rgh>.5"heavy rough":rc=.5+/4 z9rgh.5"light rough":rc=.75@+/4 <a$="":paper=4:ink=6:3800:3000 yybunker3560 '20,0;"Bunkered-lie is "; bker=(*3) 1bker=0mc=24+(>.5):"GOOD"; 1bker=1mc=26+(>.5):"O.K."; 0bker=2mc=28+(>.5):"BAD"; "-Max club ";mc %rc=.73333-bker*.1}L+/5 <a$="":paper=4:ink=7:3800:3000 yytree36408 20,0;"In trees-"; )trs=(*3):rc=.5+*4 trs=0"v.bad"; trs=1"bad"; trs=2"lucky"; $4mc=29-trs-(>.8L):" lie, max club ";mc .<a$="":paper=4:ink=0:3800:3000 8yyfairway3670V B,20,0;"You are on the fairway" L<a$="":paper=0:ink=6:3800:3000 V920,0;"On the green in ";sh;" - and close." `2a$="":paper=7:ink=0:3800: i=16  paper:ink vp,hp;a$:15 7:2 vp,hp;"":15  i  < paper:ink F vp,hp;a$ P  4100 Jdp=(((hpf-hp)*(hpf-hp)+(vpf-vp)*(vpf-vp))*15+1+*15) hbp=19:4500 dp14300 -9 ,19-hbp;5;7;""  4350  44000  4500  4030  5: 97:i=12 21:i,0;c$:i:5 h9 ink=2 "h10 ink=2 ,(0,17;5;ink;"" 6 17;5;ink;"" @ 17;5;ink;"" Jink:msig=(h/10 ) Tlsig=h-msig*10 ^Amsig01,18;7;1;1;msig h31,19;7;1;1;lsig r0:5 |/i=06:3+i,20;"":i Xi=12:4;"";0;"";4;"" i ,7:0::" FEET from the pin" tg=2+(*3) %5:0:0,0; tg=2"slow"; tg=3"medium"; tg=4"fast";  " green": T9 ,19;5;" ":10 ,19;0;7;"":10 !10 ,19;0;" " 511 ,19;0;7;"":100d  )7:0:13 ,0;dp 515,0;"Input your putt strength (1-30)"  $d$:6500d:legal4370 2.4L,20:.4L,20:4365  ,ps=d$:ps<1ps>304367 -15,0;c$;13 ,0;" " &sh=sh+1: 0dp<0dir=1 :dp>0dir=-1 D.i=1ps:dp=dp+dir*(1+(*tg)):i N nhbp=((dp+1)/3) nhbp=nhbp-(nhbp=-1)  nhbp<-12 nhbp=-12 nhbp>19nhbp=19 nhbphbpstep=1 nhbp2"Keep your head down." :  zz=ts-pr "You are now "; zz<0zz;" under"; zz=0"level"; zz>0zz;" over"; " par (gross)." : $"Do you want to see a score card?" "0:a$= ,a$"y"a$"n"5410" 6 :a$="n" |212 ;5;1;1;"SCORECARD" P7;2;" Hole";11 ;"Dist";19;"Par";26;"Shots" i=118 =7;4;4;i;12 ;l(i);20;p(i); s(i)=05580 5s(i)-p(i)<028;2;7;s(i) 5s(i)-p(i)=028;7;0;s(i) 5s(i)-p(i)>028;1;7;s(i) i -19;7;3;pr;27;ts 25;1;1;"Any key to continue"  0:: p 6100 zha>062008  6300  5500|:7:0 "You took ";ts;" shots," "(Net ";ts-ha;" shots)."  zz=ts-pr-ha  "That was "; zz<0zz;" under"; zz=0"level"; $zz>0zz;" over"; ." par (net).":: 8Ezz<0pd=((zz/2)+.5)*(zz<0):pd>hapd=ha =zz0pd=0 B"As a result:" L"Your handicap "; Vpd=0"remains at ";ha `@pd>0"is down ";pd;" shot(s)","(to ";ha-pd;" shot(s).)" j t "Do you want another round?" 0:a$= a$"y"a$"n"6310 a$="y"playagain=1 a$="n"playagain=0  d'legal=1:d$=""legal=0: ii=1̱d$ n;(d$(i)"0"d$(i)"9"d$(i)="."d$(i)="-")legal=0 xi: #(Idp=0:h=7:4100:hbp=19:4500:4300 #-'2:7:3,0;c$ #2$"Graphical Golf - Ian Turtle " #7c$: #<$" Do you want the instructions? " #F0:a$= #Pa$"y"a$"n"9030F# #U a$="n": #Z7:0::" The program is a full eighteen hole simulation of a round of golf. At the start of the pro- gram you will be asked whether you want to play the standard course or a random one." #dw'" The standard course can be"'"considered to be your 'home'"'"course, i.e. the one that your handicap is based on." #n'" The random option gives you thechoice of 65535 different"'"courses chosen by inputting a whole number between 1 and"'"65535. (You can always replay this course by typing in the"'"same number at the start of the round.)" #x 9895& #" The random course may not have a par of 72."''" Then you will be asked to inputyour handicap. Beginners start at 28. If you play well then thecomputer will reduce your"'"handicap at the end of the"'"round." # 9895& #{" Play onto the green."''"The computer will give you a"'"'bird's-eye' view of the hole. The various symbols represent:" #/'10 ;4;6;"";:" - rough" #('10 ;6;" ";:" - fairway" #&'10 ;4;" ";:" - green" #0'10 ;4;7;"";:" - bunker" #0'10 ;4;0;"";:" - a tree" #/'10 ;5;7;"";:" - water" #1'10 ;7;0;"";:" - the pin" #1'10 ;3;7;"T";:" - the tee" # 9895& #" Play consists of selecting a club, an angle and optionally, apercentage swing."''" The following are your clubs and approximate yardages:" #$'"CLUB NAME YARDAGE" $!"Driver 1 233" $!"2-wood 2 220" $!"3-wood 3 207" $"!"4-wood 4 194" $,!"1-iron 11/21 181" $6!"2-iron 12/22 168" $@!"3-iron 13/23 155" $J!"4-iron 14/24 142" $T!"5-iron 15/25 129" $^!"6-iron 16/26 116" $h!"7-iron 17/27 103" $r!"8-iron 18/28 90" $|!"9-iron 19/29 77" $ 9895& $" There are two choices of name for the irons, as the second"'"option allows you to input a"'"percentage swing for greater"'"accuracy." $U'" You are then asked to input an angle of shot, based on the"'"following chart:": $212 ;"-90";8;"-135 | -45 - for up" $'12 ;"\|/";8;"180---- 0" $312 ;"/|\";9 ;"135 | 45 + for down" $13 ;"90" $C'"(Any intermediate angle is"'"allowed, e.g. -22.5.)":9895& $"Play on the green." $'" Putting consists of typing in a putt strength depending on thespeed of the green and the"'"distance from the flag. As a"'"guide, for every one you input in reply the ball will travel the following distances (approx)" $#'5;"SLOW green.... 1.5 ft" $#'5;"MEDIUM green.. 2 ft" $#'5;"FAST green.... 2.5 ft" %J'"E.g., a ten ft putt on a medium green would require a strength of 5." %I"E.g., a twenty ft putt on a fastgreen would require a strength of 8." % 9895& %&" A few final details:" %0U'"1)The scale on the 'bird's eye' view of the hole is 20 yards to one square." %:"2)You have the option of looking at your scorecard after every hole. On the card, under par scores are shown in red and over pars in blue." %DS"3)Your legal choice of clubs is shown after the 'Choose Your Club' prompt." %N321,0;" Press any key to begin. " %X 0:: &B21,0;" Press any key to continue ":0:: &M"a",255,0,255,0,255,0,255,0 &Q"b",568,124|,254,127,63?,63?,126~,568 &H"c",8,24,568,8,8,8,8,28 &H"d",16,32 ,16,8,4,2,4,8 &L"e",8,28,28,62>,127,127,8,8 &G"f",0,0,0,24,24,0,0,0 &O"g",0,0,60<,126~,126~,126~,126~,60< &W10 ,4,11 ,8,12 ,12 ,13 ,8,14,4 'E361i,4,389,4,206,3,500,5,408,4,359g,4,424,4,388,4,196,3,400,4,5600,5,132,3,357e,4,294&,4,475,5,375w,4,180,3,550&,5