TROON X+WPX74:4:7::7,9 ;"TROON" ,9 ,4;" 1983 HORNBY SOFTWARE"  200  ?0,10 ;"TROON":0,10 ;1;"_____" @5,3;"Do you wish to see the club statistics?" .9 ,3;"- If so, press ""Y"" key." 311 ,3;"- If not, press any other key" ""16 =""17 ="Y"Ŧ="y"2000 :N=07  T:"T"+N,T N I0,16,568,124|,255,16,16,0 n=07  m:"m"+n,m n !I0,0,16,255,568,255,130,0 "n=07 # u:""+n,u $n %I0,0,146,255,568,568,40(,40( &mS(18):T(2,18):I=12:J=118:T(I,J)=0:S(J)=0:J:I (=0,9 ;"TROON":0,9 ;1;"_____" -03,0;"How many Players? (1 or 2)"; 2""502 3=""513 4 pl=() 5!pl1pl240( 6"=";pl 7Wpl=2"Stroke(S) or Match(M) Play?";:i$:i$"s"i$"S"i$"M"i$"m"557 8pl=2"=";i$ :Epl=1i$="s":bst=1:btp=1:bsp=1:80P 244+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 @15,20;"SEAL":16,18;"NO.1 362 YARDS" v250,120x:-150,0:-40(,-40(:0,502:40(,20:150,0 V70F,110n,10 :70F,110n,2:250,135,5 3p=70F:q=110n:h=250:g=135 1:par=4: F15,20;"BLACK ROCK":16,18;"NO.2 391 YARDS" x250,120x:-80P,-30:-130,35#:0,30:130,-30:80P,5 V502,140,10 :502,140,2:250,125},5 3p=502:q=140:h=250:g=125} 1:par=4: A15,20;"GYAWS":16,18;"NO.3 381 YARDS" d200,110n:-150,-20:0,30:150,20:0,-30 V60<,100d,2:60<,100d,10 :250,125},5 3p=60<:q=100d:h=250:g=125} 1:par=4: B15,20;"DUNURE":16,18;"NO.4 556 YARDS" |5,160:120x,-20:125},-30:-10 ,-20:-120x,20:-115s,30 Y235,100d,2:235,100d,10 :10 ,150,5 3p=235:q=100d:h=10 :g=150 1:par=5: =15,20;"GREENAN":16,18;"NO.5 194" V502,135,2:502,135,10 :150,135,5 3p=502:q=135:h=150:g=135 1:par=3: E15,20;"TURNBERRY":16,18;"NO.6 544 YARDS"  5,170:125},0:122z,-502:0,-35#:-524,0:-80P,25:-115s,20  W240,100d,2:240,100d,10 :15,160,5  3p=240:q=100d:h=15:g=160  1:par=5: D15,20;"TEL-EL-K":16,18;"NO.7 400 YARDS" 20,90Z:0,30:120x,40(:105i,-30:0,-40(:-105i,30:-120x,-30 W230,110n,2:230,110n,10 :30,100d,5 3p=230:q=110n:h=30:g=100d  1:par=4: 0I15,20;"POSTAGE STAMP":16,18;"NO.8 126 YARDS" 1W130,110n,2:130,110n,10 :60<,110n,5 23p=130:q=110n:h=60<:g=110n 31:par=3: DD15,20;"THE MONK":16,18;"NO.9 387 YARDS" Ex30,80P:130,20:80P,-10 :10 ,30:-90Z,20:-130,-30 FW225,100d,2:225,100d,10 :30,100d,5 G3p=225:q=100d:h=30:g=100d H1:par=4: XD15,20;"SANDHILLS":16,18;"NO.10 437 YDS" Yu10 ,130:95_,-10 :135,40(:0,15:-235,0:0,-45- ZV30,150,10 :30,150,2:240,160,5 [3p=30:q=150:h=240:g=160 \1:par=4: lB15,20;"RAILWAY":16,18;"NO.11 481 YDS" mV20,160,10 :20,160,2:250,160,5 n3p=20:q=160:h=250:g=160 p1:par=5: B15,20;"THE FOX":16,18;"NO.12 432 YDS" 5,170:115s,-10 :130,0:0,-40(:-125},-10 :-120x,10 :0,502 V20,150,2:20,150,10 :230,140,5 3p=20:q=150:h=230:g=140 1:par=4: A15,20;"BURMAH":16,18;"NO.13 468 YDS" w5,95_:120x,10 :130,-5:0,40(:-130,10 :-120x,-10 W240,120x,2:240,120x,10 :10 ,110n,5 3p=240:q=120x:h=10 :g=110n 1:par=4: @15,20;"ALTON":16,18;"NO.14 180 YDS" W130,120x,2:130,120x,10 :40(,120x,5 3p=130:q=120x:h=40(:g=120x 1:par=3: B15,20;"CROSBIE":16,18;"NO.15 457 YDS" L5,100d:250,0:0,40(:-250,0 W240,120x,2:240,120x,10 :10 ,120x,5 3p=240:q=120x:h=10 :g=120x 1:par=4: ?15,20;"WELL":16,18;"NO.16 542 YDS" O5,150:250,-502:0,502:-250,20 W240,130,2:240,130,10 :10 ,160,5 3p=240:q=130:h=10 :g=160 1:par=5: A15,20;"RABBIT":16,18;"NO.17 233 YDS" W160,110n,2:160,110n,10 :502,110n,5 3p=160:q=110n:g=110n:h=502 1:par=3: C15,20;"CRAIGEND":16,18;"NO.18 425 YDS" z15,100d:123{,20:112p,-20:0,40(:-112p,20:-123{,-20 W242,120x,10 :242,120x,2:30,120x,5 3p=242:q=120x:h=30:g=120x 1: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  6 27,13 ;" ":8,13 ;" " Z9 ,7;"":9 ,10 ;"":6,7;"":6,10 ;"" 'i=030:1,i;"":i  5 'i=030:0,i;"":i  1:  6 E6,22;"":5,14;"":7,15;"" .3,10 ;"":4,10 ;"" .2,6;"":6,6;"" 'i=831:1,i;"":i  5 'i=831:0,i;"":i  3 /i=89 :j=412 2 i,j;"":j:i  1:  6 ]10 ,20;"":10 ,16;"":11 ,7;"":7,7;""  5 (i=012 :i,13 ;"":i  3 /i=2202:3,i;"":i  1:  6 _8,15;"":5,20;"":7,28;"":10 ,26;""  3 8i=9 11 2:j=0142 i,j;"":j:i  1:  6 B8,7;"":7,9 ;"":4,9 ;"" 'i=030:1,i;"":i  5 'i=030:0,i;"":i  3 6i=13:j=37:j,i;"":j:i  1:  6 E3,12 ;"":3,14;"":6,12 ;"" H8,25;"":10 ,27;"":7,30;""  3 8i=516:j=710 :j,i;"":j:i  1:  6 E7,14;"":7,18;"":2,18;"" .7,20;"":2,20;"" 16,28;"":11 ,28;""  3 8i=12:j=2130:i,j;"":j:i  1: ( 6 )H10 ,14;"":6,14;"":10 ,16;"" */9 ,18;"":6,17;"" + 3 ,7i=242:j=0303 -"i,j;"":i+8,j;"":j:i . 1: < 6 =/5,20;"":7,18;"" > 3 ??i=152:j=116:i,j;"":j:i @:i=10 11 :j=1523:i,j;"":j:i A 1: P 6 Q.3,10 ;"":4,10 ;"" R 3 S'j=130:0,j;"":j T7i=68:j=130:i,j;"":j:i U8i=36:j=2030:i,j;"":j:i V 1: d 6 e,2,4;"":3,3;"" f 3 hGi=59 2:j=1303:i,j;"":j:i i@i=25:j=20282:i,j;"":j:i j 1 k'i=031:0,i;"+":i n x 6 y,2,4;"":5,3;"" z 3 {9i=9 10 :j=1525:i,j;"":j:i |8i=02:j=1520:i,j;"":j:i } 1:  6 ^9 ,15;"":10 ,15;"":9 ,21;"":10 ,21;""  3 @i=9 10 :j=6182:i,j;"":j:i @i=03:j=20302:i,j;"":j:i  1:  6 \6,14;"":8,14;"":7,12 ;"":8,12 ;""  3 Gi=042:j=5213:i,j;"":j:i Ai=10 11 :j=5213:i,j;"":j:i  1:  6 E5,13 ;"":5,15;"":7,14;"" E6,24;"":8,24;"":5,28;""  3 Qi=24:j=1312:i,j;"":i+8,j;"":j:i  1:  6 E6,21;"":4,22;"":6,26;"" 13,28;"":8,28;""  5 (i=011 :i,15;"":i  1:  6 \9 ,21;"":9 ,18;"":6,18;"":6,15;""  3 8i=35:j=1622:i,j;"":j:i 8i=58:j=2225:i,j;"":j:i :i=10 11 :j=1622:i,j;"":j:i  1:  6 E3,18;"":3,20;"":8,20;"" .7,25;"":8,25;"" .8,30;"":4,30;""  1: o 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)