DFM DBASE
FILE INFORMATION
FILENAME(S): DFM DBASE
FILE TYPE(S): PRG
FILE SIZE: 17.6K
FIRST SEEN: 2025-11-30 17:31:23
APPEARS ON: 1 disk(s)
FILE HASH
7991718f930a3867faecc5bbc5a7c6768c3d1e180e7aaf988a3b705c084e5130
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RONS FOLLY | DFM DBASE | PRG | UK CD | 22 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 0A 00 9E 32 30 36 31 00 00 00 78 A9 |.......2061...x.|
00000010: 7F 8D 0D DD A9 34 85 01 A2 0C A0 CA B9 AA 4D 99 |.....4........M.|
00000020: 35 FF 88 C0 FF D0 F5 CE 20 08 CE 1D 08 EC 1D 08 |5....... .......|
00000030: D0 EA E6 01 A2 DB 9A C8 B9 00 0A 99 00 01 B9 00 |................|
00000040: 0B 99 00 D8 4A 4A 4A 4A 99 00 DA C8 D0 EA EE 3F |....JJJJ.......?|
00000050: 08 EE 42 08 EE 49 08 CE 39 08 CE 3C 08 10 D9 A2 |..B..I..9..<....|
00000060: 0E A9 80 9D 02 D4 9D 03 D4 A9 21 9D 04 D4 A9 08 |..........!.....|
00000070: 9D 05 D4 A9 80 9D 06 D4 8A 38 E9 07 AA 10 E2 A0 |.........8......|
00000080: 0F A9 00 0A 90 17 A2 FF 8E 0E D4 8E 0F D4 8D 13 |................|
00000090: D4 A2 F0 8E 14 D4 A2 81 8E 12 D4 A0 8F 8C 18 D4 |................|
000000A0: A0 02 A9 FF 99 01 DC 99 01 DD 88 D0 F7 C0 10 B0 |................|
000000B0: 0C B9 30 0D 99 00 DC B9 40 0D 99 00 DD B9 00 0D |..0.....@.......|
000000C0: 99 00 D0 C8 C0 2F D0 E5 20 50 0D AD 30 03 85 C3 |...../.. P..0...|
000000D0: AD 31 03 85 C8 A9 20 A2 06 8D 00 DE 8D FE DF 8E |.1.... .........|
000000E0: 00 DE C6 01 A0 00 4C 8E 00 20 B1 9A 4C 04 86 20 |......L.. ..L.. |
000000F0: 49 9A 8D 83 08 48 20 2C 90 68 20 CA 8E 24 80 A9 |I....H ,.h ..$..|
00000100: 0A 2F 35 A7 02 C7 02 44 03 64 03 84 03 00 00 20 |./5....D.d..... |
00000110: 20 20 A0 1F 86 18 86 20 B1 0A C6 1C 85 00 A5 10 | ..... ........|
00000120: 91 0A 88 10 F3 C6 1E CA CA D0 E7 4C 03 02 7F 08 |...........L....|
00000130: 08 81 01 08 FF FF FF FF 25 40 FF FF 00 00 81 0A |........%@......|
00000140: 00 00 00 08 00 02 4B 80 04 41 04 41 FF 0A FF 00 |......K..A.A....|
00000150: 00 19 00 00 03 4C EC 00 00 4F 40 48 40 00 00 00 |.....L...O@H@...|
00000160: 02 AD 35 BF E6 61 D0 02 E6 62 60 20 60 00 AA 20 |..5..a...b` `.. |
00000170: 60 00 91 DC C8 F0 2C CA D0 F8 F0 05 20 60 00 85 |`.....,..... `..|
00000180: 84 20 60 00 C9 FF F0 E3 91 DC C8 D0 F4 F0 14 06 |. `.............|
00000190: DF 90 04 26 DF C6 97 46 FF 90 E1 20 60 00 91 DC |...&...F... `...|
000001A0: C8 D0 F8 E6 DD D0 E8 E6 01 AD 12 D0 C9 80 D0 F9 |................|
000001B0: AD 08 DC AD 08 DC AD 08 DD AD 08 DD EA EA EA EA |................|
000001C0: EA C6 01 A9 FF 8D 60 00 A9 FF 8D 60 00 A2 0A 4C |......`....`...L|
000001D0: 11 00 A9 7B 8D 11 D0 E6 01 84 90 84 84 00 02 84 |...{............|
000001E0: 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000001F0: 00 00 00 00 00 00 00 00 00 E1 F9 E0 77 D6 16 27 |............w..'|
00000200: 00 33 38 39 31 31 00 30 30 30 30 99 66 66 66 66 |.38911.0000.ffff|
00000210: 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 |ffffffffffffffff|
00000220: 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 |ffffffffffffffff|
00000230: 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 |ffffffffffffffff|
00000240: 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 |ffffffffffffffff|
00000250: 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 |ffffffffffffffff|
00000260: 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 |ffffffffffffffff|
00000270: 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 |ffffffffffffffff|
00000280: 66 99 99 99 99 99 99 99 99 99 99 99 99 99 99 99 |f...............|
00000290: 99 99 99 99 99 99 99 99 99 99 99 99 99 99 99 99 |................|
000002A0: 99 99 99 99 99 99 99 99 99 99 99 99 99 99 99 99 |................|
000002B0: 99 99 99 99 99 99 99 99 99 99 0F FF 7D EA 00 04 |............}...|
000002C0: 00 20 0E BC 0E BC 07 FF 7D 99 03 02 88 10 FA 8C |. ......}.......|
000002D0: 19 D0 EA 86 01 A2 FD A0 9F 68 40 08 08 00 21 D8 |.........h@...!.|
000002E0: B6 43 B0 FC AD 00 2A A9 E9 A7 81 43 41 81 80 00 |.C....*....CA...|
000002F0: 00 00 01 84 10 00 00 00 18 00 0A A6 A7 79 A6 9C |.............y..|
00000300: E3 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 |.wwwwwwwwwwwwwww|
00000310: 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 |wwwwwwwwwwwwwwww|
00000320: 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 |wwwwwwwwwwwwwwww|
00000330: 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 |wwwwwwwwwwwwwwww|
00000340: 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 |wwwwwwwwwwwwwwww|
00000350: 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 |wwwwwwwwwwwwwwww|
00000360: 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 |wwwwwwwwwwwwwwww|
00000370: 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 |wwwwwwwwwwwwwwww|
00000380: 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 |wwwwwwwwwwwwwwww|
00000390: 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 |wwwwwwwwwwwwwwww|
000003A0: 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 |wwwwwwwwwwwwwwww|
000003B0: 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 |wwwwwwwwwwwwwwww|
000003C0: 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 |wwwwwwwwwwwwwwww|
000003D0: 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 |wwwwwwwwwwwwwwww|
000003E0: 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 |wwwwwwwwwwwwwwww|
000003F0: 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 |wwwwwwwwwwwwwwww|
00000400: 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 |wwwwwwwwwwwwwwww|
00000410: 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 |wwwwwwwwwwwwwwww|
00000420: 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 |wwwwwwwwwwwwwwww|
00000430: 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 |wwwwwwwwwwwwwwww|
00000440: 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 |wwwwwwwwwwwwwwww|
00000450: 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 |wwwwwwwwwwwwwwww|
00000460: 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 |wwwwwwwwwwwwwwww|
00000470: 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 |wwwwwwwwwwwwwwww|
00000480: 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 |wwwwwwwwwwwwwwww|
00000490: 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 |wwwwwwwwwwwwwwww|
000004A0: 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 |wwwwwwwwwwwwwwww|
000004B0: 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 |wwwwwwwwwwwwwwww|
000004C0: 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 |wwwwwwwwwwwwwwww|
000004D0: 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 |wwwwwwwwwwwwwwww|
000004E0: 77 77 77 77 77 77 77 77 77 37 C7 37 C7 B7 C7 27 |wwwwwwwww7.7...'|
000004F0: C7 C7 37 C7 37 C7 37 C7 37 37 C7 37 A7 37 C7 67 |..7.7.7.77.7.7.g|
00000500: C7 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000510: 00 00 1B 37 D1 00 00 C8 00 17 79 F0 00 00 00 00 |...7......y.....|
00000520: 00 F2 F2 F1 F2 F3 F4 F0 F1 F2 F3 F4 F5 F6 F7 FC |................|
00000530: 00 7F 00 FF 00 E8 04 07 00 00 00 00 01 00 7F 10 |................|
00000540: 10 97 00 3F 00 07 00 07 00 00 00 00 01 00 7F 10 |...?............|
00000550: 10 2C 11 D0 10 FB A2 00 A0 01 A5 33 8D 04 DD A5 |.,.........3....|
00000560: 34 8C 0E DD 8D 05 DD 8E 0E DD A5 35 8D 06 DD A5 |4..........5....|
00000570: 36 8C 0F DD 8D 07 DD 8E 0F DD A5 37 8D 04 DC A5 |6..........7....|
00000580: 38 8C 0E DC 8D 05 DC 8E 0E DC A5 39 8D 06 DC A5 |8..........9....|
00000590: 3A 8C 0F DC 8D 07 DC 8E 0F DC AD 0D DC AD 0D DD |:...............|
000005A0: A5 2D 8D 0D DD A5 30 8D 0D DC 60 05 00 00 4E A2 |.-....0...`...N.|
000005B0: 38 BD 41 02 95 02 A9 00 9D 41 02 CA 10 F3 E6 01 |8.A......A......|
000005C0: A9 39 2C 11 D0 30 FB CD 12 D0 D0 F6 A9 08 A2 08 |.9,..0..........|
000005D0: 8D 0E DD 8E 0F DD A0 3D 48 68 A5 00 A9 01 A2 08 |.......=Hh......|
000005E0: 8D 0E DC 8E 0F DC A9 00 A2 27 4C C8 01 00 AA B1 |.........'L.....|
000005F0: 91 B3 22 22 05 08 00 40 02 00 17 00 19 16 00 00 |..""...@........|
00000600: 87 0A 05 06 00 FD 41 69 00 00 00 03 00 00 01 08 |......Ai........|
00000610: DF 40 4F 41 C3 42 FD 9F FD 9F 00 A0 17 05 09 00 |.@OA.B..........|
00000620: 08 00 A0 00 07 9E 04 0A 00 04 03 00 00 48 EB 05 |.............H..|
00000630: 0E 00 31 00 00 11 90 11 00 01 41 00 87 0A 19 00 |..1.......A.....|
00000640: FF 00 00 00 FD 9F 04 41 FF 00 00 88 0A E6 7A D0 |.......A......z.|
00000650: 02 E6 7B AD 88 0A C9 3A B0 0A C9 20 F0 EF 38 E9 |..{....:... ..8.|
00000660: 30 38 E9 D0 60 80 4F C7 52 58 00 FF 05 08 00 03 |08..`.O.RX......|
00000670: 05 1E 00 06 8B E3 83 A4 7C A5 1A A7 E4 A7 86 AE |........|.......|
00000680: 06 04 00 4C 48 B2 00 31 EA 66 FE 47 FE 4A F3 91 |...LH..1.f.G.J..|
00000690: F2 0E F2 50 F2 33 F3 57 F1 CA F1 ED F6 3E F1 2F |...P.3.W.....>./|
000006A0: F3 66 FE A5 F4 ED F5 06 08 00 01 01 04 DF 3C 44 |.f............<D|
000006B0: 46 4D 00 25 AE 08 06 06 00 80 80 DF 40 DF 40 FD |FM.%........@.@.|
000006C0: 2C 3C 03 81 06 05 00 01 05 26 80 00 80 07 01 08 |,<.......&......|
000006D0: 01 08 40 00 00 03 00 03 40 01 02 20 00 00 20 07 |..@.....@.. .. .|
000006E0: 00 00 27 14 0D 00 06 07 84 06 06 85 06 07 86 06 |..'.............|
000006F0: 06 87 20 DB 81 EB 06 08 00 06 59 20 06 04 00 01 |.. .......Y ....|
00000700: 01 07 20 01 19 2A 01 0F 20 2A 2A 2A 20 84 81 94 |.. ..*.. *** ...|
00000710: 81 20 86 89 8C 85 20 8D 81 8E 81 87 85 92 20 2A |. .... ....... *|
00000720: 2A 2A 01 0F 20 01 19 2A 01 43 20 02 19 01 43 20 |**.. ..*.C ...C |
00000730: A0 84 A0 20 A0 89 A0 20 02 A0 81 A0 20 A0 8C A0 |... ... .... ...|
00000740: 20 A0 8F A0 20 A0 87 A0 02 3D 20 13 20 0F 20 06 | ... ....= . . .|
00000750: 20 14 20 17 20 01 20 12 20 05 02 6B 20 0B 05 19 | . . . . ..k ...|
00000760: 20 0F 10 14 09 0F 0E 02 10 20 02 20 63 02 02 07 | ........ . c...|
00000770: 63 20 31 20 03 12 05 01 14 05 20 0E 05 17 20 06 |c 1 ...... ... .|
00000780: 09 0C 05 20 20 20 32 20 12 05 0E 01 0D 05 20 06 |... 2 ...... .|
00000790: 09 0C 05 02 07 20 33 20 01 03 03 05 13 13 20 12 |..... 3 ...... .|
000007A0: 05 03 0F 12 04 02 05 20 34 20 13 05 0C 05 03 14 |....... 4 ......|
000007B0: 02 0C 20 35 20 0C 0F 01 04 2F 13 01 16 05 20 06 |.. 5 ..../.... .|
000007C0: 09 0C 05 02 04 20 36 20 12 05 10 0F 12 14 20 17 |..... 6 ...... .|
000007D0: 12 09 14 05 12 02 05 20 37 20 13 0F 12 14 20 06 |....... 7 .... .|
000007E0: 09 0C 05 02 09 20 38 20 15 14 09 0C 09 14 09 05 |..... 8 ........|
000007F0: 13 02 3C 20 39 20 05 18 09 14 20 10 12 0F 07 12 |..< 9 .... .....|
00000800: 01 0D 02 0F 20 02 08 63 01 01 1F 63 01 C9 20 01 |.... ..c...c.. .|
00000810: 18 99 00 1D 08 01 00 97 35 33 32 38 30 2C 32 3A |........53280,2:|
00000820: 97 35 33 32 38 31 2C 32 3A 99 20 22 9E 22 00 51 |.53281,2:. ".".Q|
00000830: 08 02 00 8F 2A 2A 44 46 4D 20 42 59 20 43 48 52 |....**DFM BY CHR|
00000840: 49 53 20 45 4C 59 2A 44 49 41 4C 4F 47 20 53 4F |IS ELY*DIALOG SO|
00000850: 46 54 57 41 52 45 28 43 29 20 31 35 2E 30 31 2E |FTWARE(C) 15.01.|
00000860: 38 33 00 84 08 03 00 58 B2 30 3A 59 B2 30 3A 52 |83.....X.0:Y.0:R|
00000870: B2 30 3A 43 B2 30 3A 49 50 24 B2 22 22 3A 4B 24 |.0:C.0:IP$."":K$|
00000880: B2 22 22 3A 45 4D 24 B2 22 22 3A 4E 24 B2 22 22 |."":EM$."":N$.""|
00000890: 3A 8D 34 31 32 00 9B 08 04 00 41 24 28 52 2C 43 |:.412.....A$(R,C|
000008A0: 29 B2 22 22 3A 46 B2 30 3A 53 B2 30 00 A7 08 05 |)."":F.0:S.0....|
000008B0: 00 99 C7 28 31 34 37 29 00 B0 08 06 00 8D 33 34 |...(147)......34|
000008C0: 33 00 E1 08 07 00 99 22 11 11 11 20 20 20 44 4F |3......"... DO|
000008D0: 20 59 4F 55 20 57 41 4E 54 20 12 55 92 50 50 45 | YOU WANT .U.PPE|
000008E0: 52 20 4F 52 20 12 4C 92 4F 57 45 52 20 43 41 53 |R OR .L.OWER CAS|
000008F0: 45 22 00 F2 08 08 00 A1 4B 24 3A 8B 4B 24 B2 22 |E"......K$:.K$."|
00000900: 22 A7 38 00 0A 09 09 00 8B 4B 24 B2 22 55 22 A7 |".8......K$."U".|
00000910: 99 C7 28 31 34 32 29 3A 89 31 32 00 21 09 0A 00 |..(142):.12.!...|
00000920: 8B 4B 24 B2 22 4C 22 A7 99 C7 28 31 34 29 3A 89 |.K$."L"...(14):.|
00000930: 31 32 00 28 09 0B 00 89 38 00 39 09 0C 00 99 C7 |12.(....8.9.....|
00000940: 28 31 34 37 29 3A 8D 33 34 33 00 49 09 0D 00 99 |(147):.343.I....|
00000950: 3A 8B 4E 24 B2 22 22 A7 31 37 00 54 09 0E 00 4E |:.N$."".17.T...N|
00000960: 4C 24 B2 4E 24 00 72 09 0F 00 8B C3 28 4E 4C 24 |L$.N$.r.....(NL$|
00000970: 29 B3 39 A7 4E 4C 24 B2 4E 4C 24 AA 22 20 22 3A |).9.NL$.NL$." ":|
00000980: 89 31 35 00 9D 09 10 00 99 3A 99 3A 99 A3 38 29 |.15......:.:..8)|
00000990: 22 12 46 49 4C 45 20 49 4E 20 55 53 45 3A 20 22 |".FILE IN USE: "|
000009A0: 3B 4E 4C 24 3B 22 92 22 3A 99 3A 99 3A 99 00 B8 |;NL$;".":.:.:...|
000009B0: 09 11 00 99 A3 31 34 29 22 4B 45 59 20 4F 50 54 |.....14)"KEY OPT|
000009C0: 49 4F 4E 22 3A 8D 32 36 33 00 E4 09 12 00 99 22 |ION":.263......"|
000009D0: 31 20 43 52 45 41 54 45 20 4E 45 57 20 46 49 4C |1 CREATE NEW FIL|
000009E0: 45 22 A3 32 30 29 22 32 20 52 45 4E 41 4D 45 20 |E".20)"2 RENAME |
000009F0: 46 49 4C 45 22 00 09 0A 13 00 99 22 33 20 41 43 |FILE"......"3 AC|
00000A00: 43 45 53 53 20 52 45 43 4F 52 44 22 A3 32 30 29 |CESS RECORD".20)|
00000A10: 22 34 20 53 45 4C 45 43 54 22 00 35 0A 14 00 99 |"4 SELECT".5....|
00000A20: 22 35 20 4C 4F 41 44 2F 53 41 56 45 20 46 49 4C |"5 LOAD/SAVE FIL|
00000A30: 45 22 A3 32 30 29 22 36 20 52 45 50 4F 52 54 20 |E".20)"6 REPORT |
00000A40: 57 52 49 54 45 52 00 5B 0A 15 00 99 22 37 20 53 |WRITER.[...."7 S|
00000A50: 4F 52 54 20 46 49 4C 45 22 A3 32 30 29 22 38 20 |ORT FILE".20)"8 |
00000A60: 55 54 49 4C 49 54 49 45 53 22 3A 99 00 7A 0A 16 |UTILITIES":..z..|
00000A70: 00 99 A3 31 31 29 22 39 20 45 58 49 54 20 50 52 |...11)"9 EXIT PR|
00000A80: 4F 47 52 41 4D 22 3A 8D 32 36 33 00 8C 0A 17 00 |OGRAM":.263.....|
00000A90: A1 4B 24 3A 8B 4B 24 B2 22 22 A7 32 33 00 B9 0A |.K$:.K$."".23...|
00000AA0: 18 00 4B 4B 24 B2 22 31 32 33 34 35 36 37 38 39 |..KK$."123456789|
00000AB0: 22 3A 81 4B B2 31 A4 39 3A 8B 4B 24 B2 CA 28 4B |":.K.1.9:.K$..(K|
00000AC0: 4B 24 2C 4B 2C 31 29 A7 32 36 00 C4 0A 19 00 82 |K$,K,1).26......|
00000AD0: 4B 3A 89 32 33 00 FD 0A 1A 00 8B 59 B2 30 AF 4B |K:.23......Y.0.K|
00000AE0: B3 B1 31 AF 4B B3 B1 35 AF 4B B3 B1 38 AF 4B B3 |..1.K..5.K..8.K.|
00000AF0: B1 39 A7 99 22 12 4E 4F 20 46 49 4C 45 20 45 58 |.9..".NO FILE EX|
00000B00: 49 53 54 53 22 3A 8D 32 36 30 3A 89 31 32 00 27 |ISTS":.260:.12.'|
00000B10: 0B 1B 01 00 91 4B 89 31 32 38 2C 37 38 2C 31 30 |.....K.128,78,10|
00000B20: 30 2C 31 39 31 2C 32 36 34 2C 34 33 32 2C 34 31 |0,191,264,432,41|
00000B30: 36 2C 33 35 30 2C 33 33 37 00 31 0B 1C 00 8D 20 |6,350,337.1.... |
00000B40: 34 31 30 00 59 0B 1D 00 99 22 44 4F 20 59 4F 55 |410.Y...."DO YOU|
00000B50: 20 57 49 53 48 20 54 4F 20 12 43 92 4F 4E 54 49 | WISH TO .C.ONTI|
00000B60: 4E 55 45 20 53 45 41 52 43 48 22 00 74 0B 1E 00 |NUE SEARCH".t...|
00000B70: 99 22 4F 52 20 52 45 54 55 52 4E 20 54 4F 20 12 |."OR RETURN TO .|
00000B80: 4D 92 45 4E 55 22 00 86 0B 1F 00 A1 4B 24 3A 8B |M.ENU"......K$:.|
00000B90: 4B 24 B2 22 22 A7 33 31 00 9B 0B 20 00 8B 4B 24 |K$."".31... ..K$|
00000BA0: B2 22 43 22 A7 8D 34 31 30 3A 89 33 35 00 AA 0B |."C"..410:.35...|
00000BB0: 21 00 8B 4B 24 B2 22 4D 22 A7 31 32 00 B2 0B 22 |!..K$."M".12..."|
00000BC0: 00 89 33 31 00 CB 0B 23 00 8D 34 39 34 3A 43 4F |..31...#..494:CO|
00000BD0: B2 31 3A 4C 4E B2 32 31 3A 8D 34 39 36 00 F1 0B |.1:LN.21:.496...|
00000BE0: 24 00 99 22 53 45 41 52 43 48 20 46 4F 52 20 52 |$.."SEARCH FOR R|
00000BF0: 45 43 4F 52 44 20 42 59 20 4B 45 59 20 46 49 45 |ECORD BY KEY FIE|
00000C00: 4C 44 22 00 17 0C 25 00 99 22 01 09 2D 01 01 15 |LD"...%.."..-...|
00000C10: 2D 22 00 36 0C 26 00 99 22 45 4E 54 45 52 20 22 |-".6.&.."ENTER "|
00000C20: 22 12 22 41 24 28 30 2C 31 29 22 92 22 22 3A 22 |"."A$(0,1)"."":"|
00000C30: 3B 00 43 0C 27 00 8D 32 35 33 3A 89 34 36 00 4C |;.C.'..253:.46.L|
00000C40: 0C 28 00 8D 34 39 34 00 60 0C 29 00 43 4F B2 31 |.(..494.`.).CO.1|
00000C50: 3A 4C 4E B2 32 31 3A 8D 34 39 36 00 8A 0C 2A 00 |:LN.21:.496...*.|
00000C60: 99 22 54 48 45 52 45 20 41 52 45 20 22 59 22 20 |."THERE ARE "Y" |
00000C70: 52 45 43 4F 52 44 53 20 49 4E 20 54 48 49 53 20 |RECORDS IN THIS |
00000C80: 46 49 4C 45 22 00 AE 0C 2B 00 99 22 45 4E 54 45 |FILE"...+.."ENTE|
00000C90: 52 20 52 45 43 4F 52 44 20 4E 55 4D 42 45 52 20 |R RECORD NUMBER |
00000CA0: 3A 22 3B 3A 8D 20 32 35 33 00 E6 0C 2C 00 52 B2 |:";:. 253...,.R.|
00000CB0: C5 28 49 50 24 29 3A 8B 52 B2 30 B0 52 B1 59 A7 |.(IP$):.R.0.R.Y.|
00000CC0: 99 22 91 91 22 3A 8D 35 34 37 3A 99 22 91 22 53 |."..":.547:."."S|
00000CD0: 24 3A 99 22 91 91 22 3A 8D 34 31 30 3A 20 89 34 |$:."..":.410: .4|
00000CE0: 32 00 EF 0C 2D 00 89 31 30 31 00 FA 0C 2E 00 4C |2...-..101.....L|
00000CF0: 24 B2 49 50 24 00 06 0D 2F 00 46 B2 C3 28 4C 24 |$.IP$.../.F..(L$|
00000D00: 29 00 11 0D 30 00 81 52 B2 31 A4 59 00 2A 0D 31 |)...0..R.1.Y.*.1|
00000D10: 00 8B 4C 24 B2 C8 28 41 24 28 52 2C 31 29 2C 46 |..L$..(A$(R,1),F|
00000D20: 29 A7 31 30 31 00 30 0D 32 00 82 00 39 0D 33 00 |).101.0.2...9.3.|
00000D30: 8D 34 31 30 00 59 0D 34 00 99 22 12 4E 4F 20 53 |.410.Y.4..".NO S|
00000D40: 55 43 48 20 52 45 43 4F 52 44 20 45 58 49 53 54 |UCH RECORD EXIST|
00000D50: 53 21 92 22 00 69 0D 35 00 81 5A B2 31 A4 31 30 |S!.".i.5..Z.1.10|
00000D60: 30 30 3A 82 00 71 0D 36 00 89 32 38 00 9E 0D 37 |00:..q.6..28...7|
00000D70: 00 41 43 B2 30 3A 20 99 22 57 48 49 43 48 20 4C |.AC.0: ."WHICH L|
00000D80: 49 4E 45 20 44 4F 20 59 4F 55 20 57 49 53 48 20 |INE DO YOU WISH |
00000D90: 54 4F 20 41 4D 45 4E 44 22 00 BC 0D 38 00 99 22 |TO AMEND"...8.."|
00000DA0: 50 52 45 53 53 20 31 20 54 4F 20 22 58 22 20 3A |PRESS 1 TO "X" :|
00000DB0: 22 3B 3A 8D 32 35 33 00 D7 0D 39 00 43 B2 C5 28 |";:.253...9.C..(|
00000DC0: 49 50 24 29 3A 8B 43 B1 58 A7 8D 34 31 30 3A 89 |IP$):.C.X..410:.|
00000DD0: 35 35 00 E0 0D 3A 00 8D 34 31 30 00 19 0E 3B 00 |55...:..410...;.|
00000DE0: 99 22 45 58 49 53 54 49 4E 47 20 44 41 54 41 20 |."EXISTING DATA |
00000DF0: 46 4F 52 20 22 22 12 22 41 24 28 30 01 2C 43 29 |FOR ""."A$(0.,C)|
00000E00: 22 92 22 22 20 3D 20 22 3A 99 20 22 12 22 41 24 |"."" = ":. "."A$|
00000E10: 28 52 2C 43 29 00 3E 0E 3C 00 99 22 4E 45 57 20 |(R,C).>.<.."NEW |
00000E20: 44 41 54 41 20 22 3B 3A 99 22 5B 22 3B 3A 99 C8 |DATA ";:."[";:..|
00000E30: 28 53 24 2C 41 28 43 29 29 3B 00 5B 0E 3D 00 99 |(S$,A(C));.[.=..|
00000E40: 22 5D 22 3B 3A 99 C8 28 54 24 2C 41 28 43 29 29 |"]";:..(T$,A(C))|
00000E50: 3B 3A 99 22 9D 22 3B 00 9B 0E 3E 00 8D 32 35 33 |;:.".";...>..253|
00000E60: 3A 8B 41 41 24 28 43 29 B2 22 4E 22 A7 99 22 91 |:.AA$(C)."N"..".|
00000E70: 91 22 3A 8D 35 34 37 3A 8B 41 43 B2 31 A7 41 43 |.":.547:.AC.1.AC|
00000E80: B2 30 3A 99 22 91 22 4C 33 24 3A 99 22 01 05 91 |.0:."."L3$:."...|
00000E90: 22 3A 89 35 39 00 C5 0E 3F 00 41 24 28 52 2C 43 |":.59...?.A$(R,C|
00000EA0: 29 B2 49 50 24 3A 99 3A 8B 41 24 28 52 2C 43 29 |).IP$:.:.A$(R,C)|
00000EB0: B2 22 22 A7 41 24 28 52 2C 43 29 B2 22 2D 22 00 |."".A$(R,C)."-".|
00000EC0: F2 0E 40 00 8B C3 28 41 24 28 52 2C 43 29 29 B1 |..@...(A$(R,C)).|
00000ED0: 41 28 43 29 A7 41 24 28 52 2C 43 29 B2 C8 28 41 |A(C).A$(R,C)..(A|
00000EE0: 24 28 52 2C 43 29 2C 41 28 43 29 29 00 FA 0E 41 |$(R,C),A(C))...A|
00000EF0: 00 43 B2 32 00 03 0F 42 00 89 31 01 30 31 00 0C |.C.2...B..1.01..|
00000F00: 0F 43 00 8D 32 36 33 00 33 0F 44 00 99 22 57 48 |.C..263.3.D.."WH|
00000F10: 49 43 48 20 4C 49 4E 45 20 44 4F 20 59 4F 55 20 |ICH LINE DO YOU |
00000F20: 57 49 53 48 20 54 4F 20 41 4D 45 4E 44 22 00 52 |WISH TO AMEND".R|
00000F30: 0F 45 00 99 22 50 52 45 53 53 20 31 20 54 4F 20 |.E.."PRESS 1 TO |
00000F40: 22 58 22 20 3A 22 3B 3A 8D 32 35 33 3B 00 6D 0F |"X" :";:.253;.m.|
00000F50: 46 00 43 B2 C5 28 49 50 24 29 3A 8B 43 B1 58 A7 |F.C..(IP$):.C.X.|
00000F60: 8D 34 31 30 3A 89 36 38 00 76 0F 47 00 8D 34 31 |.410:.68.v.G..41|
00000F70: 30 00 86 0F 48 00 99 22 12 22 41 24 28 30 2C 43 |0...H.."."A$(0,C|
00000F80: 29 00 C6 0F 49 00 99 22 45 4E 54 45 52 20 43 4F |)...I.."ENTER CO|
00000F90: 52 52 45 43 54 20 46 49 45 4C 44 20 48 45 41 44 |RRECT FIELD HEAD|
00000FA0: 49 4E 47 20 5B 01 09 20 5D 01 0A 9D 22 3B 3A 8D |ING [.. ]...";:.|
00000FB0: 20 32 35 33 00 D8 0F 4A 00 41 24 28 30 2C 43 29 | 253...J.A$(0,C)|
00000FC0: B2 49 50 24 3A 99 00 02 10 4B 00 8B C3 28 41 24 |.IP$:....K...(A$|
00000FD0: 28 30 2C 43 29 29 B3 39 A7 41 24 28 30 2C 43 29 |(0,C)).9.A$(0,C)|
00000FE0: B2 41 24 28 30 2C 43 29 AA 22 20 22 3A 89 37 01 |.A$(0,C)." ":.7.|
00000FF0: 35 00 29 10 4C 00 8B C3 28 41 24 28 30 2C 43 29 |5.).L...(A$(0,C)|
00001000: 29 B1 39 A7 41 24 28 30 2C 43 29 B2 C8 28 41 24 |).9.A$(0,C)..(A$|
00001010: 28 30 2C 43 29 2C 39 29 00 32 10 4D 00 89 31 30 |(0,C),9).2.M..10|
00001020: 31 00 64 10 4E 00 99 22 45 4E 54 45 52 20 4E 45 |1.d.N.."ENTER NE|
00001030: 57 20 46 49 4C 45 20 4E 41 4D 45 20 5B 01 09 20 |W FILE NAME [.. |
00001040: 5D 01 0A 9D 22 3B 00 78 10 4F 00 8D 32 35 33 3A |]...";.x.O..253:|
00001050: 4E 24 B2 49 50 24 3A 89 31 32 00 AB 10 50 00 8D |N$.IP$:.12...P..|
00001060: 34 39 34 3A 43 4F B2 31 3A 4C 4E B2 32 31 3A 8D |494:CO.1:LN.21:.|
00001070: 34 39 36 3A 99 22 44 4F 20 59 4F 55 20 57 49 53 |496:."DO YOU WIS|
00001080: 48 20 54 4F 20 41 4D 45 4E 44 3A 2D 22 00 CC 10 |H TO AMEND:-"...|
00001090: 51 00 99 22 46 49 45 4C 44 20 12 48 92 45 41 44 |Q.."FIELD .H.EAD|
000010A0: 49 4E 47 20 4F 52 20 12 44 92 41 54 41 22 00 DE |ING OR .D.ATA"..|
000010B0: 10 52 00 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 38 32 |.R..K$:.K$."".82|
000010C0: 00 F3 10 53 00 8B 4B 24 B2 22 48 22 A7 8D 34 31 |...S..K$."H"..41|
000010D0: 30 3A 89 36 38 00 08 11 54 00 8B 4B 24 B2 22 44 |0:.68...T..K$."D|
000010E0: 22 A7 8D 34 31 30 3A 89 35 35 00 10 11 55 00 89 |"..410:.55...U..|
000010F0: 38 32 00 32 11 56 00 99 C7 28 31 34 37 29 3B 3A |82.2.V...(147);:|
00001100: 52 53 B2 52 3A 81 52 B2 52 53 A4 59 3A 99 C7 28 |RS.R:.R.RS.Y:..(|
00001110: 31 39 29 3B 00 65 11 57 00 99 22 12 20 52 45 43 |19);.e.W..". REC|
00001120: 4F 52 44 53 20 57 49 4C 4C 20 44 49 53 50 4C 41 |ORDS WILL DISPLA|
00001130: 59 20 49 4E 20 4C 4F 47 49 43 41 4C 20 4F 52 44 |Y IN LOGICAL ORD|
00001140: 45 52 20 92 22 3A 99 00 A7 11 58 00 43 4F B2 31 |ER .":....X.CO.1|
00001150: 3A 4C 4E B2 32 34 3A 8D 34 39 36 3A 99 22 12 43 |:LN.24:.496:.".C|
00001160: 92 4F 4E 54 49 4E 55 45 20 53 43 52 4F 4C 4C 3A |.ONTINUE SCROLL:|
00001170: 20 20 12 53 92 54 4F 50 20 53 43 52 4F 4C 4C 3A | .S.TOP SCROLL:|
00001180: 20 20 12 45 92 58 49 54 3A 00 D4 11 59 00 43 4F | .E.XIT:...Y.CO|
00001190: B2 31 3A 4C 4E B2 33 3A 8D 34 39 36 3A 99 22 52 |.1:LN.3:.496:."R|
000011A0: 45 43 4F 52 44 20 4E 4F 3A 20 22 3B 52 3A 99 3A |ECORD NO: ";R:.:|
000011B0: 81 43 B2 31 A4 58 00 00 12 5A 00 99 22 12 22 41 |.C.1.X...Z.."."A|
000011C0: 24 28 30 2C 43 29 22 92 22 3B 3A 51 B2 C3 28 41 |$(0,C)".";:Q..(A|
000011D0: 24 28 52 2C 43 29 29 3A 8B 51 B1 32 36 A7 51 B2 |$(R,C)):.Q.26.Q.|
000011E0: 32 36 00 22 12 5B 00 99 A3 31 32 29 C8 28 41 24 |26.".[...12).(A$|
000011F0: 28 52 2C 43 29 2C 32 36 29 AA C8 28 53 24 2C 32 |(R,C),26)..(S$,2|
00001200: 36 AB 51 29 00 2D 12 5C 00 8B 43 B2 31 A7 99 00 |6.Q).-.\..C.1...|
00001210: 3C 12 5D 00 8B 52 4E B3 B1 30 A7 35 30 35 00 43 |<.]..RN..0.505.C|
00001220: 12 5E 00 82 43 00 5C 12 5F 00 4B 24 B2 22 22 3A |.^..C.\._.K$."":|
00001230: A1 4B 24 3A 8B 4B 24 B2 22 53 22 A7 39 38 00 78 |.K$:.K$."S".98.x|
00001240: 12 60 00 8B 4B 24 B3 B1 22 45 22 A7 81 49 B2 31 |.`..K$.."E"..I.1|
00001250: A4 35 30 30 3A 82 49 3A 82 52 00 81 12 61 00 89 |.500:.I:.R...a..|
00001260: 31 30 31 00 A3 12 62 00 4B 24 B2 22 22 3A A1 4B |101...b.K$."":.K|
00001270: 24 3A 8B 4B 24 B3 B1 22 43 22 AF 4B 24 B3 B1 22 |$:.K$.."C".K$.."|
00001280: 45 22 A7 39 38 00 AB 12 63 00 89 39 36 00 B3 12 |E".98...c..96...|
00001290: 64 00 52 B2 31 00 BB 12 65 00 41 B2 31 00 C8 12 |d.R.1...e.A.1...|
000012A0: 66 00 8B 52 B2 30 A7 52 B2 31 00 DB 12 67 00 8B |f..R.0.R.1...g..|
000012B0: 52 B1 59 A7 52 B2 52 AB 31 3A 52 B2 59 00 E8 12 |R.Y.R.R.1:R.Y...|
000012C0: 68 00 8B 41 B2 30 A7 41 B2 31 00 F8 12 69 00 8B |h..A.0.A.1...i..|
000012D0: 41 B1 32 35 A7 41 B2 41 AB 31 00 23 13 6A 00 99 |A.25.A.A.1.#.j..|
000012E0: C7 28 31 01 34 37 29 3A 99 22 12 22 3B 4E 24 A3 |.(1.47):.".";N$.|
000012F0: 31 39 29 22 52 45 43 4F 52 44 20 4E 4F 22 3B 52 |19)"RECORD NO";R|
00001300: 3A 8D 20 32 36 33 00 2E 13 6B 00 81 43 B2 31 A4 |:. 263...k..C.1.|
00001310: 58 00 3A 13 6C 00 47 47 B2 41 28 43 29 00 4B 13 |X.:.l.GG.A(C).K.|
00001320: 6D 00 8B 47 47 B1 32 34 A7 47 47 B2 32 34 00 5C |m..GG.24.GG.24.\|
00001330: 13 6E 00 99 22 12 22 C4 28 43 29 22 92 22 3B 00 |.n..".".(C)".";.|
00001340: 8A 13 6F 00 99 A3 34 29 22 12 22 C8 28 41 24 28 |..o...4)".".(A$(|
00001350: 30 2C 43 29 2C 39 29 22 92 22 A3 31 35 29 CA 28 |0,C),9)".".15).(|
00001360: 41 24 28 52 2C 43 29 2C 41 2C 47 47 29 00 98 13 |A$(R,C),A,GG)...|
00001370: 70 00 8B 43 B2 31 A7 8D 32 36 33 00 9E 13 71 00 |p..C.1..263...q.|
00001380: 82 00 B7 13 72 00 43 4F B2 31 3A 4C 4E B2 32 30 |....r.CO.1:LN.20|
00001390: 3A 8D 34 39 36 3A 99 4C 33 24 00 E3 13 73 00 99 |:.496:.L3$...s..|
000013A0: 22 01 0D 20 12 2A 2A 4F 50 54 49 4F 4E 53 2A 2A |".. .**OPTIONS**|
000013B0: 92 01 0A 20 22 00 1D 14 74 00 99 22 50 52 45 53 |... "...t.."PRES|
000013C0: 53 20 3A 20 12 4E 92 45 58 54 20 12 4C 92 41 53 |S : .N.EXT .L.AS|
000013D0: 54 20 12 46 92 49 4E 44 20 12 47 92 4F 54 4F 20 |T .F.IND .G.OTO |
000013E0: 12 41 92 4D 45 4E 44 20 12 4D 92 45 4E 55 22 00 |.A.MEND .M.ENU".|
000013F0: 55 14 75 00 99 22 12 43 92 41 4C 43 53 20 12 49 |U.u..".C.ALCS .I|
00001400: 92 4E 50 55 54 20 12 44 92 45 4C 45 54 45 20 12 |.NPUT .D.ELETE .|
00001410: 50 92 52 49 4E 54 20 12 53 92 43 52 4F 4C 4C 20 |P.RINT .S.CROLL |
00001420: 12 3C 92 20 12 3E 22 00 5E 14 76 00 99 4C 33 24 |.<. .>".^.v..L3$|
00001430: 00 71 14 77 00 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 |.q.w..K$:.K$."".|
00001440: 31 31 39 00 A4 14 78 00 4B 4B 24 B2 22 4E 4C 4D |119...x.KK$."NLM|
00001450: 49 47 46 53 3E 3C 41 50 43 44 22 3A 81 4B B2 31 |IGFS><APCD":.K.1|
00001460: A4 31 33 3A 8B 4B 24 B2 CA 28 4B 4B 24 2C 4B 2C |.13:.K$..(KK$,K,|
00001470: 31 29 A7 31 32 32 00 B0 14 79 00 82 4B 3A 89 31 |1).122...y..K:.1|
00001480: 31 39 00 E6 14 7A 00 91 4B 89 31 32 33 2C 31 32 |19...z..K.123,12|
00001490: 34 2C 31 32 2C 31 32 35 2C 34 30 2C 33 35 2C 38 |4,12,125,40,35,8|
000014A0: 36 2C 31 32 36 2C 31 32 37 2C 38 30 2C 33 36 33 |6,126,127,80,363|
000014B0: 2C 33 37 32 2C 34 38 33 00 F6 14 7B 00 52 B2 52 |,372,483...{.R.R|
000014C0: AA 31 3A 89 20 31 30 31 00 06 15 7C 00 52 B2 52 |.1:. 101...|.R.R|
000014D0: AB 31 3A 01 89 20 31 30 31 00 18 15 7D 00 46 B2 |.1:.. 101...}.F.|
000014E0: 31 3A 54 56 B2 52 3A 89 31 37 32 00 27 15 7E 00 |1:TV.R:.172.'.~.|
000014F0: 41 B2 41 AA 31 3A 89 31 30 32 00 36 15 7F 00 41 |A.A.1:.102.6...A|
00001500: B2 41 AB 31 3A 89 31 30 32 00 6D 15 80 00 99 C7 |.A.1:.102.m.....|
00001510: 28 31 34 37 29 3A 99 3A 99 22 12 2A 2A 57 41 52 |(147):.:.".**WAR|
00001520: 4E 49 4E 47 2A 2A 20 54 48 49 53 20 57 49 4C 4C |NING** THIS WILL|
00001530: 20 45 52 41 53 45 20 41 4E 59 20 46 49 4C 45 22 | ERASE ANY FILE"|
00001540: 00 92 15 81 00 99 22 12 43 55 52 52 45 4E 54 4C |......".CURRENTL|
00001550: 59 20 49 4E 20 4D 45 4D 4F 52 59 92 22 3A 99 3A |Y IN MEMORY.":.:|
00001560: 99 3A 99 3A 99 00 B6 15 82 00 99 A3 38 29 20 22 |.:.:........8) "|
00001570: 01 18 A3 22 00 D8 15 83 00 99 A3 38 29 22 50 52 |...".......8)"PR|
00001580: 45 53 53 20 12 59 92 45 53 20 54 4F 20 43 4F 4E |ESS .Y.ES TO CON|
00001590: 54 49 4E 55 45 22 00 F6 15 84 00 99 A3 38 29 22 |TINUE".......8)"|
000015A0: 01 06 20 12 4E 92 4F 20 46 4F 52 20 4D 45 4E 55 |.. .N.O FOR MENU|
000015B0: 22 00 1A 16 85 00 99 A3 38 29 20 22 01 01 18 A3 |".......8) "....|
000015C0: 22 00 23 16 86 00 8D 35 31 32 00 32 16 87 00 8B |".#....512.2....|
000015D0: 4B 24 B2 22 4E 22 A7 31 32 00 43 16 88 00 8B 4B |K$."N".12.C....K|
000015E0: 24 B2 22 59 22 A7 20 31 33 37 00 56 16 89 00 99 |$."Y". 137.V....|
000015F0: C7 28 31 34 37 29 3A 9C 3A 8D 34 31 32 00 8D 16 |.(147):.:.412...|
00001600: 8A 00 99 22 4B 45 59 20 44 41 54 45 20 45 47 2E |..."KEY DATE EG.|
00001610: 28 32 38 2E 31 32 2E 38 32 29 5B 01 08 20 5D 01 |(28.12.82)[.. ].|
00001620: 09 9D 22 3B 3A 8D 32 35 33 00 9D 16 8B 00 8B 49 |..";:.253......I|
00001630: 50 24 B2 22 22 A7 31 34 31 00 C8 16 8C 00 8D 35 |P$."".141......5|
00001640: 34 37 3A 8B 41 43 B2 31 A7 41 43 B2 30 3A 99 22 |47:.AC.1.AC.0:."|
00001650: 91 22 53 24 22 91 22 3A 99 22 01 04 91 22 3A 89 |."S$".":."...":.|
00001660: 31 33 38 00 E0 16 8D 00 4D 24 B2 C8 28 49 50 24 |138.....M$..(IP$|
00001670: 2C 38 29 3A 99 C7 28 31 34 37 29 00 FD 16 8E 00 |,8):..(147).....|
00001680: 99 A3 31 32 29 22 12 43 52 45 41 54 45 20 52 45 |..12)".CREATE RE|
00001690: 43 4F 52 44 92 22 3A 99 00 06 17 8F 01 00 8D 32 |CORD.":........2|
000016A0: 36 33 00 39 17 90 00 99 22 57 48 41 54 20 49 53 |63.9...."WHAT IS|
000016B0: 20 54 48 45 20 46 49 4C 45 20 4E 41 4D 45 20 3F | THE FILE NAME ?|
000016C0: 5B 01 08 20 5D 01 09 9D 22 3B 00 42 17 91 00 8D |[.. ]...";.B....|
000016D0: 32 35 33 00 54 17 92 00 4E 24 B2 C8 28 49 50 24 |253.T...N$..(IP$|
000016E0: 2C 38 29 3A 99 00 5E 17 93 00 8D 20 32 36 33 00 |,8):..^.... 263.|
000016F0: 95 17 94 00 99 22 48 4F 57 20 4D 41 4E 59 20 46 |....."HOW MANY F|
00001700: 49 45 4C 44 53 20 49 4E 20 45 41 43 48 20 52 45 |IELDS IN EACH RE|
00001710: 43 4F 52 44 20 3F 20 5B 20 20 5D 9D 9D 9D 22 3B |CORD ? [ ]...";|
00001720: 3A 8D 20 32 35 33 00 A9 17 95 00 58 B2 C5 28 C8 |:. 253.....X..(.|
00001730: 28 49 50 24 2C 32 29 29 3A 99 00 CF 17 96 00 8B |(IP$,2)):.......|
00001740: 58 B3 31 B0 58 B1 31 35 A7 99 22 12 4D 41 58 49 |X.1.X.15..".MAXI|
00001750: 4D 55 4D 20 49 53 20 31 35 92 22 3A 89 31 34 38 |MUM IS 15.":.148|
00001760: 00 E4 17 97 00 8D 34 31 35 3A 99 C7 28 31 34 37 |......415:..(147|
00001770: 29 3A 43 B2 31 00 08 18 98 00 99 22 12 54 48 49 |):C.1......".THI|
00001780: 53 20 46 49 4C 45 20 49 53 20 4E 41 4D 45 44 20 |S FILE IS NAMED |
00001790: 22 3B 01 4E 24 3A 8D 32 36 33 00 39 18 99 00 99 |";.N$:.263.9....|
000017A0: 22 4E 4F 54 45 20 54 48 41 54 20 46 49 45 4C 44 |"NOTE THAT FIELD|
000017B0: 20 31 20 49 53 20 54 48 45 20 12 20 4B 45 59 20 | 1 IS THE . KEY |
000017C0: 46 49 45 4C 44 20 92 A0 22 3A 99 00 42 18 9A 00 |FIELD ..":..B...|
000017D0: 8D 32 36 33 00 7D 18 9B 00 99 22 53 54 41 54 45 |.263.}...."STATE|
000017E0: 20 12 20 54 49 54 4C 45 20 92 20 4F 46 20 46 49 | . TITLE . OF FI|
000017F0: 45 4C 44 22 43 22 20 20 5B 01 09 20 5D 01 0A 9D |ELD"C" [.. ]...|
00001800: 22 3B 00 88 18 9C 00 8D 32 35 33 3A 99 00 9D 18 |";......253:....|
00001810: 9D 00 41 24 28 30 2C 43 29 B2 C8 28 49 50 24 2C |..A$(0,C)..(IP$,|
00001820: 39 29 00 C8 18 9E 00 8B C3 28 41 24 28 30 2C 43 |9).......(A$(0,C|
00001830: 29 29 B3 39 A7 41 24 28 30 2C 43 29 B2 41 24 28 |)).9.A$(0,C).A$(|
00001840: 30 2C 43 29 AA 22 20 22 3A 89 31 35 38 00 00 19 |0,C)." ":.158...|
00001850: 9F 00 99 22 45 4E 54 45 52 20 12 43 92 48 41 52 |..."ENTER .C.HAR|
00001860: 41 43 54 45 52 20 4F 52 20 12 4E 92 55 4D 45 52 |ACTER OR .N.UMER|
00001870: 49 43 20 46 49 45 4C 44 20 5B 20 5D 9D 9D 22 3B |IC FIELD [ ]..";|
00001880: 3A 8D 32 35 33 00 16 19 A0 00 41 41 24 28 43 29 |:.253.....AA$(C)|
00001890: B2 C8 28 49 50 24 2C 31 29 3A 99 00 2A 19 A1 00 |..(IP$,1):..*...|
000018A0: 8B 41 41 24 28 43 29 B2 22 4E 22 A7 31 36 34 00 |.AA$(C)."N".164.|
000018B0: 3E 19 A2 00 8B 41 41 24 28 43 29 B2 22 43 22 A7 |>....AA$(C)."C".|
000018C0: 31 36 36 00 4C 19 A3 00 8D 34 31 30 3A 89 31 35 |166.L....410:.15|
000018D0: 39 00 59 19 A4 00 41 28 43 29 B2 39 3A 99 00 62 |9.Y...A(C).9:..b|
000018E0: 19 A5 00 89 31 37 30 00 8F 19 A6 00 99 22 45 4E |....170......"EN|
000018F0: 54 45 52 20 4E 55 4D 42 45 52 20 4F 46 20 43 48 |TER NUMBER OF CH|
00001900: 41 52 41 43 54 45 52 53 20 46 4F 52 20 52 45 43 |ARACTERS FOR REC|
00001910: 4F 52 44 22 00 B6 19 A7 00 99 22 4D 41 58 2E 33 |ORD"......"MAX.3|
00001920: 36 20 43 48 41 52 41 43 54 45 52 53 20 5B 20 20 |6 CHARACTERS [ |
00001930: 5D 9D 9D 9D 22 3B 3A 8D 32 35 33 00 C8 19 A8 00 |]...";:.253.....|
00001940: 41 28 43 29 B2 C5 28 49 50 24 29 3A 99 00 E5 19 |A(C)..(IP$):....|
00001950: A9 00 8B 41 28 43 29 B1 33 36 A7 99 22 91 91 22 |...A(C).36..".."|
00001960: 3A 8D 34 31 30 3A 89 31 36 36 00 F2 19 AA 00 8B |:.410:.166......|
00001970: 43 B2 58 A7 31 37 32 00 06 1A AB 00 43 B2 43 AA |C.X.172.....C.C.|
00001980: 31 3A 99 22 93 22 3A 89 31 35 32 00 20 1A AC 00 |1:.".":.152. ...|
00001990: 8B 46 B2 31 A7 52 B2 59 AA 31 3A 59 B2 59 AA 31 |.F.1.R.Y.1:Y.Y.1|
000019A0: 3A 89 31 37 34 00 2C 1A AD 00 52 B2 31 3A 59 B2 |:.174.,...R.1:Y.|
000019B0: 31 00 3B 1A AE 00 8B 52 B1 32 30 30 A7 35 33 33 |1.;....R.200.533|
000019C0: 00 6D 1A AF 00 99 C7 28 31 34 37 29 3A 41 43 B2 |.m.....(147):AC.|
000019D0: 30 3A 20 99 A3 31 32 29 22 12 52 45 43 4F 52 44 |0: ..12)".RECORD|
000019E0: 20 4E 55 4D 42 45 52 22 3B 52 22 92 22 3A 8D 32 | NUMBER";R".":.2|
000019F0: 36 33 00 9C 1A B0 00 99 A3 33 29 22 54 4F 20 54 |63.......3)"TO T|
00001A00: 45 52 4D 49 4E 41 54 45 20 44 41 54 41 20 45 4E |ERMINATE DATA EN|
00001A10: 54 52 59 20 54 59 50 45 20 27 45 4E 44 27 22 3A |TRY TYPE 'END'":|
00001A20: 99 00 A7 1A B1 00 8D 32 36 33 3A 99 00 B2 1A B2 |.......263:.....|
00001A30: 00 81 43 B2 31 A4 58 00 D8 1A B3 00 99 22 4B 45 |..C.1.X......"KE|
00001A40: 59 20 22 41 24 28 30 2C 43 29 3A 99 22 5B 22 3B |Y "A$(0,C):."[";|
00001A50: 3A 99 C8 28 53 24 2C 41 28 43 29 29 3B 00 FA 1A |:..(S$,A(C));...|
00001A60: B4 00 99 22 5D 22 3B 3A 99 C8 28 54 24 2C 41 28 |..."]";:..(T$,A(|
00001A70: 43 29 29 3B 3A 99 22 9D 22 3B 3A 8D 32 35 33 00 |C));:.".";:.253.|
00001A80: 1F 1B B5 00 8B 49 01 50 24 B2 22 45 4E 44 22 AF |.....I.P$."END".|
00001A90: 20 46 B2 30 20 A7 20 52 B2 31 3A 59 B2 59 AB 31 | F.0 . R.1:Y.Y.1|
00001AA0: 3A 89 20 31 32 00 42 1B B6 00 8B 49 50 24 B2 22 |:. 12.B....IP$."|
00001AB0: 3D 22 A7 41 24 28 52 2C 43 29 B2 41 24 28 54 56 |=".A$(R,C).A$(TV|
00001AC0: 2C 43 29 3A 89 31 38 37 00 6A 1B B7 00 8B 49 50 |,C):.187.j....IP|
00001AD0: 24 B2 22 45 4E 44 22 AF 46 B2 31 A7 46 B2 30 3A |$."END".F.1.F.0:|
00001AE0: 52 B2 52 AB 31 3A 59 B2 59 AB 31 3A 89 31 30 31 |R.R.1:Y.Y.1:.101|
00001AF0: 00 A4 1B B8 00 8B 41 41 24 28 43 29 B2 22 4E 22 |......AA$(C)."N"|
00001B00: A7 8D 35 34 37 3A 8B 41 43 B2 31 A7 41 43 B2 30 |..547:.AC.1.AC.0|
00001B10: 3A 99 22 91 22 53 24 3A 99 22 91 22 3A 99 22 01 |:."."S$:.".":.".|
00001B20: 05 91 22 3A 89 31 37 39 00 BE 1B B9 00 41 24 28 |..":.179.....A$(|
00001B30: 52 2C 43 29 B2 C8 28 49 50 24 2C 41 28 43 29 29 |R,C)..(IP$,A(C))|
00001B40: 3A 99 00 DA 1B BA 00 8B 41 24 28 52 2C 43 29 B2 |:.......A$(R,C).|
00001B50: 22 22 A7 41 24 28 52 2C 43 29 B2 22 2D 22 00 E3 |"".A$(R,C)."-"..|
00001B60: 1B BB 00 8D 32 36 33 00 E9 1B BC 00 82 00 FB 1B |....263.........|
00001B70: BD 00 8B 46 B2 31 A7 46 B2 30 3A 89 31 30 31 00 |...F.1.F.0:.101.|
00001B80: 11 1C BE 00 52 B2 52 AA 31 3A 59 B2 59 AA 31 3A |....R.R.1:Y.Y.1:|
00001B90: 89 20 31 37 34 00 3E 1C BF 00 99 C7 28 31 34 37 |. 174.>.....(147|
00001BA0: 29 3A 99 A3 31 35 29 22 12 2A 2A 53 45 4C 45 43 |):..15)".**SELEC|
00001BB0: 54 2A 2A 22 3A 8D 32 36 33 3A 45 B2 30 3A 52 43 |T**":.263:E.0:RC|
00001BC0: B2 30 00 84 1C C0 00 99 22 44 4F 20 59 4F 55 20 |.0......"DO YOU |
00001BD0: 57 41 4E 54 20 54 4F 20 4F 55 54 50 55 54 20 52 |WANT TO OUTPUT R|
00001BE0: 45 53 55 4C 54 53 20 54 4F 22 3A 99 22 50 52 49 |ESULTS TO":."PRI|
00001BF0: 4E 54 45 52 3A 20 4B 45 59 20 12 59 92 45 53 20 |NTER: KEY .Y.ES |
00001C00: 4F 52 20 12 4E 92 4F 22 00 8D 1C C1 00 8D 32 36 |OR .N.O"......26|
00001C10: 33 00 96 1C C2 00 8D 35 31 32 00 AC 1C C3 00 8B |3......512......|
00001C20: 4B 24 B2 22 59 22 A7 50 52 B2 35 3A 89 31 39 37 |K$."Y".PR.5:.197|
00001C30: 00 C2 1C C4 00 8B 4B 24 B2 22 4E 22 A7 50 52 B2 |......K$."N".PR.|
00001C40: 30 3A 89 31 39 37 00 D2 1C C5 00 8B 50 52 B2 30 |0:.197......PR.0|
00001C50: A7 54 54 B2 31 35 00 DD 1C C6 00 81 52 B2 31 A4 |.TT.15......R.1.|
00001C60: 59 00 1E 1D C7 00 8D 34 31 30 3A 99 22 91 45 4E |Y......410:.".EN|
00001C70: 54 45 52 20 53 45 4C 45 43 54 45 44 20 12 46 49 |TER SELECTED .FI|
00001C80: 45 4C 44 92 20 01 5B 01 09 20 5D 01 0A 9D 22 3B |ELD. .[.. ]...";|
00001C90: 3A 8D 32 35 33 3B 00 2C 1D C8 00 44 50 24 B2 49 |:.253;.,...DP$.I|
00001CA0: 50 24 3A 99 00 4B 1D C9 00 8B C3 28 44 50 24 29 |P$:..K.....(DP$)|
00001CB0: B3 39 A7 44 50 24 B2 44 50 24 AA 22 20 22 3A 89 |.9.DP$.DP$." ":.|
00001CC0: 32 30 31 00 5A 1D CA 00 99 3A 8D 32 36 33 3A 43 |201.Z....:.263:C|
00001CD0: B2 31 00 6F 1D CB 00 8B 41 24 28 30 2C 43 29 B2 |.1.o....A$(0,C).|
00001CE0: 44 50 24 A7 32 30 36 00 84 1D CC 00 43 B2 43 AA |DP$.206.....C.C.|
00001CF0: 31 3A 8B 43 B3 58 AA 31 A7 32 30 33 00 A6 1D CD |1:.C.X.1.203....|
00001D00: 00 45 4D 24 B2 22 12 4E 4F 20 53 55 43 48 20 46 |.EM$.".NO SUCH F|
00001D10: 49 45 4C 44 22 3A 8D 32 36 30 3A 89 31 32 00 BB |IELD":.260:.12..|
00001D20: 1D CE 00 99 22 45 4E 54 45 52 20 12 22 44 50 24 |...."ENTER ."DP$|
00001D30: 22 92 22 00 D2 1D CF 00 99 22 5B 22 3B 3A 99 C8 |"."......"[";:..|
00001D40: 28 53 24 2C 41 28 43 29 29 3B 00 EF 1D D0 00 99 |(S$,A(C));......|
00001D50: 22 5D 22 3B 3A 99 C8 28 54 24 2C 41 28 43 29 29 |"]";:..(T$,A(C))|
00001D60: 3B 3A 99 22 9D 22 3B 00 08 1E D1 00 8D 32 35 33 |;:.".";......253|
00001D70: 3A 43 50 24 B2 49 50 24 3A 99 3A 8D 20 32 36 33 |:CP$.IP$:.:. 263|
00001D80: 00 15 1E D2 00 46 B2 C3 28 43 50 24 29 00 3A 1E |.....F..(CP$).:.|
00001D90: D3 00 99 C7 28 31 34 37 29 3A 99 3A 8D 20 32 36 |....(147):.:. 26|
00001DA0: 33 3A 8B 41 41 24 28 43 29 B3 B1 22 43 22 A7 32 |3:.AA$(C).."C".2|
00001DB0: 31 34 00 63 1E D4 00 99 22 44 4F 20 59 4F 55 20 |14.c...."DO YOU |
00001DC0: 57 41 4E 54 20 41 20 53 54 41 4E 44 41 52 44 20 |WANT A STANDARD |
00001DD0: 4F 52 20 53 4C 49 44 49 4E 47 22 00 A2 1E D5 00 |OR SLIDING".....|
00001DE0: 99 22 53 54 52 49 4E 47 20 53 45 41 52 43 48 3A |."STRING SEARCH:|
00001DF0: 20 45 4E 54 45 52 20 12 53 54 92 20 4F 52 20 12 | ENTER .ST. OR .|
00001E00: 53 53 92 20 5B 20 20 5D 9D 9D 9D 22 3B 3A 8D 32 |SS. [ ]...";:.2|
00001E10: 35 33 3A 53 54 24 B2 49 50 24 00 CB 1E D6 00 99 |53:ST$.IP$......|
00001E20: C7 28 31 34 37 29 3A 99 3A 8D 20 32 36 33 3A 8B |.(147):.:. 263:.|
00001E30: 41 41 24 28 43 29 B2 22 4E 22 A7 4A B2 31 3A 89 |AA$(C)."N".J.1:.|
00001E40: 32 31 37 00 E7 1E D7 00 8B 53 54 24 B2 22 53 53 |217......ST$."SS|
00001E50: 22 A7 53 53 B2 31 3A 49 B2 31 3A 89 32 32 35 00 |".SS.1:I.1:.225.|
00001E60: 07 1F D8 00 8B 53 54 24 B2 22 53 54 22 A7 53 53 |.....ST$."ST".SS|
00001E70: B2 30 3A 49 B2 31 3A 4A B2 31 3A 89 32 32 35 00 |.0:I.1:J.1:.225.|
00001E80: 25 1F D9 00 99 22 53 48 4F 55 4C 44 20 12 20 22 |%...."SHOULD . "|
00001E90: 44 50 24 22 20 92 20 42 45 3A 22 3A 99 00 43 1F |DP$" . BE:":..C.|
00001EA0: DA 00 99 A3 32 29 22 12 45 92 51 55 41 4C 20 54 |....2)".E.QUAL T|
00001EB0: 4F 22 A3 31 35 29 43 50 24 3A 99 00 62 1F DB 00 |O".15)CP$:..b...|
00001EC0: 99 A3 32 29 22 12 4C 92 45 53 53 20 54 48 41 4E |..2)".L.ESS THAN|
00001ED0: 22 A3 31 35 29 43 50 24 3A 99 00 84 1F DC 00 99 |".15)CP$:.......|
00001EE0: A3 32 29 22 12 47 92 52 45 41 54 45 52 20 54 48 |.2)".G.REATER TH|
00001EF0: 41 4E 22 A3 31 35 29 43 50 24 3A 99 00 97 1F DD |AN".15)CP$:.....|
00001F00: 00 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 32 32 31 00 |..K$:.K$."".221.|
00001F10: BF 1F DE 00 4B 4B 24 B2 22 45 4C 47 22 3A 81 49 |....KK$."ELG":.I|
00001F20: B2 31 A4 33 3A 8B 4B 24 B2 CA 28 4B 4B 24 2C 49 |.1.3:.K$..(KK$,I|
00001F30: 2C 31 29 A7 32 32 34 00 CB 1F DF 00 82 49 3A 89 |,1).224......I:.|
00001F40: 32 32 31 00 DD 1F E0 00 99 C7 28 31 34 37 29 3A |221.......(147):|
00001F50: 8D 20 32 36 33 00 1B 20 E1 00 41 52 B2 32 34 3A |. 263.. ..AR.24:|
00001F60: 8B 50 52 B2 35 A7 8D 35 31 34 3A 99 22 13 22 A3 |.PR.5..514:.".".|
00001F70: 31 34 29 22 12 2A 2A 50 52 49 4E 54 49 4E 47 2A |14)".**PRINTING*|
00001F80: 2A 92 22 3A 41 52 B2 41 28 31 29 3A 9F 34 2C 34 |*.":AR.A(1):.4,4|
00001F90: 3A 9D 34 00 48 20 E2 00 99 22 46 49 4C 45 20 4E |:.4.H ..."FILE N|
00001FA0: 41 4D 45 20 3A 20 22 4E 24 3A 99 3A 99 22 53 45 |AME : "N$:.:."SE|
00001FB0: 4C 45 43 54 49 4F 4E 20 3A 20 22 44 50 24 3A 99 |LECTION : "DP$:.|
00001FC0: 00 5B 20 E3 00 91 49 89 32 34 30 2C 32 32 38 2C |.[ ...I.240,228,|
00001FD0: 32 33 34 00 81 20 E4 00 99 22 43 52 49 54 45 52 |234.. ..."CRITER|
00001FE0: 49 41 20 20 3C 20 22 43 50 24 22 20 22 3A 8D 32 |IA < "CP$" ":.2|
00001FF0: 36 33 3A 81 52 B2 31 A4 59 00 8A 20 E5 00 8D 35 |63:.R.1.Y.. ...5|
00002000: 30 38 00 CA 20 E6 00 8B C5 28 41 24 28 52 2C 43 |08.. ....(A$(R,C|
00002010: 29 29 B3 C5 28 43 50 24 29 A7 99 22 52 45 43 4F |))..(CP$).."RECO|
00002020: 52 44 20 4E 4F 20 22 3B 52 A3 54 54 29 C8 28 41 |RD NO ";R.TT).(A|
00002030: 24 28 52 2C 31 29 2C 41 52 29 3A 52 43 B2 52 43 |$(R,1),AR):RC.RC|
00002040: AA 31 00 D0 20 E7 00 82 00 E0 20 E8 00 8B 50 52 |.1.. ..... ...PR|
00002050: B2 35 A7 98 34 3A A0 34 00 E9 20 E9 00 89 32 34 |.5..4:.4.. ...24|
00002060: 39 00 0F 21 EA 00 99 22 43 52 49 54 45 52 49 41 |9..!..."CRITERIA|
00002070: 20 20 3E 20 22 43 50 24 22 20 22 3A 8D 32 36 33 | > "CP$" ":.263|
00002080: 3A 81 52 B2 31 A4 59 00 18 21 EB 00 8D 35 30 38 |:.R.1.Y..!...508|
00002090: 00 58 21 EC 00 8B C5 28 41 24 28 52 2C 43 29 29 |.X!....(A$(R,C))|
000020A0: B1 C5 28 43 50 24 29 A7 99 22 52 45 43 4F 52 44 |..(CP$).."RECORD|
000020B0: 20 4E 4F 20 22 3B 52 A3 54 54 29 C8 28 41 24 28 | NO ";R.TT).(A$(|
000020C0: 52 2C 31 29 2C 41 52 29 3A 52 43 B2 52 43 AA 31 |R,1),AR):RC.RC.1|
000020D0: 00 5E 21 ED 00 82 00 6E 21 EE 00 8B 50 52 B2 35 |.^!....n!...PR.5|
000020E0: A7 98 34 3A A0 34 00 77 21 EF 00 89 32 34 39 00 |..4:.4.w!...249.|
000020F0: 9D 21 F0 00 99 22 43 52 49 54 45 52 49 41 20 20 |.!..."CRITERIA |
00002100: 3D 20 22 43 50 24 22 20 22 3A 8D 32 36 33 3A 81 |= "CP$" ":.263:.|
00002110: 52 B2 31 A4 59 00 A8 21 F1 00 81 52 B2 31 A4 59 |R.1.Y..!...R.1.Y|
00002120: 00 B1 21 F2 00 8D 35 30 38 00 C7 21 F3 00 8B 53 |..!...508..!...S|
00002130: 53 B2 31 A7 81 4A B2 31 A4 41 28 43 29 AB 46 00 |S.1..J.1.A(C).F.|
00002140: 08 22 F4 00 8B CA 28 41 24 28 52 2C 43 29 2C 4A |."....(A$(R,C),J|
00002150: 2C 46 29 B2 43 50 24 A7 99 22 52 45 43 4F 52 44 |,F).CP$.."RECORD|
00002160: 20 4E 4F 20 22 3B 52 A3 54 54 29 C8 28 41 24 28 | NO ";R.TT).(A$(|
00002170: 52 2C 31 29 2C 41 52 29 3A 52 43 B2 52 43 AA 31 |R,1),AR):RC.RC.1|
00002180: 00 16 22 F5 00 8B 53 53 B2 30 A7 32 34 37 00 1D |.."...SS.0.247..|
00002190: 22 F6 00 82 4A 00 23 22 F7 00 82 00 33 22 F8 00 |"...J.#"....3"..|
000021A0: 8B 50 52 B2 35 A7 98 34 3A A0 34 00 6F 22 F9 00 |.PR.5..4:.4.o"..|
000021B0: 99 3A 99 22 12 52 45 43 4F 52 44 53 20 43 4F 55 |.:.".RECORDS COU|
000021C0: 4E 54 45 44 20 3D 92 20 22 3B 52 43 3A 99 3A 99 |NTED =. ";RC:.:.|
000021D0: A3 31 33 29 22 12 50 52 45 53 53 20 53 50 41 43 |.13)".PRESS SPAC|
000021E0: 45 20 42 41 52 92 22 00 82 22 FA 00 A1 4B 24 3A |E BAR.".."...K$:|
000021F0: 8B 4B 24 B2 22 22 A7 32 35 30 00 98 22 FB 00 8B |.K$."".250.."...|
00002200: 4B 24 B2 22 20 22 A7 52 B2 52 AB 31 3A 89 31 32 |K$." ".R.R.1:.12|
00002210: 00 A1 22 FC 00 89 32 35 30 00 B1 22 FD 00 42 24 |.."...250.."..B$|
00002220: B2 22 20 22 3A 99 22 22 3B 00 C7 22 FE 00 A1 49 |." ":."";.."...I|
00002230: 50 24 3A 8B 49 50 24 B2 22 22 A7 89 32 35 34 00 |P$:.IP$.""..254.|
00002240: E2 22 FF 00 8B 42 24 B2 22 20 22 AF C6 28 49 50 |."...B$." "..(IP|
00002250: 24 29 B2 32 30 A7 89 32 35 34 00 0F 23 00 01 8B |$).20..254..#...|
00002260: C6 28 49 50 24 29 B2 32 30 A7 42 24 B2 C8 28 42 |.(IP$).20.B$..(B|
00002270: 24 2C C3 28 42 24 29 AB 31 0B 29 3A 99 22 9D 20 |$,.(B$).1.):.". |
00002280: 9D 22 3B 3A 89 32 35 34 00 2E 23 01 01 8B 49 50 |.";:.254..#...IP|
00002290: 24 B2 C7 28 31 33 29 A7 49 50 24 B2 CA 28 42 24 |$..(13).IP$..(B$|
000022A0: 2C 32 29 3A 99 3A 8E 00 46 23 02 01 41 B2 C6 28 |,2):.:..F#..A..(|
000022B0: 49 50 24 29 3A 8B 41 B3 33 31 A7 89 32 35 34 00 |IP$):.A.31..254.|
000022C0: 67 23 03 01 42 24 B2 42 24 AA 49 50 24 3A 99 22 |g#..B$.B$.IP$:."|
000022D0: 12 22 3B 49 50 24 3B 22 92 22 3B 3A 89 32 35 34 |.";IP$;".";:.254|
000022E0: 00 71 23 04 01 99 20 45 4D 24 00 84 23 05 01 81 |.q#... EM$..#...|
000022F0: 20 54 38 B2 31 20 A4 31 30 30 30 3A 82 00 8A 23 | T8.1 .1000:...#|
00002300: 06 01 8E 00 BB 23 07 01 99 22 0B 27 A3 22 3A 8E |.....#...".'.":.|
00002310: 00 E5 23 08 01 99 20 22 44 4F 20 59 4F 55 20 57 |..#... "DO YOU W|
00002320: 49 53 48 20 54 4F 20 12 4C 92 4F 41 44 20 4F 52 |ISH TO .L.OAD OR|
00002330: 20 12 53 92 41 56 45 22 3A 99 00 F8 23 09 01 A1 | .S.AVE":...#...|
00002340: 4B 24 3A 8B 4B 24 B2 22 22 A7 32 36 35 00 08 24 |K$:.K$."".265..$|
00002350: 0A 01 8B 4B 24 B2 22 4C 22 A7 32 38 33 00 18 24 |...K$."L".283..$|
00002360: 0B 01 8B 4B 24 B2 22 53 22 A7 32 36 39 00 21 24 |...K$."S".269.!$|
00002370: 0C 01 89 32 36 35 00 2A 24 0D 01 8D 34 31 30 00 |...265.*$...410.|
00002380: 57 24 0E 01 99 22 41 52 45 20 59 4F 55 20 53 41 |W$..."ARE YOU SA|
00002390: 56 49 4E 47 20 4F 4E 20 12 44 92 49 53 43 20 4F |VING ON .D.ISC O|
000023A0: 52 20 12 54 92 41 50 45 3F 22 3A 99 00 6A 24 0F |R .T.APE?":..j$.|
000023B0: 01 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 32 37 31 00 |..K$:.K$."".271.|
000023C0: 7A 24 10 01 8B 4B 24 B2 22 54 22 A7 32 37 35 00 |z$...K$."T".275.|
000023D0: 8A 24 11 01 8B 4B 24 B2 22 44 22 A7 32 39 37 00 |.$...K$."D".297.|
000023E0: 93 24 12 01 89 32 37 31 00 9C 24 13 01 8D 34 31 |.$...271..$...41|
000023F0: 30 00 B4 24 14 01 99 22 12 49 4E 53 45 52 54 20 |0..$...".INSERT |
00002400: 43 41 53 53 45 54 54 45 22 00 D1 24 15 01 99 22 |CASSETTE"..$..."|
00002410: 50 52 45 53 53 20 12 43 92 20 54 4F 20 43 4F 4E |PRESS .C. TO CON|
00002420: 54 49 4E 55 45 22 00 E7 24 16 01 A1 4B 24 3A 8B |TINUE"..$...K$:.|
00002430: 4B 24 B3 B1 22 43 22 A7 20 32 37 38 00 FE 24 17 |K$.."C". 278..$.|
00002440: 01 8D 34 31 30 3A 99 22 53 41 56 49 4E 47 20 12 |..410:."SAVING .|
00002450: 22 4E 24 00 08 25 18 01 99 22 91 91 22 00 17 25 |"N$..%...".."..%|
00002460: 19 01 9F 20 31 2C 31 2C 31 2C 4E 24 00 20 25 1A |... 1,1,1,N$. %.|
00002470: 01 89 33 30 35 00 26 25 1B 01 9C 00 4E 25 1C 01 |..305.&%....N%..|
00002480: 8D 34 31 32 3A 8D 34 31 30 3A 99 22 41 52 45 20 |.412:.410:."ARE |
00002490: 59 4F 55 20 4C 4F 41 44 49 4E 47 20 46 52 4F 4D |YOU LOADING FROM|
000024A0: 3A 2D 22 00 66 25 1D 01 99 22 12 44 92 49 53 4B |:-".f%...".D.ISK|
000024B0: 20 4F 52 20 12 54 92 41 50 45 22 00 79 25 1E 01 | OR .T.APE".y%..|
000024C0: A1 4B 24 3A 8B 4B 24 B2 22 22 A7 32 38 36 00 89 |.K$:.K$."".286..|
000024D0: 25 1F 01 8B 4B 24 B2 22 54 22 A7 32 39 30 00 99 |%...K$."T".290..|
000024E0: 25 20 01 8B 4B 24 B2 22 44 22 A7 32 39 35 00 A2 |% ..K$."D".295..|
000024F0: 25 21 01 89 32 38 36 00 B5 25 22 01 54 B2 31 3A |%!..286..%".T.1:|
00002500: 55 B2 30 3A 4E 4E 24 B2 4E 24 00 D6 25 23 01 8D |U.0:NN$.N$..%#..|
00002510: 34 31 30 3A 99 22 49 53 20 43 41 53 53 45 54 54 |410:."IS CASSETT|
00002520: 45 20 49 4E 20 50 4C 41 43 45 22 00 F5 25 24 01 |E IN PLACE"..%$.|
00002530: 99 22 50 52 45 53 53 20 12 59 92 45 53 20 54 4F |."PRESS .Y.ES TO|
00002540: 20 43 4F 4E 54 49 4E 55 45 22 00 0A 26 25 01 A1 | CONTINUE"..&%..|
00002550: 4B 24 3A 8B 4B 24 B3 B1 22 59 22 A7 32 39 33 00 |K$:.K$.."Y".293.|
00002560: 13 26 26 01 89 33 31 35 00 48 26 27 01 54 B2 38 |.&&..315.H&'.T.8|
00002570: 3A 55 B2 34 3A 4E 31 24 B2 22 30 3A 22 3A 4E 32 |:U.4:N1$."0:":N2|
00002580: 24 B2 22 2C 53 45 51 2C 52 45 41 44 22 3A 4E 4E |$.",SEQ,READ":NN|
00002590: 24 B2 4E 31 24 AA 4E 4E 24 AA 4E 32 24 00 51 26 |$.N1$.NN$.N2$.Q&|
000025A0: 28 01 89 33 31 35 00 5A 26 29 01 8D 34 31 30 00 |(..315.Z&)..410.|
000025B0: 89 26 2A 01 99 22 44 4F 20 59 4F 55 20 57 41 4E |.&*.."DO YOU WAN|
000025C0: 54 20 54 4F 20 53 41 56 45 20 4F 4E 20 44 52 49 |T TO SAVE ON DRI|
000025D0: 56 45 20 12 30 92 20 4F 52 20 12 31 92 22 00 9C |VE .0. OR .1."..|
000025E0: 26 2B 01 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 32 39 |&+..K$:.K$."".29|
000025F0: 39 00 B6 26 2C 01 8B 4B 24 B2 22 30 22 A7 44 52 |9..&,..K$."0".DR|
00002600: 24 B2 22 30 3A 22 3A 89 33 30 33 00 D0 26 2D 01 |$."0:":.303..&-.|
00002610: 8B 4B 24 B2 22 31 22 A7 44 52 24 B2 22 31 3A 22 |.K$."1".DR$."1:"|
00002620: 3A 89 33 30 33 00 D9 26 2E 01 89 32 39 39 00 05 |:.303..&...299..|
00002630: 27 2F 01 4E 31 24 B2 44 52 24 3A 4E 32 24 B2 22 |'/.N1$.DR$:N2$."|
00002640: 2C 53 45 51 2C 57 52 49 54 45 22 3A 4E 4E 24 B2 |,SEQ,WRITE":NN$.|
00002650: 4E 31 24 AA 4E 24 02 AA 4E 32 24 00 18 27 30 01 |N1$.N$..N2$..'0.|
00002660: 9F 31 2C 38 2C 34 2C 22 40 22 AA 4E 4E 24 00 29 |.1,8,4,"@".NN$.)|
00002670: 27 31 01 98 31 2C 59 3A 99 C7 28 31 33 29 3B 00 |'1..1,Y:..(13);.|
00002680: 3A 27 32 01 98 31 2C 58 3A 99 C7 28 31 33 29 3B |:'2..1,X:..(13);|
00002690: 00 57 27 33 01 81 43 B2 31 A4 58 3A 98 31 2C 41 |.W'3..C.1.X:.1,A|
000026A0: 28 43 29 3A 99 C7 28 31 33 29 3B 3A 82 00 76 27 |(C):..(13);:..v'|
000026B0: 34 01 81 43 B2 31 A4 58 3A 98 31 2C 41 41 24 28 |4..C.1.X:.1,AA$(|
000026C0: 43 29 3A 99 C7 28 31 33 29 3B 3A 82 00 81 27 35 |C):..(13);:...'5|
000026D0: 01 81 52 B2 31 A4 59 00 A1 27 36 01 81 43 B2 31 |..R.1.Y..'6..C.1|
000026E0: A4 58 3A 98 31 2C 41 24 28 52 2C 43 29 3A 99 C7 |.X:.1,A$(R,C):..|
000026F0: 28 31 33 29 3B 3A 82 00 A7 27 37 01 82 00 C7 27 |(13);:...'7....'|
00002700: 38 01 81 43 B2 31 A4 58 3A 98 31 2C 41 24 28 30 |8..C.1.X:.1,A$(0|
00002710: 2C 43 29 3A 99 C7 28 31 33 29 3B 3A 82 00 CE 27 |,C):..(13);:...'|
00002720: 39 01 A0 31 00 D6 27 3A 01 89 31 32 00 0F 28 3B |9..1..':..12..(;|
00002730: 01 8D 34 31 30 3A 99 22 45 4E 54 45 52 20 46 49 |..410:."ENTER FI|
00002740: 4C 45 20 4E 41 4D 45 20 5B 02 09 20 5D 02 04 9D |LE NAME [.. ]...|
00002750: 02 02 06 9D 22 3B 3A 8D 20 32 35 33 00 28 28 3C |....";:. 253.((<|
00002760: 01 4E 24 B2 C8 28 49 50 24 2C 39 29 3A 4E 4E 24 |.N$..(IP$,9):NN$|
00002770: B2 4E 24 3A 99 00 38 28 3D 01 8B 54 B2 31 A7 99 |.N$:..8(=..T.1..|
00002780: 22 91 91 91 22 00 47 28 3E 01 9F 31 2C 54 2C 55 |"...".G(>..1,T,U|
00002790: 2C 4E 4E 24 00 5A 28 3F 01 84 31 2C 59 3A 84 31 |,NN$.Z(?..1,Y:.1|
000027A0: 2C 58 3A 8D 34 31 35 00 6F 28 40 01 81 43 B2 31 |,X:.415.o(@..C.1|
000027B0: A4 58 3A 84 31 2C 41 28 43 29 3A 82 00 86 28 41 |.X:.1,A(C):...(A|
000027C0: 01 81 43 B2 31 A4 58 3A 84 31 2C 41 41 24 28 43 |..C.1.X:.1,AA$(C|
000027D0: 29 3A 82 00 91 28 42 01 81 52 B2 31 A4 59 00 9C |):...(B..R.1.Y..|
000027E0: 28 43 01 81 43 B2 31 A4 58 00 AB 28 44 01 84 31 |(C..C.1.X..(D..1|
000027F0: 2C 41 24 28 52 2C 43 29 00 B3 28 45 01 82 3A 82 |,A$(R,C)..(E..:.|
00002800: 00 BE 28 46 01 81 43 B2 31 A4 58 00 CD 28 47 01 |..(F..C.1.X..(G.|
00002810: 84 31 2C 41 24 28 30 2C 43 29 00 D3 28 48 01 82 |.1,A$(0,C)..(H..|
00002820: 00 DA 28 49 01 A0 31 00 E3 28 4A 01 8D 34 31 30 |..(I..1..(J..410|
00002830: 00 1D 29 4B 01 8B 59 B2 30 A7 4E 24 B2 22 22 3A |..)K..Y.0.N$."":|
00002840: 99 22 12 46 49 4C 45 20 4E 4F 54 20 46 4F 02 55 |.".FILE NOT FO.U|
00002850: 4E 44 20 4F 4E 20 44 49 53 4B 22 3A 81 49 B2 31 |ND ON DISK":.I.1|
00002860: A4 31 30 30 30 3A 82 3A 89 31 32 00 54 29 4C 01 |.1000:.:.12.T)L.|
00002870: 99 22 4B 45 59 20 44 41 54 45 20 45 47 2E 28 32 |."KEY DATE EG.(2|
00002880: 38 2E 31 32 2E 38 33 29 5B 02 08 20 5D 02 09 9D |8.12.83)[.. ]...|
00002890: 22 3B 3A 8D 32 35 33 00 64 29 4D 01 8B 49 50 24 |";:.253.d)M..IP$|
000028A0: B2 22 22 A7 33 33 35 00 95 29 4E 01 52 B2 31 3A |."".335..)N.R.1:|
000028B0: 99 3A 8D 35 34 37 3A 8B 41 43 B2 31 A7 41 43 B2 |.:.547:.AC.1.AC.|
000028C0: 30 3A 99 22 91 22 53 24 22 91 22 3A 99 22 02 04 |0:."."S$".":."..|
000028D0: 91 22 3A 89 33 33 32 00 A7 29 4F 01 4D 24 B2 C8 |.":.332..)O.M$..|
000028E0: 28 49 50 24 2C 38 29 3A 99 00 AF 29 50 01 89 31 |(IP$,8):...)P..1|
000028F0: 32 00 D3 29 51 01 99 22 45 58 49 54 20 27 44 46 |2..)Q.."EXIT 'DF|
00002900: 4D 27 20 41 52 45 20 59 4F 55 20 53 55 52 45 20 |M' ARE YOU SURE |
00002910: 28 59 2F 4E 29 00 E6 29 52 01 A1 4B 24 3A 8B 4B |(Y/N)..)R..K$:.K|
00002920: 24 B2 22 22 A7 33 33 38 00 FD 29 53 01 8B 4B 24 |$."".338..)S..K$|
00002930: B2 22 59 22 A7 4E 24 B2 22 22 3A 8D 33 34 33 00 |."Y".N$."":.343.|
00002940: 0C 2A 54 02 01 8B 4B 24 B2 22 4E 22 A7 31 32 00 |.*T...K$."N".12.|
00002950: 1F 2A 55 01 80 02 0D 20 00 2F 2A 56 01 89 33 33 |.*U.... ./*V..33|
00002960: 39 02 07 20 00 5C 2A 57 01 99 3A 20 20 99 22 93 |9.. .\*W..: .".|
00002970: 02 07 20 02 19 2A 22 00 8A 2A 58 01 99 22 02 07 |.. ..*"..*X.."..|
00002980: 20 2A 2A 2A 20 12 44 41 54 41 92 20 12 46 49 4C | *** .DATA. .FIL|
00002990: 45 92 20 12 4D 41 4E 41 47 45 52 92 20 2A 2A 2A |E. .MANAGER. ***|
000029A0: 22 00 B4 2A 59 01 99 22 02 07 20 02 19 2A 22 3A |"..*Y..".. ..*":|
000029B0: 99 00 C3 2A 5A 01 8B 4E 24 B3 B1 22 22 A7 20 8E |...*Z..N$.."". .|
000029C0: 00 EC 2A 5B 01 99 22 02 13 20 42 59 02 0A 20 22 |..*[..".. BY.. "|
000029D0: 3A 99 00 22 2B 5C 01 99 22 02 08 20 12 20 44 20 |:.."+\..".. . D |
000029E0: 92 20 02 12 20 49 20 92 20 12 20 41 20 92 20 12 |. .. I . . A . .|
000029F0: 20 4C 20 92 20 12 20 4F 20 92 20 12 20 47 20 92 | L . . O . . G .|
00002A00: 20 22 3A 99 00 49 2B 5D 01 99 22 02 0C 20 53 20 | ":..I+]..".. S |
00002A10: 4F 20 46 20 54 20 57 20 41 20 52 20 45 22 3A 99 |O F T W A R E":.|
00002A20: 3A 8E 00 55 2B 5E 01 99 C7 28 31 34 37 29 00 77 |:..U+^...(147).w|
00002A30: 2B 5F 01 99 A3 31 34 29 22 12 2A 2A 55 54 49 4C |+_...14)".**UTIL|
00002A40: 49 54 49 45 53 2A 2A 92 22 3A 8D 32 36 33 3A 99 |ITIES**.":.263:.|
00002A50: 00 B0 2B 60 01 99 22 20 20 12 4D 92 45 4D 4F 52 |..+`.." .M.EMOR|
00002A60: 59 20 41 56 41 49 4C 41 42 49 4C 49 54 59 22 3A |Y AVAILABILITY":|
00002A70: 99 3A 99 22 20 20 12 44 92 49 53 4B 20 44 49 52 |.:." .D.ISK DIR|
00002A80: 45 43 54 4F 52 59 22 3A 99 00 CA 2B 61 01 99 22 |ECTORY":...+a.."|
00002A90: 20 20 4D 45 4E 55 20 12 53 50 41 43 45 20 42 41 | MENU .SPACE BA|
00002AA0: 52 92 22 00 DD 2B 62 01 A1 56 24 3A 8B 56 24 B2 |R."..+b..V$:.V$.|
00002AB0: 22 22 A7 33 35 34 00 ED 2B 63 01 8B 56 24 B2 22 |"".354..+c..V$."|
00002AC0: 4D 22 A7 33 36 31 00 FD 2B 64 01 8B 56 24 B2 22 |M".361..+d..V$."|
00002AD0: 44 22 A7 35 33 38 00 0C 2C 65 02 01 8B 56 24 B2 |D".538..,e...V$.|
00002AE0: 22 20 22 A7 31 32 00 2F 2C 66 01 99 3A 99 22 12 |" ".12./,f..:.".|
00002AF0: 50 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 |PRESS SPACE BAR |
00002B00: 46 4F 52 20 4D 45 4E 55 22 00 44 2C 67 01 A1 4B |FOR MENU".D,g..K|
00002B10: 24 3A 8B 4B 24 B3 B1 22 20 22 A7 33 35 34 00 4C |$:.K$.." ".354.L|
00002B20: 2C 68 01 89 31 32 00 6D 2C 69 01 99 22 13 02 04 |,h..12.m,i.."...|
00002B30: 11 22 A3 32 34 29 22 3D 20 22 B8 28 30 29 22 42 |.".24)"= ".(0)"B|
00002B40: 59 54 45 53 20 22 00 7D 2C 6A 01 99 C7 28 31 39 |YTES ".},j...(19|
00002B50: 29 3A 89 33 35 31 00 86 2C 6B 01 8D 34 39 34 00 |):.351..,k..494.|
00002B60: 8F 2C 6C 01 8D 35 31 34 00 9B 2C 6D 01 9F 34 2C |.,l..514..,m..4,|
00002B70: 34 3A 9D 34 00 C6 2C 6E 01 99 C7 28 31 34 37 29 |4:.4..,n...(147)|
00002B80: 3A 99 22 12 22 3B 4E 24 20 A3 31 39 29 22 52 45 |:.".";N$ .19)"RE|
00002B90: 43 4F 52 44 20 4E 4F 22 3B 52 3A 99 4C 33 24 00 |CORD NO";R:.L3$.|
00002BA0: FF 2C 6F 01 43 B2 31 3A 99 22 12 22 C4 28 43 29 |.,o.C.1:.".".(C)|
00002BB0: 22 92 22 3B 3A 99 A3 32 29 22 12 22 20 41 24 28 |".";:..2)"." A$(|
00002BC0: 30 2C 43 29 22 92 22 A3 33 29 3B C8 28 41 24 28 |0,C)".".3);.(A$(|
00002BD0: 52 2C 43 29 2C 32 34 29 00 08 2D 70 01 99 4C 33 |R,C),24)..-p..L3|
00002BE0: 24 00 16 2D 71 01 81 20 43 B2 32 20 A4 20 58 00 |$..-q.. C.2 . X.|
00002BF0: 3D 2D 72 01 99 C4 28 43 29 3B 3A 99 A3 32 29 41 |=-r...(C);:..2)A|
00002C00: 24 28 30 2C 43 29 A3 33 29 C8 28 41 24 28 52 2C |$(0,C).3).(A$(R,|
00002C10: 43 29 2C 32 34 29 00 58 2D 73 01 82 3A 99 3A 8D |C),24).X-s..:.:.|
00002C20: 32 36 33 3A 99 3A 20 98 34 3A A0 34 3A 89 31 30 |263:.: .4:.4:.10|
00002C30: 31 00 96 2D 74 01 8D 34 39 34 3A 43 4F B2 31 3A |1..-t..494:CO.1:|
00002C40: 4C 4E B2 32 31 3A 8D 34 39 36 3A 99 22 44 4F 20 |LN.21:.496:."DO |
00002C50: 59 4F 55 20 57 49 53 48 20 54 4F 20 50 45 52 46 |YOU WISH TO PERF|
00002C60: 4F 52 4D 20 49 4E 44 49 56 49 44 55 41 4C 22 00 |ORM INDIVIDUAL".|
00002C70: B9 2D 75 01 99 22 12 43 92 41 4C 43 53 20 4F 52 |.-u..".C.ALCS OR|
00002C80: 20 12 54 92 4F 54 41 4C 49 53 45 20 46 49 45 4C | .T.OTALISE FIEL|
00002C90: 44 22 00 CC 2D 76 01 A1 4B 24 3A 8B 4B 24 B2 22 |D"..-v..K$:.K$."|
00002CA0: 22 A7 33 37 34 00 E2 2D 77 01 8B 4B 24 B2 22 54 |".374..-w..K$."T|
00002CB0: 22 A7 8D 34 31 30 3A 89 33 39 36 00 F8 2D 78 01 |"..410:.396..-x.|
00002CC0: 8B 4B 24 B2 22 43 22 A7 8D 34 31 30 3A 89 33 37 |.K$."C"..410:.37|
00002CD0: 38 00 01 2E 79 01 89 33 37 34 00 20 2E 7A 01 99 |8...y..374. .z..|
00002CE0: 22 57 48 49 43 48 20 46 49 45 4C 44 20 44 4F 20 |"WHICH FIELD DO |
00002CF0: 59 4F 55 20 57 49 53 48 22 00 4A 2E 7B 01 99 22 |YOU WISH".J.{.."|
00002D00: 54 4F 20 43 41 4C 43 55 4C 41 54 45 2C 20 4B 45 |TO CALCULATE, KE|
00002D10: 59 20 31 20 54 4F 20 22 58 22 20 3A 22 3B 3A 8D |Y 1 TO "X" :";:.|
00002D20: 32 35 33 00 66 2E 7C 01 43 B2 C5 28 49 50 24 29 |253.f.|.C..(IP$)|
00002D30: 3A 8B 43 B1 58 A7 8D 34 31 30 3A 89 33 37 38 00 |:.C.X..410:.378.|
00002D40: 6F 2E 7D 01 8D 34 31 30 00 94 2E 7E 01 8B 41 41 |o.}..410...~..AA|
00002D50: 24 28 43 29 B2 22 43 22 A7 99 22 12 43 48 41 52 |$(C)."C"..".CHAR|
00002D60: 41 43 54 45 52 92 20 46 49 45 4C 44 22 00 A8 2E |ACTER. FIELD"...|
00002D70: 7F 01 8B 41 41 24 28 43 29 B2 22 4E 22 A7 33 38 |...AA$(C)."N".38|
00002D80: 35 00 BD 2E 80 01 81 49 B2 31 A4 31 30 30 30 3A |5......I.1.1000:|
00002D90: 82 3A 89 31 31 34 00 EB 2E 81 01 99 22 4B 45 59 |.:.114......"KEY|
00002DA0: 20 4C 45 54 54 45 52 20 46 4F 4C 4C 4F 57 45 44 | LETTER FOLLOWED|
00002DB0: 20 42 59 20 41 4D 4F 55 4E 54 20 45 47 2E 28 41 | BY AMOUNT EG.(A|
00002DC0: 32 35 29 22 00 21 2F 82 01 99 22 12 41 92 44 44 |25)".!/...".A.DD|
00002DD0: 20 12 53 92 55 42 54 52 41 43 54 20 12 4D 92 55 | .S.UBTRACT .M.U|
00002DE0: 4C 54 49 50 4C 59 20 12 44 92 49 56 49 44 45 20 |LTIPLY .D.IVIDE |
00002DF0: 12 5A 92 45 52 4F 49 53 45 22 00 41 2F 83 01 99 |.Z.EROISE".A/...|
00002E00: 22 12 52 92 45 50 4C 41 43 45 20 3A 22 3B 3A 8D |".R.EPLACE :";:.|
00002E10: 32 35 33 3A 4C 24 B2 49 50 24 00 6A 2F 84 01 8B |253:L$.IP$.j/...|
00002E20: C8 28 4C 24 2C 31 29 B2 22 53 22 A7 50 B2 C5 28 |.(L$,1)."S".P..(|
00002E30: 41 24 28 52 2C 43 29 29 AB C5 28 CA 28 4C 24 2C |A$(R,C))..(.(L$,|
00002E40: 32 29 29 00 93 2F 85 01 8B C8 28 4C 24 2C 31 29 |2))../....(L$,1)|
00002E50: B2 22 41 22 A7 50 B2 C5 28 41 24 28 52 2C 43 29 |."A".P..(A$(R,C)|
00002E60: 29 AA C5 28 CA 28 4C 24 2C 32 29 29 00 BC 2F 86 |)..(.(L$,2))../.|
00002E70: 01 8B C8 28 4C 24 2C 31 29 B2 22 4D 22 A7 50 B2 |...(L$,1)."M".P.|
00002E80: C5 28 41 24 28 52 2C 43 29 29 AC C5 28 CA 28 4C |.(A$(R,C))..(.(L|
00002E90: 24 2C 32 29 29 00 E5 2F 87 01 8B C8 28 4C 24 2C |$,2))../....(L$,|
00002EA0: 31 29 B2 22 44 22 A7 50 B2 C5 28 41 24 28 52 2C |1)."D".P..(A$(R,|
00002EB0: 43 29 29 AD C5 28 CA 28 4C 24 2C 32 29 29 00 FA |C))..(.(L$,2))..|
00002EC0: 2F 88 01 8B C8 28 4C 24 2C 31 29 B2 22 5A 22 A7 |/....(L$,1)."Z".|
00002ED0: 50 B2 30 00 18 30 89 01 8B C8 28 4C 24 2C 31 29 |P.0..0....(L$,1)|
00002EE0: B2 22 52 22 A7 50 B2 C5 28 CA 28 4C 24 2C 32 29 |."R".P..(.(L$,2)|
00002EF0: 29 00 2E 30 8A 01 41 24 28 52 2C 43 29 B2 CA 28 |)..0..A$(R,C)..(|
00002F00: C4 28 50 29 2C 32 29 00 37 30 8B 01 89 31 30 31 |.(P),2).70...101|
00002F10: 00 56 30 8C 01 99 22 57 48 49 43 48 20 46 49 45 |.V0..."WHICH FIE|
00002F20: 4C 44 20 44 4F 20 59 4F 55 20 57 49 53 48 22 00 |LD DO YOU WISH".|
00002F30: 7E 30 8D 01 99 22 54 4F 20 54 4F 54 41 4C 49 53 |~0..."TO TOTALIS|
00002F40: 45 20 4B 45 59 20 31 20 54 4F 20 22 58 22 20 3A |E KEY 1 TO "X" :|
00002F50: 22 3B 3A 8D 32 35 33 00 9A 30 8E 01 43 B2 C5 28 |";:.253..0..C..(|
00002F60: 49 50 24 29 3A 8B 43 B1 58 A7 8D 34 31 30 3A 89 |IP$):.C.X..410:.|
00002F70: 33 39 36 00 A3 30 8F 01 8D 34 31 30 00 C8 30 90 |396..0...410..0.|
00002F80: 01 8B 41 41 24 28 43 29 B2 22 43 22 A7 99 22 12 |..AA$(C)."C"..".|
00002F90: 43 48 41 52 41 43 54 45 52 92 20 46 49 45 4C 44 |CHARACTER. FIELD|
00002FA0: 22 00 DC 30 91 01 8B 41 41 24 28 43 29 B2 22 4E |"..0...AA$(C)."N|
00002FB0: 22 A7 34 30 33 00 F1 30 92 01 81 49 B2 31 A4 31 |".403..0...I.1.1|
00002FC0: 30 30 30 3A 82 3A 89 31 31 34 00 F9 30 93 01 54 |000:.:.114..0..T|
00002FD0: B2 30 00 16 31 94 01 81 20 52 02 B2 31 A4 59 3A |.0..1... R..1.Y:|
00002FE0: 54 B2 54 AA C5 28 41 24 28 52 2C 43 29 29 3A 82 |T.T..(A$(R,C)):.|
00002FF0: 00 5C 31 95 01 99 22 54 4F 54 41 4C 20 46 49 4C |.\1..."TOTAL FIL|
00003000: 45 20 56 41 4C 55 45 20 4F 46 20 46 49 45 4C 44 |E VALUE OF FIELD|
00003010: 20 3A 22 3A 99 22 12 22 41 24 28 30 2C 43 29 22 | :":."."A$(0,C)"|
00003020: 92 22 22 20 3D 02 0E 20 22 3B 54 00 7F 31 96 01 |."" =.. ";T..1..|
00003030: 99 22 50 52 45 53 53 20 12 53 50 41 43 45 20 42 |."PRESS .SPACE B|
00003040: 41 52 92 20 54 4F 20 52 45 54 55 52 4E 22 00 92 |AR. TO RETURN"..|
00003050: 31 97 01 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 34 30 |1...K$:.K$."".40|
00003060: 37 00 A2 31 98 01 8B 4B 24 B2 22 20 22 A7 31 30 |7..1...K$." ".10|
00003070: 31 00 AB 31 99 01 89 34 30 37 00 B1 31 9A 01 3A |1..1...407..1..:|
00003080: 00 CD 31 9B 01 99 22 91 91 22 3B 3A 99 53 24 3A |..1..."..";:.S$:|
00003090: 99 53 24 3A 99 22 91 91 91 22 3A 8E 00 FE 31 9C |.S$:."...":...1.|
000030A0: 01 53 24 B2 22 02 27 20 22 00 30 32 02 9D 01 4C |.S$.".' ".02...L|
000030B0: 33 24 B2 22 02 27 2D 22 00 64 32 9E 01 54 24 B2 |3$.".'-".d2..T$.|
000030C0: 22 02 28 9D 22 3A 8E 00 99 32 9F 01 86 20 41 24 |".(.":...2... A$|
000030D0: 28 32 30 30 2C 58 29 2C 41 41 24 28 58 29 2C 41 |(200,X),AA$(X),A|
000030E0: 28 58 29 2C 43 24 28 58 29 2C 42 24 28 58 29 3A |(X),C$(X),B$(X):|
000030F0: 41 24 28 52 2C 43 29 B2 22 22 3A 8E 00 BB 32 A0 |A$(R,C)."":...2.|
00003100: 01 99 22 57 48 49 43 48 20 46 49 45 4C 44 20 44 |.."WHICH FIELD D|
00003110: 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 22 00 E1 |O YOU WISH TO"..|
00003120: 32 A1 01 99 22 53 4F 52 54 20 42 59 2E 2E 20 4B |2..."SORT BY.. K|
00003130: 45 59 20 31 20 54 4F 20 22 58 22 20 3A 22 3B 3A |EY 1 TO "X" :";:|
00003140: 8D 32 35 33 00 EE 32 A2 01 4D B2 C5 28 49 50 24 |.253..2..M..(IP$|
00003150: 29 00 F7 32 A3 01 8D 34 31 30 00 14 33 A4 01 99 |)..2...410..3...|
00003160: 22 12 53 4F 52 54 49 4E 47 92 20 50 4C 45 41 53 |".SORTING. PLEAS|
00003170: 45 20 57 41 49 54 22 00 21 33 A5 01 81 52 B2 31 |E WAIT".!3...R.1|
00003180: A4 59 AB 31 00 30 33 A6 01 81 49 B2 28 52 AA 31 |.Y.1.03...I.(R.1|
00003190: 29 A4 59 00 55 33 A7 01 8B 41 41 24 28 4D 29 B2 |).Y.U3...AA$(M).|
000031A0: 22 43 22 AF 41 24 28 49 2C 4D 29 B1 B2 41 24 28 |"C".A$(I,M)..A$(|
000031B0: 52 2C 4D 29 A7 34 33 30 00 80 33 A8 01 8B 41 41 |R,M).430..3...AA|
000031C0: 24 28 4D 29 B2 22 4E 22 AF C5 28 41 24 28 49 2C |$(M)."N"..(A$(I,|
000031D0: 4D 29 29 B1 B2 C5 28 41 24 28 52 2C 4D 29 29 A7 |M))...(A$(R,M)).|
000031E0: 34 33 30 00 8B 33 A9 01 81 43 B2 31 A4 58 00 9D |430..3...C.1.X..|
000031F0: 33 AA 01 42 24 28 43 29 B2 41 24 28 52 2C 43 29 |3..B$(C).A$(R,C)|
00003200: 00 B1 33 AB 01 41 24 28 52 2C 43 29 B2 41 24 28 |..3..A$(R,C).A$(|
00003210: 49 2C 43 29 00 C3 33 AC 01 41 24 28 49 2C 43 29 |I,C)..3..A$(I,C)|
00003220: B2 42 24 28 43 29 00 CA 33 AD 01 82 43 00 D2 33 |.B$(C)..3...C..3|
00003230: AE 01 82 3A 82 00 FA 33 AF 01 99 22 12 53 4F 52 |...:...3...".SOR|
00003240: 54 92 20 43 4F 4D 50 4C 45 54 45 44 22 3A 81 4A |T. COMPLETED":.J|
00003250: B2 31 A4 31 30 30 30 3A 82 3A 89 31 32 00 20 34 |.1.1000:.:.12. 4|
00003260: B0 01 99 C7 28 31 34 37 29 3A 99 A3 31 30 29 22 |....(147):..10)"|
00003270: 12 2A 2A 52 45 50 4F 52 54 20 57 52 49 54 45 52 |.**REPORT WRITER|
00003280: 2A 2A 22 00 4C 34 B1 01 99 22 57 48 49 43 48 20 |**".L4..."WHICH |
00003290: 4F 46 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 |OF THE FOLLOWING|
000032A0: 20 46 49 45 4C 44 53 20 44 4F 20 59 4F 55 22 00 | FIELDS DO YOU".|
000032B0: 71 34 B2 01 99 22 57 49 53 48 20 54 4F 20 49 4E |q4..."WISH TO IN|
000032C0: 43 4C 55 44 45 20 49 4E 20 54 48 45 20 52 45 50 |CLUDE IN THE REP|
000032D0: 4F 52 54 22 00 7A 34 B3 01 99 4C 33 24 00 85 34 |ORT".z4...L3$..4|
000032E0: B4 01 81 43 B2 31 A4 58 00 93 34 B5 01 99 41 24 |...C.1.X..4...A$|
000032F0: 28 30 2C 43 29 3B 00 CB 34 B6 01 99 A3 32 35 29 |(0,C);..4....25)|
00003300: 22 4B 45 59 20 12 59 92 20 4F 52 20 12 4E 92 20 |"KEY .Y. OR .N. |
00003310: 5B 20 5D 9D 9D 22 3B 3A 8D 32 35 33 3A 43 24 28 |[ ]..";:.253:C$(|
00003320: 43 29 B2 C8 28 49 50 24 2C 31 29 3A 82 43 00 F9 |C)..(IP$,1):.C..|
00003330: 34 B7 01 99 4C 33 24 3A 99 3A 99 A3 36 29 22 3C |4...L3$:.:..6)"<|
00003340: 3C 20 41 43 43 45 50 54 20 46 49 45 4C 44 20 53 |< ACCEPT FIELD S|
00003350: 45 4C 45 43 54 49 4F 4E 20 3E 3E 22 00 2A 35 B8 |ELECTION >>".*5.|
00003360: 01 99 3A 99 A3 34 29 22 4B 45 59 20 12 59 92 20 |..:..4)"KEY .Y. |
00003370: 54 4F 20 43 4F 4E 54 49 4E 55 45 20 12 4E 92 20 |TO CONTINUE .N. |
00003380: 54 4F 20 52 45 2D 53 45 4C 45 43 54 22 00 33 35 |TO RE-SELECT".35|
00003390: B9 01 8D 35 31 32 00 43 35 BA 01 8B 4B 24 B2 22 |...512.C5...K$."|
000033A0: 4E 22 A7 34 33 32 00 71 35 BB 01 8B 4B 24 B2 22 |N".432.q5...K$."|
000033B0: 59 22 A7 99 C7 28 31 34 37 29 3A 99 A3 31 30 29 |Y"...(147):..10)|
000033C0: 22 12 2A 2A 52 45 50 4F 52 54 20 57 52 49 54 45 |".**REPORT WRITE|
000033D0: 52 2A 2A 22 00 96 35 BC 01 99 3A 99 A3 39 29 22 |R**"..5...:..9)"|
000033E0: 50 52 49 4E 54 45 52 20 49 4E 46 4F 52 4D 41 54 |PRINTER INFORMAT|
000033F0: 49 4F 4E 22 3A 99 4C 33 24 00 D1 35 BD 01 99 22 |ION":.L3$..5..."|
00003400: 44 4F 20 59 4F 55 20 52 45 51 55 49 52 45 20 4C |DO YOU REQUIRE L|
00003410: 49 4E 45 20 46 45 45 44 22 A3 32 35 29 22 4B 45 |INE FEED".25)"KE|
00003420: 59 20 12 59 92 20 4F 52 20 12 4E 92 20 5B 20 5D |Y .Y. OR .N. [ ]|
00003430: 9D 9D 22 3B 00 E9 35 BE 01 8D 32 35 33 3A 4C 46 |..";..5...253:LF|
00003440: 24 B2 C8 28 49 50 24 2C 31 29 3A 99 00 36 36 BF |$..(IP$,1):..66.|
00003450: 01 99 22 44 4F 20 59 4F 55 20 57 49 53 48 20 54 |.."DO YOU WISH T|
00003460: 4F 20 53 45 4E 44 20 41 22 3A 99 22 43 48 52 24 |O SEND A":."CHR$|
00003470: 20 54 4F 20 54 48 45 20 50 52 49 4E 54 45 52 22 | TO THE PRINTER"|
00003480: A3 32 35 29 22 4B 45 59 20 12 59 92 20 4F 52 20 |.25)"KEY .Y. OR |
00003490: 12 4E 92 20 5B 20 5D 22 3B 00 65 36 C0 01 99 22 |.N. [ ]";.e6..."|
000034A0: 9D 9D 22 3B 3A 8D 32 35 33 3A 43 53 24 B2 C8 28 |..";:.253:CS$..(|
000034B0: 49 50 24 2C 31 29 3A 47 B2 39 3A 8B 43 53 24 B2 |IP$,1):G.9:.CS$.|
000034C0: 22 59 22 A7 47 B2 31 31 00 9F 36 C1 01 8B 43 53 |"Y".G.11..6...CS|
000034D0: 24 B2 22 59 22 A7 99 3A 99 22 45 4E 54 45 52 20 |$."Y"..:."ENTER |
000034E0: 43 48 52 24 22 A3 33 35 29 22 5B 20 20 5D 9D 9D |CHR$".35)"[ ]..|
000034F0: 9D 22 3B 3A 8D 32 35 33 3A 43 53 B2 C5 28 49 50 |.";:.253:CS..(IP|
00003500: 24 29 00 AD 36 C2 01 99 4C 33 24 3A 89 34 35 36 |$)..6...L3$:.456|
00003510: 00 E2 36 C3 01 99 22 13 22 3A 81 49 B2 31 A4 47 |..6...".":.I.1.G|
00003520: 3A 99 3A 82 3A 81 49 B2 31 A4 32 33 AB 47 3A 99 |:.:.:.I.1.23.G:.|
00003530: 53 24 3A 82 49 3A 99 22 13 22 3A 81 49 B2 31 A4 |S$:.I:.".":.I.1.|
00003540: 47 3A 99 3A 82 00 2A 37 C4 01 99 A3 31 32 29 22 |G:.:..*7....12)"|
00003550: 12 2A 2A 54 45 53 54 20 4F 56 45 52 2A 2A 22 3A |.**TEST OVER**":|
00003560: 99 3A 99 A3 35 29 3A 99 22 4B 45 59 20 12 59 92 |.:..5):."KEY .Y.|
00003570: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 12 4E 92 | TO CONTINUE .N.|
00003580: 20 54 4F 20 52 45 2D 53 45 54 55 50 22 00 33 37 | TO RE-SETUP".37|
00003590: C5 01 8D 35 31 32 00 43 37 C6 01 8B 4B 24 B2 22 |...512.C7...K$."|
000035A0: 59 22 A7 34 36 31 00 59 37 C7 01 8B 4B 24 B2 22 |Y".461.Y7...K$."|
000035B0: 4E 22 A7 8D 35 31 37 3A 89 34 33 32 00 8F 37 C8 |N"..517:.432..7.|
000035C0: 01 99 22 44 4F 20 59 4F 55 20 52 45 51 55 49 52 |.."DO YOU REQUIR|
000035D0: 45 20 54 45 53 54 20 50 52 49 4E 54 3A 20 4B 45 |E TEST PRINT: KE|
000035E0: 59 20 12 59 92 20 4F 52 20 12 4E 92 22 3A 99 4C |Y .Y. OR .N.":.L|
000035F0: 33 24 00 98 37 C9 01 8D 35 31 32 00 AE 37 CA 01 |3$..7...512..7..|
00003600: 8B 4B 24 B2 22 4E 22 A7 8D 35 31 34 3A 89 34 36 |.K$."N"..514:.46|
00003610: 31 00 C4 37 CB 01 8B 4B 24 B2 22 59 22 A7 8D 35 |1..7...K$."Y"..5|
00003620: 31 34 3A 8D 35 31 38 00 CD 37 CC 01 89 34 35 31 |14:.518..7...451|
00003630: 00 D9 37 CD 01 9F 34 2C 34 3A 9D 34 00 EE 37 CE |..7...4,4:.4..7.|
00003640: 01 8B 43 53 24 B2 22 59 22 A7 99 20 C7 28 43 53 |..CS$."Y".. .(CS|
00003650: 29 00 10 38 CF 01 99 4D 24 A6 31 30 29 22 46 49 |)..8...M$.10)"FI|
00003660: 4C 45 4E 41 4D 45 20 3D 20 22 4E 24 3A 99 3A 8D |LENAME = "N$:.:.|
00003670: 35 33 31 00 1C 38 D0 01 52 B2 30 3A 50 B2 30 00 |531..8..R.0:P.0.|
00003680: 24 38 D1 01 43 B2 31 00 3D 38 D2 01 50 44 B2 41 |$8..C.1.=8..PD.A|
00003690: 28 43 29 AB C3 28 41 24 28 52 2C 43 29 29 AA 31 |(C)..(A$(R,C)).1|
000036A0: 00 4C 38 D3 01 8B 50 44 B3 31 A7 50 44 B2 31 00 |.L8...PD.1.PD.1.|
000036B0: 8C 38 D4 01 50 44 24 B2 C8 28 53 24 2C 50 44 29 |.8..PD$..(S$,PD)|
000036C0: 3A 8B 43 24 28 43 29 B2 22 59 22 A7 99 C8 28 41 |:.C$(C)."Y"...(A|
000036D0: 24 28 52 2C 43 29 2C 41 28 43 29 29 AA 50 44 24 |$(R,C),A(C)).PD$|
000036E0: 3B 3A 8B 52 B2 30 A7 50 B2 50 AA 41 28 43 29 00 |;:.R.0.P.P.A(C).|
000036F0: A1 38 D5 01 43 B2 43 AA 31 3A 8B 43 B3 58 AA 31 |.8..C.C.1:.C.X.1|
00003700: A7 34 36 36 00 AA 38 D6 01 8D 35 33 31 00 CC 38 |.466..8...531..8|
00003710: D7 01 8B 52 B2 30 A7 99 3A 81 49 B2 31 A4 50 AA |...R.0..:.I.1.P.|
00003720: 32 3A 99 22 2D 22 3B 3A 82 49 3A 8D 35 33 31 00 |2:."-";:.I:.531.|
00003730: E3 38 D8 01 52 B2 52 AA 31 3A 99 3A 8B 52 B3 59 |.8..R.R.1:.:.R.Y|
00003740: AA 31 A7 34 36 35 00 ED 38 D9 01 99 3A 99 3A 99 |.1.465..8...:.:.|
00003750: 00 05 39 DA 01 99 22 20 20 20 2A 54 4F 54 41 4C |..9..." *TOTAL|
00003760: 53 2A 22 3A 02 8D 35 33 31 00 1F 39 DB 01 99 22 |S*":..531..9..."|
00003770: 20 20 20 02 08 2D 22 3A 99 3A 8D 35 33 31 00 2E | ..-":.:.531..|
00003780: 39 DC 01 81 43 B2 31 A4 58 3A 54 B2 30 00 4A 39 |9...C.1.X:T.0.J9|
00003790: DD 01 81 52 B2 31 A4 59 3A 54 B2 54 AA C5 28 41 |...R.1.Y:T.T..(A|
000037A0: 24 28 52 2C 43 29 29 3A 82 00 6E 39 DE 01 8B 41 |$(R,C)):..n9...A|
000037B0: 41 24 28 43 29 B2 22 4E 22 A7 99 41 24 28 30 2C |A$(C)."N"..A$(0,|
000037C0: 43 29 A3 32 30 29 3B 54 3A 8D 35 33 31 00 75 39 |C).20);T:.531.u9|
000037D0: DF 01 82 43 00 7F 39 E0 01 98 34 3A A0 34 00 88 |...C..9...4:.4..|
000037E0: 39 E1 01 8D 35 31 37 00 90 39 E2 01 89 31 32 00 |9...517..9...12.|
000037F0: C7 39 E3 01 8D 34 39 34 3A 43 4F B2 31 3A 4C 4E |.9...494:CO.1:LN|
00003800: B2 32 31 3A 8D 34 39 36 3A 99 22 12 44 45 4C 45 |.21:.496:.".DELE|
00003810: 54 45 92 20 41 52 45 20 59 4F 55 20 53 55 52 45 |TE. ARE YOU SURE|
00003820: 3F 20 59 2F 4E 22 00 D0 39 E4 01 8D 35 31 32 00 |? Y/N"..9...512.|
00003830: E0 39 E5 01 8B 4B 24 B2 22 59 22 A7 34 38 38 00 |.9...K$."Y".488.|
00003840: F0 39 E6 01 8B 4B 24 B2 22 4E 22 A7 31 31 34 00 |.9...K$."N".114.|
00003850: F9 39 E7 01 89 34 38 34 00 0A 3A E8 01 54 B2 52 |.9...484..:..T.R|
00003860: 02 3A 81 52 B2 54 A4 59 AA 31 00 15 3A E9 01 81 |.:.R.T.Y.1..:...|
00003870: 43 B2 31 A4 58 00 2B 3A EA 01 41 24 28 52 2C 43 |C.1.X.+:..A$(R,C|
00003880: 29 B2 41 24 28 52 AA 31 2C 43 29 00 32 3A EB 01 |).A$(R.1,C).2:..|
00003890: 82 43 00 39 3A EC 01 82 52 00 48 3A ED 01 59 B2 |.C.9:...R.H:..Y.|
000038A0: 59 AB 31 3A 89 31 30 30 00 63 3A EE 01 43 4F B2 |Y.1:.100.c:..CO.|
000038B0: 31 3A 4C 4E B2 32 31 3A 8D 34 39 36 3A 81 49 B2 |1:LN.21:.496:.I.|
000038C0: 31 A4 33 00 97 3A EF 01 99 22 02 27 20 22 3A 82 |1.3..:...".' ":.|
000038D0: 49 3A 8E 00 CA 3A F0 01 41 43 43 24 B2 22 02 27 |I:...:..ACC$.".'|
000038E0: 1D 22 00 F0 3A F1 01 44 4F 57 24 B2 22 02 1A 11 |."..:..DOW$."...|
000038F0: 22 00 FB 3A F2 01 81 5A B2 31 A4 32 00 05 3B F3 |"..:...Z.1.2..;.|
00003900: 01 99 02 22 13 22 3B 00 1E 3B F4 01 8B 43 4F B1 |...".";..;...CO.|
00003910: 31 A7 99 C8 28 41 43 43 24 2C 43 4F AB 31 29 3B |1...(ACC$,CO.1);|
00003920: 00 37 3B F5 01 8B 4C 4E B1 31 A7 99 C8 28 44 4F |.7;...LN.1...(DO|
00003930: 57 24 2C 4C 4E AB 31 29 3B 00 6C 3B F6 01 8B 5A |W$,LN.1);.l;...Z|
00003940: B2 31 A7 99 22 02 27 20 22 3B 00 73 3B F7 01 82 |.1..".' ";.s;...|
00003950: 5A 00 79 3B F8 01 8E 00 A9 3B F9 01 82 3A 99 3A |Z.y;.....;...:.:|
00003960: 8D 32 36 33 3A 99 A3 36 29 22 50 52 45 53 53 20 |.263:..6)"PRESS |
00003970: 12 20 53 50 41 43 45 20 42 41 52 20 92 20 46 4F |. SPACE BAR . FO|
00003980: 52 20 4D 45 4E 55 22 00 C4 3B FA 01 4B 24 B2 22 |R MENU"..;..K$."|
00003990: 22 3A A1 4B 24 3A 8B 4B 24 B3 B1 22 20 22 A7 35 |":.K$:.K$.." ".5|
000039A0: 30 36 00 CC 3B FB 01 89 31 32 00 E5 3B FC 01 8B |06..;...12..;...|
000039B0: 50 52 B2 35 AF C3 28 C4 28 52 29 29 B2 32 A7 54 |PR.5..(.(R)).2.T|
000039C0: 54 B2 35 00 FE 3B FD 01 8B 50 52 B2 35 AF C3 28 |T.5..;...PR.5..(|
000039D0: C4 28 52 29 29 B2 33 A7 54 54 B2 34 00 17 3C 07 |.(R)).3.TT.4..<.|
000039E0: FE 01 8B 50 52 B2 35 AF C3 28 C4 28 52 29 29 B2 |...PR.5..(.(R)).|
000039F0: 34 A7 54 54 B2 33 00 1D 3C FF 01 8E 00 3A 3C 00 |4.TT.3..<....:<.|
00003A00: 02 A1 4B 24 3A 8B 4B 24 B3 B1 22 59 22 AF 4B 24 |..K$:.K$.."Y".K$|
00003A10: B3 B1 22 4E 22 A7 35 31 32 00 40 3C 01 02 8E 00 |.."N".512.@<....|
00003A20: 7F 3C 02 02 43 4F B2 31 3A 4C 4E B2 32 31 3A 8D |.<..CO.1:LN.21:.|
00003A30: 34 39 36 3A 99 22 20 3C 3C 20 45 4E 53 55 52 45 |496:." << ENSURE|
00003A40: 20 54 48 41 54 20 50 52 49 4E 54 45 52 20 49 53 | THAT PRINTER IS|
00003A50: 20 41 4C 49 47 4E 45 44 20 3E 3E 22 3A 99 00 B9 | ALIGNED >>":...|
00003A60: 3C 03 02 99 22 07 04 20 50 52 45 53 53 20 12 53 |<...".. PRESS .S|
00003A70: 50 41 43 45 20 42 41 52 92 20 54 4F 20 43 4F 4E |PACE BAR. TO CON|
00003A80: 54 49 4E 55 45 22 3A A1 4B 24 3A 8B 4B 24 B3 B1 |TINUE":.K$:.K$..|
00003A90: 22 20 22 A7 35 31 34 00 BF 3C 04 02 8E 00 E3 3C |" ".514..<.....<|
00003AA0: 05 02 81 43 B2 31 A4 58 3A 41 24 28 30 2C 43 29 |...C.1.X:A$(0,C)|
00003AB0: B2 C8 28 41 24 28 30 2C 43 29 2C 39 29 3A 82 3A |..(A$(0,C),9):.:|
00003AC0: 8E 00 0C 3D 06 02 52 50 24 B2 22 22 3A 81 43 B2 |...=..RP$."":.C.|
00003AD0: 31 A4 58 3A 54 50 24 B2 22 22 3A 8B 43 24 28 43 |1.X:TP$."":.C$(C|
00003AE0: 29 B2 22 59 22 A7 8D 35 32 38 00 13 3D 07 02 82 |)."Y"..528..=...|
00003AF0: 43 00 44 3D 08 02 52 B2 30 3A 52 24 B2 22 22 3A |C.D=..R.0:R$."":|
00003B00: 50 44 24 B2 22 22 3A 81 43 B2 31 A4 58 3A 50 44 |PD$."":.C.1.X:PD|
00003B10: B2 41 28 43 29 AB C3 28 41 24 28 52 2C 43 29 29 |.A(C)..(A$(R,C))|
00003B20: AA 31 00 53 3D 09 02 8B 50 44 B3 31 A7 50 44 B2 |.1.S=...PD.1.PD.|
00003B30: 31 00 89 3D 0A 02 50 44 24 B2 C8 28 53 24 2C 50 |1..=..PD$..(S$,P|
00003B40: 44 29 3A 8B 43 24 28 43 29 B2 22 59 22 A7 52 24 |D):.C$(C)."Y".R$|
00003B50: B2 52 24 AA C8 28 41 24 28 52 2C 43 29 2C 41 28 |.R$..(A$(R,C),A(|
00003B60: 43 29 29 AA 50 44 24 00 90 3D 0B 02 82 43 00 AC |C)).PD$..=...C..|
00003B70: 3D 0C 02 9F 34 2C 34 3A 9D 34 3A 8B 43 53 24 B2 |=...4,4:.4:.CS$.|
00003B80: 22 59 22 A7 99 C7 28 43 53 29 00 CE 3D 0D 02 99 |"Y"...(CS)..=...|
00003B90: 4D 24 A6 31 30 29 22 46 49 4C 45 4E 41 4D 45 20 |M$.10)"FILENAME |
00003BA0: 3D 20 22 4E 24 3A 99 3A 8D 35 33 31 00 F1 3D 0E |= "N$:.:.531..=.|
00003BB0: 02 99 52 24 3A 81 49 B2 31 A4 C3 28 52 24 29 3A |..R$:.I.1..(R$):|
00003BC0: 99 22 2D 22 3B 3A 82 49 3A 99 3A 8D 35 33 31 00 |."-";:.I:.:.531.|
00003BD0: 02 3E 0F 02 99 52 50 24 3A 98 34 3A A0 34 3A 8E |.>...RP$:.4:.4:.|
00003BE0: 00 22 3E 10 02 81 49 B2 31 A4 41 28 43 29 3A 54 |.">...I.1.A(C):T|
00003BF0: 50 24 B2 54 50 24 AA 41 41 24 28 43 29 3A 82 49 |P$.TP$.AA$(C):.I|
00003C00: 00 4D 3E 11 02 8B C3 28 54 50 24 29 B3 C3 28 41 |.M>....(TP$)..(A|
00003C10: 24 28 31 2C 43 29 29 A7 54 50 24 B2 54 50 24 AA |$(1,C)).TP$.TP$.|
00003C20: 41 41 24 28 43 29 3A 89 35 32 39 00 6B 3E 12 02 |AA$(C):.529.k>..|
00003C30: 54 50 24 B2 54 50 24 AA 22 20 22 3A 52 50 24 B2 |TP$.TP$." ":RP$.|
00003C40: 52 50 24 AA 54 50 24 3A 8E 00 7F 3E 13 02 8B 4C |RP$.TP$:...>...L|
00003C50: 46 24 B2 22 59 22 A7 99 C7 28 31 30 29 00 85 3E |F$."Y"...(10)..>|
00003C60: 14 02 8E 00 AE 3E 15 02 99 22 93 4D 41 58 20 4E |.....>...".MAX N|
00003C70: 4F 20 4F 46 20 52 45 43 4F 52 44 53 20 4E 4F 57 |O OF RECORDS NOW|
00003C80: 20 52 45 41 43 48 45 44 2E 22 3A 99 00 F7 3E 16 | REACHED.":...>.|
00003C90: 02 99 22 54 4F 20 49 4E 43 52 45 41 53 45 20 4D |.."TO INCREASE M|
00003CA0: 41 58 49 4D 55 4D 20 52 45 2D 44 49 4D 45 4E 53 |AXIMUM RE-DIMENS|
00003CB0: 49 4F 4E 22 3A 99 3A 99 22 50 52 4F 47 52 41 4D |ION":.:."PROGRAM|
00003CC0: 20 41 54 20 4C 49 4E 45 20 34 31 35 20 41 4E 44 | AT LINE 415 AND|
00003CD0: 20 31 37 34 22 00 42 3F 17 02 99 3A 99 22 4F 52 | 174".B?...:."OR|
00003CE0: 20 43 41 4C 4C 20 44 49 41 4C 4F 47 20 4F 4E 20 | CALL DIALOG ON |
00003CF0: 30 31 20 32 38 39 20 36 39 30 34 22 3A 99 3A 99 |01 289 6904":.:.|
00003D00: 3A 99 3A 99 22 50 52 45 53 53 20 12 53 50 41 43 |:.:."PRESS .SPAC|
00003D10: 45 20 42 41 52 92 20 46 4F 52 20 4D 45 4E 55 22 |E BAR. FOR MENU"|
00003D20: 00 57 3F 18 02 A1 4B 24 3A 8B 4B 24 B3 B1 22 20 |.W?...K$:.K$.." |
00003D30: 22 A7 35 33 36 00 65 3F 19 02 59 B2 32 30 30 3A |".536.e?..Y.200:|
00003D40: 89 31 32 00 86 3F 1A 02 99 22 93 22 3A 20 99 22 |.12..?...".": ."|
00003D50: 12 20 44 49 53 4B 20 44 49 52 45 43 54 4F 52 59 |. DISK DIRECTORY|
00003D60: 20 92 11 22 00 BC 3F 1B 02 9F 31 2C 38 2C 31 35 | .."..?...1,8,15|
00003D70: 2C 22 49 30 22 3A A0 31 3A 9F 31 2C 38 2C 30 2C |,"I0":.1:.1,8,0,|
00003D80: 22 24 30 22 3A 81 4B B2 31 A4 32 35 3A A1 23 31 |"$0":.K.1.25:.#1|
00003D90: 2C 58 24 3A 82 4B 3A 44 B2 31 00 CB 3F 1C 02 8B |,X$:.K:D.1..?...|
00003DA0: 44 B2 32 A7 44 B2 30 3A 99 00 E9 3F 1D 02 99 A3 |D.2.D.0:...?....|
00003DB0: 32 30 AC 44 29 3B 3A 81 4B B2 31 A4 34 3A A1 23 |20.D);:.K.1.4:.#|
00003DC0: 31 2C 58 24 3A 82 4B 00 02 40 1E 02 8B 20 53 54 |1,X$:.K..@... ST|
00003DD0: 20 B0 20 44 53 20 A7 A0 31 3A 99 3A 89 33 35 01 | . DS ..1:.:.35.|
00003DE0: 38 00 1F 40 1F 02 A1 23 31 2C 58 24 3A 8B 58 24 |8..@...#1,X$:.X$|
00003DF0: B2 22 22 A7 44 B2 44 AA 31 3A 89 35 34 30 00 37 |."".D.D.1:.540.7|
00003E00: 40 20 02 8B 58 24 B2 C7 28 33 34 29 A7 4F B2 A8 |@ ..X$..(34).O..|
00003E10: 4F 3A 89 35 34 33 00 43 40 21 02 8B 4F A7 99 58 |O:.543.C@!..O..X|
00003E20: 24 3B 00 4C 40 22 02 89 35 34 33 00 60 40 23 02 |$;.L@"..543.`@#.|
00003E30: 8B 49 50 24 B2 22 22 A7 49 50 24 B2 22 2D 22 00 |.IP$."".IP$."-".|
00003E40: 9B 40 24 02 8B C6 28 49 50 24 29 B3 34 36 B0 C6 |.@$...(IP$).46..|
00003E50: 28 49 50 24 29 B1 35 37 A7 41 43 B2 31 3A 99 3A |(IP$).57.AC.1:.:|
00003E60: 99 22 12 4E 55 4D 45 52 49 43 20 49 4E 50 55 54 |.".NUMERIC INPUT|
00003E70: 20 52 45 51 55 49 52 45 44 22 00 CB 40 25 02 8B | REQUIRED"..@%..|
00003E80: 52 B3 30 B0 52 B1 59 A7 99 3A 99 22 12 45 4E 54 |R.0.R.Y..:.".ENT|
00003E90: 45 52 20 41 20 56 41 4C 55 45 20 42 45 54 57 45 |ER A VALUE BETWE|
00003EA0: 45 4E 20 31 20 41 4E 44 22 59 00 DD 40 26 02 81 |EN 1 AND"Y..@&..|
00003EB0: 49 B2 31 A4 31 30 30 30 3A 82 3A 8E 00 00 00 58 |I.1.1000:.:....X|
00003EC0: 01 06 00 59 01 06 00 52 01 06 00 43 01 06 00 49 |...Y...R...C...I|
00003ED0: D0 00 6A 08 03 00 00 4B 80 00 FD 9F 00 00 45 CD |..j....K......E.|
00003EE0: 00 77 08 00 00 4E 80 00 7D 08 00 00 53 80 27 D5 |.w...N..}...S.'.|
00003EF0: 31 00 00 4C B3 27 07 32 00 00 54 80 28 38 32 00 |1..L.'.2..T.(82.|
00003F00: 00 46 03 06 00 53 03 06 00 4B CB 09 95 0A 00 00 |.F...S...K......|
00003F10: 4B 00 84 03 04 00 56 80 01 FD 9F 00 00 41 80 74 |K.....V......A.t|
00003F20: 01 02 00 0B 00 0B 00 91 08 03 A5 00 01 01 C3 00 |................|
00003F30: 01 3D 99 01 01 80 66 01 80 99 01 01 0A 66 62 01 |.=....f......fb.|
00003F40: 75 66 01 80 99 01 01 80 66 01 80 99 01 01 0A 66 |uf......f......f|
00003F50: 64 01 75 66 01 80 99 01 01 0A 66 64 01 75 66 01 |d.uf......fd.uf.|
00003F60: 80 99 01 01 80 66 01 80 99 01 01 0A 66 6E 01 75 |.....f......fn.u|
00003F70: 66 01 80 99 01 01 80 66 01 80 99 01 01 0A 66 6E |f......f......fn|
00003F80: 01 75 66 01 80 99 01 01 80 66 01 80 99 01 01 80 |.uf......f......|
00003F90: 66 01 80 99 01 01 0A 66 6E 01 75 66 01 80 99 01 |f......fn.uf....|
00003FA0: 01 80 66 01 80 99 01 01 80 66 01 80 99 01 01 0A |..f......f......|
00003FB0: 66 65 01 75 66 01 80 99 01 01 80 66 01 80 99 01 |fe.uf......f....|
00003FC0: 01 0A 66 62 01 75 66 01 80 99 01 01 0A 66 63 01 |..fb.uf......fc.|
00003FD0: 75 66 01 80 99 01 01 0A 66 64 01 75 66 01 80 99 |uf......fd.uf...|
00003FE0: 01 01 80 66 01 80 99 01 01 0A 66 62 01 75 66 01 |...f......fb.uf.|
00003FF0: 80 99 01 01 0A 66 64 01 75 66 01 80 99 01 01 80 |.....fd.uf......|
00004000: 66 01 80 99 01 01 80 66 01 80 99 01 01 80 66 01 |f......f......f.|
00004010: 80 99 01 01 0A 66 6E 01 75 66 01 80 99 01 01 80 |.....fn.uf......|
00004020: 66 01 80 99 01 01 80 66 01 80 99 01 01 80 66 01 |f......f......f.|
00004030: 80 99 01 01 80 66 01 80 99 01 01 80 66 01 80 99 |.....f......f...|
00004040: 01 01 80 66 01 80 99 01 01 80 66 01 80 99 01 01 |...f......f.....|
00004050: 80 66 01 80 99 01 01 0A 66 67 01 75 66 01 80 99 |.f......fg.uf...|
00004060: 01 01 0A 66 62 01 75 66 01 80 99 01 01 80 66 01 |...fb.uf......f.|
00004070: 80 99 01 01 0A 66 6C 01 75 66 01 80 99 01 01 80 |.....fl.uf......|
00004080: 66 01 80 99 01 01 0A 66 24 01 75 66 01 80 99 01 |f......f$.uf....|
00004090: 01 0A 66 64 01 75 66 01 80 99 01 01 0A 66 6E 01 |..fd.uf......fn.|
000040A0: 75 66 01 80 99 01 01 80 66 01 80 99 01 01 0A 66 |uf......f......f|
000040B0: 64 01 75 66 01 80 99 01 01 80 66 01 80 99 01 01 |d.uf......f.....|
000040C0: 0A 66 67 01 75 66 01 80 99 01 01 80 66 01 80 99 |.fg.uf......f...|
000040D0: 01 01 80 66 01 80 99 01 01 80 66 01 80 99 01 01 |...f......f.....|
000040E0: 0A 66 62 01 75 66 01 80 99 01 01 80 66 01 80 99 |.fb.uf......f...|
000040F0: 01 01 80 66 01 80 99 01 01 80 66 01 80 99 01 01 |...f......f.....|
00004100: 80 66 01 80 99 01 01 0A 66 6E 01 75 66 01 80 99 |.f......fn.uf...|
00004110: 01 01 0A 66 6E 01 75 66 01 80 99 01 01 80 66 01 |...fn.uf......f.|
00004120: 80 99 01 01 80 66 01 80 99 01 01 80 66 01 80 99 |.....f......f...|
00004130: 01 01 80 66 01 80 99 01 01 0A 66 64 01 75 66 01 |...f......fd.uf.|
00004140: 80 99 01 01 0A 99 66 01 75 99 01 80 66 01 01 0A |......f.u...f...|
00004150: 99 64 01 75 99 01 80 66 01 01 0A 99 6C 01 75 99 |.d.u...f....l.u.|
00004160: 01 80 66 01 01 0A 99 62 01 75 99 01 80 66 01 01 |..f....b.u...f..|
00004170: 0A 99 26 01 75 99 01 80 66 01 01 0A 99 67 01 75 |..&.u...f....g.u|
00004180: 99 01 80 66 01 01 0A 99 66 01 75 99 01 80 66 01 |...f....f.u...f.|
00004190: 01 0A 99 6E 01 75 99 01 80 66 01 01 0A 99 60 01 |...n.u...f....`.|
000041A0: 75 99 01 80 66 01 01 0A 99 60 01 75 99 01 80 66 |u...f....`.u...f|
000041B0: 01 01 0A 99 61 01 75 99 01 80 66 01 01 0A 99 66 |....a.u...f....f|
000041C0: 01 75 99 01 80 66 01 01 0A 99 66 01 75 99 01 80 |.u...f....f.u...|
000041D0: 66 01 01 0A 99 66 01 75 99 01 80 66 01 01 0A 99 |f....f.u...f....|
000041E0: 66 01 75 99 01 80 66 01 01 0A 99 66 01 75 99 01 |f.u...f....f.u..|
000041F0: 80 66 01 01 0A 99 66 01 75 99 01 80 66 01 01 0A |.f....f.u...f...|
00004200: 99 67 01 75 99 01 80 66 01 01 0A 99 60 01 75 99 |.g.u...f....`.u.|
00004210: 01 80 66 01 01 0A 99 64 01 75 99 01 80 66 01 01 |..f....d.u...f..|
00004220: 0A 99 66 01 75 99 01 80 66 01 01 0A 99 62 01 75 |..f.u...f....b.u|
00004230: 99 01 80 66 01 01 0A 99 67 01 75 99 01 80 66 01 |...f....g.u...f.|
00004240: 01 0A 99 6E 01 75 99 01 80 66 01 01 0A 99 65 01 |...n.u...f....e.|
00004250: 75 99 01 80 66 01 01 0A 99 66 01 75 99 01 80 66 |u...f....f.u...f|
00004260: 01 01 0A 99 66 01 75 99 01 80 66 01 01 0A 99 66 |....f.u...f....f|
00004270: 01 75 99 01 80 66 01 01 0A 99 66 01 75 99 01 80 |.u...f....f.u...|
00004280: 66 01 01 0A 99 67 01 75 99 01 80 66 01 01 0A 99 |f....g.u...f....|
00004290: 66 01 75 99 01 80 66 01 01 0A 99 61 01 75 99 01 |f.u...f....a.u..|
000042A0: 7C 66 93 20 38 4C 01 55 01 09 99 60 01 75 99 01 ||f. 8L.U...`.u..|
000042B0: 80 66 01 01 0A 99 66 01 75 99 01 80 66 01 01 0A |.f....f.u...f...|
000042C0: 99 2E 01 75 99 01 80 66 01 01 0A 99 66 01 75 99 |...u...f....f.u.|
000042D0: 01 80 66 01 01 0A 99 6B 01 75 99 01 80 66 01 01 |..f....k.u...f..|
000042E0: 0A 99 62 01 75 99 01 80 66 01 01 0A 99 66 01 75 |..b.u...f....f.u|
000042F0: 99 01 80 66 01 01 0A 99 66 01 75 99 01 80 66 01 |...f....f.u...f.|
00004300: 01 0A 99 66 01 75 99 01 80 66 01 01 0A 99 65 01 |...f.u...f....e.|
00004310: 75 99 01 80 66 01 01 0A 99 66 01 75 99 01 80 66 |u...f....f.u...f|
00004320: 01 01 0A 99 64 01 75 99 01 80 66 01 01 0A 99 64 |....d.u...f....d|
00004330: 01 75 99 01 80 66 01 01 0A 99 66 01 75 99 01 80 |.u...f....f.u...|
00004340: 66 01 01 0A 99 66 01 75 99 01 80 66 01 01 0A 99 |f....f.u...f....|
00004350: 67 01 75 99 01 80 66 01 01 0A 99 66 01 75 99 01 |g.u...f....f.u..|
00004360: 80 66 01 01 0A 99 64 01 75 99 01 80 66 01 01 0A |.f....d.u...f...|
00004370: 99 64 01 75 99 01 80 66 01 01 0A 99 74 01 75 99 |.d.u...f....t.u.|
00004380: 01 80 66 01 01 0A 99 62 01 75 99 01 80 66 01 01 |..f....b.u...f..|
00004390: 0A 99 63 01 75 99 01 80 66 01 01 0A 99 66 01 75 |..c.u...f....f.u|
000043A0: 99 01 80 66 01 01 0A 99 63 01 75 99 01 80 66 01 |...f....c.u...f.|
000043B0: 01 0A 99 6C 01 75 99 01 80 66 01 01 0A 99 64 01 |...l.u...f....d.|
000043C0: 75 99 01 80 66 01 01 0A 99 66 01 75 99 01 80 66 |u...f....f.u...f|
000043D0: 01 01 0A 99 64 01 75 99 01 80 66 01 01 0A 99 64 |....d.u...f....d|
000043E0: 01 75 99 01 80 66 01 01 0A 99 67 01 75 99 01 80 |.u...f....g.u...|
000043F0: 66 01 01 0A 99 66 01 75 99 01 80 66 01 01 0A 99 |f....f.u...f....|
00004400: 26 01 75 99 01 80 66 01 01 80 99 01 80 66 01 01 |&.u...f......f..|
00004410: 0A 99 9B 01 75 99 01 80 66 01 01 0A 99 98 01 75 |....u...f......u|
00004420: 99 01 80 66 01 01 80 99 01 80 66 01 01 0A 99 9F |...f......f.....|
00004430: 01 75 99 01 80 66 01 01 0A 99 9B 01 75 99 01 80 |.u...f......u...|
00004440: 66 01 01 0A 99 9B 01 75 99 01 80 66 01 01 80 99 |f......u...f....|
00004450: 01 80 66 01 01 0A 99 D8 01 75 99 01 80 66 01 01 |..f......u...f..|
00004460: 80 99 01 80 66 01 01 80 99 01 80 66 01 01 80 99 |....f......f....|
00004470: 01 80 66 01 01 0A 99 9B 01 75 99 01 80 66 01 01 |..f......u...f..|
00004480: 0A 99 98 01 75 99 01 80 66 01 01 80 99 01 80 66 |....u...f......f|
00004490: 01 01 80 99 01 80 66 01 01 80 99 01 80 66 01 01 |......f......f..|
000044A0: 0A 99 98 01 75 99 01 80 66 01 01 80 99 01 80 66 |....u...f......f|
000044B0: 01 01 0A 99 DD 01 75 99 01 80 66 01 01 0A 99 9D |......u...f.....|
000044C0: 01 75 99 01 80 66 01 01 80 99 01 80 66 01 01 0A |.u...f......f...|
000044D0: 99 98 01 75 99 01 80 66 01 01 0A 99 D9 01 75 99 |...u...f......u.|
000044E0: 01 80 66 01 01 80 99 01 80 66 01 01 0A 99 98 01 |..f......f......|
000044F0: 75 99 01 80 66 01 01 0A 99 9F 01 75 99 01 80 66 |u...f......u...f|
00004500: 01 01 0A 99 9B 01 75 99 01 80 66 01 01 80 99 01 |......u...f.....|
00004510: 80 66 01 01 0A 99 9E 01 75 99 01 80 66 01 01 0A |.f......u...f...|
00004520: 99 93 01 75 99 01 80 66 01 01 80 99 01 80 66 01 |...u...f......f.|
00004530: 01 0A 99 9B 01 75 99 01 80 66 01 01 0A 99 93 01 |.....u...f......|
00004540: 75 99 01 80 66 01 01 80 99 01 80 66 01 01 80 99 |u...f......f....|
00004550: 01 80 66 01 01 80 99 01 80 66 01 01 0A 99 91 01 |..f......f......|
00004560: 75 99 01 80 66 01 01 80 99 01 80 66 01 01 0A 99 |u...f......f....|
00004570: 9B 01 75 99 01 80 66 01 01 80 99 01 80 66 01 01 |..u...f......f..|
00004580: 80 99 01 80 66 01 01 0A 99 98 01 75 99 01 80 66 |....f......u...f|
00004590: 01 01 80 99 01 80 66 01 01 0A 99 91 01 75 99 01 |......f......u..|
000045A0: 80 66 01 01 0A 99 93 01 75 99 01 80 66 01 01 0A |.f......u...f...|
000045B0: 99 9E 01 75 99 01 80 66 01 01 0A 99 9F 01 75 99 |...u...f......u.|
000045C0: 01 80 66 01 01 80 99 01 80 66 01 01 0A 99 91 01 |..f......f......|
000045D0: 75 99 01 80 66 01 01 80 99 01 80 66 01 01 0A 99 |u...f......f....|
000045E0: 9D 01 75 99 01 80 66 01 01 80 99 01 80 66 01 01 |..u...f......f..|
000045F0: 80 99 01 80 66 01 01 0A 99 91 01 75 99 01 80 66 |....f......u...f|
00004600: 01 01 80 99 01 80 66 01 01 80 99 01 80 66 01 01 |......f......f..|
00004610: 0A 99 9F 01 75 99 01 80 66 01 01 0A 99 9D 01 75 |....u...f......u|
00004620: 99 01 80 66 01 01 80 99 01 80 66 01 01 0A 99 9F |...f......f.....|
00004630: 01 75 99 01 80 66 01 01 0A 99 9B 01 25 99 31 EA |.u...f......%.1.|
00004640: 66 FE 47 FE 4A F3 91 F2 0E F2 50 F2 33 F3 57 F1 |f.G.J.....P.3.W.|
00004650: CA F1 ED F6 3E F1 2F F3 66 FE A5 F4 ED F5 01 30 |....>./.f......0|
00004660: 99 01 80 66 01 01 0A 99 D9 01 75 99 01 80 66 01 |...f......u...f.|
00004670: 01 80 99 01 80 66 |.....f |
.......2061...X.....4.... J..M.5....P.N
.N.....P......H...........XJJJJ..ZHP..?
..B..I.N9.N<..Y......T..T.!..T....T....T
.8..... ..........T..T..T....T....T ...T
..........P......0.....@.........PH./P.
P..0..C.1..H. ...........F. .L.. ..L..
I....H ,.H J.$.../5..G.D.D..... ....
..F..........F.JJP.L...........%@......
......K..A.A.........L...O@H@.....5..AP.
.B` `.. `...H.,JP... `... `.I.....HP....
...&.F.F... `...HP...P.....PI.P.........
.........F....`....`...L...{..P.........
............................WV.'.38911.0
000.FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
F.......................................
....................}.... ......}.......
.P..... .H@...!X.C....*....CA...........
.....Y...WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW
WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW
WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW
WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW
WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW
WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW
WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW
WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW
WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW
WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW
WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW
WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW
WWWWWWWWWWWWWWWWW7G7G.G'GG7G7G7G77G7.7GG
G..................7Q..H..Y.............
.........................?...........
.,.P.... ..3....4..........5....6.......
...7....8..........9....:...............
.-....0...`...N.8.A......A.J.....9,.P0.M
.PP........... =HH...............'LH....
..""...@..............AI.........@OACB..
... ...... ..........H....1.......A.....
.......A......ZP..{...I:..I ..8.08.P`.OG
RX..............|..........LH..1.F.G.J..
...P.3.W.J...>./.F............<DFM.%....
....@.@.,<.......&........@.....@.. .. .
..'............... .......Y ...... ..*..
*** .... .... ....... ***.. ..*.C ...C
. . . . . . . .= . . . . . . .
..K ... ........ . C...C 1 ...... ... .
... 2 ...... ...... 3 ...... ........
4 ........ 5 ..../.... ...... 6 ...... .
....... 7 .... ...... 8 ..........< 9 ..
.. ......... ..C...C.I .........53280,2:
.53281,2:. ".".Q....**DFM BY CHRIS ELY*D
IALOG SOFTWARE(C) 15.01.83.....X.0:Y.0:R
.0:C.0:IP$."":K$."":EM$."":N$."":.412...
..A$(R,C)."":F.0:S.0......G(147)......34
3......"... DO YOU WANT .U.PPER OR .L.
OWER CASE"......K$:.K$."".8......K$."U".
.G(142):.12.!....K$."L"..G(14):.12.(....
8.9....G(147):.343.I....:.N$."".17.T...N
L$.N$.R....C(NL$).9.NL$.NL$." ":.15.....
.:.:..8)".FILE IN USE: ";NL$;".":.:.:...
.....14)"KEY OPTION":.263......"1 CREATE
NEW FILE".20)"2 RENAME FILE"......"3 AC
CESS RECORD".20)"4 SELECT".5...."5 LOAD/
SAVE FILE".20)"6 REPORT WRITER.[...."7 S
ORT FILE".20)"8 UTILITIES":..Z.....11)"9
EXIT PROGRAM":.263......K$:.K$."".23...
..KK$."123456789":.K.1.9:.K$.J(KK$,K,1).
26.D....K:.23......Y.0.K..1.K..5.K..8.K.
.9..".NO FILE EXISTS":.260:.12.'.....K.1
28,78,100,191,264,432,416,350,337.1....
410.Y...."DO YOU WISH TO .C.ONTINUE SEAR
CH".T...."OR RETURN TO .M.ENU"......K$:.
K$."".31... ..K$."C"..410:.35...!..K$."M
".12..."..31.K.#..494:CO.1:LN.21:.496...
$.."SEARCH FOR RECORD BY KEY FIELD"...%.
."..-...-".6.&.."ENTER ""."A$(0,1)"."":"
;.C.'..253:.46.L.(..494.`.).CO.1:LN.21:.
496...*.."THERE ARE "Y" RECORDS IN THIS
FILE"...+.."ENTER RECORD NUMBER :";:. 25
3...,.R.E(IP$):.R.0.R.Y.."..":.547:."."S
$:."..":.410: .42...-..101.....L$.IP$...
/.F.C(L$)...0..R.1.Y.*.1..L$.H(A$(R,1),F
).101.0.2...9.3..410.Y.4..".NO SUCH RECO
RD EXISTS!.".I.5..Z.1.1000:..Q.6..28...7
.AC.0: ."WHICH LINE DO YOU WISH TO AMEND
"...8.."PRESS 1 TO "X" :";:.253.W.9.C.E(
IP$):.C.X..410:.55...:..410...;.."EXISTI
NG DATA FOR ""."A$(0.,C)"."" = ":. "."A$
(R,C).>.<.."NEW DATA ";:."[";:.H(S$,A(C)
);.[.=.."]";:.H(T$,A(C));:.".";...>..253
:.AA$(C)."N".."..":.547:.AC.1.AC.0:."."L
3$:."...":.59.E.?.A$(R,C).IP$:.:.A$(R,C)
."".A$(R,C)."-"...@..C(A$(R,C)).A(C).A$(
R,C).H(A$(R,C),A(C))...A.C.2...B..1.01..
.C..263.3.D.."WHICH LINE DO YOU WISH TO
AMEND".R.E.."PRESS 1 TO "X" :";:.253;.M.
F.C.E(IP$):.C.X..410:.68.V.G..410...H.."
."A$(0,C).F.I.."ENTER CORRECT FIELD HEAD
ING [.. ]...";:. 253.X.J.A$(0,C).IP$:...
.K..C(A$(0,C)).9.A$(0,C).A$(0,C)." ":.7.
5.).L..C(A$(0,C)).9.A$(0,C).H(A$(0,C),9)
.2.M..101.D.N.."ENTER NEW FILE NAME [..
]...";.X.O..253:N$.IP$:.12...P..494:CO.1
:LN.21:.496:."DO YOU WISH TO AMEND:-".L.
Q.."FIELD .H.EADING OR .D.ATA"...R..K$:.
K$."".82...S..K$."H"..410:.68...T..K$."D
"..410:.55...U..82.2.V..G(147);:RS.R:.R.
RS.Y:.G(19);.E.W..". RECORDS WILL DISPLA
Y IN LOGICAL ORDER .":....X.CO.1:LN.24:.
496:.".C.ONTINUE SCROLL: .S.TOP SCROLL:
.E.XIT:.T.Y.CO.1:LN.3:.496:."RECORD NO
: ";R:.:.C.1.X...Z.."."A$(0,C)".";:Q.C(A
$(R,C)):.Q.26.Q.26.".[...12)H(A$(R,C),26
).H(S$,26.Q).-.\..C.1...<.]..RN..0.505.C
.^..C.\._.K$."":.K$:.K$."S".98.X.`..K$..
"E"..I.1.500:.I:.R...A..101...B.K$."":.K
$:.K$.."C".K$.."E".98...C..96...D.R.1...
E.A.1.H.F..R.0.R.1...G..R.Y.R.R.1:R.Y...
H..A.0.A.1...I..A.25.A.A.1.#.J..G(1.47):
.".";N$.19)"RECORD NO";R:. 263...K..C.1.
X.:.L.GG.A(C).K.M..GG.24.GG.24.\.N.."."D
(C)".";...O...4)"."H(A$(0,C),9)".".15)J(
A$(R,C),A,GG)...P..C.1..263...Q.....R.CO
.1:LN.20:.496:.L3$...S..".. .**OPTIONS**
... "...T.."PRESS : .N.EXT .L.AST .F.IND
.G.OTO .A.MEND .M.ENU".U.U..".C.ALCS .I
.NPUT .D.ELETE .P.RINT .S.CROLL .<. .>".
^.V..L3$.Q.W..K$:.K$."".119...X.KK$."NLM
IGFS><APCD":.K.1.13:.K$.J(KK$,K,1).122..
.Y..K:.119...Z..K.123,124,12,125,40,35,8
6,126,127,80,363,372,483...{.R.R.1:. 101
...|.R.R.1:.. 101...}.F.1:TV.R:.172.'.~.
A.A.1:.102.6..A.A.1:.102.M....G(147):.:
.".**WARNING** THIS WILL ERASE ANY FILE"
......".CURRENTLY IN MEMORY.":.:.:.:....
....8) "...".X.....8)"PRESS .Y.ES TO CON
TINUE".......8)".. .N.O FOR MENU".......
8) "....".#....512.2....K$."N".12.C....K
$."Y". 137.V....G(147):.:.412......"KEY
DATE EG.(28.12.82)[.. ]...";:.253......I
P$."".141.H....547:.AC.1.AC.0:."."S$".":
."...":.138.....M$.H(IP$,8):.G(147).....
..12)".CREATE RECORD.":........263.9....
"WHAT IS THE FILE NAME ?[.. ]...";.B....
253.T...N$.H(IP$,8):..^.... 263......"HO
W MANY FIELDS IN EACH RECORD ? [ ]...";
:. 253.....X.E(H(IP$,2)):..O....X.1.X.15
..".MAXIMUM IS 15.":.148......415:.G(147
):C.1......".THIS FILE IS NAMED ";.N$:.2
63.9...."NOTE THAT FIELD 1 IS THE . KEY
FIELD . ":..B....263.}...."STATE . TITLE
. OF FIELD"C" [.. ]...";......253:....
..A$(0,C).H(IP$,9).H....C(A$(0,C)).9.A$(
0,C).A$(0,C)." ":.158......"ENTER .C.HAR
ACTER OR .N.UMERIC FIELD [ ]..";:.253...
.AA$(C).H(IP$,1):..*....AA$(C)."N".164.
>....AA$(C)."C".166.L....410:.159.Y...A(
C).9:..B....170......"ENTER NUMBER OF CH
ARACTERS FOR RECORD"......"MAX.36 CHARAC
TERS [ ]...";:.253.H...A(C).E(IP$):....
...A(C).36.."..":.410:.166......C.X.172.
....C.C.1:.".":.152. ....F.1.R.Y.1:Y.Y.1
:.174.,...R.1:Y.1.;....R.200.533.M....G(
147):AC.0: ..12)".RECORD NUMBER";R".":.2
63.......3)"TO TERMINATE DATA ENTRY TYPE
'END'":.......263:.......C.1.X.X...."KE
Y "A$(0,C):."[";:.H(S$,A(C));......"]";:
.H(T$,A(C));:.".";:.253......I.P$."END".
F.0 . R.1:Y.Y.1:. 12.B....IP$."=".A$(R,
C).A$(TV,C):.187.J....IP$."END".F.1.F.0:
R.R.1:Y.Y.1:.101......AA$(C)."N"..547:.A
C.1.AC.0:."."S$:.".":."...":.179.....A$(
R,C).H(IP$,A(C)):..Z....A$(R,C)."".A$(R,
C)."-"......263............F.1.F.0:.101.
....R.R.1:Y.Y.1:. 174.>....G(147):..15)"
.**SELECT**":.263:E.0:RC.0......"DO YOU
WANT TO OUTPUT RESULTS TO":."PRINTER: KE
Y .Y.ES OR .N.O"...A..263...B..512...C..
K$."Y".PR.5:.197.B.D..K$."N".PR.0:.197.R
.E..PR.0.TT.15...F..R.1.Y...G..410:.".EN
TER SELECTED .FIELD. .[.. ]...";:.253;.,
.H.DP$.IP$:..K.I..C(DP$).9.DP$.DP$." ":.
201.Z.J..:.263:C.1.O.K..A$(0,C).DP$.206.
..L.C.C.1:.C.X.1.203...M.EM$.".NO SUCH F
IELD":.260:.12...N.."ENTER ."DP$".".R.O.
."[";:.H(S$,A(C));...P.."]";:.H(T$,A(C))
;:.".";...Q..253:CP$.IP$:.:. 263...R.F.C
(CP$).:.S..G(147):.:. 263:.AA$(C).."C".2
14.C.T.."DO YOU WANT A STANDARD OR SLIDI
NG"...U.."STRING SEARCH: ENTER .ST. OR .
SS. [ ]...";:.253:ST$.IP$.K.V..G(147):.
:. 263:.AA$(C)."N".J.1:.217...W..ST$."SS
".SS.1:I.1:.225...X..ST$."ST".SS.0:I.1:J
.1:.225.%.Y.."SHOULD . "DP$" . BE:":..C.
Z...2)".E.QUAL TO".15)CP$:..B.....2)".L.
ESS THAN".15)CP$:........2)".G.REATER TH
AN".15)CP$:.......K$:.K$."".221.....KK$.
"ELG":.I.1.3:.K$.J(KK$,I,1).224.K....I:.
221......G(147):. 263.. ..AR.24:.PR.5..5
14:.".".14)".**PRINTING**.":AR.A(1):.4,4
:.4.H ..."FILE NAME : "N$:.:."SELECTION
: "DP$:..[ ...I.240,228,234.. ..."CRITER
IA < "CP$" ":.263:.R.1.Y.. ...508.J ...
E(A$(R,C)).E(CP$).."RECORD NO ";R.TT)H(A
$(R,1),AR):RC.RC.1.P ..... ...PR.5..4: 4
.. ...249..!..."CRITERIA > "CP$" ":.263
:.R.1.Y..!...508.X!...E(A$(R,C)).E(CP$).
."RECORD NO ";R.TT)H(A$(R,1),AR):RC.RC.1
.^!....N!...PR.5..4: 4.W!...249..!..."CR
ITERIA = "CP$" ":.263:.R.1.Y..!...R.1.Y
..!...508.G!...SS.1..J.1.A(C).F.."...J(A
$(R,C),J,F).CP$.."RECORD NO ";R.TT)H(A$(
R,1),AR):RC.RC.1.."...SS.0.247.."...J.#"
....3"...PR.5..4: 4.O"...:.".RECORDS COU
NTED =. ";RC:.:..13)".PRESS SPACE BAR.".
."...K$:.K$."".250.."...K$." ".R.R.1:.12
.."...250.."..B$." ":."";.G"...IP$:.IP$.
""..254.."...B$." ".F(IP$).20..254..#...
F(IP$).20.B$.H(B$,C(B$).1.):.". .";:.254
..#...IP$.G(13).IP$.J(B$,2):.:..F#..A.F(
IP$):.A.31..254.G#..B$.B$.IP$:.".";IP$;"
.";:.254.Q#... EM$..#... T8.1 .1000:...#
.....#...".'.":...#... "DO YOU WISH TO .
L.OAD OR .S.AVE":...#...K$:.K$."".265..$
...K$."L".283..$...K$."S".269.!$...265.*
$...410.W$..."ARE YOU SAVING ON .D.ISC O
R .T.APE?":..J$...K$:.K$."".271.Z$...K$.
"T".275..$...K$."D".297..$...271..$...41
0..$...".INSERT CASSETTE".Q$..."PRESS .C
. TO CONTINUE"..$...K$:.K$.."C". 278..$.
..410:."SAVING ."N$..%...".."..%... 1,1,
1,N$. %...305.&%....N%...412:.410:."ARE
YOU LOADING FROM:-".F%...".D.ISK OR .T.A
PE".Y%...K$:.K$."".286..%...K$."T".290..
% ..K$."D".295..%!..286..%".T.1:U.0:NN$.
N$.V%#..410:."IS CASSETTE IN PLACE"..%$.
."PRESS .Y.ES TO CONTINUE"..&%..K$:.K$..
"Y".293..&&..315.H&'.T.8:U.4:N1$."0:":N2
$.",SEQ,READ":NN$.N1$.NN$.N2$.Q&(..315.Z
&)..410..&*.."DO YOU WANT TO SAVE ON DRI
VE .0. OR .1."..&+..K$:.K$."".299..&,..K
$."0".DR$."0:":.303.P&-..K$."1".DR$."1:"
:.303.Y&...299..'/.N1$.DR$:N2$.",SEQ,WRI
TE":NN$.N1$.N$..N2$..'0..1,8,4,"@".NN$.)
'1..1,Y:.G(13);.:'2..1,X:.G(13);.W'3..C.
1.X:.1,A(C):.G(13);:..V'4..C.1.X:.1,AA$(
C):.G(13);:...'5..R.1.Y..'6..C.1.X:.1,A$
(R,C):.G(13);:...'7...G'8..C.1.X:.1,A$(0
,C):.G(13);:..N'9. 1.V':..12..(;..410:."
ENTER FILE NAME [.. ].......";:. 253.((<
.N$.H(IP$,9):NN$.N$:..8(=..T.1.."...".G(
>..1,T,U,NN$.Z(?..1,Y:.1,X:.415.O(@..C.1
.X:.1,A(C):...(A..C.1.X:.1,AA$(C):...(B.
.R.1.Y..(C..C.1.X..(D..1,A$(R,C)..(E..:.
..(F..C.1.X.M(G..1,A$(0,C).S(H...Z(I. 1.
.(J..410..)K..Y.0.N$."":.".FILE NOT FO.U
ND ON DISK":.I.1.1000:.:.12.T)L.."KEY DA
TE EG.(28.12.83)[.. ]...";:.253.D)M..IP$
."".335..)N.R.1:.:.547:.AC.1.AC.0:."."S$
".":."...":.332..)O.M$.H(IP$,8):...)P..1
2.S)Q.."EXIT 'DFM' ARE YOU SURE (Y/N)..)
R..K$:.K$."".338..)S..K$."Y".N$."":.343.
.*T...K$."N".12..*U.... ./*V..339.. .\*W
..: ."... ..*"..*X..".. *** .DATA. .FIL
E. .MANAGER. ***"..*Y..".. ..*":..C*Z..N
$.."". ...*[..".. BY.. ":.."+\..".. . D
. .. I . . A . . L . . O . . G . ":..I+]
..".. S O F T W A R E":.:..U+^..G(147).W
+_...14)".**UTILITIES**.":.263:...+`.."
.M.EMORY AVAILABILITY":.:." .D.ISK DIR
ECTORY":..J+A.." MENU .SPACE BAR."..+B.
.V$:.V$."".354..+C..V$."M".361..+D..V$."
D".538..,E...V$." ".12./,F..:.".PRESS SP
ACE BAR FOR MENU".D,G..K$:.K$.." ".354.L
,H..12.M,I.."....".24)"= ".(0)"BYTES ".}
,J..G(19):.351..,K..494..,L..514..,M..4,
4:.4.F,N..G(147):.".";N$ .19)"RECORD NO"
;R:.L3$..,O.C.1:."."D(C)".";:..2)"." A$(
0,C)".".3);H(A$(R,C),24)..-P..L3$..-Q..
C.2 . X.=-R..D(C);:..2)A$(0,C).3)H(A$(R,
C),24).X-S..:.:.263:.: .4: 4:.101..-T..4
94:CO.1:LN.21:.496:."DO YOU WISH TO PERF
ORM INDIVIDUAL"..-U..".C.ALCS OR .T.OTAL
ISE FIELD".L-V..K$:.K$."".374..-W..K$."T
"..410:.396..-X..K$."C"..410:.378...Y..3
74. .Z.."WHICH FIELD DO YOU WISH".J.{.."
TO CALCULATE, KEY 1 TO "X" :";:.253.F.|.
C.E(IP$):.C.X..410:.378.O.}..410...~..AA
$(C)."C"..".CHARACTER. FIELD".....AA$(C
)."N".385......I.1.1000:.:.114......"KEY
LETTER FOLLOWED BY AMOUNT EG.(A25)".!/.
..".A.DD .S.UBTRACT .M.ULTIPLY .D.IVIDE
.Z.EROISE".A/...".R.EPLACE :";:.253:L$.I
P$.J/...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..0...H(L$,1)
."R".P.E(J(L$,2))..0..A$(R,C).J(D(P),2).
70...101.V0..."WHICH FIELD DO YOU WISH".
~0..."TO TOTALISE KEY 1 TO "X" :";:.253.
.0..C.E(IP$):.C.X..410:.396..0...410.H0.
..AA$(C)."C"..".CHARACTER. FIELD"..0...A
A$(C)."N".403..0...I.1.1000:.:.114..0..T
.0..1... R..1.Y:T.T.E(A$(R,C)):..\1..."T
OTAL FILE VALUE OF FIELD :":."."A$(0,C)"
."" =.. ";T.1..."PRESS .SPACE BAR. TO R
ETURN"..1...K$:.K$."".407..1...K$." ".10
1..1...407..1..:.M1..."..";:.S$:.S$:."..
.":...1..S$.".' ".02...L3$.".'-".D2..T$.
".(.":...2... A$(200,X),AA$(X),A(X),C$(X
),B$(X):A$(R,C)."":...2 .."WHICH FIELD D
O YOU WISH TO"..2..."SORT BY.. KEY 1 TO
"X" :";:.253..2..M.E(IP$)..2...410..3...
".SORTING. PLEASE WAIT".!3...R.1.Y.1.03.
..I.(R.1).Y.U3...AA$(M)."C".A$(I,M)..A$(
R,M).430..3...AA$(M)."N".E(A$(I,M))..E(A
$(R,M)).430..3...C.1.X..3..B$(C).A$(R,C)
..3..A$(R,C).A$(I,C).C3..A$(I,C).B$(C).J
3...C.R3...:...3...".SORT. COMPLETED":.J
.1.1000:.:.12. 4...G(147):..10)".**REPOR
T WRITER**".L4..."WHICH OF THE FOLLOWING
FIELDS DO YOU".Q4..."WISH TO INCLUDE IN
THE REPORT".Z4...L3$..4...C.1.X..4...A$
(0,C);.K4....25)"KEY .Y. OR .N. [ ]..";:
.253:C$(C).H(IP$,1):.C..4...L3$:.:..6)"<
< ACCEPT FIELD SELECTION >>".*5...:..4)"
KEY .Y. TO CONTINUE .N. TO RE-SELECT".35
...512.C5...K$."N".432.Q5...K$."Y"..G(14
7):..10)".**REPORT WRITER**"..5...:..9)"
PRINTER INFORMATION":.L3$.Q5..."DO YOU R
EQUIRE LINE FEED".25)"KEY .Y. OR .N. [ ]
..";..5...253:LF$.H(IP$,1):..66..."DO YO
U WISH TO SEND A":."CHR$ TO THE PRINTER"
.25)"KEY .Y. OR .N. [ ]";.E6..."..";:.25
3:CS$.H(IP$,1):G.9:.CS$."Y".G.11..6A..CS
$."Y"..:."ENTER CHR$".35)"[ ]...";:.253
:CS.E(IP$)..6B..L3$:.456..6C..".":.I.1.G
:.:.:.I.1.23.G:.S$:.I:.".":.I.1.G:.:..*7
D...12)".**TEST OVER**":.:..5):."KEY .Y.
TO CONTINUE .N. TO RE-SETUP".37E..512.C
7F..K$."Y".461.Y7G..K$."N"..517:.432..7H
.."DO YOU REQUIRE TEST PRINT: KEY .Y. OR
.N.":.L3$..7I..512..7J..K$."N"..514:.46
1.D7K..K$."Y"..514:.518.M7L..451.Y7M..4,
4:.4..7N..CS$."Y".. G(CS)..8O..M$.10)"FI
LENAME = "N$:.:.531..8P.R.0:P.0.$8Q.C.1.
=8R.PD.A(C).C(A$(R,C)).1.L8S..PD.1.PD.1.
.8T.PD$.H(S$,PD):.C$(C)."Y"..H(A$(R,C),A
(C)).PD$;:.R.0.P.P.A(C)..8U.C.C.1:.C.X.1
.466..8V..531.L8W..R.0..:.I.1.P.2:."-";:
.I:.531..8X.R.R.1:.:.R.Y.1.465..8Y..:.:.
..9Z.." *TOTALS*":..531..9..." ..-":
.:.531..9...C.1.X:T.0.J9...R.1.Y:T.T.E(A
$(R,C)):..N9...AA$(C)."N"..A$(0,C).20);T
:.531.U9...C.9...4: 4..9...517..9...12.
G9...494:CO.1:LN.21:.496:.".DELETE. ARE
YOU SURE? Y/N".P9...512..9...K$."Y".488.
.9...K$."N".114..9...484..:..T.R.:.R.T.Y
.1..:...C.1.X.+:..A$(R,C).A$(R.1,C).2:..
.C.9:...R.H:..Y.Y.1:.100.C:..CO.1:LN.21:
.496:.I.1.3..:...".' ":.I:..J:..ACC$.".'
."..:..DOW$."..."..:...Z.1.2..;....".";.
.;...CO.1..H(ACC$,CO.1);.7;...LN.1..H(DO
W$,LN.1);.L;...Z.1..".' ";.S;...Z.Y;....
.;...:.:.263:..6)"PRESS . SPACE BAR . FO
R MENU".D;..K$."":.K$:.K$.." ".506.L;...
12..;...PR.5.C(D(R)).2.TT.5..;...PR.5.C(
D(R)).3.TT.4..<....PR.5.C(D(R)).4.TT.3..
<....:<...K$:.K$.."Y".K$.."N".512.@<....
<..CO.1:LN.21:.496:." << ENSURE THAT PR
INTER IS ALIGNED >>":...<...".. PRESS .S
PACE BAR. TO CONTINUE":.K$:.K$.." ".514.
.<.....<...C.1.X:A$(0,C).H(A$(0,C),9):.:
...=..RP$."":.C.1.X:TP$."":.C$(C)."Y"..5
28..=...C.D=..R.0:R$."":PD$."":.C.1.X:PD
.A(C).C(A$(R,C)).1.S=...PD.1.PD.1..=..PD
$.H(S$,PD):.C$(C)."Y".R$.R$.H(A$(R,C),A(
C)).PD$..=...C..=...4,4:.4:.CS$."Y"..G(C
S).N=...M$.10)"FILENAME = "N$:.:.531..=.
..R$:.I.1.C(R$):."-";:.I:.:.531..>...RP$
:.4: 4:..">...I.1.A(C):TP$.TP$.AA$(C):.I
.M>...C(TP$).C(A$(1,C)).TP$.TP$.AA$(C):.
529.K>..TP$.TP$." ":RP$.RP$.TP$:..>...L
F$."Y"..G(10)..>.....>...".MAX NO OF REC
ORDS NOW REACHED.":...>..."TO INCREASE M
AXIMUM RE-DIMENSION":.:."PROGRAM AT LINE
415 AND 174".B?...:."OR CALL DIALOG ON
01 289 6904":.:.:.:."PRESS .SPACE BAR. F
OR MENU".W?...K$:.K$.." ".536.E?..Y.200:
.12..?...".": .". DISK DIRECTORY .."..?.
..1,8,15,"I0": 1:.1,8,0,"$0":.K.1.25:.#1
,X$:.K:D.1.K?...D.2.D.0:...?....20.D);:.
K.1.4:.#1,X$:.K..@... ST . DS . 1:.:.35.
8..@...#1,X$:.X$."".D.D.1:.540.7@ ..X$.G
(34).O..O:.543.C@!..O..X$;.L@"..543.`@#.
.IP$."".IP$."-"..@$..F(IP$).46.F(IP$).57
.AC.1:.:.".NUMERIC INPUT REQUIRED".K@%..
R.0.R.Y..:.".ENTER A VALUE BETWEEN 1 AND
"Y..@&..I.1.1000:.:....X...Y...R...C...I
P.J....K......EM.W...N..}...S.'U1..L.'.2
..T.(82..F...S...KK.....K.....V......A.T
..............C..=....F......FB.UF......
F......FD.UF......FD.UF......F......FN.U
F......F......FN.UF......F......F......F
N.UF......F......F......FE.UF......F....
..FB.UF......FC.UF......FD.UF......F....
..FB.UF......FD.UF......F......F......F.
.....FN.UF......F......F......F......F..
....F......F......F......F......FG.UF...
...FB.UF......F......FL.UF......F......F
$.UF......FD.UF......FN.UF......F......F
D.UF......F......FG.UF......F......F....
..F......FB.UF......F......F......F.....
.F......FN.UF......FN.UF......F......F..
....F......F......FD.UF.......F.U...F...
.D.U...F....L.U...F....B.U...F....&.U...
F....G.U...F....F.U...F....N.U...F....`.
U...F....`.U...F....A.U...F....F.U...F..
..F.U...F....F.U...F....F.U...F....F.U..
.F....F.U...F....G.U...F....`.U...F....D
.U...F....F.U...F....B.U...F....G.U...F.
...N.U...F....E.U...F....F.U...F....F.U.
..F....F.U...F....F.U...F....G.U...F....
F.U...F....A.U..|F. 8L.U...`.U...F....F.
U...F......U...F....F.U...F....K.U...F..
..B.U...F....F.U...F....F.U...F....F.U..
.F....E.U...F....F.U...F....D.U...F....D
.U...F....F.U...F....F.U...F....G.U...F.
...F.U...F....D.U...F....D.U...F....T.U.
..F....B.U...F....C.U...F....F.U...F....
C.U...F....L.U...F....D.U...F....F.U...F
....D.U...F....D.U...F....G.U...F....F.U
...F....&.U...F......F......U...F......U
...F......F......U...F......U...F......U
...F......F....X.U...F......F......F....
..F......U...F......U...F......F......F.
.....F......U...F......F......U...F.....
.U...F......F......U...F....Y.U...F.....
.F......U...F......U...F......U...F.....
.F......U...F......U...F......F......U..
.F......U...F......F......F......F......
U...F......F......U...F......F......F...
...U...F......F......U...F......U...F...
...U...F......U...F......F......U...F...
...F......U...F......F......F......U...F
......F......F......U...F......U...F....
..F......U...F......%.1.F.G.J.....P.3.W.
J...>./.F......0...F....Y.U...F......F
> CLICK IMAGE PREVIEW FOR FULL MODAL