DATABASE
FILE INFORMATION
FILENAME(S): DATABASE
FILE TYPE(S): PRG
FILE SIZE: 14.9K
FIRST SEEN: 2025-12-01 01:00:21
APPEARS ON: 2 disk(s)
FILE HASH
ac0d85b22b65615ddc14bd817b5b7bc9170405fc95eb6fc9e3b8b5e0bc8cf9a4
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ULRIK DISK 1A | DATABASE | PRG | hedning, emil | 22 | 6 | DOWNLOAD FILE |
| CHRIS HULP PRG | DATABASE | PRG | Shocktrooper | 15 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2B 08 01 00 97 35 33 32 36 35 2C 32 37 3A |..+....53265,27:|
00000010: 97 35 33 32 37 32 2C 32 31 3A 97 35 36 35 37 36 |.53272,21:.56576|
00000020: 2C C2 28 35 36 35 37 36 29 B0 31 00 40 08 05 00 |,.(56576).1.@...|
00000030: 97 37 39 32 2C 31 39 33 3A 97 37 38 38 2C 35 32 |.792,193:.788,52|
00000040: 00 4A 08 0A 00 99 C7 28 38 29 00 6D 08 82 00 8F |.J.....(8).m....|
00000050: 20 20 28 43 29 20 44 41 54 41 42 41 53 45 20 53 | (C) DATABASE S|
00000060: 4F 46 54 57 41 52 45 20 20 31 39 38 35 00 86 08 |OFTWARE 1985...|
00000070: C2 00 97 20 35 34 32 39 36 2C 31 35 3A 97 35 34 |... 54296,15:.54|
00000080: 32 37 37 2C 36 34 00 A0 08 C3 00 97 20 35 34 32 |277,64...... 542|
00000090: 37 38 2C 31 32 38 3A 97 35 34 32 37 33 2C 35 35 |78,128:.54273,55|
000000A0: 00 B9 08 C4 00 97 20 35 34 32 37 32 2C 33 37 3A |...... 54272,37:|
000000B0: 3A 97 35 34 32 37 36 2C 30 00 D9 08 C5 00 86 20 |:.54276,0...... |
000000C0: 42 24 28 32 30 30 29 2C 53 28 31 30 29 2C 41 52 |B$(200),S(10),AR|
000000D0: 24 28 32 30 30 2C 31 35 29 00 F4 08 C6 00 86 20 |$(200,15)...... |
000000E0: 46 25 28 31 34 29 2C 4B 24 28 31 34 29 2C 46 24 |F%(14),K$(14),F$|
000000F0: 28 31 34 29 00 04 09 C7 00 99 C7 28 31 34 29 3B |(14).......(14);|
00000100: 22 93 22 3B 00 0E 09 C8 00 8D 31 30 30 30 00 18 |".";......1000..|
00000110: 09 D2 00 8D 31 35 30 30 00 22 09 DC 00 8D 32 30 |....1500."....20|
00000120: 30 30 00 4B 09 DD 00 99 22 13 22 3B C8 28 44 24 |00.K....".";.(D$|
00000130: 2C 31 38 29 3B 42 4C 24 3B 22 13 22 3B C8 28 44 |,18);BL$;".";.(D|
00000140: 24 2C 32 32 29 3B A3 32 37 29 3B 00 6C 09 E1 00 |$,22);.27);.l...|
00000150: 8B 20 C6 28 53 24 29 B3 39 37 20 B0 20 C6 28 53 |. .(S$).97 . .(S|
00000160: 24 29 B1 31 32 32 20 A7 20 32 33 30 00 9C 09 E2 |$).122 . 230....|
00000170: 00 99 22 13 22 3B C8 28 44 24 2C 31 38 29 3B A3 |..".";.(D$,18);.|
00000180: 31 31 29 3B 22 D0 52 45 53 53 20 D3 C8 C9 C6 D4 |11);".RESS .....|
00000190: A0 CC CF C3 CB 20 4B 45 59 20 21 22 00 CB 09 E3 |..... KEY !"....|
000001A0: 00 99 22 13 22 3B C8 28 44 24 2C 31 38 29 3B 42 |..".";.(D$,18);B|
000001B0: 4C 24 3B 22 13 22 3B C8 28 44 24 2C 32 32 29 3B |L$;".";.(D$,22);|
000001C0: A3 32 37 29 3B 3A 89 20 32 32 30 00 F0 09 E6 00 |.27);:. 220.....|
000001D0: 8B 20 53 24 B3 22 41 22 20 B0 20 53 24 B1 22 4B |. S$."A" . S$."K|
000001E0: 22 20 A7 20 99 C7 28 32 30 29 3B 3A 89 32 32 30 |" . ..(20);:.220|
000001F0: 00 20 0A F0 00 4B 24 B2 22 C6 49 4C 45 20 4E 4F |. ...K$.".ILE NO|
00000200: 54 20 53 45 54 20 55 50 20 20 2D 20 20 D5 53 45 |T SET UP - .SE|
00000210: 20 4F 50 54 49 4F 4E 20 42 22 3A 49 25 B2 31 38 | OPTION B":I%.18|
00000220: 00 60 0A FA 00 8B 28 53 24 B2 22 43 22 B0 53 24 |.`....(S$."C".S$|
00000230: B2 22 44 22 B0 53 24 B2 22 4A 22 29 AF 46 25 B2 |."D".S$."J").F%.|
00000240: 30 A7 8D 33 35 30 30 3A 99 22 13 22 3B C8 28 44 |0..3500:.".";.(D|
00000250: 24 2C 32 32 29 3B A3 32 37 29 3B 3A 89 32 32 30 |$,22);.27);:.220|
00000260: 00 84 0A 04 01 4B 24 B2 22 DA 45 52 4F 20 52 45 |.....K$.".ERO RE|
00000270: 43 4F 52 44 53 20 45 4E 54 45 52 45 44 22 3A 49 |CORDS ENTERED":I|
00000280: 25 B2 31 38 00 BB 0A 0E 01 8B 53 24 B1 22 44 22 |%.18......S$."D"|
00000290: AF 53 24 B3 22 4B 22 AF 52 25 B2 30 A7 8D 33 35 |.S$."K".R%.0..35|
000002A0: 30 30 3A 99 22 13 22 3B C8 28 44 24 2C 32 32 29 |00:.".";.(D$,22)|
000002B0: 3B A3 32 37 29 3B 3A 89 32 32 30 00 FA 0A 2C 01 |;.27);:.220...,.|
000002C0: 91 20 C6 28 53 24 29 AB 36 34 20 8D 20 32 35 30 |. .(S$).64 . 250|
000002D0: 30 2C 32 35 30 30 2C 35 30 30 2C 34 30 30 2C 36 |0,2500,500,400,6|
000002E0: 30 30 2C 35 35 30 2C 37 30 30 2C 37 35 30 2C 38 |00,550,700,750,8|
000002F0: 30 30 2C 34 36 30 2C 39 30 30 00 04 0B 36 01 89 |00,460,900...6..|
00000300: 20 32 31 30 00 1A 0B 90 01 8F 20 22 20 C6 49 45 | 210...... " .IE|
00000310: 4C 44 20 53 55 4D 4D 41 52 59 00 4C 0B 9A 01 99 |LD SUMMARY.L....|
00000320: 22 93 22 3B 22 C4 C5 C6 C9 CE C9 D4 C9 CF CE A0 |".";"...........|
00000330: CF C6 A0 C6 C9 C5 CC C4 3A 22 3B 3A 8B 20 46 25 |........:";:. F%|
00000340: B1 31 20 A7 20 99 22 9D D3 3A 22 3B 00 57 0B A4 |.1 . ."..:";.W..|
00000350: 01 8D 20 38 30 30 30 00 82 0B AE 01 4B 24 B2 22 |.. 8000.....K$."|
00000360: D0 52 45 53 53 20 D3 D0 C1 C3 C5 A0 46 4F 52 20 |.RESS ......FOR |
00000370: 4D 45 4E 55 2E 22 3A 49 25 B2 32 33 3A 8D 33 35 |MENU.":I%.23:.35|
00000380: 30 30 00 9B 0B B8 01 A1 20 47 24 3A 8B 20 47 24 |00...... G$:. G$|
00000390: B3 B1 22 20 22 20 A7 20 34 34 30 00 A1 0B C2 01 |.." " . 440.....|
000003A0: 8E 00 B3 0B CC 01 8F 22 20 20 D3 41 56 45 20 46 |......." .AVE F|
000003B0: 49 4C 45 00 BE 0B D6 01 8D 20 37 35 30 30 00 C4 |ILE...... 7500..|
000003C0: 0B E0 01 8E 00 D8 0B F4 01 8F 20 22 20 C1 44 44 |.......... " .DD|
000003D0: 20 52 45 43 4F 52 44 53 00 EF 0B FE 01 8B 20 52 | RECORDS...... R|
000003E0: 25 B1 B2 52 30 20 A7 20 99 C7 28 37 29 3A 8E 00 |%..R0 . ..(7):..|
000003F0: 0F 0C FF 01 8B 20 B8 28 38 29 B3 31 30 30 30 20 |..... .(8).1000 |
00000400: A7 20 52 4F B2 52 3A 99 20 C7 28 37 29 3A 8E 00 |. RO.R:. .(7):..|
00000410: 1C 0C 08 02 8D 20 39 32 30 30 3A 8E 00 30 0C 26 |..... 9200:..0.&|
00000420: 02 8F 20 22 20 CC 49 53 54 20 52 45 43 4F 52 44 |.. " .IST RECORD|
00000430: 00 3B 0C 30 02 8D 20 38 31 30 30 00 41 0C 3A 02 |.;.0.. 8100.A.:.|
00000440: 8E 00 57 0C 58 02 8F 20 22 20 CD 4F 44 49 46 59 |..W.X.. " .ODIFY|
00000450: 20 52 45 43 4F 52 44 00 70 0C 62 02 99 22 93 CD | RECORD.p.b.."..|
00000460: CF C4 C9 C6 D9 A0 C1 A0 D2 C5 C3 CF D2 C4 3A 22 |..............:"|
00000470: 00 AA 0C 6C 02 99 22 C9 4E 50 55 54 20 52 45 43 |...l..".NPUT REC|
00000480: 4F 52 44 20 4E 55 4D 42 45 52 20 22 3B 3A 4F B2 |ORD NUMBER ";:O.|
00000490: 34 3A 50 B2 31 3A 51 B2 52 25 3A 4D 43 B2 31 3A |4:P.1:Q.R%:MC.1:|
000004A0: 8D 20 35 32 30 30 3A 42 B2 44 00 D3 0C 71 02 99 |. 5200:B.D...q..|
000004B0: 22 13 11 11 20 20 20 20 20 20 20 20 20 20 20 20 |"... |
000004C0: 20 20 20 20 20 20 20 20 20 20 22 3A 99 22 13 11 | ":."..|
000004D0: 11 22 3B 00 14 0D 76 02 8D 20 39 35 30 30 3A 4B |.";...v.. 9500:K|
000004E0: 24 B2 22 28 CD 29 4F 44 49 46 59 20 41 20 52 45 |$."(.)ODIFY A RE|
000004F0: 43 4F 52 44 2C 20 28 D2 29 45 54 55 52 4E 20 54 |CORD, (.)ETURN T|
00000500: 4F 20 4D 45 4E 55 22 3A 49 25 B2 32 32 3A 8D 20 |O MENU":I%.22:. |
00000510: 33 35 30 30 00 3E 0D 80 02 A1 20 47 24 3A 47 24 |3500.>.... G$:G$|
00000520: B2 C7 28 C6 28 47 24 AA 22 21 22 29 AF 39 35 29 |..(.(G$."!").95)|
00000530: 3A 8B 47 24 B2 22 4D 22 20 A7 20 36 31 30 00 52 |:.G$."M" . 610.R|
00000540: 0D 8A 02 8B 20 47 24 B3 B1 22 52 22 20 A7 20 36 |.... G$.."R" . 6|
00000550: 34 30 00 58 0D 94 02 8E 00 6D 0D BC 02 8F 20 22 |40.X.....m.... "|
00000560: 20 C6 49 45 4C 44 20 53 45 41 52 43 48 00 78 0D | .IELD SEARCH.x.|
00000570: C6 02 8D 20 34 31 30 30 00 7E 0D D0 02 8E 00 94 |... 4100.~......|
00000580: 0D EE 02 8F 20 22 20 D2 45 50 4C 41 43 45 20 46 |.... " .EPLACE F|
00000590: 49 45 4C 44 00 9F 0D F8 02 8D 20 36 31 30 30 00 |IELD...... 6100.|
000005A0: A5 0D 02 03 8E 00 B2 0D 20 03 8F 20 22 20 D3 4F |........ .. " .O|
000005B0: 52 54 00 BE 0D 2A 03 8D 20 31 30 30 30 30 00 C4 |RT...*.. 10000..|
000005C0: 0D 34 03 8E 00 DC 0D 84 03 99 22 93 22 3B 3A 8B |.4........".";:.|
000005D0: 20 52 25 B3 B2 30 20 A7 20 39 36 30 00 14 0E 8E | R%..0 . 960....|
000005E0: 03 99 22 13 11 11 11 11 11 11 C4 4F 20 59 4F 55 |.."........O YOU|
000005F0: 20 57 49 53 48 20 54 4F 20 D3 C1 D6 C5 20 54 48 | WISH TO .... TH|
00000600: 45 20 44 41 54 41 20 46 49 4C 45 20 28 D9 2F CE |E DATA FILE (./.|
00000610: 29 3F 22 3B 00 3F 0E 98 03 A1 20 47 24 3A 47 24 |)?";.?.... G$:G$|
00000620: B2 C7 28 C6 28 47 24 AA 22 21 22 29 AF 39 35 29 |..(.(G$."!").95)|
00000630: 3A 8B 20 47 24 B2 22 4E 22 20 A7 20 39 35 30 00 |:. G$."N" . 950.|
00000640: 53 0E A2 03 8B 20 47 24 B3 B1 22 59 22 20 A7 20 |S.... G$.."Y" . |
00000650: 39 32 30 00 5E 0E AC 03 8D 20 37 35 30 30 00 68 |920.^.... 7500.h|
00000660: 0E B6 03 99 22 93 22 3B 00 73 0E C0 03 89 32 30 |....".";.s....20|
00000670: 30 38 30 00 7E 0E E7 03 89 32 30 30 38 30 00 8F |080.~....20080..|
00000680: 0E E8 03 8F 20 49 4E 49 54 49 41 4C 49 53 45 00 |.... INITIALISE.|
00000690: B2 0E F2 03 44 24 B2 22 11 11 11 11 11 11 11 11 |....D$."........|
000006A0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000006B0: 11 22 00 E4 0E FC 03 42 4C 24 B2 22 20 20 20 20 |.".....BL$." |
000006C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006E0: 20 20 20 22 00 FA 0E 06 04 97 35 33 32 38 30 2C | "......53280,|
000006F0: 30 3A 97 35 33 32 38 31 2C 30 00 08 0F 10 04 52 |0:.53281,0.....R|
00000700: 25 B2 30 3A 46 25 B2 30 00 3E 0F 1A 04 44 45 B2 |%.0:F%.0.>...DE.|
00000710: 30 3A 8F 20 22 20 D3 50 45 43 49 46 59 20 44 45 |0:. " .PECIFY DE|
00000720: 56 49 43 45 20 46 4F 52 20 4F 55 54 50 55 54 20 |VICE FOR OUTPUT |
00000730: 44 55 52 49 4E 47 20 4C 49 53 54 49 4E 47 00 44 |DURING LISTING.D|
00000740: 0F DA 05 8E 00 4A 0F DB 05 3A 00 55 0F DC 05 8F |.....J...:.U....|
00000750: 20 4D 45 4E 55 00 5B 0F E6 05 8C 00 85 0F F0 05 | MENU.[.........|
00000760: 99 22 93 22 3B A3 38 29 3B 22 11 C4 A0 C1 A0 D4 |.".";.8);"......|
00000770: A0 C1 A0 C2 A0 C1 A0 D3 A0 C5 20 20 20 CD 20 C5 |.......... . .|
00000780: 20 CE 20 D5 22 00 AE 0F FA 05 99 A3 37 29 3B 22 | . .".......7);"|
00000790: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000007A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 11 11 22 00 DE |===========.."..|
000007B0: 0F 04 06 81 41 B2 31 A4 31 31 3A 87 41 24 3A 99 |....A.1.11:.A$:.|
000007C0: A3 31 30 29 3B 22 9E 22 3B C7 28 39 36 AA 41 29 |.10);".";.(96.A)|
000007D0: 3B A3 31 35 29 3B 22 1E 22 3B 41 24 3A 82 00 10 |;.15);".";A$:...|
000007E0: 10 09 06 49 25 B2 31 38 3A 4B 24 B2 22 9E 22 AA |...I%.18:K$.".".|
000007F0: C4 28 52 25 29 AA 22 20 D2 C5 C3 CF D2 C4 28 D3 |.(R%)." ......(.|
00000800: 29 20 C5 CE D4 C5 D2 C5 C4 22 3A 8D 33 35 30 30 |) .......":.3500|
00000810: 00 4C 10 0A 06 8B 20 46 25 B3 B1 30 20 A7 49 25 |.L.... F%..0 .I%|
00000820: B2 32 30 3A 4B 24 B2 22 9E CD C1 D8 C9 CD D5 CD |.20:K$."........|
00000830: 20 CF C6 20 22 AA C4 28 52 30 29 AA 22 20 D2 C5 | .. "..(R0)." ..|
00000840: C3 CF D2 C4 D3 22 3A 8D 33 35 30 30 00 8A 10 0D |.....":.3500....|
00000850: 06 99 22 13 22 3B C8 28 44 24 2C 32 34 29 3B 22 |..".";.(D$,24);"|
00000860: 05 CD C9 CE C9 A0 CF C6 C6 C9 C3 C5 20 20 28 43 |............ (C|
00000870: 29 20 C4 C1 D4 C1 C2 C1 D3 C5 20 D3 CF C6 D4 D7 |) ........ .....|
00000880: C1 D2 C5 20 31 39 38 35 22 3B 00 B7 10 0E 06 99 |... 1985";......|
00000890: 22 13 22 3B C8 28 44 24 2C 32 32 29 3B A3 31 30 |".";.(D$,22);.10|
000008A0: 29 3B 22 05 D3 C5 CC C5 C3 D4 20 CF D0 D4 C9 CF |);"....... .....|
000008B0: CE 20 2E 2E 20 22 3B 00 BD 10 18 06 8E 00 D1 10 |. .. ";.........|
000008C0: D0 07 8F 20 47 45 54 20 4B 45 59 20 49 4E 50 55 |... GET KEY INPU|
000008D0: 54 00 F1 10 E4 07 A1 20 53 24 3A 99 22 12 20 9D |T...... S$:.". .|
000008E0: 92 22 3B 3A 8B 53 24 B2 22 22 A7 53 24 B2 22 21 |.";:.S$."".S$."!|
000008F0: 22 00 04 11 E9 07 53 24 B2 C7 28 C6 28 53 24 29 |".....S$..(.(S$)|
00000900: AF 39 35 29 00 46 11 EE 07 8B 28 53 24 B3 22 41 |.95).F....(S$."A|
00000910: 22 B0 53 24 B1 22 4B 22 29 AF 28 53 24 B3 22 30 |".S$."K").(S$."0|
00000920: 22 B0 53 24 B1 22 39 22 29 AF 28 53 24 B3 22 C1 |".S$."9").(S$.".|
00000930: 22 B0 53 24 B1 22 CB 22 29 A7 99 22 20 9D 22 3B |".S$.".").." .";|
00000940: 3A 89 32 30 32 30 00 6B 11 F3 07 8B 53 24 B1 B2 |:.2020.k....S$..|
00000950: 22 C1 22 AF 53 24 B3 B2 22 CB 22 A7 53 24 B2 C7 |".".S$..".".S$..|
00000960: 28 C6 28 53 24 29 AB 31 32 38 29 00 74 11 F8 07 |(.(S$).128).t...|
00000970: 99 53 24 3B 00 7A 11 02 08 8E 00 8F 11 C4 09 8F |.S$;.z..........|
00000980: 20 53 45 54 55 50 20 4E 45 57 20 46 49 4C 45 00 | SETUP NEW FILE.|
00000990: AA 11 C9 09 81 20 41 38 B2 31 20 A4 20 31 34 3A |..... A8.1 . 14:|
000009A0: 46 25 28 41 38 29 B2 30 3A 82 00 C3 11 CE 09 53 |F%(A8).0:......S|
000009B0: 31 24 B2 22 22 3A 8B 52 25 B1 30 20 A7 20 8D 33 |1$."":.R%.0 . .3|
000009C0: 30 30 30 00 D5 11 D3 09 8B 20 53 31 24 B2 22 4E |000...... S1$."N|
000009D0: 22 20 A7 20 8E 00 DF 11 D8 09 8D 31 30 30 30 00 |" . .......1000.|
000009E0: F4 11 E2 09 8B 20 53 24 B2 22 41 22 20 A7 20 8D |..... S$."A" . .|
000009F0: 39 30 30 30 00 09 12 EC 09 8B 20 53 24 B2 22 42 |9000...... S$."B|
00000A00: 22 20 A7 20 8D 34 35 30 30 00 0F 12 F6 09 8E 00 |" . .4500.......|
00000A10: 2A 12 B8 0B 8F 20 41 52 45 20 59 4F 55 20 53 55 |*.... ARE YOU SU|
00000A20: 52 45 20 4D 45 53 53 41 47 45 00 5A 12 C2 0B 99 |RE MESSAGE.Z....|
00000A30: 22 13 22 3B A3 39 29 3B C8 28 44 24 2C 31 38 29 |".";.9);.(D$,18)|
00000A40: 3B 22 C1 52 45 20 59 4F 55 20 53 55 52 45 20 3F |;".RE YOU SURE ?|
00000A50: 20 20 28 D9 2F CE 29 20 22 3B 00 7C 12 CC 0B A1 | (./.) ";.|....|
00000A60: 53 31 24 3A 99 22 12 20 9D 92 22 3B 3A 8B 53 31 |S1$:.". ..";:.S1|
00000A70: 24 B2 22 22 A7 53 31 24 B2 22 21 22 00 91 12 D1 |$."".S1$."!"....|
00000A80: 0B 53 31 24 B2 C7 28 C6 28 53 31 24 29 AF 39 35 |.S1$..(.(S1$).95|
00000A90: 29 00 BA 12 D6 0B 8B 20 53 31 24 B3 B1 22 59 22 |)...... S1$.."Y"|
00000AA0: 20 AF 20 53 31 24 B3 B1 22 4E 22 20 A7 20 99 22 | . S1$.."N" . ."|
00000AB0: 20 9D 22 3B 3A 89 33 30 32 30 00 C4 12 E0 0B 99 | .";:.3020......|
00000AC0: 53 31 24 3B 00 CA 12 EA 0B 8E 00 06 13 AC 0D 8F |S1$;............|
00000AD0: 20 50 52 49 4E 54 54 41 42 28 59 29 20 53 45 43 | PRINTTAB(Y) SEC|
00000AE0: 54 49 4F 4E 20 20 20 20 20 20 20 20 20 20 20 20 |TION |
00000AF0: 20 20 20 20 20 53 50 45 43 49 46 59 20 4B 24 20 | SPECIFY K$ |
00000B00: 41 4E 44 20 49 25 00 20 13 B6 0D 99 22 13 22 3B |AND I%. ....".";|
00000B10: C8 28 44 24 2C 49 25 29 3B 42 4C 24 3B 22 13 22 |.(D$,I%);BL$;"."|
00000B20: 00 33 13 C0 0D 4B B2 28 34 30 AB C3 28 4B 24 29 |.3...K.(40..(K$)|
00000B30: 29 AD 32 00 4D 13 CA 0D 99 22 13 22 3B C8 28 44 |).2.M....".";.(D|
00000B40: 24 2C 49 25 29 3B A3 4B 29 3B 4B 24 3B 00 61 13 |$,I%);.K);K$;.a.|
00000B50: CF 0D 8B 20 49 25 B2 32 34 20 A7 20 99 22 13 22 |... I%.24 . ."."|
00000B60: 3B 00 67 13 D0 0D 99 00 6D 13 D4 0D 8E 00 7C 13 |;.g.....m.....|.|
00000B70: A0 0F 8F 20 50 52 4F 43 20 44 45 4C 00 84 13 AA |... PROC DEL....|
00000B80: 0F 42 B2 30 00 A4 13 B4 0F 42 B2 42 AA 31 3A 8B |.B.0.....B.B.1:.|
00000B90: 20 41 52 24 28 42 2C 31 29 B3 B1 22 22 20 A7 20 | AR$(B,1).."" . |
00000BA0: 34 30 33 30 00 DE 13 B9 0F 81 41 38 B2 42 A4 52 |4030......A8.B.R|
00000BB0: 25 3A 81 41 39 B2 31 A4 46 25 3A 41 52 24 28 41 |%:.A9.1.F%:AR$(A|
00000BC0: 38 2C 41 39 29 B2 41 52 24 28 41 38 AA 31 2C 41 |8,A9).AR$(A8.1,A|
00000BD0: 39 29 3A 82 3A 82 3A 56 25 B2 56 25 AB 31 00 F0 |9):.:.:V%.V%.1..|
00000BE0: 13 BA 0F 52 25 B2 52 25 AB 31 3A 42 B2 42 AB 31 |...R%.R%.1:B.B.1|
00000BF0: 00 02 14 BE 0F 8B 20 42 B1 52 25 20 A7 20 56 25 |...... B.R% . V%|
00000C00: B2 30 00 14 14 C8 0F 8B 20 56 25 B1 30 20 A7 20 |.0...... V%.0 . |
00000C10: 34 30 32 30 00 1A 14 D2 0F 8E 00 2F 14 04 10 8F |4020......./....|
00000C20: 20 22 20 C6 49 45 4C 44 20 53 45 41 52 43 48 00 | " .IELD SEARCH.|
00000C30: 51 14 0E 10 99 22 93 C6 C9 C5 CC C4 A0 D3 C5 C1 |Q...."..........|
00000C40: D2 C3 C8 3A 22 3A 8B 46 25 B3 31 20 A7 34 31 34 |...:":.F%.1 .414|
00000C50: 30 00 91 14 18 10 8D 20 38 30 30 30 3A 99 22 13 |0...... 8000:.".|
00000C60: 22 3B C8 28 44 24 2C 31 39 29 3B 22 D3 45 41 52 |";.(D$,19);".EAR|
00000C70: 43 48 20 4F 4E 20 57 48 49 43 48 20 46 49 45 4C |CH ON WHICH FIEL|
00000C80: 44 20 28 20 31 20 2D 22 3B 46 25 3B 22 29 3F 22 |D ( 1 -";F%;")?"|
00000C90: 3B 00 BE 14 22 10 4F B2 31 3A 50 B2 31 3A 51 B2 |;...".O.1:P.1:Q.|
00000CA0: 46 25 3A 4D 43 B2 31 3A 8D 35 32 30 30 3A 4A B2 |F%:MC.1:.5200:J.|
00000CB0: 44 3A 99 22 93 22 3B 3A 89 20 34 31 35 30 00 DD |D:.".";:. 4150..|
00000CC0: 14 2C 10 4A B2 31 3A 99 22 D3 45 41 52 43 48 20 |.,.J.1:.".EARCH |
00000CD0: 4F 4E 20 46 49 45 4C 44 20 4F 4E 45 22 00 FC 14 |ON FIELD ONE"...|
00000CE0: 36 10 99 22 D4 48 49 53 20 49 53 20 41 20 22 3B |6..".HIS IS A ";|
00000CF0: 3A 41 24 B2 22 53 54 52 49 4E 47 22 00 32 15 3B |:A$."STRING".2.;|
00000D00: 10 87 20 46 24 2C 46 24 2C 46 24 3A 8B 20 C8 28 |.. F$,F$,F$:. .(|
00000D10: 46 24 28 4A 29 2C 31 29 B2 22 4E 22 20 A7 20 41 |F$(J),1)."N" . A|
00000D20: 24 B2 22 4E 55 4D 45 52 49 43 22 3A 89 20 34 31 |$."NUMERIC":. 41|
00000D30: 36 30 00 6B 15 3C 10 4C B2 32 3A 43 B2 31 3A 99 |60.k.<.L.2:C.1:.|
00000D40: 41 24 3B 22 20 46 49 45 4C 44 3A 13 1D 1D 22 3B |A$;" FIELD:...";|
00000D50: C8 28 44 24 2C 34 AA 43 AC 33 29 3B 46 24 3B 22 |.(D$,4.C.3);F$;"|
00000D60: 11 11 11 22 3A 89 20 34 32 30 30 00 75 15 40 10 |...":. 4200.u.@.|
00000D70: 99 20 41 24 3B 00 A9 15 4A 10 99 22 20 46 49 45 |. A$;...J.." FIE|
00000D80: 4C 44 3A 22 3A 87 20 4C 3A 81 20 43 B2 31 A4 4C |LD:":. L:. C.1.L|
00000D90: 3A 87 20 46 24 3A 99 22 13 1D 1D 22 3B C8 28 44 |:. F$:."...";.(D|
00000DA0: 24 2C 34 AA 43 AC 33 29 3B 00 C5 15 54 10 99 22 |$,4.C.3);...T.."|
00000DB0: 3C 22 3B C7 28 39 36 AA 43 29 3B 22 3E 20 20 22 |<";.(96.C);"> "|
00000DC0: 3B 46 24 3A 82 00 E9 15 59 10 4B 24 B2 22 D3 45 |;F$:....Y.K$.".E|
00000DD0: 4C 45 43 54 20 4F 50 54 49 4F 4E 22 3A 49 25 B2 |LECT OPTION":I%.|
00000DE0: 31 39 3A 8D 20 33 35 30 30 00 01 16 5E 10 A1 20 |19:. 3500...^.. |
00000DF0: 47 24 3A 8B 20 47 24 B2 22 22 20 A7 20 34 31 39 |G$:. G$."" . 419|
00000E00: 30 00 14 16 61 10 47 24 B2 C7 28 C6 28 47 24 29 |0...a.G$..(.(G$)|
00000E10: AF 39 35 29 00 31 16 63 10 43 B2 C6 28 47 24 29 |.95).1.c.C..(G$)|
00000E20: AB 36 34 3A 8B 43 B3 31 B0 43 B1 4C A7 34 31 39 |.64:.C.1.C.L.419|
00000E30: 30 00 68 16 68 10 99 22 D3 45 41 52 43 48 20 22 |0.h.h..".EARCH "|
00000E40: 3B 3A 41 24 B2 22 53 54 52 49 4E 47 20 3F 3A 20 |;:A$."STRING ?: |
00000E50: 22 3A 8B 20 4C B2 34 20 A7 20 41 24 B2 22 56 41 |":. L.4 . A$."VA|
00000E60: 4C 55 45 20 3F 3A 20 22 00 85 16 72 10 8B 20 43 |LUE ?: "...r.. C|
00000E70: B2 34 20 A7 20 41 24 B2 22 56 41 4C 55 45 20 41 |.4 . A$."VALUE A|
00000E80: 20 3F 3A 20 22 00 A1 16 77 10 4D 41 24 B2 22 FF | ?: "...w.MA$.".|
00000E90: 22 3A 8B 20 43 B2 31 20 A7 20 4D 41 24 B2 22 DA |":. C.1 . MA$.".|
00000EA0: 22 00 CE 16 7C 10 99 20 41 24 3B 3A 4D 49 24 B2 |"...|.. A$;:MI$.|
00000EB0: 22 20 22 3A 4D 49 B2 31 3A 4D 41 B2 46 25 28 4A |" ":MI.1:MA.F%(J|
00000EC0: 29 3A 8D 20 35 30 30 30 3A 46 24 B2 53 24 00 0B |):. 5000:F$.S$..|
00000ED0: 17 86 10 8B 20 4C B3 B1 32 20 A7 44 31 B2 C5 28 |.... L..2 .D1..(|
00000EE0: 46 24 29 3A 8B 20 43 B2 34 20 A7 99 3A 99 22 56 |F$):. C.4 ..:."V|
00000EF0: 41 4C 55 45 20 42 20 3F 3A 20 22 3B 3A 4F B2 46 |ALUE B ?: ";:O.F|
00000F00: 25 28 4A 29 3A 50 B2 AB 32 45 39 00 30 17 87 10 |%(J):P..2E9.0...|
00000F10: 8B 4C B3 B1 32 AF 43 B2 34 A7 51 B2 32 45 39 3A |.L..2.C.4.Q.2E9:|
00000F20: 4D 43 B2 31 3A 8D 20 35 32 30 30 3A 50 31 B2 44 |MC.1:. 5200:P1.D|
00000F30: 00 54 17 88 10 4B 24 B2 22 22 3A 49 25 B2 32 31 |.T...K$."":I%.21|
00000F40: 3A 8D 20 33 35 30 30 3A 49 25 B2 32 32 3A 8D 20 |:. 3500:I%.22:. |
00000F50: 33 35 30 30 00 6A 17 90 10 45 25 B2 30 3A 53 B2 |3500.j...E%.0:S.|
00000F60: 30 3A 81 20 42 B2 31 A4 52 25 00 9D 17 9A 10 4B |0:. B.1.R%.....K|
00000F70: 24 B2 22 D3 45 41 52 43 48 49 4E 47 22 3A 49 25 |$.".EARCHING":I%|
00000F80: B2 31 39 3A 8D 20 33 35 30 30 3A 4B 24 B2 22 22 |.19:. 3500:K$.""|
00000F90: 3A 49 25 B2 32 30 3A 8D 20 33 35 30 30 00 C0 17 |:I%.20:. 3500...|
00000FA0: A4 10 8B 20 43 B2 31 20 A7 20 8B 20 41 52 24 28 |... C.1 . . AR$(|
00000FB0: 42 2C 4A 29 B2 46 24 20 A7 20 8D 20 34 34 30 30 |B,J).F$ . . 4400|
00000FC0: 00 F8 17 AE 10 8B 43 B2 32 20 AF 20 4C B2 32 20 |......C.2 . L.2 |
00000FD0: A7 20 99 22 C3 C1 CE 27 D4 A0 C4 CF A0 C1 D4 A0 |. ."...'........|
00000FE0: CC C9 CE C5 A0 34 32 37 30 20 20 20 C8 C5 CC D0 |.....4270 ....|
00000FF0: A0 A0 21 21 21 22 3A 80 00 25 18 B8 10 8B 20 43 |..!!!":..%.... C|
00001000: B2 32 20 AF 20 4C B3 B1 32 20 A7 20 8B 20 C5 28 |.2 . L..2 . . .(|
00001010: 41 52 24 28 42 2C 4A 29 29 B1 44 31 20 A7 20 8D |AR$(B,J)).D1 . .|
00001020: 20 34 34 30 30 00 52 18 C2 10 8B 20 43 B2 33 20 | 4400.R.... C.3 |
00001030: AF 20 4C B3 B1 32 20 A7 20 8B 20 C5 28 41 52 24 |. L..2 . . .(AR$|
00001040: 28 42 2C 4A 29 29 B3 44 31 20 A7 20 8D 20 34 34 |(B,J)).D1 . . 44|
00001050: 30 30 00 8E 18 CC 10 8B 20 43 B2 34 20 AF 20 4C |00...... C.4 . L|
00001060: B3 B1 32 20 A7 20 8B 20 C5 28 41 52 24 28 42 2C |..2 . . .(AR$(B,|
00001070: 4A 29 29 B1 44 31 20 AF 20 C5 28 41 52 24 28 42 |J)).D1 . .(AR$(B|
00001080: 2C 4A 29 29 B3 50 31 20 A7 8D 34 34 30 30 00 D0 |,J)).P1 ..4400..|
00001090: 18 D6 10 82 3A 8B 20 45 25 B2 30 A7 4B 24 B2 22 |....:. E%.0.K$."|
000010A0: D3 45 41 52 43 48 20 43 4F 4D 50 4C 45 54 45 44 |.EARCH COMPLETED|
000010B0: 2C 20 4E 4F 20 52 45 43 4F 52 44 53 20 46 4F 55 |, NO RECORDS FOU|
000010C0: 4E 44 22 3A 49 25 B2 31 39 3A 8D 20 33 35 30 30 |ND":I%.19:. 3500|
000010D0: 00 14 19 E0 10 8B 20 45 25 B2 31 20 AF 47 24 B3 |...... E%.1 .G$.|
000010E0: B1 22 4D 22 A7 4B 24 B2 22 CE 4F 20 4D 4F 52 45 |."M".K$.".O MORE|
000010F0: 20 45 4E 54 52 49 45 53 20 46 4F 55 4E 44 20 54 | ENTRIES FOUND T|
00001100: 4F 20 4D 41 54 43 48 22 3A 49 25 B2 31 39 3A 8D |O MATCH":I%.19:.|
00001110: 33 35 30 30 00 36 19 E5 10 97 35 34 32 37 36 2C |3500.6....54276,|
00001120: 31 37 3A 81 41 35 B2 31 A4 35 30 3A 82 3A 97 35 |17:.A5.1.50:.:.5|
00001130: 34 32 37 36 2C 30 00 69 19 EA 10 A1 53 24 3A 53 |4276,0.i....S$:S|
00001140: 24 B2 C7 28 C6 28 53 24 AA 22 21 22 29 AF 39 35 |$..(.(S$."!").95|
00001150: 29 3A 8B 20 53 24 B2 22 22 AF 20 47 24 B3 B1 22 |):. S$."". G$.."|
00001160: 4D 22 20 A7 20 34 33 33 30 00 7D 19 EF 10 8B 20 |M" . 4330.}.... |
00001170: 56 25 B1 30 20 A7 20 8D 20 34 30 30 30 00 88 19 |V%.0 . . 4000...|
00001180: F0 10 8D 31 38 30 30 30 00 8E 19 F4 10 8E 00 A8 |...18000........|
00001190: 19 30 11 8F 20 22 20 D3 45 41 52 43 48 20 53 55 |.0.. " .EARCH SU|
000011A0: 43 43 45 53 53 46 55 4C 00 D5 19 3A 11 45 25 B2 |CCESSFUL...:.E%.|
000011B0: 31 3A 99 22 93 22 3B 3A 8D 38 36 30 30 3A 8D 38 |1:.".";:.8600:.8|
000011C0: 37 30 30 3A 8B 20 47 24 B2 22 4D 22 20 A7 20 42 |700:. G$."M" . B|
000011D0: B2 52 25 3A 8E 00 08 1A 44 11 8B 20 53 B2 31 20 |.R%:....D.. S.1 |
000011E0: A7 20 4B 24 B2 22 28 CD 29 45 4E 55 2C 20 28 CE |. K$."(.)ENU, (.|
000011F0: 29 45 58 54 20 52 45 43 4F 52 44 22 3A 49 25 B2 |)EXT RECORD":I%.|
00001200: 31 39 3A 8D 33 35 30 30 00 17 1A 49 11 8B 20 53 |19:.3500...I.. S|
00001210: B3 B1 31 20 A7 20 8E 00 44 1A 4E 11 A1 20 47 24 |..1 . ..D.N.. G$|
00001220: 3A 47 24 B2 C7 28 C6 28 47 24 AA 22 21 22 29 AF |:G$..(.(G$."!").|
00001230: 39 35 29 3A 8B 47 24 B2 22 4D 22 20 A7 20 42 B2 |95):.G$."M" . B.|
00001240: 52 25 3A 8E 00 55 1A 58 11 8B 20 47 24 B2 22 4E |R%:..U.X.. G$."N|
00001250: 22 20 A7 20 8E 00 60 1A 62 11 89 20 34 34 33 30 |" . ..`.b.. 4430|
00001260: 00 82 1A 94 11 8F 20 22 20 D3 45 54 20 55 50 20 |...... " .ET UP |
00001270: 46 49 4C 45 20 46 52 4F 4D 20 4B 45 59 42 4F 41 |FILE FROM KEYBOA|
00001280: 52 44 00 A6 1A 9E 11 99 22 93 22 3B A6 31 31 29 |RD......".";.11)|
00001290: 3B 22 D3 20 C5 20 D4 20 D5 20 D0 20 20 20 CD 20 |;". . . . . . |
000012A0: CF 20 C4 20 C5 22 00 C8 1A A8 11 99 A6 31 30 29 |. . .".......10)|
000012B0: 3B 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |;"==============|
000012C0: 3D 3D 3D 3D 3D 3D 3D 22 00 E5 1A B2 11 99 22 13 |======="......".|
000012D0: 22 3B C8 28 44 24 2C 38 29 3B 22 28 31 20 54 4F |";.(D$,8);"(1 TO|
000012E0: 20 31 34 29 22 00 16 1B BC 11 99 22 13 22 3B C8 | 14)"......".";.|
000012F0: 28 44 24 2C 36 29 3B 22 C8 4F 57 20 4D 41 4E 59 |(D$,6);".OW MANY|
00001300: 20 46 49 45 4C 44 53 20 50 45 52 20 52 45 43 4F | FIELDS PER RECO|
00001310: 52 44 3F 20 22 3B 00 37 1B C6 11 4F B2 32 3A 50 |RD? ";.7...O.2:P|
00001320: B2 31 3A 51 B2 31 34 3A 4D 43 B2 31 3A 8D 35 32 |.1:Q.14:MC.1:.52|
00001330: 30 30 3A 46 25 B2 44 00 47 1B CB 11 81 20 41 39 |00:F%.D.G.... A9|
00001340: B2 31 20 A4 20 46 25 00 78 1B D0 11 99 22 93 22 |.1 . F%.x...."."|
00001350: 3B A3 31 30 29 3B 22 C4 C5 C6 C9 CE C9 D4 C9 CF |;.10);".........|
00001360: CE A0 CF C6 A0 C6 C9 C5 CC C4 22 3B 3A 8B 46 25 |..........";:.F%|
00001370: B1 31 A7 99 22 D3 22 3B 00 95 1B DA 11 99 22 13 |.1..".";......".|
00001380: 11 11 11 11 C6 49 45 4C 44 20 CE 55 4D 42 45 52 |.....IELD .UMBER|
00001390: 20 22 3B 41 39 00 A8 1B E4 11 58 B2 32 3A 59 B2 | ";A9.....X.2:Y.|
000013A0: 37 3A 8D 20 35 35 30 30 00 AE 1B EE 11 82 00 CC |7:. 5500........|
000013B0: 1B F3 11 99 22 93 C6 C9 C5 CC C4 20 D3 D5 CD CD |...."...... ....|
000013C0: C1 D2 D9 3A 22 3B 3A 8D 38 30 30 30 00 FC 1B F8 |...:";:.8000....|
000013D0: 11 99 22 13 22 3B A3 39 29 3B C8 28 44 24 2C 32 |..".";.9);.(D$,2|
000013E0: 34 29 3B 22 C9 53 20 54 48 49 53 20 43 4F 52 52 |4);".S THIS CORR|
000013F0: 45 43 54 20 28 D9 2F CE 29 3F 22 3B 00 3E 1C 02 |ECT (./.)?";.>..|
00001400: 12 A1 47 24 3A 47 24 B2 C7 28 C6 28 47 24 AA 22 |..G$:G$..(.(G$."|
00001410: 21 22 29 AF 39 35 29 3A 99 22 12 20 92 9D 22 3B |!").95):.". ..";|
00001420: 3A 8B 47 24 B3 B1 22 59 22 AF 47 24 B3 B1 22 4E |:.G$.."Y".G$.."N|
00001430: 22 A7 99 22 20 9D 22 3B 3A 89 34 36 31 30 00 52 |".." .";:.4610.R|
00001440: 1C 0C 12 8B 20 47 24 B2 22 59 22 20 A7 20 34 37 |.... G$."Y" . 47|
00001450: 30 30 00 82 1C 16 12 99 22 13 22 3B A3 39 29 3B |00......".";.9);|
00001460: C8 28 44 24 2C 32 34 29 3B 22 C3 4F 52 52 45 43 |.(D$,24);".ORREC|
00001470: 54 20 57 48 49 43 48 20 46 49 45 4C 44 20 3F 20 |T WHICH FIELD ? |
00001480: 22 3B 00 BB 1C 20 12 4F B2 32 3A 50 B2 31 3A 51 |";... .O.2:P.1:Q|
00001490: B2 46 25 3A 4D 43 B2 31 3A 8D 35 32 30 30 3A 99 |.F%:MC.1:.5200:.|
000014A0: 22 13 22 3B C8 28 44 24 2C 32 34 29 3B A3 39 29 |".";.(D$,24);.9)|
000014B0: 3B C8 28 42 4C 24 2C 32 35 29 3B 00 D3 1C 2A 12 |;.(BL$,25);...*.|
000014C0: 41 39 B2 44 3A 58 B2 32 3A 59 B2 31 39 3A 8D 35 |A9.D:X.2:Y.19:.5|
000014D0: 35 30 30 00 DD 1C 34 12 89 34 35 39 35 00 E8 1C |500...4..4595...|
000014E0: 5C 12 8D 20 37 30 30 30 00 EE 1C 70 12 8E 00 0B |\.. 7000...p....|
000014F0: 1D 88 13 8F 20 44 45 46 46 4E 20 49 28 4D 49 24 |.... DEFFN I(MI$|
00001500: 2C 4D 41 24 2C 4D 49 2C 4D 41 29 00 15 1D 92 13 |,MA$,MI,MA).....|
00001510: 53 24 B2 22 22 00 27 1D 9C 13 A1 20 47 24 3A 99 |S$."".'.... G$:.|
00001520: 22 12 20 92 9D 22 3B 00 5F 1D 9D 13 8B 20 47 24 |". ..";._.... G$|
00001530: B2 22 9D 22 B0 20 47 24 B2 22 1D 22 20 B0 20 47 |.".". G$."." . G|
00001540: 24 B2 22 11 22 20 B0 20 47 24 B2 22 91 22 20 B0 |$."." . G$."." .|
00001550: 20 47 24 B2 C7 28 33 34 29 A7 20 35 30 32 30 00 | G$..(34). 5020.|
00001560: 76 1D A1 13 8B 20 47 24 B2 C7 28 31 34 37 29 20 |v.... G$..(147) |
00001570: A7 20 35 30 32 30 00 91 1D A2 13 8B 20 47 24 B2 |. 5020...... G$.|
00001580: C7 28 31 34 31 29 20 A7 20 47 24 B2 C7 28 31 33 |.(141) . G$..(13|
00001590: 29 00 AC 1D A3 13 8B 20 47 24 B2 C7 28 31 34 38 |)...... G$..(148|
000015A0: 29 20 A7 20 47 24 B2 C7 28 32 30 29 00 E6 1D A6 |) . G$..(20)....|
000015B0: 13 8B 28 47 24 B1 B2 4D 49 24 AF 47 24 B3 B2 4D |..(G$..MI$.G$..M|
000015C0: 41 24 AF C3 28 53 24 29 B3 4D 41 29 B0 28 47 24 |A$..(S$).MA).(G$|
000015D0: B2 C7 28 31 33 29 AF C3 28 53 24 29 B1 B2 4D 49 |..(13)..(S$)..MI|
000015E0: 29 A7 35 30 36 30 00 F1 1D AB 13 99 22 20 9D 22 |).5060......" ."|
000015F0: 3B 00 32 1E B0 13 8B 28 47 24 B2 C7 28 32 30 29 |;.2....(G$..(20)|
00001600: AF C3 28 53 24 29 B3 B1 30 29 B0 28 47 24 B2 22 |..(S$)..0).(G$."|
00001610: 20 22 AF C3 28 53 24 29 B3 B1 30 AF C3 28 53 24 | "..(S$)..0..(S$|
00001620: 29 B3 4D 41 AF 44 B3 B1 AB 32 35 35 29 A7 35 30 |).MA.D...255).50|
00001630: 36 30 00 3C 1E BA 13 89 35 30 32 30 00 47 1E C4 |60.<....5020.G..|
00001640: 13 99 22 20 9D 22 3B 00 59 1E C9 13 53 24 B2 53 |.." .";.Y...S$.S|
00001650: 24 AA 47 24 3A 43 25 B2 30 00 6E 1E CE 13 8B 47 |$.G$:C%.0.n....G|
00001660: 24 B2 C7 28 32 30 29 20 A7 20 43 25 B2 32 00 83 |$..(20) . C%.2..|
00001670: 1E D8 13 8B 47 24 B2 C7 28 31 33 29 20 A7 20 43 |....G$..(13) . C|
00001680: 25 B2 31 00 99 1E DD 13 53 24 B2 C8 28 53 24 2C |%.1.....S$..(S$,|
00001690: C3 28 53 24 29 AB 43 25 29 00 B0 1E E2 13 8B 20 |.(S$).C%)...... |
000016A0: 47 24 B3 B1 C7 28 31 33 29 20 A7 20 99 47 24 3B |G$...(13) . .G$;|
000016B0: 00 D0 1E EC 13 8B 20 C3 28 53 24 29 B3 B2 4D 41 |...... .(S$)..MA|
000016C0: AF 47 24 B3 B1 C7 28 31 33 29 20 A7 35 30 32 30 |.G$...(13) .5020|
000016D0: 00 D6 1E F6 13 8E 00 EE 1E 50 14 8F 20 44 45 46 |.........P.. DEF|
000016E0: 46 4E 20 52 28 4F 2C 50 2C 51 2C 4D 43 29 00 F9 |FN R(O,P,Q,MC)..|
000016F0: 1E 5A 14 44 B2 AB 32 35 35 00 26 1F 64 14 4D 49 |.Z.D..255.&.d.MI|
00001700: 24 B2 22 2D 22 3A 4D 41 24 B2 22 39 22 3A 4D 49 |$."-":MA$."9":MI|
00001710: B2 4D 43 3A 4D 41 B2 4F 3A 8D 35 30 30 30 3A 44 |.MC:MA.O:.5000:D|
00001720: B2 C5 28 53 24 29 00 56 1F 6E 14 8B 28 44 B3 50 |..(S$).V.n..(D.P|
00001730: 20 B0 20 44 B1 51 29 20 AF 20 53 24 B3 B1 22 22 | . D.Q) . S$..""|
00001740: 20 A7 81 41 B2 31 A4 C3 28 53 24 29 3A 99 C7 28 | ..A.1..(S$):..(|
00001750: 32 30 29 3B 3A 82 00 6D 1F 78 14 8B 20 44 B3 50 |20);:..m.x.. D.P|
00001760: 20 B0 20 44 B1 51 20 A7 20 35 32 32 30 00 73 1F | . D.Q . 5220.s.|
00001770: 82 14 8E 00 8D 1F 7C 15 8F 20 49 4E 50 55 54 20 |......|.. INPUT |
00001780: 46 49 45 4C 44 20 44 45 54 41 49 4C 53 00 AF 1F |FIELD DETAILS...|
00001790: 86 15 99 22 13 22 3B C8 28 44 24 2C 59 29 3B 22 |...".";.(D$,Y);"|
000017A0: 20 C6 49 45 4C 44 20 54 49 54 4C 45 20 22 3B 00 | .IELD TITLE ";.|
000017B0: D4 1F 90 15 4D 49 24 B2 22 20 22 3A 4D 41 24 B2 |....MI$." ":MA$.|
000017C0: 22 FF 22 3A 4D 49 B2 31 3A 4D 41 B2 31 33 3A 8D |".":MI.1:MA.13:.|
000017D0: 35 30 30 30 00 F0 1F 9A 15 8B 20 C3 28 53 24 29 |5000...... .(S$)|
000017E0: B1 56 56 20 A7 20 56 56 B2 C3 28 53 24 29 AA 31 |.VV . VV..(S$).1|
000017F0: 00 FE 1F A4 15 46 24 28 41 39 29 B2 53 24 00 27 |.....F$(A9).S$.'|
00001800: 20 AE 15 99 22 13 22 3B C8 28 44 24 2C 59 AA 58 | ...".";.(D$,Y.X|
00001810: 29 3B 22 20 C6 49 45 4C 44 20 54 59 50 45 20 28 |);" .IELD TYPE (|
00001820: D3 2F CE 29 20 22 3B 00 69 20 B8 15 A1 47 24 3A |./.) ";.i ...G$:|
00001830: 47 24 B2 C7 28 C6 28 47 24 AA 22 21 22 29 AF 39 |G$..(.(G$."!").9|
00001840: 35 29 3A 99 22 12 20 92 9D 22 3B 3A 8B 47 24 B3 |5):.". ..";:.G$.|
00001850: B1 22 53 22 AF 47 24 B3 B1 22 4E 22 A7 99 22 20 |."S".G$.."N".." |
00001860: 9D 22 3B 3A 89 35 35 36 30 00 87 20 BD 15 8B 47 |.";:.5560.. ...G|
00001870: 24 B2 22 53 22 20 A7 20 99 22 D3 D4 D2 C9 CE C7 |$."S" . ."......|
00001880: 22 3A 89 35 35 39 30 00 9C 20 C2 15 8B 20 47 24 |":.5590.. ... G$|
00001890: B3 B1 22 4E 22 20 A7 20 35 35 36 30 00 AB 20 CC |.."N" . 5560.. .|
000018A0: 15 99 22 CE D5 CD C5 D2 C9 C3 22 00 C0 20 D6 15 |..".......".. ..|
000018B0: 46 24 28 41 39 29 B2 47 24 AA 46 24 28 41 39 29 |F$(A9).G$.F$(A9)|
000018C0: 00 E7 20 E0 15 99 22 13 22 3B C8 28 44 24 2C 59 |.. ...".";.(D$,Y|
000018D0: AA 32 AC 58 29 3B 22 20 C6 49 45 4C 44 20 4C 45 |.2.X);" .IELD LE|
000018E0: 4E 47 54 48 20 22 3B 00 03 21 EA 15 4F B2 32 3A |NGTH ";..!..O.2:|
000018F0: 50 B2 31 3A 51 B2 32 33 3A 4D 43 B2 31 3A 8D 35 |P.1:Q.23:MC.1:.5|
00001900: 32 30 30 00 10 21 F4 15 46 25 28 41 39 29 B2 44 |200..!..F%(A9).D|
00001910: 00 16 21 FE 15 8E 00 22 21 70 17 8F 20 50 52 4F |..!...."!p.. PRO|
00001920: 43 49 00 4B 21 7A 17 46 25 B2 30 3A 52 25 B2 30 |CI.K!z.F%.0:R%.0|
00001930: 3A 56 25 B2 30 3A 56 56 B2 30 3A 4C 25 B2 30 3A |:V%.0:VV.0:L%.0:|
00001940: 45 25 B2 30 3A 8D 20 36 35 30 30 00 6E 21 84 17 |E%.0:. 6500.n!..|
00001950: 81 20 49 25 B2 31 20 A4 20 31 34 3A 46 24 28 49 |. I%.1 . 14:F$(I|
00001960: 25 29 B2 C8 28 42 4C 24 2C 31 35 29 3A 82 00 AE |%)..(BL$,15):...|
00001970: 21 8E 17 81 49 25 B2 30 A4 31 3A 41 24 28 49 25 |!...I%.0.1:A$(I%|
00001980: 29 B2 42 4C 24 AA 42 4C 24 AA C8 28 42 4C 24 2C |).BL$.BL$..(BL$,|
00001990: 31 32 29 3A 42 24 28 49 25 29 B2 42 4C 24 AA 42 |12):B$(I%).BL$.B|
000019A0: 4C 24 AA C8 28 42 4C 24 2C 31 32 29 3A 82 00 D3 |L$..(BL$,12):...|
000019B0: 21 98 17 41 24 B2 42 4C 24 AA 42 4C 24 AA C8 28 |!..A$.BL$.BL$..(|
000019C0: 42 4C 24 2C 31 32 29 3A 42 24 B2 41 24 3A 46 24 |BL$,12):B$.A$:F$|
000019D0: B2 41 24 00 D9 21 A2 17 8E 00 E6 21 D4 17 8F 20 |.A$..!.....!... |
000019E0: 50 52 4F 43 20 47 00 18 22 DE 17 99 22 93 D2 C5 |PROC G.."..."...|
000019F0: D0 CC C1 C3 C5 A0 C6 C9 C5 CC C4 3A 22 3A 8D 20 |...........:":. |
00001A00: 38 30 30 30 3A 99 22 11 D3 45 4C 45 43 54 20 46 |8000:."..ELECT F|
00001A10: 49 45 4C 44 3F 20 22 3B 00 3B 22 E8 17 4F B2 32 |IELD? ";.;"..O.2|
00001A20: 3A 50 B2 31 3A 51 B2 46 25 3A 4D 43 B2 31 3A 8D |:P.1:Q.F%:MC.1:.|
00001A30: 20 35 32 30 30 3A 41 B2 44 3A 99 00 76 22 F2 17 | 5200:A.D:..v"..|
00001A40: 99 22 11 D3 45 41 52 43 48 20 22 3B 3A 41 24 B2 |."..EARCH ";:A$.|
00001A50: 22 56 41 4C 55 45 22 3A 8B 20 C8 28 46 24 28 41 |"VALUE":. .(F$(A|
00001A60: 29 2C 31 29 B2 22 53 22 20 A7 20 41 24 B2 22 53 |),1)."S" . A$."S|
00001A70: 54 52 49 4E 47 22 00 B0 22 FC 17 99 20 41 24 3B |TRING".."... A$;|
00001A80: 22 3F 20 22 3B 3A 4D 49 24 B2 22 20 22 3A 4D 41 |"? ";:MI$." ":MA|
00001A90: 24 B2 22 FF 22 3A 4D 49 B2 31 3A 4D 41 B2 46 25 |$.".":MI.1:MA.F%|
00001AA0: 28 41 29 3A 8D 20 35 30 30 30 3A 46 24 B2 53 24 |(A):. 5000:F$.S$|
00001AB0: 00 F0 22 06 18 99 3A 99 22 D2 45 50 4C 41 43 45 |.."...:.".EPLACE|
00001AC0: 20 22 3B 41 24 3B 22 3F A0 22 3B 3A 4D 49 24 B2 | ";A$;"?.";:MI$.|
00001AD0: 22 20 22 3A 4D 41 24 B2 22 FF 22 3A 4D 49 B2 31 |" ":MA$.".":MI.1|
00001AE0: 3A 4D 41 B2 46 25 28 41 29 3A 8D 20 35 30 30 30 |:MA.F%(A):. 5000|
00001AF0: 00 1B 23 10 18 41 24 B2 53 24 3A 99 22 93 22 3B |..#..A$.S$:.".";|
00001B00: 3A 4B 24 B2 22 D2 45 50 4C 41 43 49 4E 47 22 3A |:K$.".EPLACING":|
00001B10: 49 25 B2 33 3A 8D 20 33 35 30 30 00 2E 23 1A 18 |I%.3:. 3500..#..|
00001B20: 53 B2 30 3A 81 20 44 B2 31 20 A4 20 52 25 00 54 |S.0:. D.1 . R%.T|
00001B30: 23 24 18 8B 20 46 24 B2 41 52 24 28 44 2C 41 29 |#$.. F$.AR$(D,A)|
00001B40: 20 A7 20 41 52 24 28 44 2C 41 29 B2 41 24 3A 53 | . AR$(D,A).A$:S|
00001B50: B2 53 AA 31 00 5A 23 2E 18 82 00 79 23 38 18 4B |.S.1.Z#....y#8.K|
00001B60: 24 B2 22 C3 4F 4D 50 4C 45 54 45 44 22 3A 49 25 |$.".OMPLETED":I%|
00001B70: B2 33 3A 8D 20 33 35 30 30 00 A6 23 42 18 4B 24 |.3:. 3500..#B.K$|
00001B80: B2 C4 28 53 29 AA 22 20 46 49 45 4C 44 28 53 29 |..(S)." FIELD(S)|
00001B90: 20 52 45 50 4C 41 43 45 44 22 3A 49 25 B2 35 3A | REPLACED":I%.5:|
00001BA0: 8D 20 33 35 30 30 00 C8 23 47 18 97 35 34 32 37 |. 3500..#G..5427|
00001BB0: 36 2C 31 37 3A 81 41 35 B2 31 A4 35 30 3A 82 3A |6,17:.A5.1.50:.:|
00001BC0: 97 35 34 32 37 36 2C 30 00 D3 23 4C 18 8D 31 38 |.54276,0..#L..18|
00001BD0: 30 30 30 00 D9 23 56 18 8E 00 E6 23 64 19 8F 20 |000..#V....#d.. |
00001BE0: 50 52 4F 43 43 43 00 08 24 6E 19 45 25 B2 30 3A |PROCCC..$n.E%.0:|
00001BF0: 8B 20 C8 28 46 24 28 4C 25 29 2C 31 29 B2 22 4E |. .(F$(L%),1)."N|
00001C00: 22 20 A7 20 45 25 B2 31 00 0E 24 78 19 8E 00 1B |" . E%.1..$x....|
00001C10: 24 58 1B 8F 20 50 52 4F 43 53 49 00 3E 24 62 1B |$X.. PROCSI.>$b.|
00001C20: 52 30 B2 30 3A 81 41 38 B2 31 A4 31 34 3A 52 30 |R0.0:.A8.1.14:R0|
00001C30: B2 52 30 AA 46 25 28 41 38 29 AA 32 3A 82 00 63 |.R0.F%(A8).2:..c|
00001C40: 24 6C 1B 52 30 B2 B5 28 31 34 33 30 30 AD 52 30 |$l.R0..(14300.R0|
00001C50: 29 3A 8B 20 52 30 B1 32 30 30 20 A7 20 52 30 B2 |):. R0.200 . R0.|
00001C60: 32 30 30 00 69 24 80 1B 8E 00 77 24 4C 1D 8F 20 |200.i$....w$L.. |
00001C70: 50 52 4F 43 20 53 41 00 C4 24 50 1D 44 45 B2 38 |PROC SA..$P.DE.8|
00001C80: 3A 8F 20 44 45 56 49 43 45 3D 44 49 53 4B 3A 2A |:. DEVICE=DISK:*|
00001C90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 2A 2A 2A |************ ***|
00001CA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001CB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001CC0: 2A 2A 2A 2A 00 E6 24 51 1D 4B 24 B2 22 22 3A 49 |****..$Q.K$."":I|
00001CD0: 25 B2 32 30 3A 8D 33 35 30 30 3A 49 25 B2 32 32 |%.20:.3500:I%.22|
00001CE0: 3A 8D 33 35 30 30 00 07 25 56 1D 4B 24 B2 22 D3 |:.3500..%V.K$.".|
00001CF0: C1 D6 C9 CE C7 A0 C6 C9 CC C5 22 3A 49 25 B2 31 |..........":I%.1|
00001D00: 38 3A 8D 33 35 30 30 00 21 25 60 1D 99 22 C9 4E |8:.3500.!%`..".N|
00001D10: 50 55 54 20 46 49 4C 45 20 4E 41 4D 45 3A 20 22 |PUT FILE NAME: "|
00001D20: 3B 00 48 25 6A 1D 4D 49 24 B2 22 21 22 3A 4D 41 |;.H%j.MI$."!":MA|
00001D30: 24 B2 22 FF 22 3A 4D 31 B2 31 3A 4D 41 B2 31 30 |$.".":M1.1:MA.10|
00001D40: 3A 8D 35 30 30 30 3A 99 00 61 25 6F 1D 43 31 B2 |:.5000:..a%o.C1.|
00001D50: 34 34 3A 43 32 B2 31 36 36 3A 8D 20 31 33 30 30 |44:C2.166:. 1300|
00001D60: 30 00 71 25 74 1D 9F 20 31 2C 44 45 2C 31 2C 53 |0.q%t.. 1,DE,1,S|
00001D70: 24 00 8D 25 7E 1D 98 31 2C 46 25 3A 98 31 2C 52 |$..%~..1,F%:.1,R|
00001D80: 25 3A 98 31 2C 52 30 3A 98 31 2C 56 56 00 B0 25 |%:.1,R0:.1,VV..%|
00001D90: 88 1D 81 20 41 B2 31 20 A4 20 46 25 3A 98 31 2C |... A.1 . F%:.1,|
00001DA0: 46 25 28 41 29 3A 98 31 2C 46 24 28 41 29 3A 82 |F%(A):.1,F$(A):.|
00001DB0: 00 BF 25 92 1D 81 20 41 B2 31 20 A4 20 52 25 00 |..%... A.1 . R%.|
00001DC0: DC 25 9C 1D 81 20 42 B2 31 20 A4 20 46 25 3A 98 |.%... B.1 . F%:.|
00001DD0: 31 2C 41 52 24 28 41 2C 42 29 3A 82 00 E2 25 A6 |1,AR$(A,B):...%.|
00001DE0: 1D 82 00 E9 25 B0 1D A0 31 00 02 26 B5 1D 43 31 |....%...1..&..C1|
00001DF0: B2 31 36 36 3A 43 32 B2 34 34 3A 8D 20 31 33 30 |.166:C2.44:. 130|
00001E00: 30 30 00 23 26 BA 1D 4B 24 B2 22 C6 C9 CC C5 20 |00.#&..K$.".... |
00001E10: D3 C1 D6 C5 C4 22 3A 49 25 B2 31 38 3A 8D 20 33 |.....":I%.18:. 3|
00001E20: 35 30 30 00 45 26 BF 1D 97 35 34 32 37 36 2C 31 |500.E&...54276,1|
00001E30: 37 3A 81 41 35 B2 31 A4 35 30 3A 82 3A 97 35 34 |7:.A5.1.50:.:.54|
00001E40: 32 37 36 2C 30 00 50 26 C4 1D 8D 31 38 30 30 30 |276,0.P&...18000|
00001E50: 00 7A 26 CE 1D 44 45 B2 30 3A 8F 20 52 45 53 54 |.z&..DE.0:. REST|
00001E60: 4F 52 45 20 53 43 52 45 45 4E 20 41 53 20 4F 55 |ORE SCREEN AS OU|
00001E70: 50 55 54 20 44 45 56 49 43 45 00 80 26 D8 1D 8E |PUT DEVICE..&...|
00001E80: 00 8D 26 40 1F 8F 20 50 52 4F 43 20 46 00 B9 26 |..&@.. PROC F..&|
00001E90: 54 1F 99 22 13 11 11 CE CF 22 3B A6 31 31 29 3B |T..".....";.11);|
00001EA0: 22 D4 C9 D4 CC C5 22 3B A6 31 31 29 3B 22 CC C5 |".....";.11);"..|
00001EB0: CE C7 D4 C8 A0 D3 2F CE 22 00 D5 26 5E 1F 81 41 |....../."..&^..A|
00001EC0: B2 31 A4 46 25 3A 99 22 13 22 3B C8 28 44 24 2C |.1.F%:.".";.(D$,|
00001ED0: 33 AA 41 29 3B 00 0F 27 5F 1F 99 41 3B A3 31 31 |3.A);..'_..A;.11|
00001EE0: 29 3B C9 28 46 24 28 41 29 2C C3 28 46 24 28 41 |);.(F$(A),.(F$(A|
00001EF0: 29 29 AB 31 29 3B A3 33 35 AB C3 28 C4 28 46 25 |)).1);.35..(.(F%|
00001F00: 28 41 29 AB 31 29 29 29 3B 46 25 28 41 29 3B 00 |(A).1)));F%(A);.|
00001F10: 2F 27 68 1F 99 20 A3 33 38 29 3B C7 28 C6 28 C8 |/'h.. .38);.(.(.|
00001F20: 28 46 24 28 41 29 2C 31 29 29 AA 31 32 38 29 00 |(F$(A),1)).128).|
00001F30: 35 27 72 1F 82 00 3B 27 7C 1F 8E 00 4E 27 A4 1F |5'r...;'|...N'..|
00001F40: 8F 20 4C 49 53 54 20 52 45 43 4F 52 44 53 00 65 |. LIST RECORDS.e|
00001F50: 27 AE 1F 99 22 93 20 CC C9 D3 D4 A0 D2 C5 C3 CF |'...". .........|
00001F60: D2 C4 D3 3A 22 00 9F 27 B8 1F 81 42 B2 31 A4 32 |...:"..'...B.1.2|
00001F70: 3A 87 46 24 3A 99 22 13 22 3B C8 28 44 24 2C 34 |:.F$:.".";.(D$,4|
00001F80: AA 42 AC 34 29 3B A3 36 29 3B 22 3C 22 3B C7 28 |.B.4);.6);"<";.(|
00001F90: 42 AA 31 39 32 29 3B 22 3E 20 20 22 3B 46 24 00 |B.192);"> ";F$.|
00001FA0: A5 27 BD 1F 82 00 CB 27 BE 1F 4B 24 B2 22 D3 45 |.'.....'..K$.".E|
00001FB0: 4C 45 43 54 20 4F 50 54 49 4F 4E 20 3A 22 3A 49 |LECT OPTION :":I|
00001FC0: 25 B2 32 30 3A 8D 20 33 35 30 30 00 00 28 C2 1F |%.20:. 3500..(..|
00001FD0: A1 47 24 3A 47 24 B2 C7 28 C6 28 47 24 AA 22 21 |.G$:G$..(.(G$."!|
00001FE0: 22 29 AF 39 35 29 3A 8B 47 24 B3 B1 22 41 22 20 |").95):.G$.."A" |
00001FF0: AF 20 47 24 B3 B1 22 42 22 20 A7 20 38 31 33 30 |. G$.."B" . 8130|
00002000: 00 17 28 C7 1F 4B 24 B2 22 22 3A 49 25 B2 32 30 |..(..K$."":I%.20|
00002010: 3A 8D 20 33 35 30 30 00 4C 28 CC 1F 41 24 B2 47 |:. 3500.L(..A$.G|
00002020: 24 3A 4B 24 B2 C4 28 52 25 29 AA 22 20 52 45 43 |$:K$..(R%)." REC|
00002030: 4F 52 44 28 53 29 20 45 4E 54 45 52 45 44 22 3A |ORD(S) ENTERED":|
00002040: 49 25 B2 31 34 3A 8D 20 33 35 30 30 00 6C 28 D6 |I%.14:. 3500.l(.|
00002050: 1F 99 22 11 C9 4E 50 55 54 20 52 41 4E 47 45 22 |.."..NPUT RANGE"|
00002060: 3A 99 3A 99 22 C6 52 4F 4D 20 22 3B 00 8F 28 E0 |:.:.".ROM ";..(.|
00002070: 1F 4F B2 34 3A 50 B2 31 3A 51 B2 52 25 3A 4D 43 |.O.4:P.1:Q.R%:MC|
00002080: B2 31 3A 8D 20 35 32 30 30 3A 42 B2 44 AB 31 00 |.1:. 5200:B.D.1.|
00002090: BB 28 EA 1F 99 22 20 54 4F 20 22 3B 3A 4F B2 34 |.(..." TO ";:O.4|
000020A0: 3A 50 B2 42 AA 31 3A 51 B2 52 25 3A 4D 43 B2 31 |:P.B.1:Q.R%:MC.1|
000020B0: 3A 8D 20 35 32 30 30 3A 57 B2 44 00 CC 28 EF 1F |:. 5200:W.D..(..|
000020C0: 8B 41 24 B2 22 42 22 A7 9F 34 2C 34 00 FF 28 F4 |.A$."B"..4,4..(.|
000020D0: 1F 8B 20 41 24 B2 22 42 22 20 A7 20 44 45 B2 34 |.. A$."B" . DE.4|
000020E0: 3A 42 B2 42 AA 31 3A 8D 38 35 30 30 3A 98 34 3A |:B.B.1:.8500:.4:|
000020F0: 98 34 3A 8B 20 42 B3 57 20 A7 20 38 31 38 30 00 |.4:. B.W . 8180.|
00002100: 18 29 FE 1F 8B 20 41 24 B2 22 42 22 20 A7 20 44 |.)... A$."B" . D|
00002110: 45 B2 30 3A A0 34 3A 8E 00 48 29 08 20 42 B2 42 |E.0:.4:..H). B.B|
00002120: AA 31 3A 99 22 93 22 3B 3A 8D 20 38 36 30 30 3A |.1:.".";:. 8600:|
00002130: 53 B2 30 3A 8D 20 38 37 30 30 3A 8B 20 53 B2 31 |S.0:. 8700:. S.1|
00002140: 20 A7 20 42 B2 42 AB 31 00 59 29 12 20 8B 20 42 | . B.B.1.Y). . B|
00002150: B3 57 20 A7 20 38 32 30 30 00 6D 29 1C 20 8B 20 |.W . 8200.m). . |
00002160: 47 24 B2 22 4D 22 20 A7 20 38 32 34 30 00 9A 29 |G$."M" . 8240..)|
00002170: 21 20 4B 24 B2 22 CE 4F 20 4D 4F 52 45 20 45 4E |! K$.".O MORE EN|
00002180: 54 52 49 45 53 22 3A 49 25 B2 31 39 3A 8D 20 33 |TRIES":I%.19:. 3|
00002190: 35 30 30 3A 99 20 C7 28 37 29 00 A5 29 26 20 8D |500:. .(7)..)& .|
000021A0: 31 38 30 30 30 00 B9 29 30 20 8B 20 56 25 B1 30 |18000..)0 . V%.0|
000021B0: 20 A7 20 8D 20 34 30 30 30 00 BF 29 3A 20 8E 00 | . . 4000..): ..|
000021C0: CD 29 34 21 8F 20 50 52 4F 43 20 50 52 00 EE 29 |.)4!. PROC PR..)|
000021D0: 3E 21 98 44 45 2C 22 D2 C5 C3 CF D2 C4 20 CE 4F |>!.DE,"...... .O|
000021E0: 2E 20 22 3B 42 3A 81 41 38 B2 31 A4 46 25 00 26 |. ";B:.A8.1.F%.&|
000021F0: 2A 48 21 98 44 45 2C C9 28 46 24 28 41 38 29 2C |*H!.DE,.(F$(A8),|
00002200: C3 28 46 24 28 41 38 29 29 AB 31 29 3B C9 28 42 |.(F$(A8)).1);.(B|
00002210: 4C 24 2C 32 35 AB C3 28 46 24 28 41 38 29 29 29 |L$,25..(F$(A8)))|
00002220: 3B 22 3A 20 22 3B 00 38 2A 4D 21 98 44 45 2C 41 |;": ";.8*M!.DE,A|
00002230: 52 24 28 42 2C 41 38 29 00 40 2A 52 21 82 3A 8E |R$(B,A8).@*R!.:.|
00002240: 00 4D 2A 98 21 8F 20 50 52 4F 43 20 50 00 6B 2A |.M*.!. PROC P.k*|
00002250: A2 21 99 22 D2 C5 C3 CF D2 C4 A0 CE 4F 2E 20 22 |.!."........O. "|
00002260: 3B 42 3A 81 41 38 B2 31 A4 46 25 00 9A 2A AC 21 |;B:.A8.1.F%..*.!|
00002270: 99 22 13 22 3B C8 28 44 24 2C 33 AA 41 38 29 3B |.".";.(D$,3.A8);|
00002280: C9 28 46 24 28 41 38 29 2C C3 28 46 24 28 41 38 |.(F$(A8),.(F$(A8|
00002290: 29 29 AB 31 29 AA 22 3A 20 22 00 C3 2A B6 21 99 |)).1).": "..*.!.|
000022A0: 22 13 22 3B C8 28 44 24 2C 33 AA 41 38 29 3B A3 |".";.(D$,3.A8);.|
000022B0: 31 AA 56 56 29 3B 41 52 24 28 42 2C 41 38 29 3A |1.VV);AR$(B,A8):|
000022C0: 82 3A 8E 00 D1 2A FC 21 8F 20 50 52 4F 43 20 43 |.:...*.!. PROC C|
000022D0: 48 00 0D 2B 06 22 4B 24 B2 22 28 CE 29 45 58 54 |H..+."K$."(.)EXT|
000022E0: 20 52 45 43 2C 20 28 C4 29 45 4C 45 54 45 2C 20 | REC, (.)ELETE, |
000022F0: 28 CD 29 45 4E 55 2C 20 28 C1 29 4C 54 45 52 22 |(.)ENU, (.)LTER"|
00002300: 3A 49 25 B2 31 39 3A 8D 20 33 35 30 30 00 24 2B |:I%.19:. 3500.$+|
00002310: 10 22 A1 47 24 3A 8B 20 47 24 B2 22 22 20 A7 20 |.".G$:. G$."" . |
00002320: 38 37 32 30 00 37 2B 12 22 47 24 B2 C7 28 C6 28 |8720.7+."G$..(.(|
00002330: 47 24 29 AF 39 35 29 00 4C 2B 15 22 8B 20 47 24 |G$).95).L+.". G$|
00002340: B2 22 4D 22 20 A7 20 42 B2 57 3A 8E 00 5D 2B 16 |."M" . B.W:..]+.|
00002350: 22 8B 20 47 24 B2 22 4E 22 20 A7 20 8E 00 7F 2B |". G$."N" . ...+|
00002360: 1A 22 8B 20 47 24 B2 22 41 22 20 A7 20 99 22 93 |.". G$."A" . .".|
00002370: 22 3B 3A 53 B2 31 3A 8D 20 39 35 30 30 3A 8E 00 |";:S.1:. 9500:..|
00002380: 94 2B 24 22 8B 20 47 24 B3 B1 22 44 22 20 A7 20 |.+$". G$.."D" . |
00002390: 38 37 32 30 00 AC 2B 2E 22 8D 20 38 38 30 30 3A |8720..+.". 8800:|
000023A0: 8B 20 47 24 B2 22 4E 22 20 A7 20 8E 00 D8 2B 38 |. G$."N" . ...+8|
000023B0: 22 4B 24 B2 22 28 CE 29 45 58 54 20 52 45 43 4F |"K$."(.)EXT RECO|
000023C0: 52 44 2C 20 28 CD 29 45 4E 55 22 3A 49 25 B2 31 |RD, (.)ENU":I%.1|
000023D0: 39 3A 8D 20 33 35 30 30 00 0D 2C 42 22 A1 47 24 |9:. 3500..,B".G$|
000023E0: 3A 47 24 B2 C7 28 C6 28 47 24 AA 22 21 22 29 AF |:G$..(.(G$."!").|
000023F0: 39 35 29 3A 8B 47 24 B3 B1 22 4E 22 20 AF 20 47 |95):.G$.."N" . G|
00002400: 24 B3 B1 22 4D 22 20 A7 20 38 37 37 30 00 20 2C |$.."M" . 8770. ,|
00002410: 4C 22 8B 20 47 24 B2 22 4D 22 20 A7 20 42 B2 57 |L". G$."M" . B.W|
00002420: 00 26 2C 56 22 8E 00 33 2C 60 22 8F 20 50 52 4F |.&,V"..3,`". PRO|
00002430: 43 20 44 00 6E 2C 6A 22 4B 24 B2 22 C1 D2 C5 A0 |C D.n,j"K$."....|
00002440: D9 CF D5 A0 D3 D5 D2 C5 A0 D4 C8 C1 D4 A0 D9 CF |................|
00002450: D5 A0 D7 C9 D3 C8 A0 D4 CF A0 C4 C5 CC C5 D4 C5 |................|
00002460: 22 3A 49 25 B2 31 39 3A 8D 20 33 35 30 30 00 9F |":I%.19:. 3500..|
00002470: 2C 74 22 4B 24 B2 22 D2 C5 C3 CF D2 C4 20 CE 4F |,t"K$."...... .O|
00002480: 2E 20 22 AA C4 28 42 29 AA 22 20 28 D9 2F CE 29 |. "..(B)." (./.)|
00002490: 3F 22 3A 49 25 B2 32 30 3A 8D 20 33 35 30 30 00 |?":I%.20:. 3500.|
000024A0: CC 2C 7E 22 A1 47 24 3A 47 24 B2 C7 28 C6 28 47 |.,~".G$:G$..(.(G|
000024B0: 24 AA 22 21 22 29 AF 39 35 29 3A 8B 47 24 B2 22 |$."!").95):.G$."|
000024C0: 4E 22 20 A7 20 42 B2 42 AB 31 3A 8E 00 E1 2C 88 |N" . B.B.1:...,.|
000024D0: 22 8B 20 47 24 B3 B1 22 59 22 20 A7 20 38 38 33 |". G$.."Y" . 883|
000024E0: 30 00 F1 2C 8D 22 41 52 24 28 42 2C 31 29 B2 22 |0..,."AR$(B,1)."|
000024F0: 22 00 16 2D 92 22 4B 24 B2 22 D2 C5 C3 CF D2 C4 |"..-."K$."......|
00002500: A0 C4 C5 CC C5 D4 C5 C4 22 3A 49 25 B2 31 39 3A |........":I%.19:|
00002510: 8D 20 33 35 30 30 00 2D 2D 9C 22 4B 24 B2 22 22 |. 3500.--."K$.""|
00002520: 3A 49 25 B2 32 30 3A 8D 20 33 35 30 30 00 3F 2D |:I%.20:. 3500.?-|
00002530: A6 22 56 25 B2 56 25 AA 31 3A 99 C7 28 37 29 00 |."V%.V%.1:..(7).|
00002540: 4A 2D B0 22 8D 31 38 30 30 30 00 50 2D BA 22 8E |J-.".18000.P-.".|
00002550: 00 60 2D 28 23 8F 20 4C 4F 41 44 20 44 41 54 41 |.`-(#. LOAD DATA|
00002560: 00 AD 2D 2B 23 44 45 B2 38 3A 8F 20 44 45 56 49 |..-+#DE.8:. DEVI|
00002570: 43 45 3D 44 49 53 4B 3A 2A 2A 2A 2A 2A 2A 2A 2A |CE=DISK:********|
00002580: 2A 2A 2A 2A 2A 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |***** **********|
00002590: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000025A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BD 2D |*************..-|
000025B0: 2C 23 8F 20 45 52 41 53 45 20 41 52 24 00 D4 2D |,#. ERASE AR$..-|
000025C0: 2D 23 4B 24 B2 22 22 3A 49 25 B2 32 30 3A 8D 20 |-#K$."":I%.20:. |
000025D0: 33 35 30 30 00 E5 2D 2E 23 49 25 B2 32 32 3A 8D |3500..-.#I%.22:.|
000025E0: 20 33 35 30 30 00 08 2E 3C 23 4B 24 B2 22 CC CF | 3500...<#K$."..|
000025F0: C1 C4 C9 CE C7 A0 C6 C9 CC C5 22 3A 49 25 B2 31 |..........":I%.1|
00002600: 38 3A 8D 20 33 35 30 30 00 21 2E 46 23 99 22 C9 |8:. 3500.!.F#.".|
00002610: 4E 50 55 54 20 46 49 4C 45 20 4E 41 4D 45 3A 22 |NPUT FILE NAME:"|
00002620: 3B 00 47 2E 50 23 4D 49 24 B2 22 21 22 3A 4D 41 |;.G.P#MI$."!":MA|
00002630: 24 B2 22 FF 22 3A 4D 49 B2 31 3A 4D 41 B2 31 30 |$.".":MI.1:MA.10|
00002640: 3A 8D 20 35 30 30 30 00 57 2E 5A 23 9F 20 31 2C |:. 5000.W.Z#. 1,|
00002650: 44 45 2C 30 2C 53 24 00 6A 2E 64 23 84 31 2C 46 |DE,0,S$.j.d#.1,F|
00002660: 25 2C 52 25 2C 52 30 2C 56 56 00 81 2E 6E 23 8F |%,R%,R0,VV...n#.|
00002670: 20 44 49 4D 20 41 52 24 28 52 30 2C 46 25 2B 31 | DIM AR$(R0,F%+1|
00002680: 29 00 A1 2E 78 23 81 20 41 B2 31 20 A4 20 46 25 |)...x#. A.1 . F%|
00002690: 3A 84 31 2C 46 25 28 41 29 2C 46 24 28 41 29 3A |:.1,F%(A),F$(A):|
000026A0: 82 00 AE 2E 82 23 81 41 B2 31 A4 20 52 25 00 CB |.....#.A.1. R%..|
000026B0: 2E 96 23 81 20 42 B2 31 20 A4 20 46 25 3A 84 31 |..#. B.1 . F%:.1|
000026C0: 2C 41 52 24 28 41 2C 42 29 3A 82 00 D1 2E A0 23 |,AR$(A,B):.....#|
000026D0: 82 00 D8 2E AA 23 A0 31 00 F0 2E AB 23 43 31 B2 |.....#.1....#C1.|
000026E0: 31 36 36 3A 43 32 B2 34 34 3A 8D 31 33 30 30 30 |166:C2.44:.13000|
000026F0: 00 12 2F AF 23 97 35 34 32 37 36 2C 31 37 3A 81 |../.#.54276,17:.|
00002700: 41 35 B2 31 A4 35 30 3A 82 3A 97 35 34 32 37 36 |A5.1.50:.:.54276|
00002710: 2C 30 00 34 2F B4 23 4B 24 B2 22 C6 49 4C 45 20 |,0.4/.#K$.".ILE |
00002720: CC 4F 41 44 45 44 22 3A 49 25 B2 31 38 3A 8D 20 |.OADED":I%.18:. |
00002730: 33 35 30 30 00 3F 2F BE 23 8D 31 38 30 30 30 00 |3500.?/.#.18000.|
00002740: 45 2F C8 23 8E 00 52 2F F0 23 8F 20 50 52 4F 43 |E/.#..R/.#. PROC|
00002750: 20 41 00 5C 2F F5 23 99 22 93 22 3B 00 87 2F FA | A.\/.#.".";../.|
00002760: 23 4B 24 B2 22 D2 C5 C3 CF D2 C4 A0 CE D5 CD C2 |#K$."...........|
00002770: C5 D2 22 AA C4 28 52 25 AA 31 29 3A 49 25 B2 31 |.."..(R%.1):I%.1|
00002780: 3A 8D 20 33 35 30 30 00 9F 2F 04 24 52 25 B2 52 |:. 3500../.$R%.R|
00002790: 25 AA 31 3A 81 20 41 38 B2 31 20 A4 20 46 25 00 |%.1:. A8.1 . F%.|
000027A0: CE 2F 0E 24 99 22 13 22 3B C8 28 44 24 2C 33 AA |./.$.".";.(D$,3.|
000027B0: 41 38 29 3B C9 28 46 24 28 41 38 29 2C C3 28 46 |A8);.(F$(A8),.(F|
000027C0: 24 28 41 38 29 29 AB 31 29 AA 22 3A 20 22 00 FB |$(A8)).1).": "..|
000027D0: 2F 18 24 99 22 13 22 3B C8 28 44 24 2C 33 AA 41 |/.$.".";.(D$,3.A|
000027E0: 38 29 3B A3 31 AA 56 56 29 3B 3A 4F B2 46 25 28 |8);.1.VV);:O.F%(|
000027F0: 41 38 29 3A 4D 49 24 B2 22 20 22 00 16 30 1D 24 |A8):MI$." "..0.$|
00002800: 8B C8 28 46 24 28 41 38 29 2C 31 29 B3 B1 22 4E |..(F$(A8),1).."N|
00002810: 22 A7 39 32 36 30 00 33 30 22 24 50 B2 AB 32 45 |".9260.30"$P..2E|
00002820: 39 3A 51 B2 32 45 39 3A 4D 43 B2 31 3A 8D 20 35 |9:Q.2E9:MC.1:. 5|
00002830: 32 30 30 00 47 30 23 24 41 52 24 28 52 25 2C 41 |200.G0#$AR$(R%,A|
00002840: 38 29 B2 C4 28 44 29 00 6E 30 27 24 8B 44 B1 AB |8)..(D).n0'$.D..|
00002850: 31 A7 41 52 24 28 52 25 2C 41 38 29 B2 C9 28 C4 |1.AR$(R%,A8)..(.|
00002860: 28 44 29 2C C3 28 C4 28 44 29 29 AB 31 29 00 AF |(D),.(.(D)).1)..|
00002870: 30 2C 24 8B C8 28 46 24 28 41 38 29 2C 31 29 B2 |0,$..(F$(A8),1).|
00002880: 22 53 22 20 A7 4D 41 24 B2 22 FF 22 3A 4D 49 B2 |"S" .MA$.".":MI.|
00002890: 31 3A 4D 41 B2 46 25 28 41 38 29 3A 8D 35 30 30 |1:MA.F%(A8):.500|
000028A0: 30 3A 41 52 24 28 52 25 2C 41 38 29 B2 53 24 00 |0:AR$(R%,A8).S$.|
000028B0: B7 30 40 24 99 3A 82 00 EC 30 4A 24 4B 24 B2 22 |.0@$.:...0J$K$."|
000028C0: 28 CD 29 45 4E 55 2C 20 28 CE 29 45 58 54 20 52 |(.)ENU, (.)EXT R|
000028D0: 45 43 4F 52 44 2C 20 28 C1 29 4C 54 45 52 22 3A |ECORD, (.)LTER":|
000028E0: 49 25 B2 32 33 3A 8D 20 33 35 30 30 00 03 31 54 |I%.23:. 3500..1T|
000028F0: 24 A1 47 24 3A 8B 20 47 24 B2 22 22 20 A7 20 39 |$.G$:. G$."" . 9|
00002900: 33 30 30 00 16 31 59 24 47 24 B2 C7 28 C6 28 47 |300..1Y$G$..(.(G|
00002910: 24 29 AF 39 35 29 00 27 31 5E 24 8B 20 47 24 B2 |$).95).'1^$. G$.|
00002920: 22 4D 22 20 A7 20 8E 00 60 31 68 24 8B 47 24 B2 |"M" . ..`1h$.G$.|
00002930: 22 4E 22 AF 52 25 B1 B2 52 30 A7 20 4B 24 B2 22 |"N".R%..R0. K$."|
00002940: CD C5 CD CF D2 D9 A0 C6 D5 CC CC 22 3A 49 25 B2 |...........":I%.|
00002950: 32 33 3A 8D 20 33 35 30 30 3A 89 20 39 34 30 30 |23:. 3500:. 9400|
00002960: 00 A4 31 72 24 8B 20 47 24 B2 22 4E 22 20 AF 20 |..1r$. G$."N" . |
00002970: 52 25 AA 35 B1 B2 52 30 20 A7 20 4B 24 B2 22 D2 |R%.5..R0 . K$.".|
00002980: CF CF CD A0 C6 CF D2 A0 CF CE CC D9 A0 22 AA C4 |............."..|
00002990: 28 52 30 AB 52 25 29 AA 22 20 D2 C5 C3 CF D2 C4 |(R0.R%)." ......|
000029A0: 28 D3 29 22 00 D2 31 73 24 8B 20 47 24 B2 22 4E |(.)"..1s$. G$."N|
000029B0: 22 20 AF 20 52 25 AA 35 B1 B2 52 30 20 A7 20 49 |" . R%.5..R0 . I|
000029C0: 25 B2 32 33 3A 8D 20 33 35 30 30 3A 8D 20 39 34 |%.23:. 3500:. 94|
000029D0: 30 30 00 07 32 7C 24 8B 20 47 24 B2 22 41 22 20 |00..2|$. G$."A" |
000029E0: A7 20 42 B2 52 25 3A 99 22 93 CD CF C4 C9 C6 D9 |. B.R%:.".......|
000029F0: A0 D2 C5 C3 CF D2 C4 3A 22 3A 8D 20 39 35 30 30 |.......:":. 9500|
00002A00: 3A 89 20 39 32 39 30 00 18 32 AE 24 8B 47 24 B2 |:. 9290..2.$.G$.|
00002A10: 22 4E 22 A7 39 32 30 35 00 22 32 B3 24 89 39 33 |"N".9205."2.$.93|
00002A20: 30 30 00 2D 32 B8 24 8D 31 38 30 30 30 00 33 32 |00.-2.$.18000.32|
00002A30: C2 24 8E 00 41 32 1C 25 8F 20 50 52 4F 43 20 4D |.$..A2.%. PROC M|
00002A40: 4F 00 5F 32 26 25 99 22 D2 C5 C3 CF D2 C4 A0 CE |O._2&%."........|
00002A50: 4F 2E 20 22 3B 42 3A 81 41 38 B2 31 A4 46 25 00 |O. ";B:.A8.1.F%.|
00002A60: 8E 32 30 25 99 22 13 22 3B C8 28 44 24 2C 33 AA |.20%.".";.(D$,3.|
00002A70: 41 38 29 3B C9 28 46 24 28 41 38 29 2C C3 28 46 |A8);.(F$(A8),.(F|
00002A80: 24 28 41 38 29 29 AB 31 29 AA 22 3A 20 22 00 B3 |$(A8)).1).": "..|
00002A90: 32 31 25 99 22 13 22 3B C8 28 44 24 2C 33 AA 41 |21%.".";.(D$,3.A|
00002AA0: 38 29 3B A3 31 AA 56 56 29 3B 41 52 24 28 42 2C |8);.1.VV);AR$(B,|
00002AB0: 41 38 29 00 E2 32 3A 25 4B 24 B2 22 C9 53 20 54 |A8)..2:%K$.".S T|
00002AC0: 48 49 53 20 43 4F 52 52 45 43 54 20 28 D9 2F CE |HIS CORRECT (./.|
00002AD0: 29 3F 22 3A 49 25 B2 34 AA 41 38 3A 8D 20 33 35 |)?":I%.4.A8:. 35|
00002AE0: 30 30 00 0C 33 44 25 A1 47 24 3A 47 24 B2 C7 28 |00..3D%.G$:G$..(|
00002AF0: C6 28 47 24 AA 22 21 22 29 AF 39 35 29 3A 8B 47 |.(G$."!").95):.G|
00002B00: 24 B2 22 59 22 20 A7 20 39 35 39 39 00 21 33 4E |$."Y" . 9599.!3N|
00002B10: 25 8B 20 47 24 B3 B1 22 4E 22 20 A7 20 39 35 34 |%. G$.."N" . 954|
00002B20: 30 00 3A 33 58 25 4B 24 B2 22 22 3A 49 25 B2 33 |0.:3X%K$."":I%.3|
00002B30: AA 41 38 3A 8D 20 33 35 30 30 00 6A 33 5D 25 4B |.A8:. 3500.j3]%K|
00002B40: 24 B2 22 D0 4C 45 41 53 45 20 45 4E 54 45 52 20 |$.".LEASE ENTER |
00002B50: 43 4F 52 52 45 43 54 49 4F 4E 22 3A 49 25 B2 34 |CORRECTION":I%.4|
00002B60: AA 41 38 3A 8D 20 33 35 30 30 00 99 33 62 25 99 |.A8:. 3500..3b%.|
00002B70: 22 13 22 3B C8 28 44 24 2C 33 AA 41 38 29 3B C9 |".";.(D$,3.A8);.|
00002B80: 28 46 24 28 41 38 29 2C C3 28 46 24 28 41 38 29 |(F$(A8),.(F$(A8)|
00002B90: 29 AB 31 29 AA 22 3A 20 22 00 C6 33 63 25 99 22 |).1).": "..3c%."|
00002BA0: 13 22 3B C8 28 44 24 2C 33 AA 41 38 29 3B A3 31 |.";.(D$,3.A8);.1|
00002BB0: AA 56 56 29 3B 3A 4F B2 46 25 28 41 38 29 3A 4D |.VV);:O.F%(A8):M|
00002BC0: 49 24 B2 22 20 22 00 E3 33 67 25 8B 20 C8 28 46 |I$." "..3g%. .(F|
00002BD0: 24 28 41 38 29 2C 31 29 B3 B1 22 4E 22 20 A7 39 |$(A8),1).."N" .9|
00002BE0: 35 39 30 00 FF 33 6C 25 50 B2 AB 32 45 39 3A 51 |590..3l%P..2E9:Q|
00002BF0: B2 32 45 39 3A 4D 43 B2 31 3A 8D 35 32 30 30 00 |.2E9:MC.1:.5200.|
00002C00: 12 34 6D 25 41 52 24 28 42 2C 41 38 29 B2 C4 28 |.4m%AR$(B,A8)..(|
00002C10: 44 29 00 3B 34 71 25 8B 20 44 B1 AB 31 20 A7 20 |D).;4q%. D..1 . |
00002C20: 41 52 24 28 42 2C 41 38 29 B2 C9 28 C4 28 44 29 |AR$(B,A8)..(.(D)|
00002C30: 2C C3 28 C4 28 44 29 29 AB 31 29 00 7D 34 76 25 |,.(.(D)).1).}4v%|
00002C40: 8B 20 C8 28 46 24 28 41 38 29 2C 31 29 B2 22 53 |. .(F$(A8),1)."S|
00002C50: 22 20 A7 20 4D 41 24 B2 22 FF 22 3A 4D 49 B2 31 |" . MA$.".":MI.1|
00002C60: 3A 4D 41 B2 46 25 28 41 38 29 3A 8D 35 30 30 30 |:MA.F%(A8):.5000|
00002C70: 3A 41 52 24 28 42 2C 41 38 29 B2 53 24 00 96 34 |:AR$(B,A8).S$..4|
00002C80: 7F 25 4B 24 B2 22 22 3A 49 25 B2 34 AA 41 38 3A |.%K$."":I%.4.A8:|
00002C90: 8D 20 33 35 30 30 00 9E 34 80 25 82 3A 8E 00 A4 |. 3500..4.%.:...|
00002CA0: 34 0F 27 3A 00 B8 34 10 27 8F 20 53 4F 52 54 20 |4.':..4.'. SORT |
00002CB0: 52 4F 55 54 49 4E 45 53 00 D2 34 1A 27 99 22 93 |ROUTINES..4.'.".|
00002CC0: CD D5 CC D4 C9 2D C6 C9 C5 CC C4 A0 D3 CF D2 D4 |.....-..........|
00002CD0: 3A 22 00 EA 34 24 27 42 25 B2 46 25 3A 8B 20 46 |:"..4$'B%.F%:. F|
00002CE0: 25 B1 34 20 A7 20 42 25 B2 34 00 FE 34 2E 27 8B |%.4 . B%.4..4.'.|
00002CF0: 20 46 25 B1 31 20 A7 20 8D 20 38 30 30 30 00 3B | F%.1 . . 8000.;|
00002D00: 35 38 27 8B 46 25 B2 31 20 A7 99 22 11 11 D3 4F |58'.F%.1 .."...O|
00002D10: 52 54 20 54 4F 20 42 45 20 44 4F 4E 45 20 4F 4E |RT TO BE DONE ON|
00002D20: 20 46 49 45 4C 44 20 4F 4E 45 2E 22 3A 5A B2 30 | FIELD ONE.":Z.0|
00002D30: 3A 41 B2 31 3A 89 31 30 30 39 37 00 6D 35 42 27 |:A.1:.10097.m5B'|
00002D40: 99 3A 99 22 11 D3 45 4C 45 43 54 20 55 50 20 54 |.:."..ELECT UP T|
00002D50: 4F 22 3B 42 25 3B 22 20 C6 C9 C5 CC C4 D3 20 46 |O";B%;" ...... F|
00002D60: 4F 52 20 53 4F 52 54 22 3A 5A B2 AB 31 00 AD 35 |OR SORT":Z..1..5|
00002D70: 4C 27 5A B2 5A AA 31 3A 99 22 D3 4F 52 54 20 C6 |L'Z.Z.1:.".ORT .|
00002D80: 49 45 4C 44 22 3B 5A AA 31 3B 22 3A 20 22 3B 3A |IELD";Z.1;": ";:|
00002D90: 4F B2 C3 28 C4 28 46 25 29 29 3A 50 B2 B6 28 5A |O..(.(F%)):P..(Z|
00002DA0: B2 30 29 3A 51 B2 46 25 3A 4D 43 B2 30 00 D9 35 |.0):Q.F%:MC.0..5|
00002DB0: 56 27 8D 20 35 32 30 30 3A 41 28 5A 29 B2 44 3A |V'. 5200:A(Z).D:|
00002DC0: 99 3A 8B 20 5A B3 33 20 AF 20 41 28 5A 29 B3 B1 |.:. Z.3 . A(Z)..|
00002DD0: 30 20 A7 20 31 30 30 36 30 00 EB 35 60 27 8B 20 |0 . 10060..5`'. |
00002DE0: 5A B2 30 20 A7 20 31 30 30 37 30 00 00 36 6A 27 |Z.0 . 10070..6j'|
00002DF0: 8B 20 41 28 5A 29 B2 30 20 A7 20 5A B2 5A AB 31 |. A(Z).0 . Z.Z.1|
00002E00: 00 2E 36 6B 27 43 B2 30 3A 81 41 B2 30 A4 5A AB |..6k'C.0:.A.0.Z.|
00002E10: 31 3A 81 42 B2 41 AA 31 20 A4 20 5A 3A 8B 20 41 |1:.B.A.1 . Z:. A|
00002E20: 28 41 29 B2 41 28 42 29 20 A7 20 43 B2 31 00 4C |(A).A(B) . C.1.L|
00002E30: 36 6C 27 82 20 42 2C 41 3A 99 22 93 22 3B 3A 8B |6l'. B,A:.".";:.|
00002E40: 20 43 B3 31 20 A7 20 31 30 30 39 36 00 74 36 6D | C.1 . 10096.t6m|
00002E50: 27 4B 24 B2 22 C9 4C 4C 45 47 41 4C 20 53 45 4C |'K$.".LLEGAL SEL|
00002E60: 45 43 54 49 4F 4E 22 3A 49 25 B2 31 35 3A 8D 20 |ECTION":I%.15:. |
00002E70: 33 35 30 30 00 7F 36 6E 27 8D 31 38 30 30 30 00 |3500..6n'.18000.|
00002E80: 8B 36 6F 27 89 20 31 30 30 30 30 00 C5 36 70 27 |.6o'. 10000..6p'|
00002E90: 99 22 93 C6 C9 C5 CC C4 20 4F 52 44 45 52 20 46 |."...... ORDER F|
00002EA0: 4F 52 20 53 4F 52 54 3A 22 3B 3A 81 41 B2 30 A4 |OR SORT:";:.A.0.|
00002EB0: 5A 3A 99 41 28 41 29 3B 22 2C 22 3B 3A 82 3A 99 |Z:.A(A);",";:.:.|
00002EC0: C7 28 32 30 29 00 06 37 71 27 41 B2 41 28 30 29 |.(20)..7q'A.A(0)|
00002ED0: 3A 99 22 11 11 11 D3 4F 52 54 20 49 4E 54 4F 20 |:."....ORT INTO |
00002EE0: 28 C1 29 53 43 45 4E 44 49 4E 47 20 4F 52 20 28 |(.)SCENDING OR (|
00002EF0: C4 29 45 53 43 45 4E 44 49 4E 47 20 20 20 4F 52 |.)ESCENDING OR|
00002F00: 44 45 52 20 3F 22 00 39 37 72 27 A1 47 24 3A 47 |DER ?".97r'.G$:G|
00002F10: 24 B2 C7 28 C6 28 47 24 AA 22 21 22 29 AF 39 35 |$..(.(G$."!").95|
00002F20: 29 3A 8B 20 47 24 B3 B1 22 41 22 AF 47 24 B3 B1 |):. G$.."A".G$..|
00002F30: 22 44 22 A7 31 30 30 39 38 00 6F 37 73 27 4B 24 |"D".10098.o7s'K$|
00002F40: B2 22 D3 4F 52 54 49 4E 47 22 3A 49 25 B2 32 31 |.".ORTING":I%.21|
00002F50: 3A 8D 20 33 35 30 30 3A 8B 20 5A B3 B1 30 20 A7 |:. 3500:. Z..0 .|
00002F60: 20 8D 31 31 30 30 30 3A 89 20 31 30 31 35 30 00 | .11000:. 10150.|
00002F70: 7B 37 74 27 8D 20 31 30 32 30 30 00 92 37 A6 27 |{7t'. 10200..7.'|
00002F80: 4B 24 B2 22 D3 4F 52 54 45 44 22 3A 8D 20 33 35 |K$.".ORTED":. 35|
00002F90: 30 30 00 B4 37 AB 27 97 35 34 32 37 36 2C 31 37 |00..7.'.54276,17|
00002FA0: 3A 81 41 35 B2 31 A4 35 30 3A 82 3A 97 35 34 32 |:.A5.1.50:.:.542|
00002FB0: 37 36 2C 30 00 BF 37 B0 27 8D 31 38 30 30 30 00 |76,0..7.'.18000.|
00002FC0: C5 37 BA 27 8E 00 E0 37 D8 27 8F 20 53 4F 52 54 |.7.'...7.'. SORT|
00002FD0: 20 4F 4E 20 53 49 4E 47 4C 45 20 46 49 45 4C 44 | ON SINGLE FIELD|
00002FE0: 00 0E 38 D9 27 54 B2 28 C8 28 46 24 28 41 29 2C |..8.'T.(.(F$(A),|
00002FF0: 31 29 B2 22 4E 22 29 AC AB 32 AA 28 C8 28 46 24 |1)."N")..2.(.(F$|
00003000: 28 41 29 2C 31 29 B2 22 53 22 29 AC AB 31 00 2E |(A),1)."S")..1..|
00003010: 38 E2 27 81 41 39 B2 31 A4 52 25 3A 42 24 28 41 |8.'.A9.1.R%:B$(A|
00003020: 39 29 B2 41 52 24 28 41 39 2C 41 29 3A 82 00 3F |9).AR$(A9,A):..?|
00003030: 38 EC 27 4E B2 52 25 3A 8D 20 31 37 30 30 30 00 |8.'N.R%:. 17000.|
00003040: 51 38 F6 27 8B 20 47 24 B3 B1 22 44 22 20 A7 20 |Q8.'. G$.."D" . |
00003050: 8E 00 95 38 00 28 81 41 39 B2 31 A4 B5 28 52 25 |...8.(.A9.1..(R%|
00003060: AD 32 29 3A 81 41 38 B2 31 A4 46 25 3A 4B 24 B2 |.2):.A8.1.F%:K$.|
00003070: 41 52 24 28 41 39 2C 41 38 29 3A 41 52 24 28 41 |AR$(A9,A8):AR$(A|
00003080: 39 2C 41 38 29 B2 41 52 24 28 52 25 AA 31 AB 41 |9,A8).AR$(R%.1.A|
00003090: 39 2C 41 38 29 00 B2 38 0A 28 41 52 24 28 52 25 |9,A8)..8.(AR$(R%|
000030A0: AA 31 AB 41 39 2C 41 38 29 B2 4B 24 3A 82 3A 82 |.1.A9,A8).K$:.:.|
000030B0: 3A 8E 00 C9 38 F8 2A 8F 20 4D 55 4C 54 49 20 46 |:...8.*. MULTI F|
000030C0: 49 45 4C 44 20 53 4F 52 54 00 EF 38 02 2B 41 B2 |IELD SORT..8.+A.|
000030D0: 41 28 30 29 3A 8D 20 31 30 32 30 30 3A 8F 20 53 |A(0):. 10200:. S|
000030E0: 4F 52 54 20 46 49 52 53 54 20 46 49 45 4C 44 00 |ORT FIRST FIELD.|
000030F0: FE 38 0C 2B 81 20 41 35 B2 30 A4 5A AB 31 00 38 |.8.+. A5.0.Z.1.8|
00003100: 39 16 2B 54 B2 28 C8 28 46 24 28 41 28 41 35 AA |9.+T.(.(F$(A(A5.|
00003110: 31 29 29 2C 31 29 B2 22 4E 22 29 AC AB 32 AA 28 |1)),1)."N")..2.(|
00003120: C8 28 46 24 28 41 28 41 35 AA 31 29 29 2C 31 29 |.(F$(A(A5.1)),1)|
00003130: B2 22 53 22 29 AC AB 31 00 46 39 20 2B 50 31 B2 |."S")..1.F9 +P1.|
00003140: 30 3A 50 32 B2 30 00 55 39 2A 2B 81 20 41 37 B2 |0:P2.0.U9*+. A7.|
00003150: 31 A4 20 52 25 00 8A 39 34 2B 8B 20 41 52 24 28 |1. R%..94+. AR$(|
00003160: 41 37 2C 41 28 41 35 29 29 B3 B1 41 52 24 28 41 |A7,A(A5))..AR$(A|
00003170: 37 AA 31 2C 41 28 41 35 29 29 20 B0 20 50 31 B3 |7.1,A(A5)) . P1.|
00003180: B1 30 20 A7 20 31 31 30 37 30 00 9D 39 35 2B 8B |.0 . 11070..95+.|
00003190: 20 41 35 B2 30 20 A7 20 31 31 30 36 39 00 C8 39 | A5.0 . 11069..9|
000031A0: 36 2B 8B 20 41 52 24 28 41 37 2C 41 28 30 29 29 |6+. AR$(A7,A(0))|
000031B0: B3 B1 41 52 24 28 41 37 AA 31 2C 41 28 30 29 29 |..AR$(A7.1,A(0))|
000031C0: 20 A7 20 31 31 30 36 35 00 DB 39 37 2B 8B 20 41 | . 11065..97+. A|
000031D0: 35 B2 31 20 A7 20 31 31 30 36 39 00 05 3A 38 2B |5.1 . 11069..:8+|
000031E0: 8B 20 41 52 24 28 41 37 2C 41 28 31 29 29 B2 41 |. AR$(A7,A(1)).A|
000031F0: 52 24 28 41 37 AA 31 2C 41 28 31 29 29 20 A7 20 |R$(A7.1,A(1)) . |
00003200: 31 31 30 36 39 00 1C 3A 39 2B 41 35 B2 5A 3A 41 |11069..:9+A5.Z:A|
00003210: 37 B2 52 25 3A 89 20 31 31 30 38 30 00 26 3A 3D |7.R%:. 11080.&:=|
00003220: 2B 50 31 B2 41 37 00 63 3A 3E 2B 8B 20 41 52 24 |+P1.A7.c:>+. AR$|
00003230: 28 41 37 2C 41 28 41 35 29 29 B3 B1 41 52 24 28 |(A7,A(A5))..AR$(|
00003240: 41 37 AA 31 2C 41 28 41 35 29 29 20 AF 20 50 31 |A7.1,A(A5)) . P1|
00003250: B3 B1 30 20 A7 20 50 32 B2 41 37 3A 8D 20 31 31 |..0 . P2.A7:. 11|
00003260: 32 30 30 00 69 3A 48 2B 82 00 6F 3A 52 2B 82 00 |200.i:H+..o:R+..|
00003270: 75 3A 5C 2B 8E 00 87 3A C0 2B 8F 20 4D 41 54 43 |u:\+...:.+. MATC|
00003280: 48 20 46 4F 55 4E 44 00 A3 3A C5 2B 81 20 41 39 |H FOUND..:.+. A9|
00003290: B2 31 20 A4 20 31 36 3A 42 24 28 41 39 29 B2 22 |.1 . 16:B$(A9)."|
000032A0: 22 3A 82 00 CA 3A CA 2B 81 41 38 B2 50 31 A4 50 |":...:.+.A8.P1.P|
000032B0: 32 3A 42 24 28 41 38 29 B2 41 52 24 28 41 38 2C |2:B$(A8).AR$(A8,|
000032C0: 41 28 41 35 AA 31 29 29 3A 82 00 FE 3A D4 2B 4C |A(A5.1)):...:.+L|
000032D0: B2 50 31 3A 52 B2 50 32 3A 4E B2 50 32 AB 50 31 |.P1:R.P2:N.P2.P1|
000032E0: AA 31 3A 42 24 28 50 31 AB 31 29 B2 22 22 3A 42 |.1:B$(P1.1)."":B|
000032F0: 24 28 50 32 AA 31 29 B2 C7 28 32 35 35 29 00 0A |$(P2.1)..(255)..|
00003300: 3B DE 2B 8D 20 31 37 31 30 30 00 1F 3B E8 2B 8B |;.+. 17100..;.+.|
00003310: 47 24 B3 B1 22 44 22 20 A7 20 31 31 32 35 30 00 |G$.."D" . 11250.|
00003320: 51 3B E9 2B 81 41 39 B2 30 A4 B5 28 28 50 32 AB |Q;.+.A9.0..((P2.|
00003330: 50 31 29 AD 32 29 3A 81 20 41 38 B2 31 A4 46 25 |P1).2):. A8.1.F%|
00003340: 3A 4B 24 B2 41 52 24 28 41 39 AA 50 31 2C 41 38 |:K$.AR$(A9.P1,A8|
00003350: 29 00 86 3B EA 2B 41 52 24 28 41 39 AA 50 31 2C |)..;.+AR$(A9.P1,|
00003360: 41 38 29 B2 41 52 24 28 50 32 AB 41 39 2C 41 38 |A8).AR$(P2.A9,A8|
00003370: 29 3A 41 52 24 28 50 32 AB 41 39 2C 41 38 29 B2 |):AR$(P2.A9,A8).|
00003380: 4B 24 3A 82 3A 82 00 8F 3B F2 2B 50 31 B2 30 00 |K$:.:...;.+P1.0.|
00003390: 95 3B FC 2B 8E 00 A5 3B C8 32 81 20 41 37 B2 31 |.;.+...;.2. A7.1|
000033A0: 20 A4 20 52 25 00 C2 3B D2 32 81 20 41 38 B2 31 | . R%..;.2. A8.1|
000033B0: 20 A4 20 46 25 3A 41 24 B2 22 22 3A 41 31 24 B2 | . F%:A$."":A1$.|
000033C0: 22 22 00 DD 3B DC 32 81 20 41 39 B2 31 20 A4 20 |""..;.2. A9.1 . |
000033D0: C3 28 41 52 24 28 41 37 2C 41 38 29 29 00 1D 3C |.(AR$(A7,A8))..<|
000033E0: E6 32 41 31 24 B2 C7 28 43 32 29 3A 8B CA 28 41 |.2A1$..(C2):..(A|
000033F0: 52 24 28 41 37 2C 41 38 29 2C 41 39 2C 31 29 B3 |R$(A7,A8),A9,1).|
00003400: B1 C7 28 43 31 29 A7 41 31 24 B2 CA 28 41 52 24 |..(C1).A1$..(AR$|
00003410: 28 41 37 2C 41 38 29 2C 41 39 2C 31 29 00 2B 3C |(A7,A8),A9,1).+<|
00003420: F0 32 41 24 B2 41 24 AA 41 31 24 00 34 3C FA 32 |.2A$.A$.A1$.4<.2|
00003430: 82 20 41 39 00 4E 3C 04 33 41 52 24 28 41 37 2C |. A9.N<.3AR$(A7,|
00003440: 41 38 29 B2 41 24 3A 82 20 41 38 2C 41 37 00 54 |A8).A$:. A8,A7.T|
00003450: 3C 0E 33 8E 00 88 3C 68 42 8F 20 51 55 49 43 4B |<.3...<hB. QUICK|
00003460: 20 53 4F 52 54 20 52 4F 55 54 49 4E 45 20 2D 20 | SORT ROUTINE - |
00003470: 53 49 4E 47 4C 45 20 46 49 45 4C 44 20 45 4E 54 |SINGLE FIELD ENT|
00003480: 52 59 20 50 4F 49 4E 54 00 94 3C 72 42 4C B2 31 |RY POINT..<rBL.1|
00003490: 3A 52 B2 4E 00 B0 3C 7C 42 42 24 28 30 29 B2 22 |:R.N..<|BB$(0)."|
000034A0: 22 3A 42 24 28 4E AA 31 29 B2 C7 28 32 35 35 29 |":B$(N.1)..(255)|
000034B0: 00 E3 3C CC 42 8F 20 51 55 49 43 4B 20 53 4F 52 |..<.B. QUICK SOR|
000034C0: 54 20 52 4F 55 54 49 4E 45 20 2D 20 4D 55 4C 54 |T ROUTINE - MULT|
000034D0: 49 20 46 49 45 4C 44 20 45 4E 54 52 59 20 50 4F |I FIELD ENTRY PO|
000034E0: 49 4E 54 00 FB 3C D6 42 81 20 41 39 B2 31 A4 31 |INT..<.B. A9.1.1|
000034F0: 30 3A 53 28 41 39 29 B2 30 3A 82 00 08 3D E0 42 |0:S(A9).0:...=.B|
00003500: 50 B2 31 3A 4D B2 31 30 00 1C 3D 44 43 8B 20 52 |P.1:M.10..=DC. R|
00003510: AB 4C B3 4D 20 A7 20 31 37 36 33 30 00 24 3D 4E |.L.M . 17630.$=N|
00003520: 43 49 B2 4C 00 2C 3D 58 43 4A B2 52 00 55 3D 62 |CI.L.,=XCJ.R.U=b|
00003530: 43 4B 24 B2 42 24 28 4C 29 3A 81 41 38 B2 31 A4 |CK$.B$(L):.A8.1.|
00003540: 46 25 3A 4B 24 28 41 38 29 B2 41 52 24 28 4C 2C |F%:K$(A8).AR$(L,|
00003550: 41 38 29 3A 82 00 87 3D 76 43 8B 20 28 4B 24 B3 |A8):...=vC. (K$.|
00003560: 42 24 28 4A 29 AF 54 B2 31 29 B0 28 C5 28 4B 24 |B$(J).T.1).(.(K$|
00003570: 29 B3 C5 28 42 24 28 4A 29 29 AF 54 B2 32 29 20 |)..(B$(J)).T.2) |
00003580: A7 20 31 37 32 38 30 00 93 3D 77 43 89 20 31 37 |. 17280..=wC. 17|
00003590: 33 31 30 00 9D 3D 80 43 4A B2 4A AB 31 00 A9 3D |310..=.CJ.J.1..=|
000035A0: 8A 43 89 20 31 37 32 37 30 00 BB 3D 9E 43 8B 20 |.C. 17270..=.C. |
000035B0: 4A B1 49 20 A7 20 31 37 33 34 30 00 E4 3D A8 43 |J.I . 17340..=.C|
000035C0: 42 24 28 49 29 B2 4B 24 3A 81 41 38 B2 31 A4 46 |B$(I).K$:.A8.1.F|
000035D0: 25 3A 41 52 24 28 49 2C 41 38 29 B2 4B 24 28 41 |%:AR$(I,A8).K$(A|
000035E0: 38 29 3A 82 00 F0 3D B2 43 89 20 31 37 34 39 30 |8):...=.C. 17490|
000035F0: 00 1F 3E BC 43 42 24 28 49 29 B2 42 24 28 4A 29 |..>.CB$(I).B$(J)|
00003600: 3A 81 41 38 B2 31 A4 46 25 3A 41 52 24 28 49 2C |:.A8.1.F%:AR$(I,|
00003610: 41 38 29 B2 41 52 24 28 4A 2C 41 38 29 3A 82 00 |A8).AR$(J,A8):..|
00003620: 29 3E C6 43 49 B2 49 AA 31 00 5D 3E DA 43 8B 20 |)>.CI.I.1.]>.C. |
00003630: 28 42 24 28 49 29 B3 4B 24 20 AF 20 54 B2 31 29 |(B$(I).K$ . T.1)|
00003640: B0 28 C5 28 42 24 28 49 29 29 B3 C5 28 4B 24 29 |.(.(B$(I))..(K$)|
00003650: AF 54 B2 32 29 20 A7 20 31 37 33 38 30 00 69 3E |.T.2) . 17380.i>|
00003660: DB 43 89 20 31 37 34 31 30 00 73 3E E4 43 49 B2 |.C. 17410.s>.CI.|
00003670: 49 AA 31 00 7F 3E EE 43 89 20 31 37 33 37 30 00 |I.1..>.C. 17370.|
00003680: 91 3E 02 44 8B 20 4A B1 49 20 A7 20 31 37 34 35 |.>.D. J.I . 1745|
00003690: 30 00 BD 3E 0C 44 42 24 28 4A 29 B2 4B 24 3A 81 |0..>.DB$(J).K$:.|
000036A0: 20 41 38 B2 31 20 A4 20 46 25 3A 41 52 24 28 4A | A8.1 . F%:AR$(J|
000036B0: 2C 41 38 29 B2 4B 24 28 41 38 29 3A 82 00 C5 3E |,A8).K$(A8):...>|
000036C0: 16 44 49 B2 4A 00 D1 3E 20 44 89 20 31 37 34 39 |.DI.J..> D. 1749|
000036D0: 30 00 03 3F 2A 44 42 24 28 4A 29 B2 42 24 28 49 |0..?*DB$(J).B$(I|
000036E0: 29 3A 81 20 41 38 B2 31 20 A4 20 46 25 3A 41 52 |):. A8.1 . F%:AR|
000036F0: 24 28 4A 2C 41 38 29 B2 41 52 24 28 49 2C 41 38 |$(J,A8).AR$(I,A8|
00003700: 29 3A 82 00 0D 3F 34 44 4A B2 4A AB 31 00 19 3F |):...?4DJ.J.1..?|
00003710: 3E 44 89 20 31 37 32 37 30 00 2F 3F 52 44 8B 20 |>D. 17270./?RD. |
00003720: 52 AB 49 B3 49 AB 4C 20 A7 20 31 37 35 36 30 00 |R.I.I.L . 17560.|
00003730: 3A 3F 5C 44 53 28 50 29 B2 52 00 44 3F 66 44 50 |:?\DS(P).R.D?fDP|
00003740: B2 50 AA 31 00 51 3F 70 44 53 28 50 29 B2 49 AA |.P.1.Q?pDS(P).I.|
00003750: 31 00 5B 3F 7A 44 50 B2 50 AA 31 00 65 3F 84 44 |1.[?zDP.P.1.e?.D|
00003760: 52 B2 49 AB 31 00 71 3F 8E 44 89 20 31 37 32 32 |R.I.1.q?.D. 1722|
00003770: 30 00 7E 3F 98 44 53 28 50 29 B2 49 AB 31 00 88 |0.~?.DS(P).I.1..|
00003780: 3F A2 44 50 B2 50 AA 31 00 93 3F AC 44 53 28 50 |?.DP.P.1..?.DS(P|
00003790: 29 B2 4C 00 9D 3F B6 44 50 B2 50 AA 31 00 A7 3F |).L..?.DP.P.1..?|
000037A0: C0 44 4C B2 49 AA 31 00 B3 3F CA 44 89 20 31 37 |.DL.I.1..?.D. 17|
000037B0: 32 32 30 00 BB 3F DE 44 4A B2 4C 00 C5 3F E8 44 |220..?.DJ.L..?.D|
000037C0: 4A B2 4A AA 31 00 D7 3F F2 44 8B 20 4A B1 52 20 |J.J.1..?.D. J.R |
000037D0: A7 20 31 37 37 35 30 00 03 40 FC 44 4B 24 B2 42 |. 17750..@.DK$.B|
000037E0: 24 28 4A 29 3A 81 20 41 38 B2 31 20 A4 20 46 25 |$(J):. A8.1 . F%|
000037F0: 3A 4B 24 28 41 38 29 B2 41 52 24 28 4A 2C 41 38 |:K$(A8).AR$(J,A8|
00003800: 29 3A 82 00 0D 40 06 45 49 B2 4A AB 31 00 40 40 |):...@.EI.J.1.@@|
00003810: 10 45 8B 20 28 42 24 28 49 29 B1 4B 24 20 AF 54 |.E. (B$(I).K$ .T|
00003820: B2 31 29 B0 28 C5 28 42 24 28 49 29 29 B1 C5 28 |.1).(.(B$(I))..(|
00003830: 4B 24 29 AF 54 B2 32 29 20 A7 20 31 37 36 39 30 |K$).T.2) . 17690|
00003840: 00 4C 40 11 45 89 20 31 37 37 32 30 00 80 40 1A |.L@.E. 17720..@.|
00003850: 45 42 24 28 49 AA 31 29 B2 42 24 28 49 29 3A 81 |EB$(I.1).B$(I):.|
00003860: 20 41 38 B2 31 A4 46 25 3A 41 52 24 28 49 AA 31 | A8.1.F%:AR$(I.1|
00003870: 2C 41 38 29 B2 41 52 24 28 49 2C 41 38 29 3A 82 |,A8).AR$(I,A8):.|
00003880: 00 8A 40 24 45 49 B2 49 AB 31 00 96 40 2E 45 89 |..@$EI.I.1..@.E.|
00003890: 20 31 37 36 38 30 00 C6 40 38 45 42 24 28 49 AA | 17680..@8EB$(I.|
000038A0: 31 29 B2 4B 24 3A 81 20 41 38 B2 31 20 A4 20 46 |1).K$:. A8.1 . F|
000038B0: 25 3A 41 52 24 28 49 AA 31 2C 41 38 29 B2 4B 24 |%:AR$(I.1,A8).K$|
000038C0: 28 41 38 29 3A 82 00 D2 40 42 45 89 20 31 37 36 |(A8):...@BE. 176|
000038D0: 34 30 00 E4 40 56 45 8B 20 50 B2 31 20 A7 20 31 |40..@VE. P.1 . 1|
000038E0: 37 38 32 30 00 EE 40 60 45 50 B2 50 AB 31 00 F9 |7820..@`EP.P.1..|
000038F0: 40 6A 45 4C B2 53 28 50 29 00 03 41 74 45 50 B2 |@jEL.S(P)..AtEP.|
00003900: 50 AB 31 00 0E 41 7E 45 52 B2 53 28 50 29 00 1A |P.1..A~ER.S(P)..|
00003910: 41 88 45 89 20 31 37 32 32 30 00 20 41 9C 45 8E |A.E. 17220. A.E.|
00003920: 00 4A 41 50 46 99 C7 28 37 29 C7 28 37 29 3A 81 |.JAPF..(7).(7):.|
00003930: 49 B2 31 A4 33 30 30 3A A1 47 24 3A 8B 47 24 B3 |I.1.300:.G$:.G$.|
00003940: B1 22 22 A7 49 B2 31 30 30 31 00 52 41 55 46 82 |."".I.1001.RAUF.|
00003950: 3A 8E 00 5D 41 20 4E 8F 20 44 41 54 41 00 A1 41 |:..]A N. DATA..A|
00003960: 2A 4E 83 22 CC 4F 41 44 20 4F 4C 44 20 46 49 4C |*N.".OAD OLD FIL|
00003970: 45 22 2C 22 D3 45 54 55 50 20 4E 45 57 20 46 49 |E",".ETUP NEW FI|
00003980: 4C 45 22 2C 22 C1 44 44 20 52 45 43 4F 52 44 53 |LE",".DD RECORDS|
00003990: 22 2C 22 C6 49 45 4C 44 20 53 55 4D 4D 41 52 59 |",".IELD SUMMARY|
000039A0: 22 00 E4 41 34 4E 83 22 CD 4F 44 49 46 59 20 52 |"..A4N.".ODIFY R|
000039B0: 45 43 4F 52 44 22 2C 22 CC 49 53 54 20 52 45 43 |ECORD",".IST REC|
000039C0: 4F 52 44 53 22 2C 22 C6 49 45 4C 44 20 53 45 41 |ORDS",".IELD SEA|
000039D0: 52 43 48 22 2C 22 D2 45 50 4C 41 43 45 20 46 49 |RCH",".EPLACE FI|
000039E0: 45 4C 44 22 00 1E 42 3E 4E 83 22 CD 55 4C 54 49 |ELD"..B>N.".ULTI|
000039F0: 2D 46 49 45 4C 44 20 53 4F 52 54 22 2C 22 D3 41 |-FIELD SORT",".A|
00003A00: 56 45 20 43 55 52 52 45 4E 54 20 46 49 4C 45 22 |VE CURRENT FILE"|
00003A10: 2C 22 C5 4E 44 20 50 52 4F 47 52 41 4D 22 00 56 |,".ND PROGRAM".V|
00003A20: 42 48 4E 83 22 CC 49 53 54 20 52 45 43 4F 52 44 |BHN.".IST RECORD|
00003A30: 53 20 54 4F 20 53 43 52 45 45 4E 22 2C 22 CC 49 |S TO SCREEN",".I|
00003A40: 53 54 20 52 45 43 4F 52 44 53 20 54 4F 20 50 52 |ST RECORDS TO PR|
00003A50: 49 4E 54 45 52 22 00 7B 42 52 4E 83 20 22 D3 45 |INTER".{BRN. ".E|
00003A60: 41 52 43 48 20 46 4F 52 20 41 20 53 50 45 43 49 |ARCH FOR A SPECI|
00003A70: 46 49 43 20 53 54 52 49 4E 47 22 00 C4 42 5C 4E |FIC STRING"..B\N|
00003A80: 83 34 2C 22 D3 45 41 52 43 48 20 46 4F 52 20 41 |.4,".EARCH FOR A|
00003A90: 20 56 41 4C 55 45 20 58 22 2C 22 D3 45 41 52 43 | VALUE X",".EARC|
00003AA0: 48 20 46 4F 52 20 56 41 4C 55 45 53 3E 58 22 2C |H FOR VALUES>X",|
00003AB0: 22 D3 45 41 52 43 48 20 4F 52 20 56 41 4C 55 45 |".EARCH OR VALUE|
00003AC0: 53 3C 58 22 00 DC 42 66 4E 83 22 D3 45 41 52 43 |S<X"..BfN.".EARC|
00003AD0: 48 20 46 4F 52 20 41 3C 58 3C 42 22 00 F4 42 70 |H FOR A<X<B"..Bp|
00003AE0: 4E 97 35 36 33 33 34 2C C2 28 35 36 33 33 34 29 |N.56334,.(56334)|
00003AF0: AF 32 35 34 00 1C 43 75 4E 41 B2 C2 28 34 33 29 |.254..CuNA..(43)|
00003B00: AA C2 28 34 34 29 AC 32 35 36 3A 43 B2 C2 28 34 |..(44).256:C..(4|
00003B10: 35 29 AA C2 28 34 36 29 AC 32 35 36 00 57 43 7A |5)..(46).256.WCz|
00003B20: 4E 81 42 B2 31 A4 39 3A 97 36 33 30 AA 42 2C C6 |N.B.1.9:.630.B,.|
00003B30: 28 CA 28 22 53 59 53 36 34 37 33 38 22 AA C7 28 |(.("SYS64738"..(|
00003B40: 31 33 29 2C 42 2C 31 29 29 3A 82 3A 97 31 39 38 |13),B,1)):.:.198|
00003B50: 2C 39 3A 99 22 90 22 00 69 43 7F 4E 81 42 B2 41 |,9:.".".iC.N.B.A|
00003B60: A4 43 3A 97 42 2C 30 3A 82 00 6F 43 81 4E A2 00 |.C:.B,0:..oC.N..|
00003B70: 00 00 |.. |
..+....53265,27:.53272,21:.56576,B(56576
).1.@....792,193:.788,52.J....G(8).M....
(C) DATABASE SOFTWARE 1985...B.. 5429
6,15:.54277,64. .C.. 54278,128:.54273,55
...D.. 54272,37::.54276,0.Y.E.. B$(200),
S(10),AR$(200,15)...F.. F%(14),K$(14),F$
(14)...G..G(14);".";...H..1000...R..1500
."....2000.K....".";H(D$,18);BL$;".";H(D
$,22);.27);.L.... F(S$).97 . F(S$).122 .
230......".";H(D$,18);.11);"PRESS SHIFT
LOCK KEY !".K....".";H(D$,18);BL$;".";H
(D$,22);.27);:. 220...... S$."A" . S$."K
" . .G(20);:.220. ...K$."FILE NOT SET UP
- USE OPTION B":I%.18.`....(S$."C".S$
."D".S$."J").F%.0..3500:.".";H(D$,22);.2
7);:.220.....K$."ZERO RECORDS ENTERED":I
%.18......S$."D".S$."K".R%.0..3500:.".";
H(D$,22);.27);:.220...,.. F(S$).64 . 250
0,2500,500,400,600,550,700,750,800,460,9
00...6.. 210...... " FIELD SUMMARY.L....
".";"DEFINITION OF FIELD:";:. F%.1 . .".
S:";.W.... 8000.....K$."PRESS SPACE FOR
MENU.":I%.23:.3500...... G$:. G$.." " .
440...B.....L.." SAVE FILE...V.. 7500.D
.....X.... " ADD RECORDS...... R%..R0 .
.G(7):....... .(8).1000 . RO.R:. G(7):..
..... 9200:..0.&.. " LIST RECORD.;.0.. 8
100.A.:...W.X.. " MODIFY RECORD.P.B..".M
ODIFY A RECORD:"...L.."INPUT RECORD NUMB
ER ";:O.4:P.1:Q.R%:MC.1:. 5200:B.D.S.Q..
"... ":."...";...V.
. 9500:K$."(M)ODIFY A RECORD, (R)ETURN T
O MENU":I%.22:. 3500.>.... G$:G$.G(F(G$.
"!").95):.G$."M" . 610.R.... G$.."R" . 6
40.X.....M.... " FIELD SEARCH.X.F.. 4100
.~.P........ " REPLACE FIELD...... 6100.
........ .. " SORT...*.. 10000.D.4......
..".";:. R%..0 . 960......".......DO YOU
WISH TO SAVE THE DATA FILE (Y/N)?";.?..
.. G$:G$.G(F(G$."!").95):. G$."N" . 950.
S.... G$.."Y" . 920.^.... 7500.H....".";
.S....20080.~....20080...... INITIALISE.
....D$.".........................".....B
L$."
"......53280,0:.53281,0.....R%.0:F%.0
.>...DE.0:. " SPECIFY DEVICE FOR OUTPUT
DURING LISTING.D.Z...J...:.U.... MENU.[.
.........".";.8);".D A T A B A S E M E
N U".......7);"========================
===.."......A.1.11:.A$:..10);".";G(96.A)
;.15);".";A$:......I%.18:K$.".".D(R%)."
RECORD(S) ENTERED":.3500.L.... F%..0 .I%
.20:K$.".MAXIMUM OF ".D(R0)." RECORDS":.
3500......".";H(D$,24);".MINI OFFICE (C
) DATABASE SOFTWARE 1985";......".";H(D$
,22);.10);".SELECT OPTION .. ";.......Q.
P.. GET KEY INPUT...... S$:.". ..";:.S$.
"".S$."!".....S$.G(F(S$).95).F....(S$."A
".S$."K").(S$."0".S$."9").(S$."A".S$."K"
).." .";:.2020.K....S$.."A".S$.."K".S$.G
(F(S$).128).T....S$;.Z.......D.. SETUP N
EW FILE...I.. A8.1 . 14:F%(A8).0:..C.N.S
1$."":.R%.0 . .3000.U.S.. S1$."N" . ....
X..1000...... S$."A" . .9000...... S$."B
" . .4500.......*.... ARE YOU SURE MESSA
GE.Z.B..".";.9);H(D$,18);"ARE YOU SURE ?
(Y/N) ";.|.L..S1$:.". ..";:.S1$."".S1$
."!"...Q.S1$.G(F(S1$).95)...V.. S1$.."Y"
. S1$.."N" . ." .";:.3020.D....S1$;.J..
........ PRINTTAB(Y) SECTION
SPECIFY K$ AND I%. ....".";H(D$,I%)
;BL$;".".3...K.(40.C(K$)).2.M.J..".";H(D
$,I%);.K);K$;.A.O.. I%.24 . .".";.G.P...
M.T...|. .. PROC DEL.....B.0.....B.B.1:.
AR$(B,1).."" . 4030......A8.B.R%:.A9.1.
F%:AR$(A8,A9).AR$(A8.1,A9):.:.:V%.V%.1..
...R%.R%.1:B.B.1...... B.R% . V%.0...H..
V%.0 . 4020...R.../.... " FIELD SEARCH.
Q....".FIELD SEARCH:":.F%.1 .4140......
8000:.".";H(D$,19);"SEARCH ON WHICH FIEL
D ( 1 -";F%;")?";...".O.1:P.1:Q.F%:MC.1:
.5200:J.D:.".";:. 4150...,.J.1:."SEARCH
ON FIELD ONE"...6.."THIS IS A ";:A$."STR
ING".2.;.. F$,F$,F$:. H(F$(J),1)."N" . A
$."NUMERIC":. 4160.K.<.L.2:C.1:.A$;" FIE
LD:...";H(D$,4.C.3);F$;"...":. 4200.U.@.
. A$;...J.." FIELD:":. L:. C.1.L:. F$:."
...";H(D$,4.C.3);.E.T.."<";G(96.C);"> "
;F$:....Y.K$."SELECT OPTION":I%.19:. 350
0...^.. G$:. G$."" . 4190...A.G$.G(F(G$)
.95).1.C.C.F(G$).64:.C.1.C.L.4190.H.H.."
SEARCH ";:A$."STRING ?: ":. L.4 . A$."VA
LUE ?: "...R.. C.4 . A$."VALUE A ?: "...
W.MA$.".":. C.1 . MA$."Z".N.|.. A$;:MI$.
" ":MI.1:MA.F%(J):. 5000:F$.S$...... L..
2 .D1.E(F$):. C.4 ..:."VALUE B ?: ";:O.F
%(J):P..2E9.0....L..2.C.4.Q.2E9:MC.1:. 5
200:P1.D.T...K$."":I%.21:. 3500:I%.22:.
3500.J...E%.0:S.0:. B.1.R%.....K$."SEARC
HING":I%.19:. 3500:K$."":I%.20:. 3500...
... C.1 . . AR$(B,J).F$ . . 4400......C.
2 . L.2 . ."CAN'T DO AT LINE 4270 HELP
!!!":..%.... C.2 . L..2 . . E(AR$(B,J)
).D1 . . 4400.R.B.. C.3 . L..2 . . E(AR$
(B,J)).D1 . . 4400...L.. C.4 . L..2 . .
E(AR$(B,J)).D1 . E(AR$(B,J)).P1 ..4400.P
.V..:. E%.0.K$."SEARCH COMPLETED, NO REC
ORDS FOUND":I%.19:. 3500...... E%.1 .G$.
."M".K$."NO MORE ENTRIES FOUND TO MATCH"
:I%.19:.3500.6....54276,17:.A5.1.50:.:.5
4276,0.I....S$:S$.G(F(S$."!").95):. S$."
". G$.."M" . 4330.}.... V%.0 . . 4000...
...18000.........0.. " SEARCH SUCCESSFUL
.U.:.E%.1:.".";:.8600:.8700:. G$."M" . B
.R%:....D.. S.1 . K$."(M)ENU, (N)EXT REC
ORD":I%.19:.3500...I.. S..1 . ..D.N.. G$
:G$.G(F(G$."!").95):.G$."M" . B.R%:..U.X
.. G$."N" . ..`.B.. 4430...... " SET UP
FILE FROM KEYBOARD......".";.11);"S E T
U P M O D E".H.....10);"==============
======="......".";H(D$,8);"(1 TO 14)"...
...".";H(D$,6);"HOW MANY FIELDS PER RECO
RD? ";.7.F.O.2:P.1:Q.14:MC.1:.5200:F%.D.
G.K.. A9.1 . F%.X.P..".";.10);"DEFINITIO
N OF FIELD";:.F%.1.."S";...Z..".....FIEL
D NUMBER ";A9.....X.2:Y.7:. 5500.......L
....".FIELD SUMMARY:";:.8000......".";.9
);H(D$,24);"IS THIS CORRECT (Y/N)?";.>..
..G$:G$.G(F(G$."!").95):.". ..";:.G$.."Y
".G$.."N".." .";:.4610.R.... G$."Y" . 47
00......".";.9);H(D$,24);"CORRECT WHICH
FIELD ? ";... .O.2:P.1:Q.F%:MC.1:.5200:.
".";H(D$,24);.9);H(BL$,25);.S.*.A9.D:X.2
:Y.19:.5500...4..4595...\.. 7000...P....
.... DEFFN I(MI$,MA$,MI,MA).....S$."".'.
... G$:.". ..";._.... G$.".". G$."." . G
$."." . G$."." . G$.G(34). 5020.V.... G$
.G(147) . 5020...... G$.G(141) . G$.G(13
)...... G$.G(148) . G$.G(20)......(G$..M
I$.G$..MA$.C(S$).MA).(G$.G(13).C(S$)..MI
).5060......" .";.2....(G$.G(20).C(S$)..
0).(G$." ".C(S$)..0.C(S$).MA.D...255).50
60.<....5020.G.D.." .";.Y.I.S$.S$.G$:C%.
0.N.N..G$.G(20) . C%.2...X..G$.G(13) . C
%.1.....S$.H(S$,C(S$).C%)...... G$..G(13
) . .G$;.P.... C(S$)..MA.G$..G(13) .5020
.V.......P.. DEFFN R(O,P,Q,MC)...Z.D..25
5.&.D.MI$."-":MA$."9":MI.MC:MA.O:.5000:D
.E(S$).V.N..(D.P . D.Q) . S$.."" ..A.1.C
(S$):.G(20);:..M.X.. D.P . D.Q . 5220.S.
......|.. INPUT FIELD DETAILS......".";H
(D$,Y);" FIELD TITLE ";.T...MI$." ":MA$.
".":MI.1:MA.13:.5000...... C(S$).VV . VV
.C(S$).1.....F$(A9).S$.' ...".";H(D$,Y.X
);" FIELD TYPE (S/N) ";.I ...G$:G$.G(F(G
$."!").95):.". ..";:.G$.."S".G$.."N".."
.";:.5560.. ...G$."S" . ."STRING":.5590.
. B.. G$.."N" . 5560.. L.."NUMERIC".. V.
F$(A9).G$.F$(A9).. ...".";H(D$,Y.2.X);"
FIELD LENGTH ";..!..O.2:P.1:Q.23:MC.1:.5
200..!..F%(A9).D..!...."!P.. PROCI.K!Z.F
%.0:R%.0:V%.0:VV.0:L%.0:E%.0:. 6500.N!..
. I%.1 . 14:F$(I%).H(BL$,15):...!...I%.0
.1:A$(I%).BL$.BL$.H(BL$,12):B$(I%).BL$.B
L$.H(BL$,12):..S!..A$.BL$.BL$.H(BL$,12):
B$.A$:F$.A$.Y!.....!T.. PROC G.."...".RE
PLACE FIELD:":. 8000:.".SELECT FIELD? ";
.;"..O.2:P.1:Q.F%:MC.1:. 5200:A.D:..V"..
.".SEARCH ";:A$."VALUE":. H(F$(A),1)."S"
. A$."STRING".."... A$;"? ";:MI$." ":MA
$.".":MI.1:MA.F%(A):. 5000:F$.S$.."...:.
"REPLACE ";A$;"? ";:MI$." ":MA$.".":MI.1
:MA.F%(A):. 5000..#..A$.S$:.".";:K$."REP
LACING":I%.3:. 3500..#..S.0:. D.1 . R%.T
#$.. F$.AR$(D,A) . AR$(D,A).A$:S.S.1.Z#.
...Y#8.K$."COMPLETED":I%.3:. 3500..#B.K$
.D(S)." FIELD(S) REPLACED":I%.5:. 3500.H
#G..54276,17:.A5.1.50:.:.54276,0.S#L..18
000.Y#V....#D.. PROCCC..$N.E%.0:. H(F$(L
%),1)."N" . E%.1..$X....$X.. PROCSI.>$B.
R0.0:.A8.1.14:R0.R0.F%(A8).2:..C$L.R0..(
14300.R0):. R0.200 . R0.200.I$....W$L..
PROC SA.D$P.DE.8:. DEVICE=DISK:*********
**** ***********************************
****..$Q.K$."":I%.20:.3500:I%.22:.3500..
%V.K$."SAVING FILE":I%.18:.3500.!%`.."IN
PUT FILE NAME: ";.H%J.MI$."!":MA$.".":M1
.1:MA.10:.5000:..A%O.C1.44:C2.166:. 1300
0.Q%T.. 1,DE,1,S$..%~..1,F%:.1,R%:.1,R0:
.1,VV..%... A.1 . F%:.1,F%(A):.1,F$(A):.
..%... A.1 . R%..%... B.1 . F%:.1,AR$(A,
B):...%.....%.. 1..&..C1.166:C2.44:. 130
00.#&..K$."FILE SAVED":I%.18:. 3500.E&..
.54276,17:.A5.1.50:.:.54276,0.P&D..18000
.Z&N.DE.0:. RESTORE SCREEN AS OUPUT DEVI
CE..&X....&@.. PROC F..&T.."...NO";.11);
"TITLE";.11);"LENGTH S/N".U&^..A.1.F%:."
.";H(D$,3.A);..'_..A;.11);I(F$(A),C(F$(A
)).1);.35.C(D(F%(A).1)));F%(A);./'H.. .3
8);G(F(H(F$(A),1)).128).5'R...;'|...N'..
. LIST RECORDS.E'...". LIST RECORDS:"..'
...B.1.2:.F$:.".";H(D$,4.B.4);.6);"<";G(
B.192);"> ";F$..'....K'..K$."SELECT OPT
ION :":I%.20:. 3500..(B..G$:G$.G(F(G$."!
").95):.G$.."A" . G$.."B" . 8130..(G.K$.
"":I%.20:. 3500.L(L.A$.G$:K$.D(R%)." REC
ORD(S) ENTERED":I%.14:. 3500.L(V..".INPU
T RANGE":.:."FROM ";..(..O.4:P.1:Q.R%:MC
.1:. 5200:B.D.1..(..." TO ";:O.4:P.B.1:Q
.R%:MC.1:. 5200:W.D.L(...A$."B"..4,4..(.
.. A$."B" . DE.4:B.B.1:.8500:.4:.4:. B.W
. 8180..)... A$."B" . DE.0: 4:..H). B.B
.1:.".";:. 8600:S.0:. 8700:. S.1 . B.B.1
.Y). . B.W . 8200.M). . G$."M" . 8240..)
! K$."NO MORE ENTRIES":I%.19:. 3500:. G(
7)..)& .18000..)0 . V%.0 . . 4000..): ..
M)4!. PROC PR..)>!.DE,"RECORD NO. ";B:.A
8.1.F%.&*H!.DE,I(F$(A8),C(F$(A8)).1);I(B
L$,25.C(F$(A8)));": ";.8*M!.DE,AR$(B,A8)
.@*R!.:..M*.!. PROC P.K*.!."RECORD NO. "
;B:.A8.1.F%..*.!.".";H(D$,3.A8);I(F$(A8)
,C(F$(A8)).1).": ".C*.!.".";H(D$,3.A8);.
1.VV);AR$(B,A8):.:..Q*.!. PROC CH..+."K$
."(N)EXT REC, (D)ELETE, (M)ENU, (A)LTER"
:I%.19:. 3500.$+.".G$:. G$."" . 8720.7+.
"G$.G(F(G$).95).L+.". G$."M" . B.W:..]+.
". G$."N" . ..+.". G$."A" . .".";:S.1:.
9500:...+$". G$.."D" . 8720..+.". 8800:
. G$."N" . ..X+8"K$."(N)EXT RECORD, (M)E
NU":I%.19:. 3500..,B".G$:G$.G(F(G$."!").
95):.G$.."N" . G$.."M" . 8770. ,L". G$."
M" . B.W.&,V"..3,`". PROC D.N,J"K$."ARE
YOU SURE THAT YOU WISH TO DELETE":I%.19:
. 3500..,T"K$."RECORD NO. ".D(B)." (Y/N)
?":I%.20:. 3500.L,~".G$:G$.G(F(G$."!").9
5):.G$."N" . B.B.1:...,.". G$.."Y" . 883
0..,."AR$(B,1).""..-."K$."RECORD DELETED
":I%.19:. 3500.--."K$."":I%.20:. 3500.?-
."V%.V%.1:.G(7).J-.".18000.P-."..`-(#. L
OAD DATA..-+#DE.8:. DEVICE=DISK:********
***** **********************************
*****..-,#. ERASE AR$.T--#K$."":I%.20:.
3500..-.#I%.22:. 3500...<#K$."LOADING FI
LE":I%.18:. 3500.!.F#."INPUT FILE NAME:"
;.G.P#MI$."!":MA$.".":MI.1:MA.10:. 5000.
W.Z#. 1,DE,0,S$.J.D#.1,F%,R%,R0,VV...N#.
DIM AR$(R0,F%+1)...X#. A.1 . F%:.1,F%(A
),F$(A):.....#.A.1. R%.K..#. B.1 . F%:.1
,AR$(A,B):..Q. #..X..# 1....#C1.166:C2.4
4:.13000../.#.54276,17:.A5.1.50:.:.54276
,0.4/.#K$."FILE LOADED":I%.18:. 3500.?/.
#.18000.E/H#..R/.#. PROC A.\/.#.".";../.
#K$."RECORD NUMBER".D(R%.1):I%.1:. 3500.
./.$R%.R%.1:. A8.1 . F%.N/.$.".";H(D$,3.
A8);I(F$(A8),C(F$(A8)).1).": "../.$.".";
H(D$,3.A8);.1.VV);:O.F%(A8):MI$." "..0.$
.H(F$(A8),1).."N".9260.30"$P..2E9:Q.2E9:
MC.1:. 5200.G0#$AR$(R%,A8).D(D).N0'$.D..
1.AR$(R%,A8).I(D(D),C(D(D)).1)..0,$.H(F$
(A8),1)."S" .MA$.".":MI.1:MA.F%(A8):.500
0:AR$(R%,A8).S$..0@$.:...0J$K$."(M)ENU,
(N)EXT RECORD, (A)LTER":I%.23:. 3500..1T
$.G$:. G$."" . 9300..1Y$G$.G(F(G$).95).'
1^$. G$."M" . ..`1H$.G$."N".R%..R0. K$."
MEMORY FULL":I%.23:. 3500:. 9400..1R$. G
$."N" . R%.5..R0 . K$."ROOM FOR ONLY ".D
(R0.R%)." RECORD(S)".R1S$. G$."N" . R%.5
..R0 . I%.23:. 3500:. 9400..2|$. G$."A"
. B.R%:.".MODIFY RECORD:":. 9500:. 9290.
.2.$.G$."N".9205."2.$.9300.-2.$.18000.32
B$..A2.%. PROC MO._2&%."RECORD NO. ";B:.
A8.1.F%..20%.".";H(D$,3.A8);I(F$(A8),C(F
$(A8)).1).": "..21%.".";H(D$,3.A8);.1.VV
);AR$(B,A8)..2:%K$."IS THIS CORRECT (Y/N
)?":I%.4.A8:. 3500..3D%.G$:G$.G(F(G$."!"
).95):.G$."Y" . 9599.!3N%. G$.."N" . 954
0.:3X%K$."":I%.3.A8:. 3500.J3]%K$."PLEAS
E ENTER CORRECTION":I%.4.A8:. 3500..3B%.
".";H(D$,3.A8);I(F$(A8),C(F$(A8)).1).":
".F3C%.".";H(D$,3.A8);.1.VV);:O.F%(A8):M
I$." "..3G%. H(F$(A8),1).."N" .9590..3L%
P..2E9:Q.2E9:MC.1:.5200..4M%AR$(B,A8).D(
D).;4Q%. D..1 . AR$(B,A8).I(D(D),C(D(D))
.1).}4V%. H(F$(A8),1)."S" . MA$.".":MI.1
:MA.F%(A8):.5000:AR$(B,A8).S$..4%K$."":
I%.4.A8:. 3500..4.%.:...4.':..4.'. SORT
ROUTINES.R4.'.".MULTI-FIELD SORT:"..4$'B
%.F%:. F%.4 . B%.4..4.'. F%.1 . . 8000.;
58'.F%.1 .."..SORT TO BE DONE ON FIELD O
NE.":Z.0:A.1:.10097.M5B'.:.".SELECT UP T
O";B%;" FIELDS FOR SORT":Z..1..5L'Z.Z.1:
."SORT FIELD";Z.1;": ";:O.C(D(F%)):P..(Z
.0):Q.F%:MC.0.Y5V'. 5200:A(Z).D:.:. Z.3
. A(Z)..0 . 10060..5`'. Z.0 . 10070..6J'
. A(Z).0 . Z.Z.1..6K'C.0:.A.0.Z.1:.B.A.1
. Z:. A(A).A(B) . C.1.L6L'. B,A:.".";:.
C.1 . 10096.T6M'K$."ILLEGAL SELECTION":
I%.15:. 3500.6N'.18000..6O'. 10000.E6P'
.".FIELD ORDER FOR SORT:";:.A.0.Z:.A(A);
",";:.:.G(20)..7Q'A.A(0):."...SORT INTO
(A)SCENDING OR (D)ESCENDING ORDER ?".9
7R'.G$:G$.G(F(G$."!").95):. G$.."A".G$..
"D".10098.O7S'K$."SORTING":I%.21:. 3500:
. Z..0 . .11000:. 10150.{7T'. 10200..7.'
K$."SORTED":. 3500..7.'.54276,17:.A5.1.5
0:.:.54276,0..7.'.18000.E7.'...7X'. SORT
ON SINGLE FIELD..8Y'T.(H(F$(A),1)."N").
.2.(H(F$(A),1)."S")..1..8.'.A9.1.R%:B$(A
9).AR$(A9,A):..?8.'N.R%:. 17000.Q8.'. G$
.."D" . ...8.(.A9.1..(R%.2):.A8.1.F%:K$.
AR$(A9,A8):AR$(A9,A8).AR$(R%.1.A9,A8)..8
.(AR$(R%.1.A9,A8).K$:.:.:..I8.*. MULTI F
IELD SORT..8.+A.A(0):. 10200:. SORT FIRS
T FIELD..8.+. A5.0.Z.1.89.+T.(H(F$(A(A5.
1)),1)."N")..2.(H(F$(A(A5.1)),1)."S")..1
.F9 +P1.0:P2.0.U9*+. A7.1. R%..94+. AR$(
A7,A(A5))..AR$(A7.1,A(A5)) . P1..0 . 110
70..95+. A5.0 . 11069.H96+. AR$(A7,A(0))
..AR$(A7.1,A(0)) . 11065..97+. A5.1 . 11
069..:8+. AR$(A7,A(1)).AR$(A7.1,A(1)) .
11069..:9+A5.Z:A7.R%:. 11080.&:=+P1.A7.C
:>+. AR$(A7,A(A5))..AR$(A7.1,A(A5)) . P1
..0 . P2.A7:. 11200.I:H+..O:R+..U:\+...:
.+. MATCH FOUND..:E+. A9.1 . 16:B$(A9)."
":..J:J+.A8.P1.P2:B$(A8).AR$(A8,A(A5.1))
:...:T+L.P1:R.P2:N.P2.P1.1:B$(P1.1)."":B
$(P2.1).G(255)..;.+. 17100..;.+.G$.."D"
. 11250.Q;.+.A9.0..((P2.P1).2):. A8.1.F%
:K$.AR$(A9.P1,A8)..;.+AR$(A9.P1,A8).AR$(
P2.A9,A8):AR$(P2.A9,A8).K$:.:...;.+P1.0.
.;.+...;H2. A7.1 . R%.B;R2. A8.1 . F%:A$
."":A1$.""..;.2. A9.1 . C(AR$(A7,A8))..<
.2A1$.G(C2):.J(AR$(A7,A8),A9,1)..G(C1).A
1$.J(AR$(A7,A8),A9,1).+<.2A$.A$.A1$.4<.2
. A9.N<.3AR$(A7,A8).A$:. A8,A7.T<.3...<H
B. QUICK SORT ROUTINE - SINGLE FIELD ENT
RY POINT..<RBL.1:R.N..<|BB$(0)."":B$(N.1
).G(255)..<LB. QUICK SORT ROUTINE - MULT
I FIELD ENTRY POINT..<VB. A9.1.10:S(A9).
0:...=.BP.1:M.10..=DC. R.L.M . 17630.$=N
CI.L.,=XCJ.R.U=BCK$.B$(L):.A8.1.F%:K$(A8
).AR$(L,A8):...=VC. (K$.B$(J).T.1).(E(K$
).E(B$(J)).T.2) . 17280..=WC. 17310..=.C
J.J.1..=.C. 17270..=.C. J.I . 17340..=.C
B$(I).K$:.A8.1.F%:AR$(I,A8).K$(A8):...=.
C. 17490..>.CB$(I).B$(J):.A8.1.F%:AR$(I,
A8).AR$(J,A8):..)>FCI.I.1.]>ZC. (B$(I).K
$ . T.1).(E(B$(I)).E(K$).T.2) . 17380.I>
.C. 17410.S>.CI.I.1.>.C. 17370..>.D. J.
I . 17450..>.DB$(J).K$:. A8.1 . F%:AR$(J
,A8).K$(A8):..E>.DI.J.Q> D. 17490..?*DB$
(J).B$(I):. A8.1 . F%:AR$(J,A8).AR$(I,A8
):...?4DJ.J.1..?>D. 17270./?RD. R.I.I.L
. 17560.:?\DS(P).R.D?FDP.P.1.Q?PDS(P).I.
1.[?ZDP.P.1.E?.DR.I.1.Q?.D. 17220.~?.DS(
P).I.1..?.DP.P.1..?.DS(P).L..?.DP.P.1..?
.DL.I.1..?JD. 17220..?.DJ.L.E?.DJ.J.1.W?
.D. J.R . 17750..@.DK$.B$(J):. A8.1 . F%
:K$(A8).AR$(J,A8):...@.EI.J.1.@@.E. (B$(
I).K$ .T.1).(E(B$(I)).E(K$).T.2) . 17690
.L@.E. 17720..@.EB$(I.1).B$(I):. A8.1.F%
:AR$(I.1,A8).AR$(I,A8):...@$EI.I.1..@.E.
17680.F@8EB$(I.1).K$:. A8.1 . F%:AR$(I.
1,A8).K$(A8):..R@BE. 17640..@VE. P.1 . 1
7820..@`EP.P.1..@JEL.S(P)..ATEP.P.1..A~E
R.S(P)..A.E. 17220. A.E..JAPF.G(7)G(7):.
I.1.300:.G$:.G$.."".I.1001.RAUF.:..]A N.
DATA..A*N."LOAD OLD FILE","SETUP NEW FI
LE","ADD RECORDS","FIELD SUMMARY"..A4N."
MODIFY RECORD","LIST RECORDS","FIELD SEA
RCH","REPLACE FIELD"..B>N."MULTI-FIELD S
ORT","SAVE CURRENT FILE","END PROGRAM".V
BHN."LIST RECORDS TO SCREEN","LIST RECOR
DS TO PRINTER".{BRN. "SEARCH FOR A SPECI
FIC STRING".DB\N.4,"SEARCH FOR A VALUE X
","SEARCH FOR VALUES>X","SEARCH OR VALUE
S<X"..BFN."SEARCH FOR A<X<B"..BPN.56334,
B(56334).254..CUNA.B(43).B(44).256:C.B(4
5).B(46).256.WCZN.B.1.9:.630.B,F(J("SYS6
4738".G(13),B,1)):.:.198,9:.".".ICN.B.A
.C:.B,0:..OC.N....
> CLICK IMAGE PREVIEW FOR FULL MODAL