ZXTape! 0Created with Ramsoft MakeTZXOPEN T &COPYRIGHT &0:0:7: &/3,7;1;" 1984 J.Watson." &15,6;2;"ALL RIGHTS RESERVED" &"9 ,9 ;"PUBLISHED BY" &,,,,"CASES COMPUTER SIMULATIONS LTD ":"who will rigorously protect the":"copyright, of THE OPEN." :"Please note that unauthorised":"copying, hiring and lending or":"broadcasting of this software":"is strictly prohibited." &"" IOPEN   "Turn load"10 : N7:7:0:0:0:0:0::64511 '"     The OPEN      Course:- TURNBERRY   " ''" Course record:- "''"  63  Mark Hayes 1977 OPEN"''"  OPEN CHAMPIONS:- "''" 1977 Tom Watson (USA) 268"''"  EUROPEAN OPEN:- "''" 1979 Sandy Lyle 275" #5#0;0,8;" STILL LOADING " (M.5,502:7:19,0;:"":19,0;:"" G GRAPH w$$0000  ?~|> <??00 >>||00||8x|> |>  `@ @@  @@ p0@  ``<~~~~<8TT H@ @ @(<<<<|x~~<<<><|||<<<<<|<>>?==~~}<<<|<<<>|<<<>@ < @<<$$$$$$<<$(00($@<<<<$$(($$<<$$$$<<$ $Turnberry !T$#Y OPEN CHAMPIONSHIP GOLF   1984 J. WATSON  Z(A)=(A/57.27ez):Y(A)=(A/57.27ez):R()=L*EI+FO:Q()=FO+EI*(TW-K):D(A )=X+("450"-A)*(ACO*UA>CO/U)+(CO/U-A)*(AXACO/U):X()=("107"-NI*E)*C/te/te 64511:"":"": K=TW-(Q/EI):L=(R/EI): E$=""NO=X: $F=J̱E$:E$(F)<"0"E$(F)>"9"NO=X F:"23658",EI: a1:=""1:6:6:6:6:6:6:1:15  O=PLAY+JET:G(J,O)J/U)+W/(TE*TE+*TE):G(J,O)=G(J,O)+J O (F=JET-J:G(U,P(F))NI)-SX*(K1ET):R=HX*EI+FO*(L1>SE)+EI*(L1>FT)+SX*(L1>TW+U)-FO*(L1SE):"750":T=SI:J:TEE:"760":I=I1:SE:"2019":J:"9100":"770":OF=X:"300" HCH,PI:A$="":A$(FO)=(T-"32"):F=(K,L):A$=A$+F:CH,SX*TE: ɋO=PLAY+JET:G(J,O)=(J+*EI):G(U,O)=G(U,O)+(((P(O)-TE)/(TH*TE))*G(J,O))+((G(J,O)/U)**K(J+(*U)))+((W/(TE*TE))*G(J,O)):D(O)=P(O):O: װ".005",TE: A,B+U;" ";A+J,B+TH;"": A+J,B+J;" ";A,B+U;"": ,A,B+U;" ";A+U,B;" ";A+J,B+J;"": 2A+J,B+J;" ";A+TH,B+J;" ";A+U,B;"": %A+U,B;" ";A+TH,B+J;"": #A+TH,B+J;" ";A+U,B+U;"": %A+TH,B+U;"";A+U,B+U;"": 'A+U,B+U;"";A+TH,B+U;" ": "540" " ""251" "810":SE:F=X̺(*TW*U)+TW:F:F=XFI:245-F:U:F:F=JSE:J:240+F:=" "F>UBE:A+FO,B;H$(F-U):CH,PI:M,N;A$:CH,SX*TE:D=D-(ET+*EI)*(F=TH)-(EI+*EI)*(F=FO)+(EI+*EI)*(F=SX)+(ET+*EI)*(F=SE):C=X+C*(F=FI)+(C/SX*(FO+))*(F=THF=SE)+(C/EI*(SX+))*(F=SXF=FO): F: A,B;"a ";A+J,B;" h ": A,B;" b ";A+J,B;"c h ": A,B;" d ";A+J,B;" eh ": A,B;" f ";A+J,B;" qp ": A,B;" i ";A+J,B;" jh ":  A,B;" m ";A+J,B;" h": ,d"710":F=WY-JWY+J:F,WX-TH;" ":F:VO=DX:WY-J,WX-TH;"SLOPE":"926":WY+J,WX-U;J;SX;SL ;CH,PI:T=(K,L):T=EI*FOI>JK,L;"r":CH,SX*TE:TN,X;SE;U;B$;TN,J;"BALL IS IN THE HOLE"'G$(A(S));" HOLED OUT IN ";I:"640": =T=EI*FOI=JK,L;"r":CH,SX*TE:TN,X;SX;U;B$;TN,J;"BALL IS IN THE HOLE"'G$(A(S));" HOLE IN 1 ":"640": A:K,L;X;J$(((U+(R-L*EI))/U),((U+(Q-(Q/EI)*EI))/U)) J@TW,X;B$(EI*FO);A,B;" f ";A+J,B;" g ":CH,TE*SX:"660" ]JTN,X;X;B$:"FORCE (1300)? ";E$:NI:NONO=J:BAD:"349" ^!E=E$:ETN*FTBAD:"349" cTTW,X;"FORCE-";E;:"DIRECTION (0360)? ";E$:NI:NONO=J:BAD:"355" d D=E$:DCO*UBAD:"355" f.TW,X;"FORCE-";E;" : DIR-";D:S$="C""365" h>#X;J,X;" IS SELECTION CORRECT (Y/N) ? ":"810" jE$=:E$="N""661":"349" kE$"Y""362" mRTN,X;" ~SPACE~ TO START AND STOP CLUB ";A+U,B;" ":"860":D=D(D) n" ""366" re"810":F=X̺(*TW*U)+TW:F:CH,PI:F=XU:U:262-F:F:F=JFO:U:260+F:=" ""390" sF:U:"265" iCH,SX*TE:BE:A+U,B;F$(F):E=E-(TE*FI+*TW)*(F=J)-(ET+*EI)*(F=U)+(ET+*EI)*(F=FO)+(FI*TE+*TW)*(F=FI) +I=I+J:TN,X;B$(EI*FO):"710":E-#X;J,FI;" PLEASE WAIT A MOMENT ": H3"860":#X;j,fo;"PRESS ~ENTER~ TO CONTINUE ": R J,-FT: \#X;X,X;B$: pF=XY0FI:.04|# =,F:F: 0TN,X;"WRONG CLUB";D$:"620":"1000" W=X(MOOFW$="C") WY-J,WX-U;"WIND" J:J:WY,WX-U;" ";WY+J,WX-U;" ":OT=(WX+J)*EI-Y(VO)*SX:LO=(TW-WY)*EI-Z(VO)*SX:OT,LO:"12"*Y(VO),"12"*Z(VO):F=-"34"̰"34"Ͱ"68":OT,LO:FI*Y(VO+F),FI*Z(VO+F):F X: "LI=(R,Q):LID$=" BAD LIE ": D$=" GOOD LIE ": 8LI=(R,Q):LID$=" IN A BUNKER ": )D$=" ON THE EDGE OF A BUNKER ": ZTN,X;" OUT OF BOUNDS - PENALTY STROKE ":I=I+J:F=TW-ET-J:.04|# =,F:F:"620" "540" "710":HK=X:RIC=X:BOU=X 6VO=VI:"920":A+FO,B;" ":WWY+J,WX-U;J;W "660" OTW,X;B$(y1+j):" CLUB (1-10)?  ";E$:NI:NONO=J:BAD:"1010" E=E$:ETEBAD:"1010" YTW,J;"CLUB-";E:" DIRECTION (0360)?  ";E$:NI:NONO=J:BAD:"1020" !D=E$:DCO*UBAD:"1020" UTW,NI;": DIR-";D:" FORCE (1100)?  ";E$:NI:NONO=J:BAD:"1030" "C=E$:CTE*TEBAD:"1030"  ,TW,TN;": FORCE-";C:S$="C""1100" >#X;J,X;" IS SELECTION CORRECT (Y/N) ? ":"810" E$=:E$="N""661":"1010" E$"Y""1052" LGTN,X;" ~SPACE~ TO START AND STOP CLUB ":"860":D=D(D) x"250" F".95"(HK=Jƥ>U/TH))TN,X;" RICOCHET FROM A TREE..... ":U/TE,-TE:D=D+"150"+*"60":C=C/TH*U:LI=J:RIC=J:F=XEI*FO:.04|# =,F:F Xsi>"36"si<"35"va=j+(si="33"(si="34"li))+u*(si="33"li)+th*(si="38"):"700" ׊C=C-(c/fi)*(li=jsiɰ"38")-(C/TH)*(SI="33")-(C*.15~)*(MO>X)-(C/FI)*(SI="34")-(C/SX)*(SI=EI*FOSI="38")-(.375?*C)*(SI="39") tWS=X()*(X2+(E*E-(E*2.2 )))*W/"2000":Q=(O+X()*Z(D)+WS*Z(V)):R=(P+X()*Y(D)+WS*Y(V)):K1=M:L1=N:SE KY1"990" +LI=X:ET+J,Y1:T=(K,L):T=NI*FO"420" T=TE*TE"430" T="97""440" KT="34""940":" IN LIGHT ROUGH ..... ";D$:F=XFI:fo/te,TE-U*F:F DT="39"" FORE.......... ";:U,EI:" IN THE STANDS " T="33"" IN HEAVY ROUGH ...............":F=XSX:J/U,-U*F:F:OF(>".95")(RIC=Jƥ>J/U)(HK=Jƥ>U/TH)TN,X;B$(EI*FO);TN,X;" LOST BALL ....  PENALTY DROP ":I=I+J:"620" 8T="33""940":TN,X;" IN HEAVY ROUGH .... ";D$ 3T="38""960":"";D$:F=JFI:fo/te,-U*F:F JT="32""  YOU ARE IN TREES ":F=XFI:fo/te,-U*F:F  T>"63""990" =T="35"" ON THE TEE ":U,"-12" LT="28"" REBOUND FROM BANK ":"4500":BOU=U:"2015" XT="37"" IN WATER -  PENALTY AND DROP ":I=I+J:"4500":BOU=TH:"2015" '}CO:"580":"540":TEE:W$="V"W=W+K(J+(*U))*(>U/THWJ):VI=VI+((*FI)-U)*(VI<"356"VI>TH):V1=D(VI):"9701" * "1000" ;T1=T:D=D-CO*(D>CO)+CO*(DCO):F=XU*X4:.005y# =,TE:F 5Q=Q+FO*Z(D):R=R+FO*Y(D):SE:KY1 9T=(K,L):T=X8(T="37"T1=T)T="100"T="97""4506"  Z"610":T(A(S))=T(A(S))+I:Y(A(S),H)=I:G(U,A(S))=G(U,A(S))+I-R$(MED,H):LH=X+NI*(H>NI) F=J+LHNI+LH:SE+F-LH,FO-F;F;SE+F-LH,EI;Q$(MED,F);SE+F-LH,TE+TH;R$(MED,F):F:F=J+LHH:COL=SX-FO*(Y(A(S),F)>R$(MED,F))-FI*(Y(A(S),F)JZ>J)) HCOL=U-(SCX):EI,X5-SC;SX;COL;J;SC:SCEI,X4;"EVEN PAR" SCXEI,X5;" OVER" 5"800":G(J,A(S))=H:FT:S$="R"S=PLAYS>J"7500"  SJG(U,P(F))=G(U,P(F-J))F+TH,X;" "; ]*G(U,P(F))=G(U,P(J))J:X:SE:PL=PL+J ^P(F)XE$="+"+G(U,P(F)) qCF+TH,X7-E$;E$;Y1-G(J,P(F));G(J,P(F)):F:PLAY>JH>X"7500" v L(F=JPLAY-J:Y(A(F),H)Y(A(F+J),H)F: `(Q=A(F):A(F)=A(F+J):A(F+J)=Q:"7500" xHJ:J:SE:X::Z=FO" FINAL SCORES ":"7802" y*" OVERNIGHT SCORES " zh"  Player  Round Scores  Tot 1 2 3 4 "'' }VF=JET:B(Z,P(F))="71"*Z+G(U,P(F)):Z>JO=JZ-J:B(Z,P(F))=B(Z,P(F))-B(O,P(F)):O ~P(F)JNI,ET;FI;"AFTER PLAY OFF" !5%PA>XFT,ET+J;SX;PA;" OVER PAR" !6)PA#X;J,X;" VARIABLE OR CONSTANT WIND(V/C)?":EE:"810" $/0W$=:W$="V""9700":A$=" VARIABLE ": $2W$"C""9263" $5A$=" CONSTANT ":EE $8G" SPEED (0 TO 20)? ";EI;" ";E$:NI:NONO=J:BAD:"9272" $;!W=E$:WTE*UBAD:"9272" $>W=XV=X:VI=X: $AEE $DK" DIRECTION (0 TO 360)?";EI;" ";E$:NI:NONO=J:BAD:"9284" $G%V1=E$:V1CO+COBAD:"9284" $JVI=D(V1):"9701": $Vk"23562","99":"23658",EI:"23609","30"::#X;X,X;B$:J,X5*U:tw,EI;" STOP THE TAPE ":"800" $W4="".01z# =,513:.01z# =,y0:9303W$ $h"9400":"9500" $!CH,PI:X:X:X:X:FI:SE:FI: $""'"   v"'"   18v"'"  w"'"  w"'" wy y y  "'" x  "'"  "'" vxx"'" ";':ch,sx*te:"  J.WATSON 1984 " $SX:X:J:F=XEIU:"128","104"+F:-EI,TW+U:"87","118"+(F/U):SE,X:F:F=XU:"56","128"+F:FI-F,X:J:"56","128"-F:FI-F,X:F:X:FI:X:SE $ CH,PI:F=TNX-J:FI;FO;F,y1-F;"w "(F+J):F:F=EIFT:F,TW+U;"":F:FT+J,TW+J;"wy";ET-J,TW+J;"vx":CH,SX*TE: %"9502":T(FO):Y(FO,ET):PLAY=J:A(FO):G$(ET,FT-U):M(FO):B(FO,ET):G(U,ET):F=JET:P(F)=F:F:F=JFO:A(F)=F:F:EE:"9810":S$="P"S=J:A(S)=J:G$(J)="":"9530" %#4EE:#X;J,FO;" NO. OF PLAYERS (1-4)? " %$9"810":"820":E$=:E$=""E$<"1"E$>"4"BAD:"9508" %% PLAY=E$:EE:O=JPLAY:A(O)=O %&yFT-U,X;U;"PLAYER:-";O:O+TH;X;J;" NAME ?  ";Z$:Z$FT-UFT,J;"MAX 13 CHARS.":BAD:"9510" %0|G$(O)=Z$:U;FT,J;G$(O):G(U,O)=X:G(J,O)=X:Q=JTE:.05|L,Q:.05|L,Q*U:Q:"23658",EI:FT,J;" ":O %?Z=X:"9260" %DDW=XZFT+J,J;" BEAUTIFUL ";ET-J,J;" CALM DAY. ":"9558" %S^J;FT+J,J;"SPEED -";FT+U,J;"FROM -";FT+J,TE+U-W;U;W;FT+U,TE+U-V1;U;V1;FT-J,FI;A$ %V>Z=J:S$="R""860":"880":"800":"810":"820":"9600" %WS$="P""9900" %X"860":"830":EE:O=PLAY+JET:G$(O):D(O)=J+(*ET):G(J,O)=J+(*TE):G(U,O)=G(J,O)/U-G(J,O)*(.12}u[+(*TH)/FO)+(D(O)-TE)/30*G(J,O)+(W/(TE*TE))*G(J,O):O %]"J.Nicklaus","T.Weiskopf","T.Watson","B.Crenshaw","P.Oosterhuis","N.Faldo","L.Trevino","S.Ballesteros","A.Palmer","I.Aoki","B.Langer","T.Jacklin","G.Player","J.Miller","T.Kite","K.Brown","N.Coles" %{BH=X:TN:Z=J:"600":"7000":EE:"840":"805":SE:X:J:X: %Z=JFO:MED=J %JH=JET:"780":S=JPLAY:"9920":F*U:"5000":S:H=ETS$="C""7800" %H=ET(Z=FOS$="R")"9605" %S:'''''''" ~S~ - TO SAVE GAME"'''" ~ENTER~ - TO CONTINUE":"810" %="S""9800" %13 "9603" %H:S$="R""9615" %/:ZETBAD:"9901" &?"780":"9920":EE:"9810":S$="C"S$="R""9400":"9507" &"8600":"9900" &oX:SE:X::"9000":"750":"520":J:TEE:"760":MO=X:li=x:of=x:"999"::"9100":J:"770":"300": '1"G GRAPH""64512","1024":"Turnberry"ʰ"9300" jxuqrdZetklW%$#!><'&^][@|}`_p F#B@ ] ]e 7\aRL299888777666655555444444333333222222111111110000000 mϧ                                 Ч              )s3624284621674772225284274554521773914114402094095004313623783931674112224654274134301373913794001683814873772 la m2 SLICEHOOK GOOD HOOK SLICE< SOFT SOFT GOOD HARD HARD AILSA CRAIG MAC SICCUR BLAW WEARIE WOE-BE-TIDE FIN'ME OOT TAPPIE TOORIE ROON THE BEN GOAT FELL BRUCE'S CASTLEDINNA FOUTER MAIDENS MONUMENT TICKLY TAP RISK-AN-HOPE CA CANNY WEE BURN LANG WHANG AILSA HAME pM