GOLF DOC.C
FILE INFORMATION
FILENAME(S): GOLF DOC.C
FILE TYPE(S): PRG
FILE SIZE: 4.1K
FIRST SEEN: 2025-11-30 21:07:09
APPEARS ON: 1 disk(s)
FILE HASH
669fae00990d2736ace50aaf0c0638f2bd1ae98b1d06422a078cec8556006a03
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG MAY 85 C | GOLF DOC.C | PRG | DuncanTwain | 31 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 05 00 8F 20 4C 4F 41 44 45 52 20 41 |..&.... LOADER A| 00000010: 4E 44 20 44 4F 43 20 46 4F 52 20 47 4F 4C 46 20 |ND DOC FOR GOLF | 00000020: 53 59 53 54 45 4D 00 5C 08 07 00 8F 20 41 4C 20 |SYSTEM.\.... AL | 00000030: 4A 4F 48 4E 53 4F 4E 2D 2D 31 32 33 30 32 20 43 |JOHNSON--12302 C| 00000040: 4F 4C 45 52 41 49 4E 45 20 43 54 2D 52 45 53 54 |OLERAINE CT-REST| 00000050: 4F 4E 2C 20 56 41 20 32 32 30 39 31 00 7E 08 0A |ON, VA 22091.~..| 00000060: 00 44 4E 24 B2 22 11 11 11 11 11 11 11 11 11 11 |.DN$."..........| 00000070: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 B0 |............."..| 00000080: 08 0F 00 50 52 24 28 31 29 B2 22 43 4F 55 52 53 |...PR$(1)."COURS| 00000090: 45 20 55 50 44 41 54 45 22 3A 50 52 24 28 32 29 |E UPDATE":PR$(2)| 000000A0: B2 22 47 4F 4C 46 20 48 41 4E 44 49 43 41 50 22 |."GOLF HANDICAP"| 000000B0: 00 C8 08 21 00 97 35 33 32 38 31 2C 31 35 3A 97 |...!..53281,15:.| 000000C0: 35 33 32 38 30 2C 31 32 00 E7 08 23 00 99 22 93 |53280,12...#..".| 000000D0: 11 1C 22 3B A3 31 34 29 3B 22 47 4F 4C 46 20 53 |..";.14);"GOLF S| 000000E0: 59 53 54 45 4D 11 22 00 FE 08 28 00 99 22 1F 11 |YSTEM."...(.."..| 000000F0: 22 3B A3 31 38 29 3B 22 42 59 11 11 97 22 00 18 |";.18);"BY..."..| 00000100: 09 32 00 99 A3 31 34 29 3B 22 41 4C 20 4A 4F 48 |.2...14);"AL JOH| 00000110: 4E 53 4F 4E 11 11 11 22 00 2F 09 3C 00 99 A3 31 |NSON..."./.<...1| 00000120: 36 29 3B 22 1E 12 A9 A3 A3 A3 A3 A3 A3 DF 22 00 |6);"..........".| 00000130: 46 09 46 00 99 A3 31 36 29 3B 22 1E 12 20 20 20 |F.F...16);".. | 00000140: 20 20 20 20 20 22 00 61 09 50 00 99 A3 31 36 29 | ".a.P...16)| 00000150: 3B 22 1E 12 20 20 20 20 20 92 90 D7 1E 12 20 20 |;".. ..... | 00000160: 22 00 78 09 5A 00 99 A3 31 36 29 3B 22 1E 12 20 |".x.Z...16);".. | 00000170: 20 20 20 20 20 20 20 22 00 9A 09 64 00 99 A3 31 | "...d...1| 00000180: 36 29 3B 22 1E 12 20 20 92 90 23 20 31 1E 12 20 |6);".. ..# 1.. | 00000190: 20 20 22 3B 22 05 A9 A3 DF 22 00 B8 09 6E 00 99 | ";"...."...n..| 000001A0: A3 31 36 29 3B 22 1E 12 20 20 20 20 20 20 20 20 |.16);".. | 000001B0: 22 3B 22 05 20 20 20 22 00 D9 09 78 00 99 A3 31 |";". "...x...1| 000001C0: 36 29 3B 22 1E 12 20 20 20 20 20 20 20 20 22 3B |6);".. ";| 000001D0: 22 05 92 DF 12 20 92 A9 22 00 F1 09 8C 00 99 A3 |".... ..".......| 000001E0: 31 36 29 3B 22 1E DF 12 20 20 20 20 20 20 92 A9 |16);"... ..| 000001F0: 22 00 03 0A 96 00 99 A3 31 33 29 3B 22 05 12 A9 |".......13);"...| 00000200: 20 DF 22 00 16 0A A0 00 99 A3 31 33 29 3B 22 05 | .".......13);".| 00000210: DF 12 20 92 A9 22 00 27 0A AA 00 81 58 B2 31 A4 |.. ..".'....X.1.| 00000220: 31 35 30 30 3A 82 58 00 53 0A C8 00 99 22 93 11 |1500:.X.S...."..| 00000230: 1C 22 3B A3 31 33 29 3B 22 47 4F 4C 46 20 53 59 |.";.13);"GOLF SY| 00000240: 53 54 45 4D 20 20 20 20 20 20 20 96 53 43 52 4E |STEM .SCRN| 00000250: 20 31 22 00 84 0A D2 00 99 22 11 11 97 20 20 54 | 1"......"... T| 00000260: 48 45 53 45 20 50 52 4F 47 52 41 4D 53 20 57 45 |HESE PROGRAMS WE| 00000270: 52 45 20 49 4E 20 57 4F 52 4B 49 4E 47 20 4F 52 |RE IN WORKING OR| 00000280: 44 45 52 22 00 B3 0A DC 00 99 22 20 20 57 48 45 |DER"......" WHE| 00000290: 4E 20 50 4C 41 43 45 44 20 49 4E 20 54 48 45 20 |N PLACED IN THE | 000002A0: 50 55 42 4C 49 43 20 44 4F 4D 41 49 4E 2E 20 20 |PUBLIC DOMAIN. | 000002B0: 49 46 22 00 DC 0A E6 00 99 22 20 20 59 4F 55 20 |IF"......" YOU | 000002C0: 48 41 56 45 20 50 52 4F 42 4C 45 4D 53 2C 20 59 |HAVE PROBLEMS, Y| 000002D0: 4F 55 20 4D 41 59 20 48 41 56 45 22 00 08 0B F0 |OU MAY HAVE"....| 000002E0: 00 99 22 1D 1D 52 45 43 45 49 56 45 44 20 41 20 |.."..RECEIVED A | 000002F0: 42 41 44 20 43 4F 50 59 20 46 52 4F 4D 20 53 4F |BAD COPY FROM SO| 00000300: 4D 45 4F 4E 45 2E 11 22 00 36 0B FA 00 99 22 1D |MEONE..".6....".| 00000310: 1D 49 46 20 59 4F 55 20 4C 49 4B 45 20 54 48 45 |.IF YOU LIKE THE| 00000320: 20 50 52 4F 47 52 41 4D 53 20 4F 52 20 48 41 56 | PROGRAMS OR HAV| 00000330: 45 20 41 4E 59 22 00 60 0B 04 01 99 22 1D 1D 53 |E ANY".`...."..S| 00000340: 55 47 47 45 53 54 49 4F 4E 53 2C 20 4C 45 54 20 |UGGESTIONS, LET | 00000350: 4D 45 20 4B 4E 4F 57 2E 20 20 49 54 20 49 53 22 |ME KNOW. IT IS"| 00000360: 00 8F 0B 0E 01 99 22 1D 1D 49 4E 54 45 52 45 53 |......"..INTERES| 00000370: 54 49 4E 47 20 54 4F 20 53 45 45 20 57 48 45 52 |TING TO SEE WHER| 00000380: 45 20 54 48 45 53 45 20 54 48 49 4E 47 53 22 00 |E THESE THINGS".| 00000390: A1 0B 18 01 99 22 1D 1D 47 45 54 20 54 4F 2E 11 |....."..GET TO..| 000003A0: 22 00 BC 0B 22 01 99 22 11 22 3B A3 31 33 29 3B |"..."..".";.13);| 000003B0: 22 41 4C 20 4A 4F 48 4E 53 4F 4E 22 00 DC 0B 2C |"AL JOHNSON"...,| 000003C0: 01 99 A3 31 33 29 3B 22 31 32 33 30 32 20 43 4F |...13);"12302 CO| 000003D0: 4C 45 52 41 49 4E 45 20 43 54 2E 22 00 FC 0B 36 |LERAINE CT."...6| 000003E0: 01 99 A3 31 33 29 3B 22 52 45 53 54 4F 4E 2C 20 |...13);"RESTON, | 000003F0: 56 41 20 20 20 20 32 32 30 39 31 22 00 06 0C 40 |VA 22091"...@| 00000400: 01 8D 39 30 30 30 00 35 0C 4A 01 99 22 93 11 1C |..9000.5.J.."...| 00000410: 22 3B A3 31 33 29 3B 22 47 4F 4C 46 20 53 59 53 |";.13);"GOLF SYS| 00000420: 54 45 4D 20 20 20 20 20 20 20 96 53 43 52 4E 20 |TEM .SCRN | 00000430: 32 11 11 97 22 00 5E 0C 54 01 99 22 1D 1D 54 48 |2...".^.T.."..TH| 00000440: 45 20 47 4F 4C 46 20 53 59 53 54 45 4D 20 43 4F |E GOLF SYSTEM CO| 00000450: 4E 53 49 53 54 53 20 4F 46 20 54 57 4F 22 00 89 |NSISTS OF TWO"..| 00000460: 0C 5E 01 99 22 1D 1D 50 52 4F 47 52 41 4D 53 20 |.^.."..PROGRAMS | 00000470: 57 48 49 43 48 20 41 4C 4C 4F 57 20 59 4F 55 20 |WHICH ALLOW YOU | 00000480: 54 4F 20 45 4E 54 45 52 22 00 B3 0C 68 01 99 22 |TO ENTER"...h.."| 00000490: 1D 1D 59 4F 55 52 20 47 4F 4C 46 20 53 43 4F 52 |..YOUR GOLF SCOR| 000004A0: 45 53 2C 20 43 41 4C 43 55 4C 41 54 45 20 59 4F |ES, CALCULATE YO| 000004B0: 55 52 22 00 E2 0C 72 01 99 22 1D 1D 48 41 4E 44 |UR"...r.."..HAND| 000004C0: 49 43 41 50 20 41 4E 44 20 53 45 45 20 41 53 53 |ICAP AND SEE ASS| 000004D0: 4F 52 54 45 44 20 53 54 41 54 49 53 54 49 43 53 |ORTED STATISTICS| 000004E0: 2E 22 00 0E 0D 7C 01 99 22 1D 1D 11 54 48 49 53 |."...|.."...THIS| 000004F0: 20 50 52 4F 47 52 41 4D 20 49 53 20 4E 4F 54 20 | PROGRAM IS NOT | 00000500: 52 45 51 55 49 52 45 44 2C 20 42 55 54 22 00 3C |REQUIRED, BUT".<| 00000510: 0D 86 01 99 22 1D 1D 43 4F 4E 54 41 49 4E 53 20 |...."..CONTAINS | 00000520: 44 4F 43 55 4D 45 4E 54 41 54 49 4F 4E 20 41 4E |DOCUMENTATION AN| 00000530: 44 20 57 49 4C 4C 20 4C 4F 41 44 22 00 61 0D 90 |D WILL LOAD".a..| 00000540: 01 99 22 1D 1D 41 4E 44 20 52 55 4E 20 54 48 45 |.."..AND RUN THE| 00000550: 20 4F 54 48 45 52 20 50 52 4F 47 52 41 4D 53 2E | OTHER PROGRAMS.| 00000560: 22 00 7D 0D 9A 01 99 22 11 1D 1D 54 48 45 20 50 |".}...."...THE P| 00000570: 52 4F 47 52 41 4D 53 20 41 52 45 3A 22 00 A8 0D |ROGRAMS ARE:"...| 00000580: A4 01 99 22 11 1D 1D 1D 43 4F 55 52 53 45 20 55 |..."....COURSE U| 00000590: 50 44 41 54 45 3A 20 20 45 53 54 41 42 4C 49 53 |PDATE: ESTABLIS| 000005A0: 48 20 50 41 52 53 2C 22 00 CF 0D AE 01 99 22 1D |H PARS,"......".| 000005B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 000005C0: 1D 1D 52 41 54 49 4E 47 2C 20 45 54 43 2E 22 00 |..RATING, ETC.".| 000005D0: FD 0D B8 01 99 22 11 1D 1D 1D 47 4F 4C 46 20 48 |....."....GOLF H| 000005E0: 41 4E 44 49 43 41 50 3A 20 20 45 4E 54 45 52 20 |ANDICAP: ENTER | 000005F0: 52 4F 55 4E 44 53 2C 20 43 41 4C 43 22 00 20 0E |ROUNDS, CALC". .| 00000600: C2 01 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..."............| 00000610: 1D 1D 1D 1D 1D 1D 1D 48 41 4E 44 49 43 41 50 22 |.......HANDICAP"| 00000620: 00 2A 0E CC 01 8D 39 32 30 30 00 41 0E F4 01 99 |.*....9200.A....| 00000630: 22 93 1C 11 22 3B A3 31 38 29 3B 22 4D 45 4E 55 |"...";.18);"MENU| 00000640: 22 00 60 0E FE 01 99 22 11 20 20 20 20 20 20 1F |".`....". .| 00000650: 4C 4F 41 44 22 3B A3 33 32 29 3B 22 44 4F 43 22 |LOAD";.32);"DOC"| 00000660: 00 90 0E 08 02 99 22 11 97 22 3B A3 37 29 3B 22 |......"..";.7);"| 00000670: 31 22 3B A3 31 34 29 3B 22 43 4F 55 52 53 45 20 |1";.14);"COURSE | 00000680: 55 50 44 41 54 45 22 3B A3 33 33 29 3B 22 41 22 |UPDATE";.33);"A"| 00000690: 00 C0 0E 12 02 99 22 11 97 22 3B A3 37 29 3B 22 |......"..";.7);"| 000006A0: 32 22 3B A3 31 34 29 3B 22 47 4F 4C 46 20 48 41 |2";.14);"GOLF HA| 000006B0: 4E 44 49 43 41 50 22 3B A3 33 33 29 3B 22 42 22 |NDICAP";.33);"B"| 000006C0: 00 E3 0E 17 02 99 22 11 11 1D 1D 1D 1D 1D 1D 1D |......".........| 000006D0: 1C 12 22 3B 4F 4D 24 3B 22 92 97 22 3A 4F 4D 24 |..";OM$;"..":OM$| 000006E0: B2 22 22 00 FA 0E 1C 02 A1 20 4B 24 3A 8B 20 4B |.""...... K$:. K| 000006F0: 24 B2 22 22 20 A7 20 35 34 30 00 36 0F 26 02 8B |$."" . 540.6.&..| 00000700: 20 4B 24 B3 B1 22 31 22 AF 4B 24 B3 B1 22 32 22 | K$.."1".K$.."2"| 00000710: AF 4B 24 B3 B1 22 41 22 AF 4B 24 B3 B1 22 42 22 |.K$.."A".K$.."B"| 00000720: A7 4F 4D 24 B2 22 42 41 44 20 43 48 4F 49 43 45 |.OM$."BAD CHOICE| 00000730: 22 3A 89 35 30 30 00 4C 0F 30 02 4B B2 C5 28 4B |":.500.L.0.K..(K| 00000740: 24 29 3A 8B 4B B2 30 A7 20 38 30 30 00 63 0F 58 |$):.K.0. 800.c.X| 00000750: 02 99 22 93 11 11 11 11 22 3A 99 22 4E 45 57 11 |..".....":."NEW.| 00000760: 11 11 22 00 8B 0F 62 02 99 22 4C 4F 41 44 22 C7 |.."...b.."LOAD".| 00000770: 28 33 34 29 22 30 3A 22 50 52 24 28 4B 29 C7 28 |(34)"0:"PR$(K).(| 00000780: 33 34 29 22 2C 38 11 11 11 11 22 00 A7 0F 6C 02 |34)",8...."...l.| 00000790: 99 22 52 55 4E 22 3A 99 22 91 91 91 91 91 91 91 |."RUN":.".......| 000007A0: 91 91 91 91 91 91 22 00 C1 0F 76 02 81 58 B2 36 |......"...v..X.6| 000007B0: 33 31 20 A4 20 36 33 34 3A 97 58 2C 31 33 3A 82 |31 . 634:.X,13:.| 000007C0: 58 00 CE 0F 80 02 97 31 39 38 2C 34 3A 80 00 E6 |X......198,4:...| 000007D0: 0F 20 03 8B 20 4B 24 B2 22 41 22 A7 8D 31 30 30 |. .. K$."A"..100| 000007E0: 30 3A 89 35 30 30 00 FE 0F 2A 03 8B 20 4B 24 B2 |0:.500...*.. K$.| 000007F0: 22 42 22 A7 8D 32 30 30 30 3A 89 35 30 30 00 18 |"B"..2000:.500..| 00000800: 10 34 03 4F 4D 24 B2 22 42 41 44 20 43 48 4F 49 |.4.OM$."BAD CHOI| 00000810: 43 45 22 3A 89 35 30 30 00 43 10 E8 03 99 22 93 |CE":.500.C....".| 00000820: 11 1C 22 3B A3 31 34 29 3B 22 43 4F 55 52 53 45 |..";.14);"COURSE| 00000830: 20 55 50 44 41 54 45 20 20 20 20 96 53 43 52 4E | UPDATE .SCRN| 00000840: 20 31 22 00 72 10 F2 03 99 22 11 11 97 1D 1D 54 | 1".r....".....T| 00000850: 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 20 55 |HIS PROGRAM IS U| 00000860: 53 45 44 20 54 4F 20 44 45 46 49 4E 45 20 54 48 |SED TO DEFINE TH| 00000870: 45 22 00 9D 10 FC 03 99 22 1D 1D 43 4F 55 52 53 |E"......"..COURS| 00000880: 45 53 20 50 4C 41 59 45 44 2E 20 20 41 20 43 4F |ES PLAYED. A CO| 00000890: 55 52 53 45 20 4D 55 53 54 20 42 45 22 00 C9 10 |URSE MUST BE"...| 000008A0: 06 04 99 22 1D 1D 45 4E 54 45 52 45 44 20 57 49 |..."..ENTERED WI| 000008B0: 54 48 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |TH THIS PROGRAM | 000008C0: 50 52 49 4F 52 20 54 4F 22 00 E7 10 10 04 99 22 |PRIOR TO"......"| 000008D0: 1D 1D 45 4E 54 45 52 49 4E 47 20 41 4E 59 20 52 |..ENTERING ANY R| 000008E0: 4F 55 4E 44 53 2E 22 00 15 11 1A 04 99 22 11 1D |OUNDS."......"..| 000008F0: 1D 54 41 4B 45 20 54 48 45 20 43 4F 55 52 53 45 |.TAKE THE COURSE| 00000900: 20 53 43 4F 52 45 43 41 52 44 20 41 4E 44 20 45 | SCORECARD AND E| 00000910: 4E 54 45 52 22 00 46 11 24 04 99 22 1D 1D 54 48 |NTER".F.$.."..TH| 00000920: 45 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 41 53 |E INFORMATION AS| 00000930: 20 50 52 4F 4D 50 54 45 44 20 42 59 20 54 48 45 | PROMPTED BY THE| 00000940: 20 1C 3F 97 2E 22 00 75 11 2E 04 99 22 1D 1D 4E | .?..".u...."..N| 00000950: 4F 54 45 20 54 48 41 54 20 49 4E 20 4D 41 4E 59 |OTE THAT IN MANY| 00000960: 20 43 41 53 45 53 20 52 45 54 55 52 4E 20 49 53 | CASES RETURN IS| 00000970: 20 4E 4F 54 22 00 A2 11 38 04 99 22 1D 1D 52 45 | NOT"...8.."..RE| 00000980: 51 55 49 52 45 44 2E 20 20 59 4F 55 20 4D 55 53 |QUIRED. YOU MUS| 00000990: 54 20 45 4E 54 45 52 20 54 4F 54 41 4C 20 50 41 |T ENTER TOTAL PA| 000009A0: 52 22 00 CF 11 42 04 99 22 1D 1D 46 4F 52 20 54 |R"...B.."..FOR T| 000009B0: 48 45 20 43 4F 55 52 53 45 20 53 4F 20 49 54 20 |HE COURSE SO IT | 000009C0: 43 41 4E 20 42 45 20 55 53 45 44 20 41 53 22 00 |CAN BE USED AS".| 000009D0: E7 11 4C 04 99 22 1D 1D 41 20 43 52 4F 53 53 20 |..L.."..A CROSS | 000009E0: 43 48 45 43 4B 2E 22 00 13 12 56 04 99 22 11 1D |CHECK."...V.."..| 000009F0: 1D 49 46 20 59 4F 55 20 4D 41 4B 45 20 41 20 4D |.IF YOU MAKE A M| 00000A00: 49 53 54 41 4B 45 20 44 55 52 49 4E 47 20 44 41 |ISTAKE DURING DA| 00000A10: 54 41 22 00 44 12 60 04 99 22 1D 1D 45 4E 54 52 |TA".D.`.."..ENTR| 00000A20: 59 2C 20 55 53 45 20 12 46 31 92 20 54 4F 20 44 |Y, USE .F1. TO D| 00000A30: 45 4C 45 54 45 2E 20 20 54 48 45 20 44 45 4C 20 |ELETE. THE DEL | 00000A40: 4B 45 59 22 00 59 12 6A 04 99 22 1D 1D 57 4F 4E |KEY".Y.j.."..WON| 00000A50: 27 54 20 57 4F 52 4B 2E 22 00 63 12 74 04 8D 39 |'T WORK.".c.t..9| 00000A60: 30 30 30 00 8D 12 B0 04 99 22 93 11 1C 22 3B A3 |000......"...";.| 00000A70: 31 34 29 3B 22 43 4F 55 52 53 45 20 55 50 44 41 |14);"COURSE UPDA| 00000A80: 54 45 20 20 20 96 53 43 52 4E 20 32 22 00 BB 12 |TE .SCRN 2"...| 00000A90: BA 04 99 22 11 11 1D 1D 97 49 46 20 59 4F 55 20 |...".....IF YOU | 00000AA0: 4E 45 45 44 20 54 4F 20 4D 4F 44 49 46 59 20 41 |NEED TO MODIFY A| 00000AB0: 4E 20 45 4E 54 52 59 2C 20 41 22 00 EA 12 C4 04 |N ENTRY, A".....| 00000AC0: 99 22 1D 1D 53 45 50 41 52 41 54 45 20 4D 45 4E |."..SEPARATE MEN| 00000AD0: 55 20 4C 49 4E 45 20 57 49 4C 4C 20 41 50 50 45 |U LINE WILL APPE| 00000AE0: 41 52 2E 20 20 4D 41 4B 45 22 00 13 13 CE 04 99 |AR. MAKE"......| 00000AF0: 22 1D 1D 59 4F 55 52 20 43 48 41 4E 47 45 53 2C |"..YOUR CHANGES,| 00000B00: 20 54 48 45 4E 20 45 4E 54 45 52 20 27 51 27 20 | THEN ENTER 'Q' | 00000B10: 54 4F 22 00 37 13 D8 04 99 22 1D 1D 52 45 54 55 |TO".7...."..RETU| 00000B20: 52 4E 20 54 4F 20 54 48 45 20 4E 4F 52 4D 41 4C |RN TO THE NORMAL| 00000B30: 20 4D 4F 44 45 2E 22 00 43 13 E2 04 8D 39 32 30 | MODE.".C....920| 00000B40: 30 3A 8E 00 6D 13 D0 07 99 22 93 11 1C 22 3B A3 |0:..m...."...";.| 00000B50: 31 34 29 3B 22 47 4F 4C 46 20 48 41 4E 44 49 43 |14);"GOLF HANDIC| 00000B60: 41 50 20 20 20 96 53 43 52 4E 20 31 22 00 9A 13 |AP .SCRN 1"...| 00000B70: DA 07 99 22 1D 1D 11 11 97 54 48 49 53 20 50 52 |...".....THIS PR| 00000B80: 4F 47 52 41 4D 20 41 4C 4C 4F 57 53 20 59 4F 55 |OGRAM ALLOWS YOU| 00000B90: 20 54 4F 20 45 4E 54 45 52 22 00 C8 13 E4 07 99 | TO ENTER"......| 00000BA0: 22 1D 1D 52 4F 55 4E 44 53 20 4F 46 20 47 4F 4C |"..ROUNDS OF GOL| 00000BB0: 46 20 41 4E 44 20 53 45 45 20 53 54 41 54 49 53 |F AND SEE STATIS| 00000BC0: 54 49 43 53 20 4F 4E 22 00 D7 13 EE 07 99 22 1D |TICS ON"......".| 00000BD0: 1D 54 48 45 4D 2E 22 00 07 14 F8 07 99 22 11 1D |.THEM."......"..| 00000BE0: 1D 54 48 45 20 4D 45 4E 55 20 57 49 4C 4C 20 41 |.THE MENU WILL A| 00000BF0: 4C 4C 4F 57 20 59 4F 55 20 54 4F 20 4C 4F 41 44 |LLOW YOU TO LOAD| 00000C00: 2C 20 53 41 56 45 22 00 34 14 02 08 99 22 1D 1D |, SAVE".4...."..| 00000C10: 41 4E 44 20 42 41 43 4B 55 50 20 54 48 45 20 46 |AND BACKUP THE F| 00000C20: 49 4C 45 2E 20 20 54 48 45 53 45 20 4F 50 54 49 |ILE. THESE OPTI| 00000C30: 4F 4E 53 22 00 60 14 0C 08 99 22 1D 1D 53 48 4F |ONS".`...."..SHO| 00000C40: 55 4C 44 20 42 45 20 53 45 4C 46 20 45 58 50 4C |ULD BE SELF EXPL| 00000C50: 41 4E 41 54 4F 52 59 2E 20 20 54 48 45 52 45 22 |ANATORY. THERE"| 00000C60: 00 89 14 16 08 99 22 1D 1D 41 52 45 20 54 48 52 |......"..ARE THR| 00000C70: 45 45 20 4F 54 48 45 52 20 4F 50 54 49 4F 4E 53 |EE OTHER OPTIONS| 00000C80: 20 54 4F 20 55 53 45 2E 22 00 B8 14 20 08 99 22 | TO USE."... .."| 00000C90: 11 1D 1D 1C 52 4F 55 4E 44 53 97 20 49 53 20 55 |....ROUNDS. IS U| 00000CA0: 53 45 44 20 54 4F 20 45 4E 54 45 52 2C 20 52 45 |SED TO ENTER, RE| 00000CB0: 56 49 45 57 20 4F 52 22 00 E6 14 2A 08 99 22 1D |VIEW OR"...*..".| 00000CC0: 1D 4D 4F 44 49 46 59 20 52 4F 55 4E 44 53 20 50 |.MODIFY ROUNDS P| 00000CD0: 4C 41 59 45 44 2E 20 20 59 4F 55 20 43 41 4E 20 |LAYED. YOU CAN | 00000CE0: 45 4E 54 45 52 22 00 13 15 34 08 99 22 1D 1D 53 |ENTER"...4.."..S| 00000CF0: 43 4F 52 45 53 20 41 4E 44 20 54 48 45 20 4E 55 |CORES AND THE NU| 00000D00: 4D 42 45 52 20 4F 46 20 47 52 45 45 4E 53 20 41 |MBER OF GREENS A| 00000D10: 4E 44 22 00 40 15 3E 08 99 22 1D 1D 46 41 49 52 |ND".@.>.."..FAIR| 00000D20: 57 41 59 53 20 48 49 54 20 49 4E 20 52 45 47 55 |WAYS HIT IN REGU| 00000D30: 4C 41 54 49 4F 4E 2E 20 20 49 46 20 59 4F 55 22 |LATION. IF YOU"| 00000D40: 00 6C 15 48 08 99 22 1D 1D 57 49 53 48 2C 20 48 |.l.H.."..WISH, H| 00000D50: 49 54 20 52 45 54 55 52 4E 20 54 4F 20 44 45 46 |IT RETURN TO DEF| 00000D60: 41 55 4C 54 20 54 4F 20 27 4E 27 22 00 98 15 52 |AULT TO 'N'"...R| 00000D70: 08 99 22 1D 1D 49 46 20 59 4F 55 20 4D 4F 44 49 |.."..IF YOU MODI| 00000D80: 46 59 20 41 20 52 4F 55 4E 44 2C 20 41 20 44 49 |FY A ROUND, A DI| 00000D90: 46 46 45 52 45 4E 54 22 00 C2 15 5C 08 99 22 1D |FFERENT"...\..".| 00000DA0: 1D 4D 45 4E 55 20 4C 49 4E 45 20 57 49 4C 4C 20 |.MENU LINE WILL | 00000DB0: 41 50 50 45 41 52 2E 20 20 59 4F 55 20 57 49 4C |APPEAR. YOU WIL| 00000DC0: 4C 22 00 EF 15 66 08 99 22 1D 1D 52 45 4D 41 49 |L"...f.."..REMAI| 00000DD0: 4E 20 49 4E 20 54 48 45 20 43 48 41 4E 47 45 20 |N IN THE CHANGE | 00000DE0: 4D 4F 44 45 20 55 4E 54 49 4C 20 59 4F 55 22 00 |MODE UNTIL YOU".| 00000DF0: 03 16 70 08 99 22 1D 1D 45 4E 54 45 52 20 27 51 |..p.."..ENTER 'Q| 00000E00: 27 2E 22 00 0D 16 7A 08 8D 39 30 30 30 00 36 16 |'."...z..9000.6.| 00000E10: 98 08 99 22 93 11 1C 22 3B A3 31 34 29 22 47 4F |..."...";.14)"GO| 00000E20: 4C 46 20 48 41 4E 44 49 43 41 50 20 20 20 96 53 |LF HANDICAP .S| 00000E30: 43 52 4E 20 32 22 00 67 16 A2 08 99 22 97 11 11 |CRN 2".g...."...| 00000E40: 1D 1D 1C 48 41 4E 44 49 43 41 50 97 20 2D 20 43 |...HANDICAP. - C| 00000E50: 41 4C 43 55 4C 41 54 45 53 20 41 4E 44 20 44 49 |ALCULATES AND DI| 00000E60: 53 50 4C 41 59 53 22 00 93 16 AC 08 99 22 1D 1D |SPLAYS"......"..| 00000E70: 59 4F 55 52 20 48 41 4E 44 49 43 41 50 20 55 53 |YOUR HANDICAP US| 00000E80: 49 4E 47 20 28 49 20 54 48 49 4E 4B 29 20 55 53 |ING (I THINK) US| 00000E90: 47 41 22 00 C0 16 B6 08 99 22 1D 1D 4D 45 54 48 |GA"......"..METH| 00000EA0: 4F 44 53 2E 20 20 48 41 4E 44 49 43 41 50 53 20 |ODS. HANDICAPS | 00000EB0: 43 41 4E 20 42 45 20 44 4F 4E 45 20 46 4F 52 22 |CAN BE DONE FOR"| 00000EC0: 00 EB 16 C0 08 99 22 1D 1D 41 4C 4C 20 43 4F 55 |......"..ALL COU| 00000ED0: 52 53 45 53 20 4F 52 20 4F 4E 45 20 49 4E 20 50 |RSES OR ONE IN P| 00000EE0: 41 52 54 49 43 55 4C 41 52 2E 22 00 12 17 CA 08 |ARTICULAR.".....| 00000EF0: 99 22 1D 1D 46 49 56 45 20 52 4F 55 4E 44 53 20 |."..FIVE ROUNDS | 00000F00: 4D 55 53 54 20 42 45 20 50 4C 41 59 45 44 20 54 |MUST BE PLAYED T| 00000F10: 4F 22 00 31 17 D4 08 99 22 1D 1D 45 53 54 41 42 |O".1...."..ESTAB| 00000F20: 4C 49 53 48 20 41 20 48 41 4E 44 49 43 41 50 2E |LISH A HANDICAP.| 00000F30: 22 00 62 17 DE 08 99 22 11 1D 1D 1C 53 54 41 54 |".b...."....STAT| 00000F40: 49 53 54 49 43 53 97 20 2D 20 53 48 4F 57 53 20 |ISTICS. - SHOWS | 00000F50: 41 56 45 52 41 47 45 20 4E 55 4D 42 45 52 20 4F |AVERAGE NUMBER O| 00000F60: 46 22 00 90 17 E8 08 99 22 1D 1D 53 54 52 4F 4B |F"......"..STROK| 00000F70: 45 53 2C 20 47 52 45 45 4E 53 20 48 49 54 20 41 |ES, GREENS HIT A| 00000F80: 4E 44 20 50 55 54 54 53 20 41 54 20 54 48 45 22 |ND PUTTS AT THE"| 00000F90: 00 B1 17 F2 08 99 22 1D 1D 56 41 52 49 4F 55 53 |......"..VARIOUS| 00000FA0: 20 43 4F 55 52 53 45 53 20 50 4C 41 59 45 44 2E | COURSES PLAYED.| 00000FB0: 22 00 BD 17 FC 08 8D 39 32 30 30 3A 8E 00 C8 17 |"......9200:....| 00000FC0: 27 23 99 22 93 22 3A 80 00 F6 17 28 23 99 22 13 |'#.".":....(#.".| 00000FD0: 22 3B 44 4E 24 3B 22 1C 12 1D 1D 1D 1D 1D 1D 1D |";DN$;".........| 00000FE0: 1D 1D 1D 1D 4D 4F 52 45 2D 50 52 45 53 53 20 41 |....MORE-PRESS A| 00000FF0: 20 4B 45 59 97 22 00 0A 18 32 23 A1 4B 24 3A 8B | KEY."...2#.K$:.| 00001000: 4B 24 B2 22 22 A7 39 30 31 30 00 10 18 3C 23 8E |K$."".9010...<#.| 00001010: 00 3C 18 F0 23 99 22 13 22 3B 44 4E 24 3B 22 1C |.<..#.".";DN$;".| 00001020: 12 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 4E 44 2D 50 |...........END-P| 00001030: 52 45 53 53 20 41 20 4B 45 59 97 22 00 50 18 FA |RESS A KEY.".P..| 00001040: 23 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 39 32 31 30 |#.K$:.K$."".9210| 00001050: 00 56 18 04 24 8E 00 00 00 |.V..$.... |
..&.... LOADER AND DOC FOR GOLF SYSTEM.\
.... AL JOHNSON--12302 COLERAINE CT-REST
ON, VA 22091.~...DN$."..................
.....".....PR$(1)."COURSE UPDATE":PR$(2)
."GOLF HANDICAP".H.!..53281,15:.53280,12
...#.."...";.14);"GOLF SYSTEM."...(.."..
";.18);"BY..."...2...14);"AL JOHNSON..."
./.<...16);"..........".F.F...16);"..
".A.P...16);".. ..W.. ".X.Z...
16);".. "...D...16);".. ..# 1..
";"...."...N...16);".. ";". "
.Y.X...16);".. ";".... ..".......
16);"... ..".......13);"... ."... .
..13);"... ..".'....X.1.1500:.X.S.H.."..
.";.13);"GOLF SYSTEM .SCRN 1"...R.
."... THESE PROGRAMS WERE IN WORKING OR
DER"......" WHEN PLACED IN THE PUBLIC D
OMAIN. IF"......" YOU HAVE PROBLEMS, Y
OU MAY HAVE"......"..RECEIVED A BAD COPY
FROM SOMEONE..".6...."..IF YOU LIKE THE
PROGRAMS OR HAVE ANY".`...."..SUGGESTIO
NS, LET ME KNOW. IT IS"......"..INTERES
TING TO SEE WHERE THESE THINGS"......"..
GET TO.."..."..".";.13);"AL JOHNSON"...,
...13);"12302 COLERAINE CT."...6...13);"
RESTON, VA 22091"...@..9000.5.J.."...
";.13);"GOLF SYSTEM .SCRN 2...".^.
T.."..THE GOLF SYSTEM CONSISTS OF TWO"..
.^.."..PROGRAMS WHICH ALLOW YOU TO ENTER
"...H.."..YOUR GOLF SCORES, CALCULATE YO
UR"...R.."..HANDICAP AND SEE ASSORTED ST
ATISTICS."...|.."...THIS PROGRAM IS NOT
REQUIRED, BUT".<...."..CONTAINS DOCUMENT
ATION AND WILL LOAD".A...."..AND RUN THE
OTHER PROGRAMS.".}...."...THE PROGRAMS
ARE:"......"....COURSE UPDATE: ESTABLIS
H PARS,".O...."...................RATING
, ETC."......"....GOLF HANDICAP: ENTER
ROUNDS, CALC". .B.."...................H
ANDICAP".*.L..9200.A...."...";.18);"MENU
".`....". .LOAD";.32);"DOC"......".
.";.7);"1";.14);"COURSE UPDATE";.33);"A"
......"..";.7);"2";.14);"GOLF HANDICAP";
.33);"B"......"...........";OM$;"..":OM$
.""...... K$:. K$."" . 540.6.&.. K$.."1"
.K$.."2".K$.."A".K$.."B".OM$."BAD CHOICE
":.500.L.0.K.E(K$):.K.0. 800.C.X..".....
":."NEW..."...B.."LOAD"G(34)"0:"PR$(K)G(
34)",8...."...L.."RUN":.".............".
A.V..X.631 . 634:.X,13:.X.N....198,4:...
. .. K$."A"..1000:.500...*.. K$."B"..200
0:.500...4.OM$."BAD CHOICE":.500.C....".
..";.14);"COURSE UPDATE .SCRN 1".R...
.".....THIS PROGRAM IS USED TO DEFINE TH
E"......"..COURSES PLAYED. A COURSE MUS
T BE".I...."..ENTERED WITH THIS PROGRAM
PRIOR TO"......"..ENTERING ANY ROUNDS.".
....."...TAKE THE COURSE SCORECARD AND E
NTER".F.$.."..THE INFORMATION AS PROMPTE
D BY THE .?..".U...."..NOTE THAT IN MANY
CASES RETURN IS NOT"...8.."..REQUIRED.
YOU MUST ENTER TOTAL PAR".O.B.."..FOR T
HE COURSE SO IT CAN BE USED AS"...L.."..
A CROSS CHECK."...V.."...IF YOU MAKE A M
ISTAKE DURING DATA".D.`.."..ENTRY, USE .
F1. TO DELETE. THE DEL KEY".Y.J.."..WON
'T WORK.".C.T..9000......"...";.14);"COU
RSE UPDATE .SCRN 2"......".....IF YOU
NEED TO MODIFY AN ENTRY, A"...D.."..SEPA
RATE MENU LINE WILL APPEAR. MAKE"...N..
"..YOUR CHANGES, THEN ENTER 'Q' TO".7.X.
."..RETURN TO THE NORMAL MODE.".C....920
0:..M.P.."...";.14);"GOLF HANDICAP .SC
RN 1"...Z..".....THIS PROGRAM ALLOWS YOU
TO ENTER".H...."..ROUNDS OF GOLF AND SE
E STATISTICS ON".W...."..THEM."......"..
.THE MENU WILL ALLOW YOU TO LOAD, SAVE".
4...."..AND BACKUP THE FILE. THESE OPTI
ONS".`...."..SHOULD BE SELF EXPLANATORY.
THERE"......"..ARE THREE OTHER OPTIONS
TO USE."... .."....ROUNDS. IS USED TO E
NTER, REVIEW OR"...*.."..MODIFY ROUNDS P
LAYED. YOU CAN ENTER"...4.."..SCORES AN
D THE NUMBER OF GREENS AND".@.>.."..FAIR
WAYS HIT IN REGULATION. IF YOU".L.H..".
.WISH, HIT RETURN TO DEFAULT TO 'N'"...R
.."..IF YOU MODIFY A ROUND, A DIFFERENT"
.B.\.."..MENU LINE WILL APPEAR. YOU WIL
L"...F.."..REMAIN IN THE CHANGE MODE UNT
IL YOU"...P.."..ENTER 'Q'."...Z..9000.6.
..."...";.14)"GOLF HANDICAP .SCRN 2".G
...."......HANDICAP. - CALCULATES AND DI
SPLAYS"......"..YOUR HANDICAP USING (I T
HINK) USGA"......"..METHODS. HANDICAPS
CAN BE DONE FOR"......"..ALL COURSES OR
ONE IN PARTICULAR."...J.."..FIVE ROUNDS
MUST BE PLAYED TO".1.T.."..ESTABLISH A H
ANDICAP.".B...."....STATISTICS. - SHOWS
AVERAGE NUMBER OF"......"..STROKES, GREE
NS HIT AND PUTTS AT THE"......"..VARIOUS
COURSES PLAYED."......9200:..H.'#.".":.
...(#.".";DN$;".............MORE-PRESS A
KEY."...2#.K$:.K$."".9010...<#..<..#.".
";DN$;"............END-PRESS A KEY.".P..
#.K$:.K$."".9210.V..$....
> CLICK IMAGE PREVIEW FOR FULL MODAL