DBMAIN
FILE INFORMATION
FILENAME(S): DBMAIN
FILE TYPE(S): PRG
FILE SIZE: 11.3K
FIRST SEEN: 2025-11-30 21:24:04
APPEARS ON: 1 disk(s)
FILE HASH
e5f3ed2d19292b3db347ed823144efc339d75b1450055dfa17c5e36e65b33c5c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COMPUFILE | DBMAIN | PRG | DuncanTwain | 17 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 00 00 9E 32 30 37 33 00 00 00 20 52 |.......2073... R|
00000010: 08 4C 45 B7 20 52 08 4C 99 A4 20 52 08 AD FF 02 |.LE. R.L.. R....|
00000020: C9 64 F0 17 A9 3F 85 BB A9 08 85 BC A9 06 85 B7 |.d...?..........|
00000030: A9 00 85 B9 A2 00 A0 A0 20 D5 FF 68 68 4C 48 A0 |........ ..hhLH.|
00000040: 52 54 4C 2D 36 34 20 52 08 20 71 AF 20 5F 08 60 |RTL-64 R. q. _.`|
00000050: A2 01 60 A9 03 05 00 85 00 A9 FE 25 01 85 01 60 |..`........%...`|
00000060: 48 A9 03 05 00 85 00 A5 01 09 01 85 01 68 60 20 |H............h` |
00000070: 5F 08 20 47 A3 20 52 08 60 40 00 02 87 00 87 00 |_. G. R.`@......|
00000080: 94 00 00 01 38 35 00 01 00 54 5B 09 56 4C 2D 44 |....85...T[.VL-D|
00000090: 42 4D 41 49 4E 57 49 88 90 50 21 00 00 80 50 00 |BMAINWI..P!...P.|
000000A0: 99 22 93 22 00 99 22 05 20 20 22 3A 88 90 50 18 |."."..". ":..P.|
000000B0: 00 00 89 17 50 89 0D B8 13 D2 02 80 D1 09 80 D1 |....P...........|
000000C0: 10 8A 19 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |...-------------|
000000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D D2 17 8A 01 |------------....|
000000E0: 20 D2 1E 89 27 D1 25 81 D1 2C 89 50 44 00 2C 92 | ...'.%..,.PD.,.|
000000F0: 1E 8A 01 20 01 D2 1E 46 81 D1 2C 89 50 44 00 2C |... ...F..,.PD.,|
00000100: 92 33 8A 01 2E 01 D2 33 46 8A 01 13 D2 3A 81 D1 |.3.....3F....:..|
00000110: 2C 89 18 44 00 2C 92 3A 8A 01 11 01 D2 3A 46 00 |,..D.,.:.....:F.|
00000120: 86 52 24 28 36 35 29 3A 41 00 04 00 86 41 43 25 |.R$(65):A....AC%|
00000130: 28 32 31 29 3A 41 00 06 00 86 4B 25 28 36 35 29 |(21):A....K%(65)|
00000140: 3A 41 00 08 00 86 52 4E 24 28 32 31 29 3A 41 00 |:A....RN$(21):A.|
00000150: 0A 00 86 4E 24 28 32 31 29 3A 41 00 0C 8D 02 D0 |...N$(21):A.....|
00000160: D1 41 00 86 50 25 28 4D 52 25 29 3A 41 00 0E 00 |.A..P%(MR%):A...|
00000170: 86 4B 31 24 28 4D 52 25 29 3A 41 00 10 00 86 46 |.K1$(MR%):A....F|
00000180: 4C 25 28 32 31 29 3A 41 00 12 00 86 5A 24 28 32 |L%(21):A....Z$(2|
00000190: 31 29 3A 41 00 14 00 86 50 4C 25 28 32 31 29 3A |1):A....PL%(21):|
000001A0: 41 00 16 00 86 48 52 24 28 32 31 2C 32 29 3A 41 |A....HR$(21,2):A|
000001B0: 00 18 00 86 48 52 25 28 37 30 29 3A 41 00 1A 00 |....HR%(70):A...|
000001C0: 86 53 46 25 28 31 30 29 3A 41 00 1C 00 86 53 43 |.SF%(10):A....SC|
000001D0: 25 28 31 30 29 3A 41 00 1E 00 86 46 46 25 28 31 |%(10):A....FF%(1|
000001E0: 30 29 3A 41 00 20 00 86 46 43 25 28 31 30 29 3A |0):A. ..FC%(10):|
000001F0: 41 00 22 89 08 D1 48 89 08 D1 4F 88 90 54 00 00 |A."...H...O..T..|
00000200: 00 D0 56 00 9F 31 2C 38 2C 31 35 00 98 31 2C 22 |..V..1,8,15..1,"|
00000210: 49 30 22 3A 8A 08 44 42 53 54 41 54 55 53 D2 5D |I0":..DBSTATUS.]|
00000220: 8A 03 4E 44 58 D2 64 81 D1 6B 80 D1 72 00 9F 38 |..NDX.d..k..r..8|
00000230: 2C 38 2C 38 2C 44 4E 24 3A 4A D6 6A 92 79 8A 02 |,8,8,DN$:J.j.y..|
00000240: 36 32 2B 4F 0B 00 A0 4C 55 25 3A 48 E6 48 92 79 |62+O...LU%:H.H.y|
00000250: 8A 02 32 31 2B 4F 0B 00 A0 4C 55 25 3A 48 E6 48 |..21+O...LU%:H.H|
00000260: 00 84 38 2C 43 31 24 00 84 38 2C 44 4E 24 00 A0 |..8,C1$..8,DN$..|
00000270: 38 3A 92 5D 89 09 B8 14 8A 09 43 4F 4D 50 55 46 |8:.]......COMPUF|
00000280: 49 4C 45 2B 4F 05 48 E6 48 92 5D 92 1E 01 89 0A |ILE+O.H.H.].....|
00000290: B8 14 D2 5D 00 99 00 99 22 52 45 41 44 49 4E 47 |...]...."READING|
000002A0: 20 22 3B 44 4E 24 3B 22 20 49 4E 46 4F 52 4D 41 | ";DN$;" INFORMA|
000002B0: 54 49 4F 4E 22 3A 48 E5 E7 8A 04 2E 48 44 52 D2 |TION":H.....HDR.|
000002C0: 64 81 D1 72 00 99 22 93 22 3B 00 99 22 45 4E 54 |d..r..".";.."ENT|
000002D0: 45 52 20 54 48 45 20 4E 41 4D 45 20 41 4E 44 20 |ER THE NAME AND |
000002E0: 53 49 5A 45 20 4F 46 20 45 41 43 48 20 46 49 45 |SIZE OF EACH FIE|
000002F0: 4C 44 22 00 99 22 46 4F 52 20 57 48 49 43 48 20 |LD".."FOR WHICH |
00000300: 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 49 53 20 54 |INFORMATION IS T|
00000310: 4F 20 42 45 20 53 41 56 45 44 22 00 99 22 46 49 |O BE SAVED".."FI|
00000320: 45 4C 44 20 23 20 20 20 20 4E 41 4D 45 20 20 20 |ELD # NAME |
00000330: 20 20 20 20 20 20 20 20 20 53 49 5A 45 22 3A 81 | SIZE":.|
00000340: D1 72 89 14 44 00 72 00 99 C8 28 56 54 24 2C 4E |.r..D.r...(VT$,N|
00000350: 52 25 AA 33 29 3B A3 35 29 4E 52 25 3B A3 31 30 |R%.3);.5)NR%;.10|
00000360: 29 48 52 24 28 4E 52 25 2C 31 29 3B A3 32 38 29 |)HR$(NR%,1);.28)|
00000370: 3B 48 52 24 28 4E 52 25 2C 32 29 3A 47 00 72 00 |;HR$(NR%,2):G.r.|
00000380: 99 22 2A 2A 2A 2A 20 45 4E 54 45 52 20 27 45 4E |."**** ENTER 'EN|
00000390: 44 27 20 57 48 45 4E 20 44 4F 4E 45 20 22 00 99 |D' WHEN DONE "..|
000003A0: 22 13 22 3A 80 D1 87 81 D1 72 89 14 44 00 72 00 |".":.....r..D.r.|
000003B0: 99 C8 28 56 54 24 2C 4E 52 25 AA 33 29 3B C8 28 |..(VT$,NR%.3);.(|
000003C0: 53 50 24 2C 33 30 29 00 99 C8 28 56 54 24 2C 4E |SP$,30)...(VT$,N|
000003D0: 52 25 AA 33 29 3B A3 35 29 4E 52 25 3B A3 31 30 |R%.3);.5)NR%;.10|
000003E0: 29 48 52 24 28 4E 52 25 2C 31 29 3B A3 32 38 29 |)HR$(NR%,1);.28)|
000003F0: 3B 48 52 24 28 4E 52 25 2C 32 29 22 20 20 22 00 |;HR$(NR%,2)" ".|
00000400: 99 C8 28 56 54 24 2C 4E 52 25 AA 33 29 3B 00 99 |..(VT$,NR%.3);..|
00000410: A3 35 29 3B 4E 52 25 3B A3 38 29 3B 00 85 22 22 |.5);NR%;.8);..""|
00000420: 3B 48 52 24 28 4E 52 25 2C 31 29 3A 91 72 81 91 |;HR$(NR%,1):.r..|
00000430: 72 81 A2 18 92 33 01 89 08 B8 14 E2 18 91 72 81 |r....3........r.|
00000440: A2 18 83 B8 14 8A 03 45 4E 44 2B 91 72 89 14 2A |.......END+.r..*|
00000450: 07 4F 05 48 F2 AB 00 99 22 91 1D 1D 1D 1D 1D 1D |.O.H....".......|
00000460: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000470: 1D 1D 20 20 22 3B 00 85 22 22 3B 48 52 24 28 4E |.. ";.."";HR$(N|
00000480: 52 25 2C 32 29 3A 91 72 82 A2 18 B8 11 D1 8E 91 |R%,2):.r........|
00000490: 8E 81 2D 91 8E 89 3C 2A 07 4F 22 00 99 22 56 41 |..-...<*.O".."VA|
000004A0: 4C 55 45 20 4F 55 54 20 4F 46 20 52 41 4E 47 45 |LUE OUT OF RANGE|
000004B0: 22 00 99 22 91 22 3B 3A 48 F3 AA 91 8E 91 87 01 |"..".";:H.......|
000004C0: 81 01 89 FF 2D 4F 05 48 F2 BC 00 99 22 4D 41 58 |....-O.H...."MAX|
000004D0: 49 4D 55 4D 20 52 45 43 4F 52 44 20 53 49 5A 45 |IMUM RECORD SIZE|
000004E0: 20 45 58 43 45 45 44 45 44 22 3A 91 72 82 89 FD | EXCEEDED":.r...|
000004F0: 91 87 02 B8 10 E2 18 00 99 22 46 49 45 4C 44 20 |........."FIELD |
00000500: 53 49 5A 45 20 41 44 4A 55 53 54 45 44 20 54 4F |SIZE ADJUSTED TO|
00000510: 2D 22 3B 48 52 24 28 4E 52 25 2C 32 29 00 85 22 |-";HR$(NR%,2).."|
00000520: 50 52 45 53 53 20 52 45 54 55 52 4E 20 54 4F 20 |PRESS RETURN TO |
00000530: 43 4F 4E 54 49 4E 55 45 20 20 9D 9D 22 3B 4C 24 |CONTINUE ..";L$|
00000540: 3A 48 F5 3C 91 87 91 72 82 A2 18 B8 11 01 81 01 |:H.<...r........|
00000550: D1 87 47 00 72 91 72 81 02 D1 72 00 85 22 4F 4B |..G.r.r...r.."OK|
00000560: 41 59 20 59 2F 4E 20 20 59 9D 9D 9D 22 3B 4C 24 |AY Y/N Y...";L$|
00000570: 3A 92 95 81 B8 14 8A 01 59 2E 4F 05 48 F5 3C 00 |:.......Y.O.H.<.|
00000580: 99 00 99 22 2A 2A 2A 2A 20 50 4C 45 41 53 45 20 |..."**** PLEASE |
00000590: 57 41 49 54 20 2A 2A 2A 2A 22 00 99 22 53 41 56 |WAIT ****".."SAV|
000005A0: 49 4E 47 20 44 41 54 41 42 41 53 45 20 50 41 52 |ING DATABASE PAR|
000005B0: 41 4D 45 54 45 52 53 22 00 98 31 2C 22 53 30 3A |AMETERS"..1,"S0:|
000005C0: 22 AA 44 4E 24 AA 46 24 3A 4A D6 6A 00 9F 38 2C |".DN$.F$:J.j..8,|
000005D0: 38 2C 38 2C 22 30 3A 22 AA 44 4E 24 AA 46 24 AA |8,8,"0:".DN$.F$.|
000005E0: 22 2C 53 2C 57 22 3A 4A D6 6A 00 98 38 2C 4E 52 |",S,W":J.j..8,NR|
000005F0: 25 3B 43 52 24 3B 52 53 25 3B 43 52 24 3B 3A 81 |%;CR$;RS%;CR$;:.|
00000600: D1 9C 91 72 44 00 9C 00 98 38 2C 48 52 24 28 4A |...rD....8,HR$(J|
00000610: 25 2C 31 29 3B 43 52 24 3B 00 98 38 2C 48 52 24 |%,1);CR$;..8,HR$|
00000620: 28 4A 25 2C 32 29 3B 43 52 24 3B 3A 47 00 9C 00 |(J%,2);CR$;:G...|
00000630: A0 38 3A 80 D1 72 00 98 31 2C 22 53 30 3A 22 AA |.8:..r..1,"S0:".|
00000640: 44 4E 24 AA 22 2E 43 4E 54 22 3A 4A D6 6A 00 9F |DN$.".CNT":J.j..|
00000650: 38 2C 38 2C 38 2C 22 30 3A 22 AA 44 4E 24 AA 22 |8,8,8,"0:".DN$."|
00000660: 2E 43 4E 54 2C 53 2C 57 22 00 98 38 2C 4E 52 25 |.CNT,S,W"..8,NR%|
00000670: 3B 43 52 24 3B 00 A0 38 3A 92 5D 8A 07 2E 4E 44 |;CR$;..8:.]...ND|
00000680: 58 2C 4C 2C 01 D2 A3 00 9F 39 2C 38 2C 39 2C 46 |X,L,.....9,8,9,F|
00000690: 58 24 AA C7 28 52 53 25 29 3A 4A D6 6A 81 D1 AA |X$..(RS%):J.j...|
000006A0: 91 B1 44 00 AA 91 AA 91 AA A2 0C 92 33 01 91 AA |..D.........3...|
000006B0: A1 12 B8 14 E2 0C 47 00 AA 81 D1 9C 89 0A 44 00 |......G.......D.|
000006C0: 9C 4A E9 FE 47 00 9C 00 A0 39 3A 4C 81 D1 B8 80 |.J..G....9:L....|
000006D0: 80 E1 0E 80 80 E1 1C 91 72 81 01 D1 72 80 8A 00 |........r...r...|
000006E0: E2 0C 00 99 22 93 D3 43 52 45 45 4E 20 C1 2E 31 |...."..CREEN ..1|
000006F0: 22 00 99 22 49 4E 20 54 48 45 20 22 44 4E 24 22 |".."IN THE "DN$"|
00000700: 20 46 49 4C 45 22 00 99 22 59 4F 55 20 41 52 45 | FILE".."YOU ARE|
00000710: 20 45 4E 54 45 52 49 4E 47 20 52 45 43 4F 52 44 | ENTERING RECORD|
00000720: 20 23 20 22 4E 52 25 00 99 3A 81 D1 AA 91 B1 44 | # "NR%..:.....D|
00000730: 00 AA 91 AA A2 0C 8A 00 2B 4F 09 91 AA 8A 01 2E |........+O......|
00000740: E2 0C 91 AA 89 D1 B8 0E E1 1A 91 B1 91 AA 01 89 |................|
00000750: D2 B8 0E E1 1A 00 99 48 52 24 28 49 25 2C 31 29 |.......HR$(I%,1)|
00000760: 22 3A 20 3E 22 3B 00 99 C8 28 4E 24 28 49 25 29 |": >";...(N$(I%)|
00000770: AA 53 50 24 2C 46 4C 25 28 49 25 29 29 3B 22 3C |.SP$,FL%(I%));"<|
00000780: 22 3A 47 00 AA 00 99 22 13 11 11 11 22 3A 81 D1 |":G...."....":..|
00000790: AA 91 B1 44 00 AA 91 AA 8A 00 E2 0C 89 D1 91 AA |...D............|
000007A0: A1 1A 50 89 D2 91 B1 91 AA 01 A1 1A 50 00 99 48 |..P.........P..H|
000007B0: 52 24 28 49 25 2C 31 29 22 3A 22 3B 00 85 22 22 |R$(I%,1)":";..""|
000007C0: 3B 4E 24 28 49 25 29 3A 91 AA A2 0C B8 0F D1 BF |;N$(I%):........|
000007D0: 91 AA A2 0C 81 B8 15 8A 01 3C 2B 4F 10 91 AA 91 |.........<+O....|
000007E0: AA A2 0C 91 BF 81 02 B8 14 E2 0C 91 AA 91 AA A2 |................|
000007F0: 0C 92 1E 01 91 AA A1 12 B8 14 E2 0C 47 00 AA 00 |............G...|
00000800: 99 00 85 22 4F 4B 41 59 20 59 2F 4E 20 20 59 9D |..."OKAY Y/N Y.|
00000810: 9D 9D 22 3B 4C 24 3A 80 D1 10 92 95 8A 01 59 2B |..";L$:.......Y+|
00000820: 4F 05 48 EF D8 48 F1 1E 91 72 D1 9C 91 9C 8D 01 |O.H..H...r......|
00000830: 00 04 B8 01 D1 C6 91 9C 91 C6 8D 01 00 03 02 D1 |................|
00000840: CD 00 98 31 2C 22 50 22 C7 28 39 29 C7 28 4A 4C |...1,"P".(9).(JL|
00000850: 25 29 C7 28 4A 48 25 29 C7 28 30 29 3A 8A 03 41 |%).(JH%).(0):..A|
00000860: 44 44 D2 D4 4A D6 6A 92 79 8A 02 35 30 2B 4F 11 |DD..J.j.y..50+O.|
00000870: 00 98 39 2C 22 2E 45 4F 46 2E 22 3A 48 EF BF 80 |..9,".EOF.":H...|
00000880: 8A 00 E2 0C 81 D1 AA 91 B1 44 00 AA 80 80 A2 0C |.........D......|
00000890: 91 AA A2 0C 01 92 02 01 E2 0C 46 00 98 39 2C 4E |..........F..9,N|
000008A0: 24 28 30 29 3B 3A 4A D6 6A 92 79 8A 02 35 30 2B |$(0);:J.j.y..50+|
000008B0: 4F 05 48 EF BF 00 85 22 4D 4F 52 45 20 28 59 2F |O.H...."MORE (Y/|
000008C0: 4E 29 20 20 59 9D 9D 9D 22 3B 4C 24 3A 92 95 8A |N) Y...";L$:...|
000008D0: 01 59 2B 4F 05 48 F1 29 80 D1 10 4A EF 1F 48 D8 |.Y+O.H.)...J..H.|
000008E0: C1 00 98 31 2C 22 53 30 3A 22 AA 44 4E 24 AA 22 |...1,"S0:".DN$."|
000008F0: 2E 43 4E 54 22 3A 4A D6 6A 00 9F 38 2C 38 2C 38 |.CNT":J.j..8,8,8|
00000900: 2C 22 30 3A 22 AA 44 4E 24 AA 22 2E 43 4E 54 2C |,"0:".DN$.".CNT,|
00000910: 53 2C 57 22 00 98 38 2C 4E 52 25 3B 43 52 24 3B |S,W"..8,NR%;CR$;|
00000920: 00 A0 38 3A 4C 4A D0 51 80 A1 20 80 2B 4F 05 48 |..8:LJ.Q.. .+O.H|
00000930: ED D0 80 D1 DB 00 99 22 13 22 3A 81 D1 E2 91 72 |.......".":....r|
00000940: 44 00 E2 91 E2 D1 9C 4A EA 9F 4A CE 8F 81 A2 10 |D......J..J.....|
00000950: 92 E9 2B 4F 1D 00 99 22 93 D3 43 52 45 45 4E 20 |..+O..."..CREEN |
00000960: D3 45 41 52 43 48 2E 32 20 20 22 3B 3A 4A EA 3F |.EARCH.2 ";:J.?|
00000970: 81 A2 10 92 E9 2E 4F 05 48 ED EF 00 99 22 30 20 |......O.H...."0 |
00000980: D2 45 54 55 52 4E 20 54 4F 20 54 48 45 20 4D 41 |.ETURN TO THE MA|
00000990: 49 4E 20 4D 45 4E 55 22 00 99 22 31 20 C3 4F 4E |IN MENU".."1 .ON|
000009A0: 54 49 4E 55 45 20 53 45 41 52 43 48 49 4E 47 22 |TINUE SEARCHING"|
000009B0: 00 99 22 32 20 CD 41 4B 45 20 43 48 41 4E 47 45 |.."2 .AKE CHANGE|
000009C0: 53 20 54 4F 20 54 48 49 53 20 52 45 43 4F 52 44 |S TO THIS RECORD|
000009D0: 22 00 85 22 57 48 49 43 48 20 20 31 9D 9D 9D 22 |".."WHICH 1..."|
000009E0: 3B 53 24 3A 92 F0 B8 11 D1 F7 91 F7 80 2D 91 F7 |;S$:.........-..|
000009F0: 82 2A 07 4F 0C 00 99 22 91 22 3B 3A 48 EE 2F 91 |.*.O...".";:H./.|
00000A00: F7 80 2B 4F 05 48 D8 C1 91 F7 82 2B 4F 05 4A EC |..+O.H.....+O.J.|
00000A10: 49 47 00 E2 00 99 22 54 48 41 54 27 53 20 41 4C |IG...."THAT'S AL|
00000A20: 4C 20 4F 46 20 54 48 45 4D 2E 20 22 3A 4A ED 3A |L OF THEM. ":J.:|
00000A30: 00 99 22 4E 4F 57 20 59 4F 55 20 4D 41 59 3A 22 |.."NOW YOU MAY:"|
00000A40: 00 99 22 30 20 D2 45 54 55 52 4E 20 54 4F 20 54 |.."0 .ETURN TO T|
00000A50: 48 45 20 4D 41 49 4E 20 4D 45 4E 55 22 00 99 22 |HE MAIN MENU".."|
00000A60: 31 20 C4 4F 20 41 4E 4F 54 48 45 52 20 53 45 41 |1 .O ANOTHER SEA|
00000A70: 52 43 48 20 4B 45 59 22 00 99 00 85 22 57 48 49 |RCH KEY"...."WHI|
00000A80: 43 48 20 20 31 9D 9D 9D 22 3B 53 24 3A 92 F0 B8 |CH 1...";S$:...|
00000A90: 11 D1 F7 91 F7 80 2D 91 F7 82 2A 07 4F 0C 00 99 |......-...*.O...|
00000AA0: 22 91 22 3B 3A 48 ED 86 91 F7 80 2B 4F 05 48 D8 |".";:H.....+O.H.|
00000AB0: C1 91 F7 81 2B 4F 05 48 EE DB 91 F7 82 2B 4F 08 |....+O.H.....+O.|
00000AC0: 4A EC 49 48 ED D4 00 99 22 50 52 45 53 53 20 41 |J.IH...."PRESS A|
00000AD0: 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E |NY KEY TO CONTIN|
00000AE0: 55 45 22 00 A1 41 24 3A 92 79 8A 00 2B 4F 05 48 |UE"..A$:.y..+O.H|
00000AF0: ED 1D 80 D1 DB 00 99 22 93 13 22 3A 4C 00 99 22 |......."..":L.."|
00000B00: 93 D3 43 52 45 45 4E 20 C3 2E 31 20 22 3A 80 80 |..CREEN ..1 ":..|
00000B10: E1 0E 80 80 E1 1C 00 99 22 C5 4E 54 45 52 20 30 |........".NTER 0|
00000B20: 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 54 48 | TO RETURN TO TH|
00000B30: 45 20 4D 45 4E 55 22 00 99 22 C5 4E 54 45 52 20 |E MENU"..".NTER |
00000B40: 54 48 45 20 4E 55 4D 42 45 52 20 4F 46 20 54 48 |THE NUMBER OF TH|
00000B50: 45 20 52 45 43 4F 52 44 22 00 85 22 59 4F 55 20 |E RECORD".."YOU |
00000B60: 57 41 4E 54 20 54 4F 20 43 48 41 4E 47 45 20 20 |WANT TO CHANGE |
00000B70: A0 9D 9D 9D 22 3B 52 43 25 3A 91 FE D1 9C 91 FE |....";RC%:......|
00000B80: 80 2D 91 FE 91 72 2A 07 4F 20 00 99 22 52 45 43 |.-...r*.O .."REC|
00000B90: 4F 52 44 20 4F 55 54 20 4F 46 20 52 41 4E 47 45 |ORD OUT OF RANGE|
00000BA0: 22 3A 4A D0 EA 48 ED 03 91 FE 80 2B 4F 05 48 D8 |":J..H.....+O.H.|
00000BB0: C1 4A EC 49 48 ED 03 4A EB 49 00 99 22 93 D3 43 |.J.IH..J.I.."..C|
00000BC0: 52 45 45 4E 20 C3 2E 32 20 20 22 48 52 24 28 30 |REEN ..2 "HR$(0|
00000BD0: 2C 31 29 22 3A 20 22 3B 4A 25 3A 81 D1 AA 91 B1 |,1)": ";J%:.....|
00000BE0: 44 00 AA 00 99 49 25 22 20 22 48 52 24 28 49 25 |D....I%" "HR$(I%|
00000BF0: 2C 31 29 22 3A 20 20 22 4E 24 28 49 25 29 3A 47 |,1)": "N$(I%):G|
00000C00: 00 AA 00 99 00 99 00 99 22 D2 45 2D 4B 45 59 20 |........".E-KEY |
00000C10: 54 48 45 20 46 49 45 4C 44 20 54 48 41 54 20 59 |THE FIELD THAT Y|
00000C20: 4F 55 20 57 41 4E 54 20 54 4F 20 43 48 41 4E 47 |OU WANT TO CHANG|
00000C30: 45 22 00 99 22 13 22 3A 81 D1 AA 91 B1 44 00 AA |E"..".":.....D..|
00000C40: 00 99 49 25 22 20 22 48 52 24 28 49 25 2C 31 29 |..I%" "HR$(I%,1)|
00000C50: 22 3A 22 3B 00 85 4E 24 28 49 25 29 3A 91 AA 91 |":";..N$(I%):...|
00000C60: AA A2 0C 92 1E 01 91 AA A1 12 B8 14 E2 0C 47 00 |..............G.|
00000C70: AA 00 99 22 93 22 3B 3A 81 D1 DB 4A EA 3F 00 85 |...".";:...J.?..|
00000C80: 22 CD 4F 52 45 20 46 49 45 4C 44 20 43 48 41 4E |".ORE FIELD CHAN|
00000C90: 47 45 53 20 28 59 2F 4E 29 20 20 59 9D 9D 9D 22 |GES (Y/N) Y..."|
00000CA0: 3B 4C 24 3A 92 95 8A 01 59 2B 4F 05 48 EC 46 91 |;L$:....Y+O.H.F.|
00000CB0: FE D1 9C 4A E9 FE 4C 91 9C 8D 01 00 04 B8 01 D1 |...J..L.........|
00000CC0: C6 91 9C 91 C6 8D 01 00 03 02 D1 CD 00 98 31 2C |..............1,|
00000CD0: 22 50 22 C7 28 39 29 C7 28 4A 4C 25 29 C7 28 4A |"P".(9).(JL%).(J|
00000CE0: 48 25 29 C7 28 30 29 3A 4A D6 6A 80 8A 00 E2 0C |H%).(0):J.j.....|
00000CF0: 81 D1 AA 91 B1 44 00 AA 91 AA 8A 00 E2 0C 81 D5 |.....D..........|
00000D00: 01 05 91 AA A1 12 44 01 05 00 A1 23 39 2C 43 24 |......D....#9,C$|
00000D10: 3A 96 01 0C 8A 00 2B 4F 08 8A 01 20 D6 01 0C 96 |:.....+O... ....|
00000D20: 01 0C B8 12 89 30 2D 4F 08 8A 01 20 D6 01 0C 96 |.....0-O... ....|
00000D30: 01 0C B8 12 89 DA 2A 4F 08 8A 01 20 D6 01 0C 91 |......*O... ....|
00000D40: AA 91 AA A2 0C 96 01 0C 01 E2 0C 47 01 05 00 A1 |...........G....|
00000D50: 23 39 2C 43 24 3A 47 00 AA 80 91 9C B8 10 E2 0C |#9,C$:G.........|
00000D60: 4C 91 9C 8D 01 00 04 B8 01 D1 C6 91 9C 91 C6 8D |L...............|
00000D70: 01 00 03 02 D1 CD 00 98 31 2C 22 50 22 C7 28 39 |........1,"P".(9|
00000D80: 29 C7 28 4A 4C 25 29 C7 28 4A 48 25 29 C7 28 30 |).(JL%).(JH%).(0|
00000D90: 29 3A 4A D6 6A 80 8A 00 E2 0C 81 D1 AA 91 B1 44 |):J.j..........D|
00000DA0: 00 AA 91 AA 8A 00 E2 0C 00 84 39 2C 4E 24 28 49 |..........9,N$(I|
00000DB0: 25 29 3A 4A D6 6A 47 00 AA 80 91 9C B8 10 E2 0C |%):J.jG.........|
00000DC0: 4C 00 99 22 20 20 22 48 52 24 28 30 2C 31 29 22 |L.." "HR$(0,1)"|
00000DD0: 3A 20 22 3B 4A 25 3A 81 D1 AA 91 B1 44 00 AA 00 |: ";J%:.....D...|
00000DE0: 99 49 25 22 20 22 48 52 24 28 49 25 2C 31 29 22 |.I%" "HR$(I%,1)"|
00000DF0: 3A 20 20 22 4E 24 28 49 25 29 3A 47 00 AA 00 99 |: "N$(I%):G....|
00000E00: 3A 4C 91 9C 8D 01 00 04 B8 01 D1 C6 91 9C 91 C6 |:L..............|
00000E10: 8D 01 00 03 02 D1 CD 00 98 31 2C 22 50 22 C7 28 |.........1,"P".(|
00000E20: 39 29 C7 28 4A 4C 25 29 C7 28 4A 48 25 29 C7 28 |9).(JL%).(JH%).(|
00000E30: 30 29 3A 8A 04 57 54 4F 44 D2 D4 4A D6 6A 92 79 |0):..WTOD..J.j.y|
00000E40: 8A 02 35 30 2B 4F 11 00 98 39 2C 22 2E 45 4F 46 |..50+O...9,".EOF|
00000E50: 2E 22 3A 48 E9 E9 80 8A 00 E2 0C 81 D1 AA 91 B1 |.":H............|
00000E60: 44 00 AA 80 80 A2 0C 91 AA A2 0C 01 92 02 01 E2 |D...............|
00000E70: 0C 47 00 AA 00 98 39 2C 4E 24 28 30 29 3B 3A 4A |.G....9,N$(0);:J|
00000E80: D6 6A 4C 80 80 E1 0E 80 80 E1 1C 80 D5 01 13 00 |.jL.............|
00000E90: 99 22 93 D3 43 52 45 45 4E 20 C4 2E 31 22 00 99 |."..CREEN ..1"..|
00000EA0: 22 C5 4E 54 45 52 20 30 20 54 4F 20 52 45 54 55 |".NTER 0 TO RETU|
00000EB0: 52 4E 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 22 |RN TO MAIN MENU"|
00000EC0: 00 85 22 C5 4E 54 45 52 20 52 45 43 4F 52 44 20 |..".NTER RECORD |
00000ED0: 4E 55 4D 42 45 52 20 54 4F 20 44 45 4C 45 54 45 |NUMBER TO DELETE|
00000EE0: 20 20 20 30 9D 9D 9D 22 3B 44 52 24 3A 96 01 1A | 0...";DR$:...|
00000EF0: B8 11 D5 01 21 95 01 21 80 2D 95 01 21 91 72 2A |....!..!.-..!.r*|
00000F00: 07 4F 20 00 99 22 D2 45 43 4F 52 44 20 4F 55 54 |.O ..".ECORD OUT|
00000F10: 20 4F 46 20 52 41 4E 47 45 22 3A 4A ED 3A 48 E9 | OF RANGE":J.:H.|
00000F20: 40 95 01 21 80 2B 4F 05 48 E8 02 95 01 21 D1 9C |@..!.+O.H....!..|
00000F30: 4A EA 9F 00 99 22 52 45 43 4F 52 44 20 54 4F 20 |J...."RECORD TO |
00000F40: 42 45 20 44 45 4C 45 54 45 44 22 3A 4A EA 3F 00 |BE DELETED":J.?.|
00000F50: 85 22 C4 45 4C 45 54 45 20 54 48 49 53 20 52 45 |.".ELETE THIS RE|
00000F60: 43 4F 52 44 20 28 59 2F 4E 29 20 20 59 9D 9D 9D |CORD (Y/N) Y...|
00000F70: 22 3B 51 24 3A 96 01 28 8A 01 59 2E 4F 05 48 E8 |";Q$:..(..Y.O.H.|
00000F80: 37 81 A2 0C 81 B8 14 8A 01 2A 2E 4F 0A 95 01 13 |7........*.O....|
00000F90: 81 01 D5 01 13 81 8A 01 2A E2 0C 4A E9 FE 00 99 |........*..J....|
00000FA0: 22 D2 45 43 4F 52 44 20 4E 55 4D 42 45 52 20 22 |".ECORD NUMBER "|
00000FB0: 44 52 25 22 46 4C 41 47 47 45 44 20 46 4F 52 20 |DR%"FLAGGED FOR |
00000FC0: 44 45 4C 45 54 49 4F 4E 22 00 85 22 CD 4F 52 45 |DELETION"..".ORE|
00000FD0: 20 52 45 43 4F 52 44 53 20 54 4F 20 44 45 4C 45 | RECORDS TO DELE|
00000FE0: 54 45 20 28 59 2F 4E 29 20 20 59 9D 9D 9D 22 3B |TE (Y/N) Y...";|
00000FF0: 4C 24 3A 92 95 8A 01 59 2B 4F 05 48 E9 71 95 01 |L$:....Y+O.H.q..|
00001000: 13 80 2B 4F 05 48 E7 95 91 72 D1 DB 81 D5 01 2F |..+O.H...r...../|
00001010: 91 72 95 01 13 02 44 01 2F 95 01 2F D1 9C 4A EA |.r....D./../..J.|
00001020: 9F 81 A2 0C 81 B8 14 8A 01 2A 2B 4F 05 48 E7 CD |.........*+O.H..|
00001030: 48 E7 A3 91 DB D1 9C 4A EA 9F 81 A2 0C 81 B8 14 |H......J........|
00001040: 8A 01 2A 2B 4F 0B 91 DB 81 02 D1 DB 48 E7 CD 95 |..*+O.......H...|
00001050: 01 2F D1 9C 4A E9 FE 91 DB 81 02 D1 DB 47 01 2F |./..J........G./|
00001060: 91 72 95 01 13 02 D1 72 4A EF 1F 48 D8 C1 00 99 |.r.....rJ..H....|
00001070: 22 93 13 22 00 99 22 12 C3 4F 4D 50 55 46 49 4C |"..".."..OMPUFIL|
00001080: 45 20 CD 41 4E 41 47 45 52 20 D6 45 52 53 49 4F |E .ANAGER .ERSIO|
00001090: 4E 20 31 2E 31 22 00 99 22 D4 48 49 53 20 49 53 |N 1.1"..".HIS IS|
000010A0: 20 54 48 45 20 49 4E 49 54 49 41 4C 20 4D 45 4E | THE INITIAL MEN|
000010B0: 55 22 00 99 22 D9 4F 55 20 4D 41 59 20 43 48 4F |U"..".OU MAY CHO|
000010C0: 4F 53 45 20 54 4F 20 44 4F 20 54 48 45 20 46 4F |OSE TO DO THE FO|
000010D0: 4C 4C 4F 57 49 4E 47 3A 22 00 99 00 99 22 20 30 |LLOWING:"...." 0|
000010E0: 20 20 45 58 49 54 20 54 48 49 53 20 50 52 4F 47 | EXIT THIS PROG|
000010F0: 52 41 4D 22 3A 91 72 80 2B 4F 08 81 D1 9C 48 E6 |RAM":.r.+O....H.|
00001100: D3 81 D1 9C 91 72 44 00 9C 00 99 4A 25 22 20 47 |.....rD....J%" G|
00001110: 4F 20 54 4F 20 54 48 45 20 12 22 52 24 28 4A 25 |O TO THE ."R$(J%|
00001120: 29 22 92 20 46 49 4C 45 22 3A 47 00 9C 00 99 4A |)". FILE":G....J|
00001130: 25 22 20 53 45 54 2D 55 50 20 41 20 4E 45 57 20 |%" SET-UP A NEW |
00001140: 46 49 4C 45 22 00 99 00 85 22 45 4E 54 45 52 20 |FILE"...."ENTER |
00001150: 41 20 4E 55 4D 42 45 52 20 20 A0 9D 9D 9D 22 3B |A NUMBER ....";|
00001160: 53 24 3A 92 F0 B8 11 D1 F7 91 F7 80 2D 91 F7 91 |S$:.........-...|
00001170: 9C 2A 07 4F 05 48 E6 B9 91 F7 80 2B 4F 06 5E 03 |.*.O.H.....+O.^.|
00001180: 00 80 3A 91 F7 A2 04 D2 5D 91 F7 91 9C 2B 4F 05 |..:.....]....+O.|
00001190: 48 E6 48 00 99 00 99 22 52 45 41 44 49 4E 47 20 |H.H...."READING |
000011A0: 22 3B 44 4E 24 3B 22 20 49 4E 46 4F 52 4D 41 54 |";DN$;" INFORMAT|
000011B0: 49 4F 4E 22 3A 48 E5 DE 00 99 3A 91 9C 80 2B 4F |ION":H....:...+O|
000011C0: 05 81 D1 9C 00 99 22 45 4E 54 45 52 20 4E 41 4D |......"ENTER NAM|
000011D0: 45 20 4F 46 20 4E 45 57 20 44 41 54 41 20 42 41 |E OF NEW DATA BA|
000011E0: 53 45 20 22 00 85 22 31 30 20 43 48 41 52 41 43 |SE ".."10 CHARAC|
000011F0: 54 45 52 53 20 4D 41 58 49 4D 55 4D 20 20 A0 9D |TERS MAXIMUM ..|
00001200: 9D 9D 22 3B 44 24 3A 96 01 36 92 1E 01 89 0A B8 |..";D$:..6......|
00001210: 14 D2 5D 4A E5 DE 4A F5 47 4A E5 DE 4A E5 4A 48 |..]J..J.GJ..J.JH|
00001220: D8 C1 8A 04 2E 48 44 52 D2 64 00 9F 38 2C 38 2C |.....HDR.d..8,8,|
00001230: 38 2C 22 30 3A 22 AA 44 4E 24 AA 46 24 AA 22 2C |8,"0:".DN$.F$.",|
00001240: 53 2C 52 22 3A 4A D6 6A 92 79 8A 02 36 32 2B 4F |S,R":J.j.y..62+O|
00001250: 09 00 A0 38 3A 48 E5 52 00 84 38 2C 4E 52 25 2C |...8:H.R..8,NR%,|
00001260: 52 53 25 3A 80 81 8A 08 52 45 43 23 20 20 20 20 |RS%:....REC# |
00001270: E2 18 80 82 8A 01 34 E2 18 81 D1 9C 91 72 44 00 |......4......rD.|
00001280: 9C 00 84 38 2C 48 52 24 28 4A 25 2C 31 29 2C 48 |...8,HR$(J%,1),H|
00001290: 52 24 28 4A 25 2C 32 29 3A 91 9C 91 9C 82 A2 18 |R$(J%,2):.......|
000012A0: B8 11 E1 12 47 00 9C 00 A0 38 3A 4A D6 6A 91 72 |....G....8:J.j.r|
000012B0: D1 B1 80 D1 72 4C 00 98 31 2C 22 49 22 3A 4A D6 |....rL..1,"I":J.|
000012C0: 6A 92 5D 8A 04 2E 4E 44 58 01 D2 A3 00 9F 39 2C |j.]...NDX.....9,|
000012D0: 38 2C 39 2C 46 58 24 3A 8A 04 35 33 32 30 D2 D4 |8,9,FX$:..5320..|
000012E0: 4A D6 6A 00 98 31 2C 22 50 22 C7 28 39 29 C7 28 |J.j..1,"P".(9).(|
000012F0: 31 29 C7 28 30 29 C7 28 30 29 3A 8A 04 4F 50 4E |1).(0).(0):..OPN|
00001300: 52 D2 D4 4A D6 6A 00 9F 38 2C 38 2C 38 2C 22 30 |R..J.j..8,8,8,"0|
00001310: 3A 22 AA 44 4E 24 AA 22 2E 43 4E 54 22 3A 4A D6 |:".DN$.".CNT":J.|
00001320: 6A 00 84 38 2C 4E 52 25 00 A0 38 3A 4A D6 6A 4C |j..8,NR%..8:J.jL|
00001330: 00 99 22 93 22 3B 3A 80 D5 01 3D 00 99 22 D3 43 |..".";:...=..".C|
00001340: 52 45 45 4E 20 CC 2E 31 22 3A 80 D1 AA 83 91 B1 |REEN ..1":......|
00001350: 03 82 01 44 00 AA 91 AA 80 E1 08 47 00 AA 80 D1 |...D.......G....|
00001360: AA 91 B1 44 00 AA 91 AA 80 E1 06 47 00 AA 80 D5 |...D.......G....|
00001370: 01 44 80 D5 01 4B 95 01 3D 4D 02 E2 3E 4A DA F5 |.D...K..=M..>J..|
00001380: 95 01 52 4D 04 E2 41 D8 C1 00 85 22 CE 55 4D 42 |..RM..A....".UMB|
00001390: 45 52 20 4F 46 20 43 48 41 52 41 43 54 45 52 53 |ER OF CHARACTERS|
000013A0: 2F 4C 49 4E 45 22 3B 50 43 25 3A 91 25 89 0A 2D |/LINE";PC%:.%..-|
000013B0: 91 25 89 C8 2A 07 4F 05 48 E4 77 95 01 3D 80 2B |.%..*.O.H.w..=.+|
000013C0: 4F 0E 95 01 59 8A 05 23 31 20 20 20 E2 0A 81 D5 |O...Y..#1 ....|
000013D0: 01 60 81 D5 01 67 91 B1 81 01 44 01 67 95 01 67 |.`...g....D.g..g|
000013E0: 83 03 82 02 D1 AA 4A DC F4 00 99 00 99 22 D4 48 |......J......".H|
000013F0: 45 20 52 45 50 4F 52 54 20 57 49 4C 4C 20 50 4C |E REPORT WILL PL|
00001400: 41 43 45 20 54 48 45 20 46 49 45 4C 44 53 20 4F |ACE THE FIELDS O|
00001410: 4E 20 54 48 45 22 00 99 22 53 43 52 45 45 4E 20 |N THE".."SCREEN |
00001420: 46 52 4F 4D 20 4C 45 46 54 20 54 4F 20 52 49 47 |FROM LEFT TO RIG|
00001430: 48 54 22 00 99 22 D0 52 45 53 53 20 D2 45 54 55 |HT"..".RESS .ETU|
00001440: 52 4E 20 57 48 45 4E 20 59 4F 55 20 41 52 45 20 |RN WHEN YOU ARE |
00001450: 46 49 4E 49 53 48 45 44 22 00 99 22 20 44 45 46 |FINISHED".." DEF|
00001460: 49 4E 49 4E 47 20 54 48 45 20 52 45 50 4F 52 54 |INING THE REPORT|
00001470: 20 46 4F 52 4D 41 54 22 00 99 C8 28 56 54 24 2C | FORMAT"...(VT$,|
00001480: 32 32 29 3B 22 D7 48 41 54 20 46 49 45 4C 44 20 |22);".HAT FIELD |
00001490: 23 20 4F 46 20 54 48 45 20 46 49 4C 45 20 44 4F |# OF THE FILE DO|
000014A0: 20 59 4F 55 22 00 99 22 57 41 4E 54 20 54 4F 20 | YOU".."WANT TO |
000014B0: 50 52 49 4E 54 20 4E 45 58 54 20 22 3B 00 85 22 |PRINT NEXT ";.."|
000014C0: 20 20 2E 9D 9D 9D 22 3B 4B 24 3A 91 AA 96 01 6E | ....";K$:....n|
000014D0: B8 11 E1 08 96 01 6E 81 B8 14 8A 01 2E 2B 4F 05 |......n......+O.|
000014E0: 48 E2 63 91 AA A1 08 80 2D 91 AA A1 08 91 B1 2A |H.c.....-......*|
000014F0: 07 4F 05 48 E3 88 00 99 22 C9 4E 20 57 48 41 54 |.O.H....".N WHAT|
00001500: 20 50 52 49 4E 54 20 50 4F 53 49 54 49 4F 4E 20 | PRINT POSITION |
00001510: 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 48 45 22 |DO YOU WANT THE"|
00001520: 00 99 48 52 24 28 4B 25 28 49 25 29 2C 31 29 22 |..HR$(K%(I%),1)"|
00001530: 20 54 4F 20 42 45 47 49 4E 20 28 22 3B 4B 4D 25 | TO BEGIN (";KM%|
00001540: 3B 22 20 4D 49 4E 49 4D 55 4D 29 20 22 3B 00 85 |;" MINIMUM) ";..|
00001550: 22 20 20 9D 9D 9D 22 3B 4B 24 3A 91 AA 81 01 96 |" ...";K$:.....|
00001560: 01 6E B8 11 E1 08 00 99 3A 91 AA 81 01 A1 08 80 |.n......:.......|
00001570: 2D 91 AA 81 01 A1 08 91 25 2A 07 4F 05 48 E3 0A |-.......%*.O.H..|
00001580: 91 AA 81 01 A1 08 95 01 60 2D 4F 05 48 E3 0A 91 |........`-O.H...|
00001590: AA 81 01 A1 08 81 01 D5 01 60 47 01 67 95 01 67 |.........`G.g..g|
000015A0: 81 02 D5 01 67 95 01 67 83 03 82 01 91 25 E1 08 |....g..g.....%..|
000015B0: 00 99 52 48 25 2C 49 25 3A 4A DC F4 48 E2 3E 4A |..RH%,I%:J..H.>J|
000015C0: DD 3A 00 85 22 C4 4F 20 59 4F 55 20 57 41 4E 54 |.:..".O YOU WANT|
000015D0: 20 54 4F 20 53 4F 52 54 20 54 48 45 20 52 45 43 | TO SORT THE REC|
000015E0: 4F 52 44 53 20 20 59 9D 9D 9D 22 3B 53 31 24 3A |ORDS Y...";S1$:|
000015F0: 96 01 75 8A 01 59 2B 4F 05 4A D6 18 00 99 00 85 |..u..Y+O.J......|
00001600: 22 C4 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 |".O YOU WANT TO |
00001610: 53 45 41 52 43 48 20 54 48 45 20 46 49 4C 45 20 |SEARCH THE FILE |
00001620: 20 59 9D 9D 9D 22 3B 51 31 24 3A 96 01 7C 8A 01 | Y...";Q1$:..|..|
00001630: 20 01 81 B8 14 B8 12 D5 01 83 95 01 83 89 7F 06 | ...............|
00001640: D5 01 83 95 01 83 B8 13 D6 01 7C 96 01 7C 8A 01 |..........|..|..|
00001650: 59 2B 4F 05 4A D0 51 96 01 7C 8A 01 59 2E 4F 06 |Y+O.J.Q..|..Y.O.|
00001660: 80 80 E1 20 80 D5 01 8A 4A E0 2D 91 25 89 28 04 |... ....J.-.%.(.|
00001670: B8 01 81 01 D5 01 91 89 14 95 01 91 04 B8 01 D5 |................|
00001680: 01 98 4A DF F5 4A DE 99 81 D5 01 9F 91 72 44 01 |..J..J.......rD.|
00001690: 9F 80 A1 0E 80 2A 4F 11 95 01 8A A1 0E D1 9C 95 |.....*O.........|
000016A0: 01 8A A1 0E D5 01 8A 80 A1 0E 80 2B 4F 07 95 01 |...........+O...|
000016B0: 9F D1 9C 4A EA 9F 80 A1 20 80 2B 4F 05 48 E1 32 |...J.... .+O.H.2|
000016C0: 4A CE 8F 81 A2 10 92 E9 2E 4F 05 48 E1 1B 91 09 |J........O.H....|
000016D0: 81 2D 4F 08 91 DB 95 01 98 2A 4F 08 4A ED 3A 4A |.-O......*O.J.:J|
000016E0: DE 99 4A DF 63 4A D0 BC 95 01 A6 4F 09 80 D5 01 |..J.cJ.....O....|
000016F0: A6 48 E1 00 91 DB 80 2B 4F 05 4A DE 99 47 01 9F |.H.....+O.J..G..|
00001700: 95 01 3D 4D 02 E0 9B 00 99 00 99 22 44 4F 20 59 |..=M......."DO Y|
00001710: 4F 55 20 57 41 4E 54 20 54 4F 20 53 41 56 45 20 |OU WANT TO SAVE |
00001720: 54 48 45 20 46 4F 52 4D 41 54 22 00 85 22 46 4F |THE FORMAT".."FO|
00001730: 52 20 54 48 49 53 20 52 45 50 4F 52 54 20 54 4F |R THIS REPORT TO|
00001740: 20 44 49 53 4B 20 28 59 2F 4E 29 20 20 59 9D 9D | DISK (Y/N) Y..|
00001750: 9D 22 3B 4C 24 3A 92 95 8A 01 59 2B 4F 09 81 D5 |.";L$:....Y+O...|
00001760: 01 3D 4A DD D0 00 99 22 C4 4F 20 59 4F 55 20 57 |.=J....".O YOU W|
00001770: 41 4E 54 20 54 4F 20 4D 41 4B 45 20 41 4E 4F 54 |ANT TO MAKE ANOT|
00001780: 48 45 52 20 22 00 99 22 D2 45 50 4F 52 54 20 55 |HER "..".EPORT U|
00001790: 53 49 4E 47 20 54 48 45 20 22 52 4E 24 28 4E 4E |SING THE "RN$(NN|
000017A0: 25 29 22 20 C6 4F 52 4D 41 54 22 00 85 22 28 59 |%)" .ORMAT".."(Y|
000017B0: 2F 4E 29 20 20 59 9D 9D 9D 22 3B 4C 24 3A 92 95 |/N) Y...";L$:..|
000017C0: 8A 01 59 2B 4F 0C 4A DC F4 81 D5 01 3D 48 E4 A2 |..Y+O.J.....=H..|
000017D0: 48 E4 D0 81 D1 AA 95 01 67 81 01 44 00 AA 91 AA |H.......g..D....|
000017E0: 83 91 AA 03 81 02 A1 08 E1 16 47 00 AA 95 01 67 |..........G....g|
000017F0: 81 01 A1 16 D1 25 91 25 89 0A 2D 4F 0F 89 27 D1 |.....%.%..-O..'.|
00001800: 25 95 01 67 81 01 89 27 E1 16 4C 81 D5 01 AD 8A |%..g...'..L.....|
00001810: 00 D6 01 B4 8A 00 D6 01 BB 81 D1 AA 95 01 67 44 |..............gD|
00001820: 00 AA 83 91 AA 03 81 02 A1 08 96 01 B4 B8 0F 02 |................|
00001830: D5 01 C2 83 91 AA 03 82 02 A1 08 D5 01 C9 91 AA |................|
00001840: 81 01 A1 16 91 AA A1 16 02 81 02 D5 01 D0 95 01 |................|
00001850: D0 80 2D 4F 06 80 D5 01 D0 96 01 B4 92 1E 95 01 |..-O............|
00001860: C2 B8 14 01 95 01 C9 81 A2 18 92 1E 01 95 01 D0 |................|
00001870: B8 14 01 D6 01 B4 96 01 BB 92 1E 95 01 C2 B8 14 |................|
00001880: 01 92 17 92 1E 01 95 01 D0 B8 14 01 D6 01 BB 95 |................|
00001890: 01 AD 95 01 D0 01 D5 01 AD 47 00 AA 4C 81 D1 AA |.........G..L...|
000018A0: 95 01 67 44 00 AA 83 91 AA 03 81 02 A1 08 D5 01 |..gD............|
000018B0: C2 83 91 AA 03 82 02 A1 08 D5 01 C9 91 AA 81 01 |................|
000018C0: A1 16 91 AA A1 16 02 81 02 D5 01 D0 95 01 D0 80 |................|
000018D0: 2D 4F 06 80 D5 01 D0 91 AA 81 2B 4F 0A 00 99 A3 |-O........+O....|
000018E0: 4B 31 25 29 3B 00 99 C8 28 4E 24 28 4B 32 25 29 |K1%);...(N$(K2%)|
000018F0: AA 53 50 24 2C 4B 33 25 29 3B 3A 91 AA 95 01 67 |.SP$,K3%);:....g|
00001900: 2D 4F 08 00 99 22 20 22 3B 3A 91 09 4F 06 91 AA |-O..." ";:..O...|
00001910: 81 2B 4F 0E 00 98 34 2C A6 4B 31 25 AB 31 29 3B |.+O...4,.K1%.1);|
00001920: 3A 91 09 4F 19 00 98 34 2C C8 28 4E 24 28 4B 32 |:..O...4,.(N$(K2|
00001930: 25 29 AA 53 50 24 2C 4B 33 25 29 3B 3A 91 09 4F |%).SP$,K3%);:..O|
00001940: 08 91 AA 95 01 67 2D 4F 0A 00 98 34 2C 22 20 22 |.....g-O...4," "|
00001950: 3B 3A 47 00 AA 00 99 3A 91 09 4F 05 00 98 34 3A |;:G....:..O...4:|
00001960: 91 DB 81 01 D1 DB 4C 00 99 22 93 22 3B 00 99 22 |......L..".";.."|
00001970: D2 45 50 4F 52 54 20 49 44 3A 22 52 4E 24 28 4E |.EPORT ID:"RN$(N|
00001980: 4E 25 29 3A 80 A1 20 80 2B 4F 1E 00 99 22 41 4C |N%):.. .+O..."AL|
00001990: 4C 20 52 45 43 4F 52 44 53 20 53 45 4C 45 43 54 |L RECORDS SELECT|
000019A0: 45 44 22 3A 48 DE 41 00 99 46 4B 24 22 20 52 45 |ED":H.A..FK$" RE|
000019B0: 43 4F 52 44 53 20 53 45 4C 45 43 54 45 44 22 3A |CORDS SELECTED":|
000019C0: 80 A1 1C 80 2A 4F 15 00 99 22 D3 4F 52 54 45 44 |....*O...".ORTED|
000019D0: 20 42 59 3A 22 3B 3A 4A DD F6 00 99 00 99 48 31 | BY:";:J......H1|
000019E0: 24 00 99 48 32 24 00 99 22 20 22 3A 91 09 4F 17 |$..H2$.." ":..O.|
000019F0: 00 98 34 2C 48 31 24 00 98 34 2C 48 32 24 00 98 |..4,H1$..4,H2$..|
00001A00: 34 2C 22 20 22 3A 82 D1 DB 4C 81 D1 F7 80 A1 1C |4," ":...L......|
00001A10: 44 00 F7 00 99 48 52 24 28 53 46 25 28 53 25 29 |D....HR$(SF%(S%)|
00001A20: 2C 31 29 3B 22 20 22 3B 3A 47 00 F7 00 99 3A 4C |,1);" ";:G....:L|
00001A30: 91 72 D5 01 D7 00 99 00 85 22 C5 4E 54 45 52 20 |.r.......".NTER |
00001A40: D2 45 50 4F 52 54 20 4E 41 4D 45 20 20 A0 9D 9D |.EPORT NAME ...|
00001A50: 9D 22 3B 52 4E 24 28 4E 4E 25 29 3A 95 01 59 A2 |.";RN$(NN%):..Y.|
00001A60: 0A B8 0F 89 14 2A 4F 10 95 01 59 95 01 59 A2 0A |.....*O...Y..Y..|
00001A70: 89 14 B8 14 E2 0A 8A 01 20 95 01 59 B8 10 01 82 |........ ..Y....|
00001A80: B8 15 8A 04 2E 52 50 54 01 D2 64 83 95 01 67 81 |.....RPT..d...g.|
00001A90: 01 03 D1 72 81 D1 AA 91 72 44 00 AA 91 AA A1 08 |...r....rD......|
00001AA0: B8 10 D6 01 DE 96 01 DE B8 0F 81 02 D5 01 E5 91 |................|
00001AB0: AA 96 01 DE 82 95 01 E5 B8 16 E2 04 47 00 AA 4A |............G..J|
00001AC0: D9 58 4A D8 EA 4C 8A 01 20 95 01 59 B8 10 01 82 |.XJ..L.. ..Y....|
00001AD0: B8 15 8A 04 2E 52 50 54 01 D2 64 81 D1 6B 4A D9 |.....RPT..d..kJ.|
00001AE0: E1 91 72 83 04 81 02 D5 01 67 81 D1 AA 91 72 44 |..r......g....rD|
00001AF0: 00 AA 91 AA 91 AA A2 04 B8 11 E1 08 47 00 AA 95 |............G...|
00001B00: 01 D7 D1 72 81 D5 01 EC 4A DC F4 4C 00 99 22 93 |...r....J..L..".|
00001B10: 22 3B 00 99 22 20 20 C6 49 45 4C 44 20 20 20 20 |";.." .IELD |
00001B20: D3 49 5A 20 D0 4F 53 20 20 20 20 C6 49 45 4C 44 |.IZ .OS .IELD|
00001B30: 20 20 20 20 D3 49 5A 20 D0 4F 53 22 00 99 22 20 | .IZ .OS".." |
00001B40: 23 20 2E 2E 2E 2E 2E 2E 2E 2E 20 20 2E 2E 20 20 |# ........ .. |
00001B50: 23 20 20 20 23 20 2E 2E 2E 2E 2E 2E 2E 2E 20 20 |# # ........ |
00001B60: 2E 2E 20 20 23 22 3A 91 B1 D5 01 F3 91 B1 89 0A |.. #":.........|
00001B70: 2A 4F 07 89 0A D5 01 F3 80 D1 DB 95 01 F3 44 00 |*O............D.|
00001B80: DB 00 99 C9 28 22 20 22 AA C4 28 4C 25 29 2C 32 |....(" "..(L%),2|
00001B90: 29 22 20 22 48 52 24 28 4C 25 2C 31 29 3B 22 20 |)" "HR$(L%,1);" |
00001BA0: 22 48 52 24 28 4C 25 2C 32 29 00 99 22 91 22 3B |"HR$(L%,2)..".";|
00001BB0: 3A 81 D5 01 FA 95 01 67 83 03 83 45 01 FA 95 01 |:......g...E....|
00001BC0: FA A1 08 91 DB 2B 95 01 FA 81 01 A1 08 80 2A 06 |.....+........*.|
00001BD0: 4F 12 00 99 A3 31 36 29 3B 4B 25 28 4D 25 AA 31 |O....16);K%(M%.1|
00001BE0: 29 3B 3A 47 01 FA 00 99 22 20 22 3A 47 00 DB 00 |);:G...." ":G...|
00001BF0: 99 3A 91 B1 89 0B 2D 4F 05 48 DB 7C 00 99 22 13 |.:....-O.H.|..".|
00001C00: 11 11 11 11 22 3A 89 0B D1 DB 91 B1 44 00 DB 00 |....":......D...|
00001C10: 99 A3 32 30 29 3B C9 28 22 20 22 AA C4 28 4C 25 |..20);.(" "..(L%|
00001C20: 29 2C 32 29 22 20 22 48 52 24 28 4C 25 2C 31 29 |),2)" "HR$(L%,1)|
00001C30: 3B 22 20 22 48 52 24 28 4C 25 2C 32 29 00 99 22 |;" "HR$(L%,2).."|
00001C40: 91 22 3B 3A 81 D5 01 FA 95 01 67 83 03 83 45 01 |.";:......g...E.|
00001C50: FA 95 01 FA A1 08 91 DB 2B 95 01 FA 81 01 A1 08 |........+.......|
00001C60: 80 2A 06 4F 12 00 99 A3 33 36 29 3B 4B 25 28 4D |.*.O....36);K%(M|
00001C70: 25 AA 31 29 3B 3A 47 01 FA 00 99 22 20 22 3A 47 |%.1);:G...." ":G|
00001C80: 00 DB 00 99 3A 80 D5 01 EC 95 01 67 80 2B 4F 05 |....:......g.+O.|
00001C90: 48 DA F6 81 D5 01 FA 95 01 67 44 01 FA 83 95 01 |H........gD.....|
00001CA0: FA 03 81 02 A1 08 D5 01 C2 83 95 01 FA 03 82 02 |................|
00001CB0: A1 08 D5 01 C9 95 01 C9 A1 12 D5 01 D0 95 01 C2 |................|
00001CC0: 95 01 D0 01 91 25 2A 4F 0D 91 25 95 01 C2 02 81 |.....%*O..%.....|
00001CD0: 02 D5 01 D0 95 01 D0 80 2D 4F 06 80 D5 01 D0 00 |........-O......|
00001CE0: 99 C8 28 56 54 24 2C 31 36 29 3B A3 4B 31 25 29 |..(VT$,16);.K1%)|
00001CF0: 3B C8 28 48 52 24 28 4B 32 25 2C 31 29 AA 50 52 |;.(HR$(K2%,1).PR|
00001D00: 24 2C 4B 33 25 29 3A 47 01 FA 4C 80 D5 01 52 80 |$,K3%):G..L...R.|
00001D10: D5 01 59 80 D1 AA 89 15 44 00 AA 91 AA 8A 00 E2 |..Y.....D.......|
00001D20: 0A 47 00 AA 91 72 D5 01 D7 8A 04 2E 46 4D 54 D2 |.G...r......FMT.|
00001D30: 64 81 D1 6B 4A D9 E1 92 79 8A 02 30 30 2E 4F 05 |d..kJ...y..00.O.|
00001D40: 80 D1 72 80 8A 13 52 45 54 55 52 4E 20 54 4F 20 |..r...RETURN TO |
00001D50: 4D 41 49 4E 20 4D 45 4E 55 E2 04 80 D1 AA 91 72 |MAIN MENU......r|
00001D60: 44 00 AA 91 AA 91 AA A2 04 E2 0A 47 00 AA 00 99 |D..........G....|
00001D70: 22 CF 50 54 49 4F 4E 53 20 41 56 41 49 4C 41 42 |".PTIONS AVAILAB|
00001D80: 4C 45 3A 22 00 99 3A 80 D1 AA 91 72 44 00 AA 00 |LE:"..:....rD...|
00001D90: 99 49 25 22 20 22 52 24 28 49 25 29 3A 47 00 AA |.I%" "R$(I%):G..|
00001DA0: 00 99 00 99 49 25 22 20 C4 45 53 49 47 4E 20 41 |....I%" .ESIGN A|
00001DB0: 20 4E 45 57 20 52 45 50 4F 52 54 20 4C 41 59 4F | NEW REPORT LAYO|
00001DC0: 55 54 22 00 99 00 85 22 D7 48 49 43 48 20 20 31 |UT"....".HICH 1|
00001DD0: 9D 9D 9D 22 3B 53 24 3A 92 F0 B8 11 D1 F7 91 F7 |...";S$:........|
00001DE0: 80 2D 91 F7 91 AA 2A 07 4F 05 48 DA 3B 91 F7 80 |.-....*.O.H.;...|
00001DF0: 2B 4F 09 82 D5 01 52 48 D9 E2 91 F7 D5 01 59 91 |+O....RH......Y.|
00001E00: F7 91 AA 2E 4F 12 81 D5 01 3D 95 01 D7 D1 72 81 |....O....=....r.|
00001E10: D5 01 52 48 D9 E2 4A DC F4 95 01 D7 D1 72 4C 92 |..RH..J......rL.|
00001E20: 5D 92 64 01 D6 02 01 00 9F 38 2C 38 2C 38 2C 46 |].d......8,8,8,F|
00001E30: 4C 24 3A 95 02 08 4F 0E 00 99 46 4C 24 2C C3 28 |L$:...O...FL$,.(|
00001E40: 46 4C 24 29 3A 4A D6 6A 92 79 8A 02 36 32 2B 4F |FL$):J.j.y..62+O|
00001E50: 05 48 D9 5D 92 79 8A 02 32 31 2B 4F 05 48 D9 5D |.H.].y..21+O.H.]|
00001E60: 00 84 38 2C 4E 52 25 3A 91 6B D1 9C 91 72 44 00 |..8,NR%:.k...rD.|
00001E70: 9C 00 84 38 2C 58 24 3A 91 9C 96 01 DE E2 04 96 |...8,X$:........|
00001E80: 01 DE B8 0F 81 02 D5 01 E5 96 01 DE B8 12 89 0A |................|
00001E90: 2B 4F 0F 91 9C 96 01 DE 82 95 01 E5 B8 16 E2 04 |+O..............|
00001EA0: 47 00 9C 00 A0 38 3A 4C 00 98 31 2C 22 49 30 22 |G....8:L..1,"I0"|
00001EB0: 3A 4A D6 6A 00 98 31 2C 22 53 30 3A 22 AA 44 4E |:J.j..1,"S0:".DN|
00001EC0: 24 AA 46 24 3A 4A D6 6A 00 9F 38 2C 38 2C 38 2C |$.F$:J.j..8,8,8,|
00001ED0: 22 30 3A 22 AA 44 4E 24 AA 46 24 AA 22 2C 53 2C |"0:".DN$.F$.",S,|
00001EE0: 57 22 3A 4A D6 6A 00 98 38 2C 4E 52 25 3B 43 52 |W":J.j..8,NR%;CR|
00001EF0: 24 3B 3A 81 D1 9C 91 72 44 00 9C 00 98 38 2C 52 |$;:....rD....8,R|
00001F00: 24 28 4A 25 29 3B 43 52 24 3B 3A 47 00 9C 00 A0 |$(J%);CR$;:G....|
00001F10: 38 3A 4A D6 6A 4C 95 01 59 D1 72 8A 04 2E 46 4D |8:J.jL..Y.r...FM|
00001F20: 54 D2 64 81 D1 AA 91 72 44 00 AA 91 AA 91 AA A2 |T.d....rD.......|
00001F30: 0A E2 04 47 00 AA 4A D9 58 95 01 D7 D1 72 4C 00 |...G..J.X....rL.|
00001F40: A0 39 3A 4A D6 6A 4A E5 4A 00 99 22 93 D3 43 52 |.9:J.jJ.J.."..CR|
00001F50: 45 45 4E 20 CD 2E 31 20 22 00 99 00 99 22 C6 49 |EEN ..1 "....".I|
00001F60: 4C 45 20 CE 41 4D 45 3A 20 22 44 4E 24 00 99 22 |LE .AME: "DN$.."|
00001F70: 20 C3 4F 4E 54 41 49 4E 53 3A 20 22 4E 52 25 22 | .ONTAINS: "NR%"|
00001F80: 20 52 45 43 4F 52 44 53 22 00 99 22 D0 52 49 4E | RECORDS"..".RIN|
00001F90: 54 45 52 20 49 53 20 12 22 3B 3A 91 09 4F 0C 00 |TER IS .";:..O..|
00001FA0: 99 22 4F 4E 22 3A 48 D8 50 00 99 22 4F 46 46 22 |."ON":H.P.."OFF"|
00001FB0: 00 99 22 20 22 00 99 22 12 C5 4E 54 45 52 20 4C |.." ".."..NTER L|
00001FC0: 45 54 54 45 52 20 4F 46 20 46 55 4E 43 54 49 4F |ETTER OF FUNCTIO|
00001FD0: 4E 20 44 45 53 49 52 45 44 22 00 99 00 99 22 28 |N DESIRED"...."(|
00001FE0: C1 29 44 44 20 52 45 43 4F 52 44 53 20 54 4F 20 |.)DD RECORDS TO |
00001FF0: 54 48 45 20 44 41 54 41 42 41 53 45 22 00 99 22 |THE DATABASE".."|
00002000: 28 C3 29 48 41 4E 47 45 20 52 45 43 4F 52 44 53 |(.)HANGE RECORDS|
00002010: 22 00 99 22 28 C4 29 45 4C 45 54 45 20 52 45 43 |".."(.)ELETE REC|
00002020: 4F 52 44 53 22 00 99 22 28 CC 29 49 53 54 20 52 |ORDS".."(.)IST R|
00002030: 45 43 4F 52 44 53 22 00 99 22 28 D0 29 52 49 4E |ECORDS".."(.)RIN|
00002040: 54 45 52 20 53 54 41 54 55 53 20 54 4F 20 12 22 |TER STATUS TO ."|
00002050: 3B 3A 91 09 4F 0D 00 99 22 4F 46 46 22 3A 48 D7 |;:..O..."OFF":H.|
00002060: 99 00 99 22 4F 4E 22 00 99 22 28 D3 29 45 41 52 |..."ON".."(.)EAR|
00002070: 43 48 20 52 45 43 4F 52 44 53 22 00 99 22 28 D8 |CH RECORDS".."(.|
00002080: 29 45 58 49 54 20 54 48 49 53 20 46 49 4C 45 22 |)EXIT THIS FILE"|
00002090: 00 99 3A 8A 01 20 D2 F0 00 85 22 57 48 49 43 48 |..:.. ...."WHICH|
000020A0: 20 22 3B 53 24 3A 92 F0 81 B8 14 D2 F0 92 F0 B8 | ";S$:..........|
000020B0: 12 D1 F7 91 F7 89 80 2A 4F 0F 91 F7 89 80 02 D1 |.......*O.......|
000020C0: F7 91 F7 B8 13 D2 F0 92 F0 8A 01 41 2B 4F 05 48 |...........A+O.H|
000020D0: F1 34 92 F0 8A 01 43 2B 4F 05 48 ED 03 92 F0 8A |.4....C+O.H.....|
000020E0: 01 44 2B 4F 05 48 E9 7D 92 F0 8A 01 53 2B 4F 05 |.D+O.H.}....S+O.|
000020F0: 48 EE DB 92 F0 8A 01 4C 2B 4F 05 48 E4 D0 92 F0 |H......L+O.H....|
00002100: 8A 01 50 2B 4F 05 48 D6 E9 92 F0 8A 01 58 2B 4F |..P+O.H......X+O|
00002110: 05 48 D2 3E 48 D8 C1 91 09 4D 02 D6 78 00 85 22 |.H.>H....M..x.."|
00002120: 45 4E 54 45 52 20 50 52 49 4E 54 45 52 20 44 45 |ENTER PRINTER DE|
00002130: 56 49 43 45 20 4E 55 4D 42 45 52 20 20 20 34 9D |VICE NUMBER 4.|
00002140: 9D 9D 22 3B 50 44 25 00 9F 34 2C 50 44 25 2C 37 |..";PD%..4,PD%,7|
00002150: 00 85 22 CE 55 4D 42 45 52 20 4F 46 20 43 48 41 |..".UMBER OF CHA|
00002160: 52 41 43 54 45 52 53 2F 4C 49 4E 45 22 3B 50 43 |RACTERS/LINE";PC|
00002170: 25 3A 91 25 89 0A 2D 91 25 89 C8 2A 07 4F 05 48 |%:.%..-.%..*.O.H|
00002180: D6 B0 81 D1 09 48 D8 C1 80 D1 09 00 A0 34 3A 89 |.....H.......4:.|
00002190: 50 D1 25 48 D8 C1 00 84 31 2C 41 24 2C 42 24 2C |P.%H....1,A$,B$,|
000021A0: 43 24 2C 44 24 3A 92 79 8A 02 30 30 2B 4F 05 48 |C$,D$:.y..00+O.H|
000021B0: D6 1E 95 02 08 4F 0A 00 99 44 4E 24 3B 46 24 3A |.....O...DN$;F$:|
000021C0: 95 02 08 4F 1F 00 99 45 24 22 20 22 41 24 22 20 |...O...E$" "A$" |
000021D0: 22 42 24 22 20 22 43 24 22 20 22 44 24 22 20 22 |"B$" "C$" "D$" "|
000021E0: 4E 25 3A 8A 00 D2 D4 4C 81 D5 01 EC 4A D3 9F 80 |N%:....L....J...|
000021F0: D5 02 24 80 B8 04 91 72 04 B8 01 82 02 D5 02 2B |..$....r.......+|
00002200: 81 D1 F7 85 44 00 F7 00 99 22 C1 46 54 45 52 20 |....D....".FTER |
00002210: 53 45 4C 45 43 54 49 4E 47 20 46 49 45 4C 44 53 |SELECTING FIELDS|
00002220: 20 41 4E 44 20 4B 45 59 53 28 22 36 AB 53 25 22 | AND KEYS("6.S%"|
00002230: 4D 41 58 29 22 00 99 22 D0 52 45 53 53 20 52 45 |MAX)"..".RESS RE|
00002240: 54 55 52 4E 20 54 4F 20 53 54 41 52 54 20 53 4F |TURN TO START SO|
00002250: 52 54 49 4E 47 22 3A 95 02 2B 89 14 2D 4F 39 00 |RTING":..+..-O9.|
00002260: 99 22 CE 4F 54 45 21 21 22 B5 28 53 4D 25 AB 53 |.".OTE!!".(SM%.S|
00002270: 4B 25 29 22 C3 48 41 52 41 43 54 45 52 53 20 52 |K%)".HARACTERS R|
00002280: 45 4D 41 49 4E 49 4E 47 20 46 4F 52 20 53 4F 52 |EMAINING FOR SOR|
00002290: 54 20 4B 45 59 22 3A 95 02 24 95 02 2B 2B 4F 05 |T KEY":..$..++O.|
000022A0: 48 D4 7D 00 85 22 C6 49 45 4C 44 20 23 20 54 4F |H.}..".IELD # TO|
000022B0: 20 53 4F 52 54 20 20 20 A0 9D 9D 9D 22 3B 53 24 | SORT ....";S$|
000022C0: 3A 91 F7 92 F0 B8 11 E1 1C 91 F7 A1 1C 80 2B 4F |:.............+O|
000022D0: 05 48 D4 7D 91 F7 A1 1C 81 2D 91 F7 A1 1C 91 B1 |.H.}.....-......|
000022E0: 2A 07 4F 08 4A D3 DF 48 D5 5D 00 99 22 C8 4F 57 |*.O.J..H.]..".OW|
000022F0: 20 4D 41 4E 59 20 43 48 41 52 41 43 54 45 52 53 | MANY CHARACTERS|
00002300: 20 4F 46 20 54 48 45 20 22 48 52 24 28 53 46 25 | OF THE "HR$(SF%|
00002310: 28 53 25 29 2C 31 29 00 85 22 20 41 52 45 20 54 |(S%),1).." ARE T|
00002320: 4F 20 42 45 20 53 4F 52 54 45 44 20 20 20 A0 9D |O BE SORTED ..|
00002330: 9D 9D 22 3B 53 24 3A 91 F7 92 F0 B8 11 E1 1E 91 |..";S$:.........|
00002340: F7 A1 1E 81 2D 91 F7 A1 1E 91 F7 A1 1C A1 12 2A |....-..........*|
00002350: 07 4F 08 4A D3 C0 48 D5 5D 95 02 24 91 F7 A1 1E |.O.J..H.]..$....|
00002360: 01 95 02 2B 2A 4F 0D 91 F7 95 02 2B 95 02 24 02 |...+*O.....+..$.|
00002370: E1 1E 95 02 24 91 F7 A1 1E 01 D5 02 24 4A D3 9F |....$.......$J..|
00002380: 47 00 F7 80 91 F7 81 02 E1 1C 80 A1 1C 80 2B 4F |G.............+O|
00002390: 1A 00 99 22 CE 4F 20 46 49 45 4C 44 53 20 53 4F |...".O FIELDS SO|
000023A0: 52 54 45 44 22 3A 48 D4 21 00 99 00 99 22 42 45 |RTED":H.!...."BE|
000023B0: 47 49 4E 4E 49 4E 47 20 53 4F 52 54 20 50 52 4F |GINNING SORT PRO|
000023C0: 43 45 53 53 20 20 20 20 20 22 3A 81 D1 9C 91 72 |CESS ":....r|
000023D0: 44 00 9C 4A EA 9F 4A D4 0F 47 00 9C 4A D2 07 81 |D..J..J..G..J...|
000023E0: D1 9C 91 72 44 00 9C 91 9C 8A 00 E2 10 47 00 9C |...rD........G..|
000023F0: 4C 81 D1 F7 80 A1 1C 44 00 F7 91 9C 91 9C A2 10 |L......D........|
00002400: 91 F7 A1 1C A2 0C 92 1E 01 91 F7 A1 1E B8 14 01 |................|
00002410: E2 10 00 99 4A 25 00 99 22 91 22 3B 3A 47 00 F7 |....J%..".";:G..|
00002420: 4C 00 99 22 56 41 4C 55 45 20 4F 55 54 20 4F 46 |L.."VALUE OUT OF|
00002430: 20 52 41 4E 47 45 22 00 99 22 91 91 22 3B 3A 4C | RANGE".."..";:L|
00002440: 00 99 22 56 41 4C 55 45 20 4F 55 54 20 4F 46 20 |.."VALUE OUT OF |
00002450: 52 41 4E 47 45 22 00 99 22 91 91 91 91 22 3B 3A |RANGE".."....";:|
00002460: 4C 00 99 22 93 D3 43 52 45 45 4E 20 D3 4F 52 54 |L.."..CREEN .ORT|
00002470: 2E 31 22 00 99 00 99 22 20 20 C6 49 45 4C 44 20 |.1"...." .IELD |
00002480: 20 20 20 D3 49 5A 45 20 D3 45 51 20 20 20 C6 49 | .IZE .EQ .I|
00002490: 45 4C 44 20 20 20 20 D3 49 5A 45 20 D3 45 51 22 |ELD .IZE .EQ"|
000024A0: 00 99 22 20 23 20 2E CE 41 4D 45 2E 2E 2E 20 20 |.." # ..AME... |
000024B0: 2E 2E 20 20 23 20 20 20 23 20 2E CE 41 4D 45 2E |.. # # ..AME.|
000024C0: 2E 2E 20 20 2E 2E 20 20 23 22 3A 91 B1 D5 01 F3 |.. .. #":.....|
000024D0: 91 B1 89 0A 2A 4F 07 89 0A D5 01 F3 81 D1 DB 95 |....*O..........|
000024E0: 01 F3 44 00 DB 00 99 C9 28 22 20 22 AA C4 28 4C |..D.....(" "..(L|
000024F0: 25 29 2C 32 29 22 20 22 48 52 24 28 4C 25 2C 31 |%),2)" "HR$(L%,1|
00002500: 29 3B 22 20 22 48 52 24 28 4C 25 2C 32 29 00 99 |);" "HR$(L%,2)..|
00002510: 22 91 22 3B 3A 81 D5 01 FA 91 F7 44 01 FA 95 01 |".";:......D....|
00002520: FA A1 1C 91 DB 2B 4F 0C 00 99 A3 31 36 29 3B 4D |.....+O....16);M|
00002530: 25 3B 3A 47 01 FA 00 99 22 20 22 3A 47 00 DB 00 |%;:G...." ":G...|
00002540: 99 3A 91 B1 89 0B 2D 4F 05 48 D2 40 00 99 22 13 |.:....-O.H.@..".|
00002550: 11 11 11 11 22 3A 89 0B D1 DB 91 B1 44 00 DB 00 |....":......D...|
00002560: 99 A3 32 30 29 3B C9 28 22 20 22 AA C4 28 4C 25 |..20);.(" "..(L%|
00002570: 29 2C 32 29 22 20 22 48 52 24 28 4C 25 2C 31 29 |),2)" "HR$(L%,1)|
00002580: 3B 22 20 22 48 52 24 28 4C 25 2C 32 29 00 99 22 |;" "HR$(L%,2).."|
00002590: 91 22 3B 3A 81 D5 01 FA 91 F7 44 01 FA 95 01 FA |.";:......D.....|
000025A0: A1 1C 91 DB 2B 4F 0C 00 99 A3 33 36 29 3B 4D 25 |....+O....36);M%|
000025B0: 3B 3A 47 01 FA 00 99 22 20 22 3A 47 00 DB 00 99 |;:G...." ":G....|
000025C0: 3A 4C 00 A0 39 00 99 22 53 41 56 49 4E 47 20 22 |:L..9.."SAVING "|
000025D0: 44 4E 24 22 20 46 49 4C 45 22 00 98 31 2C 22 49 |DN$" FILE"..1,"I|
000025E0: 30 22 3A 4A D6 6A 00 A0 31 00 A0 31 35 00 93 22 |0":J.j..1..15.."|
000025F0: 44 42 4D 45 4E 55 22 2C 38 00 99 22 53 4F 52 54 |DBMENU",8.."SORT|
00002600: 49 4E 47 20 52 45 43 4F 52 44 20 22 3A 91 72 D5 |ING RECORD ":.r.|
00002610: 02 32 81 D5 02 39 80 D5 02 40 80 81 E1 0E 81 8D |.2...9...@......|
00002620: FF FF E1 0E 95 02 39 81 01 D5 02 39 80 D5 02 40 |......9....9...@|
00002630: 95 02 39 95 02 32 2A 4F 05 48 D1 40 00 99 42 30 |..9..2*O.H.@..B0|
00002640: 25 00 99 22 91 22 3B 3A 95 02 39 A2 10 95 02 40 |%..".";:..9....@|
00002650: A1 0E A2 10 2D 4F 05 48 D1 66 95 02 40 D5 02 47 |....-O.H.f..@..G|
00002660: 95 02 40 A1 0E D5 02 40 95 02 40 8D FF FF 2B 4F |..@....@..@...+O|
00002670: 05 48 D1 79 95 02 39 A2 10 95 02 40 A2 10 2A 4F |.H.y..9....@..*O|
00002680: 05 48 D1 A6 48 D1 55 95 02 47 95 02 39 E1 0E 95 |.H..H.U..G..9...|
00002690: 02 39 8D FF FF E1 0E 48 D1 DC 95 02 39 80 A1 0E |.9.....H....9...|
000026A0: E1 0E 80 95 02 39 E1 0E 48 D1 DC 95 02 39 95 02 |.....9..H....9..|
000026B0: 47 A1 0E E1 0E 95 02 47 95 02 39 E1 0E 48 D1 DC |G......G..9..H..|
000026C0: 4C 80 D5 02 4E 00 99 22 4B 45 59 20 22 2C 22 4E |L...N.."KEY ","N|
000026D0: 31 22 2C 22 52 45 43 23 20 50 28 4E 31 29 22 3A |1","REC# P(N1)":|
000026E0: 81 D5 02 1D 95 02 32 44 02 1D 00 99 C8 28 4B 31 |......2D.....(K1|
000026F0: 24 28 50 25 28 4E 31 25 29 29 2C 38 29 2C 4E 31 |$(P%(N1%)),8),N1|
00002700: 25 2C 50 25 28 4E 31 25 29 3A 95 02 4E A1 0E D5 |%,P%(N1%):..N...|
00002710: 02 4E 47 02 1D 4C 00 99 22 50 52 45 53 53 20 41 |.NG..L.."PRESS A|
00002720: 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E |NY KEY TO CONTIN|
00002730: 55 45 22 00 A1 4B 24 3A 96 01 6E 8A 00 2B 4F 05 |UE"..K$:..n..+O.|
00002740: 48 D0 CD 4C 00 A1 4B 24 3A 96 01 6E 8A 00 2B 4F |H..L..K$:..n..+O|
00002750: 05 48 D0 52 96 01 6E 8A 01 53 2B 4F 0E 00 99 22 |.H.R..n..S+O..."|
00002760: 12 53 54 4F 50 50 45 44 22 3A 96 01 6E 8A 01 51 |.STOPPED":..n..Q|
00002770: 2B 4F 10 00 99 22 12 51 55 49 54 22 3A 81 D5 01 |+O...".QUIT":...|
00002780: A6 00 99 22 50 52 45 53 53 20 41 4E 59 20 4B 45 |..."PRESS ANY KE|
00002790: 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 A1 |Y TO CONTINUE"..|
000027A0: 4B 24 3A 96 01 6E 8A 00 2B 4F 05 48 D0 62 4C 80 |K$:..n..+O.H.bL.|
000027B0: D1 F7 81 D5 01 EC 4A CE 27 80 D5 02 24 8A 00 D2 |......J.'...$...|
000027C0: E9 80 B8 04 91 72 04 82 02 D5 02 2B 81 D1 F7 85 |.....r.....+....|
000027D0: 44 00 F7 00 99 22 C1 46 54 45 52 20 53 45 4C 45 |D....".FTER SELE|
000027E0: 43 54 49 4E 47 20 46 49 45 4C 44 53 20 41 4E 44 |CTING FIELDS AND|
000027F0: 20 4B 45 59 53 28 22 36 AB 53 25 22 4D 41 58 29 | KEYS("6.S%"MAX)|
00002800: 22 00 99 22 D0 52 45 53 53 20 52 45 54 55 52 4E |"..".RESS RETURN|
00002810: 20 54 4F 20 53 54 41 52 54 20 53 45 41 52 43 48 | TO START SEARCH|
00002820: 49 4E 47 22 3A 95 02 24 95 02 2B 2B 4F 05 48 CE |ING":..$..++O.H.|
00002830: DC 00 85 22 C6 49 45 4C 44 20 23 20 54 4F 20 53 |...".IELD # TO S|
00002840: 45 41 52 43 48 20 20 20 A0 9D 9D 9D 22 3B 53 24 |EARCH ....";S$|
00002850: 3A 91 F7 92 F0 B8 11 E1 20 91 F7 A1 20 80 2B 4F |:....... ... .+O|
00002860: 05 48 CE DC 91 F7 A1 20 81 2D 91 F7 A1 20 91 B1 |.H..... .-... ..|
00002870: 2A 07 4F 08 4A CE 67 48 CF CF 00 99 22 C5 4E 54 |*.O.J.gH....".NT|
00002880: 45 52 20 54 48 45 20 4B 45 59 20 46 4F 52 20 54 |ER THE KEY FOR T|
00002890: 48 45 20 22 48 52 24 28 46 46 25 28 53 25 29 2C |HE "HR$(FF%(S%),|
000028A0: 31 29 22 20 46 49 45 4C 44 22 00 85 22 20 54 4F |1)" FIELD".." TO|
000028B0: 20 42 45 20 53 45 41 52 43 48 45 44 20 2E 2E 9D | BE SEARCHED ...|
000028C0: 9D 9D 22 3B 53 24 3A 91 F7 92 F0 B8 0F E1 22 91 |..";S$:.......".|
000028D0: F7 A1 22 81 2D 91 F7 A1 22 91 F7 A1 20 A1 12 2A |..".-..."... ..*|
000028E0: 07 4F 08 4A CE 48 48 CF CF 95 02 24 91 F7 A1 22 |.O.J.HH....$..."|
000028F0: 01 95 02 2B 2A 4F 17 91 F7 95 02 2B 95 02 24 02 |...+*O.....+..$.|
00002900: E1 22 92 F0 91 F7 A1 22 B8 14 D2 F0 95 02 24 91 |."....."......$.|
00002910: F7 A1 22 01 D5 02 24 92 E9 92 F0 01 D2 E9 4A CE |.."...$.......J.|
00002920: 27 47 00 F7 80 91 F7 81 02 E1 20 80 A1 20 80 2B |'G........ .. .+|
00002930: 4F 1C 00 99 22 CE 4F 20 46 49 45 4C 44 53 20 53 |O...".O FIELDS S|
00002940: 45 41 52 43 48 45 44 22 3A 48 CE 91 00 99 00 99 |EARCHED":H......|
00002950: 22 42 45 47 49 4E 4E 49 4E 47 20 53 45 41 52 43 |"BEGINNING SEARC|
00002960: 48 20 50 52 4F 43 45 53 53 20 20 20 20 20 22 3A |H PROCESS ":|
00002970: 4C 81 8A 00 E2 10 81 D1 F7 80 A1 20 44 00 F7 81 |L.......... D...|
00002980: 81 A2 10 91 F7 A1 20 A2 0C 92 1E 01 91 F7 A1 22 |...... ........"|
00002990: B8 14 01 E2 10 47 00 F7 4C 00 99 22 56 41 4C 55 |.....G..L.."VALU|
000029A0: 45 20 4F 55 54 20 4F 46 20 52 41 4E 47 45 22 00 |E OUT OF RANGE".|
000029B0: 99 22 91 91 22 3B 3A 4C 00 99 22 56 41 4C 55 45 |."..";:L.."VALUE|
000029C0: 20 4F 55 54 20 4F 46 20 52 41 4E 47 45 22 00 99 | OUT OF RANGE"..|
000029D0: 22 91 91 91 91 22 3B 3A 4C 00 99 22 93 D3 43 52 |"....";:L.."..CR|
000029E0: 45 45 4E 20 D3 45 41 52 43 48 2E 31 22 00 99 00 |EEN .EARCH.1"...|
000029F0: 99 22 20 20 C6 49 45 4C 44 20 20 20 20 D3 49 5A |." .IELD .IZ|
00002A00: 45 20 D3 45 51 20 20 20 C6 49 45 4C 44 20 20 20 |E .EQ .IELD |
00002A10: 20 D3 49 5A 45 20 D3 45 51 22 00 99 22 20 23 20 | .IZE .EQ".." # |
00002A20: 2E CE 41 4D 45 2E 2E 2E 20 20 2E 2E 20 20 23 20 |..AME... .. # |
00002A30: 20 20 23 20 2E CE 41 4D 45 2E 2E 2E 20 20 2E 2E | # ..AME... ..|
00002A40: 20 20 23 22 3A 81 D1 DB 91 B1 44 00 DB 00 99 C9 | #":.....D.....|
00002A50: 28 22 20 22 AA C4 28 4C 25 29 2C 32 29 22 20 22 |(" "..(L%),2)" "|
00002A60: 48 52 24 28 4C 25 2C 31 29 3B 22 20 22 48 52 24 |HR$(L%,1);" "HR$|
00002A70: 28 4C 25 2C 32 29 00 99 22 91 22 3B 3A 81 D5 01 |(L%,2)..".";:...|
00002A80: FA 91 F7 44 01 FA 95 01 FA A1 20 91 DB 2B 4F 0C |...D...... ..+O.|
00002A90: 00 99 A3 31 36 29 3B 4D 25 3B 3A 47 01 FA 00 99 |...16);M%;:G....|
00002AA0: 22 20 22 3A 47 00 DB 00 99 3A 4C 5E 03 00 80 00 |" ":G....:L^....|
00002AB0: 00 00 43 D2 00 00 00 00 00 D0 C6 00 00 00 00 00 |..C.............|
00002AC0: C3 D3 00 00 00 00 00 44 C8 00 00 00 00 00 53 D0 |.......D......S.|
00002AD0: 00 00 00 00 00 D0 C3 00 00 00 00 00 D8 80 00 00 |................|
00002AE0: 00 00 00 50 D2 00 00 00 00 00 56 D4 00 00 00 00 |...P......V.....|
00002AF0: 00 CD D2 00 00 00 00 00 CC D5 00 00 00 00 00 D0 |................|
00002B00: D5 00 00 00 00 00 43 54 00 00 00 00 00 44 CE 00 |......CT.....D..|
00002B10: 00 00 00 00 46 80 00 00 00 00 00 DA DA 00 00 00 |....F...........|
00002B20: 00 00 CE D2 00 00 00 00 00 41 80 00 00 00 00 00 |.........A......|
00002B30: 43 B1 00 00 00 00 00 D2 D3 00 00 00 00 00 C6 D3 |C...............|
00002B40: 00 00 00 00 00 4C 80 00 00 00 00 00 CA 80 00 00 |.....L..........|
00002B50: 00 00 00 46 D8 00 00 00 00 00 C9 80 00 00 00 00 |...F............|
00002B60: 00 CE C8 00 00 00 00 00 C1 C6 00 00 00 00 00 CC |................|
00002B70: CE 00 00 00 00 00 CA C8 00 00 00 00 00 CA CC 00 |................|
00002B80: 00 00 00 00 45 80 00 00 00 00 00 CC 80 00 00 00 |....E...........|
00002B90: 00 00 D3 D2 00 00 00 00 00 46 CB 00 00 00 00 00 |.........F......|
00002BA0: 53 80 00 00 00 00 00 D3 80 00 00 00 00 00 D2 C3 |S...............|
00002BB0: 00 00 00 00 00 C3 80 00 00 00 00 00 43 80 00 00 |............C...|
00002BC0: 00 00 00 CE C4 00 00 00 00 00 44 D2 00 00 00 00 |..........D.....|
00002BD0: 00 C4 D2 00 00 00 00 00 51 80 00 00 00 00 00 CB |........Q.......|
00002BE0: 80 00 00 00 00 00 44 80 00 00 00 00 00 C5 80 00 |......D.........|
00002BF0: 00 00 00 00 C8 C3 00 00 00 00 00 C7 D4 00 00 00 |................|
00002C00: 00 00 C2 D2 00 00 00 00 00 CE CE 00 00 00 00 00 |................|
00002C10: CB CD 00 00 00 00 00 D2 C8 00 00 00 00 00 4B 80 |..............K.|
00002C20: 00 00 00 00 00 53 B1 00 00 00 00 00 51 B1 00 00 |.....S......Q...|
00002C30: 00 00 00 D1 B1 00 00 00 00 00 C4 B1 00 00 00 00 |................|
00002C40: 00 CC D2 00 00 00 00 00 CC D3 00 00 00 00 00 C4 |................|
00002C50: D0 00 00 00 00 00 CB D1 00 00 00 00 00 D0 D0 00 |................|
00002C60: 00 00 00 00 48 B1 00 00 00 00 00 48 B2 00 00 00 |....H......H....|
00002C70: 00 00 CB B1 00 00 00 00 00 CB B2 00 00 00 00 00 |................|
00002C80: CB B3 00 00 00 00 00 CE D3 00 00 00 00 00 58 80 |..............X.|
00002C90: 00 00 00 00 00 CC D8 00 00 00 00 00 CD C6 00 00 |................|
00002CA0: 00 00 00 C5 CE 00 00 00 00 00 CD 80 00 00 00 00 |................|
00002CB0: 00 46 CC 00 00 00 00 00 C4 C2 00 00 00 00 00 D0 |.F..............|
00002CC0: C4 00 00 00 00 00 42 80 00 00 00 00 00 CE 80 00 |......B.........|
00002CD0: 00 00 00 00 D3 CB 00 00 00 00 00 D3 CD 00 00 00 |................|
00002CE0: 00 00 C2 B9 00 00 00 00 00 C2 B0 00 00 00 00 00 |................|
00002CF0: C2 B1 00 00 00 00 00 C3 CC 00 00 00 00 00 CE B1 |................|
00002D00: 00 00 00 00 00 00 00 24 00 00 00 00 00 00 00 00 |.......$........|
00002D10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00002D20: 00 00 00 00 00 00 00 00 00 03 36 B0 33 FF FF 2F |..........6.3../|
00002D30: 0B D3 8D E4 92 D5 ED 30 F8 |.......0. |
.......2073... R.LE. R.L.. R....ID...?..
.............. U.HHLH RTL-64 R. Q. _.`
..`........%...`H............H` _. G. R.
`@..........85...T[.VL-DBMAINWI..P!...P.
."."..". ":..P.....P....R..Q..Q...-----
--------------------R... R..'Q%.Q,.PD.,.
... .R.F.Q,.PD.,.3....R3F...R:.Q,..D.,.:
....R:F..R$(65):A....AC%(21):A....K%(65)
:A....RN$(21):A....N$(21):A....PQA..P%(M
R%):A....K1$(MR%):A....FL%(21):A....Z$(2
1):A....PL%(21):A....HR$(21,2):A....HR%(
70):A....SF%(10):A....SC%(10):A....FF%(1
0):A. ..FC%(10):A."..QH..QO..T...PV..1,8
,15..1,"I0":..DBSTATUSR]..NDXRD.QK.QR..8
,8,8,DN$:JVJ.Y..62+O.. LU%:H.H.Y..21+O..
LU%:H.H..8,C1$..8,DN$. 8:.]......COMPUF
ILE+O.H.H.].......R]...."READING ";DN$;"
INFORMATION":H.....HDRRD.QR..".";.."ENT
ER THE NAME AND SIZE OF EACH FIELD".."FO
R WHICH INFORMATION IS TO BE SAVED".."FI
ELD # NAME SIZE":.QR..D.R.
.H(VT$,NR%.3);.5)NR%;.10)HR$(NR%,1);.28)
;HR$(NR%,2):G.R.."**** ENTER 'END' WHEN
DONE "..".":.Q..QR..D.R..H(VT$,NR%.3);H(
SP$,30)..H(VT$,NR%.3);.5)NR%;.10)HR$(NR%
,1);.28);HR$(NR%,2)" "..H(VT$,NR%.3);..
.5);NR%;.8);.."";HR$(NR%,1):.R..R....3..
......R........END+.R..*.O.H....".......
.................. ";.."";HR$(NR%,2):.R
.....Q....-...<*.O".."VALUE OUT OF RANGE
"..".";:H...........-O.H...."MAXIMUM REC
ORD SIZE EXCEEDED":.R............"FIELD
SIZE ADJUSTED TO-";HR$(NR%,2).."PRESS RE
TURN TO CONTINUE ..";L$:H.<...R........
Q.G.R.R..QR.."OKAY Y/N Y...";L$:.......
Y.O.H.<...."**** PLEASE WAIT ****".."SAV
ING DATABASE PARAMETERS"..1,"S0:".DN$.F$
:JVJ..8,8,8,"0:".DN$.F$.",S,W":JVJ..8,NR
%;CR$;RS%;CR$;:.Q..RD....8,HR$(J%,1);CR$
;..8,HR$(J%,2);CR$;:G... 8:.QR..1,"S0:".
DN$.".CNT":JVJ..8,8,8,"0:".DN$.".CNT,S,W
"..8,NR%;CR$;. 8:.]...NDX,L,.R...9,8,9,F
X$.G(RS%):JVJ.Q...D.........3.........G.
..Q...D..J..G... 9:L.Q..........R..QR...
....".SCREEN A.1".."IN THE "DN$" FILE"..
"YOU ARE ENTERING RECORD # "NR%..:.Q...D
........+O...........Q..........R......H
R$(I%,1)": >";..H(N$(I%).SP$,FL%(I%));"<
":G...."....":.Q...D.........Q....P.R...
....P..HR$(I%,1)":";.."";N$(I%):......Q.
.........<+O............................
....G......"OKAY Y/N Y...";L$:.Q.....Y+
O.H.XH...RQ.........QF...F.....QM..1,"P"
G(9)G(JL%)G(JH%)G(0):..ADDRTJVJ.Y..50+O.
..9,".EOF.":H........Q...D..............
..F..9,N$(0);:JVJ.Y..50+O.H...."MORE (Y/
N) Y...";L$:....Y+O.H.).Q.J..HXA..1,"S0
:".DN$.".CNT":JVJ..8,8,8,"0:".DN$.".CNT,
S,W"..8,NR%;CR$;. 8:LJPQ.. .+O.H.P.Q..."
.":.Q..RD....Q.J..JN......+O...".SCREEN
SEARCH.2 ";:J.?......O.H...."0 RETURN T
O THE MAIN MENU".."1 CONTINUE SEARCHING"
.."2 MAKE CHANGES TO THIS RECORD".."WHIC
H 1...";S$:....Q....-...*.O...".";:H./.
..+O.HXA...+O.J.IG...."THAT'S ALL OF THE
M. ":J.:.."NOW YOU MAY:".."0 RETURN TO T
HE MAIN MENU".."1 DO ANOTHER SEARCH KEY"
...."WHICH 1...";S$:....Q....-...*.O...
".";:H.....+O.HXA...+O.H.....+O.J.IH.T..
"PRESS ANY KEY TO CONTINUE"..A$:.Y..+O.H
...Q..."..":L..".SCREEN C.1 ":..........
"ENTER 0 TO RETURN TO THE MENU".."ENTER
THE NUMBER OF THE RECORD".."YOU WANT TO
CHANGE ...";RC%:..Q....-...R*.O .."REC
ORD OUT OF RANGE":JP.H.....+O.HXAJ.IH..J
.I..".SCREEN C.2 "HR$(0,1)": ";J%:.Q...
D....I%" "HR$(I%,1)": "N$(I%):G........
"RE-KEY THE FIELD THAT YOU WANT TO CHANG
E"..".":.Q...D....I%" "HR$(I%,1)":";..N$
(I%):.................G....".";:.Q.J.?..
"MORE FIELD CHANGES (Y/N) Y...";L$:....
Y+O.H.F..Q.J..L........QF...F.....QM..1,
"P"G(9)G(JL%)G(JH%)G(0):JVJ......Q...D..
.......U......D....#9,C$:.....+O... V...
.....0-O... V........Z*O... V...........
...G....#9,C$:G.........L........QF...F.
....QM..1,"P"G(9)G(JL%)G(JH%)G(0):JVJ...
...Q...D..........9,N$(I%):JVJG.........
L.." "HR$(0,1)": ";J%:.Q...D....I%" "HR
$(I%,1)": "N$(I%):G....:L........QF...F
.....QM..1,"P"G(9)G(JL%)G(JH%)G(0):..WTO
DRTJVJ.Y..50+O...9,".EOF.":H........Q...
D................G....9,N$(0);:JVJL.....
....U....".SCREEN D.1".."ENTER 0 TO RETU
RN TO MAIN MENU".."ENTER RECORD NUMBER T
O DELETE 0...";DR$:.....U.!..!.-..!.R*
.O .."RECORD OUT OF RANGE":J.:H.@..!.+O.
H....!Q.J...."RECORD TO BE DELETED":J.?.
."DELETE THIS RECORD (Y/N) Y...";Q$:..(
..Y.O.H.7........*.O......U.....*..J....
"RECORD NUMBER "DR%"FLAGGED FOR DELETION
".."MORE RECORDS TO DELETE (Y/N) Y...";
L$:....Y+O.H.Q....+O.H...RQ..U./.R....D.
/../Q.J..........*+O.H.MH....Q.J........
..*+O.....Q.H.M../Q.J......Q.G./.R....QR
J..HXA..".."..".COMPUFILE MANAGER VERSIO
N 1.1".."THIS IS THE INITIAL MENU".."YOU
MAY CHOOSE TO DO THE FOLLOWING:"...." 0
EXIT THIS PROGRAM":.R.+O..Q.H.S.Q..RD.
...J%" GO TO THE ."R$(J%)". FILE":G....J
%" SET-UP A NEW FILE"...."ENTER A NUMBER
...";S$:....Q....-....*.O.H.....+O.^.
..:....R]....+O.H.H...."READING ";DN$;"
INFORMATION":H....:...+O..Q..."ENTER NAM
E OF NEW DATA BASE ".."10 CHARACTERS MAX
IMUM ...";D$:..6.......R]J..J.GJ..J.JH
XA...HDRRD..8,8,8,"0:".DN$.F$.",S,R":JVJ
.Y..62+O.. 8:H.R..8,NR%,RS%:....REC#
......4...Q..RD....8,HR$(J%,1),HR$(J%,2)
:...........G... 8:JVJ.RQ..QRL..1,"I":JV
J.]...NDX.R...9,8,9,FX$:..5320RTJVJ..1,"
P"G(9)G(1)G(0)G(0):..OPNRRTJVJ..8,8,8,"0
:".DN$.".CNT":JVJ..8,NR%. 8:JVJL..".";:.
U.=.."SCREEN L.1":.Q.......D.......G...Q
...D.......G...U.D.U.K..=M..>JZ...RM..AX
A.."NUMBER OF CHARACTERS/LINE";PC%:.%..-
.%.H*.O.H.W..=.+O...Y..#1 ...U.`.U.G..
..D.G..G....Q.J......"THE REPORT WILL PL
ACE THE FIELDS ON THE".."SCREEN FROM LEF
T TO RIGHT".."PRESS RETURN WHEN YOU ARE
FINISHED".." DEFINING THE REPORT FORMAT"
..H(VT$,22);"WHAT FIELD # OF THE FILE DO
YOU".."WANT TO PRINT NEXT ";.." ....";
K$:....N......N......+O.H.C.....-......*
.O.H...."IN WHAT PRINT POSITION DO YOU W
ANT THE"..HR$(K%(I%),1)" TO BEGIN (";KM%
;" MINIMUM) ";.." ...";K$:......N......
:.......-.......%*.O.H..........`-O.H...
.......U.`G.G..G..U.G..G.....%....RH%,I%
:J..H.>J.:.."DO YOU WANT TO SORT THE REC
ORDS Y...";S1$:..U..Y+O.JV....."DO YOU
WANT TO SEARCH THE FILE Y...";Q1$:..|..
......U.......U.......V.|..|..Y+O.JPQ.
.|..Y.O.... .U..J.-.%.(.....U..........U
..J..J...U...RD......*O......Q......U...
...+O....Q.J.... .+O.H.2JN.......O.H....
.-O......*O.J.:J..J.CJP....O..U..H.....+
O.J..G....=M......."DO YOU WANT TO SAVE
THE FORMAT".."FOR THIS REPORT TO DISK (Y
/N) Y...";L$:....Y+O..U.=J.P.."DO YOU W
ANT TO MAKE ANOTHER ".."REPORT USING THE
"RN$(NN%)" FORMAT".."(Y/N) Y...";L$:..
..Y+O.J...U.=H..H.P.Q...G..D............
..G....G....Q%.%..-O..'Q%..G...'..L.U...
.V....V...Q...GD................U.B.....
...U.I.............U.P..P.-O..U.P.......
B.....I........P...V.........B..........
P...V.......P.U..G..L.Q...GD..........U.
B........U.I.............U.P..P.-O..U.P.
..+O....K1%);..H(N$(K2%).SP$,K3%);:....G
-O..." ";:..O....+O...4,.K1%.1);:..O...4
,H(N$(K2%).SP$,K3%);:..O.....G-O...4," "
;:G....:..O...4:....Q.L..".";.."REPORT I
D:"RN$(NN%):.. .+O..."ALL RECORDS SELECT
ED":H.A..FK$" RECORDS SELECTED":....*O..
."SORTED BY:";:J......H1$..H2$.." ":..O.
..4,H1$..4,H2$..4," ":.Q.L.Q....D....HR$
(SF%(S%),1);" ";:G....:L.RU.W...."ENTER
REPORT NAME ...";RN$(NN%):..Y......*O.
..Y..Y.......... ..Y.........RPT.RD...G.
..QR.Q..RD........V.........U...........
....G..JYXJX.L.. ..Y.........RPT.RD.QKJY
..R....U.G.Q..RD............G....WQR.U..
J..L..".";.." FIELD SIZ POS FIELD
SIZ POS".." # ........ .. # # ..
...... .. #":..U......*O...U...Q....D.
...I(" ".D(L%),2)" "HR$(L%,1);" "HR$(L%,
2)..".";:.U....G...E.........+........*.
O....16);K%(M%.1);:G...." ":G....:....-O
.H.|..".....":..Q...D.....20);I(" ".D(L%
),2)" "HR$(L%,1);" "HR$(L%,2)..".";:.U..
..G...E.........+........*.O....36);K%(M
%.1);:G...." ":G....:.U....G.+O.HZ..U...
.GD...........U.B.........U.I..I..U.P..B
..P..%*O..%..B...U.P..P.-O..U.P..H(VT$,1
6);.K1%);H(HR$(K2%,1).PR$,K3%):G..L.U.R.
U.Y.Q...D........G...RU.W...FMTRD.QKJY..
Y..00.O..QR...RETURN TO MAIN MENU...Q..R
D..........G...."OPTIONS AVAILABLE:"..:.
Q..RD....I%" "R$(I%):G......I%" DESIGN A
NEW REPORT LAYOUT"...."WHICH 1...";S$:
....Q....-....*.O.HZ;...+O..U.RHY...U.Y.
....O..U.=..WQR.U.RHY.J....WQRL.].D.V...
.8,8,8,FL$:...O...FL$,C(FL$):JVJ.Y..62+O
.HY].Y..21+O.HY]..8,NR%:.KQ..RD....8,X$:
..............U.........+O..............
G... 8:L..1,"I0":JVJ..1,"S0:".DN$.F$:JVJ
..8,8,8,"0:".DN$.F$.",S,W":JVJ..8,NR%;CR
$;:.Q..RD....8,R$(J%);CR$;:G... 8:JVJL..
YQR...FMTRD.Q..RD..........G..JYX..WQRL.
9:JVJJ.J..".SCREEN M.1 "...."FILE NAME:
"DN$.." CONTAINS: "NR%" RECORDS".."PRIN
TER IS .";:..O..."ON":HXP.."OFF".." ".."
.ENTER LETTER OF FUNCTION DESIRED"...."(
A)DD RECORDS TO THE DATABASE".."(C)HANGE
RECORDS".."(D)ELETE RECORDS".."(L)IST R
ECORDS".."(P)RINTER STATUS TO .";:..O...
"OFF":HW..."ON".."(S)EARCH RECORDS".."(X
)EXIT THIS FILE"..:.. R..."WHICH ";S$:..
...R.....Q.....*O......Q.....R.....A+O.H
.4....C+O.H......D+O.H.}....S+O.H......L
+O.H.P....P+O.HV.....X+O.HR>HXA..M.VX.."
ENTER PRINTER DEVICE NUMBER 4...";PD%.
.4,PD%,7.."NUMBER OF CHARACTERS/LINE";PC
%:.%..-.%.H*.O.HV..Q.HXA.Q.. 4:.PQ%HXA..
1,A$,B$,C$,D$:.Y..00+O.HV....O...DN$;F$:
...O...E$" "A$" "B$" "C$" "D$" "N%:..RTL
.U..JS..U.$....R.....U.+.Q..D...."AFTER
SELECTING FIELDS AND KEYS("6.S%"MAX)".."
PRESS RETURN TO START SORTING":..+..-O9.
."NOTE!!".(SM%.SK%)"CHARACTERS REMAINING
FOR SORT KEY":..$..++O.HT}.."FIELD # TO
SORT ...";S$:.............+O.HT}....
.-......*.O.JS.HU].."HOW MANY CHARACTERS
OF THE "HR$(SF%(S%),1).." ARE TO BE SOR
TED ...";S$:.............-..........*
.O.JS.HU]..$.......+*O.....+..$.....$...
..U.$JS.G.............+O..."NO FIELDS SO
RTED":HT!...."BEGINNING SORT PROCESS
":.Q..RD..J..JT.G..JR..Q..RD........G..
L.Q....D............................J%..
".";:G..L.."VALUE OUT OF RANGE".."..";:L
.."VALUE OUT OF RANGE".."....";:L..".SCR
EEN SORT.1"...." FIELD SIZE SEQ FI
ELD SIZE SEQ".." # .NAME... .. #
# .NAME... .. #":..U......*O...U...Q..
..D....I(" ".D(L%),2)" "HR$(L%,1);" "HR$
(L%,2)..".";:.U....D.........+O....16);M
%;:G...." ":G....:....-O.HR@..".....":..
Q...D.....20);I(" ".D(L%),2)" "HR$(L%,1)
;" "HR$(L%,2)..".";:.U....D.........+O..
..36);M%;:G...." ":G....:L. 9.."SAVING "
DN$" FILE"..1,"I0":JVJ. 1. 15.."DBMENU",
8.."SORTING RECORD ":.RU.2.U.9.U.@......
......9..U.9.U.@..9..2*O.HQ@..B0%..".";:
..9....@....-O.HQF..@U.G..@..U.@..@...+O
.HQY..9....@..*O.HQ.HQU..G..9....9.....H
Q...9........9..HQ...9..G......G..9..HQ.
L.U.N.."KEY ","N1","REC# P(N1)":.U....2D
....H(K1$(P%(N1%)),8),N1%,P%(N1%):..N..U
.NG..L.."PRESS ANY KEY TO CONTINUE"..K$:
..N..+O.HPML..K$:..N..+O.HPR..N..S+O..."
.STOPPED":..N..Q+O...".QUIT":.U...."PRES
S ANY KEY TO CONTINUE"..K$:..N..+O.HPBL.
Q..U..JN'.U.$..R.....R...U.+.Q..D...."AF
TER SELECTING FIELDS AND KEYS("6.S%"MAX)
".."PRESS RETURN TO START SEARCHING":..$
..++O.HN..."FIELD # TO SEARCH ...";S$
:....... ... .+O.HN.... .-... ..*.O.JNGH
OO.."ENTER THE KEY FOR THE "HR$(FF%(S%),
1)" FIELD".." TO BE SEARCHED .....";S$:.
......"...".-..."... ..*.O.JNHHOO..$..."
...+*O.....+..$.."....."..R...$...".U.$.
....R.JN'G........ .. .+O..."NO FIELDS S
EARCHED":HN....."BEGINNING SEARCH PROCES
S ":L......Q... D......... ........"
.....G..L.."VALUE OUT OF RANGE".."..";:L
.."VALUE OUT OF RANGE".."....";:L..".SCR
EEN SEARCH.1"...." FIELD SIZE SEQ
FIELD SIZE SEQ".." # .NAME... .. #
# .NAME... .. #":.Q...D....I(" ".D(L
%),2)" "HR$(L%,1);" "HR$(L%,2)..".";:.U.
...D...... ..+O....16);M%;:G...." ":G...
.:L^......CR.....PF.....CS.....DH.....SP
.....PC.....X......PR.....VT.....MR.....
LU.....PU.....CT.....DN.....F......ZZ...
..NR.....A......C......RS.....FS.....L..
....J......FX.....I......NH.....AF.....L
N.....JH.....JL.....E......L......SR....
.FK.....S......S......RC.....C......C...
...ND.....DR.....DR.....Q......K......D.
.....E......HC.....GT.....BR.....NN.....
KM.....RH.....K......S......Q......Q....
..D......LR.....LS.....DP.....KQ.....PP.
....H......H......K......K......K......N
S.....X......LX.....MF.....EN.....M.....
.FL.....DB.....PD.....B......N......SK..
...SM.....B......B......B......CL.....N.
.......$................................
..6.3../.S...U.0.
> CLICK IMAGE PREVIEW FOR FULL MODAL