GOLF HANDICAP

FILE INFORMATION

FILENAME(S): GOLF HANDICAP

FILE TYPE(S): PRG

FILE SIZE: 13.3K

FIRST SEEN: 2025-11-30 21:07:09

APPEARS ON: 1 disk(s)

FILE HASH

184dfe8572ee03f65422f77536fbb46050edaccee12f5fb9b7941e986807b1b9

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
TPUG MAY 85 C	GOLF HANDICAP	PRG	DuncanTwain	3	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 15 08 0A 00 8F 20  47 4F 4C 46 20 48 41 4E  |....... GOLF HAN|
00000010: 44 49 43 41 50 00 26 08  14 00 8F 20 41 4C 20 4A  |DICAP.&.... AL J|
00000020: 4F 48 4E 53 4F 4E 00 3F  08 19 00 8F 20 31 32 33  |OHNSON.?.... 123|
00000030: 30 32 20 43 4F 4C 45 52  41 49 4E 45 20 43 54 00  |02 COLERAINE CT.|
00000040: 57 08 1E 00 8F 20 52 45  53 54 4F 4E 2C 20 56 41  |W.... RESTON, VA|
00000050: 20 20 32 32 30 39 31 00  7E 08 23 00 8F 20 53 45  |  22091.~.#.. SE|
00000060: 4E 44 20 4D 45 20 41 20  43 41 52 44 20 49 46 20  |ND ME A CARD IF |
00000070: 59 4F 55 20 4C 49 4B 45  20 49 54 20 4F 52 00 99  |YOU LIKE IT OR..|
00000080: 08 28 00 8F 20 48 41 56  45 20 41 4E 59 20 53 55  |.(.. HAVE ANY SU|
00000090: 47 47 45 53 54 49 4F 4E  53 00 B1 08 64 00 97 35  |GGESTIONS...d..5|
000000A0: 33 32 38 30 2C 31 31 3A  97 35 33 32 38 31 2C 31  |3280,11:.53281,1|
000000B0: 35 00 BB 08 6E 00 8D 38  30 30 30 00 C5 08 73 00  |5...n..8000...s.|
000000C0: 52 4C B2 32 35 00 01 09  78 00 86 20 43 52 24 28  |RL.25...x.. CR$(|
000000D0: 32 30 2C 32 34 29 2C 52  44 24 28 35 30 2C 32 35  |20,24),RD$(50,25|
000000E0: 29 2C 48 47 24 28 35 30  2C 31 38 29 2C 48 46 24  |),HG$(50,18),HF$|
000000F0: 28 35 30 2C 31 38 29 2C  43 55 28 32 35 2C 32 33  |(50,18),CU(25,23|
00000100: 29 00 16 09 7D 00 86 20  48 43 28 35 30 2C 37 29  |)...}.. HC(50,7)|
00000110: 2C 53 43 28 34 29 00 48  09 82 00 9F 31 35 2C 38  |,SC(4).H....15,8|
00000120: 2C 31 35 2C 22 49 30 22  3A 9F 36 2C 38 2C 36 2C  |,15,"I0":.6,8,6,|
00000130: 22 30 3A 47 4C 46 20 43  4F 55 52 53 45 2C 53 2C  |"0:GLF COURSE,S,|
00000140: 52 22 3A 8D 39 36 30 30  00 77 09 8C 00 8B 20 45  |R":.9600.w.... E|
00000150: 4E B3 B1 30 20 A7 20 4F  4D 24 B2 22 43 4F 55 52  |N..0 . OM$."COUR|
00000160: 53 45 20 46 49 4C 45 20  4E 4F 54 20 46 4F 55 4E  |SE FILE NOT FOUN|
00000170: 44 22 3A 89 32 32 30 00  81 09 96 00 84 36 2C 43  |D":.220......6,C|
00000180: 43 00 A7 09 A0 00 81 58  B2 31 A4 43 43 3A 81 59  |C......X.1.CC:.Y|
00000190: B2 31 A4 32 33 3A 84 36  2C 43 52 24 28 58 2C 59  |.1.23:.6,CR$(X,Y|
000001A0: 29 3A 82 59 3A 82 58 00  B2 09 D2 00 A0 36 3A A0  |):.Y:.X......6:.|
000001B0: 31 35 00 F1 09 DC 00 55  31 24 B2 22 A4 22 3A 55  |15.....U1$.".":U|
000001C0: 32 24 B2 22 A4 A4 22 3A  53 50 24 B2 22 20 20 20  |2$."..":SP$."   |
000001D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000001E0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000001F0: 22 00 10 0A E6 00 55 39  24 B2 22 A4 A4 A4 A4 A4  |".....U9$.".....|
00000200: A4 A4 A4 A4 A4 A4 A4 A4  A4 A4 A4 A4 A4 A4 A4 22  |..............."|
00000210: 00 44 0A F0 00 81 58 B2  31 A4 32 35 3A 87 41 2C  |.D....X.1.25:.A,|
00000220: 42 2C 43 3A 43 55 28 58  2C 31 29 B2 41 3A 43 55  |B,C:CU(X,1).A:CU|
00000230: 28 58 2C 32 29 B2 42 3A  43 55 28 58 2C 33 29 B2  |(X,2).B:CU(X,3).|
00000240: 43 3A 82 58 00 64 0A FA  00 81 58 B2 38 32 38 A4  |C:.X.d....X.828.|
00000250: 38 32 38 AA 31 30 20 20  20 3A 87 41 3A 97 58 2C  |828.10   :.A:.X,|
00000260: 41 3A 82 58 00 7C 0A 04  01 97 38 35 30 2C 32 32  |A:.X.|....850,22|
00000270: 3A 97 38 35 31 2C 38 3A  9E 38 32 38 00 A4 0A 0E  |:.851,8:.828....|
00000280: 01 99 22 1C 12 50 52 45  53 53 20 41 4E 59 20 4B  |.."..PRESS ANY K|
00000290: 45 59 20 57 48 45 4E 20  52 45 41 44 59 22 3A 8D  |EY WHEN READY":.|
000002A0: 39 32 30 30 00 AE 0A EA  01 89 35 30 30 30 00 C9  |9200......5000..|
000002B0: 0A F3 01 8F 20 2A 2A 20  4C 49 53 54 20 43 4F 55  |.... ** LIST COU|
000002C0: 52 53 45 20 4E 41 4D 45  53 00 E3 0A F4 01 99 22  |RSE NAMES......"|
000002D0: 93 1C 12 22 3B A3 31 33  29 3B 22 43 4F 55 52 53  |...";.13);"COURS|
000002E0: 45 53 22 00 EF 0A FE 01  81 58 B2 31 A4 43 43 00  |ES"......X.1.CC.|
000002F0: 18 0B 08 02 99 22 1D 1D  1F 22 3B 58 3B A3 38 29  |....."...";X;.8)|
00000300: 3B 43 52 24 28 58 2C 31  29 3B A3 33 31 29 3B 43  |;CR$(X,1);.31);C|
00000310: 52 24 28 58 2C 32 33 29  00 1F 0B 1C 02 82 58 00  |R$(X,23)......X.|
00000320: 48 0B 26 02 99 22 97 1D  1D 11 45 4E 54 45 52 20  |H.&.."....ENTER |
00000330: 4E 55 4D 42 45 52 20 4F  46 20 43 4F 55 52 53 45  |NUMBER OF COURSE|
00000340: 20 50 4C 41 59 45 44 22  00 7A 0B 29 02 85 22 97  | PLAYED".z.)..".|
00000350: 1D 1D 11 4F 52 20 5F 20  49 46 20 43 4F 55 52 53  |...OR _ IF COURS|
00000360: 45 20 4E 4F 54 20 53 48  4F 57 4E 22 3B 43 58 24  |E NOT SHOWN";CX$|
00000370: 3A 43 58 B2 C5 28 43 58  24 29 00 8C 0B 2B 02 8B  |:CX..(CX$)...+..|
00000380: 20 43 58 24 B2 22 5F 22  20 A7 20 8E 00 B5 0B 30  | CX$."_" . ....0|
00000390: 02 8B 20 43 58 B3 31 20  B0 20 43 58 B1 43 43 20  |.. CX.1 . CX.CC |
000003A0: A7 20 99 22 12 1C 1D 1D  49 4E 56 41 4C 49 44 22  |. ."....INVALID"|
000003B0: 3A 89 35 35 30 00 BB 0B  3A 02 8E 00 D6 0B BA 02  |:.550...:.......|
000003C0: 8F 20 2A 2A 2A 2A 2A 4C  4F 41 44 20 53 55 42 52  |. *****LOAD SUBR|
000003D0: 4F 55 54 49 4E 45 00 F6  0B BC 02 99 22 93 11 1D  |OUTINE......"...|
000003E0: 1D 1D 1D 1C 4C 4F 41 44  49 4E 47 20 47 4F 4C 46  |....LOADING GOLF|
000003F0: 20 46 49 4C 45 22 00 22  0C C6 02 99 22 11 1D 1D  | FILE"."...."...|
00000400: 97 12 43 92 20 54 4F 20  43 4F 4E 54 49 4E 55 45  |..C. TO CONTINUE|
00000410: 20 2D 20 4F 54 48 45 52  20 46 4F 52 20 4D 45 4E  | - OTHER FOR MEN|
00000420: 55 22 00 48 0C D0 02 8D  39 32 30 30 3A 8B 20 4B  |U".H....9200:. K|
00000430: 24 B3 B1 22 43 22 20 A7  20 4F 4D 24 B2 22 4E 4F  |$.."C" . OM$."NO|
00000440: 20 4C 4F 41 44 22 3A 8E  00 5A 0C DA 02 9F 31 35  | LOAD":..Z....15|
00000450: 2C 38 2C 31 35 2C 22 49  30 22 00 7D 0C E4 02 9F  |,8,15,"I0".}....|
00000460: 37 2C 38 2C 37 2C 22 30  3A 47 4F 4C 46 20 44 41  |7,8,7,"0:GOLF DA|
00000470: 54 41 2C 53 2C 52 22 3A  8D 39 36 30 30 00 A7 0C  |TA,S,R":.9600...|
00000480: EE 02 8B 20 41 42 24 B2  22 59 22 A7 20 4F 4D 24  |... AB$."Y". OM$|
00000490: B2 22 4E 4F 20 52 4F 55  4E 44 53 20 46 4F 55 4E  |."NO ROUNDS FOUN|
000004A0: 44 22 3A 89 38 39 30 00  B1 0C F8 02 84 37 2C 52  |D":.890......7,R|
000004B0: 43 00 BD 0C 02 03 81 58  B2 31 A4 52 43 00 D8 0C  |C......X.1.RC...|
000004C0: 0C 03 81 59 B2 31 A4 32  35 3A 84 37 2C 52 44 24  |...Y.1.25:.7,RD$|
000004D0: 28 58 2C 59 29 3A 82 59  00 F3 0C 16 03 81 59 B2  |(X,Y):.Y......Y.|
000004E0: 31 A4 31 38 3A 84 37 2C  48 47 24 28 58 2C 59 29  |1.18:.7,HG$(X,Y)|
000004F0: 3A 82 59 00 0E 0D 48 03  81 59 B2 31 A4 31 38 3A  |:.Y...H..Y.1.18:|
00000500: 84 37 2C 48 46 24 28 58  2C 59 29 3A 82 59 00 15  |.7,HF$(X,Y):.Y..|
00000510: 0D 66 03 82 58 00 38 0D  70 03 4F 4D 24 B2 22 4C  |.f..X.8.p.OM$."L|
00000520: 4F 41 44 20 4F 4B 20 22  AA C4 28 52 43 29 AA 22  |OAD OK "..(RC)."|
00000530: 20 52 4F 55 4E 44 53 22  00 43 0D 7A 03 A0 37 3A  | ROUNDS".C.z..7:|
00000540: A0 31 35 00 49 0D 84 03  8E 00 62 0D E6 03 8F 20  |.15.I.....b.... |
00000550: 2A 2A 20 53 41 56 45 20  53 55 42 52 4F 55 54 49  |** SAVE SUBROUTI|
00000560: 4E 45 00 8A 0D E8 03 99  22 93 11 1D 1D 1D 1D 1D  |NE......".......|
00000570: 1C 12 53 41 56 45 20 54  48 45 20 52 4F 55 4E 44  |..SAVE THE ROUND|
00000580: 53 20 54 4F 20 44 49 53  4B 22 00 B6 0D F2 03 99  |S TO DISK"......|
00000590: 22 97 11 1D 1D 12 43 92  20 54 4F 20 43 4F 4E 54  |".....C. TO CONT|
000005A0: 49 4E 55 45 20 2D 20 4F  54 48 45 52 20 46 4F 52  |INUE - OTHER FOR|
000005B0: 20 4D 45 4E 55 22 00 E1  0D FC 03 8D 39 32 30 30  | MENU"......9200|
000005C0: 3A 8B 4B 24 B3 B1 22 43  22 20 A7 20 4F 4D 24 B2  |:.K$.."C" . OM$.|
000005D0: 22 53 41 56 45 20 4E 4F  54 20 44 4F 4E 45 22 3A  |"SAVE NOT DONE":|
000005E0: 8E 00 F3 0D 06 04 9F 31  35 2C 38 2C 31 35 2C 22  |.......15,8,15,"|
000005F0: 49 30 22 00 17 0E 10 04  9F 38 2C 38 2C 38 2C 22  |I0"......8,8,8,"|
00000600: 40 30 3A 47 4F 4C 46 20  44 41 54 41 2C 53 2C 57  |@0:GOLF DATA,S,W|
00000610: 22 3A 8D 39 36 30 30 00  49 0E 1A 04 8B 20 41 42  |":.9600.I.... AB|
00000620: 24 B2 22 59 22 20 A7 20  4F 4D 24 B2 22 44 49 53  |$."Y" . OM$."DIS|
00000630: 4B 20 45 52 52 4F 52 20  2D 20 22 AA 45 4D 24 22  |K ERROR - ".EM$"|
00000640: 3A 47 4F 54 4F 31 31 33  30 00 55 0E 1F 04 53 56  |:GOTO1130.U...SV|
00000650: 24 B2 22 59 22 00 5F 0E  24 04 98 38 2C 52 43 00  |$."Y"._.$..8,RC.|
00000660: 6B 0E 2E 04 81 58 B2 31  A4 52 43 00 86 0E 38 04  |k....X.1.RC...8.|
00000670: 81 59 B2 31 A4 32 35 3A  98 38 2C 52 44 24 28 58  |.Y.1.25:.8,RD$(X|
00000680: 2C 59 29 3A 82 59 00 A1  0E 42 04 81 59 B2 31 A4  |,Y):.Y...B..Y.1.|
00000690: 31 38 3A 98 38 2C 48 47  24 28 58 2C 59 29 3A 82  |18:.8,HG$(X,Y):.|
000006A0: 59 00 BC 0E 4C 04 81 59  B2 31 A4 31 38 3A 98 38  |Y...L..Y.1.18:.8|
000006B0: 2C 48 46 24 28 58 2C 59  29 3A 82 59 00 C3 0E 56  |,HF$(X,Y):.Y...V|
000006C0: 04 82 58 00 E8 0E 60 04  4F 4D 24 B2 22 53 41 56  |..X...`.OM$."SAV|
000006D0: 45 20 4F 4B 20 2D 20 22  AA C4 28 52 43 29 AA 22  |E OK - "..(RC)."|
000006E0: 20 52 4F 55 4E 44 53 22  00 F3 0E 6A 04 A0 38 3A  | ROUNDS"...j..8:|
000006F0: A0 31 35 00 F9 0E 74 04  8E 00 17 0F AE 04 8F 20  |.15...t........ |
00000700: 2A 2A 2A 2A 20 42 41 43  4B 20 55 50 20 53 55 42  |**** BACK UP SUB|
00000710: 52 4F 55 54 49 4E 45 00  39 0F B0 04 99 22 93 11  |ROUTINE.9...."..|
00000720: 1D 1D 1D 1D 1C 12 42 41  43 4B 55 50 20 47 4F 4C  |......BACKUP GOL|
00000730: 46 20 52 4F 55 4E 44 53  22 00 6B 0F BA 04 99 22  |F ROUNDS".k...."|
00000740: 97 11 1D 1D 12 43 92 20  54 4F 20 43 4F 4E 54 49  |.....C. TO CONTI|
00000750: 4E 55 45 20 2D 20 4F 54  48 45 52 20 46 4F 52 20  |NUE - OTHER FOR |
00000760: 4D 45 4E 55 22 3A 8D 39  32 30 30 00 8C 0F C4 04  |MENU":.9200.....|
00000770: 8B 4B 24 B3 B1 22 43 22  20 A7 20 4F 4D 24 B2 22  |.K$.."C" . OM$."|
00000780: 4E 4F 20 42 41 43 4B 55  50 22 3A 8E 00 AB 0F CE  |NO BACKUP":.....|
00000790: 04 99 22 11 11 1D 1D 1C  12 49 4E 53 45 52 54 20  |.."......INSERT |
000007A0: 42 41 43 4B 55 50 20 44  49 53 4B 00 CA 0F D8 04  |BACKUP DISK.....|
000007B0: 99 22 11 1D 1D 1D 1D 1D  12 48 49 54 20 41 20 4B  |.".......HIT A K|
000007C0: 45 59 97 22 3A 8D 39 32  30 30 00 DC 0F EC 04 9F  |EY.":.9200......|
000007D0: 31 35 2C 38 2C 31 35 2C  22 49 30 22 00 00 10 F6  |15,8,15,"I0"....|
000007E0: 04 9F 38 2C 38 2C 38 2C  22 47 4F 4C 46 20 44 41  |..8,8,8,"GOLF DA|
000007F0: 54 41 2D 42 4B 2C 53 2C  57 22 3A 8D 39 36 30 30  |TA-BK,S,W":.9600|
00000800: 00 16 10 00 05 8B 20 41  42 24 B3 B1 22 59 22 20  |...... AB$.."Y" |
00000810: A7 20 31 33 31 30 00 55  10 0A 05 4F 4D 24 B2 22  |. 1310.U...OM$."|
00000820: 42 4B 55 50 20 44 49 53  4B 20 45 52 52 4F 52 20  |BKUP DISK ERROR |
00000830: 2D 20 22 AA 45 4D 24 3A  4F 50 24 B2 22 49 4E 53  |- ".EM$:OP$."INS|
00000840: 45 52 54 20 4D 41 49 4E  20 44 49 53 4B 20 4F 52  |ERT MAIN DISK OR|
00000850: 20 27 51 27 22 00 62 10  14 05 A0 38 3A A0 31 35  | 'Q'".b....8:.15|
00000860: 3A 8E 00 6C 10 1E 05 8D  31 30 36 30 00 78 10 23  |:..l....1060.x.#|
00000870: 05 42 4B 24 B2 22 59 22  00 9F 10 28 05 4F 4D 24  |.BK$."Y"...(.OM$|
00000880: B2 22 42 41 43 4B 55 50  20 4F 4B 20 2D 20 22 AA  |."BACKUP OK - ".|
00000890: C4 28 52 43 29 AA 22 20  52 4F 55 4E 44 53 22 00  |.(RC)." ROUNDS".|
000008A0: C2 10 32 05 4F 50 24 B2  22 49 4E 53 45 52 54 20  |..2.OP$."INSERT |
000008B0: 4D 41 49 4E 20 44 49 53  4B 20 4F 52 20 51 55 49  |MAIN DISK OR QUI|
000008C0: 54 22 00 C8 10 3C 05 8E  00 EA 10 DA 05 8F 20 2A  |T"...<........ *|
000008D0: 2A 2A 20 46 49 4C 4C 20  53 43 52 45 45 4E 20 46  |** FILL SCREEN F|
000008E0: 4F 52 20 44 49 53 50 4C  41 59 00 12 11 DC 05 99  |OR DISPLAY......|
000008F0: 22 93 1C 22 3B A3 31 30  29 3B 22 50 45 52 53 4F  |"..";.10);"PERSO|
00000900: 4E 41 4C 20 47 4F 4C 46  20 48 41 4E 44 49 43 41  |NAL GOLF HANDICA|
00000910: 50 22 00 30 11 E6 05 99  22 1F 22 3B A3 31 35 29  |P".0....".";.15)|
00000920: 3B 22 52 4F 55 4E 44 53  20 50 4C 41 59 45 44 22  |;"ROUNDS PLAYED"|
00000930: 00 44 11 F0 05 99 A3 36  29 3B 22 98 11 43 4F 55  |.D.....6);"..COU|
00000940: 52 53 45 22 00 70 11 FA  05 99 22 20 50 41 52 22  |RSE".p...." PAR"|
00000950: 3B A3 39 29 3B 22 52 41  54 49 4E 47 22 3B A3 32  |;.9);"RATING";.2|
00000960: 32 29 3B 22 44 41 54 45  20 50 4C 41 59 45 44 22  |2);"DATE PLAYED"|
00000970: 00 96 11 04 06 99 A3 31  30 29 3B 22 11 1F 53 43  |.......10);"..SC|
00000980: 20 20 47 20 46 22 3B A3  33 31 29 3B 22 53 43 20  |  G F";.31);"SC |
00000990: 20 47 20 46 11 22 00 A3  11 0E 06 81 58 B2 31 A4  | G F."......X.1.|
000009A0: 37 A9 32 00 C5 11 18 06  99 22 20 20 48 4F 4C 45  |7.2......"  HOLE|
000009B0: 20 22 3B 58 3B A3 32 33  29 3B 22 48 4F 4C 45 20  | ";X;.23);"HOLE |
000009C0: 22 3B 58 AA 31 00 CC 11  22 06 82 58 00 EC 11 2C  |";X.1..."..X...,|
000009D0: 06 99 22 20 20 48 4F 4C  45 20 20 39 22 3B A3 32  |.."  HOLE  9";.2|
000009E0: 33 29 3B 22 48 4F 4C 45  20 31 30 22 00 FC 11 36  |3);"HOLE 10"...6|
000009F0: 06 81 58 B2 31 31 A4 31  37 20 A9 32 00 1C 12 40  |..X.11.17 .2...@|
00000A00: 06 99 22 20 20 48 4F 4C  45 22 3B 58 3B A3 32 33  |.."  HOLE";X;.23|
00000A10: 29 3B 22 48 4F 4C 45 22  3B 58 AA 31 00 23 12 4A  |);"HOLE";X.1.#.J|
00000A20: 06 82 58 00 4F 12 54 06  99 22 11 98 22 3B A3 35  |..X.O.T.."..";.5|
00000A30: 29 3B 22 50 55 54 54 53  20 20 20 20 20 53 43 4F  |);"PUTTS     SCO|
00000A40: 52 45 20 20 20 20 20 20  44 46 52 4E 54 4C 22 00  |RE      DFRNTL".|
00000A50: 8A 12 5E 06 99 22 11 11  1D 1D 98 12 41 92 44 44  |..^.."......A.DD|
00000A60: 20 20 12 4D 92 4F 44 49  46 59 20 20 12 4E 92 45  |  .M.ODIFY  .N.E|
00000A70: 58 54 20 20 12 42 92 41  43 4B 20 20 12 44 92 45  |XT  .B.ACK  .D.E|
00000A80: 4C 20 20 12 51 92 55 49  54 22 00 90 12 72 06 8E  |L  .Q.UIT"...r..|
00000A90: 00 B2 12 06 07 8F 20 50  55 54 20 55 4E 44 45 52  |...... PUT UNDER|
00000AA0: 4C 49 4E 45 20 49 4E 20  54 41 42 4C 45 20 53 55  |LINE IN TABLE SU|
00000AB0: 42 52 00 C8 12 08 07 52  44 24 28 43 50 2C 32 29  |BR.....RD$(CP,2)|
00000AC0: B2 55 32 24 AA 55 32 24  00 DE 12 12 07 52 44 24  |.U2$.U2$.....RD$|
00000AD0: 28 43 50 2C 33 29 B2 55  32 24 AA 55 32 24 00 19  |(CP,3).U2$.U2$..|
00000AE0: 13 26 07 81 58 B2 31 A4  31 38 3A 52 44 24 28 43  |.&..X.1.18:RD$(C|
00000AF0: 50 2C 58 AA 33 29 B2 55  32 24 3A 48 47 24 28 43  |P,X.3).U2$:HG$(C|
00000B00: 50 2C 58 29 B2 55 31 24  3A 48 46 24 28 43 50 2C  |P,X).U1$:HF$(CP,|
00000B10: 58 29 B2 55 31 24 3A 82  58 00 2C 13 58 07 52 44  |X).U1$:.X.,.X.RD|
00000B20: 24 28 43 50 2C 32 33 29  B2 55 32 24 00 43 13 62  |$(CP,23).U2$.C.b|
00000B30: 07 52 44 24 28 43 50 2C  32 34 29 B2 55 32 24 AA  |.RD$(CP,24).U2$.|
00000B40: 55 31 24 00 49 13 67 07  8E 00 6C 13 CE 07 8F 20  |U1$.I.g...l.... |
00000B50: 2A 2A 20 46 49 4C 4C 20  44 41 54 41 20 41 52 45  |** FILL DATA ARE|
00000B60: 41 53 20 4F 46 20 53 43  52 45 45 4E 00 8C 13 D0  |AS OF SCREEN....|
00000B70: 07 99 22 13 11 97 20 23  22 3B C4 28 43 50 29 3A  |.."... #";.(CP):|
00000B80: 99 22 4F 46 20 22 3B C4  28 52 43 29 00 A4 13 D3  |."OF ";.(RC)....|
00000B90: 07 97 38 35 30 2C 33 3A  97 38 35 31 2C 31 33 3A  |..850,3:.851,13:|
00000BA0: 9E 38 32 38 00 D7 13 D8  07 8B 20 C8 28 43 4E 24  |.828...... .(CN$|
00000BB0: 2C 31 29 B3 B1 22 A4 22  A7 20 50 50 B2 C5 28 52  |,1)..".". PP..(R|
00000BC0: 44 24 28 43 50 2C 31 29  29 3A 43 4E 24 B2 43 52  |D$(CP,1)):CN$.CR|
00000BD0: 24 28 50 50 2C 31 29 00  F4 13 DA 07 99 22 12 97  |$(PP,1)......"..|
00000BE0: 22 3B 43 4E 24 3B 22 92  20 20 20 20 20 20 20 20  |";CN$;".        |
00000BF0: 20 20 20 22 00 00 14 E4  07 81 58 B2 32 A4 32 35  |   "......X.2.25|
00000C00: 00 23 14 EE 07 97 38 35  30 2C 43 55 28 58 2C 31  |.#....850,CU(X,1|
00000C10: 29 3A 97 38 35 31 2C 43  55 28 58 2C 32 29 3A 9E  |):.851,CU(X,2):.|
00000C20: 38 32 38 00 43 14 F3 07  50 50 B2 43 55 28 58 2C  |828.C...PP.CU(X,|
00000C30: 33 29 3A 99 C8 28 53 50  24 2C 50 50 29 3B 3A 9E  |3):..(SP$,PP);:.|
00000C40: 38 32 38 00 52 14 F8 07  99 52 44 24 28 43 50 2C  |828.R....RD$(CP,|
00000C50: 58 29 00 6A 14 02 08 8B  20 58 B3 34 20 B0 20 58  |X).j.... X.4 . X|
00000C60: B1 32 31 20 A7 20 32 31  30 30 00 8F 14 0C 08 97  |.21 . 2100......|
00000C70: 38 35 30 2C 43 55 28 58  2C 31 29 3A 97 38 35 31  |850,CU(X,1):.851|
00000C80: 2C 43 55 28 58 2C 32 29  AA 34 3A 9E 38 32 38 00  |,CU(X,2).4:.828.|
00000C90: A0 14 16 08 99 48 47 24  28 43 50 2C 58 AB 33 29  |.....HG$(CP,X.3)|
00000CA0: 00 C5 14 20 08 97 38 35  30 2C 43 55 28 58 2C 31  |... ..850,CU(X,1|
00000CB0: 29 3A 97 38 35 31 2C 43  55 28 58 2C 32 29 AA 36  |):.851,CU(X,2).6|
00000CC0: 3A 9E 38 32 38 00 D6 14  2A 08 99 48 46 24 28 43  |:.828...*..HF$(C|
00000CD0: 50 2C 58 AB 33 29 00 DD  14 34 08 82 58 00 E3 14  |P,X.3)...4..X...|
00000CE0: 3E 08 8E 00 00 15 96 08  8F 20 2A 2A 20 43 41 4C  |>........ ** CAL|
00000CF0: 43 20 42 49 52 44 53 20  50 41 52 53 20 45 54 43  |C BIRDS PARS ETC|
00000D00: 00 0F 15 98 08 81 20 58  B2 34 20 A4 20 32 31 00  |...... X.4 . 21.|
00000D10: 23 15 9B 08 57 39 B2 C5  28 52 44 24 28 43 50 2C  |#...W9..(RD$(CP,|
00000D20: 31 29 29 00 45 15 A2 08  57 B2 C5 28 43 52 24 28  |1)).E...W..(CR$(|
00000D30: 57 39 2C 58 AA 31 29 29  AB C5 28 52 44 24 28 43  |W9,X.1))..(RD$(C|
00000D40: 50 2C 58 29 29 00 59 15  AC 08 8B 20 57 B2 32 20  |P,X)).Y.... W.2 |
00000D50: A7 20 45 47 B2 45 47 AA  31 00 6D 15 B6 08 8B 20  |. EG.EG.1.m.... |
00000D60: 57 B2 31 20 A7 20 42 49  B2 42 49 AA 31 00 81 15  |W.1 . BI.BI.1...|
00000D70: C0 08 8B 20 57 B2 30 20  A7 20 50 41 B2 50 41 AA  |... W.0 . PA.PA.|
00000D80: 31 00 96 15 CA 08 8B 20  57 B2 AB 31 20 A7 20 42  |1...... W..1 . B|
00000D90: 4F B2 42 4F AA 31 00 AB  15 D4 08 8B 20 57 B2 AB  |O.BO.1...... W..|
00000DA0: 32 20 A7 20 44 42 B2 44  42 AA 31 00 C0 15 DE 08  |2 . DB.DB.1.....|
00000DB0: 8B 20 57 B3 AB 32 20 A7  20 4F 54 B2 4F 54 AA 31  |. W..2 . OT.OT.1|
00000DC0: 00 C7 15 E8 08 82 58 00  D8 15 ED 08 8B 20 53 24  |......X...... S$|
00000DD0: B2 22 59 22 20 A7 20 8E  00 F0 15 F2 08 97 38 35  |."Y" . .......85|
00000DE0: 30 2C 31 39 3A 97 38 35  31 2C 32 3A 9E 38 32 38  |0,19:.851,2:.828|
00000DF0: 00 15 16 FC 08 99 22 1F  45 47 4C 22 3B 45 47 3B  |......".EGL";EG;|
00000E00: 22 20 42 49 52 44 22 3B  42 49 3B 22 20 50 41 52  |" BIRD";BI;" PAR|
00000E10: 22 3B 50 41 3B 00 34 16  06 09 99 22 1F 20 42 4F  |";PA;.4....". BO|
00000E20: 47 22 3B 42 4F 3B 22 20  44 42 4C 22 3B 44 42 3B  |G";BO;" DBL";DB;|
00000E30: 22 13 97 22 00 56 16 10  09 45 47 B2 30 3A 42 49  |"..".V...EG.0:BI|
00000E40: B2 30 3A 50 41 B2 30 3A  42 4F B2 30 3A 44 42 B2  |.0:PA.0:BO.0:DB.|
00000E50: 30 3A 4F 54 B2 30 00 5C  16 1A 09 8E 00 80 16 5E  |0:OT.0.\.......^|
00000E60: 09 8F 20 20 43 41 4C 43  2C 20 53 54 4F 52 45 20  |..  CALC, STORE |
00000E70: 41 4E 44 20 50 52 49 4E  54 20 53 43 4F 52 45 53  |AND PRINT SCORES|
00000E80: 00 8E 16 60 09 53 43 B2  30 3A 99 22 97 22 00 AF  |...`.SC.0:."."..|
00000E90: 16 6A 09 81 58 B2 34 A4  32 31 3A 53 43 B2 53 43  |.j..X.4.21:SC.SC|
00000EA0: AA C5 28 52 44 24 28 43  50 2C 58 29 29 3A 82 00  |..(RD$(CP,X)):..|
00000EB0: C4 16 74 09 52 44 24 28  43 50 2C 32 34 29 B2 C4  |..t.RD$(CP,24)..|
00000EC0: 28 53 43 29 00 F0 16 79  09 97 38 35 30 2C 43 55  |(SC)...y..850,CU|
00000ED0: 28 32 34 2C 31 29 3A 97  38 35 31 2C 43 55 28 32  |(24,1):.851,CU(2|
00000EE0: 34 2C 32 29 3A 9E 38 32  38 3A 99 C4 28 53 43 29  |4,2):.828:..(SC)|
00000EF0: 00 04 17 7E 09 43 5A B2  C5 28 52 44 24 28 43 50  |...~.CZ..(RD$(CP|
00000F00: 2C 31 29 29 00 1D 17 88  09 48 44 B2 28 53 43 AB  |,1)).....HD.(SC.|
00000F10: C5 28 43 52 24 28 43 5A  2C 33 29 29 29 00 43 17  |.(CR$(CZ,3))).C.|
00000F20: 8B 09 50 50 B2 28 B5 28  48 44 AC 31 30 29 AD 31  |..PP.(.(HD.10).1|
00000F30: 30 29 3A 52 44 24 28 43  50 2C 32 35 29 B2 C4 28  |0):RD$(CP,25)..(|
00000F40: 50 50 29 00 68 17 8D 09  97 38 35 30 2C 43 55 28  |PP).h....850,CU(|
00000F50: 32 35 2C 31 29 3A 97 38  35 31 2C 43 55 28 32 35  |25,1):.851,CU(25|
00000F60: 2C 32 29 3A 9E 38 32 38  00 86 17 8F 09 99 22 20  |,2):.828......" |
00000F70: 20 20 20 20 22 3A 9E 38  32 38 3A 99 52 44 24 28  |    ":.828:.RD$(|
00000F80: 43 50 2C 32 35 29 00 AB  17 92 09 97 38 35 30 2C  |CP,25)......850,|
00000F90: 43 55 28 32 32 2C 31 29  3A 97 38 35 31 2C 43 55  |CU(22,1):.851,CU|
00000FA0: 28 32 32 2C 32 29 3A 9E  38 32 38 00 CF 17 9C 09  |(22,2):.828.....|
00000FB0: 99 43 52 24 28 43 5A 2C  32 29 3A 52 44 24 28 43  |.CR$(CZ,2):RD$(C|
00000FC0: 50 2C 32 32 29 B2 43 52  24 28 43 5A 2C 32 29 00  |P,22).CR$(CZ,2).|
00000FD0: E7 17 A6 09 52 44 24 28  43 50 2C 32 29 B2 43 52  |....RD$(CP,2).CR|
00000FE0: 24 28 43 5A 2C 33 29 00  17 18 B0 09 97 38 35 30  |$(CZ,3)......850|
00000FF0: 2C 43 55 28 32 2C 31 29  3A 97 38 35 31 2C 43 55  |,CU(2,1):.851,CU|
00001000: 28 32 2C 32 29 3A 9E 38  32 38 3A 99 22 20 20 20  |(2,2):.828:."   |
00001010: 20 22 3A 9E 38 32 38 00  27 18 BA 09 99 20 52 44  | ":.828.'.... RD|
00001020: 24 28 43 50 2C 32 29 00  2D 18 C4 09 8E 00 4B 18  |$(CP,2).-.....K.|
00001030: 26 0A 8F 20 49 4E 50 55  54 20 53 55 42 52 20 54  |&.. INPUT SUBR T|
00001040: 4F 20 41 44 44 20 41 20  52 4E 44 00 6E 18 28 0A  |O ADD A RND.n.(.|
00001050: 97 38 35 30 2C 43 55 28  33 2C 31 29 3A 97 38 35  |.850,CU(3,1):.85|
00001060: 31 2C 43 55 28 33 2C 32  29 3A 9E 38 32 38 00 77  |1,CU(3,2):.828.w|
00001070: 18 2B 0A 46 50 B2 33 00  8A 18 32 0A 99 22 1C 3F  |.+.FP.3...2..".?|
00001080: 9D 97 22 3B 3A 8D 39 30  30 30 00 9C 18 3C 0A 52  |..";:.9000...<.R|
00001090: 44 24 28 43 50 2C 33 29  B2 41 4E 24 00 A8 18 46  |D$(CP,3).AN$...F|
000010A0: 0A 81 58 B2 34 A4 32 31  00 CB 18 50 0A 97 38 35  |..X.4.21...P..85|
000010B0: 30 2C 43 55 28 58 2C 31  29 3A 97 38 35 31 2C 43  |0,CU(X,1):.851,C|
000010C0: 55 28 58 2C 32 29 3A 9E  38 32 38 00 D8 18 55 0A  |U(X,2):.828...U.|
000010D0: 99 22 1C 3F 97 9D 22 3B  00 E1 18 57 0A 46 50 B2  |.".?..";...W.FP.|
000010E0: 58 00 EB 18 5A 0A 8D 39  30 30 30 00 FD 18 64 0A  |X...Z..9000...d.|
000010F0: 52 44 24 28 43 50 2C 58  29 B2 41 4E 24 00 1E 19  |RD$(CP,X).AN$...|
00001100: 6E 0A 97 38 35 31 2C 43  55 28 58 2C 32 29 AA 34  |n..851,CU(X,2).4|
00001110: 3A 9E 38 32 38 3A 99 22  1C 3F 97 9D 22 3B 00 28  |:.828:.".?..";.(|
00001120: 19 78 0A 8D 38 38 30 30  00 4E 19 7D 0A 8B 20 41  |.x..8800.N.}.. A|
00001130: 4E 24 B3 B1 22 59 22 A7  20 48 47 24 28 43 50 2C  |N$.."Y". HG$(CP,|
00001140: 58 AB 33 29 B2 22 4E 22  3A 89 32 36 39 35 00 62  |X.3)."N":.2695.b|
00001150: 19 82 0A 48 47 24 28 43  50 2C 58 AB 33 29 B2 22  |...HG$(CP,X.3)."|
00001160: 59 22 00 74 19 87 0A 99  48 47 24 28 43 50 2C 58  |Y".t....HG$(CP,X|
00001170: AB 33 29 3B 00 95 19 8C  0A 97 38 35 31 2C 43 55  |.3);......851,CU|
00001180: 28 58 2C 32 29 AA 36 3A  9E 38 32 38 3A 99 22 1C  |(X,2).6:.828:.".|
00001190: 3F 97 9D 22 3B 00 9F 19  96 0A 8D 38 38 30 30 00  |?..";......8800.|
000011A0: C4 19 9B 0A 8B 20 41 4E  24 B3 B1 22 59 22 A7 48  |..... AN$.."Y".H|
000011B0: 46 24 28 43 50 2C 58 AB  33 29 B2 22 4E 22 3A 89  |F$(CP,X.3)."N":.|
000011C0: 32 37 32 35 00 D8 19 A0  0A 48 46 24 28 43 50 2C  |2725.....HF$(CP,|
000011D0: 58 AB 33 29 B2 22 59 22  00 EA 19 A5 0A 99 48 46  |X.3)."Y"......HF|
000011E0: 24 28 43 50 2C 58 AB 33  29 3B 00 F1 19 AA 0A 82  |$(CP,X.3);......|
000011F0: 58 00 16 1A B4 0A 97 38  35 30 2C 43 55 28 32 33  |X......850,CU(23|
00001200: 2C 31 29 3A 97 38 35 31  2C 43 55 28 32 33 2C 32  |,1):.851,CU(23,2|
00001210: 29 3A 9E 38 32 38 00 23  1A BE 0A 99 22 1C 3F 97  |):.828.#....".?.|
00001220: 9D 22 3B 00 2D 1A C8 0A  8D 39 30 30 30 00 40 1A  |.";.-....9000.@.|
00001230: D2 0A 52 44 24 28 43 50  2C 32 33 29 B2 41 4E 24  |..RD$(CP,23).AN$|
00001240: 00 46 1A DC 0A 8E 00 5E  1A 54 0B 97 38 35 30 2C  |.F.....^.T..850,|
00001250: 32 30 3A 97 38 35 31 2C  36 3A 9E 38 32 38 00 64  |20:.851,6:.828.d|
00001260: 1A 5E 0B 8E 00 7C 1A 86  0B 97 38 35 30 2C 32 30  |.^...|....850,20|
00001270: 3A 97 38 35 31 2C 36 3A  9E 38 32 38 00 85 1A 90  |:.851,6:.828....|
00001280: 0B 99 53 50 24 00 8B 1A  9A 0B 8E 00 B0 1A B8 0B  |..SP$...........|
00001290: 97 38 35 30 2C 43 55 28  46 50 2C 31 29 3A 97 38  |.850,CU(FP,1):.8|
000012A0: 35 31 2C 43 55 28 46 50  2C 32 29 3A 9E 38 32 38  |51,CU(FP,2):.828|
000012B0: 00 BD 1A C2 0B 99 22 1C  3F 97 9D 22 3B 00 C7 1A  |......".?..";...|
000012C0: CC 0B 8D 39 30 30 30 00  EE 1A D6 0B 8B 20 C5 28  |...9000...... .(|
000012D0: 41 4E 24 29 B3 B1 30 20  A7 20 52 44 24 28 43 50  |AN$)..0 . RD$(CP|
000012E0: 2C 46 50 29 B2 41 4E 24  3A 89 33 30 35 30 00 02  |,FP).AN$:.3050..|
000012F0: 1B E0 0B 99 52 44 24 28  43 50 2C 46 50 29 3B 22  |....RD$(CP,FP);"|
00001300: 9B 22 00 1E 1B EA 0B 8B  20 46 50 B3 34 20 B0 20  |."...... FP.4 . |
00001310: 46 50 B1 32 31 20 A7 20  99 22 13 22 3A 8E 00 37  |FP.21 . .".":..7|
00001320: 1B F4 0B 97 38 35 31 2C  43 55 28 46 50 2C 32 29  |....851,CU(FP,2)|
00001330: AA 34 3A 9E 38 32 38 00  44 1B FE 0B 99 22 1C 3F  |.4:.828.D....".?|
00001340: 97 9D 22 3B 00 4E 1B 08  0C 8D 38 38 30 30 00 7A  |..";.N....8800.z|
00001350: 1B 12 0C 8B 20 41 4E 24  B3 B1 22 22 20 A7 20 48  |.... AN$.."" . H|
00001360: 47 24 28 43 50 2C 46 50  AB 33 29 B2 41 4E 24 3A  |G$(CP,FP.3).AN$:|
00001370: 99 41 4E 24 3A 89 33 31  31 30 00 95 1B 1C 0C 99  |.AN$:.3110......|
00001380: 22 97 22 3B 48 47 24 28  43 50 2C 46 50 AB 33 29  |".";HG$(CP,FP.3)|
00001390: 3B 22 9B 13 22 00 AE 1B  26 0C 97 38 35 31 2C 43  |;".."...&..851,C|
000013A0: 55 28 46 50 2C 32 29 AA  36 3A 9E 38 32 38 00 C1  |U(FP,2).6:.828..|
000013B0: 1B 30 0C 99 22 1C 3F 97  9D 22 3B 3A 8D 38 38 30  |.0..".?..";:.880|
000013C0: 30 00 ED 1B 3A 0C 8B 20  41 4E 24 B3 B1 22 22 20  |0...:.. AN$.."" |
000013D0: A7 20 48 46 24 28 43 50  2C 46 50 AB 33 29 B2 41  |. HF$(CP,FP.3).A|
000013E0: 4E 24 3A 99 41 4E 24 3A  89 33 31 35 30 00 08 1C  |N$:.AN$:.3150...|
000013F0: 44 0C 99 22 97 22 3B 48  46 24 28 43 50 2C 46 50  |D..".";HF$(CP,FP|
00001400: AB 33 29 3B 22 98 13 22  00 12 1C 4E 0C 99 22 9B  |.3);".."...N..".|
00001410: 13 22 00 18 1C 58 0C 8E  00 2F 1C 7E 13 8F 20 2A  |."...X.../.~.. *|
00001420: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 00  |***************.|
00001430: 46 1C 80 13 8F 20 2A 20  4D 41 49 4E 20 50 52 4F  |F.... * MAIN PRO|
00001440: 47 20 4D 45 4E 55 00 5D  1C 82 13 8F 20 2A 2A 2A  |G MENU.].... ***|
00001450: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 00 82 1C  |*************...|
00001460: 88 13 97 35 33 32 38 30  2C 31 31 3A 99 22 93 1C  |...53280,11:."..|
00001470: 22 3B A3 31 35 29 3B 22  47 4F 4C 46 20 4D 45 4E  |";.15);"GOLF MEN|
00001480: 55 22 00 A7 1C 92 13 99  22 97 11 11 1D 1D 1D 4C  |U"......"......L|
00001490: 4F 41 44 20 47 4F 4C 46  20 46 49 4C 45 22 3B A3  |OAD GOLF FILE";.|
000014A0: 32 35 29 3B 22 4C 22 00  CA 1C 9C 13 99 22 11 1D  |25);"L"......"..|
000014B0: 1D 1D 53 41 56 45 20 47  4F 4C 46 20 46 49 4C 45  |..SAVE GOLF FILE|
000014C0: 22 3B A3 32 35 29 3B 22  53 22 00 EF 1C A6 13 99  |";.25);"S"......|
000014D0: 22 11 1D 1D 1D 42 41 43  4B 55 50 20 47 4F 4C 46  |"....BACKUP GOLF|
000014E0: 20 46 49 4C 45 22 3B A3  32 35 29 3B 22 42 22 00  | FILE";.25);"B".|
000014F0: 0A 1D B0 13 99 22 11 1D  1D 1D 52 4F 55 4E 44 53  |....."....ROUNDS|
00001500: 22 3B A3 32 35 29 3B 22  52 22 00 27 1D BA 13 99  |";.25);"R".'....|
00001510: 22 11 1D 1D 1D 48 41 4E  44 49 43 41 50 22 3B A3  |"....HANDICAP";.|
00001520: 32 35 29 3B 22 48 22 00  46 1D C4 13 99 22 11 1D  |25);"H".F...."..|
00001530: 1D 1D 53 54 41 54 49 53  54 49 43 53 22 3B A3 32  |..STATISTICS";.2|
00001540: 35 29 3B 22 43 22 00 5F  1D CE 13 99 22 11 1D 1D  |5);"C"._...."...|
00001550: 1D 51 55 49 54 22 3B A3  32 35 29 3B 22 51 22 00  |.QUIT";.25);"Q".|
00001560: 84 1D D8 13 99 22 11 1D  1D 1D 1C 12 22 3B 4F 4D  |....."......";OM|
00001570: 24 3B 22 92 97 22 3A 4F  4D 24 B2 22 22 3A 41 42  |$;"..":OM$."":AB|
00001580: 24 B2 22 22 00 A1 1D E2  13 99 22 1D 1D 1D 1F 12  |$.""......".....|
00001590: 22 3B 4F 50 24 3B 22 92  97 22 3A 4F 50 24 B2 22  |";OP$;"..":OP$."|
000015A0: 22 00 AB 1D EC 13 8D 39  32 30 30 00 C5 1D F6 13  |"......9200.....|
000015B0: 8B 20 4B 24 B2 22 4C 22  20 A7 20 8D 37 30 30 3A  |. K$."L" . .700:|
000015C0: 89 35 30 30 30 00 E0 1D  00 14 8B 20 4B 24 B2 22  |.5000...... K$."|
000015D0: 53 22 20 A7 20 8D 31 30  30 30 3A 89 35 30 30 30  |S" . .1000:.5000|
000015E0: 00 FB 1D 0A 14 8B 20 4B  24 B2 22 42 22 20 A7 20  |...... K$."B" . |
000015F0: 8D 31 32 30 30 3A 89 35  30 30 30 00 0F 1E 14 14  |.1200:.5000.....|
00001600: 8B 20 4B 24 B2 22 52 22  20 A7 20 35 33 30 30 00  |. K$."R" . 5300.|
00001610: 23 1E 1E 14 8B 20 4B 24  B2 22 48 22 20 A7 20 36  |#.... K$."H" . 6|
00001620: 32 30 30 00 37 1E 28 14  8B 20 4B 24 B2 22 43 22  |200.7.(.. K$."C"|
00001630: 20 A7 20 36 38 30 30 00  4B 1E 32 14 8B 20 4B 24  | . 6800.K.2.. K$|
00001640: B2 22 51 22 20 A7 20 37  34 30 30 00 55 1E 3C 14  |."Q" . 7400.U.<.|
00001650: 89 35 31 30 30 00 68 1E  B4 14 8B 20 52 43 B2 30  |.5100.h.... RC.0|
00001660: A7 43 4E 24 B2 55 39 24  00 93 1E BE 14 8B 20 52  |.CN$.U9$...... R|
00001670: 43 B3 B1 30 20 A7 20 43  58 B2 C5 28 52 44 24 28  |C..0 . CX..(RD$(|
00001680: 31 2C 31 29 29 3A 43 4E  24 B2 43 52 24 28 43 58  |1,1)):CN$.CR$(CX|
00001690: 2C 31 29 00 AC 1E C8 14  8D 31 35 30 30 3A 20 8F  |,1)......1500: .|
000016A0: 20 46 49 4C 4C 20 53 43  52 45 45 4E 00 BE 1E CD  | FILL SCREEN....|
000016B0: 14 43 50 B2 31 3A 97 35  33 32 38 30 2C 36 00 DA  |.CP.1:.53280,6..|
000016C0: 1E DC 14 8D 32 30 30 30  3A 20 8F 20 44 41 54 41  |....2000: . DATA|
000016D0: 20 54 4F 20 53 43 52 45  45 4E 00 09 1F F0 14 8B  | TO SCREEN......|
000016E0: 20 52 43 B3 B1 30 20 A7  20 8D 32 32 30 30 3A 8D  | RC..0 . .2200:.|
000016F0: 32 34 30 30 3A 8F 20 43  4F 55 4E 54 20 42 49 52  |2400:. COUNT BIR|
00001700: 44 20 50 41 52 20 45 54  43 00 30 1F FA 14 8B 20  |D PAR ETC.0.... |
00001710: 52 43 B2 30 A7 8D 32 39  30 30 3A 99 22 1C 4E 4F  |RC.0..2900:.".NO|
00001720: 20 52 4F 55 4E 44 53 20  4C 4F 41 44 45 44 97 22  | ROUNDS LOADED."|
00001730: 00 41 1F 18 15 8F 20 44  55 4D 4D 59 20 4C 49 4E  |.A.... DUMMY LIN|
00001740: 45 00 59 1F 1D 15 A1 20  57 24 3A 8B 20 57 24 B2  |E.Y.... W$:. W$.|
00001750: 22 22 20 A7 20 35 34 30  35 00 77 1F 22 15 8B 20  |"" . 5405.w.".. |
00001760: 57 24 B2 22 41 22 20 A7  20 97 35 33 32 38 30 2C  |W$."A" . .53280,|
00001770: 32 3A 89 35 35 30 30 00  95 1F 2C 15 8B 20 57 24  |2:.5500...,.. W$|
00001780: B2 22 4E 22 20 A7 20 97  35 33 32 38 30 2C 36 3A  |."N" . .53280,6:|
00001790: 89 35 36 35 30 00 B3 1F  36 15 8B 20 57 24 B2 22  |.5650...6.. W$."|
000017A0: 42 22 20 A7 20 97 35 33  32 38 30 2C 36 3A 89 35  |B" . .53280,6:.5|
000017B0: 37 30 30 00 C7 1F 40 15  8B 20 57 24 B2 22 51 22  |700...@.. W$."Q"|
000017C0: 20 A7 20 35 30 30 30 00  E5 1F 4A 15 8B 20 57 24  | . 5000...J.. W$|
000017D0: B2 22 44 22 A7 20 97 35  33 32 38 30 2C 31 31 3A  |."D". .53280,11:|
000017E0: 89 35 37 36 30 00 03 20  54 15 8B 20 57 24 B2 22  |.5760.. T.. W$."|
000017F0: 4D 22 20 A7 20 97 35 33  32 38 30 2C 37 3A 89 36  |M" . .53280,7:.6|
00001800: 30 30 30 00 0D 20 5E 15  89 35 34 30 35 00 23 20  |000.. ^..5405.# |
00001810: 72 15 8F 20 2A 2A 2A 20  41 44 44 20 41 20 52 4F  |r.. *** ADD A RO|
00001820: 55 4E 44 00 45 20 7C 15  8D 32 39 35 30 3A 8D 35  |UND.E |..2950:.5|
00001830: 30 30 3A 20 8F 20 47 45  54 20 43 4F 55 52 53 45  |00: . GET COURSE|
00001840: 20 4E 41 4D 45 00 7A 20  7F 15 8B 20 43 58 B2 30  | NAME.z ... CX.0|
00001850: A7 8D 31 35 30 30 3A 8D  32 39 30 30 3A 99 22 1C  |..1500:.2900:.".|
00001860: 43 4F 55 52 53 45 20 4E  4F 54 20 4F 4E 20 46 49  |COURSE NOT ON FI|
00001870: 4C 45 97 22 3A 89 35 34  30 35 00 AA 20 81 15 43  |LE.":.5405.. ..C|
00001880: 4E 24 B2 43 52 24 28 43  58 2C 31 29 3A 43 50 B2  |N$.CR$(CX,1):CP.|
00001890: 52 43 AA 31 3A 52 44 24  28 43 50 2C 31 29 B2 43  |RC.1:RD$(CP,1).C|
000018A0: 58 24 3A 43 48 24 B2 22  59 22 00 CB 20 90 15 8D  |X$:CH$."Y".. ...|
000018B0: 31 38 30 30 3A 20 8F 20  55 4E 44 45 52 4C 49 4E  |1800: . UNDERLIN|
000018C0: 45 53 20 49 4E 20 54 41  42 4C 45 00 E7 20 9A 15  |ES IN TABLE.. ..|
000018D0: 8D 31 35 30 30 3A 20 8F  20 44 49 53 50 4C 41 59  |.1500: . DISPLAY|
000018E0: 20 53 43 52 45 45 4E 00  07 21 A4 15 8D 32 30 30  | SCREEN..!...200|
000018F0: 30 3A 8F 20 44 49 53 50  4C 41 59 20 44 41 54 41  |0:. DISPLAY DATA|
00001900: 20 4F 4E 20 53 43 52 00  1D 21 AE 15 8D 32 36 30  | ON SCR..!...260|
00001910: 30 3A 20 8F 20 47 45 54  20 44 41 54 41 00 36 21  |0: . GET DATA.6!|
00001920: B8 15 8D 32 34 30 30 3A  20 8F 20 43 41 4C 43 20  |...2400: . CALC |
00001930: 53 43 4F 52 45 53 00 55  21 C2 15 8D 32 32 30 30  |SCORES.U!...2200|
00001940: 3A 20 8F 20 43 41 4C 43  20 42 49 52 44 20 50 41  |: . CALC BIRD PA|
00001950: 52 20 45 54 43 00 61 21  CC 15 52 43 B2 52 43 AA  |R ETC.a!..RC.RC.|
00001960: 31 00 6B 21 D6 15 89 35  34 30 35 00 85 21 10 16  |1.k!...5405..!..|
00001970: 8F 20 2A 2A 2A 20 56 49  45 57 20 4E 45 58 54 20  |. *** VIEW NEXT |
00001980: 52 4F 55 4E 44 00 A0 21  12 16 8D 32 39 35 30 3A  |ROUND..!...2950:|
00001990: 8B 20 43 50 AA 31 B1 52  43 20 A7 20 35 34 30 30  |. CP.1.RC . 5400|
000019A0: 00 BE 21 1C 16 43 50 B2  43 50 AA 31 3A 8D 32 30  |..!..CP.CP.1:.20|
000019B0: 30 30 3A 8D 32 34 30 30  3A 8D 32 32 30 30 00 C8  |00:.2400:.2200..|
000019C0: 21 26 16 89 35 34 30 30  00 E0 21 42 16 8F 20 2A  |!&..5400..!B.. *|
000019D0: 2A 2A 20 42 41 43 4B 20  31 20 52 45 43 4F 52 44  |** BACK 1 RECORD|
000019E0: 00 FA 21 44 16 8D 32 39  35 30 3A 8B 20 43 50 AB  |..!D..2950:. CP.|
000019F0: 31 B3 31 20 A7 20 35 34  30 30 00 18 22 4E 16 43  |1.1 . 5400.."N.C|
00001A00: 50 B2 43 50 AB 31 3A 8D  32 30 30 30 3A 8D 32 34  |P.CP.1:.2000:.24|
00001A10: 30 30 3A 8D 32 32 30 30  00 22 22 58 16 89 35 34  |00:.2200.""X..54|
00001A20: 30 30 00 46 22 80 16 8D  32 39 30 30 3A 99 22 1C  |00.F"...2900:.".|
00001A30: 12 41 52 45 20 59 4F 55  20 53 55 52 45 3F 20 28  |.ARE YOU SURE? (|
00001A40: 59 2F 4E 29 92 22 00 5C  22 8A 16 A1 53 24 3A 8B  |Y/N).".\"...S$:.|
00001A50: 53 24 B2 22 22 20 A7 20  35 37 37 30 00 77 22 94  |S$."" . 5770.w".|
00001A60: 16 8B 20 53 24 B3 B1 22  59 22 A7 20 8D 32 39 35  |.. S$.."Y". .295|
00001A70: 30 3A 89 35 34 30 30 00  A5 22 9E 16 8D 32 39 30  |0:.5400.."...290|
00001A80: 30 3A 99 22 1C 4F 2E 4B  2E 20 20 44 45 4C 45 54  |0:.".O.K.  DELET|
00001A90: 49 4E 47 20 20 20 20 20  20 20 20 20 20 20 20 20  |ING             |
00001AA0: 20 20 20 20 22 00 B4 22  A8 16 81 58 B2 43 50 A4  |    ".."...X.CP.|
00001AB0: 52 43 AA 31 00 C1 22 B2  16 81 20 59 B2 31 A4 52  |RC.1.."... Y.1.R|
00001AC0: 4C 00 D9 22 BC 16 52 44  24 28 58 2C 59 29 B2 52  |L.."..RD$(X,Y).R|
00001AD0: 44 24 28 58 AA 31 2C 59  29 00 E3 22 C6 16 82 59  |D$(X.1,Y).."...Y|
00001AE0: 3A 82 58 00 F2 22 D0 16  81 58 B2 43 50 A4 52 43  |:.X.."...X.CP.RC|
00001AF0: AA 31 00 FE 22 DA 16 81  59 B2 31 A4 31 38 00 2A  |.1.."...Y.1.18.*|
00001B00: 23 E4 16 48 47 24 28 58  2C 59 29 B2 48 47 24 28  |#..HG$(X,Y).HG$(|
00001B10: 58 AA 31 2C 59 29 3A 48  46 24 28 58 2C 59 29 B2  |X.1,Y):HF$(X,Y).|
00001B20: 48 46 24 28 58 AA 31 2C  59 29 00 34 23 EE 16 82  |HF$(X.1,Y).4#...|
00001B30: 59 3A 82 58 00 40 23 F8  16 52 43 B2 52 43 AB 31  |Y:.X.@#..RC.RC.1|
00001B40: 00 54 23 02 17 8B 20 43  50 B1 52 43 20 A7 20 43  |.T#... CP.RC . C|
00001B50: 50 B2 52 43 00 6A 23 0C  17 8D 32 30 30 30 3A 8D  |P.RC.j#...2000:.|
00001B60: 32 34 30 30 3A 8D 32 32  30 30 00 83 23 16 17 8D  |2400:.2200..#...|
00001B70: 32 39 35 30 3A 8D 32 39  30 30 3A 99 22 1F 44 4F  |2950:.2900:.".DO|
00001B80: 4E 45 22 00 92 23 20 17  81 58 B2 31 A4 35 30 30  |NE"..# ..X.1.500|
00001B90: 3A 82 00 A4 23 2A 17 8D  32 39 35 30 3A 43 48 24  |:...#*..2950:CH$|
00001BA0: B2 22 59 22 00 AF 23 34  17 89 20 35 34 30 30 00  |."Y"..#4.. 5400.|
00001BB0: C6 23 66 17 8F 20 2A 2A  2A 20 4D 4F 44 49 46 59  |.#f.. *** MODIFY|
00001BC0: 20 52 4F 55 4E 44 00 E4  23 70 17 8D 32 39 35 30  | ROUND..#p..2950|
00001BD0: 3A 97 38 35 30 2C 32 33  3A 97 38 35 31 2C 33 3A  |:.850,23:.851,3:|
00001BE0: 9E 38 32 38 00 1B 24 7A  17 99 22 1C 12 44 92 41  |.828..$z.."..D.A|
00001BF0: 54 45 20 20 12 50 92 55  54 54 53 20 20 12 31 2D  |TE  .P.UTTS  .1-|
00001C00: 31 38 92 20 20 12 51 92  55 49 54 20 20 12 4E 92  |18.  .Q.UIT  .N.|
00001C10: 41 4D 45 20 20 12 54 92  42 4C 22 00 2B 24 84 17  |AME  .T.BL".+$..|
00001C20: 8D 39 34 30 30 3A 8D 32  39 35 30 00 46 24 8E 17  |.9400:.2950.F$..|
00001C30: 8B 20 41 4E 24 B2 22 44  22 20 A7 20 46 50 B2 33  |. AN$."D" . FP.3|
00001C40: 3A 89 36 30 38 30 00 62  24 91 17 8B 20 41 4E 24  |:.6080.b$... AN$|
00001C50: B2 22 50 22 20 A7 20 46  50 B2 32 33 3A 89 36 30  |."P" . FP.23:.60|
00001C60: 38 30 00 77 24 93 17 8B  20 41 4E 24 B3 B1 22 4E  |80.w$... AN$.."N|
00001C70: 22 A7 20 36 30 34 33 00  8D 24 95 17 8D 35 30 30  |". 6043..$...500|
00001C80: 3A 8B 43 58 B2 30 20 A7  20 36 30 34 30 00 9F 24  |:.CX.0 . 6040..$|
00001C90: 97 17 52 44 24 28 43 50  2C 31 29 B2 43 58 24 00  |..RD$(CP,1).CX$.|
00001CA0: BB 24 98 17 8D 31 35 30  30 3A 8D 32 30 30 30 3A  |.$...1500:.2000:|
00001CB0: 8D 32 34 30 30 3A 8D 32  32 30 30 00 D4 24 99 17  |.2400:.2200..$..|
00001CC0: 8D 32 39 30 30 3A 99 22  1C 44 4F 4E 45 22 3A 89  |.2900:.".DONE":.|
00001CD0: 36 30 32 30 00 EA 24 9B  17 8B 20 41 4E 24 B3 B1  |6020..$... AN$..|
00001CE0: 22 54 22 20 A7 20 36 30  35 30 00 09 25 9D 17 8D  |"T" . 6050..%...|
00001CF0: 32 34 30 30 3A 8D 32 39  30 30 3A 99 22 1C 4F 2E  |2400:.2900:.".O.|
00001D00: 4B 2E 22 3A 89 36 30 32  30 00 39 25 A2 17 8B 20  |K.":.6020.9%... |
00001D10: C5 28 41 4E 24 29 B1 30  30 20 AF 20 C5 28 41 4E  |.(AN$).00 . .(AN|
00001D20: 24 29 B3 31 39 20 A7 20  46 50 B2 C5 28 41 4E 24  |$).19 . FP..(AN$|
00001D30: 29 AA 33 3A 89 36 30 38  30 00 4E 25 AC 17 8B 20  |).3:.6080.N%... |
00001D40: 41 4E 24 B2 22 51 22 20  A7 20 36 31 30 30 00 58  |AN$."Q" . 6100.X|
00001D50: 25 B6 17 89 36 30 32 30  00 64 25 BB 17 43 48 24  |%...6020.d%..CH$|
00001D60: B2 22 59 22 00 6E 25 C0  17 8D 33 30 30 30 00 81  |."Y".n%...3000..|
00001D70: 25 C6 17 8D 32 39 30 30  3A 99 22 1C 4F 2E 4B 2E  |%...2900:.".O.K.|
00001D80: 22 00 8B 25 CA 17 89 36  30 32 30 00 9B 25 D4 17  |"..%...6020..%..|
00001D90: 8D 32 34 30 30 3A 8D 32  32 30 30 00 B3 25 DE 17  |.2400:.2200..%..|
00001DA0: 97 38 35 30 2C 32 33 3A  97 38 35 31 2C 33 3A 9E  |.850,23:.851,3:.|
00001DB0: 38 32 38 00 CC 25 E8 17  99 53 50 24 3A 97 35 33  |828..%...SP$:.53|
00001DC0: 32 38 30 2C 31 31 3A 89  35 34 30 30 00 E4 25 2E  |280,11:.5400..%.|
00001DD0: 18 8F 20 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.. *************|
00001DE0: 2A 2A 2A 2A 00 FE 25 31  18 8F 20 2A 20 43 41 4C  |****..%1.. * CAL|
00001DF0: 43 20 48 41 4E 44 49 43  41 50 20 52 54 4E 00 16  |C HANDICAP RTN..|
00001E00: 26 33 18 8F 20 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |&3.. ***********|
00001E10: 2A 2A 2A 2A 2A 2A 00 38  26 38 18 99 22 93 12 1C  |******.8&8.."...|
00001E20: 1D 1D 1D 1D 1D 43 41 4C  43 55 4C 41 54 45 20 48  |.....CALCULATE H|
00001E30: 41 4E 44 49 43 41 50 22  00 66 26 42 18 99 22 11  |ANDICAP".f&B..".|
00001E40: 11 1D 1D 1F 12 46 31 92  97 20 20 43 41 4C 43 55  |.....F1..  CALCU|
00001E50: 4C 41 54 45 20 4F 56 45  52 41 4C 4C 20 48 41 4E  |LATE OVERALL HAN|
00001E60: 44 49 43 41 50 22 00 90  26 4C 18 99 22 11 1D 1D  |DICAP"..&L.."...|
00001E70: 1F 12 46 33 92 97 20 20  48 41 4E 44 49 43 41 50  |..F3..  HANDICAP|
00001E80: 20 46 4F 52 20 4F 4E 45  20 43 4F 55 52 53 45 22  | FOR ONE COURSE"|
00001E90: 00 AC 26 56 18 99 22 11  1D 1D 1F 12 46 37 92 97  |..&V..".....F7..|
00001EA0: 20 20 4D 41 49 4E 20 4D  45 4E 55 22 00 DB 26 60  |  MAIN MENU"..&`|
00001EB0: 18 99 22 11 11 1D 1D 1C  12 22 3B 4F 4D 24 3B 22  |.."......";OM$;"|
00001EC0: 92 97 22 3A 4F 4D 24 B2  22 22 3A 4F 43 24 B2 22  |..":OM$."":OC$."|
00001ED0: 22 3A 52 58 B2 30 3A 50  53 B2 30 00 E5 26 6A 18  |":RX.0:PS.0..&j.|
00001EE0: 8D 39 32 30 30 00 FF 26  74 18 8B 20 4B 24 B2 22  |.9200..&t.. K$."|
00001EF0: 88 22 20 A7 20 35 30 30  30 3A 20 8F 20 46 37 00  |." . 5000: . F7.|
00001F00: 1C 27 7E 18 8B 20 4B 24  B3 B1 22 85 22 AF 4B 24  |.'~.. K$..".".K$|
00001F10: B3 B1 22 86 22 20 A7 20  36 32 35 30 00 3D 27 88  |.."." . 6250.='.|
00001F20: 18 8B 20 4B 24 B2 22 86  22 20 A7 20 4F 43 24 B2  |.. K$."." . OC$.|
00001F30: 22 59 22 3A 8D 35 30 30  3A 99 22 93 22 00 66 27  |"Y":.500:.".".f'|
00001F40: 8D 18 8B 20 4B 24 B2 22  86 22 AF 43 58 B2 30 20  |... K$.".".CX.0 |
00001F50: A7 20 4F 4D 24 B2 22 4E  4F 54 20 44 4F 4E 45 22  |. OM$."NOT DONE"|
00001F60: 3A 89 36 32 30 30 00 A7  27 92 18 8B 20 4B 24 B2  |:.6200..'... K$.|
00001F70: 22 85 22 20 AF 20 52 43  B3 35 20 A7 20 4F 4D 24  |"." . RC.5 . OM$|
00001F80: B2 22 4E 4F 54 20 45 4E  4F 55 47 48 20 52 4F 55  |."NOT ENOUGH ROU|
00001F90: 4E 44 53 20 54 4F 20 43  41 4C 43 55 4C 41 54 45  |NDS TO CALCULATE|
00001FA0: 22 3A 89 36 32 30 30 00  C7 27 9C 18 99 22 93 11  |":.6200..'..."..|
00001FB0: 11 11 1D 1D 1D 1D 1D 1D  1D 1C 43 41 4C 43 55 4C  |..........CALCUL|
00001FC0: 41 54 49 4E 47 97 22 00  DB 27 9F 18 8B 20 52 43  |ATING."..'... RC|
00001FD0: B3 B2 32 30 20 A7 20 50  58 B2 31 00 F0 27 A1 18  |..20 . PX.1..'..|
00001FE0: 8B 20 52 43 B1 32 30 A7  50 58 B2 52 43 AB 31 39  |. RC.20.PX.RC.19|
00001FF0: 00 13 28 A6 18 81 58 B2  31 A4 32 30 3A 81 59 B2  |..(...X.1.20:.Y.|
00002000: 31 A4 34 3A 48 43 28 58  2C 59 29 B2 30 3A 82 59  |1.4:HC(X,Y).0:.Y|
00002010: 3A 82 58 00 26 28 B0 18  81 58 B2 52 43 20 A4 20  |:.X.&(...X.RC . |
00002020: 50 58 20 A9 AB 31 00 48  28 BA 18 8B 20 4F 43 24  |PX ..1.H(... OC$|
00002030: B2 22 59 22 A7 8B 52 44  24 28 58 2C 31 29 B3 B1  |."Y"..RD$(X,1)..|
00002040: 43 58 24 89 36 33 37 30  00 6A 28 C4 18 50 53 B2  |CX$.6370.j(..PS.|
00002050: 50 53 AA 31 3A 48 43 28  50 53 2C 31 29 B2 C5 28  |PS.1:HC(PS,1)..(|
00002060: 52 44 24 28 58 2C 32 35  29 29 00 98 28 CE 18 48  |RD$(X,25))..(..H|
00002070: 43 28 50 53 2C 32 29 B2  C5 28 52 44 24 28 58 2C  |C(PS,2)..(RD$(X,|
00002080: 31 29 29 3A 48 43 28 50  53 2C 33 29 B2 C5 28 52  |1)):HC(PS,3)..(R|
00002090: 44 24 28 58 2C 33 29 29  00 BA 28 D8 18 48 43 28  |D$(X,3))..(..HC(|
000020A0: 50 53 2C 34 29 B2 C5 28  52 44 24 28 58 2C 32 34  |PS,4)..(RD$(X,24|
000020B0: 29 29 3A 52 58 B2 52 58  AA 31 00 C1 28 E2 18 82  |)):RX.RX.1..(...|
000020C0: 58 00 F0 28 EC 18 8B 20  52 58 B3 35 20 A7 20 4F  |X..(... RX.5 . O|
000020D0: 4D 24 B2 22 4D 49 4E 20  35 20 52 4F 55 4E 44 53  |M$."MIN 5 ROUNDS|
000020E0: 20 52 45 51 55 49 52 45  44 22 3A 89 36 32 30 30  | REQUIRED":.6200|
000020F0: 00 13 29 F6 18 8F 20 2A  2A 2A 20 4E 4F 57 20 53  |..)... *** NOW S|
00002100: 4F 52 54 20 4F 4E 20 44  49 46 46 45 52 45 4E 54  |ORT ON DIFFERENT|
00002110: 49 41 4C 00 21 29 00 19  81 58 B2 31 A4 52 58 AB  |IAL.!)...X.1.RX.|
00002120: 31 00 40 29 0A 19 8B 20  48 43 28 58 2C 31 29 B3  |1.@)... HC(X,1).|
00002130: 48 43 28 58 AA 31 2C 31  29 20 A7 20 36 34 35 35  |HC(X.1,1) . 6455|
00002140: 00 5C 29 14 19 81 59 B2  31 A4 34 3A 53 43 28 59  |.\)...Y.1.4:SC(Y|
00002150: 29 B2 48 43 28 58 2C 59  29 3A 82 59 00 7D 29 1E  |).HC(X,Y):.Y.}).|
00002160: 19 81 20 59 B2 31 A4 34  3A 48 43 28 58 2C 59 29  |.. Y.1.4:HC(X,Y)|
00002170: B2 48 43 28 58 AA 31 2C  59 29 3A 82 59 00 9B 29  |.HC(X.1,Y):.Y..)|
00002180: 28 19 81 59 B2 31 A4 34  3A 48 43 28 58 AA 31 2C  |(..Y.1.4:HC(X.1,|
00002190: 59 29 B2 53 43 28 59 29  3A 82 59 00 A7 29 32 19  |Y).SC(Y):.Y..)2.|
000021A0: 53 52 24 B2 22 59 22 00  AE 29 37 19 82 58 00 CA  |SR$."Y"..)7..X..|
000021B0: 29 3C 19 8B 20 53 52 24  B2 22 59 22 A7 20 53 52  |)<.. SR$."Y". SR|
000021C0: 24 B2 22 22 3A 89 36 34  30 30 00 E9 29 46 19 8F  |$."":.6400..)F..|
000021D0: 20 44 45 54 45 52 4D 49  4E 45 20 23 20 44 49 46  | DETERMINE # DIF|
000021E0: 46 53 20 4E 45 45 44 45  44 00 01 2A 50 19 8B 20  |FS NEEDED..*P.. |
000021F0: 52 58 B2 35 20 A7 20 4E  44 B2 31 3A 89 36 35 32  |RX.5 . ND.1:.652|
00002200: 30 00 19 2A 5A 19 8B 20  52 58 B2 36 20 A7 20 4E  |0..*Z.. RX.6 . N|
00002210: 44 B2 32 3A 89 36 35 32  30 00 33 2A 64 19 8B 20  |D.2:.6520.3*d.. |
00002220: 52 58 B1 32 30 20 A7 20  4E 44 B2 31 30 3A 89 36  |RX.20 . ND.10:.6|
00002230: 35 32 30 00 42 2A 6E 19  4E 44 B2 B5 28 52 58 AD  |520.B*n.ND..(RX.|
00002240: 32 29 00 64 2A 78 19 54  44 B2 30 3A 81 58 B2 31  |2).d*x.TD.0:.X.1|
00002250: A4 4E 44 3A 54 44 B2 54  44 AA 48 43 28 58 2C 31  |.ND:TD.TD.HC(X,1|
00002260: 29 3A 82 58 00 77 2A 82  19 54 44 B2 28 54 44 AD  |):.X.w*..TD.(TD.|
00002270: 4E 44 29 AC 2E 39 36 00  87 2A 8C 19 54 44 B2 B5  |ND)..96..*..TD..|
00002280: 28 54 44 AA 2E 35 29 00  A9 2A 96 19 99 22 93 11  |(TD..5)..*..."..|
00002290: 11 11 1D 1D 59 4F 55 52  20 48 41 4E 44 49 43 50  |....YOUR HANDICP|
000022A0: 20 49 53 20 22 3B 54 44  3B 00 CC 2A A0 19 8B 20  | IS ";TD;..*... |
000022B0: 4F 43 24 B2 22 59 22 20  A7 20 99 22 20 46 4F 52  |OC$."Y" . ." FOR|
000022C0: 20 22 3B 43 52 24 28 43  58 2C 31 29 00 F0 2A AA  | ";CR$(CX,1)..*.|
000022D0: 19 8B 20 4F 43 24 B3 B1  22 59 22 A7 20 99 22 20  |.. OC$.."Y". ." |
000022E0: 46 4F 52 20 41 4C 4C 20  43 4F 55 52 53 45 53 22  |FOR ALL COURSES"|
000022F0: 00 27 2B B4 19 99 22 11  1D 1D 22 3B 4E 44 3B 22  |.'+..."...";ND;"|
00002300: 20 44 49 46 46 45 52 45  4E 54 49 41 4C 53 20 55  | DIFFERENTIALS U|
00002310: 53 45 44 20 46 52 4F 4D  20 22 3B 52 58 3B 22 20  |SED FROM ";RX;" |
00002320: 52 4F 55 4E 44 53 22 00  50 2B BE 19 99 22 11 11  |ROUNDS".P+..."..|
00002330: 11 22 3B A3 38 29 3B 22  12 46 35 92 20 54 4F 20  |.";.8);".F5. TO |
00002340: 53 45 45 20 52 4F 55 4E  44 53 20 55 53 45 44 22  |SEE ROUNDS USED"|
00002350: 00 6A 2B C8 19 8D 39 32  30 30 3A 8B 4B 24 B3 B1  |.j+...9200:.K$..|
00002360: 22 87 22 20 A7 20 36 32  30 30 00 78 2B D2 19 99  |"." . 6200.x+...|
00002370: 22 11 22 3A 54 4D B2 30  00 84 2B DC 19 81 58 B2  |".":TM.0..+...X.|
00002380: 31 A4 52 58 00 B6 2B E1  19 44 54 B2 28 C3 28 C4  |1.RX..+..DT.(.(.|
00002390: 28 48 43 28 58 2C 33 29  29 29 29 AB 32 3A 44 54  |(HC(X,3)))).2:DT|
000023A0: 24 B2 C8 28 C4 28 48 43  28 58 2C 33 29 29 2C 44  |$..(.(HC(X,3)),D|
000023B0: 54 29 AA 22 2D 22 00 DD  2B E2 19 44 58 24 B2 C4  |T)."-"..+..DX$..|
000023C0: 28 48 43 28 58 2C 33 29  29 3A 44 54 24 B2 44 54  |(HC(X,3)):DT$.DT|
000023D0: 24 AA CA 28 44 58 24 2C  44 54 AA 31 29 00 07 2C  |$..(DX$,DT.1)..,|
000023E0: E6 19 57 31 B2 48 43 28  58 2C 32 29 3A 99 22 1D  |..W1.HC(X,2):.".|
000023F0: 1D 97 22 3B 43 52 24 28  57 31 2C 31 29 3B A3 32  |..";CR$(W1,1);.2|
00002400: 32 29 3B 44 54 24 3B 00  2D 2C F0 19 99 A3 32 38  |2);DT$;.-,....28|
00002410: 29 3B C4 28 48 43 28 58  2C 34 29 29 3B A3 33 32  |);.(HC(X,4));.32|
00002420: 29 3B C4 28 48 43 28 58  2C 31 29 29 3B 00 47 2C  |);.(HC(X,1));.G,|
00002430: FA 19 8B 20 58 B3 B2 4E  44 20 A7 20 99 22 20 5F  |... X..ND . ." _|
00002440: 22 3A 89 36 36 37 30 00  4D 2C 04 1A 99 00 66 2C  |":.6670.M,....f,|
00002450: 0E 1A 54 4D B2 54 4D AA  31 3A 8B 54 4D B3 39 20  |..TM.TM.1:.TM.9 |
00002460: A7 20 36 37 30 30 00 90  2C 18 1A 54 4D B2 30 3A  |. 6700..,..TM.0:|
00002470: 99 22 11 1C 12 22 3B A3  37 29 3B 22 4D 4F 52 45  |."...";.7);"MORE|
00002480: 20 2D 20 50 52 45 53 53  20 41 20 4B 45 59 97 22  | - PRESS A KEY."|
00002490: 00 9F 2C 22 1A 8D 39 32  30 30 3A 99 22 93 22 00  |..,"..9200:.".".|
000024A0: A6 2C 2C 1A 82 58 00 D3  2C 36 1A 99 A3 37 29 3B  |.,,..X..,6...7);|
000024B0: 22 11 1C 12 41 4C 4C 20  2D 20 50 52 45 53 53 20  |"...ALL - PRESS |
000024C0: 41 20 4B 45 59 97 22 3A  8D 39 32 30 30 3A 89 35  |A KEY.":.9200:.5|
000024D0: 30 30 30 00 FC 2C 90 1A  99 22 93 1C 22 3B A3 39  |000..,..."..";.9|
000024E0: 29 3B 22 50 45 52 53 4F  4E 41 4C 20 47 4F 4C 46  |);"PERSONAL GOLF|
000024F0: 20 53 54 41 54 49 53 54  49 43 53 22 00 21 2D 9A  | STATISTICS".!-.|
00002500: 1A 99 22 11 11 12 1F 1D  1D 46 31 92 20 20 97 4F  |.."......F1.  .O|
00002510: 56 45 52 41 4C 4C 20 42  59 20 43 4F 55 52 53 45  |VERALL BY COURSE|
00002520: 22 00 42 2D A4 1A 99 22  11 12 1F 1D 1D 46 33 92  |".B-...".....F3.|
00002530: 20 20 97 50 41 52 53 20  42 49 52 44 53 20 45 54  |  .PARS BIRDS ET|
00002540: 43 22 00 68 2D D6 1A 99  22 11 1D 1D 12 1F 46 38  |C".h-...".....F8|
00002550: 92 20 20 97 52 45 54 55  52 4E 20 54 4F 20 4D 41  |.  .RETURN TO MA|
00002560: 49 4E 20 4D 45 4E 55 22  00 72 2D E0 1A 8D 39 32  |IN MENU".r-...92|
00002570: 30 30 00 8B 2D EA 1A 8B  20 4B 24 B2 22 8C 22 20  |00..-... K$."." |
00002580: A7 20 35 30 30 30 3A 8F  20 46 38 00 A5 2D F4 1A  |. 5000:. F8..-..|
00002590: 8B 20 4B 24 B2 22 85 22  20 A7 20 36 39 35 30 3A  |. K$."." . 6950:|
000025A0: 20 8F 20 46 31 00 BD 2D  FE 1A 8B 20 4B 24 B2 22  | . F1..-... K$."|
000025B0: 86 22 A7 20 37 35 30 30  3A 8F 20 46 33 00 C7 2D  |.". 7500:. F3..-|
000025C0: 1C 1B 89 36 38 38 30 00  E5 2D 26 1B 99 22 93 22  |...6880..-&.."."|
000025D0: 3A 97 38 35 30 2C 31 30  3A 97 38 35 31 2C 31 31  |:.850,10:.851,11|
000025E0: 3A 9E 38 32 38 00 01 2E  30 1B 99 22 1C 12 43 41  |:.828...0.."..CA|
000025F0: 4C 43 55 4C 41 54 49 4E  47 20 53 54 41 54 53 97  |LCULATING STATS.|
00002600: 22 00 24 2E 3A 1B 81 58  B2 31 A4 32 30 3A 81 59  |".$.:..X.1.20:.Y|
00002610: B2 30 A4 35 3A 48 43 28  58 2C 59 29 B2 30 3A 82  |.0.5:HC(X,Y).0:.|
00002620: 59 3A 82 58 00 30 2E 44  1B 81 58 B2 31 A4 52 43  |Y:.X.0.D..X.1.RC|
00002630: 00 60 2E 4E 1B 57 58 B2  C5 28 52 44 24 28 58 2C  |.`.N.WX..(RD$(X,|
00002640: 31 29 29 3A 48 43 28 57  58 2C 31 29 B2 48 43 28  |1)):HC(WX,1).HC(|
00002650: 57 58 2C 31 29 AA 31 3A  8F 20 52 4F 55 4E 44 53  |WX,1).1:. ROUNDS|
00002660: 00 76 2E 58 1B 48 43 28  30 2C 31 29 B2 48 43 28  |.v.X.HC(0,1).HC(|
00002670: 30 2C 31 29 AA 31 00 99  2E 62 1B 48 43 28 57 58  |0,1).1...b.HC(WX|
00002680: 2C 32 29 B2 48 43 28 57  58 2C 32 29 AA C5 28 52  |,2).HC(WX,2)..(R|
00002690: 44 24 28 58 2C 32 34 29  29 00 BA 2E 6C 1B 48 43  |D$(X,24))...l.HC|
000026A0: 28 30 2C 32 29 B2 48 43  28 30 2C 32 29 AA C5 28  |(0,2).HC(0,2)..(|
000026B0: 52 44 24 28 58 2C 32 34  29 29 00 DD 2E 76 1B 48  |RD$(X,24))...v.H|
000026C0: 43 28 57 58 2C 33 29 B2  48 43 28 57 58 2C 33 29  |C(WX,3).HC(WX,3)|
000026D0: AA C5 28 52 44 24 28 58  2C 32 33 29 29 00 FE 2E  |..(RD$(X,23))...|
000026E0: 80 1B 48 43 28 30 2C 33  29 B2 48 43 28 30 2C 33  |..HC(0,3).HC(0,3|
000026F0: 29 AA C5 28 52 44 24 28  58 2C 32 33 29 29 00 0D  |)..(RD$(X,23))..|
00002700: 2F 8A 1B 81 20 59 B2 31  20 A4 20 31 38 00 28 2F  |/... Y.1 . 18.(/|
00002710: 94 1B 8B 20 48 47 24 28  58 2C 59 29 B3 B1 22 59  |... HG$(X,Y).."Y|
00002720: 22 20 A7 20 37 30 39 30  00 40 2F 9E 1B 48 43 28  |" . 7090.@/..HC(|
00002730: 57 58 2C 34 29 B2 48 43  28 57 58 2C 34 29 AA 31  |WX,4).HC(WX,4).1|
00002740: 00 56 2F A8 1B 48 43 28  30 2C 34 29 B2 48 43 28  |.V/..HC(0,4).HC(|
00002750: 30 2C 34 29 AA 31 00 71  2F B2 1B 8B 20 48 46 24  |0,4).1.q/... HF$|
00002760: 28 58 2C 59 29 B3 B1 22  59 22 20 A7 20 37 31 32  |(X,Y).."Y" . 712|
00002770: 30 00 89 2F BC 1B 48 43  28 57 58 2C 35 29 B2 48  |0../..HC(WX,5).H|
00002780: 43 28 57 58 2C 35 29 AA  31 00 9F 2F C6 1B 48 43  |C(WX,5).1../..HC|
00002790: 28 30 2C 35 29 B2 48 43  28 30 2C 35 29 AA 31 00  |(0,5).HC(0,5).1.|
000027A0: A6 2F D0 1B 82 59 00 AD  2F DA 1B 82 58 00 CE 2F  |./...Y../...X../|
000027B0: E4 1B 99 A3 31 30 29 3B  22 93 1C 4F 56 45 52 41  |....10);"..OVERA|
000027C0: 4C 4C 20 41 56 45 52 41  47 45 53 97 11 22 00 FF  |LL AVERAGES.."..|
000027D0: 2F EE 1B 99 22 1F 20 20  20 43 52 53 20 20 52 4E  |/...".   CRS  RN|
000027E0: 44 20 20 20 53 43 4F 52  45 20 20 50 55 54 54 20  |D   SCORE  PUTT |
000027F0: 20 20 48 47 20 25 20 20  48 46 20 25 11 97 22 00  |  HG %  HF %..".|
00002800: 0B 30 F8 1B 81 58 B2 31  A4 32 30 00 21 30 02 1C  |.0...X.1.20.!0..|
00002810: 8B 48 43 28 58 2C 31 29  B2 30 20 A7 20 37 33 30  |.HC(X,1).0 . 730|
00002820: 30 00 42 30 0C 1C 99 22  20 20 22 3B 43 52 24 28  |0.B0..."  ";CR$(|
00002830: 58 2C 32 33 29 3B A3 38  29 3B 48 43 28 58 2C 31  |X,23);.8);HC(X,1|
00002840: 29 3B 00 74 30 16 1C 57  31 B2 48 43 28 58 2C 32  |);.t0..W1.HC(X,2|
00002850: 29 AD 48 43 28 58 2C 31  29 3A 57 31 B2 B5 28 28  |).HC(X,1):W1..((|
00002860: 57 31 AA 2E 30 35 29 AC  31 30 29 3A 57 31 B2 57  |W1..05).10):W1.W|
00002870: 31 AD 31 30 00 82 30 20  1C 99 A3 31 33 29 3B 57  |1.10..0 ...13);W|
00002880: 31 3B 00 B4 30 2A 1C 57  31 B2 48 43 28 58 2C 33  |1;..0*.W1.HC(X,3|
00002890: 29 AD 48 43 28 58 2C 31  29 3A 57 31 B2 B5 28 28  |).HC(X,1):W1..((|
000028A0: 57 31 AA 2E 30 35 29 AC  31 30 29 3A 57 31 B2 57  |W1..05).10):W1.W|
000028B0: 31 AD 31 30 00 C2 30 34  1C 99 A3 32 31 29 3B 57  |1.10..04...21);W|
000028C0: 31 3B 00 DE 30 3E 1C 57  31 B2 48 43 28 58 2C 34  |1;..0>.W1.HC(X,4|
000028D0: 29 AD 28 48 43 28 58 2C  31 29 AC 31 38 29 00 FF  |).(HC(X,1).18)..|
000028E0: 30 48 1C 57 31 B2 B5 28  28 57 31 AA 2E 30 35 29  |0H.W1..((W1..05)|
000028F0: AC 31 30 30 30 29 3A 57  31 B2 57 31 AD 31 30 00  |.1000):W1.W1.10.|
00002900: 0D 31 52 1C 99 A3 32 37  29 3B 57 31 3B 00 29 31  |.1R...27);W1;.)1|
00002910: 5C 1C 57 31 B2 48 43 28  58 2C 35 29 AD 28 48 43  |\.W1.HC(X,5).(HC|
00002920: 28 58 2C 31 29 AC 31 38  29 00 4A 31 66 1C 57 31  |(X,1).18).J1f.W1|
00002930: B2 B5 28 28 57 31 AA 2E  30 35 29 AC 31 30 30 30  |..((W1..05).1000|
00002940: 29 3A 57 31 B2 57 31 AD  31 30 00 57 31 70 1C 99  |):W1.W1.10.W1p..|
00002950: A3 33 33 29 3B 57 31 00  65 31 7A 1C 8B 20 58 B2  |.33);W1.e1z.. X.|
00002960: 30 20 A7 20 8E 00 6C 31  84 1C 82 58 00 88 31 8E  |0 . ..l1...X..1.|
00002970: 1C 99 22 1D 1D 54 4F 54  41 4C 22 3B A3 38 29 3B  |.."..TOTAL";.8);|
00002980: 48 43 28 30 2C 31 29 3B  00 96 31 98 1C 58 B2 30  |HC(0,1);..1..X.0|
00002990: 3A 8D 37 31 39 30 00 AF  31 A2 1C 97 38 35 30 2C  |:.7190..1...850,|
000029A0: 32 33 3A 97 38 35 31 2C  31 37 3A 9E 38 32 38 00  |23:.851,17:.828.|
000029B0: C6 31 AC 1C 99 22 1F 12  50 52 45 53 53 20 41 20  |.1..."..PRESS A |
000029C0: 4B 45 59 9B 13 22 00 D6  31 B6 1C 8D 39 32 30 30  |KEY.."..1...9200|
000029D0: 3A 89 36 38 30 30 00 EB  31 E8 1C 8B 20 53 56 24  |:.6800..1... SV$|
000029E0: B2 22 59 22 20 A7 20 37  34 35 30 00 01 32 F2 1C  |."Y" . 7450..2..|
000029F0: 8B 20 43 48 24 B3 B1 22  59 22 20 A7 20 37 34 35  |. CH$.."Y" . 745|
00002A00: 30 00 2F 32 FC 1C 53 56  24 B2 22 59 22 3A 4F 4D  |0./2..SV$."Y":OM|
00002A10: 24 B2 22 43 48 41 4E 47  45 53 20 4D 41 44 45 20  |$."CHANGES MADE |
00002A20: 2D 20 4E 4F 20 53 41 56  45 20 44 4F 4E 45 22 00  |- NO SAVE DONE".|
00002A30: 53 32 06 1D 4F 50 24 B2  22 27 51 27 20 41 47 41  |S2..OP$."'Q' AGA|
00002A40: 49 4E 20 54 4F 20 56 45  52 49 46 59 22 3A 89 35  |IN TO VERIFY":.5|
00002A50: 30 30 30 00 6D 32 1A 1D  99 22 93 11 11 1D 1D 1D  |000.m2..."......|
00002A60: 45 4E 44 20 4F 46 20 52  55 4E 22 3A 80 00 94 32  |END OF RUN":...2|
00002A70: 4C 1D 99 22 93 11 11 1D  1D 1D 1D 1D 1D 1D 12 41  |L.."...........A|
00002A80: 92 43 54 55 41 4C 20 4F  52 20 41 12 56 92 45 52  |.CTUAL OR A.V.ER|
00002A90: 41 47 45 22 00 B6 32 56  1D 8D 39 32 30 30 3A 8B  |AGE"..2V..9200:.|
00002AA0: 4B 24 B3 B1 22 41 22 AF  4B 24 B3 B1 22 56 22 20  |K$.."A".K$.."V" |
00002AB0: A7 20 37 35 30 30 00 E1  32 60 1D 57 24 B2 4B 24  |. 7500..2`.W$.K$|
00002AC0: 3A 99 22 1C 11 11 11 1D  1D 1D 1D 1D 1D 1D 43 41  |:."...........CA|
00002AD0: 4C 43 55 4C 41 54 49 4E  47 22 3A 53 24 B2 22 59  |LCULATING":S$."Y|
00002AE0: 22 00 04 33 63 1D 81 58  B2 30 A4 33 30 3A 81 59  |"..3c..X.0.30:.Y|
00002AF0: B2 30 A4 37 3A 48 43 28  58 2C 59 29 B2 30 3A 82  |.0.7:HC(X,Y).0:.|
00002B00: 59 3A 82 58 00 11 33 6A  1D 81 43 50 B2 31 A4 52  |Y:.X..3j..CP.1.R|
00002B10: 43 00 1B 33 74 1D 8D 32  32 30 30 00 33 33 7E 1D  |C..3t..2200.33~.|
00002B20: 48 43 28 57 39 2C 31 29  B2 48 43 28 57 39 2C 31  |HC(W9,1).HC(W9,1|
00002B30: 29 AA 31 00 4C 33 83 1D  48 43 28 57 39 2C 32 29  |).1.L3..HC(W9,2)|
00002B40: B2 48 43 28 57 39 2C 32  29 AA 45 47 00 65 33 88  |.HC(W9,2).EG.e3.|
00002B50: 1D 48 43 28 57 39 2C 33  29 B2 48 43 28 57 39 2C  |.HC(W9,3).HC(W9,|
00002B60: 33 29 AA 42 49 00 7E 33  8D 1D 48 43 28 57 39 2C  |3).BI.~3..HC(W9,|
00002B70: 34 29 B2 48 43 28 57 39  2C 34 29 AA 50 41 00 97  |4).HC(W9,4).PA..|
00002B80: 33 92 1D 48 43 28 57 39  2C 35 29 B2 48 43 28 57  |3..HC(W9,5).HC(W|
00002B90: 39 2C 35 29 AA 42 4F 00  B0 33 97 1D 48 43 28 57  |9,5).BO..3..HC(W|
00002BA0: 39 2C 36 29 B2 48 43 28  57 39 2C 36 29 AA 44 42  |9,6).HC(W9,6).DB|
00002BB0: 00 C9 33 9C 1D 48 43 28  57 39 2C 37 29 B2 48 43  |..3..HC(W9,7).HC|
00002BC0: 28 57 39 2C 37 29 AA 4F  54 00 EB 33 A6 1D 45 47  |(W9,7).OT..3..EG|
00002BD0: B2 30 3A 42 49 B2 30 3A  50 41 B2 30 3A 42 4F B2  |.0:BI.0:PA.0:BO.|
00002BE0: 30 3A 44 42 B2 30 3A 4F  54 B2 30 00 F3 33 B0 1D  |0:DB.0:OT.0..3..|
00002BF0: 82 43 50 00 0F 34 BA 1D  81 58 B2 31 A4 32 30 3A  |.CP..4...X.1.20:|
00002C00: 8B 48 43 28 58 2C 31 29  B2 30 A7 37 36 33 30 00  |.HC(X,1).0.7630.|
00002C10: 36 34 C4 1D 81 59 B2 31  A4 37 3A 48 43 28 30 2C  |64...Y.1.7:HC(0,|
00002C20: 59 29 B2 48 43 28 30 2C  59 29 AA 20 48 43 28 58  |Y).HC(0,Y). HC(X|
00002C30: 2C 59 29 3A 82 59 00 3D  34 CE 1D 82 58 00 51 34  |,Y):.Y.=4...X.Q4|
00002C40: D8 1D 8B 20 57 24 B2 22  41 22 20 A7 20 37 37 31  |... W$."A" . 771|
00002C50: 30 00 6D 34 E2 1D 81 58  B2 30 A4 32 30 3A 8B 48  |0.m4...X.0.20:.H|
00002C60: 43 28 58 2C 31 29 B2 30  A7 37 37 30 30 00 78 34  |C(X,1).0.7700.x4|
00002C70: EC 1D 81 59 B2 32 A4 37  00 96 34 F6 1D 57 B2 B5  |...Y.2.7..4..W..|
00002C80: 28 28 48 43 28 58 2C 59  29 AD 48 43 28 58 2C 31  |((HC(X,Y).HC(X,1|
00002C90: 29 29 AC 31 30 29 00 A7  34 00 1E 48 43 28 58 2C  |)).10)..4..HC(X,|
00002CA0: 59 29 B2 57 AD 31 30 00  AE 34 0A 1E 82 59 00 C8  |Y).W.10..4...Y..|
00002CB0: 34 14 1E 82 58 3A 53 24  B2 22 4E 22 3A 4C 43 B2  |4...X:S$."N":LC.|
00002CC0: 30 3A 54 24 B2 22 4E 22  00 FB 34 1E 1E 99 22 11  |0:T$."N"..4...".|
00002CD0: 93 1C 20 43 52 53 20 20  52 4E 44 20 45 47 4C 20  |.. CRS  RND EGL |
00002CE0: 20 42 52 44 20 20 50 41  52 20 20 42 4F 47 20 20  | BRD  PAR  BOG  |
00002CF0: 44 42 4C 20 20 3E 44 42  97 11 22 00 17 35 28 1E  |DBL  >DB.."..5(.|
00002D00: 81 58 B2 31 A4 32 30 3A  8B 48 43 28 58 2C 31 29  |.X.1.20:.HC(X,1)|
00002D10: B2 30 A7 37 38 31 30 00  33 35 32 1E 99 43 52 24  |.0.7810.352..CR$|
00002D20: 28 58 2C 32 33 29 3B A3  36 29 3B 48 43 28 58 2C  |(X,23);.6);HC(X,|
00002D30: 31 29 3B 00 42 35 3C 1E  5A B2 35 3A 81 59 B2 32  |1);.B5<.Z.5:.Y.2|
00002D40: A4 37 00 56 35 46 1E 99  A3 5A AA 35 29 3B 48 43  |.7.V5F...Z.5);HC|
00002D50: 28 58 2C 59 29 3B 00 6D  35 50 1E 5A B2 5A AA 35  |(X,Y);.m5P.Z.Z.5|
00002D60: 3A 82 59 3A 4C 43 B2 4C  43 AA 31 3A 99 00 7F 35  |:.Y:LC.LC.1:...5|
00002D70: 5A 1E 8B 4C 43 B3 31 35  20 A7 20 37 38 30 30 00  |Z..LC.15 . 7800.|
00002D80: 8E 35 64 1E 4C 43 B2 30  3A 8D 39 31 39 30 00 C1  |.5d.LC.0:.9190..|
00002D90: 35 6E 1E 99 22 11 93 1C  20 43 52 53 20 20 52 4E  |5n.."... CRS  RN|
00002DA0: 44 20 45 47 4C 20 20 42  52 44 20 20 50 41 52 20  |D EGL  BRD  PAR |
00002DB0: 20 42 4F 47 20 20 44 42  4C 20 20 3E 44 42 97 11  | BOG  DBL  >DB..|
00002DC0: 22 00 D0 35 78 1E 8B 20  54 24 B2 22 59 22 A7 8E  |"..5x.. T$."Y"..|
00002DD0: 00 D7 35 82 1E 82 58 00  F1 35 8C 1E 99 22 54 4F  |..5...X..5..."TO|
00002DE0: 54 41 4C 22 3B A3 36 29  3B 48 43 28 30 2C 31 29  |TAL";.6);HC(0,1)|
00002DF0: 3B 00 06 36 96 1E 58 B2  30 3A 54 24 B2 22 59 22  |;..6..X.0:T$."Y"|
00002E00: 3A 8D 37 37 34 30 00 16  36 A0 1E 8D 39 31 39 30  |:.7740..6...9190|
00002E10: 3A 89 35 30 30 30 00 3F  36 40 1F 99 22 93 1C 22  |:.5000.?6@..".."|
00002E20: 3B A3 38 29 3B 22 50 45  52 53 4F 4E 41 4C 20 47  |;.8);"PERSONAL G|
00002E30: 4F 4C 46 20 53 54 41 54  49 53 54 49 43 53 22 00  |OLF STATISTICS".|
00002E40: 64 36 4A 1F 99 A3 38 29  3B 22 11 1F 48 41 4E 44  |d6J...8);"..HAND|
00002E50: 49 43 41 50 20 41 4E 44  20 53 54 41 54 49 53 54  |ICAP AND STATIST|
00002E60: 49 43 53 22 00 94 36 54  1F 99 22 11 97 20 54 48  |ICS"..6T..".. TH|
00002E70: 49 53 20 50 52 4F 47 52  41 4D 20 41 4C 4C 4F 57  |IS PROGRAM ALLOW|
00002E80: 53 20 59 4F 55 20 54 4F  20 45 4E 54 45 52 20 44  |S YOU TO ENTER D|
00002E90: 41 54 41 22 00 C0 36 5E  1F 99 22 20 41 42 4F 55  |ATA"..6^.." ABOU|
00002EA0: 54 20 41 20 52 4F 55 4E  44 20 4F 46 20 47 4F 4C  |T A ROUND OF GOL|
00002EB0: 46 2E 20 20 59 4F 55 20  4D 41 59 20 53 45 45 22  |F.  YOU MAY SEE"|
00002EC0: 00 E9 36 68 1F 99 22 20  59 4F 55 52 20 48 41 4E  |..6h.." YOUR HAN|
00002ED0: 44 49 43 41 50 20 41 4E  44 20 4F 54 48 45 52 20  |DICAP AND OTHER |
00002EE0: 41 53 53 4F 52 54 45 44  22 00 FD 36 72 1F 99 22  |ASSORTED"..6r.."|
00002EF0: 20 53 54 41 54 49 53 54  49 43 53 2E 22 00 2A 37  | STATISTICS.".*7|
00002F00: 7C 1F 99 22 11 1D 46 4F  4C 4C 4F 57 20 54 48 45  ||.."..FOLLOW THE|
00002F10: 20 4D 45 4E 55 53 20 54  4F 20 45 4E 54 45 52 20  | MENUS TO ENTER |
00002F20: 4F 52 20 4D 4F 44 49 46  59 22 00 5A 37 86 1F 99  |OR MODIFY".Z7...|
00002F30: 22 1D 49 4E 46 4F 52 4D  41 54 49 4F 4E 2E 20 20  |".INFORMATION.  |
00002F40: 41 20 52 45 44 20 51 55  45 53 54 49 4F 4E 20 4D  |A RED QUESTION M|
00002F50: 41 52 4B 20 28 1C 3F 97  29 22 00 88 37 90 1F 99  |ARK (.?.)"..7...|
00002F60: 22 1D 57 49 4C 4C 20 53  48 4F 57 20 59 4F 55 20  |".WILL SHOW YOU |
00002F70: 57 48 45 52 45 20 54 48  45 20 43 55 52 53 4F 52  |WHERE THE CURSOR|
00002F80: 20 49 53 2E 20 49 46 22  00 B6 37 9A 1F 99 22 1D  | IS. IF"..7...".|
00002F90: 59 4F 55 20 45 4E 54 45  52 20 4C 45 53 53 20 54  |YOU ENTER LESS T|
00002FA0: 48 41 4E 20 54 48 45 20  4D 41 58 20 4E 55 4D 42  |HAN THE MAX NUMB|
00002FB0: 45 52 20 4F 46 22 00 DA  37 A4 1F 99 22 1D 43 48  |ER OF"..7...".CH|
00002FC0: 41 52 41 43 54 45 52 53  2C 20 1F 50 52 45 53 53  |ARACTERS, .PRESS|
00002FD0: 20 52 45 54 55 52 4E 97  2E 22 00 09 38 AE 1F 99  | RETURN.."..8...|
00002FE0: 22 11 1D 59 4F 55 20 57  49 4C 4C 20 42 45 20 41  |"..YOU WILL BE A|
00002FF0: 53 4B 45 44 20 54 4F 20  45 4E 54 45 52 20 54 48  |SKED TO ENTER TH|
00003000: 45 20 53 43 4F 52 45 20  22 00 36 38 B8 1F 99 22  |E SCORE ".68..."|
00003010: 1D 4F 4E 20 45 41 43 48  20 48 4F 4C 45 2C 20 41  |.ON EACH HOLE, A|
00003020: 53 20 57 45 4C 4C 20 41  53 20 57 48 45 54 48 45  |S WELL AS WHETHE|
00003030: 52 20 59 4F 55 22 00 63  38 C2 1F 99 22 1D 48 49  |R YOU".c8...".HI|
00003040: 54 20 54 48 45 20 47 52  45 45 4E 20 41 4E 44 20  |T THE GREEN AND |
00003050: 46 41 49 52 57 41 59 2E  20 20 50 52 45 53 53 49  |FAIRWAY.  PRESSI|
00003060: 4E 47 22 00 8F 38 CC 1F  99 22 1D 52 45 54 55 52  |NG"..8...".RETUR|
00003070: 4E 20 46 4F 52 20 54 48  45 20 4C 41 53 54 20 54  |N FOR THE LAST T|
00003080: 57 4F 20 41 53 53 55 4D  45 53 20 4E 4F 2E 22 00  |WO ASSUMES NO.".|
00003090: C5 38 E0 1F 45 47 B2 30  3A 42 49 B2 30 3A 50 41  |.8..EG.0:BI.0:PA|
000030A0: B2 30 3A 42 4F B2 30 3A  44 42 B2 30 3A 4F 54 B2  |.0:BO.0:DB.0:OT.|
000030B0: 30 3A 53 43 B2 30 3A 43  5A B2 30 3A 48 44 B2 30  |0:SC.0:CZ.0:HD.0|
000030C0: 3A 50 50 B2 30 00 CB 38  08 20 8E 00 E8 38 5E 22  |:PP.0..8. ...8^"|
000030D0: 8F 20 2A 2A 2A 20 47 45  54 53 20 46 4F 52 20 48  |. *** GETS FOR H|
000030E0: 46 20 41 4E 44 20 48 47  00 00 39 60 22 97 31 39  |F AND HG..9`".19|
000030F0: 38 2C 30 3A 41 24 B2 22  22 3A 41 4E 24 B2 22 22  |8,0:A$."":AN$.""|
00003100: 00 16 39 6A 22 A1 41 24  3A 8B 41 24 B2 22 22 20  |..9j".A$:.A$."" |
00003110: A7 20 38 38 31 30 00 2C  39 74 22 8B 20 41 24 B2  |. 8810.,9t". A$.|
00003120: C7 28 32 30 29 20 A7 20  38 38 31 30 00 3E 39 7E  |.(20) . 8810.>9~|
00003130: 22 8B 20 41 24 B2 C7 28  31 33 29 A7 20 8E 00 4B  |". A$..(13). ..K|
00003140: 39 88 22 41 4E 24 B2 41  24 3A 8E 00 6F 39 26 23  |9."AN$.A$:..o9&#|
00003150: 8F 20 2A 2A 2A 20 47 45  54 53 20 46 4F 52 20 53  |. *** GETS FOR S|
00003160: 43 4F 52 45 53 20 41 4E  44 20 53 54 55 46 46 00  |CORES AND STUFF.|
00003170: 8C 39 28 23 97 31 39 38  2C 30 3A 41 24 B2 22 22  |.9(#.198,0:A$.""|
00003180: 3A 41 4E 24 B2 22 22 3A  54 4D B2 30 00 A3 39 32  |:AN$."":TM.0..92|
00003190: 23 A1 41 24 3A 8B 20 41  24 B2 22 22 20 A7 20 39  |#.A$:. A$."" . 9|
000031A0: 30 31 30 00 B9 39 3C 23  8B 20 41 24 B2 C7 28 32  |010..9<#. A$..(2|
000031B0: 30 29 20 A7 20 39 30 31  30 00 D3 39 46 23 8B 20  |0) . 9010..9F#. |
000031C0: 41 24 B2 C7 28 31 33 29  20 AF 54 4D B2 30 A7 39  |A$..(13) .TM.0.9|
000031D0: 30 31 30 00 E6 39 4B 23  8B 20 41 24 B2 C7 28 31  |010..9K#. A$..(1|
000031E0: 33 29 20 A7 20 8E 00 00  3A 50 23 8B 20 41 24 B3  |3) . ...:P#. A$.|
000031F0: 22 30 22 B0 41 24 B1 22  39 22 A7 20 39 30 31 30  |"0".A$."9". 9010|
00003200: 00 09 3A 5A 23 99 41 24  3B 00 20 3A 64 23 41 4E  |..:Z#.A$;. :d#AN|
00003210: 24 B2 41 4E 24 AA 41 24  3A 54 4D B2 54 4D AA 31  |$.AN$.A$:TM.TM.1|
00003220: 00 35 3A 6E 23 8B 20 54  4D B2 43 55 28 46 50 2C  |.5:n#. TM.CU(FP,|
00003230: 33 29 A7 20 8E 00 3F 3A  78 23 89 39 30 31 30 00  |3). ..?:x#.9010.|
00003240: 69 3A E6 23 97 38 35 30  2C 32 32 3A 97 38 35 31  |i:.#.850,22:.851|
00003250: 2C 37 3A 9E 38 32 38 3A  99 22 1C 12 50 52 45 53  |,7:.828:."..PRES|
00003260: 53 20 41 20 4B 45 59 97  22 00 7F 3A F0 23 A1 4B  |S A KEY."..:.#.K|
00003270: 24 3A 8B 4B 24 B2 22 22  20 A7 20 39 32 30 30 00  |$:.K$."" . 9200.|
00003280: 85 3A FA 23 8E 00 A2 3A  B6 24 8F 20 2A 2A 2A 20  |.:.#...:.$. *** |
00003290: 49 4E 50 20 46 4F 52 20  4D 4F 44 49 46 59 20 52  |INP FOR MODIFY R|
000032A0: 54 4E 00 BF 3A B8 24 97  31 39 38 2C 30 3A 41 4E  |TN..:.$.198,0:AN|
000032B0: 24 B2 22 22 3A 41 24 B2  22 22 3A 54 4D B2 30 00  |$."":A$."":TM.0.|
000032C0: D5 3A C2 24 A1 41 24 3A  8B 41 24 B2 22 22 20 A7  |.:.$.A$:.A$."" .|
000032D0: 20 39 34 31 30 00 EB 3A  C5 24 8B 20 41 24 B2 C7  | 9410..:.$. A$..|
000032E0: 28 32 30 29 20 A7 20 39  34 31 30 00 FC 3A C7 24  |(20) . 9410..:.$|
000032F0: 8B 20 41 24 B2 C7 28 31  33 29 A7 8E 00 26 3B CC  |. A$..(13)...&;.|
00003300: 24 8B 28 41 24 B2 22 44  22 B0 41 24 B2 22 50 22  |$.(A$."D".A$."P"|
00003310: B0 41 24 B2 22 51 22 29  AF 54 4D B2 30 A7 41 4E  |.A$."Q").TM.0.AN|
00003320: 24 B2 41 24 3A 8E 00 49  3B CE 24 8B 28 41 24 B2  |$.A$:..I;.$.(A$.|
00003330: 22 4E 22 B0 41 24 B2 22  54 22 29 AF 54 4D B2 30  |"N".A$."T").TM.0|
00003340: A7 41 4E 24 B2 41 24 3A  8E 00 69 3B D6 24 54 4D  |.AN$.A$:..i;.$TM|
00003350: B2 54 4D AA 31 3A 8B 41  24 B1 22 30 22 AF 41 24  |.TM.1:.A$."0".A$|
00003360: B3 22 39 22 A7 39 34 34  30 00 85 3B D8 24 8B 41  |."9".9440..;.$.A|
00003370: 24 B2 22 39 22 AF 54 4D  B2 31 A7 54 4D B2 32 3A  |$."9".TM.1.TM.2:|
00003380: 89 39 34 34 30 00 9B 3B  DA 24 8B 20 41 24 B2 22  |.9440..;.$. A$."|
00003390: 30 22 AF 54 4D B2 32 20  A7 20 8E 00 A6 3B DB 24  |0".TM.2 . ...;.$|
000033A0: 89 20 39 34 31 30 00 B5  3B E0 24 41 4E 24 B2 41  |. 9410..;.$AN$.A|
000033B0: 4E 24 AA 41 24 00 C4 3B  EA 24 8B 20 54 4D B2 32  |N$.A$..;.$. TM.2|
000033C0: 20 A7 20 8E 00 CE 3B F4  24 89 39 34 31 30 00 DD  | . ...;.$.9410..|
000033D0: 3B 80 25 84 31 35 2C 45  4E 2C 45 4D 24 00 EC 3B  |;.%.15,EN,EM$..;|
000033E0: 8A 25 8B 20 45 4E B2 30  20 A7 20 8E 00 FA 3B 94  |.%. EN.0 . ...;.|
000033F0: 25 41 42 24 B2 22 59 22  3A 8E 00 16 3C 10 27 83  |%AB$."Y":...<.'.|
00003400: 20 32 2C 31 33 2C 32 30  2C 34 2C 31 36 2C 34 2C  | 2,13,20,4,16,4,|
00003410: 34 2C 33 34 2C 34 00 2A  3C 1A 27 83 20 38 2C 31  |4,34,4.*<.'. 8,1|
00003420: 30 2C 32 2C 38 2C 33 31  2C 32 00 3E 3C 24 27 83  |0,2,8,31,2.><$'.|
00003430: 20 39 2C 31 30 2C 32 2C  39 2C 33 31 2C 32 00 54  | 9,10,2,9,31,2.T|
00003440: 3C 2E 27 83 20 31 30 2C  31 30 2C 32 2C 31 30 2C  |<.'. 10,10,2,10,|
00003450: 33 31 2C 32 00 6A 3C 38  27 83 20 31 31 2C 31 30  |31,2.j<8'. 11,10|
00003460: 2C 32 2C 31 31 2C 33 31  2C 32 00 80 3C 42 27 83  |,2,11,31,2..<B'.|
00003470: 20 31 32 2C 31 30 2C 32  2C 31 32 2C 33 31 2C 32  | 12,10,2,12,31,2|
00003480: 00 96 3C 4C 27 83 20 31  33 2C 31 30 2C 32 2C 31  |..<L'. 13,10,2,1|
00003490: 33 2C 33 31 2C 32 00 AC  3C 56 27 83 20 31 34 2C  |3,31,2..<V'. 14,|
000034A0: 31 30 2C 32 2C 31 34 2C  33 31 2C 32 00 C2 3C 60  |10,2,14,31,2..<`|
000034B0: 27 83 20 31 35 2C 31 30  2C 32 2C 31 35 2C 33 31  |'. 15,10,2,15,31|
000034C0: 2C 32 00 D8 3C 6A 27 83  20 31 36 2C 31 30 2C 32  |,2..<j'. 16,10,2|
000034D0: 2C 31 36 2C 33 31 2C 32  00 EC 3C 74 27 83 20 34  |,16,31,2..<t'. 4|
000034E0: 2C 35 2C 32 2C 31 38 2C  31 31 2C 32 00 02 3D 7E  |,5,2,18,11,2..=~|
000034F0: 27 83 20 31 38 2C 32 31  2C 33 2C 31 38 2C 33 33  |'. 18,21,3,18,33|
00003500: 2C 34 00 17 3D F6 2A 8F  20 4D 2F 4C 20 46 4F 52  |,4..=.*. M/L FOR|
00003510: 20 43 55 52 53 4F 52 00  42 3D F8 2A 83 20 31 37  | CURSOR.B=.*. 17|
00003520: 34 2C 38 32 2C 30 33 2C  31 37 32 2C 38 33 2C 30  |4,82,03,172,83,0|
00003530: 33 2C 32 34 2C 33 32 2C  32 34 30 2C 32 35 35 2C  |3,24,32,240,255,|
00003540: 39 36 00 00 00                                    |96...           |

....... GOLF HANDICAP.&.... AL JOHNSON.?
.... 12302 COLERAINE CT.W.... RESTON, VA
  22091.~.#.. SEND ME A CARD IF YOU LIKE
 IT OR...(.. HAVE ANY SUGGESTIONS...D..5
3280,11:.53281,15...N..8000.E.S.RL.25...
X.. CR$(20,24),RD$(50,25),HG$(50,18),HF$
(50,18),CU(25,23)...}.. HC(50,7),SC(4).H
....15,8,15,"I0":.6,8,6,"0:GLF COURSE,S,
R":.9600.W.... EN..0 . OM$."COURSE FILE 
NOT FOUND":.220......6,CC... ..X.1.CC:.Y
.1.23:.6,CR$(X,Y):.Y:.X...R. 6: 15.....U
1$.".":U2$."..":SP$."                   
                ".....U9$.".............
.......".D....X.1.25:.A,B,C:CU(X,1).A:CU
(X,2).B:CU(X,3).C:.X.D....X.828.828.10  
 :.A:.X,A:.X.|....850,22:.851,8:.828....
.."..PRESS ANY KEY WHEN READY":.9200....
..5000.I.... ** LIST COURSE NAMES......"
...";.13);"COURSES"......X.1.CC......"..
.";X;.8);CR$(X,1);.31);CR$(X,23)......X.
H.&.."....ENTER NUMBER OF COURSE PLAYED"
.Z.).."....OR _ IF COURSE NOT SHOWN";CX$
:CX.E(CX$)...+.. CX$."_" . ....0.. CX.1 
. CX.CC . ."....INVALID":.550...:...V...
. *****LOAD SUBROUTINE......".......LOAD
ING GOLF FILE".".F..".....C. TO CONTINUE
 - OTHER FOR MENU".H.P..9200:. K$.."C" .
 OM$."NO LOAD":..Z.Z..15,8,15,"I0".}....
7,8,7,"0:GOLF DATA,S,R":.9600...... AB$.
"Y". OM$."NO ROUNDS FOUND":.890......7,R
C......X.1.RC.X....Y.1.25:.7,RD$(X,Y):.Y
......Y.1.18:.7,HG$(X,Y):.Y...H..Y.1.18:
.7,HF$(X,Y):.Y...F..X.8.P.OM$."LOAD OK "
.D(RC)." ROUNDS".C.Z. 7: 15.I.....B.... 
** SAVE SUBROUTINE......".........SAVE T
HE ROUNDS TO DISK"......".....C. TO CONT
INUE - OTHER FOR MENU"......9200:.K$.."C
" . OM$."SAVE NOT DONE":.......15,8,15,"
I0"......8,8,8,"@0:GOLF DATA,S,W":.9600.
I.... AB$."Y" . OM$."DISK ERROR - ".EM$"
:GOTO1130.U...SV$."Y"._.$..8,RC.K....X.1
.RC...8..Y.1.25:.8,RD$(X,Y):.Y...B..Y.1.
18:.8,HG$(X,Y):.Y...L..Y.1.18:.8,HF$(X,Y
):.Y.C.V..X...`.OM$."SAVE OK - ".D(RC)."
 ROUNDS"...J. 8: 15...T........ **** BAC
K UP SUBROUTINE.9...."........BACKUP GOL
F ROUNDS".K....".....C. TO CONTINUE - OT
HER FOR MENU":.9200...D..K$.."C" . OM$."
NO BACKUP":....N.."......INSERT BACKUP D
ISK.J.X..".......HIT A KEY.":.9200......
15,8,15,"I0"......8,8,8,"GOLF DATA-BK,S,
W":.9600...... AB$.."Y" . 1310.U...OM$."
BKUP DISK ERROR - ".EM$:OP$."INSERT MAIN
 DISK OR 'Q'".B... 8: 15:..L....1060.X.#
.BK$."Y"...(.OM$."BACKUP OK - ".D(RC)." 
ROUNDS".B.2.OP$."INSERT MAIN DISK OR QUI
T".H.<.....Z.. *** FILL SCREEN FOR DISPL
AY......"..";.10);"PERSONAL GOLF HANDICA
P".0....".";.15);"ROUNDS PLAYED".D.....6
);"..COURSE".P...." PAR";.9);"RATING";.2
2);"DATE PLAYED".......10);"..SC  G F";.
31);"SC  G F."......X.1.7.2.E...."  HOLE
 ";X;.23);"HOLE ";X.1.L."..X...,.."  HOL
E  9";.23);"HOLE 10"...6..X.11.17 .2...@
.."  HOLE";X;.23);"HOLE";X.1.#.J..X.O.T.
."..";.5);"PUTTS     SCORE      DFRNTL".
..^.."......A.DD  .M.ODIFY  .N.EXT  .B.A
CK  .D.EL  .Q.UIT"...R........ PUT UNDER
LINE IN TABLE SUBR.H...RD$(CP,2).U2$.U2$
.....RD$(CP,3).U2$.U2$...&..X.1.18:RD$(C
P,X.3).U2$:HG$(CP,X).U1$:HF$(CP,X).U1$:.
X.,.X.RD$(CP,23).U2$.C.B.RD$(CP,24).U2$.
U1$.I.G...L.N.. ** FILL DATA AREAS OF SC
REEN...P.."... #";D(CP):."OF ";D(RC)...S
..850,3:.851,13:.828.W.X.. H(CN$,1).."."
. PP.E(RD$(CP,1)):CN$.CR$(PP,1)...Z.."..
";CN$;".           "......X.2.25.#....85
0,CU(X,1):.851,CU(X,2):.828.C...PP.CU(X,
3):.H(SP$,PP);:.828.R....RD$(CP,X).J....
 X.4 . X.21 . 2100......850,CU(X,1):.851
,CU(X,2).4:.828. ....HG$(CP,X.3).E. ..85
0,CU(X,1):.851,CU(X,2).6:.828.V.*..HF$(C
P,X.3)...4..X...>........ ** CALC BIRDS 
PARS ETC...... X.4 . 21.#...W9.E(RD$(CP,
1)).E...W.E(CR$(W9,X.1)).E(RD$(CP,X)).Y.
... W.2 . EG.EG.1.M.... W.1 . BI.BI.1...
... W.0 . PA.PA.1...J.. W..1 . BO.BO.1..
.T.. W..2 . DB.DB.1...... W..2 . OT.OT.1
.G....X.X.... S$."Y" . .......850,19:.85
1,2:.828......".EGL";EG;" BIRD";BI;" PAR
";PA;.4....". BOG";BO;" DBL";DB;"..".V..
.EG.0:BI.0:PA.0:BO.0:DB.0:OT.0.\.......^
..  CALC, STORE AND PRINT SCORES...`.SC.
0:."."...J..X.4.21:SC.SC.E(RD$(CP,X)):..
D.T.RD$(CP,24).D(SC)...Y..850,CU(24,1):.
851,CU(24,2):.828:.D(SC)...~.CZ.E(RD$(CP
,1)).....HD.(SC.E(CR$(CZ,3))).C...PP.(.(
HD.10).10):RD$(CP,25).D(PP).H....850,CU(
25,1):.851,CU(25,2):.828......"     ":.8
28:.RD$(CP,25)......850,CU(22,1):.851,CU
(22,2):.828.O....CR$(CZ,2):RD$(CP,22).CR
$(CZ,2).....RD$(CP,2).CR$(CZ,3)......850
,CU(2,1):.851,CU(2,2):.828:."    ":.828.
'.... RD$(CP,2).-.D...K.&.. INPUT SUBR T
O ADD A RND.N.(..850,CU(3,1):.851,CU(3,2
):.828.W.+.FP.3...2..".?..";:.9000...<.R
D$(CP,3).AN$...F..X.4.21.K.P..850,CU(X,1
):.851,CU(X,2):.828.X.U..".?..";...W.FP.
X...Z..9000...D.RD$(CP,X).AN$...N..851,C
U(X,2).4:.828:.".?..";.(.X..8800.N.}.. A
N$.."Y". HG$(CP,X.3)."N":.2695.B...HG$(C
P,X.3)."Y".T....HG$(CP,X.3);......851,CU
(X,2).6:.828:.".?..";......8800.D.... AN
$.."Y".HF$(CP,X.3)."N":.2725.X. .HF$(CP,
X.3)."Y"......HF$(CP,X.3);......X......8
50,CU(23,1):.851,CU(23,2):.828.#....".?.
.";.-.H..9000.@.R.RD$(CP,23).AN$.F.....^
.T..850,20:.851,6:.828.D.^...|....850,20
:.851,6:.828......SP$............850,CU(
FP,1):.851,CU(FP,2):.828...B..".?..";.G.
L..9000...V.. E(AN$)..0 . RD$(CP,FP).AN$
:.3050......RD$(CP,FP);"."...... FP.4 . 
FP.21 . .".":..7....851,CU(FP,2).4:.828.
D....".?..";.N....8800.Z.... AN$.."" . H
G$(CP,FP.3).AN$:.AN$:.3110......".";HG$(
CP,FP.3);".."...&..851,CU(FP,2).6:.828.A
.0..".?..";:.8800...:.. AN$.."" . HF$(CP
,FP.3).AN$:.AN$:.3150...D..".";HF$(CP,FP
.3);".."...N..".."...X.../.~.. *********
*******.F.... * MAIN PROG MENU.].... ***
*************......53280,11:."..";.15);"
GOLF MENU"......"......LOAD GOLF FILE";.
25);"L".J...."....SAVE GOLF FILE";.25);"
S"......"....BACKUP GOLF FILE";.25);"B".
....."....ROUNDS";.25);"R".'...."....HAN
DICAP";.25);"H".F.D.."....STATISTICS";.2
5);"C"._.N.."....QUIT";.25);"Q"...X.."..
....";OM$;"..":OM$."":AB$.""......".....
";OP$;"..":OP$.""......9200.E.... K$."L"
 . .700:.5000...... K$."S" . .1000:.5000
...... K$."B" . .1200:.5000...... K$."R"
 . 5300.#.... K$."H" . 6200.7.(.. K$."C"
 . 6800.K.2.. K$."Q" . 7400.U.<..5100.H.
... RC.0.CN$.U9$...... RC..0 . CX.E(RD$(
1,1)):CN$.CR$(CX,1)...H..1500: . FILL SC
REEN...M.CP.1:.53280,6.Z....2000: . DATA
 TO SCREEN...... RC..0 . .2200:.2400:. C
OUNT BIRD PAR ETC.0.... RC.0..2900:.".NO
 ROUNDS LOADED.".A.... DUMMY LINE.Y.... 
W$:. W$."" . 5405.W.".. W$."A" . .53280,
2:.5500...,.. W$."N" . .53280,6:.5650...
6.. W$."B" . .53280,6:.5700.G.@.. W$."Q"
 . 5000...J.. W$."D". .53280,11:.5760.. 
T.. W$."M" . .53280,7:.6000.. ^..5405.# 
R.. *** ADD A ROUND.E |..2950:.500: . GE
T COURSE NAME.Z .. CX.0..1500:.2900:.".
COURSE NOT ON FILE.":.5405.. ..CN$.CR$(C
X,1):CP.RC.1:RD$(CP,1).CX$:CH$."Y".K ...
1800: . UNDERLINES IN TABLE.. ...1500: .
 DISPLAY SCREEN..!...2000:. DISPLAY DATA
 ON SCR..!...2600: . GET DATA.6!...2400:
 . CALC SCORES.U!B..2200: . CALC BIRD PA
R ETC.A!L.RC.RC.1.K!V..5405..!... *** VI
EW NEXT ROUND. !...2950:. CP.1.RC . 5400
..!..CP.CP.1:.2000:.2400:.2200.H!&..5400
..!B.. *** BACK 1 RECORD..!D..2950:. CP.
1.1 . 5400.."N.CP.CP.1:.2000:.2400:.2200
.""X..5400.F"...2900:."..ARE YOU SURE? (
Y/N).".\"...S$:.S$."" . 5770.W"... S$.."
Y". .2950:.5400.."...2900:.".O.K.  DELET
ING                 ".."...X.CP.RC.1.A".
.. Y.1.RL.Y"..RD$(X,Y).RD$(X.1,Y).."F..Y
:.X.."P..X.CP.RC.1.."Z..Y.1.18.*#..HG$(X
,Y).HG$(X.1,Y):HF$(X,Y).HF$(X.1,Y).4#...
Y:.X.@#..RC.RC.1.T#... CP.RC . CP.RC.J#.
..2000:.2400:.2200..#...2950:.2900:.".DO
NE"..# ..X.1.500:...#*..2950:CH$."Y"..#4
.. 5400.F#F.. *** MODIFY ROUND..#P..2950
:.850,23:.851,3:.828..$Z.."..D.ATE  .P.U
TTS  .1-18.  .Q.UIT  .N.AME  .T.BL".+$..
.9400:.2950.F$... AN$."D" . FP.3:.6080.B
$... AN$."P" . FP.23:.6080.W$... AN$.."N
". 6043..$...500:.CX.0 . 6040..$..RD$(CP
,1).CX$..$...1500:.2000:.2400:.2200.T$..
.2900:.".DONE":.6020..$... AN$.."T" . 60
50..%...2400:.2900:.".O.K.":.6020.9%... 
E(AN$).00 . E(AN$).19 . FP.E(AN$).3:.608
0.N%... AN$."Q" . 6100.X%...6020.D%..CH$
."Y".N%...3000..%F..2900:.".O.K."..%J..6
020..%T..2400:.2200..%...850,23:.851,3:.
828.L%...SP$:.53280,11:.5400..%... *****
************..%1.. * CALC HANDICAP RTN..
&3.. *****************.8&8.."........CAL
CULATE HANDICAP".F&B.."......F1..  CALCU
LATE OVERALL HANDICAP"..&L..".....F3..  
HANDICAP FOR ONE COURSE"..&V..".....F7..
  MAIN MENU"..&`.."......";OM$;"..":OM$.
"":OC$."":RX.0:PS.0..&J..9200..&T.. K$."
." . 5000: . F7..'~.. K$..".".K$.."." . 
6250.='... K$."." . OC$."Y":.500:.".".F'
... K$.".".CX.0 . OM$."NOT DONE":.6200..
'... K$."." . RC.5 . OM$."NOT ENOUGH ROU
NDS TO CALCULATE":.6200.G'..."..........
..CALCULATING."..'... RC..20 . PX.1..'..
. RC.20.PX.RC.19..(...X.1.20:.Y.1.4:HC(X
,Y).0:.Y:.X.&(...X.RC . PX ..1.H(... OC$
."Y"..RD$(X,1)..CX$.6370.J(D.PS.PS.1:HC(
PS,1).E(RD$(X,25))..(N.HC(PS,2).E(RD$(X,
1)):HC(PS,3).E(RD$(X,3))..(X.HC(PS,4).E(
RD$(X,24)):RX.RX.1.A(...X..(... RX.5 . O
M$."MIN 5 ROUNDS REQUIRED":.6200..)... *
** NOW SORT ON DIFFERENTIAL.!)...X.1.RX.
1.@)... HC(X,1).HC(X.1,1) . 6455.\)...Y.
1.4:SC(Y).HC(X,Y):.Y.})... Y.1.4:HC(X,Y)
.HC(X.1,Y):.Y..)(..Y.1.4:HC(X.1,Y).SC(Y)
:.Y..)2.SR$."Y"..)7..X.J)<.. SR$."Y". SR
$."":.6400..)F.. DETERMINE # DIFFS NEEDE
D..*P.. RX.5 . ND.1:.6520..*Z.. RX.6 . N
D.2:.6520.3*D.. RX.20 . ND.10:.6520.B*N.
ND..(RX.2).D*X.TD.0:.X.1.ND:TD.TD.HC(X,1
):.X.W*..TD.(TD.ND)..96..*..TD..(TD..5).
.*..."......YOUR HANDICP IS ";TD;.L* .. 
OC$."Y" . ." FOR ";CR$(CX,1)..*... OC$..
"Y". ." FOR ALL COURSES".'+..."...";ND;"
 DIFFERENTIALS USED FROM ";RX;" ROUNDS".
P+..."...";.8);".F5. TO SEE ROUNDS USED"
.J+H..9200:.K$.."." . 6200.X+R..".":TM.0
..+...X.1.RX..+..DT.(C(D(HC(X,3)))).2:DT
$.H(D(HC(X,3)),DT)."-"..+..DX$.D(HC(X,3)
):DT$.DT$.J(DX$,DT.1)..,..W1.HC(X,2):.".
..";CR$(W1,1);.22);DT$;.-,....28);D(HC(X
,4));.32);D(HC(X,1));.G,... X..ND . ." _
":.6670.M,....F,..TM.TM.1:.TM.9 . 6700..
,..TM.0:."...";.7);"MORE - PRESS A KEY."
..,"..9200:."."..,,..X.S,6...7);"...ALL 
- PRESS A KEY.":.9200:.5000..,..."..";.9
);"PERSONAL GOLF STATISTICS".!-...".....
.F1.  .OVERALL BY COURSE".B-...".....F3.
  .PARS BIRDS ETC".H-V..".....F8.  .RETU
RN TO MAIN MENU".R-...9200..-... K$."." 
. 5000:. F8..-... K$."." . 6950: . F1..-
... K$.".". 7500:. F3.G-...6880..-&.."."
:.850,10:.851,11:.828...0.."..CALCULATIN
G STATS.".$.:..X.1.20:.Y.0.5:HC(X,Y).0:.
Y:.X.0.D..X.1.RC.`.N.WX.E(RD$(X,1)):HC(W
X,1).HC(WX,1).1:. ROUNDS.V.X.HC(0,1).HC(
0,1).1...B.HC(WX,2).HC(WX,2).E(RD$(X,24)
)...L.HC(0,2).HC(0,2).E(RD$(X,24))...V.H
C(WX,3).HC(WX,3).E(RD$(X,23)).....HC(0,3
).HC(0,3).E(RD$(X,23))../... Y.1 . 18.(/
... HG$(X,Y).."Y" . 7090.@/..HC(WX,4).HC
(WX,4).1.V/..HC(0,4).HC(0,4).1.Q/... HF$
(X,Y).."Y" . 7120../..HC(WX,5).HC(WX,5).
1../F.HC(0,5).HC(0,5).1../P..Y../Z..X.N/
....10);"..OVERALL AVERAGES.."../...".  
 CRS  RND   SCORE  PUTT   HG %  HF %..".
.0...X.1.20.!0...HC(X,1).0 . 7300.B0..."
  ";CR$(X,23);.8);HC(X,1);.T0..W1.HC(X,2
).HC(X,1):W1..((W1..05).10):W1.W1.10..0 
...13);W1;..0*.W1.HC(X,3).HC(X,1):W1..((
W1..05).10):W1.W1.10.B04...21);W1;..0>.W
1.HC(X,4).(HC(X,1).18)..0H.W1..((W1..05)
.1000):W1.W1.10..1R...27);W1;.)1\.W1.HC(
X,5).(HC(X,1).18).J1F.W1..((W1..05).1000
):W1.W1.10.W1P...33);W1.E1Z.. X.0 . ..L1
...X..1..."..TOTAL";.8);HC(0,1);..1..X.0
:.7190..1...850,23:.851,17:.828.F1..."..
PRESS A KEY..".V1...9200:.6800..1... SV$
."Y" . 7450..2... CH$.."Y" . 7450./2..SV
$."Y":OM$."CHANGES MADE - NO SAVE DONE".
S2..OP$."'Q' AGAIN TO VERIFY":.5000.M2..
."......END OF RUN":...2L.."...........A
.CTUAL OR A.V.ERAGE"..2V..9200:.K$.."A".
K$.."V" . 7500..2`.W$.K$:."...........CA
LCULATING":S$."Y"..3C..X.0.30:.Y.0.7:HC(
X,Y).0:.Y:.X..3J..CP.1.RC..3T..2200.33~.
HC(W9,1).HC(W9,1).1.L3..HC(W9,2).HC(W9,2
).EG.E3..HC(W9,3).HC(W9,3).BI.~3..HC(W9,
4).HC(W9,4).PA..3..HC(W9,5).HC(W9,5).BO.
.3..HC(W9,6).HC(W9,6).DB.I3..HC(W9,7).HC
(W9,7).OT..3..EG.0:BI.0:PA.0:BO.0:DB.0:O
T.0..3...CP..4...X.1.20:.HC(X,1).0.7630.
64D..Y.1.7:HC(0,Y).HC(0,Y). HC(X,Y):.Y.=
4N..X.Q4X.. W$."A" . 7710.M4...X.0.20:.H
C(X,1).0.7700.X4...Y.2.7..4..W..((HC(X,Y
).HC(X,1)).10)..4..HC(X,Y).W.10..4...Y.H
4...X:S$."N":LC.0:T$."N"..4..."... CRS  
RND EGL  BRD  PAR  BOG  DBL  >DB.."..5(.
.X.1.20:.HC(X,1).0.7810.352..CR$(X,23);.
6);HC(X,1);.B5<.Z.5:.Y.2.7.V5F...Z.5);HC
(X,Y);.M5P.Z.Z.5:.Y:LC.LC.1:..5Z..LC.15
 . 7800..5D.LC.0:.9190.A5N.."... CRS  RN
D EGL  BRD  PAR  BOG  DBL  >DB..".P5X.. 
T$."Y"...W5...X..5..."TOTAL";.6);HC(0,1)
;..6..X.0:T$."Y":.7740..6 ..9190:.5000.?
6@.."..";.8);"PERSONAL GOLF STATISTICS".
D6J...8);"..HANDICAP AND STATISTICS"..6T
..".. THIS PROGRAM ALLOWS YOU TO ENTER D
ATA"..6^.." ABOUT A ROUND OF GOLF.  YOU 
MAY SEE"..6H.." YOUR HANDICAP AND OTHER 
ASSORTED"..6R.." STATISTICS.".*7|.."..FO
LLOW THE MENUS TO ENTER OR MODIFY".Z7...
".INFORMATION.  A RED QUESTION MARK (.?.
)"..7...".WILL SHOW YOU WHERE THE CURSOR
 IS. IF"..7...".YOU ENTER LESS THAN THE 
MAX NUMBER OF".Z7...".CHARACTERS, .PRESS
 RETURN.."..8..."..YOU WILL BE ASKED TO 
ENTER THE SCORE ".68...".ON EACH HOLE, A
S WELL AS WHETHER YOU".C8B..".HIT THE GR
EEN AND FAIRWAY.  PRESSING"..8L..".RETUR
N FOR THE LAST TWO ASSUMES NO.".E8..EG.0
:BI.0:PA.0:BO.0:DB.0:OT.0:SC.0:CZ.0:HD.0
:PP.0.K8. ...8^". *** GETS FOR HF AND HG
..9`".198,0:A$."":AN$.""..9J".A$:.A$."" 
. 8810.,9T". A$.G(20) . 8810.>9~". A$.G(
13). ..K9."AN$.A$:..O9&#. *** GETS FOR S
CORES AND STUFF..9(#.198,0:A$."":AN$."":
TM.0..92#.A$:. A$."" . 9010..9<#. A$.G(2
0) . 9010.S9F#. A$.G(13) .TM.0.9010..9K#
. A$.G(13) . ...:P#. A$."0".A$."9". 9010
..:Z#.A$;. :D#AN$.AN$.A$:TM.TM.1.5:N#. T
M.CU(FP,3). ..?:X#.9010.I:.#.850,22:.851
,7:.828:."..PRESS A KEY.".:.#.K$:.K$.""
 . 9200..:.#...:.$. *** INP FOR MODIFY R
TN..:.$.198,0:AN$."":A$."":TM.0.U:B$.A$:
.A$."" . 9410..:E$. A$.G(20) . 9410..:G$
. A$.G(13)...&;L$.(A$."D".A$."P".A$."Q")
.TM.0.AN$.A$:..I;N$.(A$."N".A$."T").TM.0
.AN$.A$:..I;V$TM.TM.1:.A$."0".A$."9".944
0..;X$.A$."9".TM.1.TM.2:.9440..;Z$. A$."
0".TM.2 . ...;.$. 9410..;.$AN$.AN$.A$.D;
.$. TM.2 . ..N;.$.9410..;.%.15,EN,EM$..;
.%. EN.0 . ...;.%AB$."Y":...<.'. 2,13,20
,4,16,4,4,34,4.*<.'. 8,10,2,8,31,2.><$'.
 9,10,2,9,31,2.T<.'. 10,10,2,10,31,2.J<8
'. 11,10,2,11,31,2..<B'. 12,10,2,12,31,2
..<L'. 13,10,2,13,31,2..<V'. 14,10,2,14,
31,2.B<`'. 15,10,2,15,31,2.X<J'. 16,10,2
,16,31,2..<T'. 4,5,2,18,11,2..=~'. 18,21
,3,18,33,4..=.*. M/L FOR CURSOR.B=.*. 17
4,82,03,172,83,03,24,32,240,255,96...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL