ZXTape! 2 Championship Golf D & H Games Shaun McClure1988EnglishStrategy: Management9.99 UKPNoneOriginal ReleaseTZXed by Andrew BarkeraGOLF 64487:0:0:0::"CODE":236066\,88X:236077\,251:64529:"PIC":"" cVS$=""+16+5+22+1+0+"GOLF"+239:S$0 S GOLFdCODE  !9T]*\BR[=\"=\ + +i`*=\s#rv{=\!:\~6} ( !'"B\2D\v*]\~$ #"]\}llllllll>X>|0f8l8vv0 000 0 0f<f<0 0`0 ~~`0 0`fff~fff~~ xflxlf```bf8ll8ff|``8lvff|lfff>|`lvff8<ff<`flxl8<lfffffff<ll8lfff>|~L2~pppv8DD8u@ V(! *A K1  X' e "L  @@@@8?@@@@@  @@@ "9"ű(y$)<"1""380" Uu$("1")=z$+". "+y$::"9920":n="1"̰"17":p(n)="1":n:"400":ra="400":"2" 8PRT=ç::"10",ç;"DO YOU WANT A PRINTER OPTION Y/N" ="Y"PRT=: "N""402" ;n="1"̰"40":c(n)="5":k(n)="0":n:af=(*"11")+: +ç:"64488":"64529":za>"0""550" $s("4")="0"s("5")="0""7100" za>"0""550" Y:"8","1";"YOU HAVE FAILED IN YOUR QUEST",,,"TO BE THE NUMBER 1 GOLFER":"9930":: &AG=(*"3"):"23658","8":z$=(v(ab,"1")):ac=L(AB,"1"):ڰ"5":"5"::"2","5";ڰ"6";ٰ"0";" ";a$(ac,"1");" ":"9950" 0"3","0":n="1"̰"12":z$:("6");ڰ"1";ٰ"7";" ";(n+"64");" ";z$;" ":n:,("5");ڰ"6";ٰ"0";" ";a$(ac,"2");" ":"9960" :z$=:z$>"L"z$<"A""570" ?,z$="A"f$("2")"1"f$("2")="1":ae="2" D%f$((z$)-"64")"1"q((z$)-"64") N"500" X al="0" Z'ae="2"c("1")=c("1")-"1":"800" ]W"1800":"2600":ra="1":rb=(a("1","3")="255")+(a("1","3")>"0")*"2":"9800" `ae="1""700" bMai="0":"9860":j("40"):ap="0":e("40"):"50":j("1")>"80""690" lBra="0":n="2"̰"40":ra=ra+(j(n)< j("1")):n:ra>"4""690" "2":ڰ"2":ٰ"7"::"9","1";"YOU WILL HAVE TO QUALIFY FOR";("7");"THE FINAL ROUNDS",,,,,"YOU MUST FINISH THE QUALIFYING ROUNDS IN THE TOP FIVE":al="1":"9930":ai="0":"7000":"6700"::"9920" e("40"):p$("5","12"):ra="0":n="1"̰"5":w(n)=f(n):w(n+"5")=j(n):p$(n)=t$(n):ra=ra+(f(n)="1")*n:n:"50":n="1"̰"5":w(n)="1"w(n+"10")="1":"660" 6rb=(*"38")+"2":z="11"̰"15":w(z)=rbrb="99" z:rb="99""650" w(n+"10")=rb n:ra="0"w("11")="1" Un="11"̰"15":ran-"10"j(w(n))=w(n-"5"):t$(w(n))=p$(n-"10"):f(w(n))="30"+n n 6al="0":ah="40":ai="0":aj="2":"7010":"840" &e("40"):j("40"):ai="1":al="0" ("7000":n="1"̰"40":f(n)="1"ra=n En:n="1":rb="2"*(ra="1")+(ra>"1"ra<"6"):"9800":7500L  ap="0":ai="0":"9860":e("40"):j("40"):n="2"̰"40":t$(n-"1")=u$(n):f(n-"1")=n: rb=n:"40":j(n-"1")=rc+c(n):n:"9900":t$("40")=z$:f("40")="41":j("40")="50"+(*"30"):ah="40":aj="2":"6000":"100":"8200":"6500" 4$ah="20":"6000":"100":"8200" H 7500L \@l(ab,"2")=f("1"):n="1"ah:f(n)="0"f(n)>40("890" fR"70":ra="2"*(n<"6")+(n<"11")-(n>"20"):z="1"̰"4":w(z)=w(z)+ra:z:"75" zn:"6600":"9930" ;a("1","3")>"0"a("1","3")<"255"zn=(zn/"10")*"9" _zo=(zo*(av+"1"))*"4":zc=zc*(av+"1"):z1="0":"4":ڰ"4":ٰ"0"::("9");ڰ"6";"WEEKLY NEWS";ڰ"4",,,"PRIZE MONEY";("23");"`";zn;("30");"+","TRAVEL EXPENSES";("23");"`";zc;("30");"-","HOTEL EXPENSES";("23");"`";zo;("30");"-","ENTRY FEE";("23");"`";zd;("30");"-",:s("4")>"0""MORTGAGE REPAYMENTS";("23");"`";zm;("30");"-" Ja("1","3")>"0""CADDY'S WAGE";("23");"`";a("1","2");("30");"-" Ja("2","3")>"0""COACH'S WAGE";("23");"`";a("2","2");("30");"-" >s("5")>"0""LOAN REPAYMENTS";("23");"`";zl;("30");"-" _s("6")>"0"zn> "0"z1=(zn/aa):zn=z1-zn:"PRIZE MONEY SOLD";("23");"`";z1;("30");"-" era="0":n="1"̰"7"Ͱ"2":ra=ra+(v$("1"))(nn+"1"):z2="175"+(*"75"):ra>"320"z2=z2*"2" -"LIVING COSTS";("23");"`";z2;("30");"-" 4zp>"0""BET STAKES";("23");"`";zp;("30");"-" <f("1")=au"BOOKIES RETURNS";("23");"`";zf;("30");"+" 2be="1""HOLE IN ONE";("23");"`";"10000";"+" z1="0":n="1"̰"3":s(n)>"0"c$(s(n+"7"));" PAY";"23";"`";s("10"+n);"+":z1=z1+s("10"+n):s(n)=s(n)-"1":s(n)="0"s(n+"10")="0" n z1=zn-zo-z2-zd-zc-zl*(s("5")>"0")-zm*(s("4")>"0")+zf*(f("1")=au)-zp-a("1","2")*(a("1","3")>"0")-a("2","2")*(a("2","3")>"0")+"10000"*(be="1"):za=za+z1:,, "BALANCE";("23");"`";(z1);("30");("45"-"2"*(z1>"0")):"9960":n="4"̰"6":s(n)>"0"s(n)=s(n)-"1" Mn:be>"1"u$(be);"HAS WON `10000 FOR A HOLE IN ONE":k(be)=k(be)+"10000" bb="0":bd="0":be="0":ak="10":zc="0":zp="0":au="0":zf="0":zd="0":zn="0":zo="0":F$="000000000000000":ae="0":ab=ab+"1":s("6")ɰ"0"f$("12")="1" a("1","3")="0""960" oa("1","3")>"0"a("1","3")=a("1","3")-"1":a("1","3")="0"av=av-"1":,,"YOUR COACH HAS RESIGNED" (a("1","3")="254"a("1","3")="0" a("1","3")="0"av=av-"1" a("2","3")="0""965" oa("2","3")>"0"a("2","3")=a("2","3")-"1":a("2","3")="0"av=av-"1":,,"YOUR CADDY HAS RESIGNED" (a("2","3")="254"a("2","3")="0" a("2","3")="0"av=av-"1" $n="1"̰"40":c(n)<"0"c(n)="0" c(n)>"10"c(n)="10" n (*"20") = "10""9500" Mc("1")=c("1")-ar:ar="0":AF=+(*"11"):"9940":ab > "20""8500" "500" zc="0":zd="0":"6":ڰ"6":ٰ"0"::"0","8";ڰ"1";ٰ"7";"NEXT TOURNAMENT";ڰ"6";ٰ"0";"3","2";"1. MAJOR ";ڰ"5";A$(AC,"1");ڰ"6";"4","6";"EXPENSES TO GO `";v(ac,"2");"5","6";ڰ"7";"ENTRANCE FEE `";v(ac,"1")/"200";"6","6";ڰ"6";"PRIZE MONEY `";v(ac,"1") z1=(("1000"+(*"800"))*"10"):z2="100"+(*"100"):"12","2";"2. MINOR TOURNAMENT AT ";"13","6";i$(af );"16","6";"PRIZE MONEY `";z1;"14","6";"EXPENSES TO GO `";z2;"15","6";ڰ"7";"ENTRANCE FEE `";(z1/"150");ڰ"6";"21","2";"M. MENU" %z$=:z$"M"z$"1"z$"2""1020" z$="M"ae="2": f$(2)="1":a1=(z$) a1="2""1100" $Eae="0":zc=v(ac,"2"):zd=(v(ac,"1")/"200"):ze=(v(ac,"1")): L*ae="1":zc=z2:zd=(z1/"150"):ze=z1: xڰ"4":ٰ"0":"4"::"0","11";ڰ"6";" PRACTICE ";"3","6";ڰ"4";"1. BUNKER SHOTS";"5","6";"2. CHIPPING";("22");"7","6";"3. PUTTING";"9","6";"4. DRIVING";"11","6";"5. PRACTICE ROUND";"14","6";"M. MENU" }ire="0":n="1"̰"7"Ͱ"2":n+"2","23";v$("1")(nn+"1"):re=re+(v$("1")(nn+"1")):n:re=re/"4" ?"19","1";"HOURS AVAILABLE ";ak;" ":ak<"1"f$("3")="1" z$=:z$ ="M" ak<"1""1415" z$ <"1"z$ >"5""1415" $a1=(z$):a1="5"ak<"3""1415" `ra="0":rb=(a1-"1")*"2"+"1":a1="5"ak=ak-"2":"1600":rb="1"+(*"3")*"2":"1490" /"HOW MANY HOURS? ";rf:rf>akrf<"1""1430" rf="1""1600":"1490" n="1"rf :"1600":n 3rd=ra+(v$("1")(rbrb+"1")):rd<"10"rd="10" rd>"99"rd="99" %v$("1")(rbrb+"1")=(rd):"1400" @bak=ak-"1":rd=(*"10"):ra=ra-(rd<"3")+(rd>"5")+(a("2","3")>"0")+(re<"65")-(rd>"90"): "6":ڰ"6":ٰ"0"::w("1")="180"+(*"40"):w("2")="800"+(*"400"):w("3")="450"+(*"100"):w("4")="1300"+(*"400")  a("1","3")="0""4","2";"1. HIRE CADDY `";w("1");"6","2";"2. HIRE PERMANENT CADDY",("5");"`";w("2");" PER TOURNAMENT":"1810" "4","2";"1. SACK CADDY" a("2","3")="0""9","2";"3. HIRE COACH `";w("3");"11","2";"4. HIRE PERMANENT COACH",("5");"`";w("4");" PER TOURNAMENT":"1820" "9","2";"3. SACK COACH" C"14","2";"5. REPLACE CLUBS";"16","2";"6. CONTINUE":"9960" &O"9980":a1>"6"a1="2"a("1","3")>"0"a1="4"a("2","3")>"0""1830" + a1="6" ."1830"+a1*"10" 0;a("1","3")>"0"a("1","3")="0":av=av-"1":"1800" 5[a("1","3")="255":av=av+"1":a("1","2")=w("1"):rb="1":ra="1":"9800":"1800" :>a("1","3")=(*"30")+"30":a("1","2")=w("2"):"1800" D;a("2","3")>"0"a("2","3")="0":av=av-"1":"1800" I@a("2","3")="255":av=av+"1":a("2","2")=w("3"):"1800" N>a("2","3")=(*"30")+"30":a("2","2")=w("4"):"1800" Xd:("13");"CLUBS",,,:n="1"̰"5":("5");ڰ"7";(("A")-"1"+n);ڰ"6";" ";n;("9");" WOOD":n bMn="1"̰"9":("5");ڰ"7";(("A")+"4"+n);ڰ"6";" ";n;("9");" IRON":n l(("5");ڰ"7";"O";ڰ"6";" SAND WEDGE" v+("5");ڰ"7";"P";ڰ"6";" PUTTING WEDGE" $("5");ڰ"7";"Q";ڰ"6";" PUTTER" aw="0""9930":"1800" aw+"1","22";ڰ"4";"BROKEN"  "9960" z$=:z$<"A"z$>"Q""1950" )rb=(z$)-"64":rbawrbɰ"18""1960" rb="18""1800" Ura="20"*(aw<"6")+"15"*(aw>"5"):ra=ra+(aw<"6")*(*"30")+(aw>"5")*(*"25") C:"10","0";"COST TO REPLACE IT `";ra:"9970":z$="N""1800" Bza=za-ra:"9750":rb=(z$(rara+"1"))+"2":rb>"99"rb="99" AW=ç:v$("1")= z$:"1800" z=010 10 ::"0","10";ڰ"1";ٰ"7";"FIXTURES";ڰ"5",,:n="1"+z̰"10"+z:("0");ٰ"0";ڰ"5"+"2"*(n/"2"=(n/"2"));a$(l(n,"1"),"1");" ";a$( l(n,"1"),"2")(10 ):n"4""2670" x1ar="2"+w(a1)-(w(a1+"8")/"2"):zo=w(a1+"4") "50": Cڰ"4":ٰ"0":"4"::ra="1":("5");ڰ"6";"PROFESSIONAL GOLFERS" Pn="2"̰"21":n-"1";("3");u$(n);:n<"21"("16");n+"19";" ";u$(n+"20") n:"9950" ="M" "C""3020" 2"NUMBER TO CHANGE";ra:ra<"1"ra>"39""3040" 5"NEW NAME (MAX 12)";z$:z$=""ű(z$)>"12""3050" u$(ra+"1")=z$:"3000" H4"4":ڰ"4":ٰ"0"::"0","13";ڰ"6";"BANK";ڰ"4" R.s("4")="0""5","7";"1. MORTGAGE HOUSE" \$s("5")="0""7","7";"2. LOAN" f"9","7";"M. MENU":"9960" p"0":="M" z"1"s("4")>"0""3500" rb="1":"40":z1=rc:z1=(z1*"2000"/"100")*"80":z2=(z1+(z1/"100")*"20")/"80":"14","0";"THE BANK WILL OFFER YOU `";z1,"INTEREST RATE .7% PER TOURNAMENT";"TO BE REPAID OVER 80 WEEKS","AT `";z2;" PER WEEK":"9970" z$"Y""3400" "s("4")="80":za=za+z1:zm=z2: "2"s("5")>"0""3440" 8"HOW MUCH (MIN `40)";z1:z1<"40"z1>"10000""3510" z2=((z1+(z1/"100")*"30")/"40"):"14","0";"THE BANK WILL LOAN YOU `";z1,"INTEREST RATE 1% PER TOURNAMENT";"TO BE REPAID OVER 40 WEEKS","AT `";z2;" PER WEEK":"9970" z$"Y""3400" "s("5")="40":za=za+z1:zl=z2: -z1="0":n="1"̰"3":s(n)>"0"z1=z1+"1" n:rg=0:z1="3" d:"0","10";0;ڰ"7";" SPONSORSHIP ":rb="1":"40":ab<"3"rc<"50"rg=3"3860" Cre="1"+(*"5"):re>"3"s(re)>"0"ab<"3"rg>2"3860"  "3870" ^"10","5";"NO ONE IS INTERESTED";"12","6";"IN SPONSORING YOU":f$(7)="1":"9940" gz$=(rc):z$("2"̰"2")="9":rc=(z$):rb=( (*((rc-"40")*"5")+(rc>"90")*"500")+(rc-"40")*"5") (qra= "1"+( (*((rc)/"25")+(rc>"90")*"20"+(rc>"80")*"10"+(rc>"70")*"2")+(rc>"60")*"2"+(rc>"50")*"2") 2rd="1"+(*"9"):"14","7";c$(rd);"OFFER";"16","7";"`";rb;" PER TOURNAMENT";"18","7";"FOR ";ra;" TOURNAMENTS":"9970":z$"Y"rg=rg+1:"3820" "0"  ra="0" ra>"2"ab<"1" R:("10");ڰ"2";"PRIZE MONEY";"10","0";ڰ"5";"HOW MUCH CAPITAL DO YOU WANT?" ;z1:z1<"1""5040" Gre="0":n="1"̰"7"Ͱ"2":re=re+(v$("1")(nn+"1")):n:re=re/"4" "10","0";" ":z2=re/ab:z3=(*"75"):z4=(z2/"100")*z3:z4=((z1/z4)+(*"5")+1):z4>(nt*"2")"5100" āra=ra+"1":"8","0";"THIS WILL COST YOU ";z3;"% OF YOUR WINNINGS FOR THE NEXT ";z4;" TOURNAMENTS":"9970":z$"Y""5020" aa=z3:s("6")=z4: I"8","5";"NOBODY IS INTERESTED IN";(10 );"YOUR OFFER":"200":  ab<"1" "ڰ"4":ٰ"0":"4"::"9920":"30":"10"::"6";ڰ"6";" PRIZE MONEY LEAGUE ";ڰ"4",,,:n="1"̰"20":k(f(n))>"0"n;("5");ڰ"4"+(f(n)="1");u$(f(n));" `";k(f(n));ڰ"4" ,n:ab<"21""9940" 6 "9930" W"23635","23627":"23636","23628":"GOLF.DAT":"23635","203":"23636","92": paiɰ"0"alɰ"0"za<"0" rw("40"):"23658","8":au="0":ڰ"2":"2":ٰ"7"::"9","6"; " DO YOU WANT TO VISIT ";"10","7";"THE BOOKIES? (Y/N) ":"9890":z$="N""9860" u:"9920":ah="20""6300" vah="40""6200" z:n="1"̰"20":n,"0";n;("3");t$(n)("4"̰"10");" ";w(n);"/1";:ah="40"("16");n+"20";" ";t$(n+"20")("4"̰"10");" ";w(n+"20");"/1" n 9"PLAYER'S NUMBER? (0 EXIT) ";ra:ra<"0"ra>ah"6020" ra="0""9860" f(ra)="1""6020" 3"HOW MUCH?";zp:zp=(zp):zp>zazp< "1""6140" Tau=f(ra):zf=(zp+zp*w(ra)):"21","5";"THIS WILL RETURN `";zf:"9930":"9860" 8n="1"̰"40" Bw(n)=("5"-(*"4"))*(j(n)>"89")+("15"-(*"10"))*(j(n)>"79"j(n)<"90")+("25"-(*"10"))*(j(n)>"69"j(n)<"80")+("50"-(*"20"))*(j(n)>"59"j(n)<"70")+"100"*(j(n)<"60"):n: Gn="1"̰"20":w(n)=e(n)-e("1")+"2":j(n)<"90"w(n)=w(n)+(*"2") !j(n)<"80"w(n)=w(n)+(*"5") !j(n)<"70"w(n)=w(n)+(*"5") n: d7"9860":n="21"̰"40":f(n)="0"f(n)>"40""6520" nB"70":a="1"̰"4":w(a)=w(a)-(*"2"):a:c(f(n))=c(f(n))-"2" xn: -n="1"̰"10":f(n)>"40"f(n)<"2""6690" 'n="1"c(f(n))=c(f(n))+"3":"6690" .n="2"n="3"c(f(n))=c(f(n))+"2":"6690" n<"11"c(f(n))=c(f(n))+"1" "n: ,$re="5"+(al="0")*"15":rc="0" 1:rc>re"6800" 6Y"7","3";"YOU HAVE QUALIFIED FOR THE",,,,,,,"FINAL STAGES OF THE TOURNAMENT":"9930" ra=e(rc)-e(re):"7","3";"YOU HAVE FAILED TO QUALIFY",,,,," FOR THE FINAL STAGES BY ":ra("11");ra;" STROKE";:ra>"1""S" 3ra="0"("12");("12");"IN A PLAYOFF"  "9930" X"9860":n="2"̰"40":f(n)=n:j(n)="20"+(*"35")+(al="1")*"15":"9900":t$(n)=z$:n:f("1")="1":t$("1")=u$("1"):rb="1":"40":j("1")=rc b%aj="2":ah="40":ap="0":"6000" l"100":"8200":al="1" v "6000" -"6700":ah="20":"9860":"100":"8200" ڰ"2":"2": 6"7","0";"YOU ARE BROKE AND HAVE BEEN FORCED TO "; +z1="10000"-zl*s("5"):z1<(za)"7160" Tzl=(z1+(z1/"100")*"24")/"40":"OBTAIN A LOAN FOR `";z1:s("5")="40":"7180" }rb="1":"40":z1=(rc*"2000"/"100")*"80":"OBTAIN A MORTGAGE FOR `";z1:zm=(z1+(z1/"100")*"20")/"80":s("4")="80"  za=za+z1:"9930" Lx6:6:0::y$=a$(ac,1):z2=v(ac,1):z$="MAJOR":ai=1z$="MINOR":y$=i$(af):z2=ze Q(4);4;z$;" TOURNAMENT RESULT";6;1,5;y$;2,5;"TOTAL PRIZE MONEY `";z2,, :rb=2 Rz1=(z2/100d)*g(1):n=1:2;"1";:7550~:e(1)=e(2)4,31;"*":21,7;"* AFTER A PLAYOFF";5,0; V(ra=1:z1=((z2/100d)*g(rb)) We(rb) < e(rb+ra)7514Z X2rb+ra<11 z1=z1+((z2/100d)*g(rb+ra)) Yra=ra+1:7511W Z-ra=ra-1:2;rb;:ra7520` [n=rb:7550~:7530j `2z1=(z1/(ra+1)):n=rbrb+ra:7550~:n j+rb=rb+ra+1:rb<11 7510V t ~P6;t$(n);" ";e(n);" `";z1:ai=0f(n)<41)k(f(n))=k(f(n))+z1 4f(n)=1zn=z1:c(1)=c(1)+3  h8rb=w("19")-o(a,"4"):ra=w("20")-o(a,"5"):ra=-ra: -rc="0":ra="20":rb="1":ah<"20"ra=ah ڰ"0":ٰ"7":"0"::ڰ"3";("3");" POSITION AFTER ";ap;" ROUNDS ":n=rbra:z1="0"+(f(n)="1")+"2"*(f(n)=auai="0"):("3");z1;n; f(n)="1"rc=n ,re=e(n)-(ap*ax):z$=(re):re="0"z$="E" re>"0"z$="+"+z$ 8z1;("7");t$(n);" ";e(n);" ";z$:n:"9930":ra=ah (rb=ra+"1":ra=ra+"20":ra> ahra=ah & "8210" 0"17",;"OUT OF BOUNDS":n(a,x)=n(a,x)-"1":b="1"̰"3":o(a,b)=o(a,b)+"1":b:ٰ"8":o(a,"4"),o(a,"5"):rb=(*"10"):rb<"5""255"-o(a,"4"),ra 5rb>"4""168"-o(a,"4"),ra :ra="0":rb="0": !4}"8590":"2200":"5400":f("1")="1":"7","3";"CONGRATULATIONS YOU HAVE",,,,,"BECOME THE NUMBER 1 GOLFER ":"9930" !za"8590":n="1"20:z$=(v(20,"1")):z$("3"̰"4")="00":v(20,"1")=(z$):n !sn=sn+"1":"400" !1:"10","7";"END OF SEASON ";sn+"1":"9930" !5bc=0:"0":ڰ"0":ٰ"7"::("7");"SCORECARD" !"3","2";t$(rd):b="1"̰"9":"6","2"+(b-"1")*"3";b;:b:" OUT":"10","1";:b="10"̰"18":b;" ";:b:"IN";"14","26";"TOTAL" !"4","132":"248","0":"0",-"88":-"48","0":"0","24":"4","132":"0",-"64":"248","0":"4","100":"248","0":b="0"̰"3":"28"+ "24"*b,"132":"0",-"64":b:b="1"̰"5":"100"+b*"24","132":"0",-"64":b !T"17","1";ٰ"2";"OVER PAR";"18","1";ٰ"7";"PAR";"19","1";ٰ"5";"UNDER PAR" !_ra="0":rb="0":rc="0":b="1"̰"9":z1="0":"8",(b-"1")*"3"+"2";:xbz1=n("1",b) !%ٰ"7":z1="0"d("1",b)=z1"8650" !z1> d("1",b)ٰ"2" !z1< d("1",b)ٰ"5" !(z1;:ra=ra+z1:b:ٰ"7":"8","29";ra !Ab="10"̰"18":z1=(x> b)*n("1",b):"12",(b-"10")*"3"+"2"; !%ٰ"7":z1="0"d("1",b)=z1"8670" !z1> d("1",b)ٰ"2" !z1< d("1",b)ٰ"5" !)z1;:ٰ"7":rb=rb+z1:b:"12","29";rb !rc=ra+rb:"15","29";rc !&"20","14";ٰ"6";"R";ٰ"7";"ETURN" !"R""8690" ! x>"17" !R"4":ڰ"0":ٰ"7"::ai="0"("1");a$(ac,"1");"1","1";a$(ac,"2"):"8708" "ai="1""3";i$(af) ""7","2";"ROUND ";ap;"7","11";"HOLE";"8","2";"PAR";"8","15";"YARDS";"19","0";ٰ"6";"DRIVING:";v$("1")("7"̰"8");" CHIPING:";v$("1")("3"̰"4");"20","0";"BUNKER :";v$("1")("1"̰"2");" PUTTING:";v$("1")("5"̰"6") "<"2","1";"PAR FOR COURSE ";ax;"11","10";"H RD TRN PR" "FOR b= VAL "0" TO VAL "2": PLOT VAL "0", VAL "16"*b+ VAL "44": DRAW VAL "168", VAL "0": NEXT b: PLOT VAL "76", VAL "92": DRAW VAL "92", VAL "0": FOR b= VAL "0" TO VAL "2": PLOT VAL "76"+b* VAL "32", VAL "92": DRAW VAL "0",- VAL "48": NEXT b "G"13","0";ڰ"1";ٰ"7";t$(rd)("4");"15","0";ڰ"2";t$(re)("4") "$bٰ"5":"4","1";"CURRENT LEADER";"5","1";t$(rf);" ";e(rf);" ";:ra=e(rf)-ax*ap:ra="0""E" "& ra<"0"ra "(ra>"0""+";ra "`ٰ"7":"21",ç;ڰ"6";ٰ"0";(ba="0");"S";۰"0";ڰ"4";"LOW ";ڰ"6";(ba="1");"F";۰"0";ڰ"4";"AST S";ڰ"6";"C";ڰ"4";"ORECARD ": #1ra="0":a="1"̰"20":b(a)="0"ra=a:a="21" #a:a="22"a=ra $a<"21""9240" $!a="1"̰"19":b(a)=b(a+"1"):a $5z$=(l(ab,1)+"10")+(sn+"11"):b(n)=(z$): %&"18","1";"YOU HAVE BROKEN A CLUB" %&)aw="1"+(*"16"):p(aw)="0""9510" %0Qp(aw)=p(aw)-"1":"9750":rb=(z$(rara+"1")):rb=rb-"5":rb<"10"rb="10" %:%z$(rara+"1")=(rb):v$("1")=z$: &)ra="5":z$=v$("1"):aw<"13"ra="7" & aw>"12"aw<"15"ra="3" &*aw>"14"awɰ"17"ra="1" &4 &HGz="1"̰"7"Ͱ"2":z1=(v$(n)(zz+"1")):z1=z1+rb:z1>"99"z1="99" &Mz1<"10"z1="10" &Rv$(n)(zz+"1")=(z1):z: &\\"9840":n="1"39':z=n+"1"40(:j(f(n))> j(f(z))ra=f(n):f(n)=f(z):f(z)=ra &fz:n: &pn="1"̰"40":f(n)=n:n: &z=e("40"):j("40"):n="1"̰"40":rb=n:"40":j(n)=rc:n: &ڰ"6":"6":ٰ"0"::ai="0""7","6";a$(ac,"1");"10","6";a$(ac,"2");"13","4";"TOTAL PRIZE MONEY `";v(ac,"1"):"9920" &C"8","10";i$(af);"13","4";"TOTAL PRIZE MONEY `";ze;:"9920" &z$=:z$="Y"z$="N" & "9890" &h$="BCDFGHJKLMNPRSTVW":m$="AEIOU":z$= h$( "1"+(*"17"))+"."+" "+h$("1"+(*"17"))+m$("1"+(*"5"))+h$("1"+(*"17"))+e$("1"+(*"26")): &:z1="0":z="1"̰"4":z1=z1*"100"+(*"25")+"65":z: &-#"1";("10");ڰ"2";ٰ"7";"PLEASE WAIT": &3#"1";("4");ڰ"1";ٰ"7";" (P)RINT (C)ONTINUE " &= "P"PRT=: &"C""9935" & &/#"1";("8");ڰ"3";ٰ"0";" (P)RINT (M)ENU " &= "P"PRT=: &"M""9945" & &2#"1";("7");ڰ"5";ٰ"0";" (C)HANGE (M)ENU ": &."21","15";ڰ"2";ٰ"7";" BANK `";za;" ";: &+"DO YOU ACCEPT Y/N?";z$:z$="Y"z$="N" & "9970" &&"0":y$=:y$ <"0"y$ >"9""9980" ' a1=(y$): '"PLAY TOURNAMENT","NEXT TOURNAMENT","PRACTICE ","FIXTURES ","CHANGE NAMES ","BANK ","SPONSORS ","LEVEL ","TROPHY ROOM ","PRIZE MONEY ","WORLD RANKING ","SAVE GAME " #g(((5 #P((7X? Xx H h5 D 0 nx1*HVE/HCPHt$Et$FCPFj`Ft$H|H*HGFt$Ft$H[F|,Hj`,G|H|I|H(c211473222616855755861723268573172545686336546344853461625727628617881888763324687276761464168122186236117448683245765287522477821454732185478376468752574726753444846225145855888813167837228884565686716747252174623841744852254832115628352432218188518581615465371673785684826435424458825756246563417464736764616728774626221148835266628278875388463312542' 921110278211003572113004920144468202001382212536921110359222103692210027120564251115666322541733121662341152064321064312110765231116653511160663710435225305274563043165641626577614312256152544530636426502244075123641112233448877665512348765451374374584363717357283438645275463312765341224'SUN CITY CHALLENGE BOPHUTSWANA CAR CARE PLAN INTERNENGLAND PGA CHAMPIONSHIP ENGLAND BRITISH MASTERS ENGLAND MONTE CARLO OPEN MONACO BRITISH OPEN ENGLAND EUROPEAN OPEN EUROPE SANYO SPANISH OPEN SPAIN LANCOME TROPHY FRANCE THE US MASTERS USA BOB HOPE CLASSIC USA US OPEN USA NEC WORLD SERIES USA WALT DISNEY CLASSIC USA SEIKO CHAMPIONSHIP USA JERSEY OPEN JERSEY CARROLLS IRISH OPEN IRELAND B&H INTERNATIONAL ENGLAND AUSTRALIAN MASTERS AUSTRALIA ITALIAN OPEN ITALY A i DUNLOP BOSS SLAZENGER D&H GAMES NIKE HI-TEC VOLVO BELLS LE COQ GUCCI  SDENNS RY EY ON WAYLE BY INSLEYSONTONS ES MANBLENEYSEYTERIS ER ENSDONINGGANLIN ɹ WENTWORTH GLENEAGLES STEVENAGE MOORTOWN WOBURN HAGGS CASTLE FULFORD SUNNINGDALE THE BELFRY BINGLEY ROYAL LYTHAM WINDSOR ) PRIZE MONEY EXPENSES TOURNAMENT 315041573455462945274723363714485832285213194341213027145141205127121232391928501253112039262748202622125220115943283620474313144626545335195522155347184238522151255725595528154313181226202447221732471933473353503757533954173828185755433549253033113135331249351527514629321229325757424447323713295316492628234529394440322631442852501648125621412636414319275743582625395530113755253319135425531742442357403011412815472823125957493924504616115825295454453148583643512839554332395928372259172428181221483433125625131649505326121127555553273111582156154136214124325954481217185141262747144258372939185844452534354428161734394036424537363232524234355328295628323648501114562421523830334822564022181835595137344645132345331133( ( G. NORMAN B. LANGER S. BALESTROST. NAKAJIMA A. BEAN R. TWAY C. STRANGE M. O'MEARA I. AOKI S. LYLE C. PEETE R. FLOYD L. WADKINS T. KITE R. DAVIS T. WATSON F. ZOELLER M. McNULTY C. STADLER J. NIKLAUS H. CLARK I. WOOSNAM G. MARSH S. HOCH L. MIZE B. CRENSHAW L. TREVINO S. TORRANCE N. FALDO N. PRICE G. BRAND L. NELSON F. COUPLES J. RIVERO M. JAMES P. AZINGER H. BIAOCCHI H. IRWIN K. BROWN E( T !YMAINdGOLF9 h+ #(1z1=x/"3":z3=(z1):(z1)=z1z1="1":"9010" #-1z3=z3+"1":z1=(((z1-(z1))*"10"/)*"2")- #2z$=s$(z4,z3):z2=(z$(z1z1+"1"))-"10":w("37"):y$=j$(z2):z$=b$("1",(y$(̼))):w("31")=(z$("8"̰"8")):w("26")=(z$("7"̰"7")):w()=(z$(̺)):w("2")=(z$("2"̰"2"))+"21":w("18")=(z$(̼))+"5" #3ca=09020<# #4hd(1,x)=t(w(18)-11 ):d(1,x)=5ƺ(*10 )>2d(1,x)=4 #70d("2",x)=t(d(,x)+)+(*t(d(,x)+"4")): #<z$=b$(,(y$("2"̰"2"))):w("6")= w("18")+w()+:w("7")=(z$("4"̰"4"))+"23":z$=b$("2",(y$("7"̰"7"))):w()=(z$("2"̰"2")):w("4")=(z$(̼)):z$=b$(,(y$(̺))):w("5")=w("6")-(z$("6"̰"6")):w("21")=("22"-w("5"))*"8":z$=b$(,(y$("4"̰"4"))):w("8")="6"+(z$("2"̰"2")):w("8")=w("8")-"2"*(w("8")=w("5")):w("9")=(z$(̼))+"23":w("10")="6"+(z$("4"̰"4")):w("10")=w("10")+"2"*(w("10")=w("5")):w("11")=(z$(̺))+"23":w("12")="6"+(z$("6"̰"6")):w("12")=w("12")+"2"*(w("12")=w("5")):w("13")=(z$("5"̰"5"))+"23":z$=b$("2",(y$("5"̰"5"))):w("14")="11"+(z$("4"̰"4")):w("14")=w("14")-"2"*(w("14")=w("5")):w("15")=(z$(̺))+"23":w("16")="11"+(z$("6"̰"6")):w("16")=w("16")+"2"*(w("16")=w("5")):w("17")=(z$("5"̰"5"))+"23":w("26")>"2"w("27")="8"+(z$("8"̰"8")):w("27")=w("27")-"2"*(w("27")=w("5")):w("28")=(z$("7"̰"7"))+"23" #Zw("22")=w()+w("12")-"6":w("23")=w("13")-"23":w("25")=w("23")+w("22")+:(w("10")/"2")=w("10")/"2"w("24")=:w("7")=w("7")+ W("23"):w("2")+w("23")>"31"w("2")="23":w("7")=w("2")+w("23") #\nz$=b$("4",(y$("6"̰"6"))):w("26")="4"w("32")=(z$("8"̰"8"))+"9":w("33")=(z$("7"̰"7"))+"23" #_)(w("10")/"2")=w("10")/"2""9065" #diw("24")=-:w("7")=w("2")-w("23"):w("2")-w("23")<"24"w("7")="24":w("2")=w("7")+w("23") #iw()=w()+w("6"):w("4")=w("4")+w("7"):w("19")=w("4")*"8"+"4":w("20")=("22"-w())*"8"-"4":w("26")<"2"w("16")=ç:w("17")=ç:w("26")=çw("14")=ç:w("15")=ç #4:0:n=021:n,21;"";:n:ra=w(2):n=0w(18):ra=ra+(w(24)*(n> w(22)n< w(25))):w(1)+n,ra;" ";:n:n=042 #w(8+n),w(9 +n);0;"":n:w(10 ),w(9 );"";w(8),w(11 );"":n=022 #mw(14+n)>0w(14+n),w(15+n);6;"";w(14+n)+1,w(15+n);"" #Jn:w("27")>çw("27"),w("28");ڰ"6";"";w("27")+,w("28");"" #Gw("29")>çw("29"),w("30");ڰ"6";"";w("29")+,w("30");"" #6w("5")w("6")w("5"),"21";ڰ"5";""; #ȃܼ:w("6"),w("7");"":w("6")+,w("7");" ";:w("6")+"2",w("7");"":w(),w("4");ܼ;ٰ"2";"":ç:ٰ"6":ç: GOLF.BAS 7F79 .n="2"̰"40":rb=n-"1":z2=k(f(n)):z1=f(n) Uk(f(rb))< z2ra=f(rb+"1"):f(rb+"1")=f(rb):f(rb)=ra:rb=rb-"1":rb>"0""15" f(rb+"1")=z1:n: n="1"̰"40":f(n)=n:n: (_rc="0":z="1"̰"7"Ͱ"2":rc=rc+(v$(rb)(zz+"1")):(z/"2")=agrc=rc+(v$(rb)(zz+"1")) -z:rc=(rc/"5"): 2Dn="1"̰"40":t$(n)=u$(n): f(n)=n:rb=n:"40":j(n)=rc+c(n):n: < A FKz="1":a="1"̰"7"Ͱ"2":w(z)=ç:f(n)<"41"w(z)=(v$(f(n))(aa+"1")) H z=z+:a: K3z="1":a="1"̰"7"Ͱ"2":w(z)>"99"w(z)="99": Mw(z)<"10"w(z)="10" O+v$(f(n))(aa+"1")=(w(z)):z=z+"1":a: P(n="2"ah:rb=n-"1":rc=e(n):rd=f(n) Ue(rb)> rcra=f(rb+"1"):f(rb+"1")=f(rb):f(rb)=ra:ra=j(rb+):j(rb+)=j(rb):j(rb)=ra:ra=e(rb+):e(rb+)=e(rb):e(rb)=ra:z$=t$(rb+):t$(rb+)=t$(rb):t$(rb)=z$:rb=rb-"1":rb>"0""85" Zf(rb+"1")=rd:n: d1rd="0":re="0":n="1"ah:f(n)="1"n="99" nn:n="100"rd="1" sIo="1"aj:ap=ap+"1":"17","7";"PLAYING ROUND ";ap:rd="1""180" xap>"1""130" z]z4=ac:ca="1":ax="0":x="1"̰"18":"9000":ax=ax+d("1",x):x:ca=ç:ax<"74""125" {Mx="1"̰"18":d("1",x)="5"d("1",x)="4":ax=ax-"1":ax<"74"x="19" |x }ax>"68""128" ~Wax<"69"x="1"̰"18":d("1",x)="3"d("1",x)="4":ax=ax+"1":ax>"68"x="19" x Ex="1"̰"18":d("2",x)=t(d("1",x)+"1")+(*t(d("1",x)+"4")):x ai="0"alɰ"0""160" (*"1000")ɰ"500""160" 4bb=ap:bd=(*"17")+"1":d("1",bd)="5""135" &be=(*"39")+"1":f(n)=ben="99" n:nɰ"100""150" am="0":an="0":rc="500":n="1"ah:rb=ax+r((j(n)/"10"))+(*"8"):e(n)=e(n)+rb:am=am+rb*(n=rd):an=an+rb*(n=re):e(n)< rcnrdnrerc=e(n):rf=n n:rd>"0""200" o:"80" Sn="1"ah:f(n)="1"rd=n:re=n-((n/"2")=n/"2")+((n/"2")n/"2"):n=ah+"1" n: n("2","18"):o("2","10"):ra=am:rb="1":rh=(be="1"):"350":o("1","3")=e(rd)-am:o("1","10")=o("1","3"):ra=an:rb="2":rh=(be=f(re)):"350":o("2","3")=e(re)-an:o("2","10")=o("2","3") "8700" xx="1"̰"18":z4=ac:"7","16";x;:"9000":ٰ"7":"8","6";d("1",x);"8","11";d("2",x):x="1"ap="1""228" b="1"̰"2" xra=o(b,"10")-(ap-"1")*ax:c="1"x-"1":ra=ra+(n(b,c)-d("1",c)):c:b*"2"+"11","18";" ";b*"2"+"11","18"; ra="0""E" ra<"0"ra ra>"0""+";ra b E"250":n("1",x)=o("1","1"):n("2",x)=o("2","1"):bc"8600" x:"8600":"9860" ="C"bc="1":װ".5","10" ="S"ba="1":װ".5","10" ="F"ba="0":װ".5","10" "8800" o("1","4")=w("2")*"8"+"12":o("2","4")=o("1","4")+"8":n="1"̰"2":o(n,"8")=n(n,x):o(n,"5")=("21"-w("1"))*"8":o(n,"7")=o(n,"5")-w("20"):o(n,"6")=o(n,"4")-w("19"):n:w("1"),w("2")+"1";ٰ"7";ڰ"1";t$(rd)("4"̰"4");ڰ"2";t$(re)("4"̰"4") n="1"̰"2":o(n,"1")="0":n:"340":n="1"̰"8":a="1"̰"2":n(a,x)>"0"n(a,x)=n(a,x)-"1":ra="0":rb="0":"280":"300":"240":b="1"̰"3":o(a,b)=o(a,b)+"1":b a:"340":N: n(a,x)="0""8040" }rc=(w("19")-o(a,"4"))/"3":rb=rc+(*rc):rc=(w("20")-o(a,"5"))/"3":ra=(rc+*(rc/"2")):(*"5")<"2"rb=rb*"2" 'n(a,x)>"4"ƺ(*"20")>"14""8240"   ,ra="0"rb="0" 1\w("5")w("6")o(a,"5")-ra< w("21")+"1"o(a,"5")-ra> w("21")-"8"ra=w("21")+"2" 6!o(a,"5")-ra<"0"ra=o(a,"5") ;0rc=w("20")-o(a,"5"):ra< rc/"2"ra=rc-"2" @&o(a,"5")< w("20")ra>"0"ra=-ra Bo(a,"5")> w("20")ra=(ra) E'o(a,"4")+rb<"172"rb=rb+:"325" J'o(a,"4")+rb>"255"rb=rb-:"330" O[ٰ"8":o(a,"4"),o(a,"5"):rb,-ra:o(a,"4")=o(a,"4")+rb:o(a,"5")=o(a,"5")-ra:ٰ"7": Tb="1"̰"2":b*"2"+"11","10";:o(b,"1");b*"2"+"11","12";o(b,"2");b*"2"+"11","15";o(b,"3");:b:"17","3";" ":"5"+"100"*ba: ^Pn="1"̰"18":n(rb,n)="3":n:ra=ra-"54":rh="1"ra=ra+"2":n(rb,bd)="1" h ra<"1" r9rc="1"+(*"17"):n(rb,rc)>"6"n(rb,rc)<"3""370" |,n(rb,rc)=n(rb,rc)+"1":ra=ra-"1":"360"  n="1"̰"20":l(n,"1")=n:n:n="1"̰"20":z1=l(n,"1"):ra= "1"+(*"19"):l(n,"1")=l(ra,"1"):l(ra,"1")=z1:n:ab="1"   'n="1"̰"40":c(n)="5":k(n)="0":n