ZXTape! 2 Golfing World - Side B CP Software John Hunt1983EnglishSportUnknownNoneOriginal'TZXed by Andrew Barker For Gary Poole 0Club Championship - Opencc ɃɃ=˃.Golf..John.Hunt.83 +63999:"bt":236077\,249 65159:"move" 9000(# 9770*&  600X ***VARIABLES*** 2ho=ho+1:g=0:yd=1:PO=0 7 8****************** F+++COURSE PRINTING+++ H4:4:0: JOb=021:b,0;5;"":b P1000+(ho*10 ) Rscale=32 /yd ^s0,4;1;"HOLE ";ho:0,13 ;1;yd;"yards":0,24;1;"par";par c d++++++++++++++++ n#####HITTING##### pXaw=0:la=4:man=0:m=0:"Direction(1-12)",d$:d$=""112p qd$>4112p rHd$(11)<480ůd$(11)>579112p sd$=1123{ t^d$(22)=47/ůd$(2)<46.ůd$(22)>579112p ud$=2123{ vfd$(33)=47/ůd$(33)<46.ůd$(33)>579112p w8d$(2)=46.Ưd$(3)=46.112p xd$=3123{ yHd$(44)<480ůd$(44)>579112p { di=d$:di>12 112p |1di=di+(((1+(*hc))-hc/2)/20) }21,0;z$ ~@(st-1,gr)=103gman=1:la=4:130 ?(st-1,gr)=96`man=1:la=4:130 8la=((st-1,gr))-32 :la=0la=4 &st-1,gr;1;0;"" di=di*deg 421,0;"CLUB...1w-4w..1i-9i..sw..w":c$ "c$="1w"cl=200:166 "c$="2w"cl=190:166 "c$="3w"cl=180:166 "c$="4w"cl=170:166 "c$="1i"cl=155:166 "c$="2i"cl=145:166 "c$="3i"cl=135:166 "c$="4i"cl=125}:166 "c$="5i"cl=115s:166 "c$="6i"cl=105i:166 !c$="7i"cl=85U:166 !c$="8i"cl=70F:166 !c$="9i"cl=557:166 c$="w"cl=35#:166 !c$="sw"cl=20:166 134 acl>169cl=cl-((10 -tee)*2):var=1+(*12 ):shot=cl+var:174 bcl>124|cl=cl-((10 -li)*1.5@):var=1+(*10 ):shot=cl+var:174 Vcl>64@cl=cl-((10 -si)):var=1+(*6):shot=cl+var:174 Gcl=cl-(10 -wb):var=1+(*4):shot=cl+var:174 Fbark=1shot>120xshot=shot/3:l=2:185 9bark=1shot=shot/1.43333:l=2:185 Grou=1shot>120xshot=shot/2.6&fff:l=5:185 8rou=1shot=shot/1.2:l=5:185 ?bun=1shot>64@shot=0:l=6:185 :bun=1shot=shot/1.5@:l=6:bun=0 st-1,gr;1;la;"":1:st-1,gr;1;0;"":1:st,gr;1;l;"":st-1,gr;1;la;"":1:st-1,gr;1;0;"" <man=1st-1,gr;4;0;1;" " ssta=st:ggr=gr st=st-(shot*scale)*di gr=gr+(shot*scale)*di ea=2060<2:.02{# =,a:a:10 :f=60<20-2:.02{# =,f:f *rou=0:bark=0:PO=PO+1 ƪst>2021,0;0;7;"OUT OF BOUNDS ":200:21,0;z$:PO=PO+1:st=19:aw=aw+1:198 Ȩst<121,0;0;7;"OUT OF BOUNDS ":200:21,0;z$:PO=PO+1:st=2:aw=aw+1:198 ʨgr<021,0;0;7;"OUT OF BOUNDS ":200:21,0;z$:PO=PO+1:gr=1:aw=aw+1:198 ̪gr>3121,0;0;7;"OUT OF BOUNDS ":200:21,0;z$:PO=PO+1:gr=31:aw=aw+1:198 aw>1PO=PO-1 w(st,gr)=33!21,0;0;7;"PENALTY STROKE ":gr=gr-2:PO=PO+1 U(st,gr)=34"21,0;"In the trees ":bark=1 m(st,gr)=38&bun=1:21,0;6;0;"BUNKERED";4;" " T(st,gr)=37%rou=1:21,0;"In the rough " ֟(st,gr)=103gst,gr;7;1;"":m=1:21,0;"ON THE GREEN IN ";PO;" ":100d:21,0;z$:218 מ(st,gr)=96`st,gr;7;1;"":m=1:21,0;"ON THE GREEN IN ";PO;" ":100d:21,0;z$:218 'st,gr;1;4;7;"" ژst=ygr=yyone=1+(*10 ):one=10 21,0;1;"IN THE HOLE ":g=1:100d:21,0;z$ cssta-1,ggr;1;la;"":man=1ssta-1,ggr;4;0;1;" " m=1222 9man=0:l=4:200:21,0;z$  ################## %%%%%GREEN%%%%% 4:4:7: 3sp=1+(*3):inc=1+(*3) sp=1g$="slow" sp=3g$="fast" sp=2g$="...."  inc=3h$="downhill put" inc=2h$="level put"  inc=1h$="uphill put"  C0,0;4;0;" GREEN ";ho;"...";g$;"...";h$  B13 ,18;1;"":14,18;1;"" q=3119-2:13 ,q;0;" ":.15~,40(:13 ,q-1;0;" ":.15~,20:q 913 ,18;" ":14,18;1;"" q=1929:13 ,q;0;" ":.15~,40(:13 ,q+1;0;"":.15~,20:q:13 ,29;" "  %%%%%%%%%%%%%%% +@@@@HITTING@@@@ ,man=0:g=0:14,18;1;"":(st-1,gr)=33!man=1:st+1,gr;0;"":303/ -5gr>18st-1,gr;0;"":303/ .Cst-1,gr;0;"":st=14gr=18gr=17 /Xst,gr;7;"":sa=st:ga=gr:"Direction (1-12)",j$:j$=""űj$>4303/ 08j$(1)<480ůj$(1)>579303/ 1j$=13128 2Nj$(2)=47/ůj$(2)<46.ůj$(2)>579303/ 3j$=23128 4Nj$(3)=47/ůj$(3)<46.ůj$(3)>579303/ 58j$(2)=46.Ưj$(3)=46.303/ 6j$=33128 78j$(4)<480ůj$(4)>579303/ 8 de=j$:de>12 303/ 9Gde=de*deg:"Strength (1-20)",f$:f$<480ůf$>5793139 :f$=1317= ;Hf$(22)<480ůf$(22)>5793139 <f$>23139 = be=f$:be>203139 >*sp+inc>4be>7be=be+1 ?*sp+inc<4be>7be=be-1 @Ytu=18:st,gr;" ":ssta=st:ggr=gr:gr=gr+(be*de):st=st-(be*de):PO=PO+1 Amst>2121,0;"Off the green":200:21,0;z$:PO=PO+1:st=19 Bkst<121,0;"Off the green":200:21,0;z$:PO=PO+1:st=2 Ckgr<021,0;"Off the green":200:21,0;z$:PO=PO+1:gr=2 Dmgr>3121,0;"Off the green":200:21,0;z$:PO=PO+1:gr=30 E 500 F!14,18;1;"" G@(st,gr)=33!g=1:st,gr;7;"":.4L,tu I.10 :man=1ssta+1,ggr;" " J!10 :ssta-1,ggr;" " L?g=1.8L,40(:14,18;1;"" M man=0 O ^@@@@@@@@@@@@@@ r////SCORE//// s U=U+1 t7:7:1: uh0,11 ;0;7;"SCORE CARD":21,5;3;"ENTER to continue":e$= x`b=118:b+1,2;1;"Hole ";b:b+1,10 ;"..........":b z0,22;4;n$ |v(u)=par:r(u)=PO }Vs=1U:s+1,13 ;4;"par";v(s);1;"... ";r(s);" ":s ~e$: //////////////// BUNKER c=1+(*3) ch=1+(*3):e=1ch:av=9 +(*4):bn=14+(*13 ):av,bn;6;"":av+1,bn;6;"":e   -----RIVER----- Af=021:zw=1+(*2):zw=1a$="" zw=2a$="" f,16;1;a$:f  ------------------- ====LAKE==== 10 ,20;1;"":10 ,21;1;"":11 ,20;1;"":11 ,21;1;"": ================== ..Tee shot.. )st,gr;1;4;7;"": ............ ___score & par___ E1:5:0::2,12 ;1;5;n$ ho=1OP=PO:rap=par #ho>1OP=OP+PO:rap=rap+par х5,6;"Holes played = ";ho:7,6;"Shots taken = ";OP:9 ,6;"Par = ";rap:birdie=OP-rap :birdie=011 ,6;7;"LEVEL PAR" Abirdie<011 ,6;7;birdie;" UNDER PAR" ?birdie>011 ,6;7;birdie;" OVER PAR" ځa=27:a,2;"":a,30;"":a:b=815:b,30;7;"":b,2;7;"":b ܘ15,3;7;"":15,28;7;"":15,3;1;7;"==":15,28;1;7;"==" 021,6;2;"ENTER to continue" e$  ____________________ .....Ball Moving..... Dsharp=44,:sa=176-(sa*8):ga=(ga*8)+3 65165,17  65160,ga:65161,sa #65164,0:65171 ssta-1,ggr;" " A=1(be*2) sharp=sharp-2 *ga=ga+(4*de):sa=sa+(4*de) 565160,ga:65161,sa:65164,1  .1}L,sharp:B=1A:B  65171 +14,18;1;"":7 665160,ga:65161,sa:65164,0: 65171 A & X''''Main Program'''' Y 30 ] 70F ^ 452 _xxx playing the ball xxx c 110n vm=1650 w 110n z 630v  xxxxxxxxxxxxxxxxxxx vvvv ball on green vvvv g=1700  250 qst=14-((y-st)+*3):gr=18-(((yy-gr)*3)+*3):st=14gr=18gr=17  300, g=1700  656  vvvvvvvvvvvvvvvvvvvvvv  370r  460 champ=1718  800  ho1810 champ=1935 ho1810  600X  ___Players Scores___ # 806& %1:5:1::1,9 ;1;5;"PLAYERS SCORES":3,9 ;7;"Hole ";ho;" Par ";par: &Vp(8):d(8):b$(8,12 ):b=18:b$(b):b:860\ *ue=18:d(e)=par+((1+(*4))-2):d(8)=PO:;" ";b$(e);"......";(d(e))::e +n(1)=n(1)+d(1):n(2)=n(2)+d(2):n(3)=n(3)+d(3):n(4)=n(4)+d(4):n(5)=n(5)+d(5):n(6)=n(6)+d(6):n(7)=n(7)+d(7):n(8)=OP ,!a=18:p(a)=n(a):a /?21,8;2;"ENTER to continue":e$:880p \O"J.Nicholson","L.Bennett","G.Dean","E.Hunt","C.Wilson","D.Peel","E.Horner",n$ p.....Bubble sort r9::2,10 ;1;5;"LEADER BOARD": uza=18:b=8(a+1)-1:p(b):a=144164:b=07:c:a+b,c:b:a #P0,0,0,0,0,8,42*,126~,0,96`,240,240,240,224,64@,64@,0,32 ,112p,112p,248,248,32 ,32 ,8,32 ,16,16,4,4,4,16,568,72H,568,8,8,8,8,104h,140,76L,40(,24,8,20,20,20,12 ,12 ,8,24,40(,84T,148,20,12 ,12 ,8,8,12 ,22,21,20,0,0,0,255,255,129,129,255,60<,126~,255,165,255,165,165,231 #Z0,0,0,255,255,169,169,249,128,64@,160,84T,168,84T,170,85U,170,85U,170,84T,168,80P,160,64@,10 ,21,42*,85U,170,85U,170,85U,170,85U,170,21,10 ,5,2,1,8,32 ,32 ,128,64@,64@,16,16,2,7,7,2,0,0,0,0,7,17,65A,17,7,1,1,1,1,1,97a,241,96`,0,0,0,568,568,16,568,84T,40(,40(,40(,568,568,16,124|,16,40(,68D,130 %;:10 ,0;0;"Please write your name":n$ %& ho=0 %.4:7:1::0,0;5;n$:8,2;"PLEASE STATE YOUR HANDICAP..":h$:h$>29518.% %/3h$=1Ưh$>47/Ưh$<58:95233% %0h$=""9518.% %1uh$=1(h$<480ůh$>579)21,0;"INCORRECT":100d:21,0;z$:9518.% %2h$(1)<480ůh$(1)>579ůh$(2)<480ůh$(2)>57921,0;"INCORRECT":100d:21,0;z$:9518.% %3lhc=h$:hc<0hc>11 21,0;"INCORRECT":100d:21,0;z$:9518.% %5:8,2;"HANDICAP ";hc;" CODE = ":c$:c$321,0;"INCORRECT":100d:21,0;z$:9518.% %6c$(1)<480ůc$(2)<480ůc$(3)<480ůc$(1)>579ůc$(2)>579ůc$(3)>57921,0;"INCORRECT":100d:21,0;z$:9518.% %7 code=c$ %8:code=(((hc*2.5 )+17)*11.46fff)9530:% %9X21,0;"CODE NUMBER INCORRECT":100d:21,0;z$:9518.% %C h=1 %N(bark=0:bun=0:rou=0 %D6:6:0::0,10 ;1;6;"STRONG POINTS":2,0;2;" Not all areas of your game willbe at the same stage. So here is your chance to improve the areas that you think are most important. You have 10 points to allocate. At least two areas must receive points." %11 ,0;"1.......Tee shots":"2.......Long irons":"3.......Short irons":"4.......Wedge & bunker":"5.......Putting" %Fw=0:21,0;0;"1...Tee shot":t$:9750& %w=19703% %*tee=t$:11 ,29;4;tee %Hw=0:21,0;0;"2...Long irons":t$:9750& %w=19706% %Sli=t$:li+tee>10 21,0;"TOO MANY ":100d:9706% % 12 ,29;4;li %Iw=0:21,0;0;"3...Short irons":t$:9750& %w=19710% %Wsi=t$:si+li+tee>10 21,0;"TOO MANY ":100d:9710% % 13 ,29;4;si %Jw=0:21,0;0;"4...Wedge/Bunker":t$:9750& %w=19714% %_wb=t$:wb+si+li+tee>10 21,0;"TOO MANY ":100d:9714% % 14,29;4;wb %Nw=0:21,0;0;"5...Putting ":t$:9750& %w=19718% %_put=t$:put+wb+si+li+tee>10 21,0;"TOO MANY ":100d:9718% %,15,29;4;put:100d &dt$<480ůt$>579w=1:21,0;0;"INCORRECT ":100d & Vt$>1w=1:21,0;0;"INCORRECT ":100d &% &* :''" The Championship & Open are played at...":'':" ROYAL LYTHAM AND ST.ANNE'S":':" out........3311 yds - 35":" in.........3537 yds - 36":" Total......6848 yds - 71 par"::" Record=66 (R.Foster/R.Charles)":21,8;2;"ENTER to continue":e$: 'z(z$))=(""+z$+"+256*("+z$+"+1)"):"free",z("23730")-z("23641")'"program",z("23627")-z("23635")'"variables",z("23641")-z("23627")- bt nJ((4~4~4~h ~!R$%B4:d: ">"~~00 @0000000  ~~``<2<00>A@>$b~bbxd|bb|bbf:`|bbb~bbb>20x00>bb>~``|bbb<dd8`bdxdb8<bb>12 t$="" *tree<13 t$="" ,d=5+(*200) . haz=1+(*20) 6&gr=1:sta=8+(*7) 7 8****************** F+++COURSE PRINTING+++ H4:4:0: JOb=021:b,0;5;"":b LVa=0d:bq=1+(*20):c=4+(*24):bq,c;2;t$:a Nk=128 P1ba=5+(*4):c=5+(*4) Qe=0c:ba+e,k;" ":e Rk Shaz<15420 Thaz=1430 Uhaz=20444 Vua=15:z=(1+(*3))-2:y+a,28+z;1;" ":y+a,30;1;" ":a X+y+3,30;0;1;"" Z'sta,gr-1;1;2;"T" ^0,0;5;1;1;co:0,4;1;"HOLE ";hole:0,13 ;1;yards;"yards":0,24;1;"par";par `Bhole=119,28;"":20,28;" " bAhole=183,28;"":2,28;" " c d++++++++++++++++ n#####HITTING##### o0,0;1;5;1;co:aw=0:la=4:man=0:m=0:"Direction(1-12)",d$:d$=""111o pd$>4111o q8d$(1)<480ůd$(1)>579111o rd$=1123{ sNd$(2)=47/ůd$(2)<46.ůd$(2)>579111o td$=2123{ uNd$(3)=47/ůd$(3)<46.ůd$(3)>579111o v8d$(2)=46.Ưd$(3)=46.111o xd$=3123{ y8d$(4)<480ůd$(4)>579111o {9di=d$:di=di+(((1+(*hc))-hc/2)/20) }.di>12 111o:21,0;z$ ~A(sta-1,gr)=103gman=1:la=4:130 @(sta-1,gr)=96`man=1:la=4:130 9la=((sta-1,gr))-32 :la=0la=4 'sta-1,gr;1;0;"" di=di*deg 421,0;"CLUB...1w-4w..1i-9i..sw..w":c$ "c$="1w"cl=200:166 "c$="2w"cl=190:166 "c$="3w"cl=180:166 "c$="4w"cl=170:166 "c$="1i"cl=155:166 "c$="2i"cl=145:166 "c$="3i"cl=135:166 "c$="4i"cl=125}:166 "c$="5i"cl=115s:166 "c$="6i"cl=105i:166 !c$="7i"cl=85U:166 !c$="8i"cl=70F:166 !c$="9i"cl=557:166 c$="w"cl=35#:166 !c$="sw"cl=20:166 134 acl>169cl=cl-((10 -tee)*2):var=1+(*12 ):shot=cl+var:174 bcl>124|cl=cl-((10 -li)*1.5@):var=1+(*10 ):shot=cl+var:174 Vcl>64@cl=cl-((10 -si)):var=1+(*6):shot=cl+var:174 Gcl=cl-(10 -wb):var=1+(*4):shot=cl+var:174 Fbark=1shot>120xshot=shot/3:l=2:185 9bark=1shot=shot/1.43333:l=2:185 Grou=1shot>120xshot=shot/2.6&fff:l=5:185 8rou=1shot=shot/1.2:l=5:185 ?bun=1shot>64@shot=0:l=6:185 :bun=1shot=shot/1.5@:l=6:bun=0 sta-1,gr;1;la;"":1:sta-1,gr;1;0;"":1:sta,gr;1;l;"":sta-1,gr;1;la;"":1:sta-1,gr;1;0;"" =man=1sta-1,gr;4;0;1;" " ssta=sta:ggr=gr sta=sta-(shot*scale)*di gr=gr+(shot*scale)*di ea=2060<2:.02{# =,a:a:10 :f=60<20-2:.02{# =,f:f *rou=0:bark=0:PO=PO+1 Ƭsta>2021,0;0;7;"OUT OF BOUNDS ":200:21,0;z$:PO=PO+1:sta=19:aw=aw+1:198 Ȫsta<121,0;0;7;"OUT OF BOUNDS ":200:21,0;z$:PO=PO+1:sta=2:aw=aw+1:198 ʨgr<021,0;0;7;"OUT OF BOUNDS ":200:21,0;z$:PO=PO+1:gr=1:aw=aw+1:198 ̪gr>3121,0;0;7;"OUT OF BOUNDS ":200:21,0;z$:PO=PO+1:gr=31:aw=aw+1:198 aw>1PO=PO-1 ΄(sta,gr)=33!21,0;0;7;"PENALTY STROKE........water ":100d:gr=gr-2:PO=PO+1 V(sta,gr)=34"21,0;"In the trees ":bark=1 n(sta,gr)=38&bun=1:21,0;6;0;"BUNKERED";4;" " U(sta,gr)=37%rou=1:21,0;"In the rough " ֡(sta,gr)=103gsta,gr;7;1;"":m=1:21,0;"ON THE GREEN IN ";PO;" ":100d:21,0;z$:218 נ(sta,gr)=96`sta,gr;7;1;"":m=1:21,0;"ON THE GREEN IN ";PO;" ":100d:21,0;z$:218 #(sta,gr)=39'gr=gr-1 (sta,gr;1;4;7;"" ڧsta=y+3gr=30one=1+(*10 ):one=10 21,0;1;"IN THE HOLE ":g=1:100d:21,0;z$ cssta-1,ggr;1;la;"":man=1ssta-1,ggr;4;0;1;" " m=1222 9man=0:l=4:200:21,0;z$  ################## %%%%%GREEN%%%%% 4:4:7: 3sp=1+(*3):inc=1+(*3) sp=1g$="slow" sp=3g$="fast" sp=2g$="...."  inc=3h$="downhill put" inc=2h$="level put"  inc=1h$="uphill put"  Z0,0;5;1;co;4;0;" GREEN ";hole;"...";g$;"...";h$  B13 ,18;1;"":14,18;1;"" q=3119-2:13 ,q;0;" ":.15~,40(:13 ,q-1;0;" ":.15~,20:q 913 ,18;" ":14,18;1;"" q=1929:13 ,q;0;" ":.15~,40(:13 ,q+1;0;"":.15~,20:q:13 ,29;" "  %%%%%%%%%%%%%%% *@@@@HITTING@@@@ +man=0:g=0:14,18;1;"":(sta-1,gr)=33!man=1:sta+1,gr;0;"":303/ ,6gr>18sta-1,gr;0;"":303/ -'sta=14gr=18gr=17 .sta-1,gr;0;"" /Ksta,gr;7;"":"Direction (1-12)",e$:e$=""űe$>4303/ 08e$(1)<480ůe$(1)>579303/ 1e$=13128 2Ne$(2)=47/ůe$(2)<46.ůe$(2)>579303/ 3e$=23128 4Ne$(3)=47/ůe$(3)<46.ůe$(3)>579303/ 58e$(2)=46.Ưe$(3)=46.303/ 6e$=33128 78e$(4)<480ůe$(4)>579303/ 8 de=e$:de>12 303/ 9Gde=de*deg:"Strength (1-20)",f$:f$<480ůf$>5793139 :f$=1317= ;Hf$(22)<480ůf$(22)>5793139 <f$>23139 = be=f$:be>203139 >6sp+inc>4be>7put<5be=be+1 ?6sp+inc<4be>7put<5be=be-1 @]tu=18:sta,gr;" ":ssta=sta:ggr=gr:gr=gr+(be*de):sta=sta-(be*de):PO=PO+1 Aosta>2121,0;"Off the green":200:21,0;z$:PO=PO+1:sta=19 Bmsta<121,0;"Off the green":200:21,0;z$:PO=PO+1:sta=2 Ckgr<021,0;"Off the green":200:21,0;z$:PO=PO+1:gr=2 Dmgr>32 21,0;"Off the green":200:21,0;z$:PO=PO+1:gr=30 E 500 F!14,18;1;"" GM(sta,gr)=33!g=1:sta,gr;7;"":.4L,tu:329I Hsta,gr;7;"" I.10 :man=1ssta+1,ggr;" " J!10 :ssta-1,ggr;" " L?g=1.8L,40(:14,18;1;"" M man=0 O ^@@@@@@@@@@@@@@ r////SCORE//// s U=U+1 t7:7:1: uh0,11 ;0;7;"SCORE CARD":21,5;3;"ENTER to continue":e$= x`b=118:b+1,2;1;"Hole ";b:b+1,10 ;"..........":b zK1,22;4;"1 2":0,22;4;"Player": {PO2=0i=7 |v(u)=par:r(u)=PO1:x(u)=PO2 }^s=1U:s+1,13 ;4;"par";v(s);1;"... ";r(s);" ";i;x(s):s ~e$: //////////////// BUNKER c=1+(*3) ch=1+(*3):e=1ch:av=9 +(*4):bn=14+(*13 ):av,bn;6;"":av+1,bn;6;"":e   -----RIVER----- Af=021:zw=1+(*2):zw=1a$="" zw=2a$="" f,16;1;a$:f  ------------------- ====LAKE==== 10 ,20;1;"":10 ,21;1;"":11 ,20;1;"":11 ,21;1;"": ================== ..Tee shot.. Z0,0;5;1;1;co:sta,gr;1;4;7;"": ............ ___score & par___ PO=PO1:co=1 'hole=1OP1=PO:rap=par:OP=OP1 :hole>1OP1=OP1+PO:rap=rap+par:OP=OP1:462 hole=1OP2=PO:OP=OP2 "hole>1OP2=OP2+PO:OP=OP2 O1:5:0::2,12 ;1;5;"PLAYER ";co ч5,6;"Holes played = ";hole:7,6;"Shots taken = ";OP:9 ,6;"Par = ";rap:birdie=OP-rap :birdie=011 ,6;7;"LEVEL PAR" Abirdie<011 ,6;7;birdie;" UNDER PAR" ?birdie>011 ,6;7;birdie;" OVER PAR" "birdie>24birdie=24 .hole=18birdie<0birdie=0 جhole=1813 ,6;1;7;"YOUR HANDICAP = ";birdie:14,6;7;1;" CODE = ";(((birdie*2.5 )+17)*11.46fff) ځa=27:a,2;"":a,30;"":a:b=815:b,30;7;"":b,2;7;"":b ܘ15,3;7;"":15,28;7;"":15,3;1;7;"==":15,28;1;7;"==" 021,6;2;"ENTER to continue" e$ co=2490 -play=2co=2:PO=PO2:459  ____________________ .....Ball Moving..... Usharp=44,:sa=ssta:ga=ggr:sa=176-(sa*8):ga=(ga*8)+3 65165,17  65160,ga:65161,sa #65164,0:65171 ssta-1,ggr;" " A=1(be*2) sharp=sharp-2 *ga=ga+(4*de):sa=sa+(4*de) 565160,ga:65161,sa:65164,1  .1}L,sharp:B=1A:B  65171 +14,18;1;"":7 665160,ga:65161,sa:65164,0: 65171 A & X''''Main Program'''' Y 30 ] 70F ^ 452 _xxx playing the ball xxx a*hc=hc1:tee=tee1:li=li1:si=si1:wb=wb1 b:PO2=PO:rou2=rou:bark2=bark:bun2=bun:sta2=sta:gr2=gr cco=1:110n gFg1=g:sta1=sta:gr1=gr:PO1=PO:m1=m:rou1=rou:bark1=bark:bun1=bun hplay=1630v jplay=2co=2 kzhc=hc2:PO=PO2:sta=sta2:gr=gr2:452:rou=rou2:bark=bark2:bun=bun2:tee=tee2:li=li2:si=si2:wb=wb2:110n lFg2=g:sta2=sta:gr2=gr:PO2=PO:m2=m:rou2=rou:bark2=bark:bun2=bun q"m1=1m2=1650 tm1=1636| um1=1650 vm1=1650 w{hc=hc1:sta=sta1:gr=gr1:PO=PO1:rou=rou1:bark=bark1:bun=bun1:co=1:tee=tee1:li=li1:si=si1:wb=wb1:110n xFg1=g:sta1=sta:gr1=gr:PO1=PO:m1=m:rou1=rou:bark1=bark:bun1=bun zplay=1630v {m2=1625q }{hc=hc2:sta=sta2:gr=gr2:PO=PO2:rou=rou2:bun=bun2:bark=bark2:co=2:tee=tee2:li=li2:si=si2:wb=wb2:110n ~Fg2=g:sta2=sta:gr2=gr:PO2=PO:m2=m:rou2=rou:bark2=bark:bun2=bun $play=1m1=1650  625q  xxxxxxxxxxxxxxxxxxx vvvv ball on green vvvv 9hc=hc1:put=put1:gr=gr1:PO=PO1:g1=1660 zsta=14-((y-sta)+*3):gr=18-(((30-gr)*3)+*3):sta=14gr=18gr=17 co=1:250  299+  g1=g:sta1=sta:gr1=gr:PO1=PO play=1674 g2=1674 3co=2:0,0;5;1;co hc=hc2:gr=gr2:PO=PO2 zsta=14-((y-sta)+*3):gr=18-(((30-gr)*3)+*3):sta=14gr=18gr=17  299+  g2=g:sta2=sta:gr2=gr:PO2=PO g1=1680 $play=1g1=1700 `co=1:0,0;5;1;co:hc=hc1:sta=sta1:gr=gr1:PO=PO1:299+  g1=g:sta1=sta:gr1=gr:PO1=PO g2=1696 play=1675 `co=2:0,0;5;1;co:hc=hc2:sta=sta2:gr=gr2:PO=PO2:299+  g2=g:sta2=sta:gr2=gr:PO2=PO  674 g1=1700  674  vvvvvvvvvvvvvvvvvvvvvv  370r  455 hole189000(#  600X #( ..TITLE..INSTRUCTIONS..U.D.C.. #* #+'v(18):r(18):x(18) #-35:5:0::9 ,6;1;5;" GOLFING WORLD ":11 ,6;2;"including-":13 ,6;1;"1..Handicap Golf":14,6;"2..Club Championship":15,6;"3..The Open Tournament":17,6;2;"by John Hunt 1983" #4Jco=1:l=4:U=0:i=0:deg=/6:hole=0 #7'z$=" " #< 9030F# #F>:a=144164:b=07:c:a+b,c:b:a #P0,0,0,0,0,8,42*,126~,0,96`,240,240,240,224,64@,64@,0,32 ,112p,112p,248,248,32 ,32 ,8,32 ,16,16,4,4,4,16,568,72H,568,8,8,8,8,104h,140,76L,40(,24,8,20,20,20,12 ,12 ,8,24,40(,84T,148,20,12 ,12 ,8,8,12 ,22,21,20,0,0,0,255,255,129,129,255,60<,126~,255,165,255,165,165,231 #Z0,0,0,255,255,169,169,249,128,64@,160,84T,168,84T,170,85U,170,85U,170,84T,168,80P,160,64@,10 ,21,42*,85U,170,85U,170,85U,170,85U,170,21,10 ,5,2,1,8,32 ,32 ,128,64@,64@,16,16,2,7,7,2,0,0,0,0,7,17,65A,17,7,1,1,1,1,1,97a,241,96`,0,0,0,568,568,16,568,84T,40(,40(,40(,568,568,16,124|,16,40(,68D,130 %n4:4:1::8,3;"Would you like....":10 ,13 ;"1 or 2 players?":b$ %&'b$<491ůb$>5029500% %+b$>19500% %, play=b$ %.4:7:1::0,0;5;"Player ";co:8,2;"PLEASE STATE YOUR HANDICAP..":h$:h$>221,0;"INCORRECT":100d:21,0;z$:9518.% %/uh$=1(h$<480ůh$>579)21,0;"INCORRECT":100d:21,0;z$:9518.% %0h$=""9518.% %1h$=195233% %2h$(1)<480ůh$(1)>579ůh$(2)<480ůh$(2)>57921,0;"INCORRECT":100d:21,0;z$:9518.% %3lhc=h$:hc<0hc>2421,0;"INCORRECT":100d:21,0;z$:9518.% %4hc=249530:% %5:8,2;"HANDICAP ";hc;" CODE = ":c$:c$321,0;"INCORRECT":100d:21,0;z$:9518.% %6c$(1)<480ůc$(2)<480ůc$(3)<480ůc$(1)>579ůc$(2)>579ůc$(3)>57921,0;"INCORRECT":100d:21,0;z$:9518.% %7 code=c$ %8:code=(((hc*2.5 )+17)*11.46fff)9530:% %9X21,0;"CODE NUMBER INCORRECT":100d:21,0;z$:9518.% %:co=19538B% %; co=2hc2=hc:9539C% %<co=2:9518.% %B"hc1=hc:play=29532<% %C h=1 %DBplay=1sta2=0:gr2=0:g2=0:PO2=0 %N4co=1:bark=0:bun=0:rou=0 %D6:6:0::0,10 ;1;6;"STRONG POINTS":2,0;2;" Not all areas of your game willbe at the same stage. So here is your chance to improve the areas that you think are most important. You have 10 points to allocate. At least two areas must receive points." %11 ,0;"1.......Tee shots":"2.......Long irons":"3.......Short irons":"4.......Wedge & bunker":"5.......Putting":19,0;3;"Player ";h %Fw=0:21,0;0;"1...Tee shot":t$:9750& %w=19703% %*tee=t$:11 ,29;4;tee %Hw=0:21,0;0;"2...Long irons":t$:9750& %w=19706% %Sli=t$:li+tee>10 21,0;"TOO MANY ":100d:9706% % 12 ,29;4;li %Iw=0:21,0;0;"3...Short irons":t$:9750& %w=19710% %Wsi=t$:si+li+tee>10 21,0;"TOO MANY ":100d:9710% % 13 ,29;4;si %Jw=0:21,0;0;"4...Wedge/Bunker":t$:9750& %w=19714% %_wb=t$:wb+si+li+tee>10 21,0;"TOO MANY ":100d:9714% % 14,29;4;wb %Nw=0:21,0;0;"5...Putting ":t$:9750& %w=19718% %_put=t$:put+wb+si+li+tee>10 21,0;"TOO MANY ":100d:9718% %,15,29;4;put:100d %h=297804& &,tee1=tee:li1=li:si1=si:wb1=wb:put1=put &%play=2h=2:9700% &dt$<480ůt$>579w=1:21,0;0;"INCORRECT ":100d & Vt$>1w=1:21,0;0;"INCORRECT ":100d &* &4,tee2=tee:li2=li:si2=si:wb2=wb:put2=put &9 &H 4:4:0::"Ball.....................";4;7;""::"Flag....................."::"Trees.................... "::"Rough...................."::"River....................";1;""::"Lake.....................";1;"" &R:"Bunker...................";6;""::"Railway..................###"::"Clubhouse................"::"Fairway..................";4;" "::"Green....................";4;1;" " &\421,7;0;"ENTER to continue":e$ &f4:4:0::"If there are two players then the number in the top left corner indicates which player."::"If the ball goes out of bounds then one penalty stroke is added"::"Choose your club carefully when playing from the rough." &p:"Everyone starts with a handicap of 24."::"A handicap of less than 12 will entitle you to enter the club championship. The lower your handicap and the greater your chance of winning this and goingonto the Open.":21,8;0;"ENTER to continue":e$: bt n((4~4~4~h ~!R$%B4:d: ">"~~00 @0000000  ~~``<2<00>A@>$b~bbxd|bb|bbf:`|bbb~bbb>20x00>bb>~``|bbb<dd8`bdxdb8<bb>