ZXTape! 0Created with Ramsoft MakeTZXGOLF YY [&Spectrum "GOLF"  5000 B4:4::7:I=1176:"";:I ڟI=13+*3:K=4+*17:L=020:K=K-2+*4:L,K*(K31);""(4+*8):L:I dI=1292:J=5+*5:L=J11 +*4:L,I;" ":L:I I=5+10 *:J=10 +10 *:L=II+2+*2:J=J-2+*4:L,J;""(6+*3):L I=12+*2:J=5+*10 :K=21+*6:L=JJ+1+*2:K=K-1+*2:L,K;" "(3+*2):L:I ^J=(4+*14):I=J-2J+2:I,25+*2;" ":I *J,27+*3;" " "BX=5+*8:BY=0 J=:PAR=3+(J>.5)+(J.8L):YRD=(170+(*100d))*(PAR=3)+(275+(*175))*(PAR=4)+(450+(*125}))*(PAR=5):STEP=28/YRD y1,1;"Hole ";H;10 ;2,1;"Par ";PAR;10 ;3,1;"Yards ";YRD  Q6:6:0:0:0:0:::23658j\,8: :I=65A69E:J=07:X:I+J,X:J:I RB$=22+21+0:B$=B$+" "+B$ E'''''''''" Do you need instructions?"''10 ;"""Y"" OR ""N""" ="Y"9000(#:5030 "N"5020 :'''''''"What length of course would you";10 ;"like to play?"''7;"""S"" Short 9 hole."''7;"""L"" Long 18 hole." 6CL=9 *(="S")+18*(="L"):CL5035 :'''''"WELCOME TO THE ZX INTERNATIONAL"''5;CL;" HOLE GOLF COURSE."'''7;"How many players?";''10 ;"""1""""2""" 5PL=1*(="1")+2*(="2"):PL5045 P(PL,6):V=/6 H=1CL:2000 _I=1PL:P(I,1)=BX:P(I,2)=BY:P(I,3)=1:P(I,6)=0:I .HO=0:S=199c:P=1PL #P(P,3)=97a5215_ (7000X:ST=ST*STEP*2:P$=" " >P(P,3)=32 ST=ST/(2+*2):P$="" ݀P(P,3)=4P$="":>.6B$;"YOUR BALL REBOUNDS FROM A TREE.":D=*12 :ST=ST/4:150 pP(P,3)=480P$=" ":>.6B$;"MISS HIT! You remain in bunker.":ST=0:150 'P(P,3)=36$P$=" " ,P(P,3)=100dP$=" " "P(P,3)=1P$="T" P(P,1),P(P,2);P$ JP(P,1)=P(P,1)-ST*(D*V):P(P,2)=P(P,2)+ST*(D*V) cP(P,1)0P(P,1)20P(P,2)0P(P,2)315150 XB$;"OUT OF BOUNDS... PENALTY STROKE":150:P(P,6)=P(P,6)+1  ,P(P,1)<0P(P,1)=0 .P(P,1)>20P(P,1)=20 ,P(P,2)<0P(P,2)=0 .P(P,2)>31P(P,2)=31 +P(P,3)=(P(P,1),P(P,2)) #DP(P,3)=39'P(P,3)=P(1+(P=1),3) (#P(P,3)=41)7700 -#P(P,3)=97a5205U 2B$; 7)P(P,3)=36$"ON THE FAIRWAY" <'P(P,3)=32 "IN THE ROUGH" A)P(P,3)=4"IN THE TREES..." F'P(P,3)=480"IN A BUNKER." K)P(P,3)=100d"ON THE GREEN." PkP(P,1),P(P,2);"":150:P(P,1),P(P,2);"":5215_ UXP(P,5)=S+P(P,6)-PAR:P(P,4)=P(P,4)+P(P,5):HO=HO+1 ZB$;"Player ";P;" Holed out in ";S+P(P,6):S+P(P,6)=1I=130:.08}# =,10 +*20:I:B$;"YOU BUY THE DRINKS THE 19th." _200:P dHO=PL5230n iS: R&R SOFTWARE nD4:5::"SCORE  ZX PRO-AM GOLF  CARD" s2'9 +1*(CL=9 );CL;" HOLE COURSE" x.'"Hole - ";H;" Par - ";PAR;" Yards - ";YRD }S'"PLAYER";10 ;"HOLE";20;"COURSE":"" "I=1PL:'" ";I;7; $P(I,5)" On";:5275 P(I,5); !P(I,5)<0" Under";  P(I,5)>0" Over"; " Par";19; #P(I,4)" On";:5300 P(I,4); !P(I,4)<0" Under";  P(I,4)>0" Over";  " Par":I H=CL5400 )B$;" PRESS ENTER TO START NEXT HOLE " 13 5315 H: R&R SOFTWARE W16,2;"Would you like another game?";18,11 ;"""Y""""N""" ="Y"5000 "5="N"20,7;"Thanks for playing": ' 5405 X-B$;" Player ";P;" Press ENTER to play" ],P(P,1),P(P,2);"" b13 7010b g*P(P,1),P(P,2);"" loB$;"Direction? 0-12":D:D<0D>12 B$;"INVALID Direction MUST be 0-12":150:7020l q%D=(D*100d+.5)/100d v<B$;"Direction= ";D;" Strength? 0-100":ST:ST7020l {YST<0ST>100dB$;"INVALID Strength MUST be 0-100":150:7030v YST=(ST*100d+.5)/100d:B$;"Direction= ";D;" Strength= ";ST:100d: *B$;"LANDED IN WATER. Penalty Stroke" $I=(P(P,2))0-1 (P(P,1),I)=41)I #JP(P,2)=I:P(P,6)=P(P,6)+1:150:5150 @B0,0,4,0,0,64@,0,0 EQ255,247,227,213,247,227,213,247 JH0,96`,144,9 ,102f,144,9 ,6 OG12 ,60<,12 ,4,4,30,37%,30 TF0,28,62>,62>,62>,28,0,0 #(h7:7::T$=" ZX SPECTRUM PRO-AM GOLF ":T$''" A GAME FOR 12 PLAYERS" #)x'" You may play a 9 hole course ORa full 18 hole course. Each holeis generated at RANDOM so no twogames are the same." #*A'" When its your turn to play yourball will be set flashing. When ready for move,Press the ENTER key. You must now enter a value (0-12, As on a Clock) to select your DIRECTION. Now give a valuefor STRENGTH of shot (1-100), anentry of ZERO will return you tothe direction input. Decimal inputs ie. 3.25 are allowed." #++B$;"Hit ENTER for more instructions." #,13 9004,# #2:T$''"The GREEN =   FAIRWAY =   ROUGH =  BUNKER =  ","WATER HAZZARD =  TREES = "," The HOLE =  The BALL = " #3'"When playing from the ROUGH yourball will not move as far as it will on the FAIRWAY. If you landin a bunker you may not get out first shot. When in the TREES the ball MAY bounce off in any direction. Land in the WATER orgo OUT OF BOUNDS and you incur ONE penalty stroke." #4i'" I hope you enjoy your game "''"Press ENTER to start round ""P"" to see instructions again." #6="P"9000(# #713 90146# #< '2.2~L,10 :"GOLF"5000:9990' ?"   R & R SOFTWARE 1982. GOLF YY;[&Spectrum "GOLF"  5000 B4:4::7:I=1176:"";:I ڟI=13+*3:K=4+*17:L=020:K=K-2+*4:L,K*(K31);""(4+*8):L:I dI=1292:J=5+*5:L=J11 +*4:L,I;" ":L:I I=5+10 *:J=10 +10 *:L=II+2+*2:J=J-2+*4:L,J;""(6+*3):L I=12+*2:J=5+*10 :K=21+*6:L=JJ+1+*2:K=K-1+*2:L,K;" "(3+*2):L:I ^J=(4+*14):I=J-2J+2:I,25+*2;" ":I *J,27+*3;" " "BX=5+*8:BY=0 J=:PAR=3+(J>.5)+(J.8L):YRD=(170+(*100d))*(PAR=3)+(275+(*175))*(PAR=4)+(450+(*125}))*(PAR=5):STEP=28/YRD y1,1;"Hole ";H;10 ;2,1;"Par ";PAR;10 ;3,1;"Yards ";YRD  Q6:6:0:0:0:0:::23658j\,8: :I=65A69E:J=07:X:I+J,X:J:I RB$=22+21+0:B$=B$+" "+B$ E'''''''''" Do you need instructions?"''10 ;"""Y"" OR ""N""" ="Y"9000(#:5030 "N"5020 :'''''''"What length of course would you";10 ;"like to play?"''7;"""S"" Short 9 hole."''7;"""L"" Long 18 hole." 6CL=9 *(="S")+18*(="L"):CL5035 :'''''"WELCOME TO THE ZX INTERNATIONAL"''5;CL;" HOLE GOLF COURSE."'''7;"How many players?";''10 ;"""1""""2""" 5PL=1*(="1")+2*(="2"):PL5045 P(PL,6):V=/6 H=1CL:2000 _I=1PL:P(I,1)=BX:P(I,2)=BY:P(I,3)=1:P(I,6)=0:I .HO=0:S=199c:P=1PL #P(P,3)=97a5215_ (7000X:ST=ST*STEP*2:P$=" " >P(P,3)=32 ST=ST/(2+*2):P$="" ݀P(P,3)=4P$="":>.6B$;"YOUR BALL REBOUNDS FROM A TREE.":D=*12 :ST=ST/4:150 pP(P,3)=480P$=" ":>.6B$;"MISS HIT! You remain in bunker.":ST=0:150 'P(P,3)=36$P$=" " ,P(P,3)=100dP$=" " "P(P,3)=1P$="T" P(P,1),P(P,2);P$ JP(P,1)=P(P,1)-ST*(D*V):P(P,2)=P(P,2)+ST*(D*V) cP(P,1)0P(P,1)20P(P,2)0P(P,2)315150 XB$;"OUT OF BOUNDS... PENALTY STROKE":150:P(P,6)=P(P,6)+1  ,P(P,1)<0P(P,1)=0 .P(P,1)>20P(P,1)=20 ,P(P,2)<0P(P,2)=0 .P(P,2)>31P(P,2)=31 +P(P,3)=(P(P,1),P(P,2)) #DP(P,3)=39'P(P,3)=P(1+(P=1),3) (#P(P,3)=41)7700 -#P(P,3)=97a5205U 2B$; 7)P(P,3)=36$"ON THE FAIRWAY" <'P(P,3)=32 "IN THE ROUGH" A)P(P,3)=4"IN THE TREES..." F'P(P,3)=480"IN A BUNKER." K)P(P,3)=100d"ON THE GREEN." PkP(P,1),P(P,2);"":150:P(P,1),P(P,2);"":5215_ UXP(P,5)=S+P(P,6)-PAR:P(P,4)=P(P,4)+P(P,5):HO=HO+1 ZB$;"Player ";P;" Holed out in ";S+P(P,6):S+P(P,6)=1I=130:.08}# =,10 +*20:I:B$;"YOU BUY THE DRINKS THE 19th." _200:P dHO=PL5230n iS: R&R SOFTWARE nD4:5::"SCORE  ZX PRO-AM GOLF  CARD" s2'9 +1*(CL=9 );CL;" HOLE COURSE" x.'"Hole - ";H;" Par - ";PAR;" Yards - ";YRD }S'"PLAYER";10 ;"HOLE";20;"COURSE":"" "I=1PL:'" ";I;7; $P(I,5)" On";:5275 P(I,5); !P(I,5)<0" Under";  P(I,5)>0" Over"; " Par";19; #P(I,4)" On";:5300 P(I,4); !P(I,4)<0" Under";  P(I,4)>0" Over";  " Par":I H=CL5400 )B$;" PRESS ENTER TO START NEXT HOLE " 13 5315 H: R&R SOFTWARE W16,2;"Would you like another game?";18,11 ;"""Y""""N""" ="Y"5000 "5="N"20,7;"Thanks for playing": ' 5405 X-B$;" Player ";P;" Press ENTER to play" ],P(P,1),P(P,2);"" b13 7010b g*P(P,1),P(P,2);"" loB$;"Direction? 0-12":D:D<0D>12 B$;"INVALID Direction MUST be 0-12":150:7020l q%D=(D*100d+.5)/100d v<B$;"Direction= ";D;" Strength? 0-100":ST:ST7020l {YST<0ST>100dB$;"INVALID Strength MUST be 0-100":150:7030v YST=(ST*100d+.5)/100d:B$;"Direction= ";D;" Strength= ";ST:100d: *B$;"LANDED IN WATER. Penalty Stroke" $I=(P(P,2))0-1 (P(P,1),I)=41)I #JP(P,2)=I:P(P,6)=P(P,6)+1:150:5150 @B0,0,4,0,0,64@,0,0 EQ255,247,227,213,247,227,213,247 JH0,96`,144,9 ,102f,144,9 ,6 OG12 ,60<,12 ,4,4,30,37%,30 TF0,28,62>,62>,62>,28,0,0 #(h7:7::T$=" ZX SPECTRUM PRO-AM GOLF ":T$''" A GAME FOR 12 PLAYERS" #)x'" You may play a 9 hole course ORa full 18 hole course. Each holeis generated at RANDOM so no twogames are the same." #*A'" When its your turn to play yourball will be set flashing. When ready for move,Press the ENTER key. You must now enter a value (0-12, As on a Clock) to select your DIRECTION. Now give a valuefor STRENGTH of shot (1-100), anentry of ZERO will return you tothe direction input. Decimal inputs ie. 3.25 are allowed." #++B$;"Hit ENTER for more instructions." #,13 9004,# #2:T$''"The GREEN =   FAIRWAY =   ROUGH =  BUNKER =  ","WATER HAZZARD =  TREES = "," The HOLE =  The BALL = " #3'"When playing from the ROUGH yourball will not move as far as it will on the FAIRWAY. If you landin a bunker you may not get out first shot. When in the TREES the ball MAY bounce off in any direction. Land in the WATER orgo OUT OF BOUNDS and you incur ONE penalty stroke." #4i'" I hope you enjoy your game "''"Press ENTER to start round ""P"" to see instructions again." #6="P"9000(# #713 90146# #< '2.2~L,10 :"GOLF"5000:9990' ?"   R & R SOFTWARE 1982.