ZXTape! 0Created with Ramsoft MakeTZXRBGC2 y+  @Z=144164:Y=07:A:Z+Y,A:Y:Z I101e,0,163,0,197,0,156,0 Q255,189,255,255,239,255,189,255 Q255,254,252,248,240,224,192,128 Q128,192,224,240,248,252,254,255 C0,0,0,24,24,0,0,0 I0,255,0,255,0,255,0,255 I28,12 ,12 ,12 ,20,36$,68D,68D O254,248,224,192,192,128,128,0 D0,1,1,3,3,7,31,127 H1,3,7,15,31,63?,127,255 H255,127,63?,31,15,7,3,1 D127,31,7,3,3,1,1,0 O0,128,128,192,192,224,248,254 !B1,3,2,2,4,4,12 ,8 "K0,128,128,128,64@,64@,64@,32 #F128,64@,32 ,16,8,4,3,0 $F0,2,4,8,16,32 ,64@,128 %D2,2,2,7,15,15,15,0 &M24,24,124|,124|,124|,124|,60<,60< 'J60<,44,,36$,36$,36$,36$,36$,102f (F0,0,28,62>,62>,62>,28,0 2""   avLO 2 ̚̚-&Κ%112TH OPEN GOLF  F.D.THORPE BACK 9 !23658j\,9 :3000 i0:0,0;"":4:Y=YTYB:X=XLXR:Y,X;"":X:Y SLY,LX;"Hole ";H;:LY+1,LX;"Par ";PAR;:LY+2,LX;"Yards ";YRD; A2:7:20,0;"THIS IS SHOT NUMBER ";;O; 'KY,KX;4;1;1;"" 80,0;7;2;"ON THE TEE- ";;A$;  U7:4:CY,CX;"";CY-1,CX+2;"";CY-2,CX+3;""  (7:4:CY,CX;"";CY+1,CX;"";CY+2,CX;"";CY+3,CX;"";CY+4,CX;"";CY+5,CX;"";CY+6,CX;"";CY+8,CX;"";CY+9 ,CX;"";CY+10 ,CX;"" ) 2A7:4:CY,CX;" ";CY-1,CX+6;"" 3 Ft7:4:CY,CX;"";CY+1,CX+1;"";CY+2,CX+3;"";CY+3,CX+5;"" G [wC(3)=112pC(1)=(HY-3)+(*6):C(3)=112pC(2)=(HX-5)+(*10 ) \wC(3)=116tC(1)=(NY-3)+(*6):C(3)=116tC(2)=(NX-5)+(*10 ) ]wC(3)=102fC(1)=(BY-3)+(*6):C(3)=102fC(2)=(BX-5)+(*10 ) ^HY,HX;1;4;"" _ d:0:Y=019:Y,0;4;6;"":Y:F=(F/33!)+FO:W=(W/361i)+WI eW20,0;2;7;"THIS IS SHOT NUMBER ";;O;0;"GREEN ";;H; f xA0:4:Y,X;"";Y+1,X;"";Y+2,X;"" y zQ0:4:Y,X;"";Y+1,X+1;"";Y+2,X+2;"" { |A0:4:Y,X;"";Y+1,X;"";Y+2,X;"" } ~Q0:4:Y,X+2;"";Y+1,X+1;"";Y+2,X;""  a6:4:Y+1,X;"";Y+2,X-1;"";Y+4,X-2;"" r4:6:Y,X;"";Y+2,X+4;"";Y+3,X-2;"";Y+5,X-2;""  K6:4:Y+2,X-1;"";Y+4,X-2;"" i4:6:Y,X;"";Y+1,X;"";Y+3,X-2;"";Y+5,X-2;""  J4:6:Y,X;"";Y+1,X;"";Y+2,X;""  UNY=11 :NX=5:BY=7:BX=17:WI=3:FO=5:100d Ɂ0:4:Y=13:X=08:Y,X;"":X:Y:Y=119:X=2431:Y,X;"":X:Y !Y=1:X=9 :120x "Y=1:X=21:122z #Y=14:X=21:126~ #Y=14:X=23:150 $HY=11 :HX=17:90Z 2VT=4:VB=14:VL=0:VR=22 8900" XNY=16:NX=5:BY=16:BX=20:WI=358f:FO=2:100d KY=419:X=2831:Y,X;0;4;"":X:Y !Y=1:X=0:120x "Y=1:X=26:122z !Y=1:X=2:140 #Y=17:X=26:126~ #HY=9 :HX=20:90Z 2VT=6:VB=19:VL=3:VR=25 8900" WBY=8:BX=8:NX=16:NY=16:WI=273:FO=7:100d I0:4:Y=13:X=031:Y,X;"":X:Y 9Y=410 :X=2531:Y,X;"":X:Y #Y=11 :X=28:120x !Y=4:X=0:120x #HY=16:HX=8:90Z "Y=4:X=22:122z #Y=11 :X=25:122z "Y=17:X=0:124| UY=11 :X=29:150:VT=5:VB=19:VL=3:VR=21 8900" XNY=10 :NX=18:BY=16:BX=7:WI=88X:FO=16:100d J0:4:Y=15:X=10 31:Y,X;"":X:Y 9Y=619:X=2531:Y,X;"":X:Y !Y=1:X=8:140 "Y=6:X=22:122z  "Y=17:X=0:124|  #Y=17:X=22:126~  $HY=16:HX=18:90Z  2VT=7:VB=19:VL=2:VR=23  8900" YNY=16:NX=26:BY=16:BX=15:WI=285:FO=9 :100d J0:4:Y=14:X=10 31:Y,X;"":X:Y 7Y=119:X=09 :Y,X;"":X:Y "Y=1:X=24:160 "Y=5:X=10 :120x "Y=5:X=29:122z #Y=17:X=10 :124| #HY=8:HX=16:90Z  3VT=5:VB=19:VL=10 :VR=31 ! 8900" ,XBY=4:BX=23:NY=11 :NX=23:WI=350^:FO=6:100d -JY=119:X=011 :Y,X;0;4;"":X:Y ."Y=1:X=12 :120x /"Y=1:X=26:122z 1#Y=14:X=10 :140 2"Y=4:X=29:122z 3#HY=4:HX=17:90Z 43VT=1:VB=14:VL=12 :VR=28 5 8900" @YBY=16:BX=17:NY=16:NX=26:WI=3106:FO=4:100d AJ0:4:Y=119:X=011 :Y,X;"":X:Y B8Y=16:X=12 31:Y,X;"":X:Y C"Y=7:X=12 :120x F"Y=14:X=9 :150 G#Y=17:X=12 :124| I$HY=10 :HX=17:90Z J3VT=7:VB=19:VL=12 :VR=31 K 8900" TWBY=16:BX=12 :NY=10 :NX=23:WI=3:FO=1:100d UIY=16:X=431:Y,X;0;4;"":X:Y W!Y=1:X=0:122z X!Y=1:X=2:140 Y"Y=7:X=29:122z ["Y=2:X=26:160 \"Y=17:X=5:124| ]"Y=14:X=4:150 ^#Y=17:X=29:126~ eVHY=16:HX=23:90Z:VT=7:VB=19:VL=7:VR=28 f 8900" hYNY=16:NX=17:BY=16:BX=20:WI=357e:FO=2:100d i#Y=17:X=26:126~ j#Y=17:X=10 :124| k!Y=1:X=9 :120x l"Y=1:X=26:122z m!Y=1:X=6:150 n"Y=14:X=7:140 oKY=119:X=2931:Y,X;0;4;"":X:Y pVHY=4:HX=20:90Z:VT=1:VB=19:VL=12 :VR=25 q 8900" reW>3W<357eW=W+((-3)+*6):F>3F<29F=F+((-3)+*6) s.01z# =,-20 u 501 v2(GY,GX+1)=480VE=VE*6/8 w)(GY,GX+1)=480L=L-16 x2(GY,GX+1)=40(VE=VE*7/8 y*(GY,GX+1)=40(L=L-6 z1(GY,GX+1)=6VE=VE*7/8 {'(GY,GX+1)=6L=L+4 |2(GY,GX+1)=15VE=VE*6/8 }((GY,GX+1)=15L=L+8 ~*(GY,GX+1)=23VE=VE/2 )(GY,GX+1)=23L=L+16  6101  550& .7:0:GY-1,GX+1;"" _GY,GX+1;0;6;1;"T":GY-2,GX+1;2;0;"": #=""403:="M"404 h7:0:GY-1,GX;"";GY-1,GX;"";GY-1,GX;"";GY-2,GX;"":5 CGY-2,GX;"";GY-3,GX;"";GY-3,GX;"":5 [GY-3,GX+1;"";GY-3,GX+1;"";GY-3,GX+2;"":5 GY-3,GX+2;"";GY-3,GX+1;"";GY-3,GX+1;"";GY-3,GX+1;"";GY-3,GX;"":5 0GY-3,GX;"";GY-2,GX;"":5 80:6:GY,GX+1;"L":="M"370r U7:0:GY-2,GX;"";GY-1,GX;"";GY-1,GX;"":5 80:5:GY,GX+1;"L":="M"370r o7:0:GY-1,GX;"";GY-1,GX+1;"";GY,GX+1;"":2:="M"370r /6:GY,GX+1;"R":="M"370r I7:GY-1,GX+2;"";GY-1,GX+2;"":5 /1:GY,GX+1;"R":="M"370r 0:GY-1,GX+2;"";GY-2,GX+2;"";GY-2,GX+2;"";GY-3,GX+2;"":5 /2:GY,GX+1;"R":="M"370r n0:GY-3,GX+2;"";GY-3,GX+1;"";GY-3,GX+1;"";GY-3,GX;""  370r ?20,0;0;"" *7:1:20,30;"P" !0:20,11 ;"" #=""433:="P"434 l100d+(*100d):6:20,0;"";20,0;"":10 :="P"450  10 K20,1;"";20,2;"":="P"450:10 M20,3;"";20,5;"":="P"450:10 40:6:20,30;"S":10 G6:0:20,7;"":="P"450:10 +7:20,30;"N":10 `6:20,9 ;"":20,12 ;7;"":="P"450:10 !6:20,30;"F" A7:20,12 ;"";20,14;"":10 :20,16;"";20,16;"":10 :20,18;"";20,18;"";20,20;"":10 :20,20;"";20,22;"";20,22;"";20,24;"";20,24;"" .(20,30)=15VE=VE/4 6(20,30)=480VE=VE*7/8 .(20,30)=6VE=VE+502 .01z# =,-25  8962# 5F=(1+*32 ):W=(1+*360h): `2:WY,WX;"":1:WY+1,WX;"";WY+2,WX;"";WY+3,WX;"" F7:1: (W)>337Qź(W)<23WY+1,WX;"" 9(W)>22ƺ(W)<68DWY+1,WX+2;"" :(W)>67Cƺ(W)<113qWY+1,WX+2;"" :(W)>67Cƺ(W)<113qWY+2,WX+2;"" ;(W)>112pƺ(W)<158WY+2,WX+2;"" <(W)>157ƺ(W)<203WY+2,WX+1;"" 3(W)>202ƺ(W)<248WY+2,WX;"" 3(W)>247ƺ(W)<293%WY+2,WX;"" 3(W)>247ƺ(W)<293%WY+1,WX;"" 3(W)>292$ƺ(W)<338RWY+1,WX;""  W=0WY+1,WX;"" JWY+3,WX;1;7;;(F);:WY,WX;2;7;;(W);  &KGY-3,GX;0;"";GY-2,GX;"";GY-1,GX;"": Z0:GY-3,GX+3;"";GY-2,GX+3;"";GY-1,GX+3;"";GY-4,GX+3;"": a*7:SY,SX;"" b0+(*7):0:SY-3,SX+4;"";SY-2,SX+8;"";SY-1,SX+13 ;"" c7:SY-2,SX+3;"";SY-2,SX+5;"";SY-3,SX+10 ;"";SY-1,SX+11 ;"";SY-2,SX+12 ;"";SY-1,SX+14;"";SY-3,SX+19;"";SY-1,SX+20;"";SY-2,SX+20;"" dy4:SY-1,SX+3;"";SY-1,SX+8;"";SY-2,SX+15;"";SY-2,SX+21;"" e5:SY-3,SX+3;"";SY-1,SX+4;"";SY-2,SX+7;"";SY-1,SX+9 ;"";SY-3,SX+13 ;"";SY-1,SX+15;"";SY-3,SX+15;"";SY-3,SX+21;"" f6:SY-2,SX+2;"";SY-1,SX+5;"";SY-3,SX+6;"";SY-1,SX+7;"";SY-2,SX+9 ;"";SY-3,SX+11 ;"";SY-1,SX+16;"";SY-2,SX+19;"";SY-1,SX+21;"" g!2:SY-1,SX+1;"";SY-2,SX+4;"";SY-1,SX+6;"";SY-3,SX+8;"";SY-1,SX+12 ;"";SY-2,SX+13 ;"";SY-3,SX+16;"";SY-2,SX+17;"";SY-1,SX+18;"";SY-3,SX+18;"": l4:0:GY-2,GX+4;"";GY-2,GX+18;"";GY-2,GX+24;"";GY-1,GX+3;"";GY-1,GX+18;"" mJ0:4:GY-2,GX+9 ;"";GY-2,GX+28;"" nB7:GY-2,GX+12 ;"";GY-2,GX+29;"" o06:0:GY-1,GX+16;"" p/0:4:GY-2,GX+22;"" qJ4:0:GY-3,GX+7;"";GY-3,GX+12 ;"" r^6:GY-3,GX+9 ;"";GY-2,GX+17;"";GY-3,GX+20;"" sy5:GY-3,GX+8;"";GY-3,GX+11 ;"";GY-3,GX+22;"";GY-3,GX+29;"" t&7:GY-3,GX+28;"" uC2:GY-3,GX+6;"";GY-2,GX+16;"": RH=10 855W S 870f WO>1859[ X]C(1)<8C(2)>21C(2)=20:B$;1;"YOU HIT THE BANK" YMH=10 O<2C(2)=20C(3)=(C(1),20) [ fLH=11 C(2)>22602Z:609a:620l:501 pAH=14C(2)<20602Z:609a:620l uH=18887w v 892| wO>1890z x^C(1)>14C(2)>14C(2)=12 :B$;1;"YOU HIT THE BANK" yMH=18O<2C(2)=12 C(3)=(C(1),20) z |6H=18C(2)>21900:950 } 990 YSY=4:SX=5:609a:Y=15:7:Y,25;"":Y !0:4,25;"" YSX=3:SY=6:609a:4:6,20;"":501  x7:4:15,19;"";16,20;"";17,19;"";18,19;"" ;0:11 ,16;"";12 ,17;""   4085  H=0 Z:0:0:Y=119:Y,0;"":Y  ;GY,0;4;"": SO=1:PAR=4:YRD=384:KX=8:KY=9 :DIV=27.1X/YRD 0H=11 2020:H=11 3019 0H=12 2040:H=12 3019 0H=13 2060 :H=13 3019 0H=142080 :H=143019 0H=1521004:H=153019 0H=162120H:H=163019 0H=172140\:H=173019 0H=182160p:H=183019 д WY=7:WX=1:LY=2:LX=1:H=10 :GX=0:GY=19:YT=1:YB=13 :XL=0:XR=31:1800:20:390:620l iCY=7:CX=12 :502:CY=1:CX=30:40(:CY=5:CX=22:30 @4:3:9 ,7;"";10 ,7;"" d1:4:6:3,27;"":6:4:2,28;"":0 2:4,27;"";5,27;"";6,26;"";7,25;"";8,22;"";9 ,16;"";9 ,21;"";10 ,16;"";11 ,17;"" ݎ0:3,22;"";4,21;"";5,22;"";6,21;"";7,22;"";8,21;"" ;1:6:0:3,28;"":0 g4:4,28;"";9 ,19;"";10 ,25;"";11 ,22;"" 0:9 ,15;"";6,25;"";7,24;"";9 ,27;"";10 ,26;"";5,28;"";8,22;"";10 ,16;"";11 ,17;"";5,26;""  3019 fWY=12 :WX=1:PAR=4:YRD=411:KX=3:KY=7:SY=17:SX=5 wYT=1:YB=11 :XL=0:XR=31:GX=0:GY=19:1800:20:620l:390 GCY=3:CX=17:502:CY=10 :CX=26:30 ?4:3:7,2;"";8,2;"" d1:4:6:6,26;"":6:4:6,27;"":0 2:5,23;"";6,21;"";7,13 ;"";7,22;"";8,13 ;"";5,26;"" 05:1:11 ,17;"" ;1:6:0:5,27;"":0 4:5,26;"";6,20;"";7,21;"";9 ,15;"";9 ,20;"";9 ,18;"" m3:0:2,26;"";4,29;"";5,29;"";6,29;"" 0:4:7,12 ;"";8,13 ;"";5,22;"";8,23;"";7,25;""  WY=11 :WX=24:PAR=3:YRD=184:KX=11 :KY=13 :GX=0:GY=19:YT=1:YB=14:XL=0:XR=13 :LY=2:LX=18:1800:20:620l:390 8CY=2:CX=1:40(:CX=3:70F C4:3:12 ,11 ;"";13 ,11 ;"" b1:4:6:5,4;"":6:4:4,3;"":0 _2:6,4;"";6,6;"";7,3;"";7,5;"" :1:6:0:5,3;"":0 b4:5,5;"";6,3;"";6,5;"";7,4;""    WY=16:WX=7:PAR=5:YRD=505:KX=3:KY=1:GX=1:GY=19:YT=1:YB=19:XL=0:XR=31:LY=12 :LX=1:20:390  CY=4:CX=19:70F:CY=8:CX=26:70F:CX=7:70F:CY=12 :CX=15:70F:CY=15:CX=21:70F ?4:3:1,2;"";2,2;"" f1:4:6:15,30;"":6:4:16,29;"":0 92:15,29;"";6,12 ;"";7,11 ;"";8,13 ;"";9 ,16;"";9 ,18;"";10 ,18;"";11 ,20;"";12 ,22;"";13 ,24;"";14,26;"";15,28;"" 5:1:4,17;"";5,17;"";6,18;"";7,19;"";8,20;"";9 ,23;"";10 ,26;"";11 ,26;"" <1:6:0:16,30;"":0 4:9 ,15;"";9 ,17;"";9 ,21;"";10 ,22;"";12 ,26;"";13 ,23;"";14,25;"";14,29;"";15,27;"";16,28;"" ,3:0:18,28;"" m4:0:6,11 ;"";8,12 ;"";11 ,19;"";12 ,21;""   WY=8:WX=1:LY=2:LX=1:PAR=3:YRD=198:KX=29:KY=9 :YT=1:YB=11 :XL=13 :XR=31:GY=19:GX=0:SX=10 :SY=17:1800:20:620l:390 !:CY=2:CX=17:70F:CY=11 :502 *A4:3:8,28;"";9 ,28;"" +[1:6:7,17;"":4:6:7,18;"":0 ,W4:2:7,19;"";8,19;"";8,21;"" .;1:0:6:6,17;"":0 /{4:5,18;"";6,19;"";8,17;"";8,20;"";9 ,18;"" 0U3:0:6,15;"";7,15;"";8,15;"" 3 4WY=15:WX=5:PAR=5:YRD=542:KX=30:KY=18:YT=1:YB=19:XL=0:XR=31:GX=1:GY=18:LY=2:LX=22:20:390 5CY=2:CX=6:70F:CY=6:CX=13 :70F:CY=7:CX=2:70F:CY=10 :CX=11 :70F >C4:3:18,30;"";19,30;"" ?Y1:6:2,2;"":4:6:3,2;"":0 @54:2:4,2;"";5,3;"";6,4;"";7,5;"";8,6;"";9 ,11 ;"";10 ,13 ;"";11 ,17;"";12 ,18;"";13 ,19;"";14,20;"" B:1:6:0:2,1;"":0 C4:3,1;"";3,3;"";5,7;"";6,7;"";6,9 ;"";7,7;"";8,9 ;"";9 ,8;"";9 ,10 ;"";11 ,16;"";12 ,17;"";13 ,18;"" D0:4:4,6;"";5,2;"";6,3;"";7,4;"";7,11 ;"";10 ,20;"";11 ,22;"";14,19;"" G HWY=15:WX=28:PAR=4:YRD=415:KX=21:KY=18:YT=1:YB=19:XL=0:XR=31:GX=28:GY=12 :20:390 I[CY=1:CX=0:40(:CX=4:70F:CY=5:CX=10 :70F RC4:3:18,21;"";19,21;"" SY1:6:3,2;"":4:6:3,3;"":0 T@4:2:4,3;"";5,3;"";6,3;"";6,5;"";7,4;"";7,6;"";8,6;"";9 ,5;"";10 ,6;"";11 ,6;"";12 ,7;"";13 ,8;"";14,9 ;"" V:1:0:6:2,2;"":0 W4:2,3;"";3,1;"";3,4;"";4,2;"";6,4;"";7,5;"";8,4;"";10 ,10 ;"";11 ,11 ;"" Y0:4:5,6;"";7,3;"";7,7;"";9 ,8;"";10 ,5;"";12 ,6;"";13 ,7;"";14,8;"" ZP4:0:9 ,8;"";8,9 ;"ARNOLD PALMER PLAQUE" [ \{WY=15:WX=5:PAR=5:YRD=526:KY=1:KX=0:GX=1:GY=18:20:390 ]CY=3:CX=7:70F:CY=7:CX=14:70F:CY=10 :CX=21:70F:CX=10 :70F:CY=14:CX=16:70F aZ1:5:17,19;"";18,19;"";19,19;"" f?4:3:1,0;"";2,0;"" gf1:4:6:16,28;"":6:4:17,27;"":0 h~2:4,6;"";5,6;"";6,6;"";7,6;"";8,9 ;"";9 ,12 ;"";10 ,13 ;"";11 ,14;"";12 ,15;"";13 ,17;"";14,18;"";14,20;"";15,20;"";16,21;"" j<1:6:0:17,28;"":0 k4:12 ,22;"";14,19;"";14,27;"";15,26;"";15,28;"";17,26;"" l3:0:13 ,28;"";16,30;"";17,30;"";18,30;"";18,23;"" m@0:4:9 ,11 ;"";13 ,16;"" o pNWY=0:WX=29:PAR=4:YRD=473:KY=19:KX=0 qJLY=9 :LX=1:YT=8:YB=19:XL=0:XR=31 rDGX=0:GY=7:1800:20:620l:390 sGCY=16:CX=1:30:CY=11 :CX=16:70F yA4:3:18,0;"";19,0;"" {f1:4:6:17,27;"":6:4:17,28;"":0 |2:12 ,11 ;"";13 ,7;"";14,6;"";14,12 ;"";15,11 ;"";16,10 ;"";16,15;"";16,23;"";17,25;"" }0:4:12 ,11 ;"";13 ,6;"";13 ,17;"";14,18;"";16,12 ;"";17,21;"" ~<1:6:0:16,28;"":0 6:4:11 ,13 ;"";14,11 ;"";14,20;"";14,27;"";15,26;"";16,14;"";16,22;"";17,26;"" {3:0:13 ,23;"";13 ,30;"";14,30;"";18,22;"" 0:7:15,31;"";16,31;"";17,31;"";18,31;"";15,30;"";16,30;"";17,30;"" o0:4:16,13 ;"";17,14;"";18,13 ;"";19,14;""  !0:0:0::: ZB$=22+21+0:B$=B$+" "+B$:3013 _B$;"WIND DIRECTION ?0-360":W:W<0W>360hB$;"WRONG 0-360":100d:3007 ^B$;"DIR. ";W;"FORCE ? 0-32":F:F<0F>32 B$;"WRONG 0-32":100d:3007 1B$;"DIR. ";W;"FORCE ";F;:100d:3018 97:16,5;"";15,5;"";14,6;"";13 ,7;"":GX=0:GY=19:620l:395:GY,GX+1;0;"":0,4;"WELCOME TO THE BACK 9":B$;" YOUR SCORE FOR THE 1ST 9 WAS?":ZK:B$;"YOU WERE OUT IN ";ZK;:100d S3,4;"PLAYERS NAME?":A$:3,4;"PLAYER- ";;A$;:100d ǃ3,4;"D'YOU WISH TO SELECT WIND":4,4;"EFFECTS ? ":6,4;"Y OR N":=""3015 1="Y"3007 :="N"3017 :100d 500 !H=10 18:1979 UH>10 H<19W=(W-WI)*361i:H>10 H<19F=(F-FO)*33! 501 C(3):Z=/180 3C(1)=KY:C(2)=KX:C(3)=35# G=1200 16000p:VE=VE*DIV*32 /17:C$=" " IC(3)=4K=4:R=0:VE=VE*2/3:C$="" 3C(3)=35#K=3:R=4:C$="" JC(3)=32 K=0:R=4:C$="":VE=VE*5/8 =C(3)=32 ON<3VE=0:B$;"WRONG CLUB" 3C(3)=39'K=0:R=4:C$="" C(3)=524K=4:R=6:C$="":C(3)=524ON10 VE=0:C(3)=524ON10 B$;"WRONG CLUB" 3C(3)=34"K=2:R=4:C$="" +!C(1),C(2);K;R;C$ N4H=169 ,8;0;4;"" BC(1)=C(1)-VE*(L*Z):C(2)=C(2)+VE*(L*Z) EC(1)YTC(1)YBC(2)XLC(2)XR4070 VH=17C(1)>YBB$;"OUT OF BOUNDS PENALTY STROKE":O=O+1:4030 VH=18C(1)>YBB$;"OUT OF BOUNDS PENALTY STROKE":O=O+1:4030 GB$;7;2;1;"LOST BALL PENALTY STROKE":O=O+1 QC(1)YBC(1)=C(1)+VE*(L*Z):C(2)=C(2)-VE*(L*Z) QC(2)XRC(2)=C(2)-VE*(L*Z):C(1)=C(1)+VE*(L*Z) %C(3)=(C(1),C(2))  850R !C(3)=41)6500d  C(3)=76550 !C(3)=246550 I0,0;0;"":501 FC(3)=34"0,0;"ON THE FAIRWAY " +C(3)=34"O<24115  4120 .3,-5:.3,-5:.3,-5:.3,-7:.15~,-5:.3,-3.1Ffff:.5,-9.9fff 10,0;"'STRAIGHT DOWN THE MIDDLE' "  FC(3)=35#0,0;"ON THE TEE AGAIN ! " "ZC(3)=32 C(3)=150,0;"IN THE HEAVY ROUGH " ,EC(3)=40,0;"IN THE LIGHT ROUGH " 6lC(3)=39'0,0;7;2;1;"FORE !!!!!!!!!!!!!!!!!!!!!!!":150 7FC(3)=39'0,0;"IN THE CROWD-IN HEAVY ROUGH " @FC(3)=5240,0;"IN A BUNKER " J"C(3)=116t6900 O"C(3)=102f6950& T"C(3)=112p7000X h O=O+1 rC(1),C(2);4;7;1;1;"":100d:C(1),C(2);4;1;7;"":20,21;2;7;;O; s 390  100d G U20,21;0;"":.02{# =,-15:10 :.01z# =,-15 bHY,HX;1;4;"":B$;0;7;1;"PLAYER HOLED OUT IN ";O:200 [0:5::0,0;7;2;"ROYAL BIRKDALE CHAMPIONSHIP CARD"  0 .H=10 U=ZK+(O-38&):ZA=38&+U .H=11 U=ZA+(O-42*):ZB=42*+U .H=12 U=ZB+(O-45-):ZC=45-+U .H=13 U=ZC+(O-502):ZD=502+U .H=14U=ZD+(O-535):ZE=535+U .H=15U=ZE+(O-58:):ZF=58:+U .H=16U=ZF+(O-62>):ZG=62>+U .H=17U=ZG+(O-67C):ZH=67C+U .H=18U=ZH+(O-71G):ZI=71G+U 46,1;"HOLE YARDS PAR SCORE"  :17,0;""  97,0;""  64,10 ;"AFTER HOLE";4,21;;H; $U>04,4;"OVER" %U<04,4;"UNDER" &4,1;;U; +19,23;"TOTAL" 0(U=04,1;"EVEN PAR" 1;19,29;;ZA;:TA=ZA-ZK:H=10 4418B 2;19,29;;ZB;:TB=ZB-ZA:H=11 4417A 3;19,29;;ZC;:TC=ZC-ZB:H=12 4416@ 4;19,29;;ZD;:TD=ZD-ZC:H=13 4415? 5;19,29;;ZE;:TE=ZE-ZD:H=144414> 6;19,29;;ZF;:TF=ZF-ZE:H=154413= 7;19,29;;ZG;:TG=ZG-ZF:H=164412< 8;19,29;;ZH;:TH=ZH-ZG:H=174411; 9ZZ=ZI-ZK:19,1;"BACK IN ";;ZZ;:19,29;;ZI;:TI=ZI-ZH:19,22;"SCORE ";19,29;1;;ZI;:B$;"BREAK THEN PRESS Z TO COPY SCORE" :_16,1;"18";16,9 ;"473";16,19;"4";16,29;;TI; ;_15,1;"17";15,9 ;"526";15,19;"5";15,29;;TH; <_14,1;"16";14,9 ;"415";14,19;"4";14,29;;TG; =_13 ,1;"15";13 ,9 ;"542";13 ,19;"5";13 ,29;;TF; >_12 ,1;"14";12 ,9 ;"198";12 ,19;"3";12 ,29;;TE; ?_11 ,1;"13";11 ,9 ;"505";11 ,19;"5";11 ,29;;TD; @_10 ,1;"12";10 ,9 ;"184";10 ,19;"3";10 ,29;;TC; A[9 ,1;"11";9 ,9 ;"411";9 ,19;"4";9 ,29;;TB; B[8,1;"10";8,9 ;"384";8,19;"4";8,29;;TA; e2,1;7;0;;;A$;:H>9 H<18B$;"PRESS ENTER TO START NEXT HOLE" 13 4501 H p,7:0:B$;"PRESS ENTER TO PLAY" z7C(1),C(2);7;4;1;"" 13 6020 /GY,GX+1;0;0;7;"T" .C(1),C(2);4;7;"" 7:0:B$;"DIRECTION ? 0-360":L:L<0L>360hB$;1;"WRONG IT MUST BE 0-360":75K:6040 zB$;"DIRECTION= ";L;" CLUB? 1-10":ON:ON<1ON>10 B$;1;"WRONG IT MUST BE 1-10":100d:6040 BB$;"DIR.= ";L;"CLUB= ";ON;"STRENGTH? 1-100":VE:VE6040 UVE<0VE>100dB$;1;"WRONG IT MUST BE 0-100":75K:6040 6B$;"DIR.= ";L;"CLUB= ";ON;"STRENGTH= ";VE:100d  6117  390  403 ON=1VE=VE+26 ON=2VE=VE+17 ON=3VE=VE+8 ON=4VE=VE-1 ON=5VE=VE-10 ON=6VE=VE-19 ON=7VE=VE-28 ON=8VE=VE-37% ON=9 VE=VE-46. ON=10 VE=VE-557 $ON<0ON>10 VE=0  6310  KL=0:M=0:M=(W-L) %M170M1906133 'M-170M-1906133 1M1M90ZKL=F*(M/90Z):L=L-KL 3M91[M180KL=F*(90Z/M):L=L-KL 5M181M270KL=F*(M/270):L=L+KL 5M271M360hKL=F*(270/M):L=L+KL ?M-90ZM-1KL=F*(90Z/(180+M)):L=L+KL AM-180M-90ZKL=F*((180+M)/90Z):L=L+KL CM-271M-181KL=F*((450+M)/270):L=L-KL BM-360hM-270KL=F*((360h+M)/90Z):L=L-KL L>360hL=L-360h L<0L=360h+L !M-45-M45-VE=VE-F "M135M225VE=VE+F #M315;M-315;VE=VE-F $M-135M-225VE=VE+F  L<0L=360h+(L) VE0VE=1 %L=(L*100d+.5)/100d 'VE=(VE*100d+.5)/100d # d%B$;"LANDED IN WATER PENALTY STROKE" n"I=(C(2))0-1 x(C(1),I)=41)I rC(2)=I:O=O+1:20,0;1;7;"THIS IS SHOT NUMBER ";;O;:75K:4070 00:7:B$;1;"FORE":75K 5C(3)=24B$;"IN THE STANDS " C(3)=7B$;"IN THE CLUBHOUSE-OUT OF BOUNDS":C(3)=7O=O+1:C(3)=7C(1)=C(1)+VE*(L*Z):C(2)=C(2)-VE*(L*Z) hC(3)=24C(1)=C(1)+1:C(3)=24C(2)=C(2)+1 W20,0;7;0;"THIS IS SHOT NUMBER ";;O;:75K:4070 O=O+1:C(1),C(2);4;7;1;1;"":0,0;"ON THE GREEN WITH SHOT NO. ";;(O-1);  250  7002Z &O=O+1:C(1),C(2);4;7;1;1;"":0,0;"ON THE GREEN WITH SHOT NO. ";;O-1; ' 250 ( 7002Z XO=O+1:C(1),C(2);4;7;1;1;"":0,0;"GOOD SHOT-IN OR NEAR THE HOLE" Y 250 ZH=11 220 [H=12 240 \H=13 260 ]H=14280 ^H=15300, _H=16320@ `H=17340T aH=18360h bH=10 200 @AY,AX;7;4;"" A 8020T D)(AY,AX)=39'K=7:P=4 JAY,AX;K;P;"" TC(1)>AYAY=AY+1 YC(1)=AYAY=AY ^C(1)AXAX=AX+1 rC(4)=(AY,AX) wM(AY-HY)=0(AY-HY)=0(AX-HX)=0(AX-HX)=08080  8085 m(C(1)-HY)=0(C(1)-HY)=0(C(2)-HX)=0(C(2)-HX)=04293 +C(4)=39'K=7:P=4 AY,AX;K;P;"" HY,HX;1;4;"" o(AY-C(1))>-1(AY-C(1))<1(AX-C(2))>-1(AX-C(2))<190179#  8002B "ĂWY=0:WX=29: 501:KY=C(1):KX=C(2):(KY,KX)=33!O=O-1:(KY,KX)=33!4293 "<C(4):Z=/180:K=7:P=4:B=0 "GC(1)=KY:C(2)=KX:C(3)=38&:C(4)=0 "Q=1200 ")8950":VE=VE*DIV*32 /17 " 9000(# "5B$;6;0;" PLAYER PRESS ENTER TO PLAY" "ZC(1),C(2);7;4;"":(HY,HX)=39'O=O-1:4293 "13 8952" "AY=C(1):AX=C(2) "0:6:B$;"DIRECTION ? 0-360":L:L<0L>360hB$;1;"WRONG IT MUST BE 0-360":75K:8954" "%L=(L*100d+.5)/100d "6B$;"DIR.= ";L;"STRENGTH? 1-200":VE:VE8954" "UVE<0VE>200B$;1;"WRONG IT MUST BE 0-100":75K:8954" #*B$;"DIR.= ";L;"STRENGTH= ";VE:100d #6117:430 # VE=VE # VE0VE=1 #L<0L=-L+360h #'VE=(VE*100d+.5)/100d # #(BC(1)=C(1)-VE*(L*Z):C(2)=C(2)+VE*(L*Z) #*C(1)>VBC(1)=VB #+C(1)VRC(2)=VR #-C(2)Q