DFM
FILE INFORMATION
FILENAME(S): DFM
FILE TYPE(S): PRG
FILE SIZE: 13.6K
FIRST SEEN: 2025-12-02 02:14:52
APPEARS ON: 1 disk(s)
FILE HASH
71696539abfea70f9f71755f8def96b8deb7c8ce8ead4ef5fd89d35aa7562c35
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PANS DATABASE 01 | DFM | PRG | The BAM Archive | 14 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 01 00 97 35 33 32 38 30 2C 32 3A 97 |.......53280,2:.|
00000010: 35 33 32 38 31 2C 32 3A 99 20 22 9E 22 00 51 08 |53281,2:. ".".Q.|
00000020: 02 00 8F 2A 2A 44 46 4D 20 42 59 20 43 48 52 49 |...**DFM BY CHRI|
00000030: 53 20 45 4C 59 2A 44 49 41 4C 4F 47 20 53 4F 46 |S ELY*DIALOG SOF|
00000040: 54 57 41 52 45 28 43 29 20 31 35 2E 30 31 2E 38 |TWARE(C) 15.01.8|
00000050: 33 00 84 08 03 00 58 B2 30 3A 59 B2 30 3A 52 B2 |3.....X.0:Y.0:R.|
00000060: 30 3A 43 B2 30 3A 49 50 24 B2 22 22 3A 4B 24 B2 |0:C.0:IP$."":K$.|
00000070: 22 22 3A 45 4D 24 B2 22 22 3A 4E 24 B2 22 22 3A |"":EM$."":N$."":|
00000080: 8D 34 31 35 00 9B 08 04 00 41 24 28 52 2C 43 29 |.415.....A$(R,C)|
00000090: B2 22 22 3A 46 B2 30 3A 53 B2 30 00 A7 08 05 00 |."":F.0:S.0.....|
000000A0: 99 C7 28 31 34 37 29 00 D8 08 07 00 99 22 11 11 |..(147)......"..|
000000B0: 11 20 20 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 |. DO YOU WANT |
000000C0: 12 55 92 50 50 45 52 20 4F 52 20 12 4C 92 4F 57 |.U.PPER OR .L.OW|
000000D0: 45 52 20 43 41 53 45 22 00 E9 08 08 00 A1 4B 24 |ER CASE"......K$|
000000E0: 3A 8B 4B 24 B2 22 22 A7 38 00 01 09 09 00 8B 4B |:.K$."".8......K|
000000F0: 24 B2 22 55 22 A7 99 C7 28 31 34 32 29 3A 89 31 |$."U"...(142):.1|
00000100: 32 00 18 09 0A 00 8B 4B 24 B2 22 4C 22 A7 99 C7 |2......K$."L"...|
00000110: 28 31 34 29 3A 89 31 32 00 1F 09 0B 00 89 38 00 |(14):.12......8.|
00000120: 30 09 0C 00 99 C7 28 31 34 37 29 3A 8D 33 34 37 |0.....(147):.347|
00000130: 00 40 09 0D 00 99 3A 8B 4E 24 B2 22 22 A7 31 37 |.@....:.N$."".17|
00000140: 00 4B 09 0E 00 4E 4C 24 B2 4E 24 00 69 09 0F 00 |.K...NL$.N$.i...|
00000150: 8B C3 28 4E 4C 24 29 B3 39 A7 4E 4C 24 B2 4E 4C |..(NL$).9.NL$.NL|
00000160: 24 AA 22 20 22 3A 89 31 35 00 94 09 10 00 99 3A |$." ":.15......:|
00000170: 99 3A 99 A3 38 29 22 12 46 49 4C 45 20 49 4E 20 |.:..8)".FILE IN |
00000180: 55 53 45 3A 20 22 3B 4E 4C 24 3B 22 92 22 3A 99 |USE: ";NL$;".":.|
00000190: 3A 99 3A 99 00 AF 09 11 00 99 A3 31 34 29 22 4B |:.:........14)"K|
000001A0: 45 59 20 4F 50 54 49 4F 4E 22 3A 8D 32 35 39 00 |EY OPTION":.259.|
000001B0: DB 09 12 00 99 22 31 20 43 52 45 41 54 45 20 4E |....."1 CREATE N|
000001C0: 45 57 20 46 49 4C 45 22 A3 32 30 29 22 32 20 52 |EW FILE".20)"2 R|
000001D0: 45 4E 41 4D 45 20 46 49 4C 45 22 00 00 0A 13 00 |ENAME FILE".....|
000001E0: 99 22 33 20 41 43 43 45 53 53 20 52 45 43 4F 52 |."3 ACCESS RECOR|
000001F0: 44 22 A3 32 30 29 22 34 20 53 45 4C 45 43 54 22 |D".20)"4 SELECT"|
00000200: 00 2C 0A 14 00 99 22 35 20 4C 4F 41 44 2F 53 41 |.,...."5 LOAD/SA|
00000210: 56 45 20 46 49 4C 45 22 A3 32 30 29 22 36 20 52 |VE FILE".20)"6 R|
00000220: 45 50 4F 52 54 20 57 52 49 54 45 52 00 52 0A 15 |EPORT WRITER.R..|
00000230: 00 99 22 37 20 53 4F 52 54 20 46 49 4C 45 22 A3 |.."7 SORT FILE".|
00000240: 32 30 29 22 38 20 55 54 49 4C 49 54 49 45 53 22 |20)"8 UTILITIES"|
00000250: 3A 99 00 71 0A 16 00 99 A3 31 31 29 22 39 20 45 |:..q.....11)"9 E|
00000260: 58 49 54 20 50 52 4F 47 52 41 4D 22 3A 8D 32 35 |XIT PROGRAM":.25|
00000270: 39 00 83 0A 17 00 A1 4B 24 3A 8B 4B 24 B2 22 22 |9......K$:.K$.""|
00000280: A7 32 33 00 B0 0A 18 00 4B 4B 24 B2 22 31 32 33 |.23.....KK$."123|
00000290: 34 35 36 37 38 39 22 3A 81 4B B2 31 A4 39 3A 8B |456789":.K.1.9:.|
000002A0: 4B 24 B2 CA 28 4B 4B 24 2C 4B 2C 31 29 A7 32 36 |K$..(KK$,K,1).26|
000002B0: 00 BB 0A 19 00 82 4B 3A 89 32 33 00 F4 0A 1A 00 |......K:.23.....|
000002C0: 8B 59 B2 30 AF 4B B3 B1 31 AF 4B B3 B1 35 AF 4B |.Y.0.K..1.K..5.K|
000002D0: B3 B1 38 AF 4B B3 B1 39 A7 99 22 12 4E 4F 20 46 |..8.K..9..".NO F|
000002E0: 49 4C 45 20 45 58 49 53 54 53 22 3A 8D 32 35 36 |ILE EXISTS":.256|
000002F0: 3A 89 31 32 00 1D 0B 1B 00 91 4B 89 31 32 37 2C |:.12......K.127,|
00000300: 37 37 2C 39 39 2C 31 38 37 2C 32 36 31 2C 34 33 |77,99,187,261,43|
00000310: 34 2C 34 31 38 2C 33 35 34 2C 33 34 31 00 27 0B |4,418,354,341.'.|
00000320: 1C 00 8D 20 34 31 33 00 4F 0B 1D 00 99 22 44 4F |... 413.O...."DO|
00000330: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 12 43 92 | YOU WISH TO .C.|
00000340: 4F 4E 54 49 4E 55 45 20 53 45 41 52 43 48 22 00 |ONTINUE SEARCH".|
00000350: 6A 0B 1E 00 99 22 4F 52 20 52 45 54 55 52 4E 20 |j...."OR RETURN |
00000360: 54 4F 20 12 4D 92 45 4E 55 22 00 7C 0B 1F 00 A1 |TO .M.ENU".|....|
00000370: 4B 24 3A 8B 4B 24 B2 22 22 A7 33 31 00 91 0B 20 |K$:.K$."".31... |
00000380: 00 8B 4B 24 B2 22 43 22 A7 8D 34 31 33 3A 89 33 |..K$."C"..413:.3|
00000390: 35 00 A0 0B 21 00 8B 4B 24 B2 22 4D 22 A7 31 32 |5...!..K$."M".12|
000003A0: 00 A8 0B 22 00 89 33 31 00 C1 0B 23 00 8D 34 39 |..."..31...#..49|
000003B0: 36 3A 43 4F B2 31 3A 4C 4E B2 32 31 3A 8D 34 39 |6:CO.1:LN.21:.49|
000003C0: 38 00 E7 0B 24 00 99 22 53 45 41 52 43 48 20 46 |8...$.."SEARCH F|
000003D0: 4F 52 20 52 45 43 4F 52 44 20 42 59 20 4B 45 59 |OR RECORD BY KEY|
000003E0: 20 46 49 45 4C 44 22 00 0D 0C 25 00 99 22 2D 2D | FIELD"...%.."--|
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 2D 2D 2D 2D 2D 22 00 2C 0C |------------".,.|
00000410: 26 00 99 22 45 4E 54 45 52 20 22 22 12 22 41 24 |&.."ENTER ""."A$|
00000420: 28 30 2C 31 29 22 92 22 22 3A 22 3B 00 39 0C 27 |(0,1)"."":";.9.'|
00000430: 00 8D 32 34 39 3A 89 34 36 00 42 0C 28 00 8D 34 |..249:.46.B.(..4|
00000440: 39 36 00 56 0C 29 00 43 4F B2 31 3A 4C 4E B2 32 |96.V.).CO.1:LN.2|
00000450: 31 3A 8D 34 39 38 00 80 0C 2A 00 99 22 54 48 45 |1:.498...*.."THE|
00000460: 52 45 20 41 52 45 20 22 59 22 20 52 45 43 4F 52 |RE ARE "Y" RECOR|
00000470: 44 53 20 49 4E 20 54 48 49 53 20 46 49 4C 45 22 |DS IN THIS FILE"|
00000480: 00 A4 0C 2B 00 99 22 45 4E 54 45 52 20 52 45 43 |...+.."ENTER REC|
00000490: 4F 52 44 20 4E 55 4D 42 45 52 20 3A 22 3B 3A 8D |ORD NUMBER :";:.|
000004A0: 20 32 34 39 00 C3 0C 2C 00 52 B2 C5 28 49 50 24 | 249...,.R..(IP$|
000004B0: 29 3A 8B 52 B2 30 B0 52 B1 59 A7 8D 34 31 33 3A |):.R.0.R.Y..413:|
000004C0: 89 34 32 00 CC 0C 2D 00 89 31 30 30 00 D7 0C 2E |.42...-..100....|
000004D0: 00 4C 24 B2 49 50 24 00 E3 0C 2F 00 46 B2 C3 28 |.L$.IP$.../.F..(|
000004E0: 4C 24 29 00 EE 0C 30 00 81 52 B2 31 A4 59 00 07 |L$)...0..R.1.Y..|
000004F0: 0D 31 00 8B 4C 24 B2 C8 28 41 24 28 52 2C 31 29 |.1..L$..(A$(R,1)|
00000500: 2C 46 29 A7 31 30 30 00 0D 0D 32 00 82 00 16 0D |,F).100...2.....|
00000510: 33 00 8D 34 31 33 00 36 0D 34 00 99 22 12 4E 4F |3..413.6.4..".NO|
00000520: 20 53 55 43 48 20 52 45 43 4F 52 44 20 45 58 49 | SUCH RECORD EXI|
00000530: 53 54 53 21 92 22 00 46 0D 35 00 81 5A B2 31 A4 |STS!.".F.5..Z.1.|
00000540: 31 30 30 30 3A 82 00 4E 0D 36 00 89 32 38 00 75 |1000:..N.6..28.u|
00000550: 0D 37 00 99 22 57 48 49 43 48 20 4C 49 4E 45 20 |.7.."WHICH LINE |
00000560: 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 41 |DO YOU WISH TO A|
00000570: 4D 45 4E 44 22 00 93 0D 38 00 99 22 50 52 45 53 |MEND"...8.."PRES|
00000580: 53 20 31 20 54 4F 20 22 58 22 20 3A 22 3B 3A 8D |S 1 TO "X" :";:.|
00000590: 32 34 39 00 AE 0D 39 00 43 B2 C5 28 49 50 24 29 |249...9.C..(IP$)|
000005A0: 3A 8B 43 B1 58 A7 8D 34 31 33 3A 89 35 35 00 B7 |:.C.X..413:.55..|
000005B0: 0D 3A 00 8D 34 31 33 00 F0 0D 3B 00 99 22 45 58 |.:..413...;.."EX|
000005C0: 49 53 54 49 4E 47 20 44 41 54 41 20 46 4F 52 20 |ISTING DATA FOR |
000005D0: 22 22 12 22 41 24 28 30 2C 43 29 22 92 22 22 20 |""."A$(0,C)"."" |
000005E0: 3D 20 22 3A 99 20 22 12 22 41 24 28 52 2C 43 29 |= ":. "."A$(R,C)|
000005F0: 00 15 0E 3C 00 99 22 4E 45 57 20 44 41 54 41 20 |...<.."NEW DATA |
00000600: 22 3B 3A 99 22 5B 22 3B 3A 99 C8 28 53 24 2C 41 |";:."[";:..(S$,A|
00000610: 28 43 29 29 3B 00 32 0E 3D 00 99 22 5D 22 3B 3A |(C));.2.=.."]";:|
00000620: 99 C8 28 54 24 2C 41 28 43 29 29 3B 3A 99 22 9D |..(T$,A(C));:.".|
00000630: 22 3B 00 49 0E 3E 00 8D 32 34 39 3A 41 24 28 52 |";.I.>..249:A$(R|
00000640: 2C 43 29 B2 49 50 24 3A 99 00 76 0E 3F 00 8B C3 |,C).IP$:..v.?...|
00000650: 28 41 24 28 52 2C 43 29 29 B1 41 28 43 29 A7 41 |(A$(R,C)).A(C).A|
00000660: 24 28 52 2C 43 29 B2 C8 28 41 24 28 52 2C 43 29 |$(R,C)..(A$(R,C)|
00000670: 2C 41 28 43 29 29 00 7E 0E 40 00 43 B2 32 00 87 |,A(C)).~.@.C.2..|
00000680: 0E 41 00 89 31 30 30 00 90 0E 42 00 8D 32 35 39 |.A..100...B..259|
00000690: 00 B7 0E 43 00 99 22 57 48 49 43 48 20 4C 49 4E |...C.."WHICH LIN|
000006A0: 45 20 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F |E DO YOU WISH TO|
000006B0: 20 41 4D 45 4E 44 22 00 D6 0E 44 00 99 22 50 52 | AMEND"...D.."PR|
000006C0: 45 53 53 20 31 20 54 4F 20 22 58 22 20 3A 22 3B |ESS 1 TO "X" :";|
000006D0: 3A 8D 32 34 39 3B 00 F1 0E 45 00 43 B2 C5 28 49 |:.249;...E.C..(I|
000006E0: 50 24 29 3A 8B 43 B1 58 A7 8D 34 31 33 3A 89 36 |P$):.C.X..413:.6|
000006F0: 37 00 FA 0E 46 00 8D 34 31 33 00 0A 0F 47 00 99 |7...F..413...G..|
00000700: 22 12 22 41 24 28 30 2C 43 29 00 4A 0F 48 00 99 |"."A$(0,C).J.H..|
00000710: 22 45 4E 54 45 52 20 43 4F 52 52 45 43 54 20 46 |"ENTER CORRECT F|
00000720: 49 45 4C 44 20 48 45 41 44 49 4E 47 20 5B 20 20 |IELD HEADING [ |
00000730: 20 20 20 20 20 20 20 5D 9D 9D 9D 9D 9D 9D 9D 9D | ]........|
00000740: 9D 9D 22 3B 3A 8D 20 32 34 39 00 5C 0F 49 00 41 |..";:. 249.\.I.A|
00000750: 24 28 30 2C 43 29 B2 49 50 24 3A 99 00 86 0F 4A |$(0,C).IP$:....J|
00000760: 00 8B C3 28 41 24 28 30 2C 43 29 29 B3 39 A7 41 |...(A$(0,C)).9.A|
00000770: 24 28 30 2C 43 29 B2 41 24 28 30 2C 43 29 AA 22 |$(0,C).A$(0,C)."|
00000780: 20 22 3A 89 37 34 00 AD 0F 4B 00 8B C3 28 41 24 | ":.74...K...(A$|
00000790: 28 30 2C 43 29 29 B1 39 A7 41 24 28 30 2C 43 29 |(0,C)).9.A$(0,C)|
000007A0: B2 C8 28 41 24 28 30 2C 43 29 2C 39 29 00 B6 0F |..(A$(0,C),9)...|
000007B0: 4C 00 89 31 30 30 00 E8 0F 4D 00 99 22 45 4E 54 |L..100...M.."ENT|
000007C0: 45 52 20 4E 45 57 20 46 49 4C 45 20 4E 41 4D 45 |ER NEW FILE NAME|
000007D0: 20 5B 20 20 20 20 20 20 20 20 20 5D 9D 9D 9D 9D | [ ]....|
000007E0: 9D 9D 9D 9D 9D 9D 22 3B 00 FC 0F 4E 00 8D 32 34 |......";...N..24|
000007F0: 39 3A 4E 24 B2 49 50 24 3A 89 31 32 00 2F 10 4F |9:N$.IP$:.12./.O|
00000800: 00 8D 34 39 36 3A 43 4F B2 31 3A 4C 4E B2 32 31 |..496:CO.1:LN.21|
00000810: 3A 8D 34 39 38 3A 99 22 44 4F 20 59 4F 55 20 57 |:.498:."DO YOU W|
00000820: 49 53 48 20 54 4F 20 41 4D 45 4E 44 3A 2D 22 00 |ISH TO AMEND:-".|
00000830: 50 10 50 00 99 22 46 49 45 4C 44 20 12 48 92 45 |P.P.."FIELD .H.E|
00000840: 41 44 49 4E 47 20 4F 52 20 12 44 92 41 54 41 22 |ADING OR .D.ATA"|
00000850: 00 62 10 51 00 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 |.b.Q..K$:.K$."".|
00000860: 38 31 00 77 10 52 00 8B 4B 24 B2 22 48 22 A7 8D |81.w.R..K$."H"..|
00000870: 34 31 33 3A 89 36 37 00 8C 10 53 00 8B 4B 24 B2 |413:.67...S..K$.|
00000880: 22 44 22 A7 8D 34 31 33 3A 89 35 35 00 94 10 54 |"D"..413:.55...T|
00000890: 00 89 38 31 00 B6 10 55 00 99 C7 28 31 34 37 29 |..81...U...(147)|
000008A0: 3B 3A 52 53 B2 52 3A 81 52 B2 52 53 A4 59 3A 99 |;:RS.R:.R.RS.Y:.|
000008B0: C7 28 31 39 29 3B 00 E9 10 56 00 99 22 12 20 52 |.(19);...V..". R|
000008C0: 45 43 4F 52 44 53 20 57 49 4C 4C 20 44 49 53 50 |ECORDS WILL DISP|
000008D0: 4C 41 59 20 49 4E 20 4C 4F 47 49 43 41 4C 20 4F |LAY IN LOGICAL O|
000008E0: 52 44 45 52 20 92 22 3A 99 00 2B 11 57 00 43 4F |RDER .":..+.W.CO|
000008F0: B2 31 3A 4C 4E B2 32 34 3A 8D 34 39 38 3A 99 22 |.1:LN.24:.498:."|
00000900: 12 43 92 4F 4E 54 49 4E 55 45 20 53 43 52 4F 4C |.C.ONTINUE SCROL|
00000910: 4C 3A 20 20 12 53 92 54 4F 50 20 53 43 52 4F 4C |L: .S.TOP SCROL|
00000920: 4C 3A 20 20 12 45 92 58 49 54 3A 00 58 11 58 00 |L: .E.XIT:.X.X.|
00000930: 43 4F B2 31 3A 4C 4E B2 33 3A 8D 34 39 38 3A 99 |CO.1:LN.3:.498:.|
00000940: 22 52 45 43 4F 52 44 20 4E 4F 3A 20 22 3B 52 3A |"RECORD NO: ";R:|
00000950: 99 3A 81 43 B2 31 A4 58 00 84 11 59 00 99 22 12 |.:.C.1.X...Y..".|
00000960: 22 41 24 28 30 2C 43 29 22 92 22 3B 3A 51 B2 C3 |"A$(0,C)".";:Q..|
00000970: 28 41 24 28 52 2C 43 29 29 3A 8B 51 B1 32 36 A7 |(A$(R,C)):.Q.26.|
00000980: 51 B2 32 36 00 A6 11 5A 00 99 A3 31 32 29 C8 28 |Q.26...Z...12).(|
00000990: 41 24 28 52 2C 43 29 2C 32 36 29 AA C8 28 53 24 |A$(R,C),26)..(S$|
000009A0: 2C 32 36 AB 51 29 00 B1 11 5B 00 8B 43 B2 31 A7 |,26.Q)...[..C.1.|
000009B0: 99 00 C0 11 5C 00 8B 52 4E B3 B1 30 A7 35 30 37 |....\..RN..0.507|
000009C0: 00 C7 11 5D 00 82 43 00 E0 11 5E 00 4B 24 B2 22 |...]..C...^.K$."|
000009D0: 22 3A A1 4B 24 3A 8B 4B 24 B2 22 53 22 A7 39 37 |":.K$:.K$."S".97|
000009E0: 00 FC 11 5F 00 8B 4B 24 B3 B1 22 45 22 A7 81 49 |..._..K$.."E"..I|
000009F0: B2 31 A4 35 30 30 3A 82 49 3A 82 52 00 05 12 60 |.1.500:.I:.R...`|
00000A00: 00 89 31 30 30 00 27 12 61 00 4B 24 B2 22 22 3A |..100.'.a.K$."":|
00000A10: A1 4B 24 3A 8B 4B 24 B3 B1 22 43 22 AF 4B 24 B3 |.K$:.K$.."C".K$.|
00000A20: B1 22 45 22 A7 39 37 00 2F 12 62 00 89 39 35 00 |."E".97./.b..95.|
00000A30: 37 12 63 00 52 B2 31 00 3F 12 64 00 41 B2 31 00 |7.c.R.1.?.d.A.1.|
00000A40: 4C 12 65 00 8B 52 B2 30 A7 52 B2 31 00 5F 12 66 |L.e..R.0.R.1._.f|
00000A50: 00 8B 52 B1 59 A7 52 B2 52 AB 31 3A 52 B2 59 00 |..R.Y.R.R.1:R.Y.|
00000A60: 6C 12 67 00 8B 41 B2 30 A7 41 B2 31 00 7C 12 68 |l.g..A.0.A.1.|.h|
00000A70: 00 8B 41 B1 32 35 A7 41 B2 41 AB 31 00 A7 12 69 |..A.25.A.A.1...i|
00000A80: 00 99 C7 28 31 34 37 29 3A 99 22 12 22 3B 4E 24 |...(147):.".";N$|
00000A90: A3 31 39 29 22 52 45 43 4F 52 44 20 4E 4F 22 3B |.19)"RECORD NO";|
00000AA0: 52 3A 8D 20 32 35 39 00 B2 12 6A 00 81 43 B2 31 |R:. 259...j..C.1|
00000AB0: A4 58 00 BE 12 6B 00 47 47 B2 41 28 43 29 00 CF |.X...k.GG.A(C)..|
00000AC0: 12 6C 00 8B 47 47 B1 32 34 A7 47 47 B2 32 34 00 |.l..GG.24.GG.24.|
00000AD0: E0 12 6D 00 99 22 12 22 C4 28 43 29 22 92 22 3B |..m..".".(C)".";|
00000AE0: 00 0E 13 6E 00 99 A3 34 29 22 12 22 C8 28 41 24 |...n...4)".".(A$|
00000AF0: 28 30 2C 43 29 2C 39 29 22 92 22 A3 31 35 29 CA |(0,C),9)".".15).|
00000B00: 28 41 24 28 52 2C 43 29 2C 41 2C 47 47 29 00 1C |(A$(R,C),A,GG)..|
00000B10: 13 6F 00 8B 43 B2 31 A7 8D 32 35 39 00 22 13 70 |.o..C.1..259.".p|
00000B20: 00 82 00 3B 13 71 00 43 4F B2 31 3A 4C 4E B2 32 |...;.q.CO.1:LN.2|
00000B30: 30 3A 8D 34 39 38 3A 8D 32 36 30 00 67 13 72 00 |0:.498:.260.g.r.|
00000B40: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 12 |." .|
00000B50: 2A 2A 4F 50 54 49 4F 4E 53 2A 2A 92 20 20 20 20 |**OPTIONS**. |
00000B60: 20 20 20 20 20 20 22 00 A1 13 73 00 99 22 50 52 | "...s.."PR|
00000B70: 45 53 53 20 3A 20 12 4E 92 45 58 54 20 12 4C 92 |ESS : .N.EXT .L.|
00000B80: 41 53 54 20 12 46 92 49 4E 44 20 12 47 92 4F 54 |AST .F.IND .G.OT|
00000B90: 4F 20 12 41 92 4D 45 4E 44 20 12 4D 92 45 4E 55 |O .A.MEND .M.ENU|
00000BA0: 22 00 D9 13 74 00 99 22 12 43 92 41 4C 43 53 20 |"...t..".C.ALCS |
00000BB0: 12 49 92 4E 50 55 54 20 12 44 92 45 4C 45 54 45 |.I.NPUT .D.ELETE|
00000BC0: 20 12 50 92 52 49 4E 54 20 12 53 92 43 52 4F 4C | .P.RINT .S.CROL|
00000BD0: 4C 20 12 3C 92 20 12 3E 22 00 E2 13 75 00 8D 32 |L .<. .>"...u..2|
00000BE0: 36 30 00 F5 13 76 00 A1 4B 24 3A 8B 4B 24 B2 22 |60...v..K$:.K$."|
00000BF0: 22 A7 31 31 38 00 28 14 77 00 4B 4B 24 B2 22 4E |".118.(.w.KK$."N|
00000C00: 4C 4D 49 47 46 53 3E 3C 41 50 43 44 22 3A 81 4B |LMIGFS><APCD":.K|
00000C10: B2 31 A4 31 33 3A 8B 4B 24 B2 CA 28 4B 4B 24 2C |.1.13:.K$..(KK$,|
00000C20: 4B 2C 31 29 A7 31 32 31 00 34 14 78 00 82 4B 3A |K,1).121.4.x..K:|
00000C30: 89 31 31 38 00 6A 14 79 00 91 4B 89 31 32 32 2C |.118.j.y..K.122,|
00000C40: 31 32 33 2C 31 32 2C 31 32 34 2C 34 30 2C 33 35 |123,12,124,40,35|
00000C50: 2C 38 35 2C 31 32 35 2C 31 32 36 2C 37 39 2C 33 |,85,125,126,79,3|
00000C60: 36 36 2C 33 37 35 2C 34 38 35 00 7A 14 7A 00 52 |66,375,485.z.z.R|
00000C70: B2 52 AA 31 3A 89 20 31 30 30 00 8A 14 7B 00 52 |.R.1:. 100...{.R|
00000C80: B2 52 AB 31 3A 89 20 31 30 30 00 9C 14 7C 00 46 |.R.1:. 100...|.F|
00000C90: B2 31 3A 54 56 B2 52 3A 89 31 36 39 00 AB 14 7D |.1:TV.R:.169...}|
00000CA0: 00 41 B2 41 AA 31 3A 89 31 30 31 00 BA 14 7E 00 |.A.A.1:.101...~.|
00000CB0: 41 B2 41 AB 31 3A 89 31 30 31 00 F1 14 7F 00 99 |A.A.1:.101......|
00000CC0: C7 28 31 34 37 29 3A 99 3A 99 22 12 2A 2A 57 41 |.(147):.:.".**WA|
00000CD0: 52 4E 49 4E 47 2A 2A 20 54 48 49 53 20 57 49 4C |RNING** THIS WIL|
00000CE0: 4C 20 45 52 41 53 45 20 41 4E 59 20 46 49 4C 45 |L ERASE ANY FILE|
00000CF0: 22 00 16 15 80 00 99 22 12 43 55 52 52 45 4E 54 |"......".CURRENT|
00000D00: 4C 59 20 49 4E 20 4D 45 4D 4F 52 59 92 22 3A 99 |LY IN MEMORY.":.|
00000D10: 3A 99 3A 99 3A 99 00 3A 15 81 00 99 A3 38 29 20 |:.:.:..:.....8) |
00000D20: 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |"...............|
00000D30: A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 5D 15 82 00 99 |.........".]....|
00000D40: A3 38 29 22 50 52 45 53 53 20 59 28 59 45 53 29 |.8)"PRESS Y(YES)|
00000D50: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 7C 15 | TO CONTINUE".|.|
00000D60: 83 00 99 A3 38 29 22 20 20 20 20 20 20 4E 28 4E |....8)" N(N|
00000D70: 4F 29 20 46 4F 52 20 4D 45 4E 55 22 00 A0 15 84 |O) FOR MENU"....|
00000D80: 00 99 A3 38 29 20 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 |...8) ".........|
00000D90: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 |..............."|
00000DA0: 00 A9 15 85 00 8D 35 31 34 00 B8 15 86 00 8B 4B |......514......K|
00000DB0: 24 B2 22 4E 22 A7 31 32 00 C9 15 87 00 8B 4B 24 |$."N".12......K$|
00000DC0: B2 22 59 22 A7 20 31 33 36 00 DC 15 88 00 99 C7 |."Y". 136.......|
00000DD0: 28 31 34 37 29 3A 9C 3A 8D 34 31 35 00 FF 15 89 |(147):.:.415....|
00000DE0: 00 99 22 4B 45 59 20 49 4E 20 54 4F 44 41 59 27 |.."KEY IN TODAY'|
00000DF0: 53 20 44 41 54 45 20 3A 22 3B 3A 8D 32 34 39 00 |S DATE :";:.249.|
00000E00: 12 16 8A 00 4D 24 B2 49 50 24 3A 99 C7 28 31 34 |....M$.IP$:..(14|
00000E10: 37 29 00 2F 16 8B 00 99 A3 31 32 29 22 12 43 52 |7)./.....12)".CR|
00000E20: 45 41 54 45 20 52 45 43 4F 52 44 92 22 3A 99 00 |EATE RECORD.":..|
00000E30: 38 16 8C 00 8D 32 35 39 00 6B 16 8D 00 99 22 57 |8....259.k...."W|
00000E40: 48 41 54 20 49 53 20 54 48 45 20 46 49 4C 45 20 |HAT IS THE FILE |
00000E50: 4E 41 4D 45 20 3F 5B 20 20 20 20 20 20 20 20 5D |NAME ?[ ]|
00000E60: 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 00 74 16 8E 00 |.........";.t...|
00000E70: 8D 32 34 39 00 86 16 8F 00 4E 24 B2 C8 28 49 50 |.249.....N$..(IP|
00000E80: 24 2C 38 29 3A 99 00 90 16 90 00 8D 20 32 35 39 |$,8):....... 259|
00000E90: 00 C7 16 91 00 99 22 48 4F 57 20 4D 41 4E 59 20 |......"HOW MANY |
00000EA0: 46 49 45 4C 44 53 20 49 4E 20 45 41 43 48 20 52 |FIELDS IN EACH R|
00000EB0: 45 43 4F 52 44 20 3F 20 5B 20 20 5D 9D 9D 9D 22 |ECORD ? [ ]..."|
00000EC0: 3B 3A 8D 20 32 34 39 00 DB 16 92 00 58 B2 C5 28 |;:. 249.....X..(|
00000ED0: C8 28 49 50 24 2C 32 29 29 3A 99 00 01 17 93 00 |.(IP$,2)):......|
00000EE0: 8B 58 B3 31 B0 58 B1 31 35 A7 99 22 12 4D 41 58 |.X.1.X.15..".MAX|
00000EF0: 49 4D 55 4D 20 49 53 20 31 35 92 22 3A 89 31 34 |IMUM IS 15.":.14|
00000F00: 35 00 16 17 94 00 8D 34 31 37 3A 99 C7 28 31 34 |5......417:..(14|
00000F10: 37 29 3A 43 B2 31 00 3A 17 95 00 99 22 12 54 48 |7):C.1.:....".TH|
00000F20: 49 53 20 46 49 4C 45 20 49 53 20 4E 41 4D 45 44 |IS FILE IS NAMED|
00000F30: 20 22 3B 4E 24 3A 8D 32 35 39 00 6B 17 96 00 99 | ";N$:.259.k....|
00000F40: 22 4E 4F 54 45 20 54 48 41 54 20 46 49 45 4C 44 |"NOTE THAT FIELD|
00000F50: 20 31 20 49 53 20 54 48 45 20 12 20 4B 45 59 20 | 1 IS THE . KEY |
00000F60: 46 49 45 4C 44 20 92 A0 22 3A 99 00 74 17 97 00 |FIELD ..":..t...|
00000F70: 8D 32 35 39 00 AF 17 98 00 99 22 53 54 41 54 45 |.259......"STATE|
00000F80: 20 12 20 54 49 54 4C 45 20 92 20 4F 46 20 46 49 | . TITLE . OF FI|
00000F90: 45 4C 44 22 43 22 20 20 5B 20 20 20 20 20 20 20 |ELD"C" [ |
00000FA0: 20 20 5D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 00 | ]..........";.|
00000FB0: BA 17 99 00 8D 32 34 39 3A 99 00 CF 17 9A 00 41 |.....249:......A|
00000FC0: 24 28 30 2C 43 29 B2 C8 28 49 50 24 2C 39 29 00 |$(0,C)..(IP$,9).|
00000FD0: FA 17 9B 00 8B C3 28 41 24 28 30 2C 43 29 29 B3 |......(A$(0,C)).|
00000FE0: 39 A7 41 24 28 30 2C 43 29 B2 41 24 28 30 2C 43 |9.A$(0,C).A$(0,C|
00000FF0: 29 AA 22 20 22 3A 89 31 35 35 00 32 18 9C 00 99 |)." ":.155.2....|
00001000: 22 45 4E 54 45 52 20 12 43 92 48 41 52 41 43 54 |"ENTER .C.HARACT|
00001010: 45 52 20 4F 52 20 12 4E 92 55 4D 45 52 49 43 20 |ER OR .N.UMERIC |
00001020: 46 49 45 4C 44 20 5B 20 5D 9D 9D 22 3B 3A 8D 32 |FIELD [ ]..";:.2|
00001030: 34 39 00 48 18 9D 00 41 41 24 28 43 29 B2 C8 28 |49.H...AA$(C)..(|
00001040: 49 50 24 2C 31 29 3A 99 00 5C 18 9E 00 8B 41 41 |IP$,1):..\....AA|
00001050: 24 28 43 29 B2 22 4E 22 A7 31 36 31 00 70 18 9F |$(C)."N".161.p..|
00001060: 00 8B 41 41 24 28 43 29 B2 22 43 22 A7 31 36 33 |..AA$(C)."C".163|
00001070: 00 7E 18 A0 00 8D 34 31 33 3A 89 31 35 36 00 8B |.~....413:.156..|
00001080: 18 A1 00 41 28 43 29 B2 39 3A 99 00 94 18 A2 00 |...A(C).9:......|
00001090: 89 31 36 37 00 C1 18 A3 00 99 22 45 4E 54 45 52 |.167......"ENTER|
000010A0: 20 4E 55 4D 42 45 52 20 4F 46 20 43 48 41 52 41 | NUMBER OF CHARA|
000010B0: 43 54 45 52 53 20 46 4F 52 20 52 45 43 4F 52 44 |CTERS FOR RECORD|
000010C0: 22 00 E8 18 A4 00 99 22 4D 41 58 2E 33 36 20 43 |"......"MAX.36 C|
000010D0: 48 41 52 41 43 54 45 52 53 20 5B 20 20 5D 9D 9D |HARACTERS [ ]..|
000010E0: 9D 22 3B 3A 8D 32 34 39 00 FA 18 A5 00 41 28 43 |.";:.249.....A(C|
000010F0: 29 B2 C5 28 49 50 24 29 3A 99 00 17 19 A6 00 8B |)..(IP$):.......|
00001100: 41 28 43 29 B1 33 36 A7 99 22 91 91 22 3A 8D 34 |A(C).36.."..":.4|
00001110: 31 33 3A 89 31 36 33 00 24 19 A7 00 8B 43 B2 58 |13:.163.$....C.X|
00001120: A7 31 36 39 00 38 19 A8 00 43 B2 43 AA 31 3A 99 |.169.8...C.C.1:.|
00001130: 22 93 22 3A 89 31 34 39 00 52 19 A9 00 8B 46 B2 |".":.149.R....F.|
00001140: 31 A7 52 B2 59 AA 31 3A 59 B2 59 AA 31 3A 89 31 |1.R.Y.1:Y.Y.1:.1|
00001150: 37 31 00 5E 19 AA 00 52 B2 31 3A 59 B2 31 00 6D |71.^...R.1:Y.1.m|
00001160: 19 AB 00 8B 52 B1 35 30 30 A7 35 33 35 00 99 19 |....R.500.535...|
00001170: AC 00 99 C7 28 31 34 37 29 3A 99 A3 31 32 29 22 |....(147):..12)"|
00001180: 12 52 45 43 4F 52 44 20 4E 55 4D 42 45 52 22 3B |.RECORD NUMBER";|
00001190: 52 22 92 22 3A 8D 32 35 39 00 C8 19 AD 00 99 A3 |R".":.259.......|
000011A0: 33 29 22 54 4F 20 54 45 52 4D 49 4E 41 54 45 20 |3)"TO TERMINATE |
000011B0: 44 41 54 41 20 45 4E 54 52 59 20 54 59 50 45 20 |DATA ENTRY TYPE |
000011C0: 27 45 4E 44 27 22 3A 99 00 D3 19 AE 00 8D 32 35 |'END'":.......25|
000011D0: 39 3A 99 00 DE 19 AF 00 81 43 B2 31 A4 58 00 04 |9:.......C.1.X..|
000011E0: 1A B0 00 99 22 4B 45 59 20 22 41 24 28 30 2C 43 |...."KEY "A$(0,C|
000011F0: 29 3A 99 22 5B 22 3B 3A 99 C8 28 53 24 2C 41 28 |):."[";:..(S$,A(|
00001200: 43 29 29 3B 00 26 1A B1 00 99 22 5D 22 3B 3A 99 |C));.&...."]";:.|
00001210: C8 28 54 24 2C 41 28 43 29 29 3B 3A 99 22 9D 22 |.(T$,A(C));:."."|
00001220: 3B 3A 8D 32 34 39 00 4B 1A B2 00 8B 49 50 24 B2 |;:.249.K....IP$.|
00001230: 22 45 4E 44 22 AF 20 46 B2 30 20 A7 20 52 B2 31 |"END". F.0 . R.1|
00001240: 3A 59 B2 59 AB 31 3A 89 20 31 32 00 6E 1A B3 00 |:Y.Y.1:. 12.n...|
00001250: 8B 49 50 24 B2 22 3D 22 A7 41 24 28 52 2C 43 29 |.IP$."=".A$(R,C)|
00001260: B2 41 24 28 54 56 2C 43 29 3A 89 31 38 33 00 96 |.A$(TV,C):.183..|
00001270: 1A B4 00 8B 49 50 24 B2 22 45 4E 44 22 AF 46 B2 |....IP$."END".F.|
00001280: 31 A7 46 B2 30 3A 52 B2 52 AB 31 3A 59 B2 59 AB |1.F.0:R.R.1:Y.Y.|
00001290: 31 3A 89 31 30 30 00 B0 1A B5 00 41 24 28 52 2C |1:.100.....A$(R,|
000012A0: 43 29 B2 C8 28 49 50 24 2C 41 28 43 29 29 3A 99 |C)..(IP$,A(C)):.|
000012B0: 00 CC 1A B6 00 8B 41 24 28 52 2C 43 29 B2 22 22 |......A$(R,C).""|
000012C0: A7 41 24 28 52 2C 43 29 B2 22 2D 22 00 D5 1A B7 |.A$(R,C)."-"....|
000012D0: 00 8D 32 35 39 00 DB 1A B8 00 82 00 ED 1A B9 00 |..259...........|
000012E0: 8B 46 B2 31 A7 46 B2 30 3A 89 31 30 30 00 03 1B |.F.1.F.0:.100...|
000012F0: BA 00 52 B2 52 AA 31 3A 59 B2 59 AA 31 3A 89 20 |..R.R.1:Y.Y.1:. |
00001300: 31 37 31 00 2B 1B BB 00 99 C7 28 31 34 37 29 3A |171.+.....(147):|
00001310: 99 A3 31 35 29 22 12 2A 2A 53 45 4C 45 43 54 2A |..15)".**SELECT*|
00001320: 2A 22 3A 8D 32 35 39 3A 45 B2 30 00 71 1B BC 00 |*":.259:E.0.q...|
00001330: 99 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F |."DO YOU WANT TO|
00001340: 20 4F 55 54 50 55 54 20 52 45 53 55 4C 54 53 20 | OUTPUT RESULTS |
00001350: 54 4F 22 3A 99 22 50 52 49 4E 54 45 52 3A 20 4B |TO":."PRINTER: K|
00001360: 45 59 20 12 59 92 45 53 20 4F 52 20 12 4E 92 4F |EY .Y.ES OR .N.O|
00001370: 22 00 7A 1B BD 00 8D 32 35 39 00 83 1B BE 00 8D |".z....259......|
00001380: 35 31 34 00 99 1B BF 00 8B 4B 24 B2 22 59 22 A7 |514......K$."Y".|
00001390: 50 52 B2 35 3A 89 31 39 33 00 AF 1B C0 00 8B 4B |PR.5:.193......K|
000013A0: 24 B2 22 4E 22 A7 50 52 B2 30 3A 89 31 39 33 00 |$."N".PR.0:.193.|
000013B0: BF 1B C1 00 8B 50 52 B2 30 A7 54 54 B2 31 35 00 |.....PR.0.TT.15.|
000013C0: CA 1B C2 00 81 52 B2 31 A4 59 00 0B 1C C3 00 8D |.....R.1.Y......|
000013D0: 34 31 33 3A 99 22 91 45 4E 54 45 52 20 53 45 4C |413:.".ENTER SEL|
000013E0: 45 43 54 45 44 20 12 46 49 45 4C 44 92 20 5B 20 |ECTED .FIELD. [ |
000013F0: 20 20 20 20 20 20 20 20 5D 9D 9D 9D 9D 9D 9D 9D | ].......|
00001400: 9D 9D 9D 22 3B 3A 8D 32 34 39 3B 00 19 1C C4 00 |...";:.249;.....|
00001410: 44 50 24 B2 49 50 24 3A 99 00 38 1C C5 00 8B C3 |DP$.IP$:..8.....|
00001420: 28 44 50 24 29 B3 39 A7 44 50 24 B2 44 50 24 AA |(DP$).9.DP$.DP$.|
00001430: 22 20 22 3A 89 31 39 37 00 47 1C C6 00 99 3A 8D |" ":.197.G....:.|
00001440: 32 35 39 3A 43 B2 31 00 5C 1C C7 00 8B 41 24 28 |259:C.1.\....A$(|
00001450: 30 2C 43 29 B2 44 50 24 A7 32 30 32 00 71 1C C8 |0,C).DP$.202.q..|
00001460: 00 43 B2 43 AA 31 3A 8B 43 B3 58 AA 31 A7 31 39 |.C.C.1:.C.X.1.19|
00001470: 39 00 93 1C C9 00 45 4D 24 B2 22 12 4E 4F 20 53 |9.....EM$.".NO S|
00001480: 55 43 48 20 46 49 45 4C 44 22 3A 8D 32 35 36 3A |UCH FIELD":.256:|
00001490: 89 31 32 00 A8 1C CA 00 99 22 45 4E 54 45 52 20 |.12......"ENTER |
000014A0: 12 22 44 50 24 22 92 22 00 BF 1C CB 00 99 22 5B |."DP$"."......"[|
000014B0: 22 3B 3A 99 C8 28 53 24 2C 41 28 43 29 29 3B 00 |";:..(S$,A(C));.|
000014C0: DC 1C CC 00 99 22 5D 22 3B 3A 99 C8 28 54 24 2C |....."]";:..(T$,|
000014D0: 41 28 43 29 29 3B 3A 99 22 9D 22 3B 00 F5 1C CD |A(C));:.".";....|
000014E0: 00 8D 32 34 39 3A 43 50 24 B2 49 50 24 3A 99 3A |..249:CP$.IP$:.:|
000014F0: 8D 20 32 35 39 00 02 1D CE 00 46 B2 C3 28 43 50 |. 259.....F..(CP|
00001500: 24 29 00 27 1D CF 00 99 C7 28 31 34 37 29 3A 99 |$).'.....(147):.|
00001510: 3A 8D 20 32 35 39 3A 8B 41 41 24 28 43 29 B3 B1 |:. 259:.AA$(C)..|
00001520: 22 43 22 A7 32 31 30 00 50 1D D0 00 99 22 44 4F |"C".210.P...."DO|
00001530: 20 59 4F 55 20 57 41 4E 54 20 41 20 53 54 41 4E | YOU WANT A STAN|
00001540: 44 41 52 44 20 4F 52 20 53 4C 49 44 49 4E 47 22 |DARD OR SLIDING"|
00001550: 00 8F 1D D1 00 99 22 53 54 52 49 4E 47 20 53 45 |......"STRING SE|
00001560: 41 52 43 48 3A 20 45 4E 54 45 52 20 12 53 54 92 |ARCH: ENTER .ST.|
00001570: 20 4F 52 20 12 53 53 92 20 5B 20 20 5D 9D 9D 9D | OR .SS. [ ]...|
00001580: 22 3B 3A 8D 32 34 39 3A 53 54 24 B2 49 50 24 00 |";:.249:ST$.IP$.|
00001590: B8 1D D2 00 99 C7 28 31 34 37 29 3A 99 3A 8D 20 |......(147):.:. |
000015A0: 32 35 39 3A 8B 41 41 24 28 43 29 B2 22 4E 22 A7 |259:.AA$(C)."N".|
000015B0: 4A B2 31 3A 89 32 31 33 00 D4 1D D3 00 8B 53 54 |J.1:.213......ST|
000015C0: 24 B2 22 53 53 22 A7 53 53 B2 31 3A 49 B2 31 3A |$."SS".SS.1:I.1:|
000015D0: 89 32 32 31 00 F4 1D D4 00 8B 53 54 24 B2 22 53 |.221......ST$."S|
000015E0: 54 22 A7 53 53 B2 30 3A 49 B2 31 3A 4A B2 31 3A |T".SS.0:I.1:J.1:|
000015F0: 89 32 32 31 00 12 1E D5 00 99 22 53 48 4F 55 4C |.221......"SHOUL|
00001600: 44 20 12 20 22 44 50 24 22 20 92 20 42 45 3A 22 |D . "DP$" . BE:"|
00001610: 3A 99 00 30 1E D6 00 99 A3 32 29 22 12 45 92 51 |:..0.....2)".E.Q|
00001620: 55 41 4C 20 54 4F 22 A3 31 35 29 43 50 24 3A 99 |UAL TO".15)CP$:.|
00001630: 00 4F 1E D7 00 99 A3 32 29 22 12 4C 92 45 53 53 |.O.....2)".L.ESS|
00001640: 20 54 48 41 4E 22 A3 31 35 29 43 50 24 3A 99 00 | THAN".15)CP$:..|
00001650: 71 1E D8 00 99 A3 32 29 22 12 47 92 52 45 41 54 |q.....2)".G.REAT|
00001660: 45 52 20 54 48 41 4E 22 A3 31 35 29 43 50 24 3A |ER THAN".15)CP$:|
00001670: 99 00 84 1E D9 00 A1 4B 24 3A 8B 4B 24 B2 22 22 |.......K$:.K$.""|
00001680: A7 32 31 37 00 AC 1E DA 00 4B 4B 24 B2 22 45 4C |.217.....KK$."EL|
00001690: 47 22 3A 81 49 B2 31 A4 33 3A 8B 4B 24 B2 CA 28 |G":.I.1.3:.K$..(|
000016A0: 4B 4B 24 2C 49 2C 31 29 A7 32 32 30 00 B8 1E DB |KK$,I,1).220....|
000016B0: 00 82 49 3A 89 32 31 37 00 CA 1E DC 00 99 C7 28 |..I:.217.......(|
000016C0: 31 34 37 29 3A 8D 20 32 35 39 00 08 1F DD 00 41 |147):. 259.....A|
000016D0: 52 B2 32 34 3A 8B 50 52 B2 35 A7 8D 35 31 36 3A |R.24:.PR.5..516:|
000016E0: 99 22 13 22 A3 31 34 29 22 12 2A 2A 50 52 49 4E |.".".14)".**PRIN|
000016F0: 54 49 4E 47 2A 2A 92 22 3A 41 52 B2 41 28 31 29 |TING**.":AR.A(1)|
00001700: 3A 9F 34 2C 34 3A 9D 34 00 35 1F DE 00 99 22 46 |:.4,4:.4.5...."F|
00001710: 49 4C 45 20 4E 41 4D 45 20 3A 20 22 4E 24 3A 99 |ILE NAME : "N$:.|
00001720: 3A 99 22 53 45 4C 45 43 54 49 4F 4E 20 3A 20 22 |:."SELECTION : "|
00001730: 44 50 24 3A 99 00 48 1F DF 00 91 49 89 32 33 36 |DP$:..H....I.236|
00001740: 2C 32 32 34 2C 32 33 30 00 6E 1F E0 00 99 22 43 |,224,230.n...."C|
00001750: 52 49 54 45 52 49 41 20 20 3C 20 22 43 50 24 22 |RITERIA < "CP$"|
00001760: 20 22 3A 8D 32 35 39 3A 81 52 B2 31 A4 59 00 77 | ":.259:.R.1.Y.w|
00001770: 1F E1 00 8D 35 31 30 00 AF 1F E2 00 8B C5 28 41 |....510.......(A|
00001780: 24 28 52 2C 43 29 29 B3 C5 28 43 50 24 29 A7 99 |$(R,C))..(CP$)..|
00001790: 22 52 45 43 4F 52 44 20 4E 4F 20 22 3B 52 A3 54 |"RECORD NO ";R.T|
000017A0: 54 29 C8 28 41 24 28 52 2C 31 29 2C 41 52 29 00 |T).(A$(R,1),AR).|
000017B0: B5 1F E3 00 82 00 C5 1F E4 00 8B 50 52 B2 35 A7 |...........PR.5.|
000017C0: 98 34 3A A0 34 00 CE 1F E5 00 89 32 34 35 00 F4 |.4:.4......245..|
000017D0: 1F E6 00 99 22 43 52 49 54 45 52 49 41 20 20 3E |...."CRITERIA >|
000017E0: 20 22 43 50 24 22 20 22 3A 8D 32 35 39 3A 81 52 | "CP$" ":.259:.R|
000017F0: B2 31 A4 59 00 FD 1F E7 00 8D 35 31 30 00 35 20 |.1.Y......510.5 |
00001800: E8 00 8B C5 28 41 24 28 52 2C 43 29 29 B1 C5 28 |....(A$(R,C))..(|
00001810: 43 50 24 29 A7 99 22 52 45 43 4F 52 44 20 4E 4F |CP$).."RECORD NO|
00001820: 20 22 3B 52 A3 54 54 29 C8 28 41 24 28 52 2C 31 | ";R.TT).(A$(R,1|
00001830: 29 2C 41 52 29 00 3B 20 E9 00 82 00 4B 20 EA 00 |),AR).; ....K ..|
00001840: 8B 50 52 B2 35 A7 98 34 3A A0 34 00 54 20 EB 00 |.PR.5..4:.4.T ..|
00001850: 89 32 34 35 00 7A 20 EC 00 99 22 43 52 49 54 45 |.245.z ..."CRITE|
00001860: 52 49 41 20 20 3D 20 22 43 50 24 22 20 22 3A 8D |RIA = "CP$" ":.|
00001870: 32 35 39 3A 81 52 B2 31 A4 59 00 85 20 ED 00 81 |259:.R.1.Y.. ...|
00001880: 52 B2 31 A4 59 00 8E 20 EE 00 8D 35 31 30 00 A4 |R.1.Y.. ...510..|
00001890: 20 EF 00 8B 53 53 B2 31 A7 81 4A B2 31 A4 41 28 | ...SS.1..J.1.A(|
000018A0: 43 29 AB 46 00 DD 20 F0 00 8B CA 28 41 24 28 52 |C).F.. ....(A$(R|
000018B0: 2C 43 29 2C 4A 2C 46 29 B2 43 50 24 A7 99 22 52 |,C),J,F).CP$.."R|
000018C0: 45 43 4F 52 44 20 4E 4F 20 22 3B 52 A3 54 54 29 |ECORD NO ";R.TT)|
000018D0: C8 28 41 24 28 52 2C 31 29 2C 41 52 29 00 EB 20 |.(A$(R,1),AR).. |
000018E0: F1 00 8B 53 53 B2 30 A7 32 34 33 00 F2 20 F2 00 |...SS.0.243.. ..|
000018F0: 82 4A 00 F8 20 F3 00 82 00 08 21 F4 00 8B 50 52 |.J.. .....!...PR|
00001900: B2 35 A7 98 34 3A A0 34 00 28 21 F5 00 99 3A 99 |.5..4:.4.(!...:.|
00001910: 20 A3 31 33 29 22 12 50 52 45 53 53 20 53 50 41 | .13)".PRESS SPA|
00001920: 43 45 20 42 41 52 92 22 00 3B 21 F6 00 A1 4B 24 |CE BAR.".;!...K$|
00001930: 3A 8B 4B 24 B2 22 22 A7 32 34 36 00 51 21 F7 00 |:.K$."".246.Q!..|
00001940: 8B 4B 24 B2 22 20 22 A7 52 B2 52 AB 31 3A 89 31 |.K$." ".R.R.1:.1|
00001950: 32 00 5A 21 F8 00 89 32 34 36 00 6A 21 F9 00 42 |2.Z!...246.j!..B|
00001960: 24 B2 22 20 22 3A 99 22 22 3B 00 80 21 FA 00 A1 |$." ":."";..!...|
00001970: 49 50 24 3A 8B 49 50 24 B2 22 22 A7 89 32 35 30 |IP$:.IP$.""..250|
00001980: 00 9B 21 FB 00 8B 42 24 B2 22 20 22 AF C6 28 49 |..!...B$." "..(I|
00001990: 50 24 29 B2 32 30 A7 89 32 35 30 00 C8 21 FC 00 |P$).20..250..!..|
000019A0: 8B C6 28 49 50 24 29 B2 32 30 A7 42 24 B2 C8 28 |..(IP$).20.B$..(|
000019B0: 42 24 2C C3 28 42 24 29 AB 31 29 3A 99 22 9D 20 |B$,.(B$).1):.". |
000019C0: 9D 22 3B 3A 89 32 35 30 00 E7 21 FD 00 8B 49 50 |.";:.250..!...IP|
000019D0: 24 B2 C7 28 31 33 29 A7 49 50 24 B2 CA 28 42 24 |$..(13).IP$..(B$|
000019E0: 2C 32 29 3A 99 3A 8E 00 FF 21 FE 00 41 B2 C6 28 |,2):.:...!..A..(|
000019F0: 49 50 24 29 3A 8B 41 B3 33 31 A7 89 32 35 30 00 |IP$):.A.31..250.|
00001A00: 20 22 FF 00 42 24 B2 42 24 AA 49 50 24 3A 99 22 | "..B$.B$.IP$:."|
00001A10: 12 22 3B 49 50 24 3B 22 92 22 3B 3A 89 32 35 30 |.";IP$;".";:.250|
00001A20: 00 2A 22 00 01 99 20 45 4D 24 00 3D 22 01 01 81 |.*"... EM$.="...|
00001A30: 20 54 38 B2 31 20 A4 31 30 30 30 3A 82 00 43 22 | T8.1 .1000:..C"|
00001A40: 02 01 8E 00 74 22 03 01 99 22 A3 A3 A3 A3 A3 A3 |....t"..."......|
00001A50: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00001A60: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00001A70: A3 22 3A 8E 00 A5 22 04 01 99 22 2D 2D 2D 2D 2D |.":..."..."-----|
00001A80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001A90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001AA0: 2D 2D 22 3A 8E 00 CF 22 05 01 99 20 22 44 4F 20 |--":..."... "DO |
00001AB0: 59 4F 55 20 57 49 53 48 20 54 4F 20 12 4C 92 4F |YOU WISH TO .L.O|
00001AC0: 41 44 20 4F 52 20 12 53 92 41 56 45 22 3A 99 00 |AD OR .S.AVE":..|
00001AD0: E2 22 06 01 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 32 |."...K$:.K$."".2|
00001AE0: 36 32 00 F2 22 07 01 8B 4B 24 B2 22 4C 22 A7 32 |62.."...K$."L".2|
00001AF0: 38 38 00 02 23 08 01 8B 4B 24 B2 22 53 22 A7 32 |88..#...K$."S".2|
00001B00: 36 36 00 0B 23 09 01 89 32 36 32 00 14 23 0A 01 |66..#...262..#..|
00001B10: 8D 34 31 33 00 41 23 0B 01 99 22 41 52 45 20 59 |.413.A#..."ARE Y|
00001B20: 4F 55 20 53 41 56 49 4E 47 20 4F 4E 20 12 44 92 |OU SAVING ON .D.|
00001B30: 49 53 43 20 4F 52 20 12 54 92 41 50 45 3F 22 3A |ISC OR .T.APE?":|
00001B40: 99 00 54 23 0C 01 A1 4B 24 3A 8B 4B 24 B2 22 22 |..T#...K$:.K$.""|
00001B50: A7 32 36 38 00 64 23 0D 01 8B 4B 24 B2 22 54 22 |.268.d#...K$."T"|
00001B60: A7 32 37 32 00 74 23 0E 01 8B 4B 24 B2 22 44 22 |.272.t#...K$."D"|
00001B70: A7 33 30 32 00 7D 23 0F 01 89 32 36 38 00 86 23 |.302.}#...268..#|
00001B80: 10 01 8D 34 31 33 00 9E 23 11 01 99 22 12 49 4E |...413..#...".IN|
00001B90: 53 45 52 54 20 43 41 53 53 45 54 54 45 22 00 BB |SERT CASSETTE"..|
00001BA0: 23 12 01 99 22 50 52 45 53 53 20 12 43 92 20 54 |#..."PRESS .C. T|
00001BB0: 4F 20 43 4F 4E 54 49 4E 55 45 22 00 D1 23 13 01 |O CONTINUE"..#..|
00001BC0: A1 4B 24 3A 8B 4B 24 B3 B1 22 43 22 A7 20 32 37 |.K$:.K$.."C". 27|
00001BD0: 35 00 E8 23 14 01 8D 34 31 33 3A 99 22 53 41 56 |5..#...413:."SAV|
00001BE0: 49 4E 47 20 12 22 4E 24 00 F2 23 15 01 99 22 91 |ING ."N$..#...".|
00001BF0: 91 22 00 01 24 16 01 9F 20 31 2C 31 2C 31 2C 4E |."..$... 1,1,1,N|
00001C00: 24 00 0F 24 17 01 98 31 2C 59 3A 98 31 2C 58 00 |$..$...1,Y:.1,X.|
00001C10: 24 24 18 01 81 43 B2 31 A4 58 3A 98 31 2C 41 28 |$$...C.1.X:.1,A(|
00001C20: 43 29 3A 82 00 3B 24 19 01 81 43 B2 31 A4 58 3A |C):..;$...C.1.X:|
00001C30: 98 31 2C 41 41 24 28 43 29 3A 82 00 46 24 1A 01 |.1,AA$(C):..F$..|
00001C40: 81 52 B2 31 A4 59 00 5E 24 1B 01 81 43 B2 31 A4 |.R.1.Y.^$...C.1.|
00001C50: 58 3A 98 31 2C 41 24 28 52 2C 43 29 3A 82 00 64 |X:.1,A$(R,C):..d|
00001C60: 24 1C 01 82 00 7C 24 1D 01 81 43 B2 31 A4 58 3A |$....|$...C.1.X:|
00001C70: 98 31 2C 41 24 28 30 2C 43 29 3A 82 00 83 24 1E |.1,A$(0,C):...$.|
00001C80: 01 A0 31 00 8B 24 1F 01 89 31 32 00 91 24 20 01 |..1..$...12..$ .|
00001C90: 9C 00 B9 24 21 01 8D 34 31 35 3A 8D 34 31 33 3A |...$!..415:.413:|
00001CA0: 99 22 41 52 45 20 59 4F 55 20 4C 4F 41 44 49 4E |."ARE YOU LOADIN|
00001CB0: 47 20 46 52 4F 4D 3A 2D 22 00 D1 24 22 01 99 22 |G FROM:-"..$".."|
00001CC0: 12 44 92 49 53 4B 20 4F 52 20 12 54 92 41 50 45 |.D.ISK OR .T.APE|
00001CD0: 22 00 E4 24 23 01 A1 4B 24 3A 8B 4B 24 B2 22 22 |"..$#..K$:.K$.""|
00001CE0: A7 32 39 31 00 F4 24 24 01 8B 4B 24 B2 22 54 22 |.291..$$..K$."T"|
00001CF0: A7 32 39 35 00 04 25 25 01 8B 4B 24 B2 22 44 22 |.295..%%..K$."D"|
00001D00: A7 33 30 30 00 0D 25 26 01 89 32 39 31 00 20 25 |.300..%&..291. %|
00001D10: 27 01 54 B2 31 3A 55 B2 30 3A 4E 4E 24 B2 4E 24 |'.T.1:U.0:NN$.N$|
00001D20: 00 41 25 28 01 8D 34 31 33 3A 99 22 49 53 20 43 |.A%(..413:."IS C|
00001D30: 41 53 53 45 54 54 45 20 49 4E 20 50 4C 41 43 45 |ASSETTE IN PLACE|
00001D40: 22 00 60 25 29 01 99 22 50 52 45 53 53 20 12 59 |".`%).."PRESS .Y|
00001D50: 92 45 53 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 |.ES TO CONTINUE"|
00001D60: 00 75 25 2A 01 A1 4B 24 3A 8B 4B 24 B3 B1 22 59 |.u%*..K$:.K$.."Y|
00001D70: 22 A7 32 39 38 00 7E 25 2B 01 89 33 32 30 00 B3 |".298.~%+..320..|
00001D80: 25 2C 01 54 B2 38 3A 55 B2 34 3A 4E 31 24 B2 22 |%,.T.8:U.4:N1$."|
00001D90: 30 3A 22 3A 4E 32 24 B2 22 2C 53 45 51 2C 52 45 |0:":N2$.",SEQ,RE|
00001DA0: 41 44 22 3A 4E 4E 24 B2 4E 31 24 AA 4E 4E 24 AA |AD":NN$.N1$.NN$.|
00001DB0: 4E 32 24 00 BC 25 2D 01 89 33 32 30 00 C5 25 2E |N2$..%-..320..%.|
00001DC0: 01 8D 34 31 33 00 F4 25 2F 01 99 22 44 4F 20 59 |..413..%/.."DO Y|
00001DD0: 4F 55 20 57 41 4E 54 20 54 4F 20 53 41 56 45 20 |OU WANT TO SAVE |
00001DE0: 4F 4E 20 44 52 49 56 45 20 12 30 92 20 4F 52 20 |ON DRIVE .0. OR |
00001DF0: 12 31 92 22 00 07 26 30 01 A1 4B 24 3A 8B 4B 24 |.1."..&0..K$:.K$|
00001E00: B2 22 22 A7 33 30 34 00 21 26 31 01 8B 4B 24 B2 |."".304.!&1..K$.|
00001E10: 22 30 22 A7 44 52 24 B2 22 30 3A 22 3A 89 33 30 |"0".DR$."0:":.30|
00001E20: 38 00 3B 26 32 01 8B 4B 24 B2 22 31 22 A7 44 52 |8.;&2..K$."1".DR|
00001E30: 24 B2 22 31 3A 22 3A 89 33 30 38 00 44 26 33 01 |$."1:":.308.D&3.|
00001E40: 89 33 30 34 00 70 26 34 01 4E 31 24 B2 44 52 24 |.304.p&4.N1$.DR$|
00001E50: 3A 4E 32 24 B2 22 2C 53 45 51 2C 57 52 49 54 45 |:N2$.",SEQ,WRITE|
00001E60: 22 3A 4E 4E 24 B2 4E 31 24 AA 4E 24 AA 4E 32 24 |":NN$.N1$.N$.N2$|
00001E70: 00 83 26 35 01 9F 31 2C 38 2C 34 2C 22 40 22 AA |..&5..1,8,4,"@".|
00001E80: 4E 4E 24 00 94 26 36 01 98 31 2C 59 3A 99 C7 28 |NN$..&6..1,Y:..(|
00001E90: 31 33 29 3B 00 A5 26 37 01 98 31 2C 58 3A 99 C7 |13);..&7..1,X:..|
00001EA0: 28 31 33 29 3B 00 C2 26 38 01 81 43 B2 31 A4 58 |(13);..&8..C.1.X|
00001EB0: 3A 98 31 2C 41 28 43 29 3A 99 C7 28 31 33 29 3B |:.1,A(C):..(13);|
00001EC0: 3A 82 00 E1 26 39 01 81 43 B2 31 A4 58 3A 98 31 |:...&9..C.1.X:.1|
00001ED0: 2C 41 41 24 28 43 29 3A 99 C7 28 31 33 29 3B 3A |,AA$(C):..(13);:|
00001EE0: 82 00 EC 26 3A 01 81 52 B2 31 A4 59 00 0C 27 3B |...&:..R.1.Y..';|
00001EF0: 01 81 43 B2 31 A4 58 3A 98 31 2C 41 24 28 52 2C |..C.1.X:.1,A$(R,|
00001F00: 43 29 3A 99 C7 28 31 33 29 3B 3A 82 00 12 27 3C |C):..(13);:...'<|
00001F10: 01 82 00 32 27 3D 01 81 43 B2 31 A4 58 3A 98 31 |...2'=..C.1.X:.1|
00001F20: 2C 41 24 28 30 2C 43 29 3A 99 C7 28 31 33 29 3B |,A$(0,C):..(13);|
00001F30: 3A 82 00 39 27 3E 01 A0 31 00 41 27 3F 01 89 31 |:..9'>..1.A'?..1|
00001F40: 32 00 7A 27 40 01 8D 34 31 33 3A 99 22 45 4E 54 |2.z'@..413:."ENT|
00001F50: 45 52 20 46 49 4C 45 20 4E 41 4D 45 20 5B 20 20 |ER FILE NAME [ |
00001F60: 20 20 20 20 20 20 20 5D 9D 9D 9D 9D 9D 9D 9D 9D | ]........|
00001F70: 9D 9D 22 3B 3A 8D 20 32 34 39 00 93 27 41 01 4E |..";:. 249..'A.N|
00001F80: 24 B2 C8 28 49 50 24 2C 39 29 3A 4E 4E 24 B2 4E |$..(IP$,9):NN$.N|
00001F90: 24 3A 99 00 A3 27 42 01 8B 54 B2 31 A7 99 22 91 |$:...'B..T.1..".|
00001FA0: 91 91 22 00 B2 27 43 01 9F 31 2C 54 2C 55 2C 4E |.."..'C..1,T,U,N|
00001FB0: 4E 24 00 C5 27 44 01 84 31 2C 59 3A 84 31 2C 58 |N$..'D..1,Y:.1,X|
00001FC0: 3A 8D 34 31 37 00 DA 27 45 01 81 43 B2 31 A4 58 |:.417..'E..C.1.X|
00001FD0: 3A 84 31 2C 41 28 43 29 3A 82 00 F1 27 46 01 81 |:.1,A(C):...'F..|
00001FE0: 43 B2 31 A4 58 3A 84 31 2C 41 41 24 28 43 29 3A |C.1.X:.1,AA$(C):|
00001FF0: 82 00 FC 27 47 01 81 52 B2 31 A4 59 00 07 28 48 |...'G..R.1.Y..(H|
00002000: 01 81 43 B2 31 A4 58 00 16 28 49 01 84 31 2C 41 |..C.1.X..(I..1,A|
00002010: 24 28 52 2C 43 29 00 1E 28 4A 01 82 3A 82 00 29 |$(R,C)..(J..:..)|
00002020: 28 4B 01 81 43 B2 31 A4 58 00 38 28 4C 01 84 31 |(K..C.1.X.8(L..1|
00002030: 2C 41 24 28 30 2C 43 29 00 3E 28 4D 01 82 00 45 |,A$(0,C).>(M...E|
00002040: 28 4E 01 A0 31 00 4E 28 4F 01 8D 34 31 33 00 88 |(N..1.N(O..413..|
00002050: 28 50 01 8B 59 B2 30 A7 4E 24 B2 22 22 3A 99 22 |(P..Y.0.N$."":."|
00002060: 12 46 49 4C 45 20 4E 4F 54 20 46 4F 55 4E 44 20 |.FILE NOT FOUND |
00002070: 4F 4E 20 44 49 53 4B 22 3A 81 49 B2 31 A4 31 30 |ON DISK":.I.1.10|
00002080: 30 30 3A 82 3A 89 31 32 00 A4 28 51 01 99 22 4B |00:.:.12..(Q.."K|
00002090: 45 59 20 49 4E 20 54 4F 44 41 59 27 53 20 44 41 |EY IN TODAY'S DA|
000020A0: 54 45 20 22 00 C2 28 52 01 99 22 28 45 47 2E 20 |TE "..(R.."(EG. |
000020B0: 32 39 2E 31 32 2E 38 32 29 20 3A 22 3B 3A 8D 32 |29.12.82) :";:.2|
000020C0: 34 39 00 CF 28 53 01 4D 24 B2 49 50 24 3A 99 00 |49..(S.M$.IP$:..|
000020D0: D7 28 54 01 89 31 32 00 FB 28 55 01 99 22 45 58 |.(T..12..(U.."EX|
000020E0: 49 54 20 27 44 46 4D 27 20 41 52 45 20 59 4F 55 |IT 'DFM' ARE YOU|
000020F0: 20 53 55 52 45 20 28 59 2F 4E 29 00 0E 29 56 01 | SURE (Y/N)..)V.|
00002100: A1 4B 24 3A 8B 4B 24 B2 22 22 A7 33 34 32 00 25 |.K$:.K$."".342.%|
00002110: 29 57 01 8B 4B 24 B2 22 59 22 A7 4E 24 B2 22 22 |)W..K$."Y".N$.""|
00002120: 3A 8D 33 34 37 00 34 29 58 01 8B 4B 24 B2 22 4E |:.347.4)X..K$."N|
00002130: 22 A7 31 32 00 47 29 59 01 80 20 20 20 20 20 20 |".12.G)Y.. |
00002140: 20 20 20 20 20 20 20 00 57 29 5A 01 89 33 34 33 | .W)Z..343|
00002150: 20 20 20 20 20 20 20 00 83 29 5B 01 99 3A 20 20 | ..)[..: |
00002160: 99 22 93 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A |.". *****|
00002170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002180: 2A 2A 22 00 B0 29 5C 01 99 22 20 20 20 20 20 20 |**"..)\.." |
00002190: 20 20 2A 2A 2A 12 44 41 54 41 92 20 12 46 49 4C | ***.DATA. .FIL|
000021A0: 45 92 20 12 4D 41 4E 41 47 45 52 92 2A 2A 2A 22 |E. .MANAGER.***"|
000021B0: 00 D9 29 5D 01 99 22 20 20 20 20 20 20 20 20 2A |..)].." *|
000021C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000021D0: 2A 2A 2A 2A 2A 2A 22 3A 99 00 E8 29 5E 01 8B 4E |******":...)^..N|
000021E0: 24 B3 B1 22 22 A7 20 8E 00 11 2A 5F 01 99 22 20 |$.."". ...*_.." |
000021F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002200: 20 20 42 59 20 20 20 20 20 20 20 20 20 20 22 3A | BY ":|
00002210: 99 00 47 2A 60 01 99 22 20 20 20 20 20 20 20 20 |..G*`.." |
00002220: 12 20 44 20 92 20 12 20 49 20 92 20 12 20 41 20 |. D . . I . . A |
00002230: 92 20 12 20 4C 20 92 20 12 20 4F 20 92 20 12 20 |. . L . . O . . |
00002240: 47 20 92 20 22 3A 99 00 6E 2A 61 01 99 22 20 20 |G . ":..n*a.." |
00002250: 20 20 20 20 20 20 20 20 20 20 53 20 4F 20 46 20 | S O F |
00002260: 54 20 57 20 41 20 52 20 45 22 3A 99 3A 8E 00 7A |T W A R E":.:..z|
00002270: 2A 62 01 99 C7 28 31 34 37 29 00 9C 2A 63 01 99 |*b...(147)..*c..|
00002280: A3 31 34 29 22 12 2A 2A 55 54 49 4C 49 54 49 45 |.14)".**UTILITIE|
00002290: 53 2A 2A 92 22 3A 8D 32 35 39 3A 99 00 BD 2A 64 |S**.":.259:...*d|
000022A0: 01 99 22 20 20 12 4D 92 45 4D 4F 52 59 20 41 56 |.." .M.EMORY AV|
000022B0: 41 49 4C 41 42 49 4C 49 54 59 22 3A 99 00 D7 2A |AILABILITY":...*|
000022C0: 65 01 99 22 20 20 4D 45 4E 55 20 12 53 50 41 43 |e.." MENU .SPAC|
000022D0: 45 20 42 41 52 92 22 00 EA 2A 66 01 A1 56 24 3A |E BAR."..*f..V$:|
000022E0: 8B 56 24 B2 22 22 A7 33 35 38 00 FA 2A 67 01 8B |.V$."".358..*g..|
000022F0: 56 24 B2 22 4D 22 A7 33 36 34 00 09 2B 68 01 8B |V$."M".364..+h..|
00002300: 56 24 B2 22 20 22 A7 31 32 00 2C 2B 69 01 99 3A |V$." ".12.,+i..:|
00002310: 99 22 12 50 52 45 53 53 20 53 50 41 43 45 20 42 |.".PRESS SPACE B|
00002320: 41 52 20 46 4F 52 20 4D 45 4E 55 22 00 41 2B 6A |AR FOR MENU".A+j|
00002330: 01 A1 4B 24 3A 8B 4B 24 B3 B1 22 20 22 A7 33 35 |..K$:.K$.." ".35|
00002340: 38 00 49 2B 6B 01 89 31 32 00 6A 2B 6C 01 99 22 |8.I+k..12.j+l.."|
00002350: 13 11 11 11 11 22 A3 32 34 29 22 3D 20 22 B8 28 |.....".24)"= ".(|
00002360: 30 29 22 42 59 54 45 53 20 22 00 7A 2B 6D 01 99 |0)"BYTES ".z+m..|
00002370: C7 28 31 39 29 3A 89 33 35 35 00 83 2B 6E 01 8D |.(19):.355..+n..|
00002380: 34 39 36 00 8C 2B 6F 01 8D 35 31 36 00 98 2B 70 |496..+o..516..+p|
00002390: 01 9F 34 2C 34 3A 9D 34 00 C4 2B 71 01 99 C7 28 |..4,4:.4..+q...(|
000023A0: 31 34 37 29 3A 99 22 12 22 3B 4E 24 20 A3 31 39 |147):.".";N$ .19|
000023B0: 29 22 52 45 43 4F 52 44 20 4E 4F 22 3B 52 3A 8D |)"RECORD NO";R:.|
000023C0: 20 32 36 30 00 FD 2B 72 01 43 B2 31 3A 99 22 12 | 260..+r.C.1:.".|
000023D0: 22 C4 28 43 29 22 92 22 3B 3A 99 A3 32 29 22 12 |".(C)".";:..2)".|
000023E0: 22 20 41 24 28 30 2C 43 29 22 92 22 A3 33 29 3B |" A$(0,C)".".3);|
000023F0: C8 28 41 24 28 52 2C 43 29 2C 32 34 29 00 06 2C |.(A$(R,C),24)..,|
00002400: 73 01 8D 32 36 30 00 14 2C 74 01 81 20 43 B2 32 |s..260..,t.. C.2|
00002410: 20 A4 20 58 00 3B 2C 75 01 99 C4 28 43 29 3B 3A | . X.;,u...(C);:|
00002420: 99 A3 32 29 41 24 28 30 2C 43 29 A3 33 29 C8 28 |..2)A$(0,C).3).(|
00002430: 41 24 28 52 2C 43 29 2C 32 34 29 00 56 2C 76 01 |A$(R,C),24).V,v.|
00002440: 82 3A 99 3A 8D 32 35 39 3A 99 3A 20 98 34 3A A0 |.:.:.259:.: .4:.|
00002450: 34 3A 89 31 30 30 00 94 2C 77 01 8D 34 39 36 3A |4:.100..,w..496:|
00002460: 43 4F B2 31 3A 4C 4E B2 32 31 3A 8D 34 39 38 3A |CO.1:LN.21:.498:|
00002470: 99 22 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F |."DO YOU WISH TO|
00002480: 20 50 45 52 46 4F 52 4D 20 49 4E 44 49 56 49 44 | PERFORM INDIVID|
00002490: 55 41 4C 22 00 B7 2C 78 01 99 22 12 43 92 41 4C |UAL"..,x..".C.AL|
000024A0: 43 53 20 4F 52 20 12 54 92 4F 54 41 4C 49 53 45 |CS OR .T.OTALISE|
000024B0: 20 46 49 45 4C 44 22 00 CA 2C 79 01 A1 4B 24 3A | FIELD"..,y..K$:|
000024C0: 8B 4B 24 B2 22 22 A7 33 37 37 00 E0 2C 7A 01 8B |.K$."".377..,z..|
000024D0: 4B 24 B2 22 54 22 A7 8D 34 31 33 3A 89 33 39 39 |K$."T"..413:.399|
000024E0: 00 F6 2C 7B 01 8B 4B 24 B2 22 43 22 A7 8D 34 31 |..,{..K$."C"..41|
000024F0: 33 3A 89 33 38 31 00 FF 2C 7C 01 89 33 37 37 00 |3:.381..,|..377.|
00002500: 1E 2D 7D 01 99 22 57 48 49 43 48 20 46 49 45 4C |.-}.."WHICH FIEL|
00002510: 44 20 44 4F 20 59 4F 55 20 57 49 53 48 22 00 48 |D DO YOU WISH".H|
00002520: 2D 7E 01 99 22 54 4F 20 43 41 4C 43 55 4C 41 54 |-~.."TO CALCULAT|
00002530: 45 2C 20 4B 45 59 20 31 20 54 4F 20 22 58 22 20 |E, KEY 1 TO "X" |
00002540: 3A 22 3B 3A 8D 32 34 39 00 64 2D 7F 01 43 B2 C5 |:";:.249.d-..C..|
00002550: 28 49 50 24 29 3A 8B 43 B1 58 A7 8D 34 31 33 3A |(IP$):.C.X..413:|
00002560: 89 33 38 31 00 6D 2D 80 01 8D 34 31 33 00 92 2D |.381.m-...413..-|
00002570: 81 01 8B 41 41 24 28 43 29 B2 22 43 22 A7 99 22 |...AA$(C)."C".."|
00002580: 12 43 48 41 52 41 43 54 45 52 92 20 46 49 45 4C |.CHARACTER. FIEL|
00002590: 44 22 00 A6 2D 82 01 8B 41 41 24 28 43 29 B2 22 |D"..-...AA$(C)."|
000025A0: 4E 22 A7 33 38 38 00 BB 2D 83 01 81 49 B2 31 A4 |N".388..-...I.1.|
000025B0: 31 30 30 30 3A 82 3A 89 31 31 33 00 E9 2D 84 01 |1000:.:.113..-..|
000025C0: 99 22 4B 45 59 20 4C 45 54 54 45 52 20 46 4F 4C |."KEY LETTER FOL|
000025D0: 4C 4F 57 45 44 20 42 59 20 41 4D 4F 55 4E 54 20 |LOWED BY AMOUNT |
000025E0: 45 47 2E 28 41 32 35 29 22 00 1F 2E 85 01 99 22 |EG.(A25)"......"|
000025F0: 12 41 92 44 44 20 12 53 92 55 42 54 52 41 43 54 |.A.DD .S.UBTRACT|
00002600: 20 12 4D 92 55 4C 54 49 50 4C 59 20 12 44 92 49 | .M.ULTIPLY .D.I|
00002610: 56 49 44 45 20 12 5A 92 45 52 4F 49 53 45 22 00 |VIDE .Z.EROISE".|
00002620: 3F 2E 86 01 99 22 12 52 92 45 50 4C 41 43 45 20 |?....".R.EPLACE |
00002630: 3A 22 3B 3A 8D 32 34 39 3A 4C 24 B2 49 50 24 00 |:";:.249:L$.IP$.|
00002640: 68 2E 87 01 8B C8 28 4C 24 2C 31 29 B2 22 53 22 |h.....(L$,1)."S"|
00002650: A7 50 B2 C5 28 41 24 28 52 2C 43 29 29 AB C5 28 |.P..(A$(R,C))..(|
00002660: CA 28 4C 24 2C 32 29 29 00 91 2E 88 01 8B C8 28 |.(L$,2)).......(|
00002670: 4C 24 2C 31 29 B2 22 41 22 A7 50 B2 C5 28 41 24 |L$,1)."A".P..(A$|
00002680: 28 52 2C 43 29 29 AA C5 28 CA 28 4C 24 2C 32 29 |(R,C))..(.(L$,2)|
00002690: 29 00 BA 2E 89 01 8B C8 28 4C 24 2C 31 29 B2 22 |).......(L$,1)."|
000026A0: 4D 22 A7 50 B2 C5 28 41 24 28 52 2C 43 29 29 AC |M".P..(A$(R,C)).|
000026B0: C5 28 CA 28 4C 24 2C 32 29 29 00 E3 2E 8A 01 8B |.(.(L$,2))......|
000026C0: C8 28 4C 24 2C 31 29 B2 22 44 22 A7 50 B2 C5 28 |.(L$,1)."D".P..(|
000026D0: 41 24 28 52 2C 43 29 29 AD C5 28 CA 28 4C 24 2C |A$(R,C))..(.(L$,|
000026E0: 32 29 29 00 F8 2E 8B 01 8B C8 28 4C 24 2C 31 29 |2)).......(L$,1)|
000026F0: B2 22 5A 22 A7 50 B2 30 00 16 2F 8C 01 8B C8 28 |."Z".P.0../....(|
00002700: 4C 24 2C 31 29 B2 22 52 22 A7 50 B2 C5 28 CA 28 |L$,1)."R".P..(.(|
00002710: 4C 24 2C 32 29 29 00 2C 2F 8D 01 41 24 28 52 2C |L$,2)).,/..A$(R,|
00002720: 43 29 B2 CA 28 C4 28 50 29 2C 32 29 00 35 2F 8E |C)..(.(P),2).5/.|
00002730: 01 89 31 30 30 00 54 2F 8F 01 99 22 57 48 49 43 |..100.T/..."WHIC|
00002740: 48 20 46 49 45 4C 44 20 44 4F 20 59 4F 55 20 57 |H FIELD DO YOU W|
00002750: 49 53 48 22 00 7C 2F 90 01 99 22 54 4F 20 54 4F |ISH".|/..."TO TO|
00002760: 54 41 4C 49 53 45 20 4B 45 59 20 31 20 54 4F 20 |TALISE KEY 1 TO |
00002770: 22 58 22 20 3A 22 3B 3A 8D 32 34 39 00 98 2F 91 |"X" :";:.249../.|
00002780: 01 43 B2 C5 28 49 50 24 29 3A 8B 43 B1 58 A7 8D |.C..(IP$):.C.X..|
00002790: 34 31 33 3A 89 33 39 39 00 A1 2F 92 01 8D 34 31 |413:.399../...41|
000027A0: 33 00 C6 2F 93 01 8B 41 41 24 28 43 29 B2 22 43 |3../...AA$(C)."C|
000027B0: 22 A7 99 22 12 43 48 41 52 41 43 54 45 52 92 20 |"..".CHARACTER. |
000027C0: 46 49 45 4C 44 22 00 DA 2F 94 01 8B 41 41 24 28 |FIELD"../...AA$(|
000027D0: 43 29 B2 22 4E 22 A7 34 30 36 00 EF 2F 95 01 81 |C)."N".406../...|
000027E0: 49 B2 31 A4 31 30 30 30 3A 82 3A 89 31 31 33 00 |I.1.1000:.:.113.|
000027F0: F7 2F 96 01 54 B2 30 00 14 30 97 01 81 20 52 B2 |./..T.0..0... R.|
00002800: 31 A4 59 3A 54 B2 54 AA C5 28 41 24 28 52 2C 43 |1.Y:T.T..(A$(R,C|
00002810: 29 29 3A 82 00 5A 30 98 01 99 22 54 4F 54 41 4C |)):..Z0..."TOTAL|
00002820: 20 46 49 4C 45 20 56 41 4C 55 45 20 4F 46 20 46 | FILE VALUE OF F|
00002830: 49 45 4C 44 20 3A 22 3A 99 22 12 22 41 24 28 30 |IELD :":."."A$(0|
00002840: 2C 43 29 22 92 22 22 20 3D 20 20 20 20 20 20 20 |,C)"."" = |
00002850: 20 20 20 20 20 20 20 22 3B 54 00 7D 30 99 01 99 | ";T.}0...|
00002860: 22 50 52 45 53 53 20 12 53 50 41 43 45 20 42 41 |"PRESS .SPACE BA|
00002870: 52 92 20 54 4F 20 52 45 54 55 52 4E 22 00 90 30 |R. TO RETURN"..0|
00002880: 9A 01 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 34 31 30 |...K$:.K$."".410|
00002890: 00 A0 30 9B 01 8B 4B 24 B2 22 20 22 A7 31 30 30 |..0...K$." ".100|
000028A0: 00 A9 30 9C 01 89 34 31 30 00 AF 30 9D 01 3A 00 |..0...410..0..:.|
000028B0: CB 30 9E 01 99 22 91 91 22 3B 3A 99 53 24 3A 99 |.0..."..";:.S$:.|
000028C0: 53 24 3A 99 22 91 91 91 22 3A 8E 00 FC 30 9F 01 |S$:."...":...0..|
000028D0: 53 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |S$." |
000028E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000028F0: 20 20 20 20 20 20 20 20 20 20 20 22 00 30 31 A0 | ".01.|
00002900: 01 54 24 B2 22 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |.T$."...........|
00002910: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00002920: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3A 8E |.............":.|
00002930: 00 65 31 A1 01 86 20 41 24 28 35 30 30 2C 58 29 |.e1... A$(500,X)|
00002940: 2C 41 41 24 28 58 29 2C 41 28 58 29 2C 43 24 28 |,AA$(X),A(X),C$(|
00002950: 58 29 2C 42 24 28 58 29 3A 41 24 28 52 2C 43 29 |X),B$(X):A$(R,C)|
00002960: B2 22 22 3A 8E 00 87 31 A2 01 99 22 57 48 49 43 |."":...1..."WHIC|
00002970: 48 20 46 49 45 4C 44 20 44 4F 20 59 4F 55 20 57 |H FIELD DO YOU W|
00002980: 49 53 48 20 54 4F 22 00 AD 31 A3 01 99 22 53 4F |ISH TO"..1..."SO|
00002990: 52 54 20 42 59 2E 2E 20 4B 45 59 20 31 20 54 4F |RT BY.. KEY 1 TO|
000029A0: 20 22 58 22 20 3A 22 3B 3A 8D 32 34 39 00 BA 31 | "X" :";:.249..1|
000029B0: A4 01 4D B2 C5 28 49 50 24 29 00 C3 31 A5 01 8D |..M..(IP$)..1...|
000029C0: 34 31 33 00 E0 31 A6 01 99 22 12 53 4F 52 54 49 |413..1...".SORTI|
000029D0: 4E 47 92 20 50 4C 45 41 53 45 20 57 41 49 54 22 |NG. PLEASE WAIT"|
000029E0: 00 ED 31 A7 01 81 52 B2 31 A4 59 AB 31 00 FC 31 |..1...R.1.Y.1..1|
000029F0: A8 01 81 49 B2 28 52 AA 31 29 A4 59 00 21 32 A9 |...I.(R.1).Y.!2.|
00002A00: 01 8B 41 41 24 28 4D 29 B2 22 43 22 AF 41 24 28 |..AA$(M)."C".A$(|
00002A10: 49 2C 4D 29 B1 B2 41 24 28 52 2C 4D 29 A7 34 33 |I,M)..A$(R,M).43|
00002A20: 32 00 4C 32 AA 01 8B 41 41 24 28 4D 29 B2 22 4E |2.L2...AA$(M)."N|
00002A30: 22 AF C5 28 41 24 28 49 2C 4D 29 29 B1 B2 C5 28 |"..(A$(I,M))...(|
00002A40: 41 24 28 52 2C 4D 29 29 A7 34 33 32 00 57 32 AB |A$(R,M)).432.W2.|
00002A50: 01 81 43 B2 31 A4 58 00 69 32 AC 01 42 24 28 43 |..C.1.X.i2..B$(C|
00002A60: 29 B2 41 24 28 52 2C 43 29 00 7D 32 AD 01 41 24 |).A$(R,C).}2..A$|
00002A70: 28 52 2C 43 29 B2 41 24 28 49 2C 43 29 00 8F 32 |(R,C).A$(I,C)..2|
00002A80: AE 01 41 24 28 49 2C 43 29 B2 42 24 28 43 29 00 |..A$(I,C).B$(C).|
00002A90: 96 32 AF 01 82 43 00 9E 32 B0 01 82 3A 82 00 C6 |.2...C..2...:...|
00002AA0: 32 B1 01 99 22 12 53 4F 52 54 92 20 43 4F 4D 50 |2...".SORT. COMP|
00002AB0: 4C 45 54 45 44 22 3A 81 4A B2 31 A4 31 30 30 30 |LETED":.J.1.1000|
00002AC0: 3A 82 3A 89 31 32 00 EC 32 B2 01 99 C7 28 31 34 |:.:.12..2....(14|
00002AD0: 37 29 3A 99 A3 31 30 29 22 12 2A 2A 52 45 50 4F |7):..10)".**REPO|
00002AE0: 52 54 20 57 52 49 54 45 52 2A 2A 22 00 18 33 B3 |RT WRITER**"..3.|
00002AF0: 01 99 22 57 48 49 43 48 20 4F 46 20 54 48 45 20 |.."WHICH OF THE |
00002B00: 46 4F 4C 4C 4F 57 49 4E 47 20 46 49 45 4C 44 53 |FOLLOWING FIELDS|
00002B10: 20 44 4F 20 59 4F 55 22 00 3D 33 B4 01 99 22 57 | DO YOU".=3..."W|
00002B20: 49 53 48 20 54 4F 20 49 4E 43 4C 55 44 45 20 49 |ISH TO INCLUDE I|
00002B30: 4E 20 54 48 45 20 52 45 50 4F 52 54 22 00 46 33 |N THE REPORT".F3|
00002B40: B5 01 8D 32 36 30 00 51 33 B6 01 81 43 B2 31 A4 |...260.Q3...C.1.|
00002B50: 58 00 5F 33 B7 01 99 41 24 28 30 2C 43 29 3B 00 |X._3...A$(0,C);.|
00002B60: 97 33 B8 01 99 A3 32 35 29 22 4B 45 59 20 12 59 |.3....25)"KEY .Y|
00002B70: 92 20 4F 52 20 12 4E 92 20 5B 20 5D 9D 9D 22 3B |. OR .N. [ ]..";|
00002B80: 3A 8D 32 34 39 3A 43 24 28 43 29 B2 C8 28 49 50 |:.249:C$(C)..(IP|
00002B90: 24 2C 31 29 3A 82 43 00 C5 33 B9 01 8D 32 36 30 |$,1):.C..3...260|
00002BA0: 3A 99 3A 99 A3 36 29 22 3C 3C 20 41 43 43 45 50 |:.:..6)"<< ACCEP|
00002BB0: 54 20 46 49 45 4C 44 20 53 45 4C 45 43 54 49 4F |T FIELD SELECTIO|
00002BC0: 4E 20 3E 3E 22 00 F6 33 BA 01 99 3A 99 A3 34 29 |N >>"..3...:..4)|
00002BD0: 22 4B 45 59 20 12 59 92 20 54 4F 20 43 4F 4E 54 |"KEY .Y. TO CONT|
00002BE0: 49 4E 55 45 20 12 4E 92 20 54 4F 20 52 45 2D 53 |INUE .N. TO RE-S|
00002BF0: 45 4C 45 43 54 22 00 FF 33 BB 01 8D 35 31 34 00 |ELECT"..3...514.|
00002C00: 0F 34 BC 01 8B 4B 24 B2 22 4E 22 A7 34 33 34 00 |.4...K$."N".434.|
00002C10: 3D 34 BD 01 8B 4B 24 B2 22 59 22 A7 99 C7 28 31 |=4...K$."Y"...(1|
00002C20: 34 37 29 3A 99 A3 31 30 29 22 12 2A 2A 52 45 50 |47):..10)".**REP|
00002C30: 4F 52 54 20 57 52 49 54 45 52 2A 2A 22 00 62 34 |ORT WRITER**".b4|
00002C40: BE 01 99 3A 99 A3 39 29 22 50 52 49 4E 54 45 52 |...:..9)"PRINTER|
00002C50: 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 22 3A 8D 32 | INFORMATION":.2|
00002C60: 36 30 00 9D 34 BF 01 99 22 44 4F 20 59 4F 55 20 |60..4..."DO YOU |
00002C70: 52 45 51 55 49 52 45 20 4C 49 4E 45 20 46 45 45 |REQUIRE LINE FEE|
00002C80: 44 22 A3 32 35 29 22 4B 45 59 20 12 59 92 20 4F |D".25)"KEY .Y. O|
00002C90: 52 20 12 4E 92 20 5B 20 5D 9D 9D 22 3B 00 B5 34 |R .N. [ ]..";..4|
00002CA0: C0 01 8D 32 34 39 3A 4C 46 24 B2 C8 28 49 50 24 |...249:LF$..(IP$|
00002CB0: 2C 31 29 3A 99 00 02 35 C1 01 99 22 44 4F 20 59 |,1):...5..."DO Y|
00002CC0: 4F 55 20 57 49 53 48 20 54 4F 20 53 45 4E 44 20 |OU WISH TO SEND |
00002CD0: 41 22 3A 99 22 43 48 52 24 20 54 4F 20 54 48 45 |A":."CHR$ TO THE|
00002CE0: 20 50 52 49 4E 54 45 52 22 A3 32 35 29 22 4B 45 | PRINTER".25)"KE|
00002CF0: 59 20 12 59 92 20 4F 52 20 12 4E 92 20 5B 20 5D |Y .Y. OR .N. [ ]|
00002D00: 22 3B 00 31 35 C2 01 99 22 9D 9D 22 3B 3A 8D 32 |";.15..."..";:.2|
00002D10: 34 39 3A 43 53 24 B2 C8 28 49 50 24 2C 31 29 3A |49:CS$..(IP$,1):|
00002D20: 47 B2 39 3A 8B 43 53 24 B2 22 59 22 A7 47 B2 31 |G.9:.CS$."Y".G.1|
00002D30: 31 00 6B 35 C3 01 8B 43 53 24 B2 22 59 22 A7 99 |1.k5...CS$."Y"..|
00002D40: 3A 99 22 45 4E 54 45 52 20 43 48 52 24 22 A3 33 |:."ENTER CHR$".3|
00002D50: 35 29 22 5B 20 20 5D 9D 9D 9D 22 3B 3A 8D 32 34 |5)"[ ]...";:.24|
00002D60: 39 3A 43 53 B2 C5 28 49 50 24 29 00 79 35 C4 01 |9:CS..(IP$).y5..|
00002D70: 8D 32 36 30 3A 89 34 35 38 00 AE 35 C5 01 99 22 |.260:.458..5..."|
00002D80: 13 22 3A 81 49 B2 31 A4 47 3A 99 3A 82 3A 81 49 |.":.I.1.G:.:.:.I|
00002D90: B2 31 A4 32 33 AB 47 3A 99 53 24 3A 82 49 3A 99 |.1.23.G:.S$:.I:.|
00002DA0: 22 13 22 3A 81 49 B2 31 A4 47 3A 99 3A 82 00 F6 |".":.I.1.G:.:...|
00002DB0: 35 C6 01 99 A3 31 32 29 22 12 2A 2A 54 45 53 54 |5....12)".**TEST|
00002DC0: 20 4F 56 45 52 2A 2A 22 3A 99 3A 99 A3 35 29 3A | OVER**":.:..5):|
00002DD0: 99 22 4B 45 59 20 12 59 92 20 54 4F 20 43 4F 4E |."KEY .Y. TO CON|
00002DE0: 54 49 4E 55 45 20 12 4E 92 20 54 4F 20 52 45 2D |TINUE .N. TO RE-|
00002DF0: 53 45 54 55 50 22 00 FF 35 C7 01 8D 35 31 34 00 |SETUP"..5...514.|
00002E00: 0F 36 C8 01 8B 4B 24 B2 22 59 22 A7 34 36 33 00 |.6...K$."Y".463.|
00002E10: 25 36 C9 01 8B 4B 24 B2 22 4E 22 A7 8D 35 31 39 |%6...K$."N"..519|
00002E20: 3A 89 34 33 34 00 5B 36 CA 01 99 22 44 4F 20 59 |:.434.[6..."DO Y|
00002E30: 4F 55 20 52 45 51 55 49 52 45 20 54 45 53 54 20 |OU REQUIRE TEST |
00002E40: 50 52 49 4E 54 3A 20 4B 45 59 20 12 59 92 20 4F |PRINT: KEY .Y. O|
00002E50: 52 20 12 4E 92 22 3A 8D 32 36 30 00 64 36 CB 01 |R .N.":.260.d6..|
00002E60: 8D 35 31 34 00 7A 36 CC 01 8B 4B 24 B2 22 4E 22 |.514.z6...K$."N"|
00002E70: A7 8D 35 31 36 3A 89 34 36 33 00 90 36 CD 01 8B |..516:.463..6...|
00002E80: 4B 24 B2 22 59 22 A7 8D 35 31 36 3A 8D 35 32 30 |K$."Y"..516:.520|
00002E90: 00 99 36 CE 01 89 34 35 33 00 A5 36 CF 01 9F 34 |..6...453..6...4|
00002EA0: 2C 34 3A 9D 34 00 BA 36 D0 01 8B 43 53 24 B2 22 |,4:.4..6...CS$."|
00002EB0: 59 22 A7 99 20 C7 28 43 53 29 00 DC 36 D1 01 99 |Y".. .(CS)..6...|
00002EC0: 4D 24 A6 31 30 29 22 46 49 4C 45 4E 41 4D 45 20 |M$.10)"FILENAME |
00002ED0: 3D 20 22 4E 24 3A 99 3A 8D 35 33 33 00 E8 36 D2 |= "N$:.:.533..6.|
00002EE0: 01 52 B2 30 3A 50 B2 30 00 F0 36 D3 01 43 B2 31 |.R.0:P.0..6..C.1|
00002EF0: 00 09 37 D4 01 50 44 B2 41 28 43 29 AB C3 28 41 |..7..PD.A(C)..(A|
00002F00: 24 28 52 2C 43 29 29 AA 31 00 18 37 D5 01 8B 50 |$(R,C)).1..7...P|
00002F10: 44 B3 31 A7 50 44 B2 31 00 58 37 D6 01 50 44 24 |D.1.PD.1.X7..PD$|
00002F20: B2 C8 28 53 24 2C 50 44 29 3A 8B 43 24 28 43 29 |..(S$,PD):.C$(C)|
00002F30: B2 22 59 22 A7 99 C8 28 41 24 28 52 2C 43 29 2C |."Y"...(A$(R,C),|
00002F40: 41 28 43 29 29 AA 50 44 24 3B 3A 8B 52 B2 30 A7 |A(C)).PD$;:.R.0.|
00002F50: 50 B2 50 AA 41 28 43 29 00 6D 37 D7 01 43 B2 43 |P.P.A(C).m7..C.C|
00002F60: AA 31 3A 8B 43 B3 58 AA 31 A7 34 36 38 00 76 37 |.1:.C.X.1.468.v7|
00002F70: D8 01 8D 35 33 33 00 98 37 D9 01 8B 52 B2 30 A7 |...533..7...R.0.|
00002F80: 99 3A 81 49 B2 31 A4 50 AA 32 3A 99 22 2D 22 3B |.:.I.1.P.2:."-";|
00002F90: 3A 82 49 3A 8D 35 33 33 00 AF 37 DA 01 52 B2 52 |:.I:.533..7..R.R|
00002FA0: AA 31 3A 99 3A 8B 52 B3 59 AA 31 A7 34 36 37 00 |.1:.:.R.Y.1.467.|
00002FB0: B9 37 DB 01 99 3A 99 3A 99 00 D1 37 DC 01 99 22 |.7...:.:...7..."|
00002FC0: 20 20 20 2A 54 4F 54 41 4C 53 2A 22 3A 8D 35 33 | *TOTALS*":.53|
00002FD0: 33 00 EB 37 DD 01 99 22 20 20 20 2D 2D 2D 2D 2D |3..7..." -----|
00002FE0: 2D 2D 2D 22 3A 99 3A 8D 35 33 33 00 FA 37 DE 01 |---":.:.533..7..|
00002FF0: 81 43 B2 31 A4 58 3A 54 B2 30 00 16 38 DF 01 81 |.C.1.X:T.0..8...|
00003000: 52 B2 31 A4 59 3A 54 B2 54 AA C5 28 41 24 28 52 |R.1.Y:T.T..(A$(R|
00003010: 2C 43 29 29 3A 82 00 3A 38 E0 01 8B 41 41 24 28 |,C)):..:8...AA$(|
00003020: 43 29 B2 22 4E 22 A7 99 41 24 28 30 2C 43 29 A3 |C)."N"..A$(0,C).|
00003030: 32 30 29 3B 54 3A 8D 35 33 33 00 41 38 E1 01 82 |20);T:.533.A8...|
00003040: 43 00 4B 38 E2 01 98 34 3A A0 34 00 54 38 E3 01 |C.K8...4:.4.T8..|
00003050: 8D 35 31 39 00 5C 38 E4 01 89 31 32 00 93 38 E5 |.519.\8...12..8.|
00003060: 01 8D 34 39 36 3A 43 4F B2 31 3A 4C 4E B2 32 31 |..496:CO.1:LN.21|
00003070: 3A 8D 34 39 38 3A 99 22 12 44 45 4C 45 54 45 92 |:.498:.".DELETE.|
00003080: 20 41 52 45 20 59 4F 55 20 53 55 52 45 3F 20 59 | ARE YOU SURE? Y|
00003090: 2F 4E 22 00 9C 38 E6 01 8D 35 31 34 00 AC 38 E7 |/N"..8...514..8.|
000030A0: 01 8B 4B 24 B2 22 59 22 A7 34 39 30 00 BC 38 E8 |..K$."Y".490..8.|
000030B0: 01 8B 4B 24 B2 22 4E 22 A7 31 31 33 00 C5 38 E9 |..K$."N".113..8.|
000030C0: 01 89 34 38 36 00 D6 38 EA 01 54 B2 52 3A 81 52 |..486..8..T.R:.R|
000030D0: B2 54 A4 59 AA 31 00 E1 38 EB 01 81 43 B2 31 A4 |.T.Y.1..8...C.1.|
000030E0: 58 00 F7 38 EC 01 41 24 28 52 2C 43 29 B2 41 24 |X..8..A$(R,C).A$|
000030F0: 28 52 AA 31 2C 43 29 00 FE 38 ED 01 82 43 00 05 |(R.1,C)..8...C..|
00003100: 39 EE 01 82 52 00 13 39 EF 01 59 B2 59 AB 31 3A |9...R..9..Y.Y.1:|
00003110: 89 39 39 00 2E 39 F0 01 43 4F B2 31 3A 4C 4E B2 |.99..9..CO.1:LN.|
00003120: 32 31 3A 8D 34 39 38 3A 81 49 B2 31 A4 33 00 62 |21:.498:.I.1.3.b|
00003130: 39 F1 01 99 22 20 20 20 20 20 20 20 20 20 20 20 |9..." |
00003140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003150: 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 82 49 | ":.I|
00003160: 3A 8E 00 95 39 F2 01 41 43 43 24 B2 22 1D 1D 1D |:...9..ACC$."...|
00003170: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003180: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003190: 1D 1D 1D 1D 22 00 BB 39 F3 01 44 4F 57 24 B2 22 |...."..9..DOW$."|
000031A0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000031B0: 11 11 11 11 11 11 11 11 11 11 22 00 C6 39 F4 01 |.........."..9..|
000031C0: 81 5A B2 31 A4 32 00 D0 39 F5 01 99 22 13 22 3B |.Z.1.2..9...".";|
000031D0: 00 E9 39 F6 01 8B 43 4F B1 31 A7 99 C8 28 41 43 |..9...CO.1...(AC|
000031E0: 43 24 2C 43 4F AB 31 29 3B 00 02 3A F7 01 8B 4C |C$,CO.1);..:...L|
000031F0: 4E B1 31 A7 99 C8 28 44 4F 57 24 2C 4C 4E AB 31 |N.1...(DOW$,LN.1|
00003200: 29 3B 00 37 3A F8 01 8B 5A B2 31 A7 99 22 20 20 |);.7:...Z.1.." |
00003210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003230: 20 20 20 20 20 22 3B 00 3E 3A F9 01 82 5A 00 44 | ";.>:...Z.D|
00003240: 3A FA 01 8E 00 74 3A FB 01 82 3A 99 3A 8D 32 35 |:....t:...:.:.25|
00003250: 39 3A 99 A3 36 29 22 50 52 45 53 53 20 12 20 53 |9:..6)"PRESS . S|
00003260: 50 41 43 45 20 42 41 52 20 92 20 46 4F 52 20 4D |PACE BAR . FOR M|
00003270: 45 4E 55 22 00 8F 3A FC 01 4B 24 B2 22 22 3A A1 |ENU"..:..K$."":.|
00003280: 4B 24 3A 8B 4B 24 B3 B1 22 20 22 A7 35 30 38 00 |K$:.K$.." ".508.|
00003290: 97 3A FD 01 89 31 32 00 B0 3A FE 01 8B 50 52 B2 |.:...12..:...PR.|
000032A0: 35 AF C3 28 C4 28 52 29 29 B2 32 A7 54 54 B2 35 |5..(.(R)).2.TT.5|
000032B0: 00 C9 3A FF 01 8B 50 52 B2 35 AF C3 28 C4 28 52 |..:...PR.5..(.(R|
000032C0: 29 29 B2 33 A7 54 54 B2 34 00 E2 3A 00 02 8B 50 |)).3.TT.4..:...P|
000032D0: 52 B2 35 AF C3 28 C4 28 52 29 29 B2 34 A7 54 54 |R.5..(.(R)).4.TT|
000032E0: B2 33 00 E8 3A 01 02 8E 00 05 3B 02 02 A1 4B 24 |.3..:.....;...K$|
000032F0: 3A 8B 4B 24 B3 B1 22 59 22 AF 4B 24 B3 B1 22 4E |:.K$.."Y".K$.."N|
00003300: 22 A7 35 31 34 00 0B 3B 03 02 8E 00 4A 3B 04 02 |".514..;....J;..|
00003310: 43 4F B2 31 3A 4C 4E B2 32 31 3A 8D 34 39 38 3A |CO.1:LN.21:.498:|
00003320: 99 22 20 3C 3C 20 45 4E 53 55 52 45 20 54 48 41 |." << ENSURE THA|
00003330: 54 20 50 52 49 4E 54 45 52 20 49 53 20 41 4C 49 |T PRINTER IS ALI|
00003340: 47 4E 45 44 20 3E 3E 22 3A 99 00 84 3B 05 02 99 |GNED >>":...;...|
00003350: 22 20 20 20 20 50 52 45 53 53 20 12 53 50 41 43 |" PRESS .SPAC|
00003360: 45 20 42 41 52 92 20 54 4F 20 43 4F 4E 54 49 4E |E BAR. TO CONTIN|
00003370: 55 45 22 3A A1 4B 24 3A 8B 4B 24 B3 B1 22 20 22 |UE":.K$:.K$.." "|
00003380: A7 35 31 36 00 8A 3B 06 02 8E 00 AE 3B 07 02 81 |.516..;.....;...|
00003390: 43 B2 31 A4 58 3A 41 24 28 30 2C 43 29 B2 C8 28 |C.1.X:A$(0,C)..(|
000033A0: 41 24 28 30 2C 43 29 2C 39 29 3A 82 3A 8E 00 D7 |A$(0,C),9):.:...|
000033B0: 3B 08 02 52 50 24 B2 22 22 3A 81 43 B2 31 A4 58 |;..RP$."":.C.1.X|
000033C0: 3A 54 50 24 B2 22 22 3A 8B 43 24 28 43 29 B2 22 |:TP$."":.C$(C)."|
000033D0: 59 22 A7 8D 35 33 30 00 DE 3B 09 02 82 43 00 0F |Y"..530..;...C..|
000033E0: 3C 0A 02 52 B2 30 3A 52 24 B2 22 22 3A 50 44 24 |<..R.0:R$."":PD$|
000033F0: B2 22 22 3A 81 43 B2 31 A4 58 3A 50 44 B2 41 28 |."":.C.1.X:PD.A(|
00003400: 43 29 AB C3 28 41 24 28 52 2C 43 29 29 AA 31 00 |C)..(A$(R,C)).1.|
00003410: 1E 3C 0B 02 8B 50 44 B3 31 A7 50 44 B2 31 00 54 |.<...PD.1.PD.1.T|
00003420: 3C 0C 02 50 44 24 B2 C8 28 53 24 2C 50 44 29 3A |<..PD$..(S$,PD):|
00003430: 8B 43 24 28 43 29 B2 22 59 22 A7 52 24 B2 52 24 |.C$(C)."Y".R$.R$|
00003440: AA C8 28 41 24 28 52 2C 43 29 2C 41 28 43 29 29 |..(A$(R,C),A(C))|
00003450: AA 50 44 24 00 5B 3C 0D 02 82 43 00 77 3C 0E 02 |.PD$.[<...C.w<..|
00003460: 9F 34 2C 34 3A 9D 34 3A 8B 43 53 24 B2 22 59 22 |.4,4:.4:.CS$."Y"|
00003470: A7 99 C7 28 43 53 29 00 99 3C 0F 02 99 4D 24 A6 |...(CS)..<...M$.|
00003480: 31 30 29 22 46 49 4C 45 4E 41 4D 45 20 3D 20 22 |10)"FILENAME = "|
00003490: 4E 24 3A 99 3A 8D 35 33 33 00 BC 3C 10 02 99 52 |N$:.:.533..<...R|
000034A0: 24 3A 81 49 B2 31 A4 C3 28 52 24 29 3A 99 22 2D |$:.I.1..(R$):."-|
000034B0: 22 3B 3A 82 49 3A 99 3A 8D 35 33 33 00 CD 3C 11 |";:.I:.:.533..<.|
000034C0: 02 99 52 50 24 3A 98 34 3A A0 34 3A 8E 00 ED 3C |..RP$:.4:.4:...<|
000034D0: 12 02 81 49 B2 31 A4 41 28 43 29 3A 54 50 24 B2 |...I.1.A(C):TP$.|
000034E0: 54 50 24 AA 41 41 24 28 43 29 3A 82 49 00 18 3D |TP$.AA$(C):.I..=|
000034F0: 13 02 8B C3 28 54 50 24 29 B3 C3 28 41 24 28 31 |....(TP$)..(A$(1|
00003500: 2C 43 29 29 A7 54 50 24 B2 54 50 24 AA 41 41 24 |,C)).TP$.TP$.AA$|
00003510: 28 43 29 3A 89 35 33 31 00 36 3D 14 02 54 50 24 |(C):.531.6=..TP$|
00003520: B2 54 50 24 AA 22 20 22 3A 52 50 24 B2 52 50 24 |.TP$." ":RP$.RP$|
00003530: AA 54 50 24 3A 8E 00 4A 3D 15 02 8B 4C 46 24 B2 |.TP$:..J=...LF$.|
00003540: 22 59 22 A7 99 C7 28 31 30 29 00 50 3D 16 02 8E |"Y"...(10).P=...|
00003550: 00 79 3D 17 02 99 22 93 4D 41 58 20 4E 4F 20 4F |.y=...".MAX NO O|
00003560: 46 20 52 45 43 4F 52 44 53 20 4E 4F 57 20 52 45 |F RECORDS NOW RE|
00003570: 41 43 48 45 44 2E 22 3A 99 00 C2 3D 18 02 99 22 |ACHED.":...=..."|
00003580: 54 4F 20 49 4E 43 52 45 41 53 45 20 4D 41 58 49 |TO INCREASE MAXI|
00003590: 4D 55 4D 20 52 45 2D 44 49 4D 45 4E 53 49 4F 4E |MUM RE-DIMENSION|
000035A0: 22 3A 99 3A 99 22 50 52 4F 47 52 41 4D 20 41 54 |":.:."PROGRAM AT|
000035B0: 20 4C 49 4E 45 20 34 31 37 20 41 4E 44 20 31 37 | LINE 417 AND 17|
000035C0: 31 22 00 0D 3E 19 02 99 3A 99 22 4F 52 20 43 41 |1"..>...:."OR CA|
000035D0: 4C 4C 20 44 49 41 4C 4F 47 20 4F 4E 20 30 31 20 |LL DIALOG ON 01 |
000035E0: 32 38 39 20 36 39 30 34 22 3A 99 3A 99 3A 99 3A |289 6904":.:.:.:|
000035F0: 99 22 50 52 45 53 53 20 12 53 50 41 43 45 20 42 |."PRESS .SPACE B|
00003600: 41 52 92 20 46 4F 52 20 4D 45 4E 55 22 00 22 3E |AR. FOR MENU".">|
00003610: 1A 02 A1 4B 24 3A 8B 4B 24 B3 B1 22 20 22 A7 35 |...K$:.K$.." ".5|
00003620: 33 38 00 30 3E 1B 02 59 B2 32 30 30 3A 89 31 32 |38.0>..Y.200:.12|
00003630: 00 00 00 00 FF |..... |
.......53280,2:.53281,2:. ".".Q....**DFM
BY CHRIS ELY*DIALOG SOFTWARE(C) 15.01.8
3.....X.0:Y.0:R.0:C.0:IP$."":K$."":EM$."
":N$."":.415.....A$(R,C)."":F.0:S.0.....
.G(147).X...."... DO YOU WANT .U.PPER
OR .L.OWER CASE"......K$:.K$."".8......K
$."U"..G(142):.12......K$."L"..G(14):.12
......8.0....G(147):.347.@....:.N$."".17
.K...NL$.N$.I....C(NL$).9.NL$.NL$." ":.1
5......:.:..8)".FILE IN USE: ";NL$;".":.
:.:........14)"KEY OPTION":.259......"1
CREATE NEW FILE".20)"2 RENAME FILE".....
."3 ACCESS RECORD".20)"4 SELECT".,...."5
LOAD/SAVE FILE".20)"6 REPORT WRITER.R..
.."7 SORT FILE".20)"8 UTILITIES":..Q....
.11)"9 EXIT PROGRAM":.259......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":.256:.12....
..K.127,77,99,187,261,434,418,354,341.'.
... 413.O...."DO YOU WISH TO .C.ONTINUE
SEARCH".J...."OR RETURN TO .M.ENU".|....
K$:.K$."".31... ..K$."C"..413:.35. .!..K
$."M".12..."..31.A.#..496:CO.1:LN.21:.49
8...$.."SEARCH FOR RECORD BY KEY FIELD".
..%.."------------------------------".,.
&.."ENTER ""."A$(0,1)"."":";.9.'..249:.4
6.B.(..496.V.).CO.1:LN.21:.498...*.."THE
RE ARE "Y" RECORDS IN THIS FILE"...+.."E
NTER RECORD NUMBER :";:. 249.C.,.R.E(IP$
):.R.0.R.Y..413:.42.L.-..100.W...L$.IP$.
../.F.C(L$)...0..R.1.Y...1..L$.H(A$(R,1)
,F).100...2.....3..413.6.4..".NO SUCH RE
CORD EXISTS!.".F.5..Z.1.1000:..N.6..28.U
.7.."WHICH LINE DO YOU WISH TO AMEND"...
8.."PRESS 1 TO "X" :";:.249...9.C.E(IP$)
:.C.X..413:.55...:..413...;.."EXISTING D
ATA FOR ""."A$(0,C)"."" = ":. "."A$(R,C)
...<.."NEW DATA ";:."[";:.H(S$,A(C));.2.
=.."]";:.H(T$,A(C));:.".";.I.>..249:A$(R
,C).IP$:..V.?..C(A$(R,C)).A(C).A$(R,C).H
(A$(R,C),A(C)).~.@.C.2...A..100...B..259
...C.."WHICH LINE DO YOU WISH TO AMEND".
V.D.."PRESS 1 TO "X" :";:.249;...E.C.E(I
P$):.C.X..413:.67...F..413...G.."."A$(0,
C).J.H.."ENTER CORRECT FIELD HEADING [
]..........";:. 249.\.I.A$(0,C).I
P$:....J..C(A$(0,C)).9.A$(0,C).A$(0,C)."
":.74...K..C(A$(0,C)).9.A$(0,C).H(A$(0,
C),9)...L..100...M.."ENTER NEW FILE NAME
[ ]..........";...N..249:N$.IP$
:.12./.O..496:CO.1:LN.21:.498:."DO YOU W
ISH TO AMEND:-".P.P.."FIELD .H.EADING OR
.D.ATA".B.Q..K$:.K$."".81.W.R..K$."H"..
413:.67...S..K$."D"..413:.55...T..81...U
..G(147);:RS.R:.R.RS.Y:.G(19);...V..". R
ECORDS WILL DISPLAY IN LOGICAL ORDER .":
..+.W.CO.1:LN.24:.498:.".C.ONTINUE SCROL
L: .S.TOP SCROLL: .E.XIT:.X.X.CO.1:LN.
3:.498:."RECORD NO: ";R:.:.C.1.X...Y..".
"A$(0,C)".";:Q.C(A$(R,C)):.Q.26.Q.26...Z
...12)H(A$(R,C),26).H(S$,26.Q)...[..C.1.
....\..RN..0.507.G.]..C...^.K$."":.K$:.K
$."S".97..._..K$.."E"..I.1.500:.I:.R...`
..100.'.A.K$."":.K$:.K$.."C".K$.."E".97.
/.B..95.7.C.R.1.?.D.A.1.L.E..R.0.R.1._.F
..R.Y.R.R.1:R.Y.L.G..A.0.A.1.|.H..A.25.A
.A.1...I..G(147):.".";N$.19)"RECORD NO";
R:. 259...J..C.1.X...K.GG.A(C).O.L..GG.2
4.GG.24...M.."."D(C)".";...N...4)"."H(A$
(0,C),9)".".15)J(A$(R,C),A,GG)...O..C.1.
.259.".P...;.Q.CO.1:LN.20:.498:.260.G.R.
." .**OPTIONS**. ".
..S.."PRESS : .N.EXT .L.AST .F.IND .G.OT
O .A.MEND .M.ENU".Y.T..".C.ALCS .I.NPUT
.D.ELETE .P.RINT .S.CROLL .<. .>"...U..2
60...V..K$:.K$."".118.(.W.KK$."NLMIGFS><
APCD":.K.1.13:.K$.J(KK$,K,1).121.4.X..K:
.118.J.Y..K.122,123,12,124,40,35,85,125,
126,79,366,375,485.Z.Z.R.R.1:. 100...{.R
.R.1:. 100...|.F.1:TV.R:.169...}.A.A.1:.
101...~.A.A.1:.101.....G(147):.:.".**WA
RNING** THIS WILL ERASE ANY FILE"......"
.CURRENTLY IN MEMORY.":.:.:.:..:.....8)
"........................".].....8)"PRES
S Y(YES) TO CONTINUE".|.....8)" N(N
O) FOR MENU". .....8) ".................
......."......514......K$."N".12.I....K$
."Y". 136......G(147):.:.415......"KEY I
N TODAY'S DATE :";:.249.....M$.IP$:.G(14
7)./.....12)".CREATE RECORD.":..8....259
.K...."WHAT IS THE FILE NAME ?[ ]
.........";.T....249.....N$.H(IP$,8):...
.... 259.G...."HOW MANY FIELDS IN EACH R
ECORD ? [ ]...";:. 249.....X.E(H(IP$,2)
):.......X.1.X.15..".MAXIMUM IS 15.":.14
5......417:.G(147):C.1.:....".THIS FILE
IS NAMED ";N$:.259.K...."NOTE THAT FIELD
1 IS THE . KEY FIELD . ":..T....259....
.."STATE . TITLE . OF FIELD"C" [
]..........";......249:..O...A$(0,C).H
(IP$,9)......C(A$(0,C)).9.A$(0,C).A$(0,C
)." ":.155.2...."ENTER .C.HARACTER OR .N
.UMERIC FIELD [ ]..";:.249.H...AA$(C).H(
IP$,1):..\....AA$(C)."N".161.P....AA$(C)
."C".163.~. ..413:.156.....A(C).9:......
.167.A...."ENTER NUMBER OF CHARACTERS FO
R RECORD"......"MAX.36 CHARACTERS [ ]..
.";:.249.....A(C).E(IP$):.......A(C).36.
."..":.413:.163.$....C.X.169.8...C.C.1:.
".":.149.R....F.1.R.Y.1:Y.Y.1:.171.^...R
.1:Y.1.M....R.500.535......G(147):..12)"
.RECORD NUMBER";R".":.259.H.....3)"TO TE
RMINATE DATA ENTRY TYPE 'END'":..S....25
9:.......C.1.X......"KEY "A$(0,C):."[";:
.H(S$,A(C));.&...."]";:.H(T$,A(C));:."."
;:.249.K....IP$."END". F.0 . R.1:Y.Y.1:.
12.N....IP$."=".A$(R,C).A$(TV,C):.183..
....IP$."END".F.1.F.0:R.R.1:Y.Y.1:.100..
...A$(R,C).H(IP$,A(C)):..L....A$(R,C).""
.A$(R,C)."-".U....259............F.1.F.0
:.100.....R.R.1:Y.Y.1:. 171.+....G(147):
..15)".**SELECT**":.259:E.0.Q...."DO YOU
WANT TO OUTPUT RESULTS TO":."PRINTER: K
EY .Y.ES OR .N.O".Z....259......514.....
.K$."Y".PR.5:.193......K$."N".PR.0:.193.
..A..PR.0.TT.15.J.B..R.1.Y...C..413:.".E
NTER SELECTED .FIELD. [ ].......
...";:.249;...D.DP$.IP$:..8.E..C(DP$).9.
DP$.DP$." ":.197.G.F..:.259:C.1.\.G..A$(
0,C).DP$.202.Q.H.C.C.1:.C.X.1.199...I.EM
$.".NO SUCH FIELD":.256:.12...J.."ENTER
."DP$"."...K.."[";:.H(S$,A(C));...L.."]"
;:.H(T$,A(C));:.".";...M..249:CP$.IP$:.:
. 259...N.F.C(CP$).'.O..G(147):.:. 259:.
AA$(C).."C".210.P.P.."DO YOU WANT A STAN
DARD OR SLIDING"...Q.."STRING SEARCH: EN
TER .ST. OR .SS. [ ]...";:.249:ST$.IP$.
..R..G(147):.:. 259:.AA$(C)."N".J.1:.213
.T.S..ST$."SS".SS.1:I.1:.221...T..ST$."S
T".SS.0:I.1:J.1:.221...U.."SHOULD . "DP$
" . BE:":..0.V...2)".E.QUAL TO".15)CP$:.
.O.W...2)".L.ESS THAN".15)CP$:..Q.X...2)
".G.REATER THAN".15)CP$:....Y..K$:.K$.""
.217...Z.KK$."ELG":.I.1.3:.K$.J(KK$,I,1)
.220......I:.217.J....G(147):. 259.....A
R.24:.PR.5..516:.".".14)".**PRINTING**."
:AR.A(1):.4,4:.4.5...."FILE NAME : "N$:.
:."SELECTION : "DP$:..H....I.236,224,230
.N...."CRITERIA < "CP$" ":.259:.R.1.Y.W
....510......E(A$(R,C)).E(CP$).."RECORD
NO ";R.TT)H(A$(R,1),AR).......E....PR.5.
.4: 4.N....245......"CRITERIA > "CP$" "
:.259:.R.1.Y......510.5 ...E(A$(R,C)).E(
CP$).."RECORD NO ";R.TT)H(A$(R,1),AR).;
....K ...PR.5..4: 4.T ...245.Z ..."CRITE
RIA = "CP$" ":.259:.R.1.Y.. ...R.1.Y..
...510.. ...SS.1..J.1.A(C).F.. ...J(A$(R
,C),J,F).CP$.."RECORD NO ";R.TT)H(A$(R,1
),AR).. ...SS.0.243.. ...J.. .....!...PR
.5..4: 4.(!...:. .13)".PRESS SPACE BAR."
.;!...K$:.K$."".246.Q!...K$." ".R.R.1:.1
2.Z!...246.J!..B$." ":."";..!...IP$:.IP$
.""..250..!...B$." ".F(IP$).20..250.H!..
.F(IP$).20.B$.H(B$,C(B$).1):.". .";:.250
..!...IP$.G(13).IP$.J(B$,2):.:...!..A.F(
IP$):.A.31..250. "..B$.B$.IP$:.".";IP$;"
.";:.250.*"... EM$.="... T8.1 .1000:..C"
....T"..."..............................
.........":..."..."---------------------
------------------":..O"... "DO YOU WISH
TO .L.OAD OR .S.AVE":..."...K$:.K$."".2
62.."...K$."L".288..#...K$."S".266..#...
262..#...413.A#..."ARE YOU SAVING ON .D.
ISC OR .T.APE?":..T#...K$:.K$."".268.D#.
..K$."T".272.T#...K$."D".302.}#...268..#
...413..#...".INSERT CASSETTE"..#..."PRE
SS .C. TO CONTINUE".Q#...K$:.K$.."C". 27
5..#...413:."SAVING ."N$..#...".."..$...
1,1,1,N$..$...1,Y:.1,X.$$...C.1.X:.1,A(
C):..;$...C.1.X:.1,AA$(C):..F$...R.1.Y.^
$...C.1.X:.1,A$(R,C):..D$....|$...C.1.X:
.1,A$(0,C):...$.. 1..$...12..$ ....$!..4
15:.413:."ARE YOU LOADING FROM:-".Q$".."
.D.ISK OR .T.APE"..$#..K$:.K$."".291..$$
..K$."T".295..%%..K$."D".300..%&..291. %
'.T.1:U.0:NN$.N$.A%(..413:."IS CASSETTE
IN PLACE".`%).."PRESS .Y.ES TO CONTINUE"
.U%*..K$:.K$.."Y".298.~%+..320..%,.T.8:U
.4:N1$."0:":N2$.",SEQ,READ":NN$.N1$.NN$.
N2$..%-..320.E%...413..%/.."DO YOU WANT
TO SAVE ON DRIVE .0. OR .1."..&0..K$:.K$
."".304.!&1..K$."0".DR$."0:":.308.;&2..K
$."1".DR$."1:":.308.D&3..304.P&4.N1$.DR$
:N2$.",SEQ,WRITE":NN$.N1$.N$.N2$..&5..1,
8,4,"@".NN$..&6..1,Y:.G(13);..&7..1,X:.G
(13);.B&8..C.1.X:.1,A(C):.G(13);:...&9..
C.1.X:.1,AA$(C):.G(13);:...&:..R.1.Y..';
..C.1.X:.1,A$(R,C):.G(13);:...'<...2'=..
C.1.X:.1,A$(0,C):.G(13);:..9'>. 1.A'?..1
2.Z'@..413:."ENTER FILE NAME [ ]
..........";:. 249..'A.N$.H(IP$,9):NN$.N
$:...'B..T.1.."..."..'C..1,T,U,NN$.E'D..
1,Y:.1,X:.417.Z'E..C.1.X:.1,A(C):...'F..
C.1.X:.1,AA$(C):...'G..R.1.Y..(H..C.1.X.
.(I..1,A$(R,C)..(J..:..)(K..C.1.X.8(L..1
,A$(0,C).>(M...E(N. 1.N(O..413..(P..Y.0.
N$."":.".FILE NOT FOUND ON DISK":.I.1.10
00:.:.12..(Q.."KEY IN TODAY'S DATE ".B(R
.."(EG. 29.12.82) :";:.249.O(S.M$.IP$:..
W(T..12..(U.."EXIT 'DFM' ARE YOU SURE (Y
/N)..)V..K$:.K$."".342.%)W..K$."Y".N$.""
:.347.4)X..K$."N".12.G)Y.. .
W)Z..343 ..)[..: .". *****
******************"..)\.." ***.DA
TA. .FILE. .MANAGER.***".Y)].." *
**********************":...)^..N$.."". .
..*_.." BY ":
..G*`.." . D . . I . . A . . L .
. O . . G . ":..N*A.." S O F
T W A R E":.:..Z*B..G(147)..*C...14)".**
UTILITIES**.":.259:...*D.." .M.EMORY AV
AILABILITY":..W*E.." MENU .SPACE BAR.".
.*F..V$:.V$."".358..*G..V$."M".364..+H..
V$." ".12.,+I..:.".PRESS SPACE BAR FOR M
ENU".A+J..K$:.K$.." ".358.I+K..12.J+L.."
.....".24)"= ".(0)"BYTES ".Z+M..G(19):.3
55..+N..496..+O..516..+P..4,4:.4.D+Q..G(
147):.".";N$ .19)"RECORD NO";R:. 260..+R
.C.1:."."D(C)".";:..2)"." A$(0,C)".".3);
H(A$(R,C),24)..,S..260..,T.. C.2 . X.;,U
..D(C);:..2)A$(0,C).3)H(A$(R,C),24).V,V.
.:.:.259:.: .4: 4:.100..,W..496:CO.1:LN.
21:.498:."DO YOU WISH TO PERFORM INDIVID
UAL"..,X..".C.ALCS OR .T.OTALISE FIELD".
J,Y..K$:.K$."".377..,Z..K$."T"..413:.399
..,{..K$."C"..413:.381..,|..377..-}.."WH
ICH FIELD DO YOU WISH".H-~.."TO CALCULAT
E, KEY 1 TO "X" :";:.249.D-.C.E(IP$):.C
.X..413:.381.M-...413..-...AA$(C)."C".."
.CHARACTER. FIELD"..-...AA$(C)."N".388..
-...I.1.1000:.:.113..-..."KEY LETTER FOL
LOWED BY AMOUNT EG.(A25)"......".A.DD .S
.UBTRACT .M.ULTIPLY .D.IVIDE .Z.EROISE".
?....".R.EPLACE :";:.249:L$.IP$.H....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))......
H(L$,1)."D".P.E(A$(R,C)).E(J(L$,2)).....
.H(L$,1)."Z".P.0../...H(L$,1)."R".P.E(J(
L$,2)).,/..A$(R,C).J(D(P),2).5/...100.T/
..."WHICH FIELD DO YOU WISH".|/..."TO TO
TALISE KEY 1 TO "X" :";:.249../..C.E(IP$
):.C.X..413:.399../...413.F/...AA$(C)."C
"..".CHARACTER. FIELD".Z/...AA$(C)."N".4
06../...I.1.1000:.:.113../..T.0..0... R.
1.Y:T.T.E(A$(R,C)):..Z0..."TOTAL FILE VA
LUE OF FIELD :":."."A$(0,C)"."" =
";T.}0..."PRESS .SPACE BAR. TO RE
TURN"..0...K$:.K$."".410. 0...K$." ".100
..0...410..0..:.K0..."..";:.S$:.S$:."...
":...0..S$."
".01 .T$."...................
.....................":..E1... A$(500,X)
,AA$(X),A(X),C$(X),B$(X):A$(R,C)."":...1
..."WHICH FIELD DO YOU WISH TO"..1..."SO
RT BY.. KEY 1 TO "X" :";:.249..1..M.E(IP
$).C1...413..1...".SORTING. PLEASE WAIT"
..1...R.1.Y.1..1...I.(R.1).Y.!2...AA$(M)
."C".A$(I,M)..A$(R,M).432.L2...AA$(M)."N
".E(A$(I,M))..E(A$(R,M)).432.W2...C.1.X.
I2..B$(C).A$(R,C).}2..A$(R,C).A$(I,C)..2
..A$(I,C).B$(C)..2...C..2...:..F2...".SO
RT. COMPLETED":.J.1.1000:.:.12..2...G(14
7):..10)".**REPORT WRITER**"..3..."WHICH
OF THE FOLLOWING FIELDS DO YOU".=3..."W
ISH TO INCLUDE IN THE REPORT".F3...260.Q
3...C.1.X._3...A$(0,C);..3....25)"KEY .Y
. OR .N. [ ]..";:.249:C$(C).H(IP$,1):.C.
E3...260:.:..6)"<< ACCEPT FIELD SELECTIO
N >>"..3...:..4)"KEY .Y. TO CONTINUE .N.
TO RE-SELECT"..3...514..4...K$."N".434.
=4...K$."Y"..G(147):..10)".**REPORT WRIT
ER**".B4...:..9)"PRINTER INFORMATION":.2
60..4..."DO YOU REQUIRE LINE FEED".25)"K
EY .Y. OR .N. [ ]..";..4...249:LF$.H(IP$
,1):...5A.."DO YOU WISH TO SEND A":."CHR
$ TO THE PRINTER".25)"KEY .Y. OR .N. [ ]
";.15B.."..";:.249:CS$.H(IP$,1):G.9:.CS$
."Y".G.11.K5C..CS$."Y"..:."ENTER CHR$".3
5)"[ ]...";:.249:CS.E(IP$).Y5D..260:.45
8..5E..".":.I.1.G:.:.:.I.1.23.G:.S$:.I:.
".":.I.1.G:.:...5F...12)".**TEST OVER**"
:.:..5):."KEY .Y. TO CONTINUE .N. TO RE-
SETUP"..5G..514..6H..K$."Y".463.%6I..K$.
"N"..519:.434.[6J.."DO YOU REQUIRE TEST
PRINT: KEY .Y. OR .N.":.260.D6K..514.Z6L
..K$."N"..516:.463..6M..K$."Y"..516:.520
..6N..453..6O..4,4:.4..6P..CS$."Y".. G(C
S)..6Q..M$.10)"FILENAME = "N$:.:.533..6R
.R.0:P.0..6S.C.1..7T.PD.A(C).C(A$(R,C)).
1..7U..PD.1.PD.1.X7V.PD$.H(S$,PD):.C$(C)
."Y"..H(A$(R,C),A(C)).PD$;:.R.0.P.P.A(C)
.M7W.C.C.1:.C.X.1.468.V7X..533..7Y..R.0.
.:.I.1.P.2:."-";:.I:.533..7Z.R.R.1:.:.R.
Y.1.467..7...:.:..Q7..." *TOTALS*":.53
3..7..." --------":.:.533..7...C.1.X:T
.0..8...R.1.Y:T.T.E(A$(R,C)):..:8...AA$(
C)."N"..A$(0,C).20);T:.533.A8...C.K8...4
: 4.T8...519.\8...12..8...496:CO.1:LN.21
:.498:.".DELETE. ARE YOU SURE? Y/N"..8..
.514..8...K$."Y".490..8...K$."N".113.E8.
..486.V8..T.R:.R.T.Y.1..8...C.1.X..8..A$
(R,C).A$(R.1,C)..8...C..9...R..9..Y.Y.1:
.99..9..CO.1:LN.21:.498:.I.1.3.B9..."
":.I
:...9..ACC$."...........................
............"..9..DOW$."................
..........".F9...Z.1.2.P9...".";..9...CO
.1..H(ACC$,CO.1);..:...LN.1..H(DOW$,LN.1
);.7:...Z.1.."
";.>:...Z.D:....T:...:.:.25
9:..6)"PRESS . SPACE BAR . FOR MENU"..:.
.K$."":.K$:.K$.." ".508..:...12..:...PR.
5.C(D(R)).2.TT.5.I:...PR.5.C(D(R)).3.TT.
4..:...PR.5.C(D(R)).4.TT.3..:.....;...K$
:.K$.."Y".K$.."N".514..;....J;..CO.1:LN.
21:.498:." << ENSURE THAT PRINTER IS ALI
GNED >>":...;..." PRESS .SPACE BAR. T
O CONTINUE":.K$:.K$.." ".516..;.....;...
C.1.X:A$(0,C).H(A$(0,C),9):.:..W;..RP$."
":.C.1.X:TP$."":.C$(C)."Y"..530..;...C..
<..R.0:R$."":PD$."":.C.1.X:PD.A(C).C(A$(
R,C)).1..<...PD.1.PD.1.T<..PD$.H(S$,PD):
.C$(C)."Y".R$.R$.H(A$(R,C),A(C)).PD$.[<.
..C.W<...4,4:.4:.CS$."Y"..G(CS)..<...M$.
10)"FILENAME = "N$:.:.533..<...R$:.I.1.C
(R$):."-";:.I:.:.533.M<...RP$:.4: 4:...<
...I.1.A(C):TP$.TP$.AA$(C):.I..=...C(TP$
).C(A$(1,C)).TP$.TP$.AA$(C):.531.6=..TP$
.TP$." ":RP$.RP$.TP$:..J=...LF$."Y"..G(1
0).P=....Y=...".MAX NO OF RECORDS NOW RE
ACHED.":..B=..."TO INCREASE MAXIMUM RE-D
IMENSION":.:."PROGRAM AT LINE 417 AND 17
1"..>...:."OR CALL DIALOG ON 01 289 6904
":.:.:.:."PRESS .SPACE BAR. FOR MENU".">
...K$:.K$.." ".538.0>..Y.200:.12.....
> CLICK IMAGE PREVIEW FOR FULL MODAL