Category : A Collection of Games for DOS and Windows
Archive   : GOLFSTAT.ZIP
Filename : GOLFSTAT.BAS

ÿµÉ ÝÎ
º "NUMRUNS" ‚ … AS 1á … #,TIMES.RUNê» #‹ TIMES.RUNæ Í   @CXç
4º "NUMRUNS" ‚ OUTPUT AS 1I· #,TIMES.RUNéR» #€ ***********************®( *** GOLF STATISTICS ***Ü2 *** BY TIM POLK ***
< ***********************QF† COURSE$(CX),SLOPE(CX),PR(CX),YRDS(CX),RNDSTOT(CX),STROKESTOT(CX)—P† HLES(CX),SA(CX),SC(CX),GR(CX),FRWYTT(CX),FRWY(CX),FRWYHOLES(CX)ÕZ† PTTS(CX),PTGIR(CX),RAT(CX),P$(CXé),BEST(),RANKED(
)d† DAT$(d),SCORE(d),CRS$(d),DTE$(CX,d),SCRE(CX,d)Vn† PAR(CX,),YARDS(CX,),HOLES(CX,),STROKES(CX,),PUTTS(CX,)šx† PUTGIR(CX,),SSA(CX,),SSC(CX,),GIR(CX,),FRWYTOT(CX,)Þ‚† EAGS(CX,),BIRDS(CX,),PARS(CX,),BOGS(CX,),DOUBS(CX,)
Œ† OTHER(CX,),A(CX,),HOLERANK(CX,)X–† HLERANK(CX,),HOLRANK(CX,),HOLERNK(CX,),J(CX,),O(CX,),R(CX,)r  * OPENING SCREEN *‹ªº "NUMUSRS" ‚ … AS 1š´… #,USERS£¾» #±È¿ ,,:À½ÒNME$ç""ùÜTOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç6:ITEMSç!æP$()ç"GOLF STATISTICS VERSION 1.0"AðP$()ç" BY TIM POLK"`úP$()ç" 5-31-1990"j
 †¨
TOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç3:ITEMSçË
P$()ç"PLEASE INPUT YOUR NAME"Õ"
 †á,
XPOSç$ï6
Ê ,XPOS@
Q$çÞ:‹ Q$ç"" Í @
J
‹ Q$çÿ–(
) Í ®
1T
‹ Q$çÿ–() Í 
SW
‹ ÿ•(Q$)èA ï ÿ•(Q$)æz Í @
uY
‹ ÿ•(Q$)æZ î ÿ•(Q$)èa Í @
˜^
‹ ÿ•(Q$)æZ Í Q$çÿ–(ÿ•(Q$)ê )¹h
‹ ÿ’(NME$)æ Í Ä 
,:‰ @
Ãr
‘ Q$;à|
NME$çNME$éQ$:XPOSçXPOSéê†
‰ 6
þ
‹ XPOSç$ Í 6
š
NME$çÿ(NME$,ÿ’(NME$)ê)C¤
XPOSçXPOSê:Ê ,XPOS:‘ " ";: ‰ 6
Y®
º "NMES" ‚ … AS 1k¸
‚ Tç Ì USERSzÂ
… #,A$(T)‘Ì
‹ NME$çA$(T) Í 0™Ö
ƒ T£à
‰  ®ê
þ¥ ,ìô
TOP.ROWç :BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç::ITEMSçþ
P$()ç"PLEASE TURN YOUR CAPS LOCK BUTTON ON"' †A‚ HOLDç Ì Ø:ƒ HOLDLþ¥ ,V&‰ 6
k0 * MAIN MENU *t:» #~D ŒN¿ ,,:ÀÉXTOP.ROWç:BOTTOM.ROWç :LEFT.COLç:RIGHT.COLç8:ITEMSçêbP$()ç" MAIN MENU"÷lP$()ç""#vP$()ç"1. ENTER SCORES/NEW COURSE INFO"B€P$()ç"2. BROOD OVER DATA"eŠP$()ç"3. CHANGE NAME OF USER"€”P$()ç"4. QUIT TO DOS"˜™P$()ç"5. REGISTER"¢ž †à¨TOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç6:ITEMSç²P$()ç"PLEASE INPUT YOUR SELECTION"¼ †)ÆA$çÞ:‹ A$ç"" Í Æ<Ћ A$ç"1" Í $OÚ‹ A$ç"2" Í Ü
pä‹ A$ç"3" Í  F: z:‰ ȃî‹ A$ç"4" Í Ÿó‹ A$ç"5" Í  @: ‰ N±øÄ 
,:‰ Æȍ F:¿ ,:À:þƒ:Ñ » #òUSERSçUSERSé:A$(USERS)çNME$ º "NUMUSRS" ‚ OUTPUT AS 1*· #,USERS(4» #C>º "NMES" ‚ OUTPUT AS 1UH‚ Uç Ì USERSdR· #,A$(U)l\ƒ Uuf» #…p F:‰ N½z‚ Dç Ì RNDTOT:DAT$(D)ç"":SCORE(D)ç:CRS$(D)ç"":ƒ DÓ„‚ Eç Ì NUMCOURSE⎂ Fç Ì 5˜PAR(E,F)ç:YARDS(E,F)ç:HOLES(E,F)ç:STROKES(E,F)ç:PUTTS(E,F)ç:PUTGIR(E,F)ç‚¢SSA(E,F)ç:SSC(E,F)ç:GIR(E,F)ç:FRWYTOT(E,F)ç:EAGS(E,F)ç:BIRDS(E,F)çѬPARS(E,F)ç:BOGS(E,F)ç:DOUBS(E,F)ç:OTHER(E,F)ç:A(E,F)ç:HOLERANK(E,F)çÛ¶ƒ F,EñÀ‚ Cç Ì NUMCOURSE Ê‚ Jç Ì RNDSTOT(C)% ÔDTE$(C,J)ç"":SCRE(C,J)ç- Þƒ Jy èCOURSE$(C)ç"":SLOPE(C)ç:PR(C)ç:YRDS(C)ç:RNDSTOT(C)ç:STROKESTOT(C)çÄ òHLES(C)ç:SA(C)ç:SC(C)ç:GR(C)ç:FRWYTT(C)ç:FRWY(C)ç:FRWYHOLES(C)çö üPTTS(C)ç:PTGIR(C)ç:RAT(C)ç:RANKED(C)ç:ƒ C:!HOLESTOTç:STROKESTOTç:PUTTOTç:PUTGIRTOTç:GIRTOTç:FRWYTOTçq!FRWYHOLESç:RNDTOTç:SSATOTç:SSCTOTç:NUMCOURSEçw!Ž£!$ * ENTER SCORE SUBROUTINE MAIN MENU *±!.¿ ,,:Àí!8TOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç.:ITEMSç"BP$()ç"ENTER SCORES""L †`"VTOP.ROWç:BOTTOM.ROWçNUMCOURSEé:LEFT.COLç:RIGHT.COLç3:ITEMSçNUMCOURSEéx"`‚ ITSç Ì NUMCOURSE¡"j P$(ITSé)çÿ“(ITS)é". "éCOURSE$(ITS)«"tƒ ITSÈ"~P$()ç" WHICH COURSE"û"’P$(NUMCOURSEé)çÿ“(NUMCOURSEé)é". NEW COURSE"5#œP$(NUMCOURSEé)çÿ“(NUMCOURSEé)é". QUIT TO MAIN MENU"?#¦ †}#°TOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç6:ITEMSç¥#ºP$()ç"PLEASE INPUT YOUR SELECTION"¯#č †Æ#ÎA$çÞ:‹ A$ç"" Í ÎÓ#ØAçÿ”(A$)$â‹ Aè ï AæNUMCOURSEé ï Aèæÿ…(A) Í Ä 
,:‰ Î"$ì‹ AèNUMCOURSEé Í 
<$ö‹ AçNUMCOURSEé Í Nh$‰ ˆ :  * MUST INPUT NEW COURSE DATA *$
 * ENTER SCORES *«$PUTGIRTODç:PUTTODAYç:FRWYHOLESTODAYçÔ$HOLESTODAYç:SCORETODAYç:GIRTODAYçú$(FRWYTODAYç:SSATODAYç:SSCTODAYç%2¿ ,,:ROUND$ç"COMPL":ÀS%<TOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç0:ITEMSçn%FP$()ç"DATE OF ROUND?"x%P †%ZÊ ,%:… "",DTE$¡%d‚ NUMBERç Ì ¯%n¿ ,,:Àë%xTOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç.:ITEMSç&‚P$()ç"ENTER SCORES"&Œ †K&–TOP.ROWç:BOTTOM.ROWç :LEFT.COLç:RIGHT.COLç2:ITEMSç‡& P$()ç"COURSE: "éCOURSE$(A):P$()ç"SLOPE:"éÿ“(SLOPE(A))Ä&ªP$()ç"COURSE RATING:"éÿ“(RAT(A)):P$()ç"PAR:"éÿ“(PR(A))'´P$()ç"TOTAL YARDAGE:"éÿ“(YRDS(A)):P$()ç"# ROUNDS PLAYED:"éÿ“(RNDSTOT(A))'¾ †['ÈTOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç9:ITEMSç·'ÒP$()ç"HOLE #"éÿ“(NUMBER)é" PAR "éÿ“(PAR(A,NUMBER))é" "éÿ“(YARDS(A,NUMBER))é" YARDS"â'ÜP$()ç"SCORE (IF NOT PLAYED INPUT 0):"(æP$()ç"NUMBER OF PUTTS:":P$()ç"FAIRWAY HIT (Y OR N)?"h(ðP$()ç"SAND SAVE ATTEMPTED (Y OR N)?":P$()ç"SAND SAVE MADE (Y OR N)?"r(ú †¡(Ê ,6:… "",S:‹ Sç Í ROUND$ç"INCL":‰ ø´(Ê ,(:… "",PÂ(FW$ç"N/A"ö("Ê ,-:‹ PAR(A,NUMBER)ç Í ‘ "N/A" :¡ … "",FW$),Ê ,5:… "",SS$J)6‹ SS$ç"N" ï SS$ç"NO" ï SS$ç"n" ï SS$ç"no" ï SS$ç"No" Í Je)@Ê ,0:… "",SM$:‰ Ts)JSM$ç"N/A")T¿ ,:Àµ)^‹ SêPèçPAR(A,NUMBER)ê Í GREEN$ç"Y" :¡ GREEN$ç"N"ò)hTOP.ROWç:BOTTOM.ROWç
:LEFT.COLç:RIGHT.COLç2:ITEMSç<*rP$()ç" SUMMARY":P$()ç"HOLE #"éÿ“(NUMBER):P$()ç"SCORE:"éÿ“(S)*|P$()ç"PUTTS:"éÿ“(P):P$()ç"FAIRWAY HIT? "éFW$:P$()ç"SAND SAVE ATTEMPT? "éSS$Ï*†P$()ç"SAND SAVE MADE? "éSM$:P$()ç"GREEN IN REG.? "éGREEN$Ù* †+šTOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç3:ITEMSç9+¤P$()ç"IS THE ABOVE CORRECT?"C+® †Z+¸A$çÞ:‹ A$ç"" Í ¸m+‹ A$ç"N" Í n¯+ÌHOLESTODAYçHOLESTODAYé:HOLESTOTçHOLESTOTé:HLES(A)çHLES(A)éÕ+ÖHOLES(A,NUMBER)çHOLES(A,NUMBER)é,àSCORETODAYçSCORETODAYéS:STROKES(A,NUMBER)çSTROKES(A,NUMBER)éS.,ê‹ GREEN$ç"N" Í t,ôGIR(A,NUMBER)çGIR(A,NUMBER)é:GIRTODAYçGIRTODAYé:GIRTOTçGIRTOTé†,þGR(A)çGR(A)éÂ,PTGIR(A)çPTGIR(A)éP:PUTGIR(A,NUMBER)çPUTGIR(A,NUMBER)éPò,PUTGIRTOTçPUTGIRTOTéP:PUTGIRTODçPUTGIRTODéP,-PUTTODAYçPUTTODAYéP:PUTTOTçPUTTOTéP:PTTS(A)çPTTS(A)éPR-&PUTTS(A,NUMBER)çPUTTS(A,NUMBER)éPn-0‹ PAR(A,NUMBER)ç Í l¤-:FRWYHOLESçFRWYHOLESé:FRWYHOLES(A)çFRWYHOLES(A)éÈ-DFRWYHOLESTODAYçFRWYHOLESTODAYé.N‹ FW$ç"Y" ï FW$ç"YES" ï FW$ç"y" ï FW$ç"yes" ï FW$ç"Yes" Í Fç :¡ FçS.XFRWYTODAYçFRWYTODAYéF:FRWYTOTçFRWYTOTéF:FRWYTT(A)çFRWYTT(A)éF}.bFRWYTOT(A,NUMBER)çFRWYTOT(A,NUMBER)éF¼.l‹ SS$ç"N" ï SS$ç"NO" ï SS$ç"n" ï SS$ç"no" ï SS$ç"No" Í ¨/vSSA(A,NUMBER)çSSA(A,NUMBER)é:SSATODAYçSSATODAYé:SSATOTçSSATOTé/€SA(A)çSA(A)é[/Š‹ SM$èæ"Y" î SM$èæ"YES" î SM$èæ"y" î SM$èæ"yes" î SM$èæ"Yes" Í ¨Ÿ/”SSC(A,NUMBER)çSSC(A,NUMBER)é:SSCTODAYçSSCTODAYé:SC(A)çSC(A)é³/žSSCTOTçSSCTOTéÑ/¨‹ SêPAR(A,NUMBER)æ Í îÿ/²• SéêPAR(A,NUMBER) ‰ ¼,Æ,Ð,Ú,ä)0¼EAGS(A,NUMBER)çEAGS(A,NUMBER)é:‰ øU0ÆBIRDS(A,NUMBER)çBIRDS(A,NUMBER)é:‰ ø€0ÐPARS(A,NUMBER)çPARS(A,NUMBER)é: ‰ øª0ÚBOGS(A,NUMBER)çBOGS(A,NUMBER)é:‰ øÖ0äDOUBS(A,NUMBER)çDOUBS(A,NUMBER)é:‰ øü0îOTHER(A,NUMBER)çOTHER(A,NUMBER)é:1øTOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç?:ITEMSçs1P$()ç"HIT 'Q' TO QUIT OR ANY OTHER KEY TO CONTINUE"}1  †”1C$çÞ:‹ C$ç"" Í ¾1 ‹ (C$ç"Q" ï C$ç"q") î NUMBERè Í t Ë1*ƒ NUMBERå14‹ ROUND$ç"INCL" Í p2>RNDSTOT(A)çRNDSTOT(A)é:RNDTOTçRNDTOTéO2HSTROKESTOTçSTROKESTOTéSCORETODAY:SCORE(RNDTOT)çSCORETODAYq2RSCRE(A,RNDSTOT(A))çSCORETODAYŸ2\DAT$(RNDTOT)çDTE$:CRS$(RNDTOT)çCOURSE$(A)â2fSTROKESTOT(A)çSTROKESTOT(A)éSCORETODAY:DTE$(A,RNDSTOT(A))çDTE$î2p¿ ,:À,3zTOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç7:ITEMSç
]3„‹ HOLESTODAYç Í GR$ç" N/A":PT$ç" N/A":‰ ˜¶3ŽGR$çÿ“(ÿ…((GIRTODAYìHOLESTODAY)ë')ìd)é"%":PT$çÿ“(ÿ…((PUTTODAYìHOLESTODAY)ëd)ìd)Ú3˜‹ GIRTODAYç Í PG$ç" N/A":‰ ¬4¢PG$çÿ“(ÿ…((PUTGIRTODìGIRTODAY)ëd)ìd)G4¬P$()ç" SUMMARY":P$()ç"":P$()ç"COURSE: "éCOURSE$(A)~4¶P$()ç"ROUND #"éÿ“(RNDSTOT(A)):P$()ç"DATE: "éDTE$Ç4ÀP$()ç"SCORE:"éÿ“(SCORETODAY):P$()ç"# HOLES PLAYED:"éÿ“(HOLESTODAY)5ÊP$()ç"# GREENS IN REG.:"éÿ“(GIRTODAY):P$()ç"% GREENS IN REG.:"éGR$/5ÔP$(
)ç"# PUTTS/HOLE:"éPT$W5ÞP$()ç"# PUTTS/GREEN IN REG.:"éPG$5è‹ FRWYHOLESTODAYç Í FP$ç" N/A":‰ ü·5òFP$çÿ“(ÿ…((FRWYTODAYìFRWYHOLESTODAY)ë')ìd)é"%"Ø5üP$( )ç"% FAIRWAYS HIT:"éFP$ü5 ‹ SSATODAYç Í SP$ç" N/A":‰  +6 SP$çÿ“(ÿ…((SSCTODAYìSSATODAY)ë')ìd)é"%"J6 P$(
)ç"% SAND SAVES:"éSP$T6$  †’6. TOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç::ITEMSçÃ68 P$()ç"PRESS ANY KEY TO RETURN TO MAIN MENU"Í6B  †ä6L C$çÞ:‹ C$ç"" Í L î6V SELçAø6`   7j ‰ N$7t ROUND$ç"INCL":NUMBERç:‰ *<7~ ROUND$ç"INCL":‰ *\7ˆ  * INPUT NEW COURSE INFO *j7’ ¿ ,,:À§7œ TOP.ROWç:BOTTOM.ROWç
:LEFT.COLç:RIGHT.COLç7:ITEMSçÝ7¦ P$()ç"COURSE (9 CHRs MAX):":P$()ç"INPUT SLOPE:"þ7° P$()ç"INPUT COURSE RATING:"8º  †#8Ä Ê ,.:… "",COURSE$(A)X8É ‹ ÿ’(COURSE$(A))æ Í COURSE$(A)çÿ(COURSE$(A),)q8Î Ê ,&:… "",SLOPE(A)ˆ8Ø Ê ,.:… "",RAT(A)œ8⠂ NUMBERç Ì ª8ì ¿ ,,:Àæ8ö TOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç1:ITEMSç 9
P$()ç"COURSE: "éCOURSE$(A):P$()ç"HOLE #"éÿ“(NUMBER)B9

P$()ç"PAR:":P$()ç"YARDAGE:"L9
 ††9
Ê ,#:… "",PAR(A,NUMBER):Ê ,':… "",YARDS(A,NUMBER)Ä9(
TOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç7:ITEMSçï92
P$()ç"IS THE ABOVE CORRECT (Y OR N)?"ù9<
 †:F
C$çÞ:‹ C$ç"" Í F
,:P
‹ C$ç"N" ï C$ç"n" Í ì V:Z
‹ PAR(A,NUMBER)æ Í FRWY(A)çFRWY(A)é”:d
PR(A)çPR(A)éPAR(A,NUMBER):YRDS(A)çYRDS(A)éYARDS(A,NUMBER)¡:n
ƒ NUMBERß:x
TOP.ROWç:BOTTOM.ROWç:LEFT.COLç!:RIGHT.COLç,:ITEMSçô:‚
P$()ç"UPDATING"þ:Œ
 †;–
‚ WAITINGç Ì ô
:ƒ WAITING8; 
NUMCOURSEçNUMCOURSEéB;ª
‰ N~;´
TOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç::ITEMSç¯;¾
P$()ç"YOU HAVE NO DATA OVER WHICH TO BROOD"¹;È
 †ß;Ò
‚ WAITINGç Ì  :ƒ WAITING:‰ Nù;Ü
 * BROOD OVER DATA *<æ
¿ ,,:À:‹ HOLESTOTç Í ´
V<ð
TOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç8:ITEMSç‚<ú
P$()ç"PERFORMANCE SUMMARY (ALL HOLES)"Œ< †Ñ<‹ RNDTOTç Í SR$ç" N/A" :¡ SR$çÿ“(ÿ…((STROKESTOTìRNDTOT)ëd)ìd)=‹ FRWYHOLESç Í FP$ç" N/A" :¡ FP$çÿ“(ÿ…((FRWYTOTìFRWYHOLES)ë')ìd)é"%"b="‹ GIRTOTç Í PG$ç" N/A" :¡ PG$çÿ“(ÿ…((PUTGIRTOTìGIRTOT)ëd)ìd)¨=,‹ SSATOTç Í SP$ç" N/A" :¡ SP$çÿ“(ÿ…((SSCTOTìSSATOT)ë')ìd)é"%"Õ=6GR$çÿ“(ÿ…((GIRTOTìHOLESTOT)ë')ìd)é"%"ý=@PH$çÿ“(ÿ…((PUTTOTìHOLESTOT)ëd)ìd)&>JPR$çÿ“(ÿ…((PUTTOTìHOLESTOT)ë)ìd)c>TTOP.ROWç:BOTTOM.ROWç
:LEFT.COLç:RIGHT.COLç7:ITEMSç‡>^P$()ç"AVG. STROKES/ROUND:"éSR$Å>hP$()ç"% FAIRWAYS HIT:"éFP$:P$()ç"% GREENS IN REG.:"éGR$ ?rP$()ç"AVG. PUTTS/HOLE:"éPH$:P$()ç"AVG. PUTTS FOLLOWING GIR:"éPG$H?|P$()ç"AVG. PUTTS/ROUND:"éPR$:P$()ç"% SAND SAVES:"éSP$R?† †w?‹ RNDTOTè Í UN$ç"UN" :¡ UN$ç""?š Æ@¤TOP.ROWç:BOTTOM.ROWç:LEFT.COLçÿ…((êÿ’(ÿ“(HANDI))êÿ’(ÿ“(RNDTOT))êÿ’(UN$))ì):RIGHT.COLçÿ…((|éÿ’(ÿ“(HANDI))éÿ’(ÿ“(RNDTOT))éÿ’(UN$))ì):ITEMSçn@®P$()çUN$é"OFFICIAL HANDICAP BASED ON"éÿ“(RNDTOT)é" COMPLETED ROUNDS:"éÿ“(HANDI)x@¸ †µ@ÂTOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLçH:ITEMSçÿ@ÌP$()ç"(1) COURSE STATS (3) PUTTING (5) DRIVING (7) QUIT TO"KAÖP$()ç"(2) HOLE STATS (4) GIR'ING (6) LATEST SCORES MAIN MENU"UAà †lAêC$çÞ:‹ C$ç"" Í êyAôCçÿ”(C$)¤Aþ‹ Cè ï Cæ ï Cèæÿ…(C) Í Ä 
,:‰ êÊA • C ‰ D ,N ,D ,D ,D ,æ,NØA ¿ ,,:ÀB TOP.ROWç
:BOTTOM.ROWç :LEFT.COLç:RIGHT.COLç6:ITEMSç?B& P$()ç"YOU HAVE NO COMPLETED ROUNDS"eB0  †:‚ WAITINGç Ì  :ƒ WAITINGkB: ŽˆBD ‹ RNDTOTç Í   :‰ æ
¨BN ‹ NUMCOURSEç Í SELç:‰ Ú ¶BX ¿ ,,:ÀCb TOP.ROWç:BOTTOM.ROWçéNUMCOURSE:LEFT.COLç:RIGHT.COLç/:ITEMSçéNUMCOURSE'Cl P$()ç" COURSES":P$()ç""?Cv ‚ ITSç Ì NUMCOURSEgC€ P$(ITSé)çÿ“(ITS)é". "éCOURSE$(ITS)qCŠ ƒ ITS{C”  †¹Cž TOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç6:ITEMSçáC¨ P$()ç"PLEASE INPUT YOUR SELECTION"ëC²  †D¼ SEL$çÞ:‹ SEL$ç"" Í ¼ DÆ SELçÿ”(SEL$)RDÐ ‹ SELè ï SELæNUMCOURSE ï SELèæÿ…(SEL) Í Ä 
,:‰ ¼ pDÚ • C ‰ ä ,$,¬,,Ú“Dä ‹ RNDSTOT(SEL)ç Í   :‰ N ¡Dî ¿ ,,:ÀEø TOP.ROWç:BOTTOM.ROWç:LEFT.COLçÿ…((4êÿ’(COURSE$(SEL)))ì):RIGHT.COLçÿ…((héÿ’(COURSE$(SEL)))ì):ITEMSç@E
P$()ç"PERFORMANCE SUMMARY AT "éCOURSE$(SEL)‡E
‹ GR(SEL)ç Í PG$ç" N/A" :¡ PG$çÿ“(ÿ…((PTGIR(SEL)ìGR(SEL))ëd)ìd)ÐE
‹ SA(SEL)ç Í SP$ç" N/A" :¡ SP$çÿ“(ÿ…((SC(SEL)ìSA(SEL))ë')ìd)é"%" F
P$()ç" AVG. STROKES/ROUND:"éÿ“(ÿ…((STROKESTOT(SEL)ìRNDSTOT(SEL))ëd)ìd)oF*
P$()ç" % FAIRWAYS HIT:"éÿ“(ÿ…((FRWYTT(SEL)ìFRWYHOLES(SEL))ë')ìd)é"%"·F4
P$()ç" % GREENS IN REG.:"éÿ“(ÿ…((GR(SEL)ìHLES(SEL))ë')ìd)é"%"ûF>
P$()ç" AVG. PUTTS/HOLE:"éÿ“(ÿ…((PTTS(SEL)ìHLES(SEL))ëd)ìd)GH
P$()ç" AVG. PUTTS/GIR:"éPG$?GR
P$()ç" % SAND SAVES:"éSP$IG\
 †SGf
  ‘Gp
TOP.ROWç:BOTTOM.ROWç:LEFT.COLç
:RIGHT.COLçD:ITEMSçÕGz
P$()ç"HOLE # PAR AVG. SCORE HOLE # PAR AVG. SCORE"ßG„
 †íGŽ
‚ Bç Ì ûG˜
Ê  éB,
H¢
‹ A(SEL,B)æ Í ¶
H¬
‘ " ";zH¶
‘ A(SEL,B);" ";PAR(SEL,A(SEL,B));" ";PAR(SEL,A(SEL,B))éÿ…(HOLERANK(SEL,B)ëd)ìdˆHÀ
Ê  éB,+¡HÊ
‹ A(SEL,Bé)æ Í Þ
¬HÔ
‘ " ";IÞ
‘ A(SEL,Bé);" ";PAR(SEL,A(SEL,Bé));" ";PAR(SEL,A(SEL,Bé))éÿ…(HOLERANK(SEL,Bé)ëd)ìdIè
ƒ BTIò
TOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç:ITEMSçƒIü
P$()ç"PRESS ANY KEY":P$()ç" TO CONTINUE"I †¤IC$çÞ:‹ C$ç"" Í ®I‰ Ü
ÃI$ * HOLE STATS *ãI.‹ HLES(SEL)ç Í   :‰ Ü
ñI8¿ ,,:À_JBTOP.ROWç:BOTTOM.ROWç:LEFT.COLçÿ…((<êÿ’(COURSE$(SEL)))ì):RIGHT.COLçÿ…((`éÿ’(COURSE$(SEL)))ì):ITEMSç‹JLP$()ç"WHICH HOLE AT "éCOURSE$(SEL)é"?"•JV †§J`Ê ,':… "",EÓJj‹ Eè ï Eæ ï Eèæÿ…(E) Í Ä 
,:‰ 8øJt‹ HOLES(SEL,E)ç Í Ä 
,:‰ 8K~¿ ,,:ÀBKˆTOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç6:ITEMSçjK’P$()ç"PERFORMANCE SUMMARY BY HOLE"tKœ †K¦‹ RANKED(SEL)ç Í   ÍK°TOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç7:ITEMSç%Lº‹ PAR(SEL,E)ç Í FP$ç" N/A" :¡ FP$çÿ“(ÿ…((FRWYTOT(SEL,E)ìHOLES(SEL,E))ë')ìd)é"%"uLÄ‹ GIR(SEL,E)ç Í PG$ç" N/A" :¡ PG$çÿ“(ÿ…((PUTGIR(SEL,E)ìGIR(SEL,E))ëd)ìd)ÇL΋ SSA(SEL,E)ç Í SP$ç" N/A" :¡ SP$çÿ“(ÿ…((SSC(SEL,E)ìSSA(SEL,E))ë')ìd)é"%"ûLØP$()ç"COURSE:"éCOURSE$(SEL)é" HOLE #"éÿ“(E) P$()ç"AVG. PUTTS/HOLE:"éÿ“(ÿ…((PUTTS(SEL,E)ìHOLES(SEL,E))ëd)ìd)RNP$()ç"AVG. PUTTS/GIR:"éPG$pNP$()ç"% SAND SAVES:"éSP$N(‚ Fç Ì –N2‹ A(SEL,F)çE Í FžN<ƒ FÉNFP$()ç"HOLE DIFFICULTY RANK:"éÿ“(êF)ÓNP †OZTOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç8:ITEMSç9OdP$()ç"# EAGLES: "éÿ“(EAGS(SEL,E))bOnP$()ç"# BIRDIES: "éÿ“(BIRDS(SEL,E))ŠOxP$()ç"# PARS: "éÿ“(PARS(SEL,E))”O‚ †»OŒÊ ,*:‘ "# BOGIES: ";BOGS(SEL,E)ãO–Ê ,*:‘ "# DOUBLES:";DOUBS(SEL,E)P Ê ,*:‘ "# OTHER: ";OTHER(SEL,E)FPªTOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç:ITEMSç‡P´P$()ç"ANY OTHER KEY":P$()ç"FOR MENU":P$()ç"PRESS 'A' FOR" P¹P$()ç"ANOTHER HOLE"ªP¾ †ÁPÈC$çÞ:‹ C$ç"" Í ÈÝPÒ‹ C$ç"A" ï C$ç"a" Í 8çP܉ Ü
ÿPæ * LATEST SCORES *Qð‹ RNDTOTç Í   :‰ æ
R6ƒ ITS>R@P$(NUMCOURSEé)çÿ“(NUMCOURSEé)é". ALL COURSES"HRJ ††RTTOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç6:ITEMSç®R^P$()ç"PLEASE INPUT YOUR SELECTION"¸Rh †ÓRrSEL$çÞ:‹ SEL$ç"" Í räR|SELçÿ”(SEL$)!S†‹ SELè ï SELæNUMCOURSEé ï SELèæÿ…(SEL) Í Ä 
,:‰ r=S‹ SELçNUMCOURSEé Í N`Sš‹ RNDSTOT(SEL)ç Í   :‰ nS¤¿ ,,:ÀªS®TOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç1:ITEMSçäS¸P$()ç" RECENT SCORES":P$()ç"COURSE: "éCOURSE$(SEL)îS †DTÌTOP.ROWç:BOTTOM.ROWçéRNDSTOT(SEL):LEFT.COLç:RIGHT.COLç1:ITEMSçéRNDSTOT(SEL)rTÖ‹ RNDSTOT(SEL)æ Í BOTTOM.ROWç:ITEMSç¬TàP$()ç" DATE SCORE":P$()ç" ---- -----"ÅTê‚ Iç Ì RNDSTOT(SEL)ÕTô‹ Iæ Í %UþP$(Ié)çDTE$(SEL,RNDSTOT(SEL)éêI)é" "éÿ“(SCRE(SEL,RNDSTOT(SEL)éêI))-Uƒ I7U †uUTOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç;:ITEMSç§U&P$()ç"PRESS ANY KEY TO RETURN TO BROOD MENU"±U0 †ÈU:C$çÞ:‹ C$ç"" Í :ÒUD‰ Ü
àUN¿ ,,:ÀVXTOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç2:ITEMSçUVbP$()ç" RECENT SCORES":P$()ç"COURSE: ALL COURSES"_Vl †©VvTOP.ROWç:BOTTOM.ROWçéRNDTOT:LEFT.COLç:RIGHT.COLç9:ITEMSçéRNDTOTÑV€‹ RNDTOTæ Í BOTTOM.ROWç:ITEMSç'WŠP$()ç" DATE SCORE COURSE":P$()ç" ---- ----- ------":W”‚ Iç Ì RNDTOTJWž‹ Iæ Í ÐpW¨P$(Ié)çDAT$(RNDTOTéêI)é" "¡W²‹ SCORE(RNDTOTéêI)èd Í P$(Ié)çP$(Ié)é" "çW¼P$(Ié)çP$(Ié)éÿ“(SCORE(RNDTOTéêI))é" "éCRS$(RNDTOTéêI)ïWƃ IùWЍ †7XÚTOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç;:ITEMSçiXäP$()ç"PRESS ANY KEY TO RETURN TO BROOD MENU"sXî †ŠXøC$çÞ:‹ C$ç"" Í ø”X‰ Ü
ÁX  * HOLE DIFFICULTY RANKING SUBROUTINE *ÓXRANKED(SEL)çY TOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç :ITEMSç"Y*P$()ç"RANKING",Y4 †;Y>‚ Hç Ì VYH‹ HOLES(SEL,H)ç Í ü“YRHOLERANK(SEL,H)ç(STROKES(SEL,H)ìHOLES(SEL,H))êPAR(SEL,H)¢Y\A(SEL,H)çHªYfƒ H»Yp‚ NUMç Ì ÑYz‚ NUM2çNUMé Ì Z„‹ HOLERANK(SEL,NUM)æHOLERANK(SEL,NUM2) Í Ô
ZŽƒ NUM2Z˜ƒ NUM#Z¢¿ ,,5Z¬‚ BLANKç Ì TZ¶Ê BLANK,:‘ " "`ZÀƒ BLANKfZÊŽ¦ZÔTEMPçHOLERANK(SEL,NUM):HOLERANK(SEL,NUM)çHOLERANK(SEL,NUM2)ÂZÞHOLERANK(SEL,NUM2)çTEMPüZèTEMçA(SEL,NUM):A(SEL,NUM)çA(SEL,NUM2):A(SEL,NUM2)çTEM[ò‰ Ž"[üHOLERANK(SEL,H)ç:‰ \?[ * LOAD ALL DATA LOOP *}[TOP.ROWç:BOTTOM.ROWç:LEFT.COLç :RIGHT.COLç-:ITEMSç”[P$()ç"LOADING..."ž[$ †³[.º NME$ ‚ … AS #Æ[8… #,NUMCOURSEÜ[B‚ Cç Ì NUMCOURSE\L… #,COURSE$(C),SLOPE(C),PR(C),YRDS(C)=\V… #,RNDSTOT(C),STROKESTOT(C),HLES(C),SA(C),SC(C)s\`… #,GR(C),FRWYTT(C),FRWY(C),FRWYHOLES(C),PTTS(C)Œ\j… #,PTGIR(C),RAT(C)£\t‚ Jç Ì RNDSTOT(C)À\~… #,DTE$(C,J),SCRE(C,J)È\ˆƒ JÐ\’ƒ C]œ… #,HOLESTOT,STROKESTOT,PUTTOT,PUTGIRTOT,GIRTOT5]¦… #,FRWYTOT,FRWYHOLES,RNDTOT,SSATOT,SSCTOTH]°‚ Dç Ì RNDTOTj]º… #,DAT$(D),SCORE(D),CRS$(D)r]ă D{]λ #”]غ NME$é"2" ‚ … AS #ª]â‚ Eç Ì NUMCOURSE¹]ì‚ Fç Ì î]ö… #,PAR(E,F),YARDS(E,F),HOLES(E,F),STROKES(E,F))^… #,PUTTS(E,F),PUTGIR(E,F),SSA(E,F),SSC(E,F),GIR(E,F)h^
… #,FRWYTOT(E,F),EAGS(E,F),BIRDS(E,F),PARS(E,F),BOGS(E,F)œ^… #,DOUBS(E,F),OTHER(E,F),A(E,F),HOLERANK(E,F)¤^ƒ F¬^(ƒ Eµ^2» #»^<ŽÙ^F * WRITE ALL DATA LOOP *_PTOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç4:ITEMSç;_ZP$()ç"WRITING INFO TO FILE..."E_d †__nº NME$ ‚ OUTPUT AS #r_x· #,NUMCOURSEˆ_‚‚ Cç Ì NUMCOURSE³_Œ· #,COURSE$(C),SLOPE(C),PR(C),YRDS(C)é_–· #,RNDSTOT(C),STROKESTOT(C),HLES(C),SA(C),SC(C)` · #,GR(C),FRWYTT(C),FRWY(C),FRWYHOLES(C),PTTS(C)8`ª· #,PTGIR(C),RAT(C)O`´‚ Jç Ì RNDSTOT(C)l`¾· #,DTE$(C,J),SCRE(C,J)t`ȃ J|`Òƒ C±`Ü· #,HOLESTOT,STROKESTOT,PUTTOT,PUTGIRTOT,GIRTOTá`æ· #,FRWYTOT,FRWYHOLES,RNDTOT,SSATOT,SSCTOTô`ð‚ Dç Ì RNDTOTaú· #,DAT$(D),SCORE(D),CRS$(D)aƒ D'a» #Eaº NME$é"2" ‚ OUTPUT AS #[a"‚ Eç Ì NUMCOURSEja,‚ Fç Ì Ÿa6· #,PAR(E,F),YARDS(E,F),HOLES(E,F),STROKES(E,F)Úa@· #,PUTTS(E,F),PUTGIR(E,F),SSA(E,F),SSC(E,F),GIR(E,F)bJ· #,FRWYTOT(E,F),EAGS(E,F),BIRDS(E,F),PARS(E,F),BOGS(E,F)MbT· #,DOUBS(E,F),OTHER(E,F),A(E,F),HOLERANK(E,F)Ub^ƒ F]bhƒ Efbr» #lb|Ž‚b * DRAW BOXES *¦b†HORIZ.LINEçRIGHT.COLêLEFT.COLêÓbTOP.LINE$çÿ–(Ú)éÖ(HORIZ.LINE,Ä)éÿ–(¿)cšBOTTOM.LINE$çÿ–(À)éÖ(HORIZ.LINE,Ä)éÿ–(Ù)(c¤SHADOW.HORIZ$çÖ(HORIZ.LINEé, )1c®¿ ,Zc¸‚ VERT.LINEçTOP.ROWé Ì BOTTOM.ROWé‚cÂ Ê VERT.LINE,LEFT.COLê,:‘ ÿ–( )’c̃ VERT.LINEœcÖ¿ ,³càÊ TOP.ROW,LEFT.COLÃcê‘ TOP.LINE$ìcô‚ VERT.LINEçTOP.ROWé Ì BOTTOM.ROWêdþ Ê VERT.LINE,LEFT.COLd ‘ ÿ–(³)2d Ê VERT.LINE,RIGHT.COLAd ‘ ÿ–(³)Qd&ƒ VERT.LINEZd0¿ ,vd:Ê BOTTOM.ROWé,LEFT.COLŠdD‘ SHADOW.HORIZ$”dN¿ ,®dXÊ BOTTOM.ROW,LEFT.COLÁdb‘ BOTTOM.LINE$êdl‚ VERT.LINEçTOP.ROWé Ì BOTTOM.ROWêev Ê VERT.LINE,LEFT.COLée€ ‘ ÒHORIZ.LINE);-eŠƒ VERT.LINEHe”‚ PRINT.TEXTç Ì ITEMSnež Ê PRINT.TEXTéTOP.ROW,LEFT.COLé…e¨ ‘ P$(PRINT.TEXT)–e²ƒ PRINT.TEXTœe¼ŽÇeƏ * HANDICAP CALCULATION SUBROUTINE *ÜeÐNUMROUNDSçRNDTOTûeÚ‹ RNDTOTæ Í NUMROUNDSçfäCOUNTROUNDSçÿ…((NUMROUNDSé)ì)5fî‚ Cç Ì NUMROUNDSMfø ‚ Eç Ì NUMCOURSEyf ‹ CRS$(RNDTOTéêC)çCOURSE$(E) Í ƒf  ƒ Eªf BEST(C)çSCORE(RNDTOTéêC)êRAT(E)²f ƒ CÊf*‚ Aç Ì NUMROUNDSêäf4 ‚ BçAé Ì NUMROUNDSg> ‹ BEST(A)æBEST(B) Í \gHƒ B,AgR‰ pFg\TEMPçBEST(A):BEST(A)çBEST(B):BEST(B)çTEMPPgf‰ HZgpSUMçrgz‚ Dç Ì COUNTROUNDSˆg„ SUMçSUMéBEST(D)gŽƒ D¾g˜HANDIçÿ…(€é(Âu€ë(SUMìCOUNTROUNDS)))Äg¢ŽÞg¬ * PUTTING STATS *h¶‹ RNDSTOT(SEL)ç Í   : ‰ Ü
hÀ¿ ,,: ÀhÊTOP.ROWç:BOTTOM.ROWç:LEFT.COLçÿ…((8êÿ’(COURSE$(SEL)))ì):RIGHT.COLçÿ…((déÿ’(COURSE$(SEL)))ì):ITEMSçµhÔP$()ç"PUTTING SUMMARY AT "éCOURSE$(SEL):P$()ç""ühÞ‹ GR(SEL)ç Í PG$ç" N/A" :¡ PG$çÿ“(ÿ…((PTGIR(SEL)ìGR(SEL))ëd)ìd)@ièP$()ç" AVG. PUTTS/HOLE:"éÿ“(ÿ…((PTTS(SEL)ìHLES(SEL))ëd)ìd)ciòP$()ç" AVG. PUTTS/GIR:"éPG$©iüP$()ç" AVG. PUTTS/ROUND:"éÿ“(ÿ…((PTTS(SEL)ìHLES(SEL))ë)ìd)³i †½i ûiTOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLçC:ITEMSç=j$P$()ç"HOLE # AVG. PUTTS/GIR HOLE # AVG. PUTTS/GIR"Gj. †Uj8‚ Bç Ì cjBÊ  éB,
zjL‹ J(SEL,B)æ Í `…jV‘ " "; j`‘ J(SEL,B);" ";Æjj‹ HLERANK(SEL,B)ç
Í  ö:‰ ~åjt‘ ÿ…(HLERANK(SEL,B)ëd)ìdój~Ê  éB,+ kˆ‹ J(SEL,Bé)æ Í œk’‘ " ";4kœ‘ J(SEL,Bé);" ";\k¦‹ HLERANK(SEL,Bé)ç
Í  ö:‰ º}k°‘ ÿ…(HLERANK(SEL,Bé)ëd)ìd…kºƒ BÀkÄTOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç:ITEMSçïkÎP$()ç"PRESS ANY KEY":P$()ç" TO CONTINUE"ùk؍ †lâC$çÞ:‹ C$ç"" Í lì‰ Ü
)lö‘ " N/A":ŽCl * GIR'ING STATS *gl
‹ RNDSTOT(SEL)ç Í   : ‰ Ü
vl¿ ,,: ÀälTOP.ROWç:BOTTOM.ROWç:LEFT.COLçÿ…((8êÿ’(COURSE$(SEL)))ì):RIGHT.COLçÿ…((déÿ’(COURSE$(SEL)))ì):ITEMSçm(P$()ç"GIR'ING SUMMARY AT "éCOURSE$(SEL):P$()ç""`m2P$()ç" % GREENS IN REG.:"éÿ“(ÿ…((GR(SEL)ìHLES(SEL))ë')ìd)é"%"jm< †tmF þ²mPTOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLçC:ITEMSçõmZP$()ç"HOLE # % GREENS IN REG. HOLE # % GREENS IN REG."ÿmd †
nn‚ Bç Ì nxÊ  éB,
2n‚‹ O(SEL,B)æ Í –=nŒ‘ " ";Xn–‘ O(SEL,B);" ";wn ‘ ÿ…(HOLRANK(SEL,B)ëd)ìd…nªÊ  éB,+žn´‹ O(SEL,Bé)æ Í È©n¾‘ " ";ÆnÈ‘ O(SEL,Bé);" ";çnÒ‘ ÿ…(HOLRANK(SEL,Bé)ëd)ìdïn܃ B*oæTOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç:ITEMSçYoðP$()ç"PRESS ANY KEY":P$()ç" TO CONTINUE"coú †zoC$çÞ:‹ C$ç"" Í „o‰ Ü
´o * PUTTING DIFFICULTY RANKING SUBROUTINE *ïo"TOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç :ITEMSçp,P$()ç"RANKING"
p6 †p@‚ Hç Ì IpJ‹ GIR(SEL,H)ç Í HLERANK(SEL,H)ç
:‰ ^upTHLERANK(SEL,H)çPUTGIR(SEL,H)ìGIR(SEL,H)„p^J(SEL,H)çHŒphƒ Hpr‚ NUMç Ì ³p|‚ NUM2çNUMé Ì âp†‹ HLERANK(SEL,NUM)æHLERANK(SEL,NUM2) Í Öípƒ NUM2÷pšƒ NUMq¤¿ ,,q®‚ BLANKç Ì 4q¸Ê BLANK,:‘ " "@qƒ BLANKFqÌŽƒqÖTEMPçHLERANK(SEL,NUM):HLERANK(SEL,NUM)çHLERANK(SEL,NUM2)žqàHLERANK(SEL,NUM2)çTEMPØqêTEMçJ(SEL,NUM):J(SEL,NUM)çJ(SEL,NUM2):J(SEL,NUM2)çTEMâqô‰ rþ * GIR'ING DIFFICULTY RANKING SUBROUTINE *MrTOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç :ITEMSçarP$()ç"RANKING"kr †zr&‚ Hç Ì ªr0HOLRANK(SEL,H)ç(GIR(SEL,H)ìHOLES(SEL,H))ëd¹r:O(SEL,H)çHÁrDƒ HÒrN‚ NUMç Ì èrX‚ NUM2çNUMé Ì sb‹ HOLRANK(SEL,NUM)èHOLRANK(SEL,NUM2) Í ²"slƒ NUM2,svƒ NUM8s€¿ ,,JsŠ‚ BLANKç Ì is”Ê BLANK,:‘ " "usžƒ BLANK{s¨Ž¸s²TEMPçHOLRANK(SEL,NUM):HOLRANK(SEL,NUM)çHOLRANK(SEL,NUM2)Ós¼HOLRANK(SEL,NUM2)çTEMP
tÆTEMçO(SEL,NUM):O(SEL,NUM)çO(SEL,NUM2):O(SEL,NUM2)çTEMtЉ l1tڏ * DRIVING STATS *Utä‹ RNDSTOT(SEL)ç Í   : ‰ Ü
dtî¿ ,,: ÀÒtøTOP.ROWç:BOTTOM.ROWç:LEFT.COLçÿ…((8êÿ’(COURSE$(SEL)))ì):RIGHT.COLçÿ…((déÿ’(COURSE$(SEL)))ì):ITEMSçuP$()ç"DRIVING SUMMARY AT "éCOURSE$(SEL):P$()ç""Wu P$()ç" % FAIRWAYS HIT:"éÿ“(ÿ…((FRWYTT(SEL)ìFRWYHOLES(SEL))ë')ìd)é"%"au †ku  ò©u*TOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLçC:ITEMSçëu4P$()ç"HOLE # % FAIRWAYS HIT HOLE # % FAIRWAYS HIT"õu> †vH‚ Bç Ì vRÊ  éB,
(v\‹ R(SEL,B)æ Í p3vf‘ " ";Nvp‘ R(SEL,B);" ";mvz‘ ÿ…(HOLERNK(SEL,B)ëd)ìd{v„Ê  éB,+”vŽ‹ R(SEL,Bé)æ Í ¢Ÿv˜‘ " ";¼v¢‘ R(SEL,Bé);" ";Ýv¬‘ ÿ…(HOLERNK(SEL,Bé)ëd)ìdåv¶ƒ B wÀTOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç:ITEMSçOwÊP$()ç"PRESS ANY KEY":P$()ç" TO CONTINUE"Ywԍ †pwÞC$çÞ:‹ C$ç"" Í zwè‰ Ü
ªwò * DRIVING DIFFICULTY RANKING SUBROUTINE *åwüTOP.ROWç:BOTTOM.ROWç:LEFT.COLç:RIGHT.COLç :ITEMSçùwP$()ç"RANKING"x †x‚ Hç Ì Fx$HOLERNK(SEL,H)ç(FRWYTOT(SEL,H)ìHOLES(SEL,H))ëdmx.‹ PAR(SEL,H)ç Í HOLERNK(SEL,H)çê|x8R(SEL,H)çH„xBƒ H•xL‚ NUMç Ì «xV‚ NUM2çNUMé Ì Úx`‹ HOLERNK(SEL,NUM)èHOLERNK(SEL,NUM2) Í °åxjƒ NUM2ïxtƒ NUMûx~¿ ,,
yˆ‚ BLANKç Ì ,y’Ê BLANK,:‘ " "8yœƒ BLANK>y¦Ž{y°TEMPçHOLERNK(SEL,NUM):HOLERNK(SEL,NUM)çHOLERNK(SEL,NUM2)–yºHOLERNK(SEL,NUM2)çTEMPÐyÄTEMçR(SEL,NUM):R(SEL,NUM)çR(SEL,NUM2):R(SEL,NUM2)çTEMÚyΉ jèy@¿ ,,:ÀzJ‘ Ò);"*** GOLF STATISTICS VERSION 1.0 ***"#zT‘:‘uz^‘ " GOLF STATISTICS is a shareware program written in BASIC and designed"Çzh‘ "for the true golf enthusiast. It may be copied and distributed freely as"{r‘ "long as it is not modified. The commercial use of this program without"X{|‘ "the express written consent of the author is prohibited."^{†‘°{‘ " I hope that you enjoy GOLF STATISTICS and find it helpful in shaving"ß{š‘ "those last few strokes off your score."å{¤‘6|®‘ " If you do find the program useful, a contribution of $10.00 (or any"Š|¸‘ "amount) would be greatly appreciated. In return, you will receive a manual"Ü|½‘ "and information on how to receive updated versions of the program as they"ö|¿‘ "become available."ü|‘}Ì‘ " Timothy D. Polk"D}Ö‘ " 6808 Harrowdale Rd., Apt. 201"f}à‘ " Baltimore, MD 21209"¨}ê‘:‘:‘ " PRESS ANY KEY TO CONTINUE"¿}ôD$çÞ:‹ D$ç"" Í ôÅ}þŽÿÿ