RBGC &( @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 -1:1:1: 2"18th"16384@ 723689\,25 <""   aF18th @ qO n??le ?>LG n LG  .5? @  ODG*?" E@ ??? KG`L7 ?@G"R`??>!? [lvw$D;ŀ` [j<D`DB@$|$' `5O1#(D< @:!>68` HÍ( }  p` 4# 4 <<I$$Dă~|~!"6 5# `uODž e?8O߿0`a@ xBAJS0p¾a ;@%@@}``<?0e}&!ɷ?$Fā<~IDb5Iu2?>|\0O߿?~X"f"p!`B.?A/l@?o #I5`~~I˗? 1$c eALw4O߿?,G'80@ ~|0

(l@p 0eI=0)> b2F0aGC-"Q>0 CO?WA0e 8A} c?  >3 N}+l@ A%IK=a? @D- `LX矿  - 8yޯ&el}>H`4px`<;}l@`He< W! `mO$b>?Z?!8080@( 86|`~~z<\ 08!030 ? 1@90tIf`giff``gx03333000?fffffgff``gx?033330pp?ffffggf9999gy33333331f8fgiy3333333?ٖf89fgi98?xs338ppp?y038s033?gfgi103330000?>y90s<8s3?g9<99<#8<9ifgfgffgy33333333f`gifgfgffgy333333339889988)999999999999999999999889999999999999999999999988989999999999998888888888888899999))888888888888888888888889988888888888888888888888899888888888888888888<>>=;888<<<<<<<<<<<<<<<<<<<<<<<<<<<<444444444444444444444444444444 44444444444444444444444444444444 444444444444444444444444444444 4444444444444444444444<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<LO 1   F.D.THORPE 1983 !23658j\,9 :3000 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 <7:4:CY,CX;"";CY-1,CX+2;"";CY-2,CX+3;"";CY-3,CX+4;"";CY-4,CX+5;"";CY-5,CX+5;"";CY-7,CX+7;"" = Ft7:4:CY,CX;"";CY+1,CX+1;"";CY+2,CX+3;"";CY+3,CX+5;"" G Pr0,0;0;"":4:0:Y=YTYB:X=XLXR:Y,X;"":X:Y Qb2,1;"Hole ";H;:3,1;"Par ";PAR;:4,1;"Yards ";YRD; RA20,0;2;7;"THIS IS SHOT NUMBER ";;O; S0KY,KX;4;1;7;1;"" T77:2:0,0;"ON THE TEE-";;A$; U ZHY,HX;1;4;"" [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 ) _ d:F=(F/33!)+FO:W=(W/361i)+WI:0:Y=019:Y,0;4;6;"":Y eX20,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;""  ?6:4:Y-1,X+2;"";Y,X+5;"" h4:6:Y-2,X+3;"";Y,X;"";Y+1,X;"";Y+2,X;""  /6:4:Y-1,X+1;"" P4:6:Y-2,X+2;"";Y,X;"";Y+1,X;""  ,6:4:Y+1,X+3;"" ]4:6:Y,X;"";Y+1,X;"";Y+2,X;"";Y+3,X;""  WNY=7:NX=9 :BY=11 :BX=20:FO=8:WI=265 :100d KY=119:X=3031:Y,X;0;4;"":X:Y !Y=1:X=0:120x "Y=1:X=27:122z #Y=17:X=27:126~ "Y=17:X=0:140 #HY=4:HX=20:90Z 2GB=14:GT=1:GL=4:GR=25 8900" VNY=6:NX=6:BY=13 :BX=17:WI=20:FO=4:100d KY=119:X=2431:Y,X;0;4;"":X:Y !Y=1:X=0:120x "Y=1:X=21:122z "Y=17:X=0:124| #Y=17:X=21:126~ #HY=6:HX=17:90Z 2GL=0:GR=22:GT=3:GB=16 8900" UBY=4:BX=9 :NY=11 :NX=20:WI=3:FO=2:100d KY=1619:X=014:Y,X;0;4;"":X:Y !Y=1:X=0:120x "Y=13 :X=0:124| #Y=17:X=18:124| #HY=11 :HX=9 :90Z 1GT=1:GL=4:GT=1:GB=14 #Y=18:X=13 :150 #Y=16:X=25:140 8900" YNY=9 :NX=17:BY=16:BX=23:WI=100d:FO=10 :100d "Y=3:X=13 :140 "Y=3:X=26:150  "Y=16:X=6:160  #Y=17:X=29:126~  #HY=9 :HX=23:90Z  3GT=6:GB=19:GL=12 :GR=28  8900" YNY=10 :NX=15:BY=16:BX=15:WI=3106:FO=4:100d K0:4:Y=119:X=2531:Y,X;"":X:Y #Y=10 :X=26:150 !Y=1:X=0:120x "Y=1:X=22:122z !Y=3:X=0:140 "Y=11 :X=1:160 #HY=4:HX=15:90Z  3GT=1:GB=19:GL=10 :GR=20 ! 8900" ,XBY=7:BX=19:NY=14:NX=19:WI=340T:FO=7:100d -IY=13:X=031:Y,X;0;4;"":X:Y .!Y=4:X=0:120x 0"Y=3:X=25:140 1"Y=17:X=0:140 3#HY=7:HX=11 :90Z 42GT=4:GB=17:GL=6:GR=24 5 8900" @YBY=16:BX=17:NY=16:NX=26:WI=357e:FO=3:100d AI0:4:Y=16:X=031:Y,X;"":X:Y B7Y=719:X=08:Y,X;"":X:Y C"Y=3:X=17:150 E!Y=7:X=9 :120x F3GT=7:GB=19:GL=12 :GR=31 G!Y=8:X=0:160 H"Y=17:X=9 :124| I$HY=10 :HX=17:90Z K 8900" TYNY=6:NX=13 :BY=13 :BX=24:WI=335O:FO=12 :100d UI0:4:Y=119:X=06:Y,X;"":X:Y V9Y=1719:X=731:Y,X;"":X:Y W!Y=1:X=7:120x X"Y=14:X=7:124| Y#Y=14:X=29:126~ Z$HY=13 :HX=13 :90Z [2GT=3:GB=16:GL=8:GR=29 \ 8900" hXBY=11 :BX=8:NY=11 :NX=14:WI=255:FO=3:100d iKY=1719:X=031:Y,X;0;4;"":X:Y j!Y=1:X=0:120x k"Y=3:X=25:140 l"Y=14:X=0:124| m"HY=4:HX=8:90Z n2GT=1:GB=14:GL=3:GR=19 o 8900" reW>3W<357eW=W+((-3)+*6):F>3F<29F=F+((-3)+*6) s.01z# =,-20 t 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 _7: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;"" E7: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);:7:2:WY,WX;;(W);  &IGY-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:0: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;"": <4:GY-1,(GX+4)+*6;"" m0+(*7):4:GY-2,GX+8;"":0+(*7):GY-2,GX+9 ;" "  RH=1854V S*H=1C(2)<34085 U 860\ VO>1858Z W^C(1)<17C(2)>15C(2)=15:B$;1;"YOU HIT THE BANK" YLH=1O<2C(2)=15C(3)=(C(1),15) Z \!H=1620l:640 ]oH3865a:H=3C(2)<10 602Z:SY=18:SX=4:609a:620l aRH=4C(2)<5609a:H=4C(2)>4620l fIH=7H=9 C(2)<7602Z:609a:620l  4085  H=0 Z:0:0:Y=019:Y,0;"":Y  BGY,0;0;4;""   TO=1:PAR=4:YRD=450:KX=1:KY=12 :DIV=27.1X/YRD H>1H<10 W=(W-WI)*361i:H>1H<10 F=(F-FO)*33!:H=22020:H=23019 .H=32040:H=33019 .H=42060 :H=43019 .H=52080 :H=53019 .H=621004:H=63019 .H=72120H:H=73019 .H=82140\:H=83019 .H=9 2160p:H=9 3019 lGX=0:GY=9 :YT=10 :YB=19:XL=0:XR=31:1800:80P:390 $SX=10 :SY=8:609a WY=0:WX=29 kCY=10 :CX=7:70F:CY=13 :CX=14:30:CY=11 :CX=19:502 ؆4:0:11 ,16;"";12 ,17;"";13 ,16;"";14,17;"";15,16;"" 0:4:13 ,10 ;"";14,5;"";13 ,21;"";14,11 ;"";14,18;"";15,7;"";16,8;"";16,21;"";17,19;"";13 ,26;"" A4:3:12 ,1;"";13 ,1;"" o4:6:1:14,26;"":1:6:4:15,27;"":0 2:13 ,4;"";13 ,22;"";14,6;"";14,19;"";15,8;"";15,18;"";16,9 ;"";16,17;"";17,12 ;"";18,14;"" 5:1:15,3;"";17,6;"";18,7;"";19,8;"";11 ,28;"";12 ,28;"";16,28;"";17,28;"" <1:6:0:14,27;"":0 h4:13 ,25;"";16,15;"";15,26;"";16,26;"" 3:0:11 ,1;"";12 ,30;"";14,1;"";12 ,0;"";13 ,0;"";13 ,30;"" 0:4:15,13 ;"";15,17;"";16,14;"";16,16;"";17,11 ;"";17,19;"";18,12 ;"";18,17;""  MWY=7:WX=1:PAR=4:YRD=423:KX=1:KY=19 `YT=1:YB=19:XL=0:XR=31:GX=1:GY=15:80P:390 kCY=11 :CX=10 :60<:CY=9 :CX=23:30:CY=17:CX=13 :60< A4:3:18,1;"";19,1;"" d6:4:1:5,22;"":6:4:6,23;"":0 2:6,19;"";7,18;"";8,17;"";9 ,16;"";10 ,16;"";11 ,14;"";12 ,13 ;"";13 ,11 ;"";14,10 ;"";15,10 ;"" ;1:6:0:5,23;"":0 {4:4,22;"";5,21;"";8,19;"";7,22;"";6,20;"" A3:0:2,21;"";3,20;"" 0:4:6,18;"";7,17;"";8,16;"";8,21;"";9 ,15;"";10 ,14;"";10 ,19;"";11 ,18;""  PAR=4:YRD=410:KX=29:KY=1:GX=0:GY=19:YT=1:YB=14:XL=0:XR=31:1800:80P:620l:390 WY=15:WX=28 jCY=10 :CX=5:30:CY=7:CX=10 :30:CY=14:CX=14:60< A4:3:1,28;"";2,28;"" [1:6:12 ,7;"":4:6:13 ,8;"":0 4:2:6,17;"";7,15;"";8,14;"";9 ,12 ;"";10 ,12 ;"";11 ,11 ;"";12 ,8;"" ;1:0:6:13 ,7;"":0 Q4:7,13 ;"";11 ,10 ;"";13 ,9 ;"" U3:0:13 ,4;"";14,4;"";15,4;""  0:4:6,16;"";6,22;"";8,19;"";9 ,18;"";10 ,11 ;"";10 ,16;"";11 ,9 ;"";11 ,14;"";12 ,13 ;"";13 ,11 ;""    PAR=3:YRD=206:KX=10 :KY=18:GX=0:GY=9 :YT=10 :YB=19:XL=0:XR=26:1800:80P:609a:620l:390 C4:3:17,10 ;"";18,10 ;"" f1:4:6:17,21;"":6:4:18,22;"":0 [4:2:16,18;"";17,18;"";18,19;"" <1:0:6:17,22;"":0 <4:16,19;"";18,21;"" 3:0:14,12 ;"";14,23;"";17,9 ;"";18,9 ;"";18,25;"";19,25;"" 0:4:16,22;"";17,23;"";18,18;"";18,23;"";19,22;""   PAR=4:YRD=343W:KX=20:KY=19:YT=1:YB=19:XL=20:XR=31:GY=18:1800:620l:80P:390 !WY=8:WX=1 "QCY=6:CX=20:40(:30:CY=17:CX=23:60< *C4:3:18,20;"";19,20;"" +[1:6:3,29;"":4:6:2,29;"":0 , 4:2:3,28;"";4,26;"";5,25;"";6,24;"";7,23;"";8,23;"";9 ,22;"";10 ,22;"";11 ,22;"";12 ,22;"";13 ,22;"" -o5:1:7,28;"";8,27;"";9 ,27;"";10 ,27;"" .;1:6:0:1,29;"":0 /4:1,28;"";2,28;"";3,28;"";4,27;"";5,27;"";2,30;"";4,29;"" 0?3:0:2,25;"";3,25;"" 3 4PAR=4:YRD=468:KX=29:KY=8:YT=1:YB=12 :XL=0:XR=31:GX=0:GY=19:1800:80P:390:620l 5WY=13 :WX=28 6AY=14:Y,1;0;4;"":Y 7r2,22;0;4;"Hole ";H;3,22;"Par ";PAR;4,22;"Yards ";YRD 9CY=3:CX=0:30:CY=5:70F:CY=2:CX=6:70F:CY=7:CX=16:502:CY=12 :CX=17:502 :< 4:0:6,13 ;"" >A4:3:8,29;"";9 ,29;"" ?Y1:6:2,4;"":4:6:3,4;"":0 @ 4:2:3,5;"";4,5;"";5,6;"";6,7;"";7,8;"";8,9 ;"";9 ,10 ;"";8,16;"";9 ,16;"";10 ,12 ;"" A5:1:7,6;"";8,7;"";9 ,8;"";10 ,9 ;"";11 ,10 ;"";6,5;"";5,4;"" B:1:6:0:2,3;"":0 Cx4:2,5;"";3,3;"";3,6;"";9 ,15;"";11 ,17;"" E0:3,7;;"";4,4;"";4,8;"";5,9 ;"";6,10 ;"";7,11 ;"";8,13 ;"" G HPAR=3:YRD=150:KX=13 :KY=17:YT=12 :YB=19:XL=0:XR=18:GX=0:GY=11 :SY=10 :SX=4 I,1800:80P:620l:390 JWY=13 :WX=24 K#CY=13 :CX=2:502 RC4:3:16,13 ;"";17,13 ;"" S[1:6:16,4;"":4:6:16,5;"":0 TW4:2:15,6;"";16,7;"";17,5;"" V;1:0:6:15,4;"":0 W|4:14,4;"";15,3;"";15,5;"";16,6;"";17,4;"" X+3:0:19,3;"" Y?0:4:16,3;"";17,3;"" [ \PAR=4:YRD=470:KY=2:KX=27:YT=1:YB=19:XL=0:XR=31:GX=27:GY=17:80P:390 ]WY=14:WX=23 ^iCY=11 :CX=5:60<:CY=19:CX=4:30:CY=16:CX=9 :60< _)2:4:16,5;"" f83:1,27;"";2,27;"" gd1:4:6:16,3;"":6:4:17,4;"":0 h<2:16,4;"";5,16;"";6,16;"";7,15;"";8,10 ;"";9 ,9 ;"";10 ,8;"";11 ,7;"";12 ,6;"";13 ,5;"";14,4;"";15,4;"" i25:1:3,17;"";4,16;"";4,18;"";5,15;"";5,19;"";6,13 ;"";6,20;"";7,20;"";8,19;"";7,8;"";8,7;"";9 ,6;"";10 ,5;"" j;1:6:0:17,3;"":0 k4:6,15;"";7,14;"";9 ,10 ;"";9 ,15;"";11 ,8;"";14,3;"";8,13 ;"" lO4:15,3;"";15,7;"";17,5;"" n?3:0:15,1;"";16,1;"" o pPAR=4:YRD=410:KY=10 :KX=27:YT=10 :YB=19:XL=0:XR=31:GX=0:GY=9 :SX=7:SY=8  q,1800:80P:620l:390 rWY=0:WX=29 skCY=13 :CX=4:502:CY=12 :CX=15:30:CY=19:CX=18:60< zC4:3:10 ,27;"";11 ,27;"" {[1:6:16,4;"":4:6:16,5;"":0 |4:2:13 ,18;"";14,17;"";15,6;"";15,16;"";16,6;"";16,15;"";17,7;"";18,8;"" ~;1:0:6:15,4;"":0 94:15,5;"";16,13 ;"" U3:0:15,1;"";16,1;"";17,1;"" l0:4:15,8;"";16,9 ;"";17,5;"";18,7;""  !0:0:0::: ZB$=22+21+0:B$=B$+" "+B$:3012 aB$;"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 s:GY=19:GX=0:SY=17:SX=10 :609a:390:620l:GY,GX+1;0;"" 7:11 ,22;"";12 ,22;"";13 ,22;"";8,30;"";9 ,30;"";10 ,29;"";0,2;"WELCOME TO ROYAL BIRKDALE":502 S3,2;"PLAYERS NAME?":A$:3,2;"PLAYER- ";;A$;:100d Dž6:3,2;"D'YOU WISH TO SELECT WIND";4,2;"EFFECTS? ";6,2;"YN":=""3015 <100d:="Y"3007 :="N"3017 :100d 500 H=19 :1979 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" 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$="" 3C(3)=39'K=0:R=4:C$="" +!C(1),C(2);K;R;C$ BC(1)=C(1)-VE*(L*Z):C(2)=C(2)+VE*(L*Z) eH=6C(1)<6C(2)>12 B$;"OUT OF BOUNDS PENALTY STROKE":O=O+1 H=6C(1)<6C(2)>12 C(1)=C(1)+VE*(L*Z):C(2)=C(2)-VE*(L*Z):4070 EC(1)YTC(1)YBC(2)XLC(2)XR4070 WH=1C(1)>YBB$;"OUT OF BOUNDS PENALTY STROKE":O=O+1:4030 MB$;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)=246550 7:0 @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 '"  7:0 FC(3)=35#0,0;"ON THE TEE AGAIN ! " "FC(3)=32 0,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# =,-20 bHY,HX;1;4;"":B$;7;0;1;"PLAYER HOLED OUT IN ";O:200 [0:5::0,0;2;7;"ROYAL BIRKDALE CHAMPIONSHIP CARD"  0 &H=1U=O-4:ZA=4+U +H=2U=ZA+(O-8):ZB=8+U -H=3U=ZB+(O-12 ):ZC=12 +U -H=4U=ZC+(O-15):ZD=15+U -H=5U=ZD+(O-19):ZE=19+U -H=6U=ZE+(O-23):ZF=23+U -H=7U=ZF+(O-26):ZG=26+U -H=8U=ZG+(O-30):ZH=30+U -H=9 U=ZH+(O-34"):ZI=34"+U 46,1;"HOLE YARDS PAR SCORE"  57,0;""  617,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" 1719,29;;ZA;:TA=ZA:H=14418B 2:19,29;;ZB;:TB=ZB-ZA:H=24417A 3:19,29;;ZC;:TC=ZC-ZB:H=34416@ 4:19,29;;ZD;:TD=ZD-ZC:H=44415? 5:19,29;;ZE;:TE=ZE-ZD:H=54414> 6:19,29;;ZF;:TF=ZF-ZE:H=64413= 7:19,29;;ZG;:TG=ZG-ZF:H=74412< 8:19,29;;ZH;:TH=ZH-ZG:H=84411; 9nTI=ZI-ZH:19,22;"OUT IN";19,29;1;;ZI;:B$;"LOAD OTHER SIDE FOR HOLES 10-18" :^16,1;"9";16,9 ;"410";16,19;"4";16,29;;TI; ;^15,1;"8";15,9 ;"470";15,19;"4";15,29;;TH; <^14,1;"7";14,9 ;"150";14,19;"3";14,29;;TG; =^13 ,1;"6";13 ,9 ;"468";13 ,19;"4";13 ,29;;TF; >^12 ,1;"5";12 ,9 ;"343";12 ,19;"4";12 ,29;;TE; ?^11 ,1;"4";11 ,9 ;"206";11 ,19;"3";11 ,29;;TD; @^10 ,1;"3";10 ,9 ;"410";10 ,19;"4";10 ,29;;TC; AZ9 ,1;"2";9 ,9 ;"423";9 ,19;"4";9 ,29;;TB; BZ8,1;"1";8,9 ;"450";8,19;"4";8,29;;TA; c2,1;7;0;;A$;:H>0H<9 B$;"PRESS ENTER TO START NEXT HOLE" 13 4501 H p37:0:B$;"PLAYER PRESS ENTER TO PLAY" z7C(1),C(2);7;4;1;"" 13 6020 /GY,GX+1;0;7;0;"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 M=0M=M+1 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 1B$;0;7;1;"FORE":75K: 9C(3)=24B$;"LANDED IN THE STANDS " 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);  200  7002Z &O=O+1:C(1),C(2);4;7;1;1;"":0,0;"ON THE GREEN WITH SHOT NO. ";;O-1; ' 200 ( 7002Z XO=O+1:C(1),C(2);4;7;1;1;"":0,0;"GOOD SHOT IN OR NEAR HOLE " Y 200 ZH=1200 [H=3240 \H=4260 ]H=5280 ^H=6300, _H=7320@ `H=8340T aH=9 360h bH=2220 @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)>GBC(1)=GB #+C(1)GRC(2)=GR #. 8000@ #:+O=O+1:C(1)=AY:C(2)=AX #;H20,21;2;7;;O;:KX=C(2):KY=C(1) #= 100d #>Q RBGC2 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