ZXTape! 0Created with Ramsoft MakeTZXGrandpa ??nA FAIRWAY  DEREK G. GLEN  1986  9000(# 8000@ 84:0:4:0:0:0: P 5000 Zy,x;1;3;"O"; d&n,m;6;"";n+1,m;"" n a$(4) xa$ +y1=y1+(a$(1)="s")-(a$(1)="n") v=v+(y10) x1=(a$(v)="e")-(a$(v)="w") v=v+(x10) d=a$(v)+(*3)-1 d>60<d=60< v=1 f=1d+(d=0) y,x;" " y>21y<1y1=-y1 x<1x>30x1=-x1 !y=y+y1+(y=0)-(y=21) "!x=x+x1+(x=0)-(x=32 ) ,y,x; 1y,x;1;3;"O" 6(y,x+1)="*"600X @!(y,x+1)="+"f=f+3 Jy,x;1;3;"O" Tf ^sc=sc+1 0(x=mx=m+1)(y=ny=n+1)440  x1=0  y1=0  100d   sc<5"CONGRATULATIONS"; sc>4"UGH,"; " HOLE IN ";sc /20,4;"Press any key to continue"  0 "h=h+1:sco=sco+sc:s(h)=sc 6:1:6: "HOLE PAR SCORE" :f=19 :f,1;"0";f;" 4 ";s(f):f 8f=10 18:f,1;f;" 4 ";s(f):f !18,18;"TOTAL=";sco t1,18;1;"GRANDPA JOE";2,19;1;"PLAYS THE";3,21;1;"OPEN!" 4z=sco-(h*4):z<018,28;z &z=018,28;"EVEN" 8z>018,28;"+";18,29;z 820,4;"Press any key to continue":0 h>179500%  20 Xx1=(*3)-1 by1=(*3)-1 l y,x;"*" v f=116 yc=*16+1 xc=*20+2 Eyc,xc;"++++";yc+1,xc-1;"++++++";yc+2,xc;"++++" f f=120 yc=*18 xc=*28 >yc,xc;"**";yc+1,xc;"***";yc+2,xc+1;"**" f m=(*20)+10 n=(*15) n,m;"";n+1,m;""  sc=0  x=1  y=21 ( x1=0 2 y1=0 < @ h=0 J sco=0 T v=1 ^ l=0 c s(18) h #(6:1:6: #220,2;" " #<21,2;" " #F22,2;" " #P54,0;" " #Z35,0;" " #d56,0;" " #n37,0;" " #x58,0;" " #610 ,0;" " #611 ,0;" " #612 ,0;" " #613 ,0;" " #614,0;" " #615,0;" " #616,0;" " #617,0;" " #618,0;" " #619,0;" " #821,4;"Press any key to continue":0 # $/0,3;"GRANDPA JOE PLAYS THE OPEN" $81;0,3;"__________________________" $2,1;"Good old Grandpa Joe, the worldfamous golfer has entered the 1986 British Open, and has managed to qualify for the last round." $"8,1;"You are Grandpa Joe and you must try your best to get a par-or-better score which will win you the championship." $'13 ,1;"But it's not quite that easy. This years competition is being held at the GLENLACKOFEAGLES GOLF COURSE in Scotland, and youwill be faced with a tremendous obstacle." $,:20,4;"Press any key to continue":0: $6/0,3;"GRANDPA JOE PLAYS THE OPEN" $@81;0,3;"__________________________" $J2,1;"This new invention is ASTROTURF which happens to be extremely springy and will bounce your ball all over the place." $T10 ,1;"The ASTROTURF looks like this ** *** **" $^15,1;"Normal rough slows your ball down a lot and looks like this ++++ ++++++ ++++" $h:21,4;"Press any key to continue":0: $rf0,3;"GRANDPA JOE PLAYS THE OPEN";1;0,3;"__________________________" $|]2,1;"You move the ball by typing n,s,w,e,ne,nw,se,sw,and then a number." $6,1;"This number stands for the number of metres you want the ball to travel in that direction( remember that ASTROTURF can change the direction quite a lot )." $713 ,1;"A typical entry might be ""n21""." $514,0;"This would stand for NORTH 21m." $?16,1;"Each hole measures about 20 by 30 metres." $*19,10 ;1;"GOOD LUCK!" $821,5;"Press any key to play":0:: % %&z<19800H& %0o2,1;"What a pity !!! You failed to win the 1986 British Open by ";z;4,0;"strokes." %:C10 ,1;"Never mind! Do you want anotherattempt? (y/n)" %D="y"Ŧ="Y" %N="n"Ŧ="N" %X 9540D% &Hz=09900& &R2,1;"Well done !!! Grandpa Joe has become the oldest person ever to win the British Open at the grand old age of 109 !!!" &\07,1;"You won it by ";-z;" shots." &f310 ,1;"Do you want another go? (y/n)" &p="y"Ŧ="Y" &z="n"Ŧ="N" & 9840p& &&2,1;1;"PLAY-OFF" &f= & 150 &Lf<.55,1;"GRANDPA JOE WON THE PLAY-OFF!"::9810R& &>5,1;"Oh dear! Grandpa Joe lost the play-off." &310 ,1;"Do you want another go? (y/n)" &="y"Ŧ="Y" &="n"Ŧ="N" & 9960&