@P?!6XD:\a68123458s:q=140:h=230:g=155:par=3: 0>16,18;"NO.8 458 YDS";19,18;"PAR 4" 1a110n,155:145,0:0,-30:-145,0:0,30 2W240,140,10 :240,140,2:10 ,135,5 3Bp=240:q=140:h=10 :g=135:par=4: D>16,18;"NO.9 531 YDS";19,18;"PAR 5" E`557,165:195,0:0,-25:-195,0:0,25 FV240,155,10 :240,155,2:6,140,5 GAp=240:q=155:h=6:g=140:par=5: X?16,18;"NO.10 187 YDS";19,18;"PAR 3" YW160,135,10 :160,135,2:66B,130,5 ZBp=160:q=135:h=66B:g=130:par=3: l?16,18;"NO.11 462 YDS";19,18;"PAR 4" m100d,165:80P,0:30,-10 :40(,15:5,-30:-45-,-20:-30,10 :-80P,0:0,35# nW240,150,10 :240,150,2:10 ,125},5 oBp=240:q=150:h=10 :g=125}:par=4: q ?16,18;"NO.12 157 YDS";19,18;"PAR 3" W140,140,10 :140,140,2:61=,130,5 Bp=140:q=140:h=61=:g=130:par=3: ?16,18;".13 402 YDS";19,18;"PAR 4" 90Z,160:70F,10 :85U,-40(:0,-30:-85U,40(:-70F,-5:0,25 W230,120x,10 :230,120x,2:30,140,5 @p=230:q=120x:h=30:g=140:par=4  ?16,18;"NO.14 303 YDS";19,18;"PAR 4" u100d,150:30,10 :85U,-10 :0,-30:-115s,0:0,30 W200,135,10 :200,135,2:491,130,5 Bp=200:q=135:h=491:g=130:par=4: A16,18;"NO.15 332 YDS";19,18;"PAR 4" d130,150:100d,15:0,-30:-100d,-15:0,30 W215,150,10 :215,150,2:502,130,5 Bp=215:q=150:h=502:g=130:par=4: ?16,18;"NO.16 458 YDS";19,18;"PAR 4" b123{,155:132,0:0,-30:-132,-5:0,30 W235,140,10 :235,140,2:13 ,135,5 Bp=235:q=140:h=13 :g=135:par=4: ?16,18;"NO.17 213 YDS";19,18;"PAR 3" W155,140,10 :155,140,2:502,150,5 Bp=155:q=140:h=502:g=150:par=3: ?16,18;"NO.18 423 YDS";19,18;"PAR 4" 100d,150:100d,0:0,5:45-,0:0,-25:-15,0:0,-15:-135,0:0,35# W230,140,10 :230,140,2:20,125},5 Bp=230:q=140:h=20:g=125}:par=4:  " -" "IRON DIST" " -" I=210 [i$=(i):v$=((11 -I)*15+70F):(2-(i$));i;(11 -(v$));v$:I "PUTTER 20" " -" "WOOD DIST" " -" I=15 wi$=(i):v$=((6-I)*20+180):(2-(i$));i;(11 -(v$));(6-I)*20+180:I " -" '10 ,12 ;"EACH SHOT CAN BE" -11 ,12 ;"GIVEN A % ""STRENGTH""" 12 ,12 ;"FACTOR-"  *13 ,12 ;" E.G 50=HALF POWER." !H16,13 ;"PRESS ANY KEY ":17,13 ;"TO CONTINUE." """2082" #=""2083# % "IRON(I) or WOOD(W)? ";C$ )C$"W"C$"w"C$"I"C$"i"3010 C$="I"C$="i"3200 C$="W"C$="w"3300 2"IRON NO.? ";I:I<2I>10 3200 "STRENGTH? ";S #S<0s>100d3201 Z"SHOT?-strght=s,fade=f,hook=h";a$:a$"S"a$"s"a$"F"a$"f"a$"H"a$"h"3206 a$="s"a$="S"t=.5 a$="f"a$="F"t=-3 a$="h"a$="H"t=3 0d=S/100d*((11 -I)*15+70F) 3400H 1"WOOD NO.? ";W:W<1W>53300 "STRENGTH? ";S #S<0S>100d3301 Z"SHOT?-strght=s,fade=f,hook=h";a$:a$"S"a$"s"a$"F"a$"f"a$"H"a$"h"3206 a$="s"a$="S"t=.5 a$="f"a$="F"t=-3 a$="h"a$="H"t=3 0d=S/100d*((6-W)*20+180) 3400H H V=0315;45- G17-3*(v/180*),4+3*(v/180*);v V 32 ,36$:24,0:44,,24:0,24:32 ,24:24,24:568,24:-24,24  I(((172-g)/8+0.5),(h/8))=38&4040 I(((172-g)/8+0.5),(h/8))=37%4020 I(((172-g)/8+0.5),(h/8))=35#4054  4060 /21,0;1;"YOU ARE IN WATER" 'xx=((176-g)/8-0.5) yy=(h/8) Ai=010 :xx,yy;"":3:xx,yy;"":3:i  xx,yy;" " 021,16;1;"-ONE SHOT PNLTY."  100d 621,0;" " c=c+1:4060 <21,0;1;"YOU ARE IN SAND(10 IRON ONLY)" 'xx=((176-g)/8-0.5) yy=(h/8) Ai=010 :xx,yy;"":3:xx,yy;"":3:i  xx,yy;" "  200 421,0;" "  4060 721,0;1;"IN HEATHER(10 IRON ONLY)" 'xx=((176-g)/8-0.5) yy=(h/8) Mi=010 :xx,yy;"":3:xx,yy;"":3:i:xx,yy;" "  200 .21,0;" "  h i 1 j 3460 l=19,20;c;" stroke";:c>1"s":4206n m" " n9100d,90Z,502:100d,90Z,3 px=h-p:y=g-q q18,20;n$(b) rp=100d:q=90Z u-h=100d+5*x:g=90Z+5*y v h,g,1 wh,g z17,20;"HOLE ";n |!20,20;"USE PUTTER" 6"STRENGTH? ";st:st>100dst<04225 0"ANGLE? ";a:a<0a>359g4230 x=st/2*(a*/180) y=st/2*(a*/180) x,y <502:1;h,g,1:1;h,g:1;x,y h=h+x:g=g+y h,g,1:h,g  c=c+1 119,20;c;" stroke";:c>1"s" v=((p-h)*(p-h)+(q-g)*(q-g)) v34225   6000p x1:6,16;"";5,17;"";4,18;"";3,18;"";2,18;""  6 o6,18;"";3,21;"";1,24;"";1,26;"";4,26;""  3 T0,3;"";1,3;"" \6,3;" ";6,20;" ";5,23;" " 37,2;"" 4,28;""  1:  6 -3,15;"";6,16;"" p5,24;"";6,24;"";6,27;"";2,27;"";3,29;""  3 J1,10 ;"";2,15;" " P7,4;";" F3,30;"";4,30;"";5,30;""  1:  6 4,10 ;"" \1,20;"";0,23;"";4,23;"";4,19;""  3 #0,10 ;" " K7,8;"6" +6,12 ;"" 5,16;"" 30,24;"";1,25;""  1: x1:3,20;"";4,20;"";5,20;"";6,20;"";2,20;""  6 D4,21;"";3,22;"";2,24;"" 6,24;""  3 ;7,21;"";1,21;" " a3,27;"";4,27;"";5,27;"";6,27;"" 52,12 ;"";6,12 ;""  1:  6 C4,23;"";5,24;"";5,28;""  3 I3,7;" ";2,7;"" G7,7;"";6,7;""  1:  6 /4,19;"";2,23;"" D1,26;"";4,26;"";1,28;""  5 F3,8;"";5,8;"";4,8;"" 4,11 ;""  3  i2,8;"";6,8;"8"  00,5;""  ]3,30;"";2,30;"";4,30;"";5,30;""  1: 51:0,10 ;"#" 41;0,10 ;"_"  6 .6,13 ;"";7,15;""  3 O1,10 ;"";2,10 ;"" 56,22;"";8,10 ;"" /3,10 ;"";4,10 ;""  1: ( 6 )C6,15;"";3,27;"";6,29;"" + 5 ,v3,3;"";7,3;"";4,8;"";5,8;"";6,8;"" . 3 /S8,3;"";2,3;"" 0h2,25;"";6,17;" ";7,12 ;"" 2 1: < 6 =-1,18;"";4,14;"" >D2,25;"";0,30;"";4,29;"" ? 3 @,0,5;"" A[5,5;"";6,5;"" F 1: P 6 QZ3,18;"";5,17;"";6,18;"";6,20;"" R 3 S7,7;"";2,14;" ";3,22;"";4,22;"";5,22;"";6,22;"" T3,7;"" U 1: dI1:6,4;"";5,4;"";4,4;"" e 5 fW6,3;"";5,3;"";4,3;"";5,5;"" g 6 hC2,26;"";1,29;"";5,29;"" i 3 jm7,2;"";6,10 ;" ";6,28;"" ka0,10 ;"";1,5;" ";2,5;"" n 1: x 6 yq2,15;"";4,15;"";5,15;"";5,14;"";5,19;"" z 3 {A6,9 ;" ";1,7;" " } 1:  6 D2,23;"";3,23;"";4,28;""  3 9 ,3;"";6,3;"";7,3;"";8,3;"" !1,3;" "  1:  6 C2,20;"";3,25;"";6,23;""  3 7,7;"5";6,27;"";5,27;"";4,27;"";1,22;" "  1:  6 Z6,19;"";1,23;"";5,26;"";1,27;""  3 80,17;"";7,7;"" 5,28;""  1:  6 [3,17;"";4,17;"";5,17;"";6,17;"" 7,13 ;"" D4,26;"";6,29;"";2,29;""  3 ΍1,4;"0";7,17;"";8,17;"" Y3,31;"";4,31;"";5,31;"";6,31;""  1:  6 E4,14;"";6,18;"";2,19;""  3 >1,6;"";2,9 ;"" 4,6;"";5,6;"";6,6;"";7,6;"";6,21;"";5,21;""  1: 1:2,16;"";3,16;"";4,16;"";5,16;"";6,16;"";7,16;""  6 -7,18;"";7,20;"" 06,26;"";7,26;"" 2,28;""  3 ~8,5;"";1,5;"'";2,20;"" 8,27;"";7,30;"";6,30;"";5,30;"";4,31;"";3,30;""  1: p14,21;1;0;3;" GOODBYE !":15,21;0;3;1;" ":16,21;0;3;1;"SEE YOU AT":17,21;0;3;1;"THE 19th.!": d9x=1n:o(x,1)021,0;n$(1); ,wm<021,0;n$(2); ;n=18" HAS WON BY ";wm;" HOLE";:wm>1"S" n=18 9wm>18-n" HAS WON BY ";wm;" AND ";18-n: +wm=18-n" IS DORMIE ";wm;" UP":  wm0" IS ";wm;" UP":  &Hi$="s"i$="S" &ML19,0;"HOLE ";:o(n,1)=o(n,2)"HAS BEEN HALVED": &R4o(n,1)v>>BB<DHpHDB@~BfZBBBBbRJFBBBB|JBB@B~|@BBBBDFBBB@ZBD@B><<<B244+i,0;" ":5;" ":82R V"=";pr W7p(i/2)=0.8L-pr/480:h$(i/2)=pr X>i:h$(2)=" "h$(2)="0":n$(2)=" " Y l(2) Zpl=1(pl=2(i$="s"i$="S"))12 ,1;"Do You Wish To Play-":14,2;"1-A Full Round ?":16,2;"2-A Practice Round ?":18,2;"Enter The No. Of Your Choice.":type:type1type290Z [#type=1n=1:96` \L20,1;"PLEASE ENTER NUMBER OF FIRST HOLE YOU WISH TO PLAY." ^#n:n<1n>1894^ `#int=0:c=0:113q d c=0 f6i$="m"i$="M"p1h=0:p2h=0:6500d: h2i$="m"i$="M"175:n=n+1:113q m]type=2"ENTER NEXT HOLE NUMBER YOU WISH TO PLAY.";n:n<0n>18109m n=type=1int=1n=10 int=0:113q o6type=1int=1n=19int=0:: pJtype=1n=n+1:n=10 n=19int=1:291# qn=0291# r>pl=1bst=1:btp=1:bsp=1:118v sn=1118v t^t(2,n-1)359g180 r= r256206 "(g+y/2)<0206 $(g+y/2)>176206 209 721,0;1;"OUT OF BOUNDS!-TRY AGAIN" ?100d:21,0;" " c=c+2:165 .3,8 h=h+x/2:g=g+y/2 4000 !x/2,y/2,t/2* wd c=c+1 @20,21;"=";c;" stroke";:c>1"s":240 " " v=((p-h)*(p-h)+(q-g)*(q-g)) v1271 v10 4200h v10 170 9z=09 :.1}L,20:.1}L,10  2 A20,11 -z;"":2:20,10 -z;" ":z  l(b)=l(b)+c  sc=c-par %17,0;""  T(b,n)=c i$="m"i$="M"o(n,b)=c:19,0;" ":20,0;" ":281 p19,0;n$(b);"=";l(b);" Total so far. ":20,0;" " (sc=018,0;"PAR ";c ,sc=-118,0;"BIRDIE ";c +sc=-218,0;"EAGLE ";c .sc=-318,0;"ALBATROS ";c *sc=118,0;"BOGEY ";c 1sc=218,0;"DOUBLE BOGEY ";c -sc>218,0;"DISASTER ";c  3125}:type=1(i$"M"i$"m")60< !b:9800H& " 100d # $Xpa=0:"HLE. ";"PAR ";n$(1,16);" ";n$(2,16) %40,0;1;"____ ___ _ _" &4j=118:j<10 " ";j;:296( '" ";j; (r(6);S(j);:o$=(T(1,j)):(12 -o$);o$;:o$=(T(2,j)):(19-o$);o$:pa=pa+S(j):j )18,5;1;"__ ___ ___":o$=(pa):19,7-o$;o$:o$=(l(1)):19,12 -o$;o$:o$=(l(2)):19,19-o$;o$:19,5;1;"__ ___ ___":20,1;"-HIT C TO CONTINUE":21,1;"-HIT ANY OTHER KEY TO FINISH":type=1n=196,21;n$(1);":-":7,21;"GROSS-":o$=(l(1)):7,30-o$;o$:8,21;"NET -":o$=(l(1)-(h$(1))):8,30-o$;o$:pl=210 ,21;n$(2);":-":11 ,21;"GROSS-":o$=(l(2)):11 ,30-o$;o$:12 ,21;"NET -":o$=(l(2)-(h$(2))):12 ,30-o$;o$ *""298* +=""299+ ,="C"Ŧ="c"109m 1 6000p >16,18;"NO.1 391 YDS";19,18;"PAR 4" 60<,155:90Z,0:75K,15:0,-25:-75K,-25:-90Z,10 :0,25 W210,155,10 :210,155,2:20,140,5 @p=210:q=155:h=20:g=140:par=4  >16,18;"NO.2 421 YDS";19,18;"PAR 4" 60<,155:175,0:0,-30:-45-,0:0,-5:-130,5:0,30 W220,140,10 :220,140,2:10 ,140,5 @p=220:q=140:h=10 :g=140:par=4  >16,18;"NO.3 337 YDS";19,18;"PAR 4" b70F,170:140,0:0,-25:-140,-20:0,45- W190,155,10 :190,155,2:25,120x,5 @p=190:q=155:h=25:g=120x:par=4  >16,18;"NO.4 192 YDS";19,18;"PAR 3" W200,140,10 :200,140,2:95_,135,5 Bp=200:q=140:h=95_:g=135:par=3: >16,18;"NO.5 327 YDS";19,18;"PAR 4" _135,150:90Z,0:0,-30:-90Z,0:0,30 W210,135,10 :210,135,2:502,140,5 Bp=210:q=135:h=502:g=140:par=4: >16,18;"NO.6 353 YDS";19,18;"PAR 4"  a135,165:105i,0:0,-30:-105i,5:0,25  W227,150,10 :227,150,2:502,140,5  Bp=227:q=150:h=502:g=140:par=4: >16,18;"NO.7 229 YDS";19,18;"PAR 3" a100d,150:65A,0:-15,-30:-502,0:0,30 X115s,140,10 :115s,140,2:230,155,5 Cp=115