D
FILE INFORMATION
FILENAME(S): D
FILE TYPE(S): PRG
FILE SIZE: 6.6K
FIRST SEEN: 2025-11-02 17:01:56
APPEARS ON: 1 disk(s)
FILE HASH
8475086edcc510a82986e559c944bf2bb253755cccefbd827c12898b53f66914
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MISC01 | D | PRG | Treasure Chest - Spook | 4 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3D 08 01 00 97 38 30 38 2C 32 32 35 3A 97 |..=....808,225:.|
00000010: 31 39 38 2C 30 3A 99 22 93 22 3A 51 B2 35 33 32 |198,0:.".":Q.532|
00000020: 38 31 3A 57 B2 35 33 32 38 30 3A 97 51 2C 31 31 |81:W.53280:.Q,11|
00000030: 3A 97 57 2C 31 31 3A 99 C7 28 31 34 29 00 79 08 |:.W,11:..(14).y.|
00000040: 02 00 99 C7 28 38 29 3A 9F 31 35 2C 38 2C 31 35 |....(8):.15,8,15|
00000050: 3A 4E 24 B2 22 4E 4F 54 20 59 45 54 20 4E 41 4D |:N$."NOT YET NAM|
00000060: 45 44 22 3A 4C 25 B2 30 3A 46 31 25 B2 30 3A 46 |ED":L%.0:F1%.0:F|
00000070: 4C 25 B2 30 3A 8D 31 37 36 00 B6 08 04 00 8D 32 |L%.0:.176......2|
00000080: 30 36 3A 99 A3 39 29 22 11 9F 28 31 29 20 9B 43 |06:..9)"..(1) .C|
00000090: 52 45 41 54 45 9F 20 4E 45 57 20 46 49 4C 45 22 |REATE. NEW FILE"|
000000A0: 3A 99 A3 39 29 22 28 32 29 20 90 4C 4F 41 44 9F |:..9)"(2) .LOAD.|
000000B0: 20 46 49 4C 45 22 00 F2 08 07 00 99 A3 39 29 22 | FILE".......9)"|
000000C0: 28 33 29 20 9B 53 41 56 45 9F 20 46 49 4C 45 22 |(3) .SAVE. FILE"|
000000D0: 3A 99 A3 39 29 22 28 34 29 20 90 44 49 53 50 4C |:..9)"(4) .DISPL|
000000E0: 41 59 9F 20 46 49 4C 45 22 3A 97 37 37 35 2C 32 |AY. FILE":.775,2|
000000F0: 30 30 00 2C 09 09 00 99 A3 39 29 22 28 35 29 20 |00.,.....9)"(5) |
00000100: 9B 41 44 44 9F 20 52 45 43 4F 52 44 53 22 3A 99 |.ADD. RECORDS":.|
00000110: A3 39 29 22 28 36 29 20 90 4D 4F 44 49 46 59 9F |.9)"(6) .MODIFY.|
00000120: 20 41 4E 59 20 43 4F 4C 55 4D 4E 22 00 6D 09 0B | ANY COLUMN".m..|
00000130: 00 99 A3 39 29 22 28 37 29 20 9B 53 4F 52 54 9F |...9)"(7) .SORT.|
00000140: 20 42 59 20 41 4E 59 20 43 4F 4C 55 4D 4E 22 3A | BY ANY COLUMN":|
00000150: 99 A3 39 29 22 28 38 29 20 90 53 45 41 52 43 48 |..9)"(8) .SEARCH|
00000160: 9F 20 41 4E 59 20 43 4F 4C 55 4D 4E 22 00 A5 09 |. ANY COLUMN"...|
00000170: 0D 00 99 A3 39 29 22 28 39 29 20 9B 42 49 4E 41 |....9)"(9) .BINA|
00000180: 52 59 9F 20 53 45 41 52 43 48 22 3A 99 A3 39 29 |RY. SEARCH":..9)|
00000190: 22 28 44 29 20 90 44 45 4C 45 54 45 9F 20 52 45 |"(D) .DELETE. RE|
000001A0: 43 4F 52 44 22 00 DC 09 0F 00 99 A3 39 29 22 28 |CORD".......9)"(|
000001B0: 50 29 20 9B 50 52 49 4E 54 9F 20 43 4F 4D 4D 41 |P) .PRINT. COMMA|
000001C0: 4E 44 22 3A 99 A3 31 33 29 22 11 11 05 53 45 4C |ND":..13)"...SEL|
000001D0: 45 43 54 20 4F 50 54 49 4F 4E 9F 22 00 EE 09 11 |ECT OPTION."....|
000001E0: 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 37 00 FF |..A$:.A$."".17..|
000001F0: 09 12 00 8B 41 24 B3 C7 28 34 39 29 A7 31 37 00 |....A$..(49).17.|
00000200: 13 0A 13 00 8B 41 24 B2 22 44 22 A7 41 24 B2 22 |.....A$."D".A$."|
00000210: 31 30 22 00 27 0A 14 00 8B 41 24 B2 22 50 22 A7 |10".'....A$."P".|
00000220: 41 24 B2 22 31 31 22 00 47 0A 16 00 53 25 B2 C5 |A$."11".G...S%..|
00000230: 28 41 24 29 3A 99 22 93 22 3A 46 4C 25 B2 4C 25 |(A$):.".":FL%.L%|
00000240: 3A 53 4C 25 B2 4C 25 00 5A 0A 17 00 8B 53 25 B3 |:SL%.L%.Z....S%.|
00000250: 33 AF 46 31 B2 31 A7 31 36 36 00 8E 0A 18 00 8B |3.F1.1.166......|
00000260: 53 25 B1 32 AF 4C 25 B2 30 A7 99 A3 31 33 29 22 |S%.2.L%.0...13)"|
00000270: 11 11 11 11 11 11 05 4E 4F 20 46 49 4C 45 20 50 |.......NO FILE P|
00000280: 52 45 53 45 4E 54 22 3A 8D 32 30 33 3A 8A 00 BC |RESENT":.203:...|
00000290: 0A 19 00 91 53 25 8D 32 38 2C 34 32 2C 35 35 2C |....S%.28,42,55,|
000002A0: 36 36 2C 38 35 2C 39 38 2C 31 30 39 2C 31 31 39 |66,85,98,109,119|
000002B0: 2C 32 36 33 2C 31 34 30 2C 32 38 30 00 C3 0A 1A |,263,140,280....|
000002C0: 00 89 34 00 CD 0A 1B 00 A0 31 35 3A 80 00 0F 0B |..4......15:....|
000002D0: 1C 00 46 53 25 B2 31 30 30 30 3A 99 22 93 90 11 |..FS%.1000:."...|
000002E0: 11 45 4E 54 45 52 20 4E 55 4D 42 45 52 20 4F 46 |.ENTER NUMBER OF|
000002F0: 20 C3 CF CC D5 CD CE D3 20 52 45 51 55 49 52 45 | ....... REQUIRE|
00000300: 44 20 28 32 2D 38 29 9F 11 22 3A 85 4E 46 24 00 |D (2-8)..":.NF$.|
00000310: 2E 0B 1F 00 4E 46 25 B2 C5 28 4E 46 24 29 3A 8B |....NF%..(NF$):.|
00000320: 4E 46 25 B3 32 B0 4E 46 25 B1 38 A7 32 38 00 49 |NF%.2.NF%.8.28.I|
00000330: 0B 20 00 4E 46 25 B2 4E 46 25 AB 31 3A 86 41 24 |. .NF%.NF%.1:.A$|
00000340: 28 4E 46 25 2C 46 53 25 29 00 83 0B 22 00 81 46 |(NF%,FS%)..."..F|
00000350: B2 30 A4 4E 46 25 3A 99 22 93 90 11 45 4E 54 45 |.0.NF%:."...ENTE|
00000360: 52 20 43 4F 4C 55 4D 4E 20 48 45 41 44 49 4E 47 |R COLUMN HEADING|
00000370: 9E 20 5B 4D 41 58 20 31 38 20 4C 45 54 54 45 52 |. [MAX 18 LETTER|
00000380: 53 5D 22 00 B7 0B 24 00 99 A3 31 35 29 22 99 11 |S]"...$...15)"..|
00000390: 4E 55 4D 42 45 52 20 05 22 3B 46 AA 31 3A 99 22 |NUMBER .";F.1:."|
000003A0: 1D 1D 1D 9F 22 3A 8D 32 35 35 3A 41 24 28 46 2C |....":.255:A$(F,|
000003B0: 30 29 B2 4B 24 3A 82 00 C6 0B 27 00 8D 38 35 3A |0).K$:....'..85:|
000003C0: 46 31 B2 31 3A 8E 00 FF 0B 2A 00 8D 31 36 30 3A |F1.1:....*..160:|
000003D0: 97 51 2C 34 3A 97 57 2C 34 3A 99 22 93 11 11 11 |.Q,4:.W,4:."....|
000003E0: 11 11 11 11 11 11 11 11 22 A3 39 29 22 90 4C 4F |........".9)".LO|
000003F0: 41 44 49 4E 47 2E 2E 2E 20 20 05 22 3B 4B 24 00 |ADING... .";K$.|
00000400: 1A 0C 2C 00 9F 36 2C 38 2C 36 2C 22 30 3A 20 22 |..,..6,8,6,"0: "|
00000410: AA 4E 24 AA 22 2C 53 2C 52 22 00 2D 0C 2D 00 8D |.N$.",S,R".-.-..|
00000420: 32 35 39 3A 8B 41 B1 B2 32 30 A7 35 33 00 3F 0C |259:.A..20.53.?.|
00000430: 2E 00 84 36 2C 46 53 25 2C 4E 46 25 2C 4C 25 00 |...6,FS%,NF%,L%.|
00000440: 50 0C 2F 00 86 41 24 28 4E 46 25 2C 46 53 25 29 |P./..A$(NF%,FS%)|
00000450: 00 74 0C 30 00 81 52 B2 30 A4 4C 25 3A 81 46 B2 |.t.0..R.0.L%:.F.|
00000460: 30 A4 4E 46 25 3A 84 36 2C 41 24 28 46 2C 52 29 |0.NF%:.6,A$(F,R)|
00000470: 3A 82 3A 82 00 8E 0C 35 00 46 31 B2 31 3A A0 36 |:.:....5.F1.1:.6|
00000480: 3A 97 51 2C 31 31 3A 97 57 2C 31 31 3A 8E 00 97 |:.Q,11:.W,11:...|
00000490: 0C 37 00 8D 31 36 30 00 CB 0C 38 00 97 51 2C 32 |.7..160...8..Q,2|
000004A0: 3A 97 57 2C 32 3A 99 22 93 11 11 11 11 11 11 11 |:.W,2:."........|
000004B0: 11 11 11 11 22 A3 39 29 22 90 53 41 56 49 4E 47 |....".9)".SAVING|
000004C0: 2E 2E 2E 2E 20 20 05 22 3B 4B 24 00 E6 0C 39 00 |.... .";K$...9.|
000004D0: 9F 36 2C 38 2C 36 2C 22 40 3A 20 22 AA 4E 24 AA |.6,8,6,"@: ".N$.|
000004E0: 22 2C 53 2C 57 22 00 F9 0C 3A 00 8D 32 35 39 3A |",S,W"...:..259:|
000004F0: 8B 41 B1 B2 32 30 A7 36 34 00 12 0D 3B 00 98 36 |.A..20.64...;..6|
00000500: 2C 46 53 25 3A 98 36 2C 4E 46 25 3A 98 36 2C 46 |,FS%:.6,NF%:.6,F|
00000510: 4C 25 00 37 0D 3C 00 81 52 B2 30 A4 46 4C 25 3A |L%.7.<..R.0.FL%:|
00000520: 81 46 B2 30 A4 4E 46 25 3A 98 36 2C 41 24 28 46 |.F.0.NF%:.6,A$(F|
00000530: 2C 52 29 3A 82 3A 82 00 4C 0D 40 00 A0 36 3A 97 |,R):.:..L.@..6:.|
00000540: 51 2C 31 31 3A 97 57 2C 31 31 3A 8E 00 79 0D 42 |Q,11:.W,11:..y.B|
00000550: 00 43 B2 31 3A 53 B2 31 3A 5A 5A 25 B2 46 4C 25 |.C.1:S.1:ZZ%.FL%|
00000560: 3A 5A 5A 25 B2 5A 5A 25 AA 31 3A 58 B2 B5 28 5A |:ZZ%.ZZ%.1:X..(Z|
00000570: 5A 25 AD 31 38 AA 2E 39 29 00 B4 0D 43 00 99 22 |Z%.18..9)...C.."|
00000580: 93 9E 53 50 41 43 45 20 46 4F 52 20 4D 45 4E 55 |..SPACE FOR MENU|
00000590: 20 2A 20 90 50 41 47 45 53 05 22 3B 58 2C 22 90 | * .PAGES.";X,".|
000005A0: 9D 9D 9D 52 45 43 4F 52 44 53 05 22 3B 46 4C 25 |...RECORDS.";FL%|
000005B0: 3A 99 4C 24 00 E7 0D 45 00 99 41 24 28 30 2C 30 |:.L$...E..A$(0,0|
000005C0: 29 A3 32 30 29 41 24 28 43 2C 30 29 3A 99 4C 24 |).20)A$(C,0):.L$|
000005D0: 3A 53 53 B2 53 AA 31 37 3A 8B 53 53 B1 46 4C 25 |:SS.S.17:.SS.FL%|
000005E0: A7 53 53 B2 46 4C 25 00 09 0E 48 00 81 52 B2 53 |.SS.FL%...H..R.S|
000005F0: A4 53 53 3A 99 41 24 28 30 2C 52 29 A3 32 30 29 |.SS:.A$(0,R).20)|
00000600: 41 24 28 43 2C 52 29 3A 82 00 1B 0E 49 00 A1 4B |A$(C,R):....I..K|
00000610: 24 3A 8B 4B 24 B2 22 22 A7 37 33 00 2C 0E 4A 00 |$:.K$."".73.,.J.|
00000620: 8B 4B 24 B2 C7 28 33 32 29 A7 38 34 00 3E 0E 4B |.K$..(32).84.>.K|
00000630: 00 8B 4B 24 B2 22 4C 22 A7 43 B2 43 AB 31 00 50 |..K$."L".C.C.1.P|
00000640: 0E 4C 00 8B 4B 24 B2 22 52 22 A7 43 B2 43 AA 31 |.L..K$."R".C.C.1|
00000650: 00 63 0E 4D 00 8B 4B 24 B2 22 55 22 A7 53 B2 53 |.c.M..K$."U".S.S|
00000660: AB 31 38 00 76 0E 4E 00 8B 4B 24 B2 22 44 22 A7 |.18.v.N..K$."D".|
00000670: 53 B2 53 AA 31 38 00 85 0E 4F 00 8B 43 B3 31 A7 |S.S.18...O..C.1.|
00000680: 43 B2 4E 46 25 00 94 0E 50 00 8B 43 B1 4E 46 25 |C.NF%...P..C.NF%|
00000690: A7 43 B2 31 00 B0 0E 51 00 8B 53 B3 31 A7 53 B2 |.C.1...Q..S.1.S.|
000006A0: 28 B5 28 46 4C 25 AD 31 38 29 AC 31 38 29 AA 31 |(.(FL%.18).18).1|
000006B0: 00 BF 0E 52 00 8B 53 B1 46 4C 25 A7 53 B2 31 00 |...R..S.FL%.S.1.|
000006C0: C7 0E 53 00 89 36 37 00 CD 0E 54 00 8E 00 01 0F |..S..67...T.....|
000006D0: 55 00 8B 4C 25 B1 B2 46 53 25 A7 99 22 90 93 11 |U..L%..FS%.."...|
000006E0: 11 11 11 11 11 11 11 22 A3 31 36 29 22 46 49 4C |.......".16)"FIL|
000006F0: 45 20 46 55 4C 4C 9E 22 3A 8D 32 30 33 3A 89 39 |E FULL.":.203:.9|
00000700: 37 00 0D 0F 56 00 4C 25 B2 4C 25 AA 31 00 56 0F |7...V.L%.L%.1.V.|
00000710: 57 00 99 22 96 93 54 59 50 45 20 28 45 58 49 54 |W.."..TYPE (EXIT|
00000720: 29 20 54 4F 20 46 49 4E 49 53 48 20 45 4E 54 52 |) TO FINISH ENTR|
00000730: 59 20 4F 46 20 52 45 43 4F 52 44 53 9F 22 3A 99 |Y OF RECORDS.":.|
00000740: 22 9E 11 52 45 43 4F 52 44 20 4E 55 4D 42 45 52 |"..RECORD NUMBER|
00000750: 20 9F 22 3B 4C 25 00 65 0F 5A 00 99 22 11 11 22 | .";L%.e.Z..".."|
00000760: 3A 46 B2 AB 31 00 6F 0F 5B 00 46 B2 46 AA 31 00 |:F..1.o.[.F.F.1.|
00000770: 8D 0F 5C 00 99 41 24 28 46 2C 30 29 3A 8D 32 35 |..\..A$(F,0):.25|
00000780: 35 3A 41 24 28 46 2C 4C 25 29 B2 4B 24 00 AE 0F |5:A$(F,L%).K$...|
00000790: 5E 00 8B 41 24 28 46 2C 4C 25 29 B2 22 45 58 49 |^..A$(F,L%)."EXI|
000007A0: 54 22 A7 4C 25 B2 4C 25 AB 31 3A 89 39 37 00 BC |T".L%.L%.1:.97..|
000007B0: 0F 5F 00 8B 46 B3 4E 46 25 A7 39 31 00 CB 0F 60 |._..F.NF%.91...`|
000007C0: 00 8B 4C 25 B3 46 53 25 A7 38 35 00 D1 0F 61 00 |..L%.FS%.85...a.|
000007D0: 8E 00 0F 10 62 00 8D 31 39 31 3A 8D 31 38 31 3A |....b..191:.181:|
000007E0: 99 22 93 9E 1D 1D 1D 52 45 43 4F 52 44 20 43 4F |.".....RECORD CO|
000007F0: 4E 54 41 49 4E 49 4E 47 20 53 45 4C 45 43 54 45 |NTAINING SELECTE|
00000800: 44 20 43 4F 4C 55 4D 4E 11 9F 22 3A 99 4C 24 00 |D COLUMN..":.L$.|
00000810: 36 10 65 00 81 43 B2 30 A4 4E 46 25 3A 99 41 24 |6.e..C.0.NF%:.A$|
00000820: 28 43 2C 30 29 A3 32 30 29 41 24 28 43 2C 52 29 |(C,0).20)A$(C,R)|
00000830: 3A 82 3A 99 4C 24 00 5F 10 68 00 99 22 9E 11 43 |:.:.L$._.h.."..C|
00000840: 55 52 52 45 4E 54 20 43 4F 4E 54 45 4E 54 53 20 |URRENT CONTENTS |
00000850: 4F 46 20 43 4F 4C 55 4D 4E 2E 2E 2E 11 9F 22 00 |OF COLUMN.....".|
00000860: 9A 10 6A 00 99 41 24 28 46 2C 52 29 3A 99 22 11 |..j..A$(F,R):.".|
00000870: 9B 45 4E 54 45 52 20 4E 45 57 20 43 4F 4E 54 45 |.ENTER NEW CONTE|
00000880: 4E 54 53 2E 2E 2E 11 11 9F 22 3A 8D 32 35 35 3A |NTS......":.255:|
00000890: 41 24 28 46 2C 52 29 B2 4B 24 00 A0 10 6C 00 8E |A$(F,R).K$...l..|
000008A0: 00 AF 10 6D 00 8B 46 4C 25 B3 32 A7 31 31 38 00 |...m..FL%.2.118.|
000008B0: B8 10 6E 00 8D 31 38 31 00 C8 10 6F 00 48 42 25 |..n..181...o.HB%|
000008C0: B2 46 4C 25 AD 32 35 36 00 DC 10 70 00 4C 42 25 |.FL%.256...p.LB%|
000008D0: B2 46 4C 25 AB 48 42 25 AC 32 35 36 00 E9 10 71 |.FL%.HB%.256...q|
000008E0: 00 97 32 35 31 2C 4C 42 25 00 F6 10 72 00 97 32 |..251,LB%...r..2|
000008F0: 35 32 2C 48 42 25 00 03 11 73 00 97 32 35 33 2C |52,HB%...s..253,|
00000900: 4E 46 25 00 0E 11 74 00 97 32 35 34 2C 46 00 19 |NF%...t..254,F..|
00000910: 11 75 00 9E 34 39 31 35 32 00 1F 11 76 00 8E 00 |.u..49152...v...|
00000920: 51 11 77 00 8D 32 30 36 3A 99 22 90 1D 1D 1D 1D |Q.w..206:.".....|
00000930: 1D 53 48 52 49 4E 4B 20 46 49 4C 45 20 28 4E 4F |.SHRINK FILE (NO|
00000940: 4E 20 44 45 53 54 52 55 43 54 49 56 45 29 9F 11 |N DESTRUCTIVE)..|
00000950: 22 00 8D 11 79 00 99 A3 38 29 22 96 12 53 45 41 |"...y...8)"..SEA|
00000960: 52 43 48 20 41 4E 59 20 43 4F 4C 55 4D 4E 20 46 |RCH ANY COLUMN F|
00000970: 4F 52 3A 2D 92 9F 11 22 3A 99 A3 39 29 22 28 31 |OR:-...":..9)"(1|
00000980: 29 20 9B 45 51 55 41 4C 9F 20 54 4F 22 00 C0 11 |) .EQUAL. TO"...|
00000990: 7B 00 99 A3 39 29 22 28 32 29 20 90 47 52 45 41 |{...9)"(2) .GREA|
000009A0: 54 45 52 9F 20 54 48 41 4E 22 3A 99 A3 39 29 22 |TER. THAN":..9)"|
000009B0: 28 33 29 20 9B 4C 45 53 53 9F 20 54 48 41 4E 22 |(3) .LESS. THAN"|
000009C0: 00 E0 11 7D 00 99 A3 39 29 22 28 34 29 20 90 43 |...}...9)"(4) .C|
000009D0: 48 41 52 41 43 54 45 52 9F 20 47 52 4F 55 50 22 |HARACTER. GROUP"|
000009E0: 00 07 12 7E 00 99 A3 38 29 22 11 96 12 46 55 52 |...~...8)"...FUR|
000009F0: 54 48 45 52 20 20 4F 50 54 49 4F 4E 53 20 20 41 |THER OPTIONS A|
00000A00: 52 45 3A 2D 9F 11 22 00 28 12 80 00 99 A3 39 29 |RE:-..".(.....9)|
00000A10: 22 28 35 29 20 9B 44 49 53 50 4C 41 59 9F 20 53 |"(5) .DISPLAY. S|
00000A20: 55 42 2D 46 49 4C 45 22 00 63 12 82 00 99 A3 39 |UB-FILE".c.....9|
00000A30: 29 22 28 36 29 20 90 52 45 54 55 52 4E 9F 20 4D |)"(6) .RETURN. M|
00000A40: 41 49 4E 20 4D 45 4E 55 22 3A 99 A3 31 33 29 22 |AIN MENU":..13)"|
00000A50: 05 11 11 53 45 4C 45 43 54 20 4F 50 54 49 4F 4E |...SELECT OPTION|
00000A60: 20 9F 22 00 76 12 85 00 A1 41 24 3A 8B 41 24 B2 | .".v....A$:.A$.|
00000A70: 22 22 A7 31 33 33 00 87 12 86 00 8B C5 28 41 24 |"".133.......(A$|
00000A80: 29 B1 36 A7 31 33 33 00 A1 12 88 00 53 25 B2 C5 |).6.133.....S%..|
00000A90: 28 41 24 29 3A 46 4C 25 B2 53 4C 25 3A 99 22 93 |(A$):FL%.SL%:.".|
00000AA0: 22 00 C0 12 89 00 91 53 25 8D 32 31 33 2C 32 31 |"......S%.213,21|
00000AB0: 33 2C 32 31 33 2C 32 31 33 2C 36 36 2C 31 33 39 |3,213,213,66,139|
00000AC0: 00 CE 12 8A 00 8B 53 25 B3 36 A7 31 31 39 00 D4 |......S%.6.119..|
00000AD0: 12 8B 00 8E 00 DD 12 8C 00 8D 31 39 31 00 03 13 |..........191...|
00000AE0: 8D 00 99 22 93 11 11 11 05 22 A3 31 32 29 22 C4 |...".....".12)".|
00000AF0: C5 CC C5 D4 C5 20 20 20 D2 CF D5 D4 C9 CE C5 20 |..... ....... |
00000B00: 11 11 22 00 2C 13 8E 00 99 A3 31 30 29 22 90 11 |..".,.....10)"..|
00000B10: 11 52 45 43 4F 52 44 20 54 4F 20 42 45 20 44 45 |.RECORD TO BE DE|
00000B20: 4C 45 54 45 44 11 9F 22 3A 99 4C 24 00 53 13 8F |LETED..":.L$.S..|
00000B30: 00 81 43 B2 30 A4 4E 46 25 3A 99 41 24 28 43 2C |..C.0.NF%:.A$(C,|
00000B40: 30 29 A3 32 30 29 41 24 28 43 2C 52 29 3A 82 3A |0).20)A$(C,R):.:|
00000B50: 99 4C 24 00 79 13 93 00 99 A3 38 29 22 1E 11 44 |.L$.y.....8)"..D|
00000B60: 45 4C 45 54 45 20 54 48 49 53 20 52 45 43 4F 52 |ELETE THIS RECOR|
00000B70: 44 20 28 59 2F 4E 29 9F 22 00 8C 13 94 00 A1 4B |D (Y/N)."......K|
00000B80: 24 3A 8B 4B 24 B2 22 22 A7 31 34 38 00 B9 13 95 |$:.K$."".148....|
00000B90: 00 8B 4B 24 B2 22 59 22 A7 99 A3 31 32 29 22 11 |..K$."Y"...12)".|
00000BA0: 11 11 90 C4 C5 CC C5 D4 C9 CE C7 A0 20 D2 C5 C3 |............ ...|
00000BB0: CF D2 C4 22 3A 89 31 35 32 00 C9 13 96 00 8B 4B |...":.152......K|
00000BC0: 24 B2 22 4E 22 A7 31 35 39 00 E2 13 97 00 8B 4B |$."N".159......K|
00000BD0: 24 B3 B1 22 59 22 B0 4B 24 B3 B1 22 4E 22 A7 31 |$.."Y".K$.."N".1|
00000BE0: 34 38 00 F0 13 98 00 8B 4C 25 B2 31 A7 31 35 38 |48......L%.1.158|
00000BF0: 00 11 14 99 00 81 46 B2 30 A4 4E 46 25 3A 41 24 |......F.0.NF%:A$|
00000C00: 28 46 2C 52 29 B2 41 24 28 46 2C 52 AA 31 29 3A |(F,R).A$(F,R.1):|
00000C10: 82 00 1B 14 9C 00 52 B2 52 AA 31 00 29 14 9D 00 |......R.R.1.)...|
00000C20: 8B 52 B3 4C 25 A7 31 35 33 00 35 14 9E 00 4C 25 |.R.L%.153.5...L%|
00000C30: B2 4C 25 AB 31 00 3B 14 9F 00 8E 00 6F 14 A0 00 |.L%.1.;.....o...|
00000C40: 99 22 93 90 11 11 11 11 11 11 11 11 11 11 45 4E |."............EN|
00000C50: 54 45 52 20 46 49 4C 45 20 4E 41 4D 45 2E 2E 2E |TER FILE NAME...|
00000C60: 20 9E 22 3B 3A 8D 32 35 35 3A 4E 24 B2 4B 24 00 | .";:.255:N$.K$.|
00000C70: A7 14 A4 00 8B C3 28 4E 24 29 B1 31 36 A7 99 22 |......(N$).16.."|
00000C80: 93 05 11 11 11 11 11 11 11 22 A3 31 34 29 22 4E |.........".14)"N|
00000C90: 41 4D 45 20 54 4F 4F 20 4C 4F 4E 47 22 3A 8D 32 |AME TOO LONG":.2|
00000CA0: 30 33 3A 89 31 36 30 00 AD 14 A5 00 8E 00 BD 14 |03:.160.........|
00000CB0: A6 00 8B 41 24 B1 C7 28 35 30 29 A7 34 00 F6 14 |...A$..(50).4...|
00000CC0: A7 00 99 22 93 11 11 11 11 11 11 05 12 20 43 41 |..."......... CA|
00000CD0: 55 54 49 4F 4E 20 3A 20 4F 50 54 49 4F 4E 20 44 |UTION : OPTION D|
00000CE0: 45 53 54 52 4F 59 53 20 4C 4F 41 44 45 44 20 46 |ESTROYS LOADED F|
00000CF0: 49 4C 45 20 92 22 00 20 15 AA 00 99 A3 38 29 22 |ILE .". .....8)"|
00000D00: 99 11 11 11 11 D0 52 45 53 53 20 20 C6 31 20 20 |......RESS .1 |
00000D10: 54 4F 20 C3 CC C5 C1 D2 20 20 C6 C9 CC C5 9F 22 |TO ..... ....."|
00000D20: 00 54 15 AC 00 99 22 9E 11 11 11 11 1D 1D 50 52 |.T....".......PR|
00000D30: 45 53 53 20 41 4E 59 20 4F 54 48 45 52 20 4B 45 |ESS ANY OTHER KE|
00000D40: 59 20 54 4F 20 52 45 47 41 49 4E 20 90 20 CD C5 |Y TO REGAIN . ..|
00000D50: CE D5 9F 22 00 67 15 AD 00 A1 4B 24 3A 8B 4B 24 |...".g....K$:.K$|
00000D60: B2 22 22 A7 31 37 33 00 78 15 AE 00 8B 4B 24 B2 |."".173.x....K$.|
00000D70: C7 28 31 33 33 29 A7 8A 00 7F 15 AF 00 89 34 00 |.(133)........4.|
00000D80: A8 15 B0 00 4C 24 B2 22 22 3A 81 4B B2 31 A4 33 |....L$."":.K.1.3|
00000D90: 39 3A 4C 24 B2 4C 24 AA C7 28 31 35 39 29 AA C7 |9:L$.L$..(159)..|
00000DA0: 28 39 36 29 3A 82 3A 8E 00 D7 15 B5 00 46 B2 AB |(96):.:......F..|
00000DB0: 31 3A 8B 41 24 B2 22 37 22 A7 99 22 93 11 11 11 |1:.A$."7".."....|
00000DC0: 05 22 A3 31 33 29 22 D3 CF D2 D4 A0 20 D2 CF D5 |.".13)"..... ...|
00000DD0: D4 C9 CE C5 11 11 22 00 03 16 B6 00 8B 41 24 B2 |......"......A$.|
00000DE0: 22 36 22 A7 99 22 93 11 11 11 05 22 A3 31 34 29 |"6"..".....".14)|
00000DF0: 22 CD CF C4 C9 C6 D9 20 20 D2 CF D5 D4 C9 CE C5 |"...... .......|
00000E00: 11 11 22 00 3C 16 B7 00 99 22 90 11 4F 50 45 52 |..".<...."..OPER|
00000E10: 41 54 45 20 4F 4E 20 57 48 49 43 48 20 43 4F 4C |ATE ON WHICH COL|
00000E20: 55 4D 4E 3F 20 9E 28 47 49 56 45 20 48 45 41 44 |UMN? .(GIVE HEAD|
00000E30: 49 4E 47 29 9F 11 22 3A 8D 32 35 35 00 46 16 B9 |ING)..":.255.F..|
00000E40: 00 46 B2 46 AA 31 00 63 16 BA 00 8B 4B 24 B2 C8 |.F.F.1.c....K$..|
00000E50: 28 41 24 28 46 2C 30 29 2C C3 28 4B 24 29 29 A7 |(A$(F,0),.(K$)).|
00000E60: 31 38 39 00 72 16 BB 00 8B 46 B3 4E 46 25 A7 31 |189.r....F.NF%.1|
00000E70: 38 35 00 95 16 BC 00 99 22 93 90 4E 4F 20 53 55 |85......"..NO SU|
00000E80: 43 48 20 43 4F 4C 55 4D 4E 9F 22 3A 8D 32 30 33 |CH COLUMN.":.203|
00000E90: 3A 89 31 38 31 00 B8 16 BD 00 8B 41 24 B2 22 37 |:.181......A$."7|
00000EA0: 22 A7 99 A3 31 34 29 22 05 11 11 11 2A 20 D3 CF |"...14)"....* ..|
00000EB0: D2 D4 C9 CE C7 20 2A 22 00 BE 16 BE 00 8E 00 D6 |..... *"........|
00000EC0: 16 BF 00 52 B2 30 3A 8B 53 25 B2 36 B0 53 25 B2 |...R.0:.S%.6.S%.|
00000ED0: 31 30 A7 46 B2 30 00 03 17 C1 00 8B 41 24 B2 22 |10.F.0......A$."|
00000EE0: 31 30 22 A7 99 22 93 11 11 11 05 22 A3 31 33 29 |10"..".....".13)|
00000EF0: 22 C4 C5 CC C5 D4 C5 20 20 D2 CF D5 D4 C9 CE C5 |"...... .......|
00000F00: 11 11 22 00 2F 17 C2 00 8B 41 24 B2 22 36 22 A7 |.."./....A$."6".|
00000F10: 99 22 93 11 11 11 05 22 A3 31 33 29 22 CD CF C4 |.".....".13)"...|
00000F20: C9 C6 D9 20 20 D2 CF D5 D4 C9 CE C5 11 11 22 00 |... .........".|
00000F30: 67 17 C3 00 99 22 99 11 47 49 56 45 20 52 45 43 |g...."..GIVE REC|
00000F40: 4F 52 44 20 45 4E 54 52 59 20 55 4E 44 45 52 2E |ORD ENTRY UNDER.|
00000F50: 2E 20 9F 22 3B 41 24 28 46 2C 30 29 3A 99 22 11 |. .";A$(F,0):.".|
00000F60: 11 22 3A 8D 32 35 35 00 84 17 C5 00 99 A3 31 34 |.":.255.......14|
00000F70: 29 22 05 11 11 11 2A 20 D3 C5 C1 D2 C3 C8 C9 CE |)"....* ........|
00000F80: C7 A0 2A 22 00 8E 17 C6 00 52 B2 52 AA 31 00 AB |..*".....R.R.1..|
00000F90: 17 C7 00 8B 4B 24 B2 C8 28 41 24 28 46 2C 52 29 |....K$..(A$(F,R)|
00000FA0: 2C C3 28 4B 24 29 29 A7 32 30 32 00 BA 17 C8 00 |,.(K$)).202.....|
00000FB0: 8B 52 B3 46 4C 25 A7 31 39 38 00 DD 17 C9 00 99 |.R.FL%.198......|
00000FC0: 22 90 93 4E 4F 20 53 55 43 48 20 52 45 43 4F 52 |"..NO SUCH RECOR|
00000FD0: 44 9F 22 3A 8D 32 30 33 3A 89 31 39 31 00 E3 17 |D.":.203:.191...|
00000FE0: CA 00 8E 00 0D 18 CB 00 99 A3 38 29 22 9E 11 11 |..........8)"...|
00000FF0: 11 11 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 |..PRESS ANY KEY |
00001000: 54 4F 20 43 4F 4E 54 49 4E 55 45 9F 22 00 20 18 |TO CONTINUE.". .|
00001010: CC 00 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 32 30 34 |...K$:.K$."".204|
00001020: 00 2D 18 CD 00 97 31 39 38 2C 30 3A 8E 00 70 18 |.-....198,0:..p.|
00001030: CE 00 99 22 93 22 3A 99 4C 24 3A 99 22 05 2A 2A |...".":.L$:.".**|
00001040: 90 20 C4 C1 D4 C1 A0 C2 C1 D3 C5 A0 9F 42 59 A0 |. ...........BY.|
00001050: 99 C2 52 49 41 4E 20 CC 55 44 57 49 47 20 20 90 |..RIAN .UDWIG .|
00001060: C3 2E 31 39 38 35 20 05 2A 2A 9F 22 3A 99 4C 24 |..1985 .**.":.L$|
00001070: 00 9A 18 D1 00 8B 46 31 B2 30 A7 99 A3 31 30 29 |......F1.0...10)|
00001080: 22 9B 12 11 20 46 49 4C 45 20 20 4E 4F 54 20 50 |"... FILE NOT P|
00001090: 52 45 53 45 4E 54 20 92 9F 22 00 C4 18 D2 00 8B |RESENT .."......|
000010A0: 46 31 B2 31 A7 99 A3 35 29 22 9B 11 12 46 49 4C |F1.1...5)"...FIL|
000010B0: 45 20 4C 4F 41 44 45 44 20 49 53 20 3A 92 20 9E |E LOADED IS :. .|
000010C0: 22 3B 4E 24 00 D3 18 D4 00 97 31 39 38 2C 30 3A |";N$......198,0:|
000010D0: 99 3A 8E 00 00 19 D5 00 8D 31 38 31 3A 99 22 90 |.:.......181:.".|
000010E0: 11 53 45 41 52 43 48 20 54 4F 20 4F 50 45 52 41 |.SEARCH TO OPERA|
000010F0: 54 45 20 4F 4E 20 9F 22 3B 41 24 28 46 2C 30 29 |TE ON .";A$(F,0)|
00001100: 00 25 19 D7 00 8B 53 25 B3 34 A7 99 22 9B 11 47 |.%....S%.4.."..G|
00001110: 49 56 45 20 53 45 41 52 43 48 20 44 45 54 41 49 |IVE SEARCH DETAI|
00001120: 4C 53 9F 11 22 00 4B 19 D8 00 8B 53 25 B2 34 A7 |LS..".K....S%.4.|
00001130: 99 22 99 11 47 49 56 45 20 43 48 41 52 41 43 54 |."..GIVE CHARACT|
00001140: 45 52 20 47 52 4F 55 50 9F 11 22 00 60 19 D9 00 |ER GROUP..".`...|
00001150: 8D 32 35 35 3A 42 24 B2 4B 24 3A 4C 32 25 B2 30 |.255:B$.K$:L2%.0|
00001160: 00 9C 19 DA 00 99 22 05 11 11 11 11 1D 1D 1D 1D |......".........|
00001170: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D D3 C5 C1 D2 C3 |................|
00001180: C8 C9 CE C7 2E 2E 2E 22 3A 91 53 25 8D 32 32 32 |.......":.S%.222|
00001190: 2C 32 32 36 2C 32 33 30 2C 32 33 34 00 CD 19 DC |,226,230,234....|
000011A0: 00 53 4C 25 B2 4C 32 25 3A 8B 53 4C 25 B2 30 A7 |.SL%.L2%:.SL%.0.|
000011B0: 99 22 93 05 53 45 41 52 43 48 20 49 53 20 4E 45 |."..SEARCH IS NE|
000011C0: 47 41 54 49 56 45 9F 22 3A 8D 32 30 33 00 D3 19 |GATIVE.":.203...|
000011D0: DD 00 8E 00 FB 19 DE 00 81 52 B2 31 A4 53 4C 25 |.........R.1.SL%|
000011E0: 3A 8B 41 24 28 46 2C 52 29 B2 42 24 A7 4C 32 25 |:.A$(F,R).B$.L2%|
000011F0: B2 4C 32 25 AA 31 3A 8D 32 34 33 00 03 1A E0 00 |.L2%.1:.243.....|
00001200: 82 3A 8E 00 2C 1A E2 00 81 52 B2 31 A4 53 4C 25 |.:..,....R.1.SL%|
00001210: 3A 8B 41 24 28 46 2C 52 29 B1 B2 42 24 A7 4C 32 |:.A$(F,R)..B$.L2|
00001220: 25 B2 4C 32 25 AA 31 3A 8D 32 34 33 00 34 1A E4 |%.L2%.1:.243.4..|
00001230: 00 82 3A 8E 00 5C 1A E6 00 81 52 B2 31 A4 53 4C |..:..\....R.1.SL|
00001240: 25 3A 8B 41 24 28 46 2C 52 29 B3 42 24 A7 4C 32 |%:.A$(F,R).B$.L2|
00001250: 25 B2 4C 32 25 AA 31 3A 8D 32 34 33 00 64 1A E8 |%.L2%.1:.243.d..|
00001260: 00 82 3A 8E 00 93 1A EA 00 4C 43 B2 C3 28 42 24 |..:......LC..(B$|
00001270: 29 3A 81 52 B2 31 A4 53 4C 25 3A 4C 54 B2 C3 28 |):.R.1.SL%:LT..(|
00001280: 41 24 28 46 2C 52 29 29 3A 8B 4C 43 B1 4C 54 A7 |A$(F,R)):.LC.LT.|
00001290: 32 34 31 00 CC 1A EE 00 81 4B B2 31 A4 4C 54 AB |241......K.1.LT.|
000012A0: 4C 43 AA 31 3A 8B 42 24 B2 CA 28 41 24 28 46 2C |LC.1:.B$..(A$(F,|
000012B0: 52 29 2C 4B 2C 4C 43 29 A7 4C 32 25 B2 4C 32 25 |R),K,LC).L2%.L2%|
000012C0: AA 31 3A 8D 32 34 33 3A 89 32 34 31 00 D2 1A F0 |.1:.243:.241....|
000012D0: 00 82 00 DB 1A F1 00 82 52 3A 8E 00 14 1B F3 00 |........R:......|
000012E0: 81 43 B2 30 A4 4E 46 25 3A 4B 24 B2 41 24 28 43 |.C.0.NF%:K$.A$(C|
000012F0: 2C 52 29 3A 41 24 28 43 2C 52 29 B2 41 24 28 43 |,R):A$(C,R).A$(C|
00001300: 2C 4C 32 25 29 3A 41 24 28 43 2C 4C 32 25 29 B2 |,L2%):A$(C,L2%).|
00001310: 4B 24 3A 82 00 1A 1B F6 00 8E 00 33 1B FF 00 4B |K$:........3...K|
00001320: 24 B2 22 22 3A 85 4B 24 3A 8B 4B 24 B2 22 22 A7 |$."":.K$:.K$."".|
00001330: 32 35 35 00 4D 1B 01 01 8B C3 28 4B 24 29 B1 31 |255.M.....(K$).1|
00001340: 38 A7 4B 24 B2 C8 28 4B 24 2C 31 38 29 00 53 1B |8.K$..(K$,18).S.|
00001350: 02 01 8E 00 64 1B 03 01 84 31 35 2C 41 2C 42 24 |....d....15,A,B$|
00001360: 2C 43 2C 44 00 72 1B 04 01 8B 41 B3 32 30 A7 32 |,C,D.r....A.20.2|
00001370: 36 32 00 84 1B 05 01 99 22 93 22 3A 99 42 24 3A |62......".":.B$:|
00001380: 8D 32 30 33 00 8A 1B 06 01 8E 00 B5 1B 07 01 99 |.203............|
00001390: 22 93 05 11 11 11 22 A3 31 30 29 22 C2 C9 CE C1 |".....".10)"....|
000013A0: D2 D9 A0 D3 C5 C1 D2 C3 C8 A0 D2 CF D5 D4 C9 CE |................|
000013B0: C5 11 11 11 22 00 EB 1B 08 01 99 A3 31 30 29 22 |....".......10)"|
000013C0: 9B 53 45 41 52 43 48 20 55 4E 44 45 52 2E 2E 20 |.SEARCH UNDER.. |
000013D0: 9E 22 3B 41 24 28 31 2C 30 29 3A 99 22 11 11 22 |.";A$(1,0):.".."|
000013E0: 3A 8D 32 35 35 3A 47 24 B2 4B 24 00 15 1C 09 01 |:.255:G$.K$.....|
000013F0: 99 A3 31 34 29 22 05 11 11 11 2A 20 53 45 41 52 |..14)"....* SEAR|
00001400: 43 48 49 4E 47 20 2A 22 3A 4C 4F 25 B2 30 3A 48 |CHING *":LO%.0:H|
00001410: 49 25 B2 4C 25 00 28 1C 0A 01 4A 25 B2 28 4C 4F |I%.L%.(...J%.(LO|
00001420: 25 AA 48 49 25 29 AD 32 00 46 1C 0B 01 8B 47 24 |%.HI%).2.F....G$|
00001430: B2 C8 28 41 24 28 31 2C 4A 25 29 2C C3 28 47 24 |..(A$(1,J%),.(G$|
00001440: 29 29 A7 32 37 32 00 60 1C 0C 01 8B 47 24 B3 41 |)).272.`....G$.A|
00001450: 24 28 31 2C 4A 25 29 A7 48 49 25 B2 4A 25 AB 31 |$(1,J%).HI%.J%.1|
00001460: 00 7A 1C 0D 01 8B 47 24 B1 41 24 28 31 2C 4A 25 |.z....G$.A$(1,J%|
00001470: 29 A7 4C 4F 25 B2 4A 25 AA 31 00 A8 1C 0E 01 8B |).LO%.J%.1......|
00001480: 4C 4F 25 B1 48 49 25 A7 99 A3 31 33 29 22 05 11 |LO%.HI%...13)"..|
00001490: 11 49 54 45 4D 20 20 4E 4F 54 20 46 4F 55 4E 44 |.ITEM NOT FOUND|
000014A0: 22 3A 8D 32 30 33 3A 8E 00 B1 1C 0F 01 89 32 36 |":.203:.......26|
000014B0: 36 00 DF 1C 10 01 99 22 93 05 11 11 11 22 A3 39 |6......".....".9|
000014C0: 29 22 C2 C9 CE C1 D2 D9 A0 D3 C5 C1 D2 C3 C8 A0 |)"..............|
000014D0: D2 CF D5 D4 C9 CE C5 11 11 11 22 3A 99 4C 24 00 |..........":.L$.|
000014E0: 12 1D 12 01 81 43 B2 30 A4 4E 46 25 3A 99 A3 35 |.....C.0.NF%:..5|
000014F0: 29 C7 28 31 34 34 29 41 24 28 43 2C 30 29 C7 28 |).(144)A$(C,0).(|
00001500: 31 35 35 29 A3 32 30 29 41 24 28 43 2C 4A 25 29 |155).20)A$(C,J%)|
00001510: 3A 82 00 21 1D 15 01 99 4C 24 3A 8D 32 30 33 3A |:..!....L$:.203:|
00001520: 8E 00 4E 1D 18 01 99 22 93 05 11 11 11 11 11 22 |..N...."......."|
00001530: A3 39 29 22 2A 2A 2A 20 90 D0 D2 C9 CE D4 C5 D2 |.9)"*** ........|
00001540: A0 CF D0 D4 C9 CF CE D3 20 05 2A 2A 2A 22 00 72 |........ .***".r|
00001550: 1D 19 01 99 A3 31 31 29 22 11 11 11 9E 12 20 53 |.....11)"..... S|
00001560: 45 43 54 49 4F 4E 53 20 52 45 51 55 49 52 45 44 |ECTIONS REQUIRED|
00001570: 20 22 00 9B 1D 1A 01 85 22 9F 11 11 1D 1D 1D 1D | "......".......|
00001580: 1D 1D 1D 1D 1D 1D 1D 50 41 47 45 53 20 46 52 4F |.......PAGES FRO|
00001590: 4D 2E 2E 2E 2E 2E 20 05 22 3B 53 00 C4 1D 1B 01 |M..... .";S.....|
000015A0: 85 22 9F 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 50 |.".............P|
000015B0: 41 47 45 53 20 54 4F 2E 2E 2E 2E 2E 2E 2E 20 05 |AGES TO....... .|
000015C0: 22 3B 53 53 00 F1 1D 1C 01 85 22 9F 11 1D 1D 1D |";SS......".....|
000015D0: 1D 1D 1D 1D 1D 1D 1D 1D 43 4F 4C 55 4D 4E 53 20 |........COLUMNS |
000015E0: 32 20 54 4F 20 38 2E 2E 05 22 3B 56 3A 89 32 38 |2 TO 8...";V:.28|
000015F0: 36 00 19 1E 1D 01 85 22 9F 91 1D 1D 1D 1D 1D 1D |6......"........|
00001600: 1D 1D 1D 1D 1D 43 4F 4C 55 4D 4E 53 20 32 20 54 |.....COLUMNS 2 T|
00001610: 4F 20 38 2E 2E 05 22 3B 56 00 2A 1E 1E 01 8B 56 |O 8...";V.*....V|
00001620: B3 32 B0 56 B1 38 A7 32 38 35 00 3B 1E 1F 01 8B |.2.V.8.285.;....|
00001630: 56 B1 4E 46 25 AA 31 A7 32 38 35 00 76 1E 20 01 |V.NF%.1.285.v. .|
00001640: 56 B2 56 AB 31 3A 50 24 B2 C7 28 31 36 29 3A 53 |V.V.1:P$..(16):S|
00001650: B2 53 AC 31 38 3A 53 53 B2 53 53 AC 31 38 3A 97 |.S.18:SS.SS.18:.|
00001660: 51 2C 31 30 3A 97 57 2C 31 30 3A 8B 53 B1 31 38 |Q,10:.W,10:.S.18|
00001670: A7 53 B2 53 AA 31 00 BA 1E 23 01 9F 37 2C 34 2C |.S.S.1...#..7,4,|
00001680: 37 3A 43 B2 31 3A 99 22 93 90 11 11 11 11 11 11 |7:C.1:."........|
00001690: 11 11 11 54 4F 54 41 4C 20 50 41 47 45 53 2E 2E |...TOTAL PAGES..|
000016A0: 05 22 58 2C 22 90 54 4F 54 41 4C 20 52 45 43 4F |."X,".TOTAL RECO|
000016B0: 52 44 53 2E 2E 05 22 46 4C 25 00 FF 1E 24 01 99 |RDS..."FL%...$..|
000016C0: 22 90 11 11 1D 1D 1D 1D 50 52 49 4E 54 49 4E 47 |".......PRINTING|
000016D0: 20 52 45 43 4F 52 44 20 4E 4F 2E 2E 05 11 22 3B | RECORD NO....";|
000016E0: 3A 91 56 8D 32 39 35 2C 32 39 38 2C 33 30 31 2C |:.V.295,298,301,|
000016F0: 33 30 35 2C 33 31 30 2C 33 31 35 2C 33 32 30 00 |305,310,315,320.|
00001700: 18 1F 26 01 97 51 2C 31 31 3A 97 57 2C 31 31 3A |..&..Q,11:.W,11:|
00001710: A0 37 2C 34 2C 37 3A 8E 00 4C 1F 27 01 81 52 B2 |.7,4,7:..L.'..R.|
00001720: 53 A4 53 53 3A 99 22 91 22 A3 32 35 29 52 3A 98 |S.SS:.".".25)R:.|
00001730: 37 2C 41 24 28 30 2C 52 29 50 24 3B 22 31 33 22 |7,A$(0,R)P$;"13"|
00001740: 3B 41 24 28 43 2C 52 29 3A 82 3A 8E 00 8E 1F 2A |;A$(C,R):.:....*|
00001750: 01 81 52 B2 53 A4 53 53 3A 99 22 91 22 A3 32 35 |..R.S.SS:.".".25|
00001760: 29 52 3A 98 37 2C 41 24 28 30 2C 52 29 50 24 3B |)R:.7,A$(0,R)P$;|
00001770: 22 31 33 22 3B 41 24 28 43 2C 52 29 3B 50 24 3B |"13";A$(C,R);P$;|
00001780: 22 33 35 22 3B 41 24 28 43 AA 31 2C 52 29 00 96 |"35";A$(C.1,R)..|
00001790: 1F 2B 01 82 3A 8E 00 AC 1F 2D 01 81 52 B2 53 A4 |.+..:....-..R.S.|
000017A0: 53 53 3A 99 22 91 22 A3 32 35 29 52 00 F2 1F 2E |SS:.".".25)R....|
000017B0: 01 98 37 2C 41 24 28 30 2C 52 29 50 24 3B 22 31 |..7,A$(0,R)P$;"1|
000017C0: 33 22 3B 41 24 28 43 2C 52 29 3B 50 24 3B 22 33 |3";A$(C,R);P$;"3|
000017D0: 35 22 3B 41 24 28 43 AA 31 2C 52 29 3B 50 24 3B |5";A$(C.1,R);P$;|
000017E0: 22 34 31 22 3B 41 24 28 43 AA 32 2C 52 29 3A 82 |"41";A$(C.2,R):.|
000017F0: 3A 8E 00 08 20 31 01 81 52 B2 53 A4 53 53 3A 99 |:... 1..R.S.SS:.|
00001800: 22 91 22 A3 32 35 29 52 00 53 20 32 01 98 37 2C |".".25)R.S 2..7,|
00001810: 41 24 28 30 2C 52 29 50 24 3B 22 31 33 22 3B 41 |A$(0,R)P$;"13";A|
00001820: 24 28 43 2C 52 29 3B 50 24 3B 22 33 35 22 3B 41 |$(C,R);P$;"35";A|
00001830: 24 28 43 AA 31 2C 52 29 3B 50 24 22 3B 34 31 22 |$(C.1,R);P$";41"|
00001840: 3B 41 24 28 43 AA 32 2C 52 29 3B 50 24 3B 22 34 |;A$(C.2,R);P$;"4|
00001850: 37 22 3B 00 68 20 33 01 98 37 2C 41 24 28 43 AA |7";.h 3..7,A$(C.|
00001860: 33 2C 52 29 3A 82 3A 8E 00 7E 20 36 01 81 52 B2 |3,R):.:..~ 6..R.|
00001870: 53 A4 53 53 3A 99 22 91 22 A3 32 35 29 52 00 C9 |S.SS:.".".25)R..|
00001880: 20 37 01 98 37 2C 41 24 28 30 2C 52 29 50 24 3B | 7..7,A$(0,R)P$;|
00001890: 22 31 33 22 3B 41 24 28 43 2C 52 29 3B 50 24 3B |"13";A$(C,R);P$;|
000018A0: 22 33 35 22 3B 41 24 28 43 AA 31 2C 52 29 3B 50 |"35";A$(C.1,R);P|
000018B0: 24 3B 22 34 31 22 3B 41 24 28 43 AA 32 2C 52 29 |$;"41";A$(C.2,R)|
000018C0: 3B 50 24 3B 22 34 37 22 3B 00 EC 20 38 01 98 37 |;P$;"47";.. 8..7|
000018D0: 2C 41 24 28 43 AA 33 2C 52 29 3B 50 24 3B 22 35 |,A$(C.3,R);P$;"5|
000018E0: 36 22 3B 41 24 28 43 AA 34 2C 52 29 00 F4 20 39 |6";A$(C.4,R).. 9|
000018F0: 01 82 3A 8E 00 0A 21 3B 01 81 52 B2 53 A4 53 53 |..:...!;..R.S.SS|
00001900: 3A 99 22 91 22 A3 32 35 29 52 00 55 21 3C 01 98 |:.".".25)R.U!<..|
00001910: 37 2C 41 24 28 30 2C 52 29 50 24 3B 22 31 33 22 |7,A$(0,R)P$;"13"|
00001920: 3B 41 24 28 43 2C 52 29 3B 50 24 3B 22 33 35 22 |;A$(C,R);P$;"35"|
00001930: 3B 41 24 28 43 AA 31 2C 52 29 3B 50 24 3B 22 34 |;A$(C.1,R);P$;"4|
00001940: 31 22 3B 41 24 28 43 AA 32 2C 52 29 3B 50 24 3B |1";A$(C.2,R);P$;|
00001950: 22 34 37 22 3B 00 8E 21 3D 01 98 37 2C 41 24 28 |"47";..!=..7,A$(|
00001960: 43 AA 33 2C 52 29 3B 50 24 3B 22 35 36 22 3B 41 |C.3,R);P$;"56";A|
00001970: 24 28 43 AA 34 2C 52 29 3B 50 24 3B 22 36 31 22 |$(C.4,R);P$;"61"|
00001980: 3B 41 24 28 43 AA 35 2C 52 29 3A 82 3A 8E 00 A4 |;A$(C.5,R):.:...|
00001990: 21 40 01 81 52 B2 53 A4 53 53 3A 99 22 91 22 A3 |!@..R.S.SS:.".".|
000019A0: 32 35 29 52 00 EF 21 41 01 98 37 2C 41 24 28 30 |25)R..!A..7,A$(0|
000019B0: 2C 52 29 50 24 3B 22 31 33 22 3B 41 24 28 43 2C |,R)P$;"13";A$(C,|
000019C0: 52 29 3B 50 24 3B 22 33 35 22 3B 41 24 28 43 AA |R);P$;"35";A$(C.|
000019D0: 31 2C 52 29 3B 50 24 3B 22 34 31 22 3B 41 24 28 |1,R);P$;"41";A$(|
000019E0: 43 AA 32 2C 52 29 3B 50 24 3B 22 34 37 22 3B 00 |C.2,R);P$;"47";.|
000019F0: 38 22 42 01 98 37 2C 41 24 28 43 AA 33 2C 52 29 |8"B..7,A$(C.3,R)|
00001A00: 3B 50 24 3B 22 35 36 22 3B 41 24 28 43 AA 34 2C |;P$;"56";A$(C.4,|
00001A10: 52 29 3B 50 24 3B 22 36 31 22 3B 41 24 28 43 AA |R);P$;"61";A$(C.|
00001A20: 35 2C 52 29 3B 50 24 3B 22 36 36 22 3B 41 24 28 |5,R);P$;"66";A$(|
00001A30: 43 AA 36 2C 52 29 3A 82 00 3E 22 43 01 8E 00 00 |C.6,R):..>"C....|
00001A40: 00 |. |
..=....808,225:.198,0:.".":Q.53281:W.532
80:.Q,11:.W,11:.G(14).Y....G(8):.15,8,15
:N$."NOT YET NAMED":L%.0:F1%.0:FL%.0:.17
6......206:..9)"..(1) .CREATE. NEW FILE"
:..9)"(2) .LOAD. FILE".......9)"(3) .SAV
E. FILE":..9)"(4) .DISPLAY. FILE":.775,2
00.,.....9)"(5) .ADD. RECORDS":..9)"(6)
.MODIFY. ANY COLUMN".M.....9)"(7) .SORT.
BY ANY COLUMN":..9)"(8) .SEARCH. ANY CO
LUMN".......9)"(9) .BINARY. SEARCH":..9)
"(D) .DELETE. RECORD".......9)"(P) .PRIN
T. COMMAND":..13)"...SELECT OPTION."....
..A$:.A$."".17......A$.G(49).17......A$.
"D".A$."10".'....A$."P".A$."11".G...S%.E
(A$):.".":FL%.L%:SL%.L%.Z....S%.3.F1.1.1
66......S%.2.L%.0...13)".......NO FILE P
RESENT":.203:.......S%.28,42,55,66,85,98
,109,119,263,140,280.C....4.M... 15:....
..FS%.1000:."....ENTER NUMBER OF COLUMNS
REQUIRED (2-8)..":.NF$.....NF%.E(NF$):.
NF%.2.NF%.8.28.I. .NF%.NF%.1:.A$(NF%,FS%
)..."..F.0.NF%:."...ENTER COLUMN HEADING
. [MAX 18 LETTERS]"...$...15)"..NUMBER .
";F.1:."....":.255:A$(F,0).K$:..F.'..85:
F1.1:....*..160:.Q,4:.W,4:."............
".9)".LOADING... .";K$...,..6,8,6,"0: "
.N$.",S,R".-.-..259:.A..20.53.?....6,FS%
,NF%,L%.P./..A$(NF%,FS%).T.0..R.0.L%:.F.
0.NF%:.6,A$(F,R):.:....5.F1.1: 6:.Q,11:.
W,11:....7..160.K.8..Q,2:.W,2:."........
....".9)".SAVING.... .";K$...9..6,8,6,"
@: ".N$.",S,W"...:..259:.A..20.64...;..6
,FS%:.6,NF%:.6,FL%.7.<..R.0.FL%:.F.0.NF%
:.6,A$(F,R):.:..L.@. 6:.Q,11:.W,11:..Y.B
.C.1:S.1:ZZ%.FL%:ZZ%.ZZ%.1:X..(ZZ%.18..9
)...C.."..SPACE FOR MENU * .PAGES.";X,".
...RECORDS.";FL%:.L$...E..A$(0,0).20)A$(
C,0):.L$:SS.S.17:.SS.FL%.SS.FL%...H..R.S
.SS:.A$(0,R).20)A$(C,R):....I..K$:.K$.""
.73.,.J..K$.G(32).84.>.K..K$."L".C.C.1.P
.L..K$."R".C.C.1.C.M..K$."U".S.S.18.V.N.
.K$."D".S.S.18...O..C.1.C.NF%...P..C.NF%
.C.1...Q..S.1.S.(.(FL%.18).18).1...R..S.
FL%.S.1.G.S..67.M.T.....U..L%..FS%.."...
.......".16)"FILE FULL.":.203:.97...V.L%
.L%.1.V.W.."..TYPE (EXIT) TO FINISH ENTR
Y OF RECORDS.":."..RECORD NUMBER .";L%.E
.Z.."..":F..1.O.[.F.F.1...\..A$(F,0):.25
5:A$(F,L%).K$...^..A$(F,L%)."EXIT".L%.L%
.1:.97..._..F.NF%.91.K.`..L%.FS%.85.Q.A.
....B..191:.181:.".....RECORD CONTAINING
SELECTED COLUMN..":.L$.6.E..C.0.NF%:.A$
(C,0).20)A$(C,R):.:.L$._.H.."..CURRENT C
ONTENTS OF COLUMN....."...J..A$(F,R):.".
.ENTER NEW CONTENTS......":.255:A$(F,R).
K$. .L.....M..FL%.2.118...N..181.H.O.HB%
.FL%.256...P.LB%.FL%.HB%.256...Q..251,LB
%...R..252,HB%...S..253,NF%...T..254,F..
.U..49152...V...Q.W..206:."......SHRINK
FILE (NON DESTRUCTIVE).."...Y...8)"..SEA
RCH ANY COLUMN FOR:-...":..9)"(1) .EQUAL
. TO"...{...9)"(2) .GREATER. THAN":..9)"
(3) .LESS. THAN"...}...9)"(4) .CHARACTER
. GROUP"...~...8)"...FURTHER OPTIONS A
RE:-..".(.....9)"(5) .DISPLAY. SUB-FILE"
.C.....9)"(6) .RETURN. MAIN MENU":..13)"
...SELECT OPTION .".V....A$:.A$."".133..
....E(A$).6.133.....S%.E(A$):FL%.SL%:.".
"......S%.213,213,213,213,66,139.N....S%
.6.119.T..........191......".....".12)"D
ELETE ROUTINE ..".,.....10)"...RECORD
TO BE DELETED..":.L$.S....C.0.NF%:.A$(C,
0).20)A$(C,R):.:.L$.Y.....8)"..DELETE TH
IS RECORD (Y/N)."......K$:.K$."".148....
..K$."Y"...12)"....DELETING RECORD":.15
2.I....K$."N".159......K$.."Y".K$.."N".1
48......L%.1.158......F.0.NF%:A$(F,R).A$
(F,R.1):......R.R.1.)....R.L%.153.5...L%
.L%.1.;.....O. .."............ENTER FILE
NAME... .";:.255:N$.K$......C(N$).16.."
.........".14)"NAME TOO LONG":.203:.160.
...........A$.G(50).4......"......... CA
UTION : OPTION DESTROYS LOADED FILE .".
.....8)".....PRESS F1 TO CLEAR FILE."
.T....".......PRESS ANY OTHER KEY TO REG
AIN . MENU.".G....K$:.K$."".173.X....K$.
G(133).......4.....L$."":.K.1.39:L$.L$.
G(159).G(96):.:..W...F..1:.A$."7".."....
.".13)"SORT ROUTINE.."......A$."6".."..
...".14)"MODIFY ROUTINE..".<...."..OPER
ATE ON WHICH COLUMN? .(GIVE HEADING)..":
.255.F...F.F.1.C....K$.H(A$(F,0),C(K$)).
189.R....F.NF%.185......"..NO SUCH COLUM
N.":.203:.181......A$."7"...14)"....* SO
RTING *".......V...R.0:.S%.6.S%.10.F.0..
.A..A$."10"..".....".13)"DELETE ROUTINE
.."./.B..A$."6"..".....".13)"MODIFY ROU
TINE..".G.C.."..GIVE RECORD ENTRY UNDER.
. .";A$(F,0):."..":.255...E...14)"....*
SEARCHING *"...F.R.R.1...G..K$.H(A$(F,R)
,C(K$)).202...H..R.FL%.198...I.."..NO SU
CH RECORD.":.203:.191...J.....K...8)"...
..PRESS ANY KEY TO CONTINUE.". .L..K$:.K
$."".204.-.M..198,0:..P.N..".":.L$:.".**
. DATA BASE .BY .BRIAN LUDWIG .C.1985 .
**.":.L$...Q..F1.0...10)"... FILE NOT P
RESENT ..".D.R..F1.1...5)"...FILE LOADED
IS :. .";N$.S.T..198,0:.:....U..181:.".
.SEARCH TO OPERATE ON .";A$(F,0).%.W..S%
.4.."..GIVE SEARCH DETAILS..".K.X..S%.4.
."..GIVE CHARACTER GROUP..".`.Y..255:B$.
K$:L2%.0...Z.."....................SEARC
HING...":.S%.222,226,230,234.M...SL%.L2%
:.SL%.0.."..SEARCH IS NEGATIVE.":.203.S.
.........R.1.SL%:.A$(F,R).B$.L2%.L2%.1:.
243......:..,....R.1.SL%:.A$(F,R)..B$.L2
%.L2%.1:.243.4....:..\....R.1.SL%:.A$(F,
R).B$.L2%.L2%.1:.243.D....:......LC.C(B$
):.R.1.SL%:LT.C(A$(F,R)):.LC.LT.241.L...
.K.1.LT.LC.1:.B$.J(A$(F,R),K,LC).L2%.L2%
.1:.243:.241.R..........R:.......C.0.NF%
:K$.A$(C,R):A$(C,R).A$(C,L2%):A$(C,L2%).
K$:........3...K$."":.K$:.K$."".255.M...
.C(K$).18.K$.H(K$,18).S.....D....15,A,B$
,C,D.R....A.20.262......".":.B$:.203....
........".....".10)"BINARY SEARCH ROUTIN
E...".......10)".SEARCH UNDER.. .";A$(1,
0):."..":.255:G$.K$.......14)"....* SEAR
CHING *":LO%.0:HI%.L%.(...J%.(LO%.HI%).2
.F....G$.H(A$(1,J%),C(G$)).272.`....G$.A
$(1,J%).HI%.J%.1.Z....G$.A$(1,J%).LO%.J%
.1......LO%.HI%...13)"...ITEM NOT FOUND
":.203:.......266......".....".9)"BINARY
SEARCH ROUTINE...":.L$......C.0.NF%:..5
)G(144)A$(C,0)G(155).20)A$(C,J%):..!....
L$:.203:..N....".......".9)"*** .PRINTER
OPTIONS .***".R.....11)"..... SECTIONS
REQUIRED "......"..............PAGES FRO
M..... .";S.D....".............PAGES TO.
...... .";SS......".............COLUMNS
2 TO 8...";V:.286......".............COL
UMNS 2 TO 8...";V.*....V.2.V.8.285.;....
V.NF%.1.285.V. .V.V.1:P$.G(16):S.S.18:SS
.SS.18:.Q,10:.W,10:.S.18.S.S.1...#..7,4,
7:C.1:."...........TOTAL PAGES..."X,".TO
TAL RECORDS..."FL%...$..".......PRINTING
RECORD NO....";:.V.295,298,301,305,310,
315,320...&..Q,11:.W,11: 7,4,7:..L.'..R.
S.SS:.".".25)R:.7,A$(0,R)P$;"13";A$(C,R)
:.:....*..R.S.SS:.".".25)R:.7,A$(0,R)P$;
"13";A$(C,R);P$;"35";A$(C.1,R)...+..:...
.-..R.S.SS:.".".25)R......7,A$(0,R)P$;"1
3";A$(C,R);P$;"35";A$(C.1,R);P$;"41";A$(
C.2,R):.:... 1..R.S.SS:.".".25)R.S 2..7,
A$(0,R)P$;"13";A$(C,R);P$;"35";A$(C.1,R)
;P$";41";A$(C.2,R);P$;"47";.H 3..7,A$(C.
3,R):.:..~ 6..R.S.SS:.".".25)R.I 7..7,A$
(0,R)P$;"13";A$(C,R);P$;"35";A$(C.1,R);P
$;"41";A$(C.2,R);P$;"47";.. 8..7,A$(C.3,
R);P$;"56";A$(C.4,R).. 9..:...!;..R.S.SS
:.".".25)R.U!<..7,A$(0,R)P$;"13";A$(C,R)
;P$;"35";A$(C.1,R);P$;"41";A$(C.2,R);P$;
"47";..!=..7,A$(C.3,R);P$;"56";A$(C.4,R)
;P$;"61";A$(C.5,R):.:...!@..R.S.SS:.".".
25)R..!A..7,A$(0,R)P$;"13";A$(C,R);P$;"3
5";A$(C.1,R);P$;"41";A$(C.2,R);P$;"47";.
8"B..7,A$(C.3,R);P$;"56";A$(C.4,R);P$;"6
1";A$(C.5,R);P$;"66";A$(C.6,R):..>"C....
.
> CLICK IMAGE PREVIEW FOR FULL MODAL