DFM+
FILE INFORMATION
FILENAME(S): DFM+
FILE TYPE(S): PRG
FILE SIZE: 14.3K
FIRST SEEN: 2025-11-02 16:30:33
APPEARS ON: 1 disk(s)
FILE HASH
00683c67c304bdf74bc518638d7c491315b7ea1db5f7707c618f4721a46448d3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAMES THREE D C | DFM+ | PRG | Treasure Chest - OzzyC64 | 8 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 01 00 97 35 33 32 38 30 2C 30 3A 97 |.......53280,0:.|
00000010: 35 33 32 38 31 2C 30 3A 99 22 93 0E 08 22 00 52 |53281,0:."...".R|
00000020: 08 02 00 8F 2A 2A 44 46 4D 20 42 59 20 43 48 52 |....**DFM BY CHR|
00000030: 49 53 20 45 4C 59 2A 44 49 41 4C 4F 47 20 53 4F |IS ELY*DIALOG SO|
00000040: 46 54 57 41 52 45 28 43 29 20 31 35 2E 30 31 2E |FTWARE(C) 15.01.|
00000050: 38 33 00 85 08 03 00 58 B2 30 3A 59 B2 30 3A 52 |83.....X.0:Y.0:R|
00000060: B2 30 3A 43 B2 30 3A 49 50 24 B2 22 22 3A 4B 24 |.0:C.0:IP$."":K$|
00000070: B2 22 22 3A 45 4D 24 B2 22 22 3A 4E 24 B2 22 22 |."":EM$."":N$.""|
00000080: 3A 8D 34 31 33 00 9C 08 04 00 41 24 28 52 2C 43 |:.413.....A$(R,C|
00000090: 29 B2 22 22 3A 46 B2 30 3A 53 B2 30 00 A8 08 05 |)."":F.0:S.0....|
000000A0: 00 99 C7 28 31 34 37 29 00 B1 08 06 00 8D 33 34 |...(147)......34|
000000B0: 34 00 E2 08 07 00 99 22 11 11 11 20 20 20 44 4F |4......"... DO|
000000C0: 20 59 4F 55 20 57 41 4E 54 20 12 55 92 50 50 45 | YOU WANT .U.PPE|
000000D0: 52 20 4F 52 20 12 4C 92 4F 57 45 52 20 43 41 53 |R OR .L.OWER CAS|
000000E0: 45 22 00 F3 08 08 00 A1 4B 24 3A 8B 4B 24 B2 22 |E"......K$:.K$."|
000000F0: 22 A7 38 00 0A 09 0A 00 8B 4B 24 B2 22 4C 22 A7 |".8......K$."L".|
00000100: 99 C7 28 31 34 29 3A 89 31 32 00 19 09 0B 00 8B |..(14):.12......|
00000110: 4B 24 B2 22 55 22 89 31 33 00 2A 09 0C 00 99 C7 |K$."U".13.*.....|
00000120: 28 31 34 37 29 3A 8D 33 34 34 00 3A 09 0D 00 99 |(147):.344.:....|
00000130: 3A 8B 4E 24 B2 22 22 A7 31 37 00 45 09 0E 00 4E |:.N$."".17.E...N|
00000140: 4C 24 B2 4E 24 00 63 09 0F 00 8B C3 28 4E 4C 24 |L$.N$.c.....(NL$|
00000150: 29 B3 39 A7 4E 4C 24 B2 4E 4C 24 AA 22 20 22 3A |).9.NL$.NL$." ":|
00000160: 89 31 35 00 8E 09 10 00 99 3A 99 3A 99 A3 38 29 |.15......:.:..8)|
00000170: 22 12 46 49 4C 45 20 49 4E 20 55 53 45 3A 20 22 |".FILE IN USE: "|
00000180: 3B 4E 4C 24 3B 22 92 22 3A 99 3A 99 3A 99 00 A9 |;NL$;".":.:.:...|
00000190: 09 11 00 99 A3 31 34 29 22 4B 45 59 20 4F 50 54 |.....14)"KEY OPT|
000001A0: 49 4F 4E 22 3A 8D 32 36 34 00 D5 09 12 00 99 22 |ION":.264......"|
000001B0: 31 20 43 52 45 41 54 45 20 4E 45 57 20 46 49 4C |1 CREATE NEW FIL|
000001C0: 45 22 A3 32 30 29 22 32 20 52 45 4E 41 4D 45 20 |E".20)"2 RENAME |
000001D0: 46 49 4C 45 22 00 FA 09 13 00 99 22 33 20 41 43 |FILE"......"3 AC|
000001E0: 43 45 53 53 20 52 45 43 4F 52 44 22 A3 32 30 29 |CESS RECORD".20)|
000001F0: 22 34 20 53 45 4C 45 43 54 22 00 26 0A 14 00 99 |"4 SELECT".&....|
00000200: 22 35 20 4C 4F 41 44 2F 53 41 56 45 20 46 49 4C |"5 LOAD/SAVE FIL|
00000210: 45 22 A3 32 30 29 22 36 20 52 45 50 4F 52 54 20 |E".20)"6 REPORT |
00000220: 57 52 49 54 45 52 00 4C 0A 15 00 99 22 37 20 53 |WRITER.L...."7 S|
00000230: 4F 52 54 20 46 49 4C 45 22 A3 32 30 29 22 38 20 |ORT FILE".20)"8 |
00000240: 55 54 49 4C 49 54 49 45 53 22 3A 99 00 6B 0A 16 |UTILITIES":..k..|
00000250: 00 99 A3 31 31 29 22 39 20 45 58 49 54 20 50 52 |...11)"9 EXIT PR|
00000260: 4F 47 52 41 4D 22 3A 8D 32 36 34 00 7D 0A 17 00 |OGRAM":.264.}...|
00000270: A1 4B 24 3A 8B 4B 24 B2 22 22 A7 32 33 00 AA 0A |.K$:.K$."".23...|
00000280: 18 00 4B 4B 24 B2 22 31 32 33 34 35 36 37 38 39 |..KK$."123456789|
00000290: 22 3A 81 4B B2 31 A4 39 3A 8B 4B 24 B2 CA 28 4B |":.K.1.9:.K$..(K|
000002A0: 4B 24 2C 4B 2C 31 29 A7 32 36 00 B5 0A 19 00 82 |K$,K,1).26......|
000002B0: 4B 3A 89 32 33 00 EE 0A 1A 00 8B 59 B2 30 AF 4B |K:.23......Y.0.K|
000002C0: B3 B1 31 AF 4B B3 B1 35 AF 4B B3 B1 38 AF 4B B3 |..1.K..5.K..8.K.|
000002D0: B1 39 A7 99 22 12 4E 4F 20 46 49 4C 45 20 45 58 |.9..".NO FILE EX|
000002E0: 49 53 54 53 22 3A 8D 32 36 31 3A 89 31 32 00 18 |ISTS":.261:.12..|
000002F0: 0B 1B 00 91 4B 89 31 32 38 2C 37 38 2C 31 30 30 |....K.128,78,100|
00000300: 2C 31 39 31 2C 32 36 35 2C 34 33 33 2C 34 31 37 |,191,265,433,417|
00000310: 2C 33 35 31 2C 33 33 38 00 22 0B 1C 00 8D 20 34 |,351,338.".... 4|
00000320: 31 31 00 4A 0B 1D 00 99 22 44 4F 20 59 4F 55 20 |11.J...."DO YOU |
00000330: 57 49 53 48 20 54 4F 20 12 43 92 4F 4E 54 49 4E |WISH TO .C.ONTIN|
00000340: 55 45 20 53 45 41 52 43 48 22 00 65 0B 1E 00 99 |UE SEARCH".e....|
00000350: 22 4F 52 20 52 45 54 55 52 4E 20 54 4F 20 12 4D |"OR RETURN TO .M|
00000360: 92 45 4E 55 22 00 77 0B 1F 00 A1 4B 24 3A 8B 4B |.ENU".w....K$:.K|
00000370: 24 B2 22 22 A7 33 31 00 8C 0B 20 00 8B 4B 24 B2 |$."".31... ..K$.|
00000380: 22 43 22 A7 8D 34 31 31 3A 89 33 35 00 9B 0B 21 |"C"..411:.35...!|
00000390: 00 8B 4B 24 B2 22 4D 22 A7 31 32 00 A3 0B 22 00 |..K$."M".12...".|
000003A0: 89 33 31 00 BC 0B 23 00 8D 34 39 35 3A 43 4F B2 |.31...#..495:CO.|
000003B0: 31 3A 4C 4E B2 32 31 3A 8D 34 39 37 00 E2 0B 24 |1:LN.21:.497...$|
000003C0: 00 99 22 53 45 41 52 43 48 20 46 4F 52 20 52 45 |.."SEARCH FOR RE|
000003D0: 43 4F 52 44 20 42 59 20 4B 45 59 20 46 49 45 4C |CORD BY KEY FIEL|
000003E0: 44 22 00 08 0C 25 00 99 22 2D 2D 2D 2D 2D 2D 2D |D"...%.."-------|
000003F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000400: 2D 2D 2D 2D 2D 2D 2D 22 00 27 0C 26 00 99 22 45 |-------".'.&.."E|
00000410: 4E 54 45 52 20 22 22 12 22 41 24 28 30 2C 31 29 |NTER ""."A$(0,1)|
00000420: 22 92 22 22 3A 22 3B 00 34 0C 27 00 8D 32 35 33 |"."":";.4.'..253|
00000430: 3A 89 34 36 00 3D 0C 28 00 8D 34 39 35 00 51 0C |:.46.=.(..495.Q.|
00000440: 29 00 43 4F B2 31 3A 4C 4E B2 32 31 3A 8D 34 39 |).CO.1:LN.21:.49|
00000450: 37 00 7B 0C 2A 00 99 22 54 48 45 52 45 20 41 52 |7.{.*.."THERE AR|
00000460: 45 20 22 59 22 20 52 45 43 4F 52 44 53 20 49 4E |E "Y" RECORDS IN|
00000470: 20 54 48 49 53 20 46 49 4C 45 22 00 9F 0C 2B 00 | THIS FILE"...+.|
00000480: 99 22 45 4E 54 45 52 20 52 45 43 4F 52 44 20 4E |."ENTER RECORD N|
00000490: 55 4D 42 45 52 20 3A 22 3B 3A 8D 20 32 35 33 00 |UMBER :";:. 253.|
000004A0: D7 0C 2C 00 52 B2 C5 28 49 50 24 29 3A 8B 52 B2 |..,.R..(IP$):.R.|
000004B0: 30 B0 52 B1 59 A7 99 22 91 91 22 3A 8D 35 34 38 |0.R.Y.."..":.548|
000004C0: 3A 99 22 91 22 53 24 3A 99 22 91 91 22 3A 8D 34 |:."."S$:."..":.4|
000004D0: 31 31 3A 20 89 34 32 00 E0 0C 2D 00 89 31 30 31 |11: .42...-..101|
000004E0: 00 EB 0C 2E 00 4C 24 B2 49 50 24 00 F7 0C 2F 00 |.....L$.IP$.../.|
000004F0: 46 B2 C3 28 4C 24 29 00 02 0D 30 00 81 52 B2 31 |F..(L$)...0..R.1|
00000500: A4 59 00 1B 0D 31 00 8B 4C 24 B2 C8 28 41 24 28 |.Y...1..L$..(A$(|
00000510: 52 2C 31 29 2C 46 29 A7 31 30 31 00 21 0D 32 00 |R,1),F).101.!.2.|
00000520: 82 00 2A 0D 33 00 8D 34 31 31 00 4A 0D 34 00 99 |..*.3..411.J.4..|
00000530: 22 12 4E 4F 20 53 55 43 48 20 52 45 43 4F 52 44 |".NO SUCH RECORD|
00000540: 20 45 58 49 53 54 53 21 92 22 00 5A 0D 35 00 81 | EXISTS!.".Z.5..|
00000550: 5A B2 31 A4 31 30 30 30 3A 82 00 62 0D 36 00 89 |Z.1.1000:..b.6..|
00000560: 32 38 00 8F 0D 37 00 41 43 B2 30 3A 20 99 22 57 |28...7.AC.0: ."W|
00000570: 48 49 43 48 20 4C 49 4E 45 20 44 4F 20 59 4F 55 |HICH LINE DO YOU|
00000580: 20 57 49 53 48 20 54 4F 20 41 4D 45 4E 44 22 00 | WISH TO AMEND".|
00000590: AD 0D 38 00 99 22 50 52 45 53 53 20 31 20 54 4F |..8.."PRESS 1 TO|
000005A0: 20 22 58 22 20 3A 22 3B 3A 8D 32 35 33 00 C8 0D | "X" :";:.253...|
000005B0: 39 00 43 B2 C5 28 49 50 24 29 3A 8B 43 B1 58 A7 |9.C..(IP$):.C.X.|
000005C0: 8D 34 31 31 3A 89 35 35 00 D1 0D 3A 00 8D 34 31 |.411:.55...:..41|
000005D0: 31 00 0A 0E 3B 00 99 22 45 58 49 53 54 49 4E 47 |1...;.."EXISTING|
000005E0: 20 44 41 54 41 20 46 4F 52 20 22 22 12 22 41 24 | DATA FOR ""."A$|
000005F0: 28 30 2C 43 29 22 92 22 22 20 3D 20 22 3A 99 20 |(0,C)"."" = ":. |
00000600: 22 12 22 41 24 28 52 2C 43 29 00 2F 0E 3C 00 99 |"."A$(R,C)./.<..|
00000610: 22 4E 45 57 20 44 41 54 41 20 22 3B 3A 99 22 5B |"NEW DATA ";:."[|
00000620: 22 3B 3A 99 C8 28 53 24 2C 41 28 43 29 29 3B 00 |";:..(S$,A(C));.|
00000630: 4C 0E 3D 00 99 22 5D 22 3B 3A 99 C8 28 54 24 2C |L.=.."]";:..(T$,|
00000640: 41 28 43 29 29 3B 3A 99 22 9D 22 3B 00 8C 0E 3E |A(C));:.".";...>|
00000650: 00 8D 32 35 33 3A 8B 41 41 24 28 43 29 B2 22 4E |..253:.AA$(C)."N|
00000660: 22 A7 99 22 91 91 22 3A 8D 35 34 38 3A 8B 41 43 |".."..":.548:.AC|
00000670: B2 31 A7 41 43 B2 30 3A 99 22 91 22 4C 33 24 3A |.1.AC.0:."."L3$:|
00000680: 99 22 91 91 91 91 91 22 3A 89 35 39 00 B6 0E 3F |.".....":.59...?|
00000690: 00 41 24 28 52 2C 43 29 B2 49 50 24 3A 99 3A 8B |.A$(R,C).IP$:.:.|
000006A0: 41 24 28 52 2C 43 29 B2 22 22 A7 41 24 28 52 2C |A$(R,C)."".A$(R,|
000006B0: 43 29 B2 22 2D 22 00 E3 0E 40 00 8B C3 28 41 24 |C)."-"...@...(A$|
000006C0: 28 52 2C 43 29 29 B1 41 28 43 29 A7 41 24 28 52 |(R,C)).A(C).A$(R|
000006D0: 2C 43 29 B2 C8 28 41 24 28 52 2C 43 29 2C 41 28 |,C)..(A$(R,C),A(|
000006E0: 43 29 29 00 EB 0E 41 00 43 B2 32 00 F4 0E 42 00 |C))...A.C.2...B.|
000006F0: 89 31 30 31 00 FD 0E 43 00 8D 32 36 34 00 24 0F |.101...C..264.$.|
00000700: 44 00 99 22 57 48 49 43 48 20 4C 49 4E 45 20 44 |D.."WHICH LINE D|
00000710: 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 41 4D |O YOU WISH TO AM|
00000720: 45 4E 44 22 00 43 0F 45 00 99 22 50 52 45 53 53 |END".C.E.."PRESS|
00000730: 20 31 20 54 4F 20 22 58 22 20 3A 22 3B 3A 8D 32 | 1 TO "X" :";:.2|
00000740: 35 33 3B 00 5E 0F 46 00 43 B2 C5 28 49 50 24 29 |53;.^.F.C..(IP$)|
00000750: 3A 8B 43 B1 58 A7 8D 34 31 31 3A 89 36 38 00 67 |:.C.X..411:.68.g|
00000760: 0F 47 00 8D 34 31 31 00 77 0F 48 00 99 22 12 22 |.G..411.w.H.."."|
00000770: 41 24 28 30 2C 43 29 00 B7 0F 49 00 99 22 45 4E |A$(0,C)...I.."EN|
00000780: 54 45 52 20 43 4F 52 52 45 43 54 20 46 49 45 4C |TER CORRECT FIEL|
00000790: 44 20 48 45 41 44 49 4E 47 20 5B 20 20 20 20 20 |D HEADING [ |
000007A0: 20 20 20 20 5D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 | ].........."|
000007B0: 3B 3A 8D 20 32 35 33 00 C9 0F 4A 00 41 24 28 30 |;:. 253...J.A$(0|
000007C0: 2C 43 29 B2 49 50 24 3A 99 00 F3 0F 4B 00 8B C3 |,C).IP$:....K...|
000007D0: 28 41 24 28 30 2C 43 29 29 B3 39 A7 41 24 28 30 |(A$(0,C)).9.A$(0|
000007E0: 2C 43 29 B2 41 24 28 30 2C 43 29 AA 22 20 22 3A |,C).A$(0,C)." ":|
000007F0: 89 37 35 00 1A 10 4C 00 8B C3 28 41 24 28 30 2C |.75...L...(A$(0,|
00000800: 43 29 29 B1 39 A7 41 24 28 30 2C 43 29 B2 C8 28 |C)).9.A$(0,C)..(|
00000810: 41 24 28 30 2C 43 29 2C 39 29 00 23 10 4D 00 89 |A$(0,C),9).#.M..|
00000820: 31 30 31 00 55 10 4E 00 99 22 45 4E 54 45 52 20 |101.U.N.."ENTER |
00000830: 4E 45 57 20 46 49 4C 45 20 4E 41 4D 45 20 5B 20 |NEW FILE NAME [ |
00000840: 20 20 20 20 20 20 20 20 5D 9D 9D 9D 9D 9D 9D 9D | ].......|
00000850: 9D 9D 9D 22 3B 00 69 10 4F 00 8D 32 35 33 3A 4E |...";.i.O..253:N|
00000860: 24 B2 49 50 24 3A 89 31 32 00 9C 10 50 00 8D 34 |$.IP$:.12...P..4|
00000870: 39 35 3A 43 4F B2 31 3A 4C 4E B2 32 31 3A 8D 34 |95:CO.1:LN.21:.4|
00000880: 39 37 3A 99 22 44 4F 20 59 4F 55 20 57 49 53 48 |97:."DO YOU WISH|
00000890: 20 54 4F 20 41 4D 45 4E 44 3A 2D 22 00 BD 10 51 | TO AMEND:-"...Q|
000008A0: 00 99 22 46 49 45 4C 44 20 12 48 92 45 41 44 49 |.."FIELD .H.EADI|
000008B0: 4E 47 20 4F 52 20 12 44 92 41 54 41 22 00 CF 10 |NG OR .D.ATA"...|
000008C0: 52 00 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 38 32 00 |R..K$:.K$."".82.|
000008D0: E4 10 53 00 8B 4B 24 B2 22 48 22 A7 8D 34 31 31 |..S..K$."H"..411|
000008E0: 3A 89 36 38 00 F9 10 54 00 8B 4B 24 B2 22 44 22 |:.68...T..K$."D"|
000008F0: A7 8D 34 31 31 3A 89 35 35 00 01 11 55 00 89 38 |..411:.55...U..8|
00000900: 32 00 23 11 56 00 99 C7 28 31 34 37 29 3B 3A 52 |2.#.V...(147);:R|
00000910: 53 B2 52 3A 81 52 B2 52 53 A4 59 3A 99 C7 28 31 |S.R:.R.RS.Y:..(1|
00000920: 39 29 3B 00 56 11 57 00 99 22 12 20 52 45 43 4F |9);.V.W..". RECO|
00000930: 52 44 53 20 57 49 4C 4C 20 44 49 53 50 4C 41 59 |RDS WILL DISPLAY|
00000940: 20 49 4E 20 4C 4F 47 49 43 41 4C 20 4F 52 44 45 | IN LOGICAL ORDE|
00000950: 52 20 92 22 3A 99 00 98 11 58 00 43 4F B2 31 3A |R .":....X.CO.1:|
00000960: 4C 4E B2 32 34 3A 8D 34 39 37 3A 99 22 12 43 92 |LN.24:.497:.".C.|
00000970: 4F 4E 54 49 4E 55 45 20 53 43 52 4F 4C 4C 3A 20 |ONTINUE SCROLL: |
00000980: 20 12 53 92 54 4F 50 20 53 43 52 4F 4C 4C 3A 20 | .S.TOP SCROLL: |
00000990: 20 12 45 92 58 49 54 3A 00 C5 11 59 00 43 4F B2 | .E.XIT:...Y.CO.|
000009A0: 31 3A 4C 4E B2 33 3A 8D 34 39 37 3A 99 22 52 45 |1:LN.3:.497:."RE|
000009B0: 43 4F 52 44 20 4E 4F 3A 20 22 3B 52 3A 99 3A 81 |CORD NO: ";R:.:.|
000009C0: 43 B2 31 A4 58 00 F1 11 5A 00 99 22 12 22 41 24 |C.1.X...Z.."."A$|
000009D0: 28 30 2C 43 29 22 92 22 3B 3A 51 B2 C3 28 41 24 |(0,C)".";:Q..(A$|
000009E0: 28 52 2C 43 29 29 3A 8B 51 B1 32 36 A7 51 B2 32 |(R,C)):.Q.26.Q.2|
000009F0: 36 00 13 12 5B 00 99 A3 31 32 29 C8 28 41 24 28 |6...[...12).(A$(|
00000A00: 52 2C 43 29 2C 32 36 29 AA C8 28 53 24 2C 32 36 |R,C),26)..(S$,26|
00000A10: AB 51 29 00 1E 12 5C 00 8B 43 B2 31 A7 99 00 2D |.Q)...\..C.1...-|
00000A20: 12 5D 00 8B 52 4E B3 B1 30 A7 35 30 36 00 34 12 |.]..RN..0.506.4.|
00000A30: 5E 00 82 43 00 4D 12 5F 00 4B 24 B2 22 22 3A A1 |^..C.M._.K$."":.|
00000A40: 4B 24 3A 8B 4B 24 B2 22 53 22 A7 39 38 00 69 12 |K$:.K$."S".98.i.|
00000A50: 60 00 8B 4B 24 B3 B1 22 45 22 A7 81 49 B2 31 A4 |`..K$.."E"..I.1.|
00000A60: 35 30 30 3A 82 49 3A 82 52 00 72 12 61 00 89 31 |500:.I:.R.r.a..1|
00000A70: 30 31 00 94 12 62 00 4B 24 B2 22 22 3A A1 4B 24 |01...b.K$."":.K$|
00000A80: 3A 8B 4B 24 B3 B1 22 43 22 AF 4B 24 B3 B1 22 45 |:.K$.."C".K$.."E|
00000A90: 22 A7 39 38 00 9C 12 63 00 89 39 36 00 A4 12 64 |".98...c..96...d|
00000AA0: 00 52 B2 31 00 AC 12 65 00 41 B2 31 00 B9 12 66 |.R.1...e.A.1...f|
00000AB0: 00 8B 52 B2 30 A7 52 B2 31 00 CC 12 67 00 8B 52 |..R.0.R.1...g..R|
00000AC0: B1 59 A7 52 B2 52 AB 31 3A 52 B2 59 00 D9 12 68 |.Y.R.R.1:R.Y...h|
00000AD0: 00 8B 41 B2 30 A7 41 B2 31 00 E9 12 69 00 8B 41 |..A.0.A.1...i..A|
00000AE0: B1 32 35 A7 41 B2 41 AB 31 00 14 13 6A 00 99 C7 |.25.A.A.1...j...|
00000AF0: 28 31 34 37 29 3A 99 22 12 22 3B 4E 24 A3 31 39 |(147):.".";N$.19|
00000B00: 29 22 52 45 43 4F 52 44 20 4E 4F 22 3B 52 3A 8D |)"RECORD NO";R:.|
00000B10: 20 32 36 34 00 1F 13 6B 00 81 43 B2 31 A4 58 00 | 264...k..C.1.X.|
00000B20: 2B 13 6C 00 47 47 B2 41 28 43 29 00 3C 13 6D 00 |+.l.GG.A(C).<.m.|
00000B30: 8B 47 47 B1 32 34 A7 47 47 B2 32 34 00 4D 13 6E |.GG.24.GG.24.M.n|
00000B40: 00 99 22 12 22 C4 28 43 29 22 92 22 3B 00 7B 13 |..".".(C)".";.{.|
00000B50: 6F 00 99 A3 34 29 22 12 22 C8 28 41 24 28 30 2C |o...4)".".(A$(0,|
00000B60: 43 29 2C 39 29 22 92 22 A3 31 35 29 CA 28 41 24 |C),9)".".15).(A$|
00000B70: 28 52 2C 43 29 2C 41 2C 47 47 29 00 89 13 70 00 |(R,C),A,GG)...p.|
00000B80: 8B 43 B2 31 A7 8D 32 36 34 00 8F 13 71 00 82 00 |.C.1..264...q...|
00000B90: A8 13 72 00 43 4F B2 31 3A 4C 4E B2 32 30 3A 8D |..r.CO.1:LN.20:.|
00000BA0: 34 39 37 3A 99 4C 33 24 00 D4 13 73 00 99 22 20 |497:.L3$...s.." |
00000BB0: 20 20 20 20 20 20 20 20 20 20 20 20 12 2A 2A 4F | .**O|
00000BC0: 50 54 49 4F 4E 53 2A 2A 92 20 20 20 20 20 20 20 |PTIONS**. |
00000BD0: 20 20 20 22 00 0E 14 74 00 99 22 50 52 45 53 53 | "...t.."PRESS|
00000BE0: 20 3A 20 12 4E 92 45 58 54 20 12 4C 92 41 53 54 | : .N.EXT .L.AST|
00000BF0: 20 12 46 92 49 4E 44 20 12 47 92 4F 54 4F 20 12 | .F.IND .G.OTO .|
00000C00: 41 92 4D 45 4E 44 20 12 4D 92 45 4E 55 22 00 46 |A.MEND .M.ENU".F|
00000C10: 14 75 00 99 22 12 43 92 41 4C 43 53 20 12 49 92 |.u..".C.ALCS .I.|
00000C20: 4E 50 55 54 20 12 44 92 45 4C 45 54 45 20 12 50 |NPUT .D.ELETE .P|
00000C30: 92 52 49 4E 54 20 12 53 92 43 52 4F 4C 4C 20 12 |.RINT .S.CROLL .|
00000C40: 3C 92 20 12 3E 22 00 4F 14 76 00 99 4C 33 24 00 |<. .>".O.v..L3$.|
00000C50: 62 14 77 00 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 31 |b.w..K$:.K$."".1|
00000C60: 31 39 00 95 14 78 00 4B 4B 24 B2 22 4E 4C 4D 49 |19...x.KK$."NLMI|
00000C70: 47 46 53 3E 3C 41 50 43 44 22 3A 81 4B B2 31 A4 |GFS><APCD":.K.1.|
00000C80: 31 33 3A 8B 4B 24 B2 CA 28 4B 4B 24 2C 4B 2C 31 |13:.K$..(KK$,K,1|
00000C90: 29 A7 31 32 32 00 A1 14 79 00 82 4B 3A 89 31 31 |).122...y..K:.11|
00000CA0: 39 00 D7 14 7A 00 91 4B 89 31 32 33 2C 31 32 34 |9...z..K.123,124|
00000CB0: 2C 31 32 2C 31 32 35 2C 34 30 2C 33 35 2C 38 36 |,12,125,40,35,86|
00000CC0: 2C 31 32 36 2C 31 32 37 2C 38 30 2C 33 36 34 2C |,126,127,80,364,|
00000CD0: 33 37 33 2C 34 38 34 00 E7 14 7B 00 52 B2 52 AA |373,484...{.R.R.|
00000CE0: 31 3A 89 20 31 30 31 00 F7 14 7C 00 52 B2 52 AB |1:. 101...|.R.R.|
00000CF0: 31 3A 89 20 31 30 31 00 09 15 7D 00 46 B2 31 3A |1:. 101...}.F.1:|
00000D00: 54 56 B2 52 3A 89 31 37 32 00 18 15 7E 00 41 B2 |TV.R:.172...~.A.|
00000D10: 41 AA 31 3A 89 31 30 32 00 27 15 7F 00 41 B2 41 |A.1:.102.'...A.A|
00000D20: AB 31 3A 89 31 30 32 00 5E 15 80 00 99 C7 28 31 |.1:.102.^.....(1|
00000D30: 34 37 29 3A 99 3A 99 22 12 2A 2A 57 41 52 4E 49 |47):.:.".**WARNI|
00000D40: 4E 47 2A 2A 20 54 48 49 53 20 57 49 4C 4C 20 45 |NG** THIS WILL E|
00000D50: 52 41 53 45 20 41 4E 59 20 46 49 4C 45 22 00 83 |RASE ANY FILE"..|
00000D60: 15 81 00 99 22 12 43 55 52 52 45 4E 54 4C 59 20 |....".CURRENTLY |
00000D70: 49 4E 20 4D 45 4D 4F 52 59 92 22 3A 99 3A 99 3A |IN MEMORY.":.:.:|
00000D80: 99 3A 99 00 A7 15 82 00 99 A3 38 29 20 22 A3 A3 |.:........8) "..|
00000D90: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000DA0: A3 A3 A3 A3 A3 A3 22 00 C9 15 83 00 99 A3 38 29 |......".......8)|
00000DB0: 22 50 52 45 53 53 20 12 59 92 45 53 20 54 4F 20 |"PRESS .Y.ES TO |
00000DC0: 43 4F 4E 54 49 4E 55 45 22 00 E7 15 84 00 99 A3 |CONTINUE".......|
00000DD0: 38 29 22 20 20 20 20 20 20 12 4E 92 4F 20 46 4F |8)" .N.O FO|
00000DE0: 52 20 4D 45 4E 55 22 00 0B 16 85 00 99 A3 38 29 |R MENU".......8)|
00000DF0: 20 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 | "..............|
00000E00: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 14 16 86 00 |..........".....|
00000E10: 8D 35 31 33 00 23 16 87 00 8B 4B 24 B2 22 4E 22 |.513.#....K$."N"|
00000E20: A7 31 32 00 34 16 88 00 8B 4B 24 B2 22 59 22 A7 |.12.4....K$."Y".|
00000E30: 20 31 33 37 00 47 16 89 00 99 C7 28 31 34 37 29 | 137.G.....(147)|
00000E40: 3A 9C 3A 8D 34 31 33 00 7E 16 8A 00 99 22 4B 45 |:.:.413.~...."KE|
00000E50: 59 20 44 41 54 45 20 45 47 2E 28 32 38 2E 31 32 |Y DATE EG.(28.12|
00000E60: 2E 38 32 29 5B 20 20 20 20 20 20 20 20 5D 9D 9D |.82)[ ]..|
00000E70: 9D 9D 9D 9D 9D 9D 9D 22 3B 3A 8D 32 35 33 00 8E |.......";:.253..|
00000E80: 16 8B 00 8B 49 50 24 B2 22 22 A7 31 34 31 00 B9 |....IP$."".141..|
00000E90: 16 8C 00 8D 35 34 38 3A 8B 41 43 B2 31 A7 41 43 |....548:.AC.1.AC|
00000EA0: B2 30 3A 99 22 91 22 53 24 22 91 22 3A 99 22 91 |.0:."."S$".":.".|
00000EB0: 91 91 91 22 3A 89 31 33 38 00 D1 16 8D 00 4D 24 |...":.138.....M$|
00000EC0: B2 C8 28 49 50 24 2C 38 29 3A 99 C7 28 31 34 37 |..(IP$,8):..(147|
00000ED0: 29 00 EE 16 8E 00 99 A3 31 32 29 22 12 43 52 45 |).......12)".CRE|
00000EE0: 41 54 45 20 52 45 43 4F 52 44 92 22 3A 99 00 F7 |ATE RECORD.":...|
00000EF0: 16 8F 00 8D 32 36 34 00 2A 17 90 00 99 22 57 48 |....264.*...."WH|
00000F00: 41 54 20 49 53 20 54 48 45 20 46 49 4C 45 20 4E |AT IS THE FILE N|
00000F10: 41 4D 45 20 3F 5B 20 20 20 20 20 20 20 20 5D 9D |AME ?[ ].|
00000F20: 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 00 33 17 91 00 8D |........";.3....|
00000F30: 32 35 33 00 45 17 92 00 4E 24 B2 C8 28 49 50 24 |253.E...N$..(IP$|
00000F40: 2C 38 29 3A 99 00 4F 17 93 00 8D 20 32 36 34 00 |,8):..O.... 264.|
00000F50: 86 17 94 00 99 22 48 4F 57 20 4D 41 4E 59 20 46 |....."HOW MANY F|
00000F60: 49 45 4C 44 53 20 49 4E 20 45 41 43 48 20 52 45 |IELDS IN EACH RE|
00000F70: 43 4F 52 44 20 3F 20 5B 20 20 5D 9D 9D 9D 22 3B |CORD ? [ ]...";|
00000F80: 3A 8D 20 32 35 33 00 9A 17 95 00 58 B2 C5 28 C8 |:. 253.....X..(.|
00000F90: 28 49 50 24 2C 32 29 29 3A 99 00 C0 17 96 00 8B |(IP$,2)):.......|
00000FA0: 58 B3 31 B0 58 B1 31 35 A7 99 22 12 4D 41 58 49 |X.1.X.15..".MAXI|
00000FB0: 4D 55 4D 20 49 53 20 31 35 92 22 3A 89 31 34 38 |MUM IS 15.":.148|
00000FC0: 00 D5 17 97 00 8D 34 31 36 3A 99 C7 28 31 34 37 |......416:..(147|
00000FD0: 29 3A 43 B2 31 00 F9 17 98 00 99 22 12 54 48 49 |):C.1......".THI|
00000FE0: 53 20 46 49 4C 45 20 49 53 20 4E 41 4D 45 44 20 |S FILE IS NAMED |
00000FF0: 22 3B 4E 24 3A 8D 32 36 34 00 2A 18 99 00 99 22 |";N$:.264.*...."|
00001000: 4E 4F 54 45 20 54 48 41 54 20 46 49 45 4C 44 20 |NOTE THAT FIELD |
00001010: 31 20 49 53 20 54 48 45 20 12 20 4B 45 59 20 46 |1 IS THE . KEY F|
00001020: 49 45 4C 44 20 92 A0 22 3A 99 00 33 18 9A 00 8D |IELD ..":..3....|
00001030: 32 36 34 00 6E 18 9B 00 99 22 53 54 41 54 45 20 |264.n...."STATE |
00001040: 12 20 54 49 54 4C 45 20 92 20 4F 46 20 46 49 45 |. TITLE . OF FIE|
00001050: 4C 44 22 43 22 20 20 5B 20 20 20 20 20 20 20 20 |LD"C" [ |
00001060: 20 5D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 00 79 | ]..........";.y|
00001070: 18 9C 00 8D 32 35 33 3A 99 00 8E 18 9D 00 41 24 |....253:......A$|
00001080: 28 30 2C 43 29 B2 C8 28 49 50 24 2C 39 29 00 B9 |(0,C)..(IP$,9)..|
00001090: 18 9E 00 8B C3 28 41 24 28 30 2C 43 29 29 B3 39 |.....(A$(0,C)).9|
000010A0: A7 41 24 28 30 2C 43 29 B2 41 24 28 30 2C 43 29 |.A$(0,C).A$(0,C)|
000010B0: AA 22 20 22 3A 89 31 35 38 00 F1 18 9F 00 99 22 |." ":.158......"|
000010C0: 45 4E 54 45 52 20 12 43 92 48 41 52 41 43 54 45 |ENTER .C.HARACTE|
000010D0: 52 20 4F 52 20 12 4E 92 55 4D 45 52 49 43 20 46 |R OR .N.UMERIC F|
000010E0: 49 45 4C 44 20 5B 20 5D 9D 9D 22 3B 3A 8D 32 35 |IELD [ ]..";:.25|
000010F0: 33 00 07 19 A0 00 41 41 24 28 43 29 B2 C8 28 49 |3.....AA$(C)..(I|
00001100: 50 24 2C 31 29 3A 99 00 1B 19 A1 00 8B 41 41 24 |P$,1):.......AA$|
00001110: 28 43 29 B2 22 4E 22 A7 31 36 34 00 2F 19 A2 00 |(C)."N".164./...|
00001120: 8B 41 41 24 28 43 29 B2 22 43 22 A7 31 36 36 00 |.AA$(C)."C".166.|
00001130: 3D 19 A3 00 8D 34 31 31 3A 89 31 35 39 00 4A 19 |=....411:.159.J.|
00001140: A4 00 41 28 43 29 B2 39 3A 99 00 53 19 A5 00 89 |..A(C).9:..S....|
00001150: 31 37 30 00 80 19 A6 00 99 22 45 4E 54 45 52 20 |170......"ENTER |
00001160: 4E 55 4D 42 45 52 20 4F 46 20 43 48 41 52 41 43 |NUMBER OF CHARAC|
00001170: 54 45 52 53 20 46 4F 52 20 52 45 43 4F 52 44 22 |TERS FOR RECORD"|
00001180: 00 A7 19 A7 00 99 22 4D 41 58 2E 33 36 20 43 48 |......"MAX.36 CH|
00001190: 41 52 41 43 54 45 52 53 20 5B 20 20 5D 9D 9D 9D |ARACTERS [ ]...|
000011A0: 22 3B 3A 8D 32 35 33 00 B9 19 A8 00 41 28 43 29 |";:.253.....A(C)|
000011B0: B2 C5 28 49 50 24 29 3A 99 00 D6 19 A9 00 8B 41 |..(IP$):.......A|
000011C0: 28 43 29 B1 33 36 A7 99 22 91 91 22 3A 8D 34 31 |(C).36.."..":.41|
000011D0: 31 3A 89 31 36 36 00 E3 19 AA 00 8B 43 B2 58 A7 |1:.166......C.X.|
000011E0: 31 37 32 00 F7 19 AB 00 43 B2 43 AA 31 3A 99 22 |172.....C.C.1:."|
000011F0: 93 22 3A 89 31 35 32 00 11 1A AC 00 8B 46 B2 31 |.":.152......F.1|
00001200: A7 52 B2 59 AA 31 3A 59 B2 59 AA 31 3A 89 31 37 |.R.Y.1:Y.Y.1:.17|
00001210: 34 00 1D 1A AD 00 52 B2 31 3A 59 B2 31 00 2C 1A |4.....R.1:Y.1.,.|
00001220: AE 00 8B 52 B1 32 30 30 A7 35 33 34 00 5E 1A AF |...R.200.534.^..|
00001230: 00 99 C7 28 31 34 37 29 3A 41 43 B2 30 3A 20 99 |...(147):AC.0: .|
00001240: A3 31 32 29 22 12 52 45 43 4F 52 44 20 4E 55 4D |.12)".RECORD NUM|
00001250: 42 45 52 22 3B 52 22 92 22 3A 8D 32 36 34 00 8D |BER";R".":.264..|
00001260: 1A B0 00 99 A3 33 29 22 54 4F 20 54 45 52 4D 49 |.....3)"TO TERMI|
00001270: 4E 41 54 45 20 44 41 54 41 20 45 4E 54 52 59 20 |NATE DATA ENTRY |
00001280: 54 59 50 45 20 27 45 4E 44 27 22 3A 99 00 98 1A |TYPE 'END'":....|
00001290: B1 00 8D 32 36 34 3A 99 00 A3 1A B2 00 81 43 B2 |...264:.......C.|
000012A0: 31 A4 58 00 C9 1A B3 00 99 22 4B 45 59 20 22 41 |1.X......"KEY "A|
000012B0: 24 28 30 2C 43 29 3A 99 22 5B 22 3B 3A 99 C8 28 |$(0,C):."[";:..(|
000012C0: 53 24 2C 41 28 43 29 29 3B 00 EB 1A B4 00 99 22 |S$,A(C));......"|
000012D0: 5D 22 3B 3A 99 C8 28 54 24 2C 41 28 43 29 29 3B |]";:..(T$,A(C));|
000012E0: 3A 99 22 9D 22 3B 3A 8D 32 35 33 00 10 1B B5 00 |:.".";:.253.....|
000012F0: 8B 49 50 24 B2 22 45 4E 44 22 AF 20 46 B2 30 20 |.IP$."END". F.0 |
00001300: A7 20 52 B2 31 3A 59 B2 59 AB 31 3A 89 20 31 32 |. R.1:Y.Y.1:. 12|
00001310: 00 33 1B B6 00 8B 49 50 24 B2 22 3D 22 A7 41 24 |.3....IP$."=".A$|
00001320: 28 52 2C 43 29 B2 41 24 28 54 56 2C 43 29 3A 89 |(R,C).A$(TV,C):.|
00001330: 31 38 37 00 5B 1B B7 00 8B 49 50 24 B2 22 45 4E |187.[....IP$."EN|
00001340: 44 22 AF 46 B2 31 A7 46 B2 30 3A 52 B2 52 AB 31 |D".F.1.F.0:R.R.1|
00001350: 3A 59 B2 59 AB 31 3A 89 31 30 31 00 95 1B B8 00 |:Y.Y.1:.101.....|
00001360: 8B 41 41 24 28 43 29 B2 22 4E 22 A7 8D 35 34 38 |.AA$(C)."N"..548|
00001370: 3A 8B 41 43 B2 31 A7 41 43 B2 30 3A 99 22 91 22 |:.AC.1.AC.0:."."|
00001380: 53 24 3A 99 22 91 22 3A 99 22 91 91 91 91 91 22 |S$:.".":."....."|
00001390: 3A 89 31 37 39 00 AF 1B B9 00 41 24 28 52 2C 43 |:.179.....A$(R,C|
000013A0: 29 B2 C8 28 49 50 24 2C 41 28 43 29 29 3A 99 00 |)..(IP$,A(C)):..|
000013B0: CB 1B BA 00 8B 41 24 28 52 2C 43 29 B2 22 22 A7 |.....A$(R,C)."".|
000013C0: 41 24 28 52 2C 43 29 B2 22 2D 22 00 D4 1B BB 00 |A$(R,C)."-".....|
000013D0: 8D 32 36 34 00 DA 1B BC 00 82 00 EC 1B BD 00 8B |.264............|
000013E0: 46 B2 31 A7 46 B2 30 3A 89 31 30 31 00 02 1C BE |F.1.F.0:.101....|
000013F0: 00 52 B2 52 AA 31 3A 59 B2 59 AA 31 3A 89 20 31 |.R.R.1:Y.Y.1:. 1|
00001400: 37 34 00 2F 1C BF 00 99 C7 28 31 34 37 29 3A 99 |74./.....(147):.|
00001410: A3 31 35 29 22 12 2A 2A 53 45 4C 45 43 54 2A 2A |.15)".**SELECT**|
00001420: 22 3A 8D 32 36 34 3A 45 B2 30 3A 52 43 B2 30 00 |":.264:E.0:RC.0.|
00001430: 75 1C C0 00 99 22 44 4F 20 59 4F 55 20 57 41 4E |u...."DO YOU WAN|
00001440: 54 20 54 4F 20 4F 55 54 50 55 54 20 52 45 53 55 |T TO OUTPUT RESU|
00001450: 4C 54 53 20 54 4F 22 3A 99 22 50 52 49 4E 54 45 |LTS TO":."PRINTE|
00001460: 52 3A 20 4B 45 59 20 12 59 92 45 53 20 4F 52 20 |R: KEY .Y.ES OR |
00001470: 12 4E 92 4F 22 00 7E 1C C1 00 8D 32 36 34 00 87 |.N.O".~....264..|
00001480: 1C C2 00 8D 35 31 33 00 9D 1C C3 00 8B 4B 24 B2 |....513......K$.|
00001490: 22 59 22 A7 50 52 B2 35 3A 89 31 39 37 00 B3 1C |"Y".PR.5:.197...|
000014A0: C4 00 8B 4B 24 B2 22 4E 22 A7 50 52 B2 30 3A 89 |...K$."N".PR.0:.|
000014B0: 31 39 37 00 C3 1C C5 00 8B 50 52 B2 30 A7 54 54 |197......PR.0.TT|
000014C0: B2 31 35 00 CE 1C C6 00 81 52 B2 31 A4 59 00 0F |.15......R.1.Y..|
000014D0: 1D C7 00 8D 34 31 31 3A 99 22 91 45 4E 54 45 52 |....411:.".ENTER|
000014E0: 20 53 45 4C 45 43 54 45 44 20 12 46 49 45 4C 44 | SELECTED .FIELD|
000014F0: 92 20 5B 20 20 20 20 20 20 20 20 20 5D 9D 9D 9D |. [ ]...|
00001500: 9D 9D 9D 9D 9D 9D 9D 22 3B 3A 8D 32 35 33 3B 00 |.......";:.253;.|
00001510: 1D 1D C8 00 44 50 24 B2 49 50 24 3A 99 00 3C 1D |....DP$.IP$:..<.|
00001520: C9 00 8B C3 28 44 50 24 29 B3 39 A7 44 50 24 B2 |....(DP$).9.DP$.|
00001530: 44 50 24 AA 22 20 22 3A 89 32 30 31 00 4B 1D CA |DP$." ":.201.K..|
00001540: 00 99 3A 8D 32 36 34 3A 43 B2 31 00 60 1D CB 00 |..:.264:C.1.`...|
00001550: 8B 41 24 28 30 2C 43 29 B2 44 50 24 A7 32 30 36 |.A$(0,C).DP$.206|
00001560: 00 75 1D CC 00 43 B2 43 AA 31 3A 8B 43 B3 58 AA |.u...C.C.1:.C.X.|
00001570: 31 A7 32 30 33 00 97 1D CD 00 45 4D 24 B2 22 12 |1.203.....EM$.".|
00001580: 4E 4F 20 53 55 43 48 20 46 49 45 4C 44 22 3A 8D |NO SUCH FIELD":.|
00001590: 32 36 31 3A 89 31 32 00 AC 1D CE 00 99 22 45 4E |261:.12......"EN|
000015A0: 54 45 52 20 12 22 44 50 24 22 92 22 00 C3 1D CF |TER ."DP$"."....|
000015B0: 00 99 22 5B 22 3B 3A 99 C8 28 53 24 2C 41 28 43 |.."[";:..(S$,A(C|
000015C0: 29 29 3B 00 E0 1D D0 00 99 22 5D 22 3B 3A 99 C8 |));......"]";:..|
000015D0: 28 54 24 2C 41 28 43 29 29 3B 3A 99 22 9D 22 3B |(T$,A(C));:.".";|
000015E0: 00 F9 1D D1 00 8D 32 35 33 3A 43 50 24 B2 49 50 |......253:CP$.IP|
000015F0: 24 3A 99 3A 8D 20 32 36 34 00 06 1E D2 00 46 B2 |$:.:. 264.....F.|
00001600: C3 28 43 50 24 29 00 2B 1E D3 00 99 C7 28 31 34 |.(CP$).+.....(14|
00001610: 37 29 3A 99 3A 8D 20 32 36 34 3A 8B 41 41 24 28 |7):.:. 264:.AA$(|
00001620: 43 29 B3 B1 22 43 22 A7 32 31 34 00 54 1E D4 00 |C).."C".214.T...|
00001630: 99 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 41 20 |."DO YOU WANT A |
00001640: 53 54 41 4E 44 41 52 44 20 4F 52 20 53 4C 49 44 |STANDARD OR SLID|
00001650: 49 4E 47 22 00 93 1E D5 00 99 22 53 54 52 49 4E |ING"......"STRIN|
00001660: 47 20 53 45 41 52 43 48 3A 20 45 4E 54 45 52 20 |G SEARCH: ENTER |
00001670: 12 53 54 92 20 4F 52 20 12 53 53 92 20 5B 20 20 |.ST. OR .SS. [ |
00001680: 5D 9D 9D 9D 22 3B 3A 8D 32 35 33 3A 53 54 24 B2 |]...";:.253:ST$.|
00001690: 49 50 24 00 BC 1E D6 00 99 C7 28 31 34 37 29 3A |IP$.......(147):|
000016A0: 99 3A 8D 20 32 36 34 3A 8B 41 41 24 28 43 29 B2 |.:. 264:.AA$(C).|
000016B0: 22 4E 22 A7 4A B2 31 3A 89 32 31 37 00 D8 1E D7 |"N".J.1:.217....|
000016C0: 00 8B 53 54 24 B2 22 53 53 22 A7 53 53 B2 31 3A |..ST$."SS".SS.1:|
000016D0: 49 B2 31 3A 89 32 32 35 00 F8 1E D8 00 8B 53 54 |I.1:.225......ST|
000016E0: 24 B2 22 53 54 22 A7 53 53 B2 30 3A 49 B2 31 3A |$."ST".SS.0:I.1:|
000016F0: 4A B2 31 3A 89 32 32 35 00 16 1F D9 00 99 22 53 |J.1:.225......"S|
00001700: 48 4F 55 4C 44 20 12 20 22 44 50 24 22 20 92 20 |HOULD . "DP$" . |
00001710: 42 45 3A 22 3A 99 00 34 1F DA 00 99 A3 32 29 22 |BE:":..4.....2)"|
00001720: 12 45 92 51 55 41 4C 20 54 4F 22 A3 31 35 29 43 |.E.QUAL TO".15)C|
00001730: 50 24 3A 99 00 53 1F DB 00 99 A3 32 29 22 12 4C |P$:..S.....2)".L|
00001740: 92 45 53 53 20 54 48 41 4E 22 A3 31 35 29 43 50 |.ESS THAN".15)CP|
00001750: 24 3A 99 00 75 1F DC 00 99 A3 32 29 22 12 47 92 |$:..u.....2)".G.|
00001760: 52 45 41 54 45 52 20 54 48 41 4E 22 A3 31 35 29 |REATER THAN".15)|
00001770: 43 50 24 3A 99 00 88 1F DD 00 A1 4B 24 3A 8B 4B |CP$:.......K$:.K|
00001780: 24 B2 22 22 A7 32 32 31 00 B0 1F DE 00 4B 4B 24 |$."".221.....KK$|
00001790: B2 22 45 4C 47 22 3A 81 49 B2 31 A4 33 3A 8B 4B |."ELG":.I.1.3:.K|
000017A0: 24 B2 CA 28 4B 4B 24 2C 49 2C 31 29 A7 32 32 34 |$..(KK$,I,1).224|
000017B0: 00 BC 1F DF 00 82 49 3A 89 32 32 31 00 CE 1F E0 |......I:.221....|
000017C0: 00 99 C7 28 31 34 37 29 3A 8D 20 32 36 34 00 0D |...(147):. 264..|
000017D0: 20 E1 00 41 52 B2 32 34 3A 8B 50 52 B2 35 A7 8D | ..AR.24:.PR.5..|
000017E0: 35 31 35 3A 99 22 13 22 A3 31 34 29 22 12 2A 2A |515:.".".14)".**|
000017F0: 50 52 49 4E 54 49 4E 47 2A 2A 92 22 41 52 B2 41 |PRINTING**."AR.A|
00001800: 28 31 29 3A 9F 34 2C 34 2C 37 3A 9D 34 00 3A 20 |(1):.4,4,7:.4.: |
00001810: E2 00 99 22 46 49 4C 45 20 4E 41 4D 45 20 3A 20 |..."FILE NAME : |
00001820: 22 4E 24 3A 99 3A 99 22 53 45 4C 45 43 54 49 4F |"N$:.:."SELECTIO|
00001830: 4E 20 3A 20 22 44 50 24 3A 99 00 4D 20 E3 00 91 |N : "DP$:..M ...|
00001840: 49 89 32 34 30 2C 32 32 38 2C 32 33 34 00 73 20 |I.240,228,234.s |
00001850: E4 00 99 22 43 52 49 54 45 52 49 41 20 20 3C 20 |..."CRITERIA < |
00001860: 22 43 50 24 22 20 22 3A 8D 32 36 34 3A 81 52 B2 |"CP$" ":.264:.R.|
00001870: 31 A4 59 00 7C 20 E5 00 8D 35 30 39 00 BC 20 E6 |1.Y.| ...509.. .|
00001880: 00 8B C5 28 41 24 28 52 2C 43 29 29 B3 C5 28 43 |...(A$(R,C))..(C|
00001890: 50 24 29 A7 99 22 52 45 43 4F 52 44 20 4E 4F 20 |P$).."RECORD NO |
000018A0: 22 3B 52 A3 54 54 29 C8 28 41 24 28 52 2C 31 29 |";R.TT).(A$(R,1)|
000018B0: 2C 41 52 29 3A 52 43 B2 52 43 AA 31 00 C2 20 E7 |,AR):RC.RC.1.. .|
000018C0: 00 82 00 D2 20 E8 00 8B 50 52 B2 35 A7 98 34 3A |.... ...PR.5..4:|
000018D0: A0 34 00 DB 20 E9 00 89 32 34 39 00 01 21 EA 00 |.4.. ...249..!..|
000018E0: 99 22 43 52 49 54 45 52 49 41 20 20 3E 20 22 43 |."CRITERIA > "C|
000018F0: 50 24 22 20 22 3A 8D 32 36 34 3A 81 52 B2 31 A4 |P$" ":.264:.R.1.|
00001900: 59 00 0A 21 EB 00 8D 35 30 39 00 4A 21 EC 00 8B |Y..!...509.J!...|
00001910: C5 28 41 24 28 52 2C 43 29 29 B1 C5 28 43 50 24 |.(A$(R,C))..(CP$|
00001920: 29 A7 99 22 52 45 43 4F 52 44 20 4E 4F 20 22 3B |).."RECORD NO ";|
00001930: 52 A3 54 54 29 C8 28 41 24 28 52 2C 31 29 2C 41 |R.TT).(A$(R,1),A|
00001940: 52 29 3A 52 43 B2 52 43 AA 31 00 50 21 ED 00 82 |R):RC.RC.1.P!...|
00001950: 00 60 21 EE 00 8B 50 52 B2 35 A7 98 34 3A A0 34 |.`!...PR.5..4:.4|
00001960: 00 69 21 EF 00 89 32 34 39 00 8F 21 F0 00 99 22 |.i!...249..!..."|
00001970: 43 52 49 54 45 52 49 41 20 20 3D 20 22 43 50 24 |CRITERIA = "CP$|
00001980: 22 20 22 3A 8D 32 36 34 3A 81 52 B2 31 A4 59 00 |" ":.264:.R.1.Y.|
00001990: 9A 21 F1 00 81 52 B2 31 A4 59 00 A3 21 F2 00 8D |.!...R.1.Y..!...|
000019A0: 35 30 39 00 B9 21 F3 00 8B 53 53 B2 31 A7 81 4A |509..!...SS.1..J|
000019B0: B2 31 A4 41 28 43 29 AB 46 00 FA 21 F4 00 8B CA |.1.A(C).F..!....|
000019C0: 28 41 24 28 52 2C 43 29 2C 4A 2C 46 29 B2 43 50 |(A$(R,C),J,F).CP|
000019D0: 24 A7 99 22 52 45 43 4F 52 44 20 4E 4F 20 22 3B |$.."RECORD NO ";|
000019E0: 52 A3 54 54 29 C8 28 41 24 28 52 2C 31 29 2C 41 |R.TT).(A$(R,1),A|
000019F0: 52 29 3A 52 43 B2 52 43 AA 31 00 08 22 F5 00 8B |R):RC.RC.1.."...|
00001A00: 53 53 B2 30 A7 32 34 37 00 0F 22 F6 00 82 4A 00 |SS.0.247.."...J.|
00001A10: 15 22 F7 00 82 00 25 22 F8 00 8B 50 52 B2 35 A7 |."....%"...PR.5.|
00001A20: 98 34 3A A0 34 00 61 22 F9 00 99 3A 99 22 12 52 |.4:.4.a"...:.".R|
00001A30: 45 43 4F 52 44 53 20 43 4F 55 4E 54 45 44 20 3D |ECORDS COUNTED =|
00001A40: 92 20 22 3B 52 43 3A 99 3A 99 A3 31 33 29 22 12 |. ";RC:.:..13)".|
00001A50: 50 52 45 53 53 20 53 50 41 43 45 20 42 41 52 92 |PRESS SPACE BAR.|
00001A60: 22 00 74 22 FA 00 A1 4B 24 3A 8B 4B 24 B2 22 22 |".t"...K$:.K$.""|
00001A70: A7 32 35 30 00 8A 22 FB 00 8B 4B 24 B2 22 20 22 |.250.."...K$." "|
00001A80: A7 52 B2 52 AB 31 3A 89 31 32 00 93 22 FC 00 89 |.R.R.1:.12.."...|
00001A90: 32 35 30 00 A3 22 FD 00 42 24 B2 22 20 22 3A 99 |250.."..B$." ":.|
00001AA0: 22 22 3B 00 B9 22 FE 00 A1 49 50 24 3A 8B 49 50 |"";.."...IP$:.IP|
00001AB0: 24 B2 22 22 A7 89 32 35 34 00 D4 22 FF 00 8B 42 |$.""..254.."...B|
00001AC0: 24 B2 22 20 22 AF C6 28 49 50 24 29 B2 32 30 A7 |$." "..(IP$).20.|
00001AD0: 89 32 35 34 00 01 23 00 01 8B C6 28 49 50 24 29 |.254..#....(IP$)|
00001AE0: B2 32 30 A7 42 24 B2 C8 28 42 24 2C C3 28 42 24 |.20.B$..(B$,.(B$|
00001AF0: 29 AB 31 29 3A 99 22 9D 20 9D 22 3B 3A 89 32 35 |).1):.". .";:.25|
00001B00: 34 00 20 23 01 01 8B 49 50 24 B2 C7 28 31 33 29 |4. #...IP$..(13)|
00001B10: A7 49 50 24 B2 CA 28 42 24 2C 32 29 3A 99 3A 8E |.IP$..(B$,2):.:.|
00001B20: 00 44 23 02 01 41 B2 C6 28 49 50 24 29 3A 8B 41 |.D#..A..(IP$):.A|
00001B30: B3 33 31 B0 41 B2 31 35 37 B0 41 B2 31 34 35 A7 |.31.A.157.A.145.|
00001B40: 89 32 35 34 00 65 23 03 01 8B 41 B2 33 34 B0 41 |.254.e#...A.34.A|
00001B50: B2 34 34 B0 41 B2 35 38 B0 41 B2 35 39 A7 49 50 |.44.A.58.A.59.IP|
00001B60: 24 B2 22 2E 22 00 86 23 04 01 42 24 B2 42 24 AA |$."."..#..B$.B$.|
00001B70: 49 50 24 3A 99 22 12 22 3B 49 50 24 3B 22 92 22 |IP$:.".";IP$;"."|
00001B80: 3B 3A 89 32 35 34 00 90 23 05 01 99 20 45 4D 24 |;:.254..#... EM$|
00001B90: 00 A3 23 06 01 81 20 54 38 B2 31 20 A4 31 30 30 |..#... T8.1 .100|
00001BA0: 30 3A 82 00 A9 23 07 01 8E 00 DA 23 08 01 99 22 |0:...#.....#..."|
00001BB0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 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 22 3A 8E 00 04 24 09 01 99 |.......":...$...|
00001BE0: 20 22 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F | "DO YOU WISH TO|
00001BF0: 20 12 4C 92 4F 41 44 20 4F 52 20 12 53 92 41 56 | .L.OAD OR .S.AV|
00001C00: 45 22 3A 99 00 17 24 0A 01 A1 4B 24 3A 8B 4B 24 |E":...$...K$:.K$|
00001C10: B2 22 22 A7 32 36 36 00 27 24 0B 01 8B 4B 24 B2 |."".266.'$...K$.|
00001C20: 22 4C 22 A7 32 38 34 00 37 24 0C 01 8B 4B 24 B2 |"L".284.7$...K$.|
00001C30: 22 53 22 A7 32 37 30 00 40 24 0D 01 89 32 36 36 |"S".270.@$...266|
00001C40: 00 49 24 0E 01 8D 34 31 31 00 76 24 0F 01 99 22 |.I$...411.v$..."|
00001C50: 41 52 45 20 59 4F 55 20 53 41 56 49 4E 47 20 4F |ARE YOU SAVING O|
00001C60: 4E 20 12 44 92 49 53 43 20 4F 52 20 12 54 92 41 |N .D.ISC OR .T.A|
00001C70: 50 45 3F 22 3A 99 00 89 24 10 01 A1 4B 24 3A 8B |PE?":...$...K$:.|
00001C80: 4B 24 B2 22 22 A7 32 37 32 00 99 24 11 01 8B 4B |K$."".272..$...K|
00001C90: 24 B2 22 54 22 A7 32 37 36 00 A9 24 12 01 8B 4B |$."T".276..$...K|
00001CA0: 24 B2 22 44 22 A7 32 39 38 00 B2 24 13 01 89 32 |$."D".298..$...2|
00001CB0: 37 32 00 BB 24 14 01 8D 34 31 31 00 D3 24 15 01 |72..$...411..$..|
00001CC0: 99 22 12 49 4E 53 45 52 54 20 43 41 53 53 45 54 |.".INSERT CASSET|
00001CD0: 54 45 22 00 F0 24 16 01 99 22 50 52 45 53 53 20 |TE"..$..."PRESS |
00001CE0: 12 43 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 |.C. TO CONTINUE"|
00001CF0: 00 06 25 17 01 A1 4B 24 3A 8B 4B 24 B3 B1 22 43 |..%...K$:.K$.."C|
00001D00: 22 A7 20 32 37 39 00 1D 25 18 01 8D 34 31 31 3A |". 279..%...411:|
00001D10: 99 22 53 41 56 49 4E 47 20 12 22 4E 24 00 27 25 |."SAVING ."N$.'%|
00001D20: 19 01 99 22 91 91 22 00 36 25 1A 01 9F 20 31 2C |..."..".6%... 1,|
00001D30: 31 2C 31 2C 4E 24 00 3F 25 1B 01 89 33 30 36 00 |1,1,N$.?%...306.|
00001D40: 45 25 1C 01 9C 00 6D 25 1D 01 8D 34 31 33 3A 8D |E%....m%...413:.|
00001D50: 34 31 31 3A 99 22 41 52 45 20 59 4F 55 20 4C 4F |411:."ARE YOU LO|
00001D60: 41 44 49 4E 47 20 46 52 4F 4D 3A 2D 22 00 85 25 |ADING FROM:-"..%|
00001D70: 1E 01 99 22 12 44 92 49 53 4B 20 4F 52 20 12 54 |...".D.ISK OR .T|
00001D80: 92 41 50 45 22 00 98 25 1F 01 A1 4B 24 3A 8B 4B |.APE"..%...K$:.K|
00001D90: 24 B2 22 22 A7 32 38 37 00 A8 25 20 01 8B 4B 24 |$."".287..% ..K$|
00001DA0: B2 22 54 22 A7 32 39 31 00 B8 25 21 01 8B 4B 24 |."T".291..%!..K$|
00001DB0: B2 22 44 22 A7 32 39 36 00 C1 25 22 01 89 32 38 |."D".296..%"..28|
00001DC0: 37 00 D4 25 23 01 54 B2 31 3A 55 B2 30 3A 4E 4E |7..%#.T.1:U.0:NN|
00001DD0: 24 B2 4E 24 00 F5 25 24 01 8D 34 31 31 3A 99 22 |$.N$..%$..411:."|
00001DE0: 49 53 20 43 41 53 53 45 54 54 45 20 49 4E 20 50 |IS CASSETTE IN P|
00001DF0: 4C 41 43 45 22 00 14 26 25 01 99 22 50 52 45 53 |LACE"..&%.."PRES|
00001E00: 53 20 12 59 92 45 53 20 54 4F 20 43 4F 4E 54 49 |S .Y.ES TO CONTI|
00001E10: 4E 55 45 22 00 29 26 26 01 A1 4B 24 3A 8B 4B 24 |NUE".)&&..K$:.K$|
00001E20: B3 B1 22 59 22 A7 32 39 34 00 32 26 27 01 89 33 |.."Y".294.2&'..3|
00001E30: 31 36 00 67 26 28 01 54 B2 38 3A 55 B2 34 3A 4E |16.g&(.T.8:U.4:N|
00001E40: 31 24 B2 22 30 3A 22 3A 4E 32 24 B2 22 2C 53 45 |1$."0:":N2$.",SE|
00001E50: 51 2C 52 45 41 44 22 3A 4E 4E 24 B2 4E 31 24 AA |Q,READ":NN$.N1$.|
00001E60: 4E 4E 24 AA 4E 32 24 00 70 26 29 01 89 33 31 36 |NN$.N2$.p&)..316|
00001E70: 00 79 26 2A 01 8D 34 31 31 00 A8 26 2B 01 99 22 |.y&*..411..&+.."|
00001E80: 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 53 |DO YOU WANT TO S|
00001E90: 41 56 45 20 4F 4E 20 44 52 49 56 45 20 12 30 92 |AVE ON DRIVE .0.|
00001EA0: 20 4F 52 20 12 31 92 22 00 BB 26 2C 01 A1 4B 24 | OR .1."..&,..K$|
00001EB0: 3A 8B 4B 24 B2 22 22 A7 33 30 30 00 D5 26 2D 01 |:.K$."".300..&-.|
00001EC0: 8B 4B 24 B2 22 30 22 A7 44 52 24 B2 22 30 3A 22 |.K$."0".DR$."0:"|
00001ED0: 3A 89 33 30 34 00 EF 26 2E 01 8B 4B 24 B2 22 31 |:.304..&...K$."1|
00001EE0: 22 A7 44 52 24 B2 22 31 3A 22 3A 89 33 30 34 00 |".DR$."1:":.304.|
00001EF0: F8 26 2F 01 89 33 30 30 00 24 27 30 01 4E 31 24 |.&/..300.$'0.N1$|
00001F00: B2 44 52 24 3A 4E 32 24 B2 22 2C 53 45 51 2C 57 |.DR$:N2$.",SEQ,W|
00001F10: 52 49 54 45 22 3A 4E 4E 24 B2 4E 31 24 AA 4E 24 |RITE":NN$.N1$.N$|
00001F20: AA 4E 32 24 00 37 27 31 01 9F 31 2C 38 2C 34 2C |.N2$.7'1..1,8,4,|
00001F30: 22 40 22 AA 4E 4E 24 00 48 27 32 01 98 31 2C 59 |"@".NN$.H'2..1,Y|
00001F40: 3A 99 C7 28 31 33 29 3B 00 59 27 33 01 98 31 2C |:..(13);.Y'3..1,|
00001F50: 58 3A 99 C7 28 31 33 29 3B 00 76 27 34 01 81 43 |X:..(13);.v'4..C|
00001F60: B2 31 A4 58 3A 98 31 2C 41 28 43 29 3A 99 C7 28 |.1.X:.1,A(C):..(|
00001F70: 31 33 29 3B 3A 82 00 95 27 35 01 81 43 B2 31 A4 |13);:...'5..C.1.|
00001F80: 58 3A 98 31 2C 41 41 24 28 43 29 3A 99 C7 28 31 |X:.1,AA$(C):..(1|
00001F90: 33 29 3B 3A 82 00 A0 27 36 01 81 52 B2 31 A4 59 |3);:...'6..R.1.Y|
00001FA0: 00 C0 27 37 01 81 43 B2 31 A4 58 3A 98 31 2C 41 |..'7..C.1.X:.1,A|
00001FB0: 24 28 52 2C 43 29 3A 99 C7 28 31 33 29 3B 3A 82 |$(R,C):..(13);:.|
00001FC0: 00 C6 27 38 01 82 00 E6 27 39 01 81 43 B2 31 A4 |..'8....'9..C.1.|
00001FD0: 58 3A 98 31 2C 41 24 28 30 2C 43 29 3A 99 C7 28 |X:.1,A$(0,C):..(|
00001FE0: 31 33 29 3B 3A 82 00 ED 27 3A 01 A0 31 00 F5 27 |13);:...':..1..'|
00001FF0: 3B 01 89 31 32 00 2E 28 3C 01 8D 34 31 31 3A 99 |;..12..(<..411:.|
00002000: 22 45 4E 54 45 52 20 46 49 4C 45 20 4E 41 4D 45 |"ENTER FILE NAME|
00002010: 20 5B 20 20 20 20 20 20 20 20 20 5D 9D 9D 9D 9D | [ ]....|
00002020: 9D 9D 9D 9D 9D 9D 22 3B 3A 8D 20 32 35 33 00 47 |......";:. 253.G|
00002030: 28 3D 01 4E 24 B2 C8 28 49 50 24 2C 39 29 3A 4E |(=.N$..(IP$,9):N|
00002040: 4E 24 B2 4E 24 3A 99 00 57 28 3E 01 8B 54 B2 31 |N$.N$:..W(>..T.1|
00002050: A7 99 22 91 91 91 22 00 66 28 3F 01 9F 31 2C 54 |.."...".f(?..1,T|
00002060: 2C 55 2C 4E 4E 24 00 79 28 40 01 84 31 2C 59 3A |,U,NN$.y(@..1,Y:|
00002070: 84 31 2C 58 3A 8D 34 31 36 00 8E 28 41 01 81 43 |.1,X:.416..(A..C|
00002080: B2 31 A4 58 3A 84 31 2C 41 28 43 29 3A 82 00 A5 |.1.X:.1,A(C):...|
00002090: 28 42 01 81 43 B2 31 A4 58 3A 84 31 2C 41 41 24 |(B..C.1.X:.1,AA$|
000020A0: 28 43 29 3A 82 00 B0 28 43 01 81 52 B2 31 A4 59 |(C):...(C..R.1.Y|
000020B0: 00 BB 28 44 01 81 43 B2 31 A4 58 00 CA 28 45 01 |..(D..C.1.X..(E.|
000020C0: 84 31 2C 41 24 28 52 2C 43 29 00 D2 28 46 01 82 |.1,A$(R,C)..(F..|
000020D0: 3A 82 00 DD 28 47 01 81 43 B2 31 A4 58 00 EC 28 |:...(G..C.1.X..(|
000020E0: 48 01 84 31 2C 41 24 28 30 2C 43 29 00 F2 28 49 |H..1,A$(0,C)..(I|
000020F0: 01 82 00 F9 28 4A 01 A0 31 00 02 29 4B 01 8D 34 |....(J..1..)K..4|
00002100: 31 31 00 3C 29 4C 01 8B 59 B2 30 A7 4E 24 B2 22 |11.<)L..Y.0.N$."|
00002110: 22 3A 99 22 12 46 49 4C 45 20 4E 4F 54 20 46 4F |":.".FILE NOT FO|
00002120: 55 4E 44 20 4F 4E 20 44 49 53 4B 22 3A 81 49 B2 |UND ON DISK":.I.|
00002130: 31 A4 31 30 30 30 3A 82 3A 89 31 32 00 73 29 4D |1.1000:.:.12.s)M|
00002140: 01 99 22 4B 45 59 20 44 41 54 45 20 45 47 2E 28 |.."KEY DATE EG.(|
00002150: 32 38 2E 31 32 2E 38 33 29 5B 20 20 20 20 20 20 |28.12.83)[ |
00002160: 20 20 5D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 3A 8D | ].........";:.|
00002170: 32 35 33 00 83 29 4E 01 8B 49 50 24 B2 22 22 A7 |253..)N..IP$."".|
00002180: 33 33 36 00 B4 29 4F 01 52 B2 31 3A 99 3A 8D 35 |336..)O.R.1:.:.5|
00002190: 34 38 3A 8B 41 43 B2 31 A7 41 43 B2 30 3A 99 22 |48:.AC.1.AC.0:."|
000021A0: 91 22 53 24 22 91 22 3A 99 22 91 91 91 91 22 3A |."S$".":."....":|
000021B0: 89 33 33 33 00 C6 29 50 01 4D 24 B2 C8 28 49 50 |.333..)P.M$..(IP|
000021C0: 24 2C 38 29 3A 99 00 CE 29 51 01 89 31 32 00 F2 |$,8):...)Q..12..|
000021D0: 29 52 01 99 22 45 58 49 54 20 27 44 46 4D 27 20 |)R.."EXIT 'DFM' |
000021E0: 41 52 45 20 59 4F 55 20 53 55 52 45 20 28 59 2F |ARE YOU SURE (Y/|
000021F0: 4E 29 00 05 2A 53 01 A1 4B 24 3A 8B 4B 24 B2 22 |N)..*S..K$:.K$."|
00002200: 22 A7 33 33 39 00 1C 2A 54 01 8B 4B 24 B2 22 59 |".339..*T..K$."Y|
00002210: 22 A7 4E 24 B2 22 22 3A 8D 33 34 34 00 2B 2A 55 |".N$."":.344.+*U|
00002220: 01 8B 4B 24 B2 22 4E 22 A7 31 32 00 3E 2A 56 01 |..K$."N".12.>*V.|
00002230: 80 20 20 20 20 20 20 20 20 20 20 20 20 20 00 4E |. .N|
00002240: 2A 57 01 89 33 34 30 20 20 20 20 20 20 20 00 7B |*W..340 .{|
00002250: 2A 58 01 99 3A 20 20 99 22 93 20 20 20 20 20 20 |*X..: .". |
00002260: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00002270: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 A9 2A 59 01 |**********"..*Y.|
00002280: 99 22 20 20 20 20 20 20 20 2A 2A 2A 20 12 44 41 |." *** .DA|
00002290: 54 41 92 20 12 46 49 4C 45 92 20 12 4D 41 4E 41 |TA. .FILE. .MANA|
000022A0: 47 45 52 92 20 2A 2A 2A 22 00 D3 2A 5A 01 99 22 |GER. ***"..*Z.."|
000022B0: 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A | *********|
000022C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000022D0: 22 3A 99 00 E2 2A 5B 01 8B 4E 24 B3 B1 22 22 A7 |":...*[..N$.."".|
000022E0: 20 8E 00 0B 2B 5C 01 99 22 20 20 20 20 20 20 20 | ...+\.." |
000022F0: 20 20 20 20 20 20 20 20 20 20 20 20 42 59 20 20 | BY |
00002300: 20 20 20 20 20 20 20 20 22 3A 99 00 41 2B 5D 01 | ":..A+].|
00002310: 99 22 20 20 20 20 20 20 20 20 12 20 44 20 92 20 |." . D . |
00002320: 12 20 49 20 92 20 12 20 41 20 92 20 12 20 4C 20 |. I . . A . . L |
00002330: 92 20 12 20 4F 20 92 20 12 20 47 20 92 20 22 3A |. . O . . G . ":|
00002340: 99 00 68 2B 5E 01 99 22 20 20 20 20 20 20 20 20 |..h+^.." |
00002350: 20 20 20 20 53 20 4F 20 46 20 54 20 57 20 41 20 | S O F T W A |
00002360: 52 20 45 22 3A 99 3A 8E 00 74 2B 5F 01 99 C7 28 |R E":.:..t+_...(|
00002370: 31 34 37 29 00 96 2B 60 01 99 A3 31 34 29 22 12 |147)..+`...14)".|
00002380: 2A 2A 55 54 49 4C 49 54 49 45 53 2A 2A 92 22 3A |**UTILITIES**.":|
00002390: 8D 32 36 34 3A 99 00 CF 2B 61 01 99 22 20 20 12 |.264:...+a.." .|
000023A0: 4D 92 45 4D 4F 52 59 20 41 56 41 49 4C 41 42 49 |M.EMORY AVAILABI|
000023B0: 4C 49 54 59 22 3A 99 3A 99 22 20 20 12 44 92 49 |LITY":.:." .D.I|
000023C0: 53 4B 20 44 49 52 45 43 54 4F 52 59 22 3A 99 00 |SK DIRECTORY":..|
000023D0: E9 2B 62 01 99 22 20 20 4D 45 4E 55 20 12 53 50 |.+b.." MENU .SP|
000023E0: 41 43 45 20 42 41 52 92 22 00 FC 2B 63 01 A1 56 |ACE BAR."..+c..V|
000023F0: 24 3A 8B 56 24 B2 22 22 A7 33 35 35 00 0C 2C 64 |$:.V$."".355..,d|
00002400: 01 8B 56 24 B2 22 4D 22 A7 33 36 32 00 1C 2C 65 |..V$."M".362..,e|
00002410: 01 8B 56 24 B2 22 44 22 A7 35 33 39 00 2B 2C 66 |..V$."D".539.+,f|
00002420: 01 8B 56 24 B2 22 20 22 A7 31 32 00 4E 2C 67 01 |..V$." ".12.N,g.|
00002430: 99 3A 99 22 12 50 52 45 53 53 20 53 50 41 43 45 |.:.".PRESS SPACE|
00002440: 20 42 41 52 20 46 4F 52 20 4D 45 4E 55 22 00 63 | BAR FOR MENU".c|
00002450: 2C 68 01 A1 4B 24 3A 8B 4B 24 B3 B1 22 20 22 A7 |,h..K$:.K$.." ".|
00002460: 33 35 35 00 6B 2C 69 01 89 31 32 00 8C 2C 6A 01 |355.k,i..12..,j.|
00002470: 99 22 13 11 11 11 11 22 A3 32 34 29 22 3D 20 22 |.".....".24)"= "|
00002480: B8 28 30 29 22 42 59 54 45 53 20 22 00 9C 2C 6B |.(0)"BYTES "..,k|
00002490: 01 99 C7 28 31 39 29 3A 89 33 35 32 00 A5 2C 6C |...(19):.352..,l|
000024A0: 01 8D 34 39 35 00 AE 2C 6D 01 8D 35 31 35 00 BC |..495..,m..515..|
000024B0: 2C 6E 01 9F 34 2C 34 2C 37 3A 9D 34 00 E7 2C 6F |,n..4,4,7:.4..,o|
000024C0: 01 99 C7 28 31 34 37 29 3A 99 22 12 22 3B 4E 24 |...(147):.".";N$|
000024D0: 20 A3 31 39 29 22 52 45 43 4F 52 44 20 4E 4F 22 | .19)"RECORD NO"|
000024E0: 3B 52 3A 99 4C 33 24 00 20 2D 70 01 43 B2 31 3A |;R:.L3$. -p.C.1:|
000024F0: 99 22 12 22 C4 28 43 29 22 92 22 3B 3A 99 A3 32 |.".".(C)".";:..2|
00002500: 29 22 12 22 20 41 24 28 30 2C 43 29 22 92 22 A3 |)"." A$(0,C)".".|
00002510: 33 29 3B C8 28 41 24 28 52 2C 43 29 2C 32 34 29 |3);.(A$(R,C),24)|
00002520: 00 29 2D 71 01 99 4C 33 24 00 37 2D 72 01 81 20 |.)-q..L3$.7-r.. |
00002530: 43 B2 32 20 A4 20 58 00 5E 2D 73 01 99 C4 28 43 |C.2 . X.^-s...(C|
00002540: 29 3B 3A 99 A3 32 29 41 24 28 30 2C 43 29 A3 33 |);:..2)A$(0,C).3|
00002550: 29 C8 28 41 24 28 52 2C 43 29 2C 32 34 29 00 79 |).(A$(R,C),24).y|
00002560: 2D 74 01 82 3A 99 3A 8D 32 36 34 3A 99 3A 20 98 |-t..:.:.264:.: .|
00002570: 34 3A A0 34 3A 89 31 30 31 00 B7 2D 75 01 8D 34 |4:.4:.101..-u..4|
00002580: 39 35 3A 43 4F B2 31 3A 4C 4E B2 32 31 3A 8D 34 |95:CO.1:LN.21:.4|
00002590: 39 37 3A 99 22 44 4F 20 59 4F 55 20 57 49 53 48 |97:."DO YOU WISH|
000025A0: 20 54 4F 20 50 45 52 46 4F 52 4D 20 49 4E 44 49 | TO PERFORM INDI|
000025B0: 56 49 44 55 41 4C 22 00 DA 2D 76 01 99 22 12 43 |VIDUAL"..-v..".C|
000025C0: 92 41 4C 43 53 20 4F 52 20 12 54 92 4F 54 41 4C |.ALCS OR .T.OTAL|
000025D0: 49 53 45 20 46 49 45 4C 44 22 00 ED 2D 77 01 A1 |ISE FIELD"..-w..|
000025E0: 4B 24 3A 8B 4B 24 B2 22 22 A7 33 37 35 00 03 2E |K$:.K$."".375...|
000025F0: 78 01 8B 4B 24 B2 22 54 22 A7 8D 34 31 31 3A 89 |x..K$."T"..411:.|
00002600: 33 39 37 00 19 2E 79 01 8B 4B 24 B2 22 43 22 A7 |397...y..K$."C".|
00002610: 8D 34 31 31 3A 89 33 37 39 00 22 2E 7A 01 89 33 |.411:.379.".z..3|
00002620: 37 35 00 41 2E 7B 01 99 22 57 48 49 43 48 20 46 |75.A.{.."WHICH F|
00002630: 49 45 4C 44 20 44 4F 20 59 4F 55 20 57 49 53 48 |IELD DO YOU WISH|
00002640: 22 00 6B 2E 7C 01 99 22 54 4F 20 43 41 4C 43 55 |".k.|.."TO CALCU|
00002650: 4C 41 54 45 2C 20 4B 45 59 20 31 20 54 4F 20 22 |LATE, KEY 1 TO "|
00002660: 58 22 20 3A 22 3B 3A 8D 32 35 33 00 87 2E 7D 01 |X" :";:.253...}.|
00002670: 43 B2 C5 28 49 50 24 29 3A 8B 43 B1 58 A7 8D 34 |C..(IP$):.C.X..4|
00002680: 31 31 3A 89 33 37 39 00 90 2E 7E 01 8D 34 31 31 |11:.379...~..411|
00002690: 00 B5 2E 7F 01 8B 41 41 24 28 43 29 B2 22 43 22 |......AA$(C)."C"|
000026A0: A7 99 22 12 43 48 41 52 41 43 54 45 52 92 20 46 |..".CHARACTER. F|
000026B0: 49 45 4C 44 22 00 C9 2E 80 01 8B 41 41 24 28 43 |IELD"......AA$(C|
000026C0: 29 B2 22 4E 22 A7 33 38 36 00 DE 2E 81 01 81 49 |)."N".386......I|
000026D0: B2 31 A4 31 30 30 30 3A 82 3A 89 31 31 34 00 0C |.1.1000:.:.114..|
000026E0: 2F 82 01 99 22 4B 45 59 20 4C 45 54 54 45 52 20 |/..."KEY LETTER |
000026F0: 46 4F 4C 4C 4F 57 45 44 20 42 59 20 41 4D 4F 55 |FOLLOWED BY AMOU|
00002700: 4E 54 20 45 47 2E 28 41 32 35 29 22 00 42 2F 83 |NT EG.(A25)".B/.|
00002710: 01 99 22 12 41 92 44 44 20 12 53 92 55 42 54 52 |..".A.DD .S.UBTR|
00002720: 41 43 54 20 12 4D 92 55 4C 54 49 50 4C 59 20 12 |ACT .M.ULTIPLY .|
00002730: 44 92 49 56 49 44 45 20 12 5A 92 45 52 4F 49 53 |D.IVIDE .Z.EROIS|
00002740: 45 22 00 62 2F 84 01 99 22 12 52 92 45 50 4C 41 |E".b/...".R.EPLA|
00002750: 43 45 20 3A 22 3B 3A 8D 32 35 33 3A 4C 24 B2 49 |CE :";:.253:L$.I|
00002760: 50 24 00 8B 2F 85 01 8B C8 28 4C 24 2C 31 29 B2 |P$../....(L$,1).|
00002770: 22 53 22 A7 50 B2 C5 28 41 24 28 52 2C 43 29 29 |"S".P..(A$(R,C))|
00002780: AB C5 28 CA 28 4C 24 2C 32 29 29 00 B4 2F 86 01 |..(.(L$,2))../..|
00002790: 8B C8 28 4C 24 2C 31 29 B2 22 41 22 A7 50 B2 C5 |..(L$,1)."A".P..|
000027A0: 28 41 24 28 52 2C 43 29 29 AA C5 28 CA 28 4C 24 |(A$(R,C))..(.(L$|
000027B0: 2C 32 29 29 00 DD 2F 87 01 8B C8 28 4C 24 2C 31 |,2))../....(L$,1|
000027C0: 29 B2 22 4D 22 A7 50 B2 C5 28 41 24 28 52 2C 43 |)."M".P..(A$(R,C|
000027D0: 29 29 AC C5 28 CA 28 4C 24 2C 32 29 29 00 06 30 |))..(.(L$,2))..0|
000027E0: 88 01 8B C8 28 4C 24 2C 31 29 B2 22 44 22 A7 50 |....(L$,1)."D".P|
000027F0: B2 C5 28 41 24 28 52 2C 43 29 29 AD C5 28 CA 28 |..(A$(R,C))..(.(|
00002800: 4C 24 2C 32 29 29 00 1B 30 89 01 8B C8 28 4C 24 |L$,2))..0....(L$|
00002810: 2C 31 29 B2 22 5A 22 A7 50 B2 30 00 39 30 8A 01 |,1)."Z".P.0.90..|
00002820: 8B C8 28 4C 24 2C 31 29 B2 22 52 22 A7 50 B2 C5 |..(L$,1)."R".P..|
00002830: 28 CA 28 4C 24 2C 32 29 29 00 4F 30 8B 01 41 24 |(.(L$,2)).O0..A$|
00002840: 28 52 2C 43 29 B2 CA 28 C4 28 50 29 2C 32 29 00 |(R,C)..(.(P),2).|
00002850: 58 30 8C 01 89 31 30 31 00 77 30 8D 01 99 22 57 |X0...101.w0..."W|
00002860: 48 49 43 48 20 46 49 45 4C 44 20 44 4F 20 59 4F |HICH FIELD DO YO|
00002870: 55 20 57 49 53 48 22 00 9F 30 8E 01 99 22 54 4F |U WISH"..0..."TO|
00002880: 20 54 4F 54 41 4C 49 53 45 20 4B 45 59 20 31 20 | TOTALISE KEY 1 |
00002890: 54 4F 20 22 58 22 20 3A 22 3B 3A 8D 32 35 33 00 |TO "X" :";:.253.|
000028A0: BB 30 8F 01 43 B2 C5 28 49 50 24 29 3A 8B 43 B1 |.0..C..(IP$):.C.|
000028B0: 58 A7 8D 34 31 31 3A 89 33 39 37 00 C4 30 90 01 |X..411:.397..0..|
000028C0: 8D 34 31 31 00 E9 30 91 01 8B 41 41 24 28 43 29 |.411..0...AA$(C)|
000028D0: B2 22 43 22 A7 99 22 12 43 48 41 52 41 43 54 45 |."C"..".CHARACTE|
000028E0: 52 92 20 46 49 45 4C 44 22 00 FD 30 92 01 8B 41 |R. FIELD"..0...A|
000028F0: 41 24 28 43 29 B2 22 4E 22 A7 34 30 34 00 12 31 |A$(C)."N".404..1|
00002900: 93 01 81 49 B2 31 A4 31 30 30 30 3A 82 3A 89 31 |...I.1.1000:.:.1|
00002910: 31 34 00 1A 31 94 01 54 B2 30 00 37 31 95 01 81 |14..1..T.0.71...|
00002920: 20 52 B2 31 A4 59 3A 54 B2 54 AA C5 28 41 24 28 | R.1.Y:T.T..(A$(|
00002930: 52 2C 43 29 29 3A 82 00 7D 31 96 01 99 22 54 4F |R,C)):..}1..."TO|
00002940: 54 41 4C 20 46 49 4C 45 20 56 41 4C 55 45 20 4F |TAL FILE VALUE O|
00002950: 46 20 46 49 45 4C 44 20 3A 22 3A 99 22 12 22 41 |F FIELD :":."."A|
00002960: 24 28 30 2C 43 29 22 92 22 22 20 3D 20 20 20 20 |$(0,C)"."" = |
00002970: 20 20 20 20 20 20 20 20 20 20 22 3B 54 00 A0 31 | ";T..1|
00002980: 97 01 99 22 50 52 45 53 53 20 12 53 50 41 43 45 |..."PRESS .SPACE|
00002990: 20 42 41 52 92 20 54 4F 20 52 45 54 55 52 4E 22 | BAR. TO RETURN"|
000029A0: 00 B3 31 98 01 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 |..1...K$:.K$."".|
000029B0: 34 30 38 00 C3 31 99 01 8B 4B 24 B2 22 20 22 A7 |408..1...K$." ".|
000029C0: 31 30 31 00 CC 31 9A 01 89 34 30 38 00 D2 31 9B |101..1...408..1.|
000029D0: 01 3A 00 EE 31 9C 01 99 22 91 91 22 3B 3A 99 53 |.:..1..."..";:.S|
000029E0: 24 3A 99 53 24 3A 99 22 91 91 91 22 3A 8E 00 1F |$:.S$:."...":...|
000029F0: 32 9D 01 53 24 B2 22 20 20 20 20 20 20 20 20 20 |2..S$." |
00002A00: 20 20 20 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 22 00 | ".|
00002A20: 51 32 9E 01 4C 33 24 B2 22 2D 2D 2D 2D 2D 2D 2D |Q2..L3$."-------|
00002A30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002A40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002A50: 22 00 85 32 9F 01 54 24 B2 22 9D 9D 9D 9D 9D 9D |"..2..T$."......|
00002A60: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00002A70: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00002A80: 9D 9D 22 3A 8E 00 BA 32 A0 01 86 20 41 24 28 32 |..":...2... A$(2|
00002A90: 30 30 2C 58 29 2C 41 41 24 28 58 29 2C 41 28 58 |00,X),AA$(X),A(X|
00002AA0: 29 2C 43 24 28 58 29 2C 42 24 28 58 29 3A 41 24 |),C$(X),B$(X):A$|
00002AB0: 28 52 2C 43 29 B2 22 22 3A 8E 00 DC 32 A1 01 99 |(R,C)."":...2...|
00002AC0: 22 57 48 49 43 48 20 46 49 45 4C 44 20 44 4F 20 |"WHICH FIELD DO |
00002AD0: 59 4F 55 20 57 49 53 48 20 54 4F 22 00 02 33 A2 |YOU WISH TO"..3.|
00002AE0: 01 99 22 53 4F 52 54 20 42 59 2E 2E 20 4B 45 59 |.."SORT BY.. KEY|
00002AF0: 20 31 20 54 4F 20 22 58 22 20 3A 22 3B 3A 8D 32 | 1 TO "X" :";:.2|
00002B00: 35 33 00 0F 33 A3 01 4D B2 C5 28 49 50 24 29 00 |53..3..M..(IP$).|
00002B10: 18 33 A4 01 8D 34 31 31 00 35 33 A5 01 99 22 12 |.3...411.53...".|
00002B20: 53 4F 52 54 49 4E 47 92 20 50 4C 45 41 53 45 20 |SORTING. PLEASE |
00002B30: 57 41 49 54 22 00 42 33 A6 01 81 52 B2 31 A4 59 |WAIT".B3...R.1.Y|
00002B40: AB 31 00 51 33 A7 01 81 49 B2 28 52 AA 31 29 A4 |.1.Q3...I.(R.1).|
00002B50: 59 00 76 33 A8 01 8B 41 41 24 28 4D 29 B2 22 43 |Y.v3...AA$(M)."C|
00002B60: 22 AF 41 24 28 49 2C 4D 29 B1 B2 41 24 28 52 2C |".A$(I,M)..A$(R,|
00002B70: 4D 29 A7 34 33 31 00 A1 33 A9 01 8B 41 41 24 28 |M).431..3...AA$(|
00002B80: 4D 29 B2 22 4E 22 AF C5 28 41 24 28 49 2C 4D 29 |M)."N"..(A$(I,M)|
00002B90: 29 B1 B2 C5 28 41 24 28 52 2C 4D 29 29 A7 34 33 |)...(A$(R,M)).43|
00002BA0: 31 00 AC 33 AA 01 81 43 B2 31 A4 58 00 BE 33 AB |1..3...C.1.X..3.|
00002BB0: 01 42 24 28 43 29 B2 41 24 28 52 2C 43 29 00 D2 |.B$(C).A$(R,C)..|
00002BC0: 33 AC 01 41 24 28 52 2C 43 29 B2 41 24 28 49 2C |3..A$(R,C).A$(I,|
00002BD0: 43 29 00 E4 33 AD 01 41 24 28 49 2C 43 29 B2 42 |C)..3..A$(I,C).B|
00002BE0: 24 28 43 29 00 EB 33 AE 01 82 43 00 F3 33 AF 01 |$(C)..3...C..3..|
00002BF0: 82 3A 82 00 1B 34 B0 01 99 22 12 53 4F 52 54 92 |.:...4...".SORT.|
00002C00: 20 43 4F 4D 50 4C 45 54 45 44 22 3A 81 4A B2 31 | COMPLETED":.J.1|
00002C10: A4 31 30 30 30 3A 82 3A 89 31 32 00 41 34 B1 01 |.1000:.:.12.A4..|
00002C20: 99 C7 28 31 34 37 29 3A 99 A3 31 30 29 22 12 2A |..(147):..10)".*|
00002C30: 2A 52 45 50 4F 52 54 20 57 52 49 54 45 52 2A 2A |*REPORT WRITER**|
00002C40: 22 00 6D 34 B2 01 99 22 57 48 49 43 48 20 4F 46 |".m4..."WHICH OF|
00002C50: 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 46 | THE FOLLOWING F|
00002C60: 49 45 4C 44 53 20 44 4F 20 59 4F 55 22 00 92 34 |IELDS DO YOU"..4|
00002C70: B3 01 99 22 57 49 53 48 20 54 4F 20 49 4E 43 4C |..."WISH TO INCL|
00002C80: 55 44 45 20 49 4E 20 54 48 45 20 52 45 50 4F 52 |UDE IN THE REPOR|
00002C90: 54 22 00 9B 34 B4 01 99 4C 33 24 00 A6 34 B5 01 |T"..4...L3$..4..|
00002CA0: 81 43 B2 31 A4 58 00 B4 34 B6 01 99 41 24 28 30 |.C.1.X..4...A$(0|
00002CB0: 2C 43 29 3B 00 EC 34 B7 01 99 A3 32 35 29 22 4B |,C);..4....25)"K|
00002CC0: 45 59 20 12 59 92 20 4F 52 20 12 4E 92 20 5B 20 |EY .Y. OR .N. [ |
00002CD0: 5D 9D 9D 22 3B 3A 8D 32 35 33 3A 43 24 28 43 29 |]..";:.253:C$(C)|
00002CE0: B2 C8 28 49 50 24 2C 31 29 3A 82 43 00 1A 35 B8 |..(IP$,1):.C..5.|
00002CF0: 01 99 4C 33 24 3A 99 3A 99 A3 36 29 22 3C 3C 20 |..L3$:.:..6)"<< |
00002D00: 41 43 43 45 50 54 20 46 49 45 4C 44 20 53 45 4C |ACCEPT FIELD SEL|
00002D10: 45 43 54 49 4F 4E 20 3E 3E 22 00 4B 35 B9 01 99 |ECTION >>".K5...|
00002D20: 3A 99 A3 34 29 22 4B 45 59 20 12 59 92 20 54 4F |:..4)"KEY .Y. TO|
00002D30: 20 43 4F 4E 54 49 4E 55 45 20 12 4E 92 20 54 4F | CONTINUE .N. TO|
00002D40: 20 52 45 2D 53 45 4C 45 43 54 22 00 54 35 BA 01 | RE-SELECT".T5..|
00002D50: 8D 35 31 33 00 64 35 BB 01 8B 4B 24 B2 22 4E 22 |.513.d5...K$."N"|
00002D60: A7 34 33 33 00 92 35 BC 01 8B 4B 24 B2 22 59 22 |.433..5...K$."Y"|
00002D70: A7 99 C7 28 31 34 37 29 3A 99 A3 31 30 29 22 12 |...(147):..10)".|
00002D80: 2A 2A 52 45 50 4F 52 54 20 57 52 49 54 45 52 2A |**REPORT WRITER*|
00002D90: 2A 22 00 B7 35 BD 01 99 3A 99 A3 39 29 22 50 52 |*"..5...:..9)"PR|
00002DA0: 49 4E 54 45 52 20 49 4E 46 4F 52 4D 41 54 49 4F |INTER INFORMATIO|
00002DB0: 4E 22 3A 99 4C 33 24 00 F2 35 BE 01 99 22 44 4F |N":.L3$..5..."DO|
00002DC0: 20 59 4F 55 20 52 45 51 55 49 52 45 20 4C 49 4E | YOU REQUIRE LIN|
00002DD0: 45 20 46 45 45 44 22 A3 32 35 29 22 4B 45 59 20 |E FEED".25)"KEY |
00002DE0: 12 59 92 20 4F 52 20 12 4E 92 20 5B 20 5D 9D 9D |.Y. OR .N. [ ]..|
00002DF0: 22 3B 00 0A 36 BF 01 8D 32 35 33 3A 4C 46 24 B2 |";..6...253:LF$.|
00002E00: C8 28 49 50 24 2C 31 29 3A 99 00 57 36 C0 01 99 |.(IP$,1):..W6...|
00002E10: 22 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 |"DO YOU WISH TO |
00002E20: 53 45 4E 44 20 41 22 3A 99 22 43 48 52 24 20 54 |SEND A":."CHR$ T|
00002E30: 4F 20 54 48 45 20 50 52 49 4E 54 45 52 22 A3 32 |O THE PRINTER".2|
00002E40: 35 29 22 4B 45 59 20 12 59 92 20 4F 52 20 12 4E |5)"KEY .Y. OR .N|
00002E50: 92 20 5B 20 5D 22 3B 00 86 36 C1 01 99 22 9D 9D |. [ ]";..6..."..|
00002E60: 22 3B 3A 8D 32 35 33 3A 43 53 24 B2 C8 28 49 50 |";:.253:CS$..(IP|
00002E70: 24 2C 31 29 3A 47 B2 39 3A 8B 43 53 24 B2 22 59 |$,1):G.9:.CS$."Y|
00002E80: 22 A7 47 B2 31 31 00 C0 36 C2 01 8B 43 53 24 B2 |".G.11..6...CS$.|
00002E90: 22 59 22 A7 99 3A 99 22 45 4E 54 45 52 20 43 48 |"Y"..:."ENTER CH|
00002EA0: 52 24 22 A3 33 35 29 22 5B 20 20 5D 9D 9D 9D 22 |R$".35)"[ ]..."|
00002EB0: 3B 3A 8D 32 35 33 3A 43 53 B2 C5 28 49 50 24 29 |;:.253:CS..(IP$)|
00002EC0: 00 CE 36 C3 01 99 4C 33 24 3A 89 34 35 37 00 03 |..6...L3$:.457..|
00002ED0: 37 C4 01 99 22 13 22 3A 81 49 B2 31 A4 47 3A 99 |7...".":.I.1.G:.|
00002EE0: 3A 82 3A 81 49 B2 31 A4 32 33 AB 47 3A 99 53 24 |:.:.I.1.23.G:.S$|
00002EF0: 3A 82 49 3A 99 22 13 22 3A 81 49 B2 31 A4 47 3A |:.I:.".":.I.1.G:|
00002F00: 99 3A 82 00 4B 37 C5 01 99 A3 31 32 29 22 12 2A |.:..K7....12)".*|
00002F10: 2A 54 45 53 54 20 4F 56 45 52 2A 2A 22 3A 99 3A |*TEST OVER**":.:|
00002F20: 99 A3 35 29 3A 99 22 4B 45 59 20 12 59 92 20 54 |..5):."KEY .Y. T|
00002F30: 4F 20 43 4F 4E 54 49 4E 55 45 20 12 4E 92 20 54 |O CONTINUE .N. T|
00002F40: 4F 20 52 45 2D 53 45 54 55 50 22 00 54 37 C6 01 |O RE-SETUP".T7..|
00002F50: 8D 35 31 33 00 64 37 C7 01 8B 4B 24 B2 22 59 22 |.513.d7...K$."Y"|
00002F60: A7 34 36 32 00 7A 37 C8 01 8B 4B 24 B2 22 4E 22 |.462.z7...K$."N"|
00002F70: A7 8D 35 31 38 3A 89 34 33 33 00 B0 37 C9 01 99 |..518:.433..7...|
00002F80: 22 44 4F 20 59 4F 55 20 52 45 51 55 49 52 45 20 |"DO YOU REQUIRE |
00002F90: 54 45 53 54 20 50 52 49 4E 54 3A 20 4B 45 59 20 |TEST PRINT: KEY |
00002FA0: 12 59 92 20 4F 52 20 12 4E 92 22 3A 99 4C 33 24 |.Y. OR .N.":.L3$|
00002FB0: 00 B9 37 CA 01 8D 35 31 33 00 CF 37 CB 01 8B 4B |..7...513..7...K|
00002FC0: 24 B2 22 4E 22 A7 8D 35 31 35 3A 89 34 36 32 00 |$."N"..515:.462.|
00002FD0: E5 37 CC 01 8B 4B 24 B2 22 59 22 A7 8D 35 31 35 |.7...K$."Y"..515|
00002FE0: 3A 8D 35 31 39 00 EE 37 CD 01 89 34 35 32 00 FC |:.519..7...452..|
00002FF0: 37 CE 01 9F 34 2C 34 2C 37 3A 9D 34 00 11 38 CF |7...4,4,7:.4..8.|
00003000: 01 8B 43 53 24 B2 22 59 22 A7 99 20 C7 28 43 53 |..CS$."Y".. .(CS|
00003010: 29 00 33 38 D0 01 99 4D 24 A6 31 30 29 22 46 49 |).38...M$.10)"FI|
00003020: 4C 45 4E 41 4D 45 20 3D 20 22 4E 24 3A 99 3A 8D |LENAME = "N$:.:.|
00003030: 35 33 32 00 3F 38 D1 01 52 B2 30 3A 50 B2 30 00 |532.?8..R.0:P.0.|
00003040: 47 38 D2 01 43 B2 31 00 60 38 D3 01 50 44 B2 41 |G8..C.1.`8..PD.A|
00003050: 28 43 29 AB C3 28 41 24 28 52 2C 43 29 29 AA 31 |(C)..(A$(R,C)).1|
00003060: 00 6F 38 D4 01 8B 50 44 B3 31 A7 50 44 B2 31 00 |.o8...PD.1.PD.1.|
00003070: AF 38 D5 01 50 44 24 B2 C8 28 53 24 2C 50 44 29 |.8..PD$..(S$,PD)|
00003080: 3A 8B 43 24 28 43 29 B2 22 59 22 A7 99 C8 28 41 |:.C$(C)."Y"...(A|
00003090: 24 28 52 2C 43 29 2C 41 28 43 29 29 AA 50 44 24 |$(R,C),A(C)).PD$|
000030A0: 3B 3A 8B 52 B2 30 A7 50 B2 50 AA 41 28 43 29 00 |;:.R.0.P.P.A(C).|
000030B0: C4 38 D6 01 43 B2 43 AA 31 3A 8B 43 B3 58 AA 31 |.8..C.C.1:.C.X.1|
000030C0: A7 34 36 37 00 CD 38 D7 01 8D 35 33 32 00 EF 38 |.467..8...532..8|
000030D0: D8 01 8B 52 B2 30 A7 99 3A 81 49 B2 31 A4 50 AA |...R.0..:.I.1.P.|
000030E0: 32 3A 99 22 2D 22 3B 3A 82 49 3A 8D 35 33 32 00 |2:."-";:.I:.532.|
000030F0: 06 39 D9 01 52 B2 52 AA 31 3A 99 3A 8B 52 B3 59 |.9..R.R.1:.:.R.Y|
00003100: AA 31 A7 34 36 36 00 10 39 DA 01 99 3A 99 3A 99 |.1.466..9...:.:.|
00003110: 00 28 39 DB 01 99 22 20 20 20 2A 54 4F 54 41 4C |.(9..." *TOTAL|
00003120: 53 2A 22 3A 8D 35 33 32 00 42 39 DC 01 99 22 20 |S*":.532.B9..." |
00003130: 20 20 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 99 3A 8D 35 | --------":.:.5|
00003140: 33 32 00 51 39 DD 01 81 43 B2 31 A4 58 3A 54 B2 |32.Q9...C.1.X:T.|
00003150: 30 00 6D 39 DE 01 81 52 B2 31 A4 59 3A 54 B2 54 |0.m9...R.1.Y:T.T|
00003160: AA C5 28 41 24 28 52 2C 43 29 29 3A 82 00 91 39 |..(A$(R,C)):...9|
00003170: DF 01 8B 41 41 24 28 43 29 B2 22 4E 22 A7 99 41 |...AA$(C)."N"..A|
00003180: 24 28 30 2C 43 29 A3 32 30 29 3B 54 3A 8D 35 33 |$(0,C).20);T:.53|
00003190: 32 00 98 39 E0 01 82 43 00 A2 39 E1 01 98 34 3A |2..9...C..9...4:|
000031A0: A0 34 00 AB 39 E2 01 8D 35 31 38 00 B3 39 E3 01 |.4..9...518..9..|
000031B0: 89 31 32 00 EA 39 E4 01 8D 34 39 35 3A 43 4F B2 |.12..9...495:CO.|
000031C0: 31 3A 4C 4E B2 32 31 3A 8D 34 39 37 3A 99 22 12 |1:LN.21:.497:.".|
000031D0: 44 45 4C 45 54 45 92 20 41 52 45 20 59 4F 55 20 |DELETE. ARE YOU |
000031E0: 53 55 52 45 3F 20 59 2F 4E 22 00 F3 39 E5 01 8D |SURE? Y/N"..9...|
000031F0: 35 31 33 00 03 3A E6 01 8B 4B 24 B2 22 59 22 A7 |513..:...K$."Y".|
00003200: 34 38 39 00 13 3A E7 01 8B 4B 24 B2 22 4E 22 A7 |489..:...K$."N".|
00003210: 31 31 34 00 1C 3A E8 01 89 34 38 35 00 2D 3A E9 |114..:...485.-:.|
00003220: 01 54 B2 52 3A 81 52 B2 54 A4 59 AA 31 00 38 3A |.T.R:.R.T.Y.1.8:|
00003230: EA 01 81 43 B2 31 A4 58 00 4E 3A EB 01 41 24 28 |...C.1.X.N:..A$(|
00003240: 52 2C 43 29 B2 41 24 28 52 AA 31 2C 43 29 00 55 |R,C).A$(R.1,C).U|
00003250: 3A EC 01 82 43 00 5C 3A ED 01 82 52 00 6B 3A EE |:...C.\:...R.k:.|
00003260: 01 59 B2 59 AB 31 3A 89 31 30 30 00 86 3A EF 01 |.Y.Y.1:.100..:..|
00003270: 43 4F B2 31 3A 4C 4E B2 32 31 3A 8D 34 39 37 3A |CO.1:LN.21:.497:|
00003280: 81 49 B2 31 A4 33 00 BA 3A F0 01 99 22 20 20 20 |.I.1.3..:..." |
00003290: 20 20 20 20 20 20 20 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 22 3A 82 49 3A 8E 00 ED 3A F1 01 41 | ":.I:...:..A|
000032C0: 43 43 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |CC$."...........|
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 22 00 13 3B |............"..;|
000032F0: F2 01 44 4F 57 24 B2 22 11 11 11 11 11 11 11 11 |..DOW$."........|
00003300: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00003310: 11 11 22 00 1E 3B F3 01 81 5A B2 31 A4 32 00 28 |.."..;...Z.1.2.(|
00003320: 3B F4 01 99 22 13 22 3B 00 41 3B F5 01 8B 43 4F |;...".";.A;...CO|
00003330: B1 31 A7 99 C8 28 41 43 43 24 2C 43 4F AB 31 29 |.1...(ACC$,CO.1)|
00003340: 3B 00 5A 3B F6 01 8B 4C 4E B1 31 A7 99 C8 28 44 |;.Z;...LN.1...(D|
00003350: 4F 57 24 2C 4C 4E AB 31 29 3B 00 8F 3B F7 01 8B |OW$,LN.1);..;...|
00003360: 5A B2 31 A7 99 22 20 20 20 20 20 20 20 20 20 20 |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 22 3B 00 | ";.|
00003390: 96 3B F8 01 82 5A 00 9C 3B F9 01 8E 00 CC 3B FA |.;...Z..;.....;.|
000033A0: 01 82 3A 99 3A 8D 32 36 34 3A 99 A3 36 29 22 50 |..:.:.264:..6)"P|
000033B0: 52 45 53 53 20 12 20 53 50 41 43 45 20 42 41 52 |RESS . SPACE BAR|
000033C0: 20 92 20 46 4F 52 20 4D 45 4E 55 22 00 E7 3B FB | . FOR MENU"..;.|
000033D0: 01 4B 24 B2 22 22 3A A1 4B 24 3A 8B 4B 24 B3 B1 |.K$."":.K$:.K$..|
000033E0: 22 20 22 A7 35 30 37 00 EF 3B FC 01 89 31 32 00 |" ".507..;...12.|
000033F0: 08 3C FD 01 8B 50 52 B2 35 AF C3 28 C4 28 52 29 |.<...PR.5..(.(R)|
00003400: 29 B2 32 A7 54 54 B2 35 00 21 3C FE 01 8B 50 52 |).2.TT.5.!<...PR|
00003410: B2 35 AF C3 28 C4 28 52 29 29 B2 33 A7 54 54 B2 |.5..(.(R)).3.TT.|
00003420: 34 00 3A 3C FF 01 8B 50 52 B2 35 AF C3 28 C4 28 |4.:<...PR.5..(.(|
00003430: 52 29 29 B2 34 A7 54 54 B2 33 00 40 3C 00 02 8E |R)).4.TT.3.@<...|
00003440: 00 5D 3C 01 02 A1 4B 24 3A 8B 4B 24 B3 B1 22 59 |.]<...K$:.K$.."Y|
00003450: 22 AF 4B 24 B3 B1 22 4E 22 A7 35 31 33 00 63 3C |".K$.."N".513.c<|
00003460: 02 02 8E 00 A2 3C 03 02 43 4F B2 31 3A 4C 4E B2 |.....<..CO.1:LN.|
00003470: 32 31 3A 8D 34 39 37 3A 99 22 20 3C 3C 20 45 4E |21:.497:." << EN|
00003480: 53 55 52 45 20 54 48 41 54 20 50 52 49 4E 54 45 |SURE THAT PRINTE|
00003490: 52 20 49 53 20 41 4C 49 47 4E 45 44 20 3E 3E 22 |R IS ALIGNED >>"|
000034A0: 3A 99 00 DC 3C 04 02 99 22 20 20 20 20 50 52 45 |:...<..." PRE|
000034B0: 53 53 20 12 53 50 41 43 45 20 42 41 52 92 20 54 |SS .SPACE BAR. T|
000034C0: 4F 20 43 4F 4E 54 49 4E 55 45 22 3A A1 4B 24 3A |O CONTINUE":.K$:|
000034D0: 8B 4B 24 B3 B1 22 20 22 A7 35 31 35 00 E2 3C 05 |.K$.." ".515..<.|
000034E0: 02 8E 00 06 3D 06 02 81 43 B2 31 A4 58 3A 41 24 |....=...C.1.X:A$|
000034F0: 28 30 2C 43 29 B2 C8 28 41 24 28 30 2C 43 29 2C |(0,C)..(A$(0,C),|
00003500: 39 29 3A 82 3A 8E 00 2F 3D 07 02 52 50 24 B2 22 |9):.:../=..RP$."|
00003510: 22 3A 81 43 B2 31 A4 58 3A 54 50 24 B2 22 22 3A |":.C.1.X:TP$."":|
00003520: 8B 43 24 28 43 29 B2 22 59 22 A7 8D 35 32 39 00 |.C$(C)."Y"..529.|
00003530: 36 3D 08 02 82 43 00 67 3D 09 02 52 B2 30 3A 52 |6=...C.g=..R.0:R|
00003540: 24 B2 22 22 3A 50 44 24 B2 22 22 3A 81 43 B2 31 |$."":PD$."":.C.1|
00003550: A4 58 3A 50 44 B2 41 28 43 29 AB C3 28 41 24 28 |.X:PD.A(C)..(A$(|
00003560: 52 2C 43 29 29 AA 31 00 76 3D 0A 02 8B 50 44 B3 |R,C)).1.v=...PD.|
00003570: 31 A7 50 44 B2 31 00 AC 3D 0B 02 50 44 24 B2 C8 |1.PD.1..=..PD$..|
00003580: 28 53 24 2C 50 44 29 3A 8B 43 24 28 43 29 B2 22 |(S$,PD):.C$(C)."|
00003590: 59 22 A7 52 24 B2 52 24 AA C8 28 41 24 28 52 2C |Y".R$.R$..(A$(R,|
000035A0: 43 29 2C 41 28 43 29 29 AA 50 44 24 00 B3 3D 0C |C),A(C)).PD$..=.|
000035B0: 02 82 43 00 D1 3D 0D 02 9F 34 2C 34 2C 37 3A 9D |..C..=...4,4,7:.|
000035C0: 34 3A 8B 43 53 24 B2 22 59 22 A7 99 C7 28 43 53 |4:.CS$."Y"...(CS|
000035D0: 29 00 F3 3D 0E 02 99 4D 24 A6 31 30 29 22 46 49 |)..=...M$.10)"FI|
000035E0: 4C 45 4E 41 4D 45 20 3D 20 22 4E 24 3A 99 3A 8D |LENAME = "N$:.:.|
000035F0: 35 33 32 00 16 3E 0F 02 99 52 24 3A 81 49 B2 31 |532..>...R$:.I.1|
00003600: A4 C3 28 52 24 29 3A 99 22 2D 22 3B 3A 82 49 3A |..(R$):."-";:.I:|
00003610: 99 3A 8D 35 33 32 00 27 3E 10 02 99 52 50 24 3A |.:.532.'>...RP$:|
00003620: 98 34 3A A0 34 3A 8E 00 47 3E 11 02 81 49 B2 31 |.4:.4:..G>...I.1|
00003630: A4 41 28 43 29 3A 54 50 24 B2 54 50 24 AA 41 41 |.A(C):TP$.TP$.AA|
00003640: 24 28 43 29 3A 82 49 00 72 3E 12 02 8B C3 28 54 |$(C):.I.r>....(T|
00003650: 50 24 29 B3 C3 28 41 24 28 31 2C 43 29 29 A7 54 |P$)..(A$(1,C)).T|
00003660: 50 24 B2 54 50 24 AA 41 41 24 28 43 29 3A 89 35 |P$.TP$.AA$(C):.5|
00003670: 33 30 00 90 3E 13 02 54 50 24 B2 54 50 24 AA 22 |30..>..TP$.TP$."|
00003680: 20 22 3A 52 50 24 B2 52 50 24 AA 54 50 24 3A 8E | ":RP$.RP$.TP$:.|
00003690: 00 A4 3E 14 02 8B 4C 46 24 B2 22 59 22 A7 99 C7 |..>...LF$."Y"...|
000036A0: 28 31 30 29 00 AA 3E 15 02 8E 00 D3 3E 16 02 99 |(10)..>.....>...|
000036B0: 22 93 4D 41 58 20 4E 4F 20 4F 46 20 52 45 43 4F |".MAX NO OF RECO|
000036C0: 52 44 53 20 4E 4F 57 20 52 45 41 43 48 45 44 2E |RDS NOW REACHED.|
000036D0: 22 3A 99 00 1C 3F 17 02 99 22 54 4F 20 49 4E 43 |":...?..."TO INC|
000036E0: 52 45 41 53 45 20 4D 41 58 49 4D 55 4D 20 52 45 |REASE MAXIMUM RE|
000036F0: 2D 44 49 4D 45 4E 53 49 4F 4E 22 3A 99 3A 99 22 |-DIMENSION":.:."|
00003700: 50 52 4F 47 52 41 4D 20 41 54 20 4C 49 4E 45 20 |PROGRAM AT LINE |
00003710: 34 31 36 20 41 4E 44 20 31 37 34 22 00 67 3F 18 |416 AND 174".g?.|
00003720: 02 99 3A 99 22 4F 52 20 43 41 4C 4C 20 44 49 41 |..:."OR CALL DIA|
00003730: 4C 4F 47 20 4F 4E 20 30 31 20 32 38 39 20 36 39 |LOG ON 01 289 69|
00003740: 30 34 22 3A 99 3A 99 3A 99 3A 99 22 50 52 45 53 |04":.:.:.:."PRES|
00003750: 53 20 12 53 50 41 43 45 20 42 41 52 92 20 46 4F |S .SPACE BAR. FO|
00003760: 52 20 4D 45 4E 55 22 00 7C 3F 19 02 A1 4B 24 3A |R MENU".|?...K$:|
00003770: 8B 4B 24 B3 B1 22 20 22 A7 35 33 37 00 8A 3F 1A |.K$.." ".537..?.|
00003780: 02 59 B2 32 30 30 3A 89 31 32 00 AB 3F 1B 02 99 |.Y.200:.12..?...|
00003790: 22 93 22 3A 20 99 22 12 20 44 49 53 4B 20 44 49 |".": .". DISK DI|
000037A0: 52 45 43 54 4F 52 59 20 92 11 22 00 E1 3F 1C 02 |RECTORY .."..?..|
000037B0: 9F 31 2C 38 2C 31 35 2C 22 49 30 22 3A A0 31 3A |.1,8,15,"I0":.1:|
000037C0: 9F 31 2C 38 2C 30 2C 22 24 30 22 3A 81 4B B2 31 |.1,8,0,"$0":.K.1|
000037D0: A4 32 35 3A A1 23 31 2C 58 24 3A 82 4B 3A 44 B2 |.25:.#1,X$:.K:D.|
000037E0: 31 00 F0 3F 1D 02 8B 44 B2 32 A7 44 B2 30 3A 99 |1..?...D.2.D.0:.|
000037F0: 00 0E 40 1E 02 99 A3 32 30 AC 44 29 3B 3A 81 4B |..@....20.D);:.K|
00003800: B2 31 A4 34 3A A1 23 31 2C 58 24 3A 82 4B 00 27 |.1.4:.#1,X$:.K.'|
00003810: 40 1F 02 8B 20 53 54 20 B0 20 44 53 20 A7 A0 31 |@... ST . DS ..1|
00003820: 3A 99 3A 89 33 35 39 00 44 40 20 02 A1 23 31 2C |:.:.359.D@ ..#1,|
00003830: 58 24 3A 8B 58 24 B2 22 22 A7 44 B2 44 AA 31 3A |X$:.X$."".D.D.1:|
00003840: 89 35 34 31 00 5C 40 21 02 8B 58 24 B2 C7 28 33 |.541.\@!..X$..(3|
00003850: 34 29 A7 4F B2 A8 4F 3A 89 35 34 34 00 68 40 22 |4).O..O:.544.h@"|
00003860: 02 8B 4F A7 99 58 24 3B 00 71 40 23 02 89 35 34 |..O..X$;.q@#..54|
00003870: 34 00 85 40 24 02 8B 49 50 24 B2 22 22 A7 49 50 |4..@$..IP$."".IP|
00003880: 24 B2 22 2D 22 00 C0 40 25 02 8B C6 28 49 50 24 |$."-"..@%...(IP$|
00003890: 29 B3 34 36 B0 C6 28 49 50 24 29 B1 35 37 A7 41 |).46..(IP$).57.A|
000038A0: 43 B2 31 3A 99 3A 99 22 12 4E 55 4D 45 52 49 43 |C.1:.:.".NUMERIC|
000038B0: 20 49 4E 50 55 54 20 52 45 51 55 49 52 45 44 22 | INPUT REQUIRED"|
000038C0: 00 F0 40 26 02 8B 52 B3 30 B0 52 B1 59 A7 99 3A |..@&..R.0.R.Y..:|
000038D0: 99 22 12 45 4E 54 45 52 20 41 20 56 41 4C 55 45 |.".ENTER A VALUE|
000038E0: 20 42 45 54 57 45 45 4E 20 31 20 41 4E 44 22 59 | BETWEEN 1 AND"Y|
000038F0: 00 02 41 27 02 81 49 B2 31 A4 31 30 30 30 3A 82 |..A'..I.1.1000:.|
00003900: 3A 8E 00 00 00 00 00 |:...... |
.......53280,0:.53281,0:."...".R....**DF
M BY CHRIS ELY*DIALOG SOFTWARE(C) 15.01.
83.....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 WAN
T .U.PPER OR .L.OWER CASE"......K$:.K$."
".8......K$."L"..G(14):.12......K$."U".1
3.*....G(147):.344.:....:.N$."".17.E...N
L$.N$.C....C(NL$).9.NL$.NL$." ":.15.....
.:.:..8)".FILE IN USE: ";NL$;".":.:.:...
.....14)"KEY OPTION":.264.U...."1 CREATE
NEW FILE".20)"2 RENAME FILE"......"3 AC
CESS RECORD".20)"4 SELECT".&...."5 LOAD/
SAVE FILE".20)"6 REPORT WRITER.L...."7 S
ORT FILE".20)"8 UTILITIES":..K.....11)"9
EXIT PROGRAM":.264.}....K$:.K$."".23...
..KK$."123456789":.K.1.9:.K$.J(KK$,K,1).
26......K:.23......Y.0.K..1.K..5.K..8.K.
.9..".NO FILE EXISTS":.261:.12......K.12
8,78,100,191,265,433,417,351,338.".... 4
11.J...."DO YOU WISH TO .C.ONTINUE SEARC
H".E...."OR RETURN TO .M.ENU".W....K$:.K
$."".31... ..K$."C"..411:.35...!..K$."M"
.12..."..31...#..495:CO.1:LN.21:.497...$
.."SEARCH FOR RECORD BY KEY FIELD"...%..
"------------------------------".'.&.."E
NTER ""."A$(0,1)"."":";.4.'..253:.46.=.(
..495.Q.).CO.1:LN.21:.497.{.*.."THERE AR
E "Y" RECORDS IN THIS FILE"...+.."ENTER
RECORD NUMBER :";:. 253.W.,.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).101.!.2...*.3..4
11.J.4..".NO SUCH RECORD EXISTS!.".Z.5..
Z.1.1000:..B.6..28...7.AC.0: ."WHICH LIN
E DO YOU WISH TO AMEND"...8.."PRESS 1 TO
"X" :";:.253.H.9.C.E(IP$):.C.X..411:.55
.Q.:..411...;.."EXISTING DATA FOR ""."A$
(0,C)"."" = ":. "."A$(R,C)./.<.."NEW DAT
A ";:."[";:.H(S$,A(C));.L.=.."]";:.H(T$,
A(C));:.".";...>..253:.AA$(C)."N".."..":
.548:.AC.1.AC.0:."."L3$:.".....":.59...?
.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.$.D.."WHIC
H LINE DO YOU WISH TO AMEND".C.E.."PRESS
1 TO "X" :";:.253;.^.F.C.E(IP$):.C.X..4
11:.68.G.G..411.W.H.."."A$(0,C)...I.."EN
TER CORRECT FIELD HEADING [ ]...
.......";:. 253.I.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).#.M..
101.U.N.."ENTER NEW FILE NAME [
]..........";.I.O..253:N$.IP$:.12...P..4
95:CO.1:LN.21:.497:."DO YOU WISH TO AMEN
D:-"...Q.."FIELD .H.EADING OR .D.ATA".O.
R..K$:.K$."".82...S..K$."H"..411:.68...T
..K$."D"..411:.55...U..82.#.V..G(147);:R
S.R:.R.RS.Y:.G(19);.V.W..". RECORDS WILL
DISPLAY IN LOGICAL ORDER .":....X.CO.1:
LN.24:.497:.".C.ONTINUE SCROLL: .S.TOP
SCROLL: .E.XIT:.E.Y.CO.1:LN.3:.497:."RE
CORD 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.4.^..C.M._.K$."":.K$:.K$."S".98.I.
`..K$.."E"..I.1.500:.I:.R.R.A..101...B.K
$."":.K$:.K$.."C".K$.."E".98...C..96...D
.R.1...E.A.1...F..R.0.R.1.L.G..R.Y.R.R.1
:R.Y.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).<.M..GG.24.GG.24.M.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$.T.S.."
.**OPTIONS**. "...T.."PRESS
: .N.EXT .L.AST .F.IND .G.OTO .A.MEND .
M.ENU".F.U..".C.ALCS .I.NPUT .D.ELETE .P
.RINT .S.CROLL .<. .>".O.V..L3$.B.W..K$:
.K$."".119...X.KK$."NLMIGFS><APCD":.K.1.
13:.K$.J(KK$,K,1).122...Y..K:.119.W.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.'..A.A
.1:.102.^....G(147):.:.".**WARNING** THI
S WILL ERASE ANY FILE"......".CURRENTLY
IN MEMORY.":.:.:.:........8) "..........
..............".I.....8)"PRESS .Y.ES TO
CONTINUE".......8)" .N.O FOR MENU".
......8) "........................".....
.513.#....K$."N".12.4....K$."Y". 137.G..
..G(147):.:.413.~...."KEY DATE EG.(28.12
.82)[ ].........";:.253......IP$.
"".141......548:.AC.1.AC.0:."."S$".":.".
...":.138.Q...M$.H(IP$,8):.G(147).......
12)".CREATE RECORD.":.......264.*...."WH
AT IS THE FILE NAME ?[ ].........
";.3....253.E...N$.H(IP$,8):..O.... 264.
....."HOW MANY FIELDS IN EACH RECORD ? [
]...";:. 253.....X.E(H(IP$,2)):.......
X.1.X.15..".MAXIMUM IS 15.":.148.U....41
6:.G(147):C.1......".THIS FILE IS NAMED
";N$:.264.*...."NOTE THAT FIELD 1 IS THE
. KEY FIELD . ":..3....264.N...."STATE
. TITLE . OF FIELD"C" [ ]......
....";.Y....253:......A$(0,C).H(IP$,9)..
....C(A$(0,C)).9.A$(0,C).A$(0,C)." ":.15
8......"ENTER .C.HARACTER OR .N.UMERIC F
IELD [ ]..";:.253... .AA$(C).H(IP$,1):..
.....AA$(C)."N".164./....AA$(C)."C".166.
=....411:.159.J...A(C).9:..S....170.....
."ENTER NUMBER OF CHARACTERS FOR RECORD"
......"MAX.36 CHARACTERS [ ]...";:.253.
....A(C).E(IP$):..V....A(C).36.."..":.41
1:.166......C.X.172.....C.C.1:.".":.152.
.....F.1.R.Y.1:Y.Y.1:.174.....R.1:Y.1.,.
...R.200.534.^....G(147):AC.0: ..12)".RE
CORD NUMBER";R".":.264.......3)"TO TERMI
NATE DATA ENTRY TYPE 'END'":.......264:.
......C.1.X.I...."KEY "A$(0,C):."[";:.H(
S$,A(C));......"]";:.H(T$,A(C));:.".";:.
253......IP$."END". F.0 . R.1:Y.Y.1:. 12
.3....IP$."=".A$(R,C).A$(TV,C):.187.[...
.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)):..
K....A$(R,C)."".A$(R,C)."-".T....264.Z..
........F.1.F.0:.101.....R.R.1:Y.Y.1:. 1
74./....G(147):..15)".**SELECT**":.264:E
.0:RC.0.U...."DO YOU WANT TO OUTPUT RESU
LTS TO":."PRINTER: KEY .Y.ES OR .N.O".~.
A..264...B..513...C..K$."Y".PR.5:.197...
D..K$."N".PR.0:.197.C.E..PR.0.TT.15.N.F.
.R.1.Y...G..411:.".ENTER SELECTED .FIELD
. [ ]..........";:.253;...H.DP$.
IP$:..<.I..C(DP$).9.DP$.DP$." ":.201.K.J
..:.264:C.1.`.K..A$(0,C).DP$.206.U.L.C.C
.1:.C.X.1.203...M.EM$.".NO SUCH FIELD":.
261:.12...N.."ENTER ."DP$".".C.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.T.T.
."DO YOU WANT A STANDARD OR SLIDING"...U
.."STRING SEARCH: ENTER .ST. OR .SS. [
]...";:.253:ST$.IP$...V..G(147):.:. 264:
.AA$(C)."N".J.1:.217.X.W..ST$."SS".SS.1:
I.1:.225...X..ST$."ST".SS.0:I.1:J.1:.225
...Y.."SHOULD . "DP$" . BE:":..4.Z...2)"
.E.QUAL TO".15)CP$:..S.....2)".L.ESS THA
N".15)CP$:..U.....2)".G.REATER THAN".15)
CP$:.......K$:.K$."".221.....KK$."ELG":.
I.1.3:.K$.J(KK$,I,1).224......I:.221.N..
..G(147):. 264.. ..AR.24:.PR.5..515:."."
.14)".**PRINTING**."AR.A(1):.4,4,7:.4.:
..."FILE NAME : "N$:.:."SELECTION : "DP$
:..M ...I.240,228,234.S ..."CRITERIA <
"CP$" ":.264:.R.1.Y.| ...509.. ...E(A$(R
,C)).E(CP$).."RECORD NO ";R.TT)H(A$(R,1)
,AR):RC.RC.1.B ....R ...PR.5..4: 4.. ...
249..!..."CRITERIA > "CP$" ":.264:.R.1.
Y..!...509.J!...E(A$(R,C)).E(CP$).."RECO
RD NO ";R.TT)H(A$(R,1),AR):RC.RC.1.P!...
.`!...PR.5..4: 4.I!...249..!..."CRITERIA
= "CP$" ":.264:.R.1.Y..!...R.1.Y..!...
509..!...SS.1..J.1.A(C).F..!...J(A$(R,C)
,J,F).CP$.."RECORD NO ";R.TT)H(A$(R,1),A
R):RC.RC.1.."...SS.0.247.."...J.."....%"
...PR.5..4: 4.A"...:.".RECORDS COUNTED =
. ";RC:.:..13)".PRESS SPACE BAR.".T"...K
$:.K$."".250.."...K$." ".R.R.1:.12.."...
250.."..B$." ":."";.."...IP$:.IP$.""..25
4.T"...B$." ".F(IP$).20..254..#...F(IP$)
.20.B$.H(B$,C(B$).1):.". .";:.254. #...I
P$.G(13).IP$.J(B$,2):.:..D#..A.F(IP$):.A
.31.A.157.A.145..254.E#...A.34.A.44.A.58
.A.59.IP$."."..#..B$.B$.IP$:.".";IP$;"."
;:.254..#... EM$..#... T8.1 .1000:...#..
..Z#..."................................
.......":...$... "DO YOU WISH TO .L.OAD
OR .S.AVE":...$...K$:.K$."".266.'$...K$.
"L".284.7$...K$."S".270.@$...266.I$...41
1.V$..."ARE YOU SAVING ON .D.ISC OR .T.A
PE?":...$...K$:.K$."".272..$...K$."T".27
6..$...K$."D".298..$...272..$...411.S$..
.".INSERT CASSETTE"..$..."PRESS .C. TO C
ONTINUE"..%...K$:.K$.."C". 279..%...411:
."SAVING ."N$.'%..."..".6%... 1,1,1,N$.?
%...306.E%....M%...413:.411:."ARE YOU LO
ADING FROM:-"..%...".D.ISK OR .T.APE"..%
...K$:.K$."".287..% ..K$."T".291..%!..K$
."D".296.A%"..287.T%#.T.1:U.0:NN$.N$..%$
..411:."IS CASSETTE IN PLACE"..&%.."PRES
S .Y.ES TO CONTINUE".)&&..K$:.K$.."Y".29
4.2&'..316.G&(.T.8:U.4:N1$."0:":N2$.",SE
Q,READ":NN$.N1$.NN$.N2$.P&)..316.Y&*..41
1..&+.."DO YOU WANT TO SAVE ON DRIVE .0.
OR .1."..&,..K$:.K$."".300.U&-..K$."0".
DR$."0:":.304..&...K$."1".DR$."1:":.304.
.&/..300.$'0.N1$.DR$:N2$.",SEQ,WRITE":NN
$.N1$.N$.N2$.7'1..1,8,4,"@".NN$.H'2..1,Y
:.G(13);.Y'3..1,X:.G(13);.V'4..C.1.X:.1,
A(C):.G(13);:...'5..C.1.X:.1,AA$(C):.G(1
3);:.. '6..R.1.Y..'7..C.1.X:.1,A$(R,C):.
G(13);:..F'8....'9..C.1.X:.1,A$(0,C):.G(
13);:...':. 1..';..12..(<..411:."ENTER F
ILE NAME [ ]..........";:. 253.G
(=.N$.H(IP$,9):NN$.N$:..W(>..T.1.."...".
F(?..1,T,U,NN$.Y(@..1,Y:.1,X:.416..(A..C
.1.X:.1,A(C):...(B..C.1.X:.1,AA$(C):...(
C..R.1.Y..(D..C.1.X.J(E..1,A$(R,C).R(F..
:...(G..C.1.X..(H..1,A$(0,C)..(I....(J.
1..)K..411.<)L..Y.0.N$."":.".FILE NOT FO
UND ON DISK":.I.1.1000:.:.12.S)M.."KEY D
ATE EG.(28.12.83)[ ].........";:.
253..)N..IP$."".336..)O.R.1:.:.548:.AC.1
.AC.0:."."S$".":."....":.333.F)P.M$.H(IP
$,8):..N)Q..12..)R.."EXIT 'DFM' ARE YOU
SURE (Y/N)..*S..K$:.K$."".339..*T..K$."Y
".N$."":.344.+*U..K$."N".12.>*V..
.N*W..340 .{*X..: .".
*************************"..*Y.."
*** .DATA. .FILE. .MANAGER. ***".S*Z.."
*************************":...*[.
.N$.."". ...+\.." BY
":..A+].." . D . . I . .
A . . L . . O . . G . ":..H+^.."
S O F T W A R E":.:..T+_..G(147)..+`
...14)".**UTILITIES**.":.264:..O+A.." .
M.EMORY AVAILABILITY":.:." .D.ISK DIREC
TORY":...+B.." MENU .SPACE BAR."..+C..V
$:.V$."".355..,D..V$."M".362..,E..V$."D"
.539.+,F..V$." ".12.N,G..:.".PRESS SPACE
BAR FOR MENU".C,H..K$:.K$.." ".355.K,I.
.12..,J..".....".24)"= ".(0)"BYTES "..,K
..G(19):.352..,L..495..,M..515..,N..4,4,
7:.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).)-Q..L3$.7-R..
C.2 . X.^-S..D(C);:..2)A$(0,C).3)H(A$(R,
C),24).Y-T..:.:.264:.: .4: 4:.101..-U..4
95:CO.1:LN.21:.497:."DO YOU WISH TO PERF
ORM INDIVIDUAL".Z-V..".C.ALCS OR .T.OTAL
ISE FIELD"..-W..K$:.K$."".375...X..K$."T
"..411:.397...Y..K$."C"..411:.379.".Z..3
75.A.{.."WHICH FIELD DO YOU WISH".K.|.."
TO CALCULATE, KEY 1 TO "X" :";:.253...}.
C.E(IP$):.C.X..411:.379...~..411.....AA
$(C)."C"..".CHARACTER. FIELD".I....AA$(C
)."N".386......I.1.1000:.:.114../..."KEY
LETTER FOLLOWED BY AMOUNT EG.(A25)".B/.
..".A.DD .S.UBTRACT .M.ULTIPLY .D.IVIDE
.Z.EROISE".B/...".R.EPLACE :";:.253:L$.I
P$../...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.90...H(L$,1)
."R".P.E(J(L$,2)).O0..A$(R,C).J(D(P),2).
X0...101.W0..."WHICH FIELD DO YOU WISH".
.0..."TO TOTALISE KEY 1 TO "X" :";:.253.
.0..C.E(IP$):.C.X..411:.397.D0...411..0.
..AA$(C)."C"..".CHARACTER. FIELD"..0...A
A$(C)."N".404..1...I.1.1000:.:.114..1..T
.0.71... R.1.Y:T.T.E(A$(R,C)):..}1..."TO
TAL FILE VALUE OF FIELD :":."."A$(0,C)".
"" = ";T. 1..."PRESS .SPACE
BAR. TO RETURN"..1...K$:.K$."".408.C1..
.K$." ".101.L1...408.R1..:..1..."..";:.S
$:.S$:."...":...2..S$."
".Q2..L3$."-------
--------------------------------"..2..T$
."......................................
..":...2 .. A$(200,X),AA$(X),A(X),C$(X),
B$(X):A$(R,C)."":...2..."WHICH FIELD DO
YOU WISH TO"..3..."SORT BY.. KEY 1 TO "X
" :";:.253..3..M.E(IP$)..3...411.53...".
SORTING. PLEASE WAIT".B3...R.1.Y.1.Q3...
I.(R.1).Y.V3...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..3..B$(C).A$(R,C).R
3..A$(R,C).A$(I,C)..3..A$(I,C).B$(C)..3.
..C..3...:...4...".SORT. COMPLETED":.J.1
.1000:.:.12.A4...G(147):..10)".**REPORT
WRITER**".M4..."WHICH OF THE FOLLOWING F
IELDS DO YOU"..4..."WISH TO INCLUDE IN T
HE REPORT"..4...L3$..4...C.1.X..4...A$(0
,C);..4....25)"KEY .Y. OR .N. [ ]..";:.2
53:C$(C).H(IP$,1):.C..5...L3$:.:..6)"<<
ACCEPT FIELD SELECTION >>".K5...:..4)"KE
Y .Y. TO CONTINUE .N. TO RE-SELECT".T5..
.513.D5...K$."N".433..5...K$."Y"..G(147)
:..10)".**REPORT WRITER**"..5...:..9)"PR
INTER INFORMATION":.L3$..5..."DO YOU REQ
UIRE LINE FEED".25)"KEY .Y. OR .N. [ ]..
";..6...253:LF$.H(IP$,1):..W6..."DO YOU
WISH TO SEND A":."CHR$ TO THE PRINTER".2
5)"KEY .Y. OR .N. [ ]";..6A.."..";:.253:
CS$.H(IP$,1):G.9:.CS$."Y".G.11..6B..CS$.
"Y"..:."ENTER CHR$".35)"[ ]...";:.253:C
S.E(IP$).N6C..L3$:.457..7D..".":.I.1.G:.
:.:.I.1.23.G:.S$:.I:.".":.I.1.G:.:..K7E.
..12)".**TEST OVER**":.:..5):."KEY .Y. T
O CONTINUE .N. TO RE-SETUP".T7F..513.D7G
..K$."Y".462.Z7H..K$."N"..518:.433..7I..
"DO YOU REQUIRE TEST PRINT: KEY .Y. OR .
N.":.L3$..7J..513.O7K..K$."N"..515:.462.
.7L..K$."Y"..515:.519..7M..452..7N..4,4,
7:.4..8O..CS$."Y".. G(CS).38P..M$.10)"FI
LENAME = "N$:.:.532.?8Q.R.0:P.0.G8R.C.1.
`8S.PD.A(C).C(A$(R,C)).1.O8T..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).D8V.C.C.1:.C.X.1
.467.M8W..532..8X..R.0..:.I.1.P.2:."-";:
.I:.532..9Y.R.R.1:.:.R.Y.1.466..9Z..:.:.
.(9..." *TOTALS*":.532.B9..." ------
--":.:.532.Q9...C.1.X:T.0.M9...R.1.Y:T.T
.E(A$(R,C)):...9...AA$(C)."N"..A$(0,C).2
0);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.-:..T.R:.R.
T.Y.1.8:...C.1.X.N:..A$(R,C).A$(R.1,C).U
:...C.\:...R.K:..Y.Y.1:.100..:..CO.1:LN.
21:.497:.I.1.3..:..."
":.I:...:..ACC$."...
...................................."..;
..DOW$.".........................."..;..
.Z.1.2.(;...".";.A;...CO.1..H(ACC$,CO.1)
;.Z;...LN.1..H(DOW$,LN.1);..;...Z.1.."
";.
.;...Z..;....L;...:.:.264:..6)"PRESS . S
PACE BAR . FOR MENU"..;..K$."":.K$:.K$..
" ".507..;...12..<...PR.5.C(D(R)).2.TT.5
.!<...PR.5.C(D(R)).3.TT.4.:<...PR.5.C(D(
R)).4.TT.3.@<....]<...K$:.K$.."Y".K$.."N
".513.C<.....<..CO.1:LN.21:.497:." << EN
SURE THAT PRINTER IS ALIGNED >>":...<...
" PRESS .SPACE BAR. TO CONTINUE":.K$:
.K$.." ".515..<.....=...C.1.X:A$(0,C).H(
A$(0,C),9):.:../=..RP$."":.C.1.X:TP$."":
.C$(C)."Y"..529.6=...C.G=..R.0:R$."":PD$
."":.C.1.X:PD.A(C).C(A$(R,C)).1.V=...PD.
1.PD.1..=..PD$.H(S$,PD):.C$(C)."Y".R$.R$
.H(A$(R,C),A(C)).PD$..=...C.Q=...4,4,7:.
4:.CS$."Y"..G(CS)..=...M$.10)"FILENAME =
"N$:.:.532..>...R$:.I.1.C(R$):."-";:.I:
.:.532.'>...RP$:.4: 4:..G>...I.1.A(C):TP
$.TP$.AA$(C):.I.R>...C(TP$).C(A$(1,C)).T
P$.TP$.AA$(C):.530..>..TP$.TP$." ":RP$.R
P$.TP$:...>...LF$."Y"..G(10)..>....S>...
".MAX NO OF RECORDS NOW REACHED.":...?..
."TO INCREASE MAXIMUM RE-DIMENSION":.:."
PROGRAM AT LINE 416 AND 174".G?...:."OR
CALL DIALOG ON 01 289 6904":.:.:.:."PRES
S .SPACE BAR. FOR MENU".|?...K$:.K$.." "
.537..?..Y.200:.12..?...".": .". DISK DI
RECTORY .."..?...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.D@ ..#1,X$:.X$."".D.D.1:
.541.\@!..X$.G(34).O..O:.544.H@"..O..X$;
.Q@#..544..@$..IP$."".IP$."-"..@%..F(IP$
).46.F(IP$).57.AC.1:.:.".NUMERIC INPUT R
EQUIRED"..@&..R.0.R.Y..:.".ENTER A VALUE
BETWEEN 1 AND"Y..A'..I.1.1000:.:......
> CLICK IMAGE PREVIEW FOR FULL MODAL