ZXTape! 0Created with Ramsoft MakeTZXGOLF ~~ 4:4:4: Y65273:"":4,0;:"":4,0;:"":4,0;:"" GOLF @ <B<@>B~|<|~|<<<<B@B@BBB@B@(BBB@@B|BB||B<B< @@B@|BB@|>BB@$@DBB@DBBBB<~>~B<|~B<><<<<  @@ ?@BB<@@@bBB@BBDbB@RBB@BBBR@@@  @JBB@B~BJN  @@@@FBZ@BBDFB@B<$~B<@@@~8~Tg~TfTf@8f  !!!!!!!!!!! !!!!!!!!!! !!!!!!!!! '''''''''''''''''''' ' ' ' GOLF X 00Á00 @8<<~~gfff~@ ~~fff<~>??>00'''8W!X~Dzw#:H\% y&- y.! EC>|zy$gGOLF ;P2#5P=P!9[e\R ?65339;,128:0,0;"":A=65338::  65273 i23659k\,0:0:0:0:7:0:7:2:23658j\,8 Xcpar=0:s4=0:s3=0:g1=0:g2=0:hole=1:f(2) {65275,7:A=65274:85004!:0,13 ;"GOLF";2,5;" CLIVE ROBERTS 1983" h'"A game for 1 or 2 players"''"Playing from 1 to 18 holes"''"Key I for Instructions"''"Key S to Start"  8100 A$"I"A$"S"14  8000@ A$="S"524 4,0;"The length,number and par of the"''"hole will be shown at the top of"''"the screen. If there are two"''"players you will be told who is"''"to take their shot first." 52,5;"PRESS C TO CONTINUE!"  8090 4,0;"The Distance is from the tee to the flag. If you hit a ball off the sceen or off the back of thegreen it is Out Of Bounds." " THE COURSE" '"The Tee T","Fairway  "''"Rough ","Trees "''"Ditch ","Green  "''"The Flag ","Sand  " 8090 ![5,0;"You will have the clubs listed below in your golf bag when you start." "O'"Numbers 1,2 and 3 Woods"'"Numbers 2,3,4,5,6,7,8,9 Irons Wedge and Putter" #K'"CLUBS ARE SELECTED BY A CODE:- 1W = 1 WOOD,4I = 4 IRON AND SW =WEDGE." $ 8090 &4,7;"STRENGTH OF SHOT"'"The distance the ball travels isdecided by the range of the clubused and the strength of shot. The strength is entered as a number from 1 to 10 (decimal places can be used)" '3'"Use + or - keys to change the Strength Meter" ( 8090 *u4,7;"DIRECTION OF SHOT"'"The direction of the shot is decided by entering a number from 0 to 12" ,"0 to 12 represent the numbers ona Clock Face. eg. if you entered3 then the ball would travel in the direction of 3 on a clock face (decimal places are ok)" -3"Use + or - keys to alter the Direction Meter" . 8090 04,0;"If you change your mind about the club,strength or direction you have chosen Key C before youshoot."'"If you hit the green to fast you will roll off the back."'"Study the Club Use and Range List before you start." 2/8090:4,8;"THE GREEN PLAY" 3'"When putting on the green the Direction and Strength of shot are as on the fairway. The Strength of Putt is from 1 to 32 (32 will hit a ball from one end of the green to the other).":8090 422:0,0;"KEY 1 TO START GAME." 6$'"KEY 2 FOR CLUB USE & RANGE LIST" 8'"KEY 3 FOR INSTRUCTIONS" :"1"Ʀ"2"Ʀ"3"58: ;A$=:.3,28 <A$="2"8110 >A$="3"10 @A$="1"68D B 58: D42:20,0;" 1 OR 2 PLAYERS? " E""69E F"1"Ʀ"2"70F HA$=:PLAY=A$ J:PLAY=10,0;" 1 PLAYER SELECTED " L;PLAY=20,0;" 2 PLAYERS SELECTED " N.5,28 P;20,0;"KEY A FOR 9 HOLES KEY B FOR 18"; R"A"Ʀ"B"82R TF="A"HS=9 :4,0;"9 HOLE COURSE SELECTED" VH="B"HS=18:4,0;"18 HOLE COURSE SELECTED" X.5,28 Y620,0;" " ZPLAY=1108l [0A$="":B$(2,10 ):A=12 \""92\ ].20,0;"ENTER PLAYER ";A; ^=""94^ `=13 ƱA$>0B$(A)=A$:A$="":21,0;" ";5+1+A,0;"PLAYER ";A;" ";B$(A):.4L,28:A:108l a A$=A$+ dHA$>10 21,0;"10 LETTERS MAX":A$="":104h f&21,0;A$;" " h""104h j 94^ l=20,0;" KEY S TO START GAME " n"S"110n s.5,15 I65275,0:A=65274:7:0:0:2 O4:65339;,147:0,0;"j":a=65338::7 :a=228:11 ,a;4;4;"":a a=2282 b=14 V(11 +(b-1),a)=36$ƥ<.75@11 +b,a;4;4;"" ic=(b-(b*2)):(11 +(c+1),a)=36$ƥ<.75@11 +c,a;4;4;"" b:a "Ua=12+((*25)):b=(*17)+2:c=(*30)+2 'INK4 PAP0 ,b,c;"":a 19TOP INK 6 PAP 4 MIDDLE INK 6 PAP 6 BOTTOM PAP6 INK4 6Ta=12+((*6)):b=(*15)+2:c=(*30)+2 @B,C;"" BJ<.5B+1,C;" ";B+2,C;"":330J DB+1,C;"" Ja T1B=(*5)+6:C=(*30)+2 VA=110 X>.8L348\ Z"B,C;"":B=B+1:A \<.6340T a=5+(*10 ) za,29;4;4;1;" ";a+1,29;" ";0;"";4;" ";a+2,29;" " (hor=0:ver=5+(*10 ) $at=36$:ver,hor;1;"T" 0,0;"HOLE:";hole ?yards=100d+(*530):0,8;yards;":YDS" yards<241par=3 .yards241yards<475par=4 yards>474par=5 0,16;"PAR:";par 1shots=0:0,22;"SHOTS:";shots dis=(yards/29) $PAR=3DIS=(YARDS/28) X$="T"  1000 X>21,0;"": lG20,0;"OUT OF BOUNDS PENALTY STROKE":JJ=65305 v200:JJ=65305:20,0;"":shots=shots+2:0,28;shots:1100L  a=:X$="L" a>.5X$="H" b=(*2) b=0a1=-(a/2) b=1a1=(a/2) :shots=shots+1:0,28;shots:1100L 600X:20,0;"TREE PENALTY DROPPED BALL":JJ=65305:A=1100d:A:JJ=65305:20,0;"" :shots=shots+2:0,28;shots:1110V Ƶ20,0;"WATER HAZZARD PENALTY STROKE":JJ=65305:A=1150:A:JJ=65305:20,0;"":690 a=:a<.5X$="S" a.5X$="D" b=(*2):670 *-ma<2s1=shots:c=1:f1=0 4!ma=2s2=shots:c=2 >21,0;"ON THE GREEN IN ";shots:shots=0:0,28;shots;"":.5,28:A=1100d:A:.5,0 R5h1=29ƫ(v1,h1+1)=96`f(c)=6 S=h1=29ƫ(v1+1,h1+1)=96`f(c)=7 T=h1=29ƫ(v1-1,h1+1)=96`f(c)=5 U5h1=30ƫ(v1-1,h1)=96`f(c)=4 V5h1=30ƫ(v1+1,h1)=96`f(c)=0 W5h1=31ƫ(v1,h1-1)=96`f(c)=2 X=h1=31ƫ(v1+1,h1-1)=96`f(c)=1 Y=h1=31ƫ(v1-1,h1-1)=96`f(c)=3 \ma=1ma=2:v1,h1;;1;1;"":ver,hor;"T":X$="T":20,0;"":20,16;">";1;b$(2):1030 p 2000 play=1ma=0 play=2ma=1 :play=220,16;">";1;b$(ma)  a1=0 v1=ver:h1=hor V*X$="T"20,0;"TEE SHOT" X-X$="L"20,0;"LIGHT ROUGH" Z,X$="H"20,0;"DEEP ROUGH" \)X$="F"20,0;"FAIRWAY" ^0X$="S"20,0;"SHALLOW BUNKER" `-X$="D"20,0;"DEEP BUNKER"  7000X  p1=(p1/DIS) ,ang+a10ang+a112 ang=ang+a1 ang=ang*(/6) h2=h1+p1*ang v2=v1-p1*ang v2=v2:h2=h2 :v2<1v2>19h2<0h2>31620l !at=36$v1,h1;" " at=32 v1,h1;""  at=4v1,h1;"" !at=33!v1,h1;"" !AT=38&V1,H1;"" !AT=546V1,H1;" "  !AT=524V1,H1;"" (&at=100dv1,h1;"" <v1=v2:h1=h2:at=(v1,h1) =/AT=32 AT=36$v1,h1;"" >-AT=4v1,h1;1;" " ?#AT=33!v1,h1;"" A;AT=546AT=38&AT=524v1,h1;"" J1,34" Kpow=250:a1=0 Pat=32 640 ZOat=36$SHOTS=SHOTS+1:X$="F":0,28;shots:1110V dat=4680 nat=33!700 0at=546AT=38&AT=524720 Fat=100dV1,H1;"":shots=shots+1:800  <.2~L1510 DA=:A.3V1=V1-1:V1,H1;"":1508 ?A.6V1=V1+1:V1,H1;"":1508 'H1=H1+1:V1,H1;"" .AT=100d:SHOTS=SHOTS+1:800  shots=shots+1 MA=0S1=SHOTS:V1,H1;"":21,0;"HOLE IN ";S1: .5,27:A=1200:A:.5,0:3000 }ma=1s1=shots:g1=1:shots=0:0,28;shots;"":21,0;" HOLE IN ";s1:V1,H1;"":.5,27:A=1500:A:.6,0:V1,H1;"":MA=2:20,16;">";1;B$(2):VER,HOR;"T":X$="T":20,0;"":1030 s2=shots:21,0;"HOLE IN ";s2:V1,H1;"":.5,27:A=1200:.5,0  3000 @65275,4:A=65274:4:4:2  7  2400` #ma=2g1=1ma=3 #ma=3g2=13000 ma<3mb=1  ma=3mb=2 <f(mb)=0v1=(*11 ):h1=10 +(*12 )  ;f(mb)=1v1=(*7):h1=22+(*10 ) *2f(mb)=7v1=(*7):h1=(*10 ) 4;f(mb)=5v1=14+(*7):h1=(*10 ) >Df(mb)=3v1=14+(*7):h1=22+(*10 ) HDf(mb)=4v1=12 +(*9 ):h1=10 +(*12 ) RCf(mb)=2v1=7+(*7):h1=17+(*15) \:f(mb)=6v1=7+(*7):h1=(*16) fv1,h1;1;"" pIma=0ma=221,22;0;6;"SHOTS:";s1 z@ma=221,0;0;6;">";b$(mb) Vma=321,0;0;6;">";b$(mb);22;"SHOTS:";s2 C20,0;"(KEY S TO ENTER) STRENGTH:":A=0 R20,26;" ":20,26;0;7;(A/10 ) (A$=:A$"S"A$"K"A$"J"2192 ).008zn,20:A$"K"2196 )A=320@B=65305:2192 A=A+5:2191 A$"J"2199 'A=0B=65305:2192 A=A-5:2191 DIR=A/10 .5,27 ="S"2200 :20,0;" " @20,0;"(KEY S TO ENTER) DIRECTION:":A=1 Q20,27;" ":20,27;7;0;A/10 /A$=:A$"K"A$"J"A$"S"A$"C"2205 ).008zn,20:A$"K"2209 %A=A+1:A=121yA=1  2204 A$"J"2212 %A=A-1:A=0A=120x  2204 J20,0;" ":ANG=A/10 A$="C"2190  v1,h1;" " .8L,29 ang=ang*(/6) a=0dir h2=(h1+a*ang) v2=(v1-a*ang) v2<0v2=0 v2>20v2=20 h2>31h2=31 h2<0h2=0 'v2,h2;4;7;1;""  2400` v2,h2;4;0;" " a v1=v2:h1=h2 'v1,h1;4;1;7;""  2400` 2mb=1s1=s1+1:21,28;s1 2mb=2s2=s2+1:21,28;s2 %v111 h1162190 )1,0:A=1200:A $ma=2ma=3:2000  3000 `4:7:11 ,16;"O":132,84T:0,32 :8,-4:-8,-4:0:0:7: B65275,7:A=65274:7:7:2 CPAR=CPAR+PAR L0,0;"SCORE CARD"'"HOLE:";hole;" LENGTH:";YARDS;"yds PAR:";par vma=0'"SCORE:";s1;:a=s1:3500 :S3=S3+S1:PAR=CPAR:A=S3:"TOTAL AFTER ";HOLE;" HOLE/S ";S3:3500 MA=0HS>HOLE3600 MA=0HOLE=HS3650B 'B$(1) x'"SCORE:";s1;:a=s1:3500 :S3=S3+S1:B=PAR:PAR=CPAR:A=S3:"TOTAL AFTER ";HOLE;" HOLE/S ";S3:3500 :PAR=B 'B$(2) j'"SCORE:";s2;:a=s2:3500 :S4=S4+S2:PAR=CPAR:A=S4:"TOTAL AFTER ";HOLE;" HOLE/S ";S4:3500 &S1S23200 0 A$=B$(1):C$=B$(2) : B$(1)=C$:B$(2)=A$ DA=S3:B=S4:S3=B:S4=A HS>HOLE3600 HS=HOLE3650B  a=par" PAR" a>par" ";a-par;" OVER PAR" a"W"7030v {A$=A$+:7015g uA$(1)"1"A$(1)"3"A$(2)="W"A$(1)"2"A$(1)"9"A$(2)="I"A$="SW"7050 JJ=65305:7010b V.2~L,29:A$="1W"20,0;"No.1 WOOD (RANGE 230 - 290 yds) " CA$="2W"20,0;"No.2 WOOD (RANGE 220 - 270 yds) " CA$="3W"20,0;"No.3 WOOD (RANGE 210 - 250 yds) " CA$="2I"20,0;"No.2 IRON (RANGE 170 - 210 yds) " CA$="3I"20,0;"No.3 IRON (RANGE 150 - 195 yds) " CA$="4I"20,0;"No.4 IRON (RANGE 145 - 180 yds) " CA$="5I"20,0;"No.5 IRON (RANGE 135 - 170 yds) " CA$="6I"20,0;"No.6 IRON (RANGE 120 - 160 yds) " CA$="7I"20,0;"No.7 IRON (RANGE 100 - 145 yds) " CA$="8I"20,0;"No.8 IRON (RANGE 85 - 125 yds) " CA$="9I"20,0;"No.9 IRON (RANGE 65 - 110 yds) " CA$="SW"20,0;"WEDGE (RANGE 10 - 65 yds) " 921,0;"(KEY S TO ENTER) STRENGTH:"  A=1 21,27;1;A .A=121,28;" MIN" :A>1A<10 A=A21,28;".0 " .A=10 21,29;"MAX" %"K"Ʀ"J"Ʀ"S"Ʀ"C"7145 (.008zn,20:="S"7175 ,="K"A<10 A=A+.5:7120 +="J"A>1A=A-.5:7120 m="C"20,0;"":7010b =""7140 JJ=65305:7140 120,10 ;" "  +20,10 ;6;"STRENGTH:";A %>"".2~L,28:7182 >21,0;"(KEY S TO ENTER) DIRECTION: "  B=120x B21,27;1;" ";21,27;B/10  %"K"Ʀ"J"Ʀ"S"Ʀ"C"7200  $D$= %).008zn,20:D$"K"72204 * B=B+1 +B>120xB=1 / 7195 4D$"J"7235C 9%B=B-1:B<1B=120x > 7195 CD$="S"7250R HnD$="C"20,0;"":7010b M 7200  R%>"".2~L,27:7250R W&21,21;4;"DIR:";B XANG=(B/10 ) \:21,0;" KEY S TO SHOOT OR C TO CHANGE " a"S"Ʀ"C"7265a fm="C"20,0;"":7010b p-A$="1W"B=230:C=6:7300 q-A$="2W"B=220:C=5:7300 r-A$="3W"B=210:C=4:7300 s-A$="2I"B=170:C=4:7300 t/A$="3I"B=150:C=4.5:7300 u/A$="4I"B=145:C=3.5`:7300 v/A$="5I"B=135:C=3.5`:7300 w-A$="6I"B=120x:C=4:7300 x/A$="7I"B=100d:C=4.5:7300 y,A$="8I"B=85U:C=4:7300 z.A$="9I"B=65A:C=4.5:7300 {.A$="SW"B=10 :C=5.50:7300 P1=B+(C*A)-C \20,0;"" JX$="S"X$="D"X$="H"X$="L"A$="3I"A$="1W"A$="2W"A$="2I"7350 ,X$="D"X$="H"A$="6I"A$="7I"7350 %X$="D"A$="9I"A$="8I"7350 ;X$="S"X$="H"X$="D"A$="5I"A$="4I"A$="3W"7350  7495G +20,11 ;"BAD-SHOT" 221,5;"WRONG CLUB SELECTED!" SHOTS=SHOTS+1 "0,22;"SHOTS:";SHOTS 1,-10 :A=1330J:A:20,0;"":7000X G)20,15;1;P1;":YDS"; JA1>0" SLICED" KA1<0" HOOKED" L ? @P.5,0:20,27;" ":20,26;"." Era=253-1:20,a+1;" ";20,a;1;".":.05|L,27:a G20,27;" " JHA=317:A,0;" ":A:  8100:A$"C"8090  8000@ ""8100 "A=1502:>""A$=: "A:.2~L,40(:8102 D2:0,0;"CLUB RANGE WHEN USED " "1 WOOD 230290 T F" "2 WOOD 220270 T F" ("3 WOOD 210250 T F L" ""2 IRON 170210 T F" ""3 IRON 150195 T F" ,"4 IRON 145180 T F L" ,"5 IRON 135170 T F L" 2"6 IRON 120160 T F L S" 2"7 IRON 100145 T F L S" <"8 IRON 085125 T F L H S" <"9 IRON 065110 T F L H S" B"WEDGE 010065 T F L H S D" '"INDEX" {"T TEE","F FAIRWAY","L LIGHT ROUGH","H HEAVEY ROUGH","S SHALLOW SAND","D DEEP SAND" 121,0;"KEY C TO CONTINUE" "C"8142  524 !3 !4T2:a=1821:a,0;" ":a !520,3;"o" !6\27,10 :7:0,16:4,-2:-4,-2:0 !7519,28;"";20,27;" " !9 #("GOLF"90102# #2"+"3 #< 9020<# '7"GAME"3:"bytes"65274,94^:"":"" '23760\ a