FILE MANAGER.D
FILE INFORMATION
FILENAME(S): FILE MANAGER.D
FILE TYPE(S): PRG
FILE SIZE: 20.3K
FIRST SEEN: 2025-11-30 01:08:03
APPEARS ON: 4 disk(s)
FILE HASH
e4072d13a9f2391921a8f7bded919bb11f115fadc467d59f844019ef5c901c17
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | FILE MANAGER.D | PRG | Treasure Chest - Wolfgang Rauprich | 13 | 8 | DOWNLOAD FILE |
| D IVERSE | FILE MANAGER.D | PRG | Treasure Chest - Wolfgang Rauprich | 13 | 8 | DOWNLOAD FILE |
| UTILITIES | FILE MANAGER.D | PRG | Sailor, Ganheden | 24 | 17 | DOWNLOAD FILE |
| TPUG MAY 84 C | FILE MANAGER.D | PRG | DuncanTwain | 13 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..(.... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 00 4F 08 14 00 8F 20 2A |********.O.... *|
00000030: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 00 | **.|
00000050: 76 08 1E 00 8F 20 2A 2A 20 20 20 20 52 45 4C 2E |v.... ** REL.|
00000060: 46 49 4C 2E 4D 41 4E 41 47 45 52 20 56 32 2E 30 |FIL.MANAGER V2.0|
00000070: 20 20 20 20 2A 2A 00 9D 08 28 00 8F 20 2A 2A 20 | **...(.. ** |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090: 20 20 20 20 20 20 20 20 20 20 20 2A 2A 00 C4 08 | **...|
000000A0: 32 00 8F 20 2A 2A 20 20 52 45 4C 41 54 49 56 45 |2.. ** RELATIVE|
000000B0: 20 20 46 49 4C 45 20 20 4D 41 4E 41 47 45 52 20 | FILE MANAGER |
000000C0: 20 20 2A 2A 00 EB 08 3C 00 8F 20 2A 2A 20 20 52 | **...<.. ** R|
000000D0: 45 4C 41 54 49 56 45 20 20 46 49 4C 45 20 20 4D |ELATIVE FILE M|
000000E0: 41 4E 41 47 45 52 20 20 20 2A 2A 00 12 09 46 00 |ANAGER **...F.|
000000F0: 8F 20 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 |. ** |
00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000110: 2A 2A 00 39 09 50 00 8F 20 2A 2A 20 54 48 49 53 |**.9.P.. ** THIS|
00000120: 20 49 53 20 41 20 4D 4F 44 49 46 49 45 44 20 56 | IS A MODIFIED V|
00000130: 45 52 53 49 4F 4E 20 2A 2A 00 60 09 5A 00 8F 20 |ERSION **.`.Z.. |
00000140: 2A 2A 20 4F 46 20 52 45 4C 2E 45 58 50 45 52 2E |** OF REL.EXPER.|
00000150: 56 33 2E 34 20 54 48 41 54 20 57 49 4C 4C 2A 2A |V3.4 THAT WILL**|
00000160: 00 86 09 64 00 8F 2A 2A 41 4C 4C 4F 57 20 54 48 |...d..**ALLOW TH|
00000170: 45 20 55 53 45 52 20 54 4F 20 44 45 46 49 4E 45 |E USER TO DEFINE|
00000180: 20 48 49 53 2A 2A 00 AC 09 6E 00 8F 2A 2A 20 4F | HIS**...n..** O|
00000190: 57 4E 20 23 20 4F 46 20 46 49 45 4C 44 53 20 41 |WN # OF FIELDS A|
000001A0: 4E 44 20 54 48 49 45 52 20 20 2A 2A 00 D2 09 78 |ND THIER **...x|
000001B0: 00 8F 2A 2A 20 4C 45 4E 47 54 48 20 41 4E 44 20 |..** LENGTH AND |
000001C0: 54 49 54 4C 45 2E 50 4F 57 45 52 20 54 4F 20 20 |TITLE.POWER TO |
000001D0: 2A 2A 00 F8 09 82 00 8F 2A 2A 20 20 20 55 53 2E |**......** US.|
000001E0: 20 20 4A 41 4D 20 4E 4F 56 45 4D 42 45 52 20 31 | JAM NOVEMBER 1|
000001F0: 39 38 33 20 20 20 2A 2A 00 1E 0A 8C 00 8F 2A 2A |983 **......**|
00000200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 50 |**************.P|
00000220: 0A 96 00 86 41 41 24 28 35 30 30 29 2C 4E 25 28 |....AA$(500),N%(|
00000230: 35 30 30 29 3A 97 35 33 32 38 31 2C 30 3A 99 22 |500):.53281,0:."|
00000240: 05 22 C7 28 31 34 29 3A 97 36 35 30 2C 31 32 38 |.".(14):.650,128|
00000250: 00 80 0A A0 00 4E 4D 24 B2 22 22 3A 8D 31 30 34 |.....NM$."":.104|
00000260: 32 30 3A 8B C2 28 34 39 31 35 32 29 B2 37 36 AF |20:..(49152).76.|
00000270: C2 28 34 39 32 35 37 29 B2 31 37 33 A7 32 30 30 |.(49257).173.200|
00000280: 00 92 0A AA 00 97 36 34 36 2C C2 28 35 33 32 38 |......646,.(5328|
00000290: 31 29 00 CC 0A B4 00 99 22 11 11 4E 45 57 11 11 |1)......"..NEW..|
000002A0: 22 3A 99 22 4C 4F 41 44 22 C7 28 33 34 29 22 52 |":."LOAD".(34)"R|
000002B0: 45 4C 2E 46 49 4C 45 2E 42 4F 4F 54 45 52 22 C7 |EL.FILE.BOOTER".|
000002C0: 28 33 34 29 22 2C 38 11 11 11 11 22 00 06 0B BE |(34)",8...."....|
000002D0: 00 99 22 52 55 4E 91 91 91 91 91 91 91 91 91 91 |.."RUN..........|
000002E0: 91 91 91 91 22 3A 97 31 39 38 2C 33 3A 97 36 33 |....":.198,3:.63|
000002F0: 31 2C 31 33 3A 97 36 33 32 2C 31 33 3A 97 36 33 |1,13:.632,13:.63|
00000300: 33 2C 31 33 3A 80 00 32 0B C8 00 99 22 11 20 CE |3,13:..2....". .|
00000310: CF D4 C5 3A 20 C9 4E 20 41 4C 4C 20 43 41 53 45 |...: .N ALL CASE|
00000320: 53 20 54 48 52 4F 55 47 48 4F 55 54 20 54 48 49 |S THROUGHOUT THI|
00000330: 53 22 00 5C 0B D2 00 99 22 20 20 20 20 20 50 52 |S".\...." PR|
00000340: 4F 47 52 41 4D 2C 20 54 59 50 49 4E 47 20 54 48 |OGRAM, TYPING TH|
00000350: 45 20 52 45 54 55 52 4E 20 4B 45 59 00 86 0B DC |E RETURN KEY....|
00000360: 00 99 22 20 20 20 20 20 57 49 54 48 20 20 4E 4F |.." WITH NO|
00000370: 20 20 4B 45 59 42 4F 41 52 44 20 20 45 4E 54 52 | KEYBOARD ENTR|
00000380: 59 20 57 49 4C 4C 00 B0 0B E6 00 99 22 20 20 20 |Y WILL......" |
00000390: 20 20 41 43 54 20 41 53 20 41 4E 20 45 53 43 41 | ACT AS AN ESCA|
000003A0: 50 45 20 46 52 4F 4D 20 57 48 41 54 45 56 45 52 |PE FROM WHATEVER|
000003B0: 00 CB 0B F0 00 99 22 20 20 20 20 20 59 4F 55 20 |......" YOU |
000003C0: 41 52 45 20 44 4F 49 4E 47 2E 11 00 0A 0C FA 00 |ARE DOING.......|
000003D0: 99 22 11 20 D0 55 54 20 41 20 44 49 53 4B 20 46 |.". .UT A DISK F|
000003E0: 4F 52 20 52 45 4C 41 54 49 56 45 20 46 49 4C 45 |OR RELATIVE FILE|
000003F0: 53 20 20 20 20 20 20 20 20 20 20 20 49 4E 20 54 |S IN T|
00000400: 48 45 20 44 52 49 56 45 2E 22 00 20 0C 04 01 8B |HE DRIVE.". ....|
00000410: C2 28 38 33 30 29 B3 B1 33 32 A7 8D 35 30 31 30 |.(830)..32..5010|
00000420: 00 38 0C 0E 01 99 22 9D 22 3B 3A 8D 31 30 36 34 |.8....".";:.1064|
00000430: 30 3A 8D 31 30 34 32 30 00 58 0C 18 01 9F 31 2C |0:.10420.X....1,|
00000440: 38 2C 31 35 2C 22 49 22 3A 52 24 B2 C7 28 31 33 |8,15,"I":R$..(13|
00000450: 29 3A 4E 4D 24 B2 22 22 00 9C 0C 22 01 42 B2 31 |):NM$.""...".B.1|
00000460: 37 3A 5A 24 B2 22 22 3A 99 22 11 20 C4 4F 20 59 |7:Z$."":.". .O Y|
00000470: 4F 55 20 57 41 4E 54 20 54 4F 20 43 52 45 41 54 |OU WANT TO CREAT|
00000480: 45 20 41 20 42 52 41 4E 44 20 4E 45 57 22 3A 8D |E A BRAND NEW":.|
00000490: 31 30 34 37 30 3A 8D 31 30 34 38 30 00 AD 0C 2C |10470:.10480...,|
000004A0: 01 8B 5A 24 B3 B1 22 51 22 A7 33 34 30 00 E1 0C |..Z$.."Q".340...|
000004B0: 36 01 99 22 11 20 C4 4F 20 59 4F 55 20 57 41 4E |6..". .O YOU WAN|
000004C0: 54 20 54 4F 20 51 55 49 54 22 3B 3A 5A 24 B2 22 |T TO QUIT";:Z$."|
000004D0: 22 3A 85 5A 24 3A 42 B2 32 32 3A 8D 31 30 34 38 |":.Z$:B.22:.1048|
000004E0: 30 00 F9 0C 40 01 8B 5A 24 B2 22 4E 22 A7 8D 31 |0...@..Z$."N"..1|
000004F0: 30 34 32 30 3A 89 32 39 30 00 05 0D 4A 01 A0 32 |0420:.290...J..2|
00000500: 3A A0 31 3A 80 00 15 0D 54 01 8B 5A 24 B2 22 59 |:.1:....T..Z$."Y|
00000510: 22 A7 35 36 30 00 3E 0D 5E 01 99 22 11 20 D7 48 |".560.>.^..". .H|
00000520: 41 54 20 49 53 20 54 48 45 20 4E 41 4D 45 20 4F |AT IS THE NAME O|
00000530: 46 20 59 4F 55 52 22 3A 8D 31 30 34 37 30 00 5E |F YOUR":.10470.^|
00000540: 0D 68 01 4E 4D 24 B2 5A 24 3A 5A B2 C3 28 4E 4D |.h.NM$.Z$:Z..(NM|
00000550: 24 29 3A 8B 4E 4D 24 B2 22 22 A7 33 31 30 00 8E |$):.NM$."".310..|
00000560: 0D 72 01 8B 5A B1 31 35 A7 8D 31 30 34 32 30 3A |.r..Z.15..10420:|
00000570: 99 22 11 20 12 C6 49 4C 45 20 4E 41 4D 45 20 54 |.". ..ILE NAME T|
00000580: 4F 4F 20 4C 4F 4E 47 2E 22 3A 89 32 39 30 00 AC |OO LONG.":.290..|
00000590: 0D 7C 01 4D 4E 24 B2 4E 4D 24 3A 8B 5A B1 36 A7 |.|.MN$.NM$:.Z.6.|
000005A0: 4D 4E 24 B2 C8 28 4E 4D 24 2C 36 29 00 D8 0D 86 |MN$..(NM$,6)....|
000005B0: 01 9F 32 2C 38 2C 33 2C 22 20 22 AA 4E 4D 24 3A |..2,8,3," ".NM$:|
000005C0: 8D 31 30 30 31 30 3A 8F 20 44 4F 45 53 20 46 49 |.10010:. DOES FI|
000005D0: 4C 45 20 45 58 49 53 54 00 0F 0E 90 01 A0 36 3A |LE EXIST......6:|
000005E0: 9F 36 2C 38 2C 37 2C 22 20 22 AA 4D 4E 24 AA 22 |.6,8,7," ".MN$."|
000005F0: 2F 4B 45 59 2C 53 2C 52 22 3A 84 36 2C 46 4C 44 |/KEY,S,R":.6,FLD|
00000600: 53 2C 44 46 2C 50 4F 25 3A 8D 31 30 30 31 30 00 |S,DF,PO%:.10010.|
00000610: 1B 0E 9A 01 44 46 25 B2 32 35 33 00 4D 0E AE 01 |....DF%.253.M...|
00000620: 8D 31 30 34 32 30 3A 99 22 11 20 12 22 4E 4D 24 |.10420:.". ."NM$|
00000630: 22 92 20 48 41 53 20 12 22 46 4C 44 53 22 92 46 |". HAS ."FLDS".F|
00000640: 49 45 4C 44 53 20 43 52 45 41 54 45 44 00 7E 0E |IELDS CREATED.~.|
00000650: B8 01 99 22 20 41 4E 44 20 41 20 52 45 43 4F 52 |..." AND A RECOR|
00000660: 44 20 4C 45 4E 47 54 48 20 4F 46 20 12 22 44 46 |D LENGTH OF ."DF|
00000670: 22 92 43 48 41 52 41 43 54 45 52 53 2E 22 00 AC |".CHARACTERS."..|
00000680: 0E C2 01 99 22 11 20 C6 C9 C5 CC C4 A0 23 22 A3 |....". ......#".|
00000690: 31 32 29 22 D4 C9 D4 CC C5 22 A3 32 37 29 22 C3 |12)".....".27)".|
000006A0: C8 C1 D2 2E 20 CC C5 CE C7 D4 C8 22 00 DA 0E CC |.... ......"....|
000006B0: 01 99 22 20 B7 B7 B7 B7 B7 B7 B7 22 A3 31 32 29 |.." .......".12)|
000006C0: 22 B7 B7 B7 B7 B7 22 A3 32 37 29 22 B7 B7 B7 B7 |".....".27)"....|
000006D0: B7 B7 B7 B7 B7 B7 B7 B7 11 22 00 F8 0E D6 01 81 |........."......|
000006E0: 49 B2 31 A4 46 4C 44 53 3A 84 36 2C 43 48 28 49 |I.1.FLDS:.6,CH(I|
000006F0: 29 2C 43 48 24 28 49 29 00 15 0F E0 01 99 A3 33 |),CH$(I).......3|
00000700: 29 49 A3 31 31 29 43 48 24 28 49 29 A3 33 32 29 |)I.11)CH$(I).32)|
00000710: 43 48 28 49 29 00 1F 0F EA 01 82 49 3A A0 36 00 |CH(I)......I:.6.|
00000720: 4A 0F F4 01 8B 46 58 31 25 B2 39 A7 99 22 11 11 |J....FX1%.9.."..|
00000730: 11 22 3A 8D 31 30 36 34 30 3A 8D 31 30 34 32 30 |.":.10640:.10420|
00000740: 3A 99 22 11 22 3A 89 37 35 30 00 55 0F FE 01 8D |:.".":.750.U....|
00000750: 31 30 31 30 30 00 92 0F 08 02 9F 36 2C 38 2C 37 |10100......6,8,7|
00000760: 2C 22 20 22 AA 4D 4E 24 AA 22 2F 53 4F 52 54 20 |," ".MN$."/SORT |
00000770: 4B 45 59 2C 53 2C 52 22 3A 8D 31 30 30 31 30 3A |KEY,S,R":.10010:|
00000780: 81 49 B2 31 A4 4C 4F 3A 84 36 2C 4E 25 28 49 29 |.I.1.LO:.6,N%(I)|
00000790: 3A 82 00 A7 0F 12 02 99 22 11 11 11 22 3A 8D 31 |:......."...":.1|
000007A0: 30 36 34 30 3A A0 36 00 B1 0F 1C 02 89 31 33 36 |0640:.6......136|
000007B0: 30 00 D7 0F 26 02 8F 20 2A 2A 2A 2A 2A 2A 2A 20 |0...&.. ******* |
000007C0: 43 52 45 41 54 45 20 4E 45 57 20 46 49 4C 45 20 |CREATE NEW FILE |
000007D0: 2A 2A 2A 2A 2A 2A 2A 00 05 10 30 02 99 22 11 20 |*******...0..". |
000007E0: D7 48 41 54 20 44 4F 20 59 4F 55 20 57 41 4E 54 |.HAT DO YOU WANT|
000007F0: 20 54 4F 20 43 41 4C 4C 20 59 4F 55 52 22 3A 8D | TO CALL YOUR":.|
00000800: 31 30 34 37 30 00 25 10 3A 02 4E 4D 24 B2 5A 24 |10470.%.:.NM$.Z$|
00000810: 3A 5A B2 C3 28 4E 4D 24 29 3A 8B 4E 4D 24 B2 22 |:Z..(NM$):.NM$."|
00000820: 22 A7 33 31 30 00 55 10 44 02 8B 5A B1 31 35 A7 |".310.U.D..Z.15.|
00000830: 8D 31 30 34 32 30 3A 99 22 11 20 12 C6 49 4C 45 |.10420:.". ..ILE|
00000840: 20 4E 41 4D 45 20 54 4F 4F 20 4C 4F 4E 47 2E 22 | NAME TOO LONG."|
00000850: 3A 89 35 36 30 00 81 10 4E 02 A0 32 3A 9F 32 2C |:.560...N..2:.2,|
00000860: 38 2C 33 2C 22 20 22 AA 4E 4D 24 3A 84 31 2C 45 |8,3," ".NM$:.1,E|
00000870: 2C 45 24 2C 43 2C 44 3A 8B 45 B2 36 32 A7 36 34 |,E$,C,D:.E.62.64|
00000880: 30 00 A8 10 58 02 99 22 11 20 D4 48 41 54 20 46 |0...X..". .HAT F|
00000890: 49 4C 45 20 4E 41 4D 45 20 41 4C 52 45 41 44 59 |ILE NAME ALREADY|
000008A0: 20 45 58 49 53 54 53 2E 00 D7 10 62 02 5A 24 B2 | EXISTS....b.Z$.|
000008B0: 22 22 3A 85 22 20 C4 4F 20 59 4F 55 20 57 41 4E |"":." .O YOU WAN|
000008C0: 54 20 54 4F 20 57 52 49 54 45 20 4F 56 45 52 20 |T TO WRITE OVER |
000008D0: 49 54 20 22 3B 5A 24 00 E0 10 6C 02 42 B2 33 32 |IT ";Z$...l.B.32|
000008E0: 00 06 11 76 02 8D 31 30 34 38 30 3A 8B 5A 24 B2 |...v..10480:.Z$.|
000008F0: 22 51 22 B0 5A 24 B2 22 4E 22 A7 8D 31 30 34 32 |"Q".Z$."N"..1042|
00000900: 30 3A 89 35 36 30 00 24 11 80 02 4D 4E 24 B2 4E |0:.560.$...MN$.N|
00000910: 4D 24 3A 8B 5A B1 36 A7 4D 4E 24 B2 C8 28 4E 4D |M$:.Z.6.MN$..(NM|
00000920: 24 2C 36 29 00 39 11 8A 02 8B 45 B2 36 32 A7 5A |$,6).9....E.62.Z|
00000930: 24 B2 22 22 3A 89 37 30 30 00 6C 11 94 02 5A 24 |$."":.700.l...Z$|
00000940: B2 22 22 3A 99 22 11 20 C4 4F 20 59 4F 55 20 57 |."":.". .O YOU W|
00000950: 41 4E 54 20 54 4F 20 4B 45 45 50 20 54 48 45 20 |ANT TO KEEP THE |
00000960: 46 49 45 4C 44 20 54 49 54 4C 45 53 00 98 11 9E |FIELD TITLES....|
00000970: 02 99 22 20 41 4E 44 20 54 48 45 49 52 20 43 48 |.." AND THEIR CH|
00000980: 41 52 41 43 54 45 52 20 4C 45 4E 47 54 48 53 20 |ARACTER LENGTHS |
00000990: 54 48 45 20 53 41 4D 45 00 D8 11 A8 02 99 22 20 |THE SAME......" |
000009A0: 41 53 20 54 48 45 59 20 57 45 52 45 20 49 4E 20 |AS THEY WERE IN |
000009B0: 54 48 45 20 4F 4C 44 20 12 22 4E 4D 24 22 92 22 |THE OLD ."NM$"."|
000009C0: 3B 3A 85 5A 24 3A 42 B2 C3 28 4E 4D 24 29 AA 32 |;:.Z$:B..(NM$).2|
000009D0: 36 3A 8D 31 30 34 38 30 00 F3 11 B2 02 8B 5A 24 |6:.10480......Z$|
000009E0: B2 22 51 22 A7 8D 31 30 34 32 30 3A A0 32 3A 89 |."Q"..10420:.2:.|
000009F0: 32 39 30 00 07 12 BC 02 A0 32 3A 98 31 2C 22 53 |290......2:.1,"S|
00000A00: 3A 20 22 AA 4E 4D 24 00 1F 12 C6 02 8B 5A 24 B2 |: ".NM$......Z$.|
00000A10: 22 59 22 A7 46 58 31 25 B2 39 3A 89 37 33 30 00 |"Y".FX1%.9:.730.|
00000A20: 3B 12 D0 02 98 31 2C 22 53 3A 20 22 AA 4D 4E 24 |;....1,"S: ".MN$|
00000A30: AA 22 2F 4B 45 59 2C 53 2C 20 22 00 5C 12 DA 02 |."/KEY,S, ".\...|
00000A40: 98 31 2C 22 53 3A 20 22 AA 4D 4E 24 AA 22 2F 53 |.1,"S: ".MN$."/S|
00000A50: 4F 52 54 20 4B 45 59 2C 53 2C 20 22 00 6C 12 E4 |ORT KEY,S, ".l..|
00000A60: 02 8B 46 58 31 25 B2 39 A7 34 30 30 00 A4 12 EE |..FX1%.9.400....|
00000A70: 02 99 22 11 20 C8 4F 57 20 4D 41 4E 59 20 52 45 |..". .OW MANY RE|
00000A80: 43 4F 52 44 53 20 4C 4F 4E 47 22 3A 99 22 20 57 |CORDS LONG":." W|
00000A90: 49 4C 4C 20 22 4E 4D 24 3B 3A 85 22 20 42 45 20 |ILL "NM$;:." BE |
00000AA0: 22 3B 4C 4F 00 C1 12 F8 02 8B 4C 4F B3 31 B0 4C |";LO......LO.1.L|
00000AB0: 4F B1 35 30 30 A7 8D 31 30 34 32 30 3A 89 37 35 |O.500..10420:.75|
00000AC0: 30 00 D2 12 02 03 8B 46 58 31 25 B3 B1 39 A7 37 |0......FX1%..9.7|
00000AD0: 39 30 00 F4 12 0C 03 99 22 11 20 C3 52 45 41 54 |90......". .REAT|
00000AE0: 49 4E 47 20 46 49 4C 45 53 20 2E 2E 2E 22 3A 89 |ING FILES ...":.|
00000AF0: 31 32 38 30 00 33 13 16 03 8D 31 30 34 32 30 3A |1280.3....10420:|
00000B00: 99 22 11 20 C8 4F 57 20 4D 41 4E 59 20 46 49 45 |.". .OW MANY FIE|
00000B10: 4C 44 53 20 28 39 20 4D 41 58 29 20 57 49 4C 4C |LDS (9 MAX) WILL|
00000B20: 20 45 41 43 48 22 3A 50 4F 25 B2 31 3A 46 4C 44 | EACH":PO%.1:FLD|
00000B30: 53 B2 30 00 67 13 20 03 85 22 20 52 45 43 4F 52 |S.0.g. .." RECOR|
00000B40: 44 20 48 41 56 45 20 22 3B 46 4C 44 53 3A 8B 46 |D HAVE ";FLDS:.F|
00000B50: 4C 44 53 B3 31 B0 46 4C 44 53 B1 39 A7 99 22 91 |LDS.1.FLDS.9..".|
00000B60: 91 22 3A 89 37 39 30 00 98 13 2A 03 81 49 B2 31 |.":.790...*..I.1|
00000B70: A4 46 4C 44 53 3A 99 22 11 20 C5 4E 54 45 52 20 |.FLDS:.". .NTER |
00000B80: 54 48 45 20 54 49 54 4C 45 20 46 4F 52 20 46 49 |THE TITLE FOR FI|
00000B90: 45 4C 44 20 23 12 22 49 00 C6 13 34 03 43 48 24 |ELD #."I...4.CH$|
00000BA0: 28 49 29 B2 22 22 3A 85 22 20 28 32 30 20 43 48 |(I)."":." (20 CH|
00000BB0: 41 52 41 43 54 45 52 53 20 4D 41 58 29 20 22 3B |ARACTERS MAX) ";|
00000BC0: 43 48 24 28 49 29 00 FA 13 3E 03 8B 43 48 24 28 |CH$(I)...>..CH$(|
00000BD0: 49 29 B2 22 22 B0 C3 28 43 48 24 28 49 29 29 B1 |I).""..(CH$(I)).|
00000BE0: 32 30 B0 C3 28 43 48 24 28 49 29 29 B3 31 A7 8D |20..(CH$(I)).1..|
00000BF0: 31 30 34 32 30 3A 89 38 31 30 00 0A 14 48 03 8B |10420:.810...H..|
00000C00: 49 B2 36 A7 8D 31 30 34 32 30 00 2B 14 52 03 8B |I.6..10420.+.R..|
00000C10: C3 28 43 48 24 28 49 29 29 B1 50 4F 25 A7 50 4F |.(CH$(I)).PO%.PO|
00000C20: 25 B2 C3 28 43 48 24 28 49 29 29 00 32 14 5C 03 |%..(CH$(I)).2.\.|
00000C30: 82 49 00 69 14 66 03 8D 31 30 34 32 30 3A 99 22 |.I.i.f..10420:."|
00000C40: 11 20 D4 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 |. .HE FOLLOWING |
00000C50: 41 52 45 20 52 45 43 4F 52 44 20 46 49 45 4C 44 |ARE RECORD FIELD|
00000C60: 20 54 49 54 4C 45 53 3B 22 00 95 14 70 03 81 49 | TITLES;"...p..I|
00000C70: B2 31 A4 46 4C 44 53 3A 99 22 11 20 C6 49 45 4C |.1.FLDS:.". .IEL|
00000C80: 44 20 23 22 49 A3 50 4F 25 AA 32 29 43 48 24 28 |D #"I.PO%.2)CH$(|
00000C90: 49 29 3A 82 49 00 A4 14 7A 03 42 B2 33 34 3A 5A |I):.I...z.B.34:Z|
00000CA0: 24 B2 22 22 00 D7 14 84 03 85 22 11 20 C4 4F 20 |$.""......". .O |
00000CB0: 59 4F 55 20 57 41 4E 54 20 54 4F 20 4D 41 4B 45 |YOU WANT TO MAKE|
00000CC0: 20 41 4E 59 20 43 48 41 4E 47 45 53 22 3B 5A 24 | ANY CHANGES";Z$|
00000CD0: 3A 8D 31 30 34 38 30 00 EF 14 8E 03 8B 5A 24 B2 |:.10480......Z$.|
00000CE0: 22 51 22 A7 99 22 91 91 91 22 3A 89 39 30 30 00 |"Q".."...":.900.|
00000CF0: 08 15 98 03 8B 5A 24 B2 22 4E 22 A7 8D 31 30 34 |.....Z$."N"..104|
00000D00: 32 30 3A 89 31 30 30 30 00 13 15 A2 03 8D 31 30 |20:.1000......10|
00000D10: 34 32 30 00 3B 15 AC 03 85 22 11 20 D7 48 49 43 |420.;....". .HIC|
00000D20: 48 20 46 49 45 4C 44 20 22 3B 5A 3A 8B 5A B3 31 |H FIELD ";Z:.Z.1|
00000D30: B0 5A B1 46 4C 44 53 A7 38 37 30 00 62 15 B6 03 |.Z.FLDS.870.b...|
00000D40: 99 22 11 20 C5 4E 54 45 52 20 54 48 45 20 54 49 |.". .NTER THE TI|
00000D50: 54 4C 45 20 46 4F 52 20 46 49 45 4C 44 20 23 12 |TLE FOR FIELD #.|
00000D60: 22 5A 00 86 15 C0 03 85 22 20 28 32 30 20 43 48 |"Z......" (20 CH|
00000D70: 41 52 41 43 54 45 52 53 20 4D 41 58 29 20 22 3B |ARACTERS MAX) ";|
00000D80: 43 48 24 28 5A 29 00 B8 15 CA 03 8B 43 48 24 28 |CH$(Z)......CH$(|
00000D90: 5A 29 B2 22 22 B0 C3 28 43 48 24 28 5A 29 29 B1 |Z).""..(CH$(Z)).|
00000DA0: 32 30 B0 C3 28 43 48 24 28 5A 29 29 B3 31 A7 43 |20..(CH$(Z)).1.C|
00000DB0: 48 28 5A 29 B2 22 20 22 00 D9 15 D4 03 8B C3 28 |H(Z)." ".......(|
00000DC0: 43 48 24 28 5A 29 29 B1 50 4F 25 A7 50 4F 25 B2 |CH$(Z)).PO%.PO%.|
00000DD0: C3 28 43 48 24 28 5A 29 29 00 E2 15 DE 03 89 38 |.(CH$(Z))......8|
00000DE0: 37 30 00 27 16 E8 03 99 22 11 20 CE 4F 54 45 3A |70.'....". .OTE:|
00000DF0: 20 CF 4E 4C 59 20 32 34 30 20 43 48 41 52 41 43 | .NLY 240 CHARAC|
00000E00: 54 45 52 53 20 54 4F 54 41 4C 20 46 4F 52 20 22 |TERS TOTAL FOR "|
00000E10: 3A 99 22 20 41 4C 4C 20 46 49 45 4C 44 53 20 41 |:." ALL FIELDS A|
00000E20: 4C 4C 4F 57 45 44 2E 00 58 16 F2 03 44 46 B2 30 |LLOWED..X...DF.0|
00000E30: 3A 81 49 B2 31 A4 46 4C 44 53 3A 99 22 11 20 C5 |:.I.1.FLDS:.". .|
00000E40: 4E 54 45 52 20 54 48 45 20 23 20 4F 46 20 43 48 |NTER THE # OF CH|
00000E50: 41 52 41 43 54 45 52 53 00 79 16 FC 03 99 22 20 |ARACTERS.y...." |
00000E60: 46 4F 52 20 46 49 45 4C 44 20 23 12 22 49 22 92 |FOR FIELD #."I".|
00000E70: 22 3B 3A 85 43 48 28 49 29 00 A2 16 06 04 8B 43 |";:.CH(I)......C|
00000E80: 48 28 49 29 B1 32 34 30 AB 46 4C 44 53 B0 43 48 |H(I).240.FLDS.CH|
00000E90: 28 49 29 B3 31 A7 8D 31 30 34 32 30 3A 89 31 30 |(I).1..10420:.10|
00000EA0: 30 30 00 B1 16 10 04 8B 49 B3 B1 36 A7 31 30 37 |00......I..6.107|
00000EB0: 30 00 DB 16 1A 04 8D 31 30 34 32 30 3A 99 22 11 |0......10420:.".|
00000EC0: 20 C5 4E 54 45 52 20 54 48 45 20 23 20 4F 46 20 | .NTER THE # OF |
00000ED0: 43 48 41 52 41 43 54 45 52 53 22 00 FA 16 24 04 |CHARACTERS"...$.|
00000EE0: 99 22 20 46 4F 52 20 46 49 45 4C 44 20 23 12 22 |." FOR FIELD #."|
00000EF0: 49 22 92 20 22 43 48 28 49 29 00 29 17 2E 04 44 |I". "CH(I).)...D|
00000F00: 46 B2 44 46 AA 43 48 28 49 29 3A 99 A3 32 38 29 |F.DF.CH(I):..28)|
00000F10: 22 91 D4 4F 54 41 4C 3D 12 22 44 46 3A 8B 44 46 |"..OTAL=."DF:.DF|
00000F20: B3 32 34 31 A7 31 30 39 30 00 5B 17 38 04 8D 31 |.241.1090.[.8..1|
00000F30: 30 34 32 30 3A 99 22 11 20 12 C3 48 41 52 41 43 |0420:.". ..HARAC|
00000F40: 54 45 52 20 54 4F 54 41 4C 20 54 4F 4F 20 47 52 |TER TOTAL TOO GR|
00000F50: 45 41 54 2E 22 3A 89 31 30 30 30 00 62 17 42 04 |EAT.":.1000.b.B.|
00000F60: 82 49 00 A6 17 4C 04 8D 31 30 34 32 30 3A 99 22 |.I...L..10420:."|
00000F70: 20 D4 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 41 | .HE FOLLOWING A|
00000F80: 52 45 20 52 45 43 4F 52 44 20 46 49 45 4C 44 22 |RE RECORD FIELD"|
00000F90: 3A 99 22 20 43 48 41 52 41 43 54 45 52 20 4C 45 |:." CHARACTER LE|
00000FA0: 4E 47 54 48 53 3B 00 D0 17 56 04 44 46 B2 30 3A |NGTHS;...V.DF.0:|
00000FB0: 81 49 B2 31 A4 46 4C 44 53 3A 99 22 11 20 C6 49 |.I.1.FLDS:.". .I|
00000FC0: 45 4C 44 20 23 22 49 A3 31 38 29 43 48 28 49 29 |ELD #"I.18)CH(I)|
00000FD0: 00 FD 17 60 04 44 46 B2 44 46 AA 43 48 28 49 29 |...`.DF.DF.CH(I)|
00000FE0: 3A 99 A3 32 38 29 22 91 D3 55 4D 3D 12 22 44 46 |:..28)"..UM=."DF|
00000FF0: 3A 8B 44 46 B1 32 34 33 A7 31 30 38 30 00 1B 18 |:.DF.243.1080...|
00001000: 6A 04 8B 49 B2 46 4C 44 53 A7 99 A3 32 38 29 22 |j..I.FLDS...28)"|
00001010: 91 D4 4F 54 41 4C 3D 12 22 44 46 00 2D 18 74 04 |..OTAL=."DF.-.t.|
00001020: 82 49 3A 42 B2 33 34 3A 5A 24 B2 22 22 00 66 18 |.I:B.34:Z$."".f.|
00001030: 7E 04 5A 24 B2 22 22 3A 85 22 11 20 C4 4F 20 59 |~.Z$."":.". .O Y|
00001040: 4F 55 20 57 41 4E 54 20 54 4F 20 4D 41 4B 45 20 |OU WANT TO MAKE |
00001050: 41 4E 59 20 43 48 41 4E 47 45 53 22 3B 5A 24 3A |ANY CHANGES";Z$:|
00001060: 8D 31 30 34 38 30 00 7F 18 88 04 8B 5A 24 B2 22 |.10480......Z$."|
00001070: 51 22 A7 99 22 91 91 91 22 3A 89 31 31 35 30 00 |Q".."...":.1150.|
00001080: 90 18 92 04 8B 5A 24 B2 22 4E 22 A7 31 32 34 30 |.....Z$."N".1240|
00001090: 00 9B 18 9C 04 8D 31 30 34 32 30 00 C8 18 A6 04 |......10420.....|
000010A0: 5A B2 30 3A 85 22 11 20 D7 48 49 43 48 20 46 49 |Z.0:.". .HICH FI|
000010B0: 45 4C 44 20 22 3B 5A 3A 8B 5A B3 31 B0 5A B1 46 |ELD ";Z:.Z.1.Z.F|
000010C0: 4C 44 53 A7 31 31 30 30 00 F9 18 B0 04 44 46 B2 |LDS.1100.....DF.|
000010D0: 30 3A 81 49 B2 31 A4 46 4C 44 53 3A 99 22 11 20 |0:.I.1.FLDS:.". |
000010E0: C5 4E 54 45 52 20 54 48 45 20 23 20 4F 46 20 43 |.NTER THE # OF C|
000010F0: 48 41 52 41 43 54 45 52 53 00 1A 19 BA 04 99 22 |HARACTERS......"|
00001100: 20 46 4F 52 20 46 49 45 4C 44 20 23 12 22 5A 22 | FOR FIELD #."Z"|
00001110: 92 22 3B 3A 85 43 48 28 5A 29 00 39 19 C4 04 8B |.";:.CH(Z).9....|
00001120: 43 48 28 5A 29 B1 32 33 35 B0 43 48 28 5A 29 B3 |CH(Z).235.CH(Z).|
00001130: 31 A7 43 48 28 5A 29 B2 31 00 43 19 CE 04 89 31 |1.CH(Z).1.C....1|
00001140: 31 30 30 00 67 19 D8 04 8D 31 30 34 32 30 3A 99 |100.g....10420:.|
00001150: 22 11 20 C3 52 45 41 54 49 4E 47 20 46 49 4C 45 |". .REATING FILE|
00001160: 53 2E 2E 2E 2E 2E 22 00 A1 19 E2 04 A0 36 3A 9F |S....."......6:.|
00001170: 36 2C 38 2C 37 2C 22 20 22 AA 4D 4E 24 AA 22 2F |6,8,7," ".MN$."/|
00001180: 4B 45 59 2C 53 2C 57 22 3A 98 36 2C 46 4C 44 53 |KEY,S,W":.6,FLDS|
00001190: 3B 52 24 3B 44 46 3B 52 24 3B 50 4F 25 3B 52 24 |;R$;DF;R$;PO%;R$|
000011A0: 3B 00 CC 19 EC 04 81 49 B2 31 A4 46 4C 44 53 3A |;......I.1.FLDS:|
000011B0: 98 36 2C 43 48 28 49 29 3B 52 24 3B 43 48 24 28 |.6,CH(I);R$;CH$(|
000011C0: 49 29 3B 52 24 3B 3A 82 49 3A A0 36 00 D7 19 F6 |I);R$;:.I:.6....|
000011D0: 04 46 58 31 25 B2 30 00 0A 1A 00 05 9F 36 2C 38 |.FX1%.0......6,8|
000011E0: 2C 37 2C 22 20 22 AA 4D 4E 24 AA 22 2F 53 4F 52 |,7," ".MN$."/SOR|
000011F0: 54 20 4B 45 59 2C 53 2C 57 22 3A 81 49 B2 31 A4 |T KEY,S,W":.I.1.|
00001200: 4C 4F 3A 4E 25 28 49 29 B2 49 00 1D 1A 0A 05 98 |LO:N%(I).I......|
00001210: 36 2C 49 3B 52 24 3B 3A 82 49 3A A0 36 00 29 1A |6,I;R$;:.I:.6.).|
00001220: 14 05 44 46 25 B2 32 35 33 00 4C 1A 28 05 A0 32 |..DF%.253.L.(..2|
00001230: 3A 9F 32 2C 38 2C 33 2C 22 20 22 AA 4E 4D 24 AA |:.2,8,3," ".NM$.|
00001240: 22 2C 4C 2C 22 AA C7 28 44 46 25 29 00 82 1A 32 |",L,"..(DF%)...2|
00001250: 05 57 31 B2 31 3A 57 33 B2 30 3A 8D 31 30 31 39 |.W1.1:W3.0:.1019|
00001260: 30 3A 4F 24 B2 22 45 4D 50 54 59 22 3A 81 49 B2 |0:O$."EMPTY":.I.|
00001270: 32 A4 4C 4F AA 31 3A 52 31 B2 49 3A 8D 31 30 30 |2.LO.1:R1.I:.100|
00001280: 38 30 00 B5 1A 3C 05 58 B2 31 3A 8D 31 30 32 37 |80...<.X.1:.1027|
00001290: 30 3A 99 22 11 11 20 D2 C5 C3 CF D2 C4 20 12 22 |0:.".. ...... ."|
000012A0: 49 AB 31 22 92 20 C3 D2 C5 C1 D4 C5 C4 2E 91 91 |I.1". ..........|
000012B0: 91 22 3A 82 49 00 C8 1A 46 05 8B 46 58 31 25 B2 |.":.I...F..FX1%.|
000012C0: 39 A7 46 58 31 25 B2 30 00 D3 1A 50 05 8D 31 30 |9.FX1%.0...P..10|
000012D0: 34 32 30 00 FD 1A 5A 05 99 22 11 20 CF 4B 41 59 |420...Z..". .KAY|
000012E0: 2C 20 57 48 41 54 20 4F 50 45 52 41 54 49 4F 4E |, WHAT OPERATION|
000012F0: 20 44 49 44 20 59 4F 55 20 57 41 4E 54 00 13 1B | DID YOU WANT...|
00001300: 64 05 99 22 20 54 4F 20 50 45 52 46 4F 52 4D 20 |d.." TO PERFORM |
00001310: 3F 11 22 00 2D 1B 6E 05 99 22 20 20 D7 52 49 54 |?.".-.n.." .RIT|
00001320: 45 20 20 20 20 20 28 57 29 20 20 3F 22 00 47 1B |E (W) ?".G.|
00001330: 78 05 99 22 20 20 D2 45 41 44 20 20 20 20 20 20 |x.." .EAD |
00001340: 28 52 29 20 20 3F 22 00 61 1B 82 05 99 22 20 20 |(R) ?".a...." |
00001350: D5 50 44 41 54 45 20 20 20 20 28 55 29 20 20 3F |.PDATE (U) ?|
00001360: 22 00 7B 1B 8C 05 99 22 20 20 CD 4F 44 49 46 59 |".{...." .ODIFY|
00001370: 20 20 20 20 28 4D 29 20 20 3F 22 00 95 1B 96 05 | (M) ?".....|
00001380: 99 22 20 20 D3 45 41 52 43 48 20 20 20 20 28 53 |." .EARCH (S|
00001390: 29 20 20 3F 22 00 AF 1B A0 05 99 22 20 20 D3 4F |) ?"......" .O|
000013A0: 52 54 20 20 20 20 20 20 28 53 4F 29 20 3F 22 00 |RT (SO) ?".|
000013B0: C9 1B AA 05 99 22 20 20 C4 45 4C 45 54 45 20 20 |....." .ELETE |
000013C0: 20 20 28 44 45 29 20 3F 22 00 E3 1B B4 05 99 22 | (DE) ?"......"|
000013D0: 20 20 D2 45 53 54 41 52 54 20 20 20 28 52 45 29 | .ESTART (RE)|
000013E0: 20 3F 22 00 FD 1B BE 05 99 22 20 20 D0 52 49 4E | ?"......" .RIN|
000013F0: 54 20 20 20 20 20 28 50 29 20 20 3F 22 00 17 1C |T (P) ?"...|
00001400: C8 05 99 22 20 20 C1 44 44 20 4F 4E 20 20 20 20 |..." .DD ON |
00001410: 28 41 29 20 20 3F 22 00 31 1C D2 05 99 22 20 20 |(A) ?".1...." |
00001420: C3 4F 50 59 20 20 20 20 20 20 28 43 29 20 20 3F |.OPY (C) ?|
00001430: 22 00 4B 1C DC 05 99 22 20 20 C4 49 52 45 43 54 |".K...." .IRECT|
00001440: 4F 52 59 20 28 44 29 20 20 3F 22 00 65 1C E6 05 |ORY (D) ?".e...|
00001450: 99 22 20 20 C5 4E 44 20 20 20 20 20 20 20 28 45 |." .ND (E|
00001460: 29 20 20 3F 22 00 86 1C F0 05 4C 24 B2 22 22 3A |) ?".....L$."":|
00001470: 85 22 11 20 C9 4E 50 55 54 20 41 20 4C 45 54 54 |.". .NPUT A LETT|
00001480: 45 52 22 3B 4C 24 00 9E 1C FA 05 8B 4C 24 B2 22 |ER";L$......L$."|
00001490: 22 A7 99 22 91 91 91 22 3A 89 31 35 32 30 00 AF |".."...":.1520..|
000014A0: 1C 04 06 8B 4C 24 B2 22 57 22 A7 31 37 32 30 00 |....L$."W".1720.|
000014B0: C0 1C 0E 06 8B 4C 24 B2 22 52 22 A7 32 31 36 30 |.....L$."R".2160|
000014C0: 00 D1 1C 18 06 8B 4C 24 B2 22 55 22 A7 31 39 39 |......L$."U".199|
000014D0: 30 00 E2 1C 22 06 8B 4C 24 B2 22 4D 22 A7 32 33 |0..."..L$."M".23|
000014E0: 38 30 00 F3 1C 2C 06 8B 4C 24 B2 22 53 22 A7 32 |80...,..L$."S".2|
000014F0: 37 35 30 00 05 1D 36 06 8B 4C 24 B2 22 53 4F 22 |750...6..L$."SO"|
00001500: A7 33 35 30 30 00 17 1D 40 06 8B 4C 24 B2 22 44 |.3500...@..L$."D|
00001510: 45 22 A7 33 39 33 30 00 44 1D 4A 06 8B 4C 24 B2 |E".3930.D.J..L$.|
00001520: 22 52 45 22 A7 4E 4D 24 B2 22 22 3A 8D 31 30 34 |"RE".NM$."":.104|
00001530: 32 30 3A 8D 31 30 31 39 30 3A A0 32 3A A0 31 3A |20:.10190:.2:.1:|
00001540: 89 32 38 30 00 55 1D 54 06 8B 4C 24 B2 22 50 22 |.280.U.T..L$."P"|
00001550: A7 34 33 39 30 00 66 1D 5E 06 8B 4C 24 B2 22 41 |.4390.f.^..L$."A|
00001560: 22 A7 34 37 39 30 00 77 1D 68 06 8B 4C 24 B2 22 |".4790.w.h..L$."|
00001570: 43 22 A7 34 31 30 30 00 88 1D 72 06 8B 4C 24 B2 |C".4100...r..L$.|
00001580: 22 44 22 A7 34 39 39 30 00 A3 1D 7C 06 8B 4C 24 |"D".4990...|..L$|
00001590: B2 22 45 22 A7 8D 31 30 31 39 30 3A A0 32 3A A0 |."E"..10190:.2:.|
000015A0: 31 3A 80 00 CB 1D 86 06 8D 31 30 34 32 30 3A 99 |1:.......10420:.|
000015B0: 22 11 20 D6 45 52 59 20 46 55 4E 4E 59 20 48 41 |". .ERY FUNNY HA|
000015C0: 2D 48 41 2E 22 3A 89 31 33 37 30 00 F0 1D 90 06 |-HA.":.1370.....|
000015D0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
000015E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000015F0: 00 15 1E 9A 06 8F 20 2A 20 54 48 49 53 20 53 45 |...... * THIS SE|
00001600: 43 54 49 4F 4E 20 57 52 49 54 45 53 20 52 45 43 |CTION WRITES REC|
00001610: 4F 52 44 53 2A 00 3A 1E A4 06 8F 20 2A 20 4F 4E |ORDS*.:.... * ON|
00001620: 20 54 48 45 20 44 49 53 4B 2E 20 57 52 49 54 45 | THE DISK. WRITE|
00001630: 20 4F 4E 21 20 20 20 20 20 2A 00 5F 1E AE 06 8F | ON! *._....|
00001640: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00001650: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00001660: 78 1E B8 06 8D 31 30 35 34 30 3A 8D 31 30 31 32 |x....10540:.1012|
00001670: 30 3A 8D 31 30 31 36 30 00 AF 1E C2 06 57 32 B2 |0:.10160.....W2.|
00001680: 57 31 3A 57 31 24 B2 22 30 22 3A 85 22 20 57 52 |W1:W1$."0":." WR|
00001690: 49 54 45 20 54 4F 20 28 30 3D 51 55 49 54 29 20 |ITE TO (0=QUIT) |
000016A0: 22 3B 57 31 24 3A 57 31 B2 C5 28 57 31 24 29 00 |";W1$:W1..(W1$).|
000016B0: C6 1E CC 06 8B 57 31 B3 B2 30 A7 57 31 B2 57 32 |.....W1..0.W1.W2|
000016C0: 3A 89 31 33 36 30 00 E1 1E D6 06 49 B2 30 3A 8D |:.1360.....I.0:.|
000016D0: 31 30 35 36 30 3A 8B 49 B3 B1 39 39 A7 31 37 37 |10560:.I..99.177|
000016E0: 30 00 0D 1F E0 06 8D 31 30 35 34 30 3A 8D 31 30 |0......10540:.10|
000016F0: 35 38 30 3A 57 31 B2 57 32 3A 8D 31 30 31 32 30 |580:W1.W2:.10120|
00001700: 3A 8D 31 30 31 36 30 3A 89 31 37 33 30 00 24 1F |:.10160:.1730.$.|
00001710: EA 06 52 31 B2 4E 25 28 57 31 29 AA 31 3A 8D 31 |..R1.N%(W1).1:.1|
00001720: 30 30 38 30 00 44 1F F4 06 58 B2 31 3A 8D 31 30 |0080.D...X.1:.10|
00001730: 32 33 30 3A 8B 4F 24 B2 22 45 4D 50 54 59 22 A7 |230:.O$."EMPTY".|
00001740: 31 38 32 30 00 79 1F FE 06 99 22 11 20 D2 45 43 |1820.y....". .EC|
00001750: 4F 52 44 20 23 20 12 22 57 31 22 92 41 4C 52 45 |ORD # ."W1".ALRE|
00001760: 41 44 59 20 43 4F 4E 54 41 49 4E 53 20 44 41 54 |ADY CONTAINS DAT|
00001770: 41 2E 22 3A 5A 24 B2 22 22 00 B0 1F 08 07 99 22 |A.":Z$.""......"|
00001780: 20 C4 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 | .O YOU WANT TO |
00001790: 57 52 49 54 45 20 4F 56 45 52 20 49 54 20 22 3B |WRITE OVER IT ";|
000017A0: 3A 85 5A 24 3A 42 B2 33 32 3A 8D 31 30 34 38 30 |:.Z$:B.32:.10480|
000017B0: 00 E4 1F 12 07 8B 5A 24 B2 22 51 22 B0 5A 24 B2 |......Z$."Q".Z$.|
000017C0: 22 4E 22 A7 57 31 B2 57 32 3A 8D 31 30 35 34 30 |"N".W1.W2:.10540|
000017D0: 3A 8D 31 30 31 32 30 3A 8D 31 30 31 36 30 3A 89 |:.10120:.10160:.|
000017E0: 31 37 33 30 00 0B 20 1C 07 8D 31 30 35 34 30 3A |1730.. ...10540:|
000017F0: 8D 31 30 31 32 30 3A 99 22 11 20 D2 45 43 4F 52 |.10120:.". .ECOR|
00001800: 44 20 23 12 22 57 31 22 92 11 22 00 3E 20 26 07 |D #."W1"..".> &.|
00001810: 81 4A B2 31 A4 46 4C 44 53 3A 99 22 20 22 43 48 |.J.1.FLDS:." "CH|
00001820: 24 28 4A 29 A3 50 4F 25 AA 32 29 3B 3A 4F 4F 24 |$(J).PO%.2);:OO$|
00001830: 28 4A 29 B2 22 22 3A 85 4F 4F 24 28 4A 29 00 58 |(J)."":.OO$(J).X|
00001840: 20 30 07 8B 4F 4F 24 28 4A 29 B2 22 22 A7 4F 4F | 0..OO$(J)."".OO|
00001850: 24 28 4A 29 B2 22 20 22 00 84 20 3A 07 8B C3 28 |$(J)." ".. :...(|
00001860: 4F 4F 24 28 4A 29 29 B1 43 48 28 4A 29 A7 4F 4F |OO$(J)).CH(J).OO|
00001870: 24 28 4A 29 B2 C8 28 4F 4F 24 28 4A 29 2C 43 48 |$(J)..(OO$(J),CH|
00001880: 28 4A 29 29 00 8B 20 44 07 82 4A 00 AA 20 4E 07 |(J)).. D..J.. N.|
00001890: 8D 31 30 35 34 30 3A 99 22 11 20 D2 45 43 4F 52 |.10540:.". .ECOR|
000018A0: 44 20 23 12 22 57 31 22 92 22 00 D8 20 58 07 99 |D #."W1".".. X..|
000018B0: 22 11 22 3A 81 49 B2 31 A4 46 4C 44 53 3A 99 22 |".":.I.1.FLDS:."|
000018C0: 20 22 43 48 24 28 49 29 A3 50 4F 25 AA 33 29 4F | "CH$(I).PO%.3)O|
000018D0: 4F 24 28 49 29 3A 82 49 00 16 21 62 07 5A 24 B2 |O$(I):.I..!b.Z$.|
000018E0: 22 22 3A 85 22 11 11 20 C9 53 20 54 48 49 53 20 |"":.".. .S THIS |
000018F0: 52 49 47 48 54 20 28 51 3D 51 55 49 54 29 22 3B |RIGHT (Q=QUIT)";|
00001900: 5A 24 3A 8B 5A 24 B2 22 51 22 A7 5A 24 B2 22 22 |Z$:.Z$."Q".Z$.""|
00001910: 3A 89 31 39 31 30 00 28 21 6C 07 8B 5A 24 B2 22 |:.1910.(!l..Z$."|
00001920: 22 A7 5A 24 B2 22 59 22 00 45 21 76 07 42 B2 32 |".Z$."Y".E!v.B.2|
00001930: 35 3A 8D 31 30 34 38 30 3A 8B 5A 24 B2 22 4E 22 |5:.10480:.Z$."N"|
00001940: A7 31 38 32 30 00 72 21 80 07 8B 5A 24 B2 22 51 |.1820.r!...Z$."Q|
00001950: 22 A7 8D 31 30 35 34 30 3A 57 31 B2 57 32 3A 8D |"..10540:W1.W2:.|
00001960: 31 30 31 32 30 3A 8D 31 30 31 36 30 3A 89 31 37 |10120:.10160:.17|
00001970: 33 30 00 A8 21 8A 07 8D 31 30 33 38 30 3A A0 32 |30..!...10380:.2|
00001980: 3A 57 33 B2 57 31 3A 9F 32 2C 38 2C 33 2C 22 20 |:W3.W1:.2,8,3," |
00001990: 22 AA 4E 4D 24 AA 22 2C 4C 2C 22 AA C7 28 44 46 |".NM$.",L,"..(DF|
000019A0: 25 29 3A 89 31 37 32 30 00 CC 21 94 07 8F 2A 2A |%):.1720..!...**|
000019B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000019C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F0 21 9E |************..!.|
000019D0: 07 8F 2A 20 54 48 49 53 20 49 53 20 54 48 45 20 |..* THIS IS THE |
000019E0: 55 50 44 41 54 45 20 53 45 43 54 49 4F 4E 20 2A |UPDATE SECTION *|
000019F0: 00 14 22 A8 07 8F 2A 20 54 48 41 54 20 54 45 4C |.."...* THAT TEL|
00001A00: 4C 53 20 43 4C 4F 57 4E 20 57 48 49 43 48 20 20 |LS CLOWN WHICH |
00001A10: 20 20 20 2A 00 38 22 B2 07 8F 2A 20 52 45 43 4F | *.8"...* RECO|
00001A20: 52 44 53 20 41 52 45 20 46 55 4C 4C 2E 20 20 20 |RDS ARE FULL. |
00001A30: 20 20 20 20 20 20 20 2A 00 5C 22 BC 07 8F 2A 2A | *.\"...**|
00001A40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001A50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 81 22 C6 |************..".|
00001A60: 07 8D 31 30 36 30 30 3A 81 54 B2 31 A4 4C 4F 3A |..10600:.T.1.LO:|
00001A70: 52 31 B2 4E 25 28 54 29 AA 31 3A 8D 31 30 30 38 |R1.N%(T).1:.1008|
00001A80: 30 00 90 22 D0 07 58 B2 31 3A 8D 31 30 32 33 30 |0.."..X.1:.10230|
00001A90: 00 C3 22 DA 07 99 22 20 D2 45 43 4F 52 44 20 23 |.."..." .ECORD #|
00001AA0: 20 12 22 54 22 92 22 2C 3A 8B 4F 24 B3 B1 22 45 | ."T".",:.O$.."E|
00001AB0: 4D 50 54 59 22 A7 99 22 46 55 4C 4C 22 3A 89 32 |MPTY".."FULL":.2|
00001AC0: 30 33 30 00 CB 22 E4 07 99 4F 24 00 E3 22 EE 07 |030.."...O$.."..|
00001AD0: 8B 54 AD 32 30 B3 B1 B5 28 54 AD 32 30 29 A7 32 |.T.20...(T.20).2|
00001AE0: 30 36 30 00 11 23 F8 07 99 22 11 20 20 20 20 20 |060..#...". |
00001AF0: D3 50 41 43 45 20 C2 41 52 20 53 54 4F 50 53 20 |.PACE .AR STOPS |
00001B00: 4C 49 53 54 49 4E 47 2E 91 22 3A 8D 31 30 36 34 |LISTING..":.1064|
00001B10: 30 00 2B 23 02 08 8D 31 30 36 30 30 3A 8B 41 24 |0.+#...10600:.A$|
00001B20: B2 C7 28 33 32 29 A7 32 30 37 30 00 32 23 0C 08 |..(32).2070.2#..|
00001B30: 82 54 00 5B 23 16 08 99 22 11 20 D4 48 45 20 4C |.T.[#...". .HE L|
00001B40: 41 53 54 20 52 45 43 4F 52 44 20 57 4F 52 4B 45 |AST RECORD WORKE|
00001B50: 44 20 4F 4E 20 57 41 53 20 22 3B 00 74 23 20 08 |D ON WAS ";.t# .|
00001B60: 8B 57 33 B2 30 A7 99 22 4E 4F 4E 45 2E 22 3A 89 |.W3.0.."NONE.":.|
00001B70: 32 31 30 30 00 7C 23 2A 08 99 57 31 00 93 23 34 |2100.|#*..W1..#4|
00001B80: 08 99 22 11 11 22 3A 8D 31 30 36 34 30 3A 89 31 |.."..":.10640:.1|
00001B90: 33 36 30 00 B7 23 3E 08 8F 2A 2A 2A 2A 2A 2A 2A |360..#>..*******|
00001BA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001BB0: 2A 2A 2A 2A 2A 2A 2A 00 DB 23 48 08 8F 2A 20 54 |*******..#H..* T|
00001BC0: 48 45 20 53 45 43 54 49 4F 4E 20 52 45 41 44 53 |HE SECTION READS|
00001BD0: 20 54 48 45 20 20 20 20 20 20 2A 00 FF 23 52 08 | THE *..#R.|
00001BE0: 8F 2A 20 52 45 51 55 49 52 45 44 20 52 45 43 4F |.* REQUIRED RECO|
00001BF0: 52 44 53 20 46 52 4F 4D 20 54 48 45 20 20 2A 00 |RDS FROM THE *.|
00001C00: 23 24 5C 08 8F 2A 20 44 49 53 4B 2E 20 20 52 45 |#$\..* DISK. RE|
00001C10: 41 44 20 4F 46 46 20 20 20 20 20 20 20 20 20 20 |AD OFF |
00001C20: 20 20 2A 00 47 24 66 08 8F 2A 2A 2A 2A 2A 2A 2A | *.G$f..*******|
00001C30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001C40: 2A 2A 2A 2A 2A 2A 2A 00 60 24 70 08 8D 31 30 36 |*******.`$p..106|
00001C50: 32 30 3A 8D 31 30 31 32 30 3A 8D 31 30 31 36 30 |20:.10120:.10160|
00001C60: 00 95 24 7A 08 57 32 B2 57 31 3A 57 31 24 B2 22 |..$z.W2.W1:W1$."|
00001C70: 30 22 3A 99 22 20 52 45 41 44 20 28 30 3D 51 55 |0":." READ (0=QU|
00001C80: 49 54 29 20 22 3B 3A 85 57 31 24 3A 57 31 B2 C5 |IT) ";:.W1$:W1..|
00001C90: 28 57 31 24 29 00 B0 24 84 08 49 B2 30 3A 8D 31 |(W1$)..$..I.0:.1|
00001CA0: 30 35 36 30 3A 8B 49 B3 B1 39 39 A7 32 32 30 30 |0560:.I..99.2200|
00001CB0: 00 E0 24 8E 08 49 B2 30 3A 8D 31 30 36 32 30 3A |..$..I.0:.10620:|
00001CC0: 8D 31 30 35 38 30 3A 57 31 B2 57 32 3A 8D 31 30 |.10580:W1.W2:.10|
00001CD0: 31 32 30 3A 8D 31 30 31 36 30 3A 89 32 31 37 30 |120:.10160:.2170|
00001CE0: 00 F7 24 98 08 8B 57 31 B3 B2 30 A7 57 31 B2 57 |..$...W1..0.W1.W|
00001CF0: 32 3A 89 31 33 36 30 00 0E 25 A2 08 52 31 B2 4E |2:.1360..%..R1.N|
00001D00: 25 28 57 31 29 AA 31 3A 8D 31 30 30 38 30 00 2F |%(W1).1:.10080./|
00001D10: 25 AC 08 58 B2 31 3A 8D 31 30 32 33 30 3A 8B 4F |%..X.1:.10230:.O|
00001D20: 24 B3 B1 22 45 4D 50 54 59 22 A7 32 32 35 30 00 |$.."EMPTY".2250.|
00001D30: 5F 25 B6 08 8D 31 30 36 32 30 3A 99 22 11 20 D2 |_%...10620:.". .|
00001D40: 45 43 4F 52 44 20 23 20 12 22 57 31 22 92 20 49 |ECORD # ."W1". I|
00001D50: 53 20 12 22 4F 24 22 92 22 3A 57 31 B2 57 32 00 |S ."O$".":W1.W2.|
00001D60: 77 25 C0 08 8D 31 30 31 32 30 3A 8D 31 30 31 36 |w%...10120:.1016|
00001D70: 30 3A 89 32 31 37 30 00 97 25 CA 08 8D 31 30 36 |0:.2170..%...106|
00001D80: 32 30 3A 99 22 11 20 D2 45 43 4F 52 44 20 23 12 |20:.". .ECORD #.|
00001D90: 22 57 31 22 92 11 22 00 A2 25 D4 08 8D 31 30 33 |"W1".."..%...103|
00001DA0: 31 30 00 CB 25 DE 08 81 49 B2 31 A4 46 4C 44 53 |10..%...I.1.FLDS|
00001DB0: 3A 99 22 20 22 43 48 24 28 49 29 A3 50 4F 25 AA |:." "CH$(I).PO%.|
00001DC0: 33 29 4F 4F 24 28 49 29 3A 82 49 00 DC 25 E8 08 |3)OO$(I):.I..%..|
00001DD0: 8D 31 30 31 36 30 3A 89 32 31 37 30 00 01 26 F2 |.10160:.2170..&.|
00001DE0: 08 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
00001DF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001E00: 2A 00 26 26 FC 08 8F 2A 20 54 48 49 53 20 53 45 |*.&&...* THIS SE|
00001E10: 43 54 49 4F 4E 20 57 49 4C 4C 20 45 44 49 54 20 |CTION WILL EDIT |
00001E20: 4F 55 52 20 20 2A 00 4B 26 06 09 8F 2A 20 53 41 |OUR *.K&...* SA|
00001E30: 56 45 44 20 44 41 54 41 20 42 59 20 52 45 41 44 |VED DATA BY READ|
00001E40: 49 4E 47 20 49 54 20 20 20 20 2A 00 70 26 10 09 |ING IT *.p&..|
00001E50: 8F 2A 20 49 4E 54 4F 20 41 4E 20 41 52 52 41 59 |.* INTO AN ARRAY|
00001E60: 2C 20 41 53 4B 49 4E 47 20 57 48 41 54 20 20 2A |, ASKING WHAT *|
00001E70: 00 95 26 1A 09 8F 2A 20 43 48 41 4E 47 45 53 20 |..&...* CHANGES |
00001E80: 43 4C 4F 57 4E 20 57 41 4E 54 53 20 54 4F 20 4D |CLOWN WANTS TO M|
00001E90: 41 4B 45 2C 2A 00 BA 26 24 09 8F 2A 20 4D 4F 44 |AKE,*..&$..* MOD|
00001EA0: 49 46 59 49 4E 47 20 54 48 45 20 41 52 52 41 59 |IFYING THE ARRAY|
00001EB0: 20 54 48 45 4E 20 20 20 20 2A 00 DF 26 2E 09 8F | THEN *..&...|
00001EC0: 2A 20 53 41 56 45 49 4E 47 20 54 48 45 20 4D 4F |* SAVEING THE MO|
00001ED0: 44 49 46 49 45 44 20 41 52 52 41 59 20 20 2A 00 |DIFIED ARRAY *.|
00001EE0: 04 27 38 09 8F 2A 20 42 41 43 4B 20 4F 4E 54 4F |.'8..* BACK ONTO|
00001EF0: 20 54 48 45 20 44 49 53 4B 2E 20 20 20 20 20 20 | THE DISK. |
00001F00: 20 20 20 2A 00 29 27 42 09 8F 2A 2A 2A 2A 2A 2A | *.)'B..******|
00001F10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001F20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 42 27 4C 09 8D 31 |*********.B'L..1|
00001F30: 30 36 38 30 3A 8D 31 30 31 32 30 3A 8D 31 30 31 |0680:.10120:.101|
00001F40: 36 30 00 77 27 56 09 57 32 B2 57 31 3A 57 31 24 |60.w'V.W2.W1:W1$|
00001F50: B2 22 30 22 3A 85 22 20 4D 4F 44 49 46 59 20 28 |."0":." MODIFY (|
00001F60: 30 3D 51 55 49 54 29 20 22 3B 57 31 24 3A 57 31 |0=QUIT) ";W1$:W1|
00001F70: B2 C5 28 57 31 24 29 00 92 27 60 09 49 B2 30 3A |..(W1$)..'`.I.0:|
00001F80: 8D 31 30 35 36 30 3A 8B 49 B3 B1 39 39 A7 32 34 |.10560:.I..99.24|
00001F90: 32 30 00 C2 27 6A 09 49 B2 30 3A 8D 31 30 36 38 |20..'j.I.0:.1068|
00001FA0: 30 3A 8D 31 30 35 38 30 3A 57 31 B2 57 32 3A 8D |0:.10580:W1.W2:.|
00001FB0: 31 30 31 32 30 3A 8D 31 30 31 36 30 3A 89 32 33 |10120:.10160:.23|
00001FC0: 39 30 00 D9 27 74 09 8B 57 31 B3 B2 30 A7 57 31 |90..'t..W1..0.W1|
00001FD0: B2 57 32 3A 89 31 33 36 30 00 F0 27 7E 09 52 31 |.W2:.1360..'~.R1|
00001FE0: B2 4E 25 28 57 31 29 AA 31 3A 8D 31 30 30 38 30 |.N%(W1).1:.10080|
00001FF0: 00 11 28 88 09 8D 31 30 33 31 30 3A 8B 4F 4F 24 |..(...10310:.OO$|
00002000: 28 49 29 B3 B1 22 45 4D 50 54 59 22 A7 32 34 37 |(I).."EMPTY".247|
00002010: 30 00 45 28 92 09 8D 31 30 36 38 30 3A 99 22 11 |0.E(...10680:.".|
00002020: 20 D2 45 43 4F 52 44 20 23 20 12 22 57 31 22 92 | .ECORD # ."W1".|
00002030: 20 49 53 20 12 22 4F 4F 24 28 49 29 22 92 22 3A | IS ."OO$(I)".":|
00002040: 57 31 B2 57 32 00 5D 28 9C 09 8D 31 30 31 32 30 |W1.W2.](...10120|
00002050: 3A 8D 31 30 31 36 30 3A 89 32 33 39 30 00 84 28 |:.10160:.2390..(|
00002060: A6 09 8D 31 30 36 38 30 3A 8D 31 30 31 32 30 3A |...10680:.10120:|
00002070: 99 22 11 20 D2 45 43 4F 52 44 20 23 12 22 57 31 |.". .ECORD #."W1|
00002080: 22 92 11 22 00 A7 28 B0 09 99 22 11 20 D7 48 49 |".."..(...". .HI|
00002090: 43 48 20 4F 46 20 54 48 45 20 46 4F 4C 4C 4F 57 |CH OF THE FOLLOW|
000020A0: 49 4E 47 20 44 4F 22 00 E0 28 BA 09 99 22 20 59 |ING DO"..(..." Y|
000020B0: 4F 55 20 57 41 4E 54 20 54 4F 20 4D 4F 44 49 46 |OU WANT TO MODIF|
000020C0: 59 20 3F 22 3A 81 49 B2 31 A4 46 4C 44 53 3A 99 |Y ?":.I.1.FLDS:.|
000020D0: 22 20 22 49 22 29 20 22 43 48 24 28 49 29 3A 82 |" "I") "CH$(I):.|
000020E0: 00 FE 28 C4 09 99 22 20 22 46 4C 44 53 AA 31 22 |..(..." "FLDS.1"|
000020F0: 29 20 12 D4 CF 20 D2 C5 D3 D4 C1 D2 D4 22 00 34 |) ... .......".4|
00002100: 29 CE 09 5A 24 B2 22 22 3A 85 22 11 20 C5 4E 54 |)..Z$."":.". .NT|
00002110: 45 52 20 41 20 4E 55 4D 42 45 52 20 22 3B 5A 24 |ER A NUMBER ";Z$|
00002120: 3A 8B 5A 24 B2 22 22 A7 99 22 91 91 91 22 3A 89 |:.Z$."".."...":.|
00002130: 32 35 31 30 00 53 29 D8 09 5A B2 C5 28 5A 24 29 |2510.S)..Z..(Z$)|
00002140: 3A 8B 5A B3 31 B0 5A B1 46 4C 44 53 AA 31 A7 32 |:.Z.1.Z.FLDS.1.2|
00002150: 34 37 30 00 6D 29 E2 09 8B 5A B2 46 4C 44 53 AA |470.m)...Z.FLDS.|
00002160: 31 A7 57 31 B2 57 32 3A 89 32 33 38 30 00 78 29 |1.W1.W2:.2380.x)|
00002170: EC 09 8D 31 30 36 38 30 00 A4 29 F6 09 99 22 11 |...10680..)...".|
00002180: 11 20 D4 48 45 20 4F 4C 44 20 22 3B 43 48 24 28 |. .HE OLD ";CH$(|
00002190: 5A 29 3B 22 20 49 53 20 22 3B 4F 4F 24 28 5A 29 |Z);" IS ";OO$(Z)|
000021A0: 22 20 2E 22 00 D7 29 00 0A 99 22 11 20 C4 4F 20 |" ."..)...". .O |
000021B0: 59 4F 55 20 57 41 4E 54 20 54 4F 20 43 48 41 4E |YOU WANT TO CHAN|
000021C0: 47 45 20 49 54 22 3B 3A 85 5A 24 3A 42 B2 32 37 |GE IT";:.Z$:B.27|
000021D0: 3A 8D 31 30 34 38 30 00 EF 29 0A 0A 8B 5A 24 B2 |:.10480..)...Z$.|
000021E0: 22 4E 22 B0 5A 24 B2 22 51 22 A7 32 34 37 30 00 |"N".Z$."Q".2470.|
000021F0: 19 2A 14 0A 4F 24 B2 22 22 3A 99 22 11 20 C5 4E |.*..O$."":.". .N|
00002200: 54 45 52 20 4E 45 57 20 22 3B 43 48 24 28 5A 29 |TER NEW ";CH$(Z)|
00002210: 3B A6 32 29 3B 3A 85 4F 24 00 2F 2A 1E 0A 8B 4F |;.2);:.O$./*...O|
00002220: 24 B2 22 22 A7 99 22 91 22 3A 89 32 35 38 30 00 |$.""..".":.2580.|
00002230: 4F 2A 28 0A 8B C3 28 4F 24 29 B1 43 48 28 5A 29 |O*(...(O$).CH(Z)|
00002240: A7 4F 24 B2 C8 28 4F 24 2C 43 48 28 5A 29 29 00 |.O$..(O$,CH(Z)).|
00002250: 5D 2A 32 0A 4F 4F 24 28 5A 29 B2 4F 24 00 9C 2A |]*2.OO$(Z).O$..*|
00002260: 3C 0A 5A 24 B2 22 22 3A 85 22 11 20 C1 4E 59 20 |<.Z$."":.". .NY |
00002270: 4D 4F 52 45 20 43 48 41 4E 47 45 53 20 54 4F 20 |MORE CHANGES TO |
00002280: 54 48 49 53 20 52 45 43 4F 52 44 20 22 3B 5A 24 |THIS RECORD ";Z$|
00002290: 3A 42 B2 33 35 3A 8D 31 30 34 38 30 00 B4 2A 46 |:B.35:.10480..*F|
000022A0: 0A 8B 5A 24 B2 22 59 22 B0 5A 24 B2 22 51 22 A7 |..Z$."Y".Z$."Q".|
000022B0: 32 34 37 30 00 C5 2A 50 0A 8D 31 30 33 38 30 3A |2470..*P..10380:|
000022C0: 89 32 33 38 30 00 EA 2A 5A 0A 8F 2A 2A 2A 2A 2A |.2380..*Z..*****|
000022D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000022E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 0F 2B 64 0A 8F |**********..+d..|
000022F0: 2A 20 54 48 49 53 20 53 45 43 54 49 4F 4E 20 57 |* THIS SECTION W|
00002300: 49 4C 4C 20 53 45 41 52 43 48 20 4F 55 52 2A 00 |ILL SEARCH OUR*.|
00002310: 34 2B 6E 0A 8F 2A 20 53 41 56 45 44 20 44 41 54 |4+n..* SAVED DAT|
00002320: 41 20 42 59 20 57 48 41 54 20 45 56 45 52 20 20 |A BY WHAT EVER |
00002330: 20 20 20 2A 00 59 2B 78 0A 8F 2A 20 43 41 54 41 | *.Y+x..* CATA|
00002340: 47 4F 52 59 20 43 4C 4F 57 4E 20 57 41 4E 54 53 |GORY CLOWN WANTS|
00002350: 2E 20 4F 4E 43 45 20 20 2A 00 7E 2B 82 0A 8F 2A |. ONCE *.~+...*|
00002360: 20 54 48 45 20 53 45 41 52 43 48 20 44 41 54 41 | THE SEARCH DATA|
00002370: 20 49 53 20 46 4F 55 4E 44 20 20 20 20 2A 00 A3 | IS FOUND *..|
00002380: 2B 8C 0A 8F 2A 20 43 4C 4F 57 4E 20 49 53 20 41 |+...* CLOWN IS A|
00002390: 53 4B 45 44 20 54 4F 20 56 45 52 49 46 59 20 20 |SKED TO VERIFY |
000023A0: 20 20 2A 00 C8 2B 96 0A 8F 2A 20 54 48 41 54 20 | *..+...* THAT |
000023B0: 54 48 49 53 20 49 53 20 57 48 41 54 20 48 45 20 |THIS IS WHAT HE |
000023C0: 57 41 4E 54 45 44 20 2A 00 ED 2B A0 0A 8F 2A 20 |WANTED *..+...* |
000023D0: 54 48 45 4E 20 49 53 20 54 4F 4C 44 20 57 48 41 |THEN IS TOLD WHA|
000023E0: 54 20 52 45 43 4F 52 44 20 20 20 20 2A 00 12 2C |T RECORD *..,|
000023F0: AA 0A 8F 2A 20 48 49 53 20 44 41 54 41 20 49 53 |...* HIS DATA IS|
00002400: 20 43 4F 4E 54 41 49 4E 45 44 20 49 4E 2E 20 20 | CONTAINED IN. |
00002410: 20 2A 00 37 2C B4 0A 8F 2A 2A 2A 2A 2A 2A 2A 2A | *.7,...********|
00002420: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002430: 2A 2A 2A 2A 2A 2A 2A 00 49 2C BE 0A 8D 31 30 37 |*******.I,...107|
00002440: 30 30 3A 8D 31 30 31 32 30 00 6B 2C C8 0A 99 22 |00:.10120.k,..."|
00002450: 11 20 D0 4C 45 41 53 45 20 45 4E 54 45 52 20 54 |. .LEASE ENTER T|
00002460: 48 45 20 43 41 54 41 47 4F 52 59 00 8B 2C D2 0A |HE CATAGORY..,..|
00002470: 99 22 20 57 4F 55 4C 44 20 4C 49 4B 45 20 54 4F |." WOULD LIKE TO|
00002480: 20 53 45 41 52 43 48 20 3B 11 22 00 AB 2C DC 0A | SEARCH ;."..,..|
00002490: 81 49 B2 31 A4 46 4C 44 53 3A 99 22 20 22 49 22 |.I.1.FLDS:." "I"|
000024A0: 29 20 22 43 48 24 28 49 29 3A 82 00 C9 2C E6 0A |) "CH$(I):...,..|
000024B0: 99 22 20 22 46 4C 44 53 AA 31 22 29 20 12 D4 CF |." "FLDS.1") ...|
000024C0: 20 D2 C5 D3 D4 C1 D2 D4 22 00 E9 2C F0 0A 99 22 | ......."..,..."|
000024D0: 20 22 46 4C 44 53 AA 32 22 29 20 12 C9 CE D3 D4 | "FLDS.2") .....|
000024E0: D2 D5 C3 D4 C9 CF CE D3 22 00 1F 2D FA 0A 5A 24 |........"..-..Z$|
000024F0: B2 22 22 3A 85 22 11 20 C5 4E 54 45 52 20 41 20 |."":.". .NTER A |
00002500: 4E 55 4D 42 45 52 20 22 3B 5A 24 3A 8B 5A 24 B2 |NUMBER ";Z$:.Z$.|
00002510: 22 22 A7 99 22 91 91 91 22 3A 89 32 38 31 30 00 |"".."...":.2810.|
00002520: 46 2D 04 0B 5A B2 C5 28 5A 24 29 3A 8B 5A B3 31 |F-..Z..(Z$):.Z.1|
00002530: B0 5A B1 46 4C 44 53 AA 32 A7 99 22 91 91 91 22 |.Z.FLDS.2.."..."|
00002540: 3A 89 32 38 31 30 00 59 2D 0E 0B 8B 5A B2 46 4C |:.2810.Y-...Z.FL|
00002550: 44 53 AA 31 A7 31 33 36 30 00 6C 2D 18 0B 8B 5A |DS.1.1360.l-...Z|
00002560: B2 46 4C 44 53 AA 32 A7 33 32 31 30 00 7D 2D 22 |.FLDS.2.3210.}-"|
00002570: 0B 46 58 31 B2 30 3A 8D 31 30 37 30 30 00 9E 2D |.FX1.0:.10700..-|
00002580: 2C 0B 99 22 11 20 D0 4C 45 41 53 45 20 45 4E 54 |,..". .LEASE ENT|
00002590: 45 52 20 54 48 45 20 22 43 48 24 28 5A 29 00 BE |ER THE "CH$(Z)..|
000025A0: 2D 36 0B 99 22 20 59 4F 55 20 57 41 4E 54 45 44 |-6.." YOU WANTED|
000025B0: 20 54 4F 20 53 45 41 52 43 48 20 54 48 45 00 D9 | TO SEARCH THE..|
000025C0: 2D 40 0B 85 22 20 52 45 43 4F 52 44 53 20 46 4F |-@.." RECORDS FO|
000025D0: 52 20 22 3B 53 52 43 48 24 00 E8 2D 4A 0B 52 49 |R ";SRCH$..-J.RI|
000025E0: 47 24 B2 53 52 43 48 24 00 02 2E 54 0B 8B C8 28 |G$.SRCH$...T...(|
000025F0: 53 52 43 48 24 2C 31 29 B3 B1 22 2A 22 A7 32 39 |SRCH$,1).."*".29|
00002600: 33 30 00 26 2E 5E 0B 4C 4E B2 C3 28 53 52 43 48 |30.&.^.LN..(SRCH|
00002610: 24 29 AB 31 3A 53 52 43 48 24 B2 C9 28 53 52 43 |$).1:SRCH$..(SRC|
00002620: 48 24 2C 4C 4E 29 00 30 2E 68 0B 46 58 31 B2 31 |H$,LN).0.h.FX1.1|
00002630: 00 4A 2E 72 0B 8B C9 28 53 52 43 48 24 2C 31 29 |.J.r...(SRCH$,1)|
00002640: B3 B1 22 2A 22 A7 32 39 36 30 00 6E 2E 7C 0B 4C |.."*".2960.n.|.L|
00002650: 4E B2 C3 28 53 52 43 48 24 29 AB 31 3A 53 52 43 |N..(SRCH$).1:SRC|
00002660: 48 24 B2 C8 28 53 52 43 48 24 2C 4C 4E 29 00 78 |H$..(SRCH$,LN).x|
00002670: 2E 86 0B 46 58 31 B2 32 00 B5 2E 90 0B 8B C3 28 |...FX1.2.......(|
00002680: 53 52 43 48 24 29 B1 43 48 28 5A 29 A7 8D 31 30 |SRCH$).CH(Z)..10|
00002690: 37 30 30 3A 99 22 20 12 D3 C5 C1 D2 C3 C8 A0 D3 |700:." .........|
000026A0: D4 D2 C9 CE C7 A0 D4 CF CF A0 CC CF CE C7 22 3A |..............":|
000026B0: 89 35 30 38 30 00 CD 2E 9A 0B 46 49 B2 31 3A 8B |.5080.....FI.1:.|
000026C0: 5A B2 31 A7 58 B2 31 3A 89 33 30 30 30 00 FD 2E |Z.1.X.1:.3000...|
000026D0: A4 0B 53 58 B2 31 3A 81 49 B2 31 A4 5A AB 31 3A |..SX.1:.I.1.Z.1:|
000026E0: 53 58 B2 53 58 AA 43 48 28 49 29 AA 31 3A 8B 49 |SX.SX.CH(I).1:.I|
000026F0: B2 31 A7 53 58 B2 43 48 28 31 29 AA 32 00 04 2F |.1.SX.CH(1).2../|
00002700: AE 0B 82 49 00 23 2F B8 0B 81 49 B2 46 49 A4 4C |...I.#/...I.FI.L|
00002710: 4F 3A 52 31 B2 4E 25 28 49 29 AA 31 3A 8D 31 30 |O:R1.N%(I).1:.10|
00002720: 30 38 30 00 3C 2F C2 0B 99 22 11 20 D2 45 43 4F |080.</...". .ECO|
00002730: 52 44 20 23 12 22 49 22 92 91 91 22 00 62 2F CC |RD #."I"...".b/.|
00002740: 0B 58 B2 31 3A 4F 24 B2 22 22 3A 8D 31 30 32 33 |.X.1:O$."":.1023|
00002750: 30 3A 8B 4F 24 B2 22 45 4D 50 54 59 22 A7 33 31 |0:.O$."EMPTY".31|
00002760: 30 30 00 78 2F D6 0B 58 B2 53 58 3A 4F 24 B2 22 |00.x/..X.SX:O$."|
00002770: 22 3A 8D 31 30 32 33 30 00 8B 2F E0 0B 8B 4F 24 |":.10230../...O$|
00002780: B2 53 52 43 48 24 A7 33 31 34 30 00 9B 2F EA 0B |.SRCH$.3140../..|
00002790: 8B 46 58 31 B2 30 A7 33 31 30 30 00 CB 2F F4 0B |.FX1.0.3100../..|
000027A0: 8B 46 58 31 B2 32 A7 33 30 39 30 3A AC AC 8F 20 |.FX1.2.3090:... |
000027B0: 43 48 45 43 4B 20 46 4F 52 20 57 49 4C 44 20 43 |CHECK FOR WILD C|
000027C0: 41 52 44 20 4D 41 54 43 48 2A 2A 00 E4 2F FE 0B |ARD MATCH**../..|
000027D0: 8B 53 52 43 48 24 B2 C9 28 4F 24 2C 4C 4E 29 A7 |.SRCH$..(O$,LN).|
000027E0: 33 31 34 30 00 EE 2F 08 0C 89 33 31 30 30 00 07 |3140../...3100..|
000027F0: 30 12 0C 8B 53 52 43 48 24 B2 C8 28 4F 24 2C 4C |0...SRCH$..(O$,L|
00002800: 4E 29 A7 33 31 34 30 00 2E 30 1C 0C 82 49 3A 99 |N).3140..0...I:.|
00002810: 22 11 20 12 22 52 49 47 24 22 20 43 41 4E 20 4E |". ."RIG$" CAN N|
00002820: 4F 54 20 42 45 20 46 4F 55 4E 44 92 11 22 00 5F |OT BE FOUND.."._|
00002830: 30 26 0C 5A 24 B2 22 22 3A 85 22 20 11 D7 41 4E |0&.Z$."":." ..AN|
00002840: 54 20 54 4F 20 54 52 59 20 41 47 41 49 4E 20 22 |T TO TRY AGAIN "|
00002850: 3B 5A 24 3A 42 B2 32 31 3A 8D 31 30 34 38 30 00 |;Z$:B.21:.10480.|
00002860: 70 30 30 0C 8B 5A 24 B2 22 59 22 A7 32 37 35 30 |p00..Z$."Y".2750|
00002870: 00 7A 30 3A 0C 89 31 33 36 30 00 AD 30 44 0C 5A |.z0:..1360..0D.Z|
00002880: 49 B2 49 3A 8D 31 30 37 30 30 3A 99 22 11 20 12 |I.I:.10700:.". .|
00002890: 22 4F 24 22 92 20 48 41 53 20 42 45 45 4E 20 46 |"O$". HAS BEEN F|
000028A0: 4F 55 4E 44 2E 22 3A 8D 31 30 33 31 30 00 C6 30 |OUND.":.10310..0|
000028B0: 4E 0C 99 22 11 20 D2 45 43 4F 52 44 20 23 12 22 |N..". .ECORD #."|
000028C0: 5A 49 22 92 11 22 00 F6 30 58 0C 81 4A B2 31 A4 |ZI".."..0X..J.1.|
000028D0: 46 4C 44 53 3A 99 22 20 22 43 48 24 28 4A 29 A3 |FLDS:." "CH$(J).|
000028E0: 50 4F 25 AA 33 29 4F 4F 24 28 4A 29 3A 82 4A 3A |PO%.3)OO$(J):.J:|
000028F0: 8D 31 30 36 34 30 00 21 31 62 0C 8D 31 30 37 30 |.10640.!1b..1070|
00002900: 30 3A 99 22 11 20 C4 4F 20 59 4F 55 20 57 41 4E |0:.". .O YOU WAN|
00002910: 54 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 54 48 |T TO CONTINUE TH|
00002920: 45 00 55 31 6C 0C 99 22 20 53 45 41 52 43 48 20 |E.U1l.." SEARCH |
00002930: 46 4F 52 20 22 52 49 47 24 22 20 22 3B 3A 85 5A |FOR "RIG$" ";:.Z|
00002940: 24 3A 42 B2 31 35 AA C3 28 52 49 47 24 29 3A 8D |$:B.15..(RIG$):.|
00002950: 31 30 34 38 30 00 6F 31 76 0C 8B 5A 24 B2 22 59 |10480.o1v..Z$."Y|
00002960: 22 A7 46 49 B2 5A 49 AA 31 3A 89 32 39 38 30 00 |".FI.ZI.1:.2980.|
00002970: 79 31 80 0C 89 32 37 35 30 00 84 31 8A 0C 8D 31 |y1...2750..1...1|
00002980: 30 37 30 30 00 A2 31 94 0C 99 22 11 20 D3 45 41 |0700..1...". .EA|
00002990: 52 43 48 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |RCH INSTRUCTIONS|
000029A0: 11 22 00 CE 31 9E 0C 99 22 20 31 29 20 D9 4F 55 |."..1..." 1) .OU|
000029B0: 20 43 41 4E 20 53 45 41 52 43 48 20 46 4F 52 20 | CAN SEARCH FOR |
000029C0: 54 48 45 20 53 54 52 49 4E 47 20 59 4F 55 00 FA |THE STRING YOU..|
000029D0: 31 A8 0C 99 22 20 20 20 20 41 52 45 20 4C 4F 4F |1..." ARE LOO|
000029E0: 4B 49 4E 47 20 42 59 20 45 4E 54 45 52 49 4E 47 |KING BY ENTERING|
000029F0: 20 54 48 45 20 45 58 41 43 54 00 21 32 B2 0C 99 | THE EXACT.!2...|
00002A00: 22 20 20 20 20 53 50 45 4C 4C 49 4E 47 20 4F 46 |" SPELLING OF|
00002A10: 20 54 48 45 20 53 54 52 49 4E 47 20 41 53 20 49 | THE STRING AS I|
00002A20: 54 00 44 32 BC 0C 99 22 20 20 20 20 57 41 53 20 |T.D2..." WAS |
00002A30: 53 54 4F 52 45 44 20 4F 4E 20 54 48 45 20 44 49 |STORED ON THE DI|
00002A40: 53 4B 2E 11 00 6E 32 C6 0C 99 22 20 32 29 20 D9 |SK...n2..." 2) .|
00002A50: 4F 55 20 43 41 4E 20 53 45 41 52 43 48 20 46 4F |OU CAN SEARCH FO|
00002A60: 52 20 41 20 50 41 52 54 49 43 55 4C 41 52 00 9E |R A PARTICULAR..|
00002A70: 32 D0 0C 99 22 20 20 20 20 53 54 52 49 4E 47 20 |2..." STRING |
00002A80: 42 59 20 55 53 49 4E 47 20 57 49 4C 44 20 43 41 |BY USING WILD CA|
00002A90: 52 44 20 4D 41 54 43 48 49 4E 47 2E 11 22 00 CB |RD MATCHING.."..|
00002AA0: 32 DA 0C 99 22 20 20 20 20 20 20 20 20 49 29 20 |2..." I) |
00002AB0: D7 48 45 4E 20 53 45 41 52 43 48 49 4E 47 20 46 |.HEN SEARCHING F|
00002AC0: 4F 52 20 41 20 53 54 52 49 4E 47 00 F8 32 E4 0C |OR A STRING..2..|
00002AD0: 99 22 20 20 20 20 54 48 41 54 20 53 54 41 52 54 |." THAT START|
00002AE0: 53 20 57 49 54 48 20 54 48 45 20 54 48 52 45 45 |S WITH THE THREE|
00002AF0: 20 4C 45 54 54 45 52 53 00 23 33 EE 0C 99 22 20 | LETTERS.#3..." |
00002B00: 20 20 20 43 4F 52 20 59 4F 55 20 57 4F 55 4C 44 | COR YOU WOULD|
00002B10: 20 45 4E 54 45 52 20 43 4F 52 2A 20 54 4F 20 46 | ENTER COR* TO F|
00002B20: 49 4E 44 00 50 33 F8 0C 99 22 20 20 20 20 41 4E |IND.P3..." AN|
00002B30: 59 20 53 54 52 49 4E 47 20 54 48 41 54 20 53 54 |Y STRING THAT ST|
00002B40: 41 52 54 45 44 20 57 49 54 48 20 54 48 4F 53 45 |ARTED WITH THOSE|
00002B50: 00 6A 33 02 0D 99 22 20 20 20 20 54 48 52 45 45 |.j3..." THREE|
00002B60: 20 4C 45 54 54 45 52 53 2E 11 00 97 33 0C 0D 99 | LETTERS....3...|
00002B70: 22 20 20 20 20 20 20 20 20 49 49 29 20 C1 53 20 |" II) .S |
00002B80: 57 45 4C 4C 20 57 48 45 4E 20 53 45 41 52 43 48 |WELL WHEN SEARCH|
00002B90: 49 4E 47 20 46 4F 52 00 C5 33 16 0D 99 22 20 20 |ING FOR..3..." |
00002BA0: 20 20 41 20 53 54 52 49 4E 47 20 45 4E 44 49 4E | A STRING ENDIN|
00002BB0: 47 20 57 49 54 48 20 41 52 49 4F 20 59 4F 55 20 |G WITH ARIO YOU |
00002BC0: 57 4F 55 4C 44 00 DF 33 20 0D 99 22 20 20 20 20 |WOULD..3 .." |
00002BD0: 45 4E 54 45 52 20 2A 41 52 49 4F 20 2E 11 11 00 |ENTER *ARIO ....|
00002BE0: 0D 34 2A 0D 99 22 20 20 20 20 3C 3C 3C 20 D0 D2 |.4*.." <<< ..|
00002BF0: C5 D3 D3 20 C1 CE D9 20 CB C5 D9 A0 D4 CF A0 C3 |... ... ........|
00002C00: CF CE D4 C9 CE D5 C5 20 3E 3E 3E 22 3B 00 21 34 |....... >>>";.!4|
00002C10: 34 0D A1 41 24 3A 8B 41 24 B2 22 22 A7 33 33 38 |4..A$:.A$."".338|
00002C20: 30 00 2B 34 3E 0D 89 32 37 35 30 00 50 34 48 0D |0.+4>..2750.P4H.|
00002C30: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00002C40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002C50: 00 75 34 52 0D 8F 2A 20 54 48 49 53 20 53 45 43 |.u4R..* THIS SEC|
00002C60: 54 49 4F 4E 20 57 49 4C 4C 20 53 4F 52 54 20 4F |TION WILL SORT O|
00002C70: 55 52 20 20 2A 00 9A 34 5C 0D 8F 2A 20 53 41 56 |UR *..4\..* SAV|
00002C80: 45 44 20 44 41 54 41 20 42 59 20 57 48 41 54 20 |ED DATA BY WHAT |
00002C90: 45 56 45 52 20 20 20 20 20 2A 00 BF 34 66 0D 8F |EVER *..4f..|
00002CA0: 2A 20 43 41 54 41 47 4F 52 59 20 43 4C 4F 57 4E |* CATAGORY CLOWN|
00002CB0: 20 57 41 4E 54 53 2E 20 54 48 49 53 20 20 2A 00 | WANTS. THIS *.|
00002CC0: E4 34 70 0D 8F 2A 20 53 4F 52 54 20 52 4F 55 54 |.4p..* SORT ROUT|
00002CD0: 49 4E 45 20 55 53 45 53 20 41 20 4D 2F 43 20 4C |INE USES A M/C L|
00002CE0: 41 4E 47 2A 00 09 35 7A 0D 8F 2A 20 52 4F 55 54 |ANG*..5z..* ROUT|
00002CF0: 49 4E 45 20 43 41 4C 4C 45 44 20 55 4C 54 52 41 |INE CALLED ULTRA|
00002D00: 53 4F 52 54 20 20 20 20 2A 00 2E 35 84 0D 8F 2A |SORT *..5...*|
00002D10: 20 46 52 4F 4D 20 43 4F 4D 50 55 54 45 21 20 53 | FROM COMPUTE! S|
00002D20: 45 50 54 20 31 39 38 33 2E 20 20 20 20 2A 00 53 |EPT 1983. *.S|
00002D30: 35 8E 0D 8F 2A 20 54 48 41 54 53 20 57 48 59 20 |5...* THATS WHY |
00002D40: 52 45 4C 2E 45 58 50 45 52 2F 42 4F 4F 54 20 49 |REL.EXPER/BOOT I|
00002D50: 53 20 2A 00 78 35 98 0D 8F 2A 20 52 55 4E 20 54 |S *.x5...* RUN T|
00002D60: 4F 20 4C 4F 41 44 20 54 48 49 53 20 50 52 4F 47 |O LOAD THIS PROG|
00002D70: 2E 20 4A 2E 52 2E 4A 2A 00 9D 35 A2 0D 8F 2A 2A |. J.R.J*..5...**|
00002D80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002D90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 AF 35 |*************..5|
00002DA0: AC 0D 8D 31 30 37 32 30 3A 8D 31 30 31 32 30 00 |...10720:.10120.|
00002DB0: DA 35 B6 0D 99 22 11 20 D0 4C 45 41 53 45 20 4D |.5...". .LEASE M|
00002DC0: 41 4B 45 20 41 20 53 45 4C 45 43 54 49 4F 4E 20 |AKE A SELECTION |
00002DD0: 41 53 20 54 4F 20 57 48 41 54 00 07 36 C0 0D 99 |AS TO WHAT..6...|
00002DE0: 22 20 43 41 54 41 47 4F 52 59 20 59 4F 55 20 57 |" CATAGORY YOU W|
00002DF0: 4F 55 4C 44 20 4C 49 4B 45 20 54 4F 20 53 4F 52 |OULD LIKE TO SOR|
00002E00: 54 20 42 59 3B 11 22 00 27 36 CA 0D 81 49 B2 31 |T BY;.".'6...I.1|
00002E10: A4 46 4C 44 53 3A 99 22 20 22 49 22 29 20 22 43 |.FLDS:." "I") "C|
00002E20: 48 24 28 49 29 3A 82 00 45 36 D4 0D 99 22 20 22 |H$(I):..E6..." "|
00002E30: 46 4C 44 53 AA 31 22 29 20 12 D4 CF 20 D2 C5 D3 |FLDS.1") ... ...|
00002E40: D4 C1 D2 D4 22 00 7B 36 DE 0D 5A 24 B2 22 22 3A |....".{6..Z$."":|
00002E50: 85 22 11 20 C5 4E 54 45 52 20 41 20 4E 55 4D 42 |.". .NTER A NUMB|
00002E60: 45 52 20 22 3B 5A 24 3A 8B 5A 24 B2 22 22 A7 99 |ER ";Z$:.Z$.""..|
00002E70: 22 91 91 91 22 3A 89 33 35 35 30 00 A2 36 E8 0D |"...":.3550..6..|
00002E80: 5A B2 C5 28 5A 24 29 3A 8B 5A B3 31 B0 5A B1 46 |Z..(Z$):.Z.1.Z.F|
00002E90: 4C 44 53 AA 31 A7 99 22 91 91 91 22 3A 89 33 35 |LDS.1.."...":.35|
00002EA0: 35 30 00 B5 36 F2 0D 8B 5A B2 46 4C 44 53 AA 31 |50..6...Z.FLDS.1|
00002EB0: A7 31 33 36 30 00 C0 36 FC 0D 8D 31 30 37 32 30 |.1360..6...10720|
00002EC0: 00 EA 36 06 0E 99 22 11 20 D3 4F 52 54 49 4E 47 |..6...". .ORTING|
00002ED0: 20 52 45 43 4F 52 44 53 20 42 59 20 22 43 48 24 | RECORDS BY "CH$|
00002EE0: 28 5A 29 22 20 2E 2E 2E 2E 11 00 FD 36 10 0E 8B |(Z)" .......6...|
00002EF0: 5A B2 31 A7 58 B2 31 3A 89 33 36 33 30 00 2D 37 |Z.1.X.1:.3630.-7|
00002F00: 1A 0E 53 58 B2 31 3A 81 49 B2 31 A4 5A AB 31 3A |..SX.1:.I.1.Z.1:|
00002F10: 53 58 B2 53 58 AA 43 48 28 49 29 AA 31 3A 8B 49 |SX.SX.CH(I).1:.I|
00002F20: B2 31 A7 53 58 B2 43 48 28 31 29 AA 32 00 34 37 |.1.SX.CH(1).2.47|
00002F30: 24 0E 82 49 00 57 37 2E 0E 58 58 B2 30 3A 81 49 |$..I.W7..XX.0:.I|
00002F40: B2 31 A4 4C 4F 3A 52 31 B2 4E 25 28 49 29 AA 31 |.1.LO:R1.N%(I).1|
00002F50: 3A 8D 31 30 30 38 30 00 7D 37 38 0E 58 B2 31 3A |:.10080.}78.X.1:|
00002F60: 4F 24 B2 22 22 3A 8D 31 30 32 33 30 3A 8B 4F 24 |O$."":.10230:.O$|
00002F70: B2 22 45 4D 50 54 59 22 A7 33 36 38 30 00 9B 37 |."EMPTY".3680..7|
00002F80: 42 0E 58 B2 53 58 3A 4F 24 B2 22 22 3A 8D 31 30 |B.X.SX:O$."":.10|
00002F90: 32 33 30 3A 58 58 B2 58 58 AA 31 00 B3 37 4C 0E |230:XX.XX.1..7L.|
00002FA0: 43 31 24 B2 C7 28 52 31 29 3A 43 32 24 B2 C7 28 |C1$..(R1):C2$..(|
00002FB0: 52 32 29 00 CA 37 56 0E 41 41 24 28 58 58 29 B2 |R2)..7V.AA$(XX).|
00002FC0: 4F 24 AA 43 31 24 AA 43 32 24 00 D1 37 60 0E 82 |O$.C1$.C2$..7`..|
00002FD0: 49 00 07 38 6A 0E 8B 58 58 B2 30 A7 99 22 11 20 |I..8j..XX.0..". |
00002FE0: 12 D4 48 45 52 45 20 41 52 45 20 4E 4F 20 52 45 |..HERE ARE NO RE|
00002FF0: 43 4F 52 44 53 20 54 4F 20 53 4F 52 54 2E 92 11 |CORDS TO SORT...|
00003000: 22 3A 89 34 30 31 30 00 22 38 74 0E 8F 20 2A 2A |":.4010."8t.. **|
00003010: 20 43 41 4C 4C 20 55 4C 54 52 41 53 4F 52 54 20 | CALL ULTRASORT |
00003020: 2A 2A 00 37 38 7E 0E 9E 34 39 31 35 32 2C 58 58 |**.78~..49152,XX|
00003030: 2C 41 41 24 28 31 29 00 4F 38 88 0E 99 22 11 20 |,AA$(1).O8...". |
00003040: D2 C5 C3 CF D2 C4 D3 A0 D3 CF D2 D4 C5 C4 22 00 |..............".|
00003050: 70 38 92 0E 99 22 11 20 D2 45 41 52 52 41 4E 47 |p8...". .EARRANG|
00003060: 49 4E 47 20 52 45 43 4F 52 44 53 20 2E 2E 2E 22 |ING RECORDS ..."|
00003070: 00 7C 38 9C 0E 81 44 B2 31 A4 58 58 00 9C 38 A6 |.|8...D.1.XX..8.|
00003080: 0E 8F 20 53 54 52 49 50 20 4F 46 46 20 4F 4C 44 |.. STRIP OFF OLD|
00003090: 20 50 4F 53 27 4E 20 49 4E 46 4F 2E 00 D3 38 B0 | POS'N INFO...8.|
000030A0: 0E 43 32 24 B2 C9 28 41 41 24 28 44 29 2C 31 29 |.C2$..(AA$(D),1)|
000030B0: 3A 4C 4E B2 C3 28 41 41 24 28 44 29 29 AB 31 3A |:LN..(AA$(D)).1:|
000030C0: 41 41 24 28 44 29 B2 C8 28 41 41 24 28 44 29 2C |AA$(D)..(AA$(D),|
000030D0: 4C 4E 29 00 0A 39 BA 0E 43 31 24 B2 C9 28 41 41 |LN)..9..C1$..(AA|
000030E0: 24 28 44 29 2C 31 29 3A 4C 4E B2 C3 28 41 41 24 |$(D),1):LN..(AA$|
000030F0: 28 44 29 29 AB 31 3A 41 41 24 28 44 29 B2 C8 28 |(D)).1:AA$(D)..(|
00003100: 41 41 24 28 44 29 2C 4C 4E 29 00 22 39 C4 0E 47 |AA$(D),LN)."9..G|
00003110: B2 C6 28 43 32 24 29 AC 32 35 36 AA C6 28 43 31 |..(C2$).256..(C1|
00003120: 24 29 00 33 39 CE 0E 4E 25 28 44 29 B2 47 AB 31 |$).39..N%(D).G.1|
00003130: 3A 82 44 00 59 39 D8 0E 5A B2 30 3A 81 54 B2 31 |:.D.Y9..Z.0:.T.1|
00003140: A4 4C 4F 3A 81 50 B2 31 A4 58 58 3A 8B 54 B2 4E |.LO:.P.1.XX:.T.N|
00003150: 25 28 50 29 A7 33 38 32 30 00 71 39 E2 0E 82 50 |%(P).3820.q9...P|
00003160: 3A 5A B2 5A AA 31 3A 4E 25 28 58 58 AA 5A 29 B2 |:Z.Z.1:N%(XX.Z).|
00003170: 54 00 78 39 EC 0E 82 54 00 99 39 F6 0E 98 31 2C |T.x9...T..9...1,|
00003180: 22 53 3A 20 22 AA 4D 4E 24 AA 22 2F 53 4F 52 54 |"S: ".MN$."/SORT|
00003190: 20 4B 45 59 2C 53 2C 20 22 00 C3 39 00 0F 9F 36 | KEY,S, "..9...6|
000031A0: 2C 38 2C 37 2C 22 20 22 AA 4D 4E 24 AA 22 2F 53 |,8,7," ".MN$."/S|
000031B0: 4F 52 54 20 4B 45 59 2C 53 2C 57 22 3A 8D 31 30 |ORT KEY,S,W":.10|
000031C0: 30 31 30 00 E5 39 0A 0F 81 54 B2 31 A4 4C 4F 3A |010..9...T.1.LO:|
000031D0: 98 36 2C 4E 25 28 54 29 3B 52 24 3B 3A 8D 31 30 |.6,N%(T);R$;:.10|
000031E0: 30 31 30 3A 82 00 05 3A 14 0F 99 22 11 11 20 D3 |010:...:...".. .|
000031F0: CF D2 D4 A0 CB C5 D9 A0 D2 C5 D7 D2 C9 D4 D4 C5 |................|
00003200: CE 11 11 11 22 00 13 3A 1E 0F A0 36 3A 8D 31 30 |...."..:...6:.10|
00003210: 36 34 30 00 1D 3A 28 0F 89 31 33 36 30 00 41 3A |640..:(..1360.A:|
00003220: 32 0F 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |2.. ************|
00003230: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003240: 2A 00 65 3A 3C 0F 8F 20 2A 2A 20 54 48 49 53 20 |*.e:<.. ** THIS |
00003250: 53 45 43 54 49 4F 4E 20 45 52 41 53 45 53 20 41 |SECTION ERASES A|
00003260: 20 20 20 2A 2A 00 89 3A 46 0F 8F 20 2A 2A 20 52 | **..:F.. ** R|
00003270: 45 43 4F 52 44 20 46 52 4F 4D 20 54 48 45 20 44 |ECORD FROM THE D|
00003280: 49 53 4B 2E 20 20 20 2A 2A 00 AD 3A 50 0F 8F 20 |ISK. **..:P.. |
00003290: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000032A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C6 3A |*************..:|
000032B0: 5A 0F 8D 31 30 37 34 30 3A 8D 31 30 31 32 30 3A |Z..10740:.10120:|
000032C0: 8D 31 30 31 36 30 00 FB 3A 64 0F 57 32 B2 57 31 |.10160..:d.W2.W1|
000032D0: 3A 57 31 24 B2 22 30 22 3A 85 22 20 44 45 4C 45 |:W1$."0":." DELE|
000032E0: 54 45 20 28 30 3D 51 55 49 54 29 20 22 3B 57 31 |TE (0=QUIT) ";W1|
000032F0: 24 3A 57 31 B2 C5 28 57 31 24 29 00 16 3B 6E 0F |$:W1..(W1$)..;n.|
00003300: 49 B2 30 3A 8D 31 30 35 36 30 3A 8B 49 B3 B1 39 |I.0:.10560:.I..9|
00003310: 39 A7 33 39 37 30 00 46 3B 78 0F 49 B2 30 3A 8D |9.3970.F;x.I.0:.|
00003320: 31 30 37 34 30 3A 8D 31 30 35 38 30 3A 57 31 B2 |10740:.10580:W1.|
00003330: 57 32 3A 8D 31 30 31 32 30 3A 8D 31 30 31 36 30 |W2:.10120:.10160|
00003340: 3A 89 33 39 34 30 00 5D 3B 82 0F 8B 57 31 B3 B2 |:.3940.];...W1..|
00003350: 30 A7 57 31 B2 57 32 3A 89 31 33 36 30 00 74 3B |0.W1.W2:.1360.t;|
00003360: 8C 0F 52 31 B2 4E 25 28 57 31 29 AA 31 3A 8D 31 |..R1.N%(W1).1:.1|
00003370: 30 30 38 30 00 95 3B 96 0F 58 B2 31 3A 8D 31 30 |0080..;..X.1:.10|
00003380: 32 33 30 3A 8B 4F 24 B3 B1 22 45 4D 50 54 59 22 |230:.O$.."EMPTY"|
00003390: A7 34 30 32 30 00 C5 3B A0 0F 8D 31 30 37 34 30 |.4020..;...10740|
000033A0: 3A 99 22 11 20 D2 45 43 4F 52 44 20 23 20 12 22 |:.". .ECORD # ."|
000033B0: 57 31 22 92 20 49 53 20 12 22 4F 24 22 92 22 3A |W1". IS ."O$".":|
000033C0: 57 31 B2 57 32 00 DD 3B AA 0F 8D 31 30 31 32 30 |W1.W2..;...10120|
000033D0: 3A 8D 31 30 31 36 30 3A 89 33 39 34 30 00 04 3C |:.10160:.3940..<|
000033E0: B4 0F 8D 31 30 37 34 30 3A 99 22 11 20 C4 45 4C |...10740:.". .EL|
000033F0: 45 54 45 20 52 45 43 4F 52 44 20 23 12 22 57 31 |ETE RECORD #."W1|
00003400: 22 92 11 22 00 3D 3C BE 0F 5A 24 B2 22 22 3A 85 |"..".=<..Z$."":.|
00003410: 22 11 20 C1 52 45 20 59 4F 55 20 53 55 52 45 20 |". .RE YOU SURE |
00003420: 22 3B 5A 24 3A 42 B2 31 36 3A 8D 31 30 34 38 30 |";Z$:B.16:.10480|
00003430: 3A 8B 5A 24 B2 22 4E 22 A7 33 39 33 30 00 4E 3C |:.Z$."N".3930.N<|
00003440: C8 0F 8B 5A 24 B2 22 51 22 A7 31 33 36 30 00 80 |...Z$."Q".1360..|
00003450: 3C D2 0F 58 B2 31 3A 99 22 11 20 CF 4B 41 59 20 |<..X.1:.". .KAY |
00003460: 54 48 45 4E 2E 2E 2E 22 3A 4F 24 B2 22 45 4D 50 |THEN...":O$."EMP|
00003470: 54 59 22 3A 8D 31 30 32 37 30 3A 89 33 39 33 30 |TY":.10270:.3930|
00003480: 00 A4 3C DC 0F 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..<...**********|
00003490: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000034A0: 2A 2A 2A 2A 00 C8 3C E6 0F 8F 2A 20 54 48 45 20 |****..<...* THE |
000034B0: 53 45 43 54 49 4F 4E 20 43 4F 50 49 45 53 20 4F |SECTION COPIES O|
000034C0: 4E 45 20 20 20 20 20 2A 00 EC 3C F0 0F 8F 2A 20 |NE *..<...* |
000034D0: 4F 4E 20 54 48 45 20 50 52 49 4E 54 45 52 20 2E |ON THE PRINTER .|
000034E0: 20 4A 41 4D 20 20 20 20 20 20 20 2A 00 10 3D FA | JAM *..=.|
000034F0: 0F 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
00003500: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003510: 00 29 3D 04 10 8D 31 30 37 36 30 3A 8D 31 30 31 |.)=...10760:.101|
00003520: 32 30 3A 8D 31 30 31 36 30 00 61 3D 0E 10 57 32 |20:.10160.a=..W2|
00003530: B2 57 31 3A 57 31 24 B2 22 30 22 3A 85 22 20 43 |.W1:W1$."0":." C|
00003540: 4F 50 59 20 46 52 4F 4D 20 28 30 3D 51 55 49 54 |OPY FROM (0=QUIT|
00003550: 29 20 22 3B 57 31 24 3A 57 31 B2 C5 28 57 31 24 |) ";W1$:W1..(W1$|
00003560: 29 00 7C 3D 18 10 49 B2 30 3A 8D 31 30 35 36 30 |).|=..I.0:.10560|
00003570: 3A 8B 49 B3 B1 39 39 A7 34 31 34 30 00 AC 3D 22 |:.I..99.4140..="|
00003580: 10 49 B2 30 3A 8D 31 30 37 36 30 3A 8D 31 30 35 |.I.0:.10760:.105|
00003590: 38 30 3A 57 31 B2 57 32 3A 8D 31 30 31 32 30 3A |80:W1.W2:.10120:|
000035A0: 8D 31 30 31 36 30 3A 89 34 31 31 30 00 C3 3D 2C |.10160:.4110..=,|
000035B0: 10 8B 57 31 B3 B2 30 A7 57 31 B2 57 32 3A 89 31 |..W1..0.W1.W2:.1|
000035C0: 33 36 30 00 E6 3D 36 10 52 31 B2 4E 25 28 57 31 |360..=6.R1.N%(W1|
000035D0: 29 AA 31 3A 8D 31 30 30 38 30 3A 53 31 B2 52 31 |).1:.10080:S1.R1|
000035E0: 3A 53 32 B2 52 32 00 07 3E 40 10 58 B2 31 3A 8D |:S2.R2..>@.X.1:.|
000035F0: 31 30 32 33 30 3A 8B 4F 24 B3 B1 22 45 4D 50 54 |10230:.O$.."EMPT|
00003600: 59 22 A7 34 31 39 30 00 37 3E 4A 10 8D 31 30 37 |Y".4190.7>J..107|
00003610: 36 30 3A 99 22 11 20 D2 45 43 4F 52 44 20 23 20 |60:.". .ECORD # |
00003620: 12 22 57 31 22 92 20 49 53 20 12 22 4F 24 22 92 |."W1". IS ."O$".|
00003630: 22 3A 57 31 B2 57 32 00 4F 3E 54 10 8D 31 30 31 |":W1.W2.O>T..101|
00003640: 32 30 3A 8D 31 30 31 36 30 3A 89 34 31 31 30 00 |20:.10160:.4110.|
00003650: 74 3E 5E 10 99 22 11 20 C6 52 4F 4D 20 52 45 43 |t>^..". .ROM REC|
00003660: 4F 52 44 20 23 12 22 57 31 22 92 11 22 3A 8D 31 |ORD #."W1"..":.1|
00003670: 30 31 36 30 00 AA 3E 68 10 57 32 B2 57 31 3A 57 |0160..>h.W2.W1:W|
00003680: 31 24 B2 22 30 22 3A 85 22 20 43 4F 50 59 20 54 |1$."0":." COPY T|
00003690: 4F 20 28 30 3D 51 55 49 54 29 20 22 3B 57 31 24 |O (0=QUIT) ";W1$|
000036A0: 3A 57 31 B2 C5 28 57 31 24 29 00 C5 3E 72 10 49 |:W1..(W1$)..>r.I|
000036B0: B2 30 3A 8D 31 30 35 36 30 3A 8B 49 B3 B1 39 39 |.0:.10560:.I..99|
000036C0: A7 34 32 33 30 00 F5 3E 7C 10 49 B2 30 3A 8D 31 |.4230..>|.I.0:.1|
000036D0: 30 37 36 30 3A 8D 31 30 35 38 30 3A 57 31 B2 57 |0760:.10580:W1.W|
000036E0: 32 3A 8D 31 30 31 32 30 3A 8D 31 30 31 36 30 3A |2:.10120:.10160:|
000036F0: 89 34 31 31 30 00 0C 3F 86 10 8B 57 31 B3 B2 30 |.4110..?...W1..0|
00003700: A7 57 31 B2 57 32 3A 89 31 33 36 30 00 2F 3F 90 |.W1.W2:.1360./?.|
00003710: 10 52 31 B2 4E 25 28 57 31 29 AA 31 3A 8D 31 30 |.R1.N%(W1).1:.10|
00003720: 30 38 30 3A 58 31 B2 52 31 3A 58 32 B2 52 32 00 |080:X1.R1:X2.R2.|
00003730: 4F 3F 9A 10 58 B2 31 3A 8D 31 30 32 33 30 3A 8B |O?..X.1:.10230:.|
00003740: 4F 24 B2 22 45 4D 50 54 59 22 A7 34 33 30 30 00 |O$."EMPTY".4300.|
00003750: 77 3F A4 10 99 22 11 20 D2 45 43 4F 52 44 20 23 |w?...". .ECORD #|
00003760: 20 12 22 57 31 22 92 20 48 41 53 20 44 41 54 41 | ."W1". HAS DATA|
00003770: 20 49 4E 20 49 54 2E 00 B4 3F AE 10 5A 24 B2 22 | IN IT...?..Z$."|
00003780: 22 3A 99 22 20 C4 4F 20 59 4F 55 20 57 41 4E 54 |":." .O YOU WANT|
00003790: 20 54 4F 20 57 52 49 54 45 20 4F 56 45 52 20 49 | TO WRITE OVER I|
000037A0: 54 20 22 3B 3A 85 5A 24 3A 42 B2 33 32 3A 8D 31 |T ";:.Z$:B.32:.1|
000037B0: 30 34 38 30 00 E8 3F B8 10 8B 5A 24 B2 22 51 22 |0480..?...Z$."Q"|
000037C0: B0 5A 24 B2 22 4E 22 A7 57 31 B2 57 32 3A 8D 31 |.Z$."N".W1.W2:.1|
000037D0: 30 37 36 30 3A 8D 31 30 31 32 30 3A 8D 31 30 31 |0760:.10120:.101|
000037E0: 36 30 3A 89 34 31 31 30 00 00 40 C2 10 8D 31 30 |60:.4110..@...10|
000037F0: 31 32 30 3A 8D 31 30 31 36 30 3A 89 32 31 37 30 |120:.10160:.2170|
00003800: 00 1C 40 CC 10 99 22 11 20 D4 4F 20 52 45 43 4F |..@...". .O RECO|
00003810: 52 44 20 23 12 22 57 31 22 92 11 22 00 4E 40 D6 |RD #."W1"..".N@.|
00003820: 10 52 31 B2 53 31 3A 52 32 B2 53 32 3A 8D 31 30 |.R1.S1:R2.S2:.10|
00003830: 33 31 30 3A 81 49 B2 31 A4 46 4C 44 53 3A 53 52 |310:.I.1.FLDS:SR|
00003840: 31 24 28 49 29 B2 4F 4F 24 28 49 29 3A 82 00 6A |1$(I).OO$(I):..j|
00003850: 40 E0 10 99 22 20 C3 4F 50 59 49 4E 47 20 52 45 |@..." .OPYING RE|
00003860: 43 4F 52 44 53 2E 2E 2E 2E 2E 00 9D 40 EA 10 52 |CORDS.......@..R|
00003870: 31 B2 58 31 3A 52 32 B2 58 32 3A 81 49 B2 31 A4 |1.X1:R2.X2:.I.1.|
00003880: 46 4C 44 53 3A 4F 4F 24 28 49 29 B2 53 52 31 24 |FLDS:OO$(I).SR1$|
00003890: 28 49 29 3A 82 49 3A 8D 31 30 33 38 30 00 A7 40 |(I):.I:.10380..@|
000038A0: F4 10 89 34 31 30 30 00 CB 40 FE 10 8F 2A 2A 2A |...4100..@...***|
000038B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000038C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EF 40 08 11 |***********..@..|
000038D0: 8F 2A 20 54 48 45 20 53 45 43 54 49 4F 4E 20 50 |.* THE SECTION P|
000038E0: 52 49 4E 54 53 20 52 45 43 4F 52 44 53 20 2A 00 |RINTS RECORDS *.|
000038F0: 13 41 12 11 8F 2A 20 4F 4E 20 54 48 45 20 50 52 |.A...* ON THE PR|
00003900: 49 4E 54 45 52 20 2E 20 4A 41 4D 20 20 20 20 20 |INTER . JAM |
00003910: 20 20 2A 00 37 41 1C 11 8F 2A 2A 2A 2A 2A 2A 2A | *.7A...*******|
00003920: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003930: 2A 2A 2A 2A 2A 2A 2A 00 50 41 26 11 8D 31 30 37 |*******.PA&..107|
00003940: 37 30 3A 8D 31 30 31 32 30 3A 8D 31 30 31 36 30 |70:.10120:.10160|
00003950: 00 90 41 30 11 57 32 B2 57 31 3A 57 31 24 B2 22 |..A0.W2.W1:W1$."|
00003960: 30 22 3A 85 22 20 53 54 41 52 54 20 50 52 49 4E |0":." START PRIN|
00003970: 54 49 4E 47 20 41 54 20 28 30 3D 51 55 49 54 29 |TING AT (0=QUIT)|
00003980: 20 22 3B 57 31 24 3A 57 31 B2 C5 28 57 31 24 29 | ";W1$:W1..(W1$)|
00003990: 00 AB 41 3A 11 49 B2 30 3A 8D 31 30 35 36 30 3A |..A:.I.0:.10560:|
000039A0: 8B 49 B3 B1 39 39 A7 34 34 33 30 00 DB 41 44 11 |.I..99.4430..AD.|
000039B0: 49 B2 30 3A 8D 31 30 37 37 30 3A 8D 31 30 35 38 |I.0:.10770:.1058|
000039C0: 30 3A 57 31 B2 57 32 3A 8D 31 30 31 32 30 3A 8D |0:W1.W2:.10120:.|
000039D0: 31 30 31 36 30 3A 89 34 34 30 30 00 F2 41 4E 11 |10160:.4400..AN.|
000039E0: 8B 57 31 B3 B2 30 A7 57 31 B2 57 32 3A 89 31 33 |.W1..0.W1.W2:.13|
000039F0: 36 30 00 FC 41 58 11 57 33 B2 57 31 00 2E 42 62 |60..AX.W3.W1..Bb|
00003A00: 11 99 22 11 20 D3 54 41 52 54 20 50 52 49 4E 54 |..". .TART PRINT|
00003A10: 49 4E 47 20 41 54 20 52 45 43 4F 52 44 20 23 12 |ING AT RECORD #.|
00003A20: 22 57 31 22 92 11 22 3A 8D 31 30 31 36 30 00 6C |"W1"..":.10160.l|
00003A30: 42 6C 11 57 32 B2 57 31 3A 57 31 24 B2 22 30 22 |Bl.W2.W1:W1$."0"|
00003A40: 3A 85 22 20 45 4E 44 20 50 52 49 4E 54 49 4E 47 |:." END PRINTING|
00003A50: 20 41 54 20 28 30 3D 51 55 49 54 29 20 22 3B 57 | AT (0=QUIT) ";W|
00003A60: 31 24 3A 57 31 B2 C5 28 57 31 24 29 00 87 42 76 |1$:W1..(W1$)..Bv|
00003A70: 11 49 B2 30 3A 8D 31 30 35 36 30 3A 8B 49 B3 B1 |.I.0:.10560:.I..|
00003A80: 39 39 A7 34 34 39 30 00 B7 42 80 11 49 B2 30 3A |99.4490..B..I.0:|
00003A90: 8D 31 30 37 37 30 3A 8D 31 30 35 38 30 3A 57 31 |.10770:.10580:W1|
00003AA0: B2 57 32 3A 8D 31 30 31 32 30 3A 8D 31 30 31 36 |.W2:.10120:.1016|
00003AB0: 30 3A 89 34 31 31 30 00 CE 42 8A 11 8B 57 31 B3 |0:.4110..B...W1.|
00003AC0: B2 30 A7 57 31 B2 57 32 3A 89 31 33 36 30 00 FD |.0.W1.W2:.1360..|
00003AD0: 42 94 11 99 22 11 20 C5 4E 44 20 50 52 49 4E 54 |B...". .ND PRINT|
00003AE0: 49 4E 47 20 41 54 20 52 45 43 4F 52 44 20 23 12 |ING AT RECORD #.|
00003AF0: 22 57 31 22 92 11 22 3A 5A 24 B2 22 22 00 37 43 |"W1"..":Z$."".7C|
00003B00: 9E 11 99 22 11 20 C9 53 20 54 48 45 20 50 52 49 |...". .S THE PRI|
00003B10: 4E 54 45 52 20 41 54 20 54 48 45 20 54 4F 50 22 |NTER AT THE TOP"|
00003B20: 3A 99 22 20 4F 46 20 41 20 4E 45 57 20 50 41 47 |:." OF A NEW PAG|
00003B30: 45 22 3B 3A 85 5A 24 00 5C 43 A8 11 42 B2 31 36 |E";:.Z$.\C..B.16|
00003B40: 3A 8D 31 30 34 38 30 3A 8B 5A 24 B2 22 4E 22 A7 |:.10480:.Z$."N".|
00003B50: 22 91 91 91 91 22 3A 89 34 35 32 30 00 6D 43 B2 |"....":.4520.mC.|
00003B60: 11 8B 5A 24 B2 22 51 22 A7 34 33 39 30 00 78 43 |..Z$."Q".4390.xC|
00003B70: BC 11 8D 31 30 37 37 30 00 AE 43 C6 11 5A 24 B2 |...10770..C..Z$.|
00003B80: 22 22 3A 85 22 11 20 D0 52 49 4E 54 20 45 4D 50 |"":.". .RINT EMP|
00003B90: 54 59 20 52 45 43 4F 52 44 53 20 54 4F 4F 22 3B |TY RECORDS TOO";|
00003BA0: 5A 24 3A 42 B2 32 36 3A 8D 31 30 34 38 30 00 C4 |Z$:B.26:.10480..|
00003BB0: 43 D0 11 55 50 B2 30 3A 8B 5A 24 B2 22 59 22 A7 |C..UP.0:.Z$."Y".|
00003BC0: 55 50 B2 31 00 F3 43 DA 11 5A 24 B2 22 22 3A 99 |UP.1..C..Z$."":.|
00003BD0: 22 11 20 C5 4E 54 45 52 20 53 54 41 52 54 49 4E |". .NTER STARTIN|
00003BE0: 47 20 50 41 47 45 20 4E 55 4D 42 45 52 22 3B 3A |G PAGE NUMBER";:|
00003BF0: 85 5A 24 00 0B 44 E4 11 8B 5A 24 B2 22 22 A7 99 |.Z$..D...Z$.""..|
00003C00: 22 91 91 91 22 3A 89 34 35 37 30 00 29 44 EE 11 |"...":.4570.)D..|
00003C10: 99 22 11 20 D0 52 49 4E 54 49 4E 47 20 52 45 43 |.". .RINTING REC|
00003C20: 4F 52 44 53 2E 2E 2E 2E 22 00 4D 44 F8 11 4C 4E |ORDS....".MD..LN|
00003C30: B2 30 3A 50 47 B2 C5 28 5A 24 29 3A A0 32 3A 9F |.0:PG..(Z$):.2:.|
00003C40: 35 2C 34 3A 9D 35 3A 99 C7 28 31 37 29 00 5E 44 |5,4:.5:..(17).^D|
00003C50: 02 12 8D 31 30 38 30 30 3A 98 35 3A A0 35 00 92 |...10800:.5:.5..|
00003C60: 44 0C 12 81 47 B2 57 33 A4 57 31 3A 52 31 B2 4E |D...G.W3.W1:R1.N|
00003C70: 25 28 47 29 AA 31 3A 8D 31 30 30 38 30 3A 9F 32 |%(G).1:.10080:.2|
00003C80: 2C 38 2C 33 2C 22 20 22 AA 4E 4D 24 AA 22 2C 4C |,8,3," ".NM$.",L|
00003C90: 2C 22 00 C2 44 16 12 8D 31 30 33 31 30 3A 8B 4F |,"..D...10310:.O|
00003CA0: 4F 24 28 49 29 B3 B1 22 45 4D 50 54 59 22 A7 4C |O$(I).."EMPTY".L|
00003CB0: 31 B2 4C 4E AA 46 4C 44 53 AA 32 3A 89 20 34 36 |1.LN.FLDS.2:. 46|
00003CC0: 35 30 00 D6 44 20 12 8B 55 50 B2 31 A7 4C 31 B2 |50..D ..UP.1.L1.|
00003CD0: 4C 4E AA 31 AA 32 00 0C 45 2A 12 8B 4C 31 B1 36 |LN.1.2..E*..L1.6|
00003CE0: 33 A7 4C B2 36 36 AB 4C 4E 3A 8D 31 30 38 36 30 |3.L.66.LN:.10860|
00003CF0: 3A 57 33 B2 47 3A 50 47 B2 50 47 AA 31 3A 5A 24 |:W3.G:PG.PG.1:Z$|
00003D00: B2 C4 28 50 47 29 3A 89 34 36 30 30 00 2D 45 34 |..(PG):.4600.-E4|
00003D10: 12 A0 32 3A 8B 55 50 B2 30 AF 4F 4F 24 28 49 29 |..2:.UP.0.OO$(I)|
00003D20: B2 22 45 4D 50 54 59 22 A7 34 37 34 30 00 4A 45 |."EMPTY".4740.JE|
00003D30: 3E 12 9F 35 2C 34 3A 9D 35 3A 99 C7 28 31 37 29 |>..5,4:.5:..(17)|
00003D40: 3B 3A 20 4C 4E B2 4C 4E AA 32 00 69 45 48 12 99 |;: LN.LN.2.iEH..|
00003D50: A6 38 29 22 D2 C5 C3 CF D2 C4 20 23 20 22 47 3A |.8)"...... # "G:|
00003D60: 99 3A 4C 4E B2 4C 4E AA 32 00 96 45 52 12 8B 4F |.:LN.LN.2..ER..O|
00003D70: 4F 24 28 49 29 B2 22 45 4D 50 54 59 22 A7 99 A6 |O$(I)."EMPTY"...|
00003D80: 38 29 4F 4F 24 28 49 29 3A 4C 4E B2 4C 4E AA 31 |8)OO$(I):LN.LN.1|
00003D90: 3A 89 34 37 33 30 00 AD 45 5C 12 50 31 B2 50 4F |:.4730..E\.P1.PO|
00003DA0: 25 AA 39 3A 81 56 B2 31 A4 46 4C 44 53 00 E6 45 |%.9:.V.1.FLDS..E|
00003DB0: 66 12 99 A6 38 29 43 48 24 28 56 29 C7 28 31 36 |f...8)CH$(V).(16|
00003DC0: 29 C7 28 34 38 AA B5 28 50 31 AD 31 30 29 29 C7 |).(48..(P1.10)).|
00003DD0: 28 34 38 AA B5 28 50 31 AD 31 30 29 AC 31 30 29 |(48..(P1.10).10)|
00003DE0: 4F 4F 24 28 56 29 00 F8 45 70 12 82 56 3A 4C 4E |OO$(V)..Ep..V:LN|
00003DF0: B2 4C 4E AA 46 4C 44 53 00 02 46 7A 12 98 35 3A |.LN.FLDS..Fz..5:|
00003E00: A0 35 00 24 46 84 12 82 47 3A 9F 32 2C 38 2C 33 |.5.$F...G:.2,8,3|
00003E10: 2C 22 20 22 AA 4E 4D 24 AA 22 2C 4C 2C 22 3A 89 |," ".NM$.",L,":.|
00003E20: 34 33 39 30 00 41 46 8E 12 8F 2A 2A 2A 2A 2A 2A |4390.AF...******|
00003E30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003E40: 2A 00 5E 46 98 12 8F 2A 20 54 48 45 20 53 45 43 |*.^F...* THE SEC|
00003E50: 54 49 4F 4E 20 41 44 44 53 20 20 20 20 2A 00 7B |TION ADDS *.{|
00003E60: 46 A2 12 8F 2A 20 52 45 43 4F 52 44 53 20 2E 20 |F...* RECORDS . |
00003E70: 4A 41 4D 20 20 20 20 20 20 20 2A 00 98 46 AC 12 |JAM *..F..|
00003E80: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00003E90: 2A 2A 2A 2A 2A 2A 2A 2A 00 A3 46 B6 12 8D 31 30 |********..F...10|
00003EA0: 38 38 30 00 DC 46 C0 12 99 22 11 20 D4 48 45 52 |880..F...". .HER|
00003EB0: 45 20 41 52 45 20 12 22 4C 4F 22 92 52 45 43 4F |E ARE ."LO".RECO|
00003EC0: 52 44 53 20 43 52 45 41 54 45 44 22 3A 99 22 20 |RDS CREATED":." |
00003ED0: 46 4F 52 20 12 22 4E 4D 24 22 2E 22 00 07 47 CA |FOR ."NM$"."..G.|
00003EE0: 12 5A 24 B2 22 22 3A 99 22 11 20 C8 4F 57 20 4D |.Z$."":.". .OW M|
00003EF0: 41 4E 59 20 4D 4F 52 45 20 52 45 43 4F 52 44 53 |ANY MORE RECORDS|
00003F00: 20 44 4F 20 59 4F 55 00 34 47 D4 12 85 22 20 57 | DO YOU.4G..." W|
00003F10: 41 4E 54 20 54 4F 20 41 44 44 20 28 30 3D 51 55 |ANT TO ADD (0=QU|
00003F20: 49 54 29 22 3B 5A 24 3A 8B 20 5A 24 B2 22 22 A7 |IT)";Z$:. Z$."".|
00003F30: 31 33 36 30 00 4A 47 DE 12 5A B2 C5 28 5A 24 29 |1360.JG..Z..(Z$)|
00003F40: 3A 8B 5A B2 30 A7 31 33 36 30 00 5E 47 E8 12 8B |:.Z.0.1360.^G...|
00003F50: 5A B3 B2 35 30 30 AB 4C 4F A7 34 38 36 30 00 99 |Z..500.LO.4860..|
00003F60: 47 F2 12 8D 31 30 38 38 30 3A 99 22 11 20 12 D4 |G...10880:.". ..|
00003F70: 48 45 52 45 20 49 53 20 4E 4F 54 20 45 4E 4F 55 |HERE IS NOT ENOU|
00003F80: 47 48 20 52 4F 4F 4D 20 49 4E 20 4D 45 4D 4F 52 |GH ROOM IN MEMOR|
00003F90: 59 2E 22 3A 89 34 38 30 30 00 B6 47 FC 12 99 22 |Y.":.4800..G..."|
00003FA0: 11 20 C3 52 45 41 54 49 4E 47 20 46 49 4C 45 53 |. .REATING FILES|
00003FB0: 2E 2E 2E 2E 2E 22 00 D2 47 06 13 81 54 B2 4C 4F |....."..G...T.LO|
00003FC0: AA 31 A4 4C 4F AA 5A 3A 4E 25 28 54 29 B2 54 3A |.1.LO.Z:N%(T).T:|
00003FD0: 82 54 00 F3 47 10 13 98 31 2C 22 53 3A 20 22 AA |.T..G...1,"S: ".|
00003FE0: 4D 4E 24 AA 22 2F 53 4F 52 54 20 4B 45 59 2C 53 |MN$."/SORT KEY,S|
00003FF0: 2C 20 22 00 20 48 1A 13 9F 36 2C 38 2C 37 2C 22 |, ". H...6,8,7,"|
00004000: 20 22 AA 4D 4E 24 AA 22 2F 53 4F 52 54 20 4B 45 | ".MN$."/SORT KE|
00004010: 59 2C 53 2C 57 22 3A 81 49 B2 31 A4 4C 4F AA 5A |Y,S,W":.I.1.LO.Z|
00004020: 00 37 48 24 13 98 36 2C 4E 25 28 49 29 3B 52 24 |.7H$..6,N%(I);R$|
00004030: 3B 3A 82 49 3A A0 36 00 61 48 2E 13 A0 32 3A 9F |;:.I:.6.aH...2:.|
00004040: 32 2C 38 2C 33 2C 22 20 22 AA 4E 4D 24 AA 22 2C |2,8,3," ".NM$.",|
00004050: 4C 2C 22 AA C7 28 44 46 25 29 3A 8D 31 30 30 31 |L,"..(DF%):.1001|
00004060: 30 00 9F 48 38 13 57 31 B2 31 3A 4C 4F B2 4C 4F |0..H8.W1.1:LO.LO|
00004070: AA 5A 3A 8D 31 30 31 39 30 3A 4F 24 B2 22 45 4D |.Z:.10190:O$."EM|
00004080: 50 54 59 22 3A 81 49 B2 4C 4F AA 32 A4 4C 4F AA |PTY":.I.LO.2.LO.|
00004090: 5A AA 31 3A 52 31 B2 49 3A 8D 31 30 30 38 30 00 |Z.1:R1.I:.10080.|
000040A0: D2 48 42 13 58 B2 31 3A 8D 31 30 32 37 30 3A 99 |.HB.X.1:.10270:.|
000040B0: 22 11 11 20 D2 C5 C3 CF D2 C4 20 12 22 49 AB 31 |".. ...... ."I.1|
000040C0: 22 92 20 C3 D2 C5 C1 D4 C5 C4 2E 91 91 91 22 3A |". ...........":|
000040D0: 82 49 00 DC 48 4C 13 89 34 37 39 30 00 F9 48 56 |.I..HL..4790..HV|
000040E0: 13 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
000040F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 16 49 60 13 8F 2A |*********..I`..*|
00004100: 20 53 45 43 54 49 4F 4E 20 54 4F 20 52 45 41 44 | SECTION TO READ|
00004110: 20 44 49 53 4B 2A 00 33 49 6A 13 8F 2A 20 44 49 | DISK*.3Ij..* DI|
00004120: 52 45 43 54 4F 52 59 2E 4A 41 4D 20 20 20 20 20 |RECTORY.JAM |
00004130: 20 20 2A 00 50 49 74 13 8F 2A 2A 2A 2A 2A 2A 2A | *.PIt..*******|
00004140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004150: 00 6D 49 7E 13 8D 31 30 39 30 30 3A 8B C2 28 38 |.mI~..10900:..(8|
00004160: 33 30 29 B3 B1 33 32 A7 8D 35 30 31 30 00 A4 49 |30)..32..5010..I|
00004170: 88 13 9E 38 32 38 3A 8D 31 30 36 34 30 3A 9F 31 |...828:.10640:.1|
00004180: 2C 38 2C 31 35 3A A0 32 3A 9F 32 2C 38 2C 33 2C |,8,15:.2:.2,8,3,|
00004190: 22 20 22 AA 4E 4D 24 3A 8D 31 30 30 31 30 3A 89 |" ".NM$:.10010:.|
000041A0: 31 33 36 30 00 AE 49 92 13 49 B2 38 32 38 00 C1 |1360..I..I.828..|
000041B0: 49 9C 13 87 41 3A 8B 41 B2 32 35 36 A7 35 30 34 |I...A:.A.256.504|
000041C0: 30 00 D6 49 A6 13 97 49 2C 41 3A 49 B2 49 AA 31 |0..I...I,A:I.I.1|
000041D0: 3A 89 35 30 32 30 00 F1 49 B0 13 8B C2 28 36 35 |:.5020..I....(65|
000041E0: 34 34 30 29 B2 31 33 35 A7 97 39 32 34 2C 31 38 |440).135..924,18|
000041F0: 39 00 F7 49 BA 13 8E 00 14 4A C4 13 83 31 36 39 |9..I.....J...169|
00004200: 2C 31 2C 33 32 2C 31 39 35 2C 32 35 35 2C 31 36 |,1,32,195,255,16|
00004210: 39 2C 33 36 00 32 4A CE 13 83 31 34 31 2C 32 34 |9,36.2J...141,24|
00004220: 30 2C 33 2C 31 36 39 2C 34 38 2C 31 34 31 2C 32 |0,3,169,48,141,2|
00004230: 34 31 00 4B 4A D8 13 83 33 2C 31 36 39 2C 31 2C |41.KJ...3,169,1,|
00004240: 31 36 32 2C 38 2C 31 36 30 2C 30 00 69 4A E2 13 |162,8,160,0.iJ..|
00004250: 83 33 32 2C 31 38 36 2C 32 35 35 2C 31 36 39 2C |.32,186,255,169,|
00004260: 32 2C 31 36 32 2C 32 34 30 00 86 4A EC 13 83 31 |2,162,240..J...1|
00004270: 36 30 2C 33 2C 33 32 2C 31 38 39 2C 32 35 35 2C |60,3,32,189,255,|
00004280: 33 32 2C 31 39 32 00 A5 4A F6 13 83 32 35 35 2C |32,192..J...255,|
00004290: 31 36 39 2C 36 34 2C 33 32 2C 31 34 34 2C 32 35 |169,64,32,144,25|
000042A0: 35 2C 31 36 32 00 C2 4A 00 14 83 31 2C 33 32 2C |5,162..J...1,32,|
000042B0: 31 39 38 2C 32 35 35 2C 33 32 2C 31 34 34 2C 32 |198,255,32,144,2|
000042C0: 35 35 00 E0 4A 0A 14 83 33 32 2C 32 30 37 2C 32 |55..J...32,207,2|
000042D0: 35 35 2C 33 32 2C 32 30 37 2C 32 35 35 2C 33 32 |55,32,207,255,32|
000042E0: 00 FE 4A 14 14 83 32 30 37 2C 32 35 35 2C 33 32 |..J...207,255,32|
000042F0: 2C 32 30 37 2C 32 35 35 2C 32 30 31 2C 30 00 1C |,207,255,201,0..|
00004300: 4B 1E 14 83 32 34 30 2C 35 38 2C 33 32 2C 32 30 |K...240,58,32,20|
00004310: 34 2C 32 35 35 2C 33 32 2C 32 32 38 00 39 4B 28 |4,255,32,228.9K(|
00004320: 14 83 32 35 35 2C 32 30 31 2C 33 32 2C 32 30 38 |..255,201,32,208|
00004330: 2C 33 2C 33 32 2C 31 39 36 00 54 4B 32 14 83 33 |,3,32,196.TK2..3|
00004340: 2C 31 36 32 2C 31 2C 33 32 2C 31 39 38 2C 32 35 |,162,1,32,198,25|
00004350: 35 2C 33 32 00 73 4B 3C 14 83 32 30 37 2C 32 35 |5,32.sK<..207,25|
00004360: 35 2C 31 36 38 2C 33 32 2C 32 30 37 2C 32 35 35 |5,168,32,207,255|
00004370: 2C 37 32 00 93 4B 46 14 83 31 35 32 2C 31 37 30 |,72..KF..152,170|
00004380: 2C 31 30 34 2C 33 32 2C 32 30 35 2C 32 32 31 2C |,104,32,205,221,|
00004390: 31 36 39 00 B1 4B 50 14 83 33 32 2C 33 32 2C 32 |169..KP..32,32,2|
000043A0: 31 30 2C 32 35 35 2C 33 32 2C 32 30 37 2C 32 35 |10,255,32,207,25|
000043B0: 35 00 CC 4B 5A 14 83 32 30 31 2C 30 2C 32 30 38 |5..KZ..201,0,208|
000043C0: 2C 38 2C 31 36 39 2C 31 33 2C 33 32 00 E9 4B 64 |,8,169,13,32..Kd|
000043D0: 14 83 32 31 30 2C 32 35 35 2C 37 36 2C 31 31 35 |..210,255,76,115|
000043E0: 2C 33 2C 33 32 2C 32 31 30 00 04 4C 6E 14 83 32 |,3,32,210..Ln..2|
000043F0: 35 35 2C 37 36 2C 31 36 32 2C 33 2C 31 36 39 2C |55,76,162,3,169,|
00004400: 31 2C 33 32 00 24 4C 78 14 83 31 39 35 2C 32 35 |1,32.$Lx..195,25|
00004410: 35 2C 33 32 2C 32 30 34 2C 32 35 35 2C 31 36 39 |5,32,204,255,169|
00004420: 2C 32 30 34 00 43 4C 82 14 83 31 33 33 2C 31 37 |,204.CL...133,17|
00004430: 38 2C 39 36 2C 33 32 2C 32 32 38 2C 32 35 35 2C |8,96,32,228,255,|
00004440: 32 30 31 00 5A 4C 8C 14 83 33 32 2C 32 30 38 2C |201.ZL...32,208,|
00004450: 32 34 39 2C 39 36 2C 32 35 36 00 7E 4C 10 27 8F |249,96,256.~L.'.|
00004460: 2A 2A 2A 2A 2A 2A 2A 2A 43 48 45 43 4B 20 45 52 |********CHECK ER|
00004470: 52 4F 52 20 43 48 41 4E 4E 45 4C 2A 2A 2A 00 9B |ROR CHANNEL***..|
00004480: 4C 1A 27 84 31 2C 45 2C 45 24 2C 53 2C 44 3A 8B |L.'.1,E,E$,S,D:.|
00004490: 45 B3 32 30 B0 45 B2 35 30 A7 8E 00 CA 4C 24 27 |E.20.E.50....L$'|
000044A0: 99 22 93 11 11 11 20 20 20 20 20 20 20 12 2A 2A |.".... .**|
000044B0: D4 C8 C5 D2 C5 A0 C9 D3 A0 C1 A0 C4 C9 D3 CB A0 |................|
000044C0: C5 D2 D2 CF D2 2E 2A 2A 92 22 00 E6 4C 2E 27 99 |......**."..L.'.|
000044D0: 22 11 11 20 20 20 20 20 20 20 C5 D2 D2 CF D2 22 |".. ....."|
000044E0: 45 A6 33 29 45 24 00 1D 4D 38 27 99 22 11 11 20 |E.3)E$..M8'.".. |
000044F0: 20 20 20 D2 45 43 4F 52 44 20 23 20 12 22 52 31 | .ECORD # ."R1|
00004500: AA 32 35 36 AC 52 32 22 92 22 A3 32 30 29 22 C6 |.256.R2".".20)".|
00004510: 49 45 4C 44 20 23 20 12 22 49 22 92 22 00 38 4D |IELD # ."I".".8M|
00004520: 42 27 99 22 11 22 A3 31 34 29 22 C3 48 41 52 20 |B'.".".14)".HAR |
00004530: 50 4F 53 2E 20 12 22 58 00 49 4D 4C 27 98 31 2C |POS. ."X.IML'.1,|
00004540: 22 49 22 3A A0 32 3A A0 31 00 8A 4D 4D 27 99 22 |"I":.2:.1..MM'."|
00004550: 11 11 20 C4 4F 20 59 4F 55 20 57 41 4E 54 20 54 |.. .O YOU WANT T|
00004560: 48 45 20 44 49 53 4B 20 44 49 52 45 43 54 4F 52 |HE DISK DIRECTOR|
00004570: 59 20 22 3B 3A 5A 24 B2 22 22 3A 85 5A 24 3A 42 |Y ";:Z$."":.Z$:B|
00004580: B2 33 34 3A 8D 31 30 34 38 30 00 A0 4D 4E 27 8B |.34:.10480..MN'.|
00004590: 5A 24 B2 22 59 22 A7 99 22 93 22 3A 9E 38 32 38 |Z$."Y"..".":.828|
000045A0: 00 CF 4D 4F 27 99 22 11 11 20 D0 52 45 53 53 20 |..MO'.".. .RESS |
000045B0: 52 45 54 55 52 4E 20 54 4F 20 52 45 53 54 41 52 |RETURN TO RESTAR|
000045C0: 54 20 54 48 45 20 50 52 4F 47 52 41 4D 2E 22 00 |T THE PROGRAM.".|
000045D0: E4 4D 50 27 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 |.MP'.A$:.A$."".1|
000045E0: 30 30 36 34 00 F5 4D 51 27 8B 41 24 B3 B1 C7 28 |0064..MQ'.A$...(|
000045F0: 31 33 29 A7 80 00 FE 4D 52 27 89 31 36 30 00 22 |13)....MR'.160."|
00004600: 4E 56 27 8F 2A 2A 2A 2A 2A 43 48 41 4E 47 45 20 |NV'.*****CHANGE |
00004610: 52 45 43 4F 52 44 23 20 46 4F 52 4D 41 54 2A 2A |RECORD# FORMAT**|
00004620: 2A 2A 00 42 4E 60 27 52 32 B2 B5 28 52 31 AD 32 |**.BN`'R2..(R1.2|
00004630: 35 36 29 3A 52 31 B2 52 31 AB 32 35 36 AC 52 32 |56):R1.R1.256.R2|
00004640: 3A 8E 00 66 4E 6A 27 8F 2A 2A 52 45 41 44 20 57 |:..fNj'.**READ W|
00004650: 31 20 41 4E 44 20 4C 4F 20 46 52 4F 4D 20 52 45 |1 AND LO FROM RE|
00004660: 43 23 31 2A 2A 2A 00 8B 4E 74 27 98 31 2C 22 50 |C#1***..Nt'.1,"P|
00004670: 22 C7 28 33 AA 39 36 29 C7 28 31 29 C7 28 30 29 |".(3.96).(1).(0)|
00004680: C7 28 31 29 3A 8D 31 30 30 31 30 00 A4 4E 7E 27 |.(1):.10010..N~'|
00004690: 84 32 2C 57 31 2C 4C 4F 2C 57 33 3A 8D 31 30 30 |.2,W1,LO,W3:.100|
000046A0: 31 30 3A 8E 00 CE 4E 88 27 99 22 11 20 D4 48 45 |10:...N.'.". .HE|
000046B0: 20 4C 41 53 54 20 52 45 43 4F 52 44 20 57 4F 52 | LAST RECORD WOR|
000046C0: 4B 45 44 20 4F 4E 20 57 41 53 20 12 22 3B 00 E8 |KED ON WAS .";..|
000046D0: 4E 92 27 8B 57 33 B2 30 A7 99 22 4E 4F 4E 45 2E |N.'.W3.0.."NONE.|
000046E0: 22 3A 89 31 30 31 35 30 00 F0 4E 9C 27 99 57 31 |":.10150..N.'.W1|
000046F0: 00 1B 4F A6 27 99 22 20 D4 48 45 52 45 20 41 52 |..O.'." .HERE AR|
00004700: 45 20 12 22 4C 4F 22 92 52 45 43 4F 52 44 53 20 |E ."LO".RECORDS |
00004710: 43 52 45 41 54 45 44 2E 22 3A 8E 00 43 4F B0 27 |CREATED.":..CO.'|
00004720: 99 22 11 11 20 D7 48 49 43 48 20 52 45 43 4F 52 |.".. .HICH RECOR|
00004730: 44 20 57 4F 55 4C 44 20 59 4F 55 20 4C 49 4B 45 |D WOULD YOU LIKE|
00004740: 20 54 4F 00 49 4F BA 27 8E 00 6D 4F C4 27 8F 2A | TO.IO.'..mO.'.*|
00004750: 2A 2A 2A 2A 57 52 49 54 45 20 57 31 20 41 4E 44 |****WRITE W1 AND|
00004760: 20 4C 4F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 92 4F | LO**********..O|
00004770: CE 27 98 31 2C 22 50 22 C7 28 33 AA 39 36 29 C7 |.'.1,"P".(3.96).|
00004780: 28 31 29 C7 28 30 29 C7 28 31 29 3A 8D 31 30 30 |(1).(0).(1):.100|
00004790: 31 30 00 B4 4F D8 27 98 32 2C 57 31 3B 52 24 3B |10..O.'.2,W1;R$;|
000047A0: 4C 4F 3B 52 24 3B 57 33 3B 52 24 3A 8D 31 30 30 |LO;R$;W3;R$:.100|
000047B0: 31 30 3A 8E 00 D8 4F E2 27 8F 2A 2A 2A 2A 2A 2A |10:...O.'.******|
000047C0: 2A 2A 52 45 41 44 20 4F 4E 45 20 57 4F 52 44 20 |**READ ONE WORD |
000047D0: 46 52 4F 4D 2A 2A 2A 2A 00 FC 4F EC 27 8F 2A 2A |FROM****..O.'.**|
000047E0: 2A 2A 2A 2A 2A 2A 54 48 45 20 52 45 4C 41 54 49 |******THE RELATI|
000047F0: 56 45 20 46 49 4C 45 2A 2A 2A 2A 2A 00 29 50 F6 |VE FILE*****.)P.|
00004800: 27 98 31 2C 22 50 22 C7 28 33 AA 39 36 29 C7 28 |'.1,"P".(3.96).(|
00004810: 52 31 29 C7 28 52 32 29 C7 28 58 29 3A 8D 31 30 |R1).(R2).(X):.10|
00004820: 30 31 30 3A 4F 24 B2 22 22 00 3C 50 00 28 84 32 |010:O$."".<P.(.2|
00004830: 2C 4F 24 3A 8D 31 30 30 31 30 3A 8E 00 60 50 0A |,O$:.10010:..`P.|
00004840: 28 8F 2A 2A 2A 2A 2A 2A 2A 2A 57 52 49 54 45 20 |(.********WRITE |
00004850: 4F 4E 45 20 57 4F 52 44 20 54 4F 2A 2A 2A 2A 2A |ONE WORD TO*****|
00004860: 00 84 50 14 28 8F 2A 2A 2A 2A 2A 2A 2A 2A 54 48 |..P.(.********TH|
00004870: 45 20 52 45 4C 41 54 49 56 45 20 46 49 4C 45 2A |E RELATIVE FILE*|
00004880: 2A 2A 2A 2A 00 AB 50 1E 28 98 31 2C 22 50 22 C7 |****..P.(.1,"P".|
00004890: 28 33 AA 39 36 29 C7 28 52 31 29 C7 28 52 32 29 |(3.96).(R1).(R2)|
000048A0: C7 28 58 29 3A 8D 31 30 30 31 30 00 C1 50 28 28 |.(X):.10010..P((|
000048B0: 98 32 2C 4F 24 3B 52 24 3A 8D 31 30 30 31 30 3A |.2,O$;R$:.10010:|
000048C0: 8E 00 E5 50 32 28 8F 2A 2A 2A 2A 2A 2A 2A 2A 52 |...P2(.********R|
000048D0: 45 41 44 20 54 48 45 20 57 48 4F 4C 45 20 52 45 |EAD THE WHOLE RE|
000048E0: 43 2E 2A 2A 2A 00 09 51 3C 28 8F 2A 2A 2A 2A 2A |C.***..Q<(.*****|
000048F0: 2A 2A 2A 49 4E 54 4F 20 4F 4F 24 28 20 29 2E 4A |***INTO OO$( ).J|
00004900: 41 4D 20 20 20 20 2A 2A 2A 00 3E 51 46 28 58 B2 |AM ***.>QF(X.|
00004910: 31 3A 81 49 B2 31 A4 46 4C 44 53 3A 98 31 2C 22 |1:.I.1.FLDS:.1,"|
00004920: 50 22 C7 28 33 AA 39 36 29 C7 28 52 31 29 C7 28 |P".(3.96).(R1).(|
00004930: 52 32 29 C7 28 58 29 3A 8D 31 30 30 31 30 00 75 |R2).(X):.10010.u|
00004940: 51 50 28 58 B2 58 AA 43 48 28 49 29 AA 31 3A 84 |QP(X.X.CH(I).1:.|
00004950: 32 2C 4F 4F 24 28 49 29 3A 8D 31 30 30 31 30 3A |2,OO$(I):.10010:|
00004960: 8B 4F 4F 24 28 49 29 B2 22 22 A7 4F 4F 24 28 49 |.OO$(I)."".OO$(I|
00004970: 29 B2 22 20 22 00 8B 51 5A 28 8B 4F 4F 24 28 49 |)." "..QZ(.OO$(I|
00004980: 29 B2 22 45 4D 50 54 59 22 A7 8E 00 9E 51 64 28 |)."EMPTY"....Qd(|
00004990: 8B 49 B2 31 A7 58 B2 43 48 28 31 29 AA 32 00 A7 |.I.1.X.CH(1).2..|
000049A0: 51 6E 28 82 49 3A 8E 00 C9 51 78 28 8F 2A 2A 2A |Qn(.I:...Qx(.***|
000049B0: 2A 2A 57 52 49 54 45 20 54 48 45 20 57 48 4F 4C |**WRITE THE WHOL|
000049C0: 45 20 52 45 43 2E 2A 2A 2A 00 EA 51 82 28 8F 2A |E REC.***..Q.(.*|
000049D0: 2A 2A 2A 2A 49 4E 54 4F 20 4F 4F 24 28 20 29 2E |****INTO OO$( ).|
000049E0: 4A 41 4D 20 20 20 20 2A 2A 2A 00 1F 52 8C 28 58 |JAM ***..R.(X|
000049F0: B2 31 3A 81 49 B2 31 A4 46 4C 44 53 3A 98 31 2C |.1:.I.1.FLDS:.1,|
00004A00: 22 50 22 C7 28 33 AA 39 36 29 C7 28 52 31 29 C7 |"P".(3.96).(R1).|
00004A10: 28 52 32 29 C7 28 58 29 3A 8D 31 30 30 31 30 00 |(R2).(X):.10010.|
00004A20: 52 52 96 28 58 B2 58 AA 43 48 28 49 29 AA 31 3A |RR.(X.X.CH(I).1:|
00004A30: 98 32 2C 4F 4F 24 28 49 29 3B 52 24 3A 8D 31 30 |.2,OO$(I);R$:.10|
00004A40: 30 31 30 3A 8B 49 B2 31 A7 58 B2 43 48 28 31 29 |010:.I.1.X.CH(1)|
00004A50: AA 32 00 5B 52 A0 28 82 49 3A 8E 00 7F 52 AA 28 |.2.[R.(.I:...R.(|
00004A60: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 50 52 49 4E 54 |.********* PRINT|
00004A70: 20 48 45 41 44 45 52 20 2A 2A 2A 2A 2A 2A 2A 00 | HEADER *******.|
00004A80: B9 52 B4 28 99 22 93 22 C7 28 31 34 29 22 12 20 |.R.(.".".(14)". |
00004A90: 20 20 20 D7 C5 CC C3 CF CD C5 20 D4 CF 20 D2 C5 | ....... .. ..|
00004AA0: CC C1 D4 C9 D6 C5 20 C6 C9 CC C5 A0 CD C1 CE C1 |...... .........|
00004AB0: C7 C5 D2 20 20 20 20 92 22 00 CD 52 BE 28 8B 4E |... ."..R.(.N|
00004AC0: 4D 24 B3 B1 22 22 A7 8D 31 30 34 35 30 00 D3 52 |M$..""..10450..R|
00004AD0: C8 28 8E 00 FB 52 D2 28 99 22 91 20 20 20 20 D2 |.(...R.(.". .|
00004AE0: C5 CC C1 D4 C9 D6 C5 20 C6 C9 CC C5 20 CF D0 C5 |....... .... ...|
00004AF0: CE 20 3D 20 12 22 4E 4D 24 3A 8E 00 1F 53 DC 28 |. = ."NM$:...S.(|
00004B00: 8F 2A 2A 2A 2A 2A 2A 2A 2A 20 49 4E 50 55 54 20 |.******** INPUT |
00004B10: 4C 49 4E 45 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |LINE **********.|
00004B20: 41 53 E6 28 5A 24 B2 22 22 3A 85 22 20 52 45 4C |AS.(Z$."":." REL|
00004B30: 41 54 49 56 45 20 46 49 4C 45 20 22 3B 5A 24 3A |ATIVE FILE ";Z$:|
00004B40: 8E 00 66 53 F0 28 8B C8 28 5A 24 2C 31 29 B2 22 |..fS.(..(Z$,1)."|
00004B50: 59 22 A7 99 A3 42 29 22 91 59 45 53 22 3A 5A 24 |Y"...B)".YES":Z$|
00004B60: B2 22 59 22 3A 8E 00 8A 53 FA 28 8B C8 28 5A 24 |."Y":...S.(..(Z$|
00004B70: 2C 31 29 B2 22 4E 22 A7 99 A3 42 29 22 91 4E 4F |,1)."N"...B)".NO|
00004B80: 22 3A 5A 24 B2 22 4E 22 3A 8E 00 97 53 04 29 5A |":Z$."N":...S.)Z|
00004B90: 24 B2 22 51 22 3A 8E 00 AC 53 0E 29 A1 5A 24 3A |$."Q":...S.).Z$:|
00004BA0: 8B 5A 24 B2 22 22 A7 31 30 35 31 30 00 B2 53 18 |.Z$."".10510..S.|
00004BB0: 29 8E 00 D6 53 22 29 8F 2A 2A 2A 2A 2A 2A 2A 2A |)...S").********|
00004BC0: 2A 20 57 52 49 54 45 20 48 45 41 44 45 52 20 2A |* WRITE HEADER *|
00004BD0: 2A 2A 2A 2A 2A 2A 00 0A 54 2C 29 99 22 93 12 20 |******..T,).".. |
00004BE0: 20 20 D2 C5 CC C1 D4 C9 D6 C5 20 C6 C9 CC C5 A0 | ........ .....|
00004BF0: CD C1 CE C1 C7 C5 D2 3A 20 D7 D2 C9 D4 C5 20 D2 |.......: ..... .|
00004C00: C5 C3 CF D2 C4 20 20 22 3A 8E 00 2D 54 36 29 8F |..... ":..-T6).|
00004C10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 52 45 43 4F 52 44 20 |*********RECORD |
00004C20: 45 58 49 53 54 53 2A 2A 2A 2A 2A 2A 2A 00 3F 54 |EXISTS*******.?T|
00004C30: 40 29 8B 57 31 B1 4C 4F A7 49 B2 39 39 3A 8E 00 |@).W1.LO.I.99:..|
00004C40: 45 54 4A 29 8E 00 6E 54 54 29 99 22 11 20 12 2A |ETJ)..nTT).". .*|
00004C50: CE CF A0 D3 D5 C3 C8 20 D2 C5 C3 CF D2 C4 A0 C5 |....... ........|
00004C60: D8 C9 D3 D4 D3 2A 22 3A 49 B2 39 39 3A 8E 00 92 |.....*":I.99:...|
00004C70: 54 5E 29 8F 2A 2A 2A 2A 2A 2A 2A 2A 20 55 50 44 |T^).******** UPD|
00004C80: 41 54 45 20 48 45 41 44 45 52 20 2A 2A 2A 2A 2A |ATE HEADER *****|
00004C90: 2A 2A 00 C7 54 68 29 99 22 05 93 12 20 20 D2 C5 |**..Th)."... ..|
00004CA0: CC C1 D4 C9 D6 C5 20 C6 C9 CC C5 A0 CD C1 CE C1 |...... .........|
00004CB0: C7 C5 D2 3A 20 D5 D0 C4 C1 D4 C5 20 D2 C5 C3 CF |...: ...... ....|
00004CC0: D2 C4 D3 20 22 3A 8E 00 EB 54 72 29 8F 2A 2A 2A |... ":...Tr).***|
00004CD0: 2A 2A 2A 2A 2A 2A 20 52 45 41 44 20 20 48 45 41 |****** READ HEA|
00004CE0: 44 45 52 20 2A 2A 2A 2A 2A 2A 2A 00 1F 55 7C 29 |DER *******..U|)|
00004CF0: 99 22 93 12 20 20 20 D2 C5 CC C1 D4 C9 D6 C5 20 |.".. ........ |
00004D00: C6 C9 CC C5 A0 CD C1 CE C1 C7 C5 D2 3A 20 D2 C5 |............: ..|
00004D10: C1 C4 20 20 D2 C5 C3 CF D2 C4 20 20 22 3A 8E 00 |.. ...... ":..|
00004D20: 43 55 86 29 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |CU.).***********|
00004D30: 2A 2A 50 52 45 53 53 20 41 4E 59 20 4B 45 59 2A |**PRESS ANY KEY*|
00004D40: 2A 2A 2A 00 6F 55 90 29 99 22 11 20 20 3C 3C 3C |***.oU.).". <<<|
00004D50: D0 D2 C5 D3 D3 A0 C1 CE D9 A0 CB C5 D9 A0 D4 CF |................|
00004D60: A0 C3 CF CE D4 C9 CE D5 C5 20 3E 3E 3E 22 3B 00 |......... >>>";.|
00004D70: 84 55 9A 29 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 |.U.).A$:.A$."".1|
00004D80: 30 36 35 30 00 8A 55 A4 29 8E 00 AC 55 AE 29 8F |0650..U.)...U.).|
00004D90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 4D 4F 44 49 46 59 |**********MODIFY|
00004DA0: 20 4D 45 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E0 55 B8 | ME*********..U.|
00004DB0: 29 99 22 93 12 20 20 20 D2 C5 CC C1 D4 C9 D6 C5 |).".. ........|
00004DC0: A0 C6 C9 CC C5 A0 CD C1 CE C1 C7 C5 D2 3A 20 C5 |.............: .|
00004DD0: C4 C9 D4 20 D2 C5 C3 CF D2 C4 20 20 20 22 3A 8E |... ...... ":.|
00004DE0: 00 02 56 C2 29 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..V.).**********|
00004DF0: 2A 53 45 41 52 43 48 20 4D 45 2A 2A 2A 2A 2A 2A |*SEARCH ME******|
00004E00: 2A 2A 00 36 56 CC 29 99 22 93 12 20 20 20 D2 C5 |**.6V.).".. ..|
00004E10: CC C1 D4 C9 D6 C5 A0 C6 C9 CC C5 A0 CD C1 CE C1 |................|
00004E20: C7 C5 D2 3A 20 D3 C5 C1 D2 C3 C8 20 D2 C5 C3 CF |...: ...... ....|
00004E30: D2 C4 20 22 3A 8E 00 58 56 D6 29 8F 2A 2A 2A 2A |.. ":..XV.).****|
00004E40: 2A 2A 2A 2A 2A 2A 2A 53 45 41 52 43 48 20 4D 45 |*******SEARCH ME|
00004E50: 2A 2A 2A 2A 2A 2A 2A 2A 00 8C 56 E0 29 99 22 93 |********..V.).".|
00004E60: 12 20 20 20 D2 C5 CC C1 D4 C9 D6 C5 A0 C6 C9 CC |. ............|
00004E70: C5 A0 CD C1 CE C1 C7 C5 D2 3A 20 D3 CF D2 D4 20 |.........: .... |
00004E80: D2 C5 C3 CF D2 C4 D3 20 20 22 3A 8E 00 AE 56 EA |....... ":...V.|
00004E90: 29 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 44 45 4C |).***********DEL|
00004EA0: 45 54 45 20 4D 45 2A 2A 2A 2A 2A 2A 2A 2A 00 E2 |ETE ME********..|
00004EB0: 56 F4 29 99 22 93 12 20 20 20 D2 C5 CC C1 D4 C9 |V.).".. ......|
00004EC0: D6 C5 A0 C6 C9 CC C5 A0 CD C1 CE C1 C7 C5 D2 3A |...............:|
00004ED0: 20 C4 C5 CC C5 D4 C5 20 D2 C5 C3 CF D2 C4 20 22 | ...... ...... "|
00004EE0: 3A 8E 00 04 57 FE 29 8F 2A 2A 2A 2A 2A 2A 2A 2A |:...W.).********|
00004EF0: 2A 2A 2A 43 4F 50 59 20 20 20 4D 45 2A 2A 2A 2A |***COPY ME****|
00004F00: 2A 2A 2A 2A 00 38 57 08 2A 99 22 93 12 20 20 20 |****.8W.*.".. |
00004F10: D2 C5 CC C1 D4 C9 D6 C5 A0 C6 C9 CC C5 A0 CD C1 |................|
00004F20: CE C1 C7 C5 D2 3A 20 20 C3 CF D0 D9 A0 D2 C5 C3 |.....: ........|
00004F30: CF D2 C4 20 20 22 3A 8E 00 5A 57 12 2A 8F 2A 2A |... ":..ZW.*.**|
00004F40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 50 52 49 4E 54 20 20 |*********PRINT |
00004F50: 4D 45 2A 2A 2A 2A 2A 2A 2A 2A 00 8E 57 1C 2A 99 |ME********..W.*.|
00004F60: 22 93 12 20 20 20 D2 C5 CC C1 D4 C9 D6 C5 A0 C6 |".. ..........|
00004F70: C9 CC C5 A0 CD C1 CE C1 C7 C5 D2 3A 20 D0 D2 C9 |...........: ...|
00004F80: CE D4 20 D2 C5 C3 CF D2 C4 D3 20 22 3A 8E 00 B0 |.. ....... ":...|
00004F90: 57 26 2A 8F 2A 2A 2A 2A 2A 2A 2A 50 52 49 4E 54 |W&*.*******PRINT|
00004FA0: 45 52 20 48 45 41 44 45 52 53 2A 2A 2A 2A 2A 2A |ER HEADERS******|
00004FB0: 00 DC 57 30 2A 99 C7 28 31 34 29 20 22 20 20 20 |..W0*..(14) " |
00004FC0: 20 20 20 20 20 20 D2 C5 CC C1 D4 C9 D6 C5 A0 C6 | ..........|
00004FD0: C9 CC C5 A0 CD C1 CE C1 C7 C5 D2 22 00 E2 57 3A |..........."..W:|
00004FE0: 2A 99 00 13 58 44 2A 99 C7 28 31 34 29 22 20 20 |*...XD*..(14)" |
00004FF0: 20 20 20 20 20 20 20 C6 C9 CC C5 20 CE C1 CD C5 | .... ....|
00005000: 20 3A 22 C7 28 31 35 29 4E 4D 24 3A 4C 4E B2 4C | :".(15)NM$:LN.L|
00005010: 4E AA 38 00 19 58 4E 2A 99 00 2E 58 58 2A 99 A6 |N.8..XN*...XX*..|
00005020: 36 35 29 22 D0 C1 C7 C5 20 22 50 47 3A 8E 00 50 |65)".... "PG:..P|
00005030: 58 62 2A 8F 2A 2A 2A 2A 2A 2A 2A 50 52 49 4E 54 |Xb*.*******PRINT|
00005040: 45 52 20 52 45 43 4F 52 44 53 2A 2A 2A 2A 2A 2A |ER RECORDS******|
00005050: 00 73 58 6C 2A 9F 35 2C 34 3A 81 4D B2 31 A4 4C |.sXl*.5,4:.M.1.L|
00005060: 3A 98 35 3A 82 4D 3A A0 35 3A 4C 4E B2 4C 4E AA |:.5:.M:.5:LN.LN.|
00005070: 4C 3A 8E 00 97 58 76 2A 8F 2A 2A 2A 2A 2A 2A 2A |L:...Xv*.*******|
00005080: 41 44 44 20 52 45 43 4F 52 44 53 20 54 49 54 4C |ADD RECORDS TITL|
00005090: 45 2A 2A 2A 2A 2A 2A 00 CB 58 80 2A 99 22 93 12 |E******..X.*."..|
000050A0: 20 20 20 D2 C5 CC C1 D4 C9 D6 C5 A0 C6 C9 CC C5 | .............|
000050B0: A0 CD C1 CE C1 C7 C5 D2 3A 20 C1 C4 C4 A0 D2 C5 |........: ......|
000050C0: C3 CF D2 C4 D3 20 20 20 22 3A 8E 00 EF 58 8A 2A |..... ":...X.*|
000050D0: 8F 2A 2A 2A 2A 2A 2A 2A 41 44 44 20 52 45 43 4F |.*******ADD RECO|
000050E0: 52 44 53 20 54 49 54 4C 45 2A 2A 2A 2A 2A 2A 00 |RDS TITLE******.|
000050F0: 23 59 94 2A 99 22 93 12 20 20 20 D2 C5 CC C1 D4 |#Y.*.".. .....|
00005100: C9 D6 C5 A0 C6 C9 CC C5 A0 CD C1 CE C1 C7 C5 D2 |................|
00005110: 3A 20 D2 C5 C1 C4 A0 C4 C9 D2 C5 C3 D4 CF D2 D9 |: ..............|
00005120: 22 3A 8E 00 00 00 |":.... |
..(.... ********************************
.O.... ** **.
V.... ** REL.FIL.MANAGER V2.0 **..
.(.. ** **.D.
2.. ** RELATIVE FILE MANAGER **...<
.. ** RELATIVE FILE MANAGER **...F.
. ** **.9.P..
** THIS IS A MODIFIED VERSION **.`.Z..
** OF REL.EXPER.V3.4 THAT WILL**...D..**
ALLOW THE USER TO DEFINE HIS**...N..** O
WN # OF FIELDS AND THIER **.R.X..** LEN
GTH AND TITLE.POWER TO **......** US.
JAM NOVEMBER 1983 **......**********
**********************.P....AA$(500),N%(
500):.53281,0:."."G(14):.650,128... .NM$
."":.10420:.B(49152).76.B(49257).173.200
......646,B(53281).L...."..NEW..":."LOAD
"G(34)"REL.FILE.BOOTER"G(34)",8...."....
.."RUN..............":.198,3:.631,13:.63
2,13:.633,13:..2.H..". NOTE: IN ALL CASE
S THROUGHOUT THIS".\.R.." PROGRAM, T
YPING THE RETURN KEY......" WITH NO
KEYBOARD ENTRY WILL......" ACT AS
AN ESCAPE FROM WHATEVER.K...." YOU
ARE DOING........". PUT A DISK FOR RELAT
IVE FILES IN THE DRIVE.". ....
B(830)..32..5010.8....".";:.10640:.10420
.X....1,8,15,"I":R$.G(13):NM$.""...".B.1
7:Z$."":.". DO YOU WANT TO CREATE A BRAN
D NEW":.10470:.10480...,..Z$.."Q".340...
6..". DO YOU WANT TO QUIT";:Z$."":.Z$:B.
22:.10480...@..Z$."N"..10420:.290...J. 2
: 1:....T..Z$."Y".560.>.^..". WHAT IS TH
E NAME OF YOUR":.10470.^.H.NM$.Z$:Z.C(NM
$):.NM$."".310...R..Z.15..10420:.". .FIL
E NAME TOO LONG.":.290...|.MN$.NM$:.Z.6.
MN$.H(NM$,6).X....2,8,3," ".NM$:.10010:.
DOES FILE EXIST..... 6:.6,8,7," ".MN$."
/KEY,S,R":.6,FLDS,DF,PO%:.10010.....DF%.
253.M....10420:.". ."NM$". HAS ."FLDS".F
IELDS CREATED.~...." AND A RECORD LENGTH
OF ."DF".CHARACTERS."...B..". FIELD #".
12)"TITLE".27)"CHAR. LENGTH".Z.L.." ....
...".12)".....".27)"............."...V..
I.1.FLDS:.6,CH(I),CH$(I).......3)I.11)CH
$(I).32)CH(I)......I: 6.J....FX1%.9.."..
.":.10640:.10420:.".":.750.U....10100...
...6,8,7," ".MN$."/SORT KEY,S,R":.10010:
.I.1.LO:.6,N%(I):......."...":.10640: 6.
.....1360.W.&.. ******* CREATE NEW FILE
*******...0..". WHAT DO YOU WANT TO CALL
YOUR":.10470.%.:.NM$.Z$:Z.C(NM$):.NM$."
".310.U.D..Z.15..10420:.". .FILE NAME TO
O LONG.":.560...N. 2:.2,8,3," ".NM$:.1,E
,E$,C,D:.E.62.640...X..". THAT FILE NAME
ALREADY EXISTS..W.B.Z$."":." DO YOU WAN
T TO WRITE OVER IT ";Z$...L.B.32...V..10
480:.Z$."Q".Z$."N"..10420:.560.$...MN$.N
M$:.Z.6.MN$.H(NM$,6).9....E.62.Z$."":.70
0.L...Z$."":.". DO YOU WANT TO KEEP THE
FIELD TITLES......" AND THEIR CHARACTER
LENGTHS THE SAME.X...." AS THEY WERE IN
THE OLD ."NM$".";:.Z$:B.C(NM$).26:.10480
......Z$."Q"..10420: 2:.290..... 2:.1,"S
: ".NM$...F..Z$."Y".FX1%.9:.730.;.P..1,"
S: ".MN$."/KEY,S, ".\.Z..1,"S: ".MN$."/S
ORT KEY,S, ".L....FX1%.9.400......". HOW
MANY RECORDS LONG":." WILL "NM$;:." BE
";LO.A....LO.1.LO.500..10420:.750.R....F
X1%..9.790......". CREATING FILES ...":.
1280.3....10420:.". HOW MANY FIELDS (9 M
AX) WILL EACH":PO%.1:FLDS.0.G. .." RECOR
D HAVE ";FLDS:.FLDS.1.FLDS.9.."..":.790.
..*..I.1.FLDS:.". ENTER THE TITLE FOR FI
ELD #."I.F.4.CH$(I)."":." (20 CHARACTERS
MAX) ";CH$(I)...>..CH$(I)."".C(CH$(I)).
20.C(CH$(I)).1..10420:.810...H..I.6..104
20.+.R..C(CH$(I)).PO%.PO%.C(CH$(I)).2.\.
.I.I.F..10420:.". THE FOLLOWING ARE RECO
RD FIELD TITLES;"...P..I.1.FLDS:.". FIEL
D #"I.PO%.2)CH$(I):.I...Z.B.34:Z$."".W..
..". DO YOU WANT TO MAKE ANY CHANGES";Z$
:.10480......Z$."Q".."...":.900......Z$.
"N"..10420:.1000......10420.;....". WHIC
H FIELD ";Z:.Z.1.Z.FLDS.870.B....". ENTE
R THE TITLE FOR FIELD #."Z......" (20 CH
ARACTERS MAX) ";CH$(Z)...J..CH$(Z)."".C(
CH$(Z)).20.C(CH$(Z)).1.CH(Z)." ".Y.T..C(
CH$(Z)).PO%.PO%.C(CH$(Z))......870.'....
". NOTE: ONLY 240 CHARACTERS TOTAL FOR "
:." ALL FIELDS ALLOWED..X...DF.0:.I.1.FL
DS:.". ENTER THE # OF CHARACTERS.Y...."
FOR FIELD #."I".";:.CH(I)......CH(I).240
.FLDS.CH(I).1..10420:.1000......I..6.107
0......10420:.". ENTER THE # OF CHARACTE
RS"...$.." FOR FIELD #."I". "CH(I).)...D
F.DF.CH(I):..28)".TOTAL=."DF:.DF.241.109
0.[.8..10420:.". .CHARACTER TOTAL TOO GR
EAT.":.1000.B.B..I...L..10420:." THE FOL
LOWING ARE RECORD FIELD":." CHARACTER LE
NGTHS;.P.V.DF.0:.I.1.FLDS:.". FIELD #"I.
18)CH(I)...`.DF.DF.CH(I):..28)".SUM=."DF
:.DF.243.1080...J..I.FLDS...28)".TOTAL=.
"DF.-.T..I:B.34:Z$."".F.~.Z$."":.". DO Y
OU WANT TO MAKE ANY CHANGES";Z$:.10480.
....Z$."Q".."...":.1150......Z$."N".1240
......10420.H...Z.0:.". WHICH FIELD ";Z:
.Z.1.Z.FLDS.1100.....DF.0:.I.1.FLDS:.".
ENTER THE # OF CHARACTERS......" FOR FIE
LD #."Z".";:.CH(Z).9.D..CH(Z).235.CH(Z).
1.CH(Z).1.C.N..1100.G.X..10420:.". CREAT
ING FILES....."..... 6:.6,8,7," ".MN$."/
KEY,S,W":.6,FLDS;R$;DF;R$;PO%;R$;.L....I
.1.FLDS:.6,CH(I);R$;CH$(I);R$;:.I: 6.W..
.FX1%.0......6,8,7," ".MN$."/SORT KEY,S,
W":.I.1.LO:N%(I).I......6,I;R$;:.I: 6.).
..DF%.253.L.(. 2:.2,8,3," ".NM$.",L,".G(
DF%)...2.W1.1:W3.0:.10190:O$."EMPTY":.I.
2.LO.1:R1.I:.10080...<.X.1:.10270:.".. R
ECORD ."I.1". CREATED....":.I.H.F..FX1%.
9.FX1%.0.S.P..10420...Z..". OKAY, WHAT O
PERATION DID YOU WANT...D.." TO PERFORM
?.".-.N.." WRITE (W) ?".G.X.." RE
AD (R) ?".A...." UPDATE (U) ?
".{...." MODIFY (M) ?"......" SEAR
CH (S) ?"... .." SORT (SO) ?".
I...." DELETE (DE) ?"......" RESTAR
T (RE) ?"......" PRINT (P) ?"...
H.." ADD ON (A) ?".1.R.." COPY
(C) ?".K...." DIRECTORY (D) ?".E...
." END (E) ?".....L$."":.". INPU
T A LETTER";L$......L$."".."...":.1520..
....L$."W".1720......L$."R".2160.Q....L$
."U".1990..."..L$."M".2380...,..L$."S".2
750...6..L$."SO".3500...@..L$."DE".3930.
D.J..L$."RE".NM$."":.10420:.10190: 2: 1:
.280.U.T..L$."P".4390.F.^..L$."A".4790.W
.H..L$."C".4100...R..L$."D".4990...|..L$
."E"..10190: 2: 1:..K....10420:.". VERY
FUNNY HA-HA.":.1370...... **************
****************...... * THIS SECTION WR
ITES RECORDS*.:.... * ON THE DISK. WRITE
ON! *._.... ***********************
*******.X....10540:.10120:.10160...B.W2.
W1:W1$."0":." WRITE TO (0=QUIT) ";W1$:W1
.E(W1$).F.L..W1..0.W1.W2:.1360...V.I.0:.
10560:.I..99.1770......10540:.10580:W1.W
2:.10120:.10160:.1730.$...R1.N%(W1).1:.1
0080.D...X.1:.10230:.O$."EMPTY".1820.Y..
..". RECORD # ."W1".ALREADY CONTAINS DAT
A.":Z$.""......" DO YOU WANT TO WRITE OV
ER IT ";:.Z$:B.32:.10480......Z$."Q".Z$.
"N".W1.W2:.10540:.10120:.10160:.1730.. .
..10540:.10120:.". RECORD #."W1"..".> &.
.J.1.FLDS:." "CH$(J).PO%.2);:OO$(J)."":.
OO$(J).X 0..OO$(J)."".OO$(J)." ".. :..C(
OO$(J)).CH(J).OO$(J).H(OO$(J),CH(J)).. D
..J.. N..10540:.". RECORD #."W1".".X X..
".":.I.1.FLDS:." "CH$(I).PO%.3)OO$(I):.I
..!B.Z$."":.".. IS THIS RIGHT (Q=QUIT)";
Z$:.Z$."Q".Z$."":.1910.(!L..Z$."".Z$."Y"
.E!V.B.25:.10480:.Z$."N".1820.R!...Z$."Q
"..10540:W1.W2:.10120:.10160:.1730..!...
10380: 2:W3.W1:.2,8,3," ".NM$.",L,".G(DF
%):.1720.L!...**************************
****..!...* THIS IS THE UPDATE SECTION *
.."...* THAT TELLS CLOWN WHICH *.8".
..* RECORDS ARE FULL. *.\"...**
****************************.."F..10600:
.T.1.LO:R1.N%(T).1:.10080.."P.X.1:.10230
.C"Z.." RECORD # ."T".",:.O$.."EMPTY".."
FULL":.2030.K"...O$.."...T.20...(T.20).2
060..#...". SPACE BAR STOPS LISTING.
.":.10640.+#...10600:.A$.G(32).2070.2#..
.T.[#...". THE LAST RECORD WORKED ON WAS
";.T# ..W3.0.."NONE.":.2100.|#*..W1..#4
.."..":.10640:.1360..#>..***************
***************..#H..* THE SECTION READS
THE *..#R..* REQUIRED RECORDS FROM
THE *.#$\..* DISK. READ OFF
*.G$F..******************************.
`$P..10620:.10120:.10160..$Z.W2.W1:W1$."
0":." READ (0=QUIT) ";:.W1$:W1.E(W1$)..$
..I.0:.10560:.I..99.2200..$..I.0:.10620:
.10580:W1.W2:.10120:.10160:.2170..$...W1
..0.W1.W2:.1360..%..R1.N%(W1).1:.10080./
%..X.1:.10230:.O$.."EMPTY".2250._%...106
20:.". RECORD # ."W1". IS ."O$".":W1.W2.
W%...10120:.10160:.2170..%J..10620:.". R
ECORD #."W1".."..%T..10310.K%...I.1.FLDS
:." "CH$(I).PO%.3)OO$(I):.I..%...10160:.
2170..&...******************************
*.&&...* THIS SECTION WILL EDIT OUR *.K
&...* SAVED DATA BY READING IT *.P&..
.* INTO AN ARRAY, ASKING WHAT *..&...*
CHANGES CLOWN WANTS TO MAKE,*..&$..* MOD
IFYING THE ARRAY THEN *..&...* SAVEIN
G THE MODIFIED ARRAY *..'8..* BACK ONTO
THE DISK. *.)'B..**************
*****************.B'L..10680:.10120:.101
60.W'V.W2.W1:W1$."0":." MODIFY (0=QUIT)
";W1$:W1.E(W1$)..'`.I.0:.10560:.I..99.24
20.B'J.I.0:.10680:.10580:W1.W2:.10120:.1
0160:.2390.Y'T..W1..0.W1.W2:.1360..'~.R1
.N%(W1).1:.10080..(...10310:.OO$(I).."EM
PTY".2470.E(...10680:.". RECORD # ."W1".
IS ."OO$(I)".":W1.W2.](...10120:.10160:
.2390..(...10680:.10120:.". RECORD #."W1
".."..(...". WHICH OF THE FOLLOWING DO".
.(..." YOU WANT TO MODIFY ?":.I.1.FLDS:.
" "I") "CH$(I):...(D.." "FLDS.1") .TO RE
START".4)N.Z$."":.". ENTER A NUMBER ";Z$
:.Z$."".."...":.2510.S)X.Z.E(Z$):.Z.1.Z.
FLDS.1.2470.M)...Z.FLDS.1.W1.W2:.2380.X)
...10680..)...".. THE OLD ";CH$(Z);" IS
";OO$(Z)" .".W)...". DO YOU WANT TO CHAN
GE IT";:.Z$:B.27:.10480..)...Z$."N".Z$."
Q".2470..*..O$."":.". ENTER NEW ";CH$(Z)
;.2);:.O$./*...O$.""..".":.2580.O*(..C(O
$).CH(Z).O$.H(O$,CH(Z)).]*2.OO$(Z).O$..*
<.Z$."":.". ANY MORE CHANGES TO THIS REC
ORD ";Z$:B.35:.10480..*F..Z$."Y".Z$."Q".
2470.E*P..10380:.2380..*Z..*************
******************..+D..* THIS SECTION W
ILL SEARCH OUR*.4+N..* SAVED DATA BY WHA
T EVER *.Y+X..* CATAGORY CLOWN WANTS
. ONCE *.~+...* THE SEARCH DATA IS FOUN
D *..+...* CLOWN IS ASKED TO VERIFY
*.H+...* THAT THIS IS WHAT HE WANTED *
..+ ..* THEN IS TOLD WHAT RECORD *..,
...* HIS DATA IS CONTAINED IN. *.7,...
*******************************.I,...107
00:.10120.K,H..". PLEASE ENTER THE CATAG
ORY..,R.." WOULD LIKE TO SEARCH ;."..,..
.I.1.FLDS:." "I") "CH$(I):..I,..." "FLDS
.1") .TO RESTART"..,..." "FLDS.2") .INST
RUCTIONS"..-..Z$."":.". ENTER A NUMBER "
;Z$:.Z$."".."...":.2810.F-..Z.E(Z$):.Z.1
.Z.FLDS.2.."...":.2810.Y-...Z.FLDS.1.136
0.L-...Z.FLDS.2.3210.}-".FX1.0:.10700..-
,..". PLEASE ENTER THE "CH$(Z)..-6.." YO
U WANTED TO SEARCH THE.Y-@.." RECORDS FO
R ";SRCH$..-J.RIG$.SRCH$...T..H(SRCH$,1)
.."*".2930.&.^.LN.C(SRCH$).1:SRCH$.I(SRC
H$,LN).0.H.FX1.1.J.R..I(SRCH$,1).."*".29
60.N.|.LN.C(SRCH$).1:SRCH$.H(SRCH$,LN).X
...FX1.2......C(SRCH$).CH(Z)..10700:." .
SEARCH STRING TOO LONG":.5080.M...FI.1:.
Z.1.X.1:.3000.....SX.1:.I.1.Z.1:SX.SX.CH
(I).1:.I.1.SX.CH(1).2../...I.#/...I.FI.L
O:R1.N%(I).1:.10080.</B..". RECORD #."I"
...".B/L.X.1:O$."":.10230:.O$."EMPTY".31
00.X/V.X.SX:O$."":.10230../...O$.SRCH$.3
140../...FX1.0.3100.K/...FX1.2.3090:...
CHECK FOR WILD CARD MATCH**../...SRCH$.I
(O$,LN).3140../...3100..0...SRCH$.H(O$,L
N).3140..0...I:.". ."RIG$" CAN NOT BE FO
UND.."._0&.Z$."":." .WANT TO TRY AGAIN "
;Z$:B.21:.10480.P00..Z$."Y".2750.Z0:..13
60..0D.ZI.I:.10700:.". ."O$". HAS BEEN F
OUND.":.10310.F0N..". RECORD #."ZI".."..
0X..J.1.FLDS:." "CH$(J).PO%.3)OO$(J):.J:
.10640.!1B..10700:.". DO YOU WANT TO CON
TINUE THE.U1L.." SEARCH FOR "RIG$" ";:.Z
$:B.15.C(RIG$):.10480.O1V..Z$."Y".FI.ZI.
1:.2980.Y1...2750..1...10700..1...". SEA
RCH INSTRUCTIONS.".N1..." 1) YOU CAN SEA
RCH FOR THE STRING YOU..1..." ARE LOO
KING BY ENTERING THE EXACT.!2..." SPE
LLING OF THE STRING AS IT.D2..." WAS
STORED ON THE DISK...N2F.." 2) YOU CAN S
EARCH FOR A PARTICULAR..2P.." STRING
BY USING WILD CARD MATCHING..".K2Z.."
I) WHEN SEARCHING FOR A STRING..2..
." THAT STARTS WITH THE THREE LETTERS
.#3..." COR YOU WOULD ENTER COR* TO F
IND.P3..." ANY STRING THAT STARTED WI
TH THOSE.J3..." THREE LETTERS....3...
" II) AS WELL WHEN SEARCHING FOR.
E3..." A STRING ENDING WITH ARIO YOU
WOULD..3 .." ENTER *ARIO .....4*.."
<<< PRESS ANY KEY TO CONTINUE >>>";.!4
4..A$:.A$."".3380.+4>..2750.P4H..*******
************************.U4R..* THIS SEC
TION WILL SORT OUR *..4\..* SAVED DATA
BY WHAT EVER *..4F..* CATAGORY CLOWN
WANTS. THIS *..4P..* SORT ROUTINE USES
A M/C LANG*..5Z..* ROUTINE CALLED ULTRA
SORT *..5...* FROM COMPUTE! SEPT 1983
. *.S5...* THATS WHY REL.EXPER/BOOT I
S *.X5...* RUN TO LOAD THIS PROG. J.R.J*
..5...*******************************..5
...10720:.10120.Z5...". PLEASE MAKE A SE
LECTION AS TO WHAT..6..." CATAGORY YOU W
OULD LIKE TO SORT BY;.".'6J..I.1.FLDS:."
"I") "CH$(I):..E6T.." "FLDS.1") .TO RES
TART".{6..Z$."":.". ENTER A NUMBER ";Z$:
.Z$."".."...":.3550..6..Z.E(Z$):.Z.1.Z.F
LDS.1.."...":.3550..6...Z.FLDS.1.1360..6
...10720..6...". SORTING RECORDS BY "CH$
(Z)" .......6...Z.1.X.1:.3630.-7..SX.1:.
I.1.Z.1:SX.SX.CH(I).1:.I.1.SX.CH(1).2.47
$..I.W7..XX.0:.I.1.LO:R1.N%(I).1:.10080.
}78.X.1:O$."":.10230:.O$."EMPTY".3680..7
B.X.SX:O$."":.10230:XX.XX.1..7L.C1$.G(R1
):C2$.G(R2).J7V.AA$(XX).O$.C1$.C2$.Q7`..
I..8J..XX.0..". .THERE ARE NO RECORDS TO
SORT...":.4010."8T.. ** CALL ULTRASORT
**.78~..49152,XX,AA$(1).O8...". RECORDS
SORTED".P8...". REARRANGING RECORDS ..."
.|8...D.1.XX..8... STRIP OFF OLD POS'N I
NFO..S8..C2$.I(AA$(D),1):LN.C(AA$(D)).1:
AA$(D).H(AA$(D),LN)..9..C1$.I(AA$(D),1):
LN.C(AA$(D)).1:AA$(D).H(AA$(D),LN)."9D.G
.F(C2$).256.F(C1$).39N.N%(D).G.1:.D.Y9X.
Z.0:.T.1.LO:.P.1.XX:.T.N%(P).3820.Q9...P
:Z.Z.1:N%(XX.Z).T.X9...T..9...1,"S: ".MN
$."/SORT KEY,S, ".C9...6,8,7," ".MN$."/S
ORT KEY,S,W":.10010..9...T.1.LO:.6,N%(T)
;R$;:.10010:...:...".. SORT KEY REWRITTE
N..."..:.. 6:.10640..:(..1360.A:2.. ****
*************************.E:<.. ** THIS
SECTION ERASES A **..:F.. ** RECORD FR
OM THE DISK. **..:P.. ****************
*************.F:Z..10740:.10120:.10160..
:D.W2.W1:W1$."0":." DELETE (0=QUIT) ";W1
$:W1.E(W1$)..;N.I.0:.10560:.I..99.3970.F
;X.I.0:.10740:.10580:W1.W2:.10120:.10160
:.3940.];...W1..0.W1.W2:.1360.T;..R1.N%(
W1).1:.10080..;..X.1:.10230:.O$.."EMPTY"
.4020.E; ..10740:.". RECORD # ."W1". IS
."O$".":W1.W2..;...10120:.10160:.3940..<
...10740:.". DELETE RECORD #."W1"..".=<.
.Z$."":.". ARE YOU SURE ";Z$:B.16:.10480
:.Z$."N".3930.N<H..Z$."Q".1360..<R.X.1:.
". OKAY THEN...":O$."EMPTY":.10270:.3930
..<...******************************.H<.
..* THE SECTION COPIES ONE *..<...*
ON THE PRINTER . JAM *..=...******
************************.)=...10760:.101
20:.10160.A=..W2.W1:W1$."0":." COPY FROM
(0=QUIT) ";W1$:W1.E(W1$).|=..I.0:.10560
:.I..99.4140..=".I.0:.10760:.10580:W1.W2
:.10120:.10160:.4110.C=,..W1..0.W1.W2:.1
360..=6.R1.N%(W1).1:.10080:S1.R1:S2.R2..
>@.X.1:.10230:.O$.."EMPTY".4190.7>J..107
60:.". RECORD # ."W1". IS ."O$".":W1.W2.
O>T..10120:.10160:.4110.T>^..". FROM REC
ORD #."W1"..":.10160..>H.W2.W1:W1$."0":.
" COPY TO (0=QUIT) ";W1$:W1.E(W1$).E>R.I
.0:.10560:.I..99.4230..>|.I.0:.10760:.10
580:W1.W2:.10120:.10160:.4110..?...W1..0
.W1.W2:.1360./?..R1.N%(W1).1:.10080:X1.R
1:X2.R2.O?..X.1:.10230:.O$."EMPTY".4300.
W?...". RECORD # ."W1". HAS DATA IN IT..
.?..Z$."":." DO YOU WANT TO WRITE OVER I
T ";:.Z$:B.32:.10480..?...Z$."Q".Z$."N".
W1.W2:.10760:.10120:.10160:.4110..@B..10
120:.10160:.2170..@L..". TO RECORD #."W1
"..".N@V.R1.S1:R2.S2:.10310:.I.1.FLDS:SR
1$(I).OO$(I):..J@..." COPYING RECORDS...
....@..R1.X1:R2.X2:.I.1.FLDS:OO$(I).SR1$
(I):.I:.10380..@...4100.K@...***********
*******************..@...* THE SECTION P
RINTS RECORDS *..A...* ON THE PRINTER .
JAM *.7A...***********************
*******.PA&..10770:.10120:.10160..A0.W2.
W1:W1$."0":." START PRINTING AT (0=QUIT)
";W1$:W1.E(W1$)..A:.I.0:.10560:.I..99.4
430..AD.I.0:.10770:.10580:W1.W2:.10120:.
10160:.4400..AN..W1..0.W1.W2:.1360..AX.W
3.W1..BB..". START PRINTING AT RECORD #.
"W1"..":.10160.LBL.W2.W1:W1$."0":." END
PRINTING AT (0=QUIT) ";W1$:W1.E(W1$)..BV
.I.0:.10560:.I..99.4490..B..I.0:.10770:.
10580:W1.W2:.10120:.10160:.4110.NB...W1.
.0.W1.W2:.1360..B...". END PRINTING AT R
ECORD #."W1"..":Z$."".7C...". IS THE PRI
NTER AT THE TOP":." OF A NEW PAGE";:.Z$.
\C..B.16:.10480:.Z$."N"."....":.4520.MC.
..Z$."Q".4390.XC...10770..CF.Z$."":.". P
RINT EMPTY RECORDS TOO";Z$:B.26:.10480.D
CP.UP.0:.Z$."Y".UP.1..CZ.Z$."":.". ENTER
STARTING PAGE NUMBER";:.Z$..D...Z$.""..
"...":.4570.)D...". PRINTING RECORDS....
".MD..LN.0:PG.E(Z$): 2:.5,4:.5:.G(17).^D
...10800:.5: 5..D...G.W3.W1:R1.N%(G).1:.
10080:.2,8,3," ".NM$.",L,".BD...10310:.O
O$(I).."EMPTY".L1.LN.FLDS.2:. 4650.VD ..
UP.1.L1.LN.1.2..E*..L1.63.L.66.LN:.10860
:W3.G:PG.PG.1:Z$.D(PG):.4600.-E4. 2:.UP.
0.OO$(I)."EMPTY".4740.JE>..5,4:.5:.G(17)
;: LN.LN.2.IEH...8)"RECORD # "G:.:LN.LN.
2..ER..OO$(I)."EMPTY"...8)OO$(I):LN.LN.1
:.4730..E\.P1.PO%.9:.V.1.FLDS..EF...8)CH
$(V)G(16)G(48..(P1.10))G(48..(P1.10).10)
OO$(V)..EP..V:LN.LN.FLDS..FZ..5: 5.$F...
G:.2,8,3," ".NM$.",L,":.4390.AF...******
*****************.^F...* THE SECTION ADD
S *.{F...* RECORDS . JAM *..F..
.***********************..F...10880..F..
.". THERE ARE ."LO".RECORDS CREATED":."
FOR ."NM$"."..GJ.Z$."":.". HOW MANY MORE
RECORDS DO YOU.4GT.." WANT TO ADD (0=QU
IT)";Z$:. Z$."".1360.JG..Z.E(Z$):.Z.0.13
60.^G...Z..500.LO.4860..G...10880:.". .T
HERE IS NOT ENOUGH ROOM IN MEMORY.":.480
0..G...". CREATING FILES.....".RG...T.LO
.1.LO.Z:N%(T).T:.T..G...1,"S: ".MN$."/SO
RT KEY,S, ". H...6,8,7," ".MN$."/SORT KE
Y,S,W":.I.1.LO.Z.7H$..6,N%(I);R$;:.I: 6.
AH.. 2:.2,8,3," ".NM$.",L,".G(DF%):.1001
0..H8.W1.1:LO.LO.Z:.10190:O$."EMPTY":.I.
LO.2.LO.Z.1:R1.I:.10080.RHB.X.1:.10270:.
".. RECORD ."I.1". CREATED....":.I..HL..
4790..HV..***********************..I`..*
SECTION TO READ DISK*.3IJ..* DIRECTORY.
JAM *.PIT..***********************
.MI~..10900:.B(830)..32..5010..I...828:.
10640:.1,8,15: 2:.2,8,3," ".NM$:.10010:.
1360..I..I.828.AI...A:.A.256.5040.VI...I
,A:I.I.1:.5020..I...B(65440).135..924,18
9..I.....JD..169,1,32,195,255,169,36.2JN
..141,240,3,169,48,141,241.KJX..3,169,1,
162,8,160,0.IJ...32,186,255,169,2,162,24
0..J...160,3,32,189,255,32,192..J...255,
169,64,32,144,255,162.BJ...1,32,198,255,
32,144,255..J...32,207,255,32,207,255,32
..J...207,255,32,207,255,201,0..K...240,
58,32,204,255,32,228.9K(..255,201,32,208
,3,32,196.TK2..3,162,1,32,198,255,32.SK<
..207,255,168,32,207,255,72..KF..152,170
,104,32,205,221,169..KP..32,32,210,255,3
2,207,255.LKZ..201,0,208,8,169,13,32..KD
..210,255,76,115,3,32,210..LN..255,76,16
2,3,169,1,32.$LX..195,255,32,204,255,169
,204.CL...133,178,96,32,228,255,201.ZL..
.32,208,249,96,256.~L.'.********CHECK ER
ROR CHANNEL***..L.'.1,E,E$,S,D:.E.20.E.5
0...JL$'.".... .**THERE IS A DISK
ERROR.**."..L.'.".. ERROR"E.3)E$..
M8'.".. RECORD # ."R1.256.R2".".20)"F
IELD # ."I".".8MB'.".".14)"CHAR POS. ."X
.IML'.1,"I": 2: 1..MM'.".. DO YOU WANT T
HE DISK DIRECTORY ";:Z$."":.Z$:B.34:.104
80. MN'.Z$."Y"..".":.828.OMO'.".. PRESS
RETURN TO RESTART THE PROGRAM."..MP'.A$:
.A$."".10064..MQ'.A$..G(13)....MR'.160."
NV'.*****CHANGE RECORD# FORMAT****.BN`'R
2..(R1.256):R1.R1.256.R2:..FNJ'.**READ W
1 AND LO FROM REC#1***..NT'.1,"P"G(3.96)
G(1)G(0)G(1):.10010..N~'.2,W1,LO,W3:.100
10:..NN.'.". THE LAST RECORD WORKED ON W
AS .";..N.'.W3.0.."NONE.":.10150..N.'.W1
..O.'." THERE ARE ."LO".RECORDS CREATED.
":..CO.'.".. WHICH RECORD WOULD YOU LIKE
TO.IO.'..MOD'.*****WRITE W1 AND LO*****
*****..ON'.1,"P"G(3.96)G(1)G(0)G(1):.100
10..OX'.2,W1;R$;LO;R$;W3;R$:.10010:..XO.
'.********READ ONE WORD FROM****..O.'.**
******THE RELATIVE FILE*****.)P.'.1,"P"G
(3.96)G(R1)G(R2)G(X):.10010:O$."".<P.(.2
,O$:.10010:..`P.(.********WRITE ONE WORD
TO*****..P.(.********THE RELATIVE FILE*
****..P.(.1,"P"G(3.96)G(R1)G(R2)G(X):.10
010.AP((.2,O$;R$:.10010:...P2(.********R
EAD THE WHOLE REC.***..Q<(.********INTO
OO$( ).JAM ***.>QF(X.1:.I.1.FLDS:.1,"
P"G(3.96)G(R1)G(R2)G(X):.10010.UQP(X.X.C
H(I).1:.2,OO$(I):.10010:.OO$(I)."".OO$(I
)." "..QZ(.OO$(I)."EMPTY"....QD(.I.1.X.C
H(1).2..QN(.I:..IQX(.*****WRITE THE WHOL
E REC.***..Q.(.*****INTO OO$( ).JAM *
**..R.(X.1:.I.1.FLDS:.1,"P"G(3.96)G(R1)G
(R2)G(X):.10010.RR.(X.X.CH(I).1:.2,OO$(I
);R$:.10010:.I.1.X.CH(1).2.[R (.I:..R.(
.********* PRINT HEADER *******..R.(."."
G(14)". WELCOME TO RELATIVE FILE MANA
GER .".MR.(.NM$..""..10450.SRH(...RR(
.". RELATIVE FILE OPEN = ."NM$:...S.(
.******** INPUT LINE **********.AS.(Z$."
":." RELATIVE FILE ";Z$:..FS.(.H(Z$,1)."
Y"...B)".YES":Z$."Y":...S.(.H(Z$,1)."N".
..B)".NO":Z$."N":...S.)Z$."Q":...S.).Z$:
.Z$."".10510..S.)..VS").********* WRITE
HEADER *******..T,).".. RELATIVE FILE
MANAGER: WRITE RECORD ":..-T6).********
*RECORD EXISTS*******.?T@).W1.LO.I.99:..
ETJ)..NTT).". .*NO SUCH RECORD EXISTS*":
I.99:...T^).******** UPDATE HEADER *****
**.GTH)."... RELATIVE FILE MANAGER: UPD
ATE RECORDS ":...TR).********* READ HEA
DER *******..U|).".. RELATIVE FILE MAN
AGER: READ RECORD ":..CU.).***********
**PRESS ANY KEY****.OU.).". <<<PRESS AN
Y KEY TO CONTINUE >>>";..U.).A$:.A$."".1
0650..U.)...U.).**********MODIFY ME*****
****..U.).".. RELATIVE FILE MANAGER: E
DIT RECORD ":...VB).***********SEARCH
ME********.6VL).".. RELATIVE FILE MANA
GER: SEARCH RECORD ":..XVV).***********S
EARCH ME********..V.).".. RELATIVE FIL
E MANAGER: SORT RECORDS ":...V.).******
*****DELETE ME********..V.).".. RELATI
VE FILE MANAGER: DELETE RECORD ":...W.).
***********COPY ME********.8W.*."..
RELATIVE FILE MANAGER: COPY RECORD ":.
.ZW.*.***********PRINT ME********..W.*.
".. RELATIVE FILE MANAGER: PRINT RECOR
DS ":...W&*.*******PRINTER HEADERS******
..W0*.G(14) " RELATIVE FILE MANA
GER"..W:*...XD*.G(14)" FILE NAME
:"G(15)NM$:LN.LN.8..XN*...XX*..65)"PAGE
"PG:..PXB*.*******PRINTER RECORDS******
.SXL*.5,4:.M.1.L:.5:.M: 5:LN.LN.L:...XV*
.*******ADD RECORDS TITLE******.KX.*."..
RELATIVE FILE MANAGER: ADD RECORDS
":...X.*.*******ADD RECORDS TITLE******.
#Y.*.".. RELATIVE FILE MANAGER: READ D
IRECTORY":....
> CLICK IMAGE PREVIEW FOR FULL MODAL