D-BASE-TB
FILE INFORMATION
FILENAME(S): D-BASE-TB
FILE TYPE(S): PRG
FILE SIZE: 14.6K
FIRST SEEN: 2025-11-30 21:24:56
APPEARS ON: 1 disk(s)
FILE HASH
c6c7d32a8e6dd71d9756154c56646b5380e4d81b1cd9922eeed6d2ee3a93b5b0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| JAN CUPPEN | D-BASE-TB | PRG | DuncanTwain | 10 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 33 08 01 00 97 35 33 32 38 30 2C 32 3A 97 |..3....53280,2:.|
00000010: 35 33 32 38 31 2C 32 3A 99 20 22 9E 22 3A 8B 4E |53281,2:. ".":.N|
00000020: B2 30 A7 4E B2 31 3A 93 22 53 4F 52 54 32 22 2C |.0.N.1:."SORT2",|
00000030: 38 2C 31 00 67 08 02 00 8F 2A 2A 44 46 4D 20 42 |8,1.g....**DFM B|
00000040: 59 20 43 48 52 49 53 20 45 4C 59 2A 44 49 41 4C |Y CHRIS ELY*DIAL|
00000050: 4F 47 20 53 4F 46 54 57 41 52 45 28 43 29 20 31 |OG SOFTWARE(C) 1|
00000060: 35 2E 30 31 2E 38 33 00 9A 08 03 00 58 B2 30 3A |5.01.83.....X.0:|
00000070: 59 B2 30 3A 52 B2 30 3A 43 B2 30 3A 49 50 24 B2 |Y.0:R.0:C.0:IP$.|
00000080: 22 22 3A 4B 24 B2 22 22 3A 45 4D 24 B2 22 22 3A |"":K$."":EM$."":|
00000090: 4E 24 B2 22 22 3A 8D 34 31 32 00 B1 08 04 00 41 |N$."":.412.....A|
000000A0: 24 28 52 2C 43 29 B2 22 22 3A 46 B2 30 3A 53 B2 |$(R,C)."":F.0:S.|
000000B0: 30 00 BD 08 05 00 99 C7 28 31 34 37 29 00 C6 08 |0.......(147)...|
000000C0: 06 00 8D 33 34 33 00 F7 08 07 00 99 22 11 11 11 |...343......"...|
000000D0: 20 20 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 12 | DO YOU WANT .|
000000E0: 55 92 50 50 45 52 20 4F 52 20 12 4C 92 4F 57 45 |U.PPER OR .L.OWE|
000000F0: 52 20 43 41 53 45 22 00 08 09 08 00 A1 4B 24 3A |R CASE"......K$:|
00000100: 8B 4B 24 B2 22 22 A7 38 00 20 09 09 00 8B 4B 24 |.K$."".8. ....K$|
00000110: B2 22 55 22 A7 99 C7 28 31 34 32 29 3A 89 31 32 |."U"...(142):.12|
00000120: 00 37 09 0A 00 8B 4B 24 B2 22 4C 22 A7 99 C7 28 |.7....K$."L"...(|
00000130: 31 34 29 3A 89 31 32 00 3E 09 0B 00 89 38 00 4F |14):.12.>....8.O|
00000140: 09 0C 00 99 C7 28 31 34 37 29 3A 8D 33 34 33 00 |.....(147):.343.|
00000150: 5F 09 0D 00 99 3A 8B 4E 24 B2 22 22 A7 31 37 00 |_....:.N$."".17.|
00000160: 6A 09 0E 00 4E 4C 24 B2 4E 24 00 88 09 0F 00 8B |j...NL$.N$......|
00000170: C3 28 4E 4C 24 29 B3 39 A7 4E 4C 24 B2 4E 4C 24 |.(NL$).9.NL$.NL$|
00000180: AA 22 20 22 3A 89 31 35 00 B3 09 10 00 99 3A 99 |." ":.15......:.|
00000190: 3A 99 A3 38 29 22 12 46 49 4C 45 20 49 4E 20 55 |:..8)".FILE IN U|
000001A0: 53 45 3A 20 22 3B 4E 4C 24 3B 22 92 22 3A 99 3A |SE: ";NL$;".":.:|
000001B0: 99 3A 99 00 CE 09 11 00 99 A3 31 34 29 22 4B 45 |.:........14)"KE|
000001C0: 59 20 4F 50 54 49 4F 4E 22 3A 8D 32 36 33 00 FA |Y OPTION":.263..|
000001D0: 09 12 00 99 22 31 20 43 52 45 41 54 45 20 4E 45 |...."1 CREATE NE|
000001E0: 57 20 46 49 4C 45 22 A3 32 30 29 22 32 20 52 45 |W FILE".20)"2 RE|
000001F0: 4E 41 4D 45 20 46 49 4C 45 22 00 1F 0A 13 00 99 |NAME FILE"......|
00000200: 22 33 20 41 43 43 45 53 53 20 52 45 43 4F 52 44 |"3 ACCESS RECORD|
00000210: 22 A3 32 30 29 22 34 20 53 45 4C 45 43 54 22 00 |".20)"4 SELECT".|
00000220: 4B 0A 14 00 99 22 35 20 4C 4F 41 44 2F 53 41 56 |K...."5 LOAD/SAV|
00000230: 45 20 46 49 4C 45 22 A3 32 30 29 22 36 20 52 45 |E FILE".20)"6 RE|
00000240: 50 4F 52 54 20 57 52 49 54 45 52 00 71 0A 15 00 |PORT WRITER.q...|
00000250: 99 22 37 20 53 4F 52 54 20 46 49 4C 45 22 A3 32 |."7 SORT FILE".2|
00000260: 30 29 22 38 20 55 54 49 4C 49 54 49 45 53 22 3A |0)"8 UTILITIES":|
00000270: 99 00 90 0A 16 00 99 A3 31 31 29 22 39 20 45 58 |........11)"9 EX|
00000280: 49 54 20 50 52 4F 47 52 41 4D 22 3A 8D 32 36 33 |IT PROGRAM":.263|
00000290: 00 A2 0A 17 00 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 |......K$:.K$."".|
000002A0: 32 33 00 CF 0A 18 00 4B 4B 24 B2 22 31 32 33 34 |23.....KK$."1234|
000002B0: 35 36 37 38 39 22 3A 81 4B B2 31 A4 39 3A 8B 4B |56789":.K.1.9:.K|
000002C0: 24 B2 CA 28 4B 4B 24 2C 4B 2C 31 29 A7 32 36 00 |$..(KK$,K,1).26.|
000002D0: DA 0A 19 00 82 4B 3A 89 32 33 00 13 0B 1A 00 8B |.....K:.23......|
000002E0: 59 B2 30 AF 4B B3 B1 31 AF 4B B3 B1 35 AF 4B B3 |Y.0.K..1.K..5.K.|
000002F0: B1 38 AF 4B B3 B1 39 A7 99 22 12 4E 4F 20 46 49 |.8.K..9..".NO FI|
00000300: 4C 45 20 45 58 49 53 54 53 22 3A 8D 32 36 30 3A |LE EXISTS":.260:|
00000310: 89 31 32 00 3D 0B 1B 00 91 4B 89 31 32 38 2C 37 |.12.=....K.128,7|
00000320: 38 2C 31 30 30 2C 31 39 31 2C 32 36 34 2C 34 33 |8,100,191,264,43|
00000330: 32 2C 34 31 36 2C 33 35 30 2C 33 33 37 00 47 0B |2,416,350,337.G.|
00000340: 1C 00 8D 20 34 31 30 00 6F 0B 1D 00 99 22 44 4F |... 410.o...."DO|
00000350: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 12 43 92 | YOU WISH TO .C.|
00000360: 4F 4E 54 49 4E 55 45 20 53 45 41 52 43 48 22 00 |ONTINUE SEARCH".|
00000370: 8A 0B 1E 00 99 22 4F 52 20 52 45 54 55 52 4E 20 |....."OR RETURN |
00000380: 54 4F 20 12 4D 92 45 4E 55 22 00 9C 0B 1F 00 A1 |TO .M.ENU"......|
00000390: 4B 24 3A 8B 4B 24 B2 22 22 A7 33 31 00 B1 0B 20 |K$:.K$."".31... |
000003A0: 00 8B 4B 24 B2 22 43 22 A7 8D 34 31 30 3A 89 33 |..K$."C"..410:.3|
000003B0: 35 00 C0 0B 21 00 8B 4B 24 B2 22 4D 22 A7 31 32 |5...!..K$."M".12|
000003C0: 00 C8 0B 22 00 89 33 31 00 E1 0B 23 00 8D 34 39 |..."..31...#..49|
000003D0: 34 3A 43 4F B2 31 3A 4C 4E B2 32 31 3A 8D 34 39 |4:CO.1:LN.21:.49|
000003E0: 36 00 07 0C 24 00 99 22 53 45 41 52 43 48 20 46 |6...$.."SEARCH F|
000003F0: 4F 52 20 52 45 43 4F 52 44 20 42 59 20 4B 45 59 |OR RECORD BY KEY|
00000400: 20 46 49 45 4C 44 22 00 2D 0C 25 00 99 22 2D 2D | FIELD".-.%.."--|
00000410: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000420: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 4C 0C |------------".L.|
00000430: 26 00 99 22 45 4E 54 45 52 20 22 22 12 22 41 24 |&.."ENTER ""."A$|
00000440: 28 30 2C 31 29 22 92 22 22 3A 22 3B 00 59 0C 27 |(0,1)"."":";.Y.'|
00000450: 00 8D 32 35 33 3A 89 34 36 00 62 0C 28 00 8D 34 |..253:.46.b.(..4|
00000460: 39 34 00 76 0C 29 00 43 4F B2 31 3A 4C 4E B2 32 |94.v.).CO.1:LN.2|
00000470: 31 3A 8D 34 39 36 00 A0 0C 2A 00 99 22 54 48 45 |1:.496...*.."THE|
00000480: 52 45 20 41 52 45 20 22 59 22 20 52 45 43 4F 52 |RE ARE "Y" RECOR|
00000490: 44 53 20 49 4E 20 54 48 49 53 20 46 49 4C 45 22 |DS IN THIS FILE"|
000004A0: 00 C4 0C 2B 00 99 22 45 4E 54 45 52 20 52 45 43 |...+.."ENTER REC|
000004B0: 4F 52 44 20 4E 55 4D 42 45 52 20 3A 22 3B 3A 8D |ORD NUMBER :";:.|
000004C0: 20 32 35 33 00 FC 0C 2C 00 52 B2 C5 28 49 50 24 | 253...,.R..(IP$|
000004D0: 29 3A 8B 52 B2 30 B0 52 B1 59 A7 99 22 91 91 22 |):.R.0.R.Y..".."|
000004E0: 3A 8D 35 34 37 3A 99 22 91 22 53 24 3A 99 22 91 |:.547:."."S$:.".|
000004F0: 91 22 3A 8D 34 31 30 3A 20 89 34 32 00 05 0D 2D |.":.410: .42...-|
00000500: 00 89 31 30 31 00 10 0D 2E 00 4C 24 B2 49 50 24 |..101.....L$.IP$|
00000510: 00 1C 0D 2F 00 46 B2 C3 28 4C 24 29 00 27 0D 30 |.../.F..(L$).'.0|
00000520: 00 81 52 B2 31 A4 59 00 40 0D 31 00 8B 4C 24 B2 |..R.1.Y.@.1..L$.|
00000530: C8 28 41 24 28 52 2C 31 29 2C 46 29 A7 31 30 31 |.(A$(R,1),F).101|
00000540: 00 46 0D 32 00 82 00 4F 0D 33 00 8D 34 31 30 00 |.F.2...O.3..410.|
00000550: 6F 0D 34 00 99 22 12 4E 4F 20 53 55 43 48 20 52 |o.4..".NO SUCH R|
00000560: 45 43 4F 52 44 20 45 58 49 53 54 53 21 92 22 00 |ECORD EXISTS!.".|
00000570: 7F 0D 35 00 81 5A B2 31 A4 31 30 30 30 3A 82 00 |..5..Z.1.1000:..|
00000580: 87 0D 36 00 89 32 38 00 B4 0D 37 00 41 43 B2 30 |..6..28...7.AC.0|
00000590: 3A 20 99 22 57 48 49 43 48 20 4C 49 4E 45 20 44 |: ."WHICH LINE D|
000005A0: 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 41 4D |O YOU WISH TO AM|
000005B0: 45 4E 44 22 00 D2 0D 38 00 99 22 50 52 45 53 53 |END"...8.."PRESS|
000005C0: 20 31 20 54 4F 20 22 58 22 20 3A 22 3B 3A 8D 32 | 1 TO "X" :";:.2|
000005D0: 35 33 00 ED 0D 39 00 43 B2 C5 28 49 50 24 29 3A |53...9.C..(IP$):|
000005E0: 8B 43 B1 58 A7 8D 34 31 30 3A 89 35 35 00 F6 0D |.C.X..410:.55...|
000005F0: 3A 00 8D 34 31 30 00 2F 0E 3B 00 99 22 45 58 49 |:..410./.;.."EXI|
00000600: 53 54 49 4E 47 20 44 41 54 41 20 46 4F 52 20 22 |STING DATA FOR "|
00000610: 22 12 22 41 24 28 30 2C 43 29 22 92 22 22 20 3D |"."A$(0,C)"."" =|
00000620: 20 22 3A 99 20 22 12 22 41 24 28 52 2C 43 29 00 | ":. "."A$(R,C).|
00000630: 54 0E 3C 00 99 22 4E 45 57 20 44 41 54 41 20 22 |T.<.."NEW DATA "|
00000640: 3B 3A 99 22 5B 22 3B 3A 99 C8 28 53 24 2C 41 28 |;:."[";:..(S$,A(|
00000650: 43 29 29 3B 00 71 0E 3D 00 99 22 5D 22 3B 3A 99 |C));.q.=.."]";:.|
00000660: C8 28 54 24 2C 41 28 43 29 29 3B 3A 99 22 9D 22 |.(T$,A(C));:."."|
00000670: 3B 00 B1 0E 3E 00 8D 32 35 33 3A 8B 41 41 24 28 |;...>..253:.AA$(|
00000680: 43 29 B2 22 4E 22 A7 99 22 91 91 22 3A 8D 35 34 |C)."N".."..":.54|
00000690: 37 3A 8B 41 43 B2 31 A7 41 43 B2 30 3A 99 22 91 |7:.AC.1.AC.0:.".|
000006A0: 22 4C 33 24 3A 99 22 91 91 91 91 91 22 3A 89 35 |"L3$:.".....":.5|
000006B0: 39 00 DB 0E 3F 00 41 24 28 52 2C 43 29 B2 49 50 |9...?.A$(R,C).IP|
000006C0: 24 3A 99 3A 8B 41 24 28 52 2C 43 29 B2 22 22 A7 |$:.:.A$(R,C)."".|
000006D0: 41 24 28 52 2C 43 29 B2 22 2D 22 00 08 0F 40 00 |A$(R,C)."-"...@.|
000006E0: 8B C3 28 41 24 28 52 2C 43 29 29 B1 41 28 43 29 |..(A$(R,C)).A(C)|
000006F0: A7 41 24 28 52 2C 43 29 B2 C8 28 41 24 28 52 2C |.A$(R,C)..(A$(R,|
00000700: 43 29 2C 41 28 43 29 29 00 10 0F 41 00 43 B2 32 |C),A(C))...A.C.2|
00000710: 00 19 0F 42 00 89 31 30 31 00 22 0F 43 00 8D 32 |...B..101.".C..2|
00000720: 36 33 00 49 0F 44 00 99 22 57 48 49 43 48 20 4C |63.I.D.."WHICH L|
00000730: 49 4E 45 20 44 4F 20 59 4F 55 20 57 49 53 48 20 |INE DO YOU WISH |
00000740: 54 4F 20 41 4D 45 4E 44 22 00 68 0F 45 00 99 22 |TO AMEND".h.E.."|
00000750: 50 52 45 53 53 20 31 20 54 4F 20 22 58 22 20 3A |PRESS 1 TO "X" :|
00000760: 22 3B 3A 8D 32 35 33 3B 00 83 0F 46 00 43 B2 C5 |";:.253;...F.C..|
00000770: 28 49 50 24 29 3A 8B 43 B1 58 A7 8D 34 31 30 3A |(IP$):.C.X..410:|
00000780: 89 36 38 00 8C 0F 47 00 8D 34 31 30 00 9C 0F 48 |.68...G..410...H|
00000790: 00 99 22 12 22 41 24 28 30 2C 43 29 00 DC 0F 49 |.."."A$(0,C)...I|
000007A0: 00 99 22 45 4E 54 45 52 20 43 4F 52 52 45 43 54 |.."ENTER CORRECT|
000007B0: 20 46 49 45 4C 44 20 48 45 41 44 49 4E 47 20 5B | FIELD HEADING [|
000007C0: 20 20 20 20 20 20 20 20 20 5D 9D 9D 9D 9D 9D 9D | ]......|
000007D0: 9D 9D 9D 9D 22 3B 3A 8D 20 32 35 33 00 EE 0F 4A |....";:. 253...J|
000007E0: 00 41 24 28 30 2C 43 29 B2 49 50 24 3A 99 00 18 |.A$(0,C).IP$:...|
000007F0: 10 4B 00 8B C3 28 41 24 28 30 2C 43 29 29 B3 39 |.K...(A$(0,C)).9|
00000800: A7 41 24 28 30 2C 43 29 B2 41 24 28 30 2C 43 29 |.A$(0,C).A$(0,C)|
00000810: AA 22 20 22 3A 89 37 35 00 3F 10 4C 00 8B C3 28 |." ":.75.?.L...(|
00000820: 41 24 28 30 2C 43 29 29 B1 39 A7 41 24 28 30 2C |A$(0,C)).9.A$(0,|
00000830: 43 29 B2 C8 28 41 24 28 30 2C 43 29 2C 39 29 00 |C)..(A$(0,C),9).|
00000840: 48 10 4D 00 89 31 30 31 00 7A 10 4E 00 99 22 45 |H.M..101.z.N.."E|
00000850: 4E 54 45 52 20 4E 45 57 20 46 49 4C 45 20 4E 41 |NTER NEW FILE NA|
00000860: 4D 45 20 5B 20 20 20 20 20 20 20 20 20 5D 9D 9D |ME [ ]..|
00000870: 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 00 8E 10 4F 00 8D |........";...O..|
00000880: 32 35 33 3A 4E 24 B2 49 50 24 3A 89 31 32 00 C1 |253:N$.IP$:.12..|
00000890: 10 50 00 8D 34 39 34 3A 43 4F B2 31 3A 4C 4E B2 |.P..494:CO.1:LN.|
000008A0: 32 31 3A 8D 34 39 36 3A 99 22 44 4F 20 59 4F 55 |21:.496:."DO YOU|
000008B0: 20 57 49 53 48 20 54 4F 20 41 4D 45 4E 44 3A 2D | WISH TO AMEND:-|
000008C0: 22 00 E2 10 51 00 99 22 46 49 45 4C 44 20 12 48 |"...Q.."FIELD .H|
000008D0: 92 45 41 44 49 4E 47 20 4F 52 20 12 44 92 41 54 |.EADING OR .D.AT|
000008E0: 41 22 00 F4 10 52 00 A1 4B 24 3A 8B 4B 24 B2 22 |A"...R..K$:.K$."|
000008F0: 22 A7 38 32 00 09 11 53 00 8B 4B 24 B2 22 48 22 |".82...S..K$."H"|
00000900: A7 8D 34 31 30 3A 89 36 38 00 1E 11 54 00 8B 4B |..410:.68...T..K|
00000910: 24 B2 22 44 22 A7 8D 34 31 30 3A 89 35 35 00 26 |$."D"..410:.55.&|
00000920: 11 55 00 89 38 32 00 48 11 56 00 99 C7 28 31 34 |.U..82.H.V...(14|
00000930: 37 29 3B 3A 52 53 B2 52 3A 81 52 B2 52 53 A4 59 |7);:RS.R:.R.RS.Y|
00000940: 3A 99 C7 28 31 39 29 3B 00 7B 11 57 00 99 22 12 |:..(19);.{.W..".|
00000950: 20 52 45 43 4F 52 44 53 20 57 49 4C 4C 20 44 49 | RECORDS WILL DI|
00000960: 53 50 4C 41 59 20 49 4E 20 4C 4F 47 49 43 41 4C |SPLAY IN LOGICAL|
00000970: 20 4F 52 44 45 52 20 92 22 3A 99 00 BD 11 58 00 | ORDER .":....X.|
00000980: 43 4F B2 31 3A 4C 4E B2 32 34 3A 8D 34 39 36 3A |CO.1:LN.24:.496:|
00000990: 99 22 12 43 92 4F 4E 54 49 4E 55 45 20 53 43 52 |.".C.ONTINUE SCR|
000009A0: 4F 4C 4C 3A 20 20 12 53 92 54 4F 50 20 53 43 52 |OLL: .S.TOP SCR|
000009B0: 4F 4C 4C 3A 20 20 12 45 92 58 49 54 3A 00 EA 11 |OLL: .E.XIT:...|
000009C0: 59 00 43 4F B2 31 3A 4C 4E B2 33 3A 8D 34 39 36 |Y.CO.1:LN.3:.496|
000009D0: 3A 99 22 52 45 43 4F 52 44 20 4E 4F 3A 20 22 3B |:."RECORD NO: ";|
000009E0: 52 3A 99 3A 81 43 B2 31 A4 58 00 16 12 5A 00 99 |R:.:.C.1.X...Z..|
000009F0: 22 12 22 41 24 28 30 2C 43 29 22 92 22 3B 3A 51 |"."A$(0,C)".";:Q|
00000A00: B2 C3 28 41 24 28 52 2C 43 29 29 3A 8B 51 B1 32 |..(A$(R,C)):.Q.2|
00000A10: 36 A7 51 B2 32 36 00 38 12 5B 00 99 A3 31 32 29 |6.Q.26.8.[...12)|
00000A20: C8 28 41 24 28 52 2C 43 29 2C 32 36 29 AA C8 28 |.(A$(R,C),26)..(|
00000A30: 53 24 2C 32 36 AB 51 29 00 43 12 5C 00 8B 43 B2 |S$,26.Q).C.\..C.|
00000A40: 31 A7 99 00 52 12 5D 00 8B 52 4E B3 B1 30 A7 35 |1...R.]..RN..0.5|
00000A50: 30 35 00 59 12 5E 00 82 43 00 72 12 5F 00 4B 24 |05.Y.^..C.r._.K$|
00000A60: B2 22 22 3A A1 4B 24 3A 8B 4B 24 B2 22 53 22 A7 |."":.K$:.K$."S".|
00000A70: 39 38 00 8E 12 60 00 8B 4B 24 B3 B1 22 45 22 A7 |98...`..K$.."E".|
00000A80: 81 49 B2 31 A4 35 30 30 3A 82 49 3A 82 52 00 97 |.I.1.500:.I:.R..|
00000A90: 12 61 00 89 31 30 31 00 B9 12 62 00 4B 24 B2 22 |.a..101...b.K$."|
00000AA0: 22 3A A1 4B 24 3A 8B 4B 24 B3 B1 22 43 22 AF 4B |":.K$:.K$.."C".K|
00000AB0: 24 B3 B1 22 45 22 A7 39 38 00 C1 12 63 00 89 39 |$.."E".98...c..9|
00000AC0: 36 00 C9 12 64 00 52 B2 31 00 D1 12 65 00 41 B2 |6...d.R.1...e.A.|
00000AD0: 31 00 DE 12 66 00 8B 52 B2 30 A7 52 B2 31 00 F1 |1...f..R.0.R.1..|
00000AE0: 12 67 00 8B 52 B1 59 A7 52 B2 52 AB 31 3A 52 B2 |.g..R.Y.R.R.1:R.|
00000AF0: 59 00 FE 12 68 00 8B 41 B2 30 A7 41 B2 31 00 0E |Y...h..A.0.A.1..|
00000B00: 13 69 00 8B 41 B1 32 35 A7 41 B2 41 AB 31 00 39 |.i..A.25.A.A.1.9|
00000B10: 13 6A 00 99 C7 28 31 34 37 29 3A 99 22 12 22 3B |.j...(147):.".";|
00000B20: 4E 24 A3 31 39 29 22 52 45 43 4F 52 44 20 4E 4F |N$.19)"RECORD NO|
00000B30: 22 3B 52 3A 8D 20 32 36 33 00 44 13 6B 00 81 43 |";R:. 263.D.k..C|
00000B40: B2 31 A4 58 00 50 13 6C 00 47 47 B2 41 28 43 29 |.1.X.P.l.GG.A(C)|
00000B50: 00 61 13 6D 00 8B 47 47 B1 32 34 A7 47 47 B2 32 |.a.m..GG.24.GG.2|
00000B60: 34 00 72 13 6E 00 99 22 12 22 C4 28 43 29 22 92 |4.r.n..".".(C)".|
00000B70: 22 3B 00 A0 13 6F 00 99 A3 34 29 22 12 22 C8 28 |";...o...4)".".(|
00000B80: 41 24 28 30 2C 43 29 2C 39 29 22 92 22 A3 31 35 |A$(0,C),9)".".15|
00000B90: 29 CA 28 41 24 28 52 2C 43 29 2C 41 2C 47 47 29 |).(A$(R,C),A,GG)|
00000BA0: 00 AE 13 70 00 8B 43 B2 31 A7 8D 32 36 33 00 B4 |...p..C.1..263..|
00000BB0: 13 71 00 82 00 CD 13 72 00 43 4F B2 31 3A 4C 4E |.q.....r.CO.1:LN|
00000BC0: B2 32 30 3A 8D 34 39 36 3A 99 4C 33 24 00 F9 13 |.20:.496:.L3$...|
00000BD0: 73 00 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |s.." |
00000BE0: 20 12 2A 2A 4F 50 54 49 4F 4E 53 2A 2A 92 20 20 | .**OPTIONS**. |
00000BF0: 20 20 20 20 20 20 20 20 22 00 33 14 74 00 99 22 | ".3.t.."|
00000C00: 50 52 45 53 53 20 3A 20 12 4E 92 45 58 54 20 12 |PRESS : .N.EXT .|
00000C10: 4C 92 41 53 54 20 12 46 92 49 4E 44 20 12 47 92 |L.AST .F.IND .G.|
00000C20: 4F 54 4F 20 12 41 92 4D 45 4E 44 20 12 4D 92 45 |OTO .A.MEND .M.E|
00000C30: 4E 55 22 00 6B 14 75 00 99 22 12 43 92 41 4C 43 |NU".k.u..".C.ALC|
00000C40: 53 20 12 49 92 4E 50 55 54 20 12 44 92 45 4C 45 |S .I.NPUT .D.ELE|
00000C50: 54 45 20 12 50 92 52 49 4E 54 20 12 53 92 43 52 |TE .P.RINT .S.CR|
00000C60: 4F 4C 4C 20 12 3C 92 20 12 3E 22 00 74 14 76 00 |OLL .<. .>".t.v.|
00000C70: 99 4C 33 24 00 87 14 77 00 A1 4B 24 3A 8B 4B 24 |.L3$...w..K$:.K$|
00000C80: B2 22 22 A7 31 31 39 00 BA 14 78 00 4B 4B 24 B2 |."".119...x.KK$.|
00000C90: 22 4E 4C 4D 49 47 46 53 3E 3C 41 50 43 44 22 3A |"NLMIGFS><APCD":|
00000CA0: 81 4B B2 31 A4 31 33 3A 8B 4B 24 B2 CA 28 4B 4B |.K.1.13:.K$..(KK|
00000CB0: 24 2C 4B 2C 31 29 A7 31 32 32 00 C6 14 79 00 82 |$,K,1).122...y..|
00000CC0: 4B 3A 89 31 31 39 00 FC 14 7A 00 91 4B 89 31 32 |K:.119...z..K.12|
00000CD0: 33 2C 31 32 34 2C 31 32 2C 31 32 35 2C 34 30 2C |3,124,12,125,40,|
00000CE0: 33 35 2C 38 36 2C 31 32 36 2C 31 32 37 2C 38 30 |35,86,126,127,80|
00000CF0: 2C 33 36 33 2C 33 37 32 2C 34 38 33 00 0C 15 7B |,363,372,483...{|
00000D00: 00 52 B2 52 AA 31 3A 89 20 31 30 31 00 1C 15 7C |.R.R.1:. 101...||
00000D10: 00 52 B2 52 AB 31 3A 89 20 31 30 31 00 2E 15 7D |.R.R.1:. 101...}|
00000D20: 00 46 B2 31 3A 54 56 B2 52 3A 89 31 37 32 00 3D |.F.1:TV.R:.172.=|
00000D30: 15 7E 00 41 B2 41 AA 31 3A 89 31 30 32 00 4C 15 |.~.A.A.1:.102.L.|
00000D40: 7F 00 41 B2 41 AB 31 3A 89 31 30 32 00 83 15 80 |..A.A.1:.102....|
00000D50: 00 99 C7 28 31 34 37 29 3A 99 3A 99 22 12 2A 2A |...(147):.:.".**|
00000D60: 57 41 52 4E 49 4E 47 2A 2A 20 54 48 49 53 20 57 |WARNING** THIS W|
00000D70: 49 4C 4C 20 45 52 41 53 45 20 41 4E 59 20 46 49 |ILL ERASE ANY FI|
00000D80: 4C 45 22 00 A8 15 81 00 99 22 12 43 55 52 52 45 |LE"......".CURRE|
00000D90: 4E 54 4C 59 20 49 4E 20 4D 45 4D 4F 52 59 92 22 |NTLY IN MEMORY."|
00000DA0: 3A 99 3A 99 3A 99 3A 99 00 CC 15 82 00 99 A3 38 |:.:.:.:........8|
00000DB0: 29 20 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |) ".............|
00000DC0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 EE 15 83 |..........."....|
00000DD0: 00 99 A3 38 29 22 50 52 45 53 53 20 12 59 92 45 |...8)"PRESS .Y.E|
00000DE0: 53 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 0C |S TO CONTINUE"..|
00000DF0: 16 84 00 99 A3 38 29 22 20 20 20 20 20 20 12 4E |.....8)" .N|
00000E00: 92 4F 20 46 4F 52 20 4D 45 4E 55 22 00 30 16 85 |.O FOR MENU".0..|
00000E10: 00 99 A3 38 29 20 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 |...8) ".........|
00000E20: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 |..............."|
00000E30: 00 39 16 86 00 8D 35 31 32 00 48 16 87 00 8B 4B |.9....512.H....K|
00000E40: 24 B2 22 4E 22 A7 31 32 00 59 16 88 00 8B 4B 24 |$."N".12.Y....K$|
00000E50: B2 22 59 22 A7 20 31 33 37 00 6C 16 89 00 99 C7 |."Y". 137.l.....|
00000E60: 28 31 34 37 29 3A 9C 3A 8D 34 31 32 00 A3 16 8A |(147):.:.412....|
00000E70: 00 99 22 4B 45 59 20 44 41 54 45 20 45 47 2E 28 |.."KEY DATE EG.(|
00000E80: 32 38 2E 31 32 2E 38 32 29 5B 20 20 20 20 20 20 |28.12.82)[ |
00000E90: 20 20 5D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 3A 8D | ].........";:.|
00000EA0: 32 35 33 00 B3 16 8B 00 8B 49 50 24 B2 22 22 A7 |253......IP$."".|
00000EB0: 31 34 31 00 DE 16 8C 00 8D 35 34 37 3A 8B 41 43 |141......547:.AC|
00000EC0: B2 31 A7 41 43 B2 30 3A 99 22 91 22 53 24 22 91 |.1.AC.0:."."S$".|
00000ED0: 22 3A 99 22 91 91 91 91 22 3A 89 31 33 38 00 F6 |":."....":.138..|
00000EE0: 16 8D 00 4D 24 B2 C8 28 49 50 24 2C 38 29 3A 99 |...M$..(IP$,8):.|
00000EF0: C7 28 31 34 37 29 00 13 17 8E 00 99 A3 31 32 29 |.(147).......12)|
00000F00: 22 12 43 52 45 41 54 45 20 52 45 43 4F 52 44 92 |".CREATE RECORD.|
00000F10: 22 3A 99 00 1C 17 8F 00 8D 32 36 33 00 4F 17 90 |":.......263.O..|
00000F20: 00 99 22 57 48 41 54 20 49 53 20 54 48 45 20 46 |.."WHAT IS THE F|
00000F30: 49 4C 45 20 4E 41 4D 45 20 3F 5B 20 20 20 20 20 |ILE NAME ?[ |
00000F40: 20 20 20 5D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 00 | ].........";.|
00000F50: 58 17 91 00 8D 32 35 33 00 6A 17 92 00 4E 24 B2 |X....253.j...N$.|
00000F60: C8 28 49 50 24 2C 38 29 3A 99 00 74 17 93 00 8D |.(IP$,8):..t....|
00000F70: 20 32 36 33 00 AB 17 94 00 99 22 48 4F 57 20 4D | 263......"HOW M|
00000F80: 41 4E 59 20 46 49 45 4C 44 53 20 49 4E 20 45 41 |ANY FIELDS IN EA|
00000F90: 43 48 20 52 45 43 4F 52 44 20 3F 20 5B 20 20 5D |CH RECORD ? [ ]|
00000FA0: 9D 9D 9D 22 3B 3A 8D 20 32 35 33 00 BF 17 95 00 |...";:. 253.....|
00000FB0: 58 B2 C5 28 C8 28 49 50 24 2C 32 29 29 3A 99 00 |X..(.(IP$,2)):..|
00000FC0: E5 17 96 00 8B 58 B3 31 B0 58 B1 31 35 A7 99 22 |.....X.1.X.15.."|
00000FD0: 12 4D 41 58 49 4D 55 4D 20 49 53 20 31 35 92 22 |.MAXIMUM IS 15."|
00000FE0: 3A 89 31 34 38 00 FA 17 97 00 8D 34 31 35 3A 99 |:.148......415:.|
00000FF0: C7 28 31 34 37 29 3A 43 B2 31 00 1E 18 98 00 99 |.(147):C.1......|
00001000: 22 12 54 48 49 53 20 46 49 4C 45 20 49 53 20 4E |".THIS FILE IS N|
00001010: 41 4D 45 44 20 22 3B 4E 24 3A 8D 32 36 33 00 4F |AMED ";N$:.263.O|
00001020: 18 99 00 99 22 4E 4F 54 45 20 54 48 41 54 20 46 |...."NOTE THAT F|
00001030: 49 45 4C 44 20 31 20 49 53 20 54 48 45 20 12 20 |IELD 1 IS THE . |
00001040: 4B 45 59 20 46 49 45 4C 44 20 92 A0 22 3A 99 00 |KEY FIELD ..":..|
00001050: 58 18 9A 00 8D 32 36 33 00 93 18 9B 00 99 22 53 |X....263......"S|
00001060: 54 41 54 45 20 12 20 54 49 54 4C 45 20 92 20 4F |TATE . TITLE . O|
00001070: 46 20 46 49 45 4C 44 22 43 22 20 20 5B 20 20 20 |F FIELD"C" [ |
00001080: 20 20 20 20 20 20 5D 9D 9D 9D 9D 9D 9D 9D 9D 9D | ].........|
00001090: 9D 22 3B 00 9E 18 9C 00 8D 32 35 33 3A 99 00 B3 |.";......253:...|
000010A0: 18 9D 00 41 24 28 30 2C 43 29 B2 C8 28 49 50 24 |...A$(0,C)..(IP$|
000010B0: 2C 39 29 00 DE 18 9E 00 8B C3 28 41 24 28 30 2C |,9).......(A$(0,|
000010C0: 43 29 29 B3 39 A7 41 24 28 30 2C 43 29 B2 41 24 |C)).9.A$(0,C).A$|
000010D0: 28 30 2C 43 29 AA 22 20 22 3A 89 31 35 38 00 16 |(0,C)." ":.158..|
000010E0: 19 9F 00 99 22 45 4E 54 45 52 20 12 43 92 48 41 |...."ENTER .C.HA|
000010F0: 52 41 43 54 45 52 20 4F 52 20 12 4E 92 55 4D 45 |RACTER OR .N.UME|
00001100: 52 49 43 20 46 49 45 4C 44 20 5B 20 5D 9D 9D 22 |RIC FIELD [ ].."|
00001110: 3B 3A 8D 32 35 33 00 2C 19 A0 00 41 41 24 28 43 |;:.253.,...AA$(C|
00001120: 29 B2 C8 28 49 50 24 2C 31 29 3A 99 00 40 19 A1 |)..(IP$,1):..@..|
00001130: 00 8B 41 41 24 28 43 29 B2 22 4E 22 A7 31 36 34 |..AA$(C)."N".164|
00001140: 00 54 19 A2 00 8B 41 41 24 28 43 29 B2 22 43 22 |.T....AA$(C)."C"|
00001150: A7 31 36 36 00 62 19 A3 00 8D 34 31 30 3A 89 31 |.166.b....410:.1|
00001160: 35 39 00 6F 19 A4 00 41 28 43 29 B2 39 3A 99 00 |59.o...A(C).9:..|
00001170: 78 19 A5 00 89 31 37 30 00 A5 19 A6 00 99 22 45 |x....170......"E|
00001180: 4E 54 45 52 20 4E 55 4D 42 45 52 20 4F 46 20 43 |NTER NUMBER OF C|
00001190: 48 41 52 41 43 54 45 52 53 20 46 4F 52 20 52 45 |HARACTERS FOR RE|
000011A0: 43 4F 52 44 22 00 CC 19 A7 00 99 22 4D 41 58 2E |CORD"......"MAX.|
000011B0: 33 36 20 43 48 41 52 41 43 54 45 52 53 20 5B 20 |36 CHARACTERS [ |
000011C0: 20 5D 9D 9D 9D 22 3B 3A 8D 32 35 33 00 DE 19 A8 | ]...";:.253....|
000011D0: 00 41 28 43 29 B2 C5 28 49 50 24 29 3A 99 00 FB |.A(C)..(IP$):...|
000011E0: 19 A9 00 8B 41 28 43 29 B1 33 36 A7 99 22 91 91 |....A(C).36.."..|
000011F0: 22 3A 8D 34 31 30 3A 89 31 36 36 00 08 1A AA 00 |":.410:.166.....|
00001200: 8B 43 B2 58 A7 31 37 32 00 1C 1A AB 00 43 B2 43 |.C.X.172.....C.C|
00001210: AA 31 3A 99 22 93 22 3A 89 31 35 32 00 3B 1A AC |.1:.".":.152.;..|
00001220: 00 8B 46 B2 31 A7 52 B2 59 AA 31 3A 59 B2 59 AA |..F.1.R.Y.1:Y.Y.|
00001230: 31 3A 8D 36 30 30 3A 89 31 37 34 00 47 1A AD 00 |1:.600:.174.G...|
00001240: 52 B2 31 3A 59 B2 31 00 56 1A AE 00 8B 52 B1 36 |R.1:Y.1.V....R.6|
00001250: 30 30 A7 35 33 33 00 88 1A AF 00 99 C7 28 31 34 |00.533.......(14|
00001260: 37 29 3A 41 43 B2 30 3A 20 99 A3 31 32 29 22 12 |7):AC.0: ..12)".|
00001270: 52 45 43 4F 52 44 20 4E 55 4D 42 45 52 22 3B 52 |RECORD NUMBER";R|
00001280: 22 92 22 3A 8D 32 36 33 00 B7 1A B0 00 99 A3 33 |".":.263.......3|
00001290: 29 22 54 4F 20 54 45 52 4D 49 4E 41 54 45 20 44 |)"TO TERMINATE D|
000012A0: 41 54 41 20 45 4E 54 52 59 20 54 59 50 45 20 27 |ATA ENTRY TYPE '|
000012B0: 45 4E 44 27 22 3A 99 00 C2 1A B1 00 8D 32 36 33 |END'":.......263|
000012C0: 3A 99 00 CD 1A B2 00 81 43 B2 31 A4 58 00 F3 1A |:.......C.1.X...|
000012D0: B3 00 99 22 4B 45 59 20 22 41 24 28 30 2C 43 29 |..."KEY "A$(0,C)|
000012E0: 3A 99 22 5B 22 3B 3A 99 C8 28 53 24 2C 41 28 43 |:."[";:..(S$,A(C|
000012F0: 29 29 3B 00 15 1B B4 00 99 22 5D 22 3B 3A 99 C8 |));......"]";:..|
00001300: 28 54 24 2C 41 28 43 29 29 3B 3A 99 22 9D 22 3B |(T$,A(C));:.".";|
00001310: 3A 8D 32 35 33 00 3A 1B B5 00 8B 49 50 24 B2 22 |:.253.:....IP$."|
00001320: 45 4E 44 22 AF 20 46 B2 30 20 A7 20 52 B2 31 3A |END". F.0 . R.1:|
00001330: 59 B2 59 AB 31 3A 89 20 31 32 00 5D 1B B6 00 8B |Y.Y.1:. 12.]....|
00001340: 49 50 24 B2 22 3D 22 A7 41 24 28 52 2C 43 29 B2 |IP$."=".A$(R,C).|
00001350: 41 24 28 54 56 2C 43 29 3A 89 31 38 37 00 8A 1B |A$(TV,C):.187...|
00001360: B7 00 89 36 30 35 3A 8B 49 50 24 B2 22 45 4E 44 |...605:.IP$."END|
00001370: 22 AF 46 B2 31 A7 46 B2 30 3A 52 B2 52 AB 31 3A |".F.1.F.0:R.R.1:|
00001380: 59 B2 59 AB 31 3A 89 31 30 31 00 C4 1B B8 00 8B |Y.Y.1:.101......|
00001390: 41 41 24 28 43 29 B2 22 4E 22 A7 8D 35 34 37 3A |AA$(C)."N"..547:|
000013A0: 8B 41 43 B2 31 A7 41 43 B2 30 3A 99 22 91 22 53 |.AC.1.AC.0:."."S|
000013B0: 24 3A 99 22 91 22 3A 99 22 91 91 91 91 91 22 3A |$:.".":.".....":|
000013C0: 89 31 37 39 00 DE 1B B9 00 41 24 28 52 2C 43 29 |.179.....A$(R,C)|
000013D0: B2 C8 28 49 50 24 2C 41 28 43 29 29 3A 99 00 FA |..(IP$,A(C)):...|
000013E0: 1B BA 00 8B 41 24 28 52 2C 43 29 B2 22 22 A7 41 |....A$(R,C)."".A|
000013F0: 24 28 52 2C 43 29 B2 22 2D 22 00 03 1C BB 00 8D |$(R,C)."-"......|
00001400: 32 36 33 00 09 1C BC 00 82 00 1B 1C BD 00 8B 46 |263............F|
00001410: B2 31 A7 46 B2 30 3A 89 31 30 31 00 31 1C BE 00 |.1.F.0:.101.1...|
00001420: 52 B2 52 AA 31 3A 59 B2 59 AA 31 3A 89 20 31 37 |R.R.1:Y.Y.1:. 17|
00001430: 34 00 5E 1C BF 00 99 C7 28 31 34 37 29 3A 99 A3 |4.^.....(147):..|
00001440: 31 35 29 22 12 2A 2A 53 45 4C 45 43 54 2A 2A 22 |15)".**SELECT**"|
00001450: 3A 8D 32 36 33 3A 45 B2 30 3A 52 43 B2 30 00 A4 |:.263:E.0:RC.0..|
00001460: 1C C0 00 99 22 44 4F 20 59 4F 55 20 57 41 4E 54 |...."DO YOU WANT|
00001470: 20 54 4F 20 4F 55 54 50 55 54 20 52 45 53 55 4C | TO OUTPUT RESUL|
00001480: 54 53 20 54 4F 22 3A 99 22 50 52 49 4E 54 45 52 |TS TO":."PRINTER|
00001490: 3A 20 4B 45 59 20 12 59 92 45 53 20 4F 52 20 12 |: KEY .Y.ES OR .|
000014A0: 4E 92 4F 22 00 AD 1C C1 00 8D 32 36 33 00 B6 1C |N.O"......263...|
000014B0: C2 00 8D 35 31 32 00 CC 1C C3 00 8B 4B 24 B2 22 |...512......K$."|
000014C0: 59 22 A7 50 52 B2 35 3A 89 31 39 37 00 E2 1C C4 |Y".PR.5:.197....|
000014D0: 00 8B 4B 24 B2 22 4E 22 A7 50 52 B2 30 3A 89 31 |..K$."N".PR.0:.1|
000014E0: 39 37 00 F2 1C C5 00 8B 50 52 B2 30 A7 54 54 B2 |97......PR.0.TT.|
000014F0: 31 35 00 FD 1C C6 00 81 52 B2 31 A4 59 00 3E 1D |15......R.1.Y.>.|
00001500: C7 00 8D 34 31 30 3A 99 22 91 45 4E 54 45 52 20 |...410:.".ENTER |
00001510: 53 45 4C 45 43 54 45 44 20 12 46 49 45 4C 44 92 |SELECTED .FIELD.|
00001520: 20 5B 20 20 20 20 20 20 20 20 20 5D 9D 9D 9D 9D | [ ]....|
00001530: 9D 9D 9D 9D 9D 9D 22 3B 3A 8D 32 35 33 3B 00 4C |......";:.253;.L|
00001540: 1D C8 00 44 50 24 B2 49 50 24 3A 99 00 6B 1D C9 |...DP$.IP$:..k..|
00001550: 00 8B C3 28 44 50 24 29 B3 39 A7 44 50 24 B2 44 |...(DP$).9.DP$.D|
00001560: 50 24 AA 22 20 22 3A 89 32 30 31 00 7A 1D CA 00 |P$." ":.201.z...|
00001570: 99 3A 8D 32 36 33 3A 43 B2 31 00 8F 1D CB 00 8B |.:.263:C.1......|
00001580: 41 24 28 30 2C 43 29 B2 44 50 24 A7 32 30 36 00 |A$(0,C).DP$.206.|
00001590: A4 1D CC 00 43 B2 43 AA 31 3A 8B 43 B3 58 AA 31 |....C.C.1:.C.X.1|
000015A0: A7 32 30 33 00 C6 1D CD 00 45 4D 24 B2 22 12 4E |.203.....EM$.".N|
000015B0: 4F 20 53 55 43 48 20 46 49 45 4C 44 22 3A 8D 32 |O SUCH FIELD":.2|
000015C0: 36 30 3A 89 31 32 00 DB 1D CE 00 99 22 45 4E 54 |60:.12......"ENT|
000015D0: 45 52 20 12 22 44 50 24 22 92 22 00 F2 1D CF 00 |ER ."DP$".".....|
000015E0: 99 22 5B 22 3B 3A 99 C8 28 53 24 2C 41 28 43 29 |."[";:..(S$,A(C)|
000015F0: 29 3B 00 0F 1E D0 00 99 22 5D 22 3B 3A 99 C8 28 |);......"]";:..(|
00001600: 54 24 2C 41 28 43 29 29 3B 3A 99 22 9D 22 3B 00 |T$,A(C));:.".";.|
00001610: 28 1E D1 00 8D 32 35 33 3A 43 50 24 B2 49 50 24 |(....253:CP$.IP$|
00001620: 3A 99 3A 8D 20 32 36 33 00 35 1E D2 00 46 B2 C3 |:.:. 263.5...F..|
00001630: 28 43 50 24 29 00 5A 1E D3 00 99 C7 28 31 34 37 |(CP$).Z.....(147|
00001640: 29 3A 99 3A 8D 20 32 36 33 3A 8B 41 41 24 28 43 |):.:. 263:.AA$(C|
00001650: 29 B3 B1 22 43 22 A7 32 31 34 00 83 1E D4 00 99 |).."C".214......|
00001660: 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 41 20 53 |"DO YOU WANT A S|
00001670: 54 41 4E 44 41 52 44 20 4F 52 20 53 4C 49 44 49 |TANDARD OR SLIDI|
00001680: 4E 47 22 00 C2 1E D5 00 99 22 53 54 52 49 4E 47 |NG"......"STRING|
00001690: 20 53 45 41 52 43 48 3A 20 45 4E 54 45 52 20 12 | SEARCH: ENTER .|
000016A0: 53 54 92 20 4F 52 20 12 53 53 92 20 5B 20 20 5D |ST. OR .SS. [ ]|
000016B0: 9D 9D 9D 22 3B 3A 8D 32 35 33 3A 53 54 24 B2 49 |...";:.253:ST$.I|
000016C0: 50 24 00 EB 1E D6 00 99 C7 28 31 34 37 29 3A 99 |P$.......(147):.|
000016D0: 3A 8D 20 32 36 33 3A 8B 41 41 24 28 43 29 B2 22 |:. 263:.AA$(C)."|
000016E0: 4E 22 A7 4A B2 31 3A 89 32 31 37 00 07 1F D7 00 |N".J.1:.217.....|
000016F0: 8B 53 54 24 B2 22 53 53 22 A7 53 53 B2 31 3A 49 |.ST$."SS".SS.1:I|
00001700: B2 31 3A 89 32 32 35 00 27 1F D8 00 8B 53 54 24 |.1:.225.'....ST$|
00001710: B2 22 53 54 22 A7 53 53 B2 30 3A 49 B2 31 3A 4A |."ST".SS.0:I.1:J|
00001720: B2 31 3A 89 32 32 35 00 45 1F D9 00 99 22 53 48 |.1:.225.E...."SH|
00001730: 4F 55 4C 44 20 12 20 22 44 50 24 22 20 92 20 42 |OULD . "DP$" . B|
00001740: 45 3A 22 3A 99 00 63 1F DA 00 99 A3 32 29 22 12 |E:":..c.....2)".|
00001750: 45 92 51 55 41 4C 20 54 4F 22 A3 31 35 29 43 50 |E.QUAL TO".15)CP|
00001760: 24 3A 99 00 82 1F DB 00 99 A3 32 29 22 12 4C 92 |$:........2)".L.|
00001770: 45 53 53 20 54 48 41 4E 22 A3 31 35 29 43 50 24 |ESS THAN".15)CP$|
00001780: 3A 99 00 A4 1F DC 00 99 A3 32 29 22 12 47 92 52 |:........2)".G.R|
00001790: 45 41 54 45 52 20 54 48 41 4E 22 A3 31 35 29 43 |EATER THAN".15)C|
000017A0: 50 24 3A 99 00 B7 1F DD 00 A1 4B 24 3A 8B 4B 24 |P$:.......K$:.K$|
000017B0: B2 22 22 A7 32 32 31 00 DF 1F DE 00 4B 4B 24 B2 |."".221.....KK$.|
000017C0: 22 45 4C 47 22 3A 81 49 B2 31 A4 33 3A 8B 4B 24 |"ELG":.I.1.3:.K$|
000017D0: B2 CA 28 4B 4B 24 2C 49 2C 31 29 A7 32 32 34 00 |..(KK$,I,1).224.|
000017E0: EB 1F DF 00 82 49 3A 89 32 32 31 00 FD 1F E0 00 |.....I:.221.....|
000017F0: 99 C7 28 31 34 37 29 3A 8D 20 32 36 33 00 3B 20 |..(147):. 263.; |
00001800: E1 00 41 52 B2 32 34 3A 8B 50 52 B2 35 A7 8D 35 |..AR.24:.PR.5..5|
00001810: 31 34 3A 99 22 13 22 A3 31 34 29 22 12 2A 2A 50 |14:.".".14)".**P|
00001820: 52 49 4E 54 49 4E 47 2A 2A 92 22 3A 41 52 B2 41 |RINTING**.":AR.A|
00001830: 28 31 29 3A 9F 34 2C 34 3A 9D 34 00 68 20 E2 00 |(1):.4,4:.4.h ..|
00001840: 99 22 46 49 4C 45 20 4E 41 4D 45 20 3A 20 22 4E |."FILE NAME : "N|
00001850: 24 3A 99 3A 99 22 53 45 4C 45 43 54 49 4F 4E 20 |$:.:."SELECTION |
00001860: 3A 20 22 44 50 24 3A 99 00 7B 20 E3 00 91 49 89 |: "DP$:..{ ...I.|
00001870: 32 34 30 2C 32 32 38 2C 32 33 34 00 A1 20 E4 00 |240,228,234.. ..|
00001880: 99 22 43 52 49 54 45 52 49 41 20 20 3C 20 22 43 |."CRITERIA < "C|
00001890: 50 24 22 20 22 3A 8D 32 36 33 3A 81 52 B2 31 A4 |P$" ":.263:.R.1.|
000018A0: 59 00 AA 20 E5 00 8D 35 30 38 00 EA 20 E6 00 8B |Y.. ...508.. ...|
000018B0: C5 28 41 24 28 52 2C 43 29 29 B3 C5 28 43 50 24 |.(A$(R,C))..(CP$|
000018C0: 29 A7 99 22 52 45 43 4F 52 44 20 4E 4F 20 22 3B |).."RECORD NO ";|
000018D0: 52 A3 54 54 29 C8 28 41 24 28 52 2C 31 29 2C 41 |R.TT).(A$(R,1),A|
000018E0: 52 29 3A 52 43 B2 52 43 AA 31 00 F0 20 E7 00 82 |R):RC.RC.1.. ...|
000018F0: 00 00 21 E8 00 8B 50 52 B2 35 A7 98 34 3A A0 34 |..!...PR.5..4:.4|
00001900: 00 09 21 E9 00 89 32 34 39 00 2F 21 EA 00 99 22 |..!...249./!..."|
00001910: 43 52 49 54 45 52 49 41 20 20 3E 20 22 43 50 24 |CRITERIA > "CP$|
00001920: 22 20 22 3A 8D 32 36 33 3A 81 52 B2 31 A4 59 00 |" ":.263:.R.1.Y.|
00001930: 38 21 EB 00 8D 35 30 38 00 78 21 EC 00 8B C5 28 |8!...508.x!....(|
00001940: 41 24 28 52 2C 43 29 29 B1 C5 28 43 50 24 29 A7 |A$(R,C))..(CP$).|
00001950: 99 22 52 45 43 4F 52 44 20 4E 4F 20 22 3B 52 A3 |."RECORD NO ";R.|
00001960: 54 54 29 C8 28 41 24 28 52 2C 31 29 2C 41 52 29 |TT).(A$(R,1),AR)|
00001970: 3A 52 43 B2 52 43 AA 31 00 7E 21 ED 00 82 00 8E |:RC.RC.1.~!.....|
00001980: 21 EE 00 8B 50 52 B2 35 A7 98 34 3A A0 34 00 97 |!...PR.5..4:.4..|
00001990: 21 EF 00 89 32 34 39 00 BD 21 F0 00 99 22 43 52 |!...249..!..."CR|
000019A0: 49 54 45 52 49 41 20 20 3D 20 22 43 50 24 22 20 |ITERIA = "CP$" |
000019B0: 22 3A 8D 32 36 33 3A 81 52 B2 31 A4 59 00 C8 21 |":.263:.R.1.Y..!|
000019C0: F1 00 81 52 B2 31 A4 59 00 D1 21 F2 00 8D 35 30 |...R.1.Y..!...50|
000019D0: 38 00 E7 21 F3 00 8B 53 53 B2 31 A7 81 4A B2 31 |8..!...SS.1..J.1|
000019E0: A4 41 28 43 29 AB 46 00 28 22 F4 00 8B CA 28 41 |.A(C).F.("....(A|
000019F0: 24 28 52 2C 43 29 2C 4A 2C 46 29 B2 43 50 24 A7 |$(R,C),J,F).CP$.|
00001A00: 99 22 52 45 43 4F 52 44 20 4E 4F 20 22 3B 52 A3 |."RECORD NO ";R.|
00001A10: 54 54 29 C8 28 41 24 28 52 2C 31 29 2C 41 52 29 |TT).(A$(R,1),AR)|
00001A20: 3A 52 43 B2 52 43 AA 31 00 36 22 F5 00 8B 53 53 |:RC.RC.1.6"...SS|
00001A30: B2 30 A7 32 34 37 00 3D 22 F6 00 82 4A 00 43 22 |.0.247.="...J.C"|
00001A40: F7 00 82 00 53 22 F8 00 8B 50 52 B2 35 A7 98 34 |....S"...PR.5..4|
00001A50: 3A A0 34 00 8F 22 F9 00 99 3A 99 22 12 52 45 43 |:.4.."...:.".REC|
00001A60: 4F 52 44 53 20 43 4F 55 4E 54 45 44 20 3D 92 20 |ORDS COUNTED =. |
00001A70: 22 3B 52 43 3A 99 3A 99 A3 31 33 29 22 12 50 52 |";RC:.:..13)".PR|
00001A80: 45 53 53 20 53 50 41 43 45 20 42 41 52 92 22 00 |ESS SPACE BAR.".|
00001A90: A2 22 FA 00 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 32 |."...K$:.K$."".2|
00001AA0: 35 30 00 B8 22 FB 00 8B 4B 24 B2 22 20 22 A7 52 |50.."...K$." ".R|
00001AB0: B2 52 AB 31 3A 89 31 32 00 C1 22 FC 00 89 32 35 |.R.1:.12.."...25|
00001AC0: 30 00 D1 22 FD 00 42 24 B2 22 20 22 3A 99 22 22 |0.."..B$." ":.""|
00001AD0: 3B 00 E7 22 FE 00 A1 49 50 24 3A 8B 49 50 24 B2 |;.."...IP$:.IP$.|
00001AE0: 22 22 A7 89 32 35 34 00 02 23 FF 00 8B 42 24 B2 |""..254..#...B$.|
00001AF0: 22 20 22 AF C6 28 49 50 24 29 B2 32 30 A7 89 32 |" "..(IP$).20..2|
00001B00: 35 34 00 2F 23 00 01 8B C6 28 49 50 24 29 B2 32 |54./#....(IP$).2|
00001B10: 30 A7 42 24 B2 C8 28 42 24 2C C3 28 42 24 29 AB |0.B$..(B$,.(B$).|
00001B20: 31 29 3A 99 22 9D 20 9D 22 3B 3A 89 32 35 34 00 |1):.". .";:.254.|
00001B30: 4E 23 01 01 8B 49 50 24 B2 C7 28 31 33 29 A7 49 |N#...IP$..(13).I|
00001B40: 50 24 B2 CA 28 42 24 2C 32 29 3A 99 3A 8E 00 66 |P$..(B$,2):.:..f|
00001B50: 23 02 01 41 B2 C6 28 49 50 24 29 3A 8B 41 B3 33 |#..A..(IP$):.A.3|
00001B60: 31 A7 89 32 35 34 00 87 23 03 01 42 24 B2 42 24 |1..254..#..B$.B$|
00001B70: AA 49 50 24 3A 99 22 12 22 3B 49 50 24 3B 22 92 |.IP$:.".";IP$;".|
00001B80: 22 3B 3A 89 32 35 34 00 91 23 04 01 99 20 45 4D |";:.254..#... EM|
00001B90: 24 00 A4 23 05 01 81 20 54 38 B2 31 20 A4 31 30 |$..#... T8.1 .10|
00001BA0: 30 30 3A 82 00 AA 23 06 01 8E 00 DB 23 07 01 99 |00:...#.....#...|
00001BB0: 22 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 A3 22 3A 8E 00 05 24 08 01 |........":...$..|
00001BE0: 99 20 22 44 4F 20 59 4F 55 20 57 49 53 48 20 54 |. "DO YOU WISH T|
00001BF0: 4F 20 12 4C 92 4F 41 44 20 4F 52 20 12 53 92 41 |O .L.OAD OR .S.A|
00001C00: 56 45 22 3A 99 00 18 24 09 01 A1 4B 24 3A 8B 4B |VE":...$...K$:.K|
00001C10: 24 B2 22 22 A7 32 36 35 00 28 24 0A 01 8B 4B 24 |$."".265.($...K$|
00001C20: B2 22 4C 22 A7 32 38 33 00 38 24 0B 01 8B 4B 24 |."L".283.8$...K$|
00001C30: B2 22 53 22 A7 32 36 39 00 41 24 0C 01 89 32 36 |."S".269.A$...26|
00001C40: 35 00 4A 24 0D 01 8D 34 31 30 00 77 24 0E 01 99 |5.J$...410.w$...|
00001C50: 22 41 52 45 20 59 4F 55 20 53 41 56 49 4E 47 20 |"ARE YOU SAVING |
00001C60: 4F 4E 20 12 44 92 49 53 43 20 4F 52 20 12 54 92 |ON .D.ISC OR .T.|
00001C70: 41 50 45 3F 22 3A 99 00 8A 24 0F 01 A1 4B 24 3A |APE?":...$...K$:|
00001C80: 8B 4B 24 B2 22 22 A7 32 37 31 00 9A 24 10 01 8B |.K$."".271..$...|
00001C90: 4B 24 B2 22 54 22 A7 32 37 35 00 AA 24 11 01 8B |K$."T".275..$...|
00001CA0: 4B 24 B2 22 44 22 A7 32 39 37 00 B3 24 12 01 89 |K$."D".297..$...|
00001CB0: 32 37 31 00 BC 24 13 01 8D 34 31 30 00 D4 24 14 |271..$...410..$.|
00001CC0: 01 99 22 12 49 4E 53 45 52 54 20 43 41 53 53 45 |..".INSERT CASSE|
00001CD0: 54 54 45 22 00 F1 24 15 01 99 22 50 52 45 53 53 |TTE"..$..."PRESS|
00001CE0: 20 12 43 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | .C. TO CONTINUE|
00001CF0: 22 00 07 25 16 01 A1 4B 24 3A 8B 4B 24 B3 B1 22 |"..%...K$:.K$.."|
00001D00: 43 22 A7 20 32 37 38 00 1E 25 17 01 8D 34 31 30 |C". 278..%...410|
00001D10: 3A 99 22 53 41 56 49 4E 47 20 12 22 4E 24 00 28 |:."SAVING ."N$.(|
00001D20: 25 18 01 99 22 91 91 22 00 37 25 19 01 9F 20 31 |%..."..".7%... 1|
00001D30: 2C 31 2C 31 2C 4E 24 00 40 25 1A 01 89 33 30 35 |,1,1,N$.@%...305|
00001D40: 00 46 25 1B 01 9C 00 6E 25 1C 01 8D 34 31 32 3A |.F%....n%...412:|
00001D50: 8D 34 31 30 3A 99 22 41 52 45 20 59 4F 55 20 4C |.410:."ARE YOU L|
00001D60: 4F 41 44 49 4E 47 20 46 52 4F 4D 3A 2D 22 00 86 |OADING FROM:-"..|
00001D70: 25 1D 01 99 22 12 44 92 49 53 4B 20 4F 52 20 12 |%...".D.ISK OR .|
00001D80: 54 92 41 50 45 22 00 99 25 1E 01 A1 4B 24 3A 8B |T.APE"..%...K$:.|
00001D90: 4B 24 B2 22 22 A7 32 38 36 00 A9 25 1F 01 8B 4B |K$."".286..%...K|
00001DA0: 24 B2 22 54 22 A7 32 39 30 00 B9 25 20 01 8B 4B |$."T".290..% ..K|
00001DB0: 24 B2 22 44 22 A7 32 39 35 00 C2 25 21 01 89 32 |$."D".295..%!..2|
00001DC0: 38 36 00 D5 25 22 01 54 B2 31 3A 55 B2 30 3A 4E |86..%".T.1:U.0:N|
00001DD0: 4E 24 B2 4E 24 00 F6 25 23 01 8D 34 31 30 3A 99 |N$.N$..%#..410:.|
00001DE0: 22 49 53 20 43 41 53 53 45 54 54 45 20 49 4E 20 |"IS CASSETTE IN |
00001DF0: 50 4C 41 43 45 22 00 15 26 24 01 99 22 50 52 45 |PLACE"..&$.."PRE|
00001E00: 53 53 20 12 59 92 45 53 20 54 4F 20 43 4F 4E 54 |SS .Y.ES TO CONT|
00001E10: 49 4E 55 45 22 00 2A 26 25 01 A1 4B 24 3A 8B 4B |INUE".*&%..K$:.K|
00001E20: 24 B3 B1 22 59 22 A7 32 39 33 00 33 26 26 01 89 |$.."Y".293.3&&..|
00001E30: 33 31 35 00 68 26 27 01 54 B2 38 3A 55 B2 34 3A |315.h&'.T.8:U.4:|
00001E40: 4E 31 24 B2 22 30 3A 22 3A 4E 32 24 B2 22 2C 53 |N1$."0:":N2$.",S|
00001E50: 45 51 2C 52 45 41 44 22 3A 4E 4E 24 B2 4E 31 24 |EQ,READ":NN$.N1$|
00001E60: AA 4E 4E 24 AA 4E 32 24 00 71 26 28 01 89 33 31 |.NN$.N2$.q&(..31|
00001E70: 35 00 7A 26 29 01 8D 34 31 30 00 A9 26 2A 01 99 |5.z&)..410..&*..|
00001E80: 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 |"DO YOU WANT TO |
00001E90: 53 41 56 45 20 4F 4E 20 44 52 49 56 45 20 12 30 |SAVE ON DRIVE .0|
00001EA0: 92 20 4F 52 20 12 31 92 22 00 BC 26 2B 01 A1 4B |. OR .1."..&+..K|
00001EB0: 24 3A 8B 4B 24 B2 22 22 A7 32 39 39 00 D6 26 2C |$:.K$."".299..&,|
00001EC0: 01 8B 4B 24 B2 22 30 22 A7 44 52 24 B2 22 30 3A |..K$."0".DR$."0:|
00001ED0: 22 3A 89 33 30 33 00 F0 26 2D 01 8B 4B 24 B2 22 |":.303..&-..K$."|
00001EE0: 31 22 A7 44 52 24 B2 22 31 3A 22 3A 89 33 30 33 |1".DR$."1:":.303|
00001EF0: 00 F9 26 2E 01 89 32 39 39 00 25 27 2F 01 4E 31 |..&...299.%'/.N1|
00001F00: 24 B2 44 52 24 3A 4E 32 24 B2 22 2C 53 45 51 2C |$.DR$:N2$.",SEQ,|
00001F10: 57 52 49 54 45 22 3A 4E 4E 24 B2 4E 31 24 AA 4E |WRITE":NN$.N1$.N|
00001F20: 24 AA 4E 32 24 00 38 27 30 01 9F 31 2C 38 2C 34 |$.N2$.8'0..1,8,4|
00001F30: 2C 22 40 22 AA 4E 4E 24 00 49 27 31 01 98 31 2C |,"@".NN$.I'1..1,|
00001F40: 59 3A 99 C7 28 31 33 29 3B 00 5A 27 32 01 98 31 |Y:..(13);.Z'2..1|
00001F50: 2C 58 3A 99 C7 28 31 33 29 3B 00 77 27 33 01 81 |,X:..(13);.w'3..|
00001F60: 43 B2 31 A4 58 3A 98 31 2C 41 28 43 29 3A 99 C7 |C.1.X:.1,A(C):..|
00001F70: 28 31 33 29 3B 3A 82 00 96 27 34 01 81 43 B2 31 |(13);:...'4..C.1|
00001F80: A4 58 3A 98 31 2C 41 41 24 28 43 29 3A 99 C7 28 |.X:.1,AA$(C):..(|
00001F90: 31 33 29 3B 3A 82 00 A1 27 35 01 81 52 B2 31 A4 |13);:...'5..R.1.|
00001FA0: 59 00 C1 27 36 01 81 43 B2 31 A4 58 3A 98 31 2C |Y..'6..C.1.X:.1,|
00001FB0: 41 24 28 52 2C 43 29 3A 99 C7 28 31 33 29 3B 3A |A$(R,C):..(13);:|
00001FC0: 82 00 C7 27 37 01 82 00 E7 27 38 01 81 43 B2 31 |...'7....'8..C.1|
00001FD0: A4 58 3A 98 31 2C 41 24 28 30 2C 43 29 3A 99 C7 |.X:.1,A$(0,C):..|
00001FE0: 28 31 33 29 3B 3A 82 00 EE 27 39 01 A0 31 00 F6 |(13);:...'9..1..|
00001FF0: 27 3A 01 89 31 32 00 2F 28 3B 01 8D 34 31 30 3A |':..12./(;..410:|
00002000: 99 22 45 4E 54 45 52 20 46 49 4C 45 20 4E 41 4D |."ENTER FILE NAM|
00002010: 45 20 5B 20 20 20 20 20 20 20 20 20 5D 9D 9D 9D |E [ ]...|
00002020: 9D 9D 9D 9D 9D 9D 9D 22 3B 3A 8D 20 32 35 33 00 |.......";:. 253.|
00002030: 48 28 3C 01 4E 24 B2 C8 28 49 50 24 2C 39 29 3A |H(<.N$..(IP$,9):|
00002040: 4E 4E 24 B2 4E 24 3A 99 00 58 28 3D 01 8B 54 B2 |NN$.N$:..X(=..T.|
00002050: 31 A7 99 22 91 91 91 22 00 67 28 3E 01 9F 31 2C |1.."...".g(>..1,|
00002060: 54 2C 55 2C 4E 4E 24 00 7A 28 3F 01 84 31 2C 59 |T,U,NN$.z(?..1,Y|
00002070: 3A 84 31 2C 58 3A 8D 34 31 35 00 8F 28 40 01 81 |:.1,X:.415..(@..|
00002080: 43 B2 31 A4 58 3A 84 31 2C 41 28 43 29 3A 82 00 |C.1.X:.1,A(C):..|
00002090: A6 28 41 01 81 43 B2 31 A4 58 3A 84 31 2C 41 41 |.(A..C.1.X:.1,AA|
000020A0: 24 28 43 29 3A 82 00 B1 28 42 01 81 52 B2 31 A4 |$(C):...(B..R.1.|
000020B0: 59 00 BC 28 43 01 81 43 B2 31 A4 58 00 CB 28 44 |Y..(C..C.1.X..(D|
000020C0: 01 84 31 2C 41 24 28 52 2C 43 29 00 D3 28 45 01 |..1,A$(R,C)..(E.|
000020D0: 82 3A 82 00 DE 28 46 01 81 43 B2 31 A4 58 00 ED |.:...(F..C.1.X..|
000020E0: 28 47 01 84 31 2C 41 24 28 30 2C 43 29 00 F3 28 |(G..1,A$(0,C)..(|
000020F0: 48 01 82 00 FA 28 49 01 A0 31 00 03 29 4A 01 8D |H....(I..1..)J..|
00002100: 34 31 30 00 3D 29 4B 01 8B 59 B2 30 A7 4E 24 B2 |410.=)K..Y.0.N$.|
00002110: 22 22 3A 99 22 12 46 49 4C 45 20 4E 4F 54 20 46 |"":.".FILE NOT F|
00002120: 4F 55 4E 44 20 4F 4E 20 44 49 53 4B 22 3A 81 49 |OUND ON DISK":.I|
00002130: B2 31 A4 31 30 30 30 3A 82 3A 89 31 32 00 74 29 |.1.1000:.:.12.t)|
00002140: 4C 01 99 22 4B 45 59 20 44 41 54 45 20 45 47 2E |L.."KEY DATE EG.|
00002150: 28 32 38 2E 31 32 2E 38 33 29 5B 20 20 20 20 20 |(28.12.83)[ |
00002160: 20 20 20 5D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 3A | ].........";:|
00002170: 8D 32 35 33 00 84 29 4D 01 8B 49 50 24 B2 22 22 |.253..)M..IP$.""|
00002180: A7 33 33 35 00 B5 29 4E 01 52 B2 31 3A 99 3A 8D |.335..)N.R.1:.:.|
00002190: 35 34 37 3A 8B 41 43 B2 31 A7 41 43 B2 30 3A 99 |547:.AC.1.AC.0:.|
000021A0: 22 91 22 53 24 22 91 22 3A 99 22 91 91 91 91 22 |"."S$".":."...."|
000021B0: 3A 89 33 33 32 00 C7 29 4F 01 4D 24 B2 C8 28 49 |:.332..)O.M$..(I|
000021C0: 50 24 2C 38 29 3A 99 00 CF 29 50 01 89 31 32 00 |P$,8):...)P..12.|
000021D0: F3 29 51 01 99 22 45 58 49 54 20 27 44 46 4D 27 |.)Q.."EXIT 'DFM'|
000021E0: 20 41 52 45 20 59 4F 55 20 53 55 52 45 20 28 59 | ARE YOU SURE (Y|
000021F0: 2F 4E 29 00 06 2A 52 01 A1 4B 24 3A 8B 4B 24 B2 |/N)..*R..K$:.K$.|
00002200: 22 22 A7 33 33 38 00 1D 2A 53 01 8B 4B 24 B2 22 |"".338..*S..K$."|
00002210: 59 22 A7 4E 24 B2 22 22 3A 8D 33 34 33 00 2C 2A |Y".N$."":.343.,*|
00002220: 54 01 8B 4B 24 B2 22 4E 22 A7 31 32 00 3F 2A 55 |T..K$."N".12.?*U|
00002230: 01 80 20 20 20 20 20 20 20 20 20 20 20 20 20 00 |.. .|
00002240: 4F 2A 56 01 89 33 33 39 20 20 20 20 20 20 20 00 |O*V..339 .|
00002250: 7C 2A 57 01 99 3A 20 20 99 22 93 20 20 20 20 20 ||*W..: .". |
00002260: 20 20 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 2A 22 00 AA 2A 58 |***********"..*X|
00002280: 01 99 22 20 20 20 20 20 20 20 2A 2A 2A 20 12 44 |.." *** .D|
00002290: 41 54 41 92 20 12 46 49 4C 45 92 20 12 4D 41 4E |ATA. .FILE. .MAN|
000022A0: 41 47 45 52 92 20 2A 2A 2A 22 00 D4 2A 59 01 99 |AGER. ***"..*Y..|
000022B0: 22 20 20 20 20 20 20 20 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: 2A 22 3A 99 00 E3 2A 5A 01 8B 4E 24 B3 B1 22 22 |*":...*Z..N$..""|
000022E0: A7 20 8E 00 0C 2B 5B 01 99 22 20 20 20 20 20 20 |. ...+[.." |
000022F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 42 59 20 | BY |
00002300: 20 20 20 20 20 20 20 20 20 22 3A 99 00 42 2B 5C | ":..B+\|
00002310: 01 99 22 20 20 20 20 20 20 20 20 12 20 44 20 92 |.." . D .|
00002320: 20 12 20 49 20 92 20 12 20 41 20 92 20 12 20 4C | . I . . A . . L|
00002330: 20 92 20 12 20 4F 20 92 20 12 20 47 20 92 20 22 | . . O . . G . "|
00002340: 3A 99 00 69 2B 5D 01 99 22 20 20 20 20 20 20 20 |:..i+].." |
00002350: 20 20 20 20 20 53 20 4F 20 46 20 54 20 57 20 41 | S O F T W A|
00002360: 20 52 20 45 22 3A 99 3A 8E 00 75 2B 5E 01 99 C7 | R E":.:..u+^...|
00002370: 28 31 34 37 29 00 97 2B 5F 01 99 A3 31 34 29 22 |(147)..+_...14)"|
00002380: 12 2A 2A 55 54 49 4C 49 54 49 45 53 2A 2A 92 22 |.**UTILITIES**."|
00002390: 3A 8D 32 36 33 3A 99 00 D0 2B 60 01 99 22 20 20 |:.263:...+`.." |
000023A0: 12 4D 92 45 4D 4F 52 59 20 41 56 41 49 4C 41 42 |.M.EMORY AVAILAB|
000023B0: 49 4C 49 54 59 22 3A 99 3A 99 22 20 20 12 44 92 |ILITY":.:." .D.|
000023C0: 49 53 4B 20 44 49 52 45 43 54 4F 52 59 22 3A 99 |ISK DIRECTORY":.|
000023D0: 00 EA 2B 61 01 99 22 20 20 4D 45 4E 55 20 12 53 |..+a.." MENU .S|
000023E0: 50 41 43 45 20 42 41 52 92 22 00 FD 2B 62 01 A1 |PACE BAR."..+b..|
000023F0: 56 24 3A 8B 56 24 B2 22 22 A7 33 35 34 00 0D 2C |V$:.V$."".354..,|
00002400: 63 01 8B 56 24 B2 22 4D 22 A7 33 36 31 00 1D 2C |c..V$."M".361..,|
00002410: 64 01 8B 56 24 B2 22 44 22 A7 35 33 38 00 2C 2C |d..V$."D".538.,,|
00002420: 65 01 8B 56 24 B2 22 20 22 A7 31 32 00 4F 2C 66 |e..V$." ".12.O,f|
00002430: 01 99 3A 99 22 12 50 52 45 53 53 20 53 50 41 43 |..:.".PRESS SPAC|
00002440: 45 20 42 41 52 20 46 4F 52 20 4D 45 4E 55 22 00 |E BAR FOR MENU".|
00002450: 64 2C 67 01 A1 4B 24 3A 8B 4B 24 B3 B1 22 20 22 |d,g..K$:.K$.." "|
00002460: A7 33 35 34 00 6C 2C 68 01 89 31 32 00 8D 2C 69 |.354.l,h..12..,i|
00002470: 01 99 22 13 11 11 11 11 22 A3 32 34 29 22 3D 20 |..".....".24)"= |
00002480: 22 B8 28 30 29 22 42 59 54 45 53 20 22 00 9D 2C |".(0)"BYTES "..,|
00002490: 6A 01 99 C7 28 31 39 29 3A 89 33 35 31 00 A6 2C |j...(19):.351..,|
000024A0: 6B 01 8D 34 39 34 00 BD 2C 6C 01 8D 35 31 34 3A |k..494..,l..514:|
000024B0: 8B 20 4B 24 B3 B1 22 20 22 A7 20 31 32 00 C9 2C |. K$.." ". 12..,|
000024C0: 6D 01 9F 34 2C 34 3A 9D 34 00 F4 2C 6E 01 99 C7 |m..4,4:.4..,n...|
000024D0: 28 31 34 37 29 3A 99 22 12 22 3B 4E 24 20 A3 31 |(147):.".";N$ .1|
000024E0: 39 29 22 52 45 43 4F 52 44 20 4E 4F 22 3B 52 3A |9)"RECORD NO";R:|
000024F0: 99 4C 33 24 00 2D 2D 6F 01 43 B2 31 3A 99 22 12 |.L3$.--o.C.1:.".|
00002500: 22 C4 28 43 29 22 92 22 3B 3A 99 A3 32 29 22 12 |".(C)".";:..2)".|
00002510: 22 20 41 24 28 30 2C 43 29 22 92 22 A3 33 29 3B |" A$(0,C)".".3);|
00002520: C8 28 41 24 28 52 2C 43 29 2C 32 34 29 00 36 2D |.(A$(R,C),24).6-|
00002530: 70 01 99 4C 33 24 00 44 2D 71 01 81 20 43 B2 32 |p..L3$.D-q.. C.2|
00002540: 20 A4 20 58 00 6B 2D 72 01 99 C4 28 43 29 3B 3A | . X.k-r...(C);:|
00002550: 99 A3 32 29 41 24 28 30 2C 43 29 A3 33 29 C8 28 |..2)A$(0,C).3).(|
00002560: 41 24 28 52 2C 43 29 2C 32 34 29 00 86 2D 73 01 |A$(R,C),24)..-s.|
00002570: 82 3A 99 3A 8D 32 36 33 3A 99 3A 20 98 34 3A A0 |.:.:.263:.: .4:.|
00002580: 34 3A 89 31 30 31 00 C4 2D 74 01 8D 34 39 34 3A |4:.101..-t..494:|
00002590: 43 4F B2 31 3A 4C 4E B2 32 31 3A 8D 34 39 36 3A |CO.1:LN.21:.496:|
000025A0: 99 22 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F |."DO YOU WISH TO|
000025B0: 20 50 45 52 46 4F 52 4D 20 49 4E 44 49 56 49 44 | PERFORM INDIVID|
000025C0: 55 41 4C 22 00 E7 2D 75 01 99 22 12 43 92 41 4C |UAL"..-u..".C.AL|
000025D0: 43 53 20 4F 52 20 12 54 92 4F 54 41 4C 49 53 45 |CS OR .T.OTALISE|
000025E0: 20 46 49 45 4C 44 22 00 FA 2D 76 01 A1 4B 24 3A | FIELD"..-v..K$:|
000025F0: 8B 4B 24 B2 22 22 A7 33 37 34 00 10 2E 77 01 8B |.K$."".374...w..|
00002600: 4B 24 B2 22 54 22 A7 8D 34 31 30 3A 89 33 39 36 |K$."T"..410:.396|
00002610: 00 26 2E 78 01 8B 4B 24 B2 22 43 22 A7 8D 34 31 |.&.x..K$."C"..41|
00002620: 30 3A 89 33 37 38 00 2F 2E 79 01 89 33 37 34 00 |0:.378./.y..374.|
00002630: 4E 2E 7A 01 99 22 57 48 49 43 48 20 46 49 45 4C |N.z.."WHICH FIEL|
00002640: 44 20 44 4F 20 59 4F 55 20 57 49 53 48 22 00 78 |D DO YOU WISH".x|
00002650: 2E 7B 01 99 22 54 4F 20 43 41 4C 43 55 4C 41 54 |.{.."TO CALCULAT|
00002660: 45 2C 20 4B 45 59 20 31 20 54 4F 20 22 58 22 20 |E, KEY 1 TO "X" |
00002670: 3A 22 3B 3A 8D 32 35 33 00 94 2E 7C 01 43 B2 C5 |:";:.253...|.C..|
00002680: 28 49 50 24 29 3A 8B 43 B1 58 A7 8D 34 31 30 3A |(IP$):.C.X..410:|
00002690: 89 33 37 38 00 9D 2E 7D 01 8D 34 31 30 00 C2 2E |.378...}..410...|
000026A0: 7E 01 8B 41 41 24 28 43 29 B2 22 43 22 A7 99 22 |~..AA$(C)."C".."|
000026B0: 12 43 48 41 52 41 43 54 45 52 92 20 46 49 45 4C |.CHARACTER. FIEL|
000026C0: 44 22 00 D6 2E 7F 01 8B 41 41 24 28 43 29 B2 22 |D"......AA$(C)."|
000026D0: 4E 22 A7 33 38 35 00 EB 2E 80 01 81 49 B2 31 A4 |N".385......I.1.|
000026E0: 31 30 30 30 3A 82 3A 89 31 31 34 00 19 2F 81 01 |1000:.:.114../..|
000026F0: 99 22 4B 45 59 20 4C 45 54 54 45 52 20 46 4F 4C |."KEY LETTER FOL|
00002700: 4C 4F 57 45 44 20 42 59 20 41 4D 4F 55 4E 54 20 |LOWED BY AMOUNT |
00002710: 45 47 2E 28 41 32 35 29 22 00 4F 2F 82 01 99 22 |EG.(A25)".O/..."|
00002720: 12 41 92 44 44 20 12 53 92 55 42 54 52 41 43 54 |.A.DD .S.UBTRACT|
00002730: 20 12 4D 92 55 4C 54 49 50 4C 59 20 12 44 92 49 | .M.ULTIPLY .D.I|
00002740: 56 49 44 45 20 12 5A 92 45 52 4F 49 53 45 22 00 |VIDE .Z.EROISE".|
00002750: 6F 2F 83 01 99 22 12 52 92 45 50 4C 41 43 45 20 |o/...".R.EPLACE |
00002760: 3A 22 3B 3A 8D 32 35 33 3A 4C 24 B2 49 50 24 00 |:";:.253:L$.IP$.|
00002770: 98 2F 84 01 8B C8 28 4C 24 2C 31 29 B2 22 53 22 |./....(L$,1)."S"|
00002780: A7 50 B2 C5 28 41 24 28 52 2C 43 29 29 AB C5 28 |.P..(A$(R,C))..(|
00002790: CA 28 4C 24 2C 32 29 29 00 C1 2F 85 01 8B C8 28 |.(L$,2))../....(|
000027A0: 4C 24 2C 31 29 B2 22 41 22 A7 50 B2 C5 28 41 24 |L$,1)."A".P..(A$|
000027B0: 28 52 2C 43 29 29 AA C5 28 CA 28 4C 24 2C 32 29 |(R,C))..(.(L$,2)|
000027C0: 29 00 EA 2F 86 01 8B C8 28 4C 24 2C 31 29 B2 22 |)../....(L$,1)."|
000027D0: 4D 22 A7 50 B2 C5 28 41 24 28 52 2C 43 29 29 AC |M".P..(A$(R,C)).|
000027E0: C5 28 CA 28 4C 24 2C 32 29 29 00 13 30 87 01 8B |.(.(L$,2))..0...|
000027F0: C8 28 4C 24 2C 31 29 B2 22 44 22 A7 50 B2 C5 28 |.(L$,1)."D".P..(|
00002800: 41 24 28 52 2C 43 29 29 AD C5 28 CA 28 4C 24 2C |A$(R,C))..(.(L$,|
00002810: 32 29 29 00 28 30 88 01 8B C8 28 4C 24 2C 31 29 |2)).(0....(L$,1)|
00002820: B2 22 5A 22 A7 50 B2 30 00 46 30 89 01 8B C8 28 |."Z".P.0.F0....(|
00002830: 4C 24 2C 31 29 B2 22 52 22 A7 50 B2 C5 28 CA 28 |L$,1)."R".P..(.(|
00002840: 4C 24 2C 32 29 29 00 5C 30 8A 01 41 24 28 52 2C |L$,2)).\0..A$(R,|
00002850: 43 29 B2 CA 28 C4 28 50 29 2C 32 29 00 65 30 8B |C)..(.(P),2).e0.|
00002860: 01 89 31 30 31 00 84 30 8C 01 99 22 57 48 49 43 |..101..0..."WHIC|
00002870: 48 20 46 49 45 4C 44 20 44 4F 20 59 4F 55 20 57 |H FIELD DO YOU W|
00002880: 49 53 48 22 00 AC 30 8D 01 99 22 54 4F 20 54 4F |ISH"..0..."TO TO|
00002890: 54 41 4C 49 53 45 20 4B 45 59 20 31 20 54 4F 20 |TALISE KEY 1 TO |
000028A0: 22 58 22 20 3A 22 3B 3A 8D 32 35 33 00 C8 30 8E |"X" :";:.253..0.|
000028B0: 01 43 B2 C5 28 49 50 24 29 3A 8B 43 B1 58 A7 8D |.C..(IP$):.C.X..|
000028C0: 34 31 30 3A 89 33 39 36 00 D1 30 8F 01 8D 34 31 |410:.396..0...41|
000028D0: 30 00 F6 30 90 01 8B 41 41 24 28 43 29 B2 22 43 |0..0...AA$(C)."C|
000028E0: 22 A7 99 22 12 43 48 41 52 41 43 54 45 52 92 20 |"..".CHARACTER. |
000028F0: 46 49 45 4C 44 22 00 0A 31 91 01 8B 41 41 24 28 |FIELD"..1...AA$(|
00002900: 43 29 B2 22 4E 22 A7 34 30 33 00 1F 31 92 01 81 |C)."N".403..1...|
00002910: 49 B2 31 A4 31 30 30 30 3A 82 3A 89 31 31 34 00 |I.1.1000:.:.114.|
00002920: 27 31 93 01 54 B2 30 00 44 31 94 01 81 20 52 B2 |'1..T.0.D1... R.|
00002930: 31 A4 59 3A 54 B2 54 AA C5 28 41 24 28 52 2C 43 |1.Y:T.T..(A$(R,C|
00002940: 29 29 3A 82 00 8A 31 95 01 99 22 54 4F 54 41 4C |)):...1..."TOTAL|
00002950: 20 46 49 4C 45 20 56 41 4C 55 45 20 4F 46 20 46 | FILE VALUE OF F|
00002960: 49 45 4C 44 20 3A 22 3A 99 22 12 22 41 24 28 30 |IELD :":."."A$(0|
00002970: 2C 43 29 22 92 22 22 20 3D 20 20 20 20 20 20 20 |,C)"."" = |
00002980: 20 20 20 20 20 20 20 22 3B 54 00 AD 31 96 01 99 | ";T..1...|
00002990: 22 50 52 45 53 53 20 12 53 50 41 43 45 20 42 41 |"PRESS .SPACE BA|
000029A0: 52 92 20 54 4F 20 52 45 54 55 52 4E 22 00 C0 31 |R. TO RETURN"..1|
000029B0: 97 01 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 34 30 37 |...K$:.K$."".407|
000029C0: 00 D0 31 98 01 8B 4B 24 B2 22 20 22 A7 31 30 31 |..1...K$." ".101|
000029D0: 00 D9 31 99 01 89 34 30 37 00 DF 31 9A 01 3A 00 |..1...407..1..:.|
000029E0: FB 31 9B 01 99 22 91 91 22 3B 3A 99 53 24 3A 99 |.1..."..";:.S$:.|
000029F0: 53 24 3A 99 22 91 91 91 22 3A 8E 00 2C 32 9C 01 |S$:."...":..,2..|
00002A00: 53 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |S$." |
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 20 22 00 5E 32 9D | ".^2.|
00002A30: 01 4C 33 24 B2 22 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 2D 22 00 92 |-------------"..|
00002A60: 32 9E 01 54 24 B2 22 9D 9D 9D 9D 9D 9D 9D 9D 9D |2..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 9D 22 |..............."|
00002A90: 3A 8E 00 CE 32 9F 01 86 20 41 24 28 36 30 30 2C |:...2... A$(600,|
00002AA0: 58 29 2C 41 41 24 28 58 29 2C 41 28 58 29 2C 43 |X),AA$(X),A(X),C|
00002AB0: 24 28 58 29 2C 42 24 28 58 29 2C 41 48 24 28 58 |$(X),B$(X),AH$(X|
00002AC0: 29 3A 41 24 28 52 2C 43 29 B2 22 22 3A 8E 00 F0 |):A$(R,C)."":...|
00002AD0: 32 A0 01 99 22 57 48 49 43 48 20 46 49 45 4C 44 |2..."WHICH FIELD|
00002AE0: 20 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 22 | DO YOU WISH TO"|
00002AF0: 00 16 33 A1 01 99 22 53 4F 52 54 20 42 59 2E 2E |..3..."SORT BY..|
00002B00: 20 4B 45 59 20 31 20 54 4F 20 22 58 22 20 3A 22 | KEY 1 TO "X" :"|
00002B10: 3B 3A 8D 32 35 33 00 23 33 A2 01 4D B2 C5 28 49 |;:.253.#3..M..(I|
00002B20: 50 24 29 00 2C 33 A3 01 8D 34 31 30 00 6D 33 A4 |P$).,3...410.m3.|
00002B30: 01 99 22 12 53 4F 52 54 49 4E 47 92 20 50 4C 45 |..".SORTING. PLE|
00002B40: 41 53 45 20 57 41 49 54 22 3A 81 49 B2 30 A4 58 |ASE WAIT":.I.0.X|
00002B50: 3A 41 48 24 28 49 29 B2 41 24 28 30 2C 49 29 3A |:AH$(I).A$(0,I):|
00002B60: 41 24 28 30 2C 49 29 B2 22 20 22 3A 82 00 A7 33 |A$(0,I)." ":...3|
00002B70: A5 01 97 37 38 30 2C 4D 3A 9E 34 39 31 35 32 2C |...780,M:.49152,|
00002B80: 41 3A 81 49 B2 30 A4 58 3A 41 24 28 30 2C 49 29 |A:.I.0.X:A$(0,I)|
00002B90: B2 41 48 24 28 49 29 3A 82 3A 89 34 33 31 3A 81 |.AH$(I):.:.431:.|
00002BA0: 52 B2 31 A4 59 AB 31 00 B6 33 A6 01 81 49 B2 28 |R.1.Y.1..3...I.(|
00002BB0: 52 AA 31 29 A4 59 00 DB 33 A7 01 8B 41 41 24 28 |R.1).Y..3...AA$(|
00002BC0: 4D 29 B2 22 43 22 AF 41 24 28 49 2C 4D 29 B1 B2 |M)."C".A$(I,M)..|
00002BD0: 41 24 28 52 2C 4D 29 A7 34 33 30 00 06 34 A8 01 |A$(R,M).430..4..|
00002BE0: 8B 41 41 24 28 4D 29 B2 22 4E 22 AF C5 28 41 24 |.AA$(M)."N"..(A$|
00002BF0: 28 49 2C 4D 29 29 B1 B2 C5 28 41 24 28 52 2C 4D |(I,M))...(A$(R,M|
00002C00: 29 29 A7 34 33 30 00 11 34 A9 01 81 43 B2 31 A4 |)).430..4...C.1.|
00002C10: 58 00 23 34 AA 01 42 24 28 43 29 B2 41 24 28 52 |X.#4..B$(C).A$(R|
00002C20: 2C 43 29 00 37 34 AB 01 41 24 28 52 2C 43 29 B2 |,C).74..A$(R,C).|
00002C30: 41 24 28 49 2C 43 29 00 49 34 AC 01 41 24 28 49 |A$(I,C).I4..A$(I|
00002C40: 2C 43 29 B2 42 24 28 43 29 00 50 34 AD 01 82 43 |,C).B$(C).P4...C|
00002C50: 00 58 34 AE 01 82 3A 82 00 80 34 AF 01 99 22 12 |.X4...:...4...".|
00002C60: 53 4F 52 54 92 20 43 4F 4D 50 4C 45 54 45 44 22 |SORT. COMPLETED"|
00002C70: 3A 81 4A B2 31 A4 31 30 30 30 3A 82 3A 89 31 32 |:.J.1.1000:.:.12|
00002C80: 00 A6 34 B0 01 99 C7 28 31 34 37 29 3A 99 A3 31 |..4....(147):..1|
00002C90: 30 29 22 12 2A 2A 52 45 50 4F 52 54 20 57 52 49 |0)".**REPORT WRI|
00002CA0: 54 45 52 2A 2A 22 00 D2 34 B1 01 99 22 57 48 49 |TER**"..4..."WHI|
00002CB0: 43 48 20 4F 46 20 54 48 45 20 46 4F 4C 4C 4F 57 |CH OF THE FOLLOW|
00002CC0: 49 4E 47 20 46 49 45 4C 44 53 20 44 4F 20 59 4F |ING FIELDS DO YO|
00002CD0: 55 22 00 F7 34 B2 01 99 22 57 49 53 48 20 54 4F |U"..4..."WISH TO|
00002CE0: 20 49 4E 43 4C 55 44 45 20 49 4E 20 54 48 45 20 | INCLUDE IN THE |
00002CF0: 52 45 50 4F 52 54 22 00 00 35 B3 01 99 4C 33 24 |REPORT"..5...L3$|
00002D00: 00 0B 35 B4 01 81 43 B2 31 A4 58 00 19 35 B5 01 |..5...C.1.X..5..|
00002D10: 99 41 24 28 30 2C 43 29 3B 00 51 35 B6 01 99 A3 |.A$(0,C);.Q5....|
00002D20: 32 35 29 22 4B 45 59 20 12 59 92 20 4F 52 20 12 |25)"KEY .Y. OR .|
00002D30: 4E 92 20 5B 20 5D 9D 9D 22 3B 3A 8D 32 35 33 3A |N. [ ]..";:.253:|
00002D40: 43 24 28 43 29 B2 C8 28 49 50 24 2C 31 29 3A 82 |C$(C)..(IP$,1):.|
00002D50: 43 00 7F 35 B7 01 99 4C 33 24 3A 99 3A 99 A3 36 |C..5...L3$:.:..6|
00002D60: 29 22 3C 3C 20 41 43 43 45 50 54 20 46 49 45 4C |)"<< ACCEPT FIEL|
00002D70: 44 20 53 45 4C 45 43 54 49 4F 4E 20 3E 3E 22 00 |D SELECTION >>".|
00002D80: B0 35 B8 01 99 3A 99 A3 34 29 22 4B 45 59 20 12 |.5...:..4)"KEY .|
00002D90: 59 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 12 |Y. TO CONTINUE .|
00002DA0: 4E 92 20 54 4F 20 52 45 2D 53 45 4C 45 43 54 22 |N. TO RE-SELECT"|
00002DB0: 00 B9 35 B9 01 8D 35 31 32 00 C9 35 BA 01 8B 4B |..5...512..5...K|
00002DC0: 24 B2 22 4E 22 A7 34 33 32 00 F7 35 BB 01 8B 4B |$."N".432..5...K|
00002DD0: 24 B2 22 59 22 A7 99 C7 28 31 34 37 29 3A 99 A3 |$."Y"...(147):..|
00002DE0: 31 30 29 22 12 2A 2A 52 45 50 4F 52 54 20 57 52 |10)".**REPORT WR|
00002DF0: 49 54 45 52 2A 2A 22 00 1C 36 BC 01 99 3A 99 A3 |ITER**"..6...:..|
00002E00: 39 29 22 50 52 49 4E 54 45 52 20 49 4E 46 4F 52 |9)"PRINTER INFOR|
00002E10: 4D 41 54 49 4F 4E 22 3A 99 4C 33 24 00 57 36 BD |MATION":.L3$.W6.|
00002E20: 01 99 22 44 4F 20 59 4F 55 20 52 45 51 55 49 52 |.."DO YOU REQUIR|
00002E30: 45 20 4C 49 4E 45 20 46 45 45 44 22 A3 32 35 29 |E LINE FEED".25)|
00002E40: 22 4B 45 59 20 12 59 92 20 4F 52 20 12 4E 92 20 |"KEY .Y. OR .N. |
00002E50: 5B 20 5D 9D 9D 22 3B 00 6F 36 BE 01 8D 32 35 33 |[ ]..";.o6...253|
00002E60: 3A 4C 46 24 B2 C8 28 49 50 24 2C 31 29 3A 99 00 |:LF$..(IP$,1):..|
00002E70: BC 36 BF 01 99 22 44 4F 20 59 4F 55 20 57 49 53 |.6..."DO YOU WIS|
00002E80: 48 20 54 4F 20 53 45 4E 44 20 41 22 3A 99 22 43 |H TO SEND A":."C|
00002E90: 48 52 24 20 54 4F 20 54 48 45 20 50 52 49 4E 54 |HR$ TO THE PRINT|
00002EA0: 45 52 22 A3 32 35 29 22 4B 45 59 20 12 59 92 20 |ER".25)"KEY .Y. |
00002EB0: 4F 52 20 12 4E 92 20 5B 20 5D 22 3B 00 EB 36 C0 |OR .N. [ ]";..6.|
00002EC0: 01 99 22 9D 9D 22 3B 3A 8D 32 35 33 3A 43 53 24 |.."..";:.253:CS$|
00002ED0: B2 C8 28 49 50 24 2C 31 29 3A 47 B2 39 3A 8B 43 |..(IP$,1):G.9:.C|
00002EE0: 53 24 B2 22 59 22 A7 47 B2 31 31 00 25 37 C1 01 |S$."Y".G.11.%7..|
00002EF0: 8B 43 53 24 B2 22 59 22 A7 99 3A 99 22 45 4E 54 |.CS$."Y"..:."ENT|
00002F00: 45 52 20 43 48 52 24 22 A3 33 35 29 22 5B 20 20 |ER CHR$".35)"[ |
00002F10: 5D 9D 9D 9D 22 3B 3A 8D 32 35 33 3A 43 53 B2 C5 |]...";:.253:CS..|
00002F20: 28 49 50 24 29 00 33 37 C2 01 99 4C 33 24 3A 89 |(IP$).37...L3$:.|
00002F30: 34 35 36 00 68 37 C3 01 99 22 13 22 3A 81 49 B2 |456.h7...".":.I.|
00002F40: 31 A4 47 3A 99 3A 82 3A 81 49 B2 31 A4 32 33 AB |1.G:.:.:.I.1.23.|
00002F50: 47 3A 99 53 24 3A 82 49 3A 99 22 13 22 3A 81 49 |G:.S$:.I:.".":.I|
00002F60: B2 31 A4 47 3A 99 3A 82 00 B0 37 C4 01 99 A3 31 |.1.G:.:...7....1|
00002F70: 32 29 22 12 2A 2A 54 45 53 54 20 4F 56 45 52 2A |2)".**TEST OVER*|
00002F80: 2A 22 3A 99 3A 99 A3 35 29 3A 99 22 4B 45 59 20 |*":.:..5):."KEY |
00002F90: 12 59 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 |.Y. TO CONTINUE |
00002FA0: 12 4E 92 20 54 4F 20 52 45 2D 53 45 54 55 50 22 |.N. TO RE-SETUP"|
00002FB0: 00 B9 37 C5 01 8D 35 31 32 00 C9 37 C6 01 8B 4B |..7...512..7...K|
00002FC0: 24 B2 22 59 22 A7 34 36 31 00 DF 37 C7 01 8B 4B |$."Y".461..7...K|
00002FD0: 24 B2 22 4E 22 A7 8D 35 31 37 3A 89 34 33 32 00 |$."N"..517:.432.|
00002FE0: 15 38 C8 01 99 22 44 4F 20 59 4F 55 20 52 45 51 |.8..."DO YOU REQ|
00002FF0: 55 49 52 45 20 54 45 53 54 20 50 52 49 4E 54 3A |UIRE TEST PRINT:|
00003000: 20 4B 45 59 20 12 59 92 20 4F 52 20 12 4E 92 22 | KEY .Y. OR .N."|
00003010: 3A 99 4C 33 24 00 1E 38 C9 01 8D 35 31 32 00 34 |:.L3$..8...512.4|
00003020: 38 CA 01 8B 4B 24 B2 22 4E 22 A7 8D 35 31 34 3A |8...K$."N"..514:|
00003030: 89 34 36 31 00 4A 38 CB 01 8B 4B 24 B2 22 59 22 |.461.J8...K$."Y"|
00003040: A7 8D 35 31 34 3A 8D 35 31 38 00 53 38 CC 01 89 |..514:.518.S8...|
00003050: 34 35 31 00 5F 38 CD 01 9F 34 2C 34 3A 9D 34 00 |451._8...4,4:.4.|
00003060: 74 38 CE 01 8B 43 53 24 B2 22 59 22 A7 99 20 C7 |t8...CS$."Y".. .|
00003070: 28 43 53 29 00 96 38 CF 01 99 4D 24 A6 31 30 29 |(CS)..8...M$.10)|
00003080: 22 46 49 4C 45 4E 41 4D 45 20 3D 20 22 4E 24 3A |"FILENAME = "N$:|
00003090: 99 3A 8D 35 33 31 00 A2 38 D0 01 52 B2 30 3A 50 |.:.531..8..R.0:P|
000030A0: B2 30 00 AA 38 D1 01 43 B2 31 00 C3 38 D2 01 50 |.0..8..C.1..8..P|
000030B0: 44 B2 41 28 43 29 AB C3 28 41 24 28 52 2C 43 29 |D.A(C)..(A$(R,C)|
000030C0: 29 AA 31 00 D2 38 D3 01 8B 50 44 B3 31 A7 50 44 |).1..8...PD.1.PD|
000030D0: B2 31 00 12 39 D4 01 50 44 24 B2 C8 28 53 24 2C |.1..9..PD$..(S$,|
000030E0: 50 44 29 3A 8B 43 24 28 43 29 B2 22 59 22 A7 99 |PD):.C$(C)."Y"..|
000030F0: C8 28 41 24 28 52 2C 43 29 2C 41 28 43 29 29 AA |.(A$(R,C),A(C)).|
00003100: 50 44 24 3B 3A 8B 52 B2 30 A7 50 B2 50 AA 41 28 |PD$;:.R.0.P.P.A(|
00003110: 43 29 00 27 39 D5 01 43 B2 43 AA 31 3A 8B 43 B3 |C).'9..C.C.1:.C.|
00003120: 58 AA 31 A7 34 36 36 00 30 39 D6 01 8D 35 33 31 |X.1.466.09...531|
00003130: 00 52 39 D7 01 8B 52 B2 30 A7 99 3A 81 49 B2 31 |.R9...R.0..:.I.1|
00003140: A4 50 AA 32 3A 99 22 2D 22 3B 3A 82 49 3A 8D 35 |.P.2:."-";:.I:.5|
00003150: 33 31 00 69 39 D8 01 52 B2 52 AA 31 3A 99 3A 8B |31.i9..R.R.1:.:.|
00003160: 52 B3 59 AA 31 A7 34 36 35 00 73 39 D9 01 99 3A |R.Y.1.465.s9...:|
00003170: 99 3A 99 00 8B 39 DA 01 99 22 20 20 20 2A 54 4F |.:...9..." *TO|
00003180: 54 41 4C 53 2A 22 3A 8D 35 33 31 00 A5 39 DB 01 |TALS*":.531..9..|
00003190: 99 22 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 99 |." --------":.|
000031A0: 3A 8D 35 33 31 00 B4 39 DC 01 81 43 B2 31 A4 58 |:.531..9...C.1.X|
000031B0: 3A 54 B2 30 00 D0 39 DD 01 81 52 B2 31 A4 59 3A |:T.0..9...R.1.Y:|
000031C0: 54 B2 54 AA C5 28 41 24 28 52 2C 43 29 29 3A 82 |T.T..(A$(R,C)):.|
000031D0: 00 F4 39 DE 01 8B 41 41 24 28 43 29 B2 22 4E 22 |..9...AA$(C)."N"|
000031E0: A7 99 41 24 28 30 2C 43 29 A3 32 30 29 3B 54 3A |..A$(0,C).20);T:|
000031F0: 8D 35 33 31 00 FB 39 DF 01 82 43 00 05 3A E0 01 |.531..9...C..:..|
00003200: 98 34 3A A0 34 00 0E 3A E1 01 8D 35 31 37 00 16 |.4:.4..:...517..|
00003210: 3A E2 01 89 31 32 00 4D 3A E3 01 8D 34 39 34 3A |:...12.M:...494:|
00003220: 43 4F B2 31 3A 4C 4E B2 32 31 3A 8D 34 39 36 3A |CO.1:LN.21:.496:|
00003230: 99 22 12 44 45 4C 45 54 45 92 20 41 52 45 20 59 |.".DELETE. ARE Y|
00003240: 4F 55 20 53 55 52 45 3F 20 59 2F 4E 22 00 56 3A |OU SURE? Y/N".V:|
00003250: E4 01 8D 35 31 32 00 66 3A E5 01 8B 4B 24 B2 22 |...512.f:...K$."|
00003260: 59 22 A7 34 38 38 00 76 3A E6 01 8B 4B 24 B2 22 |Y".488.v:...K$."|
00003270: 4E 22 A7 31 31 34 00 7F 3A E7 01 89 34 38 34 00 |N".114..:...484.|
00003280: 90 3A E8 01 54 B2 52 3A 81 52 B2 54 A4 59 AA 31 |.:..T.R:.R.T.Y.1|
00003290: 00 9B 3A E9 01 81 43 B2 31 A4 58 00 B1 3A EA 01 |..:...C.1.X..:..|
000032A0: 41 24 28 52 2C 43 29 B2 41 24 28 52 AA 31 2C 43 |A$(R,C).A$(R.1,C|
000032B0: 29 00 B8 3A EB 01 82 43 00 BF 3A EC 01 82 52 00 |)..:...C..:...R.|
000032C0: CE 3A ED 01 59 B2 59 AB 31 3A 89 31 30 30 00 E9 |.:..Y.Y.1:.100..|
000032D0: 3A EE 01 43 4F B2 31 3A 4C 4E B2 32 31 3A 8D 34 |:..CO.1:LN.21:.4|
000032E0: 39 36 3A 81 49 B2 31 A4 33 00 1D 3B EF 01 99 22 |96:.I.1.3..;..."|
000032F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003310: 20 20 20 20 20 20 20 22 3A 82 49 3A 8E 00 50 3B | ":.I:..P;|
00003320: F0 01 41 43 43 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D |..ACC$."........|
00003330: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003340: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 |..............."|
00003350: 00 76 3B F1 01 44 4F 57 24 B2 22 11 11 11 11 11 |.v;..DOW$.".....|
00003360: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00003370: 11 11 11 11 11 22 00 81 3B F2 01 81 5A B2 31 A4 |....."..;...Z.1.|
00003380: 32 00 8B 3B F3 01 99 22 13 22 3B 00 A4 3B F4 01 |2..;...".";..;..|
00003390: 8B 43 4F B1 31 A7 99 C8 28 41 43 43 24 2C 43 4F |.CO.1...(ACC$,CO|
000033A0: AB 31 29 3B 00 BD 3B F5 01 8B 4C 4E B1 31 A7 99 |.1);..;...LN.1..|
000033B0: C8 28 44 4F 57 24 2C 4C 4E AB 31 29 3B 00 F2 3B |.(DOW$,LN.1);..;|
000033C0: F6 01 8B 5A B2 31 A7 99 22 20 20 20 20 20 20 20 |...Z.1.." |
000033D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000033E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000033F0: 22 3B 00 F9 3B F7 01 82 5A 00 FF 3B F8 01 8E 00 |";..;...Z..;....|
00003400: 2F 3C F9 01 82 3A 99 3A 8D 32 36 33 3A 99 A3 36 |/<...:.:.263:..6|
00003410: 29 22 50 52 45 53 53 20 12 20 53 50 41 43 45 20 |)"PRESS . SPACE |
00003420: 42 41 52 20 92 20 46 4F 52 20 4D 45 4E 55 22 00 |BAR . FOR MENU".|
00003430: 4A 3C FA 01 4B 24 B2 22 22 3A A1 4B 24 3A 8B 4B |J<..K$."":.K$:.K|
00003440: 24 B3 B1 22 20 22 A7 35 30 36 00 52 3C FB 01 89 |$.." ".506.R<...|
00003450: 31 32 00 6B 3C FC 01 8B 50 52 B2 35 AF C3 28 C4 |12.k<...PR.5..(.|
00003460: 28 52 29 29 B2 32 A7 54 54 B2 35 00 84 3C FD 01 |(R)).2.TT.5..<..|
00003470: 8B 50 52 B2 35 AF C3 28 C4 28 52 29 29 B2 33 A7 |.PR.5..(.(R)).3.|
00003480: 54 54 B2 34 00 9D 3C FE 01 8B 50 52 B2 35 AF C3 |TT.4..<...PR.5..|
00003490: 28 C4 28 52 29 29 B2 34 A7 54 54 B2 33 00 A3 3C |(.(R)).4.TT.3..<|
000034A0: FF 01 8E 00 C0 3C 00 02 A1 4B 24 3A 8B 4B 24 B3 |.....<...K$:.K$.|
000034B0: B1 22 59 22 AF 4B 24 B3 B1 22 4E 22 A7 35 31 32 |."Y".K$.."N".512|
000034C0: 00 C6 3C 01 02 8E 00 05 3D 02 02 43 4F B2 31 3A |..<.....=..CO.1:|
000034D0: 4C 4E B2 32 31 3A 8D 34 39 36 3A 99 22 20 3C 3C |LN.21:.496:." <<|
000034E0: 20 45 4E 53 55 52 45 20 54 48 41 54 20 50 52 49 | ENSURE THAT PRI|
000034F0: 4E 54 45 52 20 49 53 20 41 4C 49 47 4E 45 44 20 |NTER IS ALIGNED |
00003500: 3E 3E 22 3A 99 00 43 3D 03 02 99 22 44 52 55 4B |>>":..C=..."DRUK|
00003510: 20 12 53 50 41 54 49 45 42 41 4C 4B 92 20 56 4F | .SPATIEBALK. VO|
00003520: 4F 52 20 56 45 52 56 4F 4C 47 2C 20 4D 3D 4D 45 |OR VERVOLG, M=ME|
00003530: 4E 55 22 3A A1 4B 24 3A 8B 4B 24 B2 22 22 A7 20 |NU":.K$:.K$."". |
00003540: 35 31 34 00 5F 3D 04 02 8E 20 3A 8F 20 2A 2A 2A |514._=... :. ***|
00003550: 2A 2A 2A 2A 2A 20 20 4E 41 41 52 20 33 36 34 00 |***** NAAR 364.|
00003560: 83 3D 05 02 81 43 B2 31 A4 58 3A 41 24 28 30 2C |.=...C.1.X:A$(0,|
00003570: 43 29 B2 C8 28 41 24 28 30 2C 43 29 2C 39 29 3A |C)..(A$(0,C),9):|
00003580: 82 3A 8E 00 AC 3D 06 02 52 50 24 B2 22 22 3A 81 |.:...=..RP$."":.|
00003590: 43 B2 31 A4 58 3A 54 50 24 B2 22 22 3A 8B 43 24 |C.1.X:TP$."":.C$|
000035A0: 28 43 29 B2 22 59 22 A7 8D 35 32 38 00 B3 3D 07 |(C)."Y"..528..=.|
000035B0: 02 82 43 00 E4 3D 08 02 52 B2 30 3A 52 24 B2 22 |..C..=..R.0:R$."|
000035C0: 22 3A 50 44 24 B2 22 22 3A 81 43 B2 31 A4 58 3A |":PD$."":.C.1.X:|
000035D0: 50 44 B2 41 28 43 29 AB C3 28 41 24 28 52 2C 43 |PD.A(C)..(A$(R,C|
000035E0: 29 29 AA 31 00 F3 3D 09 02 8B 50 44 B3 31 A7 50 |)).1..=...PD.1.P|
000035F0: 44 B2 31 00 29 3E 0A 02 50 44 24 B2 C8 28 53 24 |D.1.)>..PD$..(S$|
00003600: 2C 50 44 29 3A 8B 43 24 28 43 29 B2 22 59 22 A7 |,PD):.C$(C)."Y".|
00003610: 52 24 B2 52 24 AA C8 28 41 24 28 52 2C 43 29 2C |R$.R$..(A$(R,C),|
00003620: 41 28 43 29 29 AA 50 44 24 00 30 3E 0B 02 82 43 |A(C)).PD$.0>...C|
00003630: 00 4C 3E 0C 02 9F 34 2C 34 3A 9D 34 3A 8B 43 53 |.L>...4,4:.4:.CS|
00003640: 24 B2 22 59 22 A7 99 C7 28 43 53 29 00 6E 3E 0D |$."Y"...(CS).n>.|
00003650: 02 99 4D 24 A6 31 30 29 22 46 49 4C 45 4E 41 4D |..M$.10)"FILENAM|
00003660: 45 20 3D 20 22 4E 24 3A 99 3A 8D 35 33 31 00 91 |E = "N$:.:.531..|
00003670: 3E 0E 02 99 52 24 3A 81 49 B2 31 A4 C3 28 52 24 |>...R$:.I.1..(R$|
00003680: 29 3A 99 22 2D 22 3B 3A 82 49 3A 99 3A 8D 35 33 |):."-";:.I:.:.53|
00003690: 31 00 A2 3E 0F 02 99 52 50 24 3A 98 34 3A A0 34 |1..>...RP$:.4:.4|
000036A0: 3A 8E 00 C2 3E 10 02 81 49 B2 31 A4 41 28 43 29 |:...>...I.1.A(C)|
000036B0: 3A 54 50 24 B2 54 50 24 AA 41 41 24 28 43 29 3A |:TP$.TP$.AA$(C):|
000036C0: 82 49 00 ED 3E 11 02 8B C3 28 54 50 24 29 B3 C3 |.I..>....(TP$)..|
000036D0: 28 41 24 28 31 2C 43 29 29 A7 54 50 24 B2 54 50 |(A$(1,C)).TP$.TP|
000036E0: 24 AA 41 41 24 28 43 29 3A 89 35 32 39 00 0B 3F |$.AA$(C):.529..?|
000036F0: 12 02 54 50 24 B2 54 50 24 AA 22 20 22 3A 52 50 |..TP$.TP$." ":RP|
00003700: 24 B2 52 50 24 AA 54 50 24 3A 8E 00 1F 3F 13 02 |$.RP$.TP$:...?..|
00003710: 8B 4C 46 24 B2 22 59 22 A7 99 C7 28 31 30 29 00 |.LF$."Y"...(10).|
00003720: 25 3F 14 02 8E 00 4E 3F 15 02 99 22 93 4D 41 58 |%?....N?...".MAX|
00003730: 20 4E 4F 20 4F 46 20 52 45 43 4F 52 44 53 20 4E | NO OF RECORDS N|
00003740: 4F 57 20 52 45 41 43 48 45 44 2E 22 3A 99 00 97 |OW REACHED.":...|
00003750: 3F 16 02 99 22 54 4F 20 49 4E 43 52 45 41 53 45 |?..."TO INCREASE|
00003760: 20 4D 41 58 49 4D 55 4D 20 52 45 2D 44 49 4D 45 | MAXIMUM RE-DIME|
00003770: 4E 53 49 4F 4E 22 3A 99 3A 99 22 50 52 4F 47 52 |NSION":.:."PROGR|
00003780: 41 4D 20 41 54 20 4C 49 4E 45 20 34 31 35 20 41 |AM AT LINE 415 A|
00003790: 4E 44 20 31 37 34 22 00 E2 3F 17 02 99 3A 99 22 |ND 174"..?...:."|
000037A0: 4F 52 20 43 41 4C 4C 20 44 49 41 4C 4F 47 20 4F |OR CALL DIALOG O|
000037B0: 4E 20 30 31 20 32 38 39 20 36 39 30 34 22 3A 99 |N 01 289 6904":.|
000037C0: 3A 99 3A 99 3A 99 22 50 52 45 53 53 20 12 53 50 |:.:.:."PRESS .SP|
000037D0: 41 43 45 20 42 41 52 92 20 46 4F 52 20 4D 45 4E |ACE BAR. FOR MEN|
000037E0: 55 22 00 F7 3F 18 02 A1 4B 24 3A 8B 4B 24 B3 B1 |U"..?...K$:.K$..|
000037F0: 22 20 22 A7 35 33 36 00 05 40 19 02 59 B2 32 30 |" ".536..@..Y.20|
00003800: 30 3A 89 31 32 00 26 40 1A 02 99 22 93 22 3A 20 |0:.12.&@...".": |
00003810: 99 22 12 20 44 49 53 4B 20 44 49 52 45 43 54 4F |.". DISK DIRECTO|
00003820: 52 59 20 92 11 22 00 5C 40 1B 02 9F 31 2C 38 2C |RY ..".\@...1,8,|
00003830: 31 35 2C 22 49 30 22 3A A0 31 3A 9F 31 2C 38 2C |15,"I0":.1:.1,8,|
00003840: 30 2C 22 24 30 22 3A 81 4B B2 31 A4 32 35 3A A1 |0,"$0":.K.1.25:.|
00003850: 23 31 2C 58 24 3A 82 4B 3A 44 B2 31 00 6B 40 1C |#1,X$:.K:D.1.k@.|
00003860: 02 8B 44 B2 32 A7 44 B2 30 3A 99 00 89 40 1D 02 |..D.2.D.0:...@..|
00003870: 99 A3 32 30 AC 44 29 3B 3A 81 4B B2 31 A4 34 3A |..20.D);:.K.1.4:|
00003880: A1 23 31 2C 58 24 3A 82 4B 00 A2 40 1E 02 8B 20 |.#1,X$:.K..@... |
00003890: 53 54 20 B0 20 44 53 20 A7 A0 31 3A 99 3A 89 33 |ST . DS ..1:.:.3|
000038A0: 35 38 00 BF 40 1F 02 A1 23 31 2C 58 24 3A 8B 58 |58..@...#1,X$:.X|
000038B0: 24 B2 22 22 A7 44 B2 44 AA 31 3A 89 35 34 30 00 |$."".D.D.1:.540.|
000038C0: D7 40 20 02 8B 58 24 B2 C7 28 33 34 29 A7 4F B2 |.@ ..X$..(34).O.|
000038D0: A8 4F 3A 89 35 34 33 00 E3 40 21 02 8B 4F A7 99 |.O:.543..@!..O..|
000038E0: 58 24 3B 00 EC 40 22 02 89 35 34 33 00 00 41 23 |X$;..@"..543..A#|
000038F0: 02 8B 49 50 24 B2 22 22 A7 49 50 24 B2 22 2D 22 |..IP$."".IP$."-"|
00003900: 00 3B 41 24 02 8B C6 28 49 50 24 29 B3 34 36 B0 |.;A$...(IP$).46.|
00003910: C6 28 49 50 24 29 B1 35 37 A7 41 43 B2 31 3A 99 |.(IP$).57.AC.1:.|
00003920: 3A 99 22 12 4E 55 4D 45 52 49 43 20 49 4E 50 55 |:.".NUMERIC INPU|
00003930: 54 20 52 45 51 55 49 52 45 44 22 00 6B 41 25 02 |T REQUIRED".kA%.|
00003940: 8B 52 B3 30 B0 52 B1 59 A7 99 3A 99 22 12 45 4E |.R.0.R.Y..:.".EN|
00003950: 54 45 52 20 41 20 56 41 4C 55 45 20 42 45 54 57 |TER A VALUE BETW|
00003960: 45 45 4E 20 31 20 41 4E 44 22 59 00 7D 41 26 02 |EEN 1 AND"Y.}A&.|
00003970: 81 49 B2 31 A4 31 30 30 30 3A 82 3A 8E 00 A7 41 |.I.1.1000:.:...A|
00003980: 58 02 99 22 45 45 4E 20 52 45 43 4F 52 44 20 54 |X.."EEN RECORD T|
00003990: 4F 45 56 4F 45 47 45 4E 20 4F 46 20 4D 45 45 52 |OEVOEGEN OF MEER|
000039A0: 20 28 45 2F 4D 29 22 00 BD 41 59 02 A1 49 32 24 | (E/M)"..AY..I2$|
000039B0: 3A 8B 49 32 24 B2 22 22 A7 20 36 30 31 00 DA 41 |:.I2$."". 601..A|
000039C0: 5A 02 8B 20 49 32 24 B3 B1 22 45 22 AF 49 32 24 |Z.. I2$.."E".I2$|
000039D0: B3 B1 22 4D 22 A7 20 36 30 31 00 ED 41 5B 02 8B |.."M". 601..A[..|
000039E0: 20 49 32 24 B2 22 4D 22 A7 20 46 B2 32 00 F3 41 | I2$."M". F.2..A|
000039F0: 5C 02 8E 00 1B 42 5D 02 8B 49 50 24 B2 22 45 4E |\....B]..IP$."EN|
00003A00: 44 22 AF 46 B2 31 A7 46 B2 30 3A 52 B2 52 AB 31 |D".F.1.F.0:R.R.1|
00003A10: 3A 59 B2 59 AB 31 3A 89 31 30 31 00 42 42 5E 02 |:Y.Y.1:.101.BB^.|
00003A20: 8B 49 50 24 B2 22 45 4E 44 22 AF 46 B2 32 A7 46 |.IP$."END".F.2.F|
00003A30: B2 30 3A 52 B2 52 AB 31 3A 59 B2 59 AB 31 3A 89 |.0:R.R.1:Y.Y.1:.|
00003A40: 31 32 00 4C 42 5F 02 89 20 31 38 34 00 00 00 |12.LB_.. 184... |
..3....53280,2:.53281,2:. ".":.N.0.N.1:.
"SORT2",8,1.G....**DFM BY CHRIS ELY*DIAL
OG SOFTWARE(C) 15.01.83.....X.0:Y.0:R.0:
C.0:IP$."":K$."":EM$."":N$."":.412.....A
$(R,C)."":F.0:S.0......G(147).F....343..
...."... DO YOU WANT .U.PPER OR .L.OWE
R CASE"......K$:.K$."".8. ....K$."U"..G(
142):.12.7....K$."L"..G(14):.12.>....8.O
....G(147):.343._....:.N$."".17.J...NL$.
N$......C(NL$).9.NL$.NL$." ":.15......:.
:..8)".FILE IN USE: ";NL$;".":.:.:..N...
..14)"KEY OPTION":.263......"1 CREATE NE
W FILE".20)"2 RENAME FILE"......"3 ACCES
S RECORD".20)"4 SELECT".K...."5 LOAD/SAV
E FILE".20)"6 REPORT WRITER.Q...."7 SORT
FILE".20)"8 UTILITIES":........11)"9 EX
IT PROGRAM":.263......K$:.K$."".23.O...K
K$."123456789":.K.1.9:.K$.J(KK$,K,1).26.
Z....K:.23......Y.0.K..1.K..5.K..8.K..9.
.".NO FILE EXISTS":.260:.12.=....K.128,7
8,100,191,264,432,416,350,337.G.... 410.
O...."DO YOU WISH TO .C.ONTINUE SEARCH".
....."OR RETURN TO .M.ENU"......K$:.K$."
".31... ..K$."C"..410:.35...!..K$."M".12
.H."..31...#..494:CO.1:LN.21:.496...$.."
SEARCH FOR RECORD BY KEY FIELD".-.%.."--
----------------------------".L.&.."ENTE
R ""."A$(0,1)"."":";.Y.'..253:.46.B.(..4
94.V.).CO.1:LN.21:.496. .*.."THERE ARE "
Y" RECORDS IN THIS FILE".D.+.."ENTER REC
ORD NUMBER :";:. 253...,.R.E(IP$):.R.0.R
.Y.."..":.547:."."S$:."..":.410: .42...-
..101.....L$.IP$.../.F.C(L$).'.0..R.1.Y.
@.1..L$.H(A$(R,1),F).101.F.2...O.3..410.
O.4..".NO SUCH RECORD EXISTS!."..5..Z.1
.1000:....6..28...7.AC.0: ."WHICH LINE D
O YOU WISH TO AMEND".R.8.."PRESS 1 TO "X
" :";:.253...9.C.E(IP$):.C.X..410:.55...
:..410./.;.."EXISTING DATA FOR ""."A$(0,
C)"."" = ":. "."A$(R,C).T.<.."NEW DATA "
;:."[";:.H(S$,A(C));.Q.=.."]";:.H(T$,A(C
));:.".";...>..253:.AA$(C)."N".."..":.54
7:.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..263.I.D.."WHICH L
INE DO YOU WISH TO AMEND".H.E.."PRESS 1
TO "X" :";:.253;...F.C.E(IP$):.C.X..410:
.68...G..410...H.."."A$(0,C)...I.."ENTER
CORRECT FIELD HEADING [ ]......
....";:. 253...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).H.M..101
.Z.N.."ENTER NEW FILE NAME [ ]..
........";...O..253:N$.IP$:.12.A.P..494:
CO.1:LN.21:.496:."DO YOU WISH TO AMEND:-
"...Q.."FIELD .H.EADING OR .D.ATA"...R..
K$:.K$."".82...S..K$."H"..410:.68...T..K
$."D"..410:.55.&.U..82.H.V..G(147);:RS.R
:.R.RS.Y:.G(19);.{.W..". RECORDS WILL DI
SPLAY IN LOGICAL ORDER .":....X.CO.1:LN.
24:.496:.".C.ONTINUE SCROLL: .S.TOP SCR
OLL: .E.XIT:...Y.CO.1:LN.3:.496:."RECOR
D NO: ";R:.:.C.1.X...Z.."."A$(0,C)".";:Q
.C(A$(R,C)):.Q.26.Q.26.8.[...12)H(A$(R,C
),26).H(S$,26.Q).C.\..C.1...R.]..RN..0.5
05.Y.^..C.R._.K$."":.K$:.K$."S".98...`..
K$.."E"..I.1.500:.I:.R...A..101...B.K$."
":.K$:.K$.."C".K$.."E".98.A.C..96.I.D.R.
1.Q.E.A.1...F..R.0.R.1...G..R.Y.R.R.1:R.
Y...H..A.0.A.1...I..A.25.A.A.1.9.J..G(14
7):.".";N$.19)"RECORD NO";R:. 263.D.K..C
.1.X.P.L.GG.A(C).A.M..GG.24.GG.24.R.N.."
."D(C)".";. .O...4)"."H(A$(0,C),9)".".15
)J(A$(R,C),A,GG)...P..C.1..263...Q...M.R
.CO.1:LN.20:.496:.L3$...S.."
.**OPTIONS**. ".3.T.."PRESS :
.N.EXT .L.AST .F.IND .G.OTO .A.MEND .M.E
NU".K.U..".C.ALCS .I.NPUT .D.ELETE .P.RI
NT .S.CROLL .<. .>".T.V..L3$...W..K$:.K$
."".119...X.KK$."NLMIGFS><APCD":.K.1.13:
.K$.J(KK$,K,1).122.F.Y..K:.119...Z..K.12
3,124,12,125,40,35,86,126,127,80,363,372
,483...{.R.R.1:. 101...|.R.R.1:. 101...}
.F.1:TV.R:.172.=.~.A.A.1:.102.L..A.A.1:
.102......G(147):.:.".**WARNING** THIS W
ILL ERASE ANY FILE"......".CURRENTLY IN
MEMORY.":.:.:.:..L.....8) ".............
...........".......8)"PRESS .Y.ES TO CON
TINUE".......8)" .N.O FOR MENU".0..
...8) "........................".9....51
2.H....K$."N".12.Y....K$."Y". 137.L....G
(147):.:.412......"KEY DATE EG.(28.12.82
)[ ].........";:.253......IP$."".
141......547:.AC.1.AC.0:."."S$".":."....
":.138.....M$.H(IP$,8):.G(147).......12)
".CREATE RECORD.":.......263.O...."WHAT
IS THE FILE NAME ?[ ].........";.
X....253.J...N$.H(IP$,8):..T.... 263....
.."HOW MANY FIELDS IN EACH RECORD ? [ ]
...";:. 253.....X.E(H(IP$,2)):.......X.1
.X.15..".MAXIMUM IS 15.":.148......415:.
G(147):C.1......".THIS FILE IS NAMED ";N
$:.263.O...."NOTE THAT FIELD 1 IS THE .
KEY FIELD . ":..X....263......"STATE . T
ITLE . OF FIELD"C" [ ].........
.";......253:......A$(0,C).H(IP$,9).....
.C(A$(0,C)).9.A$(0,C).A$(0,C)." ":.158..
...."ENTER .C.HARACTER OR .N.UMERIC FIEL
D [ ]..";:.253.,. .AA$(C).H(IP$,1):..@..
..AA$(C)."N".164.T....AA$(C)."C".166.B..
..410:.159.O...A(C).9:..X....170......"E
NTER NUMBER OF CHARACTERS FOR RECORD".L.
..."MAX.36 CHARACTERS [ ]...";:.253....
.A(C).E(IP$):.......A(C).36.."..":.410:.
166......C.X.172.....C.C.1:.".":.152.;..
..F.1.R.Y.1:Y.Y.1:.600:.174.G...R.1:Y.1.
V....R.600.533......G(147):AC.0: ..12)".
RECORD NUMBER";R".":.263.......3)"TO TER
MINATE DATA ENTRY TYPE 'END'":..B....263
:..M....C.1.X......"KEY "A$(0,C):."[";:.
H(S$,A(C));......"]";:.H(T$,A(C));:.".";
:.253.:....IP$."END". F.0 . R.1:Y.Y.1:.
12.]....IP$."=".A$(R,C).A$(TV,C):.187...
...605:.IP$."END".F.1.F.0:R.R.1:Y.Y.1:.1
01.D....AA$(C)."N"..547:.AC.1.AC.0:."."S
$:.".":.".....":.179.....A$(R,C).H(IP$,A
(C)):.......A$(R,C)."".A$(R,C)."-"......
263............F.1.F.0:.101.1...R.R.1:Y.
Y.1:. 174.^....G(147):..15)".**SELECT**"
:.263:E.0:RC.0......"DO YOU WANT TO OUTP
UT RESULTS TO":."PRINTER: KEY .Y.ES OR .
N.O"...A..263...B..512.L.C..K$."Y".PR.5:
.197...D..K$."N".PR.0:.197...E..PR.0.TT.
15...F..R.1.Y.>.G..410:.".ENTER SELECTED
.FIELD. [ ]..........";:.253;.L
.H.DP$.IP$:..K.I..C(DP$).9.DP$.DP$." ":.
201.Z.J..:.263:C.1...K..A$(0,C).DP$.206.
..L.C.C.1:.C.X.1.203.F.M.EM$.".NO SUCH F
IELD":.260:.12...N.."ENTER ."DP$"."...O.
."[";:.H(S$,A(C));...P.."]";:.H(T$,A(C))
;:.".";.(.Q..253:CP$.IP$:.:. 263.5.R.F.C
(CP$).Z.S..G(147):.:. 263:.AA$(C).."C".2
14...T.."DO YOU WANT A STANDARD OR SLIDI
NG".B.U.."STRING SEARCH: ENTER .ST. OR .
SS. [ ]...";:.253:ST$.IP$...V..G(147):.
:. 263:.AA$(C)."N".J.1:.217...W..ST$."SS
".SS.1:I.1:.225.'.X..ST$."ST".SS.0:I.1:J
.1:.225.E.Y.."SHOULD . "DP$" . BE:":..C.
Z...2)".E.QUAL TO".15)CP$:........2)".L.
ESS THAN".15)CP$:........2)".G.REATER TH
AN".15)CP$:.......K$:.K$."".221.....KK$.
"ELG":.I.1.3:.K$.J(KK$,I,1).224......I:.
221......G(147):. 263.; ..AR.24:.PR.5..5
14:.".".14)".**PRINTING**.":AR.A(1):.4,4
:.4.H ..."FILE NAME : "N$:.:."SELECTION
: "DP$:..{ ...I.240,228,234.. ..."CRITER
IA < "CP$" ":.263:.R.1.Y.. ...508.. ...
E(A$(R,C)).E(CP$).."RECORD NO ";R.TT)H(A
$(R,1),AR):RC.RC.1.. .....!...PR.5..4: 4
..!...249./!..."CRITERIA > "CP$" ":.263
:.R.1.Y.8!...508.X!...E(A$(R,C)).E(CP$).
."RECORD NO ";R.TT)H(A$(R,1),AR):RC.RC.1
.~!.....!...PR.5..4: 4..!...249..!..."CR
ITERIA = "CP$" ":.263:.R.1.Y.H!...R.1.Y
.Q!...508..!...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.6"...SS.0.247.="...J.C"
....S"...PR.5..4: 4.."...:.".RECORDS COU
NTED =. ";RC:.:..13)".PRESS SPACE BAR.".
."...K$:.K$."".250.."...K$." ".R.R.1:.12
.A"...250.Q"..B$." ":."";.."...IP$:.IP$.
""..254..#...B$." ".F(IP$).20..254./#...
F(IP$).20.B$.H(B$,C(B$).1):.". .";:.254.
N#...IP$.G(13).IP$.J(B$,2):.:..F#..A.F(I
P$):.A.31..254..#..B$.B$.IP$:.".";IP$;".
";:.254..#... EM$..#... T8.1 .1000:...#.
....#..."...............................
........":...$... "DO YOU WISH TO .L.OAD
OR .S.AVE":...$...K$:.K$."".265.($...K$
."L".283.8$...K$."S".269.A$...265.J$...4
10.W$..."ARE YOU SAVING ON .D.ISC OR .T.
APE?":...$...K$:.K$."".271..$...K$."T".2
75..$...K$."D".297..$...271..$...410.T$.
..".INSERT CASSETTE"..$..."PRESS .C. TO
CONTINUE"..%...K$:.K$.."C". 278..%...410
:."SAVING ."N$.(%..."..".7%... 1,1,1,N$.
@%...305.F%....N%...412:.410:."ARE YOU L
OADING FROM:-"..%...".D.ISK OR .T.APE"..
%...K$:.K$."".286..%...K$."T".290..% ..K
$."D".295.B%!..286.U%".T.1:U.0:NN$.N$..%
#..410:."IS CASSETTE IN PLACE"..&$.."PRE
SS .Y.ES TO CONTINUE".*&%..K$:.K$.."Y".2
93.3&&..315.H&'.T.8:U.4:N1$."0:":N2$.",S
EQ,READ":NN$.N1$.NN$.N2$.Q&(..315.Z&)..4
10..&*.."DO YOU WANT TO SAVE ON DRIVE .0
. OR .1."..&+..K$:.K$."".299.V&,..K$."0"
.DR$."0:":.303..&-..K$."1".DR$."1:":.303
..&...299.%'/.N1$.DR$:N2$.",SEQ,WRITE":N
N$.N1$.N$.N2$.8'0..1,8,4,"@".NN$.I'1..1,
Y:.G(13);.Z'2..1,X:.G(13);.W'3..C.1.X:.1
,A(C):.G(13);:...'4..C.1.X:.1,AA$(C):.G(
13);:...'5..R.1.Y.A'6..C.1.X:.1,A$(R,C):
.G(13);:..G'7....'8..C.1.X:.1,A$(0,C):.G
(13);:...'9. 1..':..12./(;..410:."ENTER
FILE NAME [ ]..........";:. 253.
H(<.N$.H(IP$,9):NN$.N$:..X(=..T.1.."..."
.G(>..1,T,U,NN$.Z(?..1,Y:.1,X:.415..(@..
C.1.X:.1,A(C):...(A..C.1.X:.1,AA$(C):...
(B..R.1.Y..(C..C.1.X.K(D..1,A$(R,C).S(E.
.:...(F..C.1.X..(G..1,A$(0,C)..(H....(I.
1..)J..410.=)K..Y.0.N$."":.".FILE NOT F
OUND ON DISK":.I.1.1000:.:.12.T)L.."KEY
DATE EG.(28.12.83)[ ].........";:
.253..)M..IP$."".335..)N.R.1:.:.547:.AC.
1.AC.0:."."S$".":."....":.332.G)O.M$.H(I
P$,8):..O)P..12..)Q.."EXIT 'DFM' ARE YOU
SURE (Y/N)..*R..K$:.K$."".338..*S..K$."
Y".N$."":.343.,*T..K$."N".12.?*U..
.O*V..339 .|*W..: .".
*************************"..*X.."
*** .DATA. .FILE. .MANAGER. ***".T*Y..
" *************************":...*Z
..N$.."". ...+[.." BY
":..B+\.." . D . . I . .
A . . L . . O . . G . ":..I+].."
S O F T W A R E":.:..U+^..G(147)..+
_...14)".**UTILITIES**.":.263:..P+`.."
.M.EMORY AVAILABILITY":.:." .D.ISK DIRE
CTORY":...+A.." MENU .SPACE BAR."..+B..
V$:.V$."".354..,C..V$."M".361..,D..V$."D
".538.,,E..V$." ".12.O,F..:.".PRESS SPAC
E BAR FOR MENU".D,G..K$:.K$.." ".354.L,H
..12..,I..".....".24)"= ".(0)"BYTES "..,
J..G(19):.351..,K..494..,L..514:. K$.."
". 12.I,M..4,4:.4..,N..G(147):.".";N$ .1
9)"RECORD NO";R:.L3$.--O.C.1:."."D(C)"."
;:..2)"." A$(0,C)".".3);H(A$(R,C),24).6-
P..L3$.D-Q.. C.2 . X.K-R..D(C);:..2)A$(0
,C).3)H(A$(R,C),24)..-S..:.:.263:.: .4:
4:.101.D-T..494:CO.1:LN.21:.496:."DO YOU
WISH TO PERFORM INDIVIDUAL"..-U..".C.AL
CS OR .T.OTALISE FIELD"..-V..K$:.K$."".3
74...W..K$."T"..410:.396.&.X..K$."C"..41
0:.378./.Y..374.N.Z.."WHICH FIELD DO YOU
WISH".X.{.."TO CALCULATE, KEY 1 TO "X"
:";:.253...|.C.E(IP$):.C.X..410:.378...}
..410.B.~..AA$(C)."C"..".CHARACTER. FIEL
D".V...AA$(C)."N".385......I.1.1000:.:.
114../..."KEY LETTER FOLLOWED BY AMOUNT
EG.(A25)".O/...".A.DD .S.UBTRACT .M.ULTI
PLY .D.IVIDE .Z.EROISE".O/...".R.EPLACE
:";:.253:L$.IP$../...H(L$,1)."S".P.E(A$(
R,C)).E(J(L$,2)).A/...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
.F0...H(L$,1)."R".P.E(J(L$,2)).\0..A$(R,
C).J(D(P),2).E0...101..0..."WHICH FIELD
DO YOU WISH"..0..."TO TOTALISE KEY 1 TO
"X" :";:.253.H0..C.E(IP$):.C.X..410:.396
.Q0...410..0...AA$(C)."C"..".CHARACTER.
FIELD"..1...AA$(C)."N".403..1...I.1.1000
:.:.114.'1..T.0.D1... 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
$."".407.P1...K$." ".101.Y1...407..1..:.
.1..."..";:.S$:.S$:."...":..,2..S$."
".^2.
.L3$."----------------------------------
-----"..2..T$.".........................
...............":..N2... A$(600,X),AA$(X
),A(X),C$(X),B$(X),AH$(X):A$(R,C)."":...
2 .."WHICH FIELD DO YOU WISH TO"..3..."S
ORT BY.. KEY 1 TO "X" :";:.253.#3..M.E(I
P$).,3...410.M3...".SORTING. PLEASE WAIT
":.I.0.X:AH$(I).A$(0,I):A$(0,I)." ":...3
...780,M:.49152,A:.I.0.X:A$(0,I).AH$(I):
.:.431:.R.1.Y.1..3...I.(R.1).Y..3...AA$(
M)."C".A$(I,M)..A$(R,M).430..4...AA$(M).
"N".E(A$(I,M))..E(A$(R,M)).430..4...C.1.
X.#4..B$(C).A$(R,C).74..A$(R,C).A$(I,C).
I4..A$(I,C).B$(C).P4...C.X4...:...4...".
SORT. COMPLETED":.J.1.1000:.:.12..4...G(
147):..10)".**REPORT WRITER**".R4..."WHI
CH OF THE FOLLOWING FIELDS DO YOU"..4...
"WISH TO INCLUDE IN THE REPORT"..5...L3$
..5...C.1.X..5...A$(0,C);.Q5....25)"KEY
.Y. OR .N. [ ]..";:.253:C$(C).H(IP$,1):.
C.5...L3$:.:..6)"<< ACCEPT FIELD SELECT
ION >>"..5...:..4)"KEY .Y. TO CONTINUE .
N. TO RE-SELECT"..5...512.I5...K$."N".43
2..5...K$."Y"..G(147):..10)".**REPORT WR
ITER**"..6...:..9)"PRINTER INFORMATION":
.L3$.W6..."DO YOU REQUIRE LINE FEED".25)
"KEY .Y. OR .N. [ ]..";.O6...253:LF$.H(I
P$,1):...6..."DO YOU WISH TO SEND A":."C
HR$ TO THE PRINTER".25)"KEY .Y. OR .N. [
]";..6..."..";:.253:CS$.H(IP$,1):G.9:.C
S$."Y".G.11.%7A..CS$."Y"..:."ENTER CHR$"
.35)"[ ]...";:.253:CS.E(IP$).37B..L3$:.
456.H7C..".":.I.1.G:.:.:.I.1.23.G:.S$:.I
:.".":.I.1.G:.:...7D...12)".**TEST OVER*
*":.:..5):."KEY .Y. TO CONTINUE .N. TO R
E-SETUP"..7E..512.I7F..K$."Y".461..7G..K
$."N"..517:.432..8H.."DO YOU REQUIRE TES
T PRINT: KEY .Y. OR .N.":.L3$..8I..512.4
8J..K$."N"..514:.461.J8K..K$."Y"..514:.5
18.S8L..451._8M..4,4:.4.T8N..CS$."Y".. G
(CS)..8O..M$.10)"FILENAME = "N$:.:.531..
8P.R.0:P.0..8Q.C.1.C8R.PD.A(C).C(A$(R,C)
).1.R8S..PD.1.PD.1..9T.PD$.H(S$,PD):.C$(
C)."Y"..H(A$(R,C),A(C)).PD$;:.R.0.P.P.A(
C).'9U.C.C.1:.C.X.1.466.09V..531.R9W..R.
0..:.I.1.P.2:."-";:.I:.531.I9X.R.R.1:.:.
R.Y.1.465.S9Y..:.:...9Z.." *TOTALS*":.
531..9..." --------":.:.531..9...C.1.X
:T.0.P9...R.1.Y:T.T.E(A$(R,C)):...9...AA
$(C)."N"..A$(0,C).20);T:.531..9...C..:..
.4: 4..:...517..:...12.M:...494:CO.1:LN.
21:.496:.".DELETE. ARE YOU SURE? Y/N".V:
...512.F:...K$."Y".488.V:...K$."N".114.
:...484..:..T.R:.R.T.Y.1..:...C.1.X..:..
A$(R,C).A$(R.1,C)..:...C..:...R.N:..Y.Y.
1:.100..:..CO.1:LN.21:.496:.I.1.3..;..."
"
:.I:..P;..ACC$."........................
...............".V;..DOW$.".............
............."..;...Z.1.2..;...".";..;..
.CO.1..H(ACC$,CO.1);..;...LN.1..H(DOW$,L
N.1);..;...Z.1.."
";..;...Z..;..../<...:.:
.263:..6)"PRESS . SPACE BAR . FOR MENU".
J<..K$."":.K$:.K$.." ".506.R<...12.K<...
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".512.F<.....=..CO.1:
LN.21:.496:." << ENSURE THAT PRINTER IS
ALIGNED >>":..C=..."DRUK .SPATIEBALK. VO
OR VERVOLG, M=MENU":.K$:.K$."". 514._=..
. :. ******** NAAR 364..=...C.1.X:A$(0,
C).H(A$(0,C),9):.:...=..RP$."":.C.1.X:TP
$."":.C$(C)."Y"..528..=...C..=..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$.0>...C.L>...4,
4:.4:.CS$."Y"..G(CS).N>...M$.10)"FILENAM
E = "N$:.:.531..>...R$:.I.1.C(R$):."-";:
.I:.:.531..>...RP$:.4: 4:..B>...I.1.A(C)
:TP$.TP$.AA$(C):.I..>...C(TP$).C(A$(1,C)
).TP$.TP$.AA$(C):.529..?..TP$.TP$." ":RP
$.RP$.TP$:...?...LF$."Y"..G(10).%?....N?
...".MAX NO OF RECORDS NOW REACHED.":...
?..."TO INCREASE MAXIMUM RE-DIMENSION":.
:."PROGRAM AT LINE 415 AND 174"..?...:."
OR CALL DIALOG ON 01 289 6904":.:.:.:."P
RESS .SPACE BAR. FOR MENU"..?...K$:.K$..
" ".536..@..Y.200:.12.&@...".": .". DISK
DIRECTORY ..".\@...1,8,15,"I0": 1:.1,8,
0,"$0":.K.1.25:.#1,X$:.K:D.1.K@...D.2.D.
0:...@....20.D);:.K.1.4:.#1,X$:.K..@...
ST . DS . 1:.:.358..@...#1,X$:.X$."".D.D
.1:.540.W@ ..X$.G(34).O..O:.543..@!..O..
X$;..@"..543..A#..IP$."".IP$."-".;A$..F(
IP$).46.F(IP$).57.AC.1:.:.".NUMERIC INPU
T REQUIRED".KA%..R.0.R.Y..:.".ENTER A VA
LUE BETWEEN 1 AND"Y.}A&..I.1.1000:.:...A
X.."EEN RECORD TOEVOEGEN OF MEER (E/M)".
.AY..I2$:.I2$."". 601.ZAZ.. I2$.."E".I2$
.."M". 601..A[.. I2$."M". F.2..A\....B].
.IP$."END".F.1.F.0:R.R.1:Y.Y.1:.101.BB^.
.IP$."END".F.2.F.0:R.R.1:Y.Y.1:.12.LB_..
184...
> CLICK IMAGE PREVIEW FOR FULL MODAL