@R?w!6X'D:\a6=12345g; @p=230:q=150:h=30:g=130:par=4 ! 0>16,18;"NO.8 398 YDS";19,18;"PAR 4" 1100d,150:60<,0:0,15:25,0:0,-30:-25,0:0,-15:-60<,0:0,25 2W225,145,10 :225,145,2:30,140,5 3@p=225:q=145:h=30:g=140:par=4 5 D>16,18;"NO.9 450 YDS";19,18;"PAR 4" Ea120x,165:135,0:0,-30:-135,0:0,30 FW235,150,10 :235,150,2:20,140,5 G@p=235:q=150:h=20:g=140:par=4 I X?16,18;"NO.10 186 YDS";19,18;"PAR 3" YW153,135,10 :153,135,2:60<,130,5 ZBp=153:q=135:h=60<:g=130:par=3: l?16,18;"NO.11 376 YDS";19,18;"PAR 4" m110n,140:20,5:502,-5:502,10 :0,-30:-502,-10 :-502,5:-20,-5:0,30 nW215,135,10 :215,135,2:30,150,5 o@p=215:q=135:h=30:g=150:par=4 v ?16,18;"NO.12 483 YDS";19,18;"PAR 5" d100d,145:153,30:0,-30:-153,-30:0,30 V240,160,10 :240,160,2:6,140,5 ?p=240:q=160:h=6:g=140:par=5  ?16,18;"NO.13 441 YDS";19,18;"PAR 4" 100d,150:105i,0:45-,15:0,-25:-40(,-15:-110n,0:0,25 W240,150,10 :240,150,2:20,140,5 @p=240:q=150:h=20:g=140:par=4  ?16,18;"NO.14 179 YDS";19,18;"PAR 3" W140,150,10 :140,150,2:502,135,5 Bp=140:q=150:h=502:g=135:par=3: ?16,18;"NO.15 466 YDS";19,18;"PAR 4" w100d,143:155,15:0,-30:-502,0:-105i,-15:0,30 W240,145,10 :240,145,2:10 ,140,5 @p=240:q=145:h=10 :g=140:par=4  ?16,18;"NO.16 380 YDS";19,18;"PAR 4" ф60<,155:80P,-5:75K,0:0,-25:-75K,0:-80P,5:0,25 W205,140,10 :205,140,2:20,160,5 @p=205:q=140:h=20:g=160:par=4  ?16,18;"NO.17 571 YDS";19,18;"PAR 5" 95_,155:35#,-5:125},25:0,-25:-125},-25:-35#,5:0,25 V245,165,10 :245,165,2:6,165,5 ?p=245:q=165:h=6:g=165:par=5  ?16,18;"NO.18 502 YDS";19,18;"PAR 5" 1,175:70F,0:179,-45-:0,-25:-179,45-:-70F,0:0,25 V240,120x,10 :240,120x,2:6,170,5 ?p=240:q=120x:h=6:g=170:par=5   " -" "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 j2,4;"";3,4;"";4,4;"";5,4;"";6,4;""  6 D5,26;"";5,29;"";2,28;""  3 Q0,6;"";1,6;" " )6,6;"" .7,6;"" 0,31;"";1,31;"";2,31;"";3,31;"";4,31;"";5,31;""  1: u1:1,10 ;"";2,10 ;"";3,9 ;"";4,9 ;"";5,8;"" M6:1,14;"";3,12 ;"";5,14;""  3 6,5;" ";1,5;" ";0,5;" ";1,17;"";2,17;"";3,17;"";4,17;"";5,17;""  1: Ď1:0,10 ;"";1,10 ;"";2,10 ;"";3,10 ;"";4,10 ;"";5,10 ;""  6 Z4,17;"";2,26;"";2,28;"";4,28;""  5 C5,12 ;"";4,13 ;"";5,14;""  3 R6,3;"=" P2,0;"";0,0;"" o1,31;"";2,31;"";3,31;"";4,31;"";5,31;""  1: 61:4,29;"";5,29;""  6 +3,3;"";5,4;""  5 w0,13 ;" ";1,12 ;"";2,12 ;"";3,12 ;"";4,12 ;""  3 G6,6;"2"  5,15;" " 0,0;" " U2,0;"";3,0;"";4,0;"";5,0;"" 1,0;""  1: s1:3,8;"";4,8;"";5,8;"";6,8;"";2,8;""  6 Z1,16;"";2,14;"";4,13 ;"";5,16;""  3 f0,5;"";5,10 ;" ";6,10 ;" " ]1,19;"";2,19;"";3,19;"";4,19;""  1: ^1:3,7;"";4,7;"";5,7;"";6,7;""  6 ]2,15;"";3,15;"";3,23;"";6,21;""  3 1,5;"";2,5;"";7,10 ;"";6,26;"";5,27;"";8,10 ;""  1: b1:3,13 ;"";4,14;"";5,15;"";2,12 ;""  6 D5,16;"";4,27;"";5,27;""  5 q5,18;"";4,21;"";3,21;"";2,20;"";1,19;""  3 R6,5;"";0,8;"" H4,24;"";5,24;"";6,26;""  1z ( 6 )5,27;"" + 5 ,a2,24;"";3,23;"";4,23;"";5,23;"" -C5,21;"";4,20;"";1,18;"" ..4,7;"";5,10 ;"" / 3 00,11 ;"";1,20;" ";7,18;"";6,23;"" 1]3,30;"";2,30;"";4,30;"&;5,30;"" 2 1: < 1 =50,0;" #" >>1;0,0;"__" ? 6 @-1,23;"";4,23;"" Am2,27{"";4,27;"" B 3 C1,24;&" D1,0;"";6,9 ;"";5,19;" ";2,31;"";3,31;"";4,31;"" E 5 F5,17;"" G 1: P 6 Q/4,15;"";5,15;"" R 3 S2,7;"";3,7;" ";3,20;"";7,7;" ";6,12 ;"" U 1: dx1:3,16;"";4,16;"";5,16;"";6,16;"";7,16;"" e 6 fZ7,14;"";4,25;"";3,26;"";6,26;"" g 5 h3,13 ;"";4,13 ;"";5,13 ;"";6,13 ;"";4,15;"";7,13 ;"";8,13 ;"" i 3 jw9 ,13 ;"";8,20;" ";2,6;"" kQ3,15;"";7,6;"";6,6;"" lI5,29;"";6,28;"";7,27;"" n 1: x 6 y3,30;"" z 5 {\4,4;"";5,7;"";3,7;"";2,7;"" |C2,17;"";3,17;"";1,25;"" } 3 ~D0,3;"/" U6,6;"";7,6;""  1:  6 -6,15;"";6,19;"" C3,28;"";4,29;"";2,28;""  5 2,26;"";3,25;"";4,24;"";5,23;"";6,22;"";2,12 ;""  3 R7,17;"";1,4;""  1:  6 .1,17;"";2,15;""  3 S0,8;" ";1,6;"";3,5;""  5,8;" "  1: ^1:3,6;"";4,6;"";5,6;"";6,6;""  6 C3,15;"";1,29;"";5,29;""  5 3,5;"";4,5;"";5,5;"";6,5;"";3,10 ;"";4,10 ;"";5,11 ;"";6,11 ;"" o2,25;"";2,26;"";1,27;"";3,24;"";4,23;""  3 F0,3;"1" P7,4;";"  1: x1:2,21;"";3,21;"";4,21;"";5,21;"";6,21;""  6 03,16;"";6,24;""  5 B2,6;"";3,5;"";4,2;""  3 Y0,2;"";1,10 ;"" *7,6;""  1: b1:2,14;"";3,14;"";4,14;"";5,14;""  6 4,23;""  3 j0,3;"";1,10 ;" ";2,15;"" V6,3;"A"  5,20;" "  1: s1:0,6;"";1,6;"";2,6;"";3,6;"";4,6;""  5 \4,22;"";5,22;"";6,21;"";7,19;""  6 .8,28;"";5,28;""  3 ~0,14;"";1,18;" ";2,22;"";3,26;"" v6,0~;"";7,0;"";8,10 ;""  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)4H3H]MǺ@>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 471 YDS";19,18;"PAR 4" `30,160:220,0:0,-30:-220,0:0,30 V240,145,10 :240,145,2:7,155,5 2p=240:q=145:h=7:g=155 par=4:1: >16,18;"NO.2 155 YDS";19,18;"PAR 3" W120x,145,10 :120x,145,2:40(,150,5 3p=120x:q=145:h=40(:g=150 par=3: >16,18;"NO.3 452 YDS";19,18;"PAR 4" ̈́20,150:45-,0:0,15:190,0:0,-30:-235,0:0,15 W241,150,10 :241,150,2:15,140,5 3p=241:q=150:h=15:g=140 par=4: >16,18;"NO.4 501 YDS";19,18;"PAR 5" 180,170:-60<,0:-115s,-15:0,-30:115s,25:60<,0:0,20 V15,140,10 :15,140,2:250,135,5 3p=15:q=140:h=250:g=135 par=5: >16,18;"NO.5 191 YDS";19,18;"PAR 3" W135,150,10 :135,150,2:40(,145,5 3p=135:q=150:h=40(:g=145 par=3: >16,18;"NO.6 344 YDS";19,18;"PAR 4"  105i,150:75K,0:15,-5:20,0:0,-30:-20,0:-15,10 :-75K,-5:0,30  W202,130,10 :202,130,2:30,145,5  3p=202:q=130:h=30:g=145  par=4   >16,18;"NO.7 399 YDS";19,18;"PAR 4" t100d,150:30,15:120x,0:0,-30:-150,0:0,15 W230,150,10 :230,150,2:30,130,5