DATA FILE MAN
FILE INFORMATION
FILENAME(S): DATA FILE MAN
FILE TYPE(S): PRG
FILE SIZE: 13.1K
FIRST SEEN: 2025-11-30 21:11:23
APPEARS ON: 1 disk(s)
FILE HASH
0bf52d30ab43e9cddaf3dadf6f0b4319246f9f5ab86a674c356d640434652068
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 655B ADMINISTR | DATA FILE MAN | PRG | DuncanTwain | 19 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 35 08 01 00 8F 2A 2A 44 46 4D 20 42 59 20 |..5....**DFM BY |
00000010: 43 48 52 49 53 20 45 4C 59 2A 44 49 41 4C 4F 47 |CHRIS ELY*DIALOG|
00000020: 20 53 4F 46 54 57 41 52 45 28 43 29 20 31 35 2E | SOFTWARE(C) 15.|
00000030: 30 31 2E 38 33 00 63 08 64 00 58 B2 30 3A 59 B2 |01.83.c.d.X.0:Y.|
00000040: 30 3A 52 B2 30 3A 43 B2 30 3A 49 50 24 B2 22 22 |0:R.0:C.0:IP$.""|
00000050: 3A 4B 24 B2 22 22 3A 45 4D 24 B2 22 22 3A 4E 24 |:K$."":EM$."":N$|
00000060: B2 22 22 00 6D 08 B4 00 8D 34 34 36 30 00 8C 08 |."".m....4460...|
00000070: BE 00 41 24 28 52 2C 43 29 B2 22 22 3A 4D B2 33 |..A$(R,C)."":M.3|
00000080: 31 37 34 33 3A 46 B2 30 3A 53 B2 30 00 98 08 C8 |1743:F.0:S.0....|
00000090: 00 99 C7 28 31 34 37 29 00 A2 08 D2 00 8D 33 36 |...(147)......36|
000000A0: 37 30 00 D4 08 DC 00 99 3A 99 3A 99 22 20 20 20 |70......:.:." |
000000B0: 44 4F 20 59 4F 55 20 57 41 4E 54 20 12 55 92 50 |DO YOU WANT .U.P|
000000C0: 50 45 52 20 4F 52 20 12 4C 92 4F 57 45 52 20 43 |PER OR .L.OWER C|
000000D0: 41 53 45 22 00 E9 08 E6 00 A1 20 4B 24 3A 8B 20 |ASE"...... K$:. |
000000E0: 4B 24 B2 22 22 A7 32 33 30 00 03 09 F0 00 8B 4B |K$."".230......K|
000000F0: 24 B2 22 55 22 A7 99 C7 28 31 34 32 29 20 3A 89 |$."U"...(142) :.|
00000100: 32 37 30 00 1B 09 FA 00 8B 4B 24 B2 22 4C 22 A7 |270......K$."L".|
00000110: 99 C7 28 31 34 29 3A 89 32 37 30 00 24 09 04 01 |..(14):.270.$...|
00000120: 89 32 33 30 00 36 09 0E 01 99 C7 28 31 34 37 29 |.230.6.....(147)|
00000130: 3A 8D 33 36 37 30 00 3C 09 18 01 99 00 56 09 22 |:.3670.<.....V."|
00000140: 01 99 A3 39 29 22 46 49 4C 45 20 4E 41 4D 45 20 |...9)"FILE NAME |
00000150: 3D 20 22 3B 4E 24 00 86 09 2C 01 99 3A 99 A3 36 |= ";N$...,..:..6|
00000160: 29 20 22 4B 45 59 20 44 45 53 49 52 45 44 20 4F |) "KEY DESIRED O|
00000170: 50 54 49 4F 4E 20 4E 55 4D 42 45 52 22 3A 99 3A |PTION NUMBER":.:|
00000180: 20 8D 32 37 32 30 00 B7 09 36 01 99 22 31 20 43 | .2720...6.."1 C|
00000190: 52 45 41 54 45 20 4E 45 57 20 46 49 4C 45 22 A3 |REATE NEW FILE".|
000001A0: 32 30 29 22 32 20 43 48 41 4E 47 45 20 46 49 4C |20)"2 CHANGE FIL|
000001B0: 45 20 4E 41 4D 45 22 00 DC 09 40 01 99 22 33 20 |E NAME"...@.."3 |
000001C0: 41 43 43 45 53 53 20 52 45 43 4F 52 44 22 A3 32 |ACCESS RECORD".2|
000001D0: 30 29 22 34 20 53 45 4C 45 43 54 22 00 08 0A 4A |0)"4 SELECT"...J|
000001E0: 01 99 22 35 20 4C 4F 41 44 2F 53 41 56 45 20 46 |.."5 LOAD/SAVE F|
000001F0: 49 4C 45 22 A3 32 30 29 22 36 20 52 45 50 4F 52 |ILE".20)"6 REPOR|
00000200: 54 20 57 52 49 54 45 52 00 2E 0A 54 01 99 22 37 |T WRITER...T.."7|
00000210: 20 53 4F 52 54 20 46 49 4C 45 22 A3 32 30 29 22 | SORT FILE".20)"|
00000220: 38 20 55 54 49 4C 49 54 49 45 53 22 3A 99 00 57 |8 UTILITIES":..W|
00000230: 0A 5E 01 99 A3 31 31 29 20 20 20 20 22 12 39 20 |.^...11) ".9 |
00000240: 45 58 49 54 20 50 52 4F 47 52 41 4D 22 20 3A 99 |EXIT PROGRAM" :.|
00000250: 3A 20 8D 32 37 32 30 00 63 0A 68 01 97 20 31 35 |: .2720.c.h.. 15|
00000260: 38 2C 30 00 79 0A 72 01 A1 20 4B 24 3A 8B 20 4B |8,0.y.r.. K$:. K|
00000270: 24 B2 22 22 A7 20 33 37 30 00 97 0A 7C 01 8B 20 |$."". 370...|.. |
00000280: C5 28 4B 24 29 B3 31 20 B0 20 C5 28 4B 24 29 B1 |.(K$).1 . .(K$).|
00000290: 39 20 A7 20 33 37 30 00 D1 0A 86 01 91 20 C5 28 |9 . 370...... .(|
000002A0: 4B 24 29 20 89 20 31 34 30 30 2C 39 30 30 2C 31 |K$) . 1400,900,1|
000002B0: 31 36 30 2C 32 30 32 30 2C 32 37 35 30 2C 34 36 |160,2020,2750,46|
000002C0: 33 30 2C 34 34 32 30 2C 33 37 31 30 2C 33 36 34 |30,4420,3710,364|
000002D0: 30 00 D7 0A 90 01 3A 00 E2 0A 9A 01 8D 20 34 33 |0.....:...... 43|
000002E0: 38 30 00 16 0B A4 01 8B 20 59 B2 30 20 A7 20 45 |80...... Y.0 . E|
000002F0: 4D 24 B2 22 12 46 49 4C 45 20 4E 4F 54 20 52 45 |M$.".FILE NOT RE|
00000300: 53 49 44 45 4E 54 20 21 92 22 3A 8D 20 32 36 35 |SIDENT !.":. 265|
00000310: 30 3A 89 32 37 30 00 3E 0B AE 01 99 22 44 4F 20 |0:.270.>...."DO |
00000320: 59 4F 55 20 57 49 53 48 20 54 4F 20 12 43 92 4F |YOU WISH TO .C.O|
00000330: 4E 54 49 4E 55 45 20 53 45 41 52 43 48 22 00 59 |NTINUE SEARCH".Y|
00000340: 0B B8 01 99 22 4F 52 20 52 45 54 55 52 4E 20 54 |...."OR RETURN T|
00000350: 4F 20 12 4D 92 45 4E 55 22 00 6D 0B C2 01 A1 20 |O .M.ENU".m.... |
00000360: 4B 24 3A 8B 4B 24 B2 22 22 A7 34 35 30 00 84 0B |K$:.K$."".450...|
00000370: CC 01 8B 4B 24 B2 22 43 22 A7 8D 34 33 38 30 3A |...K$."C"..4380:|
00000380: 89 34 39 30 00 94 0B D6 01 8B 4B 24 B2 22 4D 22 |.490......K$."M"|
00000390: A7 32 37 30 00 9D 0B E0 01 89 34 35 30 00 BA 0B |.270......450...|
000003A0: EA 01 8D 37 39 30 30 3A 43 4F 4C B2 31 3A 4C 4E |...7900:COL.1:LN|
000003B0: 45 B2 32 31 3A 8D 38 30 30 30 00 E0 0B F4 01 99 |E.21:.8000......|
000003C0: 22 53 45 41 52 43 48 20 46 4F 52 20 52 45 43 4F |"SEARCH FOR RECO|
000003D0: 52 44 20 42 59 20 4B 45 59 20 46 49 45 4C 44 22 |RD BY KEY FIELD"|
000003E0: 00 06 0C FE 01 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D |......"---------|
000003F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000400: 2D 2D 2D 2D 2D 22 00 25 0C 08 02 99 22 45 4E 54 |-----".%...."ENT|
00000410: 45 52 20 22 22 12 22 41 24 28 30 2C 31 29 22 92 |ER ""."A$(0,1)".|
00000420: 22 22 3A 22 3B 00 34 0C 12 02 8D 32 35 37 30 3A |"":";.4....2570:|
00000430: 89 35 39 30 00 3E 0C 1C 02 8D 37 39 30 30 00 55 |.590.>....7900.U|
00000440: 0C 1E 02 43 4F 4C B2 31 3A 4C 4E 45 B2 32 31 3A |...COL.1:LNE.21:|
00000450: 8D 38 30 30 30 00 7F 0C 26 02 99 22 54 48 45 52 |.8000...&.."THER|
00000460: 45 20 41 52 45 20 22 59 22 20 52 45 43 4F 52 44 |E ARE "Y" RECORD|
00000470: 53 20 49 4E 20 54 48 49 53 20 46 49 4C 45 22 00 |S IN THIS FILE".|
00000480: A4 0C 30 02 99 22 45 4E 54 45 52 20 52 45 43 4F |..0.."ENTER RECO|
00000490: 52 44 20 4E 55 4D 42 45 52 20 3A 22 3B 3A 8D 20 |RD NUMBER :";:. |
000004A0: 32 35 37 30 00 CB 0C 3A 02 52 B2 C5 28 49 50 24 |2570...:.R..(IP$|
000004B0: 29 3A 8B 20 52 B2 30 20 B0 20 52 B1 59 20 A7 20 |):. R.0 . R.Y . |
000004C0: 8D 34 33 38 30 3A 89 20 35 35 30 00 D6 0C 44 02 |.4380:. 550...D.|
000004D0: 89 20 31 31 36 35 00 E1 0C 4E 02 4C 24 B2 49 50 |. 1165...N.L$.IP|
000004E0: 24 00 ED 0C 58 02 46 B2 C3 28 4C 24 29 00 FB 0C |$...X.F..(L$)...|
000004F0: 62 02 81 20 52 B2 31 20 A4 20 59 00 15 0D 6C 02 |b.. R.1 . Y...l.|
00000500: 8B 4C 24 B2 C8 28 41 24 28 52 2C 31 29 2C 46 29 |.L$..(A$(R,1),F)|
00000510: A7 31 31 36 35 00 1B 0D 76 02 82 00 25 0D 80 02 |.1165...v...%...|
00000520: 8D 34 33 38 30 00 45 0D 8A 02 99 22 12 4E 4F 20 |.4380.E....".NO |
00000530: 53 55 43 48 20 52 45 43 4F 52 44 20 45 58 49 53 |SUCH RECORD EXIS|
00000540: 54 53 21 92 22 00 58 0D 94 02 81 20 5A B2 31 20 |TS!.".X.... Z.1 |
00000550: A4 20 31 30 30 30 3A 82 00 62 0D 9E 02 89 20 34 |. 1000:..b.... 4|
00000560: 31 30 00 68 0D A8 02 3A 00 8F 0D B2 02 99 22 57 |10.h...:......"W|
00000570: 48 49 43 48 20 4C 49 4E 45 20 44 4F 20 59 4F 55 |HICH LINE DO YOU|
00000580: 20 57 49 53 48 20 54 4F 20 41 4D 45 4E 44 22 00 | WISH TO AMEND".|
00000590: AE 0D BC 02 99 22 50 52 45 53 53 20 31 20 54 4F |....."PRESS 1 TO|
000005A0: 20 22 58 22 20 3A 22 3B 3A 8D 32 35 37 30 00 BC | "X" :";:.2570..|
000005B0: 0D C6 02 43 20 B2 C5 28 49 50 24 29 00 C6 0D D0 |...C ..(IP$)....|
000005C0: 02 8D 34 33 38 30 00 FF 0D DA 02 99 22 45 58 49 |..4380......"EXI|
000005D0: 53 54 49 4E 47 20 44 41 54 41 20 46 4F 52 20 22 |STING DATA FOR "|
000005E0: 22 12 22 41 24 28 30 2C 43 29 22 92 22 22 20 3D |"."A$(0,C)"."" =|
000005F0: 20 22 3A 99 20 22 12 22 41 24 28 52 2C 43 29 00 | ":. "."A$(R,C).|
00000600: 2A 0E E4 02 99 22 4E 45 57 20 44 41 54 41 20 22 |*...."NEW DATA "|
00000610: 3B 3A 99 22 5B 22 3B 3A 8D 34 34 30 30 3A 99 C8 |;:."[";:.4400:..|
00000620: 28 53 24 2C 41 28 43 29 29 3B 00 47 0E EE 02 99 |(S$,A(C));.G....|
00000630: 22 5D 22 3B 3A 99 C8 28 54 24 2C 41 28 43 29 29 |"]";:..(T$,A(C))|
00000640: 3B 3A 99 22 9D 22 3B 00 60 0E F8 02 8D 20 32 35 |;:.".";.`.... 25|
00000650: 37 30 3A 41 24 28 52 2C 43 29 B2 49 50 24 3A 99 |70:A$(R,C).IP$:.|
00000660: 00 8E 0E 02 03 8B 20 C3 28 41 24 28 52 2C 43 29 |...... .(A$(R,C)|
00000670: 29 B1 41 28 43 29 A7 41 24 28 52 2C 43 29 B2 C8 |).A(C).A$(R,C)..|
00000680: 28 41 24 28 52 2C 43 29 2C 41 28 43 29 29 00 96 |(A$(R,C),A(C))..|
00000690: 0E 0C 03 43 B2 32 00 A0 0E 16 03 89 31 31 36 35 |...C.2......1165|
000006A0: 00 AB 0E 20 03 8D 20 32 37 32 30 00 D2 0E 2A 03 |... .. 2720...*.|
000006B0: 99 22 57 48 49 43 48 20 4C 49 4E 45 20 44 4F 20 |."WHICH LINE DO |
000006C0: 59 4F 55 20 57 49 53 48 20 54 4F 20 41 4D 45 4E |YOU WISH TO AMEN|
000006D0: 44 22 00 F2 0E 34 03 99 22 50 52 45 53 53 20 31 |D"...4.."PRESS 1|
000006E0: 20 54 4F 20 22 58 22 20 3A 22 3B 3A 8D 32 35 37 | TO "X" :";:.257|
000006F0: 30 3B 00 FF 0E 3E 03 43 B2 C5 28 49 50 24 29 00 |0;...>.C..(IP$).|
00000700: 0F 0F 48 03 99 22 12 22 41 24 28 30 2C 43 29 00 |..H.."."A$(0,C).|
00000710: 50 0F 52 03 99 22 45 4E 54 45 52 20 43 4F 52 52 |P.R.."ENTER CORR|
00000720: 45 43 54 20 46 49 45 4C 44 20 48 45 41 44 49 4E |ECT FIELD HEADIN|
00000730: 47 20 5B 20 20 20 20 20 20 20 20 20 5D 9D 9D 9D |G [ ]...|
00000740: 9D 9D 9D 9D 9D 9D 9D 22 3B 3A 8D 20 32 35 37 30 |.......";:. 2570|
00000750: 00 62 0F 5C 03 41 24 28 30 2C 43 29 B2 49 50 24 |.b.\.A$(0,C).IP$|
00000760: 3A 99 00 8E 0F 66 03 8B 20 C3 28 41 24 28 30 2C |:....f.. .(A$(0,|
00000770: 43 29 29 B3 39 A7 41 24 28 30 2C 43 29 B2 41 24 |C)).9.A$(0,C).A$|
00000780: 28 30 2C 43 29 AA 22 20 22 3A 89 38 37 30 00 B6 |(0,C)." ":.870..|
00000790: 0F 70 03 8B 20 C3 28 41 24 28 30 2C 43 29 29 B1 |.p.. .(A$(0,C)).|
000007A0: 39 A7 41 24 28 30 2C 43 29 B2 C8 28 41 24 28 30 |9.A$(0,C)..(A$(0|
000007B0: 2C 43 29 2C 39 29 00 C0 0F 7A 03 89 31 31 36 35 |,C),9)...z..1165|
000007C0: 00 F0 0F 84 03 99 22 45 4E 54 45 52 20 4E 45 57 |......"ENTER NEW|
000007D0: 20 46 49 4C 45 20 4E 41 4D 45 20 5B 20 20 20 20 | FILE NAME [ |
000007E0: 20 20 20 20 5D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B | ].........";|
000007F0: 00 06 10 8E 03 8D 32 35 37 30 3A 4E 24 B2 49 50 |......2570:N$.IP|
00000800: 24 3A 89 32 37 30 00 3D 10 98 03 8D 37 39 30 30 |$:.270.=....7900|
00000810: 3A 43 4F 4C B2 31 3A 4C 4E 45 B2 32 31 3A 8D 38 |:COL.1:LNE.21:.8|
00000820: 30 30 30 3A 99 22 44 4F 20 59 4F 55 20 57 49 53 |000:."DO YOU WIS|
00000830: 48 20 54 4F 20 41 4D 45 4E 44 3A 2D 22 00 5E 10 |H TO AMEND:-".^.|
00000840: A2 03 99 22 46 49 45 4C 44 20 12 48 92 45 41 44 |..."FIELD .H.EAD|
00000850: 49 4E 47 20 4F 52 20 12 44 92 41 54 41 22 00 71 |ING OR .D.ATA".q|
00000860: 10 AC 03 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 39 34 |....K$:.K$."".94|
00000870: 30 00 88 10 B6 03 8B 4B 24 B2 22 48 22 A7 8D 34 |0......K$."H"..4|
00000880: 33 38 30 3A 89 38 31 30 00 9F 10 C0 03 8B 4B 24 |380:.810......K$|
00000890: B2 22 44 22 A7 8D 34 33 38 30 3A 89 36 39 30 00 |."D"..4380:.690.|
000008A0: A8 10 CA 03 89 39 34 30 00 BA 10 D4 03 99 C7 28 |.....940.......(|
000008B0: 31 34 37 29 3A 8D 32 37 32 30 00 DF 10 DE 03 99 |147):.2720......|
000008C0: 20 A3 39 29 22 46 49 4C 45 20 57 49 4C 4C 20 53 | .9)"FILE WILL S|
000008D0: 43 52 4F 4C 4C 20 44 4F 57 4E 22 3A 99 3A 99 00 |CROLL DOWN":.:..|
000008E0: EA 10 E8 03 8D 20 32 37 32 30 00 FD 10 F2 03 81 |..... 2720......|
000008F0: 20 5A B2 31 20 A4 20 32 30 30 30 3A 82 00 28 11 | Z.1 . 2000:..(.|
00000900: FC 03 99 C7 28 31 34 37 29 3A 99 22 46 49 4C 45 |....(147):."FILE|
00000910: 20 4E 41 4D 45 3D 22 20 20 A3 31 35 29 22 12 22 | NAME=" .15)"."|
00000920: 3B 4E 24 22 92 22 3A 99 00 51 11 06 04 99 22 20 |;N$".":..Q...." |
00000930: 20 20 20 20 20 50 52 45 53 53 20 12 53 50 41 43 | PRESS .SPAC|
00000940: 45 20 42 41 52 92 20 54 4F 20 43 41 4E 43 45 4C |E BAR. TO CANCEL|
00000950: 22 00 5C 11 10 04 8D 20 32 37 32 30 00 69 11 1A |".\.... 2720.i..|
00000960: 04 81 20 52 B2 31 20 A4 59 00 76 11 24 04 81 20 |.. R.1 .Y.v.$.. |
00000970: 43 B2 31 20 A4 58 00 9F 11 2E 04 99 22 12 22 C8 |C.1 .X......".".|
00000980: 28 41 24 28 30 2C 43 29 2C 39 29 22 92 22 A3 31 |(A$(0,C),9)".".1|
00000990: 32 29 C8 28 41 24 28 52 2C 43 29 2C 32 36 29 00 |2).(A$(R,C),26).|
000009A0: D6 11 38 04 8B 20 43 B2 31 20 A7 20 99 22 A3 A3 |..8.. C.1 . ."..|
000009B0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
000009C0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
000009D0: A3 A3 A3 A3 A3 22 00 E8 11 42 04 81 20 5A B2 31 |....."...B.. Z.1|
000009E0: 20 A4 20 34 30 30 3A 82 00 F5 11 4C 04 82 3A 8D | . 400:....L..:.|
000009F0: 20 32 37 32 30 00 0E 12 56 04 A1 20 4B 24 3A 8B | 2720...V.. K$:.|
00000A00: 20 4B 24 B2 22 20 22 20 A7 20 31 31 36 35 00 14 | K$." " . 1165..|
00000A10: 12 60 04 82 00 26 12 6A 04 81 20 5A B2 31 20 A4 |.`...&.j.. Z.1 .|
00000A20: 20 36 30 30 3A 82 00 35 12 74 04 52 B2 59 3A 89 | 600:..5.t.R.Y:.|
00000A30: 20 31 31 36 35 00 49 12 7E 04 99 C7 28 31 34 37 | 1165.I.~...(147|
00000A40: 29 3A 99 3A 99 3A 99 3A 99 00 7C 12 88 04 52 B2 |):.:.:.:..|...R.|
00000A50: 31 3A 20 8B 20 59 B2 30 20 A7 20 45 4D 24 B2 22 |1: . Y.0 . EM$."|
00000A60: 12 4E 4F 20 46 49 4C 45 20 45 58 49 53 54 53 92 |.NO FILE EXISTS.|
00000A70: 22 3A 8D 32 36 35 30 3A 89 32 37 30 00 84 12 8D |":.2650:.270....|
00000A80: 04 41 B2 31 00 91 12 92 04 8B 52 B2 30 A7 52 B2 |.A.1......R.0.R.|
00000A90: 31 00 A4 12 93 04 8B 52 B1 59 A7 52 B2 52 AB 31 |1......R.Y.R.R.1|
00000AA0: 3A 52 B2 59 00 B1 12 94 04 8B 41 B2 30 A7 41 B2 |:R.Y......A.0.A.|
00000AB0: 31 00 C1 12 95 04 8B 41 B1 32 35 A7 41 B2 41 AB |1......A.25.A.A.|
00000AC0: 31 00 EE 12 97 04 99 C7 28 31 34 37 29 3A 99 22 |1.......(147):."|
00000AD0: 12 22 3B 4E 24 20 A3 31 39 29 22 52 45 43 4F 52 |.";N$ .19)"RECOR|
00000AE0: 44 20 4E 4F 22 3B 52 3A 8D 20 32 37 32 30 00 FC |D NO";R:. 2720..|
00000AF0: 12 B0 04 81 20 43 B2 31 20 A4 20 58 00 08 13 B5 |.... C.1 . X....|
00000B00: 04 47 47 B2 41 28 43 29 00 19 13 B6 04 8B 47 47 |.GG.A(C)......GG|
00000B10: B1 32 34 A7 47 47 B2 32 34 00 2A 13 BA 04 99 22 |.24.GG.24.*...."|
00000B20: 12 22 C4 28 43 29 22 92 22 3B 00 58 13 BF 04 99 |.".(C)".";.X....|
00000B30: A3 34 29 22 12 22 C8 28 41 24 28 30 2C 43 29 2C |.4)".".(A$(0,C),|
00000B40: 39 29 22 92 22 A3 31 35 29 CA 28 41 24 28 52 2C |9)".".15).(A$(R,|
00000B50: 43 29 2C 41 2C 47 47 29 00 67 13 C0 04 8B 43 B2 |C),A,GG).g....C.|
00000B60: 31 A7 8D 32 37 32 30 00 86 13 C4 04 82 3A 43 4F |1..2720......:CO|
00000B70: 4C B2 31 3A 4C 4E 45 B2 32 30 3A 8D 38 30 30 30 |L.1:LNE.20:.8000|
00000B80: 3A 8D 32 37 33 30 00 9E 13 CE 04 99 A3 31 35 29 |:.2730.......15)|
00000B90: 22 12 2A 2A 4F 50 54 49 4F 4E 53 2A 2A 22 00 D8 |".**OPTIONS**"..|
00000BA0: 13 D8 04 99 22 50 52 45 53 53 20 3A 20 12 4E 92 |...."PRESS : .N.|
00000BB0: 45 58 54 20 12 4C 92 41 53 54 20 12 46 92 49 4E |EXT .L.AST .F.IN|
00000BC0: 44 20 12 47 92 4F 54 4F 20 12 41 92 4D 45 4E 44 |D .G.OTO .A.MEND|
00000BD0: 20 12 4D 92 45 4E 55 22 00 17 14 E2 04 99 22 12 | .M.ENU"......".|
00000BE0: 43 92 41 4C 43 53 20 12 49 92 4E 50 55 54 20 12 |C.ALCS .I.NPUT .|
00000BF0: 44 92 45 4C 45 54 45 20 12 50 92 52 49 4E 54 20 |D.ELETE .P.RINT |
00000C00: 12 53 92 43 52 4F 4C 4C 20 12 3C 92 20 12 3E 22 |.S.CROLL .<. .>"|
00000C10: 3A 97 31 35 38 2C 30 00 21 14 EC 04 8D 32 37 33 |:.158,0.!....273|
00000C20: 30 00 35 14 F6 04 A1 4B 24 3A 8B 4B 24 B2 22 22 |0.5....K$:.K$.""|
00000C30: A7 31 32 37 30 00 51 14 00 05 8B 20 4B 24 B2 22 |.1270.Q.... K$."|
00000C40: 4E 22 20 A7 20 52 B2 52 AA 31 3A 89 20 31 31 36 |N" . R.R.1:. 116|
00000C50: 35 00 6D 14 0A 05 8B 20 4B 24 B2 22 4C 22 20 A7 |5.m.... K$."L" .|
00000C60: 20 52 B2 52 AB 31 3A 89 20 31 31 36 35 00 80 14 | R.R.1:. 1165...|
00000C70: 14 05 8B 20 4B 24 B2 22 4D 22 20 A7 20 32 37 30 |... K$."M" . 270|
00000C80: 00 99 14 1E 05 8B 20 4B 24 B2 22 49 22 20 A7 20 |...... K$."I" . |
00000C90: 46 B2 31 3A 89 31 38 34 30 00 AA 14 28 05 8B 20 |F.1:.1840...(.. |
00000CA0: 4B 24 B2 22 47 22 A7 35 34 30 00 BB 14 32 05 8B |K$."G".540...2..|
00000CB0: 20 4B 24 B2 22 46 22 A7 34 39 30 00 CC 14 3C 05 | K$."F".490...<.|
00000CC0: 8B 20 4B 24 B2 22 53 22 A7 39 38 30 00 E4 14 41 |. K$."S".980...A|
00000CD0: 05 8B 4B 24 B2 22 3E 22 A7 41 B2 41 AA 31 3A 89 |..K$.">".A.A.1:.|
00000CE0: 31 31 37 30 00 FC 14 42 05 8B 4B 24 B2 22 3C 22 |1170...B..K$."<"|
00000CF0: A7 41 B2 41 AB 31 3A 89 31 31 37 30 00 0D 15 46 |.A.A.1:.1170...F|
00000D00: 05 8B 20 4B 24 B2 22 41 22 A7 39 32 30 00 1F 15 |.. K$."A".920...|
00000D10: 50 05 8B 20 4B 24 B2 22 50 22 A7 33 39 33 30 00 |P.. K$."P".3930.|
00000D20: 31 15 5A 05 8B 20 4B 24 B2 22 43 22 A7 34 30 30 |1.Z.. K$."C".400|
00000D30: 30 00 42 15 5F 05 8B 4B 24 B2 22 44 22 A7 37 30 |0.B._..K$."D".70|
00000D40: 30 30 00 4C 15 64 05 89 31 32 37 30 00 52 15 6E |00.L.d..1270.R.n|
00000D50: 05 3A 00 8A 15 78 05 99 20 C7 28 31 34 37 29 3A |.:...x.. .(147):|
00000D60: 99 3A 99 22 12 2A 2A 57 41 52 4E 49 4E 47 2A 2A |.:.".**WARNING**|
00000D70: 20 54 48 49 53 20 57 49 4C 4C 20 45 52 41 53 45 | THIS WILL ERASE|
00000D80: 20 41 4E 59 20 46 49 4C 45 22 00 AF 15 82 05 99 | ANY FILE"......|
00000D90: 22 12 43 55 52 52 45 4E 54 4C 59 20 49 4E 20 4D |".CURRENTLY IN M|
00000DA0: 45 4D 4F 52 59 92 22 3A 99 3A 99 3A 99 3A 99 00 |EMORY.":.:.:.:..|
00000DB0: D4 15 8C 05 99 20 A3 38 29 20 22 A3 A3 A3 A3 A3 |..... .8) ".....|
00000DC0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000DD0: A3 A3 A3 22 00 F8 15 96 05 99 20 A3 38 29 22 50 |..."...... .8)"P|
00000DE0: 52 45 53 53 20 59 28 59 45 53 29 20 54 4F 20 43 |RESS Y(YES) TO C|
00000DF0: 4F 4E 54 49 4E 55 45 22 00 1F 16 A0 05 99 20 A3 |ONTINUE"...... .|
00000E00: 38 29 22 20 20 20 20 20 20 4E 28 4E 4F 29 20 46 |8)" N(NO) F|
00000E10: 4F 52 20 4D 45 4E 55 22 3A 97 31 35 38 2C 30 00 |OR MENU":.158,0.|
00000E20: 44 16 AA 05 99 20 A3 38 29 20 22 A3 A3 A3 A3 A3 |D.... .8) ".....|
00000E30: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000E40: A3 A3 A3 22 00 5B 16 B4 05 A1 20 4B 24 3A 8B 20 |...".[.... K$:. |
00000E50: 4B 24 B2 22 22 A7 20 31 34 36 30 00 6E 16 BE 05 |K$."". 1460.n...|
00000E60: 8B 20 4B 24 B2 22 4E 22 20 A7 20 32 37 30 00 82 |. K$."N" . 270..|
00000E70: 16 C8 05 8B 20 4B 24 B2 22 59 22 20 A7 20 31 35 |.... K$."Y" . 15|
00000E80: 30 30 00 8D 16 D2 05 89 20 31 34 36 30 00 A2 16 |00...... 1460...|
00000E90: DC 05 99 20 C7 28 31 34 37 29 3A 9C 3A 8D 34 34 |... .(147):.:.44|
00000EA0: 36 30 00 C6 16 E6 05 99 22 4B 45 59 20 49 4E 20 |60......"KEY IN |
00000EB0: 54 4F 44 41 59 27 53 20 44 41 54 45 20 3A 22 3B |TODAY'S DATE :";|
00000EC0: 3A 8D 32 35 37 30 00 D9 16 F0 05 4D 24 B2 49 50 |:.2570.....M$.IP|
00000ED0: 24 3A 99 C7 28 31 34 37 29 00 F7 16 FA 05 99 20 |$:..(147)...... |
00000EE0: A3 31 32 29 22 12 43 52 45 41 54 45 20 52 45 43 |.12)".CREATE REC|
00000EF0: 4F 52 44 92 22 3A 99 00 02 17 04 06 8D 20 32 37 |ORD.":....... 27|
00000F00: 32 30 00 35 17 0E 06 99 22 57 48 41 54 20 49 53 |20.5...."WHAT IS|
00000F10: 20 54 48 45 20 46 49 4C 45 20 4E 41 4D 45 20 3F | THE FILE NAME ?|
00000F20: 5B 20 20 20 20 20 20 20 20 5D 9D 9D 9D 9D 9D 9D |[ ]......|
00000F30: 9D 9D 9D 22 3B 00 3F 17 18 06 8D 32 35 37 30 00 |...";.?....2570.|
00000F40: 51 17 22 06 4E 24 B2 C8 28 49 50 24 2C 38 29 3A |Q.".N$..(IP$,8):|
00000F50: 99 00 5C 17 2C 06 8D 20 32 37 32 30 00 95 17 36 |..\.,.. 2720...6|
00000F60: 06 99 22 48 4F 57 20 4D 41 4E 59 20 43 4F 4C 55 |.."HOW MANY COLU|
00000F70: 4D 4E 53 20 49 4E 20 45 41 43 48 20 52 45 43 4F |MNS IN EACH RECO|
00000F80: 52 44 20 3F 20 5B 20 20 5D 9D 9D 9D 22 3B 3A 8D |RD ? [ ]...";:.|
00000F90: 20 32 35 37 30 00 A9 17 40 06 58 B2 C5 28 C8 28 | 2570...@.X..(.(|
00000FA0: 49 50 24 2C 32 29 29 3A 99 00 D6 17 4A 06 8B 20 |IP$,2)):....J.. |
00000FB0: 58 B3 31 20 B0 20 58 B1 31 35 20 A7 20 99 22 12 |X.1 . X.15 . .".|
00000FC0: 4D 41 58 49 4D 55 4D 20 49 53 20 31 35 92 22 3A |MAXIMUM IS 15.":|
00000FD0: 89 20 31 35 39 30 00 E7 17 54 06 99 20 C7 28 31 |. 1590...T.. .(1|
00000FE0: 34 37 29 3A 43 B2 31 00 0D 18 5E 06 99 22 12 54 |47):C.1...^..".T|
00000FF0: 48 49 53 20 46 49 4C 45 20 49 53 20 4E 41 4D 45 |HIS FILE IS NAME|
00001000: 44 20 22 3B 4E 24 3A 8D 20 32 37 32 30 00 3F 18 |D ";N$:. 2720.?.|
00001010: 68 06 99 22 4E 4F 54 45 20 54 48 41 54 20 43 4F |h.."NOTE THAT CO|
00001020: 4C 55 4D 4E 20 31 20 49 53 20 54 48 45 20 12 20 |LUMN 1 IS THE . |
00001030: 4B 45 59 20 46 49 45 4C 44 20 92 A0 22 3A 99 00 |KEY FIELD ..":..|
00001040: 4A 18 72 06 8D 20 32 37 32 30 00 50 18 7C 06 3A |J.r.. 2720.P.|.:|
00001050: 00 89 18 86 06 99 22 53 54 41 54 45 20 12 20 54 |......"STATE . T|
00001060: 49 54 4C 45 20 92 20 4F 46 20 43 4F 4C 22 43 22 |ITLE . OF COL"C"|
00001070: 20 20 5B 20 20 20 20 20 20 20 20 20 5D 9D 9D 9D | [ ]...|
00001080: 9D 9D 9D 9D 9D 9D 9D 22 3B 00 96 18 90 06 8D 20 |.......";...... |
00001090: 32 35 37 30 3A 99 00 AB 18 9A 06 41 24 28 30 2C |2570:......A$(0,|
000010A0: 43 29 B2 C8 28 49 50 24 2C 39 29 00 D8 18 A4 06 |C)..(IP$,9).....|
000010B0: 8B 20 C3 28 41 24 28 30 2C 43 29 29 B3 39 A7 41 |. .(A$(0,C)).9.A|
000010C0: 24 28 30 2C 43 29 B2 41 24 28 30 2C 43 29 AA 22 |$(0,C).A$(0,C)."|
000010D0: 20 22 3A 89 31 37 30 30 00 11 19 AE 06 99 22 45 | ":.1700......"E|
000010E0: 4E 54 45 52 20 12 43 92 48 41 52 41 43 54 45 52 |NTER .C.HARACTER|
000010F0: 20 4F 52 20 12 4E 92 55 4D 45 52 49 43 20 46 49 | OR .N.UMERIC FI|
00001100: 45 4C 44 20 5B 20 5D 9D 9D 22 3B 3A 8D 32 35 37 |ELD [ ]..";:.257|
00001110: 30 00 27 19 B8 06 41 41 24 28 43 29 B2 C8 28 49 |0.'...AA$(C)..(I|
00001120: 50 24 2C 31 29 3A 99 00 3C 19 C2 06 8B 41 41 24 |P$,1):..<....AA$|
00001130: 28 43 29 B2 22 4E 22 A7 31 37 35 30 00 51 19 CC |(C)."N".1750.Q..|
00001140: 06 8B 41 41 24 28 43 29 B2 22 43 22 A7 31 37 38 |..AA$(C)."C".178|
00001150: 30 00 61 19 D1 06 8D 34 33 38 30 3A 89 31 37 31 |0.a....4380:.171|
00001160: 30 00 8E 19 D6 06 99 22 45 4E 54 45 52 20 4E 55 |0......"ENTER NU|
00001170: 4D 42 45 52 20 4F 46 20 43 48 41 52 41 43 54 45 |MBER OF CHARACTE|
00001180: 52 53 20 46 4F 52 20 52 45 43 4F 52 44 22 00 B4 |RS FOR RECORD"..|
00001190: 19 E0 06 99 22 4D 41 58 2E 20 39 20 43 48 41 52 |...."MAX. 9 CHAR|
000011A0: 41 43 54 45 52 53 20 5B 20 5D 9D 9D 22 3B 3A 8D |ACTERS [ ]..";:.|
000011B0: 32 35 37 30 00 C6 19 EA 06 41 28 43 29 B2 C5 28 |2570.....A(C)..(|
000011C0: 49 50 24 29 3A 99 00 E4 19 EF 06 8B 41 28 43 29 |IP$):.......A(C)|
000011D0: B1 39 A7 99 22 91 91 22 3A 8D 34 33 38 30 3A 89 |.9.."..":.4380:.|
000011E0: 31 37 35 30 00 EE 19 F0 06 89 31 38 31 30 00 1B |1750......1810..|
000011F0: 1A F4 06 99 22 45 4E 54 45 52 20 4E 55 4D 42 45 |...."ENTER NUMBE|
00001200: 52 20 4F 46 20 43 48 41 52 41 43 54 45 52 53 20 |R OF CHARACTERS |
00001210: 46 4F 52 20 52 45 43 4F 52 44 22 00 43 1A FE 06 |FOR RECORD".C...|
00001220: 99 22 4D 41 58 2E 33 36 20 43 48 41 52 41 43 54 |."MAX.36 CHARACT|
00001230: 45 52 53 20 5B 20 20 5D 9D 9D 9D 22 3B 3A 8D 32 |ERS [ ]...";:.2|
00001240: 35 37 30 00 55 1A 08 07 41 28 43 29 B2 C5 28 49 |570.U...A(C)..(I|
00001250: 50 24 29 3A 99 00 74 1A 0D 07 8B 41 28 43 29 B1 |P$):..t....A(C).|
00001260: 33 36 A7 99 22 91 91 22 3A 8D 34 33 38 30 3A 89 |36.."..":.4380:.|
00001270: 31 37 38 30 00 85 1A 12 07 8B 20 43 B2 58 20 A7 |1780...... C.X .|
00001280: 20 31 38 34 30 00 96 1A 1C 07 43 B2 43 AA 31 3A | 1840.....C.C.1:|
00001290: 89 20 31 36 36 30 00 9C 1A 26 07 3A 00 BB 1A 30 |. 1660...&.:...0|
000012A0: 07 8B 20 46 B2 31 20 A7 20 52 B2 59 AA 31 3A 59 |.. F.1 . R.Y.1:Y|
000012B0: B2 59 AA 31 3A 89 20 31 38 36 30 00 C7 1A 3A 07 |.Y.1:. 1860...:.|
000012C0: 52 B2 31 3A 59 B2 31 00 F7 1A 44 07 99 20 C7 28 |R.1:Y.1...D.. .(|
000012D0: 31 34 37 29 3A 99 20 A3 31 32 29 22 12 52 45 43 |147):. .12)".REC|
000012E0: 4F 52 44 20 4E 55 4D 42 45 52 22 3B 52 22 92 22 |ORD NUMBER";R"."|
000012F0: 3A 8D 20 32 37 32 30 00 26 1B 4E 07 99 A3 33 29 |:. 2720.&.N...3)|
00001300: 22 54 4F 20 54 45 52 4D 49 4E 41 54 45 20 44 41 |"TO TERMINATE DA|
00001310: 54 41 20 45 4E 54 52 59 20 54 59 50 45 20 27 45 |TA ENTRY TYPE 'E|
00001320: 4E 44 27 22 3A 99 00 33 1B 62 07 8D 20 32 37 32 |ND'":..3.b.. 272|
00001330: 30 3A 99 00 41 1B 6C 07 81 20 43 B2 31 20 A4 20 |0:..A.l.. C.1 . |
00001340: 58 00 6D 1B 76 07 99 22 4B 45 59 20 22 41 24 28 |X.m.v.."KEY "A$(|
00001350: 30 2C 43 29 3A 99 22 5B 22 3B 3A 8D 34 34 30 30 |0,C):."[";:.4400|
00001360: 3A 99 C8 28 53 24 2C 41 28 43 29 29 3B 00 90 1B |:..(S$,A(C));...|
00001370: 80 07 99 22 5D 22 3B 3A 99 C8 28 54 24 2C 41 28 |..."]";:..(T$,A(|
00001380: 43 29 29 3B 3A 99 22 9D 22 3B 3A 8D 32 35 37 30 |C));:.".";:.2570|
00001390: 00 B6 1B 8A 07 8B 49 50 24 B2 22 45 4E 44 22 AF |......IP$."END".|
000013A0: 20 46 B2 30 20 A7 20 52 B2 31 3A 59 B2 59 AB 31 | F.0 . R.1:Y.Y.1|
000013B0: 3A 89 20 32 37 30 00 DF 1B 94 07 8B 49 50 24 B2 |:. 270......IP$.|
000013C0: 22 45 4E 44 22 AF 46 B2 31 A7 46 B2 30 3A 52 B2 |"END".F.1.F.0:R.|
000013D0: 52 AB 31 3A 59 B2 59 AB 31 3A 89 31 31 36 35 00 |R.1:Y.Y.1:.1165.|
000013E0: F9 1B 9E 07 41 24 28 52 2C 43 29 B2 C8 28 49 50 |....A$(R,C)..(IP|
000013F0: 24 2C 41 28 43 29 29 3A 99 00 15 1C A8 07 8B 41 |$,A(C)):.......A|
00001400: 24 28 52 2C 43 29 B2 22 22 A7 41 24 28 52 2C 43 |$(R,C)."".A$(R,C|
00001410: 29 B2 22 2D 22 00 20 1C B2 07 8D 20 32 37 32 30 |)."-". .... 2720|
00001420: 00 26 1C BC 07 82 00 3C 1C C6 07 8B 20 46 B2 31 |.&.....<.... F.1|
00001430: 20 A7 20 46 B2 30 3A 89 31 31 36 35 00 53 1C D0 | . F.0:.1165.S..|
00001440: 07 52 B2 52 AA 31 3A 59 B2 59 AA 31 3A 89 20 31 |.R.R.1:Y.Y.1:. 1|
00001450: 38 36 30 00 59 1C DA 07 3A 00 87 1C E4 07 8B 20 |860.Y...:...... |
00001460: 59 B2 30 20 A7 20 45 4D 24 B2 22 12 4E 4F 20 46 |Y.0 . EM$.".NO F|
00001470: 49 4C 45 20 45 58 49 53 54 53 92 22 3A 8D 32 36 |ILE EXISTS.":.26|
00001480: 35 30 3A 89 32 37 30 00 A0 1C E5 07 99 C7 28 31 |50:.270.......(1|
00001490: 34 37 29 3A 99 3A 8D 20 32 37 32 30 3A 45 B2 30 |47):.:. 2720:E.0|
000014A0: 00 E6 1C E6 07 99 22 44 4F 20 59 4F 55 20 57 41 |......"DO YOU WA|
000014B0: 4E 54 20 54 4F 20 4F 55 54 50 55 54 20 52 45 53 |NT TO OUTPUT RES|
000014C0: 55 4C 54 53 20 54 4F 22 3A 99 22 50 52 49 4E 54 |ULTS TO":."PRINT|
000014D0: 45 52 3A 20 4B 45 59 20 12 59 92 45 53 20 4F 52 |ER: KEY .Y.ES OR|
000014E0: 20 12 4E 92 4F 22 00 FC 1C E7 07 A1 20 4B 24 3A | .N.O"...... K$:|
000014F0: 8B 20 4B 24 B2 22 22 A7 32 30 32 33 00 13 1D E8 |. K$."".2023....|
00001500: 07 8B 4B 24 B2 22 59 22 A7 50 52 B2 35 3A 89 32 |..K$."Y".PR.5:.2|
00001510: 30 33 30 00 2A 1D E9 07 8B 4B 24 B2 22 4E 22 A7 |030.*....K$."N".|
00001520: 50 52 B2 30 3A 89 32 30 33 30 00 34 1D EA 07 89 |PR.0:.2030.4....|
00001530: 32 30 32 33 00 4D 1D EE 07 99 C7 28 31 34 37 29 |2023.M.....(147)|
00001540: 3A 8B 20 50 52 B2 30 A7 54 54 B2 31 35 00 5B 1D |:. PR.0.TT.15.[.|
00001550: EF 07 81 20 52 B2 31 20 A4 20 59 00 9A 1D F8 07 |... R.1 . Y.....|
00001560: 99 3A 20 99 22 45 4E 54 45 52 20 53 45 4C 45 43 |.: ."ENTER SELEC|
00001570: 54 45 44 20 12 46 49 45 4C 44 92 20 5B 20 20 20 |TED .FIELD. [ |
00001580: 20 20 20 20 20 20 5D 9D 9D 9D 9D 9D 9D 9D 9D 9D | ].........|
00001590: 9D 22 3B 3A 8D 32 35 37 30 3B 00 A8 1D 02 08 44 |.";:.2570;.....D|
000015A0: 50 24 B2 49 50 24 3A 99 00 C8 1D 0C 08 8B C3 28 |P$.IP$:........(|
000015B0: 44 50 24 29 B3 39 A7 44 50 24 B2 44 50 24 AA 22 |DP$).9.DP$.DP$."|
000015C0: 20 22 3A 89 32 30 36 30 00 D8 1D 16 08 99 3A 8D | ":.2060......:.|
000015D0: 32 37 32 30 3A 43 B2 31 00 F1 1D 20 08 8B 20 41 |2720:C.1... .. A|
000015E0: 24 28 30 2C 43 29 B2 44 50 24 20 A7 20 32 31 31 |$(0,C).DP$ . 211|
000015F0: 30 00 0A 1E 2A 08 43 B2 43 AA 31 3A 8B 20 43 B3 |0...*.C.C.1:. C.|
00001600: 58 AA 31 20 A7 20 32 30 38 30 00 2E 1E 34 08 45 |X.1 . 2080...4.E|
00001610: 4D 24 B2 22 12 4E 4F 20 53 55 43 48 20 46 49 45 |M$.".NO SUCH FIE|
00001620: 4C 44 22 3A 8D 32 36 35 30 3A 89 32 37 30 00 43 |LD":.2650:.270.C|
00001630: 1E 3E 08 99 22 45 4E 54 45 52 20 12 22 44 50 24 |.>.."ENTER ."DP$|
00001640: 22 92 22 00 60 1E 40 08 99 22 5B 22 3B 3A 8D 34 |".".`.@.."[";:.4|
00001650: 34 30 30 3A 99 C8 28 53 24 2C 41 28 43 29 29 3B |400:..(S$,A(C));|
00001660: 00 7D 1E 41 08 99 22 5D 22 3B 3A 99 C8 28 54 24 |.}.A.."]";:..(T$|
00001670: 2C 41 28 43 29 29 3B 3A 99 22 9D 22 3B 00 99 1E |,A(C));:.".";...|
00001680: 43 08 8D 20 32 35 37 30 3A 43 50 24 B2 49 50 24 |C.. 2570:CP$.IP$|
00001690: 3A 99 3A 8D 20 32 37 32 30 00 A6 1E 48 08 46 B2 |:.:. 2720...H.F.|
000016A0: C3 28 43 50 24 29 00 BB 1E 52 08 99 C7 28 31 34 |.(CP$)...R...(14|
000016B0: 37 29 3A 99 3A 8D 20 32 37 32 30 00 D2 1E 5C 08 |7):.:. 2720...\.|
000016C0: 8B 20 41 41 24 28 43 29 B2 22 43 22 A7 20 32 34 |. AA$(C)."C". 24|
000016D0: 33 30 00 F3 1E 66 08 99 22 44 4F 20 59 4F 55 20 |30...f.."DO YOU |
000016E0: 57 41 4E 54 20 41 4C 4C 20 22 44 50 24 22 3A 2D |WANT ALL "DP$":-|
000016F0: 22 3A 99 00 12 1F 70 08 99 20 A3 32 29 22 12 45 |":....p.. .2)".E|
00001700: 92 51 55 41 4C 20 54 4F 22 A3 31 35 29 43 50 24 |.QUAL TO".15)CP$|
00001710: 3A 99 00 32 1F 7A 08 99 20 A3 32 29 22 12 4C 92 |:..2.z.. .2)".L.|
00001720: 45 53 53 20 54 48 41 4E 22 A3 31 35 29 43 50 24 |ESS THAN".15)CP$|
00001730: 3A 99 00 54 1F 84 08 99 A3 32 29 22 12 47 92 52 |:..T.....2)".G.R|
00001740: 45 41 54 45 52 20 54 48 41 4E 22 A3 31 35 29 43 |EATER THAN".15)C|
00001750: 50 24 3A 99 00 60 1F 8E 08 97 20 31 35 38 2C 30 |P$:..`.... 158,0|
00001760: 00 77 1F 98 08 A1 20 4B 24 3A 8B 20 4B 24 B2 22 |.w.... K$:. K$."|
00001770: 22 A7 20 32 32 30 30 00 8B 1F A2 08 8B 20 4B 24 |". 2200...... K$|
00001780: B2 22 45 22 20 A7 20 32 34 33 30 00 9F 1F AC 08 |."E" . 2430.....|
00001790: 8B 20 4B 24 B2 22 4C 22 20 A7 20 32 32 35 30 00 |. K$."L" . 2250.|
000017A0: B3 1F B6 08 8B 20 4B 24 B2 22 47 22 20 A7 20 32 |..... K$."G" . 2|
000017B0: 33 34 30 00 BE 1F C0 08 89 20 32 32 30 30 00 D1 |340...... 2200..|
000017C0: 1F CA 08 99 C7 28 31 34 37 29 3A 8D 20 32 37 32 |.....(147):. 272|
000017D0: 30 00 F5 1F CF 08 8B 50 52 B2 35 A7 99 22 20 20 |0......PR.5.." |
000017E0: 20 12 50 52 49 4E 54 49 4E 47 92 22 3A 20 9F 34 | .PRINTING.": .4|
000017F0: 2C 34 3A 9D 34 00 14 20 D4 08 99 A3 32 29 22 46 |,4:.4.. ....2)"F|
00001800: 4F 4C 4C 4F 57 49 4E 47 20 22 4E 24 22 20 48 41 |OLLOWING "N$" HA|
00001810: 56 45 20 22 00 37 20 DE 08 99 A3 32 29 44 50 24 |VE ".7 ....2)DP$|
00001820: 22 20 4C 45 53 53 20 54 48 41 4E 20 22 43 50 24 |" LESS THAN "CP$|
00001830: 3A 8D 20 32 37 32 30 00 45 20 E8 08 81 20 52 B2 |:. 2720.E ... R.|
00001840: 31 20 A4 20 59 00 5E 20 E9 08 8B 50 52 B2 35 AF |1 . Y.^ ...PR.5.|
00001850: C3 28 C4 28 52 29 29 B2 32 A7 54 54 B2 35 00 77 |.(.(R)).2.TT.5.w|
00001860: 20 EA 08 8B 50 52 B2 35 AF C3 28 C4 28 52 29 29 | ...PR.5..(.(R))|
00001870: B2 33 A7 54 54 B2 34 00 90 20 EB 08 8B 50 52 B2 |.3.TT.4.. ...PR.|
00001880: 35 AF C3 28 C4 28 52 29 29 B2 34 A7 54 54 B2 33 |5..(.(R)).4.TT.3|
00001890: 00 CA 20 F2 08 8B 20 C5 28 41 24 28 52 2C 43 29 |.. ... .(A$(R,C)|
000018A0: 29 B3 C5 28 43 50 24 29 A7 99 20 22 52 45 43 4F |)..(CP$).. "RECO|
000018B0: 52 44 20 4E 4F 20 22 3B 52 A3 54 54 29 C8 28 41 |RD NO ";R.TT).(A|
000018C0: 24 28 52 2C 31 29 2C 32 34 29 00 D0 20 FC 08 3A |$(R,1),24).. ..:|
000018D0: 00 D6 20 06 09 82 00 E6 20 0B 09 8B 50 52 B2 35 |.. ..... ...PR.5|
000018E0: A7 98 34 3A A0 34 00 EC 20 10 09 3A 00 F7 20 1A |..4:.4.. ..:.. .|
000018F0: 09 89 20 32 35 32 30 00 0B 21 24 09 99 20 C7 28 |.. 2520..!$.. .(|
00001900: 31 34 37 29 3A 8D 20 32 37 32 30 00 2F 21 29 09 |147):. 2720./!).|
00001910: 8B 50 52 B2 35 A7 99 22 20 20 20 12 50 52 49 4E |.PR.5.." .PRIN|
00001920: 54 49 4E 47 92 22 3A 20 9F 34 2C 34 3A 9D 34 00 |TING.": .4,4:.4.|
00001930: 4E 21 2E 09 99 A3 32 29 22 46 4F 4C 4C 4F 57 49 |N!....2)"FOLLOWI|
00001940: 4E 47 20 22 4E 24 22 20 48 41 56 45 20 22 00 75 |NG "N$" HAVE ".u|
00001950: 21 38 09 99 20 A3 32 29 44 50 24 22 20 47 52 45 |!8.. .2)DP$" GRE|
00001960: 41 54 45 52 20 54 48 41 4E 20 22 43 50 24 3A 8D |ATER THAN "CP$:.|
00001970: 20 32 37 32 30 00 83 21 42 09 81 20 52 B2 31 20 | 2720..!B.. R.1 |
00001980: A4 20 59 00 9C 21 43 09 8B 50 52 B2 35 AF C3 28 |. Y..!C..PR.5..(|
00001990: C4 28 52 29 29 B2 32 A7 54 54 B2 35 00 B5 21 44 |.(R)).2.TT.5..!D|
000019A0: 09 8B 50 52 B2 35 AF C3 28 C4 28 52 29 29 B2 33 |..PR.5..(.(R)).3|
000019B0: A7 54 54 B2 34 00 CE 21 45 09 8B 50 52 B2 35 AF |.TT.4..!E..PR.5.|
000019C0: C3 28 C4 28 52 29 29 B2 34 A7 54 54 B2 33 00 08 |.(.(R)).4.TT.3..|
000019D0: 22 4C 09 8B 20 C5 28 41 24 28 52 2C 43 29 29 B1 |"L.. .(A$(R,C)).|
000019E0: C5 28 43 50 24 29 A7 99 20 22 52 45 43 4F 52 44 |.(CP$).. "RECORD|
000019F0: 20 4E 4F 20 22 3B 52 A3 54 54 29 C8 28 41 24 28 | NO ";R.TT).(A$(|
00001A00: 52 2C 31 29 2C 32 34 29 00 0E 22 56 09 3A 00 14 |R,1),24).."V.:..|
00001A10: 22 60 09 82 00 24 22 65 09 8B 50 52 B2 35 A7 98 |"`...$"e..PR.5..|
00001A20: 34 3A A0 34 00 2A 22 6A 09 3A 00 35 22 74 09 89 |4:.4.*"j.:.5"t..|
00001A30: 20 32 35 32 30 00 48 22 7E 09 99 C7 28 31 34 37 | 2520.H"~...(147|
00001A40: 29 3A 8D 20 32 37 32 30 00 6C 22 83 09 8B 50 52 |):. 2720.l"...PR|
00001A50: B2 35 A7 99 22 20 20 20 12 50 52 49 4E 54 49 4E |.5.." .PRINTIN|
00001A60: 47 92 22 3A 20 9F 34 2C 34 3A 9D 34 00 8B 22 88 |G.": .4,4:.4..".|
00001A70: 09 99 20 A3 32 29 22 46 4F 4C 4C 4F 57 49 4E 47 |.. .2)"FOLLOWING|
00001A80: 20 22 4E 24 22 20 48 41 56 45 22 00 A7 22 92 09 | "N$" HAVE".."..|
00001A90: 99 20 A3 32 29 44 50 24 22 20 3D 20 22 43 50 24 |. .2)DP$" = "CP$|
00001AA0: 3A 8D 20 32 37 32 30 00 B5 22 9C 09 81 20 52 B2 |:. 2720.."... R.|
00001AB0: 31 20 A4 20 59 00 CE 22 9D 09 8B 50 52 B2 35 AF |1 . Y.."...PR.5.|
00001AC0: C3 28 C4 28 52 29 29 B2 32 A7 54 54 B2 35 00 E7 |.(.(R)).2.TT.5..|
00001AD0: 22 9E 09 8B 50 52 B2 35 AF C3 28 C4 28 52 29 29 |"...PR.5..(.(R))|
00001AE0: B2 33 A7 54 54 B2 34 00 00 23 9F 09 8B 50 52 B2 |.3.TT.4..#...PR.|
00001AF0: 35 AF C3 28 C4 28 52 29 29 B2 34 A7 54 54 B2 33 |5..(.(R)).4.TT.3|
00001B00: 00 37 23 A6 09 8B C8 28 41 24 28 52 2C 43 29 2C |.7#....(A$(R,C),|
00001B10: 46 29 B2 43 50 24 A7 99 22 52 45 43 4F 52 44 20 |F).CP$.."RECORD |
00001B20: 4E 4F 20 22 3B 52 A3 54 54 29 C8 28 41 24 28 52 |NO ";R.TT).(A$(R|
00001B30: 2C 31 29 2C 32 34 29 00 3D 23 B0 09 3A 00 43 23 |,1),24).=#..:.C#|
00001B40: BA 09 82 00 53 23 BF 09 8B 50 52 B2 35 A7 98 34 |....S#...PR.5..4|
00001B50: 3A A0 34 00 59 23 C4 09 3A 00 5F 23 CE 09 3A 00 |:.4.Y#..:._#..:.|
00001B60: 87 23 D8 09 99 3A 97 20 31 35 38 2C 30 3A 99 20 |.#...:. 158,0:. |
00001B70: A3 31 30 29 22 12 50 52 45 53 53 20 53 50 41 43 |.10)".PRESS SPAC|
00001B80: 45 20 42 41 52 92 22 00 9E 23 E2 09 A1 20 4B 24 |E BAR."..#... K$|
00001B90: 3A 8B 20 4B 24 B2 22 22 A7 20 32 35 33 30 00 B8 |:. K$."". 2530..|
00001BA0: 23 EC 09 8B 20 4B 24 B2 22 20 22 20 A7 20 52 B2 |#... K$." " . R.|
00001BB0: 52 AB 31 3A 89 32 37 30 00 C3 23 F6 09 89 20 32 |R.1:.270..#... 2|
00001BC0: 35 33 30 00 C9 23 00 0A 3A 00 D9 23 0A 0A 42 24 |530..#..:..#..B$|
00001BD0: B2 22 20 22 3A 99 22 22 3B 00 F0 23 14 0A A1 49 |." ":."";..#...I|
00001BE0: 50 24 3A 8B 49 50 24 B2 22 22 A7 89 32 35 38 30 |P$:.IP$.""..2580|
00001BF0: 00 0C 24 1E 0A 8B 42 24 B2 22 20 22 AF C6 28 49 |..$...B$." "..(I|
00001C00: 50 24 29 B2 32 30 A7 89 32 35 38 30 00 3A 24 28 |P$).20..2580.:$(|
00001C10: 0A 8B C6 28 49 50 24 29 B2 32 30 A7 42 24 B2 C8 |...(IP$).20.B$..|
00001C20: 28 42 24 2C C3 28 42 24 29 AB 31 29 3A 99 22 9D |(B$,.(B$).1):.".|
00001C30: 20 9D 22 3B 3A 89 32 35 38 30 00 59 24 32 0A 8B | .";:.2580.Y$2..|
00001C40: 49 50 24 B2 C7 28 31 33 29 A7 49 50 24 B2 CA 28 |IP$..(13).IP$..(|
00001C50: 42 24 2C 32 29 3A 99 3A 8E 00 72 24 3C 0A 41 B2 |B$,2):.:..r$<.A.|
00001C60: C6 28 49 50 24 29 3A 8B 41 B3 31 31 A7 89 32 35 |.(IP$):.A.11..25|
00001C70: 38 30 00 94 24 46 0A 42 24 B2 42 24 AA 49 50 24 |80..$F.B$.B$.IP$|
00001C80: 3A 99 22 12 22 3B 49 50 24 3B 22 92 22 3B 3A 89 |:.".";IP$;".";:.|
00001C90: 32 35 38 30 00 9A 24 50 0A 3A 00 A0 24 5A 0A 3A |2580..$P.:..$Z.:|
00001CA0: 00 AA 24 64 0A 99 20 45 4D 24 00 BD 24 6E 0A 81 |..$d.. EM$..$n..|
00001CB0: 20 54 38 B2 31 20 A4 31 30 30 30 3A 82 00 C3 24 | T8.1 .1000:...$|
00001CC0: 8C 0A 8E 00 C9 24 96 0A 3A 00 FA 24 A0 0A 99 22 |.....$..:..$..."|
00001CD0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00001CE0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00001CF0: A3 A3 A3 A3 A3 A3 A3 22 3A 8E 00 2B 25 AA 0A 99 |.......":..+%...|
00001D00: 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |"---------------|
00001D10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001D20: 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 8E 00 31 25 B4 0A |--------":..1%..|
00001D30: 3A 00 5B 25 BE 0A 99 20 22 44 4F 20 59 4F 55 20 |:.[%... "DO YOU |
00001D40: 57 49 53 48 20 54 4F 20 12 4C 92 4F 41 44 20 4F |WISH TO .L.OAD O|
00001D50: 52 20 12 53 92 41 56 45 22 3A 99 00 72 25 C8 0A |R .S.AVE":..r%..|
00001D60: A1 20 4B 24 3A 8B 20 4B 24 B2 22 22 A7 20 32 37 |. K$:. K$."". 27|
00001D70: 36 30 00 84 25 D2 0A 8B 20 4B 24 B2 22 4C 22 A7 |60..%... K$."L".|
00001D80: 33 30 37 30 00 96 25 DC 0A 8B 20 4B 24 B2 22 53 |3070..%... K$."S|
00001D90: 22 A7 32 38 30 30 00 A0 25 E6 0A 89 32 37 36 30 |".2800..%...2760|
00001DA0: 00 CE 25 F0 0A 8B 20 59 B2 30 20 A7 20 45 4D 24 |..%... Y.0 . EM$|
00001DB0: B2 22 12 4E 4F 20 46 49 4C 45 20 45 58 49 53 54 |.".NO FILE EXIST|
00001DC0: 53 92 22 3A 8D 32 36 35 30 3A 89 32 37 30 00 D8 |S.":.2650:.270..|
00001DD0: 25 FA 0A 8D 34 33 38 30 00 05 26 04 0B 99 22 41 |%...4380..&..."A|
00001DE0: 52 45 20 59 4F 55 20 53 41 56 49 4E 47 20 4F 4E |RE YOU SAVING ON|
00001DF0: 20 12 44 92 49 53 43 20 4F 52 20 12 54 92 41 50 | .D.ISC OR .T.AP|
00001E00: 45 3F 22 3A 99 00 11 26 18 0B 97 20 31 35 38 2C |E?":...&... 158,|
00001E10: 30 00 29 26 22 0B A1 20 4B 24 3A 8B 20 4B 24 B2 |0.)&".. K$:. K$.|
00001E20: 22 22 20 A7 20 32 38 35 30 00 3D 26 2C 0B 8B 20 |"" . 2850.=&,.. |
00001E30: 4B 24 B2 22 54 22 20 A7 20 32 39 30 30 00 51 26 |K$."T" . 2900.Q&|
00001E40: 36 0B 8B 20 4B 24 B2 22 44 22 20 A7 20 33 32 35 |6.. K$."D" . 325|
00001E50: 30 00 5C 26 40 0B 89 20 32 38 35 30 00 62 26 4A |0.\&@.. 2850.b&J|
00001E60: 0B 3A 00 6C 26 54 0B 8D 34 33 38 30 00 84 26 59 |.:.l&T..4380..&Y|
00001E70: 0B 99 22 12 49 4E 53 45 52 54 20 43 41 53 53 45 |..".INSERT CASSE|
00001E80: 54 54 45 22 00 A1 26 5E 0B 99 22 50 52 45 53 53 |TTE"..&^.."PRESS|
00001E90: 20 12 43 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | .C. TO CONTINUE|
00001EA0: 22 00 AD 26 68 0B 97 20 31 35 38 2C 30 00 C7 26 |"..&h.. 158,0..&|
00001EB0: 72 0B A1 20 4B 24 3A 8B 20 4B 24 B3 B1 22 43 22 |r.. K$:. K$.."C"|
00001EC0: 20 A7 20 32 39 33 30 00 DF 26 7C 0B 8D 34 33 38 | . 2930..&|..438|
00001ED0: 30 3A 99 22 53 41 56 49 4E 47 20 12 22 4E 24 00 |0:."SAVING ."N$.|
00001EE0: E9 26 81 0B 99 22 91 91 22 00 F8 26 86 0B 9F 20 |.&...".."..&... |
00001EF0: 31 2C 31 2C 31 2C 4E 24 00 06 27 90 0B 98 31 2C |1,1,1,N$..'...1,|
00001F00: 59 3A 98 31 2C 58 00 1E 27 9A 0B 81 20 43 B2 31 |Y:.1,X..'... C.1|
00001F10: 20 A4 20 58 3A 98 31 2C 41 28 43 29 3A 82 00 38 | . X:.1,A(C):..8|
00001F20: 27 A4 0B 81 20 43 B2 31 20 A4 20 58 3A 98 31 2C |'... C.1 . X:.1,|
00001F30: 41 41 24 28 43 29 3A 82 00 46 27 AE 0B 81 20 52 |AA$(C):..F'... R|
00001F40: B2 31 20 A4 20 59 00 61 27 B8 0B 81 20 43 B2 31 |.1 . Y.a'... C.1|
00001F50: 20 A4 20 58 3A 98 31 2C 41 24 28 52 2C 43 29 3A | . X:.1,A$(R,C):|
00001F60: 82 00 67 27 C2 0B 82 00 82 27 CC 0B 81 20 43 B2 |..g'.....'... C.|
00001F70: 31 20 A4 20 58 3A 98 31 2C 41 24 28 30 2C 43 29 |1 . X:.1,A$(0,C)|
00001F80: 3A 82 00 8A 27 D6 0B A0 20 31 00 94 27 EA 0B 89 |:...'... 1..'...|
00001F90: 20 32 37 30 00 9A 27 F4 0B 3A 00 A0 27 FE 0B 3A | 270..'..:..'..:|
00001FA0: 00 AD 27 08 0C 9C 3A 8D 20 34 34 36 30 00 D2 27 |..'...:. 4460..'|
00001FB0: 12 0C 8D 34 33 38 30 3A 20 99 22 41 52 45 20 59 |...4380: ."ARE Y|
00001FC0: 4F 55 20 4C 4F 41 44 49 4E 47 20 46 52 4F 4D 3A |OU LOADING FROM:|
00001FD0: 2D 22 00 F1 27 1C 0C 99 22 12 44 92 49 53 4B 20 |-"..'...".D.ISK |
00001FE0: 4F 52 20 12 54 92 41 50 45 22 3A 97 31 35 38 2C |OR .T.APE":.158,|
00001FF0: 30 00 07 28 26 0C A1 20 4B 24 3A 8B 20 4B 24 B2 |0..(&.. K$:. K$.|
00002000: 22 22 A7 33 31 31 30 00 18 28 30 0C 8B 4B 24 B2 |"".3110..(0..K$.|
00002010: 22 54 22 A7 33 31 36 30 00 29 28 3A 0C 8B 4B 24 |"T".3160.)(:..K$|
00002020: B2 22 44 22 A7 33 32 31 30 00 33 28 44 0C 89 33 |."D".3210.3(D..3|
00002030: 31 31 30 00 39 28 4E 0C 3A 00 4C 28 58 0C 54 B2 |110.9(N.:.L(X.T.|
00002040: 31 3A 55 B2 30 3A 4E 4E 24 B2 4E 24 00 6E 28 62 |1:U.0:NN$.N$.n(b|
00002050: 0C 8D 34 33 38 30 3A 99 22 49 53 20 43 41 53 53 |..4380:."IS CASS|
00002060: 45 54 54 45 20 49 4E 20 50 4C 41 43 45 22 00 8D |ETTE IN PLACE"..|
00002070: 28 6C 0C 99 22 50 52 45 53 53 20 12 59 92 45 53 |(l.."PRESS .Y.ES|
00002080: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 A4 28 | TO CONTINUE"..(|
00002090: 76 0C A1 20 4B 24 3A 8B 4B 24 B3 B1 22 59 22 A7 |v.. K$:.K$.."Y".|
000020A0: 33 31 39 30 00 AE 28 80 0C 89 33 34 36 30 00 B4 |3190..(...3460..|
000020B0: 28 8A 0C 3A 00 E9 28 94 0C 54 B2 38 3A 55 B2 34 |(..:..(..T.8:U.4|
000020C0: 3A 4E 31 24 B2 22 30 3A 22 3A 4E 32 24 B2 22 2C |:N1$."0:":N2$.",|
000020D0: 53 45 51 2C 52 45 41 44 22 3A 4E 4E 24 B2 4E 31 |SEQ,READ":NN$.N1|
000020E0: 24 AA 4E 4E 24 AA 4E 32 24 00 F3 28 9E 0C 89 33 |$.NN$.N2$..(...3|
000020F0: 34 36 30 00 F9 28 A8 0C 3A 00 FF 28 B2 0C 3A 00 |460..(..:..(..:.|
00002100: 09 29 BC 0C 8D 34 33 38 30 00 38 29 C6 0C 99 22 |.)...4380.8)..."|
00002110: 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 53 |DO YOU WANT TO S|
00002120: 41 56 45 20 4F 4E 20 44 52 49 56 45 20 12 30 92 |AVE ON DRIVE .0.|
00002130: 20 4F 52 20 12 31 92 22 00 50 29 DA 0C A1 20 4B | OR .1.".P)... K|
00002140: 24 3A 8B 20 4B 24 B2 22 22 20 A7 20 33 32 39 30 |$:. K$."" . 3290|
00002150: 00 6B 29 E4 0C 8B 20 C5 28 4B 24 29 B2 30 A7 20 |.k)... .(K$).0. |
00002160: 44 52 B2 30 3A 89 20 33 33 33 30 00 86 29 EE 0C |DR.0:. 3330..)..|
00002170: 8B 20 C5 28 4B 24 29 B2 31 A7 20 44 52 B2 31 3A |. .(K$).1. DR.1:|
00002180: 89 20 33 33 33 30 00 90 29 F8 0C 89 33 32 39 30 |. 3330..)...3290|
00002190: 00 BE 29 02 0D 4E 31 24 B2 22 44 52 3A 22 3A 4E |..)..N1$."DR:":N|
000021A0: 32 24 B2 22 2C 53 45 51 2C 57 52 49 54 45 22 3A |2$.",SEQ,WRITE":|
000021B0: 4E 4E 24 B2 4E 31 24 AA 4E 24 AA 4E 32 24 00 D1 |NN$.N1$.N$.N2$..|
000021C0: 29 0C 0D 9F 31 2C 38 2C 34 2C 22 40 22 AA 4E 4E |)...1,8,4,"@".NN|
000021D0: 24 00 E2 29 16 0D 98 31 2C 59 3A 99 C7 28 31 33 |$..)...1,Y:..(13|
000021E0: 29 3B 00 F3 29 20 0D 98 31 2C 58 3A 99 C7 28 31 |);..) ..1,X:..(1|
000021F0: 33 29 3B 00 13 2A 2A 0D 81 20 43 B2 31 20 A4 20 |3);..**.. C.1 . |
00002200: 58 3A 98 31 2C 41 28 43 29 3A 99 C7 28 31 33 29 |X:.1,A(C):..(13)|
00002210: 3B 3A 82 00 35 2A 34 0D 81 20 43 B2 31 20 A4 20 |;:..5*4.. C.1 . |
00002220: 58 3A 98 31 2C 41 41 24 28 43 29 3A 99 C7 28 31 |X:.1,AA$(C):..(1|
00002230: 33 29 3B 3A 82 00 43 2A 3E 0D 81 20 52 B2 31 20 |3);:..C*>.. R.1 |
00002240: A4 20 59 00 66 2A 48 0D 81 20 43 B2 31 20 A4 20 |. Y.f*H.. C.1 . |
00002250: 58 3A 98 31 2C 41 24 28 52 2C 43 29 3A 99 C7 28 |X:.1,A$(R,C):..(|
00002260: 31 33 29 3B 3A 82 00 6C 2A 52 0D 82 00 8F 2A 5C |13);:..l*R....*\|
00002270: 0D 81 20 43 B2 31 20 A4 20 58 3A 98 31 2C 41 24 |.. C.1 . X:.1,A$|
00002280: 28 30 2C 43 29 3A 99 C7 28 31 33 29 3B 3A 82 00 |(0,C):..(13);:..|
00002290: 96 2A 66 0D A0 31 00 9F 2A 70 0D 89 32 37 30 00 |.*f..1..*p..270.|
000022A0: A5 2A 7A 0D 3A 00 DE 2A 84 0D 8D 34 33 38 30 3A |.*z.:..*...4380:|
000022B0: 99 22 45 4E 54 45 52 20 46 49 4C 45 20 4E 41 4D |."ENTER FILE NAM|
000022C0: 45 20 5B 20 20 20 20 20 20 20 20 5D 9D 9D 9D 9D |E [ ]....|
000022D0: 9D 9D 9D 9D 9D 22 3B 3A 8D 20 32 35 37 30 00 F7 |.....";:. 2570..|
000022E0: 2A 8E 0D 4E 24 B2 C8 28 49 50 24 2C 38 29 3A 4E |*..N$..(IP$,8):N|
000022F0: 4E 24 B2 4E 24 3A 99 00 07 2B 93 0D 8B 54 B2 31 |N$.N$:...+...T.1|
00002300: A7 99 22 91 91 91 22 00 16 2B 98 0D 9F 31 2C 54 |.."..."..+...1,T|
00002310: 2C 55 2C 4E 4E 24 00 24 2B A2 0D 84 31 2C 59 3A |,U,NN$.$+...1,Y:|
00002320: 84 31 2C 58 00 3C 2B AC 0D 81 20 43 B2 31 20 A4 |.1,X.<+... C.1 .|
00002330: 20 58 3A 84 31 2C 41 28 43 29 3A 82 00 56 2B B6 | X:.1,A(C):..V+.|
00002340: 0D 81 20 43 B2 31 20 A4 20 58 3A 84 31 2C 41 41 |.. C.1 . X:.1,AA|
00002350: 24 28 43 29 3A 82 00 64 2B C0 0D 81 20 52 B2 31 |$(C):..d+... R.1|
00002360: 20 A4 20 59 00 72 2B CA 0D 81 20 43 B2 31 20 A4 | . Y.r+... C.1 .|
00002370: 20 58 00 81 2B D4 0D 84 31 2C 41 24 28 52 2C 43 | X..+...1,A$(R,C|
00002380: 29 00 89 2B DE 0D 82 3A 82 00 97 2B E8 0D 81 20 |)..+...:...+... |
00002390: 43 B2 31 20 A4 20 58 00 A6 2B F2 0D 84 31 2C 41 |C.1 . X..+...1,A|
000023A0: 24 28 30 2C 43 29 00 AC 2B FC 0D 82 00 B3 2B 06 |$(0,C)..+.....+.|
000023B0: 0E A0 31 00 BD 2B 10 0E 8D 34 33 38 30 00 D9 2B |..1..+...4380..+|
000023C0: 15 0E 99 22 4B 45 59 20 49 4E 20 54 4F 44 41 59 |..."KEY IN TODAY|
000023D0: 27 53 20 44 41 54 45 20 22 00 F8 2B 1A 0E 99 22 |'S DATE "..+..."|
000023E0: 28 45 47 2E 20 32 39 2E 31 32 2E 38 32 29 20 3A |(EG. 29.12.82) :|
000023F0: 22 3B 3A 8D 32 35 37 30 00 05 2C 24 0E 4D 24 B2 |";:.2570..,$.M$.|
00002400: 49 50 24 3A 99 00 0E 2C 2E 0E 89 32 37 30 00 14 |IP$:...,...270..|
00002410: 2C 38 0E 3A 00 47 2C 42 0E 45 4D 24 B2 22 45 20 |,8.:.G,B.EM$."E |
00002420: 58 20 49 20 54 12 20 2A 2A 2A 44 41 54 41 20 46 |X I T. ***DATA F|
00002430: 49 4C 45 20 4D 41 4E 41 47 45 52 2A 2A 2A 92 22 |ILE MANAGER***."|
00002440: 3A 8D 20 32 36 35 30 00 56 2C 4C 0E 97 20 31 34 |:. 2650.V,L.. 14|
00002450: 34 2C 38 35 3A 80 00 81 2C 56 0E 99 3A 20 20 99 |4,85:...,V..: .|
00002460: 22 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A |" *******|
00002470: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002480: 22 00 A8 2C 60 0E 99 22 20 20 20 20 20 20 20 20 |"..,`.." |
00002490: 2A 2A 2A 44 41 54 41 20 46 49 4C 45 20 4D 41 4E |***DATA FILE MAN|
000024A0: 41 47 45 52 2A 2A 2A 22 00 E7 2C 6A 0E 99 22 20 |AGER***"..,j.." |
000024B0: 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A | *********|
000024C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 3A |**************":|
000024D0: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
000024E0: 20 20 20 20 42 59 22 00 1D 2D 74 0E 99 22 20 20 | BY"..-t.." |
000024F0: 20 20 20 20 20 20 12 20 44 20 92 20 12 20 49 20 | . D . . I |
00002500: 92 20 12 20 41 20 92 20 12 20 4C 20 92 20 12 20 |. . A . . L . . |
00002510: 4F 20 92 20 12 20 47 20 92 20 22 3A 8E 00 40 2D |O . . G . ":..@-|
00002520: 7E 0E 99 C7 28 31 34 37 29 3A 99 A3 31 35 29 22 |~...(147):..15)"|
00002530: 12 2A 2A 55 54 49 4C 49 54 49 45 53 2A 2A 92 22 |.**UTILITIES**."|
00002540: 00 61 2D 88 0E 99 3A 99 A3 33 29 22 43 41 54 41 |.a-...:..3)"CATA|
00002550: 4C 4F 47 20 44 52 49 56 45 20 30 20 12 30 92 20 |LOG DRIVE 0 .0. |
00002560: 22 00 82 2D 92 0E 99 A3 33 29 22 43 41 54 41 4C |"..-....3)"CATAL|
00002570: 4F 47 20 44 52 49 56 45 20 31 20 12 31 92 20 20 |OG DRIVE 1 .1. |
00002580: 20 22 00 A3 2D 9C 0E 99 A3 33 29 22 42 41 4C 41 | "..-....3)"BALA|
00002590: 4E 43 45 20 4F 46 20 4D 45 4D 4F 52 59 3F 20 12 |NCE OF MEMORY? .|
000025A0: 4D 92 22 00 BE 2D A6 0E 99 A3 33 29 22 4D 45 4E |M."..-....3)"MEN|
000025B0: 55 20 12 53 50 41 43 45 20 42 41 52 92 22 00 D4 |U .SPACE BAR."..|
000025C0: 2D B0 0E A1 20 56 24 3A 8B 20 56 24 B2 22 22 A7 |-... V$:. V$."".|
000025D0: 33 37 36 30 00 E5 2D BA 0E 8B 20 56 24 B2 22 30 |3760..-... V$."0|
000025E0: 22 A7 D7 44 30 00 F6 2D C4 0E 8B 20 56 24 B2 22 |"..D0..-... V$."|
000025F0: 31 22 A7 D7 44 31 00 08 2E CE 0E 8B 20 56 24 B2 |1"..D1...... V$.|
00002600: 22 4D 22 A7 33 38 34 30 00 19 2E D8 0E 8B 20 56 |"M".3840...... V|
00002610: 24 B2 22 20 22 A7 32 37 30 00 3C 2E E2 0E 99 3A |$." ".270.<....:|
00002620: 99 22 12 50 52 45 53 53 20 53 50 41 43 45 20 42 |.".PRESS SPACE B|
00002630: 41 52 20 46 4F 52 20 4D 45 4E 55 22 00 53 2E EC |AR FOR MENU".S..|
00002640: 0E A1 20 4B 24 3A 8B 4B 24 B3 B1 22 20 22 A7 33 |.. K$:.K$.." ".3|
00002650: 37 36 30 00 5C 2E F6 0E 89 32 37 30 00 68 2E 00 |760.\....270.h..|
00002660: 0F 99 C7 28 31 34 37 29 00 9A 2E 0A 0F 99 3A 99 |...(147)......:.|
00002670: 3A 99 3A 99 22 59 4F 55 20 48 41 56 45 20 22 B8 |:.:."YOU HAVE ".|
00002680: 28 30 29 22 20 42 59 54 45 53 20 4C 45 46 54 20 |(0)" BYTES LEFT |
00002690: 49 4E 20 4D 45 4D 4F 52 59 22 00 BF 2E 14 0F 99 |IN MEMORY"......|
000026A0: 3A 99 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 |:."DO YOU WANT T|
000026B0: 4F 20 52 45 54 55 52 4E 20 54 4F 20 3A 2D 22 00 |O RETURN TO :-".|
000026C0: D4 2E 1E 0F 99 3A 99 22 12 4D 92 41 49 4E 20 4D |.....:.".M.AIN M|
000026D0: 45 4E 55 22 00 EE 2E 28 0F 99 3A 99 22 12 55 92 |ENU"...(..:.".U.|
000026E0: 54 49 4C 49 54 49 45 53 20 4D 45 4E 55 22 00 04 |TILITIES MENU"..|
000026F0: 2F 32 0F A1 20 4B 24 3A 8B 20 4B 24 B2 22 22 A7 |/2.. K$:. K$."".|
00002700: 33 38 39 30 00 15 2F 3C 0F 8B 20 4B 24 B2 22 4D |3890../<.. K$."M|
00002710: 22 A7 32 37 30 00 27 2F 46 0F 8B 20 4B 24 B2 22 |".270.'/F.. K$."|
00002720: 55 22 A7 33 37 31 30 00 31 2F 50 0F 89 33 38 39 |U".3710.1/P..389|
00002730: 30 00 3D 2F 5A 0F 9F 34 2C 34 3A 9D 34 00 6A 2F |0.=/Z..4,4:.4.j/|
00002740: 64 0F 99 C7 28 31 34 37 29 3A 99 22 12 22 3B 4E |d...(147):.".";N|
00002750: 24 20 A3 31 39 29 22 52 45 43 4F 52 44 20 4E 4F |$ .19)"RECORD NO|
00002760: 22 3B 52 3A 8D 20 32 37 33 30 00 A3 2F 6E 0F 43 |";R:. 2730../n.C|
00002770: B2 31 3A 99 22 12 22 C4 28 43 29 22 92 22 3B 3A |.1:.".".(C)".";:|
00002780: 99 A3 32 29 22 12 22 20 41 24 28 30 2C 43 29 22 |..2)"." A$(0,C)"|
00002790: 92 22 A3 33 29 3B C8 28 41 24 28 52 2C 43 29 2C |.".3);.(A$(R,C),|
000027A0: 32 34 29 00 AD 2F 78 0F 8D 32 37 33 30 00 BB 2F |24)../x..2730../|
000027B0: 82 0F 81 20 43 B2 32 20 A4 20 58 00 E2 2F 8C 0F |... C.2 . X../..|
000027C0: 99 C4 28 43 29 3B 3A 99 A3 32 29 41 24 28 30 2C |..(C);:..2)A$(0,|
000027D0: 43 29 A3 33 29 C8 28 41 24 28 52 2C 43 29 2C 32 |C).3).(A$(R,C),2|
000027E0: 34 29 00 FF 2F 96 0F 82 3A 99 3A 8D 32 37 32 30 |4)../...:.:.2720|
000027F0: 3A 99 3A 20 98 34 3A A0 34 3A 89 31 31 36 35 00 |:.: .4:.4:.1165.|
00002800: 41 30 A0 0F 8D 37 39 30 30 3A 43 4F 4C B2 31 3A |A0...7900:COL.1:|
00002810: 4C 4E 45 B2 32 31 3A 8D 38 30 30 30 3A 99 22 44 |LNE.21:.8000:."D|
00002820: 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 50 45 |O YOU WISH TO PE|
00002830: 52 46 4F 52 4D 20 49 4E 44 49 56 49 44 55 41 4C |RFORM INDIVIDUAL|
00002840: 22 00 64 30 AA 0F 99 22 12 43 92 41 4C 43 53 20 |".d0...".C.ALCS |
00002850: 4F 52 20 12 54 92 4F 54 41 4C 49 53 45 20 46 49 |OR .T.OTALISE FI|
00002860: 45 4C 44 22 00 7A 30 B4 0F A1 20 4B 24 3A 8B 20 |ELD".z0... K$:. |
00002870: 4B 24 B2 22 22 A7 34 30 32 30 00 95 30 BE 0F 8B |K$."".4020..0...|
00002880: 4B 24 B2 22 54 22 A7 20 20 20 8D 34 33 38 30 3A |K$."T". .4380:|
00002890: 89 34 32 34 30 00 B0 30 C8 0F 8B 4B 24 B2 22 43 |.4240..0...K$."C|
000028A0: 22 A7 20 20 20 8D 34 33 38 30 3A 89 34 30 36 30 |". .4380:.4060|
000028B0: 00 BA 30 D2 0F 89 34 30 32 30 00 D9 30 DC 0F 99 |..0...4020..0...|
000028C0: 22 57 48 49 43 48 20 46 49 45 4C 44 20 44 4F 20 |"WHICH FIELD DO |
000028D0: 59 4F 55 20 57 49 53 48 22 00 04 31 E6 0F 99 22 |YOU WISH"..1..."|
000028E0: 54 4F 20 43 41 4C 43 55 4C 41 54 45 2C 20 4B 45 |TO CALCULATE, KE|
000028F0: 59 20 31 20 54 4F 20 22 58 22 20 3A 22 3B 3A 8D |Y 1 TO "X" :";:.|
00002900: 32 35 37 30 00 11 31 F0 0F 43 B2 C5 28 49 50 24 |2570..1..C..(IP$|
00002910: 29 00 1B 31 FA 0F 8D 34 33 38 30 00 40 31 04 10 |)..1...4380.@1..|
00002920: 8B 41 41 24 28 43 29 B2 22 43 22 A7 99 22 12 43 |.AA$(C)."C"..".C|
00002930: 48 41 52 41 43 54 45 52 92 20 46 49 45 4C 44 22 |HARACTER. FIELD"|
00002940: 00 55 31 0E 10 8B 41 41 24 28 43 29 B2 22 4E 22 |.U1...AA$(C)."N"|
00002950: A7 34 31 33 30 00 6B 31 18 10 81 49 B2 31 A4 31 |.4130.k1...I.1.1|
00002960: 30 30 30 3A 82 3A 89 31 31 36 35 00 99 31 22 10 |000:.:.1165..1".|
00002970: 99 22 4B 45 59 20 4C 45 54 54 45 52 20 46 4F 4C |."KEY LETTER FOL|
00002980: 4C 4F 57 45 44 20 42 59 20 41 4D 4F 55 4E 54 20 |LOWED BY AMOUNT |
00002990: 45 47 2E 28 41 32 35 29 22 00 CF 31 2C 10 99 22 |EG.(A25)"..1,.."|
000029A0: 12 41 92 44 44 20 12 53 92 55 42 54 52 41 43 54 |.A.DD .S.UBTRACT|
000029B0: 20 12 4D 92 55 4C 54 49 50 4C 59 20 12 44 92 49 | .M.ULTIPLY .D.I|
000029C0: 56 49 44 45 20 12 5A 92 45 52 4F 49 53 45 22 00 |VIDE .Z.EROISE".|
000029D0: F0 31 36 10 99 22 12 52 92 45 50 4C 41 43 45 20 |.16..".R.EPLACE |
000029E0: 3A 22 3B 3A 8D 32 35 37 30 3A 4C 24 B2 49 50 24 |:";:.2570:L$.IP$|
000029F0: 00 19 32 40 10 8B C8 28 4C 24 2C 31 29 B2 22 53 |..2@...(L$,1)."S|
00002A00: 22 A7 50 B2 C5 28 41 24 28 52 2C 43 29 29 AB C5 |".P..(A$(R,C))..|
00002A10: 28 CA 28 4C 24 2C 32 29 29 00 42 32 4A 10 8B C8 |(.(L$,2)).B2J...|
00002A20: 28 4C 24 2C 31 29 B2 22 41 22 A7 50 B2 C5 28 41 |(L$,1)."A".P..(A|
00002A30: 24 28 52 2C 43 29 29 AA C5 28 CA 28 4C 24 2C 32 |$(R,C))..(.(L$,2|
00002A40: 29 29 00 6B 32 54 10 8B C8 28 4C 24 2C 31 29 B2 |)).k2T...(L$,1).|
00002A50: 22 4D 22 A7 50 B2 C5 28 41 24 28 52 2C 43 29 29 |"M".P..(A$(R,C))|
00002A60: AC C5 28 CA 28 4C 24 2C 32 29 29 00 94 32 5E 10 |..(.(L$,2))..2^.|
00002A70: 8B C8 28 4C 24 2C 31 29 B2 22 44 22 A7 50 B2 C5 |..(L$,1)."D".P..|
00002A80: 28 41 24 28 52 2C 43 29 29 AD C5 28 CA 28 4C 24 |(A$(R,C))..(.(L$|
00002A90: 2C 32 29 29 00 A9 32 68 10 8B C8 28 4C 24 2C 31 |,2))..2h...(L$,1|
00002AA0: 29 B2 22 5A 22 A7 50 B2 30 00 C7 32 72 10 8B C8 |)."Z".P.0..2r...|
00002AB0: 28 4C 24 2C 31 29 B2 22 52 22 A7 50 B2 C5 28 CA |(L$,1)."R".P..(.|
00002AC0: 28 4C 24 2C 32 29 29 00 DD 32 7C 10 41 24 28 52 |(L$,2))..2|.A$(R|
00002AD0: 2C 43 29 B2 CA 28 C4 28 50 29 2C 32 29 00 E7 32 |,C)..(.(P),2)..2|
00002AE0: 86 10 89 31 31 36 35 00 06 33 90 10 99 22 57 48 |...1165..3..."WH|
00002AF0: 49 43 48 20 46 49 45 4C 44 20 44 4F 20 59 4F 55 |ICH FIELD DO YOU|
00002B00: 20 57 49 53 48 22 00 2F 33 9A 10 99 22 54 4F 20 | WISH"./3..."TO |
00002B10: 54 4F 54 41 4C 49 53 45 20 4B 45 59 20 31 20 54 |TOTALISE KEY 1 T|
00002B20: 4F 20 22 58 22 20 3A 22 3B 3A 8D 32 35 37 30 00 |O "X" :";:.2570.|
00002B30: 3C 33 A4 10 43 B2 C5 28 49 50 24 29 00 46 33 AE |<3..C..(IP$).F3.|
00002B40: 10 8D 34 33 38 30 00 6B 33 B8 10 8B 41 41 24 28 |..4380.k3...AA$(|
00002B50: 43 29 B2 22 43 22 A7 99 22 12 43 48 41 52 41 43 |C)."C"..".CHARAC|
00002B60: 54 45 52 92 20 46 49 45 4C 44 22 00 80 33 C2 10 |TER. FIELD"..3..|
00002B70: 8B 41 41 24 28 43 29 B2 22 4E 22 A7 34 33 31 30 |.AA$(C)."N".4310|
00002B80: 00 96 33 CC 10 81 49 B2 31 A4 31 30 30 30 3A 82 |..3...I.1.1000:.|
00002B90: 3A 89 31 31 36 35 00 9E 33 D6 10 54 B2 30 00 BB |:.1165..3..T.0..|
00002BA0: 33 E0 10 81 20 52 B2 31 A4 59 3A 54 B2 54 AA C5 |3... R.1.Y:T.T..|
00002BB0: 28 41 24 28 52 2C 43 29 29 3A 82 00 01 34 EA 10 |(A$(R,C)):...4..|
00002BC0: 99 22 54 4F 54 41 4C 20 46 49 4C 45 20 56 41 4C |."TOTAL FILE VAL|
00002BD0: 55 45 20 4F 46 20 46 49 45 4C 44 20 3A 22 3A 99 |UE OF FIELD :":.|
00002BE0: 22 12 22 41 24 28 30 2C 43 29 22 92 22 22 20 3D |"."A$(0,C)"."" =|
00002BF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B | ";|
00002C00: 54 00 24 34 F4 10 99 22 50 52 45 53 53 20 12 53 |T.$4..."PRESS .S|
00002C10: 50 41 43 45 20 42 41 52 92 20 54 4F 20 52 45 54 |PACE BAR. TO RET|
00002C20: 55 52 4E 22 00 38 34 FE 10 A1 4B 24 3A 8B 4B 24 |URN".84...K$:.K$|
00002C30: B2 22 22 A7 34 33 35 30 00 49 34 08 11 8B 4B 24 |."".4350.I4...K$|
00002C40: B2 22 20 22 A7 31 31 36 30 00 53 34 12 11 89 34 |." ".1160.S4...4|
00002C50: 33 35 30 00 85 34 1C 11 42 4C 24 B2 22 20 20 20 |350..4..BL$." |
00002C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002C70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002C80: 20 20 20 20 22 00 A3 34 26 11 99 22 91 91 22 3B | "..4&.."..";|
00002C90: 3A 99 42 4C 24 3A 99 42 4C 24 3A 99 22 91 91 91 |:.BL$:.BL$:."...|
00002CA0: 22 3A 8E 00 D5 34 30 11 53 24 B2 22 20 20 20 20 |":...40.S$." |
00002CB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002CC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002CD0: 20 20 20 20 22 00 09 35 3A 11 54 24 B2 22 9D 9D | "..5:.T$."..|
00002CE0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00002CF0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00002D00: 9D 9D 9D 9D 9D 9D 22 3A 8E 00 0F 35 44 11 3A 00 |......":...5D.:.|
00002D10: 3D 35 45 11 8B 20 59 B2 30 20 A7 20 45 4D 24 B2 |=5E.. Y.0 . EM$.|
00002D20: 22 12 4E 4F 20 46 49 4C 45 20 45 58 49 53 54 53 |".NO FILE EXISTS|
00002D30: 92 22 3A 8D 32 36 35 30 3A 89 32 37 30 00 47 35 |.":.2650:.270.G5|
00002D40: 4E 11 8D 34 34 37 30 00 6B 35 58 11 99 22 12 53 |N..4470.k5X..".S|
00002D50: 4F 52 54 92 20 43 4F 4D 50 4C 45 54 45 44 22 3A |ORT. COMPLETED":|
00002D60: 81 4A B2 31 A4 31 30 30 30 3A 82 00 74 35 62 11 |.J.1.1000:..t5b.|
00002D70: 89 32 37 30 00 AE 35 6C 11 86 20 41 24 28 32 30 |.270..5l.. A$(20|
00002D80: 30 2C 31 35 29 2C 41 41 24 28 31 35 29 2C 41 28 |0,15),AA$(15),A(|
00002D90: 31 35 29 2C 43 24 28 31 35 29 2C 42 24 28 31 35 |15),C$(15),B$(15|
00002DA0: 29 3A 41 24 28 52 2C 43 29 B2 22 22 3A 8E 00 B4 |):A$(R,C)."":...|
00002DB0: 35 76 11 3A 00 D6 35 80 11 99 22 57 48 49 43 48 |5v.:..5..."WHICH|
00002DC0: 20 46 49 45 4C 44 20 44 4F 20 59 4F 55 20 57 49 | FIELD DO YOU WI|
00002DD0: 53 48 20 54 4F 22 00 FD 35 8A 11 99 22 53 4F 52 |SH TO"..5..."SOR|
00002DE0: 54 20 42 59 2E 2E 20 4B 45 59 20 31 20 54 4F 20 |T BY.. KEY 1 TO |
00002DF0: 22 58 22 20 3A 22 3B 3A 8D 32 35 37 30 00 0A 36 |"X" :";:.2570..6|
00002E00: 94 11 4D B2 C5 28 49 50 24 29 00 14 36 9E 11 8D |..M..(IP$)..6...|
00002E10: 34 33 38 30 00 31 36 A8 11 99 22 12 53 4F 52 54 |4380.16...".SORT|
00002E20: 49 4E 47 92 20 50 4C 45 41 53 45 20 57 41 49 54 |ING. PLEASE WAIT|
00002E30: 22 00 3E 36 B2 11 81 52 B2 31 A4 59 AB 31 00 4D |".>6...R.1.Y.1.M|
00002E40: 36 BC 11 81 49 B2 28 52 AA 31 29 A4 59 00 73 36 |6...I.(R.1).Y.s6|
00002E50: C6 11 8B 41 41 24 28 4D 29 B2 22 43 22 AF 41 24 |...AA$(M)."C".A$|
00002E60: 28 49 2C 4D 29 B1 B2 41 24 28 52 2C 4D 29 A7 34 |(I,M)..A$(R,M).4|
00002E70: 36 31 30 00 9F 36 CB 11 8B 41 41 24 28 4D 29 B2 |610..6...AA$(M).|
00002E80: 22 4E 22 AF C5 28 41 24 28 49 2C 4D 29 29 B1 B2 |"N"..(A$(I,M))..|
00002E90: C5 28 41 24 28 52 2C 4D 29 29 A7 34 36 31 30 00 |.(A$(R,M)).4610.|
00002EA0: AA 36 D0 11 81 43 B2 31 A4 58 00 BC 36 DA 11 42 |.6...C.1.X..6..B|
00002EB0: 24 28 43 29 B2 41 24 28 52 2C 43 29 00 D0 36 E4 |$(C).A$(R,C)..6.|
00002EC0: 11 41 24 28 52 2C 43 29 B2 41 24 28 49 2C 43 29 |.A$(R,C).A$(I,C)|
00002ED0: 00 E2 36 EE 11 41 24 28 49 2C 43 29 B2 42 24 28 |..6..A$(I,C).B$(|
00002EE0: 43 29 00 E9 36 F8 11 82 43 00 F1 36 02 12 82 3A |C)..6...C..6...:|
00002EF0: 82 00 F7 36 0C 12 8E 00 25 37 16 12 8B 20 59 B2 |...6....%7... Y.|
00002F00: 30 20 A7 20 45 4D 24 B2 22 12 4E 4F 20 46 49 4C |0 . EM$.".NO FIL|
00002F10: 45 20 45 58 49 53 54 53 92 22 3A 8D 32 36 35 30 |E EXISTS.":.2650|
00002F20: 3A 89 32 37 30 00 48 37 17 12 99 C7 28 31 34 37 |:.270.H7....(147|
00002F30: 29 3A 99 3A 99 A3 31 32 29 22 52 45 50 4F 52 54 |):.:..12)"REPORT|
00002F40: 20 57 52 49 54 45 52 22 00 61 37 18 12 99 A3 31 | WRITER".a7....1|
00002F50: 32 29 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |2)"-------------|
00002F60: 22 00 8D 37 1B 12 99 22 57 48 49 43 48 20 4F 46 |"..7..."WHICH OF|
00002F70: 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 46 | THE FOLLOWING F|
00002F80: 49 45 4C 44 53 20 44 4F 20 59 4F 55 22 00 B2 37 |IELDS DO YOU"..7|
00002F90: 1C 12 99 22 57 49 53 48 20 54 4F 20 49 4E 43 4C |..."WISH TO INCL|
00002FA0: 55 44 45 20 49 4E 20 54 48 45 20 52 45 50 4F 52 |UDE IN THE REPOR|
00002FB0: 54 22 00 BC 37 1D 12 8D 32 37 32 30 00 C7 37 20 |T"..7...2720..7 |
00002FC0: 12 81 43 B2 31 A4 58 00 D5 37 2A 12 99 41 24 28 |..C.1.X..7*..A$(|
00002FD0: 30 2C 43 29 3B 00 F9 37 34 12 99 22 20 4B 45 59 |0,C);..74.." KEY|
00002FE0: 20 12 59 92 20 4F 52 20 12 4E 92 20 5B 20 5D 9D | .Y. OR .N. [ ].|
00002FF0: 9D 22 3B 3A 8D 32 35 37 30 00 0E 38 3E 12 43 24 |.";:.2570..8>.C$|
00003000: 28 43 29 B2 C8 28 49 50 24 2C 31 29 3A 99 00 15 |(C)..(IP$,1):...|
00003010: 38 48 12 82 43 00 56 38 4A 12 8D 32 37 32 30 3A |8H..C.V8J..2720:|
00003020: 99 22 44 4F 20 59 4F 55 20 52 45 51 55 49 52 45 |."DO YOU REQUIRE|
00003030: 20 4C 49 4E 45 20 46 45 45 44 20 12 59 92 45 53 | LINE FEED .Y.ES|
00003040: 20 4F 52 20 12 4E 92 4F 20 5B 20 5D 9D 9D 22 3B | OR .N.O [ ]..";|
00003050: 3A 8D 32 35 37 30 00 67 38 4B 12 4C 46 24 B2 C8 |:.2570.g8K.LF$..|
00003060: 28 49 50 24 2C 31 29 00 AF 38 4D 12 99 22 44 4F |(IP$,1)..8M.."DO|
00003070: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 53 45 4E | YOU WISH TO SEN|
00003080: 44 20 41 20 43 48 52 24 20 54 4F 22 3A 99 22 54 |D A CHR$ TO":."T|
00003090: 48 45 20 50 52 49 4E 54 45 52 20 12 59 92 45 53 |HE PRINTER .Y.ES|
000030A0: 20 4F 52 20 12 4E 92 4F 5B 20 5D 9D 9D 22 3B 00 | OR .N.O[ ]..";.|
000030B0: C6 38 4E 12 8D 32 35 37 30 3A 43 53 24 B2 C8 28 |.8N..2570:CS$..(|
000030C0: 49 50 24 2C 31 29 00 FA 38 4F 12 8B 43 53 24 B2 |IP$,1)..8O..CS$.|
000030D0: 22 59 22 A7 99 22 45 4E 54 45 52 20 43 48 52 24 |"Y".."ENTER CHR$|
000030E0: 20 5B 20 20 5D 9D 9D 9D 22 3B 3A 8D 32 35 37 30 | [ ]...";:.2570|
000030F0: 3A 43 53 B2 C5 28 49 50 24 29 00 06 39 54 12 9F |:CS..(IP$)..9T..|
00003100: 34 2C 34 3A 9D 34 00 2B 39 57 12 8B 43 53 24 B2 |4,4:.4.+9W..CS$.|
00003110: 22 59 22 A7 99 20 C7 28 43 53 29 3A 8B 43 54 24 |"Y".. .(CS):.CT$|
00003120: B2 22 59 22 A7 99 C7 28 43 54 29 00 48 39 5C 12 |."Y"...(CT).H9\.|
00003130: 99 4D 24 A6 31 30 29 22 46 49 4C 45 4E 41 4D 45 |.M$.10)"FILENAME|
00003140: 20 3D 20 22 4E 24 3A 99 00 62 39 66 12 81 20 52 | = "N$:..b9f.. R|
00003150: B2 30 A4 59 3A 52 24 B2 22 22 20 3A 81 43 B2 31 |.0.Y:R$."" :.C.1|
00003160: A4 58 00 92 39 70 12 8B C3 28 41 24 28 52 2C 43 |.X..9p...(A$(R,C|
00003170: 29 29 B3 41 28 43 29 A7 20 41 24 28 52 2C 43 29 |)).A(C). A$(R,C)|
00003180: B2 41 24 28 52 2C 43 29 AA 22 20 22 3A 89 34 37 |.A$(R,C)." ":.47|
00003190: 32 30 00 C7 39 75 12 8B C3 28 41 24 28 52 2C 43 |20..9u...(A$(R,C|
000031A0: 29 29 B3 C3 28 41 24 28 30 2C 43 29 29 A7 41 24 |))..(A$(0,C)).A$|
000031B0: 28 52 2C 43 29 B2 41 24 28 52 2C 43 29 AA 22 20 |(R,C).A$(R,C)." |
000031C0: 22 3A 89 34 37 32 35 00 E9 39 7A 12 8B 43 24 28 |":.4725..9z..C$(|
000031D0: 43 29 B2 22 59 22 A7 20 52 24 B2 52 24 AA 41 24 |C)."Y". R$.R$.A$|
000031E0: 28 52 2C 43 29 AA 22 20 22 00 F0 39 84 12 82 43 |(R,C)." "..9...C|
000031F0: 00 02 3A 8E 12 8B 4C 46 24 B2 22 4E 22 A7 20 99 |..:...LF$."N". .|
00003200: 52 24 00 1A 3A 8F 12 8B 4C 46 24 B2 22 59 22 A7 |R$..:...LF$."Y".|
00003210: 20 99 52 24 2C C7 28 31 33 29 00 3D 3A 90 12 8B | .R$,.(13).=:...|
00003220: 52 B2 30 A7 50 B2 C3 28 52 24 29 3A 81 49 B2 31 |R.0.P..(R$):.I.1|
00003230: A4 50 3A 99 22 2D 22 3B 3A 82 49 3A 99 00 44 3A |.P:."-";:.I:..D:|
00003240: 98 12 82 52 00 4E 3A A2 12 98 34 3A A0 34 00 70 |...R.N:...4:.4.p|
00003250: 3A AC 12 81 43 B2 31 A4 58 3A 41 24 28 30 2C 43 |:...C.1.X:A$(0,C|
00003260: 29 B2 C8 28 41 24 28 30 2C 43 29 2C 39 29 3A 82 |)..(A$(0,C),9):.|
00003270: 00 79 3A B6 12 89 32 37 30 00 B4 3A 58 1B 8D 37 |.y:...270..:X..7|
00003280: 39 30 30 3A 43 4F 4C B2 31 3A 4C 4E 45 B2 32 31 |900:COL.1:LNE.21|
00003290: 3A 8D 38 30 30 30 3A 99 22 12 44 45 4C 45 54 45 |:.8000:.".DELETE|
000032A0: 92 20 41 52 45 20 59 4F 55 20 53 55 52 45 3F 20 |. ARE YOU SURE? |
000032B0: 59 2F 4E 22 00 C8 3A 5D 1B A1 4B 24 3A 8B 4B 24 |Y/N"..:]..K$:.K$|
000032C0: B2 22 22 A7 37 30 30 35 00 D9 3A 62 1B 8B 4B 24 |."".7005..:b..K$|
000032D0: B2 22 59 22 A7 37 30 32 35 00 EA 3A 67 1B 8B 4B |."Y".7025..:g..K|
000032E0: 24 B2 22 4E 22 A7 31 31 36 35 00 F4 3A 6C 1B 89 |$."N".1165..:l..|
000032F0: 37 30 30 35 00 05 3B 71 1B 54 B2 52 3A 81 52 B2 |7005..;q.T.R:.R.|
00003300: 54 A4 59 AA 31 00 10 3B 76 1B 81 43 B2 31 A4 58 |T.Y.1..;v..C.1.X|
00003310: 00 26 3B 7B 1B 41 24 28 52 2C 43 29 B2 41 24 28 |.&;{.A$(R,C).A$(|
00003320: 52 AA 31 2C 43 29 00 2D 3B 80 1B 82 43 00 34 3B |R.1,C).-;...C.4;|
00003330: 85 1B 82 52 00 44 3B 8A 1B 59 B2 59 AB 31 3A 89 |...R.D;..Y.Y.1:.|
00003340: 31 31 36 30 00 62 3B DC 1E 43 4F 4C B2 31 3A 4C |1160.b;..COL.1:L|
00003350: 4E 45 B2 32 31 3A 8D 38 30 30 30 3A 81 49 B2 31 |NE.21:.8000:.I.1|
00003360: A4 33 00 96 3B DD 1E 99 22 20 20 20 20 20 20 20 |.3..;..." |
00003370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003390: 22 3A 82 49 3A 8E 00 C9 3B 40 1F 41 43 43 24 B2 |":.I:...;@.ACC$.|
000033A0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
000033B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000033C0: 1D 1D 1D 1D 1D 1D 1D 1D 22 00 FC 3B 4A 1F 44 4F |........"..;J.DO|
000033D0: 57 24 B2 22 11 11 11 11 11 11 11 11 11 11 11 11 |W$."............|
000033E0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000033F0: 11 11 11 11 11 11 11 11 11 11 11 22 00 07 3C 54 |..........."..<T|
00003400: 1F 81 5A B2 31 A4 32 00 11 3C 5E 1F 99 22 13 22 |..Z.1.2..<^.."."|
00003410: 3B 00 2C 3C 68 1F 8B 43 4F 4C B1 31 A7 99 C8 28 |;.,<h..COL.1...(|
00003420: 41 43 43 24 2C 43 4F 4C AB 31 29 3B 00 47 3C 72 |ACC$,COL.1);.G<r|
00003430: 1F 8B 4C 4E 45 B1 31 A7 99 C8 28 44 4F 57 24 2C |..LNE.1...(DOW$,|
00003440: 4C 4E 45 AB 31 29 3B 00 7C 3C 76 1F 8B 5A B2 31 |LNE.1);.|<v..Z.1|
00003450: A7 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." |
00003460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003470: 20 20 20 20 20 20 20 20 20 20 22 3B 00 83 3C 78 | ";..<x|
00003480: 1F 82 5A 00 89 3C 7C 1F 8E 00 00 00 |..Z..<|..... |
..5....**DFM BY CHRIS ELY*DIALOG SOFTWAR
E(C) 15.01.83.C.D.X.0:Y.0:R.0:C.0:IP$.""
:K$."":EM$."":N$."".M....4460.....A$(R,C
)."":M.31743:F.0:S.0...H..G(147)...R..36
70.T....:.:." DO YOU WANT .U.PPER OR .
L.OWER CASE"...... K$:. K$."".230......K
$."U"..G(142) :.270......K$."L"..G(14):.
270.$....230.6....G(147):.3670.<.....V."
...9)"FILE NAME = ";N$...,..:..6) "KEY D
ESIRED OPTION NUMBER":.: .2720...6.."1 C
REATE NEW FILE".20)"2 CHANGE FILE NAME".
..@.."3 ACCESS RECORD".20)"4 SELECT"...J
.."5 LOAD/SAVE FILE".20)"6 REPORT WRITER
...T.."7 SORT FILE".20)"8 UTILITIES":..W
.^...11) ".9 EXIT PROGRAM" :.: .2720.
C.H.. 158,0.Y.R.. K$:. K$."". 370...|..
E(K$).1 . E(K$).9 . 370.Q.... E(K$) . 14
00,900,1160,2020,2750,4630,4420,3710,364
0.W...:...... 4380...... Y.0 . EM$.".FIL
E NOT RESIDENT !.":. 2650:.270.>...."DO
YOU WISH TO .C.ONTINUE SEARCH".Y...."OR
RETURN TO .M.ENU".M.B.. K$:.K$."".450...
L..K$."C"..4380:.490...V..K$."M".270....
..450......7900:COL.1:LNE.21:.8000......
"SEARCH FOR RECORD BY KEY FIELD"......"-
-----------------------------".%...."ENT
ER ""."A$(0,1)"."":";.4....2570:.590.>..
..7900.U...COL.1:LNE.21:.8000..&.."THER
E ARE "Y" RECORDS IN THIS FILE"...0.."EN
TER RECORD NUMBER :";:. 2570.K.:.R.E(IP$
):. R.0 . R.Y . .4380:. 550.V.D.. 1165..
.N.L$.IP$...X.F.C(L$)...B.. R.1 . Y...L.
.L$.H(A$(R,1),F).1165...V...%....4380.E.
...".NO SUCH RECORD EXISTS!.".X.... Z.1
. 1000:..B.... 410.H...:......"WHICH LIN
E DO YOU WISH TO AMEND"......"PRESS 1 TO
"X" :";:.2570...F.C .E(IP$).F.P..4380..
.Z.."EXISTING DATA FOR ""."A$(0,C)"."" =
":. "."A$(R,C).*...."NEW DATA ";:."[";:
.4400:.H(S$,A(C));.G...."]";:.H(T$,A(C))
;:.".";.`.... 2570:A$(R,C).IP$:....... C
(A$(R,C)).A(C).A$(R,C).H(A$(R,C),A(C))..
...C.2. ....1165... .. 2720.R.*.."WHICH
LINE DO YOU WISH TO AMEND"...4.."PRESS 1
TO "X" :";:.2570;...>.C.E(IP$)...H.."."
A$(0,C).P.R.."ENTER CORRECT FIELD HEADIN
G [ ]..........";:. 2570.B.\.A$(
0,C).IP$:....F.. C(A$(0,C)).9.A$(0,C).A$
(0,C)." ":.870...P.. C(A$(0,C)).9.A$(0,C
).H(A$(0,C),9)...Z..1165......"ENTER NEW
FILE NAME [ ].........";......25
70:N$.IP$:.270.=....7900:COL.1:LNE.21:.8
000:."DO YOU WISH TO AMEND:-".^...."FIEL
D .H.EADING OR .D.ATA".Q....K$:.K$."".94
0......K$."H"..4380:.810......K$."D"..43
80:.690...J..940...T..G(147):.2720......
.9)"FILE WILL SCROLL DOWN":.:....... 27
20...... Z.1 . 2000:..(....G(147):."FILE
NAME=" .15)".";N$".":..Q...." PRE
SS .SPACE BAR. TO CANCEL".\.... 2720.I..
.. R.1 .Y.V.$.. C.1 .X......"."H(A$(0,C)
,9)".".12)H(A$(R,C),26).V.8.. C.1 . ."..
....................................."..
.B.. Z.1 . 400:....L..:. 2720...V.. K$:.
K$." " . 1165...`...&.J.. Z.1 . 600:..5
.T.R.Y:. 1165.I.~..G(147):.:.:.:..|...R.
1: . Y.0 . EM$.".NO FILE EXISTS.":.2650:
.270.....A.1......R.0.R.1......R.Y.R.R.1
:R.Y......A.0.A.1.A....A.25.A.A.1......G
(147):.".";N$ .19)"RECORD NO";R:. 2720..
.... C.1 . X.....GG.A(C)......GG.24.GG.2
4.*...."."D(C)".";.X.....4)"."H(A$(0,C),
9)".".15)J(A$(R,C),A,GG).G....C.1..2720.
..D..:COL.1:LNE.20:.8000:.2730...N...15)
".**OPTIONS**".X.X.."PRESS : .N.EXT .L.A
ST .F.IND .G.OTO .A.MEND .M.ENU"......".
C.ALCS .I.NPUT .D.ELETE .P.RINT .S.CROLL
.<. .>":.158,0.!....2730.5....K$:.K$.""
.1270.Q.... K$."N" . R.R.1:. 1165.M....
K$."L" . R.R.1:. 1165...... K$."M" . 270
...... K$."I" . F.1:.1840...(.. K$."G".5
40...2.. K$."F".490.L.<.. K$."S".980...A
..K$.">".A.A.1:.1170...B..K$."<".A.A.1:.
1170...F.. K$."A".920...P.. K$."P".3930.
1.Z.. K$."C".4000.B._..K$."D".7000.L.D..
1270.R.N.:...X.. G(147):.:.".**WARNING**
THIS WILL ERASE ANY FILE"......".CURREN
TLY IN MEMORY.":.:.:.:..T.... .8) ".....
..................."...... .8)"PRESS Y(Y
ES) TO CONTINUE"... .. .8)" N(NO) F
OR MENU":.158,0.D.... .8) ".............
...........".[.... K$:. K$."". 1460.N...
. K$."N" . 270...H.. K$."Y" . 1500...R..
1460...... G(147):.:.4460.F...."KEY IN
TODAY'S DATE :";:.2570.Y...M$.IP$:.G(147
)...... .12)".CREATE RECORD.":....... 27
20.5...."WHAT IS THE FILE NAME ?[
].........";.?....2570.Q.".N$.H(IP$,8):
..\.,.. 2720...6.."HOW MANY COLUMNS IN E
ACH RECORD ? [ ]...";:. 2570...@.X.E(H(
IP$,2)):..V.J.. X.1 . X.15 . .".MAXIMUM
IS 15.":. 1590...T.. G(147):C.1...^..".T
HIS FILE IS NAMED ";N$:. 2720.?.H.."NOTE
THAT COLUMN 1 IS THE . KEY FIELD . ":..
J.R.. 2720.P.|.:......"STATE . TITLE . O
F COL"C" [ ]..........";......
2570:......A$(0,C).H(IP$,9).X.... C(A$(0
,C)).9.A$(0,C).A$(0,C)." ":.1700......"E
NTER .C.HARACTER OR .N.UMERIC FIELD [ ].
.";:.2570.'...AA$(C).H(IP$,1):..<.B..AA$
(C)."N".1750.Q.L..AA$(C)."C".1780.A.Q..4
380:.1710...V.."ENTER NUMBER OF CHARACTE
RS FOR RECORD"......"MAX. 9 CHARACTERS [
]..";:.2570.F...A(C).E(IP$):.......A(C)
.9.."..":.4380:.1750......1810......"ENT
ER NUMBER OF CHARACTERS FOR RECORD".C...
."MAX.36 CHARACTERS [ ]...";:.2570.U...
A(C).E(IP$):..T....A(C).36.."..":.4380:.
1780...... C.X . 1840.....C.C.1:. 1660..
.&.:...0.. F.1 . R.Y.1:Y.Y.1:. 1860.G.:.
R.1:Y.1...D.. G(147):. .12)".RECORD NUMB
ER";R".":. 2720.&.N...3)"TO TERMINATE DA
TA ENTRY TYPE 'END'":..3.B.. 2720:..A.L.
. C.1 . X.M.V.."KEY "A$(0,C):."[";:.4400
:.H(S$,A(C));......"]";:.H(T$,A(C));:.".
";:.2570......IP$."END". F.0 . R.1:Y.Y.1
:. 270......IP$."END".F.1.F.0:R.R.1:Y.Y.
1:.1165.....A$(R,C).H(IP$,A(C)):.......A
$(R,C)."".A$(R,C)."-". .... 2720.&.....<
.F.. F.1 . F.0:.1165.S.P.R.R.1:Y.Y.1:. 1
860.Y.Z.:...... Y.0 . EM$.".NO FILE EXIS
TS.":.2650:.270. ....G(147):.:. 2720:E.0
......"DO YOU WANT TO OUTPUT RESULTS TO"
:."PRINTER: KEY .Y.ES OR .N.O"...... K$:
. K$."".2023......K$."Y".PR.5:.2030.*...
.K$."N".PR.0:.2030.4....2023.M....G(147)
:. PR.0.TT.15.[.... R.1 . Y......: ."ENT
ER SELECTED .FIELD. [ ].........
.";:.2570;.....DP$.IP$:..H....C(DP$).9.D
P$.DP$." ":.2060.X....:.2720:C.1... .. A
$(0,C).DP$ . 2110...*.C.C.1:. C.X.1 . 20
80...4.EM$.".NO SUCH FIELD":.2650:.270.C
.>.."ENTER ."DP$".".`.@.."[";:.4400:.H(S
$,A(C));.}.A.."]";:.H(T$,A(C));:.".";...
C.. 2570:CP$.IP$:.:. 2720...H.F.C(CP$)..
.R..G(147):.:. 2720.R.\.. AA$(C)."C". 24
30...F.."DO YOU WANT ALL "DP$":-":....P.
. .2)".E.QUAL TO".15)CP$:..2.Z.. .2)".L.
ESS THAN".15)CP$:..T.....2)".G.REATER TH
AN".15)CP$:..`.... 158,0.W.... K$:. K$."
". 2200...... K$."E" . 2430...... K$."L"
. 2250...... K$."G" . 2340...... 2200.Q
.J..G(147):. 2720...O..PR.5.." .PRINTI
NG.": .4,4:.4.. T...2)"FOLLOWING "N$" HA
VE ".7 ....2)DP$" LESS THAN "CP$:. 2720.
E ... R.1 . Y.^ ...PR.5.C(D(R)).2.TT.5.W
...PR.5.C(D(R)).3.TT.4.. ...PR.5.C(D(R)
).4.TT.3.J ... E(A$(R,C)).E(CP$).. "RECO
RD NO ";R.TT)H(A$(R,1),24).P ..:.V .....
...PR.5..4: 4.. ..:.. ... 2520..!$.. G(
147):. 2720./!)..PR.5.." .PRINTING.":
.4,4:.4.N!....2)"FOLLOWING "N$" HAVE ".U
!8.. .2)DP$" GREATER THAN "CP$:. 2720..!
B.. R.1 . Y..!C..PR.5.C(D(R)).2.TT.5..!D
..PR.5.C(D(R)).3.TT.4.N!E..PR.5.C(D(R)).
4.TT.3.."L.. E(A$(R,C)).E(CP$).. "RECORD
NO ";R.TT)H(A$(R,1),24).."V.:.."`...$"E
..PR.5..4: 4.*"J.:.5"T.. 2520.H"~..G(147
):. 2720.L"...PR.5.." .PRINTING.": .4,
4:.4.."... .2)"FOLLOWING "N$" HAVE".."..
. .2)DP$" = "CP$:. 2720.."... R.1 . Y.N"
...PR.5.C(D(R)).2.TT.5.."...PR.5.C(D(R))
.3.TT.4..#...PR.5.C(D(R)).4.TT.3.7#...H(
A$(R,C),F).CP$.."RECORD NO ";R.TT)H(A$(R
,1),24).=#..:.C#....S#...PR.5..4: 4.Y#D.
:._#N.:..#X..:. 158,0:. .10)".PRESS SPAC
E BAR."..#... K$:. K$."". 2530..#... K$.
" " . R.R.1:.270.C#... 2530.I#..:.Y#..B$
." ":."";..#...IP$:.IP$.""..2580..$...B$
." ".F(IP$).20..2580.:$(..F(IP$).20.B$.H
(B$,C(B$).1):.". .";:.2580.Y$2..IP$.G(13
).IP$.J(B$,2):.:..R$<.A.F(IP$):.A.11..25
80..$F.B$.B$.IP$:.".";IP$;".";:.2580..$P
.:. $Z.:..$D.. EM$..$N.. T8.1 .1000:..C$
....I$..:..$ .."........................
...............":..+%..."---------------
------------------------":..1%..:.[%...
"DO YOU WISH TO .L.OAD OR .S.AVE":..R%H.
. K$:. K$."". 2760..%R.. K$."L".3070..%.
.. K$."S".2800. %...2760.N%... Y.0 . EM$
.".NO FILE EXISTS.":.2650:.270.X%...4380
..&..."ARE YOU SAVING ON .D.ISC OR .T.AP
E?":...&... 158,0.)&".. K$:. K$."" . 285
0.=&,.. K$."T" . 2900.Q&6.. K$."D" . 325
0.\&@.. 2850.B&J.:.L&T..4380..&Y..".INSE
RT CASSETTE"..&^.."PRESS .C. TO CONTINUE
"..&H.. 158,0.G&R.. K$:. K$.."C" . 2930.
.&|..4380:."SAVING ."N$..&...".."..&...
1,1,1,N$..'...1,Y:.1,X..'... C.1 . X:.1,
A(C):..8'... C.1 . X:.1,AA$(C):..F'... R
.1 . Y.A'... C.1 . X:.1,A$(R,C):..G'B...
.'L.. C.1 . X:.1,A$(0,C):...'V. 1..'...
270..'..:. '..:..'...:. 4460.R'...4380:
."ARE YOU LOADING FROM:-"..'...".D.ISK
OR .T.APE":.158,0..(&.. K$:. K$."".3110.
.(0..K$."T".3160.)(:..K$."D".3210.3(D..3
110.9(N.:.L(X.T.1:U.0:NN$.N$.N(B..4380:.
"IS CASSETTE IN PLACE"..(L.."PRESS .Y.ES
TO CONTINUE"..(V.. K$:.K$.."Y".3190..(.
..3460..(..:..(..T.8:U.4:N1$."0:":N2$.",
SEQ,READ":NN$.N1$.NN$.N2$..(...3460..(..
:..(..:..)...4380.8)F.."DO YOU WANT TO S
AVE ON DRIVE .0. OR .1.".P)Z.. K$:. K$."
" . 3290.K)... E(K$).0. DR.0:. 3330..)..
. E(K$).1. DR.1:. 3330..)...3290..)..N1$
."DR:":N2$.",SEQ,WRITE":NN$.N1$.N$.N2$.Q
)...1,8,4,"@".NN$..)...1,Y:.G(13);..) ..
1,X:.G(13);..**.. C.1 . X:.1,A(C):.G(13)
;:..5*4.. C.1 . X:.1,AA$(C):.G(13);:..C*
>.. R.1 . Y.F*H.. C.1 . X:.1,A$(R,C):.G(
13);:..L*R....*\.. C.1 . X:.1,A$(0,C):.G
(13);:...*F. 1..*P..270..*Z.:..*...4380:
."ENTER FILE NAME [ ].........";:
. 2570..*..N$.H(IP$,8):NN$.N$:...+...T.1
.."..."..+...1,T,U,NN$.$+...1,Y:.1,X.<+.
.. C.1 . X:.1,A(C):..V+... C.1 . X:.1,AA
$(C):..D+... R.1 . Y.R+J.. C.1 . X..+T..
1,A$(R,C)..+...:...+... C.1 . X..+...1,A
$(0,C)..+.....+.. 1..+...4380.Y+..."KEY
IN TODAY'S DATE "..+..."(EG. 29.12.82) :
";:.2570..,$.M$.IP$:...,...270..,8.:.G,B
.EM$."E X I T. ***DATA FILE MANAGER***."
:. 2650.V,L.. 144,85:...,V..: ."
***********************"..,`.."
***DATA FILE MANAGER***"..,J.." *
**********************":."
BY"..-T.." . D . . I . . A .
. L . . O . . G . ":..@-~..G(147):..15)"
.**UTILITIES**.".A-...:..3)"CATALOG DRIV
E 0 .0. "..-....3)"CATALOG DRIVE 1 .1.
"..-....3)"BALANCE OF MEMORY? .M."..-..
..3)"MENU .SPACE BAR.".T-... V$:. V$."".
3760..-... V$."0".WD0..-D.. V$."1".WD1..
.N.. V$."M".3840...X.. V$." ".270.<....:
.".PRESS SPACE BAR FOR MENU".S.... K$:.K
$.." ".3760.\....270.H....G(147)......:.
:.:."YOU HAVE ".(0)" BYTES LEFT IN MEMOR
Y"......:."DO YOU WANT TO RETURN TO :-".
T....:.".M.AIN MENU"...(..:.".U.TILITIES
MENU"../2.. K$:. K$."".3890../<.. K$."M
".270.'/F.. K$."U".3710.1/P..3890.=/Z..4
,4:.4.J/D..G(147):.".";N$ .19)"RECORD NO
";R:. 2730../N.C.1:."."D(C)".";:..2)"."
A$(0,C)".".3);H(A$(R,C),24)../X..2730../
... C.2 . X../...D(C);:..2)A$(0,C).3)H(A
$(R,C),24)../...:.:.2720:.: .4: 4:.1165.
A0 ..7900:COL.1:LNE.21:.8000:."DO YOU WI
SH TO PERFORM INDIVIDUAL".D0...".C.ALCS
OR .T.OTALISE FIELD".Z0... K$:. K$."".40
20..0...K$."T". .4380:.4240..0H..K$."C
". .4380:.4060..0R..4020.Y0..."WHICH F
IELD DO YOU WISH"..1..."TO CALCULATE, KE
Y 1 TO "X" :";:.2570..1..C.E(IP$)..1...4
380.@1...AA$(C)."C"..".CHARACTER. FIELD"
.U1...AA$(C)."N".4130.K1...I.1.1000:.:.1
165..1".."KEY LETTER FOLLOWED BY AMOUNT
EG.(A25)".O1,..".A.DD .S.UBTRACT .M.ULTI
PLY .D.IVIDE .Z.EROISE"..16..".R.EPLACE
:";:.2570:L$.IP$..2@..H(L$,1)."S".P.E(A$
(R,C)).E(J(L$,2)).B2J..H(L$,1)."A".P.E(A
$(R,C)).E(J(L$,2)).K2T..H(L$,1)."M".P.E(
A$(R,C)).E(J(L$,2))..2^..H(L$,1)."D".P.E
(A$(R,C)).E(J(L$,2))..2H..H(L$,1)."Z".P.
0.G2R..H(L$,1)."R".P.E(J(L$,2))..2|.A$(R
,C).J(D(P),2)..2...1165..3..."WHICH FIEL
D DO YOU WISH"./3..."TO TOTALISE KEY 1 T
O "X" :";:.2570.<3..C.E(IP$).F3...4380.K
3...AA$(C)."C"..".CHARACTER. FIELD"..3B.
.AA$(C)."N".4310..3L..I.1.1000:.:.1165..
3V.T.0..3... R.1.Y:T.T.E(A$(R,C)):...4..
."TOTAL FILE VALUE OF FIELD :":."."A$(0,
C)"."" = ";T.$4..."PRESS .S
PACE BAR. TO RETURN".84...K$:.K$."".4350
.I4...K$." ".1160.S4...4350..4..BL$."
"..4
&.."..";:.BL$:.BL$:."...":..U40.S$."
"..5
:.T$."..................................
......":...5D.:.=5E.. Y.0 . EM$.".NO FIL
E EXISTS.":.2650:.270.G5N..4470.K5X..".S
ORT. COMPLETED":.J.1.1000:..T5B..270..5L
.. A$(200,15),AA$(15),A(15),C$(15),B$(15
):A$(R,C)."":...5V.:.V5..."WHICH FIELD D
O YOU WISH TO"..5..."SORT BY.. KEY 1 TO
"X" :";:.2570..6..M.E(IP$)..6...4380.16.
..".SORTING. PLEASE WAIT".>6...R.1.Y.1.M
6...I.(R.1).Y.S6F..AA$(M)."C".A$(I,M)..A
$(R,M).4610..6K..AA$(M)."N".E(A$(I,M))..
E(A$(R,M)).4610..6P..C.1.X..6Z.B$(C).A$(
R,C).P6..A$(R,C).A$(I,C)..6..A$(I,C).B$(
C)..6...C..6...:...6....%7... Y.0 . EM$.
".NO FILE EXISTS.":.2650:.270.H7...G(147
):.:..12)"REPORT WRITER".A7....12)"-----
--------"..7..."WHICH OF THE FOLLOWING F
IELDS DO YOU"..7..."WISH TO INCLUDE IN T
HE REPORT"..7...2720.G7 ..C.1.X.U7*..A$(
0,C);..74.." KEY .Y. OR .N. [ ]..";:.257
0..8>.C$(C).H(IP$,1):...8H..C.V8J..2720:
."DO YOU REQUIRE LINE FEED .Y.ES OR .N.O
[ ]..";:.2570.G8K.LF$.H(IP$,1)..8M.."DO
YOU WISH TO SEND A CHR$ TO":."THE PRINT
ER .Y.ES OR .N.O[ ]..";.F8N..2570:CS$.H(
IP$,1)..8O..CS$."Y".."ENTER CHR$ [ ]...
";:.2570:CS.E(IP$)..9T..4,4:.4.+9W..CS$.
"Y".. G(CS):.CT$."Y"..G(CT).H9\..M$.10)"
FILENAME = "N$:..B9F.. R.0.Y:R$."" :.C.1
.X..9P..C(A$(R,C)).A(C). A$(R,C).A$(R,C)
." ":.4720.G9U..C(A$(R,C)).C(A$(0,C)).A$
(R,C).A$(R,C)." ":.4725..9Z..C$(C)."Y".
R$.R$.A$(R,C)." "..9...C..:...LF$."N". .
R$..:...LF$."Y". .R$,G(13).=:...R.0.P.C(
R$):.I.1.P:."-";:.I:..D:...R.N:...4: 4.P
:...C.1.X:A$(0,C).H(A$(0,C),9):..Y:...27
0..:X..7900:COL.1:LNE.21:.8000:.".DELETE
. ARE YOU SURE? Y/N".H:]..K$:.K$."".7005
.Y:B..K$."Y".7025..:G..K$."N".1165..:L..
7005..;Q.T.R:.R.T.Y.1..;V..C.1.X.&;{.A$(
R,C).A$(R.1,C).-;...C.4;...R.D;..Y.Y.1:.
1160.B;..COL.1:LNE.21:.8000:.I.1.3..;...
"
":.I:..I;@.ACC$.".......................
................"..;J.DOW$."............
..........................."..<T..Z.1.2.
.<^..".";.,<H..COL.1..H(ACC$,COL.1);.G<R
..LNE.1..H(DOW$,LNE.1);.|<V..Z.1.."
";..<X
..Z..<|.....
> CLICK IMAGE PREVIEW FOR FULL MODAL