ZXTape! 0Created with Ramsoft MakeTZXSt.AndrewsB{2{ \D{81983 Artic Computing Written by Derek Wilson I:4:5::9998':1;3,13 ;"Golf" 1:5,5;"Welcome to ST. ANDREWS. " P15,4;1;1;6;1;"Artic Computing Ltd." z(2):200 3shot=5:clubflag=0:retflag=0  1 0helpflg=0:bflag=0:FLAG=0 236099\,100d 85004! u:9998':4,8;"1 HELP";6,8;"2 PLAY";9 ,10 ;"WHICH (1-2) ?"  "1""2"16 (="1".1}L,20::2000 .1}L,20 :N=07  U:"T"+N,U 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( &RT(2,18):I=12:J=118:T(I,J)=0:J:I (19998':10 ,7;"1 or 2 players?" )P$=:=""41) *.1}L,20 --p$"1"p$"2".2~L,10 :40( 2pl=p$ < P 4 Q p(2) Ri=1pl:9998':10 ,25;" ";10 ,7;"player ";i;" handicap ";:7000X:PR=Y$:PR>2882R S%p(i)=0.8L-pr/480:z(i)=pr Ti U l(2) Z(l(1)=0:l(2)=0 d c=0 eYza=*30:ya=*30:ll=(*2):ll=1za=0-za:ya=0-ya f:9998' nC10 ,7;"HOLE NUMBER ? ";:7000X:y$=""102f on=y$:b=1pl p c=0 q 5 rMhd=7200 +20*n:wh=400+20*n:wd=5000+20*n s twh=400291# vn>18102f w#pl=1helpflg1hd: xwh ywd 1 3460 i=025523 00;i,75K:0;0,-6 13 ,0;"0";13 ,5;"100";13 ,11 ;"200";13 ,16;"300";13 ,22;"400";13 ,27;"500" 60;0,502:0;0,502 i 18,20;"player ";b h,g whelpflg=11:1;l,k:100d:0;l,k:h=l:g=k:c=f:17,20;c:helpflg=0 3000 U20,20;"angle ? ";:7100:y$""a=y$:8000@:182 180 r=:r241206 #(g+y/2)<15206 $(g+y/2)>161206 209 #20,0;"OUT OF BOUNDS" {21,0;"TRY AGAIN":502:20,0;" ":21,0;" ":9999':wd c=c+2:165 .3,8 -bflag1h=h+x/2:g=g+y/2 4000 ,bflag=1x=x-x:y=y-y:bflag=0 3x/2,y/2,tt/2*:9999':h,g wd c=c+1 17,20;c *v=((p+za-h)*(p+za-h)+(q+ya-g)*(q+ya-g)) v1271 v=((p-h)*(p-h)+(q-g)*(q-g)) v10 4200h v10 170 Fz=10 13 :e=3-3-1:.1}L,z*e:e:z  l(b)=l(b)+c  sc=c-par  T(b,n)=c (19,0;"PLAYER ";b;"=";l(b) (sc=020,0;"PAR ";c ,sc=-120,0;"BIRDIE ";c +sc=-220,0;"EAGLE ";c .sc=-320,0;"ALBATROS ";c *sc=120,0;"BOGEY ";c 1sc=220,0;"DOUBLE BOGEY ";c -sc>220,0;"DISASTER ";c  250 !b " 100d # $" Hole player 1 player 2" %50,0;1;"_____ ________ ________" &Pj=118:2;j;9 ;T(1,j);17;T(2,j):j (_b=12:10 ,20;"ROUND SCORE";10 ,20;1;"_____ _____" )9998':9 +b*3,20;"player ";b;10 +b*3,20;"score ";l(b):N=011 +b*3,20;"net sc. ";l(b)-z(b) *b +YX$="C"x$="c"20,2;" PRESS ANY KEY TO GO ON":0:100d , 6000p i6;1;1,1;"1st";1,14;"Burn";11 ,1;"370 YARDS"  9999' 210,110n,10 :210+za/10 ,110n+ya/10 ,1:35#,112p:10 ,0:0,5:-10 ,0:0,-5 3p=210:q=110n:h=40(:g=114r 1:par=4: h6;1;1,1;"2nd";1,7;"Dyke";11 ,1;"411 YARDS" 205,130,10 :205+za/10 ,130+ya/10 ,1:40(,120x:10 ,0:0,5:-10 ,0:0,-5 3p=205:q=130:h=45-:g=122z 1:par=4: m6;1;1,1;"3rd";1,18;"Cartgate";11 ,1;"352 YARDS"  9999' ί200+za/10 ,120x+ya/10 ,1:200,120x,10 :40(,115s:10 ,0:0,5:-10 ,0:0,-5 3p=200:q=120x:h=45-:g=117u 1:par=4: p6;1;1,1;"4th";1,10 ;"Ginger Beer";11 ,1;"419 YARDS"  9999' 230+za/10 ,110n+ya/10 ,1:230,110n,10 :35#,100d:10 ,0:0,5:-10 ,0:0,-5 3p=230:q=110n:h=40(:g=102f 1:par=4: q6;1;1,1;"5th";1,10 ;"Hole o'Cross";11 ,1;"514 YARDS" 9999':245+za/10 ,135+ya/10 ,1:245,135,10 :10 ,120x:10 ,0:0,5:-10 ,0:0,-5 3p=245:q=135:h=15:g=122z 1:par=5: m6;1;1,1;"6th";1,10 ;"Heathery";11 ,1;"374 YARDS"  9999'  210+za/10 ,130+ya/10 ,1:210,130,10 :30,110n:10 ,0:0,5:-10 ,0:0,-5  3p=210:q=130:h=35#:g=112p  1:par=4: i6;1;1,1;"7th";1,14;"High";11 ,1;"359 YARDS"  9999' 210+za/10 ,120x+ya/10 ,1:210,120x,10 :40(,135:10 ,0:0,5:-10 ,0:0,-5 3p=210:q=120x:h=45-:g=137  1:par=4: 0j6;1;1,1;"8th";1,14;"Short";11 ,1;"178 YARDS" 19999':150+za/10 ,110n+ya/10 ,1:150,110n,10 :60<,100d:10 ,0:0,5:-10 ,0:0,-5 23p=150:q=110n:h=65A:g=102f 31:par=3: Dh6;1;1,1;"9th";1,14;"End";11 ,1;"307 YARDS" E 9999' F200+za/10 ,120x+ya/10 ,1:200,120x,10 :60<,120x:10 ,0:0,5:-10 ,0:0,-5 G3p=200:q=120x:h=65A:g=122z H1:par=4: Xq6;1;1,1;"10th";1,14;"Bobby Jones";11 ,1;"318 YARDS" Y 9999' Z200,120x,10 :200+za/10 ,120x+ya/10 ,1:557,125}:10 ,0:0,5:-10 ,0:0,-5 [3p=200:q=120x:h=60<:g=127 \1:par=4: lG4:0,24;5;" ";1,25;" ";2,26;" ";3,26;" ";4,27;" ";5,27;" ";6,28;" ";7,28;" ";8,29;" ";9 ,29;" ";10 ,30;" ";11 ,31;" " ms1:6;1;1,1;"11th";1,14;"HIGH";11 ,1;"172 YARDS" n180,120x,10 :180+ZA/10 ,120x+YA/10 ,1:80P,110n:10 ,0:0,5:-10 ,0:0,-5 o3p=180:q=120x:h=85U:g=112p p 9999' v1:par=3: 5,0;4;5;" ";4,0;" ":t=611 :o=0t-5:t,o;4;5;" ":o:t:9999' w1:6;1;1,1;"12th";1,14;"Heathery";11 ,1;"316 YARDS" 200+za/10 ,130+ya/10 ,1:200,130,10 :40(,120x:10 ,0:0,5:-10 ,0:0,-5 3p=200:q=130:h=45-:g=122z 1:par=4: {1:6;1;1,1;"13th";1,11 ;"Hole o'Cross";11 ,1;"398 YARDS"  9999' 220+za/10 ,120x+ya/10 ,1:220,120x,10 :35#,125}:10 ,0:0,5:-10 ,0:0,-5 3p=220:q=120x:h=40(:g=127 1:par=4: s1:6;1;1,1;"14th";1,14;"Long";11 ,1;"523 YARDS" `0,100d:2;70F,10 :100d,-10 :5,-20:0,101e:70F,10 :100d,-10 :5,-20:9999':240+za/10 ,130+ya/10 ,1:240,130,10 :10 ,110n:10 ,0:0,5:-10 ,0:0,-5 3p=240:q=130:h=15:g=112p 1:par=5: w1:6;1;1,1;"15th";1,12 ;"Cartgate";11 ,1;"401 YARDS"  9999' 220+za/10 ,120x+ya/10 ,1:220,120x,10 :30,125}:10 ,0:0,5:-10 ,0:0,-5 3p=220:q=120x:h=30:g=127 1:par=4: Ѐ1:6;1;1,1;"16th";1,9 ;"Corner of the Dyke";11 ,1;"351 YARDS"  9999' ү210+za/10 ,105i+ya/10 ,1:210,105i,10 :30,100d:10 ,0:0,5:-10 ,0:0,-5 3p=210:q=105i:h=35#:g=102f 1:par=5: s1:6;1;1,1;"17th";1,14;"Road";11 ,1;"461 YARDS" 9999':230+za/10 ,110n+ya/10 ,1:230,110n,10 :20,120x:10 ,0:0,5:-10 ,0:0,-5 3p=230:q=110n:h=25:g=122z 1:par=4: x1:6;1;1,1;"18th";1,6;"Tom Morris";11 ,1;"354 YARDS"  9999' 220,120x,10 :220+za/10 ,120x+ya/10 ,1:40(,125}:10 ,0:0,5:-10 ,0:0,-5 3p=220:q=120x:h=45-:g=127 1:par=4: HELP " -------------------" " IRON","DISTANCE" " -------------------" I=210 *" ";I,(11 -I)*15+70F:I " -------------------" " WOOD","DISTANCE" " -------------------" I=14 *" ";I,(6-I)*20+180:I  D: 6;2;1;7;"ANY KEY FOR MORE "  =""2058   :  " -------------------"  " PUTTER","40 YARDS" " -------------------" " EACH SHOT CAN BE" " GIVEN A % FACTOR."  " E.G 50%=20 YARDS" !D: 6;2;1;7;"ANY KEY TO CONTINUE " " 0 % CLUB &clubflag>0bflag=(*2) 3clubflag>3clubflag=1:bflag=0 ?clubflag>1pr<10 clubflag=1:bflag=0 Dclubflag=1c$="i":i=10 :clubflag=0:3202 120,14;"Iron Or Wood ";1;"?" C$=:=""3015 .1}L,20 30 C$="I"C$="i"3200 C$="W"C$="w"3300 HC$="H"C$="h":l=h:k=g:f=c:helpflg=1:2000:115s 3010 20,12 ;" ":20,20;"CLUB NO.";1;"?";:FLAG=2:7000X:8000@:FLAG=0:y$=""3200 i=y$ .retflag=1:3301 :retflag=0 S100d3206 F21,0;"TOO HARD":502:21,0;" " 3202 20,10 ;"Straight,fade,hook ?";:flag=1:shot=1:7000X:.1}L,20:flag=0:shot=0:a$=x$:20,10 ;" ":retflag=1RETFLAG=0: a$="s"a$="S"tt=.5 a$="f"a$="F"tt=-3 a$="h"a$="H"tt=3 0d=S/100d*((11 -I)*15+70F) 3400H 20,12 ;" ":20,20;"WOOD NO. ";1;"?";:FLAG=1:7000X:8000@:FLAG=0:y$<"1"Y$>"4"3300 w=y$:20,16;"STRENGTH ? ";:7100:s=y$:20,16;" ":retflag=1RETFLAG=0: S100d3306 F21,0;"TOO HARD":502:21,0;" " 502:3301 .retflag=1:3206 :retflag=0 (a$="s"a$="S"tt=.5:3311 (a$="f"a$="F"tt=-3:3311 a$"h"a$"H"3306 tt=3 0d=S/100d*((6-W)*20+180) H 117,1;"180";17,7;"000" 115,4;"090";19,4;"270" 2:1;43+,35#,10 :43+,25:0,20:33!,35#:20,0:36$,28:13 ,13 :36$,42*:13 ,-13 1: 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 &20,0;"YOU ARE IN WATER" 'xx=((176-g)/8-0.5) yy=(h/8) Ai=010 :xx,yy;"":3:xx,yy;"":3:i  xx,yy;" " &21,0;"ONE SHOT PENALTY"  200 M20,0;" ":21,0;" " c=c+1:4060 %20,0;"YOU ARE IN SAND" 'xx=((176-g)/8-0.5) yy=(h/8) Si=010 :2;xx,yy;"":3:xx,yy;2;"":3:i  xx,yy;" " &21,0;"USE 10 IRON ONLY" &200:clubflag=clubflag+1 K20,0;" ":21,0;" "  4060 A20,0;"IN HEATHER":21,0;"USE 10 IRON" 'xx=((176-g)/8-0.5) yy=(h/8) Mi=010 :xx,yy;"":3:xx,yy;"":3:i:xx,yy;" "  200 K20,0;" ":21,0;" "  h:9998' i 1 j 3460 m19,20;c n?100d,90Z,502:100d+za,90Z+ya,3 px=h-p:y=g-q q 18,20;"PLAYER ";b rp=100d+za:q=90Z+ya u-h=100d+5*x:g=90Z+5*y v7;h,g,1 w7;h,g z17,20;"HOLE ";n |!20,20;"USE PUTTER" 64500:st>99c4225:"strength ";st 4600:"angle ";a x=st*(a*/180) y=st*(a*/180) 1;4;h,g,1 ?100d,90Z,502:100d+za,90Z+ya,3 $h=h+x:g=g+y:7;h,g,1  c=c+1 19,20;c v=((p-h)*(p-h)+(q-g)*(q-g)) v34225  !4,18;"Strength ?"; 7100:y$""st=y$ %4,18;" ":  4510 4,18;"Angle ?"; ?7100:y$""a=y$:4,18;" ":  4610  6000p :0:2,0;:u=16:;"":u Ru=016:9 ,u;"":u:8,2;"";8,3;"" (u=211 :u,12 ;"":u I11 ,11 ;"";11 ,12 ;"";11 ,13 ;"" @u=18:135,95_+u:45-,-20:u u=12:5:161+u,165:10 ,-15,/2:5,-12 ,/4:15,5,/1.5@:8,-5,-:-6,-30:-30,-12 ,/4:u 1;h,g  1: 9999':6 C4,16;"";4,20;"";4,22;"" C9 ,8;"":9 ,10 ;"";10 ,9 ;"" 39 ,20;" ":10 ,20;" " V0:u=120:138-u*1.5@,155+u:u*4,0:u Eu=16:170+u,175-u:85U-u,-20:u 66:3,25;"";5,27;"" h,g  1:  6 [7,9 ;"":4,12 ;"";4,14;"":5,14;""  5 Ji=05:70F,162+i:177,-6,/4:i >6:10 ,14;" ";9 ,22;"" ^6,23;"";7,23;"";7,26;"";6,20;"":h,g  1:  6 [4,10 ;"";5,10 ;"";5,17;"";11 ,10 ;"" Z11 ,15;"";5,21;"";6,20;"";3,28;"" ]11 ,28;" ";7,24;"";6,25;"";6,27;"" C3,19;"";4,19;"";5,19;"" h,g:1:  6 10 ,3;"";7,6;"";8,9 ;"";7,10 ;"";8,10 ;"";9 ,10 ;"" 7,13 ;"";8,12 ;"";9 ,13 ;"";4,9 ;"";3,12 ;"";3,8;"";4,8;"";2,8;"" r3,19;" ";4,20;"";3,26;"";6,22;"";8,23;"" 4,26;"" 1:h,g:  6 3,6;"";3,9 ;"";4,10 ;"";3,14;"";2,15;"";4,17;"";1,20;" " s8,11 ;"";9 ,13 ;"";8,17;"";9 ,16;"";10 ,16;""  1: 5:4:0,26;" ";1,27;" ";2,28;" ";3,29;" ";4,30;" ";5,31;" ":4:1:9999'  6 9 ,7;"";9 ,14;"";4,15;"";1,12 ;"";1,19;"";3,19;"" r2,25;"";6,23;"";7,23;"";9 ,20;"";8,25;"" h,g  1: ( 6 )C3,10 ;"";9 ,14;"";7,16;"" *D8,16;"";10 ,16;"";9 ,16;"" .1:h,g: < 6 =6,14;"";7,14;"";9 ,9 ;"";8,11 ;"";9 ,20;"";10 ,19;"" >o3,18;"";4,18;"";4,24;"";6,21;"";7,19;"" A 1: P 6 QZ5,12 ;"";6,12 ;"";9 ,11 ;"";8,13 ;"" RZ7,23;"";7,20;"";9 ,18;"";10 ,18;"" V1:h,g: d 6 eo8,15;"";9 ,16;"";7,18;"";8,18;"";9 ,18;"" fC7,20;"";8,23;"";5,21;"" j 1 kH,G n x 6 y6,9 ;"";6,13 ;"";7,13 ;"";8,14;"";6,16;"";7,16;"";6,22;"" }1:h,g:  6 4,6;"";8,6;"";5,11 ;"";3,12 ;"";4,13 ;"";5,13 ;"";4,14;"" o4,18;"";5,19;"";7,25;"";7,29;"";8,30;"" 1:h,g:  6 2,6;"";3,7;"";3,8;"";5,8;"";1,10 ;"";2,11 ;"" 4,12 ;" ";3,14;"";5,18;"";4,22;" ";5,24;"";6,24;"" 03,28;" ";7,30;"" 1:h,g:  6 5,7;"";3,10 ;"";2,11 ;"";3,13 ;"";4,13 ;" ";5,13 ;"" q1,21;"";6,21;" ";5,22;"";5,26;"";7,29;"" V1:u=16:75K+u,75K+u:180-u,12 ,-.5:u 1:h,g:  6 Ʉ4,7;"";5,7;"";4,10 ;"";6,16;"";5,17;"";6,20;"" C7,23;"";6,25;"";7,28;""  1 Ii=16:0,88X+i:255,-10 ,-.3:i 1:h,g:  6 p4,3;"";3,5;"";3,10 ;"";5,24;" ";6,24;"" ߈1:i=18:0,109m+i:125},-30:i:i=18:195,78N+i:60<,20:i i=18:30,100d+i:70F,30:i:i=18:101e,130+i:120x,-40(:i 1:8,5;1;" ";7,7;"";6,9 ;"";5,12 ;"" |9 ,6;1;"";10 ,9 ;"";11 ,12 ;"" 0:1:h,g: I1:i=16:0,110n+i:130,-30:i i10 ,12 ;"";9 ,12 ;"";0,12 ;"" (i=29 :i,30;"":i U1,28;"";2,29;"":i=18:i,18;"":i v11 ,16;"";10 ,21;2;" ";10 ,15;1;" " Ti=18:100d+i,96`-i:1;2;40(-i,0:i ~0:0:5:i=14:59;+i,155:0,-30,1:8,-20,-2:i 1:h,g: o 1: p'6,22;"GOODBYE" W XY$="" Y=0:X$=:=13 ƱX$>0.1}L,10 : ZPx$=12 .1}L,20:8;:" ";:8;:x$="":7000X ]+="C"Ŧ="c".1}L,20:291# ^shot=1 _%<480ů>5797001Y `FLAG=2X$="1"X$="10" a.1}L,20:X$; b0X$=1FLAG=1FLAG=2Y$=X$: lY$=Y$+X$:Y$=2 v 7001Y y$="" =0:X$=:=13 ƱX$>0.1}L,10 : ^x$=12 .1}L,20:f=1̱y$:8;" ";8;:f:y$="":7110 'X$<480ůx$>5797110 .1}L,20:x$; y$=y$+x$:y$=3  7110 4a$="Burn":7900 65,2;"The burn or stream is the";7,2;"Swilcan Burn which loops";9 ,2;"round to guard the green." 8*1;7,2;"_______ ____" GG6;20,1;" Press any key to continue ":0: Ha$="Dyke":7900 J5,2;"The dyke marked the boundary";7,2;"of the railway property,";9 ,2;"now owned by the Old Course";11 ,2;"Hotel." QG6;20,1;" Press any key to continue ":0: \a$="Cartgate":7900 ^5,2;"This refers to the gate in a";7,2;"cart track which led out";9 ,2;"towards the Eden estuary,";11 ,2;"and was used by fishermen." eG6;20,1;" Press any key to continue ":0: p"a$="Ginger Beer":7900 r5,2;"In the last century one Daw";7,2;"(David) Anderson had a";9 ,2;"ginger-beer stall; it must";11 ,2;"have been a memorable brew!" yG6;20,1;" Press any key to continue ":0: #a$="Hole o'Cross":7900 5,2;"Probably a reference to a";7,2;"cross that once stood here";9 ,2;"rather than any crossing of";11 ,2;"the course." G6;20,1;" Press any key to continue ":0: a$="Heathery":7900 5,2;"In former times the heather";7,2;"grew abundantly here, though";9 ,2;"there is less of it now." G6;20,1;" Press any key to continue ":0: a$="High":7900 5,2;"The most mountainous sector";7,2;"of the baffling undulations";9 ,2;"that give the OLD COURSE so";11 ,2;"much of it's character." G6;20,1;" Press any key to continue ":0: a$="Short":7900 ‹5,2;"Here at the top of the 'loop'";7,2;"is the first of the two";9 ,2;"short holes on the course." G6;20,1;" Press any key to continue ":0: a$="End":7900 ~5,2;"The 9th green marks the end";7,2;"or turning-point of the";9 ,2;"long walk home." G6;20,1;" Press any key to continue ":0: "a$="Bobby Jones":7900 5,2;"A tribute to the great";7,2;"American amateur,whom some";9 ,2;"rate as the greatest player";11 ,2;"in the history of the game." G6;20,1;" Press any key to continue ":0: a$="High":7900 5,2;"The short 11th shares it's";7,2;"relative heights with the";9 ,2;"7th, which it crosses." G6;20,1;" Press any key to continue ":0: a$="Heathery":7900 5,2;"Heathery (In) gets it's name";7,2;"from the heather which runs";9 ,2;"along the left-hand side of";11 ,2;"the fairway." G6;20,1;" Press any key to continue ":0: $#a$="Hole o'Cross":7900 &5,2;"Hole o'Cross (In) shares it's";7,2;"name with the 5th hole and";9 ,2;"the cross is thought to have";11 ,2;"stood by the shared green." -G6;20,1;" Press any key to continue ":0: 8a$="Long":7900 :5,2;"Long IS long, and is made";7,2;"longer by it's evil traps-";9 ,2;"Beardies,Benty,Kitchen,Hell";11 ,2;"and Grave." AG6;20,1;" Press any key to continue ":0: La$="Cartgate":7900 N{5,2;"Cartgate (In) shares it's";7,2;"name and it's green with";9 ,2;"the 3rd hole." UG6;20,1;" Press any key to continue ":0: `)a$="Corner of the Dyke":7900 b5,2;"The green is tucked into the";7,2;"corner of the dyke which also";9 ,2;"gives it's name to the 2nd";11 ,2;"hole." iG6;20,1;" Press any key to continue ":0: ta$="Road":7900 v5,2;"A metalled road runs directly";7,2;"behind and beside the putting";9 ,2;"surface." }G6;20,1;" Press any key to continue ":0: !a$="Tom Morris":7900 b5,2;"Tom Morris was the old R & A";7,2;"professional and greenkeeper." G6;20,1;" Press any key to continue ":0: h0:0,0:255,0:0,175:-255,0:0,-175 ,7;1,9 ;"Hole number ";n *3,(17-((a$)/2));a$: @%20 ,20;" ": !4/8600!:i=07:u:"a"+i,u:i !>/8601!:i=07:u:"b"+i,u:i !H/8602!:i=07:u:"c"+i,u:i !R/8603!:i=07:u:"d"+i,u:i ! ! !I0,14,62>,120x,126~,44,,12 ,0 !M12 ,30,63?,127,126~,126~,124|,480 !N12 ,30,63?,127,126~,127,255,255 !O255,255,63?,127,126~,126~,124|,480 's0:0,0:255,0:0,175:-255,0:0,-175:1: '0:0,0:255,0:0,175:-255,0:0,-175:0,75K:255,0:1: N