EDITOR
FILE INFORMATION
FILENAME(S): EDITOR
FILE TYPE(S): PRG
FILE SIZE: 11.2K
FIRST SEEN: 2025-11-30 18:12:41
APPEARS ON: 1 disk(s)
FILE HASH
8d8f50bd90d0bff24ab30e6386b87030c7b6c4dc1b401be7d44a848aa7c44f08
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| WCL FCD III FRNT | EDITOR | PRG | Sailor, Ganheden | 22 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0C 08 64 00 89 31 30 38 30 30 00 12 08 2C |....d..10800...,|
00000010: 01 3A 00 35 08 36 01 8F 20 20 20 53 55 42 20 54 |.:.5.6.. SUB T|
00000020: 4F 20 50 52 49 4E 54 20 52 45 50 4C 41 43 45 4D |O PRINT REPLACEM|
00000030: 45 4E 54 20 23 00 3B 08 40 01 8F 00 4C 08 54 01 |ENT #.;.@...L.T.|
00000040: 4E 24 B2 22 1F BA 22 3A 8D 34 34 30 00 6E 08 5E |N$."..":.440.n.^|
00000050: 01 4F 48 B2 52 48 3A 4F 43 B2 C6 28 52 43 24 29 |.OH.RH:OC..(RC$)|
00000060: 3A 4E 24 B2 22 12 05 20 22 3A 8D 34 34 30 00 8E |:N$.".. ":.440..|
00000070: 08 68 01 48 4F 4C 45 B2 52 48 3A 8D 34 30 34 30 |.h.HOLE.RH:.4040|
00000080: 3A 4D 4D 24 B2 52 43 24 AA 42 24 AA 43 24 00 CB |:MM$.RC$.B$.C$..|
00000090: 08 72 01 99 22 13 11 22 3B A3 32 33 29 3B 4D 4D |.r.."..";.23);MM|
000000A0: 24 3A 99 22 11 11 11 11 11 11 11 11 11 11 11 11 |$:."............|
000000B0: 11 11 11 11 11 11 11 11 11 12 9F 22 3B A3 33 30 |...........";.30|
000000C0: 29 3B 4D 4D 24 3B 22 11 81 22 3B 00 EB 08 77 01 |);MM$;"..";...w.|
000000D0: 99 C2 28 31 35 38 37 31 AA 28 4F 43 AB 36 35 29 |..(15871.(OC.65)|
000000E0: AC 31 38 AA 4F 48 29 3B 22 91 22 00 F1 08 7C 01 |.18.OH);"."...|.|
000000F0: 8E 00 F7 08 86 01 3A 00 FD 08 90 01 3A 00 10 09 |......:.....:...|
00000100: 9A 01 8F 20 20 53 55 42 20 54 4F 20 50 4C 4F 54 |... SUB TO PLOT|
00000110: 00 16 09 A4 01 8F 00 3C 09 B8 01 99 22 13 11 11 |.......<...."...|
00000120: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000130: 11 11 22 3B A3 31 30 AA 4F 48 29 3B 00 57 09 C2 |..";.10.OH);.W..|
00000140: 01 81 49 B2 36 35 A4 20 4F 43 3A 99 22 11 22 3B |..I.65. OC:.".";|
00000150: 3A 82 3A 99 4E 24 3B 00 5D 09 CC 01 8E 00 63 09 |:.:.N$;.].....c.|
00000160: D6 01 3A 00 69 09 F4 01 3A 00 8A 09 FE 01 8F 20 |..:.i...:...... |
00000170: 20 53 55 42 20 54 4F 20 43 4C 45 41 52 20 4D 45 | SUB TO CLEAR ME|
00000180: 53 53 41 47 45 20 41 52 45 41 00 90 09 08 02 8F |SSAGE AREA......|
00000190: 00 CD 09 12 02 99 22 13 22 3A 81 49 B2 31 A4 36 |......".":.I.1.6|
000001A0: 3A 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |:." |
000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001C0: 20 20 20 20 20 20 20 20 20 20 22 3A 82 00 D9 09 | ":....|
000001D0: 1C 02 99 22 13 05 22 3A 8E 00 DF 09 26 02 3A 00 |..."..":....&.:.|
000001E0: E5 09 E8 03 3A 00 08 0A ED 03 8F 20 20 20 20 53 |....:...... S|
000001F0: 55 42 20 54 4F 20 52 45 41 44 20 45 52 52 4F 52 |UB TO READ ERROR|
00000200: 20 43 48 41 4E 4E 45 4C 00 0E 0A F2 03 8F 00 32 | CHANNEL.......2|
00000210: 0A FC 03 9F 31 35 2C 38 2C 31 35 3A 84 31 35 2C |....15,8,15:.15,|
00000220: 45 52 2C 45 52 24 2C 45 54 2C 45 53 3A A0 31 35 |ER,ER$,ET,ES:.15|
00000230: 3A 8E 00 38 0A 06 04 3A 00 3E 0A 4C 04 3A 00 58 |:..8...:.>.L.:.X|
00000240: 0A 56 04 8F 20 53 55 42 20 54 4F 20 52 45 50 4F |.V.. SUB TO REPO|
00000250: 52 54 20 45 52 52 4F 52 00 5E 0A 60 04 8F 00 67 |RT ERROR.^.`...g|
00000260: 0A 74 04 8D 35 33 30 00 84 0A 7E 04 81 49 B2 31 |.t..530...~..I.1|
00000270: A4 33 3A 8D 32 36 39 30 3A 81 4B B2 31 A4 35 30 |.3:.2690:.K.1.50|
00000280: 3A 82 3A 82 00 9D 0A 88 04 99 22 20 20 20 20 20 |:.:......." |
00000290: 44 49 53 4B 20 45 52 52 4F 52 22 3A 99 00 B0 0A |DISK ERROR":....|
000002A0: 92 04 99 22 20 20 20 20 20 22 3B 45 52 24 3A 99 |..." ";ER$:.|
000002B0: 00 D7 0A 9C 04 99 22 20 20 20 20 20 50 52 45 53 |......" PRES|
000002C0: 53 20 3C 52 45 54 55 52 4E 3E 20 54 4F 20 43 4F |S <RETURN> TO CO|
000002D0: 4E 54 49 4E 55 45 22 00 E3 0A A6 04 8D 31 33 34 |NTINUE"......134|
000002E0: 30 3A 8E 00 E9 0A B0 04 3A 00 EF 0A 14 05 3A 00 |0:......:.....:.|
000002F0: 0A 0B 1E 05 8F 20 20 53 55 42 20 54 4F 20 57 41 |..... SUB TO WA|
00000300: 49 54 20 46 4F 52 20 4B 45 59 00 10 0B 28 05 8F |IT FOR KEY...(..|
00000310: 00 24 0B 3C 05 A1 41 24 3A 8B 41 24 B2 22 22 A7 |.$.<..A$:.A$."".|
00000320: 31 33 34 30 00 30 0B 46 05 8D 32 36 39 30 3A 8E |1340.0.F..2690:.|
00000330: 00 36 0B 50 05 3A 00 3C 0B 78 05 3A 00 5B 0B 82 |.6.P.:.<.x.:.[..|
00000340: 05 8F 20 20 20 53 55 42 20 54 4F 20 47 45 54 20 |.. SUB TO GET |
00000350: 41 20 44 49 52 45 43 54 4F 52 59 00 61 0B 8C 05 |A DIRECTORY.a...|
00000360: 8F 00 6A 0B A0 05 8D 35 33 30 00 98 0B AA 05 99 |..j....530......|
00000370: 22 11 20 20 20 52 45 41 44 49 4E 47 20 44 49 52 |". READING DIR|
00000380: 45 43 54 4F 52 59 2E 20 20 50 4C 45 41 53 45 20 |ECTORY. PLEASE |
00000390: 57 41 49 54 2E 2E 2E 22 00 A3 0B B4 05 9E 31 36 |WAIT..."......16|
000003A0: 32 31 38 00 D4 0B BE 05 44 52 24 B2 22 22 3A 81 |218.....DR$."":.|
000003B0: 49 B2 30 A4 32 35 3A 4D B2 C2 28 31 36 33 34 39 |I.0.25:M..(16349|
000003C0: AA 49 29 3A 44 52 24 B2 44 52 24 AA C7 28 4D 29 |.I):DR$.DR$..(M)|
000003D0: 3A 82 3A 8E 00 DA 0B C8 05 3A 00 E0 0B DC 05 3A |:.:......:.....:|
000003E0: 00 0B 0C E6 05 8F 20 20 53 55 42 20 54 4F 20 47 |...... SUB TO G|
000003F0: 45 54 20 43 4F 55 52 53 45 20 4E 41 4D 45 20 41 |ET COURSE NAME A|
00000400: 4E 44 20 50 52 49 4E 54 20 49 54 00 11 0C F0 05 |ND PRINT IT.....|
00000410: 8F 00 3E 0C 04 06 43 52 24 B2 22 22 3A 81 49 B2 |..>...CR$."":.I.|
00000420: 30 A4 32 39 3A 4D B2 C2 28 38 33 32 AA 49 29 3A |0.29:M..(832.I):|
00000430: 43 52 24 B2 43 52 24 AA C7 28 4D 29 3A 82 00 5A |CR$.CR$..(M):..Z|
00000440: 0C 0E 06 99 22 13 11 11 11 11 11 11 11 12 9E 22 |....".........."|
00000450: 3B A3 36 29 3B 43 52 24 3A 8E 00 60 0C 18 06 3A |;.6);CR$:..`...:|
00000460: 00 66 0C 40 06 3A 00 92 0C 4A 06 8F 20 20 53 55 |.f.@.:...J.. SU|
00000470: 42 20 54 4F 20 47 45 54 20 48 4F 4C 45 20 43 4F |B TO GET HOLE CO|
00000480: 44 45 53 20 41 4E 44 20 50 52 49 4E 54 20 54 48 |DES AND PRINT TH|
00000490: 45 4D 00 98 0C 54 06 8F 00 BB 0C 68 06 99 22 13 |EM...T.....h..".|
000004A0: 11 11 11 11 11 11 11 11 11 11 11 11 12 9E 22 3B |..............";|
000004B0: A3 31 30 29 3B 3A 4D 24 B2 22 22 00 DD 0C 72 06 |.10);:M$.""...r.|
000004C0: 81 49 B2 30 A4 32 34 A9 33 3A 4D 24 B2 4D 24 AA |.I.0.24.3:M$.M$.|
000004D0: C7 28 C2 28 38 36 32 AA 49 29 29 3A 82 00 F4 0C |.(.(862.I)):....|
000004E0: 7C 06 99 4D 24 3B 22 1D 1D 1D 1D 1D 22 3B 3A 4D ||..M$;".....";:M|
000004F0: 24 B2 22 22 00 16 0D 86 06 81 49 B2 30 A4 32 34 |$.""......I.0.24|
00000500: A9 33 3A 4D 24 B2 4D 24 AA C7 28 C2 28 38 38 39 |.3:M$.M$..(.(889|
00000510: AA 49 29 29 3A 82 00 2C 0D 90 06 99 4D 24 3A 99 |.I)):..,....M$:.|
00000520: A3 31 30 29 3B 3A 4D 24 B2 22 12 22 00 4E 0D 9A |.10);:M$.".".N..|
00000530: 06 81 49 B2 30 A4 32 34 A9 33 3A 4D 24 B2 4D 24 |..I.0.24.3:M$.M$|
00000540: AA C7 28 C2 28 38 36 33 AA 49 29 29 3A 82 00 65 |..(.(863.I)):..e|
00000550: 0D A4 06 99 4D 24 3B 22 1D 1D 1D 1D 1D 22 3B 3A |....M$;".....";:|
00000560: 4D 24 B2 22 22 00 87 0D AE 06 81 49 B2 30 A4 32 |M$.""......I.0.2|
00000570: 34 A9 33 3A 4D 24 B2 4D 24 AA C7 28 C2 28 38 39 |4.3:M$.M$..(.(89|
00000580: 30 AA 49 29 29 3A 82 00 9D 0D B8 06 99 4D 24 3A |0.I)):.......M$:|
00000590: 99 A3 31 30 29 3B 3A 4D 24 B2 22 12 22 00 BF 0D |..10);:M$."."...|
000005A0: C2 06 81 49 B2 30 A4 32 34 A9 33 3A 4D 24 B2 4D |...I.0.24.3:M$.M|
000005B0: 24 AA C7 28 C2 28 38 36 34 AA 49 29 29 3A 82 00 |$..(.(864.I)):..|
000005C0: D6 0D CC 06 99 4D 24 3B 22 1D 1D 1D 1D 1D 22 3B |.....M$;".....";|
000005D0: 3A 4D 24 B2 22 22 00 F8 0D D6 06 81 49 B2 30 A4 |:M$.""......I.0.|
000005E0: 32 34 A9 33 3A 4D 24 B2 4D 24 AA C7 28 C2 28 38 |24.3:M$.M$..(.(8|
000005F0: 39 31 AA 49 29 29 3A 82 00 02 0E E0 06 99 4D 24 |91.I)):.......M$|
00000600: 3A 8E 00 08 0E F4 06 3A 00 0E 0E 08 07 3A 00 2F |:......:.....:./|
00000610: 0E 12 07 8F 20 20 53 55 42 20 54 4F 20 47 45 54 |.... SUB TO GET|
00000620: 20 41 4E 44 20 50 52 49 4E 54 20 50 41 52 53 00 | AND PRINT PARS.|
00000630: 35 0E 1C 07 8F 00 40 0E 30 07 41 44 B2 39 36 34 |5.....@.0.AD.964|
00000640: 00 60 0E 3A 07 99 22 13 11 11 11 11 11 11 11 11 |.`.:..".........|
00000650: 11 11 11 11 11 11 11 12 81 22 3B A3 31 30 29 3B |.........";.10);|
00000660: 00 74 0E 44 07 54 31 B2 30 3A 54 32 B2 30 3A 4D |.t.D.T1.0:T2.0:M|
00000670: 24 B2 22 22 00 98 0E 4E 07 81 49 B2 30 A4 38 3A |$.""...N..I.0.8:|
00000680: 41 B2 C2 28 41 44 AA 49 29 3A 54 31 B2 54 31 AA |A..(AD.I):T1.T1.|
00000690: 41 3A 41 B2 41 AA 34 38 00 B7 0E 58 07 4D 24 B2 |A:A.A.48...X.M$.|
000006A0: 4D 24 AA C7 28 41 29 3A 82 3A 99 4D 24 3B 3A 4D |M$..(A):.:.M$;:M|
000006B0: 24 B2 C4 28 54 31 29 00 E0 0E 62 07 4D 24 B2 CA |$..(T1)...b.M$..|
000006C0: 28 4D 24 2C 32 2C 32 29 3A 99 22 97 20 81 22 3B |(M$,2,2):.". .";|
000006D0: 4D 24 3B 22 97 20 20 81 22 3B 3A 4D 24 B2 22 22 |M$;". .";:M$.""|
000006E0: 00 05 0F 6C 07 81 49 B2 39 A4 31 37 3A 41 B2 C2 |...l..I.9.17:A..|
000006F0: 28 41 44 AA 49 29 3A 54 32 B2 54 32 AA 41 3A 41 |(AD.I):T2.T2.A:A|
00000700: B2 41 AA 34 38 00 24 0F 76 07 4D 24 B2 4D 24 AA |.A.48.$.v.M$.M$.|
00000710: C7 28 41 29 3A 82 3A 99 4D 24 3B 3A 4D 24 B2 C4 |.(A):.:.M$;:M$..|
00000720: 28 54 32 29 00 4F 0F 80 07 4D 24 B2 CA 28 4D 24 |(T2).O...M$..(M$|
00000730: 2C 32 2C 32 29 3A 99 22 97 20 81 22 3B 4D 24 3B |,2,2):.". .";M$;|
00000740: 22 97 20 81 22 3B 3A 54 32 B2 54 32 AA 54 31 00 |". .";:T2.T2.T1.|
00000750: 6F 0F 8A 07 4D 24 B2 C4 28 54 32 29 3A 4D 24 B2 |o...M$..(T2):M$.|
00000760: CA 28 4D 24 2C 32 2C 32 29 3A 99 4D 24 3A 8E 00 |.(M$,2,2):.M$:..|
00000770: 75 0F 94 07 3A 00 7B 0F D0 07 3A 00 A3 0F DA 07 |u...:.{...:.....|
00000780: 8F 20 20 20 53 55 42 20 54 4F 20 47 45 54 20 41 |. SUB TO GET A|
00000790: 4E 44 20 50 52 49 4E 54 20 54 52 45 45 20 54 59 |ND PRINT TREE TY|
000007A0: 50 45 53 00 A9 0F E4 07 8F 00 D0 0F F8 07 99 22 |PES............"|
000007B0: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000007C0: 11 12 99 22 3B A3 31 30 29 3B 3A 4D 24 B2 22 22 |...";.10);:M$.""|
000007D0: 00 EF 0F 02 08 81 49 B2 30 A4 38 3A 4D 24 B2 4D |......I.0.8:M$.M|
000007E0: 24 AA C7 28 C2 28 39 31 36 AA 49 29 29 3A 82 00 |$..(.(916.I)):..|
000007F0: 06 10 0C 08 99 4D 24 3B 22 1D 1D 1D 1D 1D 22 3B |.....M$;".....";|
00000800: 3A 4D 24 B2 22 22 00 2C 10 16 08 81 49 B2 39 A4 |:M$."".,....I.9.|
00000810: 31 37 3A 4D 24 B2 4D 24 AA C7 28 C2 28 39 31 36 |17:M$.M$..(.(916|
00000820: AA 49 29 29 3A 82 3A 99 4D 24 3A 8E 00 32 10 20 |.I)):.:.M$:..2. |
00000830: 08 3A 00 38 10 34 08 3A 00 5D 10 3E 08 8F 20 20 |.:.8.4.:.].>.. |
00000840: 53 55 42 20 54 4F 20 43 48 45 43 4B 20 46 4F 52 |SUB TO CHECK FOR|
00000850: 20 42 41 43 4B 20 4F 46 20 44 49 53 4B 00 63 10 | BACK OF DISK.c.|
00000860: 48 08 8F 00 77 10 5C 08 58 24 B2 22 42 43 54 22 |H...w.\.X$."BCT"|
00000870: 3A 8D 31 30 34 33 30 00 81 10 66 08 8D 31 30 32 |:.10430...f..102|
00000880: 30 00 91 10 70 08 8B 45 52 B2 36 32 A7 32 31 39 |0...p..ER.62.219|
00000890: 30 00 9E 10 7A 08 8B 45 52 A7 32 32 36 30 00 A4 |0...z..ER.2260..|
000008A0: 10 84 08 8E 00 AD 10 8E 08 8D 35 33 30 00 D8 10 |..........530...|
000008B0: 98 08 99 22 11 1D 1D 1D 1D 49 4E 53 45 52 54 20 |...".....INSERT |
000008C0: 9F 57 4F 52 4C 44 20 43 4C 41 53 53 20 42 41 43 |.WORLD CLASS BAC|
000008D0: 4B 05 20 44 49 53 4B 22 00 F7 10 A2 08 99 22 1D |K. DISK"......".|
000008E0: 1D 1D 1D 41 4E 44 20 50 52 45 53 53 20 3C 52 45 |...AND PRESS <RE|
000008F0: 54 55 52 4E 3E 2E 22 00 01 11 AC 08 8D 31 33 34 |TURN>."......134|
00000900: 30 00 15 11 B6 08 8B 41 24 B3 B1 C7 28 31 33 29 |0......A$...(13)|
00000910: A7 32 32 32 30 00 2F 11 C0 08 58 24 B2 22 42 43 |.2220./...X$."BC|
00000920: 54 22 3A 8D 31 30 34 33 30 3A 8D 31 30 32 30 00 |T":.10430:.1020.|
00000930: 3B 11 CA 08 8B 45 52 B2 30 A7 8E 00 61 11 D4 08 |;....ER.0...a...|
00000940: 99 22 11 1D 1D 1D 1D 49 4E 43 4F 52 52 45 43 54 |.".....INCORRECT|
00000950: 20 4F 52 20 44 41 4D 41 47 45 44 20 44 49 53 4B | OR DAMAGED DISK|
00000960: 22 00 80 11 DE 08 99 22 1D 1D 1D 1D 54 52 59 20 |"......"....TRY |
00000970: 41 47 41 49 4E 3F 20 28 59 20 4F 52 20 4E 29 22 |AGAIN? (Y OR N)"|
00000980: 00 8A 11 E8 08 8D 31 33 34 30 00 9B 11 F2 08 8B |......1340......|
00000990: 41 24 B2 22 59 22 A7 32 31 39 30 00 AD 11 FC 08 |A$."Y".2190.....|
000009A0: 8B 41 24 B3 B1 22 4E 22 A7 32 32 38 30 00 B3 11 |.A$.."N".2280...|
000009B0: 06 09 8E 00 B9 11 10 09 3A 00 BF 11 60 09 3A 00 |........:...`.:.|
000009C0: E3 11 6A 09 8F 20 20 53 55 42 20 54 4F 20 4D 41 |..j.. SUB TO MA|
000009D0: 52 4B 20 4F 52 20 55 4E 4D 41 52 4B 20 41 20 48 |RK OR UNMARK A H|
000009E0: 4F 4C 45 00 E9 11 74 09 8F 00 06 12 88 09 99 22 |OLE...t........"|
000009F0: 13 12 11 11 1D 1D 1D 1D 1D 20 20 20 9D 9D 9D 22 |......... ..."|
00000A00: 3B 48 3B 22 92 22 00 27 12 90 09 41 44 B2 31 33 |;H;".".'...AD.13|
00000A10: AC 34 30 39 36 AA 38 AC 32 35 36 AA 31 31 AC 34 |.4096.8.256.11.4|
00000A20: 30 AA 39 3A 4D B2 48 00 3F 12 92 09 8B 48 B1 39 |0.9:M.H.?....H.9|
00000A30: A7 41 44 B2 41 44 AA 31 34 3A 4D B2 48 AB 39 00 |.AD.AD.14:M.H.9.|
00000A40: 4D 12 9C 09 97 41 44 AA 4D 2C 43 3A 8E 00 53 12 |M....AD.M,C:..S.|
00000A50: A6 09 3A 00 59 12 C4 09 3A 00 7A 12 CE 09 8F 20 |..:.Y...:.z.... |
00000A60: 20 53 55 42 20 54 4F 20 53 45 4C 45 43 54 20 41 | SUB TO SELECT A|
00000A70: 20 54 52 45 45 20 54 59 50 45 00 80 12 D8 09 8F | TREE TYPE......|
00000A80: 00 89 12 EC 09 8D 35 33 30 00 B1 12 F6 09 99 22 |......530......"|
00000A90: 43 55 52 52 45 4E 54 20 54 52 45 45 53 20 4F 4E |CURRENT TREES ON|
00000AA0: 20 54 48 49 53 20 48 4F 4C 45 20 41 52 45 20 22 | THIS HOLE ARE "|
00000AB0: 3B 00 D4 12 00 0A 49 B2 39 31 36 AA 48 AB 31 3A |;.....I.916.H.1:|
00000AC0: 54 24 B2 C7 28 C2 28 49 29 29 3A 4D 24 B2 22 50 |T$..(.(I)):M$."P|
00000AD0: 49 4E 45 22 00 EB 12 0A 0A 8B 54 24 B2 22 41 22 |INE"......T$."A"|
00000AE0: A7 4D 24 B2 22 4D 41 50 4C 45 22 00 01 13 14 0A |.M$."MAPLE".....|
00000AF0: 8B 54 24 B2 22 42 22 A7 4D 24 B2 22 50 41 4C 4D |.T$."B".M$."PALM|
00000B00: 22 00 16 13 1E 0A 8B 54 24 B2 22 43 22 A7 4D 24 |"......T$."C".M$|
00000B10: B2 22 45 4C 4D 22 00 37 13 28 0A 99 4D 24 3A 99 |."ELM".7.(..M$:.|
00000B20: 3A 99 22 20 20 20 20 20 50 4C 45 41 53 45 20 53 |:." PLEASE S|
00000B30: 45 4C 45 43 54 3A 22 00 5F 13 32 0A 99 22 20 20 |ELECT:"._.2.." |
00000B40: 20 20 20 28 41 29 20 20 4D 41 50 4C 45 20 20 20 | (A) MAPLE |
00000B50: 20 20 20 28 43 29 20 20 50 4F 50 4C 41 52 22 00 | (C) POPLAR".|
00000B60: 85 13 3C 0A 99 22 20 20 20 20 20 28 42 29 20 20 |..<.." (B) |
00000B70: 50 41 4C 4D 20 20 20 20 20 20 20 28 44 29 20 20 |PALM (D) |
00000B80: 50 49 4E 45 22 00 AB 13 46 0A 99 22 20 20 20 20 |PINE"...F.." |
00000B90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BA0: 20 28 2F 29 20 20 45 58 49 54 22 00 B5 13 50 0A | (/) EXIT"...P.|
00000BB0: 8D 31 33 34 30 00 C3 13 5A 0A 8B 41 24 B2 22 2F |.1340...Z..A$."/|
00000BC0: 22 A7 8E 00 DB 13 64 0A 8B 41 24 B3 22 41 22 B0 |".....d..A$."A".|
00000BD0: 41 24 B1 22 44 22 A7 32 36 34 30 00 E1 13 6E 0A |A$."D".2640...n.|
00000BE0: 8E 00 E7 13 73 0A 3A 00 FD 13 78 0A 8F 20 20 53 |....s.:...x.. S|
00000BF0: 55 42 20 54 4F 20 44 4F 20 42 45 45 50 00 03 14 |UB TO DO BEEP...|
00000C00: 7A 0A 8F 00 19 14 82 0A 97 53 AA 34 2C 33 32 3A |z........S.4,32:|
00000C10: 97 53 AA 34 2C 33 33 3A 8E 00 1F 14 84 0A 3A 00 |.S.4,33:......:.|
00000C20: 25 14 8C 0A 3A 00 3E 14 96 0A 8F 20 2D 2D 2D 2D |%...:.>.... ----|
00000C30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 44 |--------------.D|
00000C40: 14 A0 0A 8F 00 5D 14 AA 0A 8F 20 20 20 45 44 49 |.....].... EDI|
00000C50: 54 4F 52 20 4D 41 49 4E 20 4C 4F 4F 50 00 63 14 |TOR MAIN LOOP.c.|
00000C60: B4 0A 8F 00 7C 14 BE 0A 8F 20 2D 2D 2D 2D 2D 2D |....|.... ------|
00000C70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 98 14 D2 |------------....|
00000C80: 0A 8D 31 30 37 34 30 20 20 20 20 20 3A 8F 20 20 |..10740 :. |
00000C90: 44 4F 20 53 45 54 55 50 00 B7 14 DC 0A 8D 31 30 |DO SETUP......10|
00000CA0: 31 30 35 20 20 20 20 20 3A 8F 20 42 55 49 4C 44 |105 :. BUILD|
00000CB0: 20 53 43 52 45 45 4E 00 D6 14 E6 0A 8D 32 31 34 | SCREEN......214|
00000CC0: 30 20 20 20 20 20 20 3A 8F 20 43 48 4B 20 54 48 |0 :. CHK TH|
00000CD0: 45 20 44 49 53 4B 00 FB 14 F0 0A 8B 45 52 A7 99 |E DISK......ER..|
00000CE0: 22 93 05 50 52 4F 47 52 41 4D 20 54 45 52 4D 49 |"..PROGRAM TERMI|
00000CF0: 4E 41 54 45 44 2E 2E 2E 22 3A 80 00 0E 15 FA 0A |NATED...":......|
00000D00: 8D 33 30 34 30 3A 8B 45 52 A7 32 38 30 30 00 17 |.3040:.ER.2800..|
00000D10: 15 04 0B 8D 35 33 30 00 22 15 0E 0B 58 B2 B8 28 |....530."...X..(|
00000D20: 58 29 00 4F 15 18 0B 99 22 11 20 20 20 20 20 28 |X).O....". (|
00000D30: 9F 4C 05 29 2E 2E 2E 4C 4F 41 44 20 41 20 43 4F |.L.)...LOAD A CO|
00000D40: 55 52 53 45 20 46 52 4F 4D 20 44 49 53 4B 22 00 |URSE FROM DISK".|
00000D50: 79 15 22 0B 99 22 20 20 20 20 20 28 9F 53 05 29 |y.".." (.S.)|
00000D60: 2E 2E 2E 53 41 56 45 20 41 20 43 4F 55 52 53 45 |...SAVE A COURSE|
00000D70: 20 54 4F 20 44 49 53 4B 22 00 A0 15 2C 0B 99 22 | TO DISK"...,.."|
00000D80: 20 20 20 20 20 28 9F 4D 05 29 2E 2E 2E 4D 4F 44 | (.M.)...MOD|
00000D90: 49 46 59 20 54 48 49 53 20 43 4F 55 52 53 45 22 |IFY THIS COURSE"|
00000DA0: 00 AA 15 36 0B 8D 31 33 34 30 00 C2 15 40 0B 8B |...6..1340...@..|
00000DB0: 41 24 B2 22 4C 22 A7 8D 33 32 34 30 3A 89 32 38 |A$."L"..3240:.28|
00000DC0: 32 30 00 DA 15 4A 0B 8B 41 24 B2 22 53 22 A7 8D |20...J..A$."S"..|
00000DD0: 34 31 34 30 3A 89 32 38 32 30 00 F2 15 54 0B 8B |4140:.2820...T..|
00000DE0: 41 24 B2 22 4D 22 A7 8D 34 35 34 30 3A 89 32 38 |A$."M"..4540:.28|
00000DF0: 32 30 00 FC 15 5E 0B 89 32 38 37 30 00 02 16 68 |20...^..2870...h|
00000E00: 0B 3A 00 08 16 B8 0B 3A 00 26 16 C2 0B 8F 20 53 |.:.....:.&.... S|
00000E10: 55 42 20 54 4F 20 49 4E 49 54 20 43 4F 55 52 53 |UB TO INIT COURS|
00000E20: 45 20 44 41 54 41 00 2C 16 CC 0B 8F 00 4F 16 E0 |E DATA.,.....O..|
00000E30: 0B 4E 41 4D 45 24 B2 22 41 22 3A 48 4F 4C 45 B2 |.NAME$."A":HOLE.|
00000E40: 31 3A 54 46 24 B2 22 22 3A 48 46 24 B2 22 22 00 |1:TF$."":HF$."".|
00000E50: 58 16 EA 0B 8D 35 33 30 00 7D 16 F4 0B 99 22 11 |X....530.}....".|
00000E60: 11 1D 1D 1D 1D 1D 1D 4C 4F 41 44 49 4E 47 20 43 |.......LOADING C|
00000E70: 4F 55 52 53 45 20 3C 41 3E 2E 2E 2E 22 00 8B 16 |OURSE <A>..."...|
00000E80: FE 0B 46 B2 30 3A 8D 33 37 31 30 00 95 16 08 0C |..F.0:.3710.....|
00000E90: 8B 45 52 A7 8E 00 A6 16 12 0C 8D 33 35 34 30 3A |.ER........3540:|
00000EA0: 8D 31 30 39 34 30 00 B4 16 1C 0C 46 B2 31 3A 8D |.10940.....F.1:.|
00000EB0: 33 37 31 30 00 BE 16 26 0C 8B 45 52 A7 8E 00 D0 |3710...&..ER....|
00000EC0: 16 30 0C 9E 31 36 31 35 37 3A 9E 31 36 31 37 32 |.0..16157:.16172|
00000ED0: 00 DE 16 3A 0C 46 B2 32 3A 8D 33 37 31 30 00 E8 |...:.F.2:.3710..|
00000EE0: 16 44 0C 8B 45 52 A7 8E 00 F8 16 4E 0C 8D 31 35 |.D..ER.....N..15|
00000EF0: 34 30 3A 8D 31 36 34 30 00 08 17 58 0C 8D 31 38 |40:.1640...X..18|
00000F00: 34 30 3A 8D 32 30 34 30 00 2F 17 62 0C 54 46 24 |40:.2040./.b.TF$|
00000F10: B2 22 41 22 3A 48 46 24 B2 22 41 30 31 22 3A 48 |."A":HF$."A01":H|
00000F20: B2 31 3A 48 31 B2 31 3A 43 53 24 B2 22 41 22 00 |.1:H1.1:CS$."A".|
00000F30: 4D 17 6C 0C 52 43 24 B2 22 41 22 3A 52 48 B2 31 |M.l.RC$."A":RH.1|
00000F40: 3A 4F 43 B2 36 35 3A 4F 48 B2 31 3A 8E 00 53 17 |:OC.65:OH.1:..S.|
00000F50: 76 0C 3A 00 59 17 80 0C 3A 00 79 17 8A 0C 8F 20 |v.:.Y...:.y.... |
00000F60: 20 53 55 42 20 54 4F 20 4C 4F 41 44 20 43 4F 4E | SUB TO LOAD CON|
00000F70: 54 52 4F 4C 20 46 49 4C 45 00 7F 17 94 0C 8F 00 |TROL FILE.......|
00000F80: 89 17 A8 0C 8D 32 31 34 30 00 93 17 B2 0C 8B 45 |.....2140......E|
00000F90: 52 A7 8E 00 9D 17 BC 0C 8D 31 34 34 30 00 A6 17 |R........1440...|
00000FA0: C6 0C 8D 35 33 30 00 BF 17 D0 0C 99 22 44 49 52 |...530......"DIR|
00000FB0: 45 43 54 4F 52 59 3A 20 20 20 22 3B 44 52 24 00 |ECTORY: ";DR$.|
00000FC0: E2 17 DA 0C 99 3A 99 22 20 20 20 52 45 41 44 59 |.....:." READY|
00000FD0: 20 54 4F 20 4C 4F 41 44 20 41 20 43 4F 55 52 53 | TO LOAD A COURS|
00000FE0: 45 22 00 11 18 E4 0C 99 3A 99 22 20 20 20 45 4E |E"......:." EN|
00000FF0: 54 45 52 20 43 4F 55 52 53 45 20 49 44 45 4E 54 |TER COURSE IDENT|
00001000: 49 46 49 45 52 20 28 41 20 54 48 52 55 20 5A 29 |IFIER (A THRU Z)|
00001010: 22 00 31 18 EE 0C 99 22 20 20 20 4F 52 20 50 52 |".1...." OR PR|
00001020: 45 53 53 20 28 2F 29 20 54 4F 20 45 58 49 54 2E |ESS (/) TO EXIT.|
00001030: 22 00 3B 18 F8 0C 8D 31 33 34 30 00 49 18 02 0D |".;....1340.I...|
00001040: 8B 41 24 B2 22 2F 22 A7 8E 00 61 18 0C 0D 8B 41 |.A$."/"...a....A|
00001050: 24 B3 22 41 22 B0 41 24 B1 22 5A 22 A7 33 33 32 |$."A".A$."Z".332|
00001060: 30 00 6E 18 16 0D 4E 41 4D 45 24 B2 41 24 00 99 |0.n...NAME$.A$..|
00001070: 18 20 0D 8B 4D 46 4C 41 47 B2 30 A7 33 34 34 30 |. ..MFLAG.0.3440|
00001080: 20 20 3A 8F 20 49 46 20 4E 4F 20 4D 4F 44 53 20 | :. IF NO MODS |
00001090: 54 48 45 4E 20 4F 4B 41 59 00 A2 18 2A 0D 8D 35 |THEN OKAY...*..5|
000010A0: 33 30 00 D1 18 34 0D 99 22 81 43 55 52 52 45 4E |30...4..".CURREN|
000010B0: 54 20 43 48 41 4E 47 45 53 20 49 4E 20 4D 45 4D |T CHANGES IN MEM|
000010C0: 4F 52 59 20 57 49 4C 4C 20 42 45 20 4C 4F 53 54 |ORY WILL BE LOST|
000010D0: 22 00 F2 18 3E 0D 99 22 49 46 20 59 4F 55 20 4C |"...>.."IF YOU L|
000010E0: 4F 41 44 20 54 48 49 53 20 43 4F 55 52 53 45 22 |OAD THIS COURSE"|
000010F0: 3A 99 00 1A 19 48 0D 99 22 44 4F 20 59 4F 55 20 |:....H.."DO YOU |
00001100: 57 49 53 48 20 54 4F 20 50 52 4F 43 45 45 44 3F |WISH TO PROCEED?|
00001110: 20 28 59 20 4F 52 20 4E 29 22 00 24 19 52 0D 8D | (Y OR N)".$.R..|
00001120: 31 33 34 30 00 32 19 5C 0D 8B 41 24 B2 22 4E 22 |1340.2.\..A$."N"|
00001130: A7 8E 00 52 19 66 0D 8B 41 24 B3 B1 22 59 22 A7 |...R.f..A$.."Y".|
00001140: 33 34 31 30 20 20 20 20 20 20 20 20 20 20 20 20 |3410 |
00001150: 20 20 00 68 19 70 0D 46 B2 30 3A 8D 33 37 31 30 | .h.p.F.0:.3710|
00001160: 3A 4D 46 4C 41 47 B2 30 00 75 19 7A 0D 8B 45 52 |:MFLAG.0.u.z..ER|
00001170: A7 33 32 37 30 00 86 19 84 0D 8D 33 35 34 30 3A |.3270......3540:|
00001180: 8D 31 30 39 34 30 00 96 19 86 0D 8D 31 35 34 30 |.10940......1540|
00001190: 3A 8D 31 36 34 30 00 A6 19 88 0D 8D 31 38 34 30 |:.1640......1840|
000011A0: 3A 8D 32 30 34 30 00 AC 19 8A 0D 8E 00 B2 19 8E |:.2040..........|
000011B0: 0D 3A 00 B8 19 AC 0D 3A 00 D7 19 B6 0D 8F 20 20 |.:.....:...... |
000011C0: 53 55 42 20 54 4F 20 54 52 41 4E 53 46 45 52 20 |SUB TO TRANSFER |
000011D0: 43 54 20 46 49 4C 45 00 DD 19 C0 0D 8F 00 F8 19 |CT FILE.........|
000011E0: D4 0D 41 B2 38 33 32 3A 42 B2 34 38 38 36 34 20 |..A.832:B.48864 |
000011F0: 3A 8F 20 24 42 45 45 30 00 13 1A DE 0D 81 49 B2 |:. $BEE0......I.|
00001200: 30 A4 31 30 31 3A 97 42 AA 49 2C C2 28 41 AA 49 |0.101:.B.I,.(A.I|
00001210: 29 3A 82 00 19 1A E8 0D 8E 00 1F 1A F2 0D 3A 00 |):............:.|
00001220: 25 1A 10 0E 3A 00 3E 1A 1A 0E 8F 20 53 55 42 20 |%...:.>.... SUB |
00001230: 54 4F 20 4C 4F 41 44 20 41 20 46 49 4C 45 00 51 |TO LOAD A FILE.Q|
00001240: 1A 24 0E 8F 20 20 45 4E 54 45 52 20 57 49 54 48 |.$.. ENTER WITH|
00001250: 3A 00 6C 1A 2E 0E 8F 20 20 20 20 4E 41 4D 45 24 |:.l.... NAME$|
00001260: 3D 41 2C 42 2C 43 2C 44 2C 2E 2E 2E 00 87 1A 38 |=A,B,C,D,......8|
00001270: 0E 8F 20 20 20 20 48 4F 4C 45 20 3D 48 4F 4C 45 |.. HOLE =HOLE|
00001280: 23 28 31 2D 31 38 29 00 A3 1A 42 0E 8F 20 20 20 |#(1-18)...B.. |
00001290: 20 20 20 20 20 46 3D 30 20 20 20 20 43 54 20 46 | F=0 CT F|
000012A0: 49 4C 45 00 C1 1A 4C 0E 8F 20 20 20 20 20 20 20 |ILE...L.. |
000012B0: 20 46 3D 31 20 20 20 20 54 52 45 45 20 46 49 4C | F=1 TREE FIL|
000012C0: 45 00 E4 1A 51 0E 8F 20 20 20 20 20 20 20 20 20 |E...Q.. |
000012D0: 4E 4F 20 4C 4F 41 44 20 49 46 20 4E 41 4D 45 24 |NO LOAD IF NAME$|
000012E0: 3D 54 46 24 00 02 1B 56 0E 8F 20 20 20 20 20 20 |=TF$...V.. |
000012F0: 20 20 46 3D 32 20 20 20 20 48 4F 4C 45 20 46 49 | F=2 HOLE FI|
00001300: 4C 45 00 25 1B 60 0E 8F 20 20 20 20 20 20 20 20 |LE.%.`.. |
00001310: 20 4E 4F 20 4C 4F 41 44 20 49 46 20 4E 41 4D 45 | NO LOAD IF NAME|
00001320: 24 3D 48 46 24 00 2B 1B 6A 0E 8F 00 3F 1B 7E 0E |$=HF$.+.j...?.~.|
00001330: 45 52 B2 30 3A 8B 46 B3 B1 30 A7 33 38 33 30 00 |ER.0:.F..0.3830.|
00001340: 53 1B 88 0E 8F 20 20 20 20 44 4F 20 43 54 20 46 |S.... DO CT F|
00001350: 49 4C 45 00 75 1B 92 0E 42 24 B2 22 43 22 3A 43 |ILE.u...B$."C":C|
00001360: 24 B2 22 54 22 3A 53 41 B2 30 3A 58 52 B2 36 34 |$."T":SA.0:XR.64|
00001370: 3A 59 52 B2 33 00 9D 1B 9C 0E 97 38 32 38 2C C6 |:YR.3......828,.|
00001380: 28 4E 41 4D 45 24 29 3A 97 38 32 39 2C C6 28 42 |(NAME$):.829,.(B|
00001390: 24 29 3A 97 38 33 30 2C C6 28 43 24 29 00 C6 1B |$):.830,.(C$)...|
000013A0: A1 0E 8B 52 46 4C 41 47 B2 30 A7 58 24 B2 4E 41 |...RFLAG.0.X$.NA|
000013B0: 4D 45 24 AA 42 24 AA 43 24 3A 8D 31 30 34 33 30 |ME$.B$.C$:.10430|
000013C0: 3A 8D 31 30 32 30 00 E1 1B A3 0E 8B 52 46 4C 41 |:.1020......RFLA|
000013D0: 47 B2 30 AF 45 52 B3 B1 30 A7 8D 31 31 34 30 3A |G.0.ER..0..1140:|
000013E0: 8E 00 FB 1B A6 0E 97 37 38 30 2C 31 3A 97 37 38 |.......780,1:.78|
000013F0: 31 2C 38 3A 97 37 38 32 2C 53 41 00 18 1C B0 0E |1,8:.782,SA.....|
00001400: 9E 36 35 34 36 36 20 20 20 3A 8F 20 24 46 46 42 |.65466 :. $FFB|
00001410: 41 20 53 45 54 4C 46 53 00 32 1C BA 0E 97 37 38 |A SETLFS.2....78|
00001420: 30 2C 33 3A 97 37 38 31 2C 36 30 3A 97 37 38 32 |0,3:.781,60:.782|
00001430: 2C 33 00 4F 1C C4 0E 9E 36 35 34 36 39 20 20 20 |,3.O....65469 |
00001440: 3A 8F 20 24 46 46 42 44 20 53 45 54 4E 41 4D 00 |:. $FFBD SETNAM.|
00001450: 64 1C CE 0E 8B 52 46 4C 41 47 A7 52 46 4C 41 47 |d....RFLAG.RFLAG|
00001460: B2 30 3A 8E 00 7F 1C D8 0E 97 37 38 30 2C 30 3A |.0:.......780,0:|
00001470: 97 37 38 31 2C 58 52 3A 97 37 38 32 2C 59 52 00 |.781,XR:.782,YR.|
00001480: 9A 1C E2 0E 9E 36 35 34 39 33 20 20 20 3A 8F 20 |.....65493 :. |
00001490: 24 46 46 44 35 20 4C 4F 41 44 00 A0 1C EC 0E 8E |$FFD5 LOAD......|
000014A0: 00 AF 1C F6 0E 8B 46 B3 B1 31 A7 33 39 30 30 00 |......F..1.3900.|
000014B0: C4 1C 00 0F 8F 20 20 20 44 4F 20 54 52 45 45 20 |..... DO TREE |
000014C0: 46 49 4C 45 00 D5 1C 0A 0F 8B 4E 41 4D 45 24 B2 |FILE......NAME$.|
000014D0: 54 46 24 A7 8E 00 E3 1C 14 0F 54 46 24 B2 4E 41 |TF$.......TF$.NA|
000014E0: 4D 45 24 00 06 1D 1E 0F 42 24 B2 22 54 22 3A 43 |ME$.....B$."T":C|
000014F0: 24 B2 22 46 22 3A 53 41 B2 30 3A 58 52 B2 38 30 |$."F":SA.0:XR.80|
00001500: 3A 59 52 B2 37 39 00 21 1D 28 0F 8D 20 33 37 34 |:YR.79.!.(.. 374|
00001510: 30 3A 9E 31 36 31 35 37 3A 9E 31 36 31 37 32 3A |0:.16157:.16172:|
00001520: 8E 00 34 1D 32 0F 8F 20 44 4F 20 48 4F 4C 45 20 |..4.2.. DO HOLE |
00001530: 46 49 4C 45 00 3E 1D 3C 0F 8D 34 30 34 30 00 55 |FILE.>.<..4040.U|
00001540: 1D 46 0F 8B 4E 41 4D 45 24 AA 42 24 AA 43 24 B2 |.F..NAME$.B$.C$.|
00001550: 48 46 24 A7 8E 00 69 1D 50 0F 48 46 24 B2 4E 41 |HF$...i.P.HF$.NA|
00001560: 4D 45 24 AA 42 24 AA 43 24 00 7A 1D 5A 0F 53 41 |ME$.B$.C$.z.Z.SA|
00001570: B2 32 35 35 3A 89 33 37 34 30 00 80 1D 64 0F 3A |.255:.3740...d.:|
00001580: 00 86 1D A0 0F 3A 00 A5 1D AA 0F 8F 20 20 53 55 |.....:...... SU|
00001590: 42 20 54 4F 20 46 4F 52 4D 20 48 4F 4C 45 20 53 |B TO FORM HOLE S|
000015A0: 54 52 49 4E 47 00 AB 1D B4 0F 8F 00 CF 1D C8 0F |TRING...........|
000015B0: 8B 48 4F 4C 45 B3 31 30 A7 42 24 B2 22 30 22 3A |.HOLE.10.B$."0":|
000015C0: 43 24 B2 C7 28 34 38 AA 48 4F 4C 45 29 3A 8E 00 |C$..(48.HOLE):..|
000015D0: EA 1D D2 0F 42 24 B2 22 31 22 3A 43 24 B2 C7 28 |....B$."1":C$..(|
000015E0: 33 38 AA 48 4F 4C 45 29 3A 8E 00 F0 1D DC 0F 3A |38.HOLE):......:|
000015F0: 00 F6 1D 04 10 3A 00 18 1E 0E 10 8F 20 53 55 42 |.....:...... SUB|
00001600: 20 54 4F 20 53 41 56 45 20 43 54 20 46 49 4C 45 | TO SAVE CT FILE|
00001610: 20 54 4F 20 44 49 53 4B 00 1E 1E 18 10 8F 00 28 | TO DISK.......(|
00001620: 1E 2C 10 8D 32 31 34 30 00 32 1E 36 10 8B 45 52 |.,..2140.2.6..ER|
00001630: A7 8E 00 3C 1E 40 10 8D 31 34 34 30 00 45 1E 4A |...<.@..1440.E.J|
00001640: 10 8D 35 33 30 00 5E 1E 54 10 99 22 44 49 52 45 |..530.^.T.."DIRE|
00001650: 43 54 4F 52 59 3A 20 20 20 22 3B 44 52 24 00 81 |CTORY: ";DR$..|
00001660: 1E 5E 10 99 3A 99 22 20 20 20 52 45 41 44 59 20 |.^..:." READY |
00001670: 54 4F 20 53 41 56 45 20 41 20 43 4F 55 52 53 45 |TO SAVE A COURSE|
00001680: 22 00 AF 1E 68 10 99 3A 99 22 20 20 20 45 4E 54 |"...h..:." ENT|
00001690: 45 52 20 43 4F 55 52 53 45 20 49 44 45 4E 54 49 |ER COURSE IDENTI|
000016A0: 46 49 45 52 20 28 45 20 54 48 52 55 20 5A 29 00 |FIER (E THRU Z).|
000016B0: CF 1E 72 10 99 22 20 20 20 4F 52 20 50 52 45 53 |..r.." OR PRES|
000016C0: 53 20 28 2F 29 20 54 4F 20 45 58 49 54 2E 22 00 |S (/) TO EXIT.".|
000016D0: D9 1E 7C 10 8D 31 33 34 30 00 E7 1E 86 10 8B 41 |..|..1340......A|
000016E0: 24 B2 22 2F 22 A7 8E 00 FF 1E 90 10 8B 41 24 B3 |$."/"........A$.|
000016F0: 22 45 22 B0 41 24 B1 22 5A 22 A7 34 32 32 30 00 |"E".A$."Z".4220.|
00001700: 0C 1F 9A 10 4E 41 4D 45 24 B2 41 24 00 16 1F A4 |....NAME$.A$....|
00001710: 10 8D 33 35 34 30 00 26 1F AE 10 8D 34 34 34 30 |..3540.&....4440|
00001720: 3A 8D 31 30 32 30 00 32 1F B8 10 8B 45 52 B2 30 |:.1020.2....ER.0|
00001730: A7 8E 00 46 1F C2 10 8B 45 52 B3 B1 36 33 A7 8D |...F....ER..63..|
00001740: 31 31 34 30 3A 8E 00 4F 1F CC 10 8D 35 33 30 00 |1140:..O....530.|
00001750: 72 1F D6 10 99 22 11 20 20 20 20 46 49 4C 45 20 |r....". FILE |
00001760: 41 4C 52 45 41 44 59 20 45 58 49 53 54 53 2E 22 |ALREADY EXISTS."|
00001770: 3A 99 00 93 1F E0 10 99 22 20 20 20 20 52 45 50 |:......." REP|
00001780: 4C 41 43 45 20 49 54 3F 20 20 28 59 20 4F 52 20 |LACE IT? (Y OR |
00001790: 4E 29 22 00 9D 1F EA 10 8D 31 33 34 30 00 AE 1F |N)"......1340...|
000017A0: F4 10 8B 41 24 B2 22 4E 22 A7 34 31 37 30 00 C0 |...A$."N".4170..|
000017B0: 1F FE 10 8B 41 24 B3 B1 22 59 22 A7 34 33 33 30 |....A$.."Y".4330|
000017C0: 00 D9 1F 08 11 41 24 B2 22 53 30 3A 22 AA 4E 41 |.....A$."S0:".NA|
000017D0: 4D 45 24 AA 42 24 AA 43 24 00 F1 1F 12 11 9F 31 |ME$.B$.C$......1|
000017E0: 35 2C 38 2C 31 35 3A 98 31 35 2C 41 24 3A A0 31 |5,8,15:.15,A$:.1|
000017F0: 35 00 FB 1F 1C 11 89 34 32 37 30 00 01 20 26 11 |5......4270.. &.|
00001800: 3A 00 07 20 30 11 3A 00 27 20 3A 11 8F 20 20 53 |:.. 0.:.' :.. S|
00001810: 55 42 20 54 4F 20 53 41 56 45 20 43 4F 4E 54 52 |UB TO SAVE CONTR|
00001820: 4F 4C 20 46 49 4C 45 00 2D 20 44 11 8F 00 44 20 |OL FILE.- D...D |
00001830: 58 11 46 B2 30 3A 52 46 4C 41 47 B2 31 3A 53 41 |X.F.0:RFLAG.1:SA|
00001840: B2 32 35 35 00 69 20 62 11 8D 33 37 31 30 20 20 |.255.i b..3710 |
00001850: 20 20 20 20 20 3A 8F 20 53 45 54 4E 41 4D 20 26 | :. SETNAM &|
00001860: 20 4C 46 53 20 4F 4E 4C 59 00 74 20 6C 11 9E 31 | LFS ONLY.t l..1|
00001870: 36 31 32 38 00 7A 20 76 11 8E 00 80 20 80 11 3A |6128.z v.... ..:|
00001880: 00 86 20 94 11 3A 00 A2 20 9E 11 8F 20 20 53 55 |.. ..:.. ... SU|
00001890: 42 20 54 4F 20 4D 4F 44 49 46 59 20 41 20 48 4F |B TO MODIFY A HO|
000018A0: 4C 45 00 A8 20 A8 11 8F 00 B1 20 BC 11 8D 35 33 |LE.. ..... ...53|
000018B0: 30 00 C8 20 C6 11 99 22 20 20 20 20 20 4D 4F 44 |0.. ..." MOD|
000018C0: 49 46 59 49 4E 47 9E 22 00 DB 20 D0 11 99 22 20 |IFYING.".. ..." |
000018D0: 20 20 20 20 22 3B 43 52 24 3A 99 00 04 21 DA 11 | ";CR$:...!..|
000018E0: 99 22 05 20 20 20 20 20 28 31 29 20 20 43 48 41 |.". (1) CHA|
000018F0: 4E 47 45 20 54 48 45 20 43 4F 55 52 53 45 20 4E |NGE THE COURSE N|
00001900: 41 4D 45 22 00 23 21 E4 11 99 22 20 20 20 20 20 |AME".#!..." |
00001910: 28 32 29 20 20 43 48 41 4E 47 45 20 41 20 48 4F |(2) CHANGE A HO|
00001920: 4C 45 22 00 39 21 EE 11 99 22 20 20 20 20 20 28 |LE".9!..." (|
00001930: 2F 29 20 20 45 58 49 54 22 00 43 21 F8 11 8D 31 |/) EXIT".C!...1|
00001940: 33 34 30 00 5D 21 02 12 8B 41 24 B2 22 2F 22 A7 |340.]!...A$."/".|
00001950: 8E 20 20 20 20 20 20 20 20 20 20 20 20 00 75 21 |. .u!|
00001960: 0C 12 8B 41 24 B2 22 31 22 A7 8D 34 37 34 30 3A |...A$."1"..4740:|
00001970: 89 34 35 34 30 00 8D 21 16 12 8B 41 24 B2 22 32 |.4540..!...A$."2|
00001980: 22 A7 8D 34 39 34 32 3A 89 34 35 34 30 00 97 21 |"..4942:.4540..!|
00001990: 20 12 89 34 36 30 30 00 9D 21 2A 12 3A 00 A3 21 | ..4600..!*.:..!|
000019A0: 5C 12 3A 00 C5 21 66 12 8F 20 20 20 53 55 42 20 |\.:..!f.. SUB |
000019B0: 54 4F 20 43 48 41 4E 47 45 20 43 4F 55 52 53 45 |TO CHANGE COURSE|
000019C0: 20 4E 41 4D 45 00 CB 21 70 12 8F 00 D4 21 84 12 | NAME..!p....!..|
000019D0: 8D 35 33 30 00 F7 21 8E 12 99 22 20 20 20 20 20 |.530..!..." |
000019E0: 20 20 43 48 41 4E 47 49 4E 47 20 43 4F 55 52 53 | CHANGING COURS|
000019F0: 45 20 4E 41 4D 45 22 00 25 22 98 12 99 22 20 20 |E NAME".%"..." |
00001A00: 20 20 4F 4E 4C 59 20 4C 45 54 54 45 52 53 20 41 | ONLY LETTERS A|
00001A10: 4E 44 20 53 50 41 43 45 20 41 52 45 20 41 4C 4C |ND SPACE ARE ALL|
00001A20: 4F 57 45 44 22 00 52 22 A2 12 99 22 20 20 20 20 |OWED".R"..." |
00001A30: 45 4E 54 45 52 20 4E 45 57 20 4E 41 4D 45 20 41 |ENTER NEW NAME A|
00001A40: 4E 44 20 50 52 45 53 53 20 3C 52 45 54 55 52 4E |ND PRESS <RETURN|
00001A50: 3E 22 00 7B 22 AC 12 99 22 20 20 20 20 45 4E 54 |>".{"..." ENT|
00001A60: 45 52 20 28 2F 29 20 54 4F 20 45 58 49 54 22 3A |ER (/) TO EXIT":|
00001A70: 99 3A 99 22 20 20 20 20 20 22 3B 00 85 22 B6 12 |.:." ";.."..|
00001A80: 8D 35 35 34 30 00 93 22 C0 12 8B 41 24 B2 22 2F |.5540.."...A$."/|
00001A90: 22 A7 8E 00 A6 22 CA 12 43 52 24 B2 4D 24 3A 4D |"...."..CR$.M$:M|
00001AA0: 46 4C 41 47 B2 31 00 C4 22 D4 12 81 49 B2 30 A4 |FLAG.1.."...I.0.|
00001AB0: 32 39 3A 97 38 33 32 AA 49 2C C2 28 39 33 34 AA |29:.832.I,.(934.|
00001AC0: 49 29 3A 82 00 D0 22 D9 12 8D 31 35 34 30 3A 8E |I):..."...1540:.|
00001AD0: 00 D6 22 DE 12 3A 00 DC 22 24 13 3A 00 F8 22 2E |.."..:.."$.:..".|
00001AE0: 13 8F 20 20 53 55 42 20 54 4F 20 43 48 41 4E 47 |.. SUB TO CHANG|
00001AF0: 45 20 41 20 48 4F 4C 45 00 FE 22 38 13 8F 00 04 |E A HOLE.."8....|
00001B00: 23 4C 13 8F 00 12 23 4E 13 43 B2 33 3A 8D 32 34 |#L....#N.C.3:.24|
00001B10: 34 30 00 2E 23 50 13 48 B2 48 31 3A 43 B2 31 30 |40..#P.H.H1:C.10|
00001B20: 3A 8D 32 34 34 30 3A 4D 46 4C 41 47 B2 31 00 37 |:.2440:MFLAG.1.7|
00001B30: 23 56 13 8D 35 33 30 00 62 23 60 13 99 22 12 43 |#V..530.b#`..".C|
00001B40: 48 41 4E 47 49 4E 47 92 20 20 28 56 29 20 20 56 |HANGING. (V) V|
00001B50: 49 45 57 20 48 4F 4C 45 20 46 52 4F 4D 20 54 45 |IEW HOLE FROM TE|
00001B60: 45 22 00 99 23 6A 13 99 22 12 48 4F 4C 45 23 20 |E"..#j..".HOLE# |
00001B70: 20 20 9D 9D 9D 22 3B 48 3B 22 92 22 3B A3 31 30 | ...";H;".";.10|
00001B80: 29 3B 22 28 54 29 20 20 54 4F 50 20 56 49 45 57 |);"(T) TOP VIEW|
00001B90: 20 4F 46 20 48 4F 4C 45 22 00 BB 23 74 13 99 A3 | OF HOLE"..#t...|
00001BA0: 31 30 29 3B 22 28 43 29 20 20 43 48 41 4E 47 45 |10);"(C) CHANGE|
00001BB0: 20 54 52 45 45 20 54 59 50 45 22 00 E6 23 7E 13 | TREE TYPE"..#~.|
00001BC0: 99 22 20 28 43 52 53 52 20 4C 54 2F 52 54 29 20 |." (CRSR LT/RT) |
00001BD0: 20 4D 4F 56 45 20 54 4F 20 41 4E 4F 54 48 45 52 | MOVE TO ANOTHER|
00001BE0: 20 48 4F 4C 45 22 00 12 24 88 13 99 22 20 20 20 | HOLE"..$..." |
00001BF0: 20 20 20 28 53 50 41 43 45 29 20 20 46 49 4E 44 | (SPACE) FIND|
00001C00: 20 52 45 50 4C 41 43 45 4D 45 4E 54 20 48 4F 4C | REPLACEMENT HOL|
00001C10: 45 22 00 28 24 92 13 99 A3 31 30 29 3B 22 28 2F |E".($....10);"(/|
00001C20: 29 20 20 45 58 49 54 22 00 32 24 9C 13 8D 31 33 |) EXIT".2$...13|
00001C30: 34 30 00 4F 24 A6 13 8B 41 24 B2 22 2F 22 A7 43 |40.O$...A$."/".C|
00001C40: B2 33 3A 48 B2 48 31 3A 8D 32 34 34 30 3A 8E 00 |.3:H.H1:.2440:..|
00001C50: 67 24 B0 13 8B 41 24 B2 22 56 22 B0 41 24 B2 22 |g$...A$."V".A$."|
00001C60: 54 22 A7 35 30 38 30 00 78 24 BA 13 8B 41 24 B2 |T".5080.x$...A$.|
00001C70: 22 43 22 A7 35 31 37 30 00 89 24 C4 13 8B 41 24 |"C".5170..$...A$|
00001C80: B2 22 20 22 A7 35 32 30 30 00 A9 24 C6 13 8B 41 |." ".5200..$...A|
00001C90: 24 B2 22 9D 22 A7 48 31 B2 48 31 AB 31 3A 8B 48 |$.".".H1.H1.1:.H|
00001CA0: 31 B3 31 A7 48 31 B2 31 38 00 C9 24 C8 13 8B 41 |1.1.H1.18..$...A|
00001CB0: 24 B2 22 1D 22 A7 48 31 B2 48 31 AA 31 3A 8B 48 |$.".".H1.H1.1:.H|
00001CC0: 31 B1 31 38 A7 48 31 B2 31 00 EE 24 CA 13 8B 48 |1.18.H1.1..$...H|
00001CD0: 31 B3 B1 48 A7 43 B2 33 3A 8D 32 34 34 30 3A 48 |1..H.C.3:.2440:H|
00001CE0: B2 48 31 3A 43 B2 31 30 3A 8D 32 34 34 30 00 F8 |.H1:C.10:.2440..|
00001CF0: 24 CE 13 89 35 30 32 30 00 0A 25 D8 13 49 B2 38 |$...5020..%..I.8|
00001D00: 36 32 AA 28 48 AB 31 29 AC 33 00 40 25 E2 13 4D |62.(H.1).3.@%..M|
00001D10: 24 B2 C7 28 C2 28 49 29 29 3A 4E 41 4D 45 24 B2 |$..(.(I)):NAME$.|
00001D20: 4D 24 3A 48 4F 4C 45 B2 28 C2 28 49 AA 31 29 AB |M$:HOLE.(.(I.1).|
00001D30: 34 38 29 AC 31 30 AA C2 28 49 AA 32 29 AB 34 38 |48).10..(I.2).48|
00001D40: 00 4E 25 EC 13 46 B2 32 3A 8D 33 37 31 30 00 5B |.N%..F.2:.3710.[|
00001D50: 25 F6 13 8B 45 52 A7 34 39 35 30 00 77 25 00 14 |%...ER.4950.w%..|
00001D60: 49 B2 39 31 36 AA 48 AB 31 3A 4E 41 4D 45 24 B2 |I.916.H.1:NAME$.|
00001D70: C7 28 C2 28 49 29 29 00 85 25 0A 14 46 B2 31 3A |.(.(I))..%..F.1:|
00001D80: 8D 33 37 31 30 00 92 25 14 14 8B 45 52 A7 34 39 |.3710..%...ER.49|
00001D90: 35 30 00 A3 25 28 14 8D 31 31 30 30 30 3A 89 34 |50..%(..11000:.4|
00001DA0: 39 35 30 00 AD 25 32 14 8D 32 35 34 30 00 BE 25 |950..%2..2540..%|
00001DB0: 3C 14 8B 41 24 B2 22 2F 22 A7 34 39 35 30 00 E1 |<..A$."/".4950..|
00001DC0: 25 46 14 49 B2 39 31 36 AA 48 AB 31 3A 97 49 2C |%F.I.916.H.1:.I,|
00001DD0: C6 28 41 24 29 3A 8D 32 30 34 30 3A 89 34 39 35 |.(A$):.2040:.495|
00001DE0: 30 00 EA 25 50 14 8D 35 33 30 00 0A 26 5A 14 99 |0..%P..530..&Z..|
00001DF0: 22 20 20 20 20 20 52 45 50 4C 41 43 45 4D 45 4E |" REPLACEMEN|
00001E00: 54 20 48 4F 4C 45 23 20 22 3B 00 13 26 64 14 8D |T HOLE# ";..&d..|
00001E10: 33 34 30 00 43 26 6E 14 99 22 13 11 11 9F 20 20 |340.C&n..".... |
00001E20: 20 20 43 55 52 53 4F 52 20 4B 45 59 53 20 57 49 | CURSOR KEYS WI|
00001E30: 4C 4C 20 4D 4F 56 45 20 54 48 45 20 4D 41 52 4B |LL MOVE THE MARK|
00001E40: 45 52 22 00 72 26 78 14 99 22 20 20 20 20 28 56 |ER".r&x.." (V|
00001E50: 29 20 20 56 49 45 57 20 52 45 50 4C 41 43 45 4D |) VIEW REPLACEM|
00001E60: 45 4E 54 20 48 4F 4C 45 20 46 52 4F 4D 20 54 45 |ENT HOLE FROM TE|
00001E70: 45 22 00 9F 26 82 14 99 22 20 20 20 20 28 54 29 |E"..&..." (T)|
00001E80: 20 20 54 4F 50 20 56 49 45 57 20 4F 46 20 52 45 | TOP VIEW OF RE|
00001E90: 50 4C 41 43 45 4D 45 4E 54 20 48 4F 4C 45 22 00 |PLACEMENT HOLE".|
00001EA0: C4 26 8C 14 99 22 28 52 45 54 55 52 4E 29 20 55 |.&..."(RETURN) U|
00001EB0: 53 45 20 52 45 50 4C 41 43 45 4D 45 4E 54 20 48 |SE REPLACEMENT H|
00001EC0: 4F 4C 45 22 00 D9 26 96 14 99 22 28 53 50 41 43 |OLE"..&..."(SPAC|
00001ED0: 45 29 20 20 45 58 49 54 22 00 E3 26 A0 14 8D 31 |E) EXIT"..&...1|
00001EE0: 33 34 30 00 F4 26 AA 14 8B 41 24 B2 22 20 22 A7 |340..&...A$." ".|
00001EF0: 34 39 35 30 00 0E 27 B4 14 8B 41 24 B2 22 9D 22 |4950..'...A$."."|
00001F00: A7 52 48 B2 52 48 AB 31 3A 89 35 33 37 30 00 28 |.RH.RH.1:.5370.(|
00001F10: 27 BE 14 8B 41 24 B2 22 1D 22 A7 52 48 B2 52 48 |'...A$.".".RH.RH|
00001F20: AA 31 3A 89 35 33 37 30 00 4A 27 C8 14 8B 41 24 |.1:.5370.J'...A$|
00001F30: B2 22 91 22 A7 52 43 24 B2 C7 28 C6 28 52 43 24 |.".".RC$..(.(RC$|
00001F40: 29 AB 31 29 3A 89 35 33 37 30 00 6C 27 D2 14 8B |).1):.5370.l'...|
00001F50: 41 24 B2 22 11 22 A7 52 43 24 B2 C7 28 C6 28 52 |A$.".".RC$..(.(R|
00001F60: 43 24 29 AA 31 29 3A 89 35 33 37 30 00 84 27 DC |C$).1):.5370..'.|
00001F70: 14 8B 41 24 B2 22 56 22 B0 41 24 B2 22 54 22 A7 |..A$."V".A$."T".|
00001F80: 35 33 38 30 00 97 27 E6 14 8B 41 24 B2 C7 28 31 |5380..'...A$..(1|
00001F90: 33 29 A7 35 34 34 30 00 A1 27 F0 14 89 35 32 38 |3).5440..'...528|
00001FA0: 30 00 B1 27 FA 14 8B 52 48 B3 31 A7 52 48 B2 31 |0..'...RH.1.RH.1|
00001FB0: 38 00 C1 27 FC 14 8B 52 48 B1 31 38 A7 52 48 B2 |8..'...RH.18.RH.|
00001FC0: 31 00 D6 27 FE 14 8B 52 43 24 B3 22 41 22 A7 52 |1..'...RC$."A".R|
00001FD0: 43 24 B2 22 44 22 00 EB 27 00 15 8B 52 43 24 B1 |C$."D"..'...RC$.|
00001FE0: 22 44 22 A7 52 43 24 B2 22 41 22 00 FA 27 02 15 |"D".RC$."A"..'..|
00001FF0: 8D 33 34 30 3A 89 35 32 38 30 00 12 28 04 15 46 |.340:.5280..(..F|
00002000: B2 31 3A 4E 41 4D 45 24 B2 52 43 24 3A 8D 33 37 |.1:NAME$.RC$:.37|
00002010: 31 30 00 1F 28 0E 15 8B 45 52 A7 35 32 30 30 00 |10..(...ER.5200.|
00002020: 3F 28 18 15 46 B2 32 3A 4E 41 4D 45 24 B2 52 43 |?(..F.2:NAME$.RC|
00002030: 24 3A 48 4F 4C 45 B2 52 48 3A 8D 33 37 31 30 00 |$:HOLE.RH:.3710.|
00002040: 4C 28 22 15 8B 45 52 A7 35 32 30 30 00 5D 28 36 |L("..ER.5200.](6|
00002050: 15 8D 31 31 30 30 30 3A 89 35 32 38 30 00 86 28 |..11000:.5280..(|
00002060: 40 15 49 B2 38 36 32 AA 28 48 AB 31 29 AC 33 3A |@.I.862.(H.1).3:|
00002070: 81 4B B2 31 A4 33 3A 41 B2 C6 28 CA 28 4D 4D 24 |.K.1.3:A..(.(MM$|
00002080: 2C 4B 2C 31 29 29 00 A5 28 4A 15 97 49 AA 4B AB |,K,1))..(J..I.K.|
00002090: 31 2C 41 3A 82 3A 8F 20 4E 45 57 20 48 4F 4C 45 |1,A:.:. NEW HOLE|
000020A0: 20 4E 41 4D 45 00 BF 28 54 15 49 B2 28 C6 28 52 | NAME..(T.I.(.(R|
000020B0: 43 24 29 AB 36 35 29 AC 31 38 AA 52 48 AB 31 00 |C$).65).18.RH.1.|
000020C0: D7 28 5E 15 97 39 36 34 AA 48 AB 31 2C C2 28 31 |.(^..964.H.1,.(1|
000020D0: 35 38 37 32 AA 49 29 00 ED 28 68 15 8D 31 36 34 |5872.I)..(h..164|
000020E0: 30 3A 8D 31 38 34 30 3A 89 35 32 38 30 00 F3 28 |0:.1840:.5280..(|
000020F0: 72 15 3A 00 F9 28 7C 15 3A 00 1B 29 86 15 8F 20 |r.:..(|.:..)... |
00002100: 20 53 55 42 20 54 4F 20 44 4F 20 49 4E 50 55 54 | SUB TO DO INPUT|
00002110: 20 46 52 4F 4D 20 4B 45 59 42 44 00 21 29 90 15 | FROM KEYBD.!)..|
00002120: 8F 00 30 29 A4 15 4E 46 B2 30 3A 89 35 35 37 30 |..0)..NF.0:.5570|
00002130: 00 39 29 B8 15 4E 46 B2 31 00 51 29 C2 15 81 49 |.9)..NF.1.Q)...I|
00002140: B2 30 A4 32 39 3A 97 39 33 34 AA 49 2C 33 32 3A |.0.29:.934.I,32:|
00002150: 82 00 59 29 CC 15 58 B2 30 00 64 29 D6 15 99 22 |..Y)..X.0.d)..."|
00002160: AF 9D 22 3B 00 6E 29 E0 15 8D 31 33 34 30 00 81 |..";.n)...1340..|
00002170: 29 EA 15 8B 41 24 B2 C7 28 32 30 29 A7 35 37 30 |)...A$..(20).570|
00002180: 30 00 8F 29 F4 15 8B 41 24 B2 22 2F 22 A7 8E 00 |0..)...A$."/"...|
00002190: A2 29 FE 15 8B 41 24 B2 C7 28 31 33 29 A7 35 37 |.)...A$..(13).57|
000021A0: 32 30 00 C1 29 08 16 8B 41 24 B1 B2 22 30 22 AF |20..)...A$.."0".|
000021B0: 41 24 B3 B2 22 39 22 AF 4E 46 B2 31 A7 35 36 38 |A$.."9".NF.1.568|
000021C0: 30 00 D7 29 12 16 8B 41 24 B2 22 20 22 AF 4E 46 |0..)...A$." ".NF|
000021D0: B2 30 A7 35 36 38 30 00 EF 29 1C 16 8B 41 24 B3 |.0.5680..)...A$.|
000021E0: 22 41 22 B0 41 24 B1 22 5A 22 A7 35 36 30 30 00 |"A".A$."Z".5600.|
000021F0: FE 29 26 16 8B 4E 46 B2 31 A7 35 36 30 30 00 0D |.)&..NF.1.5600..|
00002200: 2A 30 16 8B 58 B2 33 30 A7 35 36 30 30 00 2F 2A |*0..X.30.5600./*|
00002210: 3A 16 99 41 24 3B 3A 97 39 33 34 AA 58 2C C6 28 |:..A$;:.934.X,.(|
00002220: 41 24 29 3A 58 B2 58 AA 31 3A 89 35 35 39 30 00 |A$):X.X.1:.5590.|
00002230: 3D 2A 44 16 8B 58 B2 30 A7 35 36 30 30 00 5C 2A |=*D..X.0.5600.\*|
00002240: 4E 16 58 B2 58 AB 31 3A 99 41 24 3B 3A 97 39 33 |N.X.X.1:.A$;:.93|
00002250: 34 AA 58 2C 33 32 3A 89 35 35 39 30 00 73 2A 58 |4.X,32:.5590.s*X|
00002260: 16 99 22 20 22 3A 8B 58 B2 30 A7 41 24 B2 22 2F |.." ":.X.0.A$."/|
00002270: 22 3A 8E 00 9A 2A 62 16 4D 24 B2 22 22 3A 81 49 |":...*b.M$."":.I|
00002280: B2 30 A4 58 AB 31 3A 4D 24 B2 4D 24 AA C7 28 C2 |.0.X.1:M$.M$..(.|
00002290: 28 39 33 34 AA 49 29 29 3A 82 00 A0 2A 6C 16 8E |(934.I)):...*l..|
000022A0: 00 A6 2A 76 16 3A 00 AC 2A 74 27 3A 00 CA 2A 76 |..*v.:..*t':..*v|
000022B0: 27 8F 20 20 20 53 55 42 20 54 4F 20 44 49 53 50 |'. SUB TO DISP|
000022C0: 4C 41 59 20 53 43 52 45 45 4E 00 D0 2A 78 27 8F |LAY SCREEN..*x'.|
000022D0: 00 FE 2A 79 27 97 35 33 32 38 31 2C 30 3A 97 35 |..*y'.53281,0:.5|
000022E0: 33 32 38 30 2C 31 31 3A 86 20 4D 24 28 32 34 29 |3280,11:. M$(24)|
000022F0: 3A 49 24 B2 22 9D 22 AA C7 28 31 34 38 29 00 3B |:I$."."..(148).;|
00002300: 2B 7E 27 4D 24 28 30 29 B2 22 12 9F 20 57 4F 52 |+~'M$(0).".. WOR|
00002310: 4C 44 20 43 4C 41 53 53 20 4C 45 41 44 45 52 42 |LD CLASS LEADERB|
00002320: 4F 41 52 44 20 20 43 4F 55 52 53 45 20 45 44 49 |OARD COURSE EDI|
00002330: 54 4F 20 22 AA 49 24 AA 22 52 22 00 52 2B 88 27 |TO ".I$."R".R+.'|
00002340: 81 49 B2 31 A4 36 3A 4D 24 28 49 29 B2 22 20 22 |.I.1.6:M$(I)." "|
00002350: 3A 82 00 8F 2B 92 27 4D 24 28 37 29 B2 22 9E 12 |:...+.'M$(7)."..|
00002360: 4E 41 4D 45 3A 20 20 20 20 20 20 20 20 20 20 20 |NAME: |
00002370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002380: 20 20 20 20 20 20 20 22 AA 49 24 AA 22 20 22 00 | ".I$." ".|
00002390: CC 2B 9C 27 4D 24 28 38 29 B2 22 97 12 20 20 20 |.+.'M$(8).".. |
000023A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000023B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000023C0: 20 20 20 20 22 AA 49 24 AA 22 20 22 00 0D 2C A6 | ".I$." "..,.|
000023D0: 27 4D 24 28 39 29 B2 22 9F 12 20 20 20 20 20 20 |'M$(9).".. |
000023E0: 20 20 20 20 20 46 52 4F 4E 54 20 39 20 97 20 20 | FRONT 9 . |
000023F0: 20 20 20 9F 20 42 41 43 4B 20 39 20 20 97 20 20 | . BACK 9 . |
00002400: 20 20 20 20 81 22 AA 49 24 AA 22 54 22 00 4F 2C | .".I$."T".O,|
00002410: B0 27 4D 24 28 31 30 29 B2 22 9F 12 48 4F 4C 45 |.'M$(10)."..HOLE|
00002420: 20 23 20 20 20 20 20 20 20 20 20 20 20 20 20 97 | # .|
00002430: 20 20 20 20 20 9F 31 31 31 31 31 31 31 31 31 97 | .111111111.|
00002440: 20 20 20 20 20 20 81 22 AA 49 24 AA 22 4F 22 00 | .".I$."O".|
00002450: 95 2C BA 27 4D 24 28 31 31 29 B2 22 9F 12 20 20 |.,.'M$(11).".. |
00002460: 20 20 20 20 20 20 20 20 31 32 33 34 35 36 37 38 | 12345678|
00002470: 39 97 20 20 81 50 97 20 20 9F 30 31 32 33 34 35 |9. .P. .012345|
00002480: 36 37 38 97 20 20 81 50 97 20 20 20 81 22 AA 49 |678. .P. .".I|
00002490: 24 AA 22 54 22 00 DB 2C C4 27 4D 24 28 31 32 29 |$."T"..,.'M$(12)|
000024A0: B2 22 9E 12 20 20 20 20 20 20 20 20 20 20 20 20 |.".. |
000024B0: 20 20 20 20 20 20 20 97 20 20 81 41 97 20 20 9E | . .A. .|
000024C0: 20 20 20 20 20 20 20 20 20 97 20 20 81 41 97 20 | . .A. |
000024D0: 20 20 81 22 AA 49 24 AA 22 41 22 00 21 2D CE 27 | .".I$."A".!-.'|
000024E0: 4D 24 28 31 33 29 B2 22 9E 12 48 4F 4C 45 20 43 |M$(13)."..HOLE C|
000024F0: 4F 44 45 20 20 20 20 20 20 20 20 20 20 97 20 20 |ODE . |
00002500: 81 52 97 20 20 9E 20 20 20 20 20 20 20 20 20 97 |.R. . .|
00002510: 20 20 81 52 97 20 20 20 81 22 AA 49 24 AA 22 4C | .R. .".I$."L|
00002520: 22 00 67 2D D8 27 4D 24 28 31 34 29 B2 22 9E 12 |".g-.'M$(14)."..|
00002530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002540: 20 20 20 97 20 20 81 20 97 20 20 9E 20 20 20 20 | . . . . |
00002550: 20 20 20 20 20 97 20 20 81 20 97 20 20 20 81 22 | . . . ."|
00002560: AA 49 24 AA 22 20 22 00 AF 2D E2 27 4D 24 28 31 |.I$." "..-.'M$(1|
00002570: 35 29 B2 22 81 12 50 41 52 20 20 20 20 20 20 20 |5)."..PAR |
00002580: 20 20 20 20 20 20 20 20 20 97 20 81 20 20 97 20 | . . . |
00002590: 20 81 20 20 20 20 20 20 20 20 20 97 20 81 20 20 | . . . |
000025A0: 97 20 81 20 97 20 81 22 AA 49 24 AA 22 20 22 00 |. . . .".I$." ".|
000025B0: F0 2D EC 27 4D 24 28 31 36 29 B2 22 99 12 54 52 |.-.'M$(16)."..TR|
000025C0: 45 45 20 54 59 50 45 20 20 20 20 20 20 20 20 20 |EE TYPE |
000025D0: 20 97 20 20 20 20 20 99 20 20 20 20 20 20 20 20 | . . |
000025E0: 20 97 20 20 20 20 20 20 22 AA 49 24 AA 22 20 22 | . ".I$." "|
000025F0: 00 2E 2E F6 27 4D 24 28 31 37 29 B2 22 97 12 C3 |....'M$(17)."...|
00002600: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00002610: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00002620: C3 C3 C3 C3 C3 C3 22 AA 49 24 AA 22 C3 22 00 6E |......".I$.".".n|
00002630: 2E 00 28 4D 24 28 31 38 29 B2 22 97 12 20 20 20 |..(M$(18).".. |
00002640: 96 37 32 20 48 4F 4C 45 53 20 41 56 41 49 4C 41 |.72 HOLES AVAILA|
00002650: 42 4C 45 20 41 53 20 52 45 50 4C 41 43 45 4D 45 |BLE AS REPLACEME|
00002660: 4E 54 53 97 20 20 22 AA 49 24 AA 22 20 22 00 AE |NTS. ".I$." "..|
00002670: 2E 0A 28 4D 24 28 31 39 29 B2 22 97 12 20 20 20 |..(M$(19).".. |
00002680: 20 20 20 20 20 20 20 20 9F 20 20 20 20 20 20 20 | . |
00002690: 20 20 31 31 31 31 31 31 31 31 31 97 20 20 20 20 | 111111111. |
000026A0: 20 20 20 20 20 20 22 AA 49 24 AA 22 20 22 00 EE | ".I$." "..|
000026B0: 2E 14 28 4D 24 28 32 30 29 B2 22 97 12 20 20 20 |..(M$(20).".. |
000026C0: 20 20 20 20 20 20 20 20 9F 31 32 33 34 35 36 37 | .1234567|
000026D0: 38 39 30 31 32 33 34 35 36 37 38 97 20 4D 41 52 |89012345678. MAR|
000026E0: 4B 45 52 20 20 20 22 AA 49 24 AA 22 20 22 00 31 |KER ".I$." ".1|
000026F0: 2F 1E 28 4D 24 28 32 31 29 B2 22 97 12 20 20 99 |/.(M$(21).".. .|
00002700: 43 4F 55 52 53 45 20 41 20 1F 92 BA BA BA BA BA |COURSE A .......|
00002710: BA BA BA BA BA BA BA BA BA BA BA BA BA 97 12 20 |............... |
00002720: 49 53 20 41 54 20 20 20 20 22 AA 49 24 AA 22 20 |IS AT ".I$." |
00002730: 22 00 74 2F 28 28 4D 24 28 32 32 29 B2 22 97 12 |".t/((M$(22)."..|
00002740: 20 20 99 43 4F 55 52 53 45 20 42 20 1F 92 BA BA | .COURSE B ....|
00002750: BA BA BA BA BA BA BA BA BA BA BA BA BA BA BA BA |................|
00002760: 97 12 20 48 4F 4C 45 20 43 4F 44 3A 22 AA 49 24 |.. HOLE COD:".I$|
00002770: AA 22 45 22 00 B9 2F 32 28 4D 24 28 32 33 29 B2 |."E"../2(M$(23).|
00002780: 22 97 12 20 20 99 43 4F 55 52 53 45 20 43 20 1F |".. .COURSE C .|
00002790: 92 BA BA BA BA BA BA BA BA BA BA BA BA BA BA BA |................|
000027A0: BA BA BA 97 12 20 9F 41 30 31 97 20 20 20 20 20 |..... .A01. |
000027B0: 20 22 AA 49 24 AA 22 20 22 00 FF 2F 3C 28 4D 24 | ".I$." "../<(M$|
000027C0: 28 32 34 29 B2 22 97 12 20 20 99 43 4F 55 52 53 |(24).".. .COURS|
000027D0: 45 20 44 20 1F 92 BA BA BA BA BA BA BA BA BA BA |E D ............|
000027E0: BA BA BA BA BA BA BA BA 97 12 20 81 50 41 52 3D |.......... .PAR=|
000027F0: 35 97 20 20 20 20 22 AA 49 24 AA 22 20 91 22 00 |5. ".I$." .".|
00002800: 1A 30 46 28 99 22 93 22 3B 3A 81 49 B2 30 A4 32 |.0F(.".";:.I.0.2|
00002810: 34 3A 99 4D 24 28 49 29 3A 82 00 20 30 50 28 8E |4:.M$(I):.. 0P(.|
00002820: 00 26 30 5A 28 3A 00 2C 30 A0 28 3A 00 4A 30 AA |.&0Z(:.,0.(:.J0.|
00002830: 28 8F 20 20 53 55 42 20 54 4F 20 4F 50 45 4E 20 |(. SUB TO OPEN |
00002840: 27 42 27 20 43 54 46 49 4C 45 00 50 30 B4 28 8F |'B' CTFILE.P0.(.|
00002850: 00 6F 30 BE 28 9F 32 2C 38 2C 32 2C 22 30 3A 22 |.o0.(.2,8,2,"0:"|
00002860: AA 58 24 AA 22 2C 50 2C 52 22 3A A0 32 3A 8E 00 |.X$.",P,R":.2:..|
00002870: 75 30 C8 28 3A 00 7B 30 04 29 3A 00 93 30 0E 29 |u0.(:.{0.):..0.)|
00002880: 8F 20 20 53 55 42 20 54 4F 20 47 45 54 20 48 4F |. SUB TO GET HO|
00002890: 4C 45 23 00 99 30 18 29 8F 00 A2 30 2C 29 8D 35 |LE#..0.)...0,).5|
000028A0: 33 30 00 C1 30 36 29 99 22 20 20 20 20 20 20 20 |30..06)." |
000028B0: 20 43 48 41 4E 47 49 4E 47 20 41 20 48 4F 4C 45 | CHANGING A HOLE|
000028C0: 22 00 EC 30 40 29 99 22 20 20 20 20 45 4E 54 45 |"..0@)." ENTE|
000028D0: 52 20 48 4F 4C 45 20 54 4F 20 42 45 20 43 48 41 |R HOLE TO BE CHA|
000028E0: 4E 47 45 44 20 28 31 2D 31 38 29 22 00 0B 31 4A |NGED (1-18)"..1J|
000028F0: 29 99 22 20 20 20 20 41 4E 44 20 50 52 45 53 53 |)." AND PRESS|
00002900: 20 3C 52 45 54 55 52 4E 3E 2E 22 00 39 31 54 29 | <RETURN>.".91T)|
00002910: 99 22 20 20 20 20 45 4E 54 45 52 20 28 2F 29 20 |." ENTER (/) |
00002920: 54 4F 20 45 58 49 54 22 3A 99 3A 99 22 20 20 20 |TO EXIT":.:." |
00002930: 20 48 4F 4C 45 23 20 22 3B 00 4D 31 5E 29 8D 35 | HOLE# ";.M1^).5|
00002940: 35 36 30 3A 8B 41 24 B2 22 2F 22 A7 8E 00 6C 31 |560:.A$."/"...l1|
00002950: 68 29 48 31 B2 C5 28 4D 24 29 3A 8B 48 31 B3 31 |h)H1..(M$):.H1.1|
00002960: B0 48 31 B1 31 38 A7 31 30 35 34 30 00 7D 31 6D |.H1.18.10540.}1m|
00002970: 29 8D 34 39 34 30 3A 89 31 30 35 34 30 00 83 31 |).4940:.10540..1|
00002980: 7C 29 3A 00 89 31 CC 29 3A 00 A6 31 D6 29 8F 20 ||):..1.):..1.). |
00002990: 20 53 55 42 20 54 4F 20 44 4F 20 53 4F 55 4E 44 | SUB TO DO SOUND|
000029A0: 20 53 45 54 55 50 00 AC 31 E0 29 8F 00 D1 31 F4 | SETUP..1.)...1.|
000029B0: 29 53 B2 31 33 AC 34 30 39 36 AA 34 AC 32 35 36 |)S.13.4096.4.256|
000029C0: 3A 81 49 B2 30 A4 32 34 3A 97 53 AA 49 2C 30 3A |:.I.0.24:.S.I,0:|
000029D0: 82 00 EE 31 FE 29 97 53 AA 31 2C 34 30 3A 97 53 |...1.).S.1,40:.S|
000029E0: AA 35 2C 31 3A 97 53 AA 32 34 2C 37 3A 8E 00 F4 |.5,1:.S.24,7:...|
000029F0: 31 08 2A 3A 00 FA 31 12 2A 3A 00 16 32 1C 2A 8F |1.*:..1.*:..2.*.|
00002A00: 20 20 53 55 42 20 54 4F 20 44 4F 20 49 4E 49 54 | SUB TO DO INIT|
00002A10: 20 4C 4F 41 44 53 00 1C 32 26 2A 8F 00 36 32 30 | LOADS..2&*..620|
00002A20: 2A 8B 41 B2 30 A7 99 22 93 05 4C 4F 41 44 49 4E |*.A.0.."..LOADIN|
00002A30: 47 2E 2E 2E 22 3B 00 55 32 3A 2A 8B 41 B2 30 A7 |G...";.U2:*.A.0.|
00002A40: 97 35 36 2C 36 32 3A 9C 3A 41 B2 31 3A 93 22 50 |.56,62:.:A.1:."P|
00002A50: 22 2C 38 2C 31 00 6B 32 44 2A 8B 41 B2 31 A7 41 |",8,1.k2D*.A.1.A|
00002A60: B2 32 3A 93 22 45 22 2C 38 2C 31 00 82 32 4E 2A |.2:."E",8,1..2N*|
00002A70: 8B 41 B2 32 A7 41 B2 33 3A 93 22 4D 4C 22 2C 38 |.A.2.A.3:."ML",8|
00002A80: 2C 31 00 9B 32 58 2A 8B 41 B2 33 A7 41 B2 34 3A |,1..2X*.A.3.A.4:|
00002A90: 93 22 50 41 52 53 22 2C 38 2C 31 00 B7 32 62 2A |."PARS",8,1..2b*|
00002AA0: 97 36 35 37 2C 31 32 38 3A 97 36 35 30 2C 31 32 |.657,128:.650,12|
00002AB0: 38 3A 89 32 37 37 30 00 BD 32 6C 2A 3A 00 C3 32 |8:.2770..2l*:..2|
00002AC0: 94 2A 3A 00 E8 32 9E 2A 8F 20 20 53 55 42 20 54 |.*:..2.*. SUB T|
00002AD0: 4F 20 4C 41 4F 44 20 50 41 52 42 55 46 20 41 46 |O LAOD PARBUF AF|
00002AE0: 54 45 52 20 4C 4F 41 44 00 EE 32 A8 2A 8F 00 1F |TER LOAD..2.*...|
00002AF0: 33 BC 2A 81 49 B2 30 A4 31 37 3A 4A B2 38 36 32 |3.*.I.0.17:J.862|
00002B00: AA 49 AC 33 3A 4B B2 28 C2 28 4A AA 31 29 AB 34 |.I.3:K.(.(J.1).4|
00002B10: 38 29 AC 31 30 AA C2 28 4A AA 32 29 AB 34 39 00 |8).10..(J.2).49.|
00002B20: 34 33 C6 2A 4B B2 28 C2 28 4A 29 AB 36 35 29 AC |43.*K.(.(J).65).|
00002B30: 31 38 AA 4B 00 4E 33 D0 2A 97 39 36 34 AA 49 2C |18.K.N3.*.964.I,|
00002B40: C2 28 31 35 38 37 32 AA 4B 29 3A 82 3A 8E 00 54 |.(15872.K):.:..T|
00002B50: 33 DA 2A 3A 00 5A 33 F8 2A 3A 00 70 33 02 2B 8F |3.*:.Z3.*:.p3.+.|
00002B60: 20 20 53 55 42 20 54 4F 20 44 4F 20 56 49 45 57 | SUB TO DO VIEW|
00002B70: 00 76 33 0C 2B 8F 00 A9 33 16 2B 41 44 B2 31 33 |.v3.+...3.+AD.13|
00002B80: AC 34 30 39 36 3A 58 31 B2 C2 28 41 44 AA 31 37 |.4096:X1..(AD.17|
00002B90: 29 3A 58 32 B2 C2 28 41 44 AA 32 32 29 3A 58 33 |):X2..(AD.22):X3|
00002BA0: B2 C2 28 41 44 AA 32 34 29 00 BD 33 20 2B 58 34 |..(AD.24)..3 +X4|
00002BB0: B2 C2 28 41 44 AA 32 35 36 AC 31 33 29 00 C8 33 |..(AD.256.13)..3|
00002BC0: 25 2B 9E 31 36 30 30 30 00 DA 33 2A 2B 8B 41 24 |%+.16000..3*+.A$|
00002BD0: B2 22 56 22 A7 31 31 31 31 30 00 E5 33 34 2B 9E |."V".11110..34+.|
00002BE0: 32 38 36 37 35 00 EF 33 3E 2B 8D 31 33 34 30 00 |28675..3>+.1340.|
00002BF0: 01 34 48 2B 8B 41 24 B2 22 2F 22 A7 31 31 31 36 |.4H+.A$."/".1116|
00002C00: 30 00 13 34 52 2B 8B 41 24 B2 22 56 22 A7 31 31 |0..4R+.A$."V".11|
00002C10: 31 31 30 00 1E 34 5C 2B 89 31 31 30 37 30 00 29 |110..4\+.11070.)|
00002C20: 34 66 2B 9E 32 38 36 37 32 00 33 34 70 2B 8D 31 |4f+.28672.34p+.1|
00002C30: 33 34 30 00 45 34 7A 2B 8B 41 24 B2 22 2F 22 A7 |340.E4z+.A$."/".|
00002C40: 31 31 31 36 30 00 57 34 84 2B 8B 41 24 B2 22 54 |11160.W4.+.A$."T|
00002C50: 22 A7 31 31 30 36 30 00 62 34 8E 2B 89 31 31 31 |".11060.b4.+.111|
00002C60: 32 30 00 92 34 98 2B 97 41 44 AA 31 37 2C 58 31 |20..4.+.AD.17,X1|
00002C70: 3A 97 41 44 AA 32 32 2C 58 32 3A 97 41 44 AA 32 |:.AD.22,X2:.AD.2|
00002C80: 34 2C 58 33 3A 97 41 44 AA 32 35 36 AC 31 33 2C |4,X3:.AD.256.13,|
00002C90: 58 34 00 B1 34 A2 2B 9E 31 36 30 34 38 3A 97 41 |X4..4.+.16048:.A|
00002CA0: 44 AA 32 31 2C 30 3A 97 35 33 32 38 31 2C 30 3A |D.21,0:.53281,0:|
00002CB0: 8E 00 B7 34 AC 2B 3A 00 00 00 |...4.+:... |
....D..10800...,.:.5.6.. SUB TO PRINT
REPLACEMENT #.;.@...L.T.N$."..":.440.N.^
.OH.RH:OC.F(RC$):N$.".. ":.440...H.HOLE.
RH:.4040:MM$.RC$.B$.C$.K.R.."..";.23);MM
$:.".......................";.30);MM$;".
.";...W..B(15871.(OC.65).18.OH);"."...|.
......:.....:...... SUB TO PLOT.......<
....".....................";.10.OH);.W.B
..I.65. OC:.".";:.:.N$;.].L...C.V.:.I...
:...... SUB TO CLEAR MESSAGE AREA......
.M....".":.I.1.6:."
":..Y...."..":....&.:.
....:...... SUB TO READ ERROR CHANNEL
.......2....15,8,15:.15,ER,ER$,ET,ES: 15
:..8...:.>.L.:.X.V.. SUB TO REPORT ERROR
.^.`...G.T..530...~..I.1.3:.2690:.K.1.50
:.:......." DISK ERROR":......."
";ER$:..W...." PRESS <RETURN> TO CO
NTINUE"......1340:......:.....:...... S
UB TO WAIT FOR KEY...(...$.<..A$:.A$."".
1340.0.F..2690:..6.P.:.<.X.:.[.... SUB
TO GET A DIRECTORY.A.....J. ..530......
". READING DIRECTORY. PLEASE WAIT..."
......16218.T...DR$."":.I.0.25:M.B(16349
.I):DR$.DR$.G(M):.:..Z.H.:.....:......
SUB TO GET COURSE NAME AND PRINT IT.....
..>...CR$."":.I.0.29:M.B(832.I):CR$.CR$.
G(M):..Z...."..........";.6);CR$:..`...:
.F.@.:...J.. SUB TO GET HOLE CODES AND
PRINT THEM...T.....H.."...............";
.10);:M$.""...R..I.0.24.3:M$.M$.G(B(862.
I)):....|..M$;".....";:M$.""......I.0.24
.3:M$.M$.G(B(889.I)):..,....M$:..10);:M$
.".".N....I.0.24.3:M$.M$.G(B(863.I)):..E
....M$;".....";:M$.""......I.0.24.3:M$.M
$.G(B(890.I)):.......M$:..10);:M$."."...
B..I.0.24.3:M$.M$.G(B(864.I)):..V.L..M$;
".....";:M$.""...V..I.0.24.3:M$.M$.G(B(8
91.I)):.......M$:......:.....:./.... SU
B TO GET AND PRINT PARS.5.....@.0.AD.964
.`.:.."..................";.10);.T.D.T1.
0:T2.0:M$.""...N..I.0.8:A.B(AD.I):T1.T1.
A:A.A.48...X.M$.M$.G(A):.:.M$;:M$.D(T1).
..B.M$.J(M$,2,2):.". .";M$;". .";:M$.""
...L..I.9.17:A.B(AD.I):T2.T2.A:A.A.48.$.
V.M$.M$.G(A):.:.M$;:M$.D(T2).O...M$.J(M$
,2,2):.". .";M$;". .";:T2.T2.T1.O...M$.D
(T2):M$.J(M$,2,2):.M$:..U...:.{.P.:...Z.
. SUB TO GET AND PRINT TREE TYPES.....
..P...."...................";.10);:M$.""
......I.0.8:M$.M$.G(B(916.I)):.......M$;
".....";:M$."".,....I.9.17:M$.M$.G(B(916
.I)):.:.M$:..2. .:.8.4.:.].>.. SUB TO C
HECK FOR BACK OF DISK.C.H...W.\.X$."BCT"
:.10430...F..1020...P..ER.62.2190...Z..E
R.2260............530.X....".....INSERT
.WORLD CLASS BACK. DISK"......"....AND P
RESS <RETURN>."......1340......A$..G(13)
.2220./...X$."BCT":.10430:.1020.;.J..ER.
0...A.T..".....INCORRECT OR DAMAGED DISK
"......"....TRY AGAIN? (Y OR N)"......13
40......A$."Y".2190......A$.."N".2280...
........:...`.:...J.. SUB TO MARK OR UN
MARK A HOLE...T........"......... ..."
;H;".".'...AD.13.4096.8.256.11.40.9:M.H.
?....H.9.AD.AD.14:M.H.9.M....AD.M,C:..S.
..:.Y.D.:.Z.N.. SUB TO SELECT A TREE TY
PE...X........530......"CURRENT TREES ON
THIS HOLE ARE ";.T...I.916.H.1:T$.G(B(I
)):M$."PINE"......T$."A".M$."MAPLE".....
.T$."B".M$."PALM"......T$."C".M$."ELM".7
.(..M$:.:." PLEASE SELECT:"._.2.."
(A) MAPLE (C) POPLAR"...<.."
(B) PALM (D) PINE"...F.."
(/) EXIT"...P..1340.C.
Z..A$."/".....D..A$."A".A$."D".2640...N.
....S.:...X.. SUB TO DO BEEP...Z.......
.S.4,32:.S.4,33:......:.%...:.>.... ----
--------------.D. ...].... EDITOR MAIN
LOOP.C.....|.... ------------------...R
..10740 :. DO SETUP......10105
:. BUILD SCREEN.V....2140 :. CHK TH
E DISK......ER.."..PROGRAM TERMINATED...
":.......3040:.ER.2800......530."...X..(
X).O....". (.L.)...LOAD A COURSE FRO
M DISK".Y.".." (.S.)...SAVE A COURSE
TO DISK". .,.." (.M.)...MODIFY THIS
COURSE"...6..1340.B.@..A$."L"..3240:.28
20.Z.J..A$."S"..4140:.2820...T..A$."M"..
4540:.2820...^..2870...H.:.....:.&.B.. S
UB TO INIT COURSE DATA.,.L...O...NAME$."
A":HOLE.1:TF$."":HF$."".X....530.}....".
.......LOADING COURSE <A>...".....F.0:.3
710......ER........3540:.10940.....F.1:.
3710...&..ER...P.0..16157:.16172...:.F.2
:.3710...D..ER.....N..1540:.1640...X..18
40:.2040./.B.TF$."A":HF$."A01":H.1:H1.1:
CS$."A".M.L.RC$."A":RH.1:OC.65:OH.1:..S.
V.:.Y...:.Y.... SUB TO LOAD CONTROL FIL
E...........2140......ER........1440...
F..530...P.."DIRECTORY: ";DR$...Z..:."
READY TO LOAD A COURSE"......:." EN
TER COURSE IDENTIFIER (A THRU Z)".1...."
OR PRESS (/) TO EXIT.".;....1340.I...
.A$."/"...A....A$."A".A$."Z".3320.N...NA
ME$.A$... ..MFLAG.0.3440 :. IF NO MODS
THEN OKAY...*..530.Q.4..".CURRENT CHANGE
S IN MEMORY WILL BE LOST"...>.."IF YOU L
OAD THIS COURSE":....H.."DO YOU WISH TO
PROCEED? (Y OR N)".$.R..1340.2.\..A$."N"
...R.F..A$.."Y".3410 .H.P.F
.0:.3710:MFLAG.0.U.Z..ER.3270......3540:
.10940......1540:.1640......1840:.2040..
.........:.....:.W.... SUB TO TRANSFER
CT FILE.........T.A.832:B.48864 :. $BEE0
......I.0.101:.B.I,B(A.I):............:.
%...:.>.... SUB TO LOAD A FILE.Q.$.. EN
TER WITH:.L.... NAME$=A,B,C,D,......8
.. HOLE =HOLE#(1-18)...B.. F=0
CT FILE.A.L.. F=1 TREE FIL
E...Q.. NO LOAD IF NAME$=TF$...V
.. F=2 HOLE FILE.%.`..
NO LOAD IF NAME$=HF$.+.J...?.~.ER.0:.F.
.0.3830.S.... DO CT FILE.U...B$."C":C
$."T":SA.0:XR.64:YR.3......828,F(NAME$):
.829,F(B$):.830,F(C$).F....RFLAG.0.X$.NA
ME$.B$.C$:.10430:.1020......RFLAG.0.ER..
0..1140:.......780,1:.781,8:.782,SA.....
.65466 :. $FFBA SETLFS.2....780,3:.781
,60:.782,3.O.D..65469 :. $FFBD SETNAM.
D.N..RFLAG.RFLAG.0:...X..780,0:.781,XR:
.782,YR......65493 :. $FFD5 LOAD. ....
......F..1.3900.D.... DO TREE FILE.U..
..NAME$.TF$.......TF$.NAME$.....B$."T":C
$."F":SA.0:XR.80:YR.79.!.(.. 3740:.16157
:.16172:..4.2.. DO HOLE FILE.>.<..4040.U
.F..NAME$.B$.C$.HF$...I.P.HF$.NAME$.B$.C
$.Z.Z.SA.255:.3740...D.:... .:...... SU
B TO FORM HOLE STRING.......O.H..HOLE.10
.B$."0":C$.G(48.HOLE):....R.B$."1":C$.G(
38.HOLE):......:.....:...... SUB TO SAVE
CT FILE TO DISK.......(.,..2140.2.6..ER
...<.@..1440.E.J..530.^.T.."DIRECTORY:
";DR$...^..:." READY TO SAVE A COURSE
"...H..:." ENTER COURSE IDENTIFIER (E
THRU Z).O.R.." OR PRESS (/) TO EXIT.".
Y.|..1340......A$."/"........A$."E".A$."
Z".4220.....NAME$.A$......3540.&....4440
:.1020.2....ER.0...F.B..ER..63..1140:..O
.L..530.R.V..". FILE ALREADY EXISTS."
:......." REPLACE IT? (Y OR N)".....
.1340......A$."N".4170......A$.."Y".4330
.Y...A$."S0:".NAME$.B$.C$......15,8,15:.
15,A$: 15......4270.. &.:.. 0.:.' :.. S
UB TO SAVE CONTROL FILE.- D...D X.F.0:RF
LAG.1:SA.255.I B..3710 :. SETNAM &
LFS ONLY.T L..16128.Z V.... ..:.. ..:..
... SUB TO MODIFY A HOLE.. ..... ...53
0.H F.." MODIFYING.".. P.." ";CR
$:...!Z..". (1) CHANGE THE COURSE N
AME".#!..." (2) CHANGE A HOLE".9!..
." (/) EXIT".C!...1340.]!...A$."/".
. .U!...A$."1"..4740:.4540..!
...A$."2"..4942:.4540..! ..4600..!*.:..!
\.:.E!F.. SUB TO CHANGE COURSE NAME.K!
P...T!...530..!..." CHANGING COURS
E NAME".%"..." ONLY LETTERS AND SPACE
ARE ALLOWED".R"..." ENTER NEW NAME A
ND PRESS <RETURN>".{"..." ENTER (/) T
O EXIT":.:." ";.."...5540.."...A$."/
"...."J.CR$.M$:MFLAG.1.D"T..I.0.29:.832.
I,B(934.I):..P"Y..1540:..V"..:.."$.:..".
.. SUB TO CHANGE A HOLE.."8....#L....#N
.C.3:.2440..#P.H.H1:C.10:.2440:MFLAG.1.7
#V..530.B#`..".CHANGING. (V) VIEW HOLE
FROM TEE"..#J..".HOLE# ...";H;".";.10
);"(T) TOP VIEW OF HOLE"..#T...10);"(C)
CHANGE TREE TYPE"..#~.." (CRSR LT/RT)
MOVE TO ANOTHER HOLE"..$..." (SPAC
E) FIND REPLACEMENT HOLE".($....10);"(/
) EXIT".2$...1340.O$...A$."/".C.3:H.H1:
.2440:..G$...A$."V".A$."T".5080.X$...A$.
"C".5170..$D..A$." ".5200..$F..A$.".".H1
.H1.1:.H1.1.H1.18.I$H..A$.".".H1.H1.1:.H
1.18.H1.1..$J..H1..H.C.3:.2440:H.H1:C.10
:.2440..$N..5020..%X.I.862.(H.1).3.@%..M
$.G(B(I)):NAME$.M$:HOLE.(B(I.1).48).10.B
(I.2).48.N%..F.2:.3710.[%...ER.4950.W%..
I.916.H.1:NAME$.G(B(I))..%..F.1:.3710..%
...ER.4950..%(..11000:.4950..%2..2540..%
<..A$."/".4950..%F.I.916.H.1:.I,F(A$):.2
040:.4950..%P..530..&Z.." REPLACEMEN
T HOLE# ";..&D..340.C&N..".... CURSOR
KEYS WILL MOVE THE MARKER".R&X.." (V
) VIEW REPLACEMENT HOLE FROM TEE"..&...
" (T) TOP VIEW OF REPLACEMENT HOLE".
D&..."(RETURN) USE REPLACEMENT HOLE".Y&.
.."(SPACE) EXIT"..& ..1340..&...A$." ".
4950..'...A$.".".RH.RH.1:.5370.('...A$."
.".RH.RH.1:.5370.J'H..A$.".".RC$.G(F(RC$
).1):.5370.L'R..A$.".".RC$.G(F(RC$).1):.
5370..'...A$."V".A$."T".5380..'...A$.G(1
3).5440..'...5280..'...RH.1.RH.18.A'...R
H.18.RH.1.V'...RC$."A".RC$."D"..'...RC$.
"D".RC$."A"..'...340:.5280..(..F.1:NAME$
.RC$:.3710..(...ER.5200.?(..F.2:NAME$.RC
$:HOLE.RH:.3710.L("..ER.5200.](6..11000:
.5280..(@.I.862.(H.1).3:.K.1.3:A.F(J(MM$
,K,1))..(J..I.K.1,A:.:. NEW HOLE NAME..(
T.I.(F(RC$).65).18.RH.1.W(^..964.H.1,B(1
5872.I)..(H..1640:.1840:.5280..(R.:..(|.
:..)... SUB TO DO INPUT FROM KEYBD.!)..
..0)..NF.0:.5570.9)..NF.1.Q)B..I.0.29:.9
34.I,32:..Y)L.X.0.D)V.."..";.N)...1340..
)...A$.G(20).5700..)...A$."/"....)...A$.
G(13).5720.A)...A$.."0".A$.."9".NF.1.568
0.W)...A$." ".NF.0.5680..)...A$."A".A$."
Z".5600..)&..NF.1.5600..*0..X.30.5600./*
:..A$;:.934.X,F(A$):X.X.1:.5590.=*D..X.0
.5600.\*N.X.X.1:.A$;:.934.X,32:.5590.S*X
.." ":.X.0.A$."/":...*B.M$."":.I.0.X.1:M
$.M$.G(B(934.I)):.. *L....*V.:..*T':.J*V
'. SUB TO DISPLAY SCREEN.P*X'...*Y'.53
281,0:.53280,11:. M$(24):I$.".".G(148).;
+~'M$(0).".. WORLD CLASS LEADERBOARD CO
URSE EDITO ".I$."R".R+.'.I.1.6:M$(I)." "
:...+.'M$(7)."..NAME:
".I$." ".L+.'M$(8)."..
".I$
." "..,.'M$(9).".. FRONT 9 .
. BACK 9 . .".I$."T".O,.'M$(10)
."..HOLE # . .111111111.
.".I$."O"..,.'M$(11)."..
123456789. .P. .012345678. .P. .".I
$."T"..,D'M$(12).".. .
.A. . . .A. .".I$."A".!-N'
M$(13)."..HOLE CODE . .R. .
. .R. .".I$."L".G-X'M$(14)."..
. . . . .
. . .".I$." "..-.'M$(15)."..PAR
. . . . . . . . . ."
.I$." "..-.'M$(16)."..TREE TYPE
. . . ".I$." "....'M$(
17)."..CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCC".I$."C".N..(M$(18).".. .72 HOLE
S AVAILABLE AS REPLACEMENTS. ".I$." "..
..(M$(19).".. . 111111
111. ".I$." "....(M$(20)."..
.123456789012345678. MARKER ".
I$." ".1/.(M$(21).".. .COURSE A .......
............... IS AT ".I$." ".T/((M$
(22).".. .COURSE B ....................
.. HOLE COD:".I$."E"../2(M$(23).".. .CO
URSE C ...................... .A01.
".I$." "../<(M$(24).".. .COURSE D ....
.................. .PAR=5. ".I$." .".
.0F(.".";:.I.0.24:.M$(I):.. 0P(..&0Z(:.,
0 (:.J0.(. SUB TO OPEN 'B' CTFILE.P0.(.
.O0.(.2,8,2,"0:".X$.",P,R": 2:..U0H(:.{0
.):..0.). SUB TO GET HOLE#..0.)...0,).5
30.A06)." CHANGING A HOLE"..0@)."
ENTER HOLE TO BE CHANGED (1-18)"..1J
)." AND PRESS <RETURN>.".91T)." EN
TER (/) TO EXIT":.:." HOLE# ";.M1^).5
560:.A$."/"...L1H)H1.E(M$):.H1.1.H1.18.1
0540.}1M).4940:.10540..1|):..1L):..1V).
SUB TO DO SOUND SETUP..1.)..Q1.)S.13.40
96.4.256:.I.0.24:.S.I,0:...1.).S.1,40:.S
.5,1:.S.24,7:...1.*:..1.*:..2.*. SUB TO
DO INIT LOADS..2&*..620*.A.0.."..LOADIN
G...";.U2:*.A.0..56,62:.:A.1:."P",8,1.K2
D*.A.1.A.2:."E",8,1..2N*.A.2.A.3:."ML",8
,1..2X*.A.3.A.4:."PARS",8,1..2B*.657,128
:.650,128:.2770..2L*:.C2.*:..2.*. SUB T
O LAOD PARBUF AFTER LOAD..2.*...3.*.I.0.
17:J.862.I.3:K.(B(J.1).48).10.B(J.2).49.
43F*K.(B(J).65).18.K.N3P*.964.I,B(15872.
K):.:..T3Z*:.Z3.*:.P3.+. SUB TO DO VIEW
.V3.+...3.+AD.13.4096:X1.B(AD.17):X2.B(A
D.22):X3.B(AD.24)..3 +X4.B(AD.256.13).H3
%+.16000.Z3*+.A$."V".11110..34+.28675..3
>+.1340..4H+.A$."/".11160..4R+.A$."V".11
110..4\+.11070.)4F+.28672.34P+.1340.E4Z+
.A$."/".11160.W4.+.A$."T".11060.B4.+.111
20..4.+.AD.17,X1:.AD.22,X2:.AD.24,X3:.AD
.256.13,X4..4.+.16048:.AD.21,0:.53281,0:
...4.+:...
> CLICK IMAGE PREVIEW FOR FULL MODAL