COURSE UPDATE
FILE INFORMATION
FILENAME(S): COURSE UPDATE
FILE TYPE(S): PRG
FILE SIZE: 5.3K
FIRST SEEN: 2025-11-30 21:07:09
APPEARS ON: 1 disk(s)
FILE HASH
c9d23750f5bc258240cf6dfd469bba5129a4cb15910e4938915d187547a060a4
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG MAY 85 C | COURSE UPDATE | PRG | DuncanTwain | 32 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 15 08 0A 00 8F 20 43 4F 55 52 53 45 20 55 |....... COURSE U| 00000010: 50 44 41 54 45 00 26 08 14 00 8F 20 41 4C 20 4A |PDATE.&.... 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 9D |YOU LIKE IT OR..| 00000080: 08 28 00 8F 20 49 46 20 59 4F 55 20 48 41 56 45 |.(.. IF YOU HAVE| 00000090: 20 53 55 47 47 45 53 54 49 4F 4E 53 2E 00 B5 08 | SUGGESTIONS....| 000000A0: 64 00 97 35 33 32 38 30 2C 31 31 3A 97 35 33 32 |d..53280,11:.532| 000000B0: 38 31 2C 31 35 00 BF 08 6E 00 8D 38 30 30 30 00 |81,15...n..8000.| 000000C0: E1 08 78 00 86 20 43 52 24 28 32 30 2C 32 33 29 |..x.. CR$(20,23)| 000000D0: 2C 43 55 28 32 33 2C 33 29 2C 45 4E 24 28 32 30 |,CU(23,3),EN$(20| 000000E0: 29 00 04 09 82 00 55 4E 24 B2 22 A4 A4 A4 A4 A4 |).....UN$.".....| 000000F0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................| 00000100: A4 A4 A4 22 00 38 09 8C 00 81 58 B2 31 A4 32 33 |...".8....X.1.23| 00000110: 3A 87 41 2C 42 2C 43 3A 43 55 28 58 2C 31 29 B2 |:.A,B,C:CU(X,1).| 00000120: 41 3A 43 55 28 58 2C 32 29 B2 42 3A 43 55 28 58 |A:CU(X,2).B:CU(X| 00000130: 2C 33 29 B2 43 3A 82 58 00 58 09 96 00 81 58 B2 |,3).C:.X.X....X.| 00000140: 38 32 38 20 A4 20 38 32 38 AA 31 30 20 3A 87 41 |828 . 828.10 :.A| 00000150: 3A 97 58 2C 41 3A 82 58 00 6B 09 BE 00 8B 46 24 |:.X,A:.X.k....F$| 00000160: B2 22 8C 22 20 A7 20 34 30 30 30 00 7F 09 C0 00 |."." . 4000.....| 00000170: 8B 20 46 24 B3 B1 22 8B 22 20 A7 20 32 30 30 00 |. F$.."." . 200.| 00000180: 91 09 C2 00 9F 31 35 2C 38 2C 31 35 2C 22 49 30 |.....15,8,15,"I0| 00000190: 22 00 BA 09 C3 00 9F 35 2C 38 2C 35 2C 22 30 3A |"......5,8,5,"0:| 000001A0: 47 4C 46 20 43 52 53 2D 42 4B 2C 53 2C 52 22 3A |GLF CRS-BK,S,R":| 000001B0: 8D 39 36 30 30 3A 89 32 32 30 00 CC 09 C8 00 9F |.9600:.220......| 000001C0: 31 35 2C 38 2C 31 35 2C 22 49 30 22 00 F0 09 D2 |15,8,15,"I0"....| 000001D0: 00 9F 35 2C 38 2C 35 2C 22 30 3A 47 4C 46 20 43 |..5,8,5,"0:GLF C| 000001E0: 4F 55 52 53 45 2C 53 2C 52 22 3A 8D 39 36 30 30 |OURSE,S,R":.9600| 000001F0: 00 1B 0A DC 00 8B 20 45 4E B2 36 31 B0 45 4E B2 |...... EN.61.EN.| 00000200: 36 32 A7 8D 32 31 30 30 3A 99 22 1E 4E 45 57 20 |62..2100:.".NEW | 00000210: 46 49 4C 45 97 22 3A 89 32 36 35 00 25 0A E6 00 |FILE.":.265.%...| 00000220: 84 35 2C 52 43 00 31 0A F0 00 81 58 B2 31 A4 52 |.5,RC.1....X.1.R| 00000230: 43 00 4C 0A FA 00 81 59 B2 31 A4 32 33 3A 84 35 |C.L....Y.1.23:.5| 00000240: 2C 43 52 24 28 58 2C 59 29 3A 82 59 00 53 0A 04 |,CR$(X,Y):.Y.S..| 00000250: 01 82 58 00 5E 0A 09 01 A0 35 3A A0 31 35 00 68 |..X.^....5:.15.h| 00000260: 0A 0E 01 89 34 30 30 30 00 78 0A 8F 01 8F 20 53 |....4000.x.... S| 00000270: 41 56 45 20 53 55 42 52 00 93 0A 90 01 8D 32 31 |AVE SUBR......21| 00000280: 30 30 3A 99 22 1F 4F 2E 4B 2E 20 20 53 41 56 49 |00:.".O.K. SAVI| 00000290: 4E 47 22 00 A5 0A 97 01 9F 31 35 2C 38 2C 31 35 |NG"......15,8,15| 000002A0: 2C 22 49 30 22 00 C9 0A 9A 01 9F 36 2C 38 2C 36 |,"I0"......6,8,6| 000002B0: 2C 22 40 3A 47 4C 46 20 43 4F 55 52 53 45 2C 53 |,"@:GLF COURSE,S| 000002C0: 2C 57 22 3A 8D 39 36 30 30 00 D3 0A A4 01 98 36 |,W":.9600......6| 000002D0: 2C 52 43 00 DF 0A AE 01 81 58 B2 31 A4 52 43 00 |,RC......X.1.RC.| 000002E0: F7 0A B8 01 81 59 B2 31 A4 32 33 3A 98 36 2C 43 |.....Y.1.23:.6,C| 000002F0: 52 24 28 58 2C 59 29 00 FE 0A BE 01 82 59 00 0D |R$(X,Y)......Y..| 00000300: 0B C2 01 82 58 3A 53 56 24 B2 22 59 22 00 1E 0B |....X:SV$."Y"...| 00000310: D6 01 A0 36 3A A0 31 35 3A 8D 32 31 30 30 00 4D |...6:.15:.2100.M| 00000320: 0B E0 01 4F 4D 24 B2 22 53 41 56 45 20 43 4F 4D |...OM$."SAVE COM| 00000330: 50 4C 45 54 45 20 22 AA C4 28 52 43 29 AA 22 20 |PLETE "..(RC)." | 00000340: 43 4F 55 52 53 45 53 22 3A 99 4F 4D 24 00 53 0B |COURSES":.OM$.S.| 00000350: EA 01 8E 00 65 0B 57 02 8F 20 42 41 43 4B 55 50 |....e.W.. BACKUP| 00000360: 20 53 55 42 52 00 7D 0B 58 02 97 38 35 30 2C 32 | SUBR.}.X..850,2| 00000370: 31 3A 97 38 35 31 2C 37 3A 9E 38 32 38 00 A6 0B |1:.851,7:.828...| 00000380: 62 02 99 22 1C 12 49 4E 53 45 52 54 20 42 41 43 |b.."..INSERT BAC| 00000390: 4B 55 50 20 44 49 53 4B 20 2D 20 48 49 54 20 41 |KUP DISK - HIT A| 000003A0: 20 4B 45 59 97 22 00 B0 0B 6C 02 8D 39 32 30 30 | KEY."...l..9200| 000003B0: 00 B9 0B 76 02 9E 38 32 38 00 E1 0B 80 02 99 22 |...v..828......"| 000003C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003E0: 22 00 F3 0B 8A 02 9F 31 35 2C 38 2C 31 35 2C 22 |"......15,8,15,"| 000003F0: 49 30 22 00 18 0C 94 02 9F 36 2C 38 2C 36 2C 22 |I0"......6,8,6,"| 00000400: 40 30 3A 47 4C 46 20 43 52 53 2D 42 4B 2C 53 2C |@0:GLF CRS-BK,S,| 00000410: 57 22 3A 8D 39 36 30 30 00 48 0C 97 02 8B 45 4E |W":.9600.H....EN| 00000420: B3 B1 30 A7 8D 32 31 30 30 3A 99 22 1C 44 49 53 |..0..2100:.".DIS| 00000430: 4B 20 45 52 52 4F 52 20 2D 20 22 AA 45 4D 24 3A |K ERROR - ".EM$:| 00000440: A0 36 3A A0 31 35 3A 8E 00 57 0C 9E 02 8D 34 32 |.6:.15:..W....42| 00000450: 30 3A 8D 32 31 30 30 00 80 0C A8 02 4F 4D 24 B2 |0:.2100.....OM$.| 00000460: 22 1C 42 4B 55 50 20 43 4F 4D 50 4C 45 54 45 20 |".BKUP COMPLETE | 00000470: 2D 2D 20 43 48 41 4E 47 45 20 44 49 53 4B 53 22 |-- CHANGE DISKS"| 00000480: 00 8B 0C B2 02 99 4F 4D 24 3A 8E 00 AF 0C 1F 03 |......OM$:......| 00000490: 8F 20 2A 2A 2A 20 49 4E 53 45 52 54 20 55 4E 44 |. *** INSERT UND| 000004A0: 45 52 4C 49 4E 45 53 20 46 4F 52 20 41 44 44 00 |ERLINES FOR ADD.| 000004B0: C7 0C 20 03 43 52 24 28 43 50 2C 31 29 B2 C8 28 |.. .CR$(CP,1)..(| 000004C0: 55 4E 24 2C 32 30 29 00 DE 0C 2A 03 43 52 24 28 |UN$,20)...*.CR$(| 000004D0: 43 50 2C 32 29 B2 C8 28 55 4E 24 2C 32 29 00 F5 |CP,2)..(UN$,2)..| 000004E0: 0C 34 03 43 52 24 28 43 50 2C 33 29 B2 C8 28 55 |.4.CR$(CP,3)..(U| 000004F0: 4E 24 2C 34 29 00 0C 0D 3E 03 43 52 24 28 43 50 |N$,4)...>.CR$(CP| 00000500: 2C 34 29 B2 C8 28 55 4E 24 2C 34 29 00 24 0D 43 |,4)..(UN$,4).$.C| 00000510: 03 43 52 24 28 43 50 2C 32 33 29 B2 C8 28 55 4E |.CR$(CP,23)..(UN| 00000520: 24 2C 35 29 00 43 0D 48 03 81 58 B2 35 A4 32 32 |$,5).C.H..X.5.22| 00000530: 3A 43 52 24 28 43 50 2C 58 29 B2 C8 28 55 4E 24 |:CR$(CP,X)..(UN$| 00000540: 2C 31 29 00 4A 0D 52 03 82 58 00 50 0D 5C 03 8E |,1).J.R..X.P.\..| 00000550: 00 6C 0D E3 03 8F 20 2A 2A 2A 20 44 52 41 57 20 |.l.... *** DRAW | 00000560: 42 4C 41 4E 4B 20 53 43 52 45 45 4E 00 95 0D E8 |BLANK SCREEN....| 00000570: 03 99 22 93 11 97 22 3B A3 31 31 29 3B 22 50 45 |.."...";.11);"PE| 00000580: 52 53 4F 4E 41 4C 20 47 4F 4C 46 20 48 41 4E 44 |RSONAL GOLF HAND| 00000590: 49 43 41 50 22 00 B3 0D F2 03 99 22 11 1C 12 22 |ICAP"......"..."| 000005A0: 3B A3 31 36 29 3B 22 43 4F 55 52 53 45 20 44 41 |;.16);"COURSE DA| 000005B0: 54 41 22 00 C9 0D FC 03 99 22 11 98 22 3B A3 38 |TA"......"..";.8| 000005C0: 29 22 43 4F 55 52 53 45 22 00 F5 0D 06 04 99 22 |)"COURSE"......"| 000005D0: 11 20 20 50 41 52 22 3B A3 31 31 29 3B 22 52 41 |. PAR";.11);"RA| 000005E0: 54 49 4E 47 22 3B A3 32 35 29 3B 22 44 49 53 54 |TING";.25);"DIST| 000005F0: 41 4E 43 45 22 00 02 0E 10 04 81 58 B2 31 A4 37 |ANCE"......X.1.7| 00000600: A9 33 00 0B 0E 1A 04 54 4D B2 30 00 17 0E 1F 04 |.3.....TM.0.....| 00000610: 99 22 11 20 20 22 3B 00 24 0E 24 04 81 59 B2 58 |.". ";.$.$..Y.X| 00000620: A4 58 AA 32 00 3C 0E 2E 04 99 22 48 4F 4C 45 20 |.X.2.<...."HOLE | 00000630: 22 3B C9 28 C4 28 59 29 2C 32 29 3B 00 55 0E 42 |";.(.(Y),2);.U.B| 00000640: 04 54 4D B2 54 4D AA 31 3A 8B 54 4D B3 33 A7 20 |.TM.TM.1:.TM.3. | 00000650: 99 A6 36 29 3B 00 66 0E 4C 04 82 59 3A 99 3A 82 |..6);.f.L..Y:.:.| 00000660: 58 3A 54 4D B2 30 00 79 0E 56 04 81 58 B2 31 30 |X:TM.0.y.V..X.10| 00000670: 20 A4 20 31 36 20 A9 20 33 00 8A 0E 60 04 99 22 | . 16 . 3...`.."| 00000680: 11 1D 1D 22 3B 3A 54 4D B2 30 00 97 0E 6A 04 81 |...";:TM.0...j..| 00000690: 59 B2 58 A4 58 AA 32 00 AF 0E 74 04 99 22 48 4F |Y.X.X.2...t.."HO| 000006A0: 4C 45 20 22 3B C9 28 C4 28 59 29 2C 32 29 3B 00 |LE ";.(.(Y),2);.| 000006B0: C9 0E 7E 04 54 4D B2 54 4D AA 31 3A 8B 54 4D B3 |..~.TM.TM.1:.TM.| 000006C0: 33 20 A7 20 99 A6 36 29 3B 00 D5 0E 88 04 82 59 |3 . ..6);......Y| 000006D0: 3A 99 3A 82 58 00 F2 0E 92 04 99 A3 36 29 3B 22 |:.:.X.......6);"| 000006E0: 43 4F 55 52 53 45 20 4E 41 4D 45 20 41 42 42 52 |COURSE NAME ABBR| 000006F0: 56 22 00 31 0F A6 04 99 22 11 1D 1D 97 41 98 44 |V".1...."....A.D| 00000700: 44 20 20 97 4E 98 45 58 54 20 20 97 42 98 41 43 |D .N.EXT .B.AC| 00000710: 4B 20 20 97 43 98 48 47 20 20 97 51 98 55 49 54 |K .C.HG .Q.UIT| 00000720: 20 20 97 53 98 41 56 45 20 20 42 97 4B 98 55 50 | .S.AVE B.K.UP| 00000730: 22 00 37 0F B0 04 8E 00 56 0F 73 05 8F 20 2A 2A |".7.....V.s.. **| 00000740: 20 46 49 4C 4C 20 53 43 52 45 45 4E 20 57 49 54 | FILL SCREEN WIT| 00000750: 48 20 44 41 54 41 00 75 0F 78 05 99 22 13 11 97 |H DATA.u.x.."...| 00000760: 20 23 22 3B C4 28 43 50 29 3A 99 22 4F 46 20 22 | #";.(CP):."OF "| 00000770: C4 28 52 43 29 00 98 0F 7D 05 97 38 35 30 2C 43 |.(RC)...}..850,C| 00000780: 55 28 31 2C 31 29 3A 97 38 35 31 2C 43 55 28 31 |U(1,1):.851,CU(1| 00000790: 2C 32 29 3A 9E 38 32 38 00 B4 0F 7E 05 99 22 20 |,2):.828...~.." | 000007A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000007B0: 20 20 20 22 00 C0 0F 80 05 81 58 B2 31 A4 32 33 | "......X.1.23| 000007C0: 00 E3 0F 82 05 97 38 35 30 2C 43 55 28 58 2C 31 |......850,CU(X,1| 000007D0: 29 3A 97 38 35 31 2C 43 55 28 58 2C 32 29 3A 9E |):.851,CU(X,2):.| 000007E0: 38 32 38 00 F5 0F 8C 05 99 22 97 22 43 52 24 28 |828......"."CR$(| 000007F0: 43 50 2C 58 29 00 FC 0F 96 05 82 58 00 02 10 A0 |CP,X)......X....| 00000800: 05 8E 00 20 10 3B 06 8F 20 2A 2A 2A 2A 20 4D 41 |... .;.. **** MA| 00000810: 53 53 20 45 4E 54 52 59 20 52 4F 55 54 49 4E 45 |SS ENTRY ROUTINE| 00000820: 00 32 10 40 06 54 50 B2 30 3A 81 46 50 B2 31 A4 |.2.@.TP.0:.FP.1.| 00000830: 32 33 00 57 10 4A 06 97 38 35 30 2C 43 55 28 46 |23.W.J..850,CU(F| 00000840: 50 2C 31 29 3A 97 38 35 31 2C 43 55 28 46 50 2C |P,1):.851,CU(FP,| 00000850: 32 29 3A 9E 38 32 38 00 64 10 54 06 99 22 1C 3F |2):.828.d.T..".?| 00000860: 9D 97 22 3B 00 6E 10 5E 06 8D 31 38 30 30 00 8B |..";.n.^..1800..| 00000870: 10 61 06 8B 46 50 B1 34 AF 46 50 B3 32 33 A7 54 |.a..FP.4.FP.23.T| 00000880: 50 B2 54 50 AA C5 28 41 4E 24 29 00 9E 10 68 06 |P.TP..(AN$)...h.| 00000890: 43 52 24 28 43 50 2C 46 50 29 B2 41 4E 24 00 A7 |CR$(CP,FP).AN$..| 000008A0: 10 72 06 82 20 46 50 00 C1 10 77 06 8B 54 50 B2 |.r.. FP...w..TP.| 000008B0: C5 28 43 52 24 28 43 50 2C 32 29 29 A7 31 36 36 |.(CR$(CP,2)).166| 000008C0: 30 00 FB 10 7A 06 8D 32 31 30 30 3A 99 22 1C 12 |0...z..2100:."..| 000008D0: 57 41 52 4E 2D 48 4F 4C 45 53 20 3C 3E 20 50 41 |WARN-HOLES <> PA| 000008E0: 52 20 2D 20 48 4F 4C 45 53 20 54 4F 54 22 3B 54 |R - HOLES TOT";T| 000008F0: 50 3A 46 43 B2 46 43 AA 31 3A 8E 00 22 11 7C 06 |P:FC.FC.1:..".|.| 00000900: 8D 32 31 30 30 3A 99 22 1C 12 45 4E 54 52 59 20 |.2100:."..ENTRY | 00000910: 43 4F 4D 50 4C 45 54 45 97 22 3A 46 43 B2 46 43 |COMPLETE.":FC.FC| 00000920: AA 31 00 28 11 86 06 8E 00 4B 11 03 07 8F 20 2A |.1.(.....K.... *| 00000930: 2A 2A 20 52 54 4E 20 54 4F 20 44 4F 20 47 45 54 |** RTN TO DO GET| 00000940: 53 20 46 4F 52 20 45 4E 54 52 59 00 6F 11 08 07 |S FOR ENTRY.o...| 00000950: 81 58 B2 31 A4 32 30 3A 45 4E 24 28 58 29 B2 22 |.X.1.20:EN$(X)."| 00000960: 22 3A 82 58 3A 43 B2 30 3A 41 4E 24 B2 22 22 00 |":.X:C.0:AN$."".| 00000970: 85 11 12 07 A1 4B 24 3A 8B 4B 24 B2 22 22 20 A7 |.....K$:.K$."" .| 00000980: 20 31 38 31 30 00 9B 11 1C 07 8B 20 4B 24 B2 C7 | 1810...... K$..| 00000990: 28 32 30 29 20 A7 20 31 38 31 30 00 B3 11 21 07 |(20) . 1810...!.| 000009A0: 8B 20 4B 24 B2 C7 28 31 33 29 AF 43 B2 30 A7 31 |. K$..(13).C.0.1| 000009B0: 38 31 30 00 CD 11 26 07 8B 20 4B 24 B2 C7 28 31 |810...&.. K$..(1| 000009C0: 33 29 20 AF 43 B1 31 A7 20 31 39 31 30 00 E1 11 |3) .C.1. 1910...| 000009D0: 30 07 8B 20 4B 24 B2 22 85 22 20 A7 20 31 38 38 |0.. K$."." . 188| 000009E0: 30 00 FA 11 3A 07 43 B2 43 AA 31 3A 45 4E 24 28 |0...:.C.C.1:EN$(| 000009F0: 43 29 B2 4B 24 3A 99 4B 24 3B 00 12 12 44 07 8B |C).K$:.K$;...D..| 00000A00: 20 43 B3 43 55 28 46 50 2C 33 29 20 A7 20 31 38 | C.CU(FP,3) . 18| 00000A10: 31 30 00 1C 12 4E 07 89 31 39 31 30 00 31 12 58 |10...N..1910.1.X| 00000A20: 07 8B 20 43 AB 31 20 B3 20 30 20 A7 20 31 38 31 |.. C.1 . 0 . 181| 00000A30: 30 00 4D 12 62 07 43 B2 43 AB 31 3A 45 4E 24 28 |0.M.b.C.C.1:EN$(| 00000A40: 43 29 B2 22 22 3A 99 22 9D 20 9D 22 3B 00 57 12 |C)."":.". .";.W.| 00000A50: 6C 07 89 31 38 31 30 00 62 12 76 07 81 58 B2 31 |l..1810.b.v..X.1| 00000A60: A4 43 00 7C 12 80 07 41 4E 24 B2 41 4E 24 AA CA |.C.|...AN$.AN$..| 00000A70: 28 45 4E 24 28 58 29 2C 31 2C 31 29 00 83 12 8A |(EN$(X),1,1)....| 00000A80: 07 82 58 00 89 12 94 07 8E 00 A1 12 CB 07 8F 20 |..X............ | 00000A90: 2A 2A 2A 20 46 49 58 20 4F 4E 45 20 46 49 45 4C |*** FIX ONE FIEL| 00000AA0: 44 00 C6 12 D0 07 97 38 35 30 2C 43 55 28 46 50 |D......850,CU(FP| 00000AB0: 2C 31 29 3A 97 38 35 31 2C 43 55 28 46 50 2C 32 |,1):.851,CU(FP,2| 00000AC0: 29 3A 9E 38 32 38 00 00 13 D3 07 41 5A B2 43 55 |):.828.....AZ.CU| 00000AD0: 28 46 50 2C 33 29 3A 43 52 24 28 43 50 2C 46 50 |(FP,3):CR$(CP,FP| 00000AE0: 29 B2 C8 28 55 4E 24 2C 41 5A 29 3A 99 22 97 22 |)..(UN$,AZ):."."| 00000AF0: 3B 43 52 24 28 43 50 2C 46 50 29 3A 9E 38 32 38 |;CR$(CP,FP):.828| 00000B00: 00 0D 13 DA 07 99 22 1C 3F 9D 97 22 3B 00 17 13 |......".?..";...| 00000B10: E4 07 8D 31 38 30 30 00 2A 13 EE 07 43 52 24 28 |...1800.*...CR$(| 00000B20: 43 50 2C 46 50 29 B2 41 4E 24 00 4E 13 F8 07 8D |CP,FP).AN$.N....| 00000B30: 32 31 30 30 3A 99 22 12 1F 43 48 41 4E 47 45 20 |2100:."..CHANGE | 00000B40: 4D 41 44 45 97 22 3A 46 43 B2 46 43 AA 31 00 54 |MADE.":FC.FC.1.T| 00000B50: 13 02 08 8E 00 73 13 2F 08 8F 20 2A 2A 2A 2A 20 |.....s./.. **** | 00000B60: 50 4F 4B 45 20 49 4E 20 50 52 4F 43 45 53 53 20 |POKE IN PROCESS | 00000B70: 4D 53 47 00 8B 13 34 08 97 38 35 30 2C 32 31 3A |MSG...4..850,21:| 00000B80: 97 38 35 31 2C 37 3A 9E 38 32 38 00 91 13 3E 08 |.851,7:.828...>.| 00000B90: 8E 00 A9 13 66 08 97 38 35 30 2C 32 31 3A 97 38 |....f..850,21:.8| 00000BA0: 35 31 2C 37 3A 9E 38 32 38 00 D3 13 70 08 99 22 |51,7:.828...p.."| 00000BB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000BC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000BD0: 9B 13 22 00 D9 13 7A 08 8E 00 E3 13 A0 0F 8D 31 |.."...z........1| 00000BE0: 30 30 30 00 12 14 AA 0F 8B 20 52 43 B2 30 20 A7 |000...... RC.0 .| 00000BF0: 20 43 50 B2 31 3A 8D 38 30 30 3A 8D 31 34 30 30 | CP.1:.800:.1400| 00000C00: 3A 8D 32 31 30 30 3A 99 22 1E 4E 4F 20 46 49 4C |:.2100:.".NO FIL| 00000C10: 45 22 00 2A 14 B4 0F 8B 20 52 43 B1 30 20 A7 20 |E".*.... RC.0 . | 00000C20: 43 50 B2 31 3A 8D 31 34 30 30 00 65 14 BE 0F 8B |CP.1:.1400.e....| 00000C30: 20 46 24 B2 22 8B 22 A7 20 8D 32 31 35 30 3A 8D | F$.".". .2150:.| 00000C40: 32 31 30 30 3A 99 22 1C 12 42 4B 55 50 20 4C 4F |2100:."..BKUP LO| 00000C50: 41 44 45 44 20 2D 20 55 53 45 20 4D 41 49 4E 20 |ADED - USE MAIN | 00000C60: 44 49 53 4B 22 00 75 14 68 10 8D 39 32 30 30 3A |DISK".u.h..9200:| 00000C70: 8D 32 31 35 30 00 89 14 72 10 8B 20 4B 24 B2 22 |.2150...r.. K$."| 00000C80: 53 22 20 A7 20 8D 34 30 30 00 A3 14 7C 10 8B 20 |S" . .400...|.. | 00000C90: 4B 24 B2 22 4B 22 20 A7 20 8D 36 30 30 3A 89 34 |K$."K" . .600:.4| 00000CA0: 32 30 30 00 B7 14 86 10 8B 20 4B 24 B2 22 51 22 |200...... K$."Q"| 00000CB0: 20 A7 20 34 37 30 30 00 CC 14 90 10 8B 20 4B 24 | . 4700...... K$| 00000CC0: B3 B1 22 4E 22 20 A7 20 34 32 38 30 00 F5 14 9A |.."N" . 4280....| 00000CD0: 10 8B 20 43 50 AA 31 B1 52 43 20 A7 20 8D 32 31 |.. CP.1.RC . .21| 00000CE0: 30 30 3A 99 22 1C 12 54 4F 4F 20 46 41 52 22 3A |00:."..TOO FAR":| 00000CF0: 89 34 32 30 30 00 07 15 A4 10 43 50 B2 43 50 AA |.4200.....CP.CP.| 00000D00: 31 3A 8D 31 34 30 30 00 11 15 AE 10 89 34 32 30 |1:.1400......420| 00000D10: 30 00 24 15 B8 10 8B 20 4B 24 B3 B1 22 42 22 A7 |0.$.... K$.."B".| 00000D20: 34 33 31 30 00 4D 15 BD 10 8B 20 43 50 AB 31 B3 |4310.M.... CP.1.| 00000D30: 31 20 A7 20 8D 32 31 30 30 3A 99 22 1C 12 54 4F |1 . .2100:."..TO| 00000D40: 4F 20 46 41 52 97 22 3A 89 34 32 30 30 00 5F 15 |O FAR.":.4200._.| 00000D50: C2 10 43 50 B2 43 50 AB 31 3A 8D 31 34 30 30 00 |..CP.CP.1:.1400.| 00000D60: 69 15 CC 10 89 34 32 30 30 00 7E 15 D6 10 8B 20 |i....4200.~.... | 00000D70: 4B 24 B3 B1 22 41 22 20 A7 20 34 34 30 30 00 8F |K$.."A" . 4400..| 00000D80: 15 F4 10 43 50 B2 52 43 AA 31 3A 8D 38 30 30 00 |...CP.RC.1:.800.| 00000D90: A7 15 FE 10 8D 31 34 30 30 3A 8F 20 46 49 4C 4C |.....1400:. FILL| 00000DA0: 20 53 43 52 45 45 4E 00 BE 15 08 11 8D 31 36 30 | SCREEN......160| 00000DB0: 30 3A 8F 20 4D 41 53 53 20 45 4E 54 52 59 00 D0 |0:. MASS ENTRY..| 00000DC0: 15 12 11 52 43 B2 52 43 AA 31 3A 89 34 32 30 30 |...RC.RC.1:.4200| 00000DD0: 00 E5 15 30 11 8B 20 4B 24 B3 B1 22 43 22 20 A7 |...0.. K$.."C" .| 00000DE0: 20 34 32 30 30 00 FD 15 3A 11 97 38 35 30 2C 32 | 4200...:..850,2| 00000DF0: 33 3A 97 38 35 31 2C 32 3A 9E 38 32 38 00 35 16 |3:.851,2:.828.5.| 00000E00: 44 11 99 22 1C 12 4E 92 41 4D 45 20 20 12 50 92 |D.."..N.AME .P.| 00000E10: 41 52 20 20 12 52 92 41 54 49 4E 47 20 20 12 44 |AR .R.ATING .D| 00000E20: 92 49 53 54 20 20 12 31 2D 31 38 92 20 20 12 51 |.IST .1-18. .Q| 00000E30: 92 55 49 54 22 00 3F 16 4E 11 8D 39 30 30 30 00 |.UIT".?.N..9000.| 00000E40: 49 16 53 11 8D 32 31 35 30 00 5C 16 58 11 8B 20 |I.S..2150.\.X.. | 00000E50: 41 24 B3 B1 22 51 22 A7 34 34 39 30 00 74 16 62 |A$.."Q".4490.t.b| 00000E60: 11 97 38 35 30 2C 32 33 3A 97 38 35 31 2C 32 3A |..850,23:.851,2:| 00000E70: 9E 38 32 38 00 9F 16 6C 11 99 22 20 20 20 20 20 |.828...l.." | 00000E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000E90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".| 00000EA0: A9 16 76 11 89 34 32 30 30 00 C2 16 8A 11 8B 20 |..v..4200...... | 00000EB0: 41 24 B2 22 4E 22 A7 20 46 50 B2 31 3A 89 34 35 |A$."N". FP.1:.45| 00000EC0: 37 30 00 DC 16 94 11 8B 20 41 24 B2 22 50 22 20 |70...... A$."P" | 00000ED0: A7 20 46 50 B2 32 3A 89 34 35 37 30 00 F6 16 9E |. FP.2:.4570....| 00000EE0: 11 8B 20 41 24 B2 22 52 22 20 A7 20 46 50 B2 33 |.. A$."R" . FP.3| 00000EF0: 3A 89 34 35 37 30 00 10 17 A8 11 8B 20 41 24 B2 |:.4570...... A$.| 00000F00: 22 44 22 20 A7 20 46 50 B2 34 3A 89 34 35 37 30 |"D" . FP.4:.4570| 00000F10: 00 2C 17 B2 11 8B 20 41 24 B1 22 30 22 AF 41 24 |.,.... A$."0".A$| 00000F20: B3 22 31 39 22 20 A7 20 34 35 36 30 00 36 17 BC |."19" . 4560.6..| 00000F30: 11 89 34 34 33 30 00 45 17 D0 11 46 50 B2 C5 28 |..4430.E...FP..(| 00000F40: 41 24 29 AA 34 00 5E 17 DA 11 8D 32 30 30 30 3A |A$).4.^....2000:| 00000F50: 20 8F 20 46 49 58 20 31 20 46 49 45 4C 44 00 68 | . FIX 1 FIELD.h| 00000F60: 17 E4 11 89 34 34 33 30 00 78 17 5C 12 8B 20 46 |....4430.x.\.. F| 00000F70: 43 B2 30 A7 34 37 32 30 00 8B 17 61 12 8B 20 53 |C.0.4720...a.. S| 00000F80: 56 24 B2 22 59 22 A7 34 37 32 30 00 C6 17 66 12 |V$."Y".4720...f.| 00000F90: 8D 32 31 30 30 3A 99 22 1C 4E 4F 20 53 41 56 45 |.2100:.".NO SAVE| 00000FA0: 20 2D 2D 20 27 51 27 20 41 47 41 49 4E 20 54 4F | -- 'Q' AGAIN TO| 00000FB0: 20 56 45 52 49 46 59 22 3A 53 56 24 B2 22 59 22 | VERIFY":SV$."Y"| 00000FC0: 3A 89 34 32 30 30 00 ED 17 70 12 99 22 93 11 97 |:.4200...p.."...| 00000FD0: 45 4E 44 20 4F 46 20 47 4F 4C 46 20 43 4F 55 52 |END OF GOLF COUR| 00000FE0: 53 45 20 50 52 4F 47 52 41 4D 22 3A 80 00 0C 18 |SE PROGRAM":....| 00000FF0: 40 1F 99 22 93 11 1C 12 22 3B A3 31 33 29 3B 22 |@.."....";.13);"| 00001000: 47 4F 4C 46 20 43 4F 55 52 53 45 22 00 36 18 4A |GOLF COURSE".6.J| 00001010: 1F 99 22 97 11 1D 1D 54 48 49 53 20 50 52 4F 47 |.."....THIS PROG| 00001020: 52 41 4D 20 57 49 4C 4C 20 41 4C 4C 4F 57 20 59 |RAM WILL ALLOW Y| 00001030: 4F 55 20 54 4F 22 00 61 18 54 1F 99 22 1D 1D 53 |OU TO".a.T.."..S| 00001040: 54 4F 52 45 20 49 4E 46 4F 52 4D 41 54 49 4F 4E |TORE INFORMATION| 00001050: 20 4F 4E 20 43 4F 55 52 53 45 53 20 55 53 45 44 | ON COURSES USED| 00001060: 22 00 88 18 5E 1F 99 22 1D 1D 49 4E 20 45 53 54 |"...^.."..IN EST| 00001070: 41 42 4C 49 53 48 49 4E 47 20 59 4F 55 52 20 48 |ABLISHING YOUR H| 00001080: 41 4E 44 49 43 41 50 22 00 B4 18 68 1F 99 22 11 |ANDICAP"...h..".| 00001090: 1D 1D 59 4F 55 20 57 49 4C 4C 20 4E 45 45 44 20 |..YOU WILL NEED | 000010A0: 54 4F 20 45 4E 54 45 52 20 54 48 45 20 43 4F 55 |TO ENTER THE COU| 000010B0: 52 53 45 22 00 E0 18 72 1F 99 22 1D 1D 4E 41 4D |RSE"...r.."..NAM| 000010C0: 45 2C 20 52 41 54 49 4E 47 2C 20 41 4E 44 20 50 |E, RATING, AND P| 000010D0: 41 52 20 4F 4E 20 45 41 43 48 20 48 4F 4C 45 22 |AR ON EACH HOLE"| 000010E0: 00 0D 19 7C 1F 99 22 11 1D 1D 49 46 20 59 4F 55 |...|.."...IF YOU| 000010F0: 20 45 4E 54 45 52 20 4C 45 53 53 20 54 48 41 4E | ENTER LESS THAN| 00001100: 20 54 48 45 20 4D 41 58 49 4D 55 4D 22 00 39 19 | THE MAXIMUM".9.| 00001110: 86 1F 99 22 1D 1D 4E 55 4D 42 45 52 20 4F 46 20 |..."..NUMBER OF | 00001120: 43 48 41 52 41 43 54 45 52 53 20 46 4F 52 20 41 |CHARACTERS FOR A| 00001130: 4E 20 45 4E 54 52 59 2C 22 00 5B 19 90 1F 99 22 |N ENTRY,".[...."| 00001140: 1D 1D 55 53 45 20 54 48 45 20 43 41 52 52 49 41 |..USE THE CARRIA| 00001150: 47 45 20 52 45 54 55 52 4E 2E 22 00 87 19 9A 1F |GE RETURN.".....| 00001160: 99 22 11 1D 1D 44 4F 20 4E 4F 54 20 45 4E 54 45 |."...DO NOT ENTE| 00001170: 52 20 41 43 54 55 41 4C 20 52 4F 55 4E 44 53 20 |R ACTUAL ROUNDS | 00001180: 50 4C 41 59 45 44 22 00 A2 19 A4 1F 99 22 1D 1D |PLAYED"......"..| 00001190: 57 49 54 48 20 54 48 49 53 20 50 52 4F 47 52 41 |WITH THIS PROGRA| 000011A0: 4D 22 00 CE 19 AE 1F 99 22 1C 11 1D 1D 1D 1D 1D |M"......".......| 000011B0: 1D 1D 1D 12 55 53 45 20 46 31 20 54 4F 20 44 45 |....USE F1 TO DE| 000011C0: 4C 45 54 45 20 45 4E 54 52 49 45 53 92 22 00 FC |LETE ENTRIES."..| 000011D0: 19 B8 1F 99 22 11 1F 12 1D 1D 1D 1D 1D 1D 50 52 |....".........PR| 000011E0: 45 53 53 20 46 38 20 54 4F 20 43 52 45 41 54 45 |ESS F8 TO CREATE| 000011F0: 20 41 20 4E 45 57 20 46 49 4C 45 22 00 28 1A BD | A NEW FILE".(..| 00001200: 1F 99 22 1D 1D 1D 1D 1D 1D 1F 12 50 52 45 53 53 |.."........PRESS| 00001210: 20 46 36 20 54 4F 20 4C 4F 41 44 20 42 41 43 4B | F6 TO LOAD BACK| 00001220: 55 50 20 46 49 4C 45 22 00 52 1A C2 1F 99 22 1D |UP FILE".R....".| 00001230: 1D 1D 1D 1D 1D 1D 9A 12 4F 54 48 45 52 20 54 4F |........OTHER TO| 00001240: 20 4C 4F 41 44 20 43 4F 55 52 53 45 20 46 49 4C | LOAD COURSE FIL| 00001250: 45 22 00 66 1A CC 1F A1 46 24 3A 8B 46 24 B2 22 |E".f....F$:.F$."| 00001260: 22 A7 38 31 34 30 00 A1 1A CE 1F 8B 20 46 24 B2 |".8140...... F$.| 00001270: 22 8B 22 20 A7 20 99 22 11 1D 1D 1D 81 12 4C 4F |"." . ."......LO| 00001280: 41 44 20 42 41 43 4B 55 50 20 44 49 53 4B 20 2D |AD BACKUP DISK -| 00001290: 20 48 49 54 20 41 20 4B 45 59 22 3A 8D 39 32 30 | HIT A KEY":.920| 000012A0: 30 00 A7 1A D6 1F 8E 00 BD 1A 28 23 41 24 B2 22 |0.........(#A$."| 000012B0: 22 3A 54 4D B2 30 3A 97 31 39 38 2C 30 00 D1 1A |":TM.0:.198,0...| 000012C0: 32 23 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 39 30 31 |2#.Z$:.Z$."".901| 000012D0: 30 00 E6 1A 3C 23 8B 20 5A 24 B2 C7 28 32 30 29 |0...<#. Z$..(20)| 000012E0: A7 20 39 30 31 30 00 00 1B 46 23 8B 20 5A 24 B2 |. 9010...F#. Z$.| 000012F0: C7 28 31 33 29 AF 54 4D B2 30 A7 20 39 30 31 30 |.(13).TM.0. 9010| 00001300: 00 12 1B 4B 23 8B 20 5A 24 B2 C7 28 31 33 29 A7 |...K#. Z$..(13).| 00001310: 20 8E 00 45 1B 50 23 8B 20 5A 24 B2 22 4E 22 B0 | ..E.P#. Z$."N".| 00001320: 5A 24 B2 22 51 22 B0 5A 24 B2 22 50 22 B0 5A 24 |Z$."Q".Z$."P".Z$| 00001330: B2 22 52 22 B0 5A 24 B2 22 44 22 20 A7 20 41 24 |."R".Z$."D" . A$| 00001340: B2 5A 24 3A 8E 00 51 1B 5A 23 54 4D B2 54 4D AA |.Z$:..Q.Z#TM.TM.| 00001350: 31 00 6C 1B 64 23 8B 20 5A 24 B1 22 30 22 AF 5A |1.l.d#. Z$."0".Z| 00001360: 24 B3 22 39 22 20 A7 20 39 31 30 30 00 8A 1B 6E |$."9" . 9100...n| 00001370: 23 8B 20 5A 24 B2 22 39 22 AF 54 4D B2 31 A7 20 |#. Z$."9".TM.1. | 00001380: 54 4D B2 32 3A 89 39 31 30 30 00 A5 1B 78 23 8B |TM.2:.9100...x#.| 00001390: 20 5A 24 B2 22 30 22 20 AF 20 54 4D B2 32 20 A7 | Z$."0" . TM.2 .| 000013A0: 20 39 31 30 30 00 AF 1B 82 23 89 39 30 31 30 00 | 9100....#.9010.| 000013B0: C6 1B 8C 23 41 24 B2 41 24 AA 5A 24 3A 8B 54 4D |...#A$.A$.Z$:.TM| 000013C0: B2 32 20 A7 20 8E 00 D0 1B 96 23 89 39 30 31 30 |.2 . .....#.9010| 000013D0: 00 E6 1B F0 23 A1 4B 24 3A 8B 4B 24 B2 22 22 20 |....#.K$:.K$."" | 000013E0: A7 20 39 32 30 30 00 EC 1B FA 23 8E 00 FB 1B 80 |. 9200....#.....| 000013F0: 25 84 31 35 2C 45 4E 2C 45 4D 24 00 14 1C 8A 25 |%.15,EN,EM$....%| 00001400: 8B 20 45 4E B2 30 B0 45 4E B2 36 31 B0 45 4E B2 |. EN.0.EN.61.EN.| 00001410: 36 32 A7 8E 00 22 1C 94 25 41 42 24 B2 22 59 22 |62..."..%AB$."Y"| 00001420: 3A 8E 00 44 1C 10 27 83 20 35 2C 31 35 2C 32 30 |:..D..'. 5,15,20| 00001430: 2C 37 2C 36 2C 32 2C 37 2C 31 38 2C 34 2C 37 2C |,7,6,2,7,18,4,7,| 00001440: 33 34 2C 34 00 5F 1C 1A 27 83 20 39 2C 31 30 2C |34,4._..'. 9,10,| 00001450: 31 2C 39 2C 32 33 2C 31 2C 39 2C 33 36 2C 31 00 |1,9,23,1,9,36,1.| 00001460: 7D 1C 24 27 83 20 31 31 2C 31 30 2C 31 2C 31 31 |}.$'. 11,10,1,11| 00001470: 2C 32 33 2C 31 2C 31 31 2C 33 36 2C 31 00 9B 1C |,23,1,11,36,1...| 00001480: 2E 27 83 20 31 33 2C 31 30 2C 31 2C 31 33 2C 32 |.'. 13,10,1,13,2| 00001490: 33 2C 31 2C 31 33 2C 33 36 2C 31 00 B9 1C 38 27 |3,1,13,36,1...8'| 000014A0: 83 20 31 35 2C 31 30 2C 31 2C 31 35 2C 32 33 2C |. 15,10,1,15,23,| 000014B0: 31 2C 31 35 2C 33 36 2C 31 00 D7 1C 42 27 83 20 |1,15,36,1...B'. | 000014C0: 31 37 2C 31 30 2C 31 2C 31 37 2C 32 33 2C 31 2C |17,10,1,17,23,1,| 000014D0: 31 37 2C 33 36 2C 31 00 F5 1C 4C 27 83 20 31 39 |17,36,1...L'. 19| 000014E0: 2C 31 30 2C 31 2C 31 39 2C 32 33 2C 31 2C 31 39 |,10,1,19,23,1,19| 000014F0: 2C 33 36 2C 31 00 03 1D 56 27 83 20 32 30 2C 32 |,36,1...V'. 20,2| 00001500: 34 2C 35 00 2E 1D F8 2A 83 20 31 37 34 2C 38 32 |4,5....*. 174,82| 00001510: 2C 30 33 2C 31 37 32 2C 38 33 2C 30 33 2C 32 34 |,03,172,83,03,24| 00001520: 2C 33 32 2C 32 34 30 2C 32 35 35 2C 39 36 00 00 |,32,240,255,96..| 00001530: 00 |. |
....... COURSE UPDATE.&.... AL JOHNSON.?
.... 12302 COLERAINE CT.W.... RESTON, VA
22091.~.#.. SEND ME A CARD IF YOU LIKE
IT OR...(.. IF YOU HAVE SUGGESTIONS....
D..53280,11:.53281,15...N..8000...X.. CR
$(20,23),CU(23,3),EN$(20).....UN$.".....
...................".8....X.1.23:.A,B,C:
CU(X,1).A:CU(X,2).B:CU(X,3).C:.X.X....X.
828 . 828.10 :.A:.X,A:.X.K....F$."." . 4
000..... F$.."." . 200...B..15,8,15,"I0
"...C..5,8,5,"0:GLF CRS-BK,S,R":.9600:.2
20.L.H..15,8,15,"I0"...R..5,8,5,"0:GLF C
OURSE,S,R":.9600...... EN.61.EN.62..2100
:.".NEW FILE.":.265.%....5,RC.1....X.1.R
C.L....Y.1.23:.5,CR$(X,Y):.Y.S....X.^...
5: 15.H....4000.X.... SAVE SUBR......21
00:.".O.K. SAVING"......15,8,15,"I0".I.
...6,8,6,"@:GLF COURSE,S,W":.9600.S....6
,RC......X.1.RC......Y.1.23:.6,CR$(X,Y).
.....Y...B..X:SV$."Y"...V. 6: 15:.2100.M
...OM$."SAVE COMPLETE ".D(RC)." COURSES"
:.OM$.S.....E.W.. BACKUP SUBR.}.X..850,2
1:.851,7:.828...B.."..INSERT BACKUP DISK
- HIT A KEY."...L..9200...V..828......"
"......1
5,8,15,"I0"......6,8,6,"@0:GLF CRS-BK,S,
W":.9600.H....EN..0..2100:.".DISK ERROR
- ".EM$: 6: 15:..W....420:.2100.....OM$.
".BKUP COMPLETE -- CHANGE DISKS"......OM
$:....... *** INSERT UNDERLINES FOR ADD.
G. .CR$(CP,1).H(UN$,20)...*.CR$(CP,2).H(
UN$,2)...4.CR$(CP,3).H(UN$,4)...>.CR$(CP
,4).H(UN$,4).$.C.CR$(CP,23).H(UN$,5).C.H
..X.5.22:CR$(CP,X).H(UN$,1).J.R..X.P.\..
.L.... *** DRAW BLANK SCREEN......"...";
.11);"PERSONAL GOLF HANDICAP"......"..."
;.16);"COURSE DATA".I...."..";.8)"COURSE
"......". PAR";.11);"RATING";.25);"DIST
ANCE"......X.1.7.3.....TM.0......". ";.
$.$..Y.X.X.2.<...."HOLE ";I(D(Y),2);.U.B
.TM.TM.1:.TM.3. ..6);.F.L..Y:.:.X:TM.0.Y
.V..X.10 . 16 . 3...`.."...";:TM.0...J..
Y.X.X.2...T.."HOLE ";I(D(Y),2);.I.~.TM.T
M.1:.TM.3 . ..6);.U....Y:.:.X.......6);"
COURSE NAME ABBRV".1...."....A.DD .N.EX
T .B.ACK .C.HG .Q.UIT .S.AVE B.K.UP
".7.....V.S.. ** FILL SCREEN WITH DATA.U
.X.."... #";D(CP):."OF "D(RC)...}..850,C
U(1,1):.851,CU(1,2):.828...~.."
"......X.1.23......850,CU(X,1
):.851,CU(X,2):.828......"."CR$(CP,X)...
...X... ... .;.. **** MASS ENTRY ROUTINE
.2.@.TP.0:.FP.1.23.W.J..850,CU(FP,1):.85
1,CU(FP,2):.828.D.T..".?..";.N.^..1800..
.A..FP.4.FP.23.TP.TP.E(AN$)...H.CR$(CP,F
P).AN$...R.. FP.A.W..TP.E(CR$(CP,2)).166
0...Z..2100:."..WARN-HOLES <> PAR - HOLE
S TOT";TP:FC.FC.1:..".|..2100:."..ENTRY
COMPLETE.":FC.FC.1.(.....K.... *** RTN T
O DO GETS FOR ENTRY.O....X.1.20:EN$(X)."
":.X:C.0:AN$.""......K$:.K$."" . 1810...
... K$.G(20) . 1810...!.. K$.G(13).C.0.1
810.M.&.. K$.G(13) .C.1. 1910...0.. K$."
." . 1880...:.C.C.1:EN$(C).K$:.K$;...D..
C.CU(FP,3) . 1810...N..1910.1.X.. C.1 .
0 . 1810.M.B.C.C.1:EN$(C)."":.". .";.W.
L..1810.B.V..X.1.C.|...AN$.AN$.J(EN$(X),
1,1)......X.........K.. *** FIX ONE FIEL
D.F.P..850,CU(FP,1):.851,CU(FP,2):.828..
.S.AZ.CU(FP,3):CR$(CP,FP).H(UN$,AZ):."."
;CR$(CP,FP):.828...Z..".?..";......1800.
*...CR$(CP,FP).AN$.N....2100:."..CHANGE
MADE.":FC.FC.1.T.....S./.. **** POKE IN
PROCESS MSG...4..850,21:.851,7:.828...>.
....F..850,21:.851,7:.828.S.P.."
..".Y.Z..... ..1
000...... RC.0 . CP.1:.800:.1400:.2100:.
".NO FILE".*.... RC.0 . CP.1:.1400.E....
F$.".". .2150:.2100:."..BKUP LOADED - U
SE MAIN DISK".U.H..9200:.2150...R.. K$."
S" . .400...|.. K$."K" . .600:.4200.....
. K$."Q" . 4700.L.... K$.."N" . 4280....
.. CP.1.RC . .2100:."..TOO FAR":.4200...
..CP.CP.1:.1400......4200.$.... K$.."B".
4310.M.... CP.1.1 . .2100:."..TOO FAR.":
.4200._.B.CP.CP.1:.1400.I.L..4200.~.V..
K$.."A" . 4400.....CP.RC.1:.800......140
0:. FILL SCREEN......1600:. MASS ENTRY.P
...RC.RC.1:.4200...0.. K$.."C" . 4200...
:..850,23:.851,2:.828.5.D.."..N.AME .P.
AR .R.ATING .D.IST .1-18. .Q.UIT".?.
N..9000.I.S..2150.\.X.. A$.."Q".4490.T.B
..850,23:.851,2:.828...L.."
"...V..4200.B....
A$."N". FP.1:.4570...... A$."P" . FP.2:.
4570...... A$."R" . FP.3:.4570...... A$.
"D" . FP.4:.4570.,.... A$."0".A$."19" .
4560.6....4430.E.P.FP.E(A$).4.^.Z..2000:
. FIX 1 FIELD.H....4430.X.\.. FC.0.4720
...A.. SV$."Y".4720.F.F..2100:.".NO SAVE
-- 'Q' AGAIN TO VERIFY":SV$."Y":.4200..
.P.."...END OF GOLF COURSE PROGRAM":....
@.."....";.13);"GOLF COURSE".6.J.."....T
HIS PROGRAM WILL ALLOW YOU TO".A.T.."..S
TORE INFORMATION ON COURSES USED"...^.."
..IN ESTABLISHING YOUR HANDICAP"...H..".
..YOU WILL NEED TO ENTER THE COURSE"...R
.."..NAME, RATING, AND PAR ON EACH HOLE"
...|.."...IF YOU ENTER LESS THAN THE MAX
IMUM".9...."..NUMBER OF CHARACTERS FOR A
N ENTRY,".[...."..USE THE CARRIAGE RETUR
N."......"...DO NOT ENTER ACTUAL ROUNDS
PLAYED"......"..WITH THIS PROGRAM".N....
"...........USE F1 TO DELETE ENTRIES."..
....".........PRESS F8 TO CREATE A NEW F
ILE".(...."........PRESS F6 TO LOAD BACK
UP FILE".R.B..".........OTHER TO LOAD CO
URSE FILE".F.L..F$:.F$."".8140...N.. F$.
"." . ."......LOAD BACKUP DISK - HIT A K
EY":.9200...V.....(#A$."":TM.0:.198,0.Q.
2#.Z$:.Z$."".9010...<#. Z$.G(20). 9010..
.F#. Z$.G(13).TM.0. 9010...K#. Z$.G(13).
..E.P#. Z$."N".Z$."Q".Z$."P".Z$."R".Z$.
"D" . A$.Z$:..Q.Z#TM.TM.1.L.D#. Z$."0".Z
$."9" . 9100...N#. Z$."9".TM.1. TM.2:.91
00...X#. Z$."0" . TM.2 . 9100....#.9010.
F..#A$.A$.Z$:.TM.2 . ..P..#.9010....#.K$
:.K$."" . 9200....#.....%.15,EN,EM$....%
. EN.0.EN.61.EN.62..."..%AB$."Y":..D..'.
5,15,20,7,6,2,7,18,4,7,34,4._..'. 9,10,
1,9,23,1,9,36,1.}.$'. 11,10,1,11,23,1,11
,36,1....'. 13,10,1,13,23,1,13,36,1...8'
. 15,10,1,15,23,1,15,36,1.W.B'. 17,10,1,
17,23,1,17,36,1...L'. 19,10,1,19,23,1,19
,36,1...V'. 20,24,5....*. 174,82,03,172,
83,03,24,32,240,255,96...
> CLICK IMAGE PREVIEW FOR FULL MODAL