DATA FILE MNG
FILE INFORMATION
FILENAME(S): DATA FILE MNG
FILE TYPE(S): PRG
FILE SIZE: 14.3K
FIRST SEEN: 2025-11-30 21:10:55
APPEARS ON: 1 disk(s)
FILE HASH
ff95cff92056d42a784f8c54a72a0c918e9ea64880eafd992924ee18e8445d2c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIES | DATA FILE MNG | PRG | DuncanTwain | 21 | 13 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 01 00 97 35 33 32 38 30 2C 32 3A 97 |.......53280,2:.|
00000010: 35 33 32 38 31 2C 32 3A 99 20 22 9E 22 00 51 08 |53281,2:. ".".Q.|
00000020: 02 00 8F 2A 2A 44 46 4D 20 42 59 20 43 48 52 49 |...**DFM BY CHRI|
00000030: 53 20 45 4C 59 2A 44 49 41 4C 4F 47 20 53 4F 46 |S ELY*DIALOG SOF|
00000040: 54 57 41 52 45 28 43 29 20 31 35 2E 30 31 2E 38 |TWARE(C) 15.01.8|
00000050: 33 00 84 08 03 00 58 B2 30 3A 59 B2 30 3A 52 B2 |3.....X.0:Y.0:R.|
00000060: 30 3A 43 B2 30 3A 49 50 24 B2 22 22 3A 4B 24 B2 |0:C.0:IP$."":K$.|
00000070: 22 22 3A 45 4D 24 B2 22 22 3A 4E 24 B2 22 22 3A |"":EM$."":N$."":|
00000080: 8D 34 31 33 00 9B 08 04 00 41 24 28 52 2C 43 29 |.413.....A$(R,C)|
00000090: B2 22 22 3A 46 B2 30 3A 53 B2 30 00 A7 08 05 00 |."":F.0:S.0.....|
000000A0: 99 C7 28 31 34 37 29 00 B0 08 06 00 8D 33 34 34 |..(147)......344|
000000B0: 00 E1 08 07 00 99 22 11 11 11 20 20 20 44 4F 20 |......"... DO |
000000C0: 59 4F 55 20 57 41 4E 54 20 12 55 92 50 50 45 52 |YOU WANT .U.PPER|
000000D0: 20 4F 52 20 12 4C 92 4F 57 45 52 20 43 41 53 45 | OR .L.OWER CASE|
000000E0: 22 00 F2 08 08 00 A1 4B 24 3A 8B 4B 24 B2 22 22 |"......K$:.K$.""|
000000F0: A7 38 00 0A 09 09 00 8B 4B 24 B2 22 55 22 A7 99 |.8......K$."U"..|
00000100: C7 28 31 34 32 29 3A 89 31 32 00 21 09 0A 00 8B |.(142):.12.!....|
00000110: 4B 24 B2 22 4C 22 A7 99 C7 28 31 34 29 3A 89 31 |K$."L"...(14):.1|
00000120: 32 00 28 09 0B 00 89 38 00 39 09 0C 00 99 C7 28 |2.(....8.9.....(|
00000130: 31 34 37 29 3A 8D 33 34 34 00 49 09 0D 00 99 3A |147):.344.I....:|
00000140: 8B 4E 24 B2 22 22 A7 31 37 00 54 09 0E 00 4E 4C |.N$."".17.T...NL|
00000150: 24 B2 4E 24 00 72 09 0F 00 8B C3 28 4E 4C 24 29 |$.N$.r.....(NL$)|
00000160: B3 39 A7 4E 4C 24 B2 4E 4C 24 AA 22 20 22 3A 89 |.9.NL$.NL$." ":.|
00000170: 31 35 00 9D 09 10 00 99 3A 99 3A 99 A3 38 29 22 |15......:.:..8)"|
00000180: 12 46 49 4C 45 20 49 4E 20 55 53 45 3A 20 22 3B |.FILE IN USE: ";|
00000190: 4E 4C 24 3B 22 92 22 3A 99 3A 99 3A 99 00 B8 09 |NL$;".":.:.:....|
000001A0: 11 00 99 A3 31 34 29 22 4B 45 59 20 4F 50 54 49 |....14)"KEY OPTI|
000001B0: 4F 4E 22 3A 8D 32 36 34 00 E4 09 12 00 99 22 31 |ON":.264......"1|
000001C0: 20 43 52 45 41 54 45 20 4E 45 57 20 46 49 4C 45 | CREATE NEW FILE|
000001D0: 22 A3 32 30 29 22 32 20 52 45 4E 41 4D 45 20 46 |".20)"2 RENAME F|
000001E0: 49 4C 45 22 00 09 0A 13 00 99 22 33 20 41 43 43 |ILE"......"3 ACC|
000001F0: 45 53 53 20 52 45 43 4F 52 44 22 A3 32 30 29 22 |ESS RECORD".20)"|
00000200: 34 20 53 45 4C 45 43 54 22 00 35 0A 14 00 99 22 |4 SELECT".5...."|
00000210: 35 20 4C 4F 41 44 2F 53 41 56 45 20 46 49 4C 45 |5 LOAD/SAVE FILE|
00000220: 22 A3 32 30 29 22 36 20 52 45 50 4F 52 54 20 57 |".20)"6 REPORT W|
00000230: 52 49 54 45 52 00 5B 0A 15 00 99 22 37 20 53 4F |RITER.[...."7 SO|
00000240: 52 54 20 46 49 4C 45 22 A3 32 30 29 22 38 20 55 |RT FILE".20)"8 U|
00000250: 54 49 4C 49 54 49 45 53 22 3A 99 00 7A 0A 16 00 |TILITIES":..z...|
00000260: 99 A3 31 31 29 22 39 20 45 58 49 54 20 50 52 4F |..11)"9 EXIT PRO|
00000270: 47 52 41 4D 22 3A 8D 32 36 34 00 8C 0A 17 00 A1 |GRAM":.264......|
00000280: 4B 24 3A 8B 4B 24 B2 22 22 A7 32 33 00 B9 0A 18 |K$:.K$."".23....|
00000290: 00 4B 4B 24 B2 22 31 32 33 34 35 36 37 38 39 22 |.KK$."123456789"|
000002A0: 3A 81 4B B2 31 A4 39 3A 8B 4B 24 B2 CA 28 4B 4B |:.K.1.9:.K$..(KK|
000002B0: 24 2C 4B 2C 31 29 A7 32 36 00 C4 0A 19 00 82 4B |$,K,1).26......K|
000002C0: 3A 89 32 33 00 FD 0A 1A 00 8B 59 B2 30 AF 4B B3 |:.23......Y.0.K.|
000002D0: B1 31 AF 4B B3 B1 35 AF 4B B3 B1 38 AF 4B B3 B1 |.1.K..5.K..8.K..|
000002E0: 39 A7 99 22 12 4E 4F 20 46 49 4C 45 20 45 58 49 |9..".NO FILE EXI|
000002F0: 53 54 53 22 3A 8D 32 36 31 3A 89 31 32 00 27 0B |STS":.261:.12.'.|
00000300: 1B 00 91 4B 89 31 32 38 2C 37 38 2C 31 30 30 2C |...K.128,78,100,|
00000310: 31 39 31 2C 32 36 35 2C 34 33 33 2C 34 31 37 2C |191,265,433,417,|
00000320: 33 35 31 2C 33 33 38 00 31 0B 1C 00 8D 20 34 31 |351,338.1.... 41|
00000330: 31 00 59 0B 1D 00 99 22 44 4F 20 59 4F 55 20 57 |1.Y...."DO YOU W|
00000340: 49 53 48 20 54 4F 20 12 43 92 4F 4E 54 49 4E 55 |ISH TO .C.ONTINU|
00000350: 45 20 53 45 41 52 43 48 22 00 74 0B 1E 00 99 22 |E SEARCH".t...."|
00000360: 4F 52 20 52 45 54 55 52 4E 20 54 4F 20 12 4D 92 |OR RETURN TO .M.|
00000370: 45 4E 55 22 00 86 0B 1F 00 A1 4B 24 3A 8B 4B 24 |ENU"......K$:.K$|
00000380: B2 22 22 A7 33 31 00 9B 0B 20 00 8B 4B 24 B2 22 |."".31... ..K$."|
00000390: 43 22 A7 8D 34 31 31 3A 89 33 35 00 AA 0B 21 00 |C"..411:.35...!.|
000003A0: 8B 4B 24 B2 22 4D 22 A7 31 32 00 B2 0B 22 00 89 |.K$."M".12..."..|
000003B0: 33 31 00 CB 0B 23 00 8D 34 39 35 3A 43 4F B2 31 |31...#..495:CO.1|
000003C0: 3A 4C 4E B2 32 31 3A 8D 34 39 37 00 F1 0B 24 00 |:LN.21:.497...$.|
000003D0: 99 22 53 45 41 52 43 48 20 46 4F 52 20 52 45 43 |."SEARCH FOR REC|
000003E0: 4F 52 44 20 42 59 20 4B 45 59 20 46 49 45 4C 44 |ORD BY KEY FIELD|
000003F0: 22 00 17 0C 25 00 99 22 2D 2D 2D 2D 2D 2D 2D 2D |"...%.."--------|
00000400: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000410: 2D 2D 2D 2D 2D 2D 22 00 36 0C 26 00 99 22 45 4E |------".6.&.."EN|
00000420: 54 45 52 20 22 22 12 22 41 24 28 30 2C 31 29 22 |TER ""."A$(0,1)"|
00000430: 92 22 22 3A 22 3B 00 43 0C 27 00 8D 32 35 33 3A |."":";.C.'..253:|
00000440: 89 34 36 00 4C 0C 28 00 8D 34 39 35 00 60 0C 29 |.46.L.(..495.`.)|
00000450: 00 43 4F B2 31 3A 4C 4E B2 32 31 3A 8D 34 39 37 |.CO.1:LN.21:.497|
00000460: 00 8A 0C 2A 00 99 22 54 48 45 52 45 20 41 52 45 |...*.."THERE ARE|
00000470: 20 22 59 22 20 52 45 43 4F 52 44 53 20 49 4E 20 | "Y" RECORDS IN |
00000480: 54 48 49 53 20 46 49 4C 45 22 00 AE 0C 2B 00 99 |THIS FILE"...+..|
00000490: 22 45 4E 54 45 52 20 52 45 43 4F 52 44 20 4E 55 |"ENTER RECORD NU|
000004A0: 4D 42 45 52 20 3A 22 3B 3A 8D 20 32 35 33 00 E6 |MBER :";:. 253..|
000004B0: 0C 2C 00 52 B2 C5 28 49 50 24 29 3A 8B 52 B2 30 |.,.R..(IP$):.R.0|
000004C0: B0 52 B1 59 A7 99 22 91 91 22 3A 8D 35 34 38 3A |.R.Y.."..":.548:|
000004D0: 99 22 91 22 53 24 3A 99 22 91 91 22 3A 8D 34 31 |."."S$:."..":.41|
000004E0: 31 3A 20 89 34 32 00 EF 0C 2D 00 89 31 30 31 00 |1: .42...-..101.|
000004F0: FA 0C 2E 00 4C 24 B2 49 50 24 00 06 0D 2F 00 46 |....L$.IP$.../.F|
00000500: B2 C3 28 4C 24 29 00 11 0D 30 00 81 52 B2 31 A4 |..(L$)...0..R.1.|
00000510: 59 00 2A 0D 31 00 8B 4C 24 B2 C8 28 41 24 28 52 |Y.*.1..L$..(A$(R|
00000520: 2C 31 29 2C 46 29 A7 31 30 31 00 30 0D 32 00 82 |,1),F).101.0.2..|
00000530: 00 39 0D 33 00 8D 34 31 31 00 59 0D 34 00 99 22 |.9.3..411.Y.4.."|
00000540: 12 4E 4F 20 53 55 43 48 20 52 45 43 4F 52 44 20 |.NO SUCH RECORD |
00000550: 45 58 49 53 54 53 21 92 22 00 69 0D 35 00 81 5A |EXISTS!.".i.5..Z|
00000560: B2 31 A4 31 30 30 30 3A 82 00 71 0D 36 00 89 32 |.1.1000:..q.6..2|
00000570: 38 00 9E 0D 37 00 41 43 B2 30 3A 20 99 22 57 48 |8...7.AC.0: ."WH|
00000580: 49 43 48 20 4C 49 4E 45 20 44 4F 20 59 4F 55 20 |ICH LINE DO YOU |
00000590: 57 49 53 48 20 54 4F 20 41 4D 45 4E 44 22 00 BC |WISH TO AMEND"..|
000005A0: 0D 38 00 99 22 50 52 45 53 53 20 31 20 54 4F 20 |.8.."PRESS 1 TO |
000005B0: 22 58 22 20 3A 22 3B 3A 8D 32 35 33 00 D7 0D 39 |"X" :";:.253...9|
000005C0: 00 43 B2 C5 28 49 50 24 29 3A 8B 43 B1 58 A7 8D |.C..(IP$):.C.X..|
000005D0: 34 31 31 3A 89 35 35 00 E0 0D 3A 00 8D 34 31 31 |411:.55...:..411|
000005E0: 00 19 0E 3B 00 99 22 45 58 49 53 54 49 4E 47 20 |...;.."EXISTING |
000005F0: 44 41 54 41 20 46 4F 52 20 22 22 12 22 41 24 28 |DATA FOR ""."A$(|
00000600: 30 2C 43 29 22 92 22 22 20 3D 20 22 3A 99 20 22 |0,C)"."" = ":. "|
00000610: 12 22 41 24 28 52 2C 43 29 00 3E 0E 3C 00 99 22 |."A$(R,C).>.<.."|
00000620: 4E 45 57 20 44 41 54 41 20 22 3B 3A 99 22 5B 22 |NEW DATA ";:."["|
00000630: 3B 3A 99 C8 28 53 24 2C 41 28 43 29 29 3B 00 5B |;:..(S$,A(C));.[|
00000640: 0E 3D 00 99 22 5D 22 3B 3A 99 C8 28 54 24 2C 41 |.=.."]";:..(T$,A|
00000650: 28 43 29 29 3B 3A 99 22 9D 22 3B 00 9B 0E 3E 00 |(C));:.".";...>.|
00000660: 8D 32 35 33 3A 8B 41 41 24 28 43 29 B2 22 4E 22 |.253:.AA$(C)."N"|
00000670: A7 99 22 91 91 22 3A 8D 35 34 38 3A 8B 41 43 B2 |.."..":.548:.AC.|
00000680: 31 A7 41 43 B2 30 3A 99 22 91 22 4C 33 24 3A 99 |1.AC.0:."."L3$:.|
00000690: 22 91 91 91 91 91 22 3A 89 35 39 00 C5 0E 3F 00 |".....":.59...?.|
000006A0: 41 24 28 52 2C 43 29 B2 49 50 24 3A 99 3A 8B 41 |A$(R,C).IP$:.:.A|
000006B0: 24 28 52 2C 43 29 B2 22 22 A7 41 24 28 52 2C 43 |$(R,C)."".A$(R,C|
000006C0: 29 B2 22 2D 22 00 F2 0E 40 00 8B C3 28 41 24 28 |)."-"...@...(A$(|
000006D0: 52 2C 43 29 29 B1 41 28 43 29 A7 41 24 28 52 2C |R,C)).A(C).A$(R,|
000006E0: 43 29 B2 C8 28 41 24 28 52 2C 43 29 2C 41 28 43 |C)..(A$(R,C),A(C|
000006F0: 29 29 00 FA 0E 41 00 43 B2 32 00 03 0F 42 00 89 |))...A.C.2...B..|
00000700: 31 30 31 00 0C 0F 43 00 8D 32 36 34 00 33 0F 44 |101...C..264.3.D|
00000710: 00 99 22 57 48 49 43 48 20 4C 49 4E 45 20 44 4F |.."WHICH LINE DO|
00000720: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 41 4D 45 | YOU WISH TO AME|
00000730: 4E 44 22 00 52 0F 45 00 99 22 50 52 45 53 53 20 |ND".R.E.."PRESS |
00000740: 31 20 54 4F 20 22 58 22 20 3A 22 3B 3A 8D 32 35 |1 TO "X" :";:.25|
00000750: 33 3B 00 6D 0F 46 00 43 B2 C5 28 49 50 24 29 3A |3;.m.F.C..(IP$):|
00000760: 8B 43 B1 58 A7 8D 34 31 31 3A 89 36 38 00 76 0F |.C.X..411:.68.v.|
00000770: 47 00 8D 34 31 31 00 86 0F 48 00 99 22 12 22 41 |G..411...H.."."A|
00000780: 24 28 30 2C 43 29 00 C6 0F 49 00 99 22 45 4E 54 |$(0,C)...I.."ENT|
00000790: 45 52 20 43 4F 52 52 45 43 54 20 46 49 45 4C 44 |ER CORRECT FIELD|
000007A0: 20 48 45 41 44 49 4E 47 20 5B 20 20 20 20 20 20 | HEADING [ |
000007B0: 20 20 20 5D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B | ]..........";|
000007C0: 3A 8D 20 32 35 33 00 D8 0F 4A 00 41 24 28 30 2C |:. 253...J.A$(0,|
000007D0: 43 29 B2 49 50 24 3A 99 00 02 10 4B 00 8B C3 28 |C).IP$:....K...(|
000007E0: 41 24 28 30 2C 43 29 29 B3 39 A7 41 24 28 30 2C |A$(0,C)).9.A$(0,|
000007F0: 43 29 B2 41 24 28 30 2C 43 29 AA 22 20 22 3A 89 |C).A$(0,C)." ":.|
00000800: 37 35 00 29 10 4C 00 8B C3 28 41 24 28 30 2C 43 |75.).L...(A$(0,C|
00000810: 29 29 B1 39 A7 41 24 28 30 2C 43 29 B2 C8 28 41 |)).9.A$(0,C)..(A|
00000820: 24 28 30 2C 43 29 2C 39 29 00 32 10 4D 00 89 31 |$(0,C),9).2.M..1|
00000830: 30 31 00 64 10 4E 00 99 22 45 4E 54 45 52 20 4E |01.d.N.."ENTER N|
00000840: 45 57 20 46 49 4C 45 20 4E 41 4D 45 20 5B 20 20 |EW FILE NAME [ |
00000850: 20 20 20 20 20 20 20 5D 9D 9D 9D 9D 9D 9D 9D 9D | ]........|
00000860: 9D 9D 22 3B 00 78 10 4F 00 8D 32 35 33 3A 4E 24 |..";.x.O..253:N$|
00000870: B2 49 50 24 3A 89 31 32 00 AB 10 50 00 8D 34 39 |.IP$:.12...P..49|
00000880: 35 3A 43 4F B2 31 3A 4C 4E B2 32 31 3A 8D 34 39 |5:CO.1:LN.21:.49|
00000890: 37 3A 99 22 44 4F 20 59 4F 55 20 57 49 53 48 20 |7:."DO YOU WISH |
000008A0: 54 4F 20 41 4D 45 4E 44 3A 2D 22 00 CC 10 51 00 |TO AMEND:-"...Q.|
000008B0: 99 22 46 49 45 4C 44 20 12 48 92 45 41 44 49 4E |."FIELD .H.EADIN|
000008C0: 47 20 4F 52 20 12 44 92 41 54 41 22 00 DE 10 52 |G OR .D.ATA"...R|
000008D0: 00 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 38 32 00 F3 |..K$:.K$."".82..|
000008E0: 10 53 00 8B 4B 24 B2 22 48 22 A7 8D 34 31 31 3A |.S..K$."H"..411:|
000008F0: 89 36 38 00 08 11 54 00 8B 4B 24 B2 22 44 22 A7 |.68...T..K$."D".|
00000900: 8D 34 31 31 3A 89 35 35 00 10 11 55 00 89 38 32 |.411:.55...U..82|
00000910: 00 32 11 56 00 99 C7 28 31 34 37 29 3B 3A 52 53 |.2.V...(147);:RS|
00000920: B2 52 3A 81 52 B2 52 53 A4 59 3A 99 C7 28 31 39 |.R:.R.RS.Y:..(19|
00000930: 29 3B 00 65 11 57 00 99 22 12 20 52 45 43 4F 52 |);.e.W..". RECOR|
00000940: 44 53 20 57 49 4C 4C 20 44 49 53 50 4C 41 59 20 |DS WILL DISPLAY |
00000950: 49 4E 20 4C 4F 47 49 43 41 4C 20 4F 52 44 45 52 |IN LOGICAL ORDER|
00000960: 20 92 22 3A 99 00 A7 11 58 00 43 4F B2 31 3A 4C | .":....X.CO.1:L|
00000970: 4E B2 32 34 3A 8D 34 39 37 3A 99 22 12 43 92 4F |N.24:.497:.".C.O|
00000980: 4E 54 49 4E 55 45 20 53 43 52 4F 4C 4C 3A 20 20 |NTINUE SCROLL: |
00000990: 12 53 92 54 4F 50 20 53 43 52 4F 4C 4C 3A 20 20 |.S.TOP SCROLL: |
000009A0: 12 45 92 58 49 54 3A 00 D4 11 59 00 43 4F B2 31 |.E.XIT:...Y.CO.1|
000009B0: 3A 4C 4E B2 33 3A 8D 34 39 37 3A 99 22 52 45 43 |:LN.3:.497:."REC|
000009C0: 4F 52 44 20 4E 4F 3A 20 22 3B 52 3A 99 3A 81 43 |ORD NO: ";R:.:.C|
000009D0: B2 31 A4 58 00 00 12 5A 00 99 22 12 22 41 24 28 |.1.X...Z.."."A$(|
000009E0: 30 2C 43 29 22 92 22 3B 3A 51 B2 C3 28 41 24 28 |0,C)".";:Q..(A$(|
000009F0: 52 2C 43 29 29 3A 8B 51 B1 32 36 A7 51 B2 32 36 |R,C)):.Q.26.Q.26|
00000A00: 00 22 12 5B 00 99 A3 31 32 29 C8 28 41 24 28 52 |.".[...12).(A$(R|
00000A10: 2C 43 29 2C 32 36 29 AA C8 28 53 24 2C 32 36 AB |,C),26)..(S$,26.|
00000A20: 51 29 00 2D 12 5C 00 8B 43 B2 31 A7 99 00 3C 12 |Q).-.\..C.1...<.|
00000A30: 5D 00 8B 52 4E B3 B1 30 A7 35 30 36 00 43 12 5E |]..RN..0.506.C.^|
00000A40: 00 82 43 00 5C 12 5F 00 4B 24 B2 22 22 3A A1 4B |..C.\._.K$."":.K|
00000A50: 24 3A 8B 4B 24 B2 22 53 22 A7 39 38 00 78 12 60 |$:.K$."S".98.x.`|
00000A60: 00 8B 4B 24 B3 B1 22 45 22 A7 81 49 B2 31 A4 35 |..K$.."E"..I.1.5|
00000A70: 30 30 3A 82 49 3A 82 52 00 81 12 61 00 89 31 30 |00:.I:.R...a..10|
00000A80: 31 00 A3 12 62 00 4B 24 B2 22 22 3A A1 4B 24 3A |1...b.K$."":.K$:|
00000A90: 8B 4B 24 B3 B1 22 43 22 AF 4B 24 B3 B1 22 45 22 |.K$.."C".K$.."E"|
00000AA0: A7 39 38 00 AB 12 63 00 89 39 36 00 B3 12 64 00 |.98...c..96...d.|
00000AB0: 52 B2 31 00 BB 12 65 00 41 B2 31 00 C8 12 66 00 |R.1...e.A.1...f.|
00000AC0: 8B 52 B2 30 A7 52 B2 31 00 DB 12 67 00 8B 52 B1 |.R.0.R.1...g..R.|
00000AD0: 59 A7 52 B2 52 AB 31 3A 52 B2 59 00 E8 12 68 00 |Y.R.R.1:R.Y...h.|
00000AE0: 8B 41 B2 30 A7 41 B2 31 00 F8 12 69 00 8B 41 B1 |.A.0.A.1...i..A.|
00000AF0: 32 35 A7 41 B2 41 AB 31 00 23 13 6A 00 99 C7 28 |25.A.A.1.#.j...(|
00000B00: 31 34 37 29 3A 99 22 12 22 3B 4E 24 A3 31 39 29 |147):.".";N$.19)|
00000B10: 22 52 45 43 4F 52 44 20 4E 4F 22 3B 52 3A 8D 20 |"RECORD NO";R:. |
00000B20: 32 36 34 00 2E 13 6B 00 81 43 B2 31 A4 58 00 3A |264...k..C.1.X.:|
00000B30: 13 6C 00 47 47 B2 41 28 43 29 00 4B 13 6D 00 8B |.l.GG.A(C).K.m..|
00000B40: 47 47 B1 32 34 A7 47 47 B2 32 34 00 5C 13 6E 00 |GG.24.GG.24.\.n.|
00000B50: 99 22 12 22 C4 28 43 29 22 92 22 3B 00 8A 13 6F |.".".(C)".";...o|
00000B60: 00 99 A3 34 29 22 12 22 C8 28 41 24 28 30 2C 43 |...4)".".(A$(0,C|
00000B70: 29 2C 39 29 22 92 22 A3 31 35 29 CA 28 41 24 28 |),9)".".15).(A$(|
00000B80: 52 2C 43 29 2C 41 2C 47 47 29 00 98 13 70 00 8B |R,C),A,GG)...p..|
00000B90: 43 B2 31 A7 8D 32 36 34 00 9E 13 71 00 82 00 B7 |C.1..264...q....|
00000BA0: 13 72 00 43 4F B2 31 3A 4C 4E B2 32 30 3A 8D 34 |.r.CO.1:LN.20:.4|
00000BB0: 39 37 3A 99 4C 33 24 00 E3 13 73 00 99 22 20 20 |97:.L3$...s.." |
00000BC0: 20 20 20 20 20 20 20 20 20 20 20 12 2A 2A 4F 50 | .**OP|
00000BD0: 54 49 4F 4E 53 2A 2A 92 20 20 20 20 20 20 20 20 |TIONS**. |
00000BE0: 20 20 22 00 1D 14 74 00 99 22 50 52 45 53 53 20 | "...t.."PRESS |
00000BF0: 3A 20 12 4E 92 45 58 54 20 12 4C 92 41 53 54 20 |: .N.EXT .L.AST |
00000C00: 12 46 92 49 4E 44 20 12 47 92 4F 54 4F 20 12 41 |.F.IND .G.OTO .A|
00000C10: 92 4D 45 4E 44 20 12 4D 92 45 4E 55 22 00 55 14 |.MEND .M.ENU".U.|
00000C20: 75 00 99 22 12 43 92 41 4C 43 53 20 12 49 92 4E |u..".C.ALCS .I.N|
00000C30: 50 55 54 20 12 44 92 45 4C 45 54 45 20 12 50 92 |PUT .D.ELETE .P.|
00000C40: 52 49 4E 54 20 12 53 92 43 52 4F 4C 4C 20 12 3C |RINT .S.CROLL .<|
00000C50: 92 20 12 3E 22 00 5E 14 76 00 99 4C 33 24 00 71 |. .>".^.v..L3$.q|
00000C60: 14 77 00 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 31 31 |.w..K$:.K$."".11|
00000C70: 39 00 A4 14 78 00 4B 4B 24 B2 22 4E 4C 4D 49 47 |9...x.KK$."NLMIG|
00000C80: 46 53 3E 3C 41 50 43 44 22 3A 81 4B B2 31 A4 31 |FS><APCD":.K.1.1|
00000C90: 33 3A 8B 4B 24 B2 CA 28 4B 4B 24 2C 4B 2C 31 29 |3:.K$..(KK$,K,1)|
00000CA0: A7 31 32 32 00 B0 14 79 00 82 4B 3A 89 31 31 39 |.122...y..K:.119|
00000CB0: 00 E6 14 7A 00 91 4B 89 31 32 33 2C 31 32 34 2C |...z..K.123,124,|
00000CC0: 31 32 2C 31 32 35 2C 34 30 2C 33 35 2C 38 36 2C |12,125,40,35,86,|
00000CD0: 31 32 36 2C 31 32 37 2C 38 30 2C 33 36 34 2C 33 |126,127,80,364,3|
00000CE0: 37 33 2C 34 38 34 00 F6 14 7B 00 52 B2 52 AA 31 |73,484...{.R.R.1|
00000CF0: 3A 89 20 31 30 31 00 06 15 7C 00 52 B2 52 AB 31 |:. 101...|.R.R.1|
00000D00: 3A 89 20 31 30 31 00 18 15 7D 00 46 B2 31 3A 54 |:. 101...}.F.1:T|
00000D10: 56 B2 52 3A 89 31 37 32 00 27 15 7E 00 41 B2 41 |V.R:.172.'.~.A.A|
00000D20: AA 31 3A 89 31 30 32 00 36 15 7F 00 41 B2 41 AB |.1:.102.6...A.A.|
00000D30: 31 3A 89 31 30 32 00 6D 15 80 00 99 C7 28 31 34 |1:.102.m.....(14|
00000D40: 37 29 3A 99 3A 99 22 12 2A 2A 57 41 52 4E 49 4E |7):.:.".**WARNIN|
00000D50: 47 2A 2A 20 54 48 49 53 20 57 49 4C 4C 20 45 52 |G** THIS WILL ER|
00000D60: 41 53 45 20 41 4E 59 20 46 49 4C 45 22 00 92 15 |ASE ANY FILE"...|
00000D70: 81 00 99 22 12 43 55 52 52 45 4E 54 4C 59 20 49 |...".CURRENTLY I|
00000D80: 4E 20 4D 45 4D 4F 52 59 92 22 3A 99 3A 99 3A 99 |N MEMORY.":.:.:.|
00000D90: 3A 99 00 B6 15 82 00 99 A3 38 29 20 22 A3 A3 A3 |:........8) "...|
00000DA0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000DB0: A3 A3 A3 A3 A3 22 00 D8 15 83 00 99 A3 38 29 22 |.....".......8)"|
00000DC0: 50 52 45 53 53 20 12 59 92 45 53 20 54 4F 20 43 |PRESS .Y.ES TO C|
00000DD0: 4F 4E 54 49 4E 55 45 22 00 F6 15 84 00 99 A3 38 |ONTINUE".......8|
00000DE0: 29 22 20 20 20 20 20 20 12 4E 92 4F 20 46 4F 52 |)" .N.O FOR|
00000DF0: 20 4D 45 4E 55 22 00 1A 16 85 00 99 A3 38 29 20 | MENU".......8) |
00000E00: 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |"...............|
00000E10: A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 23 16 86 00 8D |.........".#....|
00000E20: 35 31 33 00 32 16 87 00 8B 4B 24 B2 22 4E 22 A7 |513.2....K$."N".|
00000E30: 31 32 00 43 16 88 00 8B 4B 24 B2 22 59 22 A7 20 |12.C....K$."Y". |
00000E40: 31 33 37 00 56 16 89 00 99 C7 28 31 34 37 29 3A |137.V.....(147):|
00000E50: 9C 3A 8D 34 31 33 00 8D 16 8A 00 99 22 4B 45 59 |.:.413......"KEY|
00000E60: 20 44 41 54 45 20 45 47 2E 28 32 38 2E 31 32 2E | DATE EG.(28.12.|
00000E70: 38 32 29 5B 20 20 20 20 20 20 20 20 5D 9D 9D 9D |82)[ ]...|
00000E80: 9D 9D 9D 9D 9D 9D 22 3B 3A 8D 32 35 33 00 9D 16 |......";:.253...|
00000E90: 8B 00 8B 49 50 24 B2 22 22 A7 31 34 31 00 C8 16 |...IP$."".141...|
00000EA0: 8C 00 8D 35 34 38 3A 8B 41 43 B2 31 A7 41 43 B2 |...548:.AC.1.AC.|
00000EB0: 30 3A 99 22 91 22 53 24 22 91 22 3A 99 22 91 91 |0:."."S$".":."..|
00000EC0: 91 91 22 3A 89 31 33 38 00 E0 16 8D 00 4D 24 B2 |..":.138.....M$.|
00000ED0: C8 28 49 50 24 2C 38 29 3A 99 C7 28 31 34 37 29 |.(IP$,8):..(147)|
00000EE0: 00 FD 16 8E 00 99 A3 31 32 29 22 12 43 52 45 41 |.......12)".CREA|
00000EF0: 54 45 20 52 45 43 4F 52 44 92 22 3A 99 00 06 17 |TE RECORD.":....|
00000F00: 8F 00 8D 32 36 34 00 39 17 90 00 99 22 57 48 41 |...264.9...."WHA|
00000F10: 54 20 49 53 20 54 48 45 20 46 49 4C 45 20 4E 41 |T IS THE FILE NA|
00000F20: 4D 45 20 3F 5B 20 20 20 20 20 20 20 20 5D 9D 9D |ME ?[ ]..|
00000F30: 9D 9D 9D 9D 9D 9D 9D 22 3B 00 42 17 91 00 8D 32 |.......";.B....2|
00000F40: 35 33 00 54 17 92 00 4E 24 B2 C8 28 49 50 24 2C |53.T...N$..(IP$,|
00000F50: 38 29 3A 99 00 5E 17 93 00 8D 20 32 36 34 00 95 |8):..^.... 264..|
00000F60: 17 94 00 99 22 48 4F 57 20 4D 41 4E 59 20 46 49 |...."HOW MANY FI|
00000F70: 45 4C 44 53 20 49 4E 20 45 41 43 48 20 52 45 43 |ELDS IN EACH REC|
00000F80: 4F 52 44 20 3F 20 5B 20 20 5D 9D 9D 9D 22 3B 3A |ORD ? [ ]...";:|
00000F90: 8D 20 32 35 33 00 A9 17 95 00 58 B2 C5 28 C8 28 |. 253.....X..(.(|
00000FA0: 49 50 24 2C 32 29 29 3A 99 00 CF 17 96 00 8B 58 |IP$,2)):.......X|
00000FB0: B3 31 B0 58 B1 31 35 A7 99 22 12 4D 41 58 49 4D |.1.X.15..".MAXIM|
00000FC0: 55 4D 20 49 53 20 31 35 92 22 3A 89 31 34 38 00 |UM IS 15.":.148.|
00000FD0: E4 17 97 00 8D 34 31 36 3A 99 C7 28 31 34 37 29 |.....416:..(147)|
00000FE0: 3A 43 B2 31 00 08 18 98 00 99 22 12 54 48 49 53 |:C.1......".THIS|
00000FF0: 20 46 49 4C 45 20 49 53 20 4E 41 4D 45 44 20 22 | FILE IS NAMED "|
00001000: 3B 4E 24 3A 8D 32 36 34 00 39 18 99 00 99 22 4E |;N$:.264.9...."N|
00001010: 4F 54 45 20 54 48 41 54 20 46 49 45 4C 44 20 31 |OTE THAT FIELD 1|
00001020: 20 49 53 20 54 48 45 20 12 20 4B 45 59 20 46 49 | IS THE . KEY FI|
00001030: 45 4C 44 20 92 A0 22 3A 99 00 42 18 9A 00 8D 32 |ELD ..":..B....2|
00001040: 36 34 00 7D 18 9B 00 99 22 53 54 41 54 45 20 12 |64.}...."STATE .|
00001050: 20 54 49 54 4C 45 20 92 20 4F 46 20 46 49 45 4C | TITLE . OF FIEL|
00001060: 44 22 43 22 20 20 5B 20 20 20 20 20 20 20 20 20 |D"C" [ |
00001070: 5D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 00 88 18 |]..........";...|
00001080: 9C 00 8D 32 35 33 3A 99 00 9D 18 9D 00 41 24 28 |...253:......A$(|
00001090: 30 2C 43 29 B2 C8 28 49 50 24 2C 39 29 00 C8 18 |0,C)..(IP$,9)...|
000010A0: 9E 00 8B C3 28 41 24 28 30 2C 43 29 29 B3 39 A7 |....(A$(0,C)).9.|
000010B0: 41 24 28 30 2C 43 29 B2 41 24 28 30 2C 43 29 AA |A$(0,C).A$(0,C).|
000010C0: 22 20 22 3A 89 31 35 38 00 00 19 9F 00 99 22 45 |" ":.158......"E|
000010D0: 4E 54 45 52 20 12 43 92 48 41 52 41 43 54 45 52 |NTER .C.HARACTER|
000010E0: 20 4F 52 20 12 4E 92 55 4D 45 52 49 43 20 46 49 | OR .N.UMERIC FI|
000010F0: 45 4C 44 20 5B 20 5D 9D 9D 22 3B 3A 8D 32 35 33 |ELD [ ]..";:.253|
00001100: 00 16 19 A0 00 41 41 24 28 43 29 B2 C8 28 49 50 |.....AA$(C)..(IP|
00001110: 24 2C 31 29 3A 99 00 2A 19 A1 00 8B 41 41 24 28 |$,1):..*....AA$(|
00001120: 43 29 B2 22 4E 22 A7 31 36 34 00 3E 19 A2 00 8B |C)."N".164.>....|
00001130: 41 41 24 28 43 29 B2 22 43 22 A7 31 36 36 00 4C |AA$(C)."C".166.L|
00001140: 19 A3 00 8D 34 31 31 3A 89 31 35 39 00 59 19 A4 |....411:.159.Y..|
00001150: 00 41 28 43 29 B2 39 3A 99 00 62 19 A5 00 89 31 |.A(C).9:..b....1|
00001160: 37 30 00 8F 19 A6 00 99 22 45 4E 54 45 52 20 4E |70......"ENTER N|
00001170: 55 4D 42 45 52 20 4F 46 20 43 48 41 52 41 43 54 |UMBER OF CHARACT|
00001180: 45 52 53 20 46 4F 52 20 52 45 43 4F 52 44 22 00 |ERS FOR RECORD".|
00001190: B6 19 A7 00 99 22 4D 41 58 2E 33 36 20 43 48 41 |....."MAX.36 CHA|
000011A0: 52 41 43 54 45 52 53 20 5B 20 20 5D 9D 9D 9D 22 |RACTERS [ ]..."|
000011B0: 3B 3A 8D 32 35 33 00 C8 19 A8 00 41 28 43 29 B2 |;:.253.....A(C).|
000011C0: C5 28 49 50 24 29 3A 99 00 E5 19 A9 00 8B 41 28 |.(IP$):.......A(|
000011D0: 43 29 B1 33 36 A7 99 22 91 91 22 3A 8D 34 31 31 |C).36.."..":.411|
000011E0: 3A 89 31 36 36 00 F2 19 AA 00 8B 43 B2 58 A7 31 |:.166......C.X.1|
000011F0: 37 32 00 06 1A AB 00 43 B2 43 AA 31 3A 99 22 93 |72.....C.C.1:.".|
00001200: 22 3A 89 31 35 32 00 20 1A AC 00 8B 46 B2 31 A7 |":.152. ....F.1.|
00001210: 52 B2 59 AA 31 3A 59 B2 59 AA 31 3A 89 31 37 34 |R.Y.1:Y.Y.1:.174|
00001220: 00 2C 1A AD 00 52 B2 31 3A 59 B2 31 00 3B 1A AE |.,...R.1:Y.1.;..|
00001230: 00 8B 52 B1 32 30 30 A7 35 33 34 00 6D 1A AF 00 |..R.200.534.m...|
00001240: 99 C7 28 31 34 37 29 3A 41 43 B2 30 3A 20 99 A3 |..(147):AC.0: ..|
00001250: 31 32 29 22 12 52 45 43 4F 52 44 20 4E 55 4D 42 |12)".RECORD NUMB|
00001260: 45 52 22 3B 52 22 92 22 3A 8D 32 36 34 00 9C 1A |ER";R".":.264...|
00001270: B0 00 99 A3 33 29 22 54 4F 20 54 45 52 4D 49 4E |....3)"TO TERMIN|
00001280: 41 54 45 20 44 41 54 41 20 45 4E 54 52 59 20 54 |ATE DATA ENTRY T|
00001290: 59 50 45 20 27 45 4E 44 27 22 3A 99 00 A7 1A B1 |YPE 'END'":.....|
000012A0: 00 8D 32 36 34 3A 99 00 B2 1A B2 00 81 43 B2 31 |..264:.......C.1|
000012B0: A4 58 00 D8 1A B3 00 99 22 4B 45 59 20 22 41 24 |.X......"KEY "A$|
000012C0: 28 30 2C 43 29 3A 99 22 5B 22 3B 3A 99 C8 28 53 |(0,C):."[";:..(S|
000012D0: 24 2C 41 28 43 29 29 3B 00 FA 1A B4 00 99 22 5D |$,A(C));......"]|
000012E0: 22 3B 3A 99 C8 28 54 24 2C 41 28 43 29 29 3B 3A |";:..(T$,A(C));:|
000012F0: 99 22 9D 22 3B 3A 8D 32 35 33 00 1F 1B B5 00 8B |.".";:.253......|
00001300: 49 50 24 B2 22 45 4E 44 22 AF 20 46 B2 30 20 A7 |IP$."END". F.0 .|
00001310: 20 52 B2 31 3A 59 B2 59 AB 31 3A 89 20 31 32 00 | R.1:Y.Y.1:. 12.|
00001320: 42 1B B6 00 8B 49 50 24 B2 22 3D 22 A7 41 24 28 |B....IP$."=".A$(|
00001330: 52 2C 43 29 B2 41 24 28 54 56 2C 43 29 3A 89 31 |R,C).A$(TV,C):.1|
00001340: 38 37 00 6A 1B B7 00 8B 49 50 24 B2 22 45 4E 44 |87.j....IP$."END|
00001350: 22 AF 46 B2 31 A7 46 B2 30 3A 52 B2 52 AB 31 3A |".F.1.F.0:R.R.1:|
00001360: 59 B2 59 AB 31 3A 89 31 30 31 00 A4 1B B8 00 8B |Y.Y.1:.101......|
00001370: 41 41 24 28 43 29 B2 22 4E 22 A7 8D 35 34 38 3A |AA$(C)."N"..548:|
00001380: 8B 41 43 B2 31 A7 41 43 B2 30 3A 99 22 91 22 53 |.AC.1.AC.0:."."S|
00001390: 24 3A 99 22 91 22 3A 99 22 91 91 91 91 91 22 3A |$:.".":.".....":|
000013A0: 89 31 37 39 00 BE 1B B9 00 41 24 28 52 2C 43 29 |.179.....A$(R,C)|
000013B0: B2 C8 28 49 50 24 2C 41 28 43 29 29 3A 99 00 DA |..(IP$,A(C)):...|
000013C0: 1B BA 00 8B 41 24 28 52 2C 43 29 B2 22 22 A7 41 |....A$(R,C)."".A|
000013D0: 24 28 52 2C 43 29 B2 22 2D 22 00 E3 1B BB 00 8D |$(R,C)."-"......|
000013E0: 32 36 34 00 E9 1B BC 00 82 00 FB 1B BD 00 8B 46 |264............F|
000013F0: B2 31 A7 46 B2 30 3A 89 31 30 31 00 11 1C BE 00 |.1.F.0:.101.....|
00001400: 52 B2 52 AA 31 3A 59 B2 59 AA 31 3A 89 20 31 37 |R.R.1:Y.Y.1:. 17|
00001410: 34 00 3E 1C BF 00 99 C7 28 31 34 37 29 3A 99 A3 |4.>.....(147):..|
00001420: 31 35 29 22 12 2A 2A 53 45 4C 45 43 54 2A 2A 22 |15)".**SELECT**"|
00001430: 3A 8D 32 36 34 3A 45 B2 30 3A 52 43 B2 30 00 84 |:.264:E.0:RC.0..|
00001440: 1C C0 00 99 22 44 4F 20 59 4F 55 20 57 41 4E 54 |...."DO YOU WANT|
00001450: 20 54 4F 20 4F 55 54 50 55 54 20 52 45 53 55 4C | TO OUTPUT RESUL|
00001460: 54 53 20 54 4F 22 3A 99 22 50 52 49 4E 54 45 52 |TS TO":."PRINTER|
00001470: 3A 20 4B 45 59 20 12 59 92 45 53 20 4F 52 20 12 |: KEY .Y.ES OR .|
00001480: 4E 92 4F 22 00 8D 1C C1 00 8D 32 36 34 00 96 1C |N.O"......264...|
00001490: C2 00 8D 35 31 33 00 AC 1C C3 00 8B 4B 24 B2 22 |...513......K$."|
000014A0: 59 22 A7 50 52 B2 35 3A 89 31 39 37 00 C2 1C C4 |Y".PR.5:.197....|
000014B0: 00 8B 4B 24 B2 22 4E 22 A7 50 52 B2 30 3A 89 31 |..K$."N".PR.0:.1|
000014C0: 39 37 00 D2 1C C5 00 8B 50 52 B2 30 A7 54 54 B2 |97......PR.0.TT.|
000014D0: 31 35 00 DD 1C C6 00 81 52 B2 31 A4 59 00 1E 1D |15......R.1.Y...|
000014E0: C7 00 8D 34 31 31 3A 99 22 91 45 4E 54 45 52 20 |...411:.".ENTER |
000014F0: 53 45 4C 45 43 54 45 44 20 12 46 49 45 4C 44 92 |SELECTED .FIELD.|
00001500: 20 5B 20 20 20 20 20 20 20 20 20 5D 9D 9D 9D 9D | [ ]....|
00001510: 9D 9D 9D 9D 9D 9D 22 3B 3A 8D 32 35 33 3B 00 2C |......";:.253;.,|
00001520: 1D C8 00 44 50 24 B2 49 50 24 3A 99 00 4B 1D C9 |...DP$.IP$:..K..|
00001530: 00 8B C3 28 44 50 24 29 B3 39 A7 44 50 24 B2 44 |...(DP$).9.DP$.D|
00001540: 50 24 AA 22 20 22 3A 89 32 30 31 00 5A 1D CA 00 |P$." ":.201.Z...|
00001550: 99 3A 8D 32 36 34 3A 43 B2 31 00 6F 1D CB 00 8B |.:.264:C.1.o....|
00001560: 41 24 28 30 2C 43 29 B2 44 50 24 A7 32 30 36 00 |A$(0,C).DP$.206.|
00001570: 84 1D CC 00 43 B2 43 AA 31 3A 8B 43 B3 58 AA 31 |....C.C.1:.C.X.1|
00001580: A7 32 30 33 00 A6 1D CD 00 45 4D 24 B2 22 12 4E |.203.....EM$.".N|
00001590: 4F 20 53 55 43 48 20 46 49 45 4C 44 22 3A 8D 32 |O SUCH FIELD":.2|
000015A0: 36 31 3A 89 31 32 00 BB 1D CE 00 99 22 45 4E 54 |61:.12......"ENT|
000015B0: 45 52 20 12 22 44 50 24 22 92 22 00 D2 1D CF 00 |ER ."DP$".".....|
000015C0: 99 22 5B 22 3B 3A 99 C8 28 53 24 2C 41 28 43 29 |."[";:..(S$,A(C)|
000015D0: 29 3B 00 EF 1D D0 00 99 22 5D 22 3B 3A 99 C8 28 |);......"]";:..(|
000015E0: 54 24 2C 41 28 43 29 29 3B 3A 99 22 9D 22 3B 00 |T$,A(C));:.".";.|
000015F0: 08 1E D1 00 8D 32 35 33 3A 43 50 24 B2 49 50 24 |.....253:CP$.IP$|
00001600: 3A 99 3A 8D 20 32 36 34 00 15 1E D2 00 46 B2 C3 |:.:. 264.....F..|
00001610: 28 43 50 24 29 00 3A 1E D3 00 99 C7 28 31 34 37 |(CP$).:.....(147|
00001620: 29 3A 99 3A 8D 20 32 36 34 3A 8B 41 41 24 28 43 |):.:. 264:.AA$(C|
00001630: 29 B3 B1 22 43 22 A7 32 31 34 00 63 1E D4 00 99 |).."C".214.c....|
00001640: 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 41 20 53 |"DO YOU WANT A S|
00001650: 54 41 4E 44 41 52 44 20 4F 52 20 53 4C 49 44 49 |TANDARD OR SLIDI|
00001660: 4E 47 22 00 A2 1E D5 00 99 22 53 54 52 49 4E 47 |NG"......"STRING|
00001670: 20 53 45 41 52 43 48 3A 20 45 4E 54 45 52 20 12 | SEARCH: ENTER .|
00001680: 53 54 92 20 4F 52 20 12 53 53 92 20 5B 20 20 5D |ST. OR .SS. [ ]|
00001690: 9D 9D 9D 22 3B 3A 8D 32 35 33 3A 53 54 24 B2 49 |...";:.253:ST$.I|
000016A0: 50 24 00 CB 1E D6 00 99 C7 28 31 34 37 29 3A 99 |P$.......(147):.|
000016B0: 3A 8D 20 32 36 34 3A 8B 41 41 24 28 43 29 B2 22 |:. 264:.AA$(C)."|
000016C0: 4E 22 A7 4A B2 31 3A 89 32 31 37 00 E7 1E D7 00 |N".J.1:.217.....|
000016D0: 8B 53 54 24 B2 22 53 53 22 A7 53 53 B2 31 3A 49 |.ST$."SS".SS.1:I|
000016E0: B2 31 3A 89 32 32 35 00 07 1F D8 00 8B 53 54 24 |.1:.225......ST$|
000016F0: B2 22 53 54 22 A7 53 53 B2 30 3A 49 B2 31 3A 4A |."ST".SS.0:I.1:J|
00001700: B2 31 3A 89 32 32 35 00 25 1F D9 00 99 22 53 48 |.1:.225.%...."SH|
00001710: 4F 55 4C 44 20 12 20 22 44 50 24 22 20 92 20 42 |OULD . "DP$" . B|
00001720: 45 3A 22 3A 99 00 43 1F DA 00 99 A3 32 29 22 12 |E:":..C.....2)".|
00001730: 45 92 51 55 41 4C 20 54 4F 22 A3 31 35 29 43 50 |E.QUAL TO".15)CP|
00001740: 24 3A 99 00 62 1F DB 00 99 A3 32 29 22 12 4C 92 |$:..b.....2)".L.|
00001750: 45 53 53 20 54 48 41 4E 22 A3 31 35 29 43 50 24 |ESS THAN".15)CP$|
00001760: 3A 99 00 84 1F DC 00 99 A3 32 29 22 12 47 92 52 |:........2)".G.R|
00001770: 45 41 54 45 52 20 54 48 41 4E 22 A3 31 35 29 43 |EATER THAN".15)C|
00001780: 50 24 3A 99 00 97 1F DD 00 A1 4B 24 3A 8B 4B 24 |P$:.......K$:.K$|
00001790: B2 22 22 A7 32 32 31 00 BF 1F DE 00 4B 4B 24 B2 |."".221.....KK$.|
000017A0: 22 45 4C 47 22 3A 81 49 B2 31 A4 33 3A 8B 4B 24 |"ELG":.I.1.3:.K$|
000017B0: B2 CA 28 4B 4B 24 2C 49 2C 31 29 A7 32 32 34 00 |..(KK$,I,1).224.|
000017C0: CB 1F DF 00 82 49 3A 89 32 32 31 00 DD 1F E0 00 |.....I:.221.....|
000017D0: 99 C7 28 31 34 37 29 3A 8D 20 32 36 34 00 1B 20 |..(147):. 264.. |
000017E0: E1 00 41 52 B2 32 34 3A 8B 50 52 B2 35 A7 8D 35 |..AR.24:.PR.5..5|
000017F0: 31 35 3A 99 22 13 22 A3 31 34 29 22 12 2A 2A 50 |15:.".".14)".**P|
00001800: 52 49 4E 54 49 4E 47 2A 2A 92 22 3A 41 52 B2 41 |RINTING**.":AR.A|
00001810: 28 31 29 3A 9F 34 2C 34 3A 9D 34 00 48 20 E2 00 |(1):.4,4:.4.H ..|
00001820: 99 22 46 49 4C 45 20 4E 41 4D 45 20 3A 20 22 4E |."FILE NAME : "N|
00001830: 24 3A 99 3A 99 22 53 45 4C 45 43 54 49 4F 4E 20 |$:.:."SELECTION |
00001840: 3A 20 22 44 50 24 3A 99 00 5B 20 E3 00 91 49 89 |: "DP$:..[ ...I.|
00001850: 32 34 30 2C 32 32 38 2C 32 33 34 00 81 20 E4 00 |240,228,234.. ..|
00001860: 99 22 43 52 49 54 45 52 49 41 20 20 3C 20 22 43 |."CRITERIA < "C|
00001870: 50 24 22 20 22 3A 8D 32 36 34 3A 81 52 B2 31 A4 |P$" ":.264:.R.1.|
00001880: 59 00 8A 20 E5 00 8D 35 30 39 00 CA 20 E6 00 8B |Y.. ...509.. ...|
00001890: C5 28 41 24 28 52 2C 43 29 29 B3 C5 28 43 50 24 |.(A$(R,C))..(CP$|
000018A0: 29 A7 99 22 52 45 43 4F 52 44 20 4E 4F 20 22 3B |).."RECORD NO ";|
000018B0: 52 A3 54 54 29 C8 28 41 24 28 52 2C 31 29 2C 41 |R.TT).(A$(R,1),A|
000018C0: 52 29 3A 52 43 B2 52 43 AA 31 00 D0 20 E7 00 82 |R):RC.RC.1.. ...|
000018D0: 00 E0 20 E8 00 8B 50 52 B2 35 A7 98 34 3A A0 34 |.. ...PR.5..4:.4|
000018E0: 00 E9 20 E9 00 89 32 34 39 00 0F 21 EA 00 99 22 |.. ...249..!..."|
000018F0: 43 52 49 54 45 52 49 41 20 20 3E 20 22 43 50 24 |CRITERIA > "CP$|
00001900: 22 20 22 3A 8D 32 36 34 3A 81 52 B2 31 A4 59 00 |" ":.264:.R.1.Y.|
00001910: 18 21 EB 00 8D 35 30 39 00 58 21 EC 00 8B C5 28 |.!...509.X!....(|
00001920: 41 24 28 52 2C 43 29 29 B1 C5 28 43 50 24 29 A7 |A$(R,C))..(CP$).|
00001930: 99 22 52 45 43 4F 52 44 20 4E 4F 20 22 3B 52 A3 |."RECORD NO ";R.|
00001940: 54 54 29 C8 28 41 24 28 52 2C 31 29 2C 41 52 29 |TT).(A$(R,1),AR)|
00001950: 3A 52 43 B2 52 43 AA 31 00 5E 21 ED 00 82 00 6E |:RC.RC.1.^!....n|
00001960: 21 EE 00 8B 50 52 B2 35 A7 98 34 3A A0 34 00 77 |!...PR.5..4:.4.w|
00001970: 21 EF 00 89 32 34 39 00 9D 21 F0 00 99 22 43 52 |!...249..!..."CR|
00001980: 49 54 45 52 49 41 20 20 3D 20 22 43 50 24 22 20 |ITERIA = "CP$" |
00001990: 22 3A 8D 32 36 34 3A 81 52 B2 31 A4 59 00 A8 21 |":.264:.R.1.Y..!|
000019A0: F1 00 81 52 B2 31 A4 59 00 B1 21 F2 00 8D 35 30 |...R.1.Y..!...50|
000019B0: 39 00 C7 21 F3 00 8B 53 53 B2 31 A7 81 4A B2 31 |9..!...SS.1..J.1|
000019C0: A4 41 28 43 29 AB 46 00 08 22 F4 00 8B CA 28 41 |.A(C).F.."....(A|
000019D0: 24 28 52 2C 43 29 2C 4A 2C 46 29 B2 43 50 24 A7 |$(R,C),J,F).CP$.|
000019E0: 99 22 52 45 43 4F 52 44 20 4E 4F 20 22 3B 52 A3 |."RECORD NO ";R.|
000019F0: 54 54 29 C8 28 41 24 28 52 2C 31 29 2C 41 52 29 |TT).(A$(R,1),AR)|
00001A00: 3A 52 43 B2 52 43 AA 31 00 16 22 F5 00 8B 53 53 |:RC.RC.1.."...SS|
00001A10: B2 30 A7 32 34 37 00 1D 22 F6 00 82 4A 00 23 22 |.0.247.."...J.#"|
00001A20: F7 00 82 00 33 22 F8 00 8B 50 52 B2 35 A7 98 34 |....3"...PR.5..4|
00001A30: 3A A0 34 00 6F 22 F9 00 99 3A 99 22 12 52 45 43 |:.4.o"...:.".REC|
00001A40: 4F 52 44 53 20 43 4F 55 4E 54 45 44 20 3D 92 20 |ORDS COUNTED =. |
00001A50: 22 3B 52 43 3A 99 3A 99 A3 31 33 29 22 12 50 52 |";RC:.:..13)".PR|
00001A60: 45 53 53 20 53 50 41 43 45 20 42 41 52 92 22 00 |ESS SPACE BAR.".|
00001A70: 82 22 FA 00 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 32 |."...K$:.K$."".2|
00001A80: 35 30 00 98 22 FB 00 8B 4B 24 B2 22 20 22 A7 52 |50.."...K$." ".R|
00001A90: B2 52 AB 31 3A 89 31 32 00 A1 22 FC 00 89 32 35 |.R.1:.12.."...25|
00001AA0: 30 00 B1 22 FD 00 42 24 B2 22 20 22 3A 99 22 22 |0.."..B$." ":.""|
00001AB0: 3B 00 C7 22 FE 00 A1 49 50 24 3A 8B 49 50 24 B2 |;.."...IP$:.IP$.|
00001AC0: 22 22 A7 89 32 35 34 00 E2 22 FF 00 8B 42 24 B2 |""..254.."...B$.|
00001AD0: 22 20 22 AF C6 28 49 50 24 29 B2 32 30 A7 89 32 |" "..(IP$).20..2|
00001AE0: 35 34 00 0F 23 00 01 8B C6 28 49 50 24 29 B2 32 |54..#....(IP$).2|
00001AF0: 30 A7 42 24 B2 C8 28 42 24 2C C3 28 42 24 29 AB |0.B$..(B$,.(B$).|
00001B00: 31 29 3A 99 22 9D 20 9D 22 3B 3A 89 32 35 34 00 |1):.". .";:.254.|
00001B10: 2E 23 01 01 8B 49 50 24 B2 C7 28 31 33 29 A7 49 |.#...IP$..(13).I|
00001B20: 50 24 B2 CA 28 42 24 2C 32 29 3A 99 3A 8E 00 52 |P$..(B$,2):.:..R|
00001B30: 23 02 01 41 B2 C6 28 49 50 24 29 3A 8B 41 B3 33 |#..A..(IP$):.A.3|
00001B40: 31 B0 41 B2 31 35 37 B0 41 B2 31 34 35 A7 89 32 |1.A.157.A.145..2|
00001B50: 35 34 00 73 23 03 01 8B 41 B2 33 34 B0 41 B2 34 |54.s#...A.34.A.4|
00001B60: 34 B0 41 B2 35 38 B0 41 B2 35 39 A7 49 50 24 B2 |4.A.58.A.59.IP$.|
00001B70: 22 2E 22 00 94 23 04 01 42 24 B2 42 24 AA 49 50 |"."..#..B$.B$.IP|
00001B80: 24 3A 99 22 12 22 3B 49 50 24 3B 22 92 22 3B 3A |$:.".";IP$;".";:|
00001B90: 89 32 35 34 00 9E 23 05 01 99 20 45 4D 24 00 B1 |.254..#... EM$..|
00001BA0: 23 06 01 81 20 54 38 B2 31 20 A4 31 30 30 30 3A |#... T8.1 .1000:|
00001BB0: 82 00 B7 23 07 01 8E 00 E8 23 08 01 99 22 A3 A3 |...#.....#..."..|
00001BC0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00001BD0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00001BE0: A3 A3 A3 A3 A3 22 3A 8E 00 12 24 09 01 99 20 22 |.....":...$... "|
00001BF0: 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 12 |DO YOU WISH TO .|
00001C00: 4C 92 4F 41 44 20 4F 52 20 12 53 92 41 56 45 22 |L.OAD OR .S.AVE"|
00001C10: 3A 99 00 25 24 0A 01 A1 4B 24 3A 8B 4B 24 B2 22 |:..%$...K$:.K$."|
00001C20: 22 A7 32 36 36 00 35 24 0B 01 8B 4B 24 B2 22 4C |".266.5$...K$."L|
00001C30: 22 A7 32 38 34 00 45 24 0C 01 8B 4B 24 B2 22 53 |".284.E$...K$."S|
00001C40: 22 A7 32 37 30 00 4E 24 0D 01 89 32 36 36 00 57 |".270.N$...266.W|
00001C50: 24 0E 01 8D 34 31 31 00 84 24 0F 01 99 22 41 52 |$...411..$..."AR|
00001C60: 45 20 59 4F 55 20 53 41 56 49 4E 47 20 4F 4E 20 |E YOU SAVING ON |
00001C70: 12 44 92 49 53 43 20 4F 52 20 12 54 92 41 50 45 |.D.ISC OR .T.APE|
00001C80: 3F 22 3A 99 00 97 24 10 01 A1 4B 24 3A 8B 4B 24 |?":...$...K$:.K$|
00001C90: B2 22 22 A7 32 37 32 00 A7 24 11 01 8B 4B 24 B2 |."".272..$...K$.|
00001CA0: 22 54 22 A7 32 37 36 00 B7 24 12 01 8B 4B 24 B2 |"T".276..$...K$.|
00001CB0: 22 44 22 A7 32 39 38 00 C0 24 13 01 89 32 37 32 |"D".298..$...272|
00001CC0: 00 C9 24 14 01 8D 34 31 31 00 E1 24 15 01 99 22 |..$...411..$..."|
00001CD0: 12 49 4E 53 45 52 54 20 43 41 53 53 45 54 54 45 |.INSERT CASSETTE|
00001CE0: 22 00 FE 24 16 01 99 22 50 52 45 53 53 20 12 43 |"..$..."PRESS .C|
00001CF0: 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 14 |. TO CONTINUE"..|
00001D00: 25 17 01 A1 4B 24 3A 8B 4B 24 B3 B1 22 43 22 A7 |%...K$:.K$.."C".|
00001D10: 20 32 37 39 00 2B 25 18 01 8D 34 31 31 3A 99 22 | 279.+%...411:."|
00001D20: 53 41 56 49 4E 47 20 12 22 4E 24 00 35 25 19 01 |SAVING ."N$.5%..|
00001D30: 99 22 91 91 22 00 44 25 1A 01 9F 20 31 2C 31 2C |."..".D%... 1,1,|
00001D40: 31 2C 4E 24 00 4D 25 1B 01 89 33 30 36 00 53 25 |1,N$.M%...306.S%|
00001D50: 1C 01 9C 00 7B 25 1D 01 8D 34 31 33 3A 8D 34 31 |....{%...413:.41|
00001D60: 31 3A 99 22 41 52 45 20 59 4F 55 20 4C 4F 41 44 |1:."ARE YOU LOAD|
00001D70: 49 4E 47 20 46 52 4F 4D 3A 2D 22 00 93 25 1E 01 |ING FROM:-"..%..|
00001D80: 99 22 12 44 92 49 53 4B 20 4F 52 20 12 54 92 41 |.".D.ISK OR .T.A|
00001D90: 50 45 22 00 A6 25 1F 01 A1 4B 24 3A 8B 4B 24 B2 |PE"..%...K$:.K$.|
00001DA0: 22 22 A7 32 38 37 00 B6 25 20 01 8B 4B 24 B2 22 |"".287..% ..K$."|
00001DB0: 54 22 A7 32 39 31 00 C6 25 21 01 8B 4B 24 B2 22 |T".291..%!..K$."|
00001DC0: 44 22 A7 32 39 36 00 CF 25 22 01 89 32 38 37 00 |D".296..%"..287.|
00001DD0: E2 25 23 01 54 B2 31 3A 55 B2 30 3A 4E 4E 24 B2 |.%#.T.1:U.0:NN$.|
00001DE0: 4E 24 00 03 26 24 01 8D 34 31 31 3A 99 22 49 53 |N$..&$..411:."IS|
00001DF0: 20 43 41 53 53 45 54 54 45 20 49 4E 20 50 4C 41 | CASSETTE IN PLA|
00001E00: 43 45 22 00 22 26 25 01 99 22 50 52 45 53 53 20 |CE"."&%.."PRESS |
00001E10: 12 59 92 45 53 20 54 4F 20 43 4F 4E 54 49 4E 55 |.Y.ES TO CONTINU|
00001E20: 45 22 00 37 26 26 01 A1 4B 24 3A 8B 4B 24 B3 B1 |E".7&&..K$:.K$..|
00001E30: 22 59 22 A7 32 39 34 00 40 26 27 01 89 33 31 36 |"Y".294.@&'..316|
00001E40: 00 75 26 28 01 54 B2 38 3A 55 B2 34 3A 4E 31 24 |.u&(.T.8:U.4:N1$|
00001E50: B2 22 30 3A 22 3A 4E 32 24 B2 22 2C 53 45 51 2C |."0:":N2$.",SEQ,|
00001E60: 52 45 41 44 22 3A 4E 4E 24 B2 4E 31 24 AA 4E 4E |READ":NN$.N1$.NN|
00001E70: 24 AA 4E 32 24 00 7E 26 29 01 89 33 31 36 00 87 |$.N2$.~&)..316..|
00001E80: 26 2A 01 8D 34 31 31 00 B6 26 2B 01 99 22 44 4F |&*..411..&+.."DO|
00001E90: 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 53 41 56 | YOU WANT TO SAV|
00001EA0: 45 20 4F 4E 20 44 52 49 56 45 20 12 30 92 20 4F |E ON DRIVE .0. O|
00001EB0: 52 20 12 31 92 22 00 C9 26 2C 01 A1 4B 24 3A 8B |R .1."..&,..K$:.|
00001EC0: 4B 24 B2 22 22 A7 33 30 30 00 E3 26 2D 01 8B 4B |K$."".300..&-..K|
00001ED0: 24 B2 22 30 22 A7 44 52 24 B2 22 30 3A 22 3A 89 |$."0".DR$."0:":.|
00001EE0: 33 30 34 00 FD 26 2E 01 8B 4B 24 B2 22 31 22 A7 |304..&...K$."1".|
00001EF0: 44 52 24 B2 22 31 3A 22 3A 89 33 30 34 00 06 27 |DR$."1:":.304..'|
00001F00: 2F 01 89 33 30 30 00 32 27 30 01 4E 31 24 B2 44 |/..300.2'0.N1$.D|
00001F10: 52 24 3A 4E 32 24 B2 22 2C 53 45 51 2C 57 52 49 |R$:N2$.",SEQ,WRI|
00001F20: 54 45 22 3A 4E 4E 24 B2 4E 31 24 AA 4E 24 AA 4E |TE":NN$.N1$.N$.N|
00001F30: 32 24 00 45 27 31 01 9F 31 2C 38 2C 34 2C 22 40 |2$.E'1..1,8,4,"@|
00001F40: 22 AA 4E 4E 24 00 56 27 32 01 98 31 2C 59 3A 99 |".NN$.V'2..1,Y:.|
00001F50: C7 28 31 33 29 3B 00 67 27 33 01 98 31 2C 58 3A |.(13);.g'3..1,X:|
00001F60: 99 C7 28 31 33 29 3B 00 84 27 34 01 81 43 B2 31 |..(13);..'4..C.1|
00001F70: A4 58 3A 98 31 2C 41 28 43 29 3A 99 C7 28 31 33 |.X:.1,A(C):..(13|
00001F80: 29 3B 3A 82 00 A3 27 35 01 81 43 B2 31 A4 58 3A |);:...'5..C.1.X:|
00001F90: 98 31 2C 41 41 24 28 43 29 3A 99 C7 28 31 33 29 |.1,AA$(C):..(13)|
00001FA0: 3B 3A 82 00 AE 27 36 01 81 52 B2 31 A4 59 00 CE |;:...'6..R.1.Y..|
00001FB0: 27 37 01 81 43 B2 31 A4 58 3A 98 31 2C 41 24 28 |'7..C.1.X:.1,A$(|
00001FC0: 52 2C 43 29 3A 99 C7 28 31 33 29 3B 3A 82 00 D4 |R,C):..(13);:...|
00001FD0: 27 38 01 82 00 F4 27 39 01 81 43 B2 31 A4 58 3A |'8....'9..C.1.X:|
00001FE0: 98 31 2C 41 24 28 30 2C 43 29 3A 99 C7 28 31 33 |.1,A$(0,C):..(13|
00001FF0: 29 3B 3A 82 00 FB 27 3A 01 A0 31 00 03 28 3B 01 |);:...':..1..(;.|
00002000: 89 31 32 00 3C 28 3C 01 8D 34 31 31 3A 99 22 45 |.12.<(<..411:."E|
00002010: 4E 54 45 52 20 46 49 4C 45 20 4E 41 4D 45 20 5B |NTER FILE NAME [|
00002020: 20 20 20 20 20 20 20 20 20 5D 9D 9D 9D 9D 9D 9D | ]......|
00002030: 9D 9D 9D 9D 22 3B 3A 8D 20 32 35 33 00 55 28 3D |....";:. 253.U(=|
00002040: 01 4E 24 B2 C8 28 49 50 24 2C 39 29 3A 4E 4E 24 |.N$..(IP$,9):NN$|
00002050: B2 4E 24 3A 99 00 65 28 3E 01 8B 54 B2 31 A7 99 |.N$:..e(>..T.1..|
00002060: 22 91 91 91 22 00 74 28 3F 01 9F 31 2C 54 2C 55 |"...".t(?..1,T,U|
00002070: 2C 4E 4E 24 00 87 28 40 01 84 31 2C 59 3A 84 31 |,NN$..(@..1,Y:.1|
00002080: 2C 58 3A 8D 34 31 36 00 9C 28 41 01 81 43 B2 31 |,X:.416..(A..C.1|
00002090: A4 58 3A 84 31 2C 41 28 43 29 3A 82 00 B3 28 42 |.X:.1,A(C):...(B|
000020A0: 01 81 43 B2 31 A4 58 3A 84 31 2C 41 41 24 28 43 |..C.1.X:.1,AA$(C|
000020B0: 29 3A 82 00 BE 28 43 01 81 52 B2 31 A4 59 00 C9 |):...(C..R.1.Y..|
000020C0: 28 44 01 81 43 B2 31 A4 58 00 D8 28 45 01 84 31 |(D..C.1.X..(E..1|
000020D0: 2C 41 24 28 52 2C 43 29 00 E0 28 46 01 82 3A 82 |,A$(R,C)..(F..:.|
000020E0: 00 EB 28 47 01 81 43 B2 31 A4 58 00 FA 28 48 01 |..(G..C.1.X..(H.|
000020F0: 84 31 2C 41 24 28 30 2C 43 29 00 00 29 49 01 82 |.1,A$(0,C)..)I..|
00002100: 00 07 29 4A 01 A0 31 00 10 29 4B 01 8D 34 31 31 |..)J..1..)K..411|
00002110: 00 4A 29 4C 01 8B 59 B2 30 A7 4E 24 B2 22 22 3A |.J)L..Y.0.N$."":|
00002120: 99 22 12 46 49 4C 45 20 4E 4F 54 20 46 4F 55 4E |.".FILE NOT FOUN|
00002130: 44 20 4F 4E 20 44 49 53 4B 22 3A 81 49 B2 31 A4 |D ON DISK":.I.1.|
00002140: 31 30 30 30 3A 82 3A 89 31 32 00 81 29 4D 01 99 |1000:.:.12..)M..|
00002150: 22 4B 45 59 20 44 41 54 45 20 45 47 2E 28 32 38 |"KEY DATE EG.(28|
00002160: 2E 31 32 2E 38 33 29 5B 20 20 20 20 20 20 20 20 |.12.83)[ |
00002170: 5D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 3A 8D 32 35 |].........";:.25|
00002180: 33 00 91 29 4E 01 8B 49 50 24 B2 22 22 A7 33 33 |3..)N..IP$."".33|
00002190: 36 00 C2 29 4F 01 52 B2 31 3A 99 3A 8D 35 34 38 |6..)O.R.1:.:.548|
000021A0: 3A 8B 41 43 B2 31 A7 41 43 B2 30 3A 99 22 91 22 |:.AC.1.AC.0:."."|
000021B0: 53 24 22 91 22 3A 99 22 91 91 91 91 22 3A 89 33 |S$".":."....":.3|
000021C0: 33 33 00 D4 29 50 01 4D 24 B2 C8 28 49 50 24 2C |33..)P.M$..(IP$,|
000021D0: 38 29 3A 99 00 DC 29 51 01 89 31 32 00 00 2A 52 |8):...)Q..12..*R|
000021E0: 01 99 22 45 58 49 54 20 27 44 46 4D 27 20 41 52 |.."EXIT 'DFM' AR|
000021F0: 45 20 59 4F 55 20 53 55 52 45 20 28 59 2F 4E 29 |E YOU SURE (Y/N)|
00002200: 00 13 2A 53 01 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 |..*S..K$:.K$."".|
00002210: 33 33 39 00 2A 2A 54 01 8B 4B 24 B2 22 59 22 A7 |339.**T..K$."Y".|
00002220: 4E 24 B2 22 22 3A 8D 33 34 34 00 39 2A 55 01 8B |N$."":.344.9*U..|
00002230: 4B 24 B2 22 4E 22 A7 31 32 00 4C 2A 56 01 80 20 |K$."N".12.L*V.. |
00002240: 20 20 20 20 20 20 20 20 20 20 20 20 00 5C 2A 57 | .\*W|
00002250: 01 89 33 34 30 20 20 20 20 20 20 20 00 89 2A 58 |..340 ..*X|
00002260: 01 99 3A 20 20 99 22 93 20 20 20 20 20 20 20 2A |..: .". *|
00002270: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002280: 2A 2A 2A 2A 2A 2A 2A 2A 22 00 B7 2A 59 01 99 22 |********"..*Y.."|
00002290: 20 20 20 20 20 20 20 2A 2A 2A 20 12 44 41 54 41 | *** .DATA|
000022A0: 92 20 12 46 49 4C 45 92 20 12 4D 41 4E 41 47 45 |. .FILE. .MANAGE|
000022B0: 52 92 20 2A 2A 2A 22 00 E1 2A 5A 01 99 22 20 20 |R. ***"..*Z.." |
000022C0: 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***********|
000022D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 3A |**************":|
000022E0: 99 00 F0 2A 5B 01 8B 4E 24 B3 B1 22 22 A7 20 8E |...*[..N$.."". .|
000022F0: 00 19 2B 5C 01 99 22 20 20 20 20 20 20 20 20 20 |..+\.." |
00002300: 20 20 20 20 20 20 20 20 20 20 42 59 20 20 20 20 | BY |
00002310: 20 20 20 20 20 20 22 3A 99 00 4F 2B 5D 01 99 22 | ":..O+].."|
00002320: 20 20 20 20 20 20 20 20 12 20 44 20 92 20 12 20 | . D . . |
00002330: 49 20 92 20 12 20 41 20 92 20 12 20 4C 20 92 20 |I . . A . . L . |
00002340: 12 20 4F 20 92 20 12 20 47 20 92 20 22 3A 99 00 |. O . . G . ":..|
00002350: 76 2B 5E 01 99 22 20 20 20 20 20 20 20 20 20 20 |v+^.." |
00002360: 20 20 53 20 4F 20 46 20 54 20 57 20 41 20 52 20 | S O F T W A R |
00002370: 45 22 3A 99 3A 8E 00 82 2B 5F 01 99 C7 28 31 34 |E":.:...+_...(14|
00002380: 37 29 00 A4 2B 60 01 99 A3 31 34 29 22 12 2A 2A |7)..+`...14)".**|
00002390: 55 54 49 4C 49 54 49 45 53 2A 2A 92 22 3A 8D 32 |UTILITIES**.":.2|
000023A0: 36 34 3A 99 00 DD 2B 61 01 99 22 20 20 12 4D 92 |64:...+a.." .M.|
000023B0: 45 4D 4F 52 59 20 41 56 41 49 4C 41 42 49 4C 49 |EMORY AVAILABILI|
000023C0: 54 59 22 3A 99 3A 99 22 20 20 12 44 92 49 53 4B |TY":.:." .D.ISK|
000023D0: 20 44 49 52 45 43 54 4F 52 59 22 3A 99 00 F7 2B | DIRECTORY":...+|
000023E0: 62 01 99 22 20 20 4D 45 4E 55 20 12 53 50 41 43 |b.." MENU .SPAC|
000023F0: 45 20 42 41 52 92 22 00 0A 2C 63 01 A1 56 24 3A |E BAR."..,c..V$:|
00002400: 8B 56 24 B2 22 22 A7 33 35 35 00 1A 2C 64 01 8B |.V$."".355..,d..|
00002410: 56 24 B2 22 4D 22 A7 33 36 32 00 2A 2C 65 01 8B |V$."M".362.*,e..|
00002420: 56 24 B2 22 44 22 A7 35 33 39 00 39 2C 66 01 8B |V$."D".539.9,f..|
00002430: 56 24 B2 22 20 22 A7 31 32 00 5C 2C 67 01 99 3A |V$." ".12.\,g..:|
00002440: 99 22 12 50 52 45 53 53 20 53 50 41 43 45 20 42 |.".PRESS SPACE B|
00002450: 41 52 20 46 4F 52 20 4D 45 4E 55 22 00 71 2C 68 |AR FOR MENU".q,h|
00002460: 01 A1 4B 24 3A 8B 4B 24 B3 B1 22 20 22 A7 33 35 |..K$:.K$.." ".35|
00002470: 35 00 79 2C 69 01 89 31 32 00 9A 2C 6A 01 99 22 |5.y,i..12..,j.."|
00002480: 13 11 11 11 11 22 A3 32 34 29 22 3D 20 22 B8 28 |.....".24)"= ".(|
00002490: 30 29 22 42 59 54 45 53 20 22 00 AA 2C 6B 01 99 |0)"BYTES "..,k..|
000024A0: C7 28 31 39 29 3A 89 33 35 32 00 B3 2C 6C 01 8D |.(19):.352..,l..|
000024B0: 34 39 35 00 BC 2C 6D 01 8D 35 31 35 00 C8 2C 6E |495..,m..515..,n|
000024C0: 01 9F 34 2C 34 3A 9D 34 00 F3 2C 6F 01 99 C7 28 |..4,4:.4..,o...(|
000024D0: 31 34 37 29 3A 99 22 12 22 3B 4E 24 20 A3 31 39 |147):.".";N$ .19|
000024E0: 29 22 52 45 43 4F 52 44 20 4E 4F 22 3B 52 3A 99 |)"RECORD NO";R:.|
000024F0: 4C 33 24 00 2C 2D 70 01 43 B2 31 3A 99 22 12 22 |L3$.,-p.C.1:."."|
00002500: C4 28 43 29 22 92 22 3B 3A 99 A3 32 29 22 12 22 |.(C)".";:..2)"."|
00002510: 20 41 24 28 30 2C 43 29 22 92 22 A3 33 29 3B C8 | A$(0,C)".".3);.|
00002520: 28 41 24 28 52 2C 43 29 2C 32 34 29 00 35 2D 71 |(A$(R,C),24).5-q|
00002530: 01 99 4C 33 24 00 43 2D 72 01 81 20 43 B2 32 20 |..L3$.C-r.. C.2 |
00002540: A4 20 58 00 6A 2D 73 01 99 C4 28 43 29 3B 3A 99 |. X.j-s...(C);:.|
00002550: A3 32 29 41 24 28 30 2C 43 29 A3 33 29 C8 28 41 |.2)A$(0,C).3).(A|
00002560: 24 28 52 2C 43 29 2C 32 34 29 00 85 2D 74 01 82 |$(R,C),24)..-t..|
00002570: 3A 99 3A 8D 32 36 34 3A 99 3A 20 98 34 3A A0 34 |:.:.264:.: .4:.4|
00002580: 3A 89 31 30 31 00 C3 2D 75 01 8D 34 39 35 3A 43 |:.101..-u..495:C|
00002590: 4F B2 31 3A 4C 4E B2 32 31 3A 8D 34 39 37 3A 99 |O.1:LN.21:.497:.|
000025A0: 22 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 |"DO YOU WISH TO |
000025B0: 50 45 52 46 4F 52 4D 20 49 4E 44 49 56 49 44 55 |PERFORM INDIVIDU|
000025C0: 41 4C 22 00 E6 2D 76 01 99 22 12 43 92 41 4C 43 |AL"..-v..".C.ALC|
000025D0: 53 20 4F 52 20 12 54 92 4F 54 41 4C 49 53 45 20 |S OR .T.OTALISE |
000025E0: 46 49 45 4C 44 22 00 F9 2D 77 01 A1 4B 24 3A 8B |FIELD"..-w..K$:.|
000025F0: 4B 24 B2 22 22 A7 33 37 35 00 0F 2E 78 01 8B 4B |K$."".375...x..K|
00002600: 24 B2 22 54 22 A7 8D 34 31 31 3A 89 33 39 37 00 |$."T"..411:.397.|
00002610: 25 2E 79 01 8B 4B 24 B2 22 43 22 A7 8D 34 31 31 |%.y..K$."C"..411|
00002620: 3A 89 33 37 39 00 2E 2E 7A 01 89 33 37 35 00 4D |:.379...z..375.M|
00002630: 2E 7B 01 99 22 57 48 49 43 48 20 46 49 45 4C 44 |.{.."WHICH FIELD|
00002640: 20 44 4F 20 59 4F 55 20 57 49 53 48 22 00 77 2E | DO YOU WISH".w.|
00002650: 7C 01 99 22 54 4F 20 43 41 4C 43 55 4C 41 54 45 ||.."TO CALCULATE|
00002660: 2C 20 4B 45 59 20 31 20 54 4F 20 22 58 22 20 3A |, KEY 1 TO "X" :|
00002670: 22 3B 3A 8D 32 35 33 00 93 2E 7D 01 43 B2 C5 28 |";:.253...}.C..(|
00002680: 49 50 24 29 3A 8B 43 B1 58 A7 8D 34 31 31 3A 89 |IP$):.C.X..411:.|
00002690: 33 37 39 00 9C 2E 7E 01 8D 34 31 31 00 C1 2E 7F |379...~..411....|
000026A0: 01 8B 41 41 24 28 43 29 B2 22 43 22 A7 99 22 12 |..AA$(C)."C"..".|
000026B0: 43 48 41 52 41 43 54 45 52 92 20 46 49 45 4C 44 |CHARACTER. FIELD|
000026C0: 22 00 D5 2E 80 01 8B 41 41 24 28 43 29 B2 22 4E |"......AA$(C)."N|
000026D0: 22 A7 33 38 36 00 EA 2E 81 01 81 49 B2 31 A4 31 |".386......I.1.1|
000026E0: 30 30 30 3A 82 3A 89 31 31 34 00 18 2F 82 01 99 |000:.:.114../...|
000026F0: 22 4B 45 59 20 4C 45 54 54 45 52 20 46 4F 4C 4C |"KEY LETTER FOLL|
00002700: 4F 57 45 44 20 42 59 20 41 4D 4F 55 4E 54 20 45 |OWED BY AMOUNT E|
00002710: 47 2E 28 41 32 35 29 22 00 4E 2F 83 01 99 22 12 |G.(A25)".N/...".|
00002720: 41 92 44 44 20 12 53 92 55 42 54 52 41 43 54 20 |A.DD .S.UBTRACT |
00002730: 12 4D 92 55 4C 54 49 50 4C 59 20 12 44 92 49 56 |.M.ULTIPLY .D.IV|
00002740: 49 44 45 20 12 5A 92 45 52 4F 49 53 45 22 00 6E |IDE .Z.EROISE".n|
00002750: 2F 84 01 99 22 12 52 92 45 50 4C 41 43 45 20 3A |/...".R.EPLACE :|
00002760: 22 3B 3A 8D 32 35 33 3A 4C 24 B2 49 50 24 00 97 |";:.253:L$.IP$..|
00002770: 2F 85 01 8B C8 28 4C 24 2C 31 29 B2 22 53 22 A7 |/....(L$,1)."S".|
00002780: 50 B2 C5 28 41 24 28 52 2C 43 29 29 AB C5 28 CA |P..(A$(R,C))..(.|
00002790: 28 4C 24 2C 32 29 29 00 C0 2F 86 01 8B C8 28 4C |(L$,2))../....(L|
000027A0: 24 2C 31 29 B2 22 41 22 A7 50 B2 C5 28 41 24 28 |$,1)."A".P..(A$(|
000027B0: 52 2C 43 29 29 AA C5 28 CA 28 4C 24 2C 32 29 29 |R,C))..(.(L$,2))|
000027C0: 00 E9 2F 87 01 8B C8 28 4C 24 2C 31 29 B2 22 4D |../....(L$,1)."M|
000027D0: 22 A7 50 B2 C5 28 41 24 28 52 2C 43 29 29 AC C5 |".P..(A$(R,C))..|
000027E0: 28 CA 28 4C 24 2C 32 29 29 00 12 30 88 01 8B C8 |(.(L$,2))..0....|
000027F0: 28 4C 24 2C 31 29 B2 22 44 22 A7 50 B2 C5 28 41 |(L$,1)."D".P..(A|
00002800: 24 28 52 2C 43 29 29 AD C5 28 CA 28 4C 24 2C 32 |$(R,C))..(.(L$,2|
00002810: 29 29 00 27 30 89 01 8B C8 28 4C 24 2C 31 29 B2 |)).'0....(L$,1).|
00002820: 22 5A 22 A7 50 B2 30 00 45 30 8A 01 8B C8 28 4C |"Z".P.0.E0....(L|
00002830: 24 2C 31 29 B2 22 52 22 A7 50 B2 C5 28 CA 28 4C |$,1)."R".P..(.(L|
00002840: 24 2C 32 29 29 00 5B 30 8B 01 41 24 28 52 2C 43 |$,2)).[0..A$(R,C|
00002850: 29 B2 CA 28 C4 28 50 29 2C 32 29 00 64 30 8C 01 |)..(.(P),2).d0..|
00002860: 89 31 30 31 00 83 30 8D 01 99 22 57 48 49 43 48 |.101..0..."WHICH|
00002870: 20 46 49 45 4C 44 20 44 4F 20 59 4F 55 20 57 49 | FIELD DO YOU WI|
00002880: 53 48 22 00 AB 30 8E 01 99 22 54 4F 20 54 4F 54 |SH"..0..."TO TOT|
00002890: 41 4C 49 53 45 20 4B 45 59 20 31 20 54 4F 20 22 |ALISE KEY 1 TO "|
000028A0: 58 22 20 3A 22 3B 3A 8D 32 35 33 00 C7 30 8F 01 |X" :";:.253..0..|
000028B0: 43 B2 C5 28 49 50 24 29 3A 8B 43 B1 58 A7 8D 34 |C..(IP$):.C.X..4|
000028C0: 31 31 3A 89 33 39 37 00 D0 30 90 01 8D 34 31 31 |11:.397..0...411|
000028D0: 00 F5 30 91 01 8B 41 41 24 28 43 29 B2 22 43 22 |..0...AA$(C)."C"|
000028E0: A7 99 22 12 43 48 41 52 41 43 54 45 52 92 20 46 |..".CHARACTER. F|
000028F0: 49 45 4C 44 22 00 09 31 92 01 8B 41 41 24 28 43 |IELD"..1...AA$(C|
00002900: 29 B2 22 4E 22 A7 34 30 34 00 1E 31 93 01 81 49 |)."N".404..1...I|
00002910: B2 31 A4 31 30 30 30 3A 82 3A 89 31 31 34 00 26 |.1.1000:.:.114.&|
00002920: 31 94 01 54 B2 30 00 43 31 95 01 81 20 52 B2 31 |1..T.0.C1... R.1|
00002930: A4 59 3A 54 B2 54 AA C5 28 41 24 28 52 2C 43 29 |.Y:T.T..(A$(R,C)|
00002940: 29 3A 82 00 89 31 96 01 99 22 54 4F 54 41 4C 20 |):...1..."TOTAL |
00002950: 46 49 4C 45 20 56 41 4C 55 45 20 4F 46 20 46 49 |FILE VALUE OF FI|
00002960: 45 4C 44 20 3A 22 3A 99 22 12 22 41 24 28 30 2C |ELD :":."."A$(0,|
00002970: 43 29 22 92 22 22 20 3D 20 20 20 20 20 20 20 20 |C)"."" = |
00002980: 20 20 20 20 20 20 22 3B 54 00 AC 31 97 01 99 22 | ";T..1..."|
00002990: 50 52 45 53 53 20 12 53 50 41 43 45 20 42 41 52 |PRESS .SPACE BAR|
000029A0: 92 20 54 4F 20 52 45 54 55 52 4E 22 00 BF 31 98 |. TO RETURN"..1.|
000029B0: 01 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 34 30 38 00 |..K$:.K$."".408.|
000029C0: CF 31 99 01 8B 4B 24 B2 22 20 22 A7 31 30 31 00 |.1...K$." ".101.|
000029D0: D8 31 9A 01 89 34 30 38 00 DE 31 9B 01 3A 00 FA |.1...408..1..:..|
000029E0: 31 9C 01 99 22 91 91 22 3B 3A 99 53 24 3A 99 53 |1..."..";:.S$:.S|
000029F0: 24 3A 99 22 91 91 91 22 3A 8E 00 2B 32 9D 01 53 |$:."...":..+2..S|
00002A00: 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." |
00002A10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002A20: 20 20 20 20 20 20 20 20 20 20 22 00 5D 32 9E 01 | ".]2..|
00002A30: 4C 33 24 B2 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |L3$."-----------|
00002A40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002A50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 91 32 |------------"..2|
00002A60: 9F 01 54 24 B2 22 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |..T$."..........|
00002A70: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00002A80: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3A |..............":|
00002A90: 8E 00 C6 32 A0 01 86 20 41 24 28 32 30 30 2C 58 |...2... A$(200,X|
00002AA0: 29 2C 41 41 24 28 58 29 2C 41 28 58 29 2C 43 24 |),AA$(X),A(X),C$|
00002AB0: 28 58 29 2C 42 24 28 58 29 3A 41 24 28 52 2C 43 |(X),B$(X):A$(R,C|
00002AC0: 29 B2 22 22 3A 8E 00 E8 32 A1 01 99 22 57 48 49 |)."":...2..."WHI|
00002AD0: 43 48 20 46 49 45 4C 44 20 44 4F 20 59 4F 55 20 |CH FIELD DO YOU |
00002AE0: 57 49 53 48 20 54 4F 22 00 0E 33 A2 01 99 22 53 |WISH TO"..3..."S|
00002AF0: 4F 52 54 20 42 59 2E 2E 20 4B 45 59 20 31 20 54 |ORT BY.. KEY 1 T|
00002B00: 4F 20 22 58 22 20 3A 22 3B 3A 8D 32 35 33 00 1B |O "X" :";:.253..|
00002B10: 33 A3 01 4D B2 C5 28 49 50 24 29 00 24 33 A4 01 |3..M..(IP$).$3..|
00002B20: 8D 34 31 31 00 41 33 A5 01 99 22 12 53 4F 52 54 |.411.A3...".SORT|
00002B30: 49 4E 47 92 20 50 4C 45 41 53 45 20 57 41 49 54 |ING. PLEASE WAIT|
00002B40: 22 00 4E 33 A6 01 81 52 B2 31 A4 59 AB 31 00 5D |".N3...R.1.Y.1.]|
00002B50: 33 A7 01 81 49 B2 28 52 AA 31 29 A4 59 00 82 33 |3...I.(R.1).Y..3|
00002B60: A8 01 8B 41 41 24 28 4D 29 B2 22 43 22 AF 41 24 |...AA$(M)."C".A$|
00002B70: 28 49 2C 4D 29 B1 B2 41 24 28 52 2C 4D 29 A7 34 |(I,M)..A$(R,M).4|
00002B80: 33 31 00 AD 33 A9 01 8B 41 41 24 28 4D 29 B2 22 |31..3...AA$(M)."|
00002B90: 4E 22 AF C5 28 41 24 28 49 2C 4D 29 29 B1 B2 C5 |N"..(A$(I,M))...|
00002BA0: 28 41 24 28 52 2C 4D 29 29 A7 34 33 31 00 B8 33 |(A$(R,M)).431..3|
00002BB0: AA 01 81 43 B2 31 A4 58 00 CA 33 AB 01 42 24 28 |...C.1.X..3..B$(|
00002BC0: 43 29 B2 41 24 28 52 2C 43 29 00 DE 33 AC 01 41 |C).A$(R,C)..3..A|
00002BD0: 24 28 52 2C 43 29 B2 41 24 28 49 2C 43 29 00 F0 |$(R,C).A$(I,C)..|
00002BE0: 33 AD 01 41 24 28 49 2C 43 29 B2 42 24 28 43 29 |3..A$(I,C).B$(C)|
00002BF0: 00 F7 33 AE 01 82 43 00 FF 33 AF 01 82 3A 82 00 |..3...C..3...:..|
00002C00: 27 34 B0 01 99 22 12 53 4F 52 54 92 20 43 4F 4D |'4...".SORT. COM|
00002C10: 50 4C 45 54 45 44 22 3A 81 4A B2 31 A4 31 30 30 |PLETED":.J.1.100|
00002C20: 30 3A 82 3A 89 31 32 00 4D 34 B1 01 99 C7 28 31 |0:.:.12.M4....(1|
00002C30: 34 37 29 3A 99 A3 31 30 29 22 12 2A 2A 52 45 50 |47):..10)".**REP|
00002C40: 4F 52 54 20 57 52 49 54 45 52 2A 2A 22 00 79 34 |ORT WRITER**".y4|
00002C50: B2 01 99 22 57 48 49 43 48 20 4F 46 20 54 48 45 |..."WHICH OF THE|
00002C60: 20 46 4F 4C 4C 4F 57 49 4E 47 20 46 49 45 4C 44 | FOLLOWING FIELD|
00002C70: 53 20 44 4F 20 59 4F 55 22 00 9E 34 B3 01 99 22 |S DO YOU"..4..."|
00002C80: 57 49 53 48 20 54 4F 20 49 4E 43 4C 55 44 45 20 |WISH TO INCLUDE |
00002C90: 49 4E 20 54 48 45 20 52 45 50 4F 52 54 22 00 A7 |IN THE REPORT"..|
00002CA0: 34 B4 01 99 4C 33 24 00 B2 34 B5 01 81 43 B2 31 |4...L3$..4...C.1|
00002CB0: A4 58 00 C0 34 B6 01 99 41 24 28 30 2C 43 29 3B |.X..4...A$(0,C);|
00002CC0: 00 F8 34 B7 01 99 A3 32 35 29 22 4B 45 59 20 12 |..4....25)"KEY .|
00002CD0: 59 92 20 4F 52 20 12 4E 92 20 5B 20 5D 9D 9D 22 |Y. OR .N. [ ].."|
00002CE0: 3B 3A 8D 32 35 33 3A 43 24 28 43 29 B2 C8 28 49 |;:.253:C$(C)..(I|
00002CF0: 50 24 2C 31 29 3A 82 43 00 26 35 B8 01 99 4C 33 |P$,1):.C.&5...L3|
00002D00: 24 3A 99 3A 99 A3 36 29 22 3C 3C 20 41 43 43 45 |$:.:..6)"<< ACCE|
00002D10: 50 54 20 46 49 45 4C 44 20 53 45 4C 45 43 54 49 |PT FIELD SELECTI|
00002D20: 4F 4E 20 3E 3E 22 00 57 35 B9 01 99 3A 99 A3 34 |ON >>".W5...:..4|
00002D30: 29 22 4B 45 59 20 12 59 92 20 54 4F 20 43 4F 4E |)"KEY .Y. TO CON|
00002D40: 54 49 4E 55 45 20 12 4E 92 20 54 4F 20 52 45 2D |TINUE .N. TO RE-|
00002D50: 53 45 4C 45 43 54 22 00 60 35 BA 01 8D 35 31 33 |SELECT".`5...513|
00002D60: 00 70 35 BB 01 8B 4B 24 B2 22 4E 22 A7 34 33 33 |.p5...K$."N".433|
00002D70: 00 9E 35 BC 01 8B 4B 24 B2 22 59 22 A7 99 C7 28 |..5...K$."Y"...(|
00002D80: 31 34 37 29 3A 99 A3 31 30 29 22 12 2A 2A 52 45 |147):..10)".**RE|
00002D90: 50 4F 52 54 20 57 52 49 54 45 52 2A 2A 22 00 C3 |PORT WRITER**"..|
00002DA0: 35 BD 01 99 3A 99 A3 39 29 22 50 52 49 4E 54 45 |5...:..9)"PRINTE|
00002DB0: 52 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 22 3A 99 |R INFORMATION":.|
00002DC0: 4C 33 24 00 FE 35 BE 01 99 22 44 4F 20 59 4F 55 |L3$..5..."DO YOU|
00002DD0: 20 52 45 51 55 49 52 45 20 4C 49 4E 45 20 46 45 | REQUIRE LINE FE|
00002DE0: 45 44 22 A3 32 35 29 22 4B 45 59 20 12 59 92 20 |ED".25)"KEY .Y. |
00002DF0: 4F 52 20 12 4E 92 20 5B 20 5D 9D 9D 22 3B 00 16 |OR .N. [ ]..";..|
00002E00: 36 BF 01 8D 32 35 33 3A 4C 46 24 B2 C8 28 49 50 |6...253:LF$..(IP|
00002E10: 24 2C 31 29 3A 99 00 63 36 C0 01 99 22 44 4F 20 |$,1):..c6..."DO |
00002E20: 59 4F 55 20 57 49 53 48 20 54 4F 20 53 45 4E 44 |YOU WISH TO SEND|
00002E30: 20 41 22 3A 99 22 43 48 52 24 20 54 4F 20 54 48 | A":."CHR$ TO TH|
00002E40: 45 20 50 52 49 4E 54 45 52 22 A3 32 35 29 22 4B |E PRINTER".25)"K|
00002E50: 45 59 20 12 59 92 20 4F 52 20 12 4E 92 20 5B 20 |EY .Y. OR .N. [ |
00002E60: 5D 22 3B 00 92 36 C1 01 99 22 9D 9D 22 3B 3A 8D |]";..6..."..";:.|
00002E70: 32 35 33 3A 43 53 24 B2 C8 28 49 50 24 2C 31 29 |253:CS$..(IP$,1)|
00002E80: 3A 47 B2 39 3A 8B 43 53 24 B2 22 59 22 A7 47 B2 |:G.9:.CS$."Y".G.|
00002E90: 31 31 00 CC 36 C2 01 8B 43 53 24 B2 22 59 22 A7 |11..6...CS$."Y".|
00002EA0: 99 3A 99 22 45 4E 54 45 52 20 43 48 52 24 22 A3 |.:."ENTER CHR$".|
00002EB0: 33 35 29 22 5B 20 20 5D 9D 9D 9D 22 3B 3A 8D 32 |35)"[ ]...";:.2|
00002EC0: 35 33 3A 43 53 B2 C5 28 49 50 24 29 00 DA 36 C3 |53:CS..(IP$)..6.|
00002ED0: 01 99 4C 33 24 3A 89 34 35 37 00 0F 37 C4 01 99 |..L3$:.457..7...|
00002EE0: 22 13 22 3A 81 49 B2 31 A4 47 3A 99 3A 82 3A 81 |".":.I.1.G:.:.:.|
00002EF0: 49 B2 31 A4 32 33 AB 47 3A 99 53 24 3A 82 49 3A |I.1.23.G:.S$:.I:|
00002F00: 99 22 13 22 3A 81 49 B2 31 A4 47 3A 99 3A 82 00 |.".":.I.1.G:.:..|
00002F10: 57 37 C5 01 99 A3 31 32 29 22 12 2A 2A 54 45 53 |W7....12)".**TES|
00002F20: 54 20 4F 56 45 52 2A 2A 22 3A 99 3A 99 A3 35 29 |T OVER**":.:..5)|
00002F30: 3A 99 22 4B 45 59 20 12 59 92 20 54 4F 20 43 4F |:."KEY .Y. TO CO|
00002F40: 4E 54 49 4E 55 45 20 12 4E 92 20 54 4F 20 52 45 |NTINUE .N. TO RE|
00002F50: 2D 53 45 54 55 50 22 00 60 37 C6 01 8D 35 31 33 |-SETUP".`7...513|
00002F60: 00 70 37 C7 01 8B 4B 24 B2 22 59 22 A7 34 36 32 |.p7...K$."Y".462|
00002F70: 00 86 37 C8 01 8B 4B 24 B2 22 4E 22 A7 8D 35 31 |..7...K$."N"..51|
00002F80: 38 3A 89 34 33 33 00 BC 37 C9 01 99 22 44 4F 20 |8:.433..7..."DO |
00002F90: 59 4F 55 20 52 45 51 55 49 52 45 20 54 45 53 54 |YOU REQUIRE TEST|
00002FA0: 20 50 52 49 4E 54 3A 20 4B 45 59 20 12 59 92 20 | PRINT: KEY .Y. |
00002FB0: 4F 52 20 12 4E 92 22 3A 99 4C 33 24 00 C5 37 CA |OR .N.":.L3$..7.|
00002FC0: 01 8D 35 31 33 00 DB 37 CB 01 8B 4B 24 B2 22 4E |..513..7...K$."N|
00002FD0: 22 A7 8D 35 31 35 3A 89 34 36 32 00 F1 37 CC 01 |"..515:.462..7..|
00002FE0: 8B 4B 24 B2 22 59 22 A7 8D 35 31 35 3A 8D 35 31 |.K$."Y"..515:.51|
00002FF0: 39 00 FA 37 CD 01 89 34 35 32 00 06 38 CE 01 9F |9..7...452..8...|
00003000: 34 2C 34 3A 9D 34 00 1B 38 CF 01 8B 43 53 24 B2 |4,4:.4..8...CS$.|
00003010: 22 59 22 A7 99 20 C7 28 43 53 29 00 3D 38 D0 01 |"Y".. .(CS).=8..|
00003020: 99 4D 24 A6 31 30 29 22 46 49 4C 45 4E 41 4D 45 |.M$.10)"FILENAME|
00003030: 20 3D 20 22 4E 24 3A 99 3A 8D 35 33 32 00 49 38 | = "N$:.:.532.I8|
00003040: D1 01 52 B2 30 3A 50 B2 30 00 51 38 D2 01 43 B2 |..R.0:P.0.Q8..C.|
00003050: 31 00 6A 38 D3 01 50 44 B2 41 28 43 29 AB C3 28 |1.j8..PD.A(C)..(|
00003060: 41 24 28 52 2C 43 29 29 AA 31 00 79 38 D4 01 8B |A$(R,C)).1.y8...|
00003070: 50 44 B3 31 A7 50 44 B2 31 00 B9 38 D5 01 50 44 |PD.1.PD.1..8..PD|
00003080: 24 B2 C8 28 53 24 2C 50 44 29 3A 8B 43 24 28 43 |$..(S$,PD):.C$(C|
00003090: 29 B2 22 59 22 A7 99 C8 28 41 24 28 52 2C 43 29 |)."Y"...(A$(R,C)|
000030A0: 2C 41 28 43 29 29 AA 50 44 24 3B 3A 8B 52 B2 30 |,A(C)).PD$;:.R.0|
000030B0: A7 50 B2 50 AA 41 28 43 29 00 CE 38 D6 01 43 B2 |.P.P.A(C)..8..C.|
000030C0: 43 AA 31 3A 8B 43 B3 58 AA 31 A7 34 36 37 00 D7 |C.1:.C.X.1.467..|
000030D0: 38 D7 01 8D 35 33 32 00 F9 38 D8 01 8B 52 B2 30 |8...532..8...R.0|
000030E0: A7 99 3A 81 49 B2 31 A4 50 AA 32 3A 99 22 2D 22 |..:.I.1.P.2:."-"|
000030F0: 3B 3A 82 49 3A 8D 35 33 32 00 10 39 D9 01 52 B2 |;:.I:.532..9..R.|
00003100: 52 AA 31 3A 99 3A 8B 52 B3 59 AA 31 A7 34 36 36 |R.1:.:.R.Y.1.466|
00003110: 00 1A 39 DA 01 99 3A 99 3A 99 00 32 39 DB 01 99 |..9...:.:..29...|
00003120: 22 20 20 20 2A 54 4F 54 41 4C 53 2A 22 3A 8D 35 |" *TOTALS*":.5|
00003130: 33 32 00 4C 39 DC 01 99 22 20 20 20 2D 2D 2D 2D |32.L9..." ----|
00003140: 2D 2D 2D 2D 22 3A 99 3A 8D 35 33 32 00 5B 39 DD |----":.:.532.[9.|
00003150: 01 81 43 B2 31 A4 58 3A 54 B2 30 00 77 39 DE 01 |..C.1.X:T.0.w9..|
00003160: 81 52 B2 31 A4 59 3A 54 B2 54 AA C5 28 41 24 28 |.R.1.Y:T.T..(A$(|
00003170: 52 2C 43 29 29 3A 82 00 9B 39 DF 01 8B 41 41 24 |R,C)):...9...AA$|
00003180: 28 43 29 B2 22 4E 22 A7 99 41 24 28 30 2C 43 29 |(C)."N"..A$(0,C)|
00003190: A3 32 30 29 3B 54 3A 8D 35 33 32 00 A2 39 E0 01 |.20);T:.532..9..|
000031A0: 82 43 00 AC 39 E1 01 98 34 3A A0 34 00 B5 39 E2 |.C..9...4:.4..9.|
000031B0: 01 8D 35 31 38 00 BD 39 E3 01 89 31 32 00 F4 39 |..518..9...12..9|
000031C0: E4 01 8D 34 39 35 3A 43 4F B2 31 3A 4C 4E B2 32 |...495:CO.1:LN.2|
000031D0: 31 3A 8D 34 39 37 3A 99 22 12 44 45 4C 45 54 45 |1:.497:.".DELETE|
000031E0: 92 20 41 52 45 20 59 4F 55 20 53 55 52 45 3F 20 |. ARE YOU SURE? |
000031F0: 59 2F 4E 22 00 FD 39 E5 01 8D 35 31 33 00 0D 3A |Y/N"..9...513..:|
00003200: E6 01 8B 4B 24 B2 22 59 22 A7 34 38 39 00 1D 3A |...K$."Y".489..:|
00003210: E7 01 8B 4B 24 B2 22 4E 22 A7 31 31 34 00 26 3A |...K$."N".114.&:|
00003220: E8 01 89 34 38 35 00 37 3A E9 01 54 B2 52 3A 81 |...485.7:..T.R:.|
00003230: 52 B2 54 A4 59 AA 31 00 42 3A EA 01 81 43 B2 31 |R.T.Y.1.B:...C.1|
00003240: A4 58 00 58 3A EB 01 41 24 28 52 2C 43 29 B2 41 |.X.X:..A$(R,C).A|
00003250: 24 28 52 AA 31 2C 43 29 00 5F 3A EC 01 82 43 00 |$(R.1,C)._:...C.|
00003260: 66 3A ED 01 82 52 00 75 3A EE 01 59 B2 59 AB 31 |f:...R.u:..Y.Y.1|
00003270: 3A 89 31 30 30 00 90 3A EF 01 43 4F B2 31 3A 4C |:.100..:..CO.1:L|
00003280: 4E B2 32 31 3A 8D 34 39 37 3A 81 49 B2 31 A4 33 |N.21:.497:.I.1.3|
00003290: 00 C4 3A F0 01 99 22 20 20 20 20 20 20 20 20 20 |..:..." |
000032A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000032B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":|
000032C0: 82 49 3A 8E 00 F7 3A F1 01 41 43 43 24 B2 22 1D |.I:...:..ACC$.".|
000032D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000032E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000032F0: 1D 1D 1D 1D 1D 1D 22 00 1D 3B F2 01 44 4F 57 24 |......"..;..DOW$|
00003300: B2 22 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00003310: 11 11 11 11 11 11 11 11 11 11 11 11 22 00 28 3B |............".(;|
00003320: F3 01 81 5A B2 31 A4 32 00 32 3B F4 01 99 22 13 |...Z.1.2.2;...".|
00003330: 22 3B 00 4B 3B F5 01 8B 43 4F B1 31 A7 99 C8 28 |";.K;...CO.1...(|
00003340: 41 43 43 24 2C 43 4F AB 31 29 3B 00 64 3B F6 01 |ACC$,CO.1);.d;..|
00003350: 8B 4C 4E B1 31 A7 99 C8 28 44 4F 57 24 2C 4C 4E |.LN.1...(DOW$,LN|
00003360: AB 31 29 3B 00 99 3B F7 01 8B 5A B2 31 A7 99 22 |.1);..;...Z.1.."|
00003370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003390: 20 20 20 20 20 20 20 22 3B 00 A0 3B F8 01 82 5A | ";..;...Z|
000033A0: 00 A6 3B F9 01 8E 00 D6 3B FA 01 82 3A 99 3A 8D |..;.....;...:.:.|
000033B0: 32 36 34 3A 99 A3 36 29 22 50 52 45 53 53 20 12 |264:..6)"PRESS .|
000033C0: 20 53 50 41 43 45 20 42 41 52 20 92 20 46 4F 52 | SPACE BAR . FOR|
000033D0: 20 4D 45 4E 55 22 00 F1 3B FB 01 4B 24 B2 22 22 | MENU"..;..K$.""|
000033E0: 3A A1 4B 24 3A 8B 4B 24 B3 B1 22 20 22 A7 35 30 |:.K$:.K$.." ".50|
000033F0: 37 00 F9 3B FC 01 89 31 32 00 12 3C FD 01 8B 50 |7..;...12..<...P|
00003400: 52 B2 35 AF C3 28 C4 28 52 29 29 B2 32 A7 54 54 |R.5..(.(R)).2.TT|
00003410: B2 35 00 2B 3C FE 01 8B 50 52 B2 35 AF C3 28 C4 |.5.+<...PR.5..(.|
00003420: 28 52 29 29 B2 33 A7 54 54 B2 34 00 44 3C FF 01 |(R)).3.TT.4.D<..|
00003430: 8B 50 52 B2 35 AF C3 28 C4 28 52 29 29 B2 34 A7 |.PR.5..(.(R)).4.|
00003440: 54 54 B2 33 00 4A 3C 00 02 8E 00 67 3C 01 02 A1 |TT.3.J<....g<...|
00003450: 4B 24 3A 8B 4B 24 B3 B1 22 59 22 AF 4B 24 B3 B1 |K$:.K$.."Y".K$..|
00003460: 22 4E 22 A7 35 31 33 00 6D 3C 02 02 8E 00 AC 3C |"N".513.m<.....<|
00003470: 03 02 43 4F B2 31 3A 4C 4E B2 32 31 3A 8D 34 39 |..CO.1:LN.21:.49|
00003480: 37 3A 99 22 20 3C 3C 20 45 4E 53 55 52 45 20 54 |7:." << ENSURE T|
00003490: 48 41 54 20 50 52 49 4E 54 45 52 20 49 53 20 41 |HAT PRINTER IS A|
000034A0: 4C 49 47 4E 45 44 20 3E 3E 22 3A 99 00 E6 3C 04 |LIGNED >>":...<.|
000034B0: 02 99 22 20 20 20 20 50 52 45 53 53 20 12 53 50 |.." PRESS .SP|
000034C0: 41 43 45 20 42 41 52 92 20 54 4F 20 43 4F 4E 54 |ACE BAR. TO CONT|
000034D0: 49 4E 55 45 22 3A A1 4B 24 3A 8B 4B 24 B3 B1 22 |INUE":.K$:.K$.."|
000034E0: 20 22 A7 35 31 35 00 EC 3C 05 02 8E 00 10 3D 06 | ".515..<.....=.|
000034F0: 02 81 43 B2 31 A4 58 3A 41 24 28 30 2C 43 29 B2 |..C.1.X:A$(0,C).|
00003500: C8 28 41 24 28 30 2C 43 29 2C 39 29 3A 82 3A 8E |.(A$(0,C),9):.:.|
00003510: 00 39 3D 07 02 52 50 24 B2 22 22 3A 81 43 B2 31 |.9=..RP$."":.C.1|
00003520: A4 58 3A 54 50 24 B2 22 22 3A 8B 43 24 28 43 29 |.X:TP$."":.C$(C)|
00003530: B2 22 59 22 A7 8D 35 32 39 00 40 3D 08 02 82 43 |."Y"..529.@=...C|
00003540: 00 71 3D 09 02 52 B2 30 3A 52 24 B2 22 22 3A 50 |.q=..R.0:R$."":P|
00003550: 44 24 B2 22 22 3A 81 43 B2 31 A4 58 3A 50 44 B2 |D$."":.C.1.X:PD.|
00003560: 41 28 43 29 AB C3 28 41 24 28 52 2C 43 29 29 AA |A(C)..(A$(R,C)).|
00003570: 31 00 80 3D 0A 02 8B 50 44 B3 31 A7 50 44 B2 31 |1..=...PD.1.PD.1|
00003580: 00 B6 3D 0B 02 50 44 24 B2 C8 28 53 24 2C 50 44 |..=..PD$..(S$,PD|
00003590: 29 3A 8B 43 24 28 43 29 B2 22 59 22 A7 52 24 B2 |):.C$(C)."Y".R$.|
000035A0: 52 24 AA C8 28 41 24 28 52 2C 43 29 2C 41 28 43 |R$..(A$(R,C),A(C|
000035B0: 29 29 AA 50 44 24 00 BD 3D 0C 02 82 43 00 D9 3D |)).PD$..=...C..=|
000035C0: 0D 02 9F 34 2C 34 3A 9D 34 3A 8B 43 53 24 B2 22 |...4,4:.4:.CS$."|
000035D0: 59 22 A7 99 C7 28 43 53 29 00 FB 3D 0E 02 99 4D |Y"...(CS)..=...M|
000035E0: 24 A6 31 30 29 22 46 49 4C 45 4E 41 4D 45 20 3D |$.10)"FILENAME =|
000035F0: 20 22 4E 24 3A 99 3A 8D 35 33 32 00 1E 3E 0F 02 | "N$:.:.532..>..|
00003600: 99 52 24 3A 81 49 B2 31 A4 C3 28 52 24 29 3A 99 |.R$:.I.1..(R$):.|
00003610: 22 2D 22 3B 3A 82 49 3A 99 3A 8D 35 33 32 00 2F |"-";:.I:.:.532./|
00003620: 3E 10 02 99 52 50 24 3A 98 34 3A A0 34 3A 8E 00 |>...RP$:.4:.4:..|
00003630: 4F 3E 11 02 81 49 B2 31 A4 41 28 43 29 3A 54 50 |O>...I.1.A(C):TP|
00003640: 24 B2 54 50 24 AA 41 41 24 28 43 29 3A 82 49 00 |$.TP$.AA$(C):.I.|
00003650: 7A 3E 12 02 8B C3 28 54 50 24 29 B3 C3 28 41 24 |z>....(TP$)..(A$|
00003660: 28 31 2C 43 29 29 A7 54 50 24 B2 54 50 24 AA 41 |(1,C)).TP$.TP$.A|
00003670: 41 24 28 43 29 3A 89 35 33 30 00 98 3E 13 02 54 |A$(C):.530..>..T|
00003680: 50 24 B2 54 50 24 AA 22 20 22 3A 52 50 24 B2 52 |P$.TP$." ":RP$.R|
00003690: 50 24 AA 54 50 24 3A 8E 00 AC 3E 14 02 8B 4C 46 |P$.TP$:...>...LF|
000036A0: 24 B2 22 59 22 A7 99 C7 28 31 30 29 00 B2 3E 15 |$."Y"...(10)..>.|
000036B0: 02 8E 00 DB 3E 16 02 99 22 93 4D 41 58 20 4E 4F |....>...".MAX NO|
000036C0: 20 4F 46 20 52 45 43 4F 52 44 53 20 4E 4F 57 20 | OF RECORDS NOW |
000036D0: 52 45 41 43 48 45 44 2E 22 3A 99 00 24 3F 17 02 |REACHED.":..$?..|
000036E0: 99 22 54 4F 20 49 4E 43 52 45 41 53 45 20 4D 41 |."TO INCREASE MA|
000036F0: 58 49 4D 55 4D 20 52 45 2D 44 49 4D 45 4E 53 49 |XIMUM RE-DIMENSI|
00003700: 4F 4E 22 3A 99 3A 99 22 50 52 4F 47 52 41 4D 20 |ON":.:."PROGRAM |
00003710: 41 54 20 4C 49 4E 45 20 34 31 36 20 41 4E 44 20 |AT LINE 416 AND |
00003720: 31 37 34 22 00 6F 3F 18 02 99 3A 99 22 4F 52 20 |174".o?...:."OR |
00003730: 43 41 4C 4C 20 44 49 41 4C 4F 47 20 4F 4E 20 30 |CALL DIALOG ON 0|
00003740: 31 20 32 38 39 20 36 39 30 34 22 3A 99 3A 99 3A |1 289 6904":.:.:|
00003750: 99 3A 99 22 50 52 45 53 53 20 12 53 50 41 43 45 |.:."PRESS .SPACE|
00003760: 20 42 41 52 92 20 46 4F 52 20 4D 45 4E 55 22 00 | BAR. FOR MENU".|
00003770: 84 3F 19 02 A1 4B 24 3A 8B 4B 24 B3 B1 22 20 22 |.?...K$:.K$.." "|
00003780: A7 35 33 37 00 92 3F 1A 02 59 B2 32 30 30 3A 89 |.537..?..Y.200:.|
00003790: 31 32 00 B3 3F 1B 02 99 22 93 22 3A 20 99 22 12 |12..?...".": .".|
000037A0: 20 44 49 53 4B 20 44 49 52 45 43 54 4F 52 59 20 | DISK DIRECTORY |
000037B0: 92 11 22 00 E9 3F 1C 02 9F 31 2C 38 2C 31 35 2C |.."..?...1,8,15,|
000037C0: 22 49 30 22 3A A0 31 3A 9F 31 2C 38 2C 30 2C 22 |"I0":.1:.1,8,0,"|
000037D0: 24 30 22 3A 81 4B B2 31 A4 32 35 3A A1 23 31 2C |$0":.K.1.25:.#1,|
000037E0: 58 24 3A 82 4B 3A 44 B2 31 00 F8 3F 1D 02 8B 44 |X$:.K:D.1..?...D|
000037F0: B2 32 A7 44 B2 30 3A 99 00 16 40 1E 02 99 A3 32 |.2.D.0:...@....2|
00003800: 30 AC 44 29 3B 3A 81 4B B2 31 A4 34 3A A1 23 31 |0.D);:.K.1.4:.#1|
00003810: 2C 58 24 3A 82 4B 00 2F 40 1F 02 8B 20 53 54 20 |,X$:.K./@... ST |
00003820: B0 20 44 53 20 A7 A0 31 3A 99 3A 89 33 35 39 00 |. DS ..1:.:.359.|
00003830: 4C 40 20 02 A1 23 31 2C 58 24 3A 8B 58 24 B2 22 |L@ ..#1,X$:.X$."|
00003840: 22 A7 44 B2 44 AA 31 3A 89 35 34 31 00 64 40 21 |".D.D.1:.541.d@!|
00003850: 02 8B 58 24 B2 C7 28 33 34 29 A7 4F B2 A8 4F 3A |..X$..(34).O..O:|
00003860: 89 35 34 34 00 70 40 22 02 8B 4F A7 99 58 24 3B |.544.p@"..O..X$;|
00003870: 00 79 40 23 02 89 35 34 34 00 8D 40 24 02 8B 49 |.y@#..544..@$..I|
00003880: 50 24 B2 22 22 A7 49 50 24 B2 22 2D 22 00 C8 40 |P$."".IP$."-"..@|
00003890: 25 02 8B C6 28 49 50 24 29 B3 34 36 B0 C6 28 49 |%...(IP$).46..(I|
000038A0: 50 24 29 B1 35 37 A7 41 43 B2 31 3A 99 3A 99 22 |P$).57.AC.1:.:."|
000038B0: 12 4E 55 4D 45 52 49 43 20 49 4E 50 55 54 20 52 |.NUMERIC INPUT R|
000038C0: 45 51 55 49 52 45 44 22 00 F8 40 26 02 8B 52 B3 |EQUIRED"..@&..R.|
000038D0: 30 B0 52 B1 59 A7 99 3A 99 22 12 45 4E 54 45 52 |0.R.Y..:.".ENTER|
000038E0: 20 41 20 56 41 4C 55 45 20 42 45 54 57 45 45 4E | A VALUE BETWEEN|
000038F0: 20 31 20 41 4E 44 22 59 00 0A 41 27 02 81 49 B2 | 1 AND"Y..A'..I.|
00003900: 31 A4 31 30 30 30 3A 82 3A 8E 00 00 00 |1.1000:.:.... |
.......53280,2:.53281,2:. ".".Q....**DFM
BY CHRIS ELY*DIALOG SOFTWARE(C) 15.01.8
3.....X.0:Y.0:R.0:C.0:IP$."":K$."":EM$."
":N$."":.413.....A$(R,C)."":F.0:S.0.....
.G(147)......344......"... DO YOU WANT
.U.PPER OR .L.OWER CASE"......K$:.K$.""
.8......K$."U"..G(142):.12.!....K$."L"..
G(14):.12.(....8.9....G(147):.344.I....:
.N$."".17.T...NL$.N$.R....C(NL$).9.NL$.N
L$." ":.15......:.:..8)".FILE IN USE: ";
NL$;".":.:.:........14)"KEY OPTION":.264
......"1 CREATE NEW FILE".20)"2 RENAME F
ILE"......"3 ACCESS RECORD".20)"4 SELECT
".5...."5 LOAD/SAVE FILE".20)"6 REPORT W
RITER.[...."7 SORT FILE".20)"8 UTILITIES
":..Z.....11)"9 EXIT PROGRAM":.264......
K$:.K$."".23.....KK$."123456789":.K.1.9:
.K$.J(KK$,K,1).26.D....K:.23......Y.0.K.
.1.K..5.K..8.K..9..".NO FILE EXISTS":.26
1:.12.'....K.128,78,100,191,265,433,417,
351,338.1.... 411.Y...."DO YOU WISH TO .
C.ONTINUE SEARCH".T...."OR RETURN TO .M.
ENU"......K$:.K$."".31... ..K$."C"..411:
.35...!..K$."M".12..."..31.K.#..495:CO.1
:LN.21:.497...$.."SEARCH FOR RECORD BY K
EY FIELD"...%.."------------------------
------".6.&.."ENTER ""."A$(0,1)"."":";.C
.'..253:.46.L.(..495.`.).CO.1:LN.21:.497
...*.."THERE ARE "Y" RECORDS IN THIS FIL
E"...+.."ENTER RECORD NUMBER :";:. 253..
.,.R.E(IP$):.R.0.R.Y.."..":.548:."."S$:.
"..":.411: .42...-..101.....L$.IP$.../.F
.C(L$)...0..R.1.Y.*.1..L$.H(A$(R,1),F).1
01.0.2...9.3..411.Y.4..".NO SUCH RECORD
EXISTS!.".I.5..Z.1.1000:..Q.6..28...7.AC
.0: ."WHICH LINE DO YOU WISH TO AMEND"..
.8.."PRESS 1 TO "X" :";:.253.W.9.C.E(IP$
):.C.X..411:.55...:..411...;.."EXISTING
DATA FOR ""."A$(0,C)"."" = ":. "."A$(R,C
).>.<.."NEW DATA ";:."[";:.H(S$,A(C));.[
.=.."]";:.H(T$,A(C));:.".";...>..253:.AA
$(C)."N".."..":.548:.AC.1.AC.0:."."L3$:.
".....":.59.E.?.A$(R,C).IP$:.:.A$(R,C)."
".A$(R,C)."-"...@..C(A$(R,C)).A(C).A$(R,
C).H(A$(R,C),A(C))...A.C.2...B..101...C.
.264.3.D.."WHICH LINE DO YOU WISH TO AME
ND".R.E.."PRESS 1 TO "X" :";:.253;.M.F.C
.E(IP$):.C.X..411:.68.V.G..411...H.."."A
$(0,C).F.I.."ENTER CORRECT FIELD HEADING
[ ]..........";:. 253.X.J.A$(0,
C).IP$:....K..C(A$(0,C)).9.A$(0,C).A$(0,
C)." ":.75.).L..C(A$(0,C)).9.A$(0,C).H(A
$(0,C),9).2.M..101.D.N.."ENTER NEW FILE
NAME [ ]..........";.X.O..253:N$
.IP$:.12...P..495:CO.1:LN.21:.497:."DO Y
OU WISH TO AMEND:-".L.Q.."FIELD .H.EADIN
G OR .D.ATA"...R..K$:.K$."".82...S..K$."
H"..411:.68...T..K$."D"..411:.55...U..82
.2.V..G(147);:RS.R:.R.RS.Y:.G(19);.E.W..
". RECORDS WILL DISPLAY IN LOGICAL ORDER
.":....X.CO.1:LN.24:.497:.".C.ONTINUE S
CROLL: .S.TOP SCROLL: .E.XIT:.T.Y.CO.1
:LN.3:.497:."RECORD NO: ";R:.:.C.1.X...Z
.."."A$(0,C)".";:Q.C(A$(R,C)):.Q.26.Q.26
.".[...12)H(A$(R,C),26).H(S$,26.Q).-.\..
C.1...<.]..RN..0.506.C.^..C.\._.K$."":.K
$:.K$."S".98.X.`..K$.."E"..I.1.500:.I:.R
...A..101...B.K$."":.K$:.K$.."C".K$.."E"
.98...C..96...D.R.1...E.A.1.H.F..R.0.R.1
...G..R.Y.R.R.1:R.Y...H..A.0.A.1...I..A.
25.A.A.1.#.J..G(147):.".";N$.19)"RECORD
NO";R:. 264...K..C.1.X.:.L.GG.A(C).K.M..
GG.24.GG.24.\.N.."."D(C)".";...O...4)"."
H(A$(0,C),9)".".15)J(A$(R,C),A,GG)...P..
C.1..264...Q.....R.CO.1:LN.20:.497:.L3$.
..S.." .**OPTIONS**.
"...T.."PRESS : .N.EXT .L.AST .F.IND .
G.OTO .A.MEND .M.ENU".U.U..".C.ALCS .I.N
PUT .D.ELETE .P.RINT .S.CROLL .<. .>".^.
V..L3$.Q.W..K$:.K$."".119...X.KK$."NLMIG
FS><APCD":.K.1.13:.K$.J(KK$,K,1).122...Y
..K:.119...Z..K.123,124,12,125,40,35,86,
126,127,80,364,373,484...{.R.R.1:. 101..
.|.R.R.1:. 101...}.F.1:TV.R:.172.'.~.A.A
.1:.102.6..A.A.1:.102.M....G(147):.:.".
**WARNING** THIS WILL ERASE ANY FILE"...
...".CURRENTLY IN MEMORY.":.:.:.:.......
.8) "........................".X.....8)"
PRESS .Y.ES TO CONTINUE".......8)"
.N.O FOR MENU".......8) "...............
.........".#....513.2....K$."N".12.C....
K$."Y". 137.V....G(147):.:.413......"KEY
DATE EG.(28.12.82)[ ].........";
:.253......IP$."".141.H....548:.AC.1.AC.
0:."."S$".":."....":.138.....M$.H(IP$,8)
:.G(147).......12)".CREATE RECORD.":....
...264.9...."WHAT IS THE FILE NAME ?[
].........";.B....253.T...N$.H(IP$,
8):..^.... 264......"HOW MANY FIELDS IN
EACH RECORD ? [ ]...";:. 253.....X.E(H(
IP$,2)):..O....X.1.X.15..".MAXIMUM IS 15
.":.148......416:.G(147):C.1......".THIS
FILE IS NAMED ";N$:.264.9...."NOTE THAT
FIELD 1 IS THE . KEY FIELD . ":..B....2
64.}...."STATE . TITLE . OF FIELD"C" [
]..........";......253:......A$(
0,C).H(IP$,9).H....C(A$(0,C)).9.A$(0,C).
A$(0,C)." ":.158......"ENTER .C.HARACTER
OR .N.UMERIC FIELD [ ]..";:.253... .AA$
(C).H(IP$,1):..*....AA$(C)."N".164.>....
AA$(C)."C".166.L....411:.159.Y...A(C).9:
..B....170......"ENTER NUMBER OF CHARACT
ERS FOR RECORD"......"MAX.36 CHARACTERS
[ ]...";:.253.H...A(C).E(IP$):.......A(
C).36.."..":.411:.166......C.X.172.....C
.C.1:.".":.152. ....F.1.R.Y.1:Y.Y.1:.174
.,...R.1:Y.1.;....R.200.534.M....G(147):
AC.0: ..12)".RECORD NUMBER";R".":.264...
....3)"TO TERMINATE DATA ENTRY TYPE 'END
'":.......264:.......C.1.X.X...."KEY "A$
(0,C):."[";:.H(S$,A(C));......"]";:.H(T$
,A(C));:.".";:.253......IP$."END". F.0 .
R.1:Y.Y.1:. 12.B....IP$."=".A$(R,C).A$(
TV,C):.187.J....IP$."END".F.1.F.0:R.R.1:
Y.Y.1:.101......AA$(C)."N"..548:.AC.1.AC
.0:."."S$:.".":.".....":.179.....A$(R,C)
.H(IP$,A(C)):..Z....A$(R,C)."".A$(R,C)."
-"......264............F.1.F.0:.101.....
R.R.1:Y.Y.1:. 174.>....G(147):..15)".**S
ELECT**":.264:E.0:RC.0......"DO YOU WANT
TO OUTPUT RESULTS TO":."PRINTER: KEY .Y
.ES OR .N.O"...A..264...B..513...C..K$."
Y".PR.5:.197.B.D..K$."N".PR.0:.197.R.E..
PR.0.TT.15...F..R.1.Y...G..411:.".ENTER
SELECTED .FIELD. [ ]..........";
:.253;.,.H.DP$.IP$:..K.I..C(DP$).9.DP$.D
P$." ":.201.Z.J..:.264:C.1.O.K..A$(0,C).
DP$.206...L.C.C.1:.C.X.1.203...M.EM$.".N
O SUCH FIELD":.261:.12...N.."ENTER ."DP$
".".R.O.."[";:.H(S$,A(C));...P.."]";:.H(
T$,A(C));:.".";...Q..253:CP$.IP$:.:. 264
...R.F.C(CP$).:.S..G(147):.:. 264:.AA$(C
).."C".214.C.T.."DO YOU WANT A STANDARD
OR SLIDING"...U.."STRING SEARCH: ENTER .
ST. OR .SS. [ ]...";:.253:ST$.IP$.K.V..
G(147):.:. 264:.AA$(C)."N".J.1:.217...W.
.ST$."SS".SS.1:I.1:.225...X..ST$."ST".SS
.0:I.1:J.1:.225.%.Y.."SHOULD . "DP$" . B
E:":..C.Z...2)".E.QUAL TO".15)CP$:..B...
..2)".L.ESS THAN".15)CP$:........2)".G.R
EATER THAN".15)CP$:.......K$:.K$."".221.
....KK$."ELG":.I.1.3:.K$.J(KK$,I,1).224.
K....I:.221......G(147):. 264.. ..AR.24:
.PR.5..515:.".".14)".**PRINTING**.":AR.A
(1):.4,4:.4.H ..."FILE NAME : "N$:.:."SE
LECTION : "DP$:..[ ...I.240,228,234.. ..
."CRITERIA < "CP$" ":.264:.R.1.Y.. ...5
09.J ...E(A$(R,C)).E(CP$).."RECORD NO ";
R.TT)H(A$(R,1),AR):RC.RC.1.P ..... ...PR
.5..4: 4.. ...249..!..."CRITERIA > "CP$
" ":.264:.R.1.Y..!...509.X!...E(A$(R,C))
.E(CP$).."RECORD NO ";R.TT)H(A$(R,1),AR)
:RC.RC.1.^!....N!...PR.5..4: 4.W!...249.
.!..."CRITERIA = "CP$" ":.264:.R.1.Y..!
...R.1.Y..!...509.G!...SS.1..J.1.A(C).F.
."...J(A$(R,C),J,F).CP$.."RECORD NO ";R.
TT)H(A$(R,1),AR):RC.RC.1.."...SS.0.247..
"...J.#"....3"...PR.5..4: 4.O"...:.".REC
ORDS COUNTED =. ";RC:.:..13)".PRESS SPAC
E BAR.".."...K$:.K$."".250.."...K$." ".R
.R.1:.12.."...250.."..B$." ":."";.G"...I
P$:.IP$.""..254.."...B$." ".F(IP$).20..2
54..#...F(IP$).20.B$.H(B$,C(B$).1):.". .
";:.254..#...IP$.G(13).IP$.J(B$,2):.:..R
#..A.F(IP$):.A.31.A.157.A.145..254.S#...
A.34.A.44.A.58.A.59.IP$."."..#..B$.B$.IP
$:.".";IP$;".";:.254..#... EM$..#... T8.
1 .1000:...#.....#..."..................
.....................":...$... "DO YOU W
ISH TO .L.OAD OR .S.AVE":..%$...K$:.K$."
".266.5$...K$."L".284.E$...K$."S".270.N$
...266.W$...411..$..."ARE YOU SAVING ON
.D.ISC OR .T.APE?":...$...K$:.K$."".272.
.$...K$."T".276..$...K$."D".298..$...272
.I$...411..$...".INSERT CASSETTE"..$..."
PRESS .C. TO CONTINUE"..%...K$:.K$.."C".
279.+%...411:."SAVING ."N$.5%..."..".D%
... 1,1,1,N$.M%...306.S%....{%...413:.41
1:."ARE YOU LOADING FROM:-"..%...".D.ISK
OR .T.APE"..%...K$:.K$."".287..% ..K$."
T".291.F%!..K$."D".296.O%"..287..%#.T.1:
U.0:NN$.N$..&$..411:."IS CASSETTE IN PLA
CE"."&%.."PRESS .Y.ES TO CONTINUE".7&&..
K$:.K$.."Y".294.@&'..316.U&(.T.8:U.4:N1$
."0:":N2$.",SEQ,READ":NN$.N1$.NN$.N2$.~&
)..316..&*..411..&+.."DO YOU WANT TO SAV
E ON DRIVE .0. OR .1.".I&,..K$:.K$."".30
0..&-..K$."0".DR$."0:":.304..&...K$."1".
DR$."1:":.304..'/..300.2'0.N1$.DR$:N2$."
,SEQ,WRITE":NN$.N1$.N$.N2$.E'1..1,8,4,"@
".NN$.V'2..1,Y:.G(13);.G'3..1,X:.G(13);.
.'4..C.1.X:.1,A(C):.G(13);:...'5..C.1.X:
.1,AA$(C):.G(13);:...'6..R.1.Y.N'7..C.1.
X:.1,A$(R,C):.G(13);:..T'8....'9..C.1.X:
.1,A$(0,C):.G(13);:...':. 1..(;..12.<(<.
.411:."ENTER FILE NAME [ ]......
....";:. 253.U(=.N$.H(IP$,9):NN$.N$:..E(
>..T.1.."...".T(?..1,T,U,NN$..(@..1,Y:.1
,X:.416..(A..C.1.X:.1,A(C):...(B..C.1.X:
.1,AA$(C):...(C..R.1.Y.I(D..C.1.X.X(E..1
,A$(R,C)..(F..:...(G..C.1.X..(H..1,A$(0,
C)..)I....)J. 1..)K..411.J)L..Y.0.N$."":
.".FILE NOT FOUND ON DISK":.I.1.1000:.:.
12..)M.."KEY DATE EG.(28.12.83)[
].........";:.253..)N..IP$."".336.B)O.R.
1:.:.548:.AC.1.AC.0:."."S$".":."....":.3
33.T)P.M$.H(IP$,8):...)Q..12..*R.."EXIT
'DFM' ARE YOU SURE (Y/N)..*S..K$:.K$."".
339.**T..K$."Y".N$."":.344.9*U..K$."N".1
2.L*V.. .\*W..340 ..*X
..: .". *************************
"..*Y.." *** .DATA. .FILE. .MANAGE
R. ***"..*Z.." *******************
******":...*[..N$.."". ...+\.."
BY ":..O+].."
. D . . I . . A . . L . . O . . G . ":..
V+^.." S O F T W A R E":.:...
+_..G(147)..+`...14)".**UTILITIES**.":.2
64:...+A.." .M.EMORY AVAILABILITY":.:."
.D.ISK DIRECTORY":...+B.." MENU .SPAC
E BAR."..,C..V$:.V$."".355..,D..V$."M".3
62.*,E..V$."D".539.9,F..V$." ".12.\,G..:
.".PRESS SPACE BAR FOR MENU".Q,H..K$:.K$
.." ".355.Y,I..12..,J..".....".24)"= ".(
0)"BYTES "..,K..G(19):.352..,L..495..,M.
.515.H,N..4,4:.4..,O..G(147):.".";N$ .19
)"RECORD NO";R:.L3$.,-P.C.1:."."D(C)".";
:..2)"." A$(0,C)".".3);H(A$(R,C),24).5-Q
..L3$.C-R.. C.2 . X.J-S..D(C);:..2)A$(0,
C).3)H(A$(R,C),24)..-T..:.:.264:.: .4: 4
:.101.C-U..495:CO.1:LN.21:.497:."DO YOU
WISH TO PERFORM INDIVIDUAL"..-V..".C.ALC
S OR .T.OTALISE FIELD"..-W..K$:.K$."".37
5...X..K$."T"..411:.397.%.Y..K$."C"..411
:.379...Z..375.M.{.."WHICH FIELD DO YOU
WISH".W.|.."TO CALCULATE, KEY 1 TO "X" :
";:.253...}.C.E(IP$):.C.X..411:.379...~.
.411.A...AA$(C)."C"..".CHARACTER. FIELD
".U....AA$(C)."N".386......I.1.1000:.:.1
14../..."KEY LETTER FOLLOWED BY AMOUNT E
G.(A25)".N/...".A.DD .S.UBTRACT .M.ULTIP
LY .D.IVIDE .Z.EROISE".N/...".R.EPLACE :
";:.253:L$.IP$../...H(L$,1)."S".P.E(A$(R
,C)).E(J(L$,2))../...H(L$,1)."A".P.E(A$(
R,C)).E(J(L$,2))../...H(L$,1)."M".P.E(A$
(R,C)).E(J(L$,2))..0...H(L$,1)."D".P.E(A
$(R,C)).E(J(L$,2)).'0...H(L$,1)."Z".P.0.
E0...H(L$,1)."R".P.E(J(L$,2)).[0..A$(R,C
).J(D(P),2).D0...101..0..."WHICH FIELD D
O YOU WISH"..0..."TO TOTALISE KEY 1 TO "
X" :";:.253.G0..C.E(IP$):.C.X..411:.397.
P0...411..0...AA$(C)."C"..".CHARACTER. F
IELD"..1...AA$(C)."N".404..1...I.1.1000:
.:.114.&1..T.0.C1... R.1.Y:T.T.E(A$(R,C)
):...1..."TOTAL FILE VALUE OF FIELD :":.
"."A$(0,C)"."" = ";T..1..."
PRESS .SPACE BAR. TO RETURN"..1...K$:.K$
."".408.O1...K$." ".101.X1...408..1..:..
1..."..";:.S$:.S$:."...":..+2..S$."
".]2..
L3$."-----------------------------------
----"..2..T$."..........................
..............":..F2 .. A$(200,X),AA$(X)
,A(X),C$(X),B$(X):A$(R,C)."":...2..."WHI
CH FIELD DO YOU WISH TO"..3..."SORT BY..
KEY 1 TO "X" :";:.253..3..M.E(IP$).$3..
.411.A3...".SORTING. PLEASE WAIT".N3...R
.1.Y.1.]3...I.(R.1).Y..3...AA$(M)."C".A$
(I,M)..A$(R,M).431..3...AA$(M)."N".E(A$(
I,M))..E(A$(R,M)).431..3...C.1.X.J3..B$(
C).A$(R,C)..3..A$(R,C).A$(I,C)..3..A$(I,
C).B$(C)..3...C..3...:..'4...".SORT. COM
PLETED":.J.1.1000:.:.12.M4...G(147):..10
)".**REPORT WRITER**".Y4..."WHICH OF THE
FOLLOWING FIELDS DO YOU"..4..."WISH TO
INCLUDE IN THE REPORT"..4...L3$..4...C.1
.X..4...A$(0,C);..4....25)"KEY .Y. OR .N
. [ ]..";:.253:C$(C).H(IP$,1):.C.&5...L3
$:.:..6)"<< ACCEPT FIELD SELECTION >>".W
5...:..4)"KEY .Y. TO CONTINUE .N. TO RE-
SELECT".`5...513.P5...K$."N".433..5...K$
."Y"..G(147):..10)".**REPORT WRITER**".C
5...:..9)"PRINTER INFORMATION":.L3$..5..
."DO YOU REQUIRE LINE FEED".25)"KEY .Y.
OR .N. [ ]..";..6...253:LF$.H(IP$,1):..C
6..."DO YOU WISH TO SEND A":."CHR$ TO TH
E PRINTER".25)"KEY .Y. OR .N. [ ]";..6A.
."..";:.253:CS$.H(IP$,1):G.9:.CS$."Y".G.
11.L6B..CS$."Y"..:."ENTER CHR$".35)"[ ]
...";:.253:CS.E(IP$).Z6C..L3$:.457..7D..
".":.I.1.G:.:.:.I.1.23.G:.S$:.I:.".":.I.
1.G:.:..W7E...12)".**TEST OVER**":.:..5)
:."KEY .Y. TO CONTINUE .N. TO RE-SETUP".
`7F..513.P7G..K$."Y".462..7H..K$."N"..51
8:.433..7I.."DO YOU REQUIRE TEST PRINT:
KEY .Y. OR .N.":.L3$.E7J..513..7K..K$."N
"..515:.462..7L..K$."Y"..515:.519..7M..4
52..8N..4,4:.4..8O..CS$."Y".. G(CS).=8P.
.M$.10)"FILENAME = "N$:.:.532.I8Q.R.0:P.
0.Q8R.C.1.J8S.PD.A(C).C(A$(R,C)).1.Y8T..
PD.1.PD.1..8U.PD$.H(S$,PD):.C$(C)."Y"..H
(A$(R,C),A(C)).PD$;:.R.0.P.P.A(C).N8V.C.
C.1:.C.X.1.467.W8W..532..8X..R.0..:.I.1.
P.2:."-";:.I:.532..9Y.R.R.1:.:.R.Y.1.466
..9Z..:.:..29..." *TOTALS*":.532.L9...
" --------":.:.532.[9...C.1.X:T.0.W9..
.R.1.Y:T.T.E(A$(R,C)):...9...AA$(C)."N".
.A$(0,C).20);T:.532..9...C..9...4: 4..9.
..518..9...12..9...495:CO.1:LN.21:.497:.
".DELETE. ARE YOU SURE? Y/N"..9...513..:
...K$."Y".489..:...K$."N".114.&:...485.7
:..T.R:.R.T.Y.1.B:...C.1.X.X:..A$(R,C).A
$(R.1,C)._:...C.F:...R.U:..Y.Y.1:.100..:
..CO.1:LN.21:.497:.I.1.3.D:..."
":.I:...:.
.ACC$.".................................
......"..;..DOW$."......................
....".(;...Z.1.2.2;...".";.K;...CO.1..H(
ACC$,CO.1);.D;...LN.1..H(DOW$,LN.1);..;.
..Z.1.."
";. ;...Z..;....V;...:.:.264:..6)
"PRESS . SPACE BAR . FOR MENU"..;..K$.""
:.K$:.K$.." ".507..;...12..<...PR.5.C(D(
R)).2.TT.5.+<...PR.5.C(D(R)).3.TT.4.D<..
.PR.5.C(D(R)).4.TT.3.J<....G<...K$:.K$..
"Y".K$.."N".513.M<.....<..CO.1:LN.21:.49
7:." << ENSURE THAT PRINTER IS ALIGNED >
>":...<..." PRESS .SPACE BAR. TO CONT
INUE":.K$:.K$.." ".515..<.....=...C.1.X:
A$(0,C).H(A$(0,C),9):.:..9=..RP$."":.C.1
.X:TP$."":.C$(C)."Y"..529.@=...C.Q=..R.0
:R$."":PD$."":.C.1.X:PD.A(C).C(A$(R,C)).
1..=...PD.1.PD.1..=..PD$.H(S$,PD):.C$(C)
."Y".R$.R$.H(A$(R,C),A(C)).PD$..=...C.Y=
...4,4:.4:.CS$."Y"..G(CS)..=...M$.10)"FI
LENAME = "N$:.:.532..>...R$:.I.1.C(R$):.
"-";:.I:.:.532./>...RP$:.4: 4:..O>...I.1
.A(C):TP$.TP$.AA$(C):.I.Z>...C(TP$).C(A$
(1,C)).TP$.TP$.AA$(C):.530..>..TP$.TP$."
":RP$.RP$.TP$:...>...LF$."Y"..G(10)..>.
....>...".MAX NO OF RECORDS NOW REACHED.
":..$?..."TO INCREASE MAXIMUM RE-DIMENSI
ON":.:."PROGRAM AT LINE 416 AND 174".O?.
..:."OR CALL DIALOG ON 01 289 6904":.:.:
.:."PRESS .SPACE BAR. FOR MENU"..?...K$:
.K$.." ".537..?..Y.200:.12..?...".": .".
DISK DIRECTORY .."..?...1,8,15,"I0": 1:
.1,8,0,"$0":.K.1.25:.#1,X$:.K:D.1..?...D
.2.D.0:...@....20.D);:.K.1.4:.#1,X$:.K./
@... ST . DS . 1:.:.359.L@ ..#1,X$:.X$."
".D.D.1:.541.D@!..X$.G(34).O..O:.544.P@"
..O..X$;.Y@#..544..@$..IP$."".IP$."-".H@
%..F(IP$).46.F(IP$).57.AC.1:.:.".NUMERIC
INPUT REQUIRED"..@&..R.0.R.Y..:.".ENTER
A VALUE BETWEEN 1 AND"Y..A'..I.1.1000:.
:....
> CLICK IMAGE PREVIEW FOR FULL MODAL