' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֝uW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'Ӝu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wU H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  Lh@(LH9LHH/Hh/ H-З( ܸ(& ¸$8 H` *HVDP (ED Z $0x8x D- ܸDD#HIHHHHhHH݌hHhHh݌H6 h Լ ռ ռ ռ`HJ>݌h Hh݌`  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ穎鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LL[dmx- (  ՠ@跻~!Wo*9~~~~ɬƬ~UVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS @ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABR^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHn 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)nooõĵL LLЦ  #-µµ( zegehtpjigh q Ql` z8L`MaEK@>ˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ@ NL   L` -e L գsr ࣭ml ࣭srL -µLЦ գ ze)rs zrsLq ] Qlr L̦ գ8gh ࣥhgL գ8LʨM ࣥˤLµH hLħõµ µõL&E`( 80 0 DDLDLDL^ t^`,tP ȟpMt-^^`DH hWLԧ d@` Lꢩ  c ȢL LqLգcl mllm ꢥELȦAD@ C N cLuɠ% d: L ЌĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ u`浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `ՊЀР* @A@AЪЀРЀЀРЀЀՠЪРЀРՀԀЀՂР@A@ P AЀՂԪЀРՀժЀЀЪРЀЀԠЪРЀ"***@(@*@*РՂЪԀЀՂРՀ*A**A(P P AЀРԪՊЀЀРЀЀԂЀР"***@(@*@*ШՂЪՂЀՊРՀ*A**A(P P AЀРԪРՀРтЀРЀЀЀՊԪЀРՂժԠЪРЀ``` Q` Q``&` `` .``` 8``0` `L<``aai ``9`H8 h``` ````?aaaa(޽aa(`% $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPd +2<FWbisz#.9DOUgx&7EWhx &7IIIN" 66N inR>i----nN> ? ? ?wqImmw M:N)N-)n mN 6R 6N5 6N --NN n:?w1VIJN7RI:?RI NIIVI 5)3M5.M-Nm >6-N))sI.-u-->N-N>I> 3--v 5--.-6s-N -޻M:?n -N.--6NI))3M?M1s-N.)3M1?w *uIRR >RNIN---ޛ-- *NI.)s N J M13--n N -3M?7M13-u J)36Ms-N -3M13M13-u ---n?76--NJ--n?76NII)-6n)-uMM13M1??n n N )66-N I166s-N Mn7 n N 666--NMM17 n n NIM13m1n)n N )3M13M1s-N -3M?76NI )3M13 mN -3M?7 n N )3M:w -N --66vIMM13M13M1s-N M13M13MN IM13M1n >7MqM1s  3MqJM1s 6vI---.-uJ--;.>.>.-u5rVw-->.>.>*-u7RMJ?)-n) nM13MI??MI-)3 >n-uNI  VI @@C?.- ??N -5?*m ->??w- -3-ЀՂԪЀРՀՊЀЀРЀЀԠЪРЀРՀԀЀՊР@A@ P AЀՂԪЀРՀՊЀЀРЀЀЀРЪ?7M13-u J)36Ms-N -3M13M13-u ---n?76--NJ--n?76NII)-6n)-uMM13M1??n n N )66-N I166s-N Mn7 n N 666--NMM17 n n NIM13m1n)n N )3M13M1s-N -3M?76NI )3M13 mN -3M?7 n N )3ЀРЪՊЀЀРЀЀԂЀР"***@(@*@*РՀԀЀՊР*A**A(P P AЀРЪРՀРтՀЀРЀЀԂЀР* @A@AЊЀРЀРЪ``` Q` Q``&` `` .``` 8``0` `L<``aai ``9`H8 h``` ````?aaaa(޽aa(`% $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPd +2<FWbisz#.9DOUgx&7EWhx &7IIIN" 66N inR>i----nN> ? ? ?wqImmw M:N)N-)n mN 6R 6N5 6N --NN n:?w1VIJN7RI:?RI NIIVI 5)3M5.M-Nm >6-N))sI.-u-->N-N>I> 3--v 5--.-6s-N -޻M:?n -N.--6NI))3M?M1s-N.)3M1?w *uIRR >RNIN---ޛ-- *NI.)s N J M13--n N -3M"***@(@*@*РՀԀЀՊР*A**A(P P Aתժժߪժժժժժժߪ ->??w- -3-ժժժժժժߪժߪժժժժժתתժתתժժժժժժߪժժժߪp|x<`תժժժתתժת?x?x~?xppժժժժժߪժ?xCpxp@pժժժժժ?xaa~p@|pժժժժժߪժժժժժժתתժתߪժժժժժժߪժժժժߪp|~p<`ժժժժתߪժת?x?x~xppߪժժժժժߪժ?xCppp@pժժժժժժ?xaa~x@|pժժժժժߪժժժժժժתתժߪժժժժժժߪߪժժժժߪp ||`<`ժժժժתߪժת?x?x~|ppߪժժժժժߪժժ?xCp`p@pժժժժߪժ?xaa~?x@|pժժժժߪժߪժժժժժժժM:w -N --66vIMM13M13M1s-N M13M13MN IM13M1n >7MqM1s  3MqJM1s 6vI---.-uJ--;.>.>.-u5rVw-->.>.>*-u7RMJ?)-n) nM13MI??MI-)3 >n-uNI  VI @@C?.- ??N -5?*mתժժժժժժժ?xCp>@pCpժתժժߪժժժժժתժתժժժժժժժ ժժժժժߪ?x|~|A`pժժժժժתժת?xx|p`pDISKETTE"N14:15 N20240DNA$"PRESS ANY KEY TO CONTINUE."ON19:8ZN20240fN19:35nNA$tNN - SUBROUTINE TO PRINT TEXT WITH CLICKS.OO150OI1(A$)$O(A$,I,1);.OX(16336)8OIBOLO255VO";:I!>N21:3:I337:" ";:I>HN1:1::I139:" ";:IcRNI222:I:1:" ";:39:" ";:I\N23:1:I139:" ";:I:fNA$"WE STRONGLY SUGGEST THAT YOU"pN10:6zN20240NA$"MAKE A BACKUP COPY OF THIS"N12:7N20240 NA$"4:X(16336)::F1300K:::O8 " THERE ARE A FEW THINGS YOU SHOULD "|8 "KNOW ABOUT THIS GOLF GAME. IF YOU ARE"8 "UNFAMILIAR WITH GOLFING, HERE IS A "8 "CHART OF CLUB/DISTANCE RELATIONSHIPS:"8 F9 (7):(4):"WOODS":"------------"::"1) 270 YARDS":"2) 240 YARDS":"3) 210 YARDS":"4) 175 YARDS"Z9 "5) 150 YARDS"9 7:25:"IRONS":22:"------------"::22:"1) 220 YARDS":22:"2) 205 YARDS":22:"3) 190 YARDS":22:"4) 175 YARDS":22:"5) 160 YARDS"Z: (22):"6) 145 YARDS":(22):"7) 130 YARDS":(22):"8) 115 YARDS":(22):"9) 100 YARDS":(22):" AND UNDER":" (23):(8)::"PRESS ANY KEY TO CONTINUE";::WB$::::, " THOSE DISTANCES WILL, OF COURSE, VARY":6 "WITH THE EFFECTS OF WIND AND YOUR SKILL";@ "(HANDICAP).7;J :" FOR ALL PURPOSES WITHIN THE GAME THE"f;T "TOP OF THE SCREEN IS NORTH, AND ITS";^ "DIRECTION IS 0 DEGREES WHEN YOU HIT.";h "THE RIGHT SIDE OF THE SCREEN IS 90 DE-";r "GREES, THE BOTTOM IS 180, AND THE LEFT" <| "IS 270 DEGREES."`< :16:"0 DEGREES"::21:"I":21:"I":3:"270 DEGREES <-----*-----> 90 DEGREES"< 21:"I":21:"I"::15:"180 DEGREES"< (23):(8)::"PRESS ANY KEY TO CONTINUE";::WB$:::< " UNTIL YOU GET THE HANG OF THE GAME WE"< X= "RECOMMEND THAT YOU PLAY AS A 'SCRATCH'"::"(THAT'S SLANG FOR A 0 HANDICAP GOLFER;"^= = "A RANK AMATEUR!). THE UPPER REACHES OF"= "THE HANDICAP ARE UNPREDICTABLE AT BEST."= = " ANY ATTEMPT TO OVERSWING A GOLF CLUB"= %> "WILL CAUSE AN ERRATIC RESULT. THIS IS"+> N> "REFLECTED IN THIS GAME TOO."}> :" TO GET A LISTING OF CLUBS AND CLUB"> :"USE THE CADDIE FUNCTION IT CAN BE"> :"VERY HELPFUL."> 23:8:"PRESS ANY KEY TO CONTINUE":ZX$:ZX$""ī31551? ::" THE HARDEST YOU CAN SWING A CLUB AND"7? e? "ACHIEVE A PREDICTABLE RESULT IS 90%. A"k? ? "SWING OF GREATER THAN 90% WILL AFFECT"? ? "YOUR SHOT. AN OVERSWING MAY RESULT IN"? @ "A SPECTACULAR SHOT, BUT IT IS JUST AS "@! )@& "LIKELY TO BRING DISASTER."/@+ Z@0 " IF YOU WISH TO CHANGE CLUBS OR "`@5 @: "DIRECTION, ENTER A ZERO FOR YOUR SWING."@D :"THE PROGRAM MAY BE ABORTED BY ENTERING "::"'Q' AT THE GOLF CLUB PROMPT.(IF ONE MAN"@I !AN "QUITS, THE GAME IS OVER FOR EVERYONE.)"VAX 24:8::"PRESS ANY KEY TO BEGIN";::WB$:2350oAb G%1B%4(1)20:Al B%(1)2020:Av 24:868:"DO YOU REALLY WANT TO QUIT NOW (Y/N)";:QQ$A QQ$"N"QQ$"Y"Ģ23::3190A QQ$"Y"ĉ:30000B 1350iB0u936:12::" INSERT YOUR MASTER DISK IN THE DRIVE."::24:7:"PRESS ANY KEY TO CONTINUE.";:TE$uB:u30000BDu44033,16BNu:936:12:14:"LOADING...."BXu(4)"RUN MENU"2:VD%1G%32:T%2(1)16:B%18(1)11:2530^7 T1%39:T%21(1)16:G%1:B%(1)15:25307 12:C39:I039:CC.49:C19,CI::VD%(1)2:VD%1G%32:T%21(1)16:B%(1)14:25307 T1%39:T%2(1)16:G%1:B%18(1)11:2530!8 K120:J140:I3901:SS.33:S17,SI::I010:0,26I::B%(1)6:T%24(1)13:G%1:T1%39:25306 B0:12:I3901:BB1:SB3:S,S15I::I011:13,39I::B%20((1)10):T%2(1)12:G%1:T1%39:2530/7 12:C0:I039:CC.49:C,C20I::VD%(1)K3:(8K):SC(P,I);:I:(38):TS(P)::P:K0Z(*:7::"PRESS ANY KEY FOR NEXT HOLE":m(4WB$:T1%0:GHx(>30000(HF1000(1):K(D(Z)15)(4DI):FKĺ"";N$(Z);"'S SHOT DROPPED IN!!":IH(Z)1(RD(Z):X(Z),Y(Z)=)\FX(Z)H(1):KY(Z)H(2):KK15:FF15:X(Z)20F:Y(Z)20K:X(Z)39X(Z)39U)fX(Z)0X(Z)5(1)j)pY(Z)39Y(Z)39)zY(Z)0Y(Z)5(1)))VE(1)X(Z)DI:VE(2)AP:(VE(2)Y(Z))(VE(1)X(Z)2300)470:C0:C(Z):DD(Z):INAPY(Z):MX(Z)DI:M38M38*(DI)1ININ(DI)R*IX(Z)MV:XIV:YY(Z):CCIN:(C)1YY(Z)C:C0o*D(Z)D:DX,Y):D8İ660*D0RO(Z)RO(Z)1*D(Z):X(Z),Y(Z):C(Z):X,Y:X(Z)X:Y(Z)Y:I*YAPĠD:X,Y:C(Z):YAP:DX,Y):X,Y*D2İ980*O0 +W251PA(GH)3&+W250W471PA(GH)4:+ W470PA(GH)5M+ TPTPPA(GH):_+ PB$"Y"2040j+$ 30000+. :5:8:"NUMBER OF PLAYERS (1-7)? ":5:33:PL$:+8 PL(PL$):(PL$)1(PL$)72350+B N$(PL):I1PL=,L :7:" PLAYER #";I"'S ";:"NAME? ";N$(I):7:" "},V :9:" YOUR HANDICAP(0-30)? ";HC$(I):HC(I)(HC$(I)),[ HC(I)0HC(I)30ĺ" ":" "/-` HC(I)0HC(I)30ĺ" TRY AGAIN PLEASE, 0-30 ONLY."::23906-j I_-t PA(18):SC(PL,18):HL(18),BALL$(14)-~ BALL$(1)"MAGENTA":BALL$(9)"ORANGE":BALL$(3)"PURPLE":BALL$(5)"GREY":BALL$(11)"PINK":BALL$(6)"BLUE":BALL$(14)"AQUA"f. :9::" (1) MAGENTA (9) ORANGE":" (5) GREY (11) PINK":" (6) BLUE (14) AQUA":" (3) PURPLE"v. ::I1PL. 20:" WHAT COLOR BALL WILL ";N$(I);" USE ";:C$(I):C(I)(C$(I)))/ C(I)1C(I)14ĺ" ":" "f/ C(I)1C(I)14ĺ"SORRY, TRY A NUMBER ON THE LIST":2460/ GG(C(I))0:21:"SORRY, THAT COLOR IS TAKEN.":2460/ GG(C(I))10 C(I)1C(I)9C(I)3C(I)5C(I)11C(I)6C(I)14:21:" TRY A NUMBER ON THE LIST!":2460"0 :I0 :13:"WHAT SIZE COURSE DO YOU WANT TO PLAY?"::12:"1) PITCH & PUTT":12:"2) SHORT COURSE":12:"3) REGULATION":12:"4) THE MONSTER"0 24:12:"ENTER A NUMBER :";:24:28:HL$:HL(HL$)0 HL4HL1ī25001 :: 1 GH118:2520:1280q1 :I12(1)1:I2550,2570,2590,2610,2620,2630,2650,2670,2690,2700,2710,27301 1170:60:100:170:230:210:I1PL:X(I)T1%:Y(I)T%::1 300002 12:I732:0,39I::VD%(1)2:VD%1B%10(11(1)):T%9(1)21:G%32:2530C2 B%10(11(1)):G%1:T%9(1)21:T1%39:25302 12:I1326:0,18I::I1030:19,39I::VD%(1)2:VD%1B%9(17(1)):T%15(1)11:G%32:25302 B%5(1)17:G%1:T%12(1)16:T1%39:2530S3 C0:12:I016:0,14I::I1739:CC.49:C,C14I::VD%(1)2:VD%1B%9(14(1)):T%2(1)12:G%32:25303( B%(1)12:G%1:T1%39:T%12(1)10:253032 B0:12:I039:BB1:SB3:S,S15I::I2839:13,39I::B%20((1)10):T%2(1)12:G%32:2530K4< 12:S40:I039:SS.33:S17,SI::I2939:0,26I::B%(1)6:T%24(1)13:G%32:25304F 12:C25:I025:CC.49:C,C14I::I2639:12,26I::VD%(1)2:VD%1B%4(1)21:T%27(1)10:G%32:25304P B%17(1)13:T1%39:T%14(1)10:G%1:2530M5Z 12:I039:10,30I::B%4(1)20:T%12(1)16:VD%(1)2:VD%1G%1:T1%39:2530]5d G%32:25305n 12:I019:I,I20I::I2039:19,39I::VD%(1)2:VD%1B%14(1)15:G%32:T%2(1)16:25305x B%(1)16:G%1:T1%39:T%21(1)16:2530]6 12:Sк"WOULD YOU LIKE TO PLAY THE BACK NINE?":PB$:2330F'WB$:T1%0:GH'K0:::"HOLE";:I1018:KK3:(8K):I;::(38):"T":' K0:"PAR";:I1018:KK3:(8K):PA(I);::(38):TP:'I139:"-";:::.( P1PL:K0:(N$(P),9);:I1018:Kz #?? ՠԠŠ"Š!<    ՠ Ӳ)š<ծԠѠ٠ à 1012,020000" 360(B12:14:"LOADING..."["BLOAD MS2,A$4000"u(C(X8)((A$,X8,1))2230,32:3086:16300,0:16297,0:16302,0:16304,0:3:0:1:232,144:233,98:24576<FV(1)10.6:V(2)11.8 PX05:V1(X1)14.0(X1.2):E ZQ7:Q17.7:Q21:Q3100:Q499:Q532:Q632:Q764N d150 nTQ5:HTHTQ:VTVTQ1:A(A$):Q3HT,VT:X8Q2A xC(X8)Q7T(T)Q5:X8X8Q2 C(X8)Q6ĔQ2:Q4:: C(X8)Q2T:Q4:: VT24:HT5:A$"_ GREEN VALLEY PUBLISHING 1985":110D :N:X1N:A$:VTV(X):HT20((A$)2):110: N:X1N:T(X),A$(X):VTV1(X):HT12.5:A$(X)") "A$(X):110: A$(X)") QUIT":VTV1(X):HT12.5:110 VTV1(X)2:HT15.4:A$"WHICH ONE?":110 A$:KB(A$):A$""240# KB1KBN1240S VTV1(X)2:HT25.5:A$(KB):110::AKB::a AN321j 310 "::10:5:"INSERT BLANK DISK IN DRIVE ONE":24:7:"PRESS ANY KEY TO CONTINUE.";:A$: #:12:13:"FORMATTING..."@ )(4)"INIT HELLO,D1":(4)"DELETE HELLO,D1"::17:"DONE"::2:"INSERT MASTER DISK";F 6_ @AN1ĺ"RUN MENUQ"} A::12:14:"LOADING..." JT(A)1ĺ"RUN"A$(A) TT(A)2ĺ"BRUN";A$(A) ^T(A)3ĺ"EXEC";A$(A) hER(222):20  DATA FOR DESCRIPTION 2  F O R E !0  THE GOLF GAME SIMULATIONL DATA FOR PROGRAM NAMES] 1-APPLESOFTk 2-BINARY| 3-TEXT FILE  1  1,FORE! 1,DO AND DON'T 1,RUSTY NAIL N936 *N3:3::I337:" ";:I4NI421:I:3:" ";:37:"       ЀР@A@ @'РՂРтՀЀРՀՊЀР* @A@AЊЀРժЀՂЪРՀЀРЪՂРъՀЀРՀ*ЀР@**@*A@ ЊЀРժЀՂЪРՀЀЀРЀЀЀРՀ*ЀР@**@*A@ ЀՊԪЀРՂԪЀՂРՀЀЀРЀЀբЪРЀ               ЀР@A@ @'РՀРтՀЀРՀԂЀР* @A@AЊЀРԪЀՂРՀЀРՀРтՀЀРՀ*ЀР@**@*A@ ЊЀРԪЀՂРՀЀЀРЀЀЀРՀ*ЀР@**@*A@ ЀՂԪЀРՀԪЀՂРՀЀЀРЀЀԠЪРЀ          Z 50)POKE 214,255: POKE 2049,1 :::8:8:"THESE AND MANY MORE FINE"::10:"PROGRAMS CAN BE FOUND"::13:"AT YOUR NEARBY":A$::14:A$;" STORE""BLOAD QUIT TITLE,A$2000"230,32:16300,0:16297,0:16302,0:16304,0< (A$:::10:10:"INSERT NEW DISK AND"::11:"PRESS CTRL-RESET"D *42K 22X d TARGETE  50043520(4);"BLOAD MENUC,D1"INIT4352:DR47082:VOL47083:TR47084:SC47085:BC47091:CMD47092:ER47093:DL47088:DH47089:BC,0:VOL,254:DL,0 TS(0)3:TE(0)9:TS(1)10:TE(1)16:TS(2)17:TE(2)23:TS(3)24:TE(3)30:TS(4)31:TE(4)347 :10:"ONE OR TWO DRIVES (1,2 OR 3 TO EXIT)? ";S A$:A(A$):A1A312_ A334f Ar A150 :8:5:"INSERT ";::"SOURCE";::" DISK IN DRIVE ";::"ONE";::"."0 :" INSERT ";::"DUPLICATE";::" DISK IN DRIVE ";::"TWO";::".":24:7:"PRESS TO CONTINUE.";o 100:24:1:868:16:"COPYING";:49387,0:49385,0:255,0 INIT:(255)0200 DR,1:CMD,1:TR,0:DH,143:4355:(255)0200:TR,1:4355:(255)0200:TR,2:4358:(255)0200\ DR,2:CMD,2:TR,0:DH,143:4355:(255)0200:TR,1:4355:(255)0200:TR,2:4358:(255)0200 X04:DR,1:CMD,1:DH,143:XXTS(X)TE(X):TR,XX:4355:(255)0200::DR,2:CMD,2:DH,143:XXTS(X)TE(X):TR,XX:4355:(255)0200:: ":(4)"PR#6"p 2320:DR,1:CMD,1:TR,0:DH,143:4355:(255)0200:TR,1:4355:(255)0200:TR,2:4358:(255)0200 4330:49386,0:49385,0:255,0 6INIT:(255)0200 8DR,1:CMD,2:TR,0:DH,143:4355:(255)0200:TR,1:4355:(255)0200:TR,2:4358:(255)0200h :X04:320:DR,1:CMD,1:DH,143:XXTS(X)TE(X):TR,XX:4355:(255)0200: <330:DR,1:CMD,2:DH,143:XXTS(X)TE(X):TR,XX:4355:(255)0200:: F320:(4);"PR#6" c dKB(16384):KB128100 fKBKB128:16368,0::5^@:8:5:"INSERT ";::"SOURCE";::" DISK IN DRIVE ";::"ONE";::"."A24:7:"PRESS TO CONTINUE.";B100:KB13320:936:12:14:"READING...":J:8:5:"INSERT ";::"TARGET";::" DISK IN DRIVE ";::"ONE";::"."3K24:7:"PRESS TO CONTINUE.";fL100:KB13330:936:12:14:"WRITING..."::ER(222):ER:10:15:"COPY ABORTED"::5:"INSERT SOURCE DISK IN DRIVE ONE":100:(4);"PR#6" 4);"RUN MENU"      @L LLAx>V鷩DP (E>D Z t+0x8x D- ܸDD#HX`8?E Vk *f???0xE   Hh D#-EEE8` D ܸx D - ܸx8`L `` ` ΍ЍΠՍժժժժժߪժ?xCp|p@pժժժժժ?xaa~p@|p תժתժժժժժתժժߪժժժժժժߪժժժתժժߪ?x|~x`Apժժժժժתժת?xx~p`pתժժժժժժժ?xaa~pCpժתժժתժժժתժժժժժתժתժժժժժժժժߪժժժժժߪժժժתժժߪ?x|~?xpCpժժժժժתժժ?xpp`pժժתժժժ?xaa~v`Cpժߪժժתժժժתժժժժժתߪժתժժժժժժժߪߪժժժժߪժժժתתժߪ?x?x~?xpCpժժժժժߪժժ?xp`p`pժժߪժժժ?xaa~pACpժߪժժժժߪժժߪժժժժժתߪժתժժժժժժժߪժժժժߪp~`~<`ߪժժժתתժת?x?x~?xpp            OW MANY COPIES DO YOU WANT?";MM0(4);"PR#1"=E$(27)JG$(35)WU$(36)eL$(124)qT$(9)GG$;D$;"PR#1"(14);:E$;(69);:18)"WEEKLY SCHEDULE"" FOR THE WEEK ";DT$;" THRU ";EDT$ (15)(10); E$; Zbd" THIS IS A SCHEDULING PROGRAM WHICH ":" WILL HANDLE A SCHEDULE FOR ONE WEEK."hin"IT WAS DEVISED TO HELP YOU KEEP TRACK":"OF THE IMPORTANT EVENTS THAT YOU HAVE"x" INCORPORATED INTO YOUR BUSY WEEK."}H "IT IS VERY SIMPLE TO USE. ALL YOU DO IS":" GO ALONG DAY BY DAY AND TYPE IN THE " "IMPORTANT TIMES OF THE DAY YOU HAVE TO":" REMEMBER FOR EACH DAY OF THE WEEK." "THE HOURS OF THE DAY START AT 7 O'CLOCK":"IN THE MORNING AND END AT 10 O'CLOCK IN" " THE EVENING."% ~ "TO ACCESS ONE OF THE HOURS OF THE DAY,":"YOU TYPE THE NUMBER AT THE LEFT OF THE " "SCREEN WHICH CORRESPONDS TO THE HOUR OF":"THE DAY IN THE NEXT COLUMN OF NUMBERS." :::" HIT ANY KEY TO CONTINUE ": 756! :9w "THE PROGRAM ALSO SAVES YOUR SCHEDULE TO":"YOUR DATA DISK, ANY FORMATTED APPLE" "DISK WILL SUFFICE FOR THIS PURPOSE.":::"AS SOON AS YOU ENTER THE PROGRAM, PLACE"V "YOUR DATA DISK INTO THE DRIVE. THE SAVE":" TO DISK OCCURS WITHIN THE PROGRAM AS ":"SOON AS YOU TELL PROGRAM YOUR FINISHED " " ADDING DATA TO YOUR WEEK!!! ": : " YOU ARE NOW READY TO ENTER YOUR FIRST":"SCHEDULE. INSERT YOUR DATA DISK AND HIT":" ANY KEY." 756 :10l " THIS PROGRAM WORKS ON A MONDAY THRU":"SUNDAY BASIS. PLEASE ENTER MONDAYS DATE" 12:"IN THE FORM MM/DD/YY":12:13:"";DT$ (DT$)8ī270 13:"NOW THE FOLLOWING SUNDAYS DATE MM/DD/YY":13:32:"";EDT$(EDT$)8ī280;"DT$""DT$" ":EDT$""EDT$" "a EDITED AND FIXED BY JAKE SCOTToGG$(13){D$(4)A$(8,20)I17BB$(I)IUW$"WEEKLY SCHEDULE":6510:7:"DO YOU WANT TO USE A PREVIOUSLY CREATED SCHEDULE FILE ?":AB$::AB$"Y"Ą"WHAT IS THE NAME OF YOUR SCHEDULE FILE?";Z$:5110rAB$"N"AB$"Y"ī5080:"WOULD YOU LIKE TO SAVE THE SCHEDULE?"::AC$:AC$"Y"AC$"N"ī5090:AC$"N"F1:5380 " WHAT WOULD YOU LIKE TO CALL YOUR FILE?";Z$:5380,:6510:8:4:"READING ";Z$>D$;"OPEN";Z$P D$;"READ";Z$[I17gJ116(A$(I,J): DAY,WEEK2(A$(I,J))1A$(I,J)" ": FILL SPACES<:FD$;"CLOSE";Z$P:6510Z:2);dI17n(BB$(I),3);2);x:$I139:"=";::0I116EI7VI6:5290TI6VI6hV;:V10ĺ1);sJ17J1ĺ2);(A$(J,I),3);:"PRESS FOR MENU":AN$ "MONDAY","TUESDAY","WEDNESDAY","THURSDAY","FRIDAY","SATURDAY","SUNDAY"&6510,C::4)"1-MONDAY"Z":4);"2-TUESDAY"r,:4)"3-WEDNESDAY"6:4)"4-THURSDAY"@:4)"5-FRIDAY"J:4)"6-SATURDAY"T:4)"7-SUNDAY"^:4)"8-FINISH"c:4)"9-QUIT THE PROGRAM"h[r"TYPE THE NUMBER OF YOUR CHOICE PRESS TO RETURN TO THE SUMMARY"q|AA$:AA$""5200~A(AA$)A9İ63000A85790A0520065103:18::BB$(A):I116EI6:I6EI6EAE:I12EAI6I4:10:EA;18);E;0I6ĺ21);"PM";C24);A$(A,I);I_4:3::"TYPE":e13:4::"FOR"::21:"PRESS TO RETURN TO THE MENU"&BE$:BE$""53800B(BE$):B7BB6:5710DB6BB6NB1B165540XCB6:B6CB6DbBB$(A);" AT ";C;:B6ĺ" PM ":5750Jl_v" XXXXXXXXXXXX"lA$(A,B)(A$(A,B))12ĺ"MUST BE LESS THAN 13 CHARACTERS":573055406390" DO YOU WANT A PRINTED COPY?";AD$:AD$"N"6520" H        K116E$;G$;%T$;L$;0J17<I114H(95);OIUb(124);iJtE$;U$~6330$K7ĺ12)K6;.K6ĺ12)K6;8I18BT$;E$;G$;L$;E$;U$;1);A$(I,K);LIV`6330j6330tKuE$;G$;vT$;L$;wJ17*xI1146y(95);=zID{ Q|(124);X}Ji~MX130::qMUE$;(65);E$;(78);E$;(34)(13)D$;"PR#0"6520I18T$;E$;G$;L$;E$;U$;IF1ıGG$;D$;"OPEN";Z$& D$;"DELETE";Z$8D$;"OPEN";Z$KD$;"WRITE";Z$V(I17b2J116o<A$(I,J)wF:PD$;"CLOSE";Z$Z:6510:10:" SCHEDULE NOW WRITTEN TO ";Z$::dn:L20((W$)2):L::W$::xAB$"N"ī5080a:9:"ARE YOU SURE THAT YOU WANT TO QUIT??":AB$:AB$"N"AB$"Y"ī63000:AB$"N"ıtAB$"N"ī5190:(4);"RUN MENU")(81);E$;(66);E$;(33);(*E$;(84)14;74E$;(62);I>(9);"134N";WH(9);"O"RE$;"(015,030,045,060,075,090,105,120.";\E$;G$:MV1130:(34);::E$;U$fpMU1MMz" ";H17T$;4);BB$(H);H(N$(Z);"'S BALL IS PARTLY COVERED":UN$(Z);"'S BALL IS COMPLETELY COVERED":wN$(Z);"'S BALL IS BURIED.":N$(Z);"'S BALL IS BURIED IN THE LIP OF THE BUNKER":"KERSPLASH" N$(Z);"'S BALL IS IN THE DRINK.":"ONE STROK:  :: GG(14)x12:15);"F O R E !":II11500:II::::::::" WOULD YOU LIKE INSTRUCTIONS (Y/N)? ";WB$:WB$"Y"WB$"N"30(WB$"N"23502:2760<4:IG%G%5:B%3,B%9I::X%B%F13:I15(2) PA%39(1):3170:B%,A%)12A%080D ZAA%1:BA%1:CB%3B%:A,BC::: d8:I1(11(1)5):A2(1):B%25(1)7:C025:B%,C)12AAC:C25:120 nC:I: xB%,A:C:I I1(11(1)5):A2(1):B%25(1)7:C39141:B%,C)12ACA:C14:150 C:I:! B%,A:C:I: PL2:C(1)1:D(1)0:X(1)1:Y(1)18:C(2)2:D(2)0:X(2)1:Y(2)18:C(1):X(1),Y(1):SC(11(1))5::N$(1)"FRED":N$(2)"PESTO":1280 WT((1)6)1:WT5ı" 1050:W%(2)(1)39:W%(1),W%(2))15W%(1),W%(2))4W%(1),W%(2))12W%(1)31W%(2)33180G A2(1)5:B2(1)5:C3(1)6 2:W%(1)1,W%(1)AW%(2):W%(1)1,W%(1)AW%(2)B1:X1B:W%(1),W%(1)CW%(2)X:X: I(G%1)(4(1)):J(X%4)(5(1)):I,J)4210 15:I,J:H(1)I:H(2)J R(1)6:R5ı= R4(1)31:I039:B(1):B.33RR1:R0R0Y B.66RR1:R39R39s R,I)12Ġ2:R,I::{ : B1:C2(1):C1B1 "HC(Z)10350 ,HC(Z)18330 6C.5C1.5370 @ANAN(HC(Z)(1)B):370 JC.89C1370 TANAN(20B(1)):370/ ^C.39C1.6370e hANAN(10(1)B):C(1):C.99ANAN(10(1)B) rC0:L9CL:L1CL2:L(LWO((HC(Z)1)2))(1):L2400 |ANAN(CB) CL7460 AN45AN136ANAN(4WI(2)) AN136AN180ANAN(4WI(1))-AN180AN225ANAN(4WI(1))QAN225AN315ANAN(4WI(2))mAN315ANAN(4WI(1))AN45ANAN(4WI(1))AN(Z)AN:DI0:ID15:DW19:B2(1):B1B1B1B1AN(Z)45IDIDWI(2):DWDWWI(2)$AN(Z)45AN(Z)136IDIDWI(1):DWDWWI(1)WAN(Z)136AN(Z)180IDIDWI(2):DWDWWI(2)AN(Z)180AN(Z)225IDIDWI(2):DWDWWI(2)AN(Z)225AN(Z)315IDIDWI(1):DWDWWI(1)AN(Z)315IDIDWI(2):DWDWWI(2)&C((HC(Z)1)2)(1):C3C7CC(2(1))!0CL7ID15^:DI(ID(CL(159))(SW10)):WO0DI(DW(2CL)(SW10))pDHC(Z)5B1NDIDI(CB)XWG0(CL5WO0)DIDIWGbSA(Z)CLDIDI(2(SA(Z)CL)(2B(1)))lSA(Z)0vQ0:RO(Z)2Q5(1) RO(Z)0Q3(1)*RO(Z)0:DI(DIQ)(10SC):DI(2DI3)IDI:700lWO1I(8(2CL))IX(Z)DI1:700WO0I(7CL)IDI:700J12:"":N014:Q(16336)::::APY:1630WG0:WI(1)0:WI(2)0:WI720,730,740,750,760,770,780,790,800C850:"THE WIND IS ";:810:" FROM THE NORTH.":WI(2)WI:850:"THE WIND IS ";:810:" FROM THE NORTHEAST":WI(1)WI:WI(2)WI:850:"THE WIND IS ";:810:" FROM THE EAST.":WI(1)WI:850:"THE WIND IS ";:810:" FROM THE SOUTHEAST":WI(1)WI:WI(2)WI:W850:"THE WIND IS ";:810:" FROM THE SOUTH.":WI(2)WI:850:"THE WIND IS ";:810:" FROM THE SOUTHWEST":WI(1)WI:WI(2)WI: 850:"THE WIND IS ";:810:" FROM THE WEST.":WI(1)WI:)850:"THE WIND IS ";:810:" FROM THE NORTHWEST":WI(1)WI:WI(2)WI:U "IT'S RAINING LIGHTLY":WG1:WI(1)1:k*WI0ĺ"CALM"::4WI1ĺ"LIGHT";:>WI2ĺ"MODERATE";:H"STRONG";:RWI7(1)2:WI1WI0\WI3WI3fWI(WI):)p34,20:SA(Z)9(1)1:SA(Z)890,900,910,920,930,940,950,960,970PzN$(Z);"'S BALL IS SITTING HIGH":wN$(Z);"'S BALL IS SITTING LOW ":N$(Z);"'S BALL IS SITTING VERY LOW":N$(Z);"'S BALL IS LOW, NEAR THE LIP":N$(Z);"'S BALL IS VERY LOW, NEAR THE LIP":                      10ĉ::"HOLE";:I19:(8(3I)):I;::(38):"T":h&"PAR";:I19:(8(3I)):PA(I);::(38):TP:&I139:"-";:::&P1PL:(N$(P),9);:I19:(8(3I)):SC(P,I);:I:(38):TS(P)::P&:6:"PRESS ANY KEY FOR NEXT HOLE.":3'GH9=175 YDS":" ALL OTHERS HIT AS IRONS":8::"PRESS ANY KEY TO CONTINUE";:GW$::8"IRONS: 1=220 YDS 2=205 YDS 3=190 YDS":"4=175 YDS 5=160 YDS 6=145 YDS 7=130 YDS":" 8=115 YDS 9=100 YDS AND UNDER" :7::"PRESS ANY KEY TO CONTINUE";::GW$:q<14:"DIRECTIONS:":"0 = UP 90 = RIGHT 180 = DOWN 270 = LEFT":4:"(VALUES ARE IN DEGREES - 0=360)">7::"PRESS ANY KEY TO CONTINUE";::GW$:?ZZ1:1340BI6ıLF(1):I16F.05XXA:VI15F.1XXA`jI6ıtF(1):I16F.05YYB:6~I15F.1YYB:<XHL1180,1200,1220,1250zBA6(1):BA2SC5(1)2:SC73(1):BA6(1):BA4SC5(1)2:SC75(1):BA6(1):BA5SC11(1)4:BA1SC5(1)2: SC75(1):0BA6(1):BA.5SC6(1)2:IBA5SC10(1)4:[SC9(1)3:vZ1PL:OG(Z)1ī1710 W%(X(Z)H(1)):K%(Y(Z)H(2)):W((((W%2)(K%2)))SC)ST(1)0İ2290N$(Z);"'S TURN. (";BALL$(C(Z));" BALL)":"YOU ARE ";(W);" YARDS FROM THE PIN.")'I110<(15:X(Z),Y(Z)T)"";:II1100:IIw*C(Z):X(Z),Y(Z):II1100:II~+I2WI9(1)1:710<ZZė:ZZ0F24:868P"WOOD, IRON, CADDIE, OR QUIT (W/I/C/Q)";:CL$:1ZCL$"Q"CL$"W"CL$"I"CL$"C"1340'dCL$"Q"31909nCL$"C"1070Gx24:868jCL$"W"ĺ"WHICH WOOD(1-4) ?";CL$"I"ĺ"WHICH IRON(1-9) ?";CS0:XX$:1:CL(XX$)48CL11410CL$"W"CL41410CL91410WO0:CL$"W"WO5CL:WO1WO0O:CL9(ST(Z)0CL$"W"CL1)ĺ"CAN'T USE THAT CLUB!!":1400s"DIRECTION?(0-360 DEGREES)";ANAN360AN01490280:AN(AN23.1415928)360:XI(AN):YI(AN)AP0AP0AP39AP39"HOW HARD WILL YOU SWING?(0-100%) ";SW$:(SW$)01360.(SW$)1001520USW(SW$):SW90SW50(80(1)1)`34,20470:C0:C(Z):DD(Z):I1DI:XX(Z)XI:YY(Z)YI:X0X0"X39X39,Y0Y06Y39Y39@(X)(X(Z))(Y)(Y(Z))1620 JD(Z)D:DX,Y):D8İ660" TD0RO(Z)RO(Z)1S ^D(Z):X(Z),Y(Z):C(Z):X,Y:X(Z)X:Y(Z)Y:Ia hD2İ980i rO0 |X(Z)X:Y(Z)Y:D(Z)D ST(Z)ST(Z)1:D(Z)4D(Z)15ĺN$(Z);" IS ON THE GREEN IN ";ST(Z);" STROKES":OG(Z)1:2120 !D(Z)0ĺN$(Z);" IS IN THE ROUGH":1700!RO(Z)0k!D(Z)13ĺN$(Z);" IS IN THE ";:"";:I014:X(16336)::"SANDTRAP!":880!F0:G1PL:FFOG(G)::FPLZPL:Z:1740!" ";::"PRESS ANY KEY TO CONTINUE.";:WB$::::Z:1280 "" ";::"PRESS ANY KEY TO CONTINUE.";:WB$:::1280~":12:I039:0,39I::0:I2021:20,21I::I1PL:IH(I)1ĠC(I):X(I),Y(I)::1760""Z1PL:IH(Z)1ĂZ:1950"C(Z):X(Z),Y(Z)":N$(Z);"'S PUTT.""I110"15:X(Z),Y(Z)#"";:II1100:II)#C(Z):X(Z),Y(Z):II1100:II0#IT#"DIRECTION?(0-360 DEGREES)";ANk#AN1AN3601790#AN(AN23.1415928)360:XI(AN):YI(AN)#A1:B1:C%2(1):C%1A1#C%2(9):C%1B1 $"HOW HARD WILL YOU HIT IT?(0-100%)";HP$:HP(HP$)!$HP0HP1001811P$HP(HP$)(40100):KHP23:(HP$)11780w$&D(Z)4:I1HP:XX(Z)XI:YY(Z)YI$01090$:X0X0$DX39X39$N1130$XY0Y0$bY39Y39$l(X)(X(Z))(Y)(Y(Z))1920"%vDX,Y):D0IKIH(Z)1:D(Z):X(Z),Y(Z):2750:1940W%D(Z):X(Z),Y(Z):C(Z):X,Y:D(Z)D:X(Z)X:Y(Z)Y_%:Iz%ST(Z)ST(Z)1:Z:1760%F0:J1PL:FFIH(J)::FPL1760%Z1PL:SC(Z,GH)ST(Z):TS(Z)TS(Z)ST(Z):ST(Z)0:IH(Z)0:OG(Z)0:%GH920504&GHE PENALTY."5G115:G21:2:X,Y:G%1G115:G21ITXG1:T1T1lLXTG2:L,Y)2O1Ă:1040XL:O1:DX,Y):ST(Z)ST(Z)1:G%1W%(1)(1)30:$W%(1)8(1)30:X.CS1::17:"WOODS":"1=270 YDS 2=240 YDS 3=210 YDS 440:I3901:SS.33:S17,SI::I010:0,26I::B%(1)6:T%24(1)13:G%1:T1%39:25306 B0:12:I3901:BB1:SB3:S,S15I::I011:13,39I::B%20((1)10):T%2(1)12:G%1:T1%39:2530/7 12:C0:I039:CC.49:C,C20I::VD%(1)K3:(8K):SC(P,I);:I:(38):TS(P)::P:K0Z(*:7::"PRESS ANY KEY FOR NEXT HOLE":m(4WB$:T1%0:GHx(>30000(HF1000(1):K(D(Z)15)(4DI):FKĺ"";N$(Z);"'S SHOT DROPPED IN!!":IH(Z)1(RD(Z):X(Z),Y(Z)=)\FX(Z)H(1):KY(Z)H(2):KK15:FF15:X(Z)20F:Y(Z)20K:X(Z)39X(Z)39U)fX(Z)0X(Z)5(1)j)pY(Z)39Y(Z)39)zY(Z)0Y(Z)5(1)))VE(1)X(Z)DI:VE(2)AP:(VE(2)Y(Z))(VE(1)X(Z)2300)470:C0:C(Z):DD(Z):INAPY(Z):MX(Z)DI:M38M38*(DI)1ININ(DI)R*IX(Z)MV:XIV:YY(Z):CCIN:(C)1YY(Z)C:C0o*D(Z)D:DX,Y):D8İ660*D0RO(Z)RO(Z)1*D(Z):X(Z),Y(Z):C(Z):X,Y:X(Z)X:Y(Z)Y:I*YAPĠD:X,Y:C(Z):YAP:DX,Y):X,Y*D2İ980*O0 +W251PA(GH)3&+W250W471PA(GH)4:+ W470PA(GH)5M+ TPTPPA(GH):_+ PB$"Y"2040j+$ 30000+. :5:8:"NUMBER OF PLAYERS (1-7)? ":5:33:PL$:+8 PL(PL$):(PL$)1(PL$)72350+B N$(PL):I1PL=,L :7:" PLAYER #";I"'S ";:"NAME? ";N$(I):7:" "},V :9:" YOUR HANDICAP(0-30)? ";HC$(I):HC(I)(HC$(I)),[ HC(I)0HC(I)30ĺ" ":" "/-` HC(I)0HC(I)30ĺ" TRY AGAIN PLEASE, 0-30 ONLY."::23906-j I_-t PA(18):SC(PL,18):HL(18),BALL$(14)-~ BALL$(1)"MAGENTA":BALL$(9)"ORANGE":BALL$(3)"PURPLE":BALL$(5)"GREY":BALL$(11)"PINK":BALL$(6)"BLUE":BALL$(14)"AQUA"f. :9::" (1) MAGENTA (9) ORANGE":" (5) GREY (11) PINK":" (6) BLUE (14) AQUA":" (3) PURPLE"v. ::I1PL. 20:" WHAT COLOR BALL WILL ";N$(I);" USE ";:C$(I):C(I)(C$(I)))/ C(I)1C(I)14ĺ" ":" "f/ C(I)1C(I)14ĺ"SORRY, TRY A NUMBER ON THE LIST":2460/ GG(C(I))0:21:"SORRY, THAT COLOR IS TAKEN.":2460/ GG(C(I))10 C(I)1C(I)9C(I)3C(I)5C(I)11C(I)6C(I)14:21:" TRY A NUMBER ON THE LIST!":2460"0 :I0 :13:"WHAT SIZE COURSE DO YOU WANT TO PLAY?"::12:"1) PITCH & PUTT":12:"2) SHORT COURSE":12:"3) REGULATION":12:"4) THE MONSTER"0 24:12:"ENTER A NUMBER :";:24:28:HL$:HL(HL$)0 HL4HL1ī25001 :: 1 GH118:2520:1280q1 :I12(1)1:I2550,2570,2590,2610,2620,2630,2650,2670,2690,2700,2710,27301 1170:60:100:170:230:210:I1PL:X(I)T1%:Y(I)T%::1 300002 12:I732:0,39I::VD%(1)2:VD%1B%10(11(1)):T%9(1)21:G%32:2530C2 B%10(11(1)):G%1:T%9(1)21:T1%39:25302 12:I1326:0,18I::I1030:19,39I::VD%(1)2:VD%1B%9(17(1)):T%15(1)11:G%32:25302 B%5(1)17:G%1:T%12(1)16:T1%39:2530S3 C0:12:I016:0,14I::I1739:CC.49:C,C14I::VD%(1)2:VD%1B%9(14(1)):T%2(1)12:G%32:25303( B%(1)12:G%1:T1%39:T%12(1)10:253032 B0:12:I039:BB1:SB3:S,S15I::I2839:13,39I::B%20((1)10):T%2(1)12:G%32:2530K4< 12:S40:I039:SS.33:S17,SI::I2939:0,26I::B%(1)6:T%24(1)13:G%32:25304F 12:C25:I025:CC.49:C,C14I::I2639:12,26I::VD%(1)2:VD%1B%4(1)21:T%27(1)10:G%32:25304P B%17(1)13:T1%39:T%14(1)10:G%1:2530M5Z 12:I039:10,30I::B%4(1)20:T%12(1)16:VD%(1)2:VD%1G%1:T1%39:2530]5d G%32:25305n 12:I019:I,I20I::I2039:19,39I::VD%(1)2:VD%1B%14(1)15:G%32:T%2(1)16:25305x B%(1)16:G%1:T1%39:T%21(1)16:2530]6 12:Sк"WOULD YOU LIKE TO PLAY THE BACK NINE?":PB$:2330F'WB$:T1%0:GH'K0:::"HOLE";:I1018:KK3:(8K):I;::(38):"T":' K0:"PAR";:I1018:KK3:(8K):PA(I);::(38):TP:'I139:"-";:::.( P1PL:K0:(N$(P),9);:I1018:K4:X(16336)::F1300K:::O8 " THERE ARE A FEW THINGS YOU SHOULD "|8 "KNOW ABOUT THIS GOLF GAME. IF YOU ARE"8 "UNFAMILIAR WITH GOLFING, HERE IS A "8 "CHART OF CLUB/DISTANCE RELATIONSHIPS:"8 F9 (7):(4):"WOODS":"------------"::"1) 270 YARDS":"2) 240 YARDS":"3) 210 YARDS":"4) 175 YARDS"Z9 "5) 150 YARDS"9 7:25:"IRONS":22:"------------"::22:"1) 220 YARDS":22:"2) 205 YARDS":22:"3) 190 YARDS":22:"4) 175 YARDS":22:"5) 160 YARDS"Z: (22):"6) 145 YARDS":(22):"7) 130 YARDS":(22):"8) 115 YARDS":(22):"9) 100 YARDS":(22):" AND UNDER":" (23):(8)::"PRESS ANY KEY TO CONTINUE";::WB$::::, " THOSE DISTANCES WILL, OF COURSE, VARY":6 "WITH THE EFFECTS OF WIND AND YOUR SKILL";@ "(HANDICAP).7;J :" FOR ALL PURPOSES WITHIN THE GAME THE"f;T "TOP OF THE SCREEN IS NORTH, AND ITS";^ "DIRECTION IS 0 DEGREES WHEN YOU HIT.";h "THE RIGHT SIDE OF THE SCREEN IS 90 DE-";r "GREES, THE BOTTOM IS 180, AND THE LEFT" <| "IS 270 DEGREES."`< :16:"0 DEGREES"::21:"I":21:"I":3:"270 DEGREES <-----*-----> 90 DEGREES"< 21:"I":21:"I"::15:"180 DEGREES"< (23):(8)::"PRESS ANY KEY TO CONTINUE";::WB$:::< " UNTIL YOU GET THE HANG OF THE GAME WE"< X= "RECOMMEND THAT YOU PLAY AS A 'SCRATCH'"::"(THAT'S SLANG FOR A 0 HANDICAP GOLFER;"^= = "A RANK AMATEUR!). THE UPPER REACHES OF"= "THE HANDICAP ARE UNPREDICTABLE AT BEST."= = " ANY ATTEMPT TO OVERSWING A GOLF CLUB"= %> "WILL CAUSE AN ERRATIC RESULT. THIS IS"+> N> "REFLECTED IN THIS GAME TOO."}> :" TO GET A LISTING OF CLUBS AND CLUB"> :"USE THE CADDIE FUNCTION IT CAN BE"> :"VERY HELPFUL."> 23:8:"PRESS ANY KEY TO CONTINUE":ZX$:ZX$""ī31551? ::" THE HARDEST YOU CAN SWING A CLUB AND"7? e? "ACHIEVE A PREDICTABLE RESULT IS 90%. A"k? ? "SWING OF GREATER THAN 90% WILL AFFECT"? ? "YOUR SHOT. AN OVERSWING MAY RESULT IN"? @ "A SPECTACULAR SHOT, BUT IT IS JUST AS "@! )@& "LIKELY TO BRING DISASTER."/@+ Z@0 " IF YOU WISH TO CHANGE CLUBS OR "`@5 @: "DIRECTION, ENTER A ZERO FOR YOUR SWING."@D :"THE PROGRAM MAY BE ABORTED BY ENTERING "::"'Q' AT THE GOLF CLUB PROMPT.(IF ONE MAN"@I !AN "QUITS, THE GAME IS OVER FOR EVERYONE.)"VAX 24:8::"PRESS ANY KEY TO BEGIN";::WB$:2350oAb G%1B%4(1)20:Al B%(1)2020:Av 24:868:"DO YOU REALLY WANT TO QUIT NOW (Y/N)";:QQ$A QQ$"N"QQ$"Y"Ģ23::3190A QQ$"Y"ĉ:30000B 1350iB0u936:12::" INSERT YOUR MASTER DISK IN THE DRIVE."::24:7:"PRESS ANY KEY TO CONTINUE.";:TE$uB:u30000BNu:936:12:14:"LOADING...."BXu(4)"RUN MENU")"RUN MENU"2:VD%1G%32:T%2(1)16:B%18(1)11:2530^7 T1%39:T%21(1)16:G%1:B%(1)15:25307 12:C39:I039:CC.49:C19,CI::VD%(1)2:VD%1G%32:T%21(1)16:B%(1)14:25307 T1%39:T%2(1)16:G%1:B%18(1)11:2530!8 K120:J1(N$(Z);"'S BALL IS PARTLY COVERED":UN$(Z);"'S BALL IS COMPLETELY COVERED":wN$(Z);"'S BALL IS BURIED.":N$(Z);"'S BALL IS BURIED IN THE LIP OF THE BUNKER":"KERSPLASH" N$(Z);"'S BALL IS IN THE DRINK.":"ONE STROK:  :: GG(14)x12:15);"F O R E !":II11500:II::::::::" WOULD YOU LIKE INSTRUCTIONS (Y/N)? ";WB$:WB$"Y"WB$"N"30(WB$"N"23502:2760<4:IG%G%5:B%3,B%9I::X%B%F13:I15(2) PA%39(1):3170:B%,A%)12A%080D ZAA%1:BA%1:CB%3B%:A,BC::: d8:I1(11(1)5):A2(1):B%25(1)7:C025:B%,C)12AAC:C25:120 nC:I: xB%,A:C:I I1(11(1)5):A2(1):B%25(1)7:C39141:B%,C)12ACA:C14:150 C:I:! B%,A:C:I: PL2:C(1)1:D(1)0:X(1)1:Y(1)18:C(2)2:D(2)0:X(2)1:Y(2)18:C(1):X(1),Y(1):SC(11(1))5::N$(1)"FRED":N$(2)"PESTO":1280 WT((1)6)1:WT5ı" 1050:W%(2)(1)39:W%(1),W%(2))15W%(1),W%(2))4W%(1),W%(2))12W%(1)31W%(2)33180G A2(1)5:B2(1)5:C3(1)6 2:W%(1)1,W%(1)AW%(2):W%(1)1,W%(1)AW%(2)B1:X1B:W%(1),W%(1)CW%(2)X:X: I(G%1)(4(1)):J(X%4)(5(1)):I,J)4210 15:I,J:H(1)I:H(2)J R(1)6:R5ı= R4(1)31:I039:B(1):B.33RR1:R0R0Y B.66RR1:R39R39s R,I)12Ġ2:R,I::{ : B1:C2(1):C1B1 "HC(Z)10350 ,HC(Z)18330 6C.5C1.5370 @ANAN(HC(Z)(1)B):370 JC.89C1370 TANAN(20B(1)):370/ ^C.39C1.6370e hANAN(10(1)B):C(1):C.99ANAN(10(1)B) rC0:L9CL:L1CL2:L(LWO((HC(Z)1)2))(1):L2400 |ANAN(CB) CL7460 AN45AN136ANAN(4WI(2)) AN136AN180ANAN(4WI(1))-AN180AN225ANAN(4WI(1))QAN225AN315ANAN(4WI(2))mAN315ANAN(4WI(1))AN45ANAN(4WI(1))AN(Z)AN:DI0:ID15:DW19:B2(1):B1B1B1B1AN(Z)45IDIDWI(2):DWDWWI(2)$AN(Z)45AN(Z)136IDIDWI(1):DWDWWI(1)WAN(Z)136AN(Z)180IDIDWI(2):DWDWWI(2)AN(Z)180AN(Z)225IDIDWI(2):DWDWWI(2)AN(Z)225AN(Z)315IDIDWI(1):DWDWWI(1)AN(Z)315IDIDWI(2):DWDWWI(2)&C((HC(Z)1)2)(1):C3C7CC(2(1))!0CL7ID15^:DI(ID(CL(159))(SW10)):WO0DI(DW(2CL)(SW10))pDHC(Z)5B1NDIDI(CB)XWG0(CL5WO0)DIDIWGbSA(Z)CLDIDI(2(SA(Z)CL)(2B(1)))lSA(Z)0vQ0:RO(Z)2Q5(1) RO(Z)0Q3(1)*RO(Z)0:DI(DIQ)(10SC):DI(2DI3)IDI:700lWO1I(8(2CL))IX(Z)DI1:700WO0I(7CL)IDI:700J12:"":N014:Q(16336)::::APY:1630WG0:WI(1)0:WI(2)0:WI720,730,740,750,760,770,780,790,800C850:"THE WIND IS ";:810:" FROM THE NORTH.":WI(2)WI:850:"THE WIND IS ";:810:" FROM THE NORTHEAST":WI(1)WI:WI(2)WI:850:"THE WIND IS ";:810:" FROM THE EAST.":WI(1)WI:850:"THE WIND IS ";:810:" FROM THE SOUTHEAST":WI(1)WI:WI(2)WI:W850:"THE WIND IS ";:810:" FROM THE SOUTH.":WI(2)WI:850:"THE WIND IS ";:810:" FROM THE SOUTHWEST":WI(1)WI:WI(2)WI: 850:"THE WIND IS ";:810:" FROM THE WEST.":WI(1)WI:)850:"THE WIND IS ";:810:" FROM THE NORTHWEST":WI(1)WI:WI(2)WI:U "IT'S RAINING LIGHTLY":WG1:WI(1)1:k*WI0ĺ"CALM"::4WI1ĺ"LIGHT";:>WI2ĺ"MODERATE";:H"STRONG";:RWI7(1)2:WI1WI0\WI3WI3fWI(WI):)p34,20:SA(Z)9(1)1:SA(Z)890,900,910,920,930,940,950,960,970PzN$(Z);"'S BALL IS SITTING HIGH":wN$(Z);"'S BALL IS SITTING LOW ":N$(Z);"'S BALL IS SITTING VERY LOW":N$(Z);"'S BALL IS LOW, NEAR THE LIP":N$(Z);"'S BALL IS VERY LOW, NEAR THE LIP":!! ! ! ! ! !!!!!!!!!""" " " " " """""""""          10ĉ::"HOLE";:I19:(8(3I)):I;::(38):"T":h&"PAR";:I19:(8(3I)):PA(I);::(38):TP:&I139:"-";:::&P1PL:(N$(P),9);:I19:(8(3I)):SC(P,I);:I:(38):TS(P)::P&:6:"PRESS ANY KEY FOR NEXT HOLE.":3'GH9=175 YDS":" ALL OTHERS HIT AS IRONS":8::"PRESS ANY KEY TO CONTINUE";:GW$::8"IRONS: 1=220 YDS 2=205 YDS 3=190 YDS":"4=175 YDS 5=160 YDS 6=145 YDS 7=130 YDS":" 8=115 YDS 9=100 YDS AND UNDER" :7::"PRESS ANY KEY TO CONTINUE";::GW$:q<14:"DIRECTIONS:":"0 = UP 90 = RIGHT 180 = DOWN 270 = LEFT":4:"(VALUES ARE IN DEGREES - 0=360)">7::"PRESS ANY KEY TO CONTINUE";::GW$:?ZZ1:1340BI6ıLF(1):I16F.05XXA:VI15F.1XXA`jI6ıtF(1):I16F.05YYB:6~I15F.1YYB:<XHL1180,1200,1220,1250zBA6(1):BA2SC5(1)2:SC73(1):BA6(1):BA4SC5(1)2:SC75(1):BA6(1):BA5SC11(1)4:BA1SC5(1)2: SC75(1):0BA6(1):BA.5SC6(1)2:IBA5SC10(1)4:[SC9(1)3:vZ1PL:OG(Z)1ī1710 W%(X(Z)H(1)):K%(Y(Z)H(2)):W((((W%2)(K%2)))SC)ST(1)0İ2290N$(Z);"'S TURN. (";BALL$(C(Z));" BALL)":"YOU ARE ";(W);" YARDS FROM THE PIN.")'I110<(15:X(Z),Y(Z)T)"";:II1100:IIw*C(Z):X(Z),Y(Z):II1100:II~+I2WI9(1)1:710<ZZė:ZZ0F24:868P"WOOD, IRON, CADDIE, OR QUIT (W/I/C/Q)";:CL$:1ZCL$"Q"CL$"W"CL$"I"CL$"C"1340'dCL$"Q"31909nCL$"C"1070Gx24:868jCL$"W"ĺ"WHICH WOOD(1-4) ?";CL$"I"ĺ"WHICH IRON(1-9) ?";CS0:XX$:1:CL(XX$)48CL11410CL$"W"CL41410CL91410WO0:CL$"W"WO5CL:WO1WO0O:CL9(ST(Z)0CL$"W"CL1)ĺ"CAN'T USE THAT CLUB!!":1400s"DIRECTION?(0-360 DEGREES)";ANAN360AN01490280:AN(AN23.1415928)360:XI(AN):YI(AN)AP0AP0AP39AP39"HOW HARD WILL YOU SWING?(0-100%) ";SW$:(SW$)01360.(SW$)1001520USW(SW$):SW90SW50(80(1)1)`34,20470:C0:C(Z):DD(Z):I1DI:XX(Z)XI:YY(Z)YI:X0X0"X39X39,Y0Y06Y39Y39@(X)(X(Z))(Y)(Y(Z))1620 JD(Z)D:DX,Y):D8İ660" TD0RO(Z)RO(Z)1S ^D(Z):X(Z),Y(Z):C(Z):X,Y:X(Z)X:Y(Z)Y:Ia hD2İ980i rO0 |X(Z)X:Y(Z)Y:D(Z)D ST(Z)ST(Z)1:D(Z)4D(Z)15ĺN$(Z);" IS ON THE GREEN IN ";ST(Z);" STROKES":OG(Z)1:2120 !D(Z)0ĺN$(Z);" IS IN THE ROUGH":1700!RO(Z)0k!D(Z)13ĺN$(Z);" IS IN THE ";:"";:I014:X(16336)::"SANDTRAP!":880!F0:G1PL:FFOG(G)::FPLZPL:Z:1740!" ";::"PRESS ANY KEY TO CONTINUE.";:WB$::::Z:1280 "" ";::"PRESS ANY KEY TO CONTINUE.";:WB$:::1280~":12:I039:0,39I::0:I2021:20,21I::I1PL:IH(I)1ĠC(I):X(I),Y(I)::1760""Z1PL:IH(Z)1ĂZ:1950"C(Z):X(Z),Y(Z)":N$(Z);"'S PUTT.""I110"15:X(Z),Y(Z)#"";:II1100:II)#C(Z):X(Z),Y(Z):II1100:II0#IT#"DIRECTION?(0-360 DEGREES)";ANk#AN1AN3601790#AN(AN23.1415928)360:XI(AN):YI(AN)#A1:B1:C%2(1):C%1A1#C%2(9):C%1B1 $"HOW HARD WILL YOU HIT IT?(0-100%)";HP$:HP(HP$)!$HP0HP1001811P$HP(HP$)(40100):KHP23:(HP$)11780w$&D(Z)4:I1HP:XX(Z)XI:YY(Z)YI$01090$:X0X0$DX39X39$N1130$XY0Y0$bY39Y39$l(X)(X(Z))(Y)(Y(Z))1920"%vDX,Y):D0IKIH(Z)1:D(Z):X(Z),Y(Z):2750:1940W%D(Z):X(Z),Y(Z):C(Z):X,Y:D(Z)D:X(Z)X:Y(Z)Y_%:Iz%ST(Z)ST(Z)1:Z:1760%F0:J1PL:FFIH(J)::FPL1760%Z1PL:SC(Z,GH)ST(Z):TS(Z)TS(Z)ST(Z):ST(Z)0:IH(Z)0:OG(Z)0:%GH920504&GHE PENALTY."5G115:G21:2:X,Y:G%1G115:G21ITXG1:T1T1lLXTG2:L,Y)2O1Ă:1040XL:O1:DX,Y):ST(Z)ST(Z)1:G%1W%(1)(1)30:$W%(1)8(1)30:X.CS1::17:"WOODS":"1=270 YDS 2=240 YDS 3=210 YDS 4