FILE-MANAGER3
FILE INFORMATION
FILENAME(S): FILE-MANAGER3
FILE TYPE(S): PRG
FILE SIZE: 20K
FIRST SEEN: 2025-11-30 01:08:05
APPEARS ON: 2 disk(s)
FILE HASH
5be4f0678d1ccc8b36d12571953ae41245a4e6de556727f7b33918eddc4991f6
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| U TILITEIS | FILE-MANAGER3 | PRG | Treasure Chest - Wolfgang Rauprich | 17 | 7 | DOWNLOAD FILE |
| FREEWARE DISK NR | FILE-MANAGER3 | PRG | Treasure Chest - Wolfgang Rauprich | 17 | 7 | 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 20 20 20 46 |v.... ** F|
00000060: 49 4C 45 2D 4D 41 4E 41 47 45 52 20 20 20 20 20 |ILE-MANAGER |
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 46 00 8F 20 2A 2A 20 20 20 | **...F.. ** |
000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000E0: 20 20 20 20 20 20 20 20 20 2A 2A 00 12 09 50 00 | **...P.|
000000F0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000110: 2A 2A 00 44 09 96 00 86 41 41 24 28 35 30 30 29 |**.D....AA$(500)|
00000120: 2C 4E 25 28 35 30 30 29 3A 97 35 33 32 38 31 2C |,N%(500):.53281,|
00000130: 30 3A 99 22 05 22 C7 28 31 34 29 3A 97 36 35 30 |0:.".".(14):.650|
00000140: 2C 31 32 38 00 74 09 A0 00 4E 4D 24 B2 22 22 3A |,128.t...NM$."":|
00000150: 8D 31 30 34 32 30 3A 8B C2 28 34 39 31 35 32 29 |.10420:..(49152)|
00000160: B2 37 36 AF C2 28 34 39 32 35 37 29 B2 31 37 33 |.76..(49257).173|
00000170: A7 32 30 30 00 86 09 AA 00 97 36 34 36 2C C2 28 |.200......646,.(|
00000180: 35 33 32 38 31 29 00 C0 09 B4 00 99 22 11 11 4E |53281)......"..N|
00000190: 45 57 11 11 22 3A 99 22 4C 4F 41 44 22 C7 28 33 |EW..":."LOAD".(3|
000001A0: 34 29 22 52 45 4C 2E 46 49 4C 45 2E 42 4F 4F 54 |4)"REL.FILE.BOOT|
000001B0: 45 52 22 C7 28 33 34 29 22 2C 38 11 11 11 11 22 |ER".(34)",8...."|
000001C0: 00 FA 09 BE 00 99 22 52 55 4E 91 91 91 91 91 91 |......"RUN......|
000001D0: 91 91 91 91 91 91 91 91 22 3A 97 31 39 38 2C 33 |........":.198,3|
000001E0: 3A 97 36 33 31 2C 31 33 3A 97 36 33 32 2C 31 33 |:.631,13:.632,13|
000001F0: 3A 97 36 33 33 2C 31 33 3A 80 00 26 0A C8 00 99 |:.633,13:..&....|
00000200: 22 11 20 CE CF D4 C5 3A 20 C9 4E 20 41 4C 4C 20 |". ....: .N ALL |
00000210: 43 41 53 45 53 20 54 48 52 4F 55 47 48 4F 55 54 |CASES THROUGHOUT|
00000220: 20 54 48 49 53 22 00 50 0A D2 00 99 22 20 20 20 | THIS".P...." |
00000230: 20 20 50 52 4F 47 52 41 4D 2C 20 54 59 50 49 4E | PROGRAM, TYPIN|
00000240: 47 20 54 48 45 20 52 45 54 55 52 4E 20 4B 45 59 |G THE RETURN KEY|
00000250: 00 7A 0A DC 00 99 22 20 20 20 20 20 57 49 54 48 |.z...." WITH|
00000260: 20 20 4E 4F 20 20 4B 45 59 42 4F 41 52 44 20 20 | NO KEYBOARD |
00000270: 45 4E 54 52 59 20 57 49 4C 4C 00 A4 0A E6 00 99 |ENTRY WILL......|
00000280: 22 20 20 20 20 20 41 43 54 20 41 53 20 41 4E 20 |" ACT AS AN |
00000290: 45 53 43 41 50 45 20 46 52 4F 4D 20 57 48 41 54 |ESCAPE FROM WHAT|
000002A0: 45 56 45 52 00 BF 0A F0 00 99 22 20 20 20 20 20 |EVER......" |
000002B0: 59 4F 55 20 41 52 45 20 44 4F 49 4E 47 2E 11 00 |YOU ARE DOING...|
000002C0: FE 0A FA 00 99 22 11 20 D0 55 54 20 41 20 44 49 |.....". .UT A DI|
000002D0: 53 4B 20 46 4F 52 20 52 45 4C 41 54 49 56 45 20 |SK FOR RELATIVE |
000002E0: 46 49 4C 45 53 20 20 20 20 20 20 20 20 20 20 20 |FILES |
000002F0: 49 4E 20 54 48 45 20 44 52 49 56 45 2E 22 00 14 |IN THE DRIVE."..|
00000300: 0B 04 01 8B C2 28 38 33 30 29 B3 B1 33 32 A7 8D |.....(830)..32..|
00000310: 35 30 31 30 00 2C 0B 0E 01 99 22 9D 22 3B 3A 8D |5010.,....".";:.|
00000320: 31 30 36 34 30 3A 8D 31 30 34 32 30 00 4C 0B 18 |10640:.10420.L..|
00000330: 01 9F 31 2C 38 2C 31 35 2C 22 49 22 3A 52 24 B2 |..1,8,15,"I":R$.|
00000340: C7 28 31 33 29 3A 4E 4D 24 B2 22 22 00 90 0B 22 |.(13):NM$.""..."|
00000350: 01 42 B2 31 37 3A 5A 24 B2 22 22 3A 99 22 11 20 |.B.17:Z$."":.". |
00000360: C4 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 43 |.O YOU WANT TO C|
00000370: 52 45 41 54 45 20 41 20 42 52 41 4E 44 20 4E 45 |REATE A BRAND NE|
00000380: 57 22 3A 8D 31 30 34 37 30 3A 8D 31 30 34 38 30 |W":.10470:.10480|
00000390: 00 A1 0B 2C 01 8B 5A 24 B3 B1 22 51 22 A7 33 34 |...,..Z$.."Q".34|
000003A0: 30 00 D5 0B 36 01 99 22 11 20 C4 4F 20 59 4F 55 |0...6..". .O YOU|
000003B0: 20 57 41 4E 54 20 54 4F 20 51 55 49 54 22 3B 3A | WANT TO QUIT";:|
000003C0: 5A 24 B2 22 22 3A 85 5A 24 3A 42 B2 32 32 3A 8D |Z$."":.Z$:B.22:.|
000003D0: 31 30 34 38 30 00 ED 0B 40 01 8B 5A 24 B2 22 4E |10480...@..Z$."N|
000003E0: 22 A7 8D 31 30 34 32 30 3A 89 32 39 30 00 F9 0B |"..10420:.290...|
000003F0: 4A 01 A0 32 3A A0 31 3A 80 00 09 0C 54 01 8B 5A |J..2:.1:....T..Z|
00000400: 24 B2 22 59 22 A7 35 36 30 00 32 0C 5E 01 99 22 |$."Y".560.2.^.."|
00000410: 11 20 D7 48 41 54 20 49 53 20 54 48 45 20 4E 41 |. .HAT IS THE NA|
00000420: 4D 45 20 4F 46 20 59 4F 55 52 22 3A 8D 31 30 34 |ME OF YOUR":.104|
00000430: 37 30 00 52 0C 68 01 4E 4D 24 B2 5A 24 3A 5A B2 |70.R.h.NM$.Z$:Z.|
00000440: C3 28 4E 4D 24 29 3A 8B 4E 4D 24 B2 22 22 A7 33 |.(NM$):.NM$."".3|
00000450: 31 30 00 82 0C 72 01 8B 5A B1 31 35 A7 8D 31 30 |10...r..Z.15..10|
00000460: 34 32 30 3A 99 22 11 20 12 C6 49 4C 45 20 4E 41 |420:.". ..ILE NA|
00000470: 4D 45 20 54 4F 4F 20 4C 4F 4E 47 2E 22 3A 89 32 |ME TOO LONG.":.2|
00000480: 39 30 00 A0 0C 7C 01 4D 4E 24 B2 4E 4D 24 3A 8B |90...|.MN$.NM$:.|
00000490: 5A B1 36 A7 4D 4E 24 B2 C8 28 4E 4D 24 2C 36 29 |Z.6.MN$..(NM$,6)|
000004A0: 00 CC 0C 86 01 9F 32 2C 38 2C 33 2C 22 20 22 AA |......2,8,3," ".|
000004B0: 4E 4D 24 3A 8D 31 30 30 31 30 3A 8F 20 44 4F 45 |NM$:.10010:. DOE|
000004C0: 53 20 46 49 4C 45 20 45 58 49 53 54 00 03 0D 90 |S FILE EXIST....|
000004D0: 01 A0 36 3A 9F 36 2C 38 2C 37 2C 22 20 22 AA 4D |..6:.6,8,7," ".M|
000004E0: 4E 24 AA 22 2F 4B 45 59 2C 53 2C 52 22 3A 84 36 |N$."/KEY,S,R":.6|
000004F0: 2C 46 4C 44 53 2C 44 46 2C 50 4F 25 3A 8D 31 30 |,FLDS,DF,PO%:.10|
00000500: 30 31 30 00 0F 0D 9A 01 44 46 25 B2 32 35 33 00 |010.....DF%.253.|
00000510: 41 0D AE 01 8D 31 30 34 32 30 3A 99 22 11 20 12 |A....10420:.". .|
00000520: 22 4E 4D 24 22 92 20 48 41 53 20 12 22 46 4C 44 |"NM$". HAS ."FLD|
00000530: 53 22 92 46 49 45 4C 44 53 20 43 52 45 41 54 45 |S".FIELDS CREATE|
00000540: 44 00 72 0D B8 01 99 22 20 41 4E 44 20 41 20 52 |D.r...." AND A R|
00000550: 45 43 4F 52 44 20 4C 45 4E 47 54 48 20 4F 46 20 |ECORD LENGTH OF |
00000560: 12 22 44 46 22 92 43 48 41 52 41 43 54 45 52 53 |."DF".CHARACTERS|
00000570: 2E 22 00 A0 0D C2 01 99 22 11 20 C6 C9 C5 CC C4 |."......". .....|
00000580: A0 23 22 A3 31 32 29 22 D4 C9 D4 CC C5 22 A3 32 |.#".12)".....".2|
00000590: 37 29 22 C3 C8 C1 D2 2E 20 CC C5 CE C7 D4 C8 22 |7)"..... ......"|
000005A0: 00 CE 0D CC 01 99 22 20 B7 B7 B7 B7 B7 B7 B7 22 |......" ......."|
000005B0: A3 31 32 29 22 B7 B7 B7 B7 B7 22 A3 32 37 29 22 |.12)".....".27)"|
000005C0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 11 22 00 EC |............."..|
000005D0: 0D D6 01 81 49 B2 31 A4 46 4C 44 53 3A 84 36 2C |....I.1.FLDS:.6,|
000005E0: 43 48 28 49 29 2C 43 48 24 28 49 29 00 09 0E E0 |CH(I),CH$(I)....|
000005F0: 01 99 A3 33 29 49 A3 31 31 29 43 48 24 28 49 29 |...3)I.11)CH$(I)|
00000600: A3 33 32 29 43 48 28 49 29 00 13 0E EA 01 82 49 |.32)CH(I)......I|
00000610: 3A A0 36 00 3E 0E F4 01 8B 46 58 31 25 B2 39 A7 |:.6.>....FX1%.9.|
00000620: 99 22 11 11 11 22 3A 8D 31 30 36 34 30 3A 8D 31 |."...":.10640:.1|
00000630: 30 34 32 30 3A 99 22 11 22 3A 89 37 35 30 00 49 |0420:.".":.750.I|
00000640: 0E FE 01 8D 31 30 31 30 30 00 86 0E 08 02 9F 36 |....10100......6|
00000650: 2C 38 2C 37 2C 22 20 22 AA 4D 4E 24 AA 22 2F 53 |,8,7," ".MN$."/S|
00000660: 4F 52 54 20 4B 45 59 2C 53 2C 52 22 3A 8D 31 30 |ORT KEY,S,R":.10|
00000670: 30 31 30 3A 81 49 B2 31 A4 4C 4F 3A 84 36 2C 4E |010:.I.1.LO:.6,N|
00000680: 25 28 49 29 3A 82 00 9B 0E 12 02 99 22 11 11 11 |%(I):......."...|
00000690: 22 3A 8D 31 30 36 34 30 3A A0 36 00 A5 0E 1C 02 |":.10640:.6.....|
000006A0: 89 31 33 36 30 00 CB 0E 26 02 8F 20 2A 2A 2A 2A |.1360...&.. ****|
000006B0: 2A 2A 2A 20 43 52 45 41 54 45 20 4E 45 57 20 46 |*** CREATE NEW F|
000006C0: 49 4C 45 20 2A 2A 2A 2A 2A 2A 2A 00 F9 0E 30 02 |ILE *******...0.|
000006D0: 99 22 11 20 D7 48 41 54 20 44 4F 20 59 4F 55 20 |.". .HAT DO YOU |
000006E0: 57 41 4E 54 20 54 4F 20 43 41 4C 4C 20 59 4F 55 |WANT TO CALL YOU|
000006F0: 52 22 3A 8D 31 30 34 37 30 00 19 0F 3A 02 4E 4D |R":.10470...:.NM|
00000700: 24 B2 5A 24 3A 5A B2 C3 28 4E 4D 24 29 3A 8B 4E |$.Z$:Z..(NM$):.N|
00000710: 4D 24 B2 22 22 A7 33 31 30 00 49 0F 44 02 8B 5A |M$."".310.I.D..Z|
00000720: B1 31 35 A7 8D 31 30 34 32 30 3A 99 22 11 20 12 |.15..10420:.". .|
00000730: C6 49 4C 45 20 4E 41 4D 45 20 54 4F 4F 20 4C 4F |.ILE NAME TOO LO|
00000740: 4E 47 2E 22 3A 89 35 36 30 00 75 0F 4E 02 A0 32 |NG.":.560.u.N..2|
00000750: 3A 9F 32 2C 38 2C 33 2C 22 20 22 AA 4E 4D 24 3A |:.2,8,3," ".NM$:|
00000760: 84 31 2C 45 2C 45 24 2C 43 2C 44 3A 8B 45 B2 36 |.1,E,E$,C,D:.E.6|
00000770: 32 A7 36 34 30 00 9C 0F 58 02 99 22 11 20 D4 48 |2.640...X..". .H|
00000780: 41 54 20 46 49 4C 45 20 4E 41 4D 45 20 41 4C 52 |AT FILE NAME ALR|
00000790: 45 41 44 59 20 45 58 49 53 54 53 2E 00 CB 0F 62 |EADY EXISTS....b|
000007A0: 02 5A 24 B2 22 22 3A 85 22 20 C4 4F 20 59 4F 55 |.Z$."":." .O YOU|
000007B0: 20 57 41 4E 54 20 54 4F 20 57 52 49 54 45 20 4F | WANT TO WRITE O|
000007C0: 56 45 52 20 49 54 20 22 3B 5A 24 00 D4 0F 6C 02 |VER IT ";Z$...l.|
000007D0: 42 B2 33 32 00 FA 0F 76 02 8D 31 30 34 38 30 3A |B.32...v..10480:|
000007E0: 8B 5A 24 B2 22 51 22 B0 5A 24 B2 22 4E 22 A7 8D |.Z$."Q".Z$."N"..|
000007F0: 31 30 34 32 30 3A 89 35 36 30 00 18 10 80 02 4D |10420:.560.....M|
00000800: 4E 24 B2 4E 4D 24 3A 8B 5A B1 36 A7 4D 4E 24 B2 |N$.NM$:.Z.6.MN$.|
00000810: C8 28 4E 4D 24 2C 36 29 00 2D 10 8A 02 8B 45 B2 |.(NM$,6).-....E.|
00000820: 36 32 A7 5A 24 B2 22 22 3A 89 37 30 30 00 60 10 |62.Z$."":.700.`.|
00000830: 94 02 5A 24 B2 22 22 3A 99 22 11 20 C4 4F 20 59 |..Z$."":.". .O Y|
00000840: 4F 55 20 57 41 4E 54 20 54 4F 20 4B 45 45 50 20 |OU WANT TO KEEP |
00000850: 54 48 45 20 46 49 45 4C 44 20 54 49 54 4C 45 53 |THE FIELD TITLES|
00000860: 00 8C 10 9E 02 99 22 20 41 4E 44 20 54 48 45 49 |......" AND THEI|
00000870: 52 20 43 48 41 52 41 43 54 45 52 20 4C 45 4E 47 |R CHARACTER LENG|
00000880: 54 48 53 20 54 48 45 20 53 41 4D 45 00 CC 10 A8 |THS THE SAME....|
00000890: 02 99 22 20 41 53 20 54 48 45 59 20 57 45 52 45 |.." AS THEY WERE|
000008A0: 20 49 4E 20 54 48 45 20 4F 4C 44 20 12 22 4E 4D | IN THE OLD ."NM|
000008B0: 24 22 92 22 3B 3A 85 5A 24 3A 42 B2 C3 28 4E 4D |$".";:.Z$:B..(NM|
000008C0: 24 29 AA 32 36 3A 8D 31 30 34 38 30 00 E7 10 B2 |$).26:.10480....|
000008D0: 02 8B 5A 24 B2 22 51 22 A7 8D 31 30 34 32 30 3A |..Z$."Q"..10420:|
000008E0: A0 32 3A 89 32 39 30 00 FB 10 BC 02 A0 32 3A 98 |.2:.290......2:.|
000008F0: 31 2C 22 53 3A 20 22 AA 4E 4D 24 00 13 11 C6 02 |1,"S: ".NM$.....|
00000900: 8B 5A 24 B2 22 59 22 A7 46 58 31 25 B2 39 3A 89 |.Z$."Y".FX1%.9:.|
00000910: 37 33 30 00 2F 11 D0 02 98 31 2C 22 53 3A 20 22 |730./....1,"S: "|
00000920: AA 4D 4E 24 AA 22 2F 4B 45 59 2C 53 2C 20 22 00 |.MN$."/KEY,S, ".|
00000930: 50 11 DA 02 98 31 2C 22 53 3A 20 22 AA 4D 4E 24 |P....1,"S: ".MN$|
00000940: AA 22 2F 53 4F 52 54 20 4B 45 59 2C 53 2C 20 22 |."/SORT KEY,S, "|
00000950: 00 60 11 E4 02 8B 46 58 31 25 B2 39 A7 34 30 30 |.`....FX1%.9.400|
00000960: 00 98 11 EE 02 99 22 11 20 C8 4F 57 20 4D 41 4E |......". .OW MAN|
00000970: 59 20 52 45 43 4F 52 44 53 20 4C 4F 4E 47 22 3A |Y RECORDS LONG":|
00000980: 99 22 20 57 49 4C 4C 20 22 4E 4D 24 3B 3A 85 22 |." WILL "NM$;:."|
00000990: 20 42 45 20 22 3B 4C 4F 00 B5 11 F8 02 8B 4C 4F | BE ";LO......LO|
000009A0: B3 31 B0 4C 4F B1 35 30 30 A7 8D 31 30 34 32 30 |.1.LO.500..10420|
000009B0: 3A 89 37 35 30 00 C6 11 02 03 8B 46 58 31 25 B3 |:.750......FX1%.|
000009C0: B1 39 A7 37 39 30 00 E8 11 0C 03 99 22 11 20 C3 |.9.790......". .|
000009D0: 52 45 41 54 49 4E 47 20 46 49 4C 45 53 20 2E 2E |REATING FILES ..|
000009E0: 2E 22 3A 89 31 32 38 30 00 27 12 16 03 8D 31 30 |.":.1280.'....10|
000009F0: 34 32 30 3A 99 22 11 20 C8 4F 57 20 4D 41 4E 59 |420:.". .OW MANY|
00000A00: 20 46 49 45 4C 44 53 20 28 39 20 4D 41 58 29 20 | FIELDS (9 MAX) |
00000A10: 57 49 4C 4C 20 45 41 43 48 22 3A 50 4F 25 B2 31 |WILL EACH":PO%.1|
00000A20: 3A 46 4C 44 53 B2 30 00 5B 12 20 03 85 22 20 52 |:FLDS.0.[. .." R|
00000A30: 45 43 4F 52 44 20 48 41 56 45 20 22 3B 46 4C 44 |ECORD HAVE ";FLD|
00000A40: 53 3A 8B 46 4C 44 53 B3 31 B0 46 4C 44 53 B1 39 |S:.FLDS.1.FLDS.9|
00000A50: A7 99 22 91 91 22 3A 89 37 39 30 00 8C 12 2A 03 |.."..":.790...*.|
00000A60: 81 49 B2 31 A4 46 4C 44 53 3A 99 22 11 20 C5 4E |.I.1.FLDS:.". .N|
00000A70: 54 45 52 20 54 48 45 20 54 49 54 4C 45 20 46 4F |TER THE TITLE FO|
00000A80: 52 20 46 49 45 4C 44 20 23 12 22 49 00 BA 12 34 |R FIELD #."I...4|
00000A90: 03 43 48 24 28 49 29 B2 22 22 3A 85 22 20 28 32 |.CH$(I)."":." (2|
00000AA0: 30 20 43 48 41 52 41 43 54 45 52 53 20 4D 41 58 |0 CHARACTERS MAX|
00000AB0: 29 20 22 3B 43 48 24 28 49 29 00 EE 12 3E 03 8B |) ";CH$(I)...>..|
00000AC0: 43 48 24 28 49 29 B2 22 22 B0 C3 28 43 48 24 28 |CH$(I).""..(CH$(|
00000AD0: 49 29 29 B1 32 30 B0 C3 28 43 48 24 28 49 29 29 |I)).20..(CH$(I))|
00000AE0: B3 31 A7 8D 31 30 34 32 30 3A 89 38 31 30 00 FE |.1..10420:.810..|
00000AF0: 12 48 03 8B 49 B2 36 A7 8D 31 30 34 32 30 00 1F |.H..I.6..10420..|
00000B00: 13 52 03 8B C3 28 43 48 24 28 49 29 29 B1 50 4F |.R...(CH$(I)).PO|
00000B10: 25 A7 50 4F 25 B2 C3 28 43 48 24 28 49 29 29 00 |%.PO%..(CH$(I)).|
00000B20: 26 13 5C 03 82 49 00 5D 13 66 03 8D 31 30 34 32 |&.\..I.].f..1042|
00000B30: 30 3A 99 22 11 20 D4 48 45 20 46 4F 4C 4C 4F 57 |0:.". .HE FOLLOW|
00000B40: 49 4E 47 20 41 52 45 20 52 45 43 4F 52 44 20 46 |ING ARE RECORD F|
00000B50: 49 45 4C 44 20 54 49 54 4C 45 53 3B 22 00 89 13 |IELD TITLES;"...|
00000B60: 70 03 81 49 B2 31 A4 46 4C 44 53 3A 99 22 11 20 |p..I.1.FLDS:.". |
00000B70: C6 49 45 4C 44 20 23 22 49 A3 50 4F 25 AA 32 29 |.IELD #"I.PO%.2)|
00000B80: 43 48 24 28 49 29 3A 82 49 00 98 13 7A 03 42 B2 |CH$(I):.I...z.B.|
00000B90: 33 34 3A 5A 24 B2 22 22 00 CB 13 84 03 85 22 11 |34:Z$.""......".|
00000BA0: 20 C4 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 | .O YOU WANT TO |
00000BB0: 4D 41 4B 45 20 41 4E 59 20 43 48 41 4E 47 45 53 |MAKE ANY CHANGES|
00000BC0: 22 3B 5A 24 3A 8D 31 30 34 38 30 00 E3 13 8E 03 |";Z$:.10480.....|
00000BD0: 8B 5A 24 B2 22 51 22 A7 99 22 91 91 91 22 3A 89 |.Z$."Q".."...":.|
00000BE0: 39 30 30 00 FC 13 98 03 8B 5A 24 B2 22 4E 22 A7 |900......Z$."N".|
00000BF0: 8D 31 30 34 32 30 3A 89 31 30 30 30 00 07 14 A2 |.10420:.1000....|
00000C00: 03 8D 31 30 34 32 30 00 2F 14 AC 03 85 22 11 20 |..10420./....". |
00000C10: D7 48 49 43 48 20 46 49 45 4C 44 20 22 3B 5A 3A |.HICH FIELD ";Z:|
00000C20: 8B 5A B3 31 B0 5A B1 46 4C 44 53 A7 38 37 30 00 |.Z.1.Z.FLDS.870.|
00000C30: 56 14 B6 03 99 22 11 20 C5 4E 54 45 52 20 54 48 |V....". .NTER TH|
00000C40: 45 20 54 49 54 4C 45 20 46 4F 52 20 46 49 45 4C |E TITLE FOR FIEL|
00000C50: 44 20 23 12 22 5A 00 7A 14 C0 03 85 22 20 28 32 |D #."Z.z...." (2|
00000C60: 30 20 43 48 41 52 41 43 54 45 52 53 20 4D 41 58 |0 CHARACTERS MAX|
00000C70: 29 20 22 3B 43 48 24 28 5A 29 00 AC 14 CA 03 8B |) ";CH$(Z)......|
00000C80: 43 48 24 28 5A 29 B2 22 22 B0 C3 28 43 48 24 28 |CH$(Z).""..(CH$(|
00000C90: 5A 29 29 B1 32 30 B0 C3 28 43 48 24 28 5A 29 29 |Z)).20..(CH$(Z))|
00000CA0: B3 31 A7 43 48 28 5A 29 B2 22 20 22 00 CD 14 D4 |.1.CH(Z)." "....|
00000CB0: 03 8B C3 28 43 48 24 28 5A 29 29 B1 50 4F 25 A7 |...(CH$(Z)).PO%.|
00000CC0: 50 4F 25 B2 C3 28 43 48 24 28 5A 29 29 00 D6 14 |PO%..(CH$(Z))...|
00000CD0: DE 03 89 38 37 30 00 1B 15 E8 03 99 22 11 20 CE |...870......". .|
00000CE0: 4F 54 45 3A 20 CF 4E 4C 59 20 32 34 30 20 43 48 |OTE: .NLY 240 CH|
00000CF0: 41 52 41 43 54 45 52 53 20 54 4F 54 41 4C 20 46 |ARACTERS TOTAL F|
00000D00: 4F 52 20 22 3A 99 22 20 41 4C 4C 20 46 49 45 4C |OR ":." ALL FIEL|
00000D10: 44 53 20 41 4C 4C 4F 57 45 44 2E 00 4C 15 F2 03 |DS ALLOWED..L...|
00000D20: 44 46 B2 30 3A 81 49 B2 31 A4 46 4C 44 53 3A 99 |DF.0:.I.1.FLDS:.|
00000D30: 22 11 20 C5 4E 54 45 52 20 54 48 45 20 23 20 4F |". .NTER THE # O|
00000D40: 46 20 43 48 41 52 41 43 54 45 52 53 00 6D 15 FC |F CHARACTERS.m..|
00000D50: 03 99 22 20 46 4F 52 20 46 49 45 4C 44 20 23 12 |.." FOR FIELD #.|
00000D60: 22 49 22 92 22 3B 3A 85 43 48 28 49 29 00 96 15 |"I".";:.CH(I)...|
00000D70: 06 04 8B 43 48 28 49 29 B1 32 34 30 AB 46 4C 44 |...CH(I).240.FLD|
00000D80: 53 B0 43 48 28 49 29 B3 31 A7 8D 31 30 34 32 30 |S.CH(I).1..10420|
00000D90: 3A 89 31 30 30 30 00 A5 15 10 04 8B 49 B3 B1 36 |:.1000......I..6|
00000DA0: A7 31 30 37 30 00 CF 15 1A 04 8D 31 30 34 32 30 |.1070......10420|
00000DB0: 3A 99 22 11 20 C5 4E 54 45 52 20 54 48 45 20 23 |:.". .NTER THE #|
00000DC0: 20 4F 46 20 43 48 41 52 41 43 54 45 52 53 22 00 | OF CHARACTERS".|
00000DD0: EE 15 24 04 99 22 20 46 4F 52 20 46 49 45 4C 44 |..$.." FOR FIELD|
00000DE0: 20 23 12 22 49 22 92 20 22 43 48 28 49 29 00 1D | #."I". "CH(I)..|
00000DF0: 16 2E 04 44 46 B2 44 46 AA 43 48 28 49 29 3A 99 |...DF.DF.CH(I):.|
00000E00: A3 32 38 29 22 91 D4 4F 54 41 4C 3D 12 22 44 46 |.28)"..OTAL=."DF|
00000E10: 3A 8B 44 46 B3 32 34 31 A7 31 30 39 30 00 4F 16 |:.DF.241.1090.O.|
00000E20: 38 04 8D 31 30 34 32 30 3A 99 22 11 20 12 C3 48 |8..10420:.". ..H|
00000E30: 41 52 41 43 54 45 52 20 54 4F 54 41 4C 20 54 4F |ARACTER TOTAL TO|
00000E40: 4F 20 47 52 45 41 54 2E 22 3A 89 31 30 30 30 00 |O GREAT.":.1000.|
00000E50: 56 16 42 04 82 49 00 9A 16 4C 04 8D 31 30 34 32 |V.B..I...L..1042|
00000E60: 30 3A 99 22 20 D4 48 45 20 46 4F 4C 4C 4F 57 49 |0:." .HE FOLLOWI|
00000E70: 4E 47 20 41 52 45 20 52 45 43 4F 52 44 20 46 49 |NG ARE RECORD FI|
00000E80: 45 4C 44 22 3A 99 22 20 43 48 41 52 41 43 54 45 |ELD":." CHARACTE|
00000E90: 52 20 4C 45 4E 47 54 48 53 3B 00 C4 16 56 04 44 |R LENGTHS;...V.D|
00000EA0: 46 B2 30 3A 81 49 B2 31 A4 46 4C 44 53 3A 99 22 |F.0:.I.1.FLDS:."|
00000EB0: 11 20 C6 49 45 4C 44 20 23 22 49 A3 31 38 29 43 |. .IELD #"I.18)C|
00000EC0: 48 28 49 29 00 F1 16 60 04 44 46 B2 44 46 AA 43 |H(I)...`.DF.DF.C|
00000ED0: 48 28 49 29 3A 99 A3 32 38 29 22 91 D3 55 4D 3D |H(I):..28)"..UM=|
00000EE0: 12 22 44 46 3A 8B 44 46 B1 32 34 33 A7 31 30 38 |."DF:.DF.243.108|
00000EF0: 30 00 0F 17 6A 04 8B 49 B2 46 4C 44 53 A7 99 A3 |0...j..I.FLDS...|
00000F00: 32 38 29 22 91 D4 4F 54 41 4C 3D 12 22 44 46 00 |28)"..OTAL=."DF.|
00000F10: 21 17 74 04 82 49 3A 42 B2 33 34 3A 5A 24 B2 22 |!.t..I:B.34:Z$."|
00000F20: 22 00 5A 17 7E 04 5A 24 B2 22 22 3A 85 22 11 20 |".Z.~.Z$."":.". |
00000F30: C4 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 4D |.O YOU WANT TO M|
00000F40: 41 4B 45 20 41 4E 59 20 43 48 41 4E 47 45 53 22 |AKE ANY CHANGES"|
00000F50: 3B 5A 24 3A 8D 31 30 34 38 30 00 73 17 88 04 8B |;Z$:.10480.s....|
00000F60: 5A 24 B2 22 51 22 A7 99 22 91 91 91 22 3A 89 31 |Z$."Q".."...":.1|
00000F70: 31 35 30 00 84 17 92 04 8B 5A 24 B2 22 4E 22 A7 |150......Z$."N".|
00000F80: 31 32 34 30 00 8F 17 9C 04 8D 31 30 34 32 30 00 |1240......10420.|
00000F90: BC 17 A6 04 5A B2 30 3A 85 22 11 20 D7 48 49 43 |....Z.0:.". .HIC|
00000FA0: 48 20 46 49 45 4C 44 20 22 3B 5A 3A 8B 5A B3 31 |H FIELD ";Z:.Z.1|
00000FB0: B0 5A B1 46 4C 44 53 A7 31 31 30 30 00 ED 17 B0 |.Z.FLDS.1100....|
00000FC0: 04 44 46 B2 30 3A 81 49 B2 31 A4 46 4C 44 53 3A |.DF.0:.I.1.FLDS:|
00000FD0: 99 22 11 20 C5 4E 54 45 52 20 54 48 45 20 23 20 |.". .NTER THE # |
00000FE0: 4F 46 20 43 48 41 52 41 43 54 45 52 53 00 0E 18 |OF CHARACTERS...|
00000FF0: BA 04 99 22 20 46 4F 52 20 46 49 45 4C 44 20 23 |..." FOR FIELD #|
00001000: 12 22 5A 22 92 22 3B 3A 85 43 48 28 5A 29 00 2D |."Z".";:.CH(Z).-|
00001010: 18 C4 04 8B 43 48 28 5A 29 B1 32 33 35 B0 43 48 |....CH(Z).235.CH|
00001020: 28 5A 29 B3 31 A7 43 48 28 5A 29 B2 31 00 37 18 |(Z).1.CH(Z).1.7.|
00001030: CE 04 89 31 31 30 30 00 5B 18 D8 04 8D 31 30 34 |...1100.[....104|
00001040: 32 30 3A 99 22 11 20 C3 52 45 41 54 49 4E 47 20 |20:.". .REATING |
00001050: 46 49 4C 45 53 2E 2E 2E 2E 2E 22 00 95 18 E2 04 |FILES.....".....|
00001060: A0 36 3A 9F 36 2C 38 2C 37 2C 22 20 22 AA 4D 4E |.6:.6,8,7," ".MN|
00001070: 24 AA 22 2F 4B 45 59 2C 53 2C 57 22 3A 98 36 2C |$."/KEY,S,W":.6,|
00001080: 46 4C 44 53 3B 52 24 3B 44 46 3B 52 24 3B 50 4F |FLDS;R$;DF;R$;PO|
00001090: 25 3B 52 24 3B 00 C0 18 EC 04 81 49 B2 31 A4 46 |%;R$;......I.1.F|
000010A0: 4C 44 53 3A 98 36 2C 43 48 28 49 29 3B 52 24 3B |LDS:.6,CH(I);R$;|
000010B0: 43 48 24 28 49 29 3B 52 24 3B 3A 82 49 3A A0 36 |CH$(I);R$;:.I:.6|
000010C0: 00 CB 18 F6 04 46 58 31 25 B2 30 00 FE 18 00 05 |.....FX1%.0.....|
000010D0: 9F 36 2C 38 2C 37 2C 22 20 22 AA 4D 4E 24 AA 22 |.6,8,7," ".MN$."|
000010E0: 2F 53 4F 52 54 20 4B 45 59 2C 53 2C 57 22 3A 81 |/SORT KEY,S,W":.|
000010F0: 49 B2 31 A4 4C 4F 3A 4E 25 28 49 29 B2 49 00 11 |I.1.LO:N%(I).I..|
00001100: 19 0A 05 98 36 2C 49 3B 52 24 3B 3A 82 49 3A A0 |....6,I;R$;:.I:.|
00001110: 36 00 1D 19 14 05 44 46 25 B2 32 35 33 00 40 19 |6.....DF%.253.@.|
00001120: 28 05 A0 32 3A 9F 32 2C 38 2C 33 2C 22 20 22 AA |(..2:.2,8,3," ".|
00001130: 4E 4D 24 AA 22 2C 4C 2C 22 AA C7 28 44 46 25 29 |NM$.",L,"..(DF%)|
00001140: 00 76 19 32 05 57 31 B2 31 3A 57 33 B2 30 3A 8D |.v.2.W1.1:W3.0:.|
00001150: 31 30 31 39 30 3A 4F 24 B2 22 45 4D 50 54 59 22 |10190:O$."EMPTY"|
00001160: 3A 81 49 B2 32 A4 4C 4F AA 31 3A 52 31 B2 49 3A |:.I.2.LO.1:R1.I:|
00001170: 8D 31 30 30 38 30 00 A9 19 3C 05 58 B2 31 3A 8D |.10080...<.X.1:.|
00001180: 31 30 32 37 30 3A 99 22 11 11 20 D2 C5 C3 CF D2 |10270:.".. .....|
00001190: C4 20 12 22 49 AB 31 22 92 20 C3 D2 C5 C1 D4 C5 |. ."I.1". ......|
000011A0: C4 2E 91 91 91 22 3A 82 49 00 BC 19 46 05 8B 46 |.....":.I...F..F|
000011B0: 58 31 25 B2 39 A7 46 58 31 25 B2 30 00 C7 19 50 |X1%.9.FX1%.0...P|
000011C0: 05 8D 31 30 34 32 30 00 F1 19 5A 05 99 22 11 20 |..10420...Z..". |
000011D0: CF 4B 41 59 2C 20 57 48 41 54 20 4F 50 45 52 41 |.KAY, WHAT OPERA|
000011E0: 54 49 4F 4E 20 44 49 44 20 59 4F 55 20 57 41 4E |TION DID YOU WAN|
000011F0: 54 00 07 1A 64 05 99 22 20 54 4F 20 50 45 52 46 |T...d.." TO PERF|
00001200: 4F 52 4D 20 3F 11 22 00 21 1A 6E 05 99 22 20 20 |ORM ?.".!.n.." |
00001210: D7 52 49 54 45 20 20 20 20 20 28 57 29 20 20 3F |.RITE (W) ?|
00001220: 22 00 3B 1A 78 05 99 22 20 20 D2 45 41 44 20 20 |".;.x.." .EAD |
00001230: 20 20 20 20 28 52 29 20 20 3F 22 00 55 1A 82 05 | (R) ?".U...|
00001240: 99 22 20 20 D5 50 44 41 54 45 20 20 20 20 28 55 |." .PDATE (U|
00001250: 29 20 20 3F 22 00 6F 1A 8C 05 99 22 20 20 CD 4F |) ?".o...." .O|
00001260: 44 49 46 59 20 20 20 20 28 4D 29 20 20 3F 22 00 |DIFY (M) ?".|
00001270: 89 1A 96 05 99 22 20 20 D3 45 41 52 43 48 20 20 |....." .EARCH |
00001280: 20 20 28 53 29 20 20 3F 22 00 A3 1A A0 05 99 22 | (S) ?"......"|
00001290: 20 20 D3 4F 52 54 20 20 20 20 20 20 28 53 4F 29 | .ORT (SO)|
000012A0: 20 3F 22 00 BD 1A AA 05 99 22 20 20 C4 45 4C 45 | ?"......" .ELE|
000012B0: 54 45 20 20 20 20 28 44 45 29 20 3F 22 00 D7 1A |TE (DE) ?"...|
000012C0: B4 05 99 22 20 20 D2 45 53 54 41 52 54 20 20 20 |..." .ESTART |
000012D0: 28 52 45 29 20 3F 22 00 F1 1A BE 05 99 22 20 20 |(RE) ?"......" |
000012E0: D0 52 49 4E 54 20 20 20 20 20 28 50 29 20 20 3F |.RINT (P) ?|
000012F0: 22 00 0B 1B C8 05 99 22 20 20 C1 44 44 20 4F 4E |"......" .DD ON|
00001300: 20 20 20 20 28 41 29 20 20 3F 22 00 25 1B D2 05 | (A) ?".%...|
00001310: 99 22 20 20 C3 4F 50 59 20 20 20 20 20 20 28 43 |." .OPY (C|
00001320: 29 20 20 3F 22 00 3F 1B DC 05 99 22 20 20 C4 49 |) ?".?...." .I|
00001330: 52 45 43 54 4F 52 59 20 28 44 29 20 20 3F 22 00 |RECTORY (D) ?".|
00001340: 59 1B E6 05 99 22 20 20 C5 4E 44 20 20 20 20 20 |Y...." .ND |
00001350: 20 20 28 45 29 20 20 3F 22 00 7A 1B F0 05 4C 24 | (E) ?".z...L$|
00001360: B2 22 22 3A 85 22 11 20 C9 4E 50 55 54 20 41 20 |."":.". .NPUT A |
00001370: 4C 45 54 54 45 52 22 3B 4C 24 00 92 1B FA 05 8B |LETTER";L$......|
00001380: 4C 24 B2 22 22 A7 99 22 91 91 91 22 3A 89 31 35 |L$."".."...":.15|
00001390: 32 30 00 A3 1B 04 06 8B 4C 24 B2 22 57 22 A7 31 |20......L$."W".1|
000013A0: 37 32 30 00 B4 1B 0E 06 8B 4C 24 B2 22 52 22 A7 |720......L$."R".|
000013B0: 32 31 36 30 00 C5 1B 18 06 8B 4C 24 B2 22 55 22 |2160......L$."U"|
000013C0: A7 31 39 39 30 00 D6 1B 22 06 8B 4C 24 B2 22 4D |.1990..."..L$."M|
000013D0: 22 A7 32 33 38 30 00 E7 1B 2C 06 8B 4C 24 B2 22 |".2380...,..L$."|
000013E0: 53 22 A7 32 37 35 30 00 F9 1B 36 06 8B 4C 24 B2 |S".2750...6..L$.|
000013F0: 22 53 4F 22 A7 33 35 30 30 00 0B 1C 40 06 8B 4C |"SO".3500...@..L|
00001400: 24 B2 22 44 45 22 A7 33 39 33 30 00 38 1C 4A 06 |$."DE".3930.8.J.|
00001410: 8B 4C 24 B2 22 52 45 22 A7 4E 4D 24 B2 22 22 3A |.L$."RE".NM$."":|
00001420: 8D 31 30 34 32 30 3A 8D 31 30 31 39 30 3A A0 32 |.10420:.10190:.2|
00001430: 3A A0 31 3A 89 32 38 30 00 49 1C 54 06 8B 4C 24 |:.1:.280.I.T..L$|
00001440: B2 22 50 22 A7 34 33 39 30 00 5A 1C 5E 06 8B 4C |."P".4390.Z.^..L|
00001450: 24 B2 22 41 22 A7 34 37 39 30 00 6B 1C 68 06 8B |$."A".4790.k.h..|
00001460: 4C 24 B2 22 43 22 A7 34 31 30 30 00 7C 1C 72 06 |L$."C".4100.|.r.|
00001470: 8B 4C 24 B2 22 44 22 A7 34 39 39 30 00 97 1C 7C |.L$."D".4990...||
00001480: 06 8B 4C 24 B2 22 45 22 A7 8D 31 30 31 39 30 3A |..L$."E"..10190:|
00001490: A0 32 3A A0 31 3A 80 00 BF 1C 86 06 8D 31 30 34 |.2:.1:.......104|
000014A0: 32 30 3A 99 22 11 20 D6 45 52 59 20 46 55 4E 4E |20:.". .ERY FUNN|
000014B0: 59 20 48 41 2D 48 41 2E 22 3A 89 31 33 37 30 00 |Y HA-HA.":.1370.|
000014C0: E4 1C 90 06 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********|
000014D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000014E0: 2A 2A 2A 2A 00 09 1D 9A 06 8F 20 2A 20 54 48 49 |****...... * THI|
000014F0: 53 20 53 45 43 54 49 4F 4E 20 57 52 49 54 45 53 |S SECTION WRITES|
00001500: 20 52 45 43 4F 52 44 53 2A 00 2E 1D A4 06 8F 20 | RECORDS*...... |
00001510: 2A 20 4F 4E 20 54 48 45 20 44 49 53 4B 2E 20 57 |* ON THE DISK. W|
00001520: 52 49 54 45 20 4F 4E 21 20 20 20 20 20 2A 00 53 |RITE ON! *.S|
00001530: 1D AE 06 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
00001540: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001550: 2A 2A 2A 00 6C 1D B8 06 8D 31 30 35 34 30 3A 8D |***.l....10540:.|
00001560: 31 30 31 32 30 3A 8D 31 30 31 36 30 00 A3 1D C2 |10120:.10160....|
00001570: 06 57 32 B2 57 31 3A 57 31 24 B2 22 30 22 3A 85 |.W2.W1:W1$."0":.|
00001580: 22 20 57 52 49 54 45 20 54 4F 20 28 30 3D 51 55 |" WRITE TO (0=QU|
00001590: 49 54 29 20 22 3B 57 31 24 3A 57 31 B2 C5 28 57 |IT) ";W1$:W1..(W|
000015A0: 31 24 29 00 BA 1D CC 06 8B 57 31 B3 B2 30 A7 57 |1$)......W1..0.W|
000015B0: 31 B2 57 32 3A 89 31 33 36 30 00 D5 1D D6 06 49 |1.W2:.1360.....I|
000015C0: B2 30 3A 8D 31 30 35 36 30 3A 8B 49 B3 B1 39 39 |.0:.10560:.I..99|
000015D0: A7 31 37 37 30 00 01 1E E0 06 8D 31 30 35 34 30 |.1770......10540|
000015E0: 3A 8D 31 30 35 38 30 3A 57 31 B2 57 32 3A 8D 31 |:.10580:W1.W2:.1|
000015F0: 30 31 32 30 3A 8D 31 30 31 36 30 3A 89 31 37 33 |0120:.10160:.173|
00001600: 30 00 18 1E EA 06 52 31 B2 4E 25 28 57 31 29 AA |0.....R1.N%(W1).|
00001610: 31 3A 8D 31 30 30 38 30 00 38 1E F4 06 58 B2 31 |1:.10080.8...X.1|
00001620: 3A 8D 31 30 32 33 30 3A 8B 4F 24 B2 22 45 4D 50 |:.10230:.O$."EMP|
00001630: 54 59 22 A7 31 38 32 30 00 6D 1E FE 06 99 22 11 |TY".1820.m....".|
00001640: 20 D2 45 43 4F 52 44 20 23 20 12 22 57 31 22 92 | .ECORD # ."W1".|
00001650: 41 4C 52 45 41 44 59 20 43 4F 4E 54 41 49 4E 53 |ALREADY CONTAINS|
00001660: 20 44 41 54 41 2E 22 3A 5A 24 B2 22 22 00 A4 1E | DATA.":Z$.""...|
00001670: 08 07 99 22 20 C4 4F 20 59 4F 55 20 57 41 4E 54 |..." .O YOU WANT|
00001680: 20 54 4F 20 57 52 49 54 45 20 4F 56 45 52 20 49 | TO WRITE OVER I|
00001690: 54 20 22 3B 3A 85 5A 24 3A 42 B2 33 32 3A 8D 31 |T ";:.Z$:B.32:.1|
000016A0: 30 34 38 30 00 D8 1E 12 07 8B 5A 24 B2 22 51 22 |0480......Z$."Q"|
000016B0: B0 5A 24 B2 22 4E 22 A7 57 31 B2 57 32 3A 8D 31 |.Z$."N".W1.W2:.1|
000016C0: 30 35 34 30 3A 8D 31 30 31 32 30 3A 8D 31 30 31 |0540:.10120:.101|
000016D0: 36 30 3A 89 31 37 33 30 00 FF 1E 1C 07 8D 31 30 |60:.1730......10|
000016E0: 35 34 30 3A 8D 31 30 31 32 30 3A 99 22 11 20 D2 |540:.10120:.". .|
000016F0: 45 43 4F 52 44 20 23 12 22 57 31 22 92 11 22 00 |ECORD #."W1"..".|
00001700: 32 1F 26 07 81 4A B2 31 A4 46 4C 44 53 3A 99 22 |2.&..J.1.FLDS:."|
00001710: 20 22 43 48 24 28 4A 29 A3 50 4F 25 AA 32 29 3B | "CH$(J).PO%.2);|
00001720: 3A 4F 4F 24 28 4A 29 B2 22 22 3A 85 4F 4F 24 28 |:OO$(J)."":.OO$(|
00001730: 4A 29 00 4C 1F 30 07 8B 4F 4F 24 28 4A 29 B2 22 |J).L.0..OO$(J)."|
00001740: 22 A7 4F 4F 24 28 4A 29 B2 22 20 22 00 78 1F 3A |".OO$(J)." ".x.:|
00001750: 07 8B C3 28 4F 4F 24 28 4A 29 29 B1 43 48 28 4A |...(OO$(J)).CH(J|
00001760: 29 A7 4F 4F 24 28 4A 29 B2 C8 28 4F 4F 24 28 4A |).OO$(J)..(OO$(J|
00001770: 29 2C 43 48 28 4A 29 29 00 7F 1F 44 07 82 4A 00 |),CH(J))...D..J.|
00001780: 9E 1F 4E 07 8D 31 30 35 34 30 3A 99 22 11 20 D2 |..N..10540:.". .|
00001790: 45 43 4F 52 44 20 23 12 22 57 31 22 92 22 00 CC |ECORD #."W1"."..|
000017A0: 1F 58 07 99 22 11 22 3A 81 49 B2 31 A4 46 4C 44 |.X..".":.I.1.FLD|
000017B0: 53 3A 99 22 20 22 43 48 24 28 49 29 A3 50 4F 25 |S:." "CH$(I).PO%|
000017C0: AA 33 29 4F 4F 24 28 49 29 3A 82 49 00 0A 20 62 |.3)OO$(I):.I.. b|
000017D0: 07 5A 24 B2 22 22 3A 85 22 11 11 20 C9 53 20 54 |.Z$."":.".. .S T|
000017E0: 48 49 53 20 52 49 47 48 54 20 28 51 3D 51 55 49 |HIS RIGHT (Q=QUI|
000017F0: 54 29 22 3B 5A 24 3A 8B 5A 24 B2 22 51 22 A7 5A |T)";Z$:.Z$."Q".Z|
00001800: 24 B2 22 22 3A 89 31 39 31 30 00 1C 20 6C 07 8B |$."":.1910.. l..|
00001810: 5A 24 B2 22 22 A7 5A 24 B2 22 59 22 00 39 20 76 |Z$."".Z$."Y".9 v|
00001820: 07 42 B2 32 35 3A 8D 31 30 34 38 30 3A 8B 5A 24 |.B.25:.10480:.Z$|
00001830: B2 22 4E 22 A7 31 38 32 30 00 66 20 80 07 8B 5A |."N".1820.f ...Z|
00001840: 24 B2 22 51 22 A7 8D 31 30 35 34 30 3A 57 31 B2 |$."Q"..10540:W1.|
00001850: 57 32 3A 8D 31 30 31 32 30 3A 8D 31 30 31 36 30 |W2:.10120:.10160|
00001860: 3A 89 31 37 33 30 00 9C 20 8A 07 8D 31 30 33 38 |:.1730.. ...1038|
00001870: 30 3A A0 32 3A 57 33 B2 57 31 3A 9F 32 2C 38 2C |0:.2:W3.W1:.2,8,|
00001880: 33 2C 22 20 22 AA 4E 4D 24 AA 22 2C 4C 2C 22 AA |3," ".NM$.",L,".|
00001890: C7 28 44 46 25 29 3A 89 31 37 32 30 00 C0 20 94 |.(DF%):.1720.. .|
000018A0: 07 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
000018B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000018C0: 00 E4 20 9E 07 8F 2A 20 54 48 49 53 20 49 53 20 |.. ...* THIS IS |
000018D0: 54 48 45 20 55 50 44 41 54 45 20 53 45 43 54 49 |THE UPDATE SECTI|
000018E0: 4F 4E 20 2A 00 08 21 A8 07 8F 2A 20 54 48 41 54 |ON *..!...* THAT|
000018F0: 20 54 45 4C 4C 53 20 43 4C 4F 57 4E 20 57 48 49 | TELLS CLOWN WHI|
00001900: 43 48 20 20 20 20 20 2A 00 2C 21 B2 07 8F 2A 20 |CH *.,!...* |
00001910: 52 45 43 4F 52 44 53 20 41 52 45 20 46 55 4C 4C |RECORDS ARE FULL|
00001920: 2E 20 20 20 20 20 20 20 20 20 20 2A 00 50 21 BC |. *.P!.|
00001930: 07 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
00001940: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001950: 00 75 21 C6 07 8D 31 30 36 30 30 3A 81 54 B2 31 |.u!...10600:.T.1|
00001960: A4 4C 4F 3A 52 31 B2 4E 25 28 54 29 AA 31 3A 8D |.LO:R1.N%(T).1:.|
00001970: 31 30 30 38 30 00 84 21 D0 07 58 B2 31 3A 8D 31 |10080..!..X.1:.1|
00001980: 30 32 33 30 00 B7 21 DA 07 99 22 20 D2 45 43 4F |0230..!..." .ECO|
00001990: 52 44 20 23 20 12 22 54 22 92 22 2C 3A 8B 4F 24 |RD # ."T".",:.O$|
000019A0: B3 B1 22 45 4D 50 54 59 22 A7 99 22 46 55 4C 4C |.."EMPTY".."FULL|
000019B0: 22 3A 89 32 30 33 30 00 BF 21 E4 07 99 4F 24 00 |":.2030..!...O$.|
000019C0: D7 21 EE 07 8B 54 AD 32 30 B3 B1 B5 28 54 AD 32 |.!...T.20...(T.2|
000019D0: 30 29 A7 32 30 36 30 00 05 22 F8 07 99 22 11 20 |0).2060.."...". |
000019E0: 20 20 20 20 D3 50 41 43 45 20 C2 41 52 20 53 54 | .PACE .AR ST|
000019F0: 4F 50 53 20 4C 49 53 54 49 4E 47 2E 91 22 3A 8D |OPS LISTING..":.|
00001A00: 31 30 36 34 30 00 1F 22 02 08 8D 31 30 36 30 30 |10640.."...10600|
00001A10: 3A 8B 41 24 B2 C7 28 33 32 29 A7 32 30 37 30 00 |:.A$..(32).2070.|
00001A20: 26 22 0C 08 82 54 00 4F 22 16 08 99 22 11 20 D4 |&"...T.O"...". .|
00001A30: 48 45 20 4C 41 53 54 20 52 45 43 4F 52 44 20 57 |HE LAST RECORD W|
00001A40: 4F 52 4B 45 44 20 4F 4E 20 57 41 53 20 22 3B 00 |ORKED ON WAS ";.|
00001A50: 68 22 20 08 8B 57 33 B2 30 A7 99 22 4E 4F 4E 45 |h" ..W3.0.."NONE|
00001A60: 2E 22 3A 89 32 31 30 30 00 70 22 2A 08 99 57 31 |.":.2100.p"*..W1|
00001A70: 00 87 22 34 08 99 22 11 11 22 3A 8D 31 30 36 34 |.."4.."..":.1064|
00001A80: 30 3A 89 31 33 36 30 00 AB 22 3E 08 8F 2A 2A 2A |0:.1360..">..***|
00001A90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001AA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CF 22 48 08 |***********.."H.|
00001AB0: 8F 2A 20 54 48 45 20 53 45 43 54 49 4F 4E 20 52 |.* THE SECTION R|
00001AC0: 45 41 44 53 20 54 48 45 20 20 20 20 20 20 2A 00 |EADS THE *.|
00001AD0: F3 22 52 08 8F 2A 20 52 45 51 55 49 52 45 44 20 |."R..* REQUIRED |
00001AE0: 52 45 43 4F 52 44 53 20 46 52 4F 4D 20 54 48 45 |RECORDS FROM THE|
00001AF0: 20 20 2A 00 17 23 5C 08 8F 2A 20 44 49 53 4B 2E | *..#\..* DISK.|
00001B00: 20 20 52 45 41 44 20 4F 46 46 20 20 20 20 20 20 | READ OFF |
00001B10: 20 20 20 20 20 20 2A 00 3B 23 66 08 8F 2A 2A 2A | *.;#f..***|
00001B20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001B30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 54 23 70 08 |***********.T#p.|
00001B40: 8D 31 30 36 32 30 3A 8D 31 30 31 32 30 3A 8D 31 |.10620:.10120:.1|
00001B50: 30 31 36 30 00 89 23 7A 08 57 32 B2 57 31 3A 57 |0160..#z.W2.W1:W|
00001B60: 31 24 B2 22 30 22 3A 99 22 20 52 45 41 44 20 28 |1$."0":." READ (|
00001B70: 30 3D 51 55 49 54 29 20 22 3B 3A 85 57 31 24 3A |0=QUIT) ";:.W1$:|
00001B80: 57 31 B2 C5 28 57 31 24 29 00 A4 23 84 08 49 B2 |W1..(W1$)..#..I.|
00001B90: 30 3A 8D 31 30 35 36 30 3A 8B 49 B3 B1 39 39 A7 |0:.10560:.I..99.|
00001BA0: 32 32 30 30 00 D4 23 8E 08 49 B2 30 3A 8D 31 30 |2200..#..I.0:.10|
00001BB0: 36 32 30 3A 8D 31 30 35 38 30 3A 57 31 B2 57 32 |620:.10580:W1.W2|
00001BC0: 3A 8D 31 30 31 32 30 3A 8D 31 30 31 36 30 3A 89 |:.10120:.10160:.|
00001BD0: 32 31 37 30 00 EB 23 98 08 8B 57 31 B3 B2 30 A7 |2170..#...W1..0.|
00001BE0: 57 31 B2 57 32 3A 89 31 33 36 30 00 02 24 A2 08 |W1.W2:.1360..$..|
00001BF0: 52 31 B2 4E 25 28 57 31 29 AA 31 3A 8D 31 30 30 |R1.N%(W1).1:.100|
00001C00: 38 30 00 23 24 AC 08 58 B2 31 3A 8D 31 30 32 33 |80.#$..X.1:.1023|
00001C10: 30 3A 8B 4F 24 B3 B1 22 45 4D 50 54 59 22 A7 32 |0:.O$.."EMPTY".2|
00001C20: 32 35 30 00 53 24 B6 08 8D 31 30 36 32 30 3A 99 |250.S$...10620:.|
00001C30: 22 11 20 D2 45 43 4F 52 44 20 23 20 12 22 57 31 |". .ECORD # ."W1|
00001C40: 22 92 20 49 53 20 12 22 4F 24 22 92 22 3A 57 31 |". IS ."O$".":W1|
00001C50: B2 57 32 00 6B 24 C0 08 8D 31 30 31 32 30 3A 8D |.W2.k$...10120:.|
00001C60: 31 30 31 36 30 3A 89 32 31 37 30 00 8B 24 CA 08 |10160:.2170..$..|
00001C70: 8D 31 30 36 32 30 3A 99 22 11 20 D2 45 43 4F 52 |.10620:.". .ECOR|
00001C80: 44 20 23 12 22 57 31 22 92 11 22 00 96 24 D4 08 |D #."W1".."..$..|
00001C90: 8D 31 30 33 31 30 00 BF 24 DE 08 81 49 B2 31 A4 |.10310..$...I.1.|
00001CA0: 46 4C 44 53 3A 99 22 20 22 43 48 24 28 49 29 A3 |FLDS:." "CH$(I).|
00001CB0: 50 4F 25 AA 33 29 4F 4F 24 28 49 29 3A 82 49 00 |PO%.3)OO$(I):.I.|
00001CC0: D0 24 E8 08 8D 31 30 31 36 30 3A 89 32 31 37 30 |.$...10160:.2170|
00001CD0: 00 F5 24 F2 08 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..$...**********|
00001CE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001CF0: 2A 2A 2A 2A 2A 00 1A 25 FC 08 8F 2A 20 54 48 49 |*****..%...* THI|
00001D00: 53 20 53 45 43 54 49 4F 4E 20 57 49 4C 4C 20 45 |S SECTION WILL E|
00001D10: 44 49 54 20 4F 55 52 20 20 2A 00 3F 25 06 09 8F |DIT OUR *.?%...|
00001D20: 2A 20 53 41 56 45 44 20 44 41 54 41 20 42 59 20 |* SAVED DATA BY |
00001D30: 52 45 41 44 49 4E 47 20 49 54 20 20 20 20 2A 00 |READING IT *.|
00001D40: 64 25 10 09 8F 2A 20 49 4E 54 4F 20 41 4E 20 41 |d%...* INTO AN A|
00001D50: 52 52 41 59 2C 20 41 53 4B 49 4E 47 20 57 48 41 |RRAY, ASKING WHA|
00001D60: 54 20 20 2A 00 89 25 1A 09 8F 2A 20 43 48 41 4E |T *..%...* CHAN|
00001D70: 47 45 53 20 43 4C 4F 57 4E 20 57 41 4E 54 53 20 |GES CLOWN WANTS |
00001D80: 54 4F 20 4D 41 4B 45 2C 2A 00 AE 25 24 09 8F 2A |TO MAKE,*..%$..*|
00001D90: 20 4D 4F 44 49 46 59 49 4E 47 20 54 48 45 20 41 | MODIFYING THE A|
00001DA0: 52 52 41 59 20 54 48 45 4E 20 20 20 20 2A 00 D3 |RRAY THEN *..|
00001DB0: 25 2E 09 8F 2A 20 53 41 56 45 49 4E 47 20 54 48 |%...* SAVEING TH|
00001DC0: 45 20 4D 4F 44 49 46 49 45 44 20 41 52 52 41 59 |E MODIFIED ARRAY|
00001DD0: 20 20 2A 00 F8 25 38 09 8F 2A 20 42 41 43 4B 20 | *..%8..* BACK |
00001DE0: 4F 4E 54 4F 20 54 48 45 20 44 49 53 4B 2E 20 20 |ONTO THE DISK. |
00001DF0: 20 20 20 20 20 20 20 2A 00 1D 26 42 09 8F 2A 2A | *..&B..**|
00001E00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001E10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 36 26 |*************.6&|
00001E20: 4C 09 8D 31 30 36 38 30 3A 8D 31 30 31 32 30 3A |L..10680:.10120:|
00001E30: 8D 31 30 31 36 30 00 6B 26 56 09 57 32 B2 57 31 |.10160.k&V.W2.W1|
00001E40: 3A 57 31 24 B2 22 30 22 3A 85 22 20 4D 4F 44 49 |:W1$."0":." MODI|
00001E50: 46 59 20 28 30 3D 51 55 49 54 29 20 22 3B 57 31 |FY (0=QUIT) ";W1|
00001E60: 24 3A 57 31 B2 C5 28 57 31 24 29 00 86 26 60 09 |$:W1..(W1$)..&`.|
00001E70: 49 B2 30 3A 8D 31 30 35 36 30 3A 8B 49 B3 B1 39 |I.0:.10560:.I..9|
00001E80: 39 A7 32 34 32 30 00 B6 26 6A 09 49 B2 30 3A 8D |9.2420..&j.I.0:.|
00001E90: 31 30 36 38 30 3A 8D 31 30 35 38 30 3A 57 31 B2 |10680:.10580:W1.|
00001EA0: 57 32 3A 8D 31 30 31 32 30 3A 8D 31 30 31 36 30 |W2:.10120:.10160|
00001EB0: 3A 89 32 33 39 30 00 CD 26 74 09 8B 57 31 B3 B2 |:.2390..&t..W1..|
00001EC0: 30 A7 57 31 B2 57 32 3A 89 31 33 36 30 00 E4 26 |0.W1.W2:.1360..&|
00001ED0: 7E 09 52 31 B2 4E 25 28 57 31 29 AA 31 3A 8D 31 |~.R1.N%(W1).1:.1|
00001EE0: 30 30 38 30 00 05 27 88 09 8D 31 30 33 31 30 3A |0080..'...10310:|
00001EF0: 8B 4F 4F 24 28 49 29 B3 B1 22 45 4D 50 54 59 22 |.OO$(I).."EMPTY"|
00001F00: A7 32 34 37 30 00 39 27 92 09 8D 31 30 36 38 30 |.2470.9'...10680|
00001F10: 3A 99 22 11 20 D2 45 43 4F 52 44 20 23 20 12 22 |:.". .ECORD # ."|
00001F20: 57 31 22 92 20 49 53 20 12 22 4F 4F 24 28 49 29 |W1". IS ."OO$(I)|
00001F30: 22 92 22 3A 57 31 B2 57 32 00 51 27 9C 09 8D 31 |".":W1.W2.Q'...1|
00001F40: 30 31 32 30 3A 8D 31 30 31 36 30 3A 89 32 33 39 |0120:.10160:.239|
00001F50: 30 00 78 27 A6 09 8D 31 30 36 38 30 3A 8D 31 30 |0.x'...10680:.10|
00001F60: 31 32 30 3A 99 22 11 20 D2 45 43 4F 52 44 20 23 |120:.". .ECORD #|
00001F70: 12 22 57 31 22 92 11 22 00 9B 27 B0 09 99 22 11 |."W1".."..'...".|
00001F80: 20 D7 48 49 43 48 20 4F 46 20 54 48 45 20 46 4F | .HICH OF THE FO|
00001F90: 4C 4C 4F 57 49 4E 47 20 44 4F 22 00 D4 27 BA 09 |LLOWING DO"..'..|
00001FA0: 99 22 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 4D |." YOU WANT TO M|
00001FB0: 4F 44 49 46 59 20 3F 22 3A 81 49 B2 31 A4 46 4C |ODIFY ?":.I.1.FL|
00001FC0: 44 53 3A 99 22 20 22 49 22 29 20 22 43 48 24 28 |DS:." "I") "CH$(|
00001FD0: 49 29 3A 82 00 F2 27 C4 09 99 22 20 22 46 4C 44 |I):...'..." "FLD|
00001FE0: 53 AA 31 22 29 20 12 D4 CF 20 D2 C5 D3 D4 C1 D2 |S.1") ... ......|
00001FF0: D4 22 00 28 28 CE 09 5A 24 B2 22 22 3A 85 22 11 |.".((..Z$."":.".|
00002000: 20 C5 4E 54 45 52 20 41 20 4E 55 4D 42 45 52 20 | .NTER A NUMBER |
00002010: 22 3B 5A 24 3A 8B 5A 24 B2 22 22 A7 99 22 91 91 |";Z$:.Z$."".."..|
00002020: 91 22 3A 89 32 35 31 30 00 47 28 D8 09 5A B2 C5 |.":.2510.G(..Z..|
00002030: 28 5A 24 29 3A 8B 5A B3 31 B0 5A B1 46 4C 44 53 |(Z$):.Z.1.Z.FLDS|
00002040: AA 31 A7 32 34 37 30 00 61 28 E2 09 8B 5A B2 46 |.1.2470.a(...Z.F|
00002050: 4C 44 53 AA 31 A7 57 31 B2 57 32 3A 89 32 33 38 |LDS.1.W1.W2:.238|
00002060: 30 00 6C 28 EC 09 8D 31 30 36 38 30 00 98 28 F6 |0.l(...10680..(.|
00002070: 09 99 22 11 11 20 D4 48 45 20 4F 4C 44 20 22 3B |..".. .HE OLD ";|
00002080: 43 48 24 28 5A 29 3B 22 20 49 53 20 22 3B 4F 4F |CH$(Z);" IS ";OO|
00002090: 24 28 5A 29 22 20 2E 22 00 CB 28 00 0A 99 22 11 |$(Z)" ."..(...".|
000020A0: 20 C4 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 | .O YOU WANT TO |
000020B0: 43 48 41 4E 47 45 20 49 54 22 3B 3A 85 5A 24 3A |CHANGE IT";:.Z$:|
000020C0: 42 B2 32 37 3A 8D 31 30 34 38 30 00 E3 28 0A 0A |B.27:.10480..(..|
000020D0: 8B 5A 24 B2 22 4E 22 B0 5A 24 B2 22 51 22 A7 32 |.Z$."N".Z$."Q".2|
000020E0: 34 37 30 00 0D 29 14 0A 4F 24 B2 22 22 3A 99 22 |470..)..O$."":."|
000020F0: 11 20 C5 4E 54 45 52 20 4E 45 57 20 22 3B 43 48 |. .NTER NEW ";CH|
00002100: 24 28 5A 29 3B A6 32 29 3B 3A 85 4F 24 00 23 29 |$(Z);.2);:.O$.#)|
00002110: 1E 0A 8B 4F 24 B2 22 22 A7 99 22 91 22 3A 89 32 |...O$.""..".":.2|
00002120: 35 38 30 00 43 29 28 0A 8B C3 28 4F 24 29 B1 43 |580.C)(...(O$).C|
00002130: 48 28 5A 29 A7 4F 24 B2 C8 28 4F 24 2C 43 48 28 |H(Z).O$..(O$,CH(|
00002140: 5A 29 29 00 51 29 32 0A 4F 4F 24 28 5A 29 B2 4F |Z)).Q)2.OO$(Z).O|
00002150: 24 00 90 29 3C 0A 5A 24 B2 22 22 3A 85 22 11 20 |$..)<.Z$."":.". |
00002160: C1 4E 59 20 4D 4F 52 45 20 43 48 41 4E 47 45 53 |.NY MORE CHANGES|
00002170: 20 54 4F 20 54 48 49 53 20 52 45 43 4F 52 44 20 | TO THIS RECORD |
00002180: 22 3B 5A 24 3A 42 B2 33 35 3A 8D 31 30 34 38 30 |";Z$:B.35:.10480|
00002190: 00 A8 29 46 0A 8B 5A 24 B2 22 59 22 B0 5A 24 B2 |..)F..Z$."Y".Z$.|
000021A0: 22 51 22 A7 32 34 37 30 00 B9 29 50 0A 8D 31 30 |"Q".2470..)P..10|
000021B0: 33 38 30 3A 89 32 33 38 30 00 DE 29 5A 0A 8F 2A |380:.2380..)Z..*|
000021C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000021D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 03 |**************..|
000021E0: 2A 64 0A 8F 2A 20 54 48 49 53 20 53 45 43 54 49 |*d..* THIS SECTI|
000021F0: 4F 4E 20 57 49 4C 4C 20 53 45 41 52 43 48 20 4F |ON WILL SEARCH O|
00002200: 55 52 2A 00 28 2A 6E 0A 8F 2A 20 53 41 56 45 44 |UR*.(*n..* SAVED|
00002210: 20 44 41 54 41 20 42 59 20 57 48 41 54 20 45 56 | DATA BY WHAT EV|
00002220: 45 52 20 20 20 20 20 2A 00 4D 2A 78 0A 8F 2A 20 |ER *.M*x..* |
00002230: 43 41 54 41 47 4F 52 59 20 43 4C 4F 57 4E 20 57 |CATAGORY CLOWN W|
00002240: 41 4E 54 53 2E 20 4F 4E 43 45 20 20 2A 00 72 2A |ANTS. ONCE *.r*|
00002250: 82 0A 8F 2A 20 54 48 45 20 53 45 41 52 43 48 20 |...* THE SEARCH |
00002260: 44 41 54 41 20 49 53 20 46 4F 55 4E 44 20 20 20 |DATA IS FOUND |
00002270: 20 2A 00 97 2A 8C 0A 8F 2A 20 43 4C 4F 57 4E 20 | *..*...* CLOWN |
00002280: 49 53 20 41 53 4B 45 44 20 54 4F 20 56 45 52 49 |IS ASKED TO VERI|
00002290: 46 59 20 20 20 20 2A 00 BC 2A 96 0A 8F 2A 20 54 |FY *..*...* T|
000022A0: 48 41 54 20 54 48 49 53 20 49 53 20 57 48 41 54 |HAT THIS IS WHAT|
000022B0: 20 48 45 20 57 41 4E 54 45 44 20 2A 00 E1 2A A0 | HE WANTED *..*.|
000022C0: 0A 8F 2A 20 54 48 45 4E 20 49 53 20 54 4F 4C 44 |..* THEN IS TOLD|
000022D0: 20 57 48 41 54 20 52 45 43 4F 52 44 20 20 20 20 | WHAT RECORD |
000022E0: 2A 00 06 2B AA 0A 8F 2A 20 48 49 53 20 44 41 54 |*..+...* HIS DAT|
000022F0: 41 20 49 53 20 43 4F 4E 54 41 49 4E 45 44 20 49 |A IS CONTAINED I|
00002300: 4E 2E 20 20 20 2A 00 2B 2B B4 0A 8F 2A 2A 2A 2A |N. *.++...****|
00002310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002320: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3D 2B BE 0A |***********.=+..|
00002330: 8D 31 30 37 30 30 3A 8D 31 30 31 32 30 00 5F 2B |.10700:.10120._+|
00002340: C8 0A 99 22 11 20 D0 4C 45 41 53 45 20 45 4E 54 |...". .LEASE ENT|
00002350: 45 52 20 54 48 45 20 43 41 54 41 47 4F 52 59 00 |ER THE CATAGORY.|
00002360: 7F 2B D2 0A 99 22 20 57 4F 55 4C 44 20 4C 49 4B |.+..." WOULD LIK|
00002370: 45 20 54 4F 20 53 45 41 52 43 48 20 3B 11 22 00 |E TO SEARCH ;.".|
00002380: 9F 2B DC 0A 81 49 B2 31 A4 46 4C 44 53 3A 99 22 |.+...I.1.FLDS:."|
00002390: 20 22 49 22 29 20 22 43 48 24 28 49 29 3A 82 00 | "I") "CH$(I):..|
000023A0: BD 2B E6 0A 99 22 20 22 46 4C 44 53 AA 31 22 29 |.+..." "FLDS.1")|
000023B0: 20 12 D4 CF 20 D2 C5 D3 D4 C1 D2 D4 22 00 DD 2B | ... ......."..+|
000023C0: F0 0A 99 22 20 22 46 4C 44 53 AA 32 22 29 20 12 |..." "FLDS.2") .|
000023D0: C9 CE D3 D4 D2 D5 C3 D4 C9 CF CE D3 22 00 13 2C |............"..,|
000023E0: FA 0A 5A 24 B2 22 22 3A 85 22 11 20 C5 4E 54 45 |..Z$."":.". .NTE|
000023F0: 52 20 41 20 4E 55 4D 42 45 52 20 22 3B 5A 24 3A |R A NUMBER ";Z$:|
00002400: 8B 5A 24 B2 22 22 A7 99 22 91 91 91 22 3A 89 32 |.Z$."".."...":.2|
00002410: 38 31 30 00 3A 2C 04 0B 5A B2 C5 28 5A 24 29 3A |810.:,..Z..(Z$):|
00002420: 8B 5A B3 31 B0 5A B1 46 4C 44 53 AA 32 A7 99 22 |.Z.1.Z.FLDS.2.."|
00002430: 91 91 91 22 3A 89 32 38 31 30 00 4D 2C 0E 0B 8B |...":.2810.M,...|
00002440: 5A B2 46 4C 44 53 AA 31 A7 31 33 36 30 00 60 2C |Z.FLDS.1.1360.`,|
00002450: 18 0B 8B 5A B2 46 4C 44 53 AA 32 A7 33 32 31 30 |...Z.FLDS.2.3210|
00002460: 00 71 2C 22 0B 46 58 31 B2 30 3A 8D 31 30 37 30 |.q,".FX1.0:.1070|
00002470: 30 00 92 2C 2C 0B 99 22 11 20 D0 4C 45 41 53 45 |0..,,..". .LEASE|
00002480: 20 45 4E 54 45 52 20 54 48 45 20 22 43 48 24 28 | ENTER THE "CH$(|
00002490: 5A 29 00 B2 2C 36 0B 99 22 20 59 4F 55 20 57 41 |Z)..,6.." YOU WA|
000024A0: 4E 54 45 44 20 54 4F 20 53 45 41 52 43 48 20 54 |NTED TO SEARCH T|
000024B0: 48 45 00 CD 2C 40 0B 85 22 20 52 45 43 4F 52 44 |HE..,@.." RECORD|
000024C0: 53 20 46 4F 52 20 22 3B 53 52 43 48 24 00 DC 2C |S FOR ";SRCH$..,|
000024D0: 4A 0B 52 49 47 24 B2 53 52 43 48 24 00 F6 2C 54 |J.RIG$.SRCH$..,T|
000024E0: 0B 8B C8 28 53 52 43 48 24 2C 31 29 B3 B1 22 2A |...(SRCH$,1).."*|
000024F0: 22 A7 32 39 33 30 00 1A 2D 5E 0B 4C 4E B2 C3 28 |".2930..-^.LN..(|
00002500: 53 52 43 48 24 29 AB 31 3A 53 52 43 48 24 B2 C9 |SRCH$).1:SRCH$..|
00002510: 28 53 52 43 48 24 2C 4C 4E 29 00 24 2D 68 0B 46 |(SRCH$,LN).$-h.F|
00002520: 58 31 B2 31 00 3E 2D 72 0B 8B C9 28 53 52 43 48 |X1.1.>-r...(SRCH|
00002530: 24 2C 31 29 B3 B1 22 2A 22 A7 32 39 36 30 00 62 |$,1).."*".2960.b|
00002540: 2D 7C 0B 4C 4E B2 C3 28 53 52 43 48 24 29 AB 31 |-|.LN..(SRCH$).1|
00002550: 3A 53 52 43 48 24 B2 C8 28 53 52 43 48 24 2C 4C |:SRCH$..(SRCH$,L|
00002560: 4E 29 00 6C 2D 86 0B 46 58 31 B2 32 00 A9 2D 90 |N).l-..FX1.2..-.|
00002570: 0B 8B C3 28 53 52 43 48 24 29 B1 43 48 28 5A 29 |...(SRCH$).CH(Z)|
00002580: A7 8D 31 30 37 30 30 3A 99 22 20 12 D3 C5 C1 D2 |..10700:." .....|
00002590: C3 C8 A0 D3 D4 D2 C9 CE C7 A0 D4 CF CF A0 CC CF |................|
000025A0: CE C7 22 3A 89 35 30 38 30 00 C1 2D 9A 0B 46 49 |..":.5080..-..FI|
000025B0: B2 31 3A 8B 5A B2 31 A7 58 B2 31 3A 89 33 30 30 |.1:.Z.1.X.1:.300|
000025C0: 30 00 F1 2D A4 0B 53 58 B2 31 3A 81 49 B2 31 A4 |0..-..SX.1:.I.1.|
000025D0: 5A AB 31 3A 53 58 B2 53 58 AA 43 48 28 49 29 AA |Z.1:SX.SX.CH(I).|
000025E0: 31 3A 8B 49 B2 31 A7 53 58 B2 43 48 28 31 29 AA |1:.I.1.SX.CH(1).|
000025F0: 32 00 F8 2D AE 0B 82 49 00 17 2E B8 0B 81 49 B2 |2..-...I......I.|
00002600: 46 49 A4 4C 4F 3A 52 31 B2 4E 25 28 49 29 AA 31 |FI.LO:R1.N%(I).1|
00002610: 3A 8D 31 30 30 38 30 00 30 2E C2 0B 99 22 11 20 |:.10080.0....". |
00002620: D2 45 43 4F 52 44 20 23 12 22 49 22 92 91 91 22 |.ECORD #."I"..."|
00002630: 00 56 2E CC 0B 58 B2 31 3A 4F 24 B2 22 22 3A 8D |.V...X.1:O$."":.|
00002640: 31 30 32 33 30 3A 8B 4F 24 B2 22 45 4D 50 54 59 |10230:.O$."EMPTY|
00002650: 22 A7 33 31 30 30 00 6C 2E D6 0B 58 B2 53 58 3A |".3100.l...X.SX:|
00002660: 4F 24 B2 22 22 3A 8D 31 30 32 33 30 00 7F 2E E0 |O$."":.10230....|
00002670: 0B 8B 4F 24 B2 53 52 43 48 24 A7 33 31 34 30 00 |..O$.SRCH$.3140.|
00002680: 8F 2E EA 0B 8B 46 58 31 B2 30 A7 33 31 30 30 00 |.....FX1.0.3100.|
00002690: BF 2E F4 0B 8B 46 58 31 B2 32 A7 33 30 39 30 3A |.....FX1.2.3090:|
000026A0: AC AC 8F 20 43 48 45 43 4B 20 46 4F 52 20 57 49 |... CHECK FOR WI|
000026B0: 4C 44 20 43 41 52 44 20 4D 41 54 43 48 2A 2A 00 |LD CARD MATCH**.|
000026C0: D8 2E FE 0B 8B 53 52 43 48 24 B2 C9 28 4F 24 2C |.....SRCH$..(O$,|
000026D0: 4C 4E 29 A7 33 31 34 30 00 E2 2E 08 0C 89 33 31 |LN).3140......31|
000026E0: 30 30 00 FB 2E 12 0C 8B 53 52 43 48 24 B2 C8 28 |00......SRCH$..(|
000026F0: 4F 24 2C 4C 4E 29 A7 33 31 34 30 00 22 2F 1C 0C |O$,LN).3140."/..|
00002700: 82 49 3A 99 22 11 20 12 22 52 49 47 24 22 20 43 |.I:.". ."RIG$" C|
00002710: 41 4E 20 4E 4F 54 20 42 45 20 46 4F 55 4E 44 92 |AN NOT BE FOUND.|
00002720: 11 22 00 53 2F 26 0C 5A 24 B2 22 22 3A 85 22 20 |.".S/&.Z$."":." |
00002730: 11 D7 41 4E 54 20 54 4F 20 54 52 59 20 41 47 41 |..ANT TO TRY AGA|
00002740: 49 4E 20 22 3B 5A 24 3A 42 B2 32 31 3A 8D 31 30 |IN ";Z$:B.21:.10|
00002750: 34 38 30 00 64 2F 30 0C 8B 5A 24 B2 22 59 22 A7 |480.d/0..Z$."Y".|
00002760: 32 37 35 30 00 6E 2F 3A 0C 89 31 33 36 30 00 A1 |2750.n/:..1360..|
00002770: 2F 44 0C 5A 49 B2 49 3A 8D 31 30 37 30 30 3A 99 |/D.ZI.I:.10700:.|
00002780: 22 11 20 12 22 4F 24 22 92 20 48 41 53 20 42 45 |". ."O$". HAS BE|
00002790: 45 4E 20 46 4F 55 4E 44 2E 22 3A 8D 31 30 33 31 |EN FOUND.":.1031|
000027A0: 30 00 BA 2F 4E 0C 99 22 11 20 D2 45 43 4F 52 44 |0../N..". .ECORD|
000027B0: 20 23 12 22 5A 49 22 92 11 22 00 EA 2F 58 0C 81 | #."ZI".."../X..|
000027C0: 4A B2 31 A4 46 4C 44 53 3A 99 22 20 22 43 48 24 |J.1.FLDS:." "CH$|
000027D0: 28 4A 29 A3 50 4F 25 AA 33 29 4F 4F 24 28 4A 29 |(J).PO%.3)OO$(J)|
000027E0: 3A 82 4A 3A 8D 31 30 36 34 30 00 15 30 62 0C 8D |:.J:.10640..0b..|
000027F0: 31 30 37 30 30 3A 99 22 11 20 C4 4F 20 59 4F 55 |10700:.". .O YOU|
00002800: 20 57 41 4E 54 20 54 4F 20 43 4F 4E 54 49 4E 55 | WANT TO CONTINU|
00002810: 45 20 54 48 45 00 49 30 6C 0C 99 22 20 53 45 41 |E THE.I0l.." SEA|
00002820: 52 43 48 20 46 4F 52 20 22 52 49 47 24 22 20 22 |RCH FOR "RIG$" "|
00002830: 3B 3A 85 5A 24 3A 42 B2 31 35 AA C3 28 52 49 47 |;:.Z$:B.15..(RIG|
00002840: 24 29 3A 8D 31 30 34 38 30 00 63 30 76 0C 8B 5A |$):.10480.c0v..Z|
00002850: 24 B2 22 59 22 A7 46 49 B2 5A 49 AA 31 3A 89 32 |$."Y".FI.ZI.1:.2|
00002860: 39 38 30 00 6D 30 80 0C 89 32 37 35 30 00 78 30 |980.m0...2750.x0|
00002870: 8A 0C 8D 31 30 37 30 30 00 96 30 94 0C 99 22 11 |...10700..0...".|
00002880: 20 D3 45 41 52 43 48 20 49 4E 53 54 52 55 43 54 | .EARCH INSTRUCT|
00002890: 49 4F 4E 53 11 22 00 C2 30 9E 0C 99 22 20 31 29 |IONS."..0..." 1)|
000028A0: 20 D9 4F 55 20 43 41 4E 20 53 45 41 52 43 48 20 | .OU CAN SEARCH |
000028B0: 46 4F 52 20 54 48 45 20 53 54 52 49 4E 47 20 59 |FOR THE STRING Y|
000028C0: 4F 55 00 EE 30 A8 0C 99 22 20 20 20 20 41 52 45 |OU..0..." ARE|
000028D0: 20 4C 4F 4F 4B 49 4E 47 20 42 59 20 45 4E 54 45 | LOOKING BY ENTE|
000028E0: 52 49 4E 47 20 54 48 45 20 45 58 41 43 54 00 15 |RING THE EXACT..|
000028F0: 31 B2 0C 99 22 20 20 20 20 53 50 45 4C 4C 49 4E |1..." SPELLIN|
00002900: 47 20 4F 46 20 54 48 45 20 53 54 52 49 4E 47 20 |G OF THE STRING |
00002910: 41 53 20 49 54 00 38 31 BC 0C 99 22 20 20 20 20 |AS IT.81..." |
00002920: 57 41 53 20 53 54 4F 52 45 44 20 4F 4E 20 54 48 |WAS STORED ON TH|
00002930: 45 20 44 49 53 4B 2E 11 00 62 31 C6 0C 99 22 20 |E DISK...b1..." |
00002940: 32 29 20 D9 4F 55 20 43 41 4E 20 53 45 41 52 43 |2) .OU CAN SEARC|
00002950: 48 20 46 4F 52 20 41 20 50 41 52 54 49 43 55 4C |H FOR A PARTICUL|
00002960: 41 52 00 92 31 D0 0C 99 22 20 20 20 20 53 54 52 |AR..1..." STR|
00002970: 49 4E 47 20 42 59 20 55 53 49 4E 47 20 57 49 4C |ING BY USING WIL|
00002980: 44 20 43 41 52 44 20 4D 41 54 43 48 49 4E 47 2E |D CARD MATCHING.|
00002990: 11 22 00 BF 31 DA 0C 99 22 20 20 20 20 20 20 20 |."..1..." |
000029A0: 20 49 29 20 D7 48 45 4E 20 53 45 41 52 43 48 49 | I) .HEN SEARCHI|
000029B0: 4E 47 20 46 4F 52 20 41 20 53 54 52 49 4E 47 00 |NG FOR A STRING.|
000029C0: EC 31 E4 0C 99 22 20 20 20 20 54 48 41 54 20 53 |.1..." THAT S|
000029D0: 54 41 52 54 53 20 57 49 54 48 20 54 48 45 20 54 |TARTS WITH THE T|
000029E0: 48 52 45 45 20 4C 45 54 54 45 52 53 00 17 32 EE |HREE LETTERS..2.|
000029F0: 0C 99 22 20 20 20 20 43 4F 52 20 59 4F 55 20 57 |.." COR YOU W|
00002A00: 4F 55 4C 44 20 45 4E 54 45 52 20 43 4F 52 2A 20 |OULD ENTER COR* |
00002A10: 54 4F 20 46 49 4E 44 00 44 32 F8 0C 99 22 20 20 |TO FIND.D2..." |
00002A20: 20 20 41 4E 59 20 53 54 52 49 4E 47 20 54 48 41 | ANY STRING THA|
00002A30: 54 20 53 54 41 52 54 45 44 20 57 49 54 48 20 54 |T STARTED WITH T|
00002A40: 48 4F 53 45 00 5E 32 02 0D 99 22 20 20 20 20 54 |HOSE.^2..." T|
00002A50: 48 52 45 45 20 4C 45 54 54 45 52 53 2E 11 00 8B |HREE LETTERS....|
00002A60: 32 0C 0D 99 22 20 20 20 20 20 20 20 20 49 49 29 |2..." II)|
00002A70: 20 C1 53 20 57 45 4C 4C 20 57 48 45 4E 20 53 45 | .S WELL WHEN SE|
00002A80: 41 52 43 48 49 4E 47 20 46 4F 52 00 B9 32 16 0D |ARCHING FOR..2..|
00002A90: 99 22 20 20 20 20 41 20 53 54 52 49 4E 47 20 45 |." A STRING E|
00002AA0: 4E 44 49 4E 47 20 57 49 54 48 20 41 52 49 4F 20 |NDING WITH ARIO |
00002AB0: 59 4F 55 20 57 4F 55 4C 44 00 D3 32 20 0D 99 22 |YOU WOULD..2 .."|
00002AC0: 20 20 20 20 45 4E 54 45 52 20 2A 41 52 49 4F 20 | ENTER *ARIO |
00002AD0: 2E 11 11 00 01 33 2A 0D 99 22 20 20 20 20 3C 3C |.....3*.." <<|
00002AE0: 3C 20 D0 D2 C5 D3 D3 20 C1 CE D9 20 CB C5 D9 A0 |< ..... ... ....|
00002AF0: D4 CF A0 C3 CF CE D4 C9 CE D5 C5 20 3E 3E 3E 22 |........... >>>"|
00002B00: 3B 00 15 33 34 0D A1 41 24 3A 8B 41 24 B2 22 22 |;..34..A$:.A$.""|
00002B10: A7 33 33 38 30 00 1F 33 3E 0D 89 32 37 35 30 00 |.3380..3>..2750.|
00002B20: 44 33 48 0D 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |D3H..***********|
00002B30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002B40: 2A 2A 2A 2A 00 69 33 52 0D 8F 2A 20 54 48 49 53 |****.i3R..* THIS|
00002B50: 20 53 45 43 54 49 4F 4E 20 57 49 4C 4C 20 53 4F | SECTION WILL SO|
00002B60: 52 54 20 4F 55 52 20 20 2A 00 8E 33 5C 0D 8F 2A |RT OUR *..3\..*|
00002B70: 20 53 41 56 45 44 20 44 41 54 41 20 42 59 20 57 | SAVED DATA BY W|
00002B80: 48 41 54 20 45 56 45 52 20 20 20 20 20 2A 00 B3 |HAT EVER *..|
00002B90: 33 66 0D 8F 2A 20 43 41 54 41 47 4F 52 59 20 43 |3f..* CATAGORY C|
00002BA0: 4C 4F 57 4E 20 57 41 4E 54 53 2E 20 54 48 49 53 |LOWN WANTS. THIS|
00002BB0: 20 20 2A 00 D8 33 70 0D 8F 2A 20 53 4F 52 54 20 | *..3p..* SORT |
00002BC0: 52 4F 55 54 49 4E 45 20 55 53 45 53 20 41 20 4D |ROUTINE USES A M|
00002BD0: 2F 43 20 4C 41 4E 47 2A 00 FD 33 7A 0D 8F 2A 20 |/C LANG*..3z..* |
00002BE0: 52 4F 55 54 49 4E 45 20 43 41 4C 4C 45 44 20 55 |ROUTINE CALLED U|
00002BF0: 4C 54 52 41 53 4F 52 54 20 20 20 20 2A 00 22 34 |LTRASORT *."4|
00002C00: 84 0D 8F 2A 20 46 52 4F 4D 20 43 4F 4D 50 55 54 |...* FROM COMPUT|
00002C10: 45 21 20 53 45 50 54 20 31 39 38 33 2E 20 20 20 |E! SEPT 1983. |
00002C20: 20 2A 00 47 34 8E 0D 8F 2A 20 54 48 41 54 53 20 | *.G4...* THATS |
00002C30: 57 48 59 20 52 45 4C 2E 45 58 50 45 52 2F 42 4F |WHY REL.EXPER/BO|
00002C40: 4F 54 20 49 53 20 2A 00 6C 34 98 0D 8F 2A 20 52 |OT IS *.l4...* R|
00002C50: 55 4E 20 54 4F 20 4C 4F 41 44 20 54 48 49 53 20 |UN TO LOAD THIS |
00002C60: 50 52 4F 47 2E 20 4A 2E 52 2E 4A 2A 00 91 34 A2 |PROG. J.R.J*..4.|
00002C70: 0D 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
00002C80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002C90: 2A 00 A3 34 AC 0D 8D 31 30 37 32 30 3A 8D 31 30 |*..4...10720:.10|
00002CA0: 31 32 30 00 CE 34 B6 0D 99 22 11 20 D0 4C 45 41 |120..4...". .LEA|
00002CB0: 53 45 20 4D 41 4B 45 20 41 20 53 45 4C 45 43 54 |SE MAKE A SELECT|
00002CC0: 49 4F 4E 20 41 53 20 54 4F 20 57 48 41 54 00 FB |ION AS TO WHAT..|
00002CD0: 34 C0 0D 99 22 20 43 41 54 41 47 4F 52 59 20 59 |4..." CATAGORY Y|
00002CE0: 4F 55 20 57 4F 55 4C 44 20 4C 49 4B 45 20 54 4F |OU WOULD LIKE TO|
00002CF0: 20 53 4F 52 54 20 42 59 3B 11 22 00 1B 35 CA 0D | SORT BY;."..5..|
00002D00: 81 49 B2 31 A4 46 4C 44 53 3A 99 22 20 22 49 22 |.I.1.FLDS:." "I"|
00002D10: 29 20 22 43 48 24 28 49 29 3A 82 00 39 35 D4 0D |) "CH$(I):..95..|
00002D20: 99 22 20 22 46 4C 44 53 AA 31 22 29 20 12 D4 CF |." "FLDS.1") ...|
00002D30: 20 D2 C5 D3 D4 C1 D2 D4 22 00 6F 35 DE 0D 5A 24 | .......".o5..Z$|
00002D40: B2 22 22 3A 85 22 11 20 C5 4E 54 45 52 20 41 20 |."":.". .NTER A |
00002D50: 4E 55 4D 42 45 52 20 22 3B 5A 24 3A 8B 5A 24 B2 |NUMBER ";Z$:.Z$.|
00002D60: 22 22 A7 99 22 91 91 91 22 3A 89 33 35 35 30 00 |"".."...":.3550.|
00002D70: 96 35 E8 0D 5A B2 C5 28 5A 24 29 3A 8B 5A B3 31 |.5..Z..(Z$):.Z.1|
00002D80: B0 5A B1 46 4C 44 53 AA 31 A7 99 22 91 91 91 22 |.Z.FLDS.1.."..."|
00002D90: 3A 89 33 35 35 30 00 A9 35 F2 0D 8B 5A B2 46 4C |:.3550..5...Z.FL|
00002DA0: 44 53 AA 31 A7 31 33 36 30 00 B4 35 FC 0D 8D 31 |DS.1.1360..5...1|
00002DB0: 30 37 32 30 00 DE 35 06 0E 99 22 11 20 D3 4F 52 |0720..5...". .OR|
00002DC0: 54 49 4E 47 20 52 45 43 4F 52 44 53 20 42 59 20 |TING RECORDS BY |
00002DD0: 22 43 48 24 28 5A 29 22 20 2E 2E 2E 2E 11 00 F1 |"CH$(Z)" .......|
00002DE0: 35 10 0E 8B 5A B2 31 A7 58 B2 31 3A 89 33 36 33 |5...Z.1.X.1:.363|
00002DF0: 30 00 21 36 1A 0E 53 58 B2 31 3A 81 49 B2 31 A4 |0.!6..SX.1:.I.1.|
00002E00: 5A AB 31 3A 53 58 B2 53 58 AA 43 48 28 49 29 AA |Z.1:SX.SX.CH(I).|
00002E10: 31 3A 8B 49 B2 31 A7 53 58 B2 43 48 28 31 29 AA |1:.I.1.SX.CH(1).|
00002E20: 32 00 28 36 24 0E 82 49 00 4B 36 2E 0E 58 58 B2 |2.(6$..I.K6..XX.|
00002E30: 30 3A 81 49 B2 31 A4 4C 4F 3A 52 31 B2 4E 25 28 |0:.I.1.LO:R1.N%(|
00002E40: 49 29 AA 31 3A 8D 31 30 30 38 30 00 71 36 38 0E |I).1:.10080.q68.|
00002E50: 58 B2 31 3A 4F 24 B2 22 22 3A 8D 31 30 32 33 30 |X.1:O$."":.10230|
00002E60: 3A 8B 4F 24 B2 22 45 4D 50 54 59 22 A7 33 36 38 |:.O$."EMPTY".368|
00002E70: 30 00 8F 36 42 0E 58 B2 53 58 3A 4F 24 B2 22 22 |0..6B.X.SX:O$.""|
00002E80: 3A 8D 31 30 32 33 30 3A 58 58 B2 58 58 AA 31 00 |:.10230:XX.XX.1.|
00002E90: A7 36 4C 0E 43 31 24 B2 C7 28 52 31 29 3A 43 32 |.6L.C1$..(R1):C2|
00002EA0: 24 B2 C7 28 52 32 29 00 BE 36 56 0E 41 41 24 28 |$..(R2)..6V.AA$(|
00002EB0: 58 58 29 B2 4F 24 AA 43 31 24 AA 43 32 24 00 C5 |XX).O$.C1$.C2$..|
00002EC0: 36 60 0E 82 49 00 FB 36 6A 0E 8B 58 58 B2 30 A7 |6`..I..6j..XX.0.|
00002ED0: 99 22 11 20 12 D4 48 45 52 45 20 41 52 45 20 4E |.". ..HERE ARE N|
00002EE0: 4F 20 52 45 43 4F 52 44 53 20 54 4F 20 53 4F 52 |O RECORDS TO SOR|
00002EF0: 54 2E 92 11 22 3A 89 34 30 31 30 00 16 37 74 0E |T...":.4010..7t.|
00002F00: 8F 20 2A 2A 20 43 41 4C 4C 20 55 4C 54 52 41 53 |. ** CALL ULTRAS|
00002F10: 4F 52 54 20 2A 2A 00 2B 37 7E 0E 9E 34 39 31 35 |ORT **.+7~..4915|
00002F20: 32 2C 58 58 2C 41 41 24 28 31 29 00 43 37 88 0E |2,XX,AA$(1).C7..|
00002F30: 99 22 11 20 D2 C5 C3 CF D2 C4 D3 A0 D3 CF D2 D4 |.". ............|
00002F40: C5 C4 22 00 64 37 92 0E 99 22 11 20 D2 45 41 52 |..".d7...". .EAR|
00002F50: 52 41 4E 47 49 4E 47 20 52 45 43 4F 52 44 53 20 |RANGING RECORDS |
00002F60: 2E 2E 2E 22 00 70 37 9C 0E 81 44 B2 31 A4 58 58 |...".p7...D.1.XX|
00002F70: 00 90 37 A6 0E 8F 20 53 54 52 49 50 20 4F 46 46 |..7... STRIP OFF|
00002F80: 20 4F 4C 44 20 50 4F 53 27 4E 20 49 4E 46 4F 2E | OLD POS'N INFO.|
00002F90: 00 C7 37 B0 0E 43 32 24 B2 C9 28 41 41 24 28 44 |..7..C2$..(AA$(D|
00002FA0: 29 2C 31 29 3A 4C 4E B2 C3 28 41 41 24 28 44 29 |),1):LN..(AA$(D)|
00002FB0: 29 AB 31 3A 41 41 24 28 44 29 B2 C8 28 41 41 24 |).1:AA$(D)..(AA$|
00002FC0: 28 44 29 2C 4C 4E 29 00 FE 37 BA 0E 43 31 24 B2 |(D),LN)..7..C1$.|
00002FD0: C9 28 41 41 24 28 44 29 2C 31 29 3A 4C 4E B2 C3 |.(AA$(D),1):LN..|
00002FE0: 28 41 41 24 28 44 29 29 AB 31 3A 41 41 24 28 44 |(AA$(D)).1:AA$(D|
00002FF0: 29 B2 C8 28 41 41 24 28 44 29 2C 4C 4E 29 00 16 |)..(AA$(D),LN)..|
00003000: 38 C4 0E 47 B2 C6 28 43 32 24 29 AC 32 35 36 AA |8..G..(C2$).256.|
00003010: C6 28 43 31 24 29 00 27 38 CE 0E 4E 25 28 44 29 |.(C1$).'8..N%(D)|
00003020: B2 47 AB 31 3A 82 44 00 4D 38 D8 0E 5A B2 30 3A |.G.1:.D.M8..Z.0:|
00003030: 81 54 B2 31 A4 4C 4F 3A 81 50 B2 31 A4 58 58 3A |.T.1.LO:.P.1.XX:|
00003040: 8B 54 B2 4E 25 28 50 29 A7 33 38 32 30 00 65 38 |.T.N%(P).3820.e8|
00003050: E2 0E 82 50 3A 5A B2 5A AA 31 3A 4E 25 28 58 58 |...P:Z.Z.1:N%(XX|
00003060: AA 5A 29 B2 54 00 6C 38 EC 0E 82 54 00 8D 38 F6 |.Z).T.l8...T..8.|
00003070: 0E 98 31 2C 22 53 3A 20 22 AA 4D 4E 24 AA 22 2F |..1,"S: ".MN$."/|
00003080: 53 4F 52 54 20 4B 45 59 2C 53 2C 20 22 00 B7 38 |SORT KEY,S, "..8|
00003090: 00 0F 9F 36 2C 38 2C 37 2C 22 20 22 AA 4D 4E 24 |...6,8,7," ".MN$|
000030A0: AA 22 2F 53 4F 52 54 20 4B 45 59 2C 53 2C 57 22 |."/SORT KEY,S,W"|
000030B0: 3A 8D 31 30 30 31 30 00 D9 38 0A 0F 81 54 B2 31 |:.10010..8...T.1|
000030C0: A4 4C 4F 3A 98 36 2C 4E 25 28 54 29 3B 52 24 3B |.LO:.6,N%(T);R$;|
000030D0: 3A 8D 31 30 30 31 30 3A 82 00 F9 38 14 0F 99 22 |:.10010:...8..."|
000030E0: 11 11 20 D3 CF D2 D4 A0 CB C5 D9 A0 D2 C5 D7 D2 |.. .............|
000030F0: C9 D4 D4 C5 CE 11 11 11 22 00 07 39 1E 0F A0 36 |........"..9...6|
00003100: 3A 8D 31 30 36 34 30 00 11 39 28 0F 89 31 33 36 |:.10640..9(..136|
00003110: 30 00 35 39 32 0F 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |0.592.. ********|
00003120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003130: 2A 2A 2A 2A 2A 00 59 39 3C 0F 8F 20 2A 2A 20 54 |*****.Y9<.. ** T|
00003140: 48 49 53 20 53 45 43 54 49 4F 4E 20 45 52 41 53 |HIS SECTION ERAS|
00003150: 45 53 20 41 20 20 20 2A 2A 00 7D 39 46 0F 8F 20 |ES A **.}9F.. |
00003160: 2A 2A 20 52 45 43 4F 52 44 20 46 52 4F 4D 20 54 |** RECORD FROM T|
00003170: 48 45 20 44 49 53 4B 2E 20 20 20 2A 2A 00 A1 39 |HE DISK. **..9|
00003180: 50 0F 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |P.. ************|
00003190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000031A0: 2A 00 BA 39 5A 0F 8D 31 30 37 34 30 3A 8D 31 30 |*..9Z..10740:.10|
000031B0: 31 32 30 3A 8D 31 30 31 36 30 00 EF 39 64 0F 57 |120:.10160..9d.W|
000031C0: 32 B2 57 31 3A 57 31 24 B2 22 30 22 3A 85 22 20 |2.W1:W1$."0":." |
000031D0: 44 45 4C 45 54 45 20 28 30 3D 51 55 49 54 29 20 |DELETE (0=QUIT) |
000031E0: 22 3B 57 31 24 3A 57 31 B2 C5 28 57 31 24 29 00 |";W1$:W1..(W1$).|
000031F0: 0A 3A 6E 0F 49 B2 30 3A 8D 31 30 35 36 30 3A 8B |.:n.I.0:.10560:.|
00003200: 49 B3 B1 39 39 A7 33 39 37 30 00 3A 3A 78 0F 49 |I..99.3970.::x.I|
00003210: B2 30 3A 8D 31 30 37 34 30 3A 8D 31 30 35 38 30 |.0:.10740:.10580|
00003220: 3A 57 31 B2 57 32 3A 8D 31 30 31 32 30 3A 8D 31 |:W1.W2:.10120:.1|
00003230: 30 31 36 30 3A 89 33 39 34 30 00 51 3A 82 0F 8B |0160:.3940.Q:...|
00003240: 57 31 B3 B2 30 A7 57 31 B2 57 32 3A 89 31 33 36 |W1..0.W1.W2:.136|
00003250: 30 00 68 3A 8C 0F 52 31 B2 4E 25 28 57 31 29 AA |0.h:..R1.N%(W1).|
00003260: 31 3A 8D 31 30 30 38 30 00 89 3A 96 0F 58 B2 31 |1:.10080..:..X.1|
00003270: 3A 8D 31 30 32 33 30 3A 8B 4F 24 B3 B1 22 45 4D |:.10230:.O$.."EM|
00003280: 50 54 59 22 A7 34 30 32 30 00 B9 3A A0 0F 8D 31 |PTY".4020..:...1|
00003290: 30 37 34 30 3A 99 22 11 20 D2 45 43 4F 52 44 20 |0740:.". .ECORD |
000032A0: 23 20 12 22 57 31 22 92 20 49 53 20 12 22 4F 24 |# ."W1". IS ."O$|
000032B0: 22 92 22 3A 57 31 B2 57 32 00 D1 3A AA 0F 8D 31 |".":W1.W2..:...1|
000032C0: 30 31 32 30 3A 8D 31 30 31 36 30 3A 89 33 39 34 |0120:.10160:.394|
000032D0: 30 00 F8 3A B4 0F 8D 31 30 37 34 30 3A 99 22 11 |0..:...10740:.".|
000032E0: 20 C4 45 4C 45 54 45 20 52 45 43 4F 52 44 20 23 | .ELETE RECORD #|
000032F0: 12 22 57 31 22 92 11 22 00 31 3B BE 0F 5A 24 B2 |."W1"..".1;..Z$.|
00003300: 22 22 3A 85 22 11 20 C1 52 45 20 59 4F 55 20 53 |"":.". .RE YOU S|
00003310: 55 52 45 20 22 3B 5A 24 3A 42 B2 31 36 3A 8D 31 |URE ";Z$:B.16:.1|
00003320: 30 34 38 30 3A 8B 5A 24 B2 22 4E 22 A7 33 39 33 |0480:.Z$."N".393|
00003330: 30 00 42 3B C8 0F 8B 5A 24 B2 22 51 22 A7 31 33 |0.B;...Z$."Q".13|
00003340: 36 30 00 74 3B D2 0F 58 B2 31 3A 99 22 11 20 CF |60.t;..X.1:.". .|
00003350: 4B 41 59 20 54 48 45 4E 2E 2E 2E 22 3A 4F 24 B2 |KAY THEN...":O$.|
00003360: 22 45 4D 50 54 59 22 3A 8D 31 30 32 37 30 3A 89 |"EMPTY":.10270:.|
00003370: 33 39 33 30 00 98 3B DC 0F 8F 2A 2A 2A 2A 2A 2A |3930..;...******|
00003380: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003390: 2A 2A 2A 2A 2A 2A 2A 2A 00 BC 3B E6 0F 8F 2A 20 |********..;...* |
000033A0: 54 48 45 20 53 45 43 54 49 4F 4E 20 43 4F 50 49 |THE SECTION COPI|
000033B0: 45 53 20 4F 4E 45 20 20 20 20 20 2A 00 E0 3B F0 |ES ONE *..;.|
000033C0: 0F 8F 2A 20 4F 4E 20 54 48 45 20 50 52 49 4E 54 |..* ON THE PRINT|
000033D0: 45 52 20 2E 20 4A 41 4D 20 20 20 20 20 20 20 2A |ER . JAM *|
000033E0: 00 04 3C FA 0F 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..<...**********|
000033F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003400: 2A 2A 2A 2A 00 1D 3C 04 10 8D 31 30 37 36 30 3A |****..<...10760:|
00003410: 8D 31 30 31 32 30 3A 8D 31 30 31 36 30 00 55 3C |.10120:.10160.U<|
00003420: 0E 10 57 32 B2 57 31 3A 57 31 24 B2 22 30 22 3A |..W2.W1:W1$."0":|
00003430: 85 22 20 43 4F 50 59 20 46 52 4F 4D 20 28 30 3D |." COPY FROM (0=|
00003440: 51 55 49 54 29 20 22 3B 57 31 24 3A 57 31 B2 C5 |QUIT) ";W1$:W1..|
00003450: 28 57 31 24 29 00 70 3C 18 10 49 B2 30 3A 8D 31 |(W1$).p<..I.0:.1|
00003460: 30 35 36 30 3A 8B 49 B3 B1 39 39 A7 34 31 34 30 |0560:.I..99.4140|
00003470: 00 A0 3C 22 10 49 B2 30 3A 8D 31 30 37 36 30 3A |..<".I.0:.10760:|
00003480: 8D 31 30 35 38 30 3A 57 31 B2 57 32 3A 8D 31 30 |.10580:W1.W2:.10|
00003490: 31 32 30 3A 8D 31 30 31 36 30 3A 89 34 31 31 30 |120:.10160:.4110|
000034A0: 00 B7 3C 2C 10 8B 57 31 B3 B2 30 A7 57 31 B2 57 |..<,..W1..0.W1.W|
000034B0: 32 3A 89 31 33 36 30 00 DA 3C 36 10 52 31 B2 4E |2:.1360..<6.R1.N|
000034C0: 25 28 57 31 29 AA 31 3A 8D 31 30 30 38 30 3A 53 |%(W1).1:.10080:S|
000034D0: 31 B2 52 31 3A 53 32 B2 52 32 00 FB 3C 40 10 58 |1.R1:S2.R2..<@.X|
000034E0: B2 31 3A 8D 31 30 32 33 30 3A 8B 4F 24 B3 B1 22 |.1:.10230:.O$.."|
000034F0: 45 4D 50 54 59 22 A7 34 31 39 30 00 2B 3D 4A 10 |EMPTY".4190.+=J.|
00003500: 8D 31 30 37 36 30 3A 99 22 11 20 D2 45 43 4F 52 |.10760:.". .ECOR|
00003510: 44 20 23 20 12 22 57 31 22 92 20 49 53 20 12 22 |D # ."W1". IS ."|
00003520: 4F 24 22 92 22 3A 57 31 B2 57 32 00 43 3D 54 10 |O$".":W1.W2.C=T.|
00003530: 8D 31 30 31 32 30 3A 8D 31 30 31 36 30 3A 89 34 |.10120:.10160:.4|
00003540: 31 31 30 00 68 3D 5E 10 99 22 11 20 C6 52 4F 4D |110.h=^..". .ROM|
00003550: 20 52 45 43 4F 52 44 20 23 12 22 57 31 22 92 11 | RECORD #."W1"..|
00003560: 22 3A 8D 31 30 31 36 30 00 9E 3D 68 10 57 32 B2 |":.10160..=h.W2.|
00003570: 57 31 3A 57 31 24 B2 22 30 22 3A 85 22 20 43 4F |W1:W1$."0":." CO|
00003580: 50 59 20 54 4F 20 28 30 3D 51 55 49 54 29 20 22 |PY TO (0=QUIT) "|
00003590: 3B 57 31 24 3A 57 31 B2 C5 28 57 31 24 29 00 B9 |;W1$:W1..(W1$)..|
000035A0: 3D 72 10 49 B2 30 3A 8D 31 30 35 36 30 3A 8B 49 |=r.I.0:.10560:.I|
000035B0: B3 B1 39 39 A7 34 32 33 30 00 E9 3D 7C 10 49 B2 |..99.4230..=|.I.|
000035C0: 30 3A 8D 31 30 37 36 30 3A 8D 31 30 35 38 30 3A |0:.10760:.10580:|
000035D0: 57 31 B2 57 32 3A 8D 31 30 31 32 30 3A 8D 31 30 |W1.W2:.10120:.10|
000035E0: 31 36 30 3A 89 34 31 31 30 00 00 3E 86 10 8B 57 |160:.4110..>...W|
000035F0: 31 B3 B2 30 A7 57 31 B2 57 32 3A 89 31 33 36 30 |1..0.W1.W2:.1360|
00003600: 00 23 3E 90 10 52 31 B2 4E 25 28 57 31 29 AA 31 |.#>..R1.N%(W1).1|
00003610: 3A 8D 31 30 30 38 30 3A 58 31 B2 52 31 3A 58 32 |:.10080:X1.R1:X2|
00003620: B2 52 32 00 43 3E 9A 10 58 B2 31 3A 8D 31 30 32 |.R2.C>..X.1:.102|
00003630: 33 30 3A 8B 4F 24 B2 22 45 4D 50 54 59 22 A7 34 |30:.O$."EMPTY".4|
00003640: 33 30 30 00 6B 3E A4 10 99 22 11 20 D2 45 43 4F |300.k>...". .ECO|
00003650: 52 44 20 23 20 12 22 57 31 22 92 20 48 41 53 20 |RD # ."W1". HAS |
00003660: 44 41 54 41 20 49 4E 20 49 54 2E 00 A8 3E AE 10 |DATA IN IT...>..|
00003670: 5A 24 B2 22 22 3A 99 22 20 C4 4F 20 59 4F 55 20 |Z$."":." .O YOU |
00003680: 57 41 4E 54 20 54 4F 20 57 52 49 54 45 20 4F 56 |WANT TO WRITE OV|
00003690: 45 52 20 49 54 20 22 3B 3A 85 5A 24 3A 42 B2 33 |ER IT ";:.Z$:B.3|
000036A0: 32 3A 8D 31 30 34 38 30 00 DC 3E B8 10 8B 5A 24 |2:.10480..>...Z$|
000036B0: B2 22 51 22 B0 5A 24 B2 22 4E 22 A7 57 31 B2 57 |."Q".Z$."N".W1.W|
000036C0: 32 3A 8D 31 30 37 36 30 3A 8D 31 30 31 32 30 3A |2:.10760:.10120:|
000036D0: 8D 31 30 31 36 30 3A 89 34 31 31 30 00 F4 3E C2 |.10160:.4110..>.|
000036E0: 10 8D 31 30 31 32 30 3A 8D 31 30 31 36 30 3A 89 |..10120:.10160:.|
000036F0: 32 31 37 30 00 10 3F CC 10 99 22 11 20 D4 4F 20 |2170..?...". .O |
00003700: 52 45 43 4F 52 44 20 23 12 22 57 31 22 92 11 22 |RECORD #."W1".."|
00003710: 00 42 3F D6 10 52 31 B2 53 31 3A 52 32 B2 53 32 |.B?..R1.S1:R2.S2|
00003720: 3A 8D 31 30 33 31 30 3A 81 49 B2 31 A4 46 4C 44 |:.10310:.I.1.FLD|
00003730: 53 3A 53 52 31 24 28 49 29 B2 4F 4F 24 28 49 29 |S:SR1$(I).OO$(I)|
00003740: 3A 82 00 5E 3F E0 10 99 22 20 C3 4F 50 59 49 4E |:..^?..." .OPYIN|
00003750: 47 20 52 45 43 4F 52 44 53 2E 2E 2E 2E 2E 00 91 |G RECORDS.......|
00003760: 3F EA 10 52 31 B2 58 31 3A 52 32 B2 58 32 3A 81 |?..R1.X1:R2.X2:.|
00003770: 49 B2 31 A4 46 4C 44 53 3A 4F 4F 24 28 49 29 B2 |I.1.FLDS:OO$(I).|
00003780: 53 52 31 24 28 49 29 3A 82 49 3A 8D 31 30 33 38 |SR1$(I):.I:.1038|
00003790: 30 00 9B 3F F4 10 89 34 31 30 30 00 BF 3F FE 10 |0..?...4100..?..|
000037A0: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
000037B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000037C0: E3 3F 08 11 8F 2A 20 54 48 45 20 53 45 43 54 49 |.?...* THE SECTI|
000037D0: 4F 4E 20 50 52 49 4E 54 53 20 52 45 43 4F 52 44 |ON PRINTS RECORD|
000037E0: 53 20 2A 00 07 40 12 11 8F 2A 20 4F 4E 20 54 48 |S *..@...* ON TH|
000037F0: 45 20 50 52 49 4E 54 45 52 20 2E 20 4A 41 4D 20 |E PRINTER . JAM |
00003800: 20 20 20 20 20 20 2A 00 2B 40 1C 11 8F 2A 2A 2A | *.+@...***|
00003810: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003820: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 44 40 26 11 |***********.D@&.|
00003830: 8D 31 30 37 37 30 3A 8D 31 30 31 32 30 3A 8D 31 |.10770:.10120:.1|
00003840: 30 31 36 30 00 84 40 30 11 57 32 B2 57 31 3A 57 |0160..@0.W2.W1:W|
00003850: 31 24 B2 22 30 22 3A 85 22 20 53 54 41 52 54 20 |1$."0":." START |
00003860: 50 52 49 4E 54 49 4E 47 20 41 54 20 28 30 3D 51 |PRINTING AT (0=Q|
00003870: 55 49 54 29 20 22 3B 57 31 24 3A 57 31 B2 C5 28 |UIT) ";W1$:W1..(|
00003880: 57 31 24 29 00 9F 40 3A 11 49 B2 30 3A 8D 31 30 |W1$)..@:.I.0:.10|
00003890: 35 36 30 3A 8B 49 B3 B1 39 39 A7 34 34 33 30 00 |560:.I..99.4430.|
000038A0: CF 40 44 11 49 B2 30 3A 8D 31 30 37 37 30 3A 8D |.@D.I.0:.10770:.|
000038B0: 31 30 35 38 30 3A 57 31 B2 57 32 3A 8D 31 30 31 |10580:W1.W2:.101|
000038C0: 32 30 3A 8D 31 30 31 36 30 3A 89 34 34 30 30 00 |20:.10160:.4400.|
000038D0: E6 40 4E 11 8B 57 31 B3 B2 30 A7 57 31 B2 57 32 |.@N..W1..0.W1.W2|
000038E0: 3A 89 31 33 36 30 00 F0 40 58 11 57 33 B2 57 31 |:.1360..@X.W3.W1|
000038F0: 00 22 41 62 11 99 22 11 20 D3 54 41 52 54 20 50 |."Ab..". .TART P|
00003900: 52 49 4E 54 49 4E 47 20 41 54 20 52 45 43 4F 52 |RINTING AT RECOR|
00003910: 44 20 23 12 22 57 31 22 92 11 22 3A 8D 31 30 31 |D #."W1"..":.101|
00003920: 36 30 00 60 41 6C 11 57 32 B2 57 31 3A 57 31 24 |60.`Al.W2.W1:W1$|
00003930: B2 22 30 22 3A 85 22 20 45 4E 44 20 50 52 49 4E |."0":." END PRIN|
00003940: 54 49 4E 47 20 41 54 20 28 30 3D 51 55 49 54 29 |TING AT (0=QUIT)|
00003950: 20 22 3B 57 31 24 3A 57 31 B2 C5 28 57 31 24 29 | ";W1$:W1..(W1$)|
00003960: 00 7B 41 76 11 49 B2 30 3A 8D 31 30 35 36 30 3A |.{Av.I.0:.10560:|
00003970: 8B 49 B3 B1 39 39 A7 34 34 39 30 00 AB 41 80 11 |.I..99.4490..A..|
00003980: 49 B2 30 3A 8D 31 30 37 37 30 3A 8D 31 30 35 38 |I.0:.10770:.1058|
00003990: 30 3A 57 31 B2 57 32 3A 8D 31 30 31 32 30 3A 8D |0:W1.W2:.10120:.|
000039A0: 31 30 31 36 30 3A 89 34 31 31 30 00 C2 41 8A 11 |10160:.4110..A..|
000039B0: 8B 57 31 B3 B2 30 A7 57 31 B2 57 32 3A 89 31 33 |.W1..0.W1.W2:.13|
000039C0: 36 30 00 F1 41 94 11 99 22 11 20 C5 4E 44 20 50 |60..A...". .ND P|
000039D0: 52 49 4E 54 49 4E 47 20 41 54 20 52 45 43 4F 52 |RINTING AT RECOR|
000039E0: 44 20 23 12 22 57 31 22 92 11 22 3A 5A 24 B2 22 |D #."W1"..":Z$."|
000039F0: 22 00 2B 42 9E 11 99 22 11 20 C9 53 20 54 48 45 |".+B...". .S THE|
00003A00: 20 50 52 49 4E 54 45 52 20 41 54 20 54 48 45 20 | PRINTER AT THE |
00003A10: 54 4F 50 22 3A 99 22 20 4F 46 20 41 20 4E 45 57 |TOP":." OF A NEW|
00003A20: 20 50 41 47 45 22 3B 3A 85 5A 24 00 50 42 A8 11 | PAGE";:.Z$.PB..|
00003A30: 42 B2 31 36 3A 8D 31 30 34 38 30 3A 8B 5A 24 B2 |B.16:.10480:.Z$.|
00003A40: 22 4E 22 A7 22 91 91 91 91 22 3A 89 34 35 32 30 |"N"."....":.4520|
00003A50: 00 61 42 B2 11 8B 5A 24 B2 22 51 22 A7 34 33 39 |.aB...Z$."Q".439|
00003A60: 30 00 6C 42 BC 11 8D 31 30 37 37 30 00 A2 42 C6 |0.lB...10770..B.|
00003A70: 11 5A 24 B2 22 22 3A 85 22 11 20 D0 52 49 4E 54 |.Z$."":.". .RINT|
00003A80: 20 45 4D 50 54 59 20 52 45 43 4F 52 44 53 20 54 | EMPTY RECORDS T|
00003A90: 4F 4F 22 3B 5A 24 3A 42 B2 32 36 3A 8D 31 30 34 |OO";Z$:B.26:.104|
00003AA0: 38 30 00 B8 42 D0 11 55 50 B2 30 3A 8B 5A 24 B2 |80..B..UP.0:.Z$.|
00003AB0: 22 59 22 A7 55 50 B2 31 00 E7 42 DA 11 5A 24 B2 |"Y".UP.1..B..Z$.|
00003AC0: 22 22 3A 99 22 11 20 C5 4E 54 45 52 20 53 54 41 |"":.". .NTER STA|
00003AD0: 52 54 49 4E 47 20 50 41 47 45 20 4E 55 4D 42 45 |RTING PAGE NUMBE|
00003AE0: 52 22 3B 3A 85 5A 24 00 FF 42 E4 11 8B 5A 24 B2 |R";:.Z$..B...Z$.|
00003AF0: 22 22 A7 99 22 91 91 91 22 3A 89 34 35 37 30 00 |"".."...":.4570.|
00003B00: 1D 43 EE 11 99 22 11 20 D0 52 49 4E 54 49 4E 47 |.C...". .RINTING|
00003B10: 20 52 45 43 4F 52 44 53 2E 2E 2E 2E 22 00 41 43 | RECORDS....".AC|
00003B20: F8 11 4C 4E B2 30 3A 50 47 B2 C5 28 5A 24 29 3A |..LN.0:PG..(Z$):|
00003B30: A0 32 3A 9F 35 2C 34 3A 9D 35 3A 99 C7 28 31 37 |.2:.5,4:.5:..(17|
00003B40: 29 00 52 43 02 12 8D 31 30 38 30 30 3A 98 35 3A |).RC...10800:.5:|
00003B50: A0 35 00 86 43 0C 12 81 47 B2 57 33 A4 57 31 3A |.5..C...G.W3.W1:|
00003B60: 52 31 B2 4E 25 28 47 29 AA 31 3A 8D 31 30 30 38 |R1.N%(G).1:.1008|
00003B70: 30 3A 9F 32 2C 38 2C 33 2C 22 20 22 AA 4E 4D 24 |0:.2,8,3," ".NM$|
00003B80: AA 22 2C 4C 2C 22 00 B6 43 16 12 8D 31 30 33 31 |.",L,"..C...1031|
00003B90: 30 3A 8B 4F 4F 24 28 49 29 B3 B1 22 45 4D 50 54 |0:.OO$(I).."EMPT|
00003BA0: 59 22 A7 4C 31 B2 4C 4E AA 46 4C 44 53 AA 32 3A |Y".L1.LN.FLDS.2:|
00003BB0: 89 20 34 36 35 30 00 CA 43 20 12 8B 55 50 B2 31 |. 4650..C ..UP.1|
00003BC0: A7 4C 31 B2 4C 4E AA 31 AA 32 00 00 44 2A 12 8B |.L1.LN.1.2..D*..|
00003BD0: 4C 31 B1 36 33 A7 4C B2 36 36 AB 4C 4E 3A 8D 31 |L1.63.L.66.LN:.1|
00003BE0: 30 38 36 30 3A 57 33 B2 47 3A 50 47 B2 50 47 AA |0860:W3.G:PG.PG.|
00003BF0: 31 3A 5A 24 B2 C4 28 50 47 29 3A 89 34 36 30 30 |1:Z$..(PG):.4600|
00003C00: 00 21 44 34 12 A0 32 3A 8B 55 50 B2 30 AF 4F 4F |.!D4..2:.UP.0.OO|
00003C10: 24 28 49 29 B2 22 45 4D 50 54 59 22 A7 34 37 34 |$(I)."EMPTY".474|
00003C20: 30 00 3E 44 3E 12 9F 35 2C 34 3A 9D 35 3A 99 C7 |0.>D>..5,4:.5:..|
00003C30: 28 31 37 29 3B 3A 20 4C 4E B2 4C 4E AA 32 00 5D |(17);: LN.LN.2.]|
00003C40: 44 48 12 99 A6 38 29 22 D2 C5 C3 CF D2 C4 20 23 |DH...8)"...... #|
00003C50: 20 22 47 3A 99 3A 4C 4E B2 4C 4E AA 32 00 8A 44 | "G:.:LN.LN.2..D|
00003C60: 52 12 8B 4F 4F 24 28 49 29 B2 22 45 4D 50 54 59 |R..OO$(I)."EMPTY|
00003C70: 22 A7 99 A6 38 29 4F 4F 24 28 49 29 3A 4C 4E B2 |"...8)OO$(I):LN.|
00003C80: 4C 4E AA 31 3A 89 34 37 33 30 00 A1 44 5C 12 50 |LN.1:.4730..D\.P|
00003C90: 31 B2 50 4F 25 AA 39 3A 81 56 B2 31 A4 46 4C 44 |1.PO%.9:.V.1.FLD|
00003CA0: 53 00 DA 44 66 12 99 A6 38 29 43 48 24 28 56 29 |S..Df...8)CH$(V)|
00003CB0: C7 28 31 36 29 C7 28 34 38 AA B5 28 50 31 AD 31 |.(16).(48..(P1.1|
00003CC0: 30 29 29 C7 28 34 38 AA B5 28 50 31 AD 31 30 29 |0)).(48..(P1.10)|
00003CD0: AC 31 30 29 4F 4F 24 28 56 29 00 EC 44 70 12 82 |.10)OO$(V)..Dp..|
00003CE0: 56 3A 4C 4E B2 4C 4E AA 46 4C 44 53 00 F6 44 7A |V:LN.LN.FLDS..Dz|
00003CF0: 12 98 35 3A A0 35 00 18 45 84 12 82 47 3A 9F 32 |..5:.5..E...G:.2|
00003D00: 2C 38 2C 33 2C 22 20 22 AA 4E 4D 24 AA 22 2C 4C |,8,3," ".NM$.",L|
00003D10: 2C 22 3A 89 34 33 39 30 00 35 45 8E 12 8F 2A 2A |,":.4390.5E...**|
00003D20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003D30: 2A 2A 2A 2A 2A 00 52 45 98 12 8F 2A 20 54 48 45 |*****.RE...* THE|
00003D40: 20 53 45 43 54 49 4F 4E 20 41 44 44 53 20 20 20 | SECTION ADDS |
00003D50: 20 2A 00 6F 45 A2 12 8F 2A 20 52 45 43 4F 52 44 | *.oE...* RECORD|
00003D60: 53 20 2E 20 4A 41 4D 20 20 20 20 20 20 20 2A 00 |S . JAM *.|
00003D70: 8C 45 AC 12 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.E...***********|
00003D80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 97 45 B6 |************..E.|
00003D90: 12 8D 31 30 38 38 30 00 D0 45 C0 12 99 22 11 20 |..10880..E...". |
00003DA0: D4 48 45 52 45 20 41 52 45 20 12 22 4C 4F 22 92 |.HERE ARE ."LO".|
00003DB0: 52 45 43 4F 52 44 53 20 43 52 45 41 54 45 44 22 |RECORDS CREATED"|
00003DC0: 3A 99 22 20 46 4F 52 20 12 22 4E 4D 24 22 2E 22 |:." FOR ."NM$"."|
00003DD0: 00 FB 45 CA 12 5A 24 B2 22 22 3A 99 22 11 20 C8 |..E..Z$."":.". .|
00003DE0: 4F 57 20 4D 41 4E 59 20 4D 4F 52 45 20 52 45 43 |OW MANY MORE REC|
00003DF0: 4F 52 44 53 20 44 4F 20 59 4F 55 00 28 46 D4 12 |ORDS DO YOU.(F..|
00003E00: 85 22 20 57 41 4E 54 20 54 4F 20 41 44 44 20 28 |." WANT TO ADD (|
00003E10: 30 3D 51 55 49 54 29 22 3B 5A 24 3A 8B 20 5A 24 |0=QUIT)";Z$:. Z$|
00003E20: B2 22 22 A7 31 33 36 30 00 3E 46 DE 12 5A B2 C5 |."".1360.>F..Z..|
00003E30: 28 5A 24 29 3A 8B 5A B2 30 A7 31 33 36 30 00 52 |(Z$):.Z.0.1360.R|
00003E40: 46 E8 12 8B 5A B3 B2 35 30 30 AB 4C 4F A7 34 38 |F...Z..500.LO.48|
00003E50: 36 30 00 8D 46 F2 12 8D 31 30 38 38 30 3A 99 22 |60..F...10880:."|
00003E60: 11 20 12 D4 48 45 52 45 20 49 53 20 4E 4F 54 20 |. ..HERE IS NOT |
00003E70: 45 4E 4F 55 47 48 20 52 4F 4F 4D 20 49 4E 20 4D |ENOUGH ROOM IN M|
00003E80: 45 4D 4F 52 59 2E 22 3A 89 34 38 30 30 00 AA 46 |EMORY.":.4800..F|
00003E90: FC 12 99 22 11 20 C3 52 45 41 54 49 4E 47 20 46 |...". .REATING F|
00003EA0: 49 4C 45 53 2E 2E 2E 2E 2E 22 00 C6 46 06 13 81 |ILES....."..F...|
00003EB0: 54 B2 4C 4F AA 31 A4 4C 4F AA 5A 3A 4E 25 28 54 |T.LO.1.LO.Z:N%(T|
00003EC0: 29 B2 54 3A 82 54 00 E7 46 10 13 98 31 2C 22 53 |).T:.T..F...1,"S|
00003ED0: 3A 20 22 AA 4D 4E 24 AA 22 2F 53 4F 52 54 20 4B |: ".MN$."/SORT K|
00003EE0: 45 59 2C 53 2C 20 22 00 14 47 1A 13 9F 36 2C 38 |EY,S, "..G...6,8|
00003EF0: 2C 37 2C 22 20 22 AA 4D 4E 24 AA 22 2F 53 4F 52 |,7," ".MN$."/SOR|
00003F00: 54 20 4B 45 59 2C 53 2C 57 22 3A 81 49 B2 31 A4 |T KEY,S,W":.I.1.|
00003F10: 4C 4F AA 5A 00 2B 47 24 13 98 36 2C 4E 25 28 49 |LO.Z.+G$..6,N%(I|
00003F20: 29 3B 52 24 3B 3A 82 49 3A A0 36 00 55 47 2E 13 |);R$;:.I:.6.UG..|
00003F30: A0 32 3A 9F 32 2C 38 2C 33 2C 22 20 22 AA 4E 4D |.2:.2,8,3," ".NM|
00003F40: 24 AA 22 2C 4C 2C 22 AA C7 28 44 46 25 29 3A 8D |$.",L,"..(DF%):.|
00003F50: 31 30 30 31 30 00 93 47 38 13 57 31 B2 31 3A 4C |10010..G8.W1.1:L|
00003F60: 4F B2 4C 4F AA 5A 3A 8D 31 30 31 39 30 3A 4F 24 |O.LO.Z:.10190:O$|
00003F70: B2 22 45 4D 50 54 59 22 3A 81 49 B2 4C 4F AA 32 |."EMPTY":.I.LO.2|
00003F80: A4 4C 4F AA 5A AA 31 3A 52 31 B2 49 3A 8D 31 30 |.LO.Z.1:R1.I:.10|
00003F90: 30 38 30 00 C6 47 42 13 58 B2 31 3A 8D 31 30 32 |080..GB.X.1:.102|
00003FA0: 37 30 3A 99 22 11 11 20 D2 C5 C3 CF D2 C4 20 12 |70:.".. ...... .|
00003FB0: 22 49 AB 31 22 92 20 C3 D2 C5 C1 D4 C5 C4 2E 91 |"I.1". .........|
00003FC0: 91 91 22 3A 82 49 00 D0 47 4C 13 89 34 37 39 30 |..":.I..GL..4790|
00003FD0: 00 ED 47 56 13 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..GV..**********|
00003FE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 0A 48 |*************..H|
00003FF0: 60 13 8F 2A 20 53 45 43 54 49 4F 4E 20 54 4F 20 |`..* SECTION TO |
00004000: 52 45 41 44 20 44 49 53 4B 2A 00 27 48 6A 13 8F |READ DISK*.'Hj..|
00004010: 2A 20 44 49 52 45 43 54 4F 52 59 2E 4A 41 4D 20 |* DIRECTORY.JAM |
00004020: 20 20 20 20 20 20 2A 00 44 48 74 13 8F 2A 2A 2A | *.DHt..***|
00004030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004040: 2A 2A 2A 2A 00 61 48 7E 13 8D 31 30 39 30 30 3A |****.aH~..10900:|
00004050: 8B C2 28 38 33 30 29 B3 B1 33 32 A7 8D 35 30 31 |..(830)..32..501|
00004060: 30 00 98 48 88 13 9E 38 32 38 3A 8D 31 30 36 34 |0..H...828:.1064|
00004070: 30 3A 9F 31 2C 38 2C 31 35 3A A0 32 3A 9F 32 2C |0:.1,8,15:.2:.2,|
00004080: 38 2C 33 2C 22 20 22 AA 4E 4D 24 3A 8D 31 30 30 |8,3," ".NM$:.100|
00004090: 31 30 3A 89 31 33 36 30 00 A2 48 92 13 49 B2 38 |10:.1360..H..I.8|
000040A0: 32 38 00 B5 48 9C 13 87 41 3A 8B 41 B2 32 35 36 |28..H...A:.A.256|
000040B0: A7 35 30 34 30 00 CA 48 A6 13 97 49 2C 41 3A 49 |.5040..H...I,A:I|
000040C0: B2 49 AA 31 3A 89 35 30 32 30 00 E5 48 B0 13 8B |.I.1:.5020..H...|
000040D0: C2 28 36 35 34 34 30 29 B2 31 33 35 A7 97 39 32 |.(65440).135..92|
000040E0: 34 2C 31 38 39 00 EB 48 BA 13 8E 00 08 49 C4 13 |4,189..H.....I..|
000040F0: 83 31 36 39 2C 31 2C 33 32 2C 31 39 35 2C 32 35 |.169,1,32,195,25|
00004100: 35 2C 31 36 39 2C 33 36 00 26 49 CE 13 83 31 34 |5,169,36.&I...14|
00004110: 31 2C 32 34 30 2C 33 2C 31 36 39 2C 34 38 2C 31 |1,240,3,169,48,1|
00004120: 34 31 2C 32 34 31 00 3F 49 D8 13 83 33 2C 31 36 |41,241.?I...3,16|
00004130: 39 2C 31 2C 31 36 32 2C 38 2C 31 36 30 2C 30 00 |9,1,162,8,160,0.|
00004140: 5D 49 E2 13 83 33 32 2C 31 38 36 2C 32 35 35 2C |]I...32,186,255,|
00004150: 31 36 39 2C 32 2C 31 36 32 2C 32 34 30 00 7A 49 |169,2,162,240.zI|
00004160: EC 13 83 31 36 30 2C 33 2C 33 32 2C 31 38 39 2C |...160,3,32,189,|
00004170: 32 35 35 2C 33 32 2C 31 39 32 00 99 49 F6 13 83 |255,32,192..I...|
00004180: 32 35 35 2C 31 36 39 2C 36 34 2C 33 32 2C 31 34 |255,169,64,32,14|
00004190: 34 2C 32 35 35 2C 31 36 32 00 B6 49 00 14 83 31 |4,255,162..I...1|
000041A0: 2C 33 32 2C 31 39 38 2C 32 35 35 2C 33 32 2C 31 |,32,198,255,32,1|
000041B0: 34 34 2C 32 35 35 00 D4 49 0A 14 83 33 32 2C 32 |44,255..I...32,2|
000041C0: 30 37 2C 32 35 35 2C 33 32 2C 32 30 37 2C 32 35 |07,255,32,207,25|
000041D0: 35 2C 33 32 00 F2 49 14 14 83 32 30 37 2C 32 35 |5,32..I...207,25|
000041E0: 35 2C 33 32 2C 32 30 37 2C 32 35 35 2C 32 30 31 |5,32,207,255,201|
000041F0: 2C 30 00 10 4A 1E 14 83 32 34 30 2C 35 38 2C 33 |,0..J...240,58,3|
00004200: 32 2C 32 30 34 2C 32 35 35 2C 33 32 2C 32 32 38 |2,204,255,32,228|
00004210: 00 2D 4A 28 14 83 32 35 35 2C 32 30 31 2C 33 32 |.-J(..255,201,32|
00004220: 2C 32 30 38 2C 33 2C 33 32 2C 31 39 36 00 48 4A |,208,3,32,196.HJ|
00004230: 32 14 83 33 2C 31 36 32 2C 31 2C 33 32 2C 31 39 |2..3,162,1,32,19|
00004240: 38 2C 32 35 35 2C 33 32 00 67 4A 3C 14 83 32 30 |8,255,32.gJ<..20|
00004250: 37 2C 32 35 35 2C 31 36 38 2C 33 32 2C 32 30 37 |7,255,168,32,207|
00004260: 2C 32 35 35 2C 37 32 00 87 4A 46 14 83 31 35 32 |,255,72..JF..152|
00004270: 2C 31 37 30 2C 31 30 34 2C 33 32 2C 32 30 35 2C |,170,104,32,205,|
00004280: 32 32 31 2C 31 36 39 00 A5 4A 50 14 83 33 32 2C |221,169..JP..32,|
00004290: 33 32 2C 32 31 30 2C 32 35 35 2C 33 32 2C 32 30 |32,210,255,32,20|
000042A0: 37 2C 32 35 35 00 C0 4A 5A 14 83 32 30 31 2C 30 |7,255..JZ..201,0|
000042B0: 2C 32 30 38 2C 38 2C 31 36 39 2C 31 33 2C 33 32 |,208,8,169,13,32|
000042C0: 00 DD 4A 64 14 83 32 31 30 2C 32 35 35 2C 37 36 |..Jd..210,255,76|
000042D0: 2C 31 31 35 2C 33 2C 33 32 2C 32 31 30 00 F8 4A |,115,3,32,210..J|
000042E0: 6E 14 83 32 35 35 2C 37 36 2C 31 36 32 2C 33 2C |n..255,76,162,3,|
000042F0: 31 36 39 2C 31 2C 33 32 00 18 4B 78 14 83 31 39 |169,1,32..Kx..19|
00004300: 35 2C 32 35 35 2C 33 32 2C 32 30 34 2C 32 35 35 |5,255,32,204,255|
00004310: 2C 31 36 39 2C 32 30 34 00 37 4B 82 14 83 31 33 |,169,204.7K...13|
00004320: 33 2C 31 37 38 2C 39 36 2C 33 32 2C 32 32 38 2C |3,178,96,32,228,|
00004330: 32 35 35 2C 32 30 31 00 4E 4B 8C 14 83 33 32 2C |255,201.NK...32,|
00004340: 32 30 38 2C 32 34 39 2C 39 36 2C 32 35 36 00 72 |208,249,96,256.r|
00004350: 4B 10 27 8F 2A 2A 2A 2A 2A 2A 2A 2A 43 48 45 43 |K.'.********CHEC|
00004360: 4B 20 45 52 52 4F 52 20 43 48 41 4E 4E 45 4C 2A |K ERROR CHANNEL*|
00004370: 2A 2A 00 8F 4B 1A 27 84 31 2C 45 2C 45 24 2C 53 |**..K.'.1,E,E$,S|
00004380: 2C 44 3A 8B 45 B3 32 30 B0 45 B2 35 30 A7 8E 00 |,D:.E.20.E.50...|
00004390: BE 4B 24 27 99 22 93 11 11 11 20 20 20 20 20 20 |.K$'.".... |
000043A0: 20 12 2A 2A D4 C8 C5 D2 C5 A0 C9 D3 A0 C1 A0 C4 | .**............|
000043B0: C9 D3 CB A0 C5 D2 D2 CF D2 2E 2A 2A 92 22 00 DA |..........**."..|
000043C0: 4B 2E 27 99 22 11 11 20 20 20 20 20 20 20 C5 D2 |K.'.".. ..|
000043D0: D2 CF D2 22 45 A6 33 29 45 24 00 11 4C 38 27 99 |..."E.3)E$..L8'.|
000043E0: 22 11 11 20 20 20 20 D2 45 43 4F 52 44 20 23 20 |".. .ECORD # |
000043F0: 12 22 52 31 AA 32 35 36 AC 52 32 22 92 22 A3 32 |."R1.256.R2".".2|
00004400: 30 29 22 C6 49 45 4C 44 20 23 20 12 22 49 22 92 |0)".IELD # ."I".|
00004410: 22 00 2C 4C 42 27 99 22 11 22 A3 31 34 29 22 C3 |".,LB'.".".14)".|
00004420: 48 41 52 20 50 4F 53 2E 20 12 22 58 00 3D 4C 4C |HAR POS. ."X.=LL|
00004430: 27 98 31 2C 22 49 22 3A A0 32 3A A0 31 00 7E 4C |'.1,"I":.2:.1.~L|
00004440: 4D 27 99 22 11 11 20 C4 4F 20 59 4F 55 20 57 41 |M'.".. .O YOU WA|
00004450: 4E 54 20 54 48 45 20 44 49 53 4B 20 44 49 52 45 |NT THE DISK DIRE|
00004460: 43 54 4F 52 59 20 22 3B 3A 5A 24 B2 22 22 3A 85 |CTORY ";:Z$."":.|
00004470: 5A 24 3A 42 B2 33 34 3A 8D 31 30 34 38 30 00 94 |Z$:B.34:.10480..|
00004480: 4C 4E 27 8B 5A 24 B2 22 59 22 A7 99 22 93 22 3A |LN'.Z$."Y"..".":|
00004490: 9E 38 32 38 00 C3 4C 4F 27 99 22 11 11 20 D0 52 |.828..LO'.".. .R|
000044A0: 45 53 53 20 52 45 54 55 52 4E 20 54 4F 20 52 45 |ESS RETURN TO RE|
000044B0: 53 54 41 52 54 20 54 48 45 20 50 52 4F 47 52 41 |START THE PROGRA|
000044C0: 4D 2E 22 00 D8 4C 50 27 A1 41 24 3A 8B 41 24 B2 |M."..LP'.A$:.A$.|
000044D0: 22 22 A7 31 30 30 36 34 00 E9 4C 51 27 8B 41 24 |"".10064..LQ'.A$|
000044E0: B3 B1 C7 28 31 33 29 A7 80 00 F2 4C 52 27 89 31 |...(13)....LR'.1|
000044F0: 36 30 00 16 4D 56 27 8F 2A 2A 2A 2A 2A 43 48 41 |60..MV'.*****CHA|
00004500: 4E 47 45 20 52 45 43 4F 52 44 23 20 46 4F 52 4D |NGE RECORD# FORM|
00004510: 41 54 2A 2A 2A 2A 00 36 4D 60 27 52 32 B2 B5 28 |AT****.6M`'R2..(|
00004520: 52 31 AD 32 35 36 29 3A 52 31 B2 52 31 AB 32 35 |R1.256):R1.R1.25|
00004530: 36 AC 52 32 3A 8E 00 5A 4D 6A 27 8F 2A 2A 52 45 |6.R2:..ZMj'.**RE|
00004540: 41 44 20 57 31 20 41 4E 44 20 4C 4F 20 46 52 4F |AD W1 AND LO FRO|
00004550: 4D 20 52 45 43 23 31 2A 2A 2A 00 7F 4D 74 27 98 |M REC#1***..Mt'.|
00004560: 31 2C 22 50 22 C7 28 33 AA 39 36 29 C7 28 31 29 |1,"P".(3.96).(1)|
00004570: C7 28 30 29 C7 28 31 29 3A 8D 31 30 30 31 30 00 |.(0).(1):.10010.|
00004580: 98 4D 7E 27 84 32 2C 57 31 2C 4C 4F 2C 57 33 3A |.M~'.2,W1,LO,W3:|
00004590: 8D 31 30 30 31 30 3A 8E 00 C2 4D 88 27 99 22 11 |.10010:...M.'.".|
000045A0: 20 D4 48 45 20 4C 41 53 54 20 52 45 43 4F 52 44 | .HE LAST RECORD|
000045B0: 20 57 4F 52 4B 45 44 20 4F 4E 20 57 41 53 20 12 | WORKED ON WAS .|
000045C0: 22 3B 00 DC 4D 92 27 8B 57 33 B2 30 A7 99 22 4E |";..M.'.W3.0.."N|
000045D0: 4F 4E 45 2E 22 3A 89 31 30 31 35 30 00 E4 4D 9C |ONE.":.10150..M.|
000045E0: 27 99 57 31 00 0F 4E A6 27 99 22 20 D4 48 45 52 |'.W1..N.'." .HER|
000045F0: 45 20 41 52 45 20 12 22 4C 4F 22 92 52 45 43 4F |E ARE ."LO".RECO|
00004600: 52 44 53 20 43 52 45 41 54 45 44 2E 22 3A 8E 00 |RDS CREATED.":..|
00004610: 37 4E B0 27 99 22 11 11 20 D7 48 49 43 48 20 52 |7N.'.".. .HICH R|
00004620: 45 43 4F 52 44 20 57 4F 55 4C 44 20 59 4F 55 20 |ECORD WOULD YOU |
00004630: 4C 49 4B 45 20 54 4F 00 3D 4E BA 27 8E 00 61 4E |LIKE TO.=N.'..aN|
00004640: C4 27 8F 2A 2A 2A 2A 2A 57 52 49 54 45 20 57 31 |.'.*****WRITE W1|
00004650: 20 41 4E 44 20 4C 4F 2A 2A 2A 2A 2A 2A 2A 2A 2A | AND LO*********|
00004660: 2A 00 86 4E CE 27 98 31 2C 22 50 22 C7 28 33 AA |*..N.'.1,"P".(3.|
00004670: 39 36 29 C7 28 31 29 C7 28 30 29 C7 28 31 29 3A |96).(1).(0).(1):|
00004680: 8D 31 30 30 31 30 00 A8 4E D8 27 98 32 2C 57 31 |.10010..N.'.2,W1|
00004690: 3B 52 24 3B 4C 4F 3B 52 24 3B 57 33 3B 52 24 3A |;R$;LO;R$;W3;R$:|
000046A0: 8D 31 30 30 31 30 3A 8E 00 CC 4E E2 27 8F 2A 2A |.10010:...N.'.**|
000046B0: 2A 2A 2A 2A 2A 2A 52 45 41 44 20 4F 4E 45 20 57 |******READ ONE W|
000046C0: 4F 52 44 20 46 52 4F 4D 2A 2A 2A 2A 00 F0 4E EC |ORD FROM****..N.|
000046D0: 27 8F 2A 2A 2A 2A 2A 2A 2A 2A 54 48 45 20 52 45 |'.********THE RE|
000046E0: 4C 41 54 49 56 45 20 46 49 4C 45 2A 2A 2A 2A 2A |LATIVE FILE*****|
000046F0: 00 1D 4F F6 27 98 31 2C 22 50 22 C7 28 33 AA 39 |..O.'.1,"P".(3.9|
00004700: 36 29 C7 28 52 31 29 C7 28 52 32 29 C7 28 58 29 |6).(R1).(R2).(X)|
00004710: 3A 8D 31 30 30 31 30 3A 4F 24 B2 22 22 00 30 4F |:.10010:O$."".0O|
00004720: 00 28 84 32 2C 4F 24 3A 8D 31 30 30 31 30 3A 8E |.(.2,O$:.10010:.|
00004730: 00 54 4F 0A 28 8F 2A 2A 2A 2A 2A 2A 2A 2A 57 52 |.TO.(.********WR|
00004740: 49 54 45 20 4F 4E 45 20 57 4F 52 44 20 54 4F 2A |ITE ONE WORD TO*|
00004750: 2A 2A 2A 2A 00 78 4F 14 28 8F 2A 2A 2A 2A 2A 2A |****.xO.(.******|
00004760: 2A 2A 54 48 45 20 52 45 4C 41 54 49 56 45 20 46 |**THE RELATIVE F|
00004770: 49 4C 45 2A 2A 2A 2A 2A 00 9F 4F 1E 28 98 31 2C |ILE*****..O.(.1,|
00004780: 22 50 22 C7 28 33 AA 39 36 29 C7 28 52 31 29 C7 |"P".(3.96).(R1).|
00004790: 28 52 32 29 C7 28 58 29 3A 8D 31 30 30 31 30 00 |(R2).(X):.10010.|
000047A0: B5 4F 28 28 98 32 2C 4F 24 3B 52 24 3A 8D 31 30 |.O((.2,O$;R$:.10|
000047B0: 30 31 30 3A 8E 00 D9 4F 32 28 8F 2A 2A 2A 2A 2A |010:...O2(.*****|
000047C0: 2A 2A 2A 52 45 41 44 20 54 48 45 20 57 48 4F 4C |***READ THE WHOL|
000047D0: 45 20 52 45 43 2E 2A 2A 2A 00 FD 4F 3C 28 8F 2A |E REC.***..O<(.*|
000047E0: 2A 2A 2A 2A 2A 2A 2A 49 4E 54 4F 20 4F 4F 24 28 |*******INTO OO$(|
000047F0: 20 29 2E 4A 41 4D 20 20 20 20 2A 2A 2A 00 32 50 | ).JAM ***.2P|
00004800: 46 28 58 B2 31 3A 81 49 B2 31 A4 46 4C 44 53 3A |F(X.1:.I.1.FLDS:|
00004810: 98 31 2C 22 50 22 C7 28 33 AA 39 36 29 C7 28 52 |.1,"P".(3.96).(R|
00004820: 31 29 C7 28 52 32 29 C7 28 58 29 3A 8D 31 30 30 |1).(R2).(X):.100|
00004830: 31 30 00 69 50 50 28 58 B2 58 AA 43 48 28 49 29 |10.iPP(X.X.CH(I)|
00004840: AA 31 3A 84 32 2C 4F 4F 24 28 49 29 3A 8D 31 30 |.1:.2,OO$(I):.10|
00004850: 30 31 30 3A 8B 4F 4F 24 28 49 29 B2 22 22 A7 4F |010:.OO$(I)."".O|
00004860: 4F 24 28 49 29 B2 22 20 22 00 7F 50 5A 28 8B 4F |O$(I)." "..PZ(.O|
00004870: 4F 24 28 49 29 B2 22 45 4D 50 54 59 22 A7 8E 00 |O$(I)."EMPTY"...|
00004880: 92 50 64 28 8B 49 B2 31 A7 58 B2 43 48 28 31 29 |.Pd(.I.1.X.CH(1)|
00004890: AA 32 00 9B 50 6E 28 82 49 3A 8E 00 BD 50 78 28 |.2..Pn(.I:...Px(|
000048A0: 8F 2A 2A 2A 2A 2A 57 52 49 54 45 20 54 48 45 20 |.*****WRITE THE |
000048B0: 57 48 4F 4C 45 20 52 45 43 2E 2A 2A 2A 00 DE 50 |WHOLE REC.***..P|
000048C0: 82 28 8F 2A 2A 2A 2A 2A 49 4E 54 4F 20 4F 4F 24 |.(.*****INTO OO$|
000048D0: 28 20 29 2E 4A 41 4D 20 20 20 20 2A 2A 2A 00 13 |( ).JAM ***..|
000048E0: 51 8C 28 58 B2 31 3A 81 49 B2 31 A4 46 4C 44 53 |Q.(X.1:.I.1.FLDS|
000048F0: 3A 98 31 2C 22 50 22 C7 28 33 AA 39 36 29 C7 28 |:.1,"P".(3.96).(|
00004900: 52 31 29 C7 28 52 32 29 C7 28 58 29 3A 8D 31 30 |R1).(R2).(X):.10|
00004910: 30 31 30 00 46 51 96 28 58 B2 58 AA 43 48 28 49 |010.FQ.(X.X.CH(I|
00004920: 29 AA 31 3A 98 32 2C 4F 4F 24 28 49 29 3B 52 24 |).1:.2,OO$(I);R$|
00004930: 3A 8D 31 30 30 31 30 3A 8B 49 B2 31 A7 58 B2 43 |:.10010:.I.1.X.C|
00004940: 48 28 31 29 AA 32 00 4F 51 A0 28 82 49 3A 8E 00 |H(1).2.OQ.(.I:..|
00004950: 73 51 AA 28 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 50 |sQ.(.********* P|
00004960: 52 49 4E 54 20 48 45 41 44 45 52 20 2A 2A 2A 2A |RINT HEADER ****|
00004970: 2A 2A 2A 00 AD 51 B4 28 99 22 93 22 C7 28 31 34 |***..Q.(.".".(14|
00004980: 29 22 12 20 20 20 20 D7 C5 CC C3 CF CD C5 20 D4 |)". ....... .|
00004990: CF 20 D2 C5 CC C1 D4 C9 D6 C5 20 C6 C9 CC C5 A0 |. ........ .....|
000049A0: CD C1 CE C1 C7 C5 D2 20 20 20 20 92 22 00 C1 51 |....... ."..Q|
000049B0: BE 28 8B 4E 4D 24 B3 B1 22 22 A7 8D 31 30 34 35 |.(.NM$..""..1045|
000049C0: 30 00 C7 51 C8 28 8E 00 EF 51 D2 28 99 22 91 20 |0..Q.(...Q.(.". |
000049D0: 20 20 20 D2 C5 CC C1 D4 C9 D6 C5 20 C6 C9 CC C5 | ........ ....|
000049E0: 20 CF D0 C5 CE 20 3D 20 12 22 4E 4D 24 3A 8E 00 | .... = ."NM$:..|
000049F0: 13 52 DC 28 8F 2A 2A 2A 2A 2A 2A 2A 2A 20 49 4E |.R.(.******** IN|
00004A00: 50 55 54 20 4C 49 4E 45 20 2A 2A 2A 2A 2A 2A 2A |PUT LINE *******|
00004A10: 2A 2A 2A 00 35 52 E6 28 5A 24 B2 22 22 3A 85 22 |***.5R.(Z$."":."|
00004A20: 20 52 45 4C 41 54 49 56 45 20 46 49 4C 45 20 22 | RELATIVE FILE "|
00004A30: 3B 5A 24 3A 8E 00 5A 52 F0 28 8B C8 28 5A 24 2C |;Z$:..ZR.(..(Z$,|
00004A40: 31 29 B2 22 59 22 A7 99 A3 42 29 22 91 59 45 53 |1)."Y"...B)".YES|
00004A50: 22 3A 5A 24 B2 22 59 22 3A 8E 00 7E 52 FA 28 8B |":Z$."Y":..~R.(.|
00004A60: C8 28 5A 24 2C 31 29 B2 22 4E 22 A7 99 A3 42 29 |.(Z$,1)."N"...B)|
00004A70: 22 91 4E 4F 22 3A 5A 24 B2 22 4E 22 3A 8E 00 8B |".NO":Z$."N":...|
00004A80: 52 04 29 5A 24 B2 22 51 22 3A 8E 00 A0 52 0E 29 |R.)Z$."Q":...R.)|
00004A90: A1 5A 24 3A 8B 5A 24 B2 22 22 A7 31 30 35 31 30 |.Z$:.Z$."".10510|
00004AA0: 00 A6 52 18 29 8E 00 CA 52 22 29 8F 2A 2A 2A 2A |..R.)...R").****|
00004AB0: 2A 2A 2A 2A 2A 20 57 52 49 54 45 20 48 45 41 44 |***** WRITE HEAD|
00004AC0: 45 52 20 2A 2A 2A 2A 2A 2A 2A 00 FE 52 2C 29 99 |ER *******..R,).|
00004AD0: 22 93 12 20 20 20 D2 C5 CC C1 D4 C9 D6 C5 20 C6 |".. ........ .|
00004AE0: C9 CC C5 A0 CD C1 CE C1 C7 C5 D2 3A 20 D7 D2 C9 |...........: ...|
00004AF0: D4 C5 20 D2 C5 C3 CF D2 C4 20 20 22 3A 8E 00 21 |.. ...... ":..!|
00004B00: 53 36 29 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 52 45 43 |S6).*********REC|
00004B10: 4F 52 44 20 45 58 49 53 54 53 2A 2A 2A 2A 2A 2A |ORD EXISTS******|
00004B20: 2A 00 33 53 40 29 8B 57 31 B1 4C 4F A7 49 B2 39 |*.3S@).W1.LO.I.9|
00004B30: 39 3A 8E 00 39 53 4A 29 8E 00 62 53 54 29 99 22 |9:..9SJ)..bST)."|
00004B40: 11 20 12 2A CE CF A0 D3 D5 C3 C8 20 D2 C5 C3 CF |. .*....... ....|
00004B50: D2 C4 A0 C5 D8 C9 D3 D4 D3 2A 22 3A 49 B2 39 39 |.........*":I.99|
00004B60: 3A 8E 00 86 53 5E 29 8F 2A 2A 2A 2A 2A 2A 2A 2A |:...S^).********|
00004B70: 20 55 50 44 41 54 45 20 48 45 41 44 45 52 20 2A | UPDATE HEADER *|
00004B80: 2A 2A 2A 2A 2A 2A 00 BB 53 68 29 99 22 05 93 12 |******..Sh)."...|
00004B90: 20 20 D2 C5 CC C1 D4 C9 D6 C5 20 C6 C9 CC C5 A0 | ........ .....|
00004BA0: CD C1 CE C1 C7 C5 D2 3A 20 D5 D0 C4 C1 D4 C5 20 |.......: ...... |
00004BB0: D2 C5 C3 CF D2 C4 D3 20 22 3A 8E 00 DF 53 72 29 |....... ":...Sr)|
00004BC0: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 52 45 41 44 20 |.********* READ |
00004BD0: 20 48 45 41 44 45 52 20 2A 2A 2A 2A 2A 2A 2A 00 | HEADER *******.|
00004BE0: 13 54 7C 29 99 22 93 12 20 20 20 D2 C5 CC C1 D4 |.T|).".. .....|
00004BF0: C9 D6 C5 20 C6 C9 CC C5 A0 CD C1 CE C1 C7 C5 D2 |... ............|
00004C00: 3A 20 D2 C5 C1 C4 20 20 D2 C5 C3 CF D2 C4 20 20 |: .... ...... |
00004C10: 22 3A 8E 00 37 54 86 29 8F 2A 2A 2A 2A 2A 2A 2A |":..7T.).*******|
00004C20: 2A 2A 2A 2A 2A 2A 50 52 45 53 53 20 41 4E 59 20 |******PRESS ANY |
00004C30: 4B 45 59 2A 2A 2A 2A 00 63 54 90 29 99 22 11 20 |KEY****.cT.).". |
00004C40: 20 3C 3C 3C D0 D2 C5 D3 D3 A0 C1 CE D9 A0 CB C5 | <<<............|
00004C50: D9 A0 D4 CF A0 C3 CF CE D4 C9 CE D5 C5 20 3E 3E |............. >>|
00004C60: 3E 22 3B 00 78 54 9A 29 A1 41 24 3A 8B 41 24 B2 |>";.xT.).A$:.A$.|
00004C70: 22 22 A7 31 30 36 35 30 00 7E 54 A4 29 8E 00 A0 |"".10650.~T.)...|
00004C80: 54 AE 29 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 4D 4F |T.).**********MO|
00004C90: 44 49 46 59 20 4D 45 2A 2A 2A 2A 2A 2A 2A 2A 2A |DIFY ME*********|
00004CA0: 00 D4 54 B8 29 99 22 93 12 20 20 20 D2 C5 CC C1 |..T.).".. ....|
00004CB0: D4 C9 D6 C5 A0 C6 C9 CC C5 A0 CD C1 CE C1 C7 C5 |................|
00004CC0: D2 3A 20 C5 C4 C9 D4 20 D2 C5 C3 CF D2 C4 20 20 |.: .... ...... |
00004CD0: 20 22 3A 8E 00 F6 54 C2 29 8F 2A 2A 2A 2A 2A 2A | ":...T.).******|
00004CE0: 2A 2A 2A 2A 2A 53 45 41 52 43 48 20 4D 45 2A 2A |*****SEARCH ME**|
00004CF0: 2A 2A 2A 2A 2A 2A 00 2A 55 CC 29 99 22 93 12 20 |******.*U.).".. |
00004D00: 20 20 D2 C5 CC C1 D4 C9 D6 C5 A0 C6 C9 CC C5 A0 | ..............|
00004D10: CD C1 CE C1 C7 C5 D2 3A 20 D3 C5 C1 D2 C3 C8 20 |.......: ...... |
00004D20: D2 C5 C3 CF D2 C4 20 22 3A 8E 00 4C 55 D6 29 8F |...... ":..LU.).|
00004D30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 53 45 41 52 43 |***********SEARC|
00004D40: 48 20 4D 45 2A 2A 2A 2A 2A 2A 2A 2A 00 80 55 E0 |H ME********..U.|
00004D50: 29 99 22 93 12 20 20 20 D2 C5 CC C1 D4 C9 D6 C5 |).".. ........|
00004D60: A0 C6 C9 CC C5 A0 CD C1 CE C1 C7 C5 D2 3A 20 D3 |.............: .|
00004D70: CF D2 D4 20 D2 C5 C3 CF D2 C4 D3 20 20 22 3A 8E |... ....... ":.|
00004D80: 00 A2 55 EA 29 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..U.).**********|
00004D90: 2A 44 45 4C 45 54 45 20 4D 45 2A 2A 2A 2A 2A 2A |*DELETE ME******|
00004DA0: 2A 2A 00 D6 55 F4 29 99 22 93 12 20 20 20 D2 C5 |**..U.).".. ..|
00004DB0: CC C1 D4 C9 D6 C5 A0 C6 C9 CC C5 A0 CD C1 CE C1 |................|
00004DC0: C7 C5 D2 3A 20 C4 C5 CC C5 D4 C5 20 D2 C5 C3 CF |...: ...... ....|
00004DD0: D2 C4 20 22 3A 8E 00 F8 55 FE 29 8F 2A 2A 2A 2A |.. ":...U.).****|
00004DE0: 2A 2A 2A 2A 2A 2A 2A 43 4F 50 59 20 20 20 4D 45 |*******COPY ME|
00004DF0: 2A 2A 2A 2A 2A 2A 2A 2A 00 2C 56 08 2A 99 22 93 |********.,V.*.".|
00004E00: 12 20 20 20 D2 C5 CC C1 D4 C9 D6 C5 A0 C6 C9 CC |. ............|
00004E10: C5 A0 CD C1 CE C1 C7 C5 D2 3A 20 20 C3 CF D0 D9 |.........: ....|
00004E20: A0 D2 C5 C3 CF D2 C4 20 20 22 3A 8E 00 4E 56 12 |....... ":..NV.|
00004E30: 2A 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 50 52 49 |*.***********PRI|
00004E40: 4E 54 20 20 4D 45 2A 2A 2A 2A 2A 2A 2A 2A 00 82 |NT ME********..|
00004E50: 56 1C 2A 99 22 93 12 20 20 20 D2 C5 CC C1 D4 C9 |V.*.".. ......|
00004E60: D6 C5 A0 C6 C9 CC C5 A0 CD C1 CE C1 C7 C5 D2 3A |...............:|
00004E70: 20 D0 D2 C9 CE D4 20 D2 C5 C3 CF D2 C4 D3 20 22 | ..... ....... "|
00004E80: 3A 8E 00 A4 56 26 2A 8F 2A 2A 2A 2A 2A 2A 2A 50 |:...V&*.*******P|
00004E90: 52 49 4E 54 45 52 20 48 45 41 44 45 52 53 2A 2A |RINTER HEADERS**|
00004EA0: 2A 2A 2A 2A 00 D0 56 30 2A 99 C7 28 31 34 29 20 |****..V0*..(14) |
00004EB0: 22 20 20 20 20 20 20 20 20 20 D2 C5 CC C1 D4 C9 |" ......|
00004EC0: D6 C5 A0 C6 C9 CC C5 A0 CD C1 CE C1 C7 C5 D2 22 |..............."|
00004ED0: 00 D6 56 3A 2A 99 00 07 57 44 2A 99 C7 28 31 34 |..V:*...WD*..(14|
00004EE0: 29 22 20 20 20 20 20 20 20 20 20 C6 C9 CC C5 20 |)" .... |
00004EF0: CE C1 CD C5 20 3A 22 C7 28 31 35 29 4E 4D 24 3A |.... :".(15)NM$:|
00004F00: 4C 4E B2 4C 4E AA 38 00 0D 57 4E 2A 99 00 22 57 |LN.LN.8..WN*.."W|
00004F10: 58 2A 99 A6 36 35 29 22 D0 C1 C7 C5 20 22 50 47 |X*..65)".... "PG|
00004F20: 3A 8E 00 44 57 62 2A 8F 2A 2A 2A 2A 2A 2A 2A 50 |:..DWb*.*******P|
00004F30: 52 49 4E 54 45 52 20 52 45 43 4F 52 44 53 2A 2A |RINTER RECORDS**|
00004F40: 2A 2A 2A 2A 00 67 57 6C 2A 9F 35 2C 34 3A 81 4D |****.gWl*.5,4:.M|
00004F50: B2 31 A4 4C 3A 98 35 3A 82 4D 3A A0 35 3A 4C 4E |.1.L:.5:.M:.5:LN|
00004F60: B2 4C 4E AA 4C 3A 8E 00 8B 57 76 2A 8F 2A 2A 2A |.LN.L:...Wv*.***|
00004F70: 2A 2A 2A 2A 41 44 44 20 52 45 43 4F 52 44 53 20 |****ADD RECORDS |
00004F80: 54 49 54 4C 45 2A 2A 2A 2A 2A 2A 00 BF 57 80 2A |TITLE******..W.*|
00004F90: 99 22 93 12 20 20 20 D2 C5 CC C1 D4 C9 D6 C5 A0 |.".. .........|
00004FA0: C6 C9 CC C5 A0 CD C1 CE C1 C7 C5 D2 3A 20 C1 C4 |............: ..|
00004FB0: C4 A0 D2 C5 C3 CF D2 C4 D3 20 20 20 22 3A 8E 00 |......... ":..|
00004FC0: E3 57 8A 2A 8F 2A 2A 2A 2A 2A 2A 2A 41 44 44 20 |.W.*.*******ADD |
00004FD0: 52 45 43 4F 52 44 53 20 54 49 54 4C 45 2A 2A 2A |RECORDS TITLE***|
00004FE0: 2A 2A 2A 00 17 58 94 2A 99 22 93 12 20 20 20 D2 |***..X.*.".. .|
00004FF0: C5 CC C1 D4 C9 D6 C5 A0 C6 C9 CC C5 A0 CD C1 CE |................|
00005000: C1 C7 C5 D2 3A 20 D2 C5 C1 C4 A0 C4 C9 D2 C5 C3 |....: ..........|
00005010: D4 CF D2 D9 22 3A 8E 00 00 00 |....":.... |
..(.... ********************************
.O.... ** **.
V.... ** FILE-MANAGER **..
.(.. ** **.D.
2.. ** RELATIVE FILE MANAGER **...F
.. ** **...P.
. ********************************.D....
AA$(500),N%(500):.53281,0:."."G(14):.650
,128.T. .NM$."":.10420:.B(49152).76.B(49
257).173.200......646,B(53281)......"..N
EW..":."LOAD"G(34)"REL.FILE.BOOTER"G(34)
",8...."......"RUN..............":.198,3
:.631,13:.632,13:.633,13:..&.H..". NOTE:
IN ALL CASES THROUGHOUT THIS".P.R.."
PROGRAM, TYPING THE RETURN KEY.Z...."
WITH NO KEYBOARD ENTRY WILL......
" ACT AS AN ESCAPE FROM WHATEVER....
.." YOU ARE DOING........". PUT A DI
SK FOR RELATIVE FILES IN THE D
RIVE."......B(830)..32..5010.,....".";:.
10640:.10420.L....1,8,15,"I":R$.G(13):NM
$.""...".B.17:Z$."":.". DO YOU WANT TO C
REATE A BRAND NEW":.10470:.10480...,..Z$
.."Q".340.U.6..". DO YOU WANT TO QUIT";:
Z$."":.Z$:B.22:.10480...@..Z$."N"..10420
:.290...J. 2: 1:....T..Z$."Y".560.2.^.."
. WHAT IS THE NAME OF YOUR":.10470.R.H.N
M$.Z$:Z.C(NM$):.NM$."".310...R..Z.15..10
420:.". .FILE NAME TOO LONG.":.290. .|.M
N$.NM$:.Z.6.MN$.H(NM$,6).L....2,8,3," ".
NM$:.10010:. DOES FILE EXIST..... 6:.6,8
,7," ".MN$."/KEY,S,R":.6,FLDS,DF,PO%:.10
010.....DF%.253.A....10420:.". ."NM$". H
AS ."FLDS".FIELDS CREATED.R...." AND A R
ECORD LENGTH OF ."DF".CHARACTERS.". .B..
". FIELD #".12)"TITLE".27)"CHAR. LENGTH"
.N.L.." .......".12)".....".27)"........
....."...V..I.1.FLDS:.6,CH(I),CH$(I)....
...3)I.11)CH$(I).32)CH(I)......I: 6.>...
.FX1%.9.."...":.10640:.10420:.".":.750.I
....10100......6,8,7," ".MN$."/SORT KEY,
S,R":.10010:.I.1.LO:.6,N%(I):......."...
":.10640: 6......1360.K.&.. ******* CREA
TE NEW FILE *******...0..". WHAT DO YOU
WANT TO CALL YOUR":.10470...:.NM$.Z$:Z.C
(NM$):.NM$."".310.I.D..Z.15..10420:.". .
FILE NAME TOO LONG.":.560.U.N. 2:.2,8,3,
" ".NM$:.1,E,E$,C,D:.E.62.640...X..". TH
AT FILE NAME ALREADY EXISTS..K.B.Z$."":.
" DO YOU WANT TO WRITE OVER IT ";Z$.T.L.
B.32...V..10480:.Z$."Q".Z$."N"..10420:.5
60.....MN$.NM$:.Z.6.MN$.H(NM$,6).-....E.
62.Z$."":.700.`...Z$."":.". DO YOU WANT
TO KEEP THE FIELD TITLES......" AND THEI
R CHARACTER LENGTHS THE SAME.L...." AS T
HEY 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, ".P.Z..1,"
S: ".MN$."/SORT KEY,S, ".`....FX1%.9.400
......". HOW MANY RECORDS LONG":." WILL
"NM$;:." BE ";LO......LO.1.LO.500..10420
:.750.F....FX1%..9.790......". CREATING
FILES ...":.1280.'....10420:.". HOW MANY
FIELDS (9 MAX) WILL EACH":PO%.1:FLDS.0.
[. .." RECORD HAVE ";FLDS:.FLDS.1.FLDS.9
.."..":.790...*..I.1.FLDS:.". ENTER THE
TITLE FOR FIELD #."I...4.CH$(I)."":." (2
0 CHARACTERS MAX) ";CH$(I)...>..CH$(I)."
".C(CH$(I)).20.C(CH$(I)).1..10420:.810..
.H..I.6..10420...R..C(CH$(I)).PO%.PO%.C(
CH$(I)).&.\..I.].F..10420:.". THE FOLLOW
ING ARE RECORD FIELD TITLES;"...P..I.1.F
LDS:.". FIELD #"I.PO%.2)CH$(I):.I...Z.B.
34:Z$."".K....". DO YOU WANT TO MAKE ANY
CHANGES";Z$:.10480......Z$."Q".."...":.
900......Z$."N"..10420:.1000......10420.
/....". WHICH FIELD ";Z:.Z.1.Z.FLDS.870.
V....". ENTER THE TITLE FOR FIELD #."Z.Z
...." (20 CHARACTERS MAX) ";CH$(Z)...J..
CH$(Z)."".C(CH$(Z)).20.C(CH$(Z)).1.CH(Z)
." ".M.T..C(CH$(Z)).PO%.PO%.C(CH$(Z)).V.
...870......". NOTE: ONLY 240 CHARACTERS
TOTAL FOR ":." ALL FIELDS ALLOWED..L...
DF.0:.I.1.FLDS:.". ENTER THE # OF CHARAC
TERS.M...." FOR FIELD #."I".";:.CH(I)...
...CH(I).240.FLDS.CH(I).1..10420:.1000..
....I..6.1070.O....10420:.". ENTER THE #
OF CHARACTERS"...$.." FOR FIELD #."I".
"CH(I).....DF.DF.CH(I):..28)".TOTAL=."DF
:.DF.241.1090.O.8..10420:.". .CHARACTER
TOTAL TOO GREAT.":.1000.V.B..I...L..1042
0:." THE FOLLOWING ARE RECORD FIELD":."
CHARACTER LENGTHS;.D.V.DF.0:.I.1.FLDS:."
. FIELD #"I.18)CH(I)...`.DF.DF.CH(I):..2
8)".SUM=."DF:.DF.243.1080...J..I.FLDS...
28)".TOTAL=."DF.!.T..I:B.34:Z$."".Z.~.Z$
."":.". DO YOU WANT TO MAKE ANY CHANGES"
;Z$:.10480.S....Z$."Q".."...":.1150.....
.Z$."N".1240......10420.....Z.0:.". WHIC
H FIELD ";Z:.Z.1.Z.FLDS.1100.....DF.0:.I
.1.FLDS:.". ENTER THE # OF CHARACTERS...
..." FOR FIELD #."Z".";:.CH(Z).-.D..CH(Z
).235.CH(Z).1.CH(Z).1.7.N..1100.[.X..104
20:.". CREATING FILES....."..... 6:.6,8,
7," ".MN$."/KEY,S,W":.6,FLDS;R$;DF;R$;PO
%;R$;......I.1.FLDS:.6,CH(I);R$;CH$(I);R
$;:.I: 6.K...FX1%.0......6,8,7," ".MN$."
/SORT KEY,S,W":.I.1.LO:N%(I).I......6,I;
R$;:.I: 6.....DF%.253.@.(. 2:.2,8,3," ".
NM$.",L,".G(DF%).V.2.W1.1:W3.0:.10190:O$
."EMPTY":.I.2.LO.1:R1.I:.10080...<.X.1:.
10270:.".. RECORD ."I.1". CREATED....":.
I...F..FX1%.9.FX1%.0.G.P..10420...Z..".
OKAY, WHAT OPERATION DID YOU WANT...D.."
TO PERFORM ?.".!.N.." WRITE (W) ?
".;.X.." READ (R) ?".U...." UPDA
TE (U) ?".O...." MODIFY (M) ?".
....." SEARCH (S) ?"... .." SORT
(SO) ?"......" DELETE (DE) ?".W.
..." RESTART (RE) ?"......" PRINT
(P) ?"...H.." ADD ON (A) ?".%.R.
." COPY (C) ?".?...." DIRECTORY
(D) ?".Y...." END (E) ?".Z...L$
."":.". INPUT A LETTER";L$......L$."".."
...":.1520......L$."W".1720......L$."R".
2160.E....L$."U".1990.V."..L$."M".2380..
.,..L$."S".2750...6..L$."SO".3500...@..L
$."DE".3930.8.J..L$."RE".NM$."":.10420:.
10190: 2: 1:.280.I.T..L$."P".4390.Z.^..L
$."A".4790.K.H..L$."C".4100.|.R..L$."D".
4990...|..L$."E"..10190: 2: 1:.......104
20:.". VERY FUNNY HA-HA.":.1370...... **
****************************...... * THI
S SECTION WRITES RECORDS*...... * ON THE
DISK. WRITE ON! *.S.... ***********
*******************.L....10540:.10120:.1
0160...B.W2.W1:W1$."0":." WRITE TO (0=QU
IT) ";W1$:W1.E(W1$)...L..W1..0.W1.W2:.13
60.U.V.I.0:.10560:.I..99.1770......10540
:.10580:W1.W2:.10120:.10160:.1730.....R1
.N%(W1).1:.10080.8...X.1:.10230:.O$."EMP
TY".1820.M....". RECORD # ."W1".ALREADY
CONTAINS DATA.":Z$.""......" DO YOU WANT
TO WRITE OVER IT ";:.Z$:B.32:.10480.X..
..Z$."Q".Z$."N".W1.W2:.10540:.10120:.101
60:.1730......10540:.10120:.". RECORD #.
"W1"..".2.&..J.1.FLDS:." "CH$(J).PO%.2);
:OO$(J)."":.OO$(J).L.0..OO$(J)."".OO$(J)
." ".X.:..C(OO$(J)).CH(J).OO$(J).H(OO$(J
),CH(J))..D..J...N..10540:.". RECORD #.
"W1".".L.X..".":.I.1.FLDS:." "CH$(I).PO%
.3)OO$(I):.I.. B.Z$."":.".. IS THIS RIGH
T (Q=QUIT)";Z$:.Z$."Q".Z$."":.1910.. L..
Z$."".Z$."Y".9 V.B.25:.10480:.Z$."N".182
0.F ...Z$."Q"..10540:W1.W2:.10120:.10160
:.1730.. ...10380: 2:W3.W1:.2,8,3," ".NM
$.",L,".G(DF%):.1720.. ...**************
****************.. ...* THIS IS THE UPDA
TE SECTION *..!...* THAT TELLS CLOWN WHI
CH *.,!...* RECORDS ARE FULL.
*.P!...******************************
.U!F..10600:.T.1.LO:R1.N%(T).1:.10080..!
P.X.1:.10230..!Z.." RECORD # ."T".",:.O$
.."EMPTY".."FULL":.2030..!...O$.W!...T.2
0...(T.20).2060.."...". SPACE BAR ST
OPS LISTING..":.10640.."...10600:.A$.G(3
2).2070.&"...T.O"...". THE LAST RECORD W
ORKED ON WAS ";.H" ..W3.0.."NONE.":.2100
.P"*..W1.."4.."..":.10640:.1360..">..***
***************************.O"H..* THE S
ECTION READS THE *.."R..* REQUIRED
RECORDS FROM THE *..#\..* DISK. READ O
FF *.;#F..*******************
***********.T#P..10620:.10120:.10160..#Z
.W2.W1:W1$."0":." READ (0=QUIT) ";:.W1$:
W1.E(W1$)..#..I.0:.10560:.I..99.2200.T#.
.I.0:.10620:.10580:W1.W2:.10120:.10160:.
2170..#...W1..0.W1.W2:.1360..$..R1.N%(W1
).1:.10080.#$..X.1:.10230:.O$.."EMPTY".2
250.S$...10620:.". RECORD # ."W1". IS ."
O$".":W1.W2.K$...10120:.10160:.2170..$J.
.10620:.". RECORD #."W1".."..$T..10310..
$...I.1.FLDS:." "CH$(I).PO%.3)OO$(I):.I.
P$...10160:.2170..$...******************
*************..%...* THIS SECTION WILL E
DIT OUR *.?%...* SAVED DATA BY READING
IT *.D%...* INTO AN ARRAY, ASKING WHA
T *..%...* CHANGES CLOWN WANTS TO MAKE,
*..%$..* MODIFYING THE ARRAY THEN *.S
%...* SAVEING THE MODIFIED ARRAY *..%8.
.* BACK ONTO THE DISK. *..&B..**
*****************************.6&L..10680
:.10120:.10160.K&V.W2.W1:W1$."0":." MODI
FY (0=QUIT) ";W1$:W1.E(W1$)..&`.I.0:.105
60:.I..99.2420..&J.I.0:.10680:.10580:W1.
W2:.10120:.10160:.2390.M&T..W1..0.W1.W2:
.1360..&~.R1.N%(W1).1:.10080..'...10310:
.OO$(I).."EMPTY".2470.9'...10680:.". REC
ORD # ."W1". IS ."OO$(I)".":W1.W2.Q'...1
0120:.10160:.2390.X'...10680:.10120:.".
RECORD #."W1".."..'...". WHICH OF THE FO
LLOWING DO".T'..." YOU WANT TO MODIFY ?"
:.I.1.FLDS:." "I") "CH$(I):...'D.." "FLD
S.1") .TO RESTART".((N.Z$."":.". ENTER A
NUMBER ";Z$:.Z$."".."...":.2510.G(X.Z.E
(Z$):.Z.1.Z.FLDS.1.2470.A(...Z.FLDS.1.W1
.W2:.2380.L(...10680..(...".. THE OLD ";
CH$(Z);" IS ";OO$(Z)" .".K(...". DO YOU
WANT TO CHANGE IT";:.Z$:B.27:.10480..(..
.Z$."N".Z$."Q".2470..)..O$."":.". ENTER
NEW ";CH$(Z);.2);:.O$.#)...O$.""..".":.2
580.C)(..C(O$).CH(Z).O$.H(O$,CH(Z)).Q)2.
OO$(Z).O$..)<.Z$."":.". ANY MORE CHANGES
TO THIS RECORD ";Z$:B.35:.10480..)F..Z$
."Y".Z$."Q".2470..)P..10380:.2380..)Z..*
******************************..*D..* TH
IS SECTION WILL SEARCH OUR*.(*N..* SAVED
DATA BY WHAT EVER *.M*X..* CATAGORY
CLOWN WANTS. ONCE *.R*...* THE SEARCH
DATA IS FOUND *..*...* CLOWN IS ASKED
TO VERIFY *..*...* THAT THIS IS WHAT
HE WANTED *..* ..* THEN IS TOLD WHAT RE
CORD *..+...* HIS DATA IS CONTAINED I
N. *.++...****************************
***.=+...10700:.10120._+H..". PLEASE ENT
ER THE CATAGORY.+R.." WOULD LIKE TO SEA
RCH ;."..+...I.1.FLDS:." "I") "CH$(I):..
.+..." "FLDS.1") .TO RESTART"..+..." "FL
DS.2") .INSTRUCTIONS"..,..Z$."":.". ENTE
R A NUMBER ";Z$:.Z$."".."...":.2810.:,..
Z.E(Z$):.Z.1.Z.FLDS.2.."...":.2810.M,...
Z.FLDS.1.1360.`,...Z.FLDS.2.3210.Q,".FX1
.0:.10700..,,..". PLEASE ENTER THE "CH$(
Z)..,6.." YOU WANTED TO SEARCH THE.M,@..
" RECORDS FOR ";SRCH$..,J.RIG$.SRCH$..,T
..H(SRCH$,1).."*".2930..-^.LN.C(SRCH$).1
:SRCH$.I(SRCH$,LN).$-H.FX1.1.>-R..I(SRCH
$,1).."*".2960.B-|.LN.C(SRCH$).1:SRCH$.H
(SRCH$,LN).L-..FX1.2..-...C(SRCH$).CH(Z)
..10700:." .SEARCH STRING TOO LONG":.508
0.A-..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.LO:R1.N%(I).1:.10080.0.B..".
RECORD #."I"...".V.L.X.1:O$."":.10230:.O
$."EMPTY".3100.L.V.X.SX:O$."":.10230...
..O$.SRCH$.3140......FX1.0.3100......FX1
.2.3090:... CHECK FOR WILD CARD MATCH**.
X....SRCH$.I(O$,LN).3140......3100......
SRCH$.H(O$,LN).3140."/...I:.". ."RIG$" C
AN NOT BE FOUND..".S/&.Z$."":." .WANT TO
TRY AGAIN ";Z$:B.21:.10480.D/0..Z$."Y".
2750.N/:..1360../D.ZI.I:.10700:.". ."O$"
. HAS BEEN FOUND.":.10310../N..". RECORD
#."ZI".."../X..J.1.FLDS:." "CH$(J).PO%.
3)OO$(J):.J:.10640..0B..10700:.". DO YOU
WANT TO CONTINUE THE.I0L.." SEARCH FOR
"RIG$" ";:.Z$:B.15.C(RIG$):.10480.C0V..Z
$."Y".FI.ZI.1:.2980.M0...2750.X0...10700
..0...". SEARCH INSTRUCTIONS.".B0..." 1)
YOU CAN SEARCH FOR THE STRING YOU..0...
" ARE LOOKING BY ENTERING THE EXACT..
1..." SPELLING OF THE STRING AS IT.81
..." WAS STORED ON THE DISK...B1F.."
2) YOU CAN SEARCH FOR A PARTICULAR..1P..
" STRING BY USING WILD CARD MATCHING.
."..1Z.." I) WHEN SEARCHING FOR A
STRING..1..." THAT STARTS WITH THE T
HREE LETTERS..2..." COR YOU WOULD ENT
ER COR* TO FIND.D2..." ANY STRING THA
T STARTED WITH THOSE.^2..." THREE LET
TERS....2..." II) AS WELL WHEN SE
ARCHING FOR..2..." A STRING ENDING WI
TH ARIO YOU WOULD.S2 .." ENTER *ARIO
.....3*.." <<< PRESS ANY KEY TO CONTI
NUE >>>";..34..A$:.A$."".3380..3>..2750.
D3H..*******************************.I3R
..* THIS SECTION WILL SORT OUR *..3\..*
SAVED DATA BY WHAT EVER *..3F..* CA
TAGORY CLOWN WANTS. THIS *.X3P..* SORT
ROUTINE USES A M/C LANG*..3Z..* ROUTINE
CALLED ULTRASORT *."4...* FROM COMPUT
E! SEPT 1983. *.G4...* THATS WHY REL.
EXPER/BOOT IS *.L4...* RUN TO LOAD THIS
PROG. J.R.J*..4...**********************
*********..4...10720:.10120.N4...". PLEA
SE MAKE A SELECTION AS TO WHAT..4..." CA
TAGORY YOU WOULD LIKE TO SORT BY;."..5J.
.I.1.FLDS:." "I") "CH$(I):..95T.." "FLDS
.1") .TO RESTART".O5..Z$."":.". ENTER A
NUMBER ";Z$:.Z$."".."...":.3550..5..Z.E(
Z$):.Z.1.Z.FLDS.1.."...":.3550..5...Z.FL
DS.1.1360..5...10720..5...". SORTING REC
ORDS BY "CH$(Z)" .......5...Z.1.X.1:.363
0.!6..SX.1:.I.1.Z.1:SX.SX.CH(I).1:.I.1.S
X.CH(1).2.(6$..I.K6..XX.0:.I.1.LO:R1.N%(
I).1:.10080.Q68.X.1:O$."":.10230:.O$."EM
PTY".3680..6B.X.SX:O$."":.10230:XX.XX.1.
.6L.C1$.G(R1):C2$.G(R2)..6V.AA$(XX).O$.C
1$.C2$.E6`..I..6J..XX.0..". .THERE ARE N
O RECORDS TO SORT...":.4010..7T.. ** CAL
L ULTRASORT **.+7~..49152,XX,AA$(1).C7..
.". RECORDS SORTED".D7...". REARRANGING
RECORDS ...".P7...D.1.XX..7... STRIP OFF
OLD POS'N INFO..G7..C2$.I(AA$(D),1):LN.
C(AA$(D)).1:AA$(D).H(AA$(D),LN)..7..C1$.
I(AA$(D),1):LN.C(AA$(D)).1:AA$(D).H(AA$(
D),LN)..8D.G.F(C2$).256.F(C1$).'8N.N%(D)
.G.1:.D.M8X.Z.0:.T.1.LO:.P.1.XX:.T.N%(P)
.3820.E8...P:Z.Z.1:N%(XX.Z).T.L8...T..8.
..1,"S: ".MN$."/SORT KEY,S, "..8...6,8,7
," ".MN$."/SORT KEY,S,W":.10010.Y8...T.1
.LO:.6,N%(T);R$;:.10010:...8...".. SORT
KEY REWRITTEN..."..9.. 6:.10640..9(..136
0.592.. *****************************.Y9
<.. ** THIS SECTION ERASES A **.}9F..
** RECORD FROM THE DISK. **..9P.. ****
*************************..9Z..10740:.10
120:.10160..9D.W2.W1:W1$."0":." DELETE (
0=QUIT) ";W1$:W1.E(W1$)..:N.I.0:.10560:.
I..99.3970.::X.I.0:.10740:.10580:W1.W2:.
10120:.10160:.3940.Q:...W1..0.W1.W2:.136
0.H:..R1.N%(W1).1:.10080..:..X.1:.10230:
.O$.."EMPTY".4020..: ..10740:.". RECORD
# ."W1". IS ."O$".":W1.W2.Q:...10120:.10
160:.3940..:...10740:.". DELETE RECORD #
."W1"..".1;..Z$."":.". ARE YOU SURE ";Z$
:B.16:.10480:.Z$."N".3930.B;H..Z$."Q".13
60.T;R.X.1:.". OKAY THEN...":O$."EMPTY":
.10270:.3930..;...**********************
********..;...* THE SECTION COPIES ONE
*..;...* ON THE PRINTER . JAM *
..<...******************************..<.
..10760:.10120:.10160.U<..W2.W1:W1$."0":
." COPY FROM (0=QUIT) ";W1$:W1.E(W1$).P<
..I.0:.10560:.I..99.4140. <".I.0:.10760:
.10580:W1.W2:.10120:.10160:.4110..<,..W1
..0.W1.W2:.1360.Z<6.R1.N%(W1).1:.10080:S
1.R1:S2.R2..<@.X.1:.10230:.O$.."EMPTY".4
190.+=J..10760:.". RECORD # ."W1". IS ."
O$".":W1.W2.C=T..10120:.10160:.4110.H=^.
.". FROM RECORD #."W1"..":.10160..=H.W2.
W1:W1$."0":." COPY TO (0=QUIT) ";W1$:W1.
E(W1$)..=R.I.0:.10560:.I..99.4230..=|.I.
0:.10760:.10580:W1.W2:.10120:.10160:.411
0..>...W1..0.W1.W2:.1360.#>..R1.N%(W1).1
:.10080:X1.R1:X2.R2.C>..X.1:.10230:.O$."
EMPTY".4300.K>...". RECORD # ."W1". HAS
DATA IN IT...>..Z$."":." DO YOU WANT TO
WRITE OVER IT ";:.Z$:B.32:.10480..>...Z$
."Q".Z$."N".W1.W2:.10760:.10120:.10160:.
4110..>B..10120:.10160:.2170..?L..". TO
RECORD #."W1"..".B?V.R1.S1:R2.S2:.10310:
.I.1.FLDS:SR1$(I).OO$(I):..^?..." COPYIN
G RECORDS.......?..R1.X1:R2.X2:.I.1.FLDS
:OO$(I).SR1$(I):.I:.10380..?...4100..?..
.******************************..?...* T
HE SECTION PRINTS RECORDS *..@...* ON TH
E PRINTER . JAM *.+@...***********
*******************.D@&..10770:.10120:.1
0160..@0.W2.W1:W1$."0":." START PRINTING
AT (0=QUIT) ";W1$:W1.E(W1$)..@:.I.0:.10
560:.I..99.4430.O@D.I.0:.10770:.10580:W1
.W2:.10120:.10160:.4400..@N..W1..0.W1.W2
:.1360..@X.W3.W1."AB..". START PRINTING
AT RECORD #."W1"..":.10160.`AL.W2.W1:W1$
."0":." END PRINTING AT (0=QUIT) ";W1$:W
1.E(W1$).{AV.I.0:.10560:.I..99.4490..A..
I.0:.10770:.10580:W1.W2:.10120:.10160:.4
110.BA...W1..0.W1.W2:.1360..A...". END P
RINTING AT RECORD #."W1"..":Z$."".+B..."
. IS THE PRINTER AT THE TOP":." OF A NEW
PAGE";:.Z$.PB..B.16:.10480:.Z$."N"."...
.":.4520.AB...Z$."Q".4390.LB...10770..BF
.Z$."":.". PRINT EMPTY RECORDS TOO";Z$:B
.26:.10480..BP.UP.0:.Z$."Y".UP.1..BZ.Z$.
"":.". ENTER STARTING PAGE NUMBER";:.Z$.
.B...Z$."".."...":.4570..C...". PRINTING
RECORDS....".AC..LN.0:PG.E(Z$): 2:.5,4:
.5:.G(17).RC...10800:.5: 5..C...G.W3.W1:
R1.N%(G).1:.10080:.2,8,3," ".NM$.",L,"..
C...10310:.OO$(I).."EMPTY".L1.LN.FLDS.2:
. 4650.JC ..UP.1.L1.LN.1.2..D*..L1.63.L.
66.LN:.10860:W3.G:PG.PG.1:Z$.D(PG):.4600
.!D4. 2:.UP.0.OO$(I)."EMPTY".4740.>D>..5
,4:.5:.G(17);: LN.LN.2.]DH...8)"RECORD #
"G:.:LN.LN.2..DR..OO$(I)."EMPTY"...8)OO
$(I):LN.LN.1:.4730..D\.P1.PO%.9:.V.1.FLD
S.ZDF...8)CH$(V)G(16)G(48..(P1.10))G(48.
.(P1.10).10)OO$(V)..DP..V:LN.LN.FLDS..DZ
..5: 5..E...G:.2,8,3," ".NM$.",L,":.4390
.5E...***********************.RE...* THE
SECTION ADDS *.OE...* RECORDS . JAM
*..E...***********************..E.
..10880.PE...". THERE ARE ."LO".RECORDS
CREATED":." FOR ."NM$"."..EJ.Z$."":.". H
OW MANY MORE RECORDS DO YOU.(FT.." WANT
TO ADD (0=QUIT)";Z$:. Z$."".1360.>F..Z.E
(Z$):.Z.0.1360.RF...Z..500.LO.4860..F...
10880:.". .THERE IS NOT ENOUGH ROOM IN M
EMORY.":.4800..F...". CREATING FILES....
.".FF...T.LO.1.LO.Z:N%(T).T:.T..F...1,"S
: ".MN$."/SORT KEY,S, "..G...6,8,7," ".M
N$."/SORT KEY,S,W":.I.1.LO.Z.+G$..6,N%(I
);R$;:.I: 6.UG.. 2:.2,8,3," ".NM$.",L,".
G(DF%):.10010..G8.W1.1:LO.LO.Z:.10190:O$
."EMPTY":.I.LO.2.LO.Z.1:R1.I:.10080.FGB.
X.1:.10270:.".. RECORD ."I.1". CREATED..
..":.I.PGL..4790..GV..******************
*****..H`..* SECTION TO READ DISK*.'HJ..
* DIRECTORY.JAM *.DHT..***********
************.AH~..10900:.B(830)..32..501
0..H...828:.10640:.1,8,15: 2:.2,8,3," ".
NM$:.10010:.1360..H..I.828..H...A:.A.256
.5040.JH...I,A:I.I.1:.5020..H...B(65440)
.135..924,189..H.....ID..169,1,32,195,25
5,169,36.&IN..141,240,3,169,48,141,241.?
IX..3,169,1,162,8,160,0.]I...32,186,255,
169,2,162,240.ZI...160,3,32,189,255,32,1
92..I...255,169,64,32,144,255,162..I...1
,32,198,255,32,144,255.TI...32,207,255,3
2,207,255,32..I...207,255,32,207,255,201
,0..J...240,58,32,204,255,32,228.-J(..25
5,201,32,208,3,32,196.HJ2..3,162,1,32,19
8,255,32.GJ<..207,255,168,32,207,255,72.
.JF..152,170,104,32,205,221,169..JP..32,
32,210,255,32,207,255..JZ..201,0,208,8,1
69,13,32..JD..210,255,76,115,3,32,210..J
N..255,76,162,3,169,1,32..KX..195,255,32
,204,255,169,204.7K...133,178,96,32,228,
255,201.NK...32,208,249,96,256.RK.'.****
****CHECK ERROR CHANNEL***..K.'.1,E,E$,S
,D:.E.20.E.50....K$'.".... .**THER
E IS A DISK ERROR.**.".ZK.'.".. ER
ROR"E.3)E$..L8'.".. RECORD # ."R1.256
.R2".".20)"FIELD # ."I".".,LB'.".".14)"C
HAR POS. ."X.=LL'.1,"I": 2: 1.~LM'.".. D
O YOU WANT THE DISK DIRECTORY ";:Z$."":.
Z$:B.34:.10480..LN'.Z$."Y"..".":.828.CLO
'.".. PRESS RETURN TO RESTART THE PROGRA
M.".XLP'.A$:.A$."".10064..LQ'.A$..G(13).
...LR'.160..MV'.*****CHANGE RECORD# FORM
AT****.6M`'R2..(R1.256):R1.R1.256.R2:..Z
MJ'.**READ W1 AND LO FROM REC#1***.MT'.
1,"P"G(3.96)G(1)G(0)G(1):.10010..M~'.2,W
1,LO,W3:.10010:..BM.'.". THE LAST RECORD
WORKED ON WAS .";..M.'.W3.0.."NONE.":.1
0150..M.'.W1..N.'." THERE ARE ."LO".RECO
RDS CREATED.":..7N.'.".. WHICH RECORD WO
ULD YOU LIKE TO.=N.'..AND'.*****WRITE W1
AND LO**********..NN'.1,"P"G(3.96)G(1)G
(0)G(1):.10010..NX'.2,W1;R$;LO;R$;W3;R$:
.10010:..LN.'.********READ ONE WORD FROM
****..N.'.********THE RELATIVE FILE*****
..O.'.1,"P"G(3.96)G(R1)G(R2)G(X):.10010:
O$."".0O.(.2,O$:.10010:..TO.(.********WR
ITE ONE WORD TO*****.XO.(.********THE RE
LATIVE FILE*****..O.(.1,"P"G(3.96)G(R1)G
(R2)G(X):.10010..O((.2,O$;R$:.10010:..YO
2(.********READ THE WHOLE REC.***..O<(.*
*******INTO OO$( ).JAM ***.2PF(X.1:.I
.1.FLDS:.1,"P"G(3.96)G(R1)G(R2)G(X):.100
10.IPP(X.X.CH(I).1:.2,OO$(I):.10010:.OO$
(I)."".OO$(I)." ".PZ(.OO$(I)."EMPTY"...
.PD(.I.1.X.CH(1).2..PN(.I:...PX(.*****WR
ITE THE WHOLE REC.***..P.(.*****INTO OO$
( ).JAM ***..Q.(X.1:.I.1.FLDS:.1,"P"G
(3.96)G(R1)G(R2)G(X):.10010.FQ.(X.X.CH(I
).1:.2,OO$(I);R$:.10010:.I.1.X.CH(1).2.O
Q (.I:..SQ.(.********* PRINT HEADER ****
***..Q.(."."G(14)". WELCOME TO RELATI
VE FILE MANAGER .".AQ.(.NM$..""..1045
0.GQH(...QR(.". RELATIVE FILE OPEN =
."NM$:...R.(.******** INPUT LINE *******
***.5R.(Z$."":." RELATIVE FILE ";Z$:..ZR
.(.H(Z$,1)."Y"...B)".YES":Z$."Y":..~R.(.
H(Z$,1)."N"...B)".NO":Z$."N":...R.)Z$."Q
":.. R.).Z$:.Z$."".10510..R.)..JR").****
***** WRITE HEADER *******..R,).".. RE
LATIVE FILE MANAGER: WRITE RECORD ":..!
S6).*********RECORD EXISTS*******.3S@).W
1.LO.I.99:..9SJ)..BST).". .*NO SUCH RECO
RD EXISTS*":I.99:...S^).******** UPDATE
HEADER *******..SH)."... RELATIVE FILE
MANAGER: UPDATE RECORDS ":...SR).*******
** READ HEADER *******..T|).".. RELAT
IVE FILE MANAGER: READ RECORD ":..7T.)
.*************PRESS ANY KEY****.CT.).".
<<<PRESS ANY KEY TO CONTINUE >>>";.XT.)
.A$:.A$."".10650.~T.).. T.).**********MO
DIFY ME*********.TT.).".. RELATIVE FIL
E MANAGER: EDIT RECORD ":...TB).******
*****SEARCH ME********.*UL).".. RELATI
VE FILE MANAGER: SEARCH RECORD ":..LUV).
***********SEARCH ME********..U.)."..
RELATIVE FILE MANAGER: SORT RECORDS ":.
..U.).***********DELETE ME********.VU.).
".. RELATIVE FILE MANAGER: DELETE RECO
RD ":...U.).***********COPY ME********
.,V.*.".. RELATIVE FILE MANAGER: COPY
RECORD ":..NV.*.***********PRINT ME**
******..V.*.".. RELATIVE FILE MANAGER:
PRINT RECORDS ":...V&*.*******PRINTER H
EADERS******.PV0*.G(14) " RELATI
VE FILE MANAGER".VV:*...WD*.G(14)"
FILE NAME :"G(15)NM$:LN.LN.8..WN*.."W
X*..65)"PAGE "PG:..DWB*.*******PRINTER R
ECORDS******.GWL*.5,4:.M.1.L:.5:.M: 5:LN
.LN.L:...WV*.*******ADD RECORDS TITLE***
***..W.*.".. RELATIVE FILE MANAGER: AD
D RECORDS ":...W.*.*******ADD RECORDS
TITLE******..X.*.".. RELATIVE FILE MAN
AGER: READ DIRECTORY":....
> CLICK IMAGE PREVIEW FOR FULL MODAL