DATABASE
FILE INFORMATION
FILENAME(S): DATABASE
FILE TYPE(S): PRG
FILE SIZE: 10.7K
FIRST SEEN: 2025-11-30 19:47:42
APPEARS ON: 1 disk(s)
FILE HASH
b842631d37cf48b5c886c9b4c5a085d7f1ad1427a2a82e4d6e976587e2b759d7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| KOPIDISK | DATABASE | PRG | Curtcool, Frank | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 0A 00 8F 20 54 48 45 20 44 45 56 45 |.. .... THE DEVE|
00000010: 4C 4F 50 49 4E 47 20 44 41 54 41 20 42 41 53 45 |LOPING DATA BASE|
00000020: 00 47 08 14 00 8F 20 20 20 43 4F 50 59 52 49 47 |.G.... COPYRIG|
00000030: 48 54 20 31 39 38 31 20 4D 41 52 4B 20 50 45 4C |HT 1981 MARK PEL|
00000040: 43 5A 41 52 53 4B 49 00 6D 08 15 00 8F 20 20 20 |CZARSKI.m.... |
00000050: 20 53 45 50 54 20 31 39 38 32 20 43 52 45 41 54 | SEPT 1982 CREAT|
00000060: 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 00 94 08 |IVE COMPUTING...|
00000070: 16 00 8F 20 45 4E 48 41 4E 43 45 4D 45 4E 54 53 |... ENHANCEMENTS|
00000080: 20 42 59 20 52 4F 42 45 52 54 20 53 54 45 49 4E | BY ROBERT STEIN|
00000090: 42 45 52 47 00 BA 08 17 00 8F 20 20 20 20 46 45 |BERG...... FE|
000000A0: 42 20 20 31 39 38 33 20 43 52 45 41 54 49 56 45 |B 1983 CREATIVE|
000000B0: 20 43 4F 4D 50 55 54 49 4E 47 00 E3 08 18 00 8F | COMPUTING......|
000000C0: 20 41 44 41 50 54 45 44 20 54 4F 20 54 48 45 20 | ADAPTED TO THE |
000000D0: 43 36 34 20 42 59 20 42 52 49 41 4E 20 53 43 48 |C64 BY BRIAN SCH|
000000E0: 4F 54 54 00 19 09 19 00 8F 20 31 30 34 31 20 4E |OTT...... 1041 N|
000000F0: 4F 52 54 48 20 48 49 4C 4C 53 20 44 52 49 56 45 |ORTH HILLS DRIVE|
00000100: 2C 20 44 45 43 41 54 55 52 2C 20 47 45 4F 52 47 |, DECATUR, GEORG|
00000110: 49 41 2C 20 33 30 30 33 33 00 2A 09 1A 00 8F 20 |IA, 30033.*.... |
00000120: 41 50 52 49 4C 20 31 39 38 33 00 4F 09 1E 00 8F |APRIL 1983.O....|
00000130: 20 2A 2A 20 53 54 52 49 4E 47 20 54 48 49 4E 47 | ** STRING THING|
00000140: 20 28 55 4E 49 56 45 52 53 41 4C 29 20 2A 2A 00 | (UNIVERSAL) **.|
00000150: 74 09 1F 00 8F 20 2A 2A 20 20 20 20 20 4A 49 4D |t.... ** JIM|
00000160: 20 42 55 54 54 45 52 46 49 45 4C 44 20 20 20 20 | BUTTERFIELD |
00000170: 20 20 2A 2A 00 98 09 20 00 8F 20 53 54 52 49 4E | **... .. STRIN|
00000180: 47 20 4D 55 53 54 20 42 45 20 46 49 52 53 54 20 |G MUST BE FIRST |
00000190: 56 41 52 49 41 42 4C 45 00 B3 09 21 00 56 24 B2 |VARIABLE...!.V$.|
000001A0: 22 41 42 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F |"ABCDEFGHIJKLMNO|
000001B0: 50 51 22 00 C9 09 22 00 56 24 B2 56 24 AA 56 24 |PQ"...".V$.V$.V$|
000001C0: AA 56 24 AA 56 24 AA 56 24 00 D9 09 23 00 56 24 |.V$.V$.V$...#.V$|
000001D0: B2 56 24 AA 56 24 AA 56 24 00 FF 09 24 00 8F 20 |.V$.V$.V$...$.. |
000001E0: 41 42 4F 56 45 20 53 45 54 53 20 53 54 52 49 4E |ABOVE SETS STRIN|
000001F0: 47 20 46 4F 52 20 4D 41 58 20 28 32 35 35 29 00 |G FOR MAX (255).|
00000200: 26 0A 25 00 83 20 31 36 30 2C 32 2C 31 37 37 2C |&.%.. 160,2,177,|
00000210: 34 35 2C 31 35 33 2C 31 33 37 2C 30 2C 32 30 30 |45,153,137,0,200|
00000220: 2C 31 39 32 2C 36 00 3F 0A 26 00 83 20 32 30 38 |,192,6.?.&.. 208|
00000230: 2C 32 34 36 2C 33 32 2C 31 39 38 2C 32 35 35 00 |,246,32,198,255.|
00000240: 6A 0A 27 00 83 20 33 32 2C 32 32 38 2C 32 35 35 |j.'.. 32,228,255|
00000250: 2C 32 30 31 2C 31 33 2C 32 34 30 2C 31 35 2C 31 |,201,13,240,15,1|
00000260: 36 34 2C 31 34 32 2C 31 34 35 00 A9 0A 28 00 83 |64,142,145...(..|
00000270: 20 31 34 30 2C 32 30 30 2C 31 33 32 2C 31 34 32 | 140,200,132,142|
00000280: 2C 31 39 36 2C 31 33 39 2C 32 34 30 2C 34 2C 31 |,196,139,240,4,1|
00000290: 36 35 2C 31 34 34 2C 32 34 30 2C 32 33 34 2C 37 |65,144,240,234,7|
000002A0: 36 2C 32 30 34 2C 32 35 35 00 C9 0A 29 00 81 4A |6,204,255...)..J|
000002B0: B2 38 39 36 A4 39 33 35 3A 87 58 3A 97 4A 2C 58 |.896.935:.X:.J,X|
000002C0: 3A 54 B2 54 AA 58 3A 82 4A 00 D8 0A 2A 00 8B 54 |:T.T.X:.J...*..T|
000002D0: B3 B1 35 39 35 37 A7 90 00 FD 0A 2B 00 8F 20 20 |..5957.....+.. |
000002E0: 20 20 20 20 20 20 20 20 42 55 54 54 45 52 46 49 | BUTTERFI|
000002F0: 45 4C 44 27 53 20 52 4F 55 54 49 4E 45 00 23 0B |ELD'S ROUTINE.#.|
00000300: 2C 00 8F 20 48 41 53 20 42 45 45 4E 20 41 44 4A |,.. HAS BEEN ADJ|
00000310: 55 53 54 45 44 20 54 4F 20 43 48 41 4E 47 45 20 |USTED TO CHANGE |
00000320: 54 48 45 00 47 0B 2D 00 8F 20 46 49 4C 45 20 4E |THE.G.-.. FILE N|
00000330: 55 4D 42 45 52 20 45 58 54 45 52 4E 41 4C 4C 59 |UMBER EXTERNALLY|
00000340: 20 57 49 54 48 20 41 00 6E 0B 2E 00 8F 20 50 4F | WITH A.n.... PO|
00000350: 4B 45 37 38 31 2C 27 46 49 4C 45 22 27 20 43 4F |KE781,'FILE"' CO|
00000360: 4D 4D 41 4E 44 2E 20 20 49 54 20 48 41 53 00 93 |MMAND. IT HAS..|
00000370: 0B 2F 00 8F 20 42 45 45 4E 20 49 4D 50 4C 45 4D |./.. BEEN IMPLEM|
00000380: 45 4E 54 45 44 20 4F 4E 20 4C 49 4E 45 53 20 35 |ENTED ON LINES 5|
00000390: 34 36 30 00 A4 0B 30 00 8F 20 41 4E 44 20 31 30 |460...0.. AND 10|
000003A0: 31 35 30 2E 00 CB 0B 31 00 8F 20 2A 2A 2A 2A 2A |150....1.. *****|
000003B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E8 0B 32 00 |***********...2.|
000003D0: 8F 20 31 30 34 31 20 4E 4F 52 54 48 20 48 49 4C |. 1041 NORTH HIL|
000003E0: 4C 53 20 44 52 49 56 45 00 FF 0B 3C 00 8F 20 44 |LS DRIVE...<.. D|
000003F0: 45 43 41 54 55 52 2C 47 41 20 33 30 30 33 33 00 |ECATUR,GA 30033.|
00000400: 10 0C 41 00 8F 20 4D 41 52 43 48 20 31 39 38 33 |..A.. MARCH 1983|
00000410: 00 28 0C 46 00 46 44 B2 30 3A 46 58 B2 35 3A 43 |.(.F.FD.0:FX.5:C|
00000420: 4E B2 32 3A 46 50 B2 31 00 49 0C 48 00 99 22 93 |N.2:FP.1.I.H..".|
00000430: 11 11 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
00000440: 2A 2A 2A 2A 2A 2A 2A 2A 22 00 64 0C 4A 00 99 22 |********".d.J.."|
00000450: 20 20 49 4E 53 45 52 54 20 44 41 54 41 20 53 48 | INSERT DATA SH|
00000460: 45 45 54 22 00 81 0C 4C 00 99 22 2A 2A 2A 2A 2A |EET"...L.."*****|
00000470: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000480: 22 00 9E 0C 4E 00 99 22 11 11 20 20 20 20 53 54 |"...N..".. ST|
00000490: 41 52 54 20 50 52 45 53 53 20 27 53 27 22 00 B2 |ART PRESS 'S'"..|
000004A0: 0C 50 00 A1 50 24 3A 8B 50 24 B3 B1 22 53 22 A7 |.P..P$:.P$.."S".|
000004B0: 38 30 00 DF 0C 52 00 8F 20 43 52 45 41 54 45 20 |80...R.. CREATE |
000004C0: 4D 45 41 4E 53 20 54 4F 20 50 41 44 20 46 49 45 |MEANS TO PAD FIE|
000004D0: 4C 44 53 20 57 49 54 48 20 53 50 41 43 45 53 00 |LDS WITH SPACES.|
000004E0: EA 0C 54 00 58 24 B2 22 20 22 00 FE 0C 56 00 81 |..T.X$." "...V..|
000004F0: 49 B2 31 A4 36 3A 58 24 B2 58 24 AA 58 24 00 05 |I.1.6:X$.X$.X$..|
00000500: 0D 58 00 82 49 00 19 0D 5A 00 58 24 B2 58 24 AA |.X..I...Z.X$.X$.|
00000510: C8 28 58 24 2C 31 32 36 29 00 44 0D 69 00 86 43 |.(X$,126).D.i..C|
00000520: 24 28 37 29 2C 43 31 25 28 37 29 2C 43 32 25 28 |$(7),C1%(7),C2%(|
00000530: 37 29 2C 46 24 28 35 29 2C 43 33 24 28 37 29 3A |7),F$(5),C3$(7):|
00000540: 43 48 B2 30 00 76 0D 6E 00 99 22 93 22 3A 99 22 |CH.0.v.n..".":."|
00000550: 28 4C 29 20 4C 4F 41 44 20 41 20 50 52 45 56 49 |(L) LOAD A PREVI|
00000560: 4F 55 53 4C 59 20 53 41 56 45 44 20 44 41 54 41 |OUSLY SAVED DATA|
00000570: 20 53 45 54 3F 22 00 9D 0D 78 00 99 22 28 49 29 | SET?"...x.."(I)|
00000580: 20 49 4E 49 54 49 41 4C 49 5A 45 20 41 20 4E 45 | INITIALIZE A NE|
00000590: 57 20 44 41 54 41 20 53 45 54 3F 22 3B 00 AC 0D |W DATA SET?";...|
000005A0: 82 00 8D 31 31 30 30 30 3A 99 41 24 00 D8 0D 8C |...11000:.A$....|
000005B0: 00 8B 41 24 B2 22 4C 22 A7 8D 31 32 30 30 30 3A |..A$."L"..12000:|
000005C0: 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 3A 8D 31 |.15,8,15,"I0":.1|
000005D0: 30 30 30 3A 89 32 30 30 00 EF 0D 96 00 8B 41 24 |000:.200......A$|
000005E0: B2 22 49 22 A7 8D 31 35 30 30 3A 89 32 30 30 00 |."I"..1500:.200.|
000005F0: F8 0D A0 00 89 31 33 30 00 1A 0E C8 00 99 22 93 |.....130......".|
00000600: 22 3A 99 22 28 53 29 20 53 41 56 45 20 43 55 52 |":."(S) SAVE CUR|
00000610: 52 45 4E 54 20 44 41 54 41 22 00 30 0E DC 00 99 |RENT DATA".0....|
00000620: 22 28 50 29 20 50 52 49 4E 54 20 44 41 54 41 22 |"(P) PRINT DATA"|
00000630: 00 44 0E E6 00 99 22 28 41 29 20 41 44 44 20 44 |.D...."(A) ADD D|
00000640: 41 54 41 22 00 5F 0E F0 00 99 22 28 43 29 20 43 |ATA"._...."(C) C|
00000650: 48 41 4E 47 45 20 41 20 52 45 43 4F 52 44 22 00 |HANGE A RECORD".|
00000660: 7A 0E FA 00 99 22 28 44 29 20 44 45 4C 45 54 45 |z...."(D) DELETE|
00000670: 20 41 20 52 45 43 4F 52 44 22 00 8A 0E 04 01 99 | A RECORD"......|
00000680: 22 28 54 29 20 53 4F 52 54 22 00 A7 0E 0E 01 8F |"(T) SORT"......|
00000690: 2A 2A 2A 50 52 49 4E 54 22 28 46 29 20 46 49 4C |***PRINT"(F) FIL|
000006A0: 45 4E 41 4D 45 53 22 00 C8 0E 18 01 8F 2A 2A 2A |ENAMES"......***|
000006B0: 50 52 49 4E 54 22 28 4E 29 20 4E 45 57 20 44 41 |PRINT"(N) NEW DA|
000006C0: 54 41 20 46 49 4C 45 22 00 D8 0E 22 01 99 22 28 |TA FILE"...".."(|
000006D0: 51 29 20 51 55 49 54 22 00 0A 0F 27 01 99 3A 99 |Q) QUIT"...'..:.|
000006E0: 4E 49 AA 31 3B 22 20 52 45 43 4F 52 44 53 2C 20 |NI.1;" RECORDS, |
000006F0: 52 4F 4F 4D 20 46 4F 52 20 22 3B 4D 58 AB 4E 49 |ROOM FOR ";MX.NI|
00000700: AB 31 3B 22 20 4D 4F 52 45 22 00 1B 0F 2C 01 8D |.1;" MORE"...,..|
00000710: 31 31 30 30 30 3A 99 41 24 3A 99 00 32 0F 40 01 |11000:.A$:..2.@.|
00000720: 8B 41 24 B2 22 53 22 A7 8D 32 30 30 30 3A 89 32 |.A$."S"..2000:.2|
00000730: 30 30 00 49 0F 4A 01 8B 41 24 B2 22 50 22 A7 8D |00.I.J..A$."P"..|
00000740: 33 30 30 30 3A 89 32 30 30 00 60 0F 54 01 8B 41 |3000:.200.`.T..A|
00000750: 24 B2 22 41 22 A7 8D 34 30 30 30 3A 89 32 30 30 |$."A"..4000:.200|
00000760: 00 7C 0F 5E 01 8B 41 24 B2 22 43 22 A7 53 42 B2 |.|.^..A$."C".SB.|
00000770: 33 3A 8D 38 30 30 30 3A 89 32 30 30 00 9D 0F 68 |3:.8000:.200...h|
00000780: 01 8B 41 24 B2 22 44 22 A7 53 42 B2 34 3A 46 4D |..A$."D".SB.4:FM|
00000790: B2 31 3A 8D 38 30 30 30 3A 89 32 30 30 00 B4 0F |.1:.8000:.200...|
000007A0: 72 01 8B 41 24 B2 22 54 22 A7 8D 37 30 30 30 3A |r..A$."T"..7000:|
000007B0: 89 32 30 30 00 CA 0F 7C 01 8B 41 24 B2 22 46 22 |.200...|..A$."F"|
000007C0: A7 8D 36 30 30 3A 89 32 30 30 00 E1 0F 90 01 8B |..600:.200......|
000007D0: 41 24 B2 22 51 22 B0 41 24 B2 22 4E 22 A7 35 30 |A$."Q".A$."N".50|
000007E0: 30 00 EA 0F 9A 01 89 32 30 30 00 F8 0F F4 01 8B |0......200......|
000007F0: 53 53 B2 31 A7 35 33 30 00 02 10 08 02 8D 32 30 |SS.1.530......20|
00000800: 30 30 00 0D 10 12 02 8D 31 32 30 30 30 00 20 10 |00......12000. .|
00000810: 1C 02 8B 41 24 B2 22 4E 22 A7 9C 3A 89 31 30 30 |...A$."N"..:.100|
00000820: 00 26 10 26 02 80 00 2C 10 58 02 8F 00 52 10 E7 |.&.&...,.X...R..|
00000830: 03 8F 20 4C 4F 41 44 20 53 55 42 52 4F 55 54 49 |.. LOAD SUBROUTI|
00000840: 4E 45 20 56 45 52 53 2E 31 2E 2E 2E 2E 2E 2E 2E |NE VERS.1.......|
00000850: 2E 2E 00 67 10 E8 03 99 22 46 49 4C 45 4E 41 4D |...g...."FILENAM|
00000860: 45 22 3B 3A 85 46 24 00 71 10 F2 03 8D 35 35 30 |E";:.F$.q....550|
00000870: 30 00 8F 10 FC 03 9F 35 2C 38 2C 35 2C 22 30 3A |0......5,8,5,"0:|
00000880: 22 AA 46 24 AA 22 2E 48 44 47 2C 53 2C 52 22 00 |".F$.".HDG,S,R".|
00000890: 99 10 06 04 8D 35 35 30 30 00 AC 10 10 04 84 35 |.....5500......5|
000008A0: 2C 4E 48 2C 4E 49 2C 4D 58 2C 4C 4B 00 D7 10 6A |,NH,NI,MX,LK...j|
000008B0: 04 86 48 24 28 4E 48 29 2C 42 25 28 4E 48 AA 31 |..H$(NH),B%(NH.1|
000008C0: 29 2C 50 25 28 4D 58 29 2C 54 54 24 28 4E 48 29 |),P%(MX),TT$(NH)|
000008D0: 2C 49 24 28 4D 58 29 00 F4 10 74 04 81 49 B2 30 |,I$(MX)...t..I.0|
000008E0: A4 4E 48 3A 84 35 2C 48 24 28 49 29 2C 42 25 28 |.NH:.5,H$(I),B%(|
000008F0: 49 29 3A 82 00 04 11 7E 04 84 35 2C 42 25 28 4E |I):....~..5,B%(N|
00000900: 48 AA 31 29 00 14 11 88 04 8B 4E 49 B2 AB 31 A7 |H.1)......NI..1.|
00000910: 31 31 38 30 00 2B 11 92 04 81 49 B2 30 A4 4E 49 |1180.+....I.0.NI|
00000920: 3A 84 35 2C 50 25 28 49 29 3A 82 00 32 11 9C 04 |:.5,P%(I):..2...|
00000930: A0 35 00 42 11 A6 04 9F 43 4E 2C 38 2C 43 4E 2C |.5.B....CN,8,CN,|
00000940: 46 24 00 52 11 B0 04 8B 4E 49 B2 AB 31 A7 31 32 |F$.R....NI..1.12|
00000950: 32 30 00 5C 11 BA 04 8D 31 33 30 30 00 67 11 C4 |20.\....1300.g..|
00000960: 04 53 53 B2 31 3A 8E 00 89 11 CE 04 99 22 46 49 |.SS.1:......."FI|
00000970: 4C 45 20 4E 4F 54 20 46 4F 55 4E 44 22 3A 8D 31 |LE NOT FOUND":.1|
00000980: 31 30 30 30 3A 89 31 31 30 00 AF 11 13 05 8F 20 |1000:.110...... |
00000990: 52 45 41 44 20 49 54 45 4D 53 20 55 4E 44 45 52 |READ ITEMS UNDER|
000009A0: 20 48 45 41 44 49 4E 47 20 43 48 2E 2E 2E 2E 00 | HEADING CH.....|
000009B0: BD 11 14 05 99 3A 81 49 B2 30 A4 4E 49 00 CF 11 |.....:.I.0.NI...|
000009C0: 1E 05 52 B2 50 25 28 49 29 3A 8D 35 36 30 30 00 |..R.P%(I):.5600.|
000009D0: DD 11 28 05 84 43 4E 2C 49 24 28 49 29 00 E3 11 |..(..CN,I$(I)...|
000009E0: 32 05 82 00 E9 11 3C 05 8E 00 0F 12 DB 05 8F 20 |2.....<........ |
000009F0: 49 4E 49 54 49 41 4C 49 5A 45 20 53 55 42 52 4F |INITIALIZE SUBRO|
00000A00: 55 54 49 4E 45 20 56 45 52 53 2E 31 2E 2E 2E 00 |UTINE VERS.1....|
00000A10: 2F 12 DC 05 99 22 47 49 56 45 20 59 4F 55 52 20 |/...."GIVE YOUR |
00000A20: 12 46 49 4C 45 92 20 41 20 4E 41 4D 45 22 3B 00 |.FILE. A NAME";.|
00000A30: 37 12 E6 05 85 46 24 00 42 12 E8 05 8D 31 32 30 |7....F$.B....120|
00000A40: 30 30 00 5F 12 F0 05 85 22 48 4F 57 20 4D 41 4E |00._...."HOW MAN|
00000A50: 59 20 48 45 41 44 49 4E 47 53 20 22 3B 4E 48 00 |Y HEADINGS ";NH.|
00000A60: 6E 12 FA 05 8B 4E 48 B3 31 A7 31 35 32 30 00 86 |n....NH.1.1520..|
00000A70: 12 04 06 4E 48 B2 4E 48 AB 31 3A 4E 49 B2 AB 31 |...NH.NH.1:NI..1|
00000A80: 3A 4C 4B B2 AB 31 00 AB 12 18 06 86 48 24 28 4E |:LK..1......H$(N|
00000A90: 48 29 2C 42 25 28 4E 48 AA 31 29 2C 54 54 24 28 |H),B%(NH.1),TT$(|
00000AA0: 4E 48 29 3A 42 25 28 30 29 B2 30 00 B8 12 22 06 |NH):B%(0).0...".|
00000AB0: 81 20 49 B2 30 A4 4E 48 00 DB 12 2C 06 99 22 48 |. I.0.NH...,.."H|
00000AC0: 45 41 44 49 4E 47 20 23 22 3B 49 AA 31 3B 3A 85 |EADING #";I.1;:.|
00000AD0: 22 20 3A 20 22 3B 48 24 28 49 29 00 F6 12 36 06 |" : ";H$(I)...6.|
00000AE0: 85 22 4D 41 58 49 4D 55 4D 20 4C 45 4E 47 54 48 |."MAXIMUM LENGTH|
00000AF0: 20 3A 20 22 3B 4A 00 0C 13 40 06 42 25 28 49 AA | : ";J...@.B%(I.|
00000B00: 31 29 B2 42 25 28 49 29 AA 4A AA 31 00 13 13 4A |1).B%(I).J.1...J|
00000B10: 06 82 49 00 45 13 4F 06 9F 31 35 2C 38 2C 31 35 |..I.E.O..15,8,15|
00000B20: 2C 22 49 30 22 3A 9F 43 4E 2C 38 2C 43 4E 2C 46 |,"I0":.CN,8,CN,F|
00000B30: 24 AA 22 2C 4C 2C 22 AA C7 28 31 AA 42 25 28 4E |$.",L,"..(1.B%(N|
00000B40: 48 AA 31 29 29 00 81 13 54 06 99 22 57 48 49 43 |H.1))...T.."WHIC|
00000B50: 48 20 48 45 41 44 49 4E 47 20 49 53 20 54 48 45 |H HEADING IS THE|
00000B60: 20 4C 4F 4E 47 45 53 54 20 4F 4E 20 57 48 49 43 | LONGEST ON WHIC|
00000B70: 48 20 59 4F 55 20 57 49 4C 4C 20 53 4F 52 54 3F |H YOU WILL SORT?|
00000B80: 22 00 8E 13 55 06 85 4A 3A 4A B2 4A AB 31 00 A1 |"...U..J:J.J.1..|
00000B90: 13 59 06 8B 4A B3 30 B0 4A B1 4E 48 A7 31 36 32 |.Y..J.0.J.NH.162|
00000BA0: 30 00 CF 13 5E 06 4A B2 42 25 28 4A AA 31 29 AB |0...^.J.B%(J.1).|
00000BB0: 42 25 28 4A 29 AB 31 3A 4D 58 B2 B5 28 28 B8 28 |B%(J).1:MX..((.(|
00000BC0: 30 29 AB 32 30 30 30 29 AD 28 4A AA 32 29 29 00 |0).2000).(J.2)).|
00000BD0: E2 13 68 06 86 50 25 28 4D 58 29 2C 49 24 28 4D |..h..P%(MX),I$(M|
00000BE0: 58 29 00 E8 13 72 06 8F 00 F3 13 7C 06 53 53 B2 |X)...r.....|.SS.|
00000BF0: 30 3A 8E 00 19 14 A3 06 8F 20 52 45 41 44 20 52 |0:....... READ R|
00000C00: 45 43 4F 52 44 20 49 20 49 4E 54 4F 20 54 54 24 |ECORD I INTO TT$|
00000C10: 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 27 14 A4 06 99 3A |..........'....:|
00000C20: 52 B2 50 25 28 49 29 00 38 14 AE 06 8F 46 4F 52 |R.P%(I).8....FOR|
00000C30: 4A 31 3D 30 54 4F 4E 48 00 54 14 B8 06 8F 50 52 |J1=0TONH.T....PR|
00000C40: 49 4E 54 52 45 4D 3B 52 3B 22 2C 42 22 3B 42 25 |INTREM;R;",B";B%|
00000C50: 28 4A 31 29 00 66 14 C2 06 8F 49 4E 50 55 54 54 |(J1).f....INPUTT|
00000C60: 54 24 28 4A 31 29 00 71 14 CC 06 8F 20 4E 45 58 |T$(J1).q.... NEX|
00000C70: 54 00 7D 14 D6 06 8D 35 34 30 30 3A 8E 00 A3 14 |T.}....5400:....|
00000C80: 07 07 8F 20 57 52 49 54 45 20 52 45 43 4F 52 44 |... WRITE RECORD|
00000C90: 20 52 20 46 52 4F 4D 20 54 24 2E 2E 2E 2E 2E 2E | R FROM T$......|
00000CA0: 2E 2E 2E 00 B6 14 08 07 99 3A 8F 46 4F 52 4A 31 |.........:.FORJ1|
00000CB0: 3D 30 54 4F 4E 48 00 CA 14 12 07 8F 3B 52 3B 22 |=0TONH......;R;"|
00000CC0: 2C 42 22 3B 42 25 28 4A 31 29 00 DC 14 1C 07 8F |,B";B%(J1)......|
00000CD0: 50 52 49 4E 54 54 54 24 28 4A 31 29 00 E6 14 26 |PRINTTT$(J1)...&|
00000CE0: 07 8F 4E 45 58 54 00 F2 14 30 07 8D 35 32 30 30 |..NEXT...0..5200|
00000CF0: 3A 8E 00 18 15 CF 07 8F 20 57 52 49 54 45 20 53 |:....... WRITE S|
00000D00: 55 42 52 4F 55 54 49 4E 45 20 56 45 52 53 2E 31 |UBROUTINE VERS.1|
00000D10: 2E 2E 2E 2E 2E 2E 2E 2E 00 30 15 D0 07 99 3A 8F |.........0....:.|
00000D20: 20 4F 4E 45 52 52 20 47 4F 54 4F 20 32 32 39 30 | ONERR GOTO 2290|
00000D30: 00 60 15 DA 07 98 31 35 2C 22 53 30 3A 22 46 24 |.`....15,"S0:"F$|
00000D40: 22 2E 48 44 47 22 3A 9F 35 2C 38 2C 35 2C 22 30 |".HDG":.5,8,5,"0|
00000D50: 3A 22 AA 46 24 AA 22 2E 48 44 47 2C 53 2C 57 22 |:".F$.".HDG,S,W"|
00000D60: 00 6A 15 E4 07 8D 35 35 30 30 00 95 15 EE 07 98 |.j....5500......|
00000D70: 35 2C C4 28 4E 48 29 22 2C 22 C4 28 4E 49 29 22 |5,.(NH)",".(NI)"|
00000D80: 2C 22 C4 28 4D 58 29 22 2C 22 C4 28 4C 4B 29 C7 |,".(MX)",".(LK).|
00000D90: 28 31 33 29 3B 00 BD 15 F8 07 81 49 B2 30 A4 4E |(13);......I.0.N|
00000DA0: 48 3A 98 35 2C 48 24 28 49 29 22 2C 22 C4 28 42 |H:.5,H$(I)",".(B|
00000DB0: 25 28 49 29 29 C7 28 31 33 29 3B 3A 82 00 D6 15 |%(I)).(13);:....|
00000DC0: 02 08 98 35 2C C4 28 42 25 28 4E 48 AA 31 29 29 |...5,.(B%(NH.1))|
00000DD0: C7 28 31 33 29 3B 00 E6 15 0C 08 8B 4E 49 B2 AB |.(13);......NI..|
00000DE0: 31 A7 32 32 37 30 00 06 16 16 08 81 49 B2 30 A4 |1.2270......I.0.|
00000DF0: 4E 49 3A 98 35 2C C4 28 50 25 28 49 29 29 C7 28 |NI:.5,.(P%(I)).(|
00000E00: 31 33 29 3B 3A 82 00 0D 16 DE 08 A0 35 00 18 16 |13);:.......5...|
00000E10: E8 08 53 53 B2 31 3A 8E 00 36 16 F2 08 99 22 44 |..SS.1:..6...."D|
00000E20: 49 53 4B 20 45 52 52 4F 52 22 3A 8D 31 31 30 30 |ISK ERROR":.1100|
00000E30: 30 3A 89 32 30 30 00 5C 16 B7 0B 8F 20 50 52 49 |0:.200.\.... PRI|
00000E40: 4E 54 20 53 55 42 52 4F 55 54 49 4E 45 20 56 45 |NT SUBROUTINE VE|
00000E50: 52 53 2E 34 2E 2E 2E 2E 2E 2E 2E 2E 00 6F 16 B8 |RS.4.........o..|
00000E60: 0B 8B 4E 49 B2 AB 31 A7 8D 39 30 30 30 3A 8E 00 |..NI..1..9000:..|
00000E70: A2 16 BD 0B 99 22 28 53 29 20 53 45 4C 45 43 54 |....."(S) SELECT|
00000E80: 20 46 4F 52 4D 41 54 2C 20 4F 52 20 28 44 29 20 | FORMAT, OR (D) |
00000E90: 44 45 46 41 55 4C 54 22 3B 3A 8D 31 31 30 30 30 |DEFAULT";:.11000|
00000EA0: 3A 99 00 C0 16 BE 0B 8B 41 24 B2 22 53 22 A7 8D |:.......A$."S"..|
00000EB0: 31 30 30 30 30 3A 46 4D B2 32 3A 89 33 30 31 30 |10000:FM.2:.3010|
00000EC0: 00 D2 16 BF 0B 8B 41 24 B3 B1 22 44 22 A7 33 30 |......A$.."D".30|
00000ED0: 30 35 00 DB 16 C0 0B 46 4D B2 31 00 07 17 C2 0B |05.....FM.1.....|
00000EE0: 99 22 28 53 29 20 53 43 52 45 45 4E 2C 20 4F 52 |."(S) SCREEN, OR|
00000EF0: 20 28 50 29 20 50 52 49 4E 54 45 52 22 3B 3A 8D | (P) PRINTER";:.|
00000F00: 31 31 30 30 30 3A 99 00 1E 17 CC 0B 8B 41 24 B2 |11000:.......A$.|
00000F10: 22 50 22 A7 53 42 B2 32 3A 89 33 30 35 30 00 30 |"P".SB.2:.3050.0|
00000F20: 17 D6 0B 8B 41 24 B3 B1 22 53 22 A7 33 30 31 30 |....A$.."S".3010|
00000F30: 00 65 17 E0 0B 53 42 B2 31 3A 99 3A 99 22 41 46 |.e...SB.1:.:."AF|
00000F40: 54 45 52 20 45 41 43 48 20 52 45 43 4F 52 44 20 |TER EACH RECORD |
00000F50: 28 20 5F 20 29 20 57 49 4C 4C 20 52 45 54 55 52 |( _ ) WILL RETUR|
00000F60: 4E 20 54 4F 22 00 8F 17 E1 0B 99 22 54 48 45 20 |N TO"......"THE |
00000F70: 4D 45 4E 55 2C 20 41 4E 59 20 4F 54 48 45 52 20 |MENU, ANY OTHER |
00000F80: 4B 45 59 20 43 4F 4E 54 49 4E 55 45 53 2E 22 00 |KEY CONTINUES.".|
00000F90: B3 17 EA 0B 99 22 28 50 52 45 53 53 20 41 4E 59 |....."(PRESS ANY|
00000FA0: 20 4B 45 59 29 22 3A 8D 31 31 30 30 30 3A 8D 38 | KEY)":.11000:.8|
00000FB0: 30 31 30 00 B9 17 1C 0C 8E 00 DF 17 E3 0C 8F 20 |010............ |
00000FC0: 50 52 49 4E 54 20 4F 4E 45 20 52 45 43 4F 52 44 |PRINT ONE RECORD|
00000FD0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 |................|
00000FE0: F1 17 E4 0C 8B 53 42 B2 32 A7 9F 34 2C 34 3A 9D |.....SB.2..4,4:.|
00000FF0: 34 00 03 18 EE 0C 91 46 4D 8D 33 37 30 30 2C 33 |4......FM.3700,3|
00001000: 38 30 30 00 19 18 F8 0C 8B 53 42 B2 32 A7 98 34 |800......SB.2..4|
00001010: 3A A0 34 3A 89 33 33 35 30 00 3A 18 0C 0D 8B 53 |:.4:.3350.:....S|
00001020: 42 B3 B1 34 A7 8D 31 31 30 30 30 3A 8B 41 24 B2 |B..4..11000:.A$.|
00001030: C7 28 39 35 29 A7 52 53 B2 31 00 40 18 16 0D 8E |.(95).RS.1.@....|
00001040: 00 66 18 73 0E 8F 50 52 49 4E 54 20 4F 4E 45 20 |.f.s..PRINT ONE |
00001050: 44 45 46 41 55 4C 54 20 56 2E 31 2E 2E 2E 2E 2E |DEFAULT V.1.....|
00001060: 2E 2E 2E 2E 2E 2E 00 7D 18 74 0E 99 3A 99 22 52 |.......}.t..:."R|
00001070: 45 43 4F 52 44 20 22 3B 49 AA 31 3A 99 00 89 18 |ECORD ";I.1:....|
00001080: 7E 0E 81 4A B2 30 A4 4E 48 00 9B 18 88 0E 99 48 |~..J.0.NH......H|
00001090: 24 28 4A 29 2C 54 54 24 28 4A 29 00 A2 18 92 0E |$(J),TT$(J).....|
000010A0: 82 4A 00 A8 18 9C 0E 8E 00 CE 18 D7 0E 8F 20 50 |.J............ P|
000010B0: 52 49 4E 54 20 4F 4E 45 20 46 4F 52 4D 41 54 20 |RINT ONE FORMAT |
000010C0: 56 2E 31 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 E0 |V.1.............|
000010D0: 18 D8 0E 4A B2 31 3A 54 B2 30 3A 42 24 B2 22 22 |...J.1:T.0:B$.""|
000010E0: 00 FD 18 EC 0E 4A 31 B2 C5 28 CA 28 46 24 28 54 |.....J1..(.(F$(T|
000010F0: 29 2C 4A 2C 32 29 29 3A 4A B2 4A AA 32 00 1F 19 |),J,2)):J.J.2...|
00001100: F6 0E 8B 4A 31 B3 35 A7 4E B2 C5 28 CA 28 46 24 |...J1.5.N..(.(F$|
00001110: 28 54 29 2C 4A 2C 33 29 29 3A 4A B2 4A AA 33 00 |(T),J,3)):J.J.3.|
00001120: 45 19 00 0F 91 4A 31 89 33 38 35 30 2C 33 38 36 |E....J1.3850,386|
00001130: 30 2C 33 38 37 30 2C 33 38 39 30 2C 33 39 31 30 |0,3870,3890,3910|
00001140: 2C 33 39 37 30 00 58 19 0A 0F 41 24 B2 48 24 28 |,3970.X...A$.H$(|
00001150: 4E 29 3A 89 33 39 35 30 00 6C 19 14 0F 41 24 B2 |N):.3950.l...A$.|
00001160: 54 54 24 28 4E 29 3A 89 33 39 35 30 00 A2 19 1E |TT$(N):.3950....|
00001170: 0F 42 24 B2 C8 28 42 24 2C 4E AB 31 29 3A 8B C3 |.B$..(B$,N.1):..|
00001180: 28 42 24 29 B3 4E AB 31 A7 81 4A 32 B2 C3 28 42 |(B$).N.1..J2..(B|
00001190: 24 29 A4 4E AB 32 3A 42 24 B2 42 24 AA 22 20 22 |$).N.2:B$.B$." "|
000011A0: 3A 82 00 AC 19 28 0F 89 33 39 36 30 00 C5 19 32 |:....(..3960...2|
000011B0: 0F 99 42 24 3A 8B 4E B1 31 A7 81 4A 32 B2 32 A4 |..B$:.N.1..J2.2.|
000011C0: 4E 3A 99 3A 82 00 D5 19 3C 0F 42 24 B2 22 22 3A |N:.:....<.B$."":|
000011D0: 89 33 39 36 30 00 EF 19 46 0F 8B 4A B1 C3 28 46 |.3960...F..J..(F|
000011E0: 24 28 54 29 29 A7 54 B2 54 AA 31 3A 4A B2 31 00 |$(T)).T.T.1:J.1.|
000011F0: F8 19 50 0F 4A 32 B2 4A 00 1F 1A 5A 0F 8B CA 28 |..P.J2.J...Z...(|
00001200: 46 24 28 54 29 2C 4A 32 2C 32 29 B3 B1 22 1D 21 |F$(T),J2,2)..".!|
00001210: 22 A7 4A 32 B2 4A 32 AA 32 3A 89 33 39 33 30 00 |".J2.J2.2:.3930.|
00001220: 3D 1A 64 0F 41 24 B2 CA 28 46 24 28 54 29 2C 4A |=.d.A$..(F$(T),J|
00001230: 2C 4A 32 AB 4A 29 3A 4A B2 4A 32 AA 32 00 4A 1A |,J2.J):J.J2.2.J.|
00001240: 6E 0F 42 24 B2 42 24 AA 41 24 00 64 1A 78 0F 8B |n.B$.B$.A$.d.x..|
00001250: 4A B1 C3 28 46 24 28 54 29 29 A7 54 B2 54 AA 31 |J..(F$(T)).T.T.1|
00001260: 3A 4A B2 31 00 6E 1A 7D 0F 89 33 38 32 30 00 78 |:J.1.n.}..3820.x|
00001270: 1A 82 0F 99 42 24 3A 8E 00 9E 1A 9F 0F 8F 20 41 |....B$:....... A|
00001280: 44 44 20 53 55 42 52 4F 55 54 49 4E 45 20 56 45 |DD SUBROUTINE VE|
00001290: 52 53 2E 32 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 AF |RS.2............|
000012A0: 1A A0 0F 53 53 B2 30 3A 4E 49 B2 4E 49 AA 31 00 |...SS.0:NI.NI.1.|
000012B0: C7 1A A5 0F 99 3A 99 22 52 45 43 4F 52 44 20 22 |.....:."RECORD "|
000012C0: 3B 4E 49 AA 31 3A 99 00 D3 1A AA 0F 81 4A B2 30 |;NI.1:.......J.0|
000012D0: A4 4E 48 00 DD 1A B4 0F 8D 34 35 30 30 00 E4 1A |.NH......4500...|
000012E0: BE 0F 82 4A 00 FA 1A C8 0F 8B 4C 4B B2 AB 31 A7 |...J......LK..1.|
000012F0: 52 B2 4E 49 3A 89 34 30 38 30 00 03 1B D2 0F 52 |R.NI:.4080.....R|
00001300: B2 4C 4B 00 0D 1B DC 0F 8D 35 37 30 30 00 18 1B |.LK......5700...|
00001310: E6 0F 84 43 4E 2C 4C 4B 00 3A 1B F0 0F 8D 31 38 |...CN,LK.:....18|
00001320: 30 30 3A 50 25 28 4E 49 29 B2 52 3A 49 24 28 4E |00:P%(NI).R:I$(N|
00001330: 49 29 B2 54 54 24 28 43 48 29 00 40 1B FA 0F 8E |I).TT$(CH).@....|
00001340: 00 66 1B 93 11 8F 20 49 4E 50 55 54 20 41 4E 20 |.f.... INPUT AN |
00001350: 49 54 45 4D 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |ITEM............|
00001360: 2E 2E 2E 2E 2E 2E 00 7C 1B 94 11 54 B2 42 25 28 |.......|...T.B%(|
00001370: 4A AA 31 29 AB 42 25 28 4A 29 AB 31 00 96 1B 9E |J.1).B%(J).1....|
00001380: 11 99 48 24 28 4A 29 3B 3A 85 22 20 3A 20 22 3B |..H$(J);:." : ";|
00001390: 54 54 24 28 4A 29 00 BA 1B BC 11 8B C3 28 54 54 |TT$(J).......(TT|
000013A0: 24 28 4A 29 29 B1 54 A7 54 54 24 28 4A 29 B2 C8 |$(J)).T.TT$(J)..|
000013B0: 28 54 54 24 28 4A 29 2C 54 29 00 C0 1B C6 11 8E |(TT$(J),T)......|
000013C0: 00 E6 1B 87 13 8F 20 43 48 41 4E 47 45 20 53 55 |...... CHANGE SU|
000013D0: 42 52 4F 55 54 49 4E 45 20 56 45 52 53 2E 32 2E |BROUTINE VERS.2.|
000013E0: 2E 2E 2E 2E 2E 2E 00 32 1C 88 13 99 3A 99 22 28 |.......2....:."(|
000013F0: 43 29 20 43 48 41 4E 47 45 20 49 54 45 4D 2C 20 |C) CHANGE ITEM, |
00001400: 28 4B 29 20 4B 45 45 50 20 49 54 45 4D 2C 20 4F |(K) KEEP ITEM, O|
00001410: 52 22 3A 99 22 28 52 29 20 4B 45 45 50 20 52 45 |R":."(R) KEEP RE|
00001420: 4D 41 49 4E 44 45 52 20 4F 46 20 52 45 43 4F 52 |MAINDER OF RECOR|
00001430: 44 22 00 47 1C A6 13 99 3A 99 22 52 45 43 4F 52 |D".G....:."RECOR|
00001440: 44 20 22 3B 49 AA 31 00 5D 1C B0 13 43 53 B2 31 |D ";I.1.]...CS.1|
00001450: 3A 52 53 B2 30 3A 81 4A B2 30 A4 4E 48 00 7C 1C |:RS.0:.J.0.NH.|.|
00001460: BA 13 99 3A 99 48 24 28 4A 29 3B 22 20 3A 20 22 |...:.H$(J);" : "|
00001470: 3B 54 54 24 28 4A 29 3B 22 20 22 3B 00 8E 1C BF |;TT$(J);" ";....|
00001480: 13 8B 52 53 B2 31 A7 99 3A 89 35 30 39 30 00 B7 |..RS.1..:.5090..|
00001490: 1C C4 13 8D 31 31 30 30 30 3A 8B 41 24 B3 B1 22 |....11000:.A$.."|
000014A0: 43 22 AF 41 24 B3 B1 22 4B 22 AF 41 24 B3 B1 22 |C".A$.."K".A$.."|
000014B0: 52 22 A7 35 30 36 30 00 CC 1C CE 13 99 41 24 3A |R".5060......A$:|
000014C0: 8B 41 24 B2 22 4B 22 A7 35 30 39 30 00 E3 1C D3 |.A$."K".5090....|
000014D0: 13 8B 41 24 B2 22 52 22 A7 52 53 B2 31 3A 89 35 |..A$."R".RS.1:.5|
000014E0: 30 39 30 00 ED 1C D8 13 8D 34 35 30 30 00 F6 1C |090......4500...|
000014F0: DD 13 43 53 B2 30 00 FD 1C E2 13 82 4A 00 06 1D |..CS.0......J...|
00001500: E7 13 52 53 B2 30 00 40 1D E9 13 99 22 28 4D 29 |..RS.0.@...."(M)|
00001510: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 53 45 41 | TO CONTINUE SEA|
00001520: 52 43 48 22 3A 99 22 28 45 29 20 54 4F 20 45 4E |RCH":."(E) TO EN|
00001530: 44 20 53 45 41 52 43 48 22 3A 8D 31 31 30 30 30 |D SEARCH":.11000|
00001540: 00 5A 1D EA 13 8B 41 24 B3 B1 22 4D 22 AF 41 24 |.Z....A$.."M".A$|
00001550: B3 B1 22 45 22 A7 35 30 39 37 00 6B 1D EB 13 8B |.."E".5097.k....|
00001560: 41 24 B2 22 45 22 A7 52 53 B2 31 00 89 1D EC 13 |A$."E".RS.1.....|
00001570: 8B 43 53 B2 30 A7 8D 31 38 30 30 3A 49 24 28 49 |.CS.0..1800:I$(I|
00001580: 29 B2 54 54 24 28 43 48 29 00 8F 1D F6 13 8E 00 |).TT$(CH).......|
00001590: AD 1D 50 14 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..P.. **********|
000015A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CB 1D |*************...|
000015B0: 51 14 8F 20 2A 20 46 44 44 20 42 4C 4F 43 4B 20 |Q.. * FDD BLOCK |
000015C0: 57 52 49 54 45 20 20 20 20 20 2A 00 E9 1D 52 14 |WRITE *...R.|
000015D0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
000015E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F3 1D 5A 14 8D 35 |*********...Z..5|
000015F0: 33 33 30 00 10 1E 64 14 4B 24 B2 22 50 22 AA C7 |330...d.K$."P"..|
00001600: 28 43 4E 29 AA C7 28 52 31 29 AA C7 28 52 32 29 |(CN)..(R1)..(R2)|
00001610: 00 1D 1E 6E 14 81 46 49 B2 30 A4 4E 48 00 33 1E |...n..FI.0.NH.3.|
00001620: 73 14 98 31 35 2C 4B 24 C7 28 31 AA 42 25 28 46 |s..15,K$.(1.B%(F|
00001630: 49 29 29 00 6F 1E 78 14 98 43 4E 2C 54 54 24 28 |I)).o.x..CN,TT$(|
00001640: 46 49 29 3B C8 28 58 24 2C 42 25 28 46 49 AA 31 |FI);.(X$,B%(FI.1|
00001650: 29 AB 42 25 28 46 49 29 AB C3 28 54 54 24 28 46 |).B%(FI)..(TT$(F|
00001660: 49 29 29 AB 31 29 3B C7 28 31 33 29 3B 3A 82 00 |I)).1);.(13);:..|
00001670: 79 1E 82 14 8D 35 32 37 30 00 7F 1E 8C 14 8E 00 |y....5270.......|
00001680: 9D 1E 96 14 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********|
00001690: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BB 1E |*************...|
000016A0: 9B 14 8F 20 2A 20 20 45 52 52 4F 52 20 43 48 45 |... * ERROR CHE|
000016B0: 43 4B 20 20 20 20 20 20 20 20 2A 00 D9 1E 9E 14 |CK *.....|
000016C0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
000016D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EE 1E A0 14 84 31 |*********......1|
000016E0: 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 FB |5,EN,EM$,ET,ES..|
000016F0: 1E AA 14 8B 45 4E B3 32 30 A7 8E 00 25 1F B4 14 |....EN.20...%...|
00001700: 8B 45 4E B3 B1 35 30 A7 99 22 45 52 52 4F 52 20 |.EN..50.."ERROR |
00001710: 53 54 41 54 55 53 3A 22 3B 45 4E 3B 45 4D 24 3B |STATUS:";EN;EM$;|
00001720: 45 54 3B 45 53 00 3A 1F BE 14 8B 45 4E B3 B1 35 |ET;ES.:....EN..5|
00001730: 30 A7 8D 31 32 30 30 30 3A 80 00 40 1F C8 14 8E |0..12000:..@....|
00001740: 00 62 1F CA 14 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |.b.... *********|
00001750: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001760: 2A 2A 00 84 1F CC 14 8F 20 2A 20 53 45 54 20 48 |**...... * SET H|
00001770: 49 47 48 20 26 20 4C 4F 57 20 52 45 43 4F 52 44 |IGH & LOW RECORD|
00001780: 20 23 20 2A 00 A6 1F CE 14 8F 20 2A 2A 2A 2A 2A | # *...... *****|
00001790: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000017A0: 2A 2A 2A 2A 2A 2A 00 B1 1F D2 14 52 31 B2 52 AA |******.....R1.R.|
000017B0: 31 00 BA 1F DC 14 52 32 B2 30 00 E0 1F E6 14 8B |1.....R2.0......|
000017C0: 52 31 B1 32 35 35 A7 52 32 B2 B5 28 52 31 AD 32 |R1.255.R2..(R1.2|
000017D0: 35 36 29 3A 52 31 B2 52 31 AB 32 35 36 AC 52 32 |56):R1.R1.256.R2|
000017E0: 00 E6 1F 0E 15 8E 00 04 20 18 15 8F 20 2A 2A 2A |........ ... ***|
000017F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001800: 2A 2A 2A 2A 00 22 20 1D 15 8F 20 2A 20 46 44 44 |****." ... * FDD|
00001810: 20 42 4C 4F 43 4B 20 52 45 41 44 20 20 20 20 20 | BLOCK READ |
00001820: 20 2A 00 40 20 20 15 8F 20 2A 2A 2A 2A 2A 2A 2A | *.@ .. *******|
00001830: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001840: 00 4A 20 22 15 8D 35 33 33 30 00 67 20 2C 15 4B |.J "..5330.g ,.K|
00001850: 24 B2 22 50 22 AA C7 28 43 4E 29 AA C7 28 52 31 |$."P"..(CN)..(R1|
00001860: 29 AA C7 28 52 32 29 00 71 20 36 15 8D 35 32 37 |)..(R2).q 6..527|
00001870: 30 00 7E 20 40 15 81 46 49 B2 30 A4 4E 48 00 94 |0.~ @..FI.0.NH..|
00001880: 20 4A 15 98 31 35 2C 4B 24 C7 28 31 AA 42 25 28 | J..15,K$.(1.B%(|
00001890: 46 49 29 29 00 BA 20 54 15 97 37 38 31 2C 43 4E |FI)).. T..781,CN|
000018A0: 3A 9E 38 39 36 3A 54 54 24 28 46 49 29 B2 C8 28 |:.896:TT$(FI)..(|
000018B0: 56 24 2C C2 28 31 34 32 29 29 00 C0 20 68 15 82 |V$,.(142)).. h..|
000018C0: 00 C6 20 72 15 8E 00 E4 20 7C 15 8F 20 2A 2A 2A |.. r.... |.. ***|
000018D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000018E0: 2A 2A 2A 2A 00 02 21 86 15 8F 20 2A 20 20 45 52 |****..!... * ER|
000018F0: 52 4F 52 20 43 48 45 43 4B 20 20 20 20 20 20 20 |ROR CHECK |
00001900: 20 2A 00 20 21 90 15 8F 20 2A 2A 2A 2A 2A 2A 2A | *. !... *******|
00001910: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001920: 00 35 21 9A 15 84 31 35 2C 45 4E 2C 45 4D 24 2C |.5!...15,EN,EM$,|
00001930: 45 54 2C 45 53 00 41 21 A4 15 8B 45 4E B2 30 A7 |ET,ES.A!...EN.0.|
00001940: 8E 00 63 21 AE 15 99 22 45 52 52 4F 52 20 53 54 |..c!..."ERROR ST|
00001950: 41 54 55 53 3A 22 3B 45 4E 3B 45 4D 24 3B 45 54 |ATUS:";EN;EM$;ET|
00001960: 3B 45 53 00 70 21 B8 15 8D 31 32 30 30 30 3A 80 |;ES.p!...12000:.|
00001970: 00 91 21 E0 15 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |..!... *********|
00001980: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001990: 2A 00 B2 21 E5 15 8F 20 2A 20 46 44 44 20 42 4C |*..!... * FDD BL|
000019A0: 4F 43 4B 20 52 45 41 44 20 31 20 46 49 45 4C 44 |OCK READ 1 FIELD|
000019B0: 20 2A 00 D3 21 E8 15 8F 20 2A 2A 2A 2A 2A 2A 2A | *..!... *******|
000019C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000019D0: 2A 2A 2A 00 DD 21 EA 15 8D 35 33 33 30 00 03 22 |***..!...5330.."|
000019E0: F4 15 98 31 35 2C 22 50 22 C7 28 43 4E 29 C7 28 |...15,"P".(CN).(|
000019F0: 52 31 29 C7 28 52 32 29 C7 28 31 AA 42 25 28 43 |R1).(R2).(1.B%(C|
00001A00: 48 29 29 00 0D 22 08 16 8D 35 32 37 30 00 13 22 |H)).."...5270.."|
00001A10: 3A 16 8E 00 36 22 44 16 8F 20 2A 2A 2A 2A 2A 2A |:...6"D.. ******|
00001A20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001A30: 2A 2A 2A 2A 2A 2A 00 59 22 49 16 8F 20 2A 20 46 |******.Y"I.. * F|
00001A40: 44 44 20 42 4C 4F 43 4B 20 52 45 41 44 20 31 53 |DD BLOCK READ 1S|
00001A50: 54 20 46 49 45 4C 44 20 2A 00 7C 22 4C 16 8F 20 |T FIELD *.|"L.. |
00001A60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001A70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 86 22 4E |************.."N|
00001A80: 16 8D 35 33 33 30 00 A5 22 58 16 98 31 35 2C 22 |..5330.."X..15,"|
00001A90: 50 22 C7 28 43 4E 29 C7 28 52 31 29 C7 28 52 32 |P".(CN).(R1).(R2|
00001AA0: 29 C7 28 31 29 00 AF 22 6C 16 8D 35 32 37 30 00 |).(1).."l..5270.|
00001AB0: B5 22 9E 16 8E 00 D9 22 A8 16 8F 20 2A 2A 2A 2A |."....."... ****|
00001AC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001AD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 FD 22 A9 16 8F 20 |*********.."... |
00001AE0: 2A 20 46 44 44 20 42 4C 4F 43 4B 20 57 52 49 54 |* FDD BLOCK WRIT|
00001AF0: 45 20 31 53 54 20 46 49 45 4C 44 20 2A 00 21 23 |E 1ST FIELD *.!#|
00001B00: AA 16 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00001B10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001B20: 2A 00 2B 23 B2 16 8D 35 33 33 30 00 4A 23 BC 16 |*.+#...5330.J#..|
00001B30: 98 31 35 2C 22 50 22 C7 28 43 4E 29 C7 28 52 31 |.15,"P".(CN).(R1|
00001B40: 29 C7 28 52 32 29 C7 28 31 29 00 5F 23 C6 16 98 |).(R2).(1)._#...|
00001B50: 43 4E 2C C4 28 4C 4B 29 3B C7 28 31 33 29 3B 00 |CN,.(LK);.(13);.|
00001B60: 69 23 DA 16 8D 35 32 37 30 00 6F 23 E4 16 8E 00 |i#...5270.o#....|
00001B70: 95 23 6F 17 8F 20 44 45 4C 45 54 45 20 53 55 42 |.#o.. DELETE SUB|
00001B80: 52 4F 55 54 49 4E 45 20 56 45 52 53 2E 32 2E 2E |ROUTINE VERS.2..|
00001B90: 2E 2E 2E 2E 2E 00 B4 23 70 17 99 3A 99 22 44 45 |.......#p..:."DE|
00001BA0: 4C 45 54 45 20 54 48 49 53 20 52 45 43 4F 52 44 |LETE THIS RECORD|
00001BB0: 3F 20 22 3B 00 D5 23 B6 17 8D 31 31 30 30 30 3A |? ";..#...11000:|
00001BC0: 8B 41 24 B3 B1 22 59 22 AF 41 24 B3 B1 22 4E 22 |.A$.."Y".A$.."N"|
00001BD0: A7 36 30 37 30 00 EA 23 C0 17 99 41 24 3A 8B 41 |.6070..#...A$:.A|
00001BE0: 24 B2 22 4E 22 A7 36 31 35 30 00 F6 23 CA 17 52 |$."N".6150..#..R|
00001BF0: B2 50 25 28 49 29 00 00 24 D4 17 8D 35 38 30 30 |.P%(I)..$...5800|
00001C00: 00 0D 24 DE 17 4C 4B B2 50 25 28 49 29 00 1C 24 |..$..LK.P%(I)..$|
00001C10: E8 17 81 49 31 B2 49 AA 31 A4 4E 49 00 40 24 F2 |...I1.I.1.NI.@$.|
00001C20: 17 49 24 28 49 31 AB 31 29 B2 49 24 28 49 31 29 |.I$(I1.1).I$(I1)|
00001C30: 3A 50 25 28 49 31 AB 31 29 B2 50 25 28 49 31 29 |:P%(I1.1).P%(I1)|
00001C40: 00 48 24 F7 17 82 49 31 00 5F 24 FC 17 4E 49 B2 |.H$...I1._$..NI.|
00001C50: 4E 49 AB 31 3A 53 53 B2 30 3A 49 B2 49 AB 31 00 |NI.1:SS.0:I.I.1.|
00001C60: 65 24 06 18 8E 00 8B 24 57 1B 8F 53 4F 52 54 20 |e$.....$W..SORT |
00001C70: 53 55 42 52 4F 55 54 49 4E 45 20 56 2E 31 2E 2E |SUBROUTINE V.1..|
00001C80: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 9E 24 58 1B |.............$X.|
00001C90: 8B 4E 49 B2 AB 31 A7 8D 39 30 30 30 3A 8E 00 AC |.NI..1..9000:...|
00001CA0: 24 62 1B 99 3A 81 4A B2 30 A4 4E 48 00 C4 24 6C |$b..:.J.0.NH..$l|
00001CB0: 1B 99 22 28 22 3B 4A AA 31 3B 22 29 20 22 3B 48 |.."(";J.1;") ";H|
00001CC0: 24 28 4A 29 00 CB 24 76 1B 82 4A 00 EB 24 80 1B |$(J)..$v..J..$..|
00001CD0: 85 22 53 4F 52 54 20 4F 4E 20 57 48 49 43 48 20 |."SORT ON WHICH |
00001CE0: 48 45 41 44 49 4E 47 22 3B 4A 31 00 F7 24 85 1B |HEADING";J1..$..|
00001CF0: 4A 31 B2 4A 31 AB 31 00 09 25 8A 1B 8B 4A 31 B3 |J1.J1.1..%...J1.|
00001D00: 30 B0 4A 31 B1 4E 48 A7 8E 00 21 25 8F 1B 8B 4A |0.J1.NH...!%...J|
00001D10: 31 B3 B1 43 48 A7 43 48 B2 4A 31 3A 8D 31 33 30 |1..CH.CH.J1:.130|
00001D20: 30 00 52 25 94 1B 99 22 5B 28 41 29 20 41 53 43 |0.R%..."[(A) ASC|
00001D30: 45 4E 44 49 4E 47 2C 20 4F 52 20 28 44 29 20 44 |ENDING, OR (D) D|
00001D40: 45 53 43 45 4E 44 49 4E 47 3F 22 3A 8D 31 31 30 |ESCENDING?":.110|
00001D50: 30 30 00 68 25 9E 1B 8B 41 24 B2 22 41 22 A7 41 |00.h%...A$."A".A|
00001D60: B2 31 3A 89 37 31 30 30 00 7E 25 A8 1B 8B 41 24 |.1:.7100.~%...A$|
00001D70: B2 22 44 22 A7 41 B2 32 3A 89 37 31 30 30 00 88 |."D".A.2:.7100..|
00001D80: 25 B2 1B 89 37 30 36 30 00 96 25 BC 1B 81 49 B2 |%...7060..%...I.|
00001D90: 30 A4 4E 49 AB 31 00 9E 25 C6 1B 54 B2 49 00 AD |0.NI.1..%..T.I..|
00001DA0: 25 D0 1B 81 49 31 B2 54 AA 31 A4 4E 49 00 BC 25 |%...I1.T.1.NI..%|
00001DB0: D2 1B 99 49 3B 22 20 20 22 3B 49 31 00 CD 25 D5 |...I;" ";I1..%.|
00001DC0: 1B 91 41 89 37 31 33 30 2C 37 31 34 30 00 E4 25 |..A.7130,7140..%|
00001DD0: DA 1B 8B 49 24 28 49 31 29 B3 49 24 28 54 29 A7 |...I$(I1).I$(T).|
00001DE0: 54 B2 49 31 00 EE 25 DF 1B 89 37 31 34 35 00 05 |T.I1..%...7145..|
00001DF0: 26 E4 1B 8B 49 24 28 49 31 29 B1 49 24 28 54 29 |&...I$(I1).I$(T)|
00001E00: A7 54 B2 49 31 00 0D 26 E9 1B 82 49 31 00 1B 26 |.T.I1..&...I1..&|
00001E10: EE 1B 8B 54 B2 49 A7 37 31 38 30 00 3D 26 F8 1B |...T.I.7180.=&..|
00001E20: 54 24 B2 49 24 28 54 29 3A 49 24 28 54 29 B2 49 |T$.I$(T):I$(T).I|
00001E30: 24 28 49 29 3A 49 24 28 49 29 B2 54 24 00 5F 26 |$(I):I$(I).T$._&|
00001E40: 02 1C 4A 31 B2 50 25 28 54 29 3A 50 25 28 54 29 |..J1.P%(T):P%(T)|
00001E50: B2 50 25 28 49 29 3A 50 25 28 49 29 B2 4A 31 00 |.P%(I):P%(I).J1.|
00001E60: 66 26 0C 1C 82 49 00 71 26 20 1C 53 53 B2 30 3A |f&...I.q& .SS.0:|
00001E70: 8E 00 97 26 3F 1F 8F 20 53 45 41 52 43 48 20 53 |...&?.. SEARCH S|
00001E80: 55 42 52 4F 55 54 49 4E 45 20 56 45 52 53 2E 32 |UBROUTINE VERS.2|
00001E90: 2E 2E 2E 2E 2E 2E 2E 00 AA 26 40 1F 8B 4E 31 B2 |.........&@..N1.|
00001EA0: AB 31 A7 8D 39 30 30 30 3A 8E 00 CC 26 4A 1F 49 |.1..9000:...&J.I|
00001EB0: 31 B2 30 3A 49 32 B2 4E 49 3A 4A B2 30 3A 43 31 |1.0:I2.NI:J.0:C1|
00001EC0: 25 28 30 29 B2 AB 31 3A 42 53 B2 31 00 EB 26 4F |%(0)..1:BS.1..&O|
00001ED0: 1F 99 22 93 22 3A 99 22 53 45 41 52 43 48 20 43 |..".":."SEARCH C|
00001EE0: 52 49 54 45 52 49 41 3A 22 3A 99 00 05 27 54 1F |RITERIA:":...'T.|
00001EF0: 99 22 20 30 20 29 20 52 45 43 4F 52 44 20 4E 55 |." 0 ) RECORD NU|
00001F00: 4D 42 45 52 22 00 24 27 5E 1F 81 49 B2 30 A4 4E |MBER".$'^..I.0.N|
00001F10: 48 3A 99 49 AA 31 3B 22 29 20 22 3B 48 24 28 49 |H:.I.1;") ";H$(I|
00001F20: 29 3A 82 49 00 3A 27 63 1F 99 3A 99 4E 48 AA 32 |):.I.:'c..:.NH.2|
00001F30: 3B 22 29 20 42 45 47 49 4E 22 00 6A 27 68 1F 8D |;") BEGIN".j'h..|
00001F40: 31 31 32 30 30 3A 99 22 11 22 3A 85 22 53 45 4C |11200:.".":."SEL|
00001F50: 45 43 54 20 3A 20 22 3B 49 3A 8B 49 B3 30 B0 49 |ECT : ";I:.I.0.I|
00001F60: B1 4E 48 AA 32 A7 38 30 34 30 00 86 27 6D 1F 8B |.NH.2.8040..'m..|
00001F70: 49 B2 4E 48 AA 32 A7 43 31 25 28 4A 29 B2 AB 31 |I.NH.2.C1%(J)..1|
00001F80: 3A 89 38 31 35 30 00 95 27 72 1F 43 31 25 28 4A |:.8150..'r.C1%(J|
00001F90: 29 B2 49 AB 31 00 D3 27 7C 1F 8D 31 31 32 30 30 |).I.1..'|..11200|
00001FA0: 3A 99 22 11 11 22 3A 99 22 28 31 29 20 53 4D 41 |:."..":."(1) SMA|
00001FB0: 4C 4C 45 52 20 28 32 29 20 45 51 55 41 4C 20 28 |LLER (2) EQUAL (|
00001FC0: 33 29 20 4C 41 52 47 45 52 20 20 22 3A 8D 31 31 |3) LARGER ":.11|
00001FD0: 30 30 30 00 EB 27 81 1F 8B 41 24 B3 22 31 22 B0 |000..'...A$."1".|
00001FE0: 41 24 B1 22 33 22 A7 38 30 36 30 00 FC 27 86 1F |A$."3".8060..'..|
00001FF0: 43 32 25 28 4A 29 B2 C5 28 41 24 29 00 43 28 90 |C2%(J)..(A$).C(.|
00002000: 1F 8D 31 31 32 30 30 3A 99 22 12 CD 4F 53 54 20 |..11200:."..OST |
00002010: 53 45 41 52 43 48 45 53 20 52 45 51 55 49 52 45 |SEARCHES REQUIRE|
00002020: 20 41 20 27 57 49 4C 44 20 43 41 52 44 27 20 2A | A 'WILD CARD' *|
00002030: 20 41 46 54 45 52 20 54 48 45 20 53 54 52 49 4E | AFTER THE STRIN|
00002040: 47 2E 22 00 71 28 95 1F 99 22 11 11 11 22 3A 99 |G.".q(..."...":.|
00002050: 22 43 4F 4D 50 41 52 45 44 20 54 4F 20 3A 20 22 |"COMPARED TO : "|
00002060: 3B 3A 8B 43 31 25 28 4A 29 B2 AB 31 A7 38 31 30 |;:.C1%(J)..1.810|
00002070: 30 00 90 28 9A 1F 85 22 20 22 3B 43 24 28 4A 29 |0..(..." ";C$(J)|
00002080: 3A 8B 43 32 25 28 4A 29 B3 B1 32 89 38 30 39 34 |:.C2%(J)..2.8094|
00002090: 00 CA 28 9B 1F 99 22 53 45 41 52 43 48 20 42 59 |..(..."SEARCH BY|
000020A0: 20 45 29 20 45 4E 54 52 59 20 28 46 41 53 54 29 | E) ENTRY (FAST)|
000020B0: 22 3A 99 A3 31 31 29 3B 22 53 29 20 53 54 52 49 |":..11);"S) STRI|
000020C0: 4E 47 20 28 53 4C 4F 57 29 22 00 E6 28 9C 1F A1 |NG (SLOW)"..(...|
000020D0: 43 33 24 28 4A 29 3A 8B 43 33 24 28 4A 29 B2 22 |C3$(J):.C3$(J)."|
000020E0: 22 A7 38 30 39 32 00 08 29 9D 1F 8B 43 33 24 28 |".8092..)...C3$(|
000020F0: 4A 29 B3 B1 22 45 22 AF 43 33 24 28 4A 29 B3 B1 |J).."E".C3$(J)..|
00002100: 22 53 22 A7 38 30 39 31 00 1C 29 9E 1F 4A B2 4A |"S".8091..)..J.J|
00002110: AA 31 3A 8B 4A B1 37 A7 38 31 36 30 00 26 29 9F |.1:.J.7.8160.&).|
00002120: 1F 89 38 30 31 35 00 42 29 A4 1F 85 22 20 22 3B |..8015.B)..." ";|
00002130: 49 3A 8B 49 B3 31 B0 49 B1 4E 49 AA 31 A7 38 31 |I:.I.1.I.NI.1.81|
00002140: 30 30 00 4C 29 A9 1F 49 B2 49 AB 31 00 5F 29 AE |00.L)..I.I.1._).|
00002150: 1F 8B 43 32 25 28 4A 29 B2 31 A7 49 32 B2 49 00 |..C2%(J).1.I2.I.|
00002160: 77 29 B8 1F 8B 43 32 25 28 4A 29 B2 32 A7 49 31 |w)...C2%(J).2.I1|
00002170: B2 49 3A 49 32 B2 49 00 8A 29 C2 1F 8B 43 32 25 |.I:I2.I..)...C2%|
00002180: 28 4A 29 B2 33 A7 49 31 B2 49 00 94 29 CC 1F 89 |(J).3.I1.I..)...|
00002190: 38 30 31 35 00 A2 29 D6 1F 8B 4A B3 32 A7 38 32 |8015..)...J.2.82|
000021A0: 30 30 00 D7 29 E0 1F 8D 31 31 32 30 30 3A 99 22 |00..)...11200:."|
000021B0: 11 11 22 3A 99 22 31 29 20 49 54 45 4D 20 4D 55 |..":."1) ITEM MU|
000021C0: 53 54 20 4D 45 45 54 20 41 4C 4C 20 43 4F 4E 44 |ST MEET ALL COND|
000021D0: 49 54 49 4F 4E 53 22 00 15 2A E5 1F 99 22 32 29 |ITIONS"..*..."2)|
000021E0: 20 49 54 45 4D 20 4D 41 59 20 4D 45 45 54 20 41 | ITEM MAY MEET A|
000021F0: 4E 59 20 43 4F 4E 44 49 54 49 4F 4E 22 3A A1 41 |NY CONDITION":.A|
00002200: 24 3A 8B 41 24 B3 22 31 22 B0 41 24 B1 22 32 22 |$:.A$."1".A$."2"|
00002210: A7 38 31 36 30 00 22 2A EA 1F 42 53 B2 C5 28 41 |.8160."*..BS..(A|
00002220: 24 29 00 35 2A 08 20 52 53 B2 30 3A 4A 31 B2 43 |$).5*. RS.0:J1.C|
00002230: 31 25 28 30 29 00 45 2A 12 20 44 53 B2 30 3A 81 |1%(0).E*. DS.0:.|
00002240: 4A B2 30 A4 37 00 5E 2A 1C 20 8B 43 31 25 28 4A |J.0.7.^*. .C1%(J|
00002250: 29 B2 AB 31 A7 4A B2 37 3A 89 38 32 34 30 00 74 |)..1.J.7:.8240.t|
00002260: 2A 26 20 8B 4A 31 B3 B1 43 31 25 28 4A 29 A7 4A |*& .J1..C1%(J).J|
00002270: 31 B2 AB 32 00 7A 2A 30 20 82 00 98 2A 35 20 8B |1..2.z*0 ...*5 .|
00002280: 4A 31 B1 AB 31 AF 4A 31 B3 B1 43 48 A7 43 48 B2 |J1..1.J1..CH.CH.|
00002290: 4A 31 3A 8D 31 33 30 30 00 A8 2A 36 20 8B 4A 31 |J1:.1300..*6 .J1|
000022A0: B2 AB 32 A7 44 53 B2 31 00 C3 2A 3A 20 49 B2 49 |..2.DS.1..*: I.I|
000022B0: 31 AB 31 3A 81 49 33 B2 49 31 A4 49 32 3A 49 B2 |1.1:.I3.I1.I2:I.|
000022C0: 49 AA 31 00 E1 2A 3B 20 8B 44 53 B2 30 A7 54 54 |I.1..*; .DS.0.TT|
000022D0: 24 28 43 48 29 B2 49 24 28 49 29 3A 89 38 32 35 |$(CH).I$(I):.825|
000022E0: 35 00 EB 2A 3C 20 8D 31 37 30 30 00 FB 2A 3F 20 |5..*< .1700..*? |
000022F0: 41 53 B2 30 3A 81 4A B2 30 A4 37 00 14 2B 44 20 |AS.0:.J.0.7..+D |
00002300: 8B 43 31 25 28 4A 29 B2 AB 31 A7 4A B2 37 3A 89 |.C1%(J)..1.J.7:.|
00002310: 38 33 34 35 00 2F 2B 4E 20 91 43 32 25 28 4A 29 |8345./+N .C2%(J)|
00002320: 89 38 32 38 30 2C 38 32 39 30 2C 38 33 31 30 00 |.8280,8290,8310.|
00002330: 4C 2B 58 20 8B 54 54 24 28 43 31 25 28 4A 29 29 |L+X .TT$(C1%(J))|
00002340: B3 B2 43 24 28 4A 29 A7 38 33 33 30 00 56 2B 5D |..C$(J).8330.V+]|
00002350: 20 89 38 33 34 30 00 72 2B 62 20 8B 54 54 24 28 | .8340.r+b .TT$(|
00002360: 43 31 25 28 4A 29 29 B2 43 24 28 4A 29 A7 38 33 |C1%(J)).C$(J).83|
00002370: 33 30 00 87 2B 64 20 8B 43 33 24 28 4A 29 B2 22 |30..+d .C3$(J)."|
00002380: 53 22 A7 38 33 30 36 00 A1 2B 67 20 8B C9 28 43 |S".8306..+g ..(C|
00002390: 24 28 4A 29 2C 31 29 B3 B1 22 2A 22 A7 38 33 34 |$(J),1).."*".834|
000023A0: 30 00 C9 2B 6A 20 54 B2 C3 28 43 24 28 4A 29 29 |0..+j T..(C$(J))|
000023B0: AB 31 3A 8B C3 28 54 54 24 28 43 31 25 28 4A 29 |.1:..(TT$(C1%(J)|
000023C0: 29 29 B3 54 A7 38 33 34 30 00 EF 2B 6E 20 8B C8 |)).T.8340..+n ..|
000023D0: 28 54 54 24 28 43 31 25 28 4A 29 29 2C 54 29 B2 |(TT$(C1%(J)),T).|
000023E0: C8 28 43 24 28 4A 29 2C 54 29 A7 38 33 33 30 00 |.(C$(J),T).8330.|
000023F0: F9 2B 71 20 89 38 33 34 30 00 1B 2C 72 20 4C 31 |.+q .8340..,r L1|
00002400: B2 C3 28 54 54 24 28 43 31 25 28 4A 29 29 29 3A |..(TT$(C1%(J))):|
00002410: 4C 32 B2 C3 28 43 24 28 4A 29 29 00 53 2C 73 20 |L2..(C$(J)).S,s |
00002420: 81 4A 35 B2 31 A4 28 4C 31 AB 4C 32 AA 31 29 3A |.J5.1.(L1.L2.1):|
00002430: 8B CA 28 54 54 24 28 43 31 25 28 4A 29 29 2C 4A |..(TT$(C1%(J)),J|
00002440: 35 2C 4C 32 29 B2 43 24 28 4A 29 54 48 45 4D 38 |5,L2).C$(J)THEM8|
00002450: 33 33 30 00 59 2C 74 20 82 00 63 2C 75 20 89 38 |330.Y,t ..c,u .8|
00002460: 33 34 30 00 80 2C 76 20 8B 54 54 24 28 43 31 25 |340..,v .TT$(C1%|
00002470: 28 4A 29 29 B1 B2 43 24 28 4A 29 A7 38 33 33 30 |(J))..C$(J).8330|
00002480: 00 8A 2C 80 20 89 38 33 34 30 00 9D 2C 8A 20 8B |..,. .8340..,. .|
00002490: 42 53 B2 32 A7 41 53 B2 31 3A 4A B2 37 00 A7 2C |BS.2.AS.1:J.7..,|
000024A0: 8F 20 89 38 33 34 35 00 BA 2C 94 20 8B 42 53 B2 |. .8345..,. .BS.|
000024B0: 31 A7 41 53 B2 32 3A 4A B2 37 00 C1 2C 99 20 82 |1.AS.2:J.7..,. .|
000024C0: 4A 00 D5 2C 9E 20 8B 41 53 B2 30 AF 42 53 B2 31 |J..,. .AS.0.BS.1|
000024D0: A7 38 33 35 35 00 E5 2C A0 20 8B 41 53 B3 B1 31 |.8355..,. .AS..1|
000024E0: A7 38 33 38 30 00 F5 2C A3 20 8B 44 53 B2 30 A7 |.8380..,. .DS.0.|
000024F0: 8D 31 37 30 30 00 06 2D A8 20 8B 53 42 B3 B1 33 |.1700..-. .SB..3|
00002500: A7 8D 33 33 30 30 00 16 2D AD 20 8B 53 42 B2 33 |..3300..-. .SB.3|
00002510: A7 8D 35 30 30 30 00 26 2D B2 20 8B 53 42 B2 34 |..5000.&-. .SB.4|
00002520: A7 8D 36 30 30 30 00 36 2D B7 20 8B 52 53 B2 31 |..6000.6-. .RS.1|
00002530: A7 49 33 B2 49 32 00 3E 2D BC 20 82 49 33 00 5B |.I3.I2.>-. .I3.[|
00002540: 2D C6 20 99 3A 99 22 54 48 41 54 27 53 20 41 4C |-. .:."THAT'S AL|
00002550: 4C 22 3A 8D 31 31 30 30 30 3A 99 00 61 2D D0 20 |L":.11000:..a-. |
00002560: 8E 00 87 2D 27 23 8F 20 45 52 52 4F 52 20 53 55 |...-'#. ERROR SU|
00002570: 42 52 4F 55 54 49 4E 45 20 23 31 2E 2E 2E 2E 2E |BROUTINE #1.....|
00002580: 2E 2E 2E 2E 2E 2E 2E 00 A9 2D 28 23 99 22 54 48 |.........-(#."TH|
00002590: 45 52 45 27 53 20 4E 4F 20 44 41 54 41 20 49 4E |ERE'S NO DATA IN|
000025A0: 20 4D 45 4D 4F 52 59 2E 22 00 B9 2D 32 23 81 49 | MEMORY."..-2#.I|
000025B0: B2 31 A4 31 30 30 30 3A 8E 00 DF 2D 0F 27 8F 20 |.1.1000:...-.'. |
000025C0: 50 52 49 4E 54 20 46 4F 52 4D 41 54 54 49 4E 47 |PRINT FORMATTING|
000025D0: 20 56 45 52 53 2E 31 2E 2E 2E 2E 2E 2E 2E 2E 00 | VERS.1.........|
000025E0: F3 2D 10 27 8B 46 24 28 30 29 B2 22 22 A7 31 30 |.-.'.F$(0)."".10|
000025F0: 30 34 30 00 11 2E 1A 27 99 22 53 41 4D 45 20 46 |040....'."SAME F|
00002600: 4F 52 4D 41 54 3F 22 3B 3A 8D 31 31 30 30 30 3A |ORMAT?";:.11000:|
00002610: 99 00 1F 2E 24 27 8B 41 24 B2 22 59 22 A7 8E 00 |....$'.A$."Y"...|
00002620: 32 2E 2E 27 8B 41 24 B3 B1 22 4E 22 A7 31 30 30 |2..'.A$.."N".100|
00002630: 31 30 00 69 2E 38 27 99 22 28 4C 29 20 4C 4F 41 |10.i.8'."(L) LOA|
00002640: 44 20 46 4F 52 4D 41 54 2C 20 4F 52 20 28 43 29 |D FORMAT, OR (C)|
00002650: 20 43 52 45 41 54 45 20 46 4F 52 4D 41 54 22 3B | CREATE FORMAT";|
00002660: 3A 8D 31 31 30 30 30 3A 99 00 7B 2E 42 27 8B 41 |:.11000:..{.B'.A|
00002670: 24 B2 22 43 22 A7 31 30 32 30 30 00 8E 2E 4C 27 |$."C".10200...L'|
00002680: 8B 41 24 B3 B1 22 4C 22 A7 31 30 30 34 30 00 94 |.A$.."L".10040..|
00002690: 2E 6A 27 8F 00 AB 2E 74 27 85 22 46 4F 52 4D 41 |.j'....t'."FORMA|
000026A0: 54 20 4E 41 4D 45 3A 22 3B 41 24 00 B5 2E 7E 27 |T NAME:";A$...~'|
000026B0: 8D 35 35 30 30 00 D3 2E 88 27 9F 36 2C 38 2C 36 |.5500....'.6,8,6|
000026C0: 2C 22 30 3A 22 AA 41 24 AA 22 2E 46 4D 54 2C 53 |,"0:".A$.".FMT,S|
000026D0: 2C 52 22 00 DD 2E 92 27 8D 35 35 30 30 00 E7 2E |,R"....'.5500...|
000026E0: 9C 27 84 36 2C 4E 46 00 0A 2F A6 27 81 4A B2 30 |.'.6,NF../.'.J.0|
000026F0: A4 4E 46 3A 97 37 38 31 2C 36 3A 9E 38 39 36 3A |.NF:.781,6:.896:|
00002700: 46 24 28 4A 29 B2 56 24 3A 82 00 11 2F AB 27 A0 |F$(J).V$:.../.'.|
00002710: 36 00 17 2F B0 27 8E 00 3B 2F BA 27 99 22 46 4F |6../.'..;/.'."FO|
00002720: 52 4D 41 54 20 4E 4F 54 20 46 4F 55 4E 44 22 3A |RMAT NOT FOUND":|
00002730: 8D 31 31 30 30 30 3A 89 32 30 30 00 51 2F D8 27 |.11000:.200.Q/.'|
00002740: 4E 46 B2 30 3A 4A B2 30 3A 46 24 28 30 29 B2 22 |NF.0:J.0:F$(0)."|
00002750: 22 00 97 2F E2 27 99 22 93 22 3A 99 22 53 54 41 |"../.'.".":."STA|
00002760: 52 54 20 49 4E 20 54 48 45 20 55 50 50 45 52 20 |RT IN THE UPPER |
00002770: 4C 45 46 54 20 43 4F 52 4E 45 52 20 41 4E 44 20 |LEFT CORNER AND |
00002780: 57 4F 52 4B 20 41 43 52 4F 53 53 20 45 41 43 48 |WORK ACROSS EACH|
00002790: 20 4C 49 4E 45 2E 22 00 D9 2F EC 27 99 22 31 3A | LINE."../.'."1:|
000027A0: 48 45 41 44 49 4E 47 2C 20 32 3A 49 54 45 4D 2C |HEADING, 2:ITEM,|
000027B0: 20 33 3A 54 41 42 2C 20 34 3A 4E 45 58 54 20 4C | 3:TAB, 4:NEXT L|
000027C0: 49 4E 45 2C 20 35 3A 53 54 52 49 4E 47 2C 20 36 |INE, 5:STRING, 6|
000027D0: 3A 45 4E 44 22 3A 85 4A 31 00 EE 2F F6 27 8B 4A |:END":.J1../.'.J|
000027E0: 31 B3 31 B0 4A 31 B1 36 A7 31 30 32 32 30 00 0C |1.1.J1.6.10220..|
000027F0: 30 00 28 46 24 28 4E 46 29 B2 46 24 28 4E 46 29 |0.(F$(NF).F$(NF)|
00002800: AA C4 28 4A 31 29 3A 4A B2 4A AA 32 00 38 30 0A |..(J1):J.J.2.80.|
00002810: 28 91 4A 31 89 31 30 32 36 30 2C 31 30 32 36 30 |(.J1.10260,10260|
00002820: 2C 31 30 33 30 30 2C 31 30 33 30 30 2C 31 30 33 |,10300,10300,103|
00002830: 35 30 2C 31 30 34 30 30 00 56 30 14 28 81 54 B2 |50,10400.V0.(.T.|
00002840: 30 A4 4E 48 3A 99 54 AA 31 3B 22 29 20 22 3B 48 |0.NH:.T.1;") ";H|
00002850: 24 28 54 29 3A 82 00 7B 30 1E 28 85 22 57 48 49 |$(T):..{0.(."WHI|
00002860: 43 48 22 3B 54 3A 54 B2 54 AB 31 3A 8B 54 B3 30 |CH";T:T.T.1:.T.0|
00002870: B0 54 B1 4E 48 A7 31 30 32 37 30 00 86 30 28 28 |.T.NH.10270..0((|
00002880: 89 31 30 33 31 30 00 BA 30 3C 28 85 22 48 4F 57 |.10310..0<(."HOW|
00002890: 20 4D 41 4E 59 22 3B 54 3A 8B 54 B3 31 B0 54 B1 | MANY";T:.T.1.T.|
000028A0: 39 39 A7 99 22 4F 55 54 20 4F 46 20 52 41 4E 47 |99.."OUT OF RANG|
000028B0: 45 2E 22 3A 89 31 30 33 30 30 00 D6 30 46 28 41 |E.":.10300..0F(A|
000028C0: 24 B2 C4 28 54 29 3A 8B 54 B3 31 30 A7 41 24 B2 |$..(T):.T.10.A$.|
000028D0: 22 20 22 AA 41 24 00 F1 30 50 28 46 24 28 4E 46 |" ".A$..0P(F$(NF|
000028E0: 29 B2 46 24 28 4E 46 29 AA 41 24 3A 4A B2 4A AA |).F$(NF).A$:J.J.|
000028F0: 33 00 FC 30 5A 28 89 31 30 33 38 30 00 18 31 6E |3..0Z(.10380..1n|
00002900: 28 85 22 53 54 52 49 4E 47 3A 22 3B 41 24 3A 41 |(."STRING:";A$:A|
00002910: 24 B2 41 24 AA 22 21 22 00 3F 31 78 28 8B C3 28 |$.A$."!".?1x(..(|
00002920: 41 24 29 AA 4A B1 32 35 35 A7 4E 46 B2 4E 46 AA |A$).J.255.NF.NF.|
00002930: 31 3A 4A B2 30 3A 46 24 28 4E 46 29 B2 22 22 00 |1:J.0:F$(NF)."".|
00002940: 5E 31 82 28 46 24 28 4E 46 29 B2 46 24 28 4E 46 |^1.(F$(NF).F$(NF|
00002950: 29 AA 41 24 3A 4A B2 4A AA C3 28 41 24 29 00 7F |).A$:J.J..(A$)..|
00002960: 31 8C 28 8B 4A B1 32 35 32 A7 4E 46 B2 4E 46 AA |1.(.J.252.NF.NF.|
00002970: 31 3A 4A B2 30 3A 46 24 28 4E 46 29 B2 22 22 00 |1:J.0:F$(NF)."".|
00002980: 8A 31 96 28 89 31 30 32 32 30 00 A1 31 A0 28 85 |.1.(.10220..1.(.|
00002990: 22 46 4F 52 4D 41 54 20 4E 41 4D 45 3A 22 3B 41 |"FORMAT NAME:";A|
000029A0: 24 00 AB 31 A5 28 8D 35 35 30 30 00 CA 31 AA 28 |$..1.(.5500..1.(|
000029B0: 9F 36 2C 38 2C 36 2C 22 40 30 3A 22 AA 41 24 AA |.6,8,6,"@0:".A$.|
000029C0: 22 2E 46 4D 54 2C 53 2C 57 22 00 D4 31 B4 28 8D |".FMT,S,W"..1.(.|
000029D0: 35 35 30 30 00 00 32 BE 28 98 36 2C C4 28 4E 46 |5500..2.(.6,.(NF|
000029E0: 29 C7 28 31 33 29 3B 3A 81 4A B2 30 A4 4E 46 3A |).(13);:.J.0.NF:|
000029F0: 98 36 2C 46 24 28 4A 29 C7 28 31 33 29 3B 3A 82 |.6,F$(J).(13);:.|
00002A00: 00 0D 32 C8 28 8D 35 35 30 30 3A A0 36 00 13 32 |..2.(.5500:.6..2|
00002A10: D2 28 8E 00 40 32 DC 28 8F 50 52 49 4E 54 22 44 |.(..@2.(.PRINT"D|
00002A20: 49 53 43 20 45 52 52 4F 52 22 3A 47 4F 53 55 42 |ISC ERROR":GOSUB|
00002A30: 31 31 30 30 30 3A 47 4F 53 55 42 31 30 34 30 30 |11000:GOSUB10400|
00002A40: 00 55 32 F8 2A A1 41 24 3A 8B 41 24 B2 22 22 A7 |.U2.*.A$:.A$."".|
00002A50: 31 31 30 30 30 00 5B 32 02 2B 8E 00 63 32 5C 2B |11000.[2.+..c2\+|
00002A60: 85 46 24 00 69 32 66 2B 8E 00 88 32 C0 2B 99 22 |.F$.i2f+...2.+."|
00002A70: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00002A80: 11 11 11 11 11 22 3A 8E 00 9C 32 E0 2E A0 35 3A |.....":...2...5:|
00002A90: A0 36 3A A0 43 4E 3A A0 31 35 3A 8E 00 B9 32 F6 |.6:.CN:.15:...2.|
00002AA0: F9 9F 31 2C 38 2C 31 35 3A 98 31 2C 22 53 30 3A |..1,8,15:.1,"S0:|
00002AB0: 44 42 41 53 45 22 3A A0 31 00 CF 32 FB F9 94 22 |DBASE":.1..2..."|
00002AC0: 44 42 41 53 45 22 2C 38 3A 95 22 2A 22 2C 38 00 |DBASE",8:."*",8.|
00002AD0: 00 00 20 |.. |
.. .... THE DEVELOPING DATA BASE.G....
COPYRIGHT 1981 MARK PELCZARSKI.M....
SEPT 1982 CREATIVE COMPUTING...... ENHA
NCEMENTS BY ROBERT STEINBERG...... FE
B 1983 CREATIVE COMPUTING...... ADAPTED
TO THE C64 BY BRIAN SCHOTT...... 1041 N
ORTH HILLS DRIVE, DECATUR, GEORGIA, 3003
3.*.... APRIL 1983.O.... ** STRING THING
(UNIVERSAL) **.T.... ** JIM BUTTERF
IELD **... .. STRING MUST BE FIRST
VARIABLE...!.V$."ABCDEFGHIJKLMNOPQ".I.".
V$.V$.V$.V$.V$.V$.Y.#.V$.V$.V$.V$...$..
ABOVE SETS STRING FOR MAX (255).&.%.. 16
0,2,177,45,153,137,0,200,192,6.?.&.. 208
,246,32,198,255.J.'.. 32,228,255,201,13,
240,15,164,142,145...(.. 140,200,132,142
,196,139,240,4,165,144,240,234,76,204,25
5.I.)..J.896.935:.X:.J,X:T.T.X:.J.X.*..T
..5957.....+.. BUTTERFIELD'S RO
UTINE.#.,.. HAS BEEN ADJUSTED TO CHANGE
THE.G.-.. FILE NUMBER EXTERNALLY WITH A.
N.... POKE781,'FILE"' COMMAND. IT HAS..
./.. BEEN IMPLEMENTED ON LINES 5460...0.
. AND 10150..K.1.. *********************
***********...2.. 1041 NORTH HILLS DRIVE
...<.. DECATUR,GA 30033...A.. MARCH 1983
.(.F.FD.0:FX.5:CN.2:FP.1.I.H.."...******
****************".D.J.." INSERT DATA SH
EET"...L.."*********************"...N.."
.. START PRESS 'S'"...P..P$:.P$.."S".
80...R.. CREATE MEANS TO PAD FIELDS WITH
SPACES...T.X$." "...V..I.1.6:X$.X$.X$..
.X..I...Z.X$.X$.H(X$,126).D.I..C$(7),C1%
(7),C2%(7),F$(5),C3$(7):CH.0.V.N..".":."
(L) LOAD A PREVIOUSLY SAVED DATA SET?"..
.X.."(I) INITIALIZE A NEW DATA SET?";...
...11000:.A$.X....A$."L"..12000:.15,8,15
,"I0":.1000:.200......A$."I"..1500:.200.
.. ..130...H..".":."(S) SAVE CURRENT DAT
A".0...."(P) PRINT DATA".D...."(A) ADD D
ATA"._...."(C) CHANGE A RECORD".Z...."(D
) DELETE A RECORD"......"(T) SORT"......
***PRINT"(F) FILENAMES".H....***PRINT"(N
) NEW DATA FILE".X.".."(Q) QUIT"...'..:.
NI.1;" RECORDS, ROOM FOR ";MX.NI.1;" MOR
E"...,..11000:.A$:..2.@..A$."S"..2000:.2
00.I.J..A$."P"..3000:.200.`.T..A$."A"..4
000:.200.|.^..A$."C".SB.3:.8000:.200...H
..A$."D".SB.4:FM.1:.8000:.200...R..A$."T
"..7000:.200.J.|..A$."F"..600:.200......
A$."Q".A$."N".500......200......SS.1.530
......2000......12000. ....A$."N"..:.100
.&.&...,.X...R.... LOAD SUBROUTINE VERS.
1..........G...."FILENAME";:.F$.Q....550
0......5,8,5,"0:".F$.".HDG,S,R"......550
0......5,NH,NI,MX,LK.W.J..H$(NH),B%(NH.1
),P%(MX),TT$(NH),I$(MX)...T..I.0.NH:.5,H
$(I),B%(I):....~..5,B%(NH.1)......NI..1.
1180.+....I.0.NI:.5,P%(I):..2... 5.B....
CN,8,CN,F$.R....NI..1.1220.\....1300.G.D
.SS.1:....N.."FILE NOT FOUND":.11000:.11
0...... READ ITEMS UNDER HEADING CH.....
.....:.I.0.NI.O...R.P%(I):.5600...(..CN,
I$(I)...2.....<........ INITIALIZE SUBRO
UTINE VERS.1..../...."GIVE YOUR .FILE. A
NAME";.7....F$.B....12000._...."HOW MAN
Y HEADINGS ";NH.N....NH.1.1520.....NH.NH
.1:NI..1:LK..1......H$(NH),B%(NH.1),TT$(
NH):B%(0).0...".. I.0.NH...,.."HEADING #
";I.1;:." : ";H$(I)...6.."MAXIMUM LENGTH
: ";J...@.B%(I.1).B%(I).J.1...J..I.E.O.
.15,8,15,"I0":.CN,8,CN,F$.",L,".G(1.B%(N
H.1))...T.."WHICH HEADING IS THE LONGEST
ON WHICH YOU WILL SORT?"...U..J:J.J.1..
.Y..J.0.J.NH.1620.O.^.J.B%(J.1).B%(J).1:
MX..((.(0).2000).(J.2))...H..P%(MX),I$(M
X)...R.....|.SS.0:....... READ RECORD I
INTO TT$..........'....:R.P%(I).8....FOR
J1=0TONH.T....PRINTREM;R;",B";B%(J1).F.B
..INPUTTT$(J1).Q.L.. NEXT.}.V..5400:....
... WRITE RECORD R FROM T$..............
.:.FORJ1=0TONH.J....;R;",B";B%(J1)......
PRINTTT$(J1)...&..NEXT...0..5200:....O..
WRITE SUBROUTINE VERS.1.........0.P..:.
ONERR GOTO 2290.`.Z..15,"S0:"F$".HDG":.
5,8,5,"0:".F$.".HDG,S,W".J....5500......
5,D(NH)","D(NI)","D(MX)","D(LK)G(13);...
...I.0.NH:.5,H$(I)","D(B%(I))G(13);:..V.
...5,D(B%(NH.1))G(13);......NI..1.2270..
....I.0.NI:.5,D(P%(I))G(13);:...... 5...
..SS.1:..6...."DISK ERROR":.11000:.200.\
.... PRINT SUBROUTINE VERS.4.........O..
..NI..1..9000:......."(S) SELECT FORMAT,
OR (D) DEFAULT";:.11000:.......A$."S"..
10000:FM.2:.3010.R....A$.."D".3005.....F
M.1...B.."(S) SCREEN, OR (P) PRINTER";:.
11000:....L..A$."P".SB.2:.3050.0.V..A$..
"S".3010.E...SB.1:.:."AFTER EACH RECORD
( _ ) WILL RETURN TO"......"THE MENU, AN
Y OTHER KEY CONTINUES."......"(PRESS ANY
KEY)":.11000:.8010............ PRINT ON
E RECORD.....................SB.2..4,4:.
4......FM.3700,3800......SB.2..4: 4:.335
0.:....SB..4..11000:.A$.G(95).RS.1.@....
.F.S..PRINT ONE DEFAULT V.1............}
.T..:."RECORD ";I.1:....~..J.0.NH......H
$(J),TT$(J)......J.......N.W.. PRINT ONE
FORMAT V.1..............X.J.1:T.0:B$.""
.....J1.E(J(F$(T),J,2)):J.J.2......J1.5.
N.E(J(F$(T),J,3)):J.J.3.E....J1.3850,386
0,3870,3890,3910,3970.X...A$.H$(N):.3950
.L...A$.TT$(N):.3950.....B$.H(B$,N.1):.C
(B$).N.1..J2.C(B$).N.2:B$.B$." ":....(..
3960.E.2..B$:.N.1..J2.2.N:.:..U.<.B$."":
.3960...F..J.C(F$(T)).T.T.1:J.1...P.J2.J
...Z..J(F$(T),J2,2)..".!".J2.J2.2:.3930.
=.D.A$.J(F$(T),J,J2.J):J.J2.2.J.N.B$.B$.
A$.D.X..J.C(F$(T)).T.T.1:J.1.N.}..3820.X
....B$:....... ADD SUBROUTINE VERS.2....
......... .SS.0:NI.NI.1.G....:."RECORD "
;NI.1:..S....J.0.NH......4500......J...H
..LK..1.R.NI:.4080...R.R.LK......5700...
...CN,LK.:....1800:P%(NI).R:I$(NI).TT$(C
H).@.....F.... INPUT AN ITEM............
.......|...T.B%(J.1).B%(J).1......H$(J);
:." : ";TT$(J)......C(TT$(J)).T.TT$(J).H
(TT$(J),T)...F........ CHANGE SUBROUTINE
VERS.2........2....:."(C) CHANGE ITEM,
(K) KEEP ITEM, OR":."(R) KEEP REMAINDER
OF RECORD".G....:."RECORD ";I.1.]...CS.1
:RS.0:.J.0.NH.|....:.H$(J);" : ";TT$(J);
" ";......RS.1..:.5090...D..11000:.A$.."
C".A$.."K".A$.."R".5060.L.N..A$:.A$."K".
5090...S..A$."R".RS.1:.5090...X..4500...
..CS.0......J.....RS.0.@...."(M) TO CONT
INUE SEARCH":."(E) TO END SEARCH":.11000
.Z....A$.."M".A$.."E".5097.K....A$."E".R
S.1......CS.0..1800:I$(I).TT$(CH).......
..P.. ***********************.K.Q.. * FD
D BLOCK WRITE *...R.. **************
*********...Z..5330...D.K$."P".G(CN).G(R
1).G(R2)...N..FI.0.NH.3.S..15,K$G(1.B%(F
I)).O.X..CN,TT$(FI);H(X$,B%(FI.1).B%(FI)
.C(TT$(FI)).1);G(13);:..Y....5270......
..... ***********************...... * E
RROR CHECK *.Y.... **************
*********... ..15,EN,EM$,ET,ES......EN.2
0...%....EN..50.."ERROR STATUS:";EN;EM$;
ET;ES.:....EN..50..12000:..@.H...B.J.. *
**************************...L.. * SET H
IGH & LOW RECORD # *...N.. *************
**************...R.R1.R.1.....R2.0......
R1.255.R2..(R1.256):R1.R1.256.R2........
... ***********************." ... * FDD
BLOCK READ *.@ .. ***************
********.J "..5330.G ,.K$."P".G(CN).G(R1
).G(R2).Q 6..5270.~ @..FI.0.NH.. J..15,K
$G(1.B%(FI)).. T..781,CN:.896:TT$(FI).H(
V$,B(142)).. H...F R.... |.. ***********
************..!... * ERROR CHECK
*. !... ***********************.5!...15
,EN,EM$,ET,ES.A!...EN.0...C!..."ERROR ST
ATUS:";EN;EM$;ET;ES.P!...12000:...!... *
*************************..!... * FDD BL
OCK READ 1 FIELD *.S!... ***************
***********..!...5330.."...15,"P"G(CN)G(
R1)G(R2)G(1.B%(CH)).."...5270..":...6"D.
. ****************************.Y"I.. * F
DD BLOCK READ 1ST FIELD *.|"L.. ********
********************.."N..5330.."X..15,"
P"G(CN)G(R1)G(R2)G(1).."L..5270.."....Y"
... *****************************.."...
* FDD BLOCK WRITE 1ST FIELD *.!#... ****
*************************.+#...5330.J#..
.15,"P"G(CN)G(R1)G(R2)G(1)._#F..CN,D(LK)
;G(13);.I#Z..5270.O#.....#O.. DELETE SUB
ROUTINE VERS.2.........#P..:."DELETE THI
S RECORD? ";.U#...11000:.A$.."Y".A$.."N"
.6070..#...A$:.A$."N".6150..#J.R.P%(I)..
$T..5800..$..LK.P%(I)..$...I1.I.1.NI.@$.
.I$(I1.1).I$(I1):P%(I1.1).P%(I1).H$...I1
._$..NI.NI.1:SS.0:I.I.1.E$.....$W..SORT
SUBROUTINE V.1...............$X..NI..1..
9000:...$B..:.J.0.NH.D$L.."(";J.1;") ";H
$(J).K$V..J..$..."SORT ON WHICH HEADING"
;J1..$..J1.J1.1..%...J1.0.J1.NH...!%...J
1..CH.CH.J1:.1300.R%..."[(A) ASCENDING,
OR (D) DESCENDING?":.11000.H%...A$."A".A
.1:.7100.~%...A$."D".A.2:.7100..%...7060
..%...I.0.NI.1..%F.T.I..%P..I1.T.1.NI..%
R..I;" ";I1.M%U..A.7130,7140..%Z..I$(I1
).I$(T).T.I1..%...7145..&...I$(I1).I$(T)
.T.I1..&...I1..&...T.I.7180.=&..T$.I$(T)
:I$(T).I$(I):I$(I).T$._&..J1.P%(T):P%(T)
.P%(I):P%(I).J1.F&...I.Q& .SS.0:...&?..
SEARCH SUBROUTINE VERS.2.........&@..N1.
.1..9000:..L&J.I1.0:I2.NI:J.0:C1%(0)..1:
BS.1..&O..".":."SEARCH CRITERIA:":...'T.
." 0 ) RECORD NUMBER".$'^..I.0.NH:.I.1;"
) ";H$(I):.I.:'C..:.NH.2;") BEGIN".J'H..
11200:.".":."SELECT : ";I:.I.0.I.NH.2.80
40..'M..I.NH.2.C1%(J)..1:.8150..'R.C1%(J
).I.1.S'|..11200:."..":."(1) SMALLER (2)
EQUAL (3) LARGER ":.11000..'...A$."1".
A$."3".8060..'..C2%(J).E(A$).C(...11200:
.".MOST SEARCHES REQUIRE A 'WILD CARD' *
AFTER THE STRING.".Q(..."...":."COMPARE
D TO : ";:.C1%(J)..1.8100..(..." ";C$(J)
:.C2%(J)..2.8094.J(..."SEARCH BY E) ENTR
Y (FAST)":..11);"S) STRING (SLOW)"..(...
C3$(J):.C3$(J)."".8092..)...C3$(J).."E".
C3$(J).."S".8091..)..J.J.1:.J.7.8160.&).
..8015.B)..." ";I:.I.1.I.NI.1.8100.L)..I
.I.1._)...C2%(J).1.I2.I.W)...C2%(J).2.I1
.I:I2.I..)B..C2%(J).3.I1.I..)L..8015..)V
..J.2.8200.W)...11200:."..":."1) ITEM MU
ST MEET ALL CONDITIONS"..*..."2) ITEM MA
Y MEET ANY CONDITION":.A$:.A$."1".A$."2"
.8160."*..BS.E(A$).5*. RS.0:J1.C1%(0).E*
. DS.0:.J.0.7.^*. .C1%(J)..1.J.7:.8240.T
*& .J1..C1%(J).J1..2.Z*0 ...*5 .J1..1.J1
..CH.CH.J1:.1300..*6 .J1..2.DS.1.C*: I.I
1.1:.I3.I1.I2:I.I.1..*; .DS.0.TT$(CH).I$
(I):.8255..*< .1700..*? AS.0:.J.0.7..+D
.C1%(J)..1.J.7:.8345./+N .C2%(J).8280,82
90,8310.L+X .TT$(C1%(J))..C$(J).8330.V+]
.8340.R+B .TT$(C1%(J)).C$(J).8330..+D .
C3$(J)."S".8306..+G .I(C$(J),1).."*".834
0.I+J T.C(C$(J)).1:.C(TT$(C1%(J))).T.834
0..+N .H(TT$(C1%(J)),T).H(C$(J),T).8330.
.+Q .8340..,R L1.C(TT$(C1%(J))):L2.C(C$(
J)).S,S .J5.1.(L1.L2.1):.J(TT$(C1%(J)),J
5,L2).C$(J)THEM8330.Y,T ..C,U .8340..,V
.TT$(C1%(J))..C$(J).8330..,. .8340..,. .
BS.2.AS.1:J.7..,. .8345..,. .BS.1.AS.2:J
.7.A,. .J.U,. .AS.0.BS.1.8355.., .AS..1
.8380..,. .DS.0..1700..-. .SB..3..3300..
-. .SB.3..5000.&-. .SB.4..6000.6-. .RS.1
.I3.I2.>-. .I3.[-F .:."THAT'S ALL":.1100
0:..A-P ...-'#. ERROR SUBROUTINE #1.....
.........-(#."THERE'S NO DATA IN MEMORY.
"..-2#.I.1.1000:...-.'. PRINT FORMATTING
VERS.1..........-.'.F$(0)."".10040....'
."SAME FORMAT?";:.11000:....$'.A$."Y"...
2..'.A$.."N".10010.I.8'."(L) LOAD FORMAT
, OR (C) CREATE FORMAT";:.11000:..{.B'.A
$."C".10200...L'.A$.."L".10040...J'....T
'."FORMAT NAME:";A$...~'.5500.S..'.6,8,6
,"0:".A$.".FMT,S,R"....'.5500....'.6,NF.
./.'.J.0.NF:.781,6:.896:F$(J).V$:.../.'
6../.'..;/.'."FORMAT NOT FOUND":.11000:.
200.Q/X'NF.0:J.0:F$(0).""../.'.".":."STA
RT IN THE UPPER LEFT CORNER AND WORK ACR
OSS EACH LINE.".Y/.'."1:HEADING, 2:ITEM,
3:TAB, 4:NEXT LINE, 5:STRING, 6:END":.J
1../.'.J1.1.J1.6.10220..0.(F$(NF).F$(NF)
.D(J1):J.J.2.80.(.J1.10260,10260,10300,1
0300,10350,10400.V0.(.T.0.NH:.T.1;") ";H
$(T):..{0.(."WHICH";T:T.T.1:.T.0.T.NH.10
270..0((.10310..0<(."HOW MANY";T:.T.1.T.
99.."OUT OF RANGE.":.10300.V0F(A$.D(T):.
T.10.A$." ".A$..0P(F$(NF).F$(NF).A$:J.J.
3..0Z(.10380..1N(."STRING:";A$:A$.A$."!"
.?1X(.C(A$).J.255.NF.NF.1:J.0:F$(NF)."".
^1.(F$(NF).F$(NF).A$:J.J.C(A$).1.(.J.25
2.NF.NF.1:J.0:F$(NF).""..1.(.10220..1 (.
"FORMAT NAME:";A$..1.(.5500.J1.(.6,8,6,"
@0:".A$.".FMT,S,W".T1.(.5500..2.(.6,D(NF
)G(13);:.J.0.NF:.6,F$(J)G(13);:...2H(.55
00: 6..2R(..@2.(.PRINT"DISC ERROR":GOSUB
11000:GOSUB10400.U2.*.A$:.A$."".11000.[2
.+..C2\+.F$.I2F+...2.+."................
.....":...2.. 5: 6: CN: 15:...2...1,8,15
:.1,"S0:DBASE": 1.O2..."DBASE",8:."*",8.
..
> CLICK IMAGE PREVIEW FOR FULL MODAL