Size : 512 (Real : 512)
000000: 11 00 03 21 00 00 06 04 CD 01 02 30 34 10 F9 CD  ...!.......04...
000010: C5 01 20 64 11 00 0C 06 10 7E B7 28 1A E5 C5 6F  .. d.....~.(...o
000020: 26 00 CD FC 01 30 1A C1 E1 23 10 ED 21 2A 02 34  &....0...#..!*.4
000030: D5 CD C5 01 D1 28 E0 21 00 0C 0E FF CD 9B BE 16  .....(.!........
000040: BD 21 46 01 18 6B 0D 0A 44 69 73 63 65 74 74 65  .!F..k..Discette
000050: 20 72 65 61 64 20 66 61 69 6C 75 72 65 0D 0A 50   read failure..P
000060: 72 65 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20  ress any key to 
000070: 72 65 73 74 61 72 74 FF 21 7D 01 18 34 0D 0A 43  restart.!}..4..C
000080: 61 6E 6E 6F 74 20 66 69 6E 64 20 22 2E 45 4D 53  annot find ".EMS
000090: 22 20 66 69 6C 65 0D 0A 50 72 65 73 73 20 61 6E  " file..Press an
0000A0: 79 20 6B 65 79 20 74 6F 20 72 65 73 74 61 72 74  y key to restart
0000B0: FF 7E 23 FE FF C4 5A BB 20 F7 CD 1B BB 38 FB CD  .~#...Z. ....8..
0000C0: 18 BB CF 00 00 21 00 03 06 40 7E E6 F0 20 22 C5  .....!...@~.. ".
0000D0: E5 11 0D 00 19 11 2B 02 01 FF 0C 1B 1A 2B AE A1  ......+......+..
0000E0: 28 09 1A FE 3F 20 08 7E A1 12 AF 0E 7F 10 EC E1  (...? .~........
0000F0: C1 11 10 00 19 C8 19 10 D1 F6 FF C9 29 CD 01 02  ............)...
000100: D0 C5 E5 01 F7 FF 3E 01 3C 09 38 FC 67 7D C6 4A  ......>.<.8.g}.J
000110: 4F 2E 00 EB CD 89 BE EB E1 C1 D0 14 14 23 C9 3F  O............#.?
000120: 3F 3F 3F 3F 3F 3F 3F 45 4D 53 00 CF CF CF CF CF  ???????EMS......
000130: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF  ................
000140: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF  ................
000150: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF  ................
000160: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF  ................
000170: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF  ................
000180: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF  ................
000190: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF  ................
0001A0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF  ................
0001B0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF  ................
0001C0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF  ................
0001D0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF  ................
0001E0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF  ................
0001F0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF  ................

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: 00 41 55 54 48 4F 52 53 20 4E 44 58 00 00 00 10  .AUTHORS NDX....
000010: 02 03 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000020: 00 42 4F 4F 4B 32 20 20 20 46 52 4D 00 00 00 04  .BOOK2   FRM....
000030: 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000040: 00 54 59 50 45 2D 4D 45 20 20 20 20 00 00 00 3B  .TYPE-ME    ...;
000050: 05 06 07 08 09 0A 0B 0C 00 00 00 00 00 00 00 00  ................
000060: 00 42 4F 4F 4B 53 20 20 20 44 42 46 00 00 00 2C  .BOOKS   DBF...,
000070: 0D 0E 0F 10 11 12 00 00 00 00 00 00 00 00 00 00  ................
000080: 00 42 4F 4F 4B 53 20 20 20 46 52 4D 00 00 00 02  .BOOKS   FRM....
000090: 13 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000A0: 00 42 4F 4F 4B 53 31 20 20 43 4D 44 00 00 00 10  .BOOKS1  CMD....
0000B0: 14 15 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000C0: 00 42 4F 4F 4B 53 32 20 20 43 4D 44 00 00 00 1C  .BOOKS2  CMD....
0000D0: 16 17 18 19 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000E0: 00 42 4F 4F 4B 53 33 20 20 43 4D 44 00 00 00 14  .BOOKS3  CMD....
0000F0: 1A 1B 1C 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000100: 00 42 4F 4F 4B 53 34 20 20 43 4D 44 00 00 00 10  .BOOKS4  CMD....
000110: 1D 1E 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000120: 00 42 4F 4F 4B 53 35 20 20 43 4D 44 00 00 00 08  .BOOKS5  CMD....
000130: 1F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000140: 00 42 4F 4F 4B 53 36 20 20 43 4D 44 00 00 00 08  .BOOKS6  CMD....
000150: 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ...............
000160: 00 42 4F 4F 4B 53 37 20 20 43 4D 44 00 00 00 10  .BOOKS7  CMD....
000170: 21 22 00 00 00 00 00 00 00 00 00 00 00 00 00 00  !"..............
000180: 00 42 4F 4F 4B 53 38 20 20 43 4D 44 00 00 00 09  .BOOKS8  CMD....
000190: 23 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00  #$..............
0001A0: 00 46 52 4F 4E 41 20 20 20 44 46 4C 00 00 00 08  .FRONA   DFL....
0001B0: 25 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  %...............
0001C0: 00 46 52 4F 4E 41 20 20 20 45 4E 44 00 00 00 80  .FRONA   END....
0001D0: 26 27 28 29 2A 2B 2C 2D 2E 2F 30 31 32 33 34 35  &'()*+,-./012345
0001E0: 00 46 52 4F 4E 41 20 20 20 45 4E 44 01 00 00 08  .FRONA   END....
0001F0: 36 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  6...............

Size : 512 (Real : 512)
000000: 10 00 00 06 00 20 20 20 20 20 20 20 20 20 20 20  .....           
000010: 20 57 4F 52 4C 44 20 41 54 4C 41 53 20 00 00 0E   WORLD ATLAS ...
000020: 00 42 59 52 4F 4E 20 20 20 20 20 20 20 43 48 49  .BYRON       CHI
000030: 4C 44 45 20 48 41 52 4F 4C 00 00 04 00 43 4C 41  LDE HAROL....CLA
000040: 52 4B 45 2C 4D 52 53 20 4D 52 49 56 41 4C 20 50  RKE,MRS MRIVAL P
000050: 52 49 4E 43 45 00 00 09 00 43 4F 4E 52 41 44 20  RINCE....CONRAD 
000060: 20 20 20 20 20 4C 4F 52 44 20 4A 49 4D 20 20 20       LORD JIM   
000070: 20 00 00 0D 00 44 41 4E 54 45 20 20 20 20 20 20   ....DANTE      
000080: 20 49 4E 46 45 52 4E 4F 20 20 20 20 20 00 00 19   INFERNO     ...
000090: 00 44 45 20 50 41 43 45 20 20 20 20 20 57 4F 52  .DE PACE     WOR
0000A0: 4B 49 4E 47 20 57 49 54 48 00 00 03 00 44 49 43  KING WITH....DIC
0000B0: 4B 45 4E 53 20 20 20 20 20 42 4C 45 41 4B 20 48  KENS     BLEAK H
0000C0: 4F 55 53 45 20 00 00 02 00 44 49 43 4B 45 4E 53  OUSE ....DICKENS
0000D0: 20 20 20 20 20 44 4F 4D 42 45 59 20 41 4E 44 20       DOMBEY AND 
0000E0: 53 00 00 1B 00 44 52 20 50 41 59 4E 45 20 20 20  S....DR PAYNE   
0000F0: 20 54 48 45 20 41 52 54 20 4F 46 20 53 00 00 08   THE ART OF S...
000100: 00 47 52 45 59 2C 5A 41 4E 45 20 20 20 52 49 44  .GREY,ZANE   RID
000110: 45 52 53 20 4F 46 20 54 48 00 00 17 00 48 45 52  ERS OF TH....HER
000120: 42 45 52 54 2C 46 52 41 4E 44 55 4E 45 20 20 20  BERT,FRANDUNE   
000130: 20 20 20 20 20 00 00 18 00 48 45 52 42 45 52 54       ....HERBERT
000140: 2C 46 52 41 4E 44 55 4E 45 20 4D 45 53 53 49 41  ,FRANDUNE MESSIA
000150: 48 00 00 0F 00 49 42 53 45 4E 20 20 20 20 20 20  H....IBSEN      
000160: 20 44 4F 4C 4C 27 53 20 48 4F 55 53 45 00 00 14   DOLL'S HOUSE...
000170: 00 4A 4F 59 43 45 20 20 20 20 20 20 20 46 49 4E  .JOYCE       FIN
000180: 4E 49 47 41 4E 27 53 20 57 00 00 15 00 4A 4F 59  NIGAN'S W....JOY
000190: 43 45 20 20 20 20 20 20 20 50 4F 52 54 52 41 49  CE       PORTRAI
0001A0: 54 20 4F 46 20 00 00 0C 00 4B 41 4E 54 20 20 20  T OF ....KANT   
0001B0: 20 20 20 20 20 43 52 49 54 49 51 55 45 20 4F 46       CRITIQUE OF
0001C0: 20 00 00 07 00 54 4F 4C 53 54 4F 59 20 20 20 20   ....TOLSTOY    
0001D0: 20 41 4E 4E 41 20 4B 41 52 45 4E 49 4E 00 00 0A   ANNA KARENIN...
0001E0: 00 54 4F 4C 53 54 4F 59 20 20 20 20 20 57 41 52  .TOLSTOY     WAR
0001F0: 20 41 4E 44 20 50 45 41 43 00 00 0B 00 57 4F 52   AND PEAC....WOR

Size : 512 (Real : 512)
000000: 00 46 52 4F 4E 42 20 20 20 45 4E 44 00 00 00 2F  .FRONB   END.../
000010: 37 38 39 3A 3B 3C 00 00 00 00 00 00 00 00 00 00  789:;<..........
000020: 00 46 52 4F 4E 43 20 20 20 45 4E 44 00 00 00 2E  .FRONC   END....
000030: 3D 3E 3F 40 41 42 00 00 00 00 00 00 00 00 00 00  =>?@AB..........
000040: 00 46 52 4F 4E 44 20 20 20 45 4E 44 00 00 00 29  .FROND   END...)
000050: 43 44 45 46 47 48 00 00 00 00 00 00 00 00 00 00  CDEFGH..........
000060: 00 46 52 4F 4E 45 20 20 20 45 4E 44 00 00 00 36  .FRONE   END...6
000070: 49 4A 4B 4C 4D 4E 4F 00 00 00 00 00 00 00 00 00  IJKLMNO.........
000080: 00 46 52 4F 4E 46 20 20 20 45 4E 44 00 00 00 37  .FRONF   END...7
000090: 50 51 52 53 54 55 56 00 00 00 00 00 00 00 00 00  PQRSTUV.........
0000A0: 00 46 52 4F 4E 47 20 20 20 45 4E 44 00 00 00 37  .FRONG   END...7
0000B0: 57 58 59 5A 5B 5C 5D 00 00 00 00 00 00 00 00 00  WXYZ[\].........
0000C0: 00 46 52 4F 4E 48 20 20 20 45 4E 44 00 00 00 52  .FRONH   END...R
0000D0: 5E 5F 60 61 62 63 64 65 66 67 68 00 00 00 00 00  ^_`abcdefgh.....
0000E0: 00 46 52 4F 4E 49 20 20 20 45 4E 44 00 00 00 67  .FRONI   END...g
0000F0: 69 6A 6B 6C 6D 6E 6F 70 71 72 73 74 75 00 00 00  ijklmnopqrstu...
000100: 00 46 52 4F 4E 49 32 20 20 45 4E 44 00 00 00 5B  .FRONI2  END...[
000110: 76 77 78 79 7A 7B 7C 7D 7E 7F 80 81 00 00 00 00  vwxyz{|}~.......
000120: 00 46 52 4F 4E 49 58 20 20 44 42 57 00 00 00 08  .FRONIX  DBW....
000130: 82 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000140: 00 46 52 4F 4E 54 20 20 20 45 4E 44 00 00 00 0E  .FRONT   END....
000150: 83 84 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000160: 00 52 4F 4F 4D 53 20 20 20 46 52 4D 00 00 00 02  .ROOMS   FRM....
000170: 85 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000180: 00 52 4F 4F 4D 53 20 20 20 4E 44 58 00 00 00 08  .ROOMS   NDX....
000190: 86 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001A0: 00 53 55 42 4A 45 43 54 20 4E 44 58 00 00 00 10  .SUBJECT NDX....
0001B0: 87 88 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001C0: 00 54 49 54 4C 45 53 20 20 4E 44 58 00 00 00 24  .TITLES  NDX...$
0001D0: 89 8A 8B 8C 8D 00 00 00 00 00 00 00 00 00 00 00  ................
0001E0: 00 49 4E 54 52 4F 20 20 20 43 4D 44 00 00 00 18  .INTRO   CMD....
0001F0: 8E 8F 90 00 00 00 00 00 00 00 00 00 00 00 00 00  ................

Size : 512 (Real : 512)
000000: 0D 00 00 05 00 4B 45 41 54 53 20 20 20 20 20 20  .....KEATS      
000010: 20 43 4F 4C 4C 45 43 54 45 44 20 50 4F 00 00 16   COLLECTED PO...
000020: 00 4D 41 55 47 48 41 4D 2C 53 4F 4D 45 43 41 4B  .MAUGHAM,SOMECAK
000030: 45 53 20 41 4E 44 20 41 4C 00 00 1A 00 4D 52 53  ES AND AL....MRS
000040: 20 4E 20 45 20 54 52 45 4D 54 48 45 20 54 52 49   N E TREMTHE TRI
000050: 41 4C 53 20 54 00 00 01 00 53 48 41 4B 45 53 50  ALS T....SHAKESP
000060: 45 41 52 45 20 41 53 20 59 4F 55 20 4C 49 4B 45  EARE AS YOU LIKE
000070: 20 00 00 10 00 53 48 41 4B 45 53 50 45 41 52 45   ....SHAKESPEARE
000080: 20 48 45 4E 52 59 20 56 20 20 20 20 20 00 00 12   HENRY V     ...
000090: 00 53 48 41 4B 45 53 50 45 41 52 45 20 4B 49 4E  .SHAKESPEARE KIN
0000A0: 47 20 4C 45 41 52 20 20 20 00 00 11 00 53 48 41  G LEAR   ....SHA
0000B0: 4B 45 53 50 45 41 52 45 20 52 4F 4D 45 4F 20 41  KESPEARE ROMEO A
0000C0: 4E 44 20 4A 55 00 00 13 00 53 48 41 4B 45 53 50  ND JU....SHAKESP
0000D0: 45 41 52 45 20 54 45 4D 50 45 53 54 20 20 20 20  EARE TEMPEST    
0000E0: 20 00 00 1D 00 54 48 41 54 43 48 45 52 20 26 20   ....THATCHER & 
0000F0: 4C 57 48 41 54 20 45 43 4F 4E 4F 4D 49 00 00 07  LWHAT ECONOMI...
000100: 00 54 4F 4C 53 54 4F 59 20 20 20 20 20 41 4E 4E  .TOLSTOY     ANN
000110: 41 20 4B 41 52 45 4E 49 4E 00 00 0A 00 54 4F 4C  A KARENIN....TOL
000120: 53 54 4F 59 20 20 20 20 20 57 41 52 20 41 4E 44  STOY     WAR AND
000130: 20 50 45 41 43 00 00 1C 00 57 49 4C 4C 49 41 4D   PEAC....WILLIAM
000140: 20 54 45 4C 4C 54 48 45 20 4C 4F 53 53 20 4F 46   TELLTHE LOSS OF
000150: 20 00 00 0B 00 57 4F 52 44 53 57 4F 52 54 48 20   ....WORDSWORTH 
000160: 20 4D 49 43 48 41 45 4C 20 20 20 20 20 00 00 12   MICHAEL     ...
000170: 00 53 48 41 4B 45 53 50 45 41 52 45 20 4B 49 4E  .SHAKESPEARE KIN
000180: 47 20 4C 45 41 52 20 20 20 00 00 11 00 53 48 41  G LEAR   ....SHA
000190: 4B 45 53 50 45 41 52 45 20 52 4F 4D 45 4F 20 41  KESPEARE ROMEO A
0001A0: 4E 44 20 4A 55 00 00 13 00 53 48 41 4B 45 53 50  ND JU....SHAKESP
0001B0: 45 41 52 45 20 54 45 4D 50 45 53 54 20 20 20 20  EARE TEMPEST    
0001C0: 20 00 00 07 00 54 4F 4C 53 54 4F 59 20 20 20 20   ....TOLSTOY    
0001D0: 20 41 4E 4E 41 20 4B 41 52 45 4E 49 4E 00 00 0A   ANNA KARENIN...
0001E0: 00 54 4F 4C 53 54 4F 59 20 20 20 20 20 57 41 52  .TOLSTOY     WAR
0001F0: 20 41 4E 44 20 50 45 41 43 00 00 0B 00 57 4F 52   AND PEAC....WOR

Size : 512 (Real : 512)
000000: 00 55 54 49 4C 53 20 20 20 54 58 54 00 00 00 28  .UTILS   TXT...(
000010: 91 92 93 94 95 00 00 00 00 00 00 00 00 00 00 00  ................
000020: 00 42 4F 4F 4B 53 20 20 20 43 4D 44 00 00 00 0F  .BOOKS   CMD....
000030: 96 97 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000040: 00 49 4E 54 52 31 20 20 20 43 4D 44 00 00 00 10  .INTR1   CMD....
000050: 98 99 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000060: 00 44 49 53 43 44 49 52 20 54 58 54 00 00 00 3A  .DISCDIR TXT...:
000070: 9A 9B 9C 9D 9E 9F A0 A1 00 00 00 00 00 00 00 00  ................
000080: 00 57 45 4C 43 4F 4D 45 20 43 4D 44 00 00 00 24  .WELCOME CMD...$
000090: A2 A3 A4 A5 A6 00 00 00 00 00 00 00 00 00 00 00  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: 01 01 00 0C 00 4B 41 4E 54 20 20 20 20 20 20 20  .....KANT       
000010: 20 43 52 49 54 49 51 55 45 20 4F 46 20 02 00 1C   CRITIQUE OF ...
000020: 00 57 49 4C 4C 49 41 4D 20 54 45 4C 4C 54 48 45  .WILLIAM TELLTHE
000030: 20 4C 4F 53 53 20 4F 46 20 00 00 10 00 53 48 41   LOSS OF ....SHA
000040: 4B 45 53 50 45 41 52 45 20 48 45 4E 52 59 20 56  KESPEARE HENRY V
000050: 20 20 20 20 20 00 00 12 00 53 48 41 4B 45 53 50       ....SHAKESP
000060: 45 41 52 45 20 4B 49 4E 47 20 4C 45 41 52 20 20  EARE KING LEAR  
000070: 20 00 00 11 00 53 48 41 4B 45 53 50 45 41 52 45   ....SHAKESPEARE
000080: 20 52 4F 4D 45 4F 20 41 4E 44 20 4A 55 00 00 13   ROMEO AND JU...
000090: 00 53 48 41 4B 45 53 50 45 41 52 45 20 54 45 4D  .SHAKESPEARE TEM
0000A0: 50 45 53 54 20 20 20 20 20 00 00 07 00 54 4F 4C  PEST     ....TOL
0000B0: 53 54 4F 59 20 20 20 20 20 41 4E 4E 41 20 4B 41  STOY     ANNA KA
0000C0: 52 45 4E 49 4E 00 00 0A 00 54 4F 4C 53 54 4F 59  RENIN....TOLSTOY
0000D0: 20 20 20 20 20 57 41 52 20 41 4E 44 20 50 45 41       WAR AND PEA
0000E0: 43 00 00 0B 00 57 4F 52 44 53 57 4F 52 54 48 20  C....WORDSWORTH 
0000F0: 20 4D 49 43 48 41 45 4C 20 20 20 20 20 00 00 0C   MICHAEL     ...
000100: 00 4B 41 4E 54 20 20 20 20 20 20 20 20 43 52 49  .KANT        CRI
000110: 54 49 51 55 45 20 4F 46 20 00 00 05 00 4B 45 41  TIQUE OF ....KEA
000120: 54 53 20 20 20 20 20 20 20 43 4F 4C 4C 45 43 54  TS       COLLECT
000130: 45 44 20 50 4F 00 00 01 00 53 48 41 4B 45 53 50  ED PO....SHAKESP
000140: 45 41 52 45 20 41 53 20 59 4F 55 20 4C 49 4B 45  EARE AS YOU LIKE
000150: 20 00 00 10 00 53 48 41 4B 45 53 50 45 41 52 45   ....SHAKESPEARE
000160: 20 48 45 4E 52 59 20 56 20 20 20 20 20 00 00 12   HENRY V     ...
000170: 00 53 48 41 4B 45 53 50 45 41 52 45 20 4B 49 4E  .SHAKESPEARE KIN
000180: 47 20 4C 45 41 52 20 20 20 00 00 11 00 53 48 41  G LEAR   ....SHA
000190: 4B 45 53 50 45 41 52 45 20 52 4F 4D 45 4F 20 41  KESPEARE ROMEO A
0001A0: 4E 44 20 4A 55 00 00 13 00 53 48 41 4B 45 53 50  ND JU....SHAKESP
0001B0: 45 41 52 45 20 54 45 4D 50 45 53 54 20 20 20 20  EARE TEMPEST    
0001C0: 20 00 00 07 00 54 4F 4C 53 54 4F 59 20 20 20 20   ....TOLSTOY    
0001D0: 20 41 4E 4E 41 20 4B 41 52 45 4E 49 4E 00 00 0A   ANNA KARENIN...
0001E0: 00 54 4F 4C 53 54 4F 59 20 20 20 20 20 57 41 52  .TOLSTOY     WAR
0001F0: 20 41 4E 44 20 50 45 41 43 00 00 0B 00 57 4F 52   AND PEAC....WOR

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: 6D 6C 77 0D 0A 54 EB 17 46 49 45 4C 44 3A 4E 41  mlw..T..FIELD:NA
000010: 4D 45 00 43 0A 01 00 00 46 49 45 4C 44 3A 54 59  ME.C....FIELD:TY
000020: 50 45 00 43 01 0B 00 00 46 49 45 4C 44 3A 4C 45  PE.C....FIELD:LE
000030: 4E 00 00 4E 03 0C 00 00 46 49 45 4C 44 3A 44 45  N..N....FIELD:DE
000040: 43 00 00 4E 03 0F 00 00 0D 48 45 4C 46 00 00 00  C..N.....HELF...
000050: 00 00 00 43 03 7A B2 00 0D 00 00 00 00 00 00 00  ...C.z..........
000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................

Size : 512 (Real : 512)
000000: 00 00 03 00 04 00 1A 1C 12 00 21 28 24 28 61 75  ..........!($(au
000010: 74 68 6F 72 2C 31 2C 31 32 29 29 2B 21 28 24 28  thor,1,12))+!($(
000020: 74 69 74 6C 65 2C 31 2C 31 32 29 29 00 00 00 00  title,1,12))....
000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 01 01 00 0C  ................
0000E0: 00 4B 41 4E 54 20 20 20 20 20 20 20 20 43 52 49  .KANT        CRI
0000F0: 54 49 51 55 45 20 4F 46 20 02 00 01 00 53 48 41  TIQUE OF ....SHA
000100: 4B 45 53 50 45 41 52 45 20 41 53 20 59 4F 55 20  KESPEARE AS YOU 
000110: 4C 49 4B 45 20 00 00 10 00 53 48 41 4B 45 53 50  LIKE ....SHAKESP
000120: 45 41 52 45 20 48 45 4E 52 59 20 56 20 20 20 20  EARE HENRY V    
000130: 20 00 00 12 00 53 48 41 4B 45 53 50 45 41 52 45   ....SHAKESPEARE
000140: 20 4B 49 4E 47 20 4C 45 41 52 20 20 20 00 00 11   KING LEAR   ...
000150: 00 53 48 41 4B 45 53 50 45 41 52 45 20 52 4F 4D  .SHAKESPEARE ROM
000160: 45 4F 20 41 4E 44 20 4A 55 00 00 13 00 53 48 41  EO AND JU....SHA
000170: 4B 45 53 50 45 41 52 45 20 54 45 4D 50 45 53 54  KESPEARE TEMPEST
000180: 20 20 20 20 20 00 00 07 00 54 4F 4C 53 54 4F 59       ....TOLSTOY
000190: 20 20 20 20 20 41 4E 4E 41 20 4B 41 52 45 4E 49       ANNA KARENI
0001A0: 4E 00 00 0A 00 54 4F 4C 53 54 4F 59 20 20 20 20  N....TOLSTOY    
0001B0: 20 57 41 52 20 41 4E 44 20 50 45 41 43 00 00 0B   WAR AND PEAC...
0001C0: 00 57 4F 52 44 53 57 4F 52 54 48 20 20 4D 49 43  .WORDSWORTH  MIC
0001D0: 48 41 45 4C 20 20 20 20 20 00 00 0C 00 4B 41 4E  HAEL     ....KAN
0001E0: 54 20 20 20 20 20 20 20 20 43 52 49 54 49 51 55  T        CRITIQU
0001F0: 45 20 4F 46 20 00 00 05 00 4B 45 41 54 53 20 20  E OF ....KEATS  

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000010: 20 20 20 20 20 20 20 20 2A 61 3A 3D 62 3A 73 75          *a:=b:su
000020: 62 6D 69 74 2E 63 6F 6D 5B 76 5D 0D 0A 20 20 20  bmit.com[v]..   
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000040: 20 20 20 20 20 20 20 20 2A 61 3A 3D 62 3A 70 69          *a:=b:pi
000050: 70 2E 63 6F 6D 5B 76 5D 0D 0A 20 20 20 20 20 20  p.com[v]..      
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000070: 20 20 20 20 20 2A 61 3A 3D 62 3A 70 61 70 65 72       *a:=b:paper
000080: 2E 63 6F 6D 5B 76 5D 0D 0A 20 20 20 20 20 20 20  .com[v]..       
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000A0: 20 20 20 20 2A 61 3A 3D 62 3A 73 65 74 6B 65 79      *a:=b:setkey
0000B0: 73 2E 63 6F 6D 5B 76 5D 0D 0A 20 20 20 20 20 20  s.com[v]..      
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000D0: 20 20 20 20 20 2A 61 3A 3D 62 3A 73 65 74 6C 73       *a:=b:setls
0000E0: 74 2E 63 6F 6D 5B 76 5D 0D 0A 20 20 20 20 20 20  t.com[v]..      
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000100: 20 20 20 20 20 2A 61 3A 3D 62 3A 64 69 72 2E 63       *a:=b:dir.c
000110: 6F 6D 5B 76 5D 0D 0A 20 20 20 20 20 20 20 20 20  om[v]..         
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000130: 20 20 2A 61 3A 3D 62 3A 74 79 70 65 2E 63 6F 6D    *a:=b:type.com
000140: 5B 76 5D 0D 0A 0D 0A 20 20 20 20 20 66 2E 20 20  [v]....     f.  
000150: 52 65 70 6C 61 63 65 20 74 68 65 20 43 50 2F 4D  Replace the CP/M
000160: 20 64 69 73 63 20 69 6E 20 44 72 69 76 65 20 42   disc in Drive B
000170: 3A 20 77 69 74 68 20 79 6F 75 72 20 64 42 41 53  : with your dBAS
000180: 45 20 57 4F 52 4B 49 4E 47 20 4D 41 53 54 45 52  E WORKING MASTER
000190: 20 20 77 69 74 68 0D 0A 0D 0A 20 20 20 20 20 20    with....      
0001A0: 20 20 20 73 69 64 65 20 31 20 66 61 63 69 6E 67     side 1 facing
0001B0: 20 6C 65 66 74 20 61 6E 64 20 63 6F 70 79 20 74   left and copy t
0001C0: 68 65 20 64 42 41 53 45 20 65 73 73 65 6E 74 69  he dBASE essenti
0001D0: 61 6C 73 20 61 73 20 66 6F 6C 6C 6F 77 73 3A 0D  als as follows:.
0001E0: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 20  ............... 
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  

Size : 512 (Real : 512)
000000: 0D 0A 0D 0A 0D 0A 20 20 54 59 50 45 2D 4D 45 20  ......  TYPE-ME 
000010: 31 38 2F 30 38 2F 38 37 0D 0A 0D 0A 20 20 20 20  18/08/87....    
000020: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 20 50            **** P
000030: 72 69 6E 74 20 6F 75 74 20 74 68 69 73 20 66 69  rint out this fi
000040: 6C 65 20 61 73 20 73 6F 6F 6E 20 61 73 20 79 6F  le as soon as yo
000050: 75 20 63 61 6E 20 2A 2A 2A 2A 0D 0A 20 20 20 20  u can ****..    
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D                 -
000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000090: 2D 2D 2D 2D 2D 0D 0A 0D 0A 20 20 20 20 20 20 20  -----....       
0000A0: 20 20 20 20 20 64 42 41 53 45 20 49 49 20 76 20       dBASE II v 
0000B0: 32 2E 34 31 20 2D 20 41 20 53 45 4C 46 2D 53 54  2.41 - A SELF-ST
0000C0: 41 52 54 45 52 20 46 4F 52 20 54 48 45 20 41 4D  ARTER FOR THE AM
0000D0: 53 54 52 41 44 20 50 43 57 0D 0A 20 20 20 20 20  STRAD PCW..     
0000E0: 20 20 20 20 20 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D         =========
0000F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000100: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000110: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 20  ===========.... 
000120: 20 54 68 65 20 50 43 57 20 38 35 31 32 20 61 6E   The PCW 8512 an
000130: 64 20 50 43 57 20 38 32 35 36 20 63 61 6E 20 62  d PCW 8256 can b
000140: 6F 74 68 20 68 61 6E 64 6C 65 20 74 68 65 20 73  oth handle the s
000150: 61 6D 65 20 73 65 6C 66 2D 73 74 61 72 74 69 6E  ame self-startin
000160: 67 20 69 6E 73 74 61 6C 6C 61 74 69 6F 6E 0D 0A  g installation..
000170: 20 20 6F 66 20 20 64 42 41 53 45 20 49 49 2C 20    of  dBASE II, 
000180: 20 20 77 68 69 63 68 20 20 72 75 6E 73 20 20 66    which  runs  f
000190: 72 6F 6D 20 20 74 68 65 20 20 52 41 4D 20 20 44  rom  the  RAM  D
0001A0: 69 73 63 20 20 20 28 44 72 69 76 65 20 4D 3A 29  isc   (Drive M:)
0001B0: 20 20 61 6E 64 20 20 70 72 6F 76 69 64 65 73 0D    and  provides.
0001C0: 0A 20 20 64 61 74 61 20 73 74 6F 72 61 67 65 20  .  data storage 
0001D0: 73 70 61 63 65 20 6F 6E 20 44 72 69 76 65 73 20  space on Drives 
0001E0: 41 3A 20 61 6E 64 20 42 3A 2E 0D 0A 0D 0A 20 20  A: and B:.....  
0001F0: 43 6F 70 79 72 69 67 68 74 20 72 65 73 74 72 69  Copyright restri

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 2A 61 3A 3D 62 3A            *a:=b:
000010: 64 62 61 73 65 2E 63 6F 6D 5B 76 5D 0D 0A 20 20  dbase.com[v]..  
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000030: 20 20 20 20 20 20 20 20 20 2A 61 3A 3D 62 3A 64           *a:=b:d
000040: 62 61 73 65 6F 76 72 2E 63 6F 6D 5B 76 5D 0D 0A  baseovr.com[v]..
000050: 0D 0A 20 20 20 20 20 20 20 20 20 61 6E 64 20 61  ..         and a
000060: 6C 73 6F 20 74 68 65 20 75 73 65 72 2D 64 65 66  lso the user-def
000070: 69 6E 65 64 20 66 69 6C 65 73 20 74 6F 20 62 65  ined files to be
000080: 20 72 65 61 64 20 62 79 20 74 68 65 20 75 74 69   read by the uti
000090: 6C 69 74 69 65 73 20 3A 0D 0A 0D 0A 20 20 20 20  lities :....    
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000B0: 20 20 20 20 20 20 20 2A 61 3A 3D 62 3A 75 2A 2E         *a:=b:u*.
0000C0: 2A 5B 6F 76 5D 0D 0A 0D 0A 20 20 20 20 20 20 20  *[ov]....       
0000D0: 20 20 54 68 69 73 20 77 69 6C 6C 20 63 6F 70 79    This will copy
0000E0: 20 74 68 65 20 66 6F 6C 6C 6F 77 69 6E 67 20 66   the following f
0000F0: 69 6C 65 73 20 6F 6E 74 6F 20 74 68 65 20 53 54  iles onto the ST
000100: 41 52 54 45 52 20 64 69 73 6B 20 3A 0D 0A 0D 0A  ARTER disk :....
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000120: 20 20 20 20 20 20 75 6B 65 79 73 2E 64 62 32 20        ukeys.db2 
000130: 20 20 20 20 20 20 20 20 5B 55 73 65 64 20 62 79          [Used by
000140: 20 53 45 54 4B 45 59 53 2E 43 4F 4D 20 5D 0D 0A   SETKEYS.COM ]..
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000160: 20 20 20 20 20 20 75 62 6F 6C 64 2E 70 74 72 20        ubold.ptr 
000170: 20 20 20 20 20 20 20 20 5B 55 73 65 64 20 62 79          [Used by
000180: 20 53 45 54 4C 53 54 2E 43 4F 4D 20 20 5D 0D 0A   SETLST.COM  ]..
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001A0: 20 20 20 20 20 20 75 64 65 66 61 75 6C 74 2E 63        udefault.c
0001B0: 6D 64 20 20 20 20 20 20 5B 55 73 65 64 20 62 79  md      [Used by
0001C0: 20 64 42 41 53 45 20 20 20 20 20 20 20 5D 0D 0A   dBASE       ]..
0001D0: 0D 0A 20 20 20 20 20 20 20 20 20 41 6E 64 20 61  ..         And a
0001E0: 6C 73 6F 20 74 68 65 20 70 72 6F 66 69 6C 65 20  lso the profile 
0001F0: 66 6F 72 20 43 50 4D 20 77 68 65 6E 20 62 6F 6F  for CPM when boo

Size : 512 (Real : 512)
000000: 63 74 69 6F 6E 73 20 20 70 72 65 76 65 6E 74 20  ctions  prevent 
000010: 20 75 73 20 20 66 72 6F 6D 20 20 70 72 6F 76 69   us  from  provi
000020: 64 69 6E 67 20 20 79 6F 75 20 20 77 69 74 68 20  ding  you  with 
000030: 20 61 20 72 65 61 64 79 2D 6D 61 64 65 0D 0A 20   a ready-made.. 
000040: 20 53 54 41 52 54 45 52 20 64 69 73 63 20 74 6F   STARTER disc to
000050: 20 62 6F 6F 74 20 79 6F 75 20 73 74 72 61 69 67   boot you straig
000060: 68 74 20 69 6E 74 6F 20 64 42 41 53 45 20 62 75  ht into dBASE bu
000070: 74 20 79 6F 75 20 63 61 6E 20 65 61 73 69 6C 79  t you can easily
000080: 20 6D 61 6B 65 20 79 6F 75 72 20 6F 77 6E 0D 0A   make your own..
000090: 20 20 69 66 20 79 6F 75 20 66 6F 6C 6C 6F 77 20    if you follow 
0000A0: 74 68 65 73 65 20 69 6E 73 74 72 75 63 74 69 6F  these instructio
0000B0: 6E 73 20 77 69 74 68 20 63 61 72 65 2E 20 20 54  ns with care.  T
0000C0: 68 65 20 74 69 6D 65 20 61 6E 64 20 65 66 66 6F  he time and effo
0000D0: 72 74 20 79 6F 75 20 73 70 65 6E 64 20 6F 6E 0D  rt you spend on.
0000E0: 0A 20 20 74 68 69 73 20 74 61 73 6B 20 77 69 6C  .  this task wil
0000F0: 6C 20 62 65 20 77 65 6C 6C 20 72 65 77 61 72 64  l be well reward
000100: 65 64 21 0D 0A 0D 0A 20 20 59 6F 75 20 6D 75 73  ed!....  You mus
000110: 74 20 68 61 76 65 20 61 20 77 6F 72 6B 69 6E 67  t have a working
000120: 20 6B 6E 6F 77 6C 65 64 67 65 20 6F 66 20 74 68   knowledge of th
000130: 65 20 43 50 2F 4D 20 75 74 69 6C 69 74 69 65 73  e CP/M utilities
000140: 20 28 44 49 53 43 4B 49 54 2C 20 50 49 50 29 0D   (DISCKIT, PIP).
000150: 0A 0D 0A 20 20 2A 2A 2A 2A 20 20 20 49 46 20 59  ...  ****   IF Y
000160: 4F 55 20 48 41 56 45 20 41 20 53 49 4E 47 4C 45  OU HAVE A SINGLE
000170: 20 44 52 49 56 45 20 50 43 57 20 38 32 35 36 2C   DRIVE PCW 8256,
000180: 20 47 4F 54 4F 20 50 41 52 41 20 33 2C 20 45 4C   GOTO PARA 3, EL
000190: 53 45 20 52 45 41 44 20 4F 4E 2E 20 20 20 2A 2A  SE READ ON.   **
0001A0: 2A 2A 0D 0A 0D 0A 20 20 31 2E 20 20 20 4C 4F 41  **....  1.   LOA
0001B0: 44 49 4E 47 20 49 4E 53 54 52 55 43 54 49 4F 4E  DING INSTRUCTION
0001C0: 53 20 46 4F 52 20 54 48 45 20 41 4D 53 54 52 41  S FOR THE AMSTRA
0001D0: 44 20 50 43 57 20 38 35 31 32 0D 0A 0D 0A 20 20  D PCW 8512....  
0001E0: 20 20 20 61 2E 20 20 59 6F 75 20 77 69 6C 6C 20     a.  You will 
0001F0: 72 65 71 75 69 72 65 20 79 6F 75 72 20 43 50 2F  require your CP/

Size : 512 (Real : 512)
000000: 74 69 6E 67 20 74 68 65 20 6D 61 63 68 69 6E 65  ting the machine
000010: 20 3A 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20   :....          
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000030: 20 2A 61 3A 3D 62 3A 70 72 6F 66 69 6C 65 2E 73   *a:=b:profile.s
000040: 75 62 5B 6F 76 5D 0D 0A 0D 0A 20 20 20 20 67 2E  ub[ov]....    g.
000050: 20 20 4D 6F 76 65 20 20 74 68 65 20 64 42 41 53    Move  the dBAS
000060: 45 20 57 4F 52 4B 49 4E 47 20 4D 41 53 54 45 52  E WORKING MASTER
000070: 20 74 6F 20 44 72 69 76 65 20 41 3A 2C 20 73 69   to Drive A:, si
000080: 64 65 20 31 20 20 73 74 69 6C 6C 20 74 6F 20 74  de 1  still to t
000090: 68 65 20 6C 65 66 74 2C 0D 0A 20 20 20 20 20 20  he left,..      
0000A0: 20 20 61 6E 64 20 70 6C 61 63 65 20 79 6F 75 72    and place your
0000B0: 20 6E 65 77 20 64 42 41 53 45 20 44 49 53 54 52   new dBASE DISTR
0000C0: 49 42 55 54 49 4F 4E 20 64 69 73 63 20 69 6E 20  IBUTION disc in 
0000D0: 44 72 69 76 65 20 42 3A 2E 0D 0A 20 20 20 20 20  Drive B:...     
0000E0: 20 20 20 47 6F 20 6F 6E 3A 0D 0A 20 20 20 20 20     Go on:..     
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000100: 20 20 20 20 20 20 2A 62 3A 3D 61 3A 64 62 61 73        *b:=a:dbas
000110: 65 6D 73 67 2E 74 78 74 5B 6F 76 5D 0D 0A 20 20  emsg.txt[ov]..  
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000130: 20 20 20 20 20 20 20 20 20 2A 62 3A 3D 61 3A 7A           *b:=a:z
000140: 69 70 2E 63 6F 6D 5B 76 5D 0D 0A 20 20 20 20 20  ip.com[v]..     
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000160: 20 20 20 20 20 20 2A 62 3A 3D 61 3A 7A 73 63 72        *b:=a:zscr
000170: 6E 2E 6F 76 6C 5B 6F 76 5D 0D 0A 20 20 20 20 20  n.ovl[ov]..     
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000190: 20 20 20 20 20 20 2A 62 3A 3D 61 3A 64 73 6F 72        *b:=a:dsor
0001A0: 74 2E 63 6F 6D 5B 76 5D 0D 0A 20 20 20 20 20 20  t.com[v]..      
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001C0: 20 20 20 20 20 2A 62 3A 3D 61 3A 64 67 65 6E 2E       *b:=a:dgen.
0001D0: 6F 76 6C 5B 6F 76 5D 0D 0A 0D 0A 20 20 20 20 68  ovl[ov]....    h
0001E0: 2E 20 20 54 75 72 6E 20 6F 76 65 72 20 74 68 65  .  Turn over the
0001F0: 20 64 42 41 53 45 20 57 4F 52 4B 49 4E 47 20 4D   dBASE WORKING M

Size : 512 (Real : 512)
000000: 4D 20 50 6C 75 73 20 53 79 73 74 65 6D 20 44 69  M Plus System Di
000010: 73 63 20 61 6E 64 20 74 68 72 65 65 20 62 6C 61  sc and three bla
000020: 6E 6B 20 64 69 73 63 73 2C 0D 0A 0D 0A 20 20 20  nk discs,....   
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000040: 6F 6E 65 20 6C 61 62 65 6C 6C 65 64 20 20 27 64  one labelled  'd
000050: 42 41 53 45 20 57 4F 52 4B 49 4E 47 20 4D 41 53  BASE WORKING MAS
000060: 54 45 52 27 20 20 20 69 6E 20 43 46 32 20 20 20  TER'   in CF2   
000070: 66 6F 72 6D 61 74 2C 0D 0A 20 20 20 20 20 20 20  format,..       
000080: 20 20 20 20 20 20 20 20 61 6E 6F 74 68 65 72 20          another 
000090: 6C 61 62 65 6C 6C 65 64 20 20 27 64 42 41 53 45  labelled  'dBASE
0000A0: 20 53 54 41 52 54 45 52 27 20 20 20 20 20 61 6C   STARTER'     al
0000B0: 73 6F 20 69 6E 20 43 46 32 20 20 20 66 6F 72 6D  so in CF2   form
0000C0: 61 74 0D 0A 20 20 20 20 20 20 20 20 20 61 6E 64  at..         and
0000D0: 20 74 68 65 20 74 68 69 72 64 20 6C 61 62 65 6C   the third label
0000E0: 6C 65 64 20 20 27 64 42 41 53 45 20 44 49 53 54  led  'dBASE DIST
0000F0: 52 49 42 55 54 49 4F 4E 27 20 61 6E 64 20 69 6E  RIBUTION' and in
000100: 20 43 46 32 44 44 20 66 6F 72 6D 61 74 2E 0D 0A   CF2DD format...
000110: 0D 0A 20 20 20 20 20 62 2E 20 20 4B 65 65 70 20  ..     b.  Keep 
000120: 61 20 66 65 77 20 6D 6F 72 65 20 66 6F 72 6D 61  a few more forma
000130: 74 74 65 64 20 64 69 73 63 73 20 72 65 61 64 79  tted discs ready
000140: 20 74 6F 20 42 41 43 4B 20 55 50 20 79 6F 75 72   to BACK UP your
000150: 20 77 6F 72 6B 2E 0D 0A 0D 0A 20 20 32 2E 20 20   work.....  2.  
000160: 20 50 52 45 50 41 52 41 54 49 4F 4E 20 4F 46 20   PREPARATION OF 
000170: 44 49 53 43 53 2E 0D 0A 0D 0A 20 20 20 20 20 20  DISCS.....      
000180: 20 20 20 4E 6F 77 20 74 61 6B 65 20 74 68 65 20     Now take the 
000190: 66 6F 6C 6C 6F 77 69 6E 67 20 61 63 74 69 6F 6E  following action
0001A0: 3A 0D 0A 0D 0A 20 20 20 20 20 61 2E 20 20 55 73  :....     a.  Us
0001B0: 65 20 44 49 53 43 4B 49 54 20 74 6F 20 66 6F 72  e DISCKIT to for
0001C0: 6D 61 74 20 64 69 73 63 73 20 61 73 20 61 62 6F  mat discs as abo
0001D0: 76 65 2E 0D 0A 0D 0A 20 20 20 20 20 62 2E 20 20  ve.....     b.  
0001E0: 50 72 65 70 61 72 65 20 74 68 65 20 64 42 41 53  Prepare the dBAS
0001F0: 45 20 57 4F 52 4B 49 4E 47 20 4D 41 53 54 45 52  E WORKING MASTER

Size : 512 (Real : 512)
000000: 41 53 54 45 52 20 61 6E 64 20 63 6F 6E 74 69 6E  ASTER and contin
000010: 75 65 20 77 69 74 68 3A 0D 0A 0D 0A 20 20 20 20  ue with:....    
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000030: 20 20 20 20 20 20 20 2A 62 3A 3D 61 3A 2A 2E 2A         *b:=a:*.*
000040: 5B 6F 76 5D 0D 0A 0D 0A 20 20 20 20 69 2E 20 20  [ov]....    i.  
000050: 49 6E 73 65 72 74 20 74 68 65 20 45 58 41 4D 50  Insert the EXAMP
000060: 4C 45 53 20 44 69 73 63 20 74 6F 20 44 72 69 76  LES Disc to Driv
000070: 65 20 41 3A 2E 20 20 48 6F 6C 64 20 64 6F 77 6E  e A:.  Hold down
000080: 20 5B 41 4C 54 5D 20 26 20 70 72 65 73 73 20 5B   [ALT] & press [
000090: 57 5D 2E 0D 0A 20 20 20 20 20 20 20 20 20 20 20  W]...           
0000A0: 20 20 20 50 72 65 73 73 20 5B 52 45 54 55 52 4E     Press [RETURN
0000B0: 5D 2E 0D 0A 0D 0A 20 20 20 20 6A 2E 20 20 57 68  ].....    j.  Wh
0000C0: 65 6E 20 61 20 20 2A 20 70 72 6F 6D 70 74 20 61  en a  * prompt a
0000D0: 70 70 65 61 72 73 20 61 66 74 65 72 20 63 6F 70  ppears after cop
0000E0: 79 69 6E 67 20 74 68 65 20 66 69 6E 61 6C 20 66  ying the final f
0000F0: 69 6C 65 2C 20 70 72 65 73 73 20 20 5B 52 45 54  ile, press  [RET
000100: 55 52 4E 5D 0D 0A 20 20 20 20 20 20 20 20 74 6F  URN]..        to
000110: 20 66 69 6E 69 73 68 20 77 69 74 68 20 50 49 50   finish with PIP
000120: 2E 0D 0A 0D 0A 20 20 20 20 6B 2E 20 20 2A 2A 2A  .....    k.  ***
000130: 2A 20 47 4F 54 4F 20 50 41 52 41 20 35 2E 20 2A  * GOTO PARA 5. *
000140: 2A 2A 2A 0D 0A 0D 0A 0D 0A 20 20 33 2E 20 20 20  ***......  3.   
000150: 4C 4F 41 44 49 4E 47 20 49 4E 53 54 52 55 43 54  LOADING INSTRUCT
000160: 49 4F 4E 53 20 46 4F 52 20 54 48 45 20 41 4D 53  IONS FOR THE AMS
000170: 54 52 41 44 20 50 43 57 20 38 32 35 36 2E 0D 0A  TRAD PCW 8256...
000180: 0D 0A 20 20 20 20 61 2E 20 20 59 6F 75 20 77 69  ..    a.  You wi
000190: 6C 6C 20 72 65 71 75 69 72 65 20 79 6F 75 72 20  ll require your 
0001A0: 43 50 2F 4D 20 50 6C 75 73 20 53 79 73 74 65 6D  CP/M Plus System
0001B0: 20 44 69 73 63 20 61 6E 64 20 74 68 72 65 65 20   Disc and three 
0001C0: 62 6C 61 6E 6B 20 64 69 73 63 73 2C 20 61 6C 6C  blank discs, all
0001D0: 0D 0A 20 20 20 20 20 20 20 20 69 6E 20 43 46 32  ..        in CF2
0001E0: 20 66 6F 72 6D 61 74 20 61 6E 64 20 6C 61 62 65   format and labe
0001F0: 6C 6C 65 64 3A 0D 0A 0D 0A 20 20 20 20 20 20 20  lled:....       

Size : 512 (Real : 512)
000000: 20 20 62 79 20 75 73 69 6E 67 20 44 49 53 43 4B    by using DISCK
000010: 49 54 20 74 6F 20 63 6F 70 79 20 20 62 6F 74 68  IT to copy  both
000020: 20 73 69 64 65 73 0D 0A 20 20 20 20 20 20 20 20   sides..        
000030: 20 6F 66 20 79 6F 75 72 20 77 72 69 74 65 2D 70   of your write-p
000040: 72 6F 74 65 63 74 65 64 20 6F 72 69 67 69 6E 61  rotected origina
000050: 6C 20 64 42 41 53 45 20 4D 41 53 54 45 52 20 74  l dBASE MASTER t
000060: 6F 20 61 20 66 72 65 73 68 20 64 69 73 63 2E 0D  o a fresh disc..
000070: 0A 0D 0A 20 20 20 20 20 63 2E 20 20 45 78 69 74  ...     c.  Exit
000080: 20 44 49 53 43 4B 49 54 20 61 6E 64 20 70 6C 61   DISCKIT and pla
000090: 63 65 20 79 6F 75 72 20 43 50 2F 4D 20 64 69 73  ce your CP/M dis
0000A0: 63 20 69 6E 20 44 72 69 76 65 20 41 3A 2E 20 20  c in Drive A:.  
0000B0: 54 79 70 65 20 50 49 50 20 61 6E 64 20 70 72 65  Type PIP and pre
0000C0: 73 73 0D 0A 20 20 20 20 20 20 20 20 20 5B 52 45  ss..         [RE
0000D0: 54 55 52 4E 5D 2E 0D 0A 0D 0A 20 20 20 20 20 64  TURN].....     d
0000E0: 2E 20 20 57 68 65 6E 20 74 68 65 20 2A 20 70 72  .  When the * pr
0000F0: 6F 6D 70 74 20 61 70 70 65 61 72 73 2C 20 20 77  ompt appears,  w
000100: 72 69 74 65 2D 70 72 6F 74 65 63 74 20 74 68 65  rite-protect the
000110: 20 43 50 2F 4D 20 64 69 73 63 20 61 6E 64 20 6D   CP/M disc and m
000120: 6F 76 65 20 69 74 20 74 6F 0D 0A 20 20 20 20 20  ove it to..     
000130: 20 20 20 20 44 72 69 76 65 20 42 3A 20 20 61 6E      Drive B:  an
000140: 64 20 70 75 74 20 74 68 65 20 62 6C 61 6E 6B 20  d put the blank 
000150: 66 6F 72 6D 61 74 74 65 64 20 64 42 41 53 45 20  formatted dBASE 
000160: 53 54 41 52 54 45 52 20 69 6E 20 44 72 69 76 65  STARTER in Drive
000170: 20 41 3A 2E 0D 0A 0D 0A 20 20 20 20 20 65 2E 20   A:.....     e. 
000180: 20 46 6F 6C 6C 6F 77 20 2A 20 70 72 6F 6D 70 74   Follow * prompt
000190: 73 20 62 79 20 74 79 70 69 6E 67 20 61 73 20 62  s by typing as b
0001A0: 65 6C 6F 77 2E 20 20 50 72 65 73 73 20 5B 52 45  elow.  Press [RE
0001B0: 54 55 52 4E 5D 20 20 61 66 74 65 72 20 65 61 63  TURN]  after eac
0001C0: 68 20 6C 69 6E 65 3A 0D 0A 0D 0A 20 20 20 20 20  h line:....     
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001E0: 20 20 20 20 20 20 2A 61 3A 3D 62 3A 6A 31 34 63        *a:=b:j14c
0001F0: 70 6D 33 2E 65 6D 73 5B 6F 76 5D 0D 0A 20 20 20  pm3.ems[ov]..   

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 31 29               (1)
000010: 20 20 53 69 64 65 20 31 2E 20 20 27 64 42 41 53    Side 1.  'dBAS
000020: 45 20 57 4F 52 4B 49 4E 47 20 4D 41 53 54 45 52  E WORKING MASTER
000030: 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  '..             
000040: 20 20 20 20 20 20 20 20 20 20 20 20 53 69 64 65              Side
000050: 20 32 2E 20 20 27 64 42 41 53 45 20 4D 45 4E 55   2.  'dBASE MENU
000060: 27 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20  '....           
000070: 20 20 20 20 20 20 20 20 20 28 32 29 20 20 53 69           (2)  Si
000080: 64 65 20 31 2E 20 20 27 64 42 41 53 45 20 53 54  de 1.  'dBASE ST
000090: 41 52 54 45 52 27 0D 0A 20 20 20 20 20 20 20 20  ARTER'..        
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000B0: 20 53 69 64 65 20 32 2E 20 20 27 64 42 41 53 45   Side 2.  'dBASE
0000C0: 20 44 49 53 54 52 49 42 55 54 49 4F 4E 27 0D 0A   DISTRIBUTION'..
0000D0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
0000E0: 20 20 20 20 20 20 28 33 29 20 20 53 69 64 65 20        (3)  Side 
0000F0: 31 2E 20 20 27 64 42 41 53 45 20 57 45 4C 43 4F  1.  'dBASE WELCO
000100: 4D 45 20 61 6E 64 20 42 4F 4F 4B 53 27 2E 0D 0A  ME and BOOKS'...
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000120: 20 20 20 20 20 20 20 20 20 53 69 64 65 20 32 2E           Side 2.
000130: 20 20 27 64 42 41 53 45 20 28 6F 74 68 65 72 20    'dBASE (other 
000140: 64 61 74 61 29 27 0D 0A 0D 0A 20 20 20 20 62 2E  data)'....    b.
000150: 20 20 59 6F 75 20 77 6F 75 6C 64 20 61 6C 73 6F    You would also
000160: 20 62 65 20 76 65 72 79 20 77 65 6C 6C 20 61 64   be very well ad
000170: 76 69 73 65 64 20 74 6F 20 6B 65 65 70 20 61 20  vised to keep a 
000180: 66 65 77 20 6D 6F 72 65 20 20 66 6F 72 6D 61 74  few more  format
000190: 74 65 64 20 64 69 73 63 73 0D 0A 20 20 20 20 20  ted discs..     
0001A0: 20 20 20 72 65 61 64 79 20 74 6F 20 42 41 43 4B     ready to BACK
0001B0: 20 55 50 20 79 6F 75 72 20 76 61 6C 75 61 62 6C   UP your valuabl
0001C0: 65 20 77 6F 72 6B 2E 0D 0A 0D 0A 20 20 34 2E 20  e work.....  4. 
0001D0: 20 20 50 52 45 50 41 52 41 54 49 4F 4E 20 4F 46    PREPARATION OF
0001E0: 20 44 49 53 43 53 2E 0D 0A 0D 0A 20 20 20 20 20   DISCS.....     
0001F0: 20 20 20 4E 6F 77 20 74 61 6B 65 20 74 68 65 20     Now take the 

Size : 512 (Real : 512)
000000: 74 68 20 66 69 74 20 6F 6E 74 6F 20 74 68 65 20  th fit onto the 
000010: 4D 45 4E 55 20 44 69 73 63 20 20 62 75 74 20 79  MENU Disc  but y
000020: 6F 75 20 77 6F 75 6C 64 20 62 65 20 20 61 73 20  ou would be  as 
000030: 77 65 6C 6C 20 74 6F 0D 0A 20 20 20 20 20 20 20  well to..       
000040: 20 63 6F 70 79 20 20 74 68 65 6D 20 20 66 72 6F   copy  them  fro
000050: 6D 20 20 45 58 41 4D 50 4C 45 53 20 20 74 6F 20  m  EXAMPLES  to 
000060: 64 42 41 53 45 20 44 49 53 54 52 49 42 55 54 49  dBASE DISTRIBUTI
000070: 4F 4E 20 20 61 6E 64 20 65 76 65 72 79 20 44 41  ON  and every DA
000080: 54 41 20 44 69 73 63 2E 0D 0A 0D 0A 20 20 35 2E  TA Disc.....  5.
000090: 20 20 20 54 45 53 54 20 54 48 45 20 53 59 53 54     TEST THE SYST
0000A0: 45 4D 2E 0D 0A 0D 0A 20 20 20 28 31 29 20 20 41  EM.....   (1)  A
0000B0: 6C 6C 20 66 69 6C 65 73 20 77 68 69 63 68 20 79  ll files which y
0000C0: 6F 75 20 6E 65 65 64 20 74 6F 20 73 74 61 72 74  ou need to start
0000D0: 20 77 69 74 68 20 73 68 6F 75 6C 64 20 6E 6F 77   with should now
0000E0: 20 62 65 20 6F 6E 20 77 6F 72 6B 69 6E 67 20 64   be on working d
0000F0: 69 73 63 73 2E 0D 0A 0D 0A 20 20 20 28 32 29 20  iscs.....   (2) 
000100: 20 57 68 65 6E 20 79 6F 75 20 61 72 65 20 63 6F   When you are co
000110: 6E 66 69 64 65 6E 74 20 74 68 61 74 20 79 6F 75  nfident that you
000120: 20 6B 6E 6F 77 20 68 6F 77 20 74 6F 20 27 51 55   know how to 'QU
000130: 49 54 27 20 64 42 41 53 45 20 70 72 6F 70 65 72  IT' dBASE proper
000140: 6C 79 2C 0D 0A 20 20 20 20 20 20 20 20 70 6C 61  ly,..        pla
000150: 63 65 20 44 42 41 53 45 20 53 54 41 52 54 45 52  ce DBASE STARTER
000160: 20 69 6E 20 44 72 69 76 65 20 41 3A 20 61 6E 64   in Drive A: and
000170: 20 44 42 41 53 45 20 44 49 53 54 52 49 42 55 54   DBASE DISTRIBUT
000180: 49 4F 4E 20 69 6E 20 44 72 69 76 65 20 42 3A 0D  ION in Drive B:.
000190: 0A 20 20 20 20 20 20 20 20 2D 20 69 66 20 79 6F  .        - if yo
0001A0: 75 20 68 61 76 65 20 6F 6E 65 20 2D 20 74 68 65  u have one - the
0001B0: 6E 20 72 65 73 65 74 20 74 68 65 20 50 43 57 20  n reset the PCW 
0001C0: 74 6F 20 72 75 6E 20 64 42 41 53 45 20 49 49 20  to run dBASE II 
0001D0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 0D 0A 0D 0A 0D  ................
0001E0: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 20 20 20 20 49  ...........    I
0001F0: 66 20 79 6F 75 20 77 61 6E 74 20 74 6F 20 6B 6E  f you want to kn

Size : 512 (Real : 512)
000000: 66 6F 6C 6C 6F 77 69 6E 67 20 61 63 74 69 6F 6E  following action
000010: 3A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D  :...............
000020: 0A 20 20 20 20 61 2E 20 20 55 73 65 20 44 49 53  .    a.  Use DIS
000030: 43 4B 49 54 20 74 6F 20 66 6F 72 6D 61 74 20 74  CKIT to format t
000040: 68 72 65 65 20 64 69 73 63 73 20 61 73 20 61 62  hree discs as ab
000050: 6F 76 65 2E 0D 0A 0D 0A 20 20 20 20 62 2E 20 20  ove.....    b.  
000060: 43 68 65 63 6B 20 20 74 68 61 74 20 20 79 6F 75  Check  that  you
000070: 72 20 6F 72 69 67 69 6E 61 6C 20 6D 61 73 74 65  r original maste
000080: 72 20 64 69 73 63 73 20 20 61 72 65 20 77 72 69  r discs  are wri
000090: 74 65 2D 70 72 6F 74 65 63 74 65 64 0D 0A 20 20  te-protected..  
0000A0: 20 20 20 20 20 20 61 6E 64 20 63 6F 6E 74 69 6E        and contin
0000B0: 75 65 20 77 69 74 68 20 44 49 53 43 4B 49 54 20  ue with DISCKIT 
0000C0: 74 6F 20 63 6F 70 79 20 74 68 65 6D 2C 20 61 73  to copy them, as
0000D0: 20 61 70 70 72 6F 70 72 69 61 74 65 20 2C 0D 0A   appropriate ,..
0000E0: 20 20 20 20 20 20 20 20 74 6F 20 74 68 65 20 64          to the d
0000F0: 69 73 63 73 20 6D 65 6E 74 69 6F 6E 65 64 20 69  iscs mentioned i
000100: 6E 20 70 61 72 61 20 33 2E 20 61 2E 20 28 31 29  n para 3. a. (1)
000110: 20 26 20 28 33 29 20 61 62 6F 76 65 2E 0D 0A 0D   & (3) above....
000120: 0A 20 20 20 20 63 2E 20 20 45 78 69 74 20 44 49  .    c.  Exit DI
000130: 53 43 4B 49 54 20 61 6E 64 20 70 6C 61 63 65 20  SCKIT and place 
000140: 79 6F 75 72 20 43 50 2F 4D 20 64 69 73 63 20 69  your CP/M disc i
000150: 6E 20 44 72 69 76 65 20 41 3A 2E 20 20 54 79 70  n Drive A:.  Typ
000160: 65 20 50 49 50 20 61 6E 64 20 70 72 65 73 73 0D  e PIP and press.
000170: 0A 20 20 20 20 20 20 20 20 5B 52 45 54 55 52 4E  .        [RETURN
000180: 5D 2E 0D 0A 0D 0A 20 20 20 20 64 2E 20 20 57 72  ].....    d.  Wr
000190: 69 74 65 2D 70 72 6F 74 65 63 74 20 79 6F 75 72  ite-protect your
0001A0: 20 43 50 2F 4D 20 64 69 73 63 20 61 6E 64 20 70   CP/M disc and p
0001B0: 75 74 20 69 74 20 62 61 63 6B 20 69 6E 74 6F 20  ut it back into 
0001C0: 44 72 69 76 65 20 41 3A 20 74 68 65 6E 20 66 6F  Drive A: then fo
0001D0: 6C 6C 6F 77 0D 0A 20 20 20 20 20 20 20 20 2A 20  llow..        * 
0001E0: 70 72 6F 6D 70 74 73 20 62 79 20 74 79 70 69 6E  prompts by typin
0001F0: 67 20 61 73 20 62 65 6C 6F 77 2C 20 75 73 69 6E  g as below, usin

Size : 512 (Real : 512)
000000: 6F 77 20 6D 6F 72 65 20 61 62 6F 75 74 20 74 68  ow more about th
000010: 65 20 75 73 65 72 2D 64 65 66 69 6E 65 64 20 75  e user-defined u
000020: 74 69 6C 69 74 69 65 73 20 75 73 65 64 2C 0D 0A  tilities used,..
000030: 20 20 20 20 6A 75 73 74 20 74 79 70 65 20 74 68      just type th
000040: 65 20 55 54 49 4C 53 2E 54 58 54 20 66 69 6C 65  e UTILS.TXT file
000050: 20 6F 6E 20 74 68 69 73 20 64 69 73 6B 2E 0D 0A   on this disk...
000060: 0D 0A 20 20 20 20 49 66 20 79 6F 75 20 77 69 73  ..    If you wis
000070: 68 20 74 6F 20 63 68 65 63 6B 20 6F 6E 20 74 68  h to check on th
000080: 65 20 63 6F 6E 74 65 6E 74 73 20 6F 66 20 79 6F  e contents of yo
000090: 75 72 20 6F 72 69 67 69 6E 61 6C 20 64 69 73 63  ur original disc
0000A0: 73 20 61 6E 64 20 73 75 67 67 65 73 74 65 64 0D  s and suggested.
0000B0: 0A 20 20 20 20 6D 61 6B 65 75 70 20 6F 66 20 74  .    makeup of t
0000C0: 68 65 20 64 42 41 53 45 20 44 49 53 54 52 49 42  he dBASE DISTRIB
0000D0: 55 54 49 4F 4E 20 44 69 73 63 2C 20 74 79 70 65  UTION Disc, type
0000E0: 20 74 68 65 20 44 49 53 43 44 49 52 2E 54 58 54   the DISCDIR.TXT
0000F0: 20 66 69 6C 65 2E 0D 0A 0D 0A 20 20 20 20 47 6F   file.....    Go
000100: 6F 64 20 4C 75 63 6B 21 0D 0A 1A 6F 66 20 79 6F  od Luck!...of yo
000110: 75 72 20 6F 72 69 67 69 6E 61 6C 20 64 69 73 63  ur original disc
000120: 73 20 61 6E 64 20 73 75 67 67 65 73 74 65 64 0D  s and suggested.
000130: 0A 20 20 20 20 6D 61 6B 65 75 70 20 6F 66 20 74  .    makeup of t
000140: 68 65 20 64 42 41 53 45 20 44 49 53 54 52 49 42  he dBASE DISTRIB
000150: 55 54 49 4F 4E 20 44 69 73 63 2C 20 74 79 70 65  UTION Disc, type
000160: 20 74 68 65 20 44 49 53 43 44 49 52 2E 54 58 54   the DISCDIR.TXT
000170: 20 66 69 6C 65 2E 0D 0A 0D 0A 20 20 20 20 47 6F   file.....    Go
000180: 2A FB B4 CD 7F 9D E1 D2 3C B5 EB 22 FB B4 EB 22  *.......<.."..."
000190: FD B4 CD 78 B7 C2 11 B5 21 FB B4 CD FB 9E C8 2A  ...x....!......*
0001A0: FD B4 AF 3E 04 CD 58 B5 2A 7B B4 C3 07 B5 F5 CD  ...>..X.*{......
0001B0: 51 B6 3A AB B4 5F A0 32 EF B4 7B A1 32 AB B4 F1  Q.:.._.2..{.2...
0001C0: F5 C4 92 B6 22 F0 B4 CD 82 9E 22 1B F6 CD 58 B6  ...."....."...X.
0001D0: 7E 3C CA C2 B5 F1 00 00 00 00 00 00 00 00 00 00  ~<..............
0001E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 FF  ................

Size : 512 (Real : 512)
000000: 67 20 74 68 65 20 64 42 41 53 45 20 53 54 41 52  g the dBASE STAR
000010: 54 45 52 20 64 69 73 6B 20 66 6F 72 20 44 72 69  TER disk for Dri
000020: 76 65 20 42 2E 0D 0A 20 20 20 20 20 20 20 20 50  ve B...        P
000030: 72 65 73 73 20 5B 52 45 54 55 52 4E 5D 20 61 66  ress [RETURN] af
000040: 74 65 72 20 65 61 63 68 20 6C 69 6E 65 20 61 6E  ter each line an
000050: 64 20 6F 62 65 79 20 74 68 65 20 20 70 72 6F 6D  d obey the  prom
000060: 70 74 73 20 20 74 6F 20 20 73 77 61 70 20 20 64  pts  to  swap  d
000070: 69 73 63 73 0D 0A 20 20 20 20 20 20 20 20 28 20  iscs..        ( 
000080: 20 61 6E 20 20 75 6E 61 76 6F 69 64 61 62 6C 65   an  unavoidable
000090: 20 63 68 6F 72 65 20 20 77 69 74 68 20 61 20 73   chore  with a s
0000A0: 69 6E 67 6C 65 20 64 72 69 76 65 29 3A 0D 0A 0D  ingle drive):...
0000B0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0000C0: 20 20 20 20 20 20 20 20 20 20 20 2A 62 3A 3D 6A             *b:=j
0000D0: 31 34 63 70 6D 33 2E 65 6D 73 5B 6F 76 5D 0D 0A  14cpm3.ems[ov]..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000F0: 20 20 20 20 20 20 20 20 20 20 2A 62 3A 3D 73 75            *b:=su
000100: 62 6D 69 74 2E 63 6F 6D 5B 76 5D 0D 0A 20 20 20  bmit.com[v]..   
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000120: 20 20 20 20 20 20 20 2A 62 3A 3D 70 69 70 2E 63         *b:=pip.c
000130: 6F 6D 5B 76 5D 0D 0A 20 20 20 20 20 20 20 20 20  om[v]..         
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000150: 20 2A 62 3A 3D 70 61 70 65 72 2E 63 6F 6D 5B 76   *b:=paper.com[v
000160: 5D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  ]..             
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 62 3A               *b:
000180: 3D 73 65 74 6B 65 79 73 2E 63 6F 6D 5B 76 5D 0D  =setkeys.com[v].
000190: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0001A0: 20 20 20 20 20 20 20 20 20 20 20 2A 62 3A 3D 73             *b:=s
0001B0: 65 74 6C 73 74 2E 63 6F 6D 5B 76 5D 0D 0A 20 20  etlst.com[v]..  
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001D0: 20 20 20 20 20 20 20 20 2A 62 3A 3D 64 69 72 2E          *b:=dir.
0001E0: 63 6F 6D 5B 76 5D 0D 0A 20 20 20 20 20 20 20 20  com[v]..        
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: 20 20 2A 62 3A 3D 74 79 70 65 2E 63 6F 6D 5B 76    *b:=type.com[v
000010: 5D 0D 0A 0D 0A 20 20 20 20 65 2E 20 20 4F 6E 20  ]....    e.  On 
000020: 66 75 74 75 72 65 20 70 72 6F 6D 70 74 73 20 66  future prompts f
000030: 6F 72 20 61 20 22 64 69 73 63 20 66 6F 72 20 41  or a "disc for A
000040: 3A 22 20 69 6E 73 65 72 74 20 79 6F 75 72 20 64  :" insert your d
000050: 42 41 53 45 20 57 4F 52 4B 49 4E 47 20 4D 41 53  BASE WORKING MAS
000060: 54 45 52 0D 0A 20 20 20 20 20 20 20 20 77 69 74  TER..        wit
000070: 68 20 73 69 64 65 20 31 20 66 61 63 69 6E 67 20  h side 1 facing 
000080: 6C 65 66 74 20 74 6F 20 63 6F 70 79 20 74 68 65  left to copy the
000090: 20 64 42 41 53 45 20 66 69 6C 65 73 20 77 68 69   dBASE files whi
0000A0: 63 68 20 61 72 65 3A 0D 0A 0D 0A 20 20 20 20 20  ch are:....     
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000C0: 20 20 20 20 20 2A 62 3A 3D 64 62 61 73 65 2E 63       *b:=dbase.c
0000D0: 6F 6D 5B 76 5D 0D 0A 20 20 20 20 20 20 20 20 20  om[v]..         
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000F0: 20 2A 62 3A 3D 64 62 61 73 65 6F 76 72 2E 63 6F   *b:=dbaseovr.co
000100: 6D 5B 76 5D 0D 0A 0D 0A 20 20 20 20 20 20 20 20  m[v]....        
000110: 41 6E 64 20 74 68 65 20 75 73 65 72 2D 64 65 66  And the user-def
000120: 69 6E 65 64 20 66 69 6C 65 73 20 74 6F 20 62 65  ined files to be
000130: 20 75 73 65 64 20 62 79 20 74 68 65 20 75 74 69   used by the uti
000140: 6C 69 74 69 65 73 20 3A 0D 0A 0D 0A 20 20 20 20  lities :....    
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000160: 20 20 20 20 20 20 2A 62 3A 3D 61 3A 75 2A 2E 2A        *b:=a:u*.*
000170: 5B 76 5D 0D 0A 0D 0A 20 20 20 20 20 20 20 20 41  [v]....        A
000180: 6E 64 20 74 68 65 20 70 72 6F 66 69 6C 65 20 66  nd the profile f
000190: 6F 72 20 43 50 4D 20 77 68 65 6E 20 62 6F 6F 74  or CPM when boot
0001A0: 69 6E 67 20 74 68 65 20 6D 61 63 68 69 6E 65 20  ing the machine 
0001B0: 3A 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20  :....           
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A                 *
0001D0: 62 3A 3D 61 3A 70 72 6F 66 69 6C 65 2E 73 75 62  b:=a:profile.sub
0001E0: 0D 0A 0D 0A 20 20 20 20 66 2E 20 20 46 72 6F 6D  ....    f.  From
0001F0: 20 6E 6F 77 20 6F 6E 2C 20 79 6F 75 72 20 44 42   now on, your DB

Size : 512 (Real : 512)
000000: 02 1B 00 00 00 00 95 00 54 49 54 4C 45 00 00 00  ........TITLE...
000010: 00 00 00 43 50 D9 73 00 41 55 54 48 4F 52 00 00  ...CP.s.AUTHOR..
000020: 00 00 00 43 1E 29 74 00 53 55 42 4A 45 43 54 00  ...C.)t.SUBJECT.
000030: 00 00 00 43 14 47 74 00 52 4F 4F 4D 00 00 00 00  ...C.Gt.ROOM....
000040: 00 00 00 43 0F 5B 74 00 53 48 45 4C 46 00 00 00  ...C.[t.SHELF...
000050: 00 00 00 43 03 6A 74 00 0D 00 00 00 00 00 00 00  ...C.jt.........
000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................

Size : 512 (Real : 512)
000000: 41 53 45 20 44 49 53 54 52 49 42 55 54 49 4F 4E  ASE DISTRIBUTION
000010: 20 64 69 73 63 20 69 73 20 74 68 65 20 6F 6E 65   disc is the one
000020: 20 66 6F 72 20 44 72 69 76 65 20 42 3A 0D 0A 20   for Drive B:.. 
000030: 20 20 20 20 20 20 20 47 6F 20 6F 6E 3A 0D 0A 20         Go on:.. 
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000050: 20 20 20 20 20 20 20 20 20 2A 62 3A 3D 64 62 61           *b:=dba
000060: 73 65 6D 73 67 2E 74 78 74 5B 6F 76 5D 0D 0A 20  semsg.txt[ov].. 
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000080: 20 20 20 20 20 20 20 20 20 2A 62 3A 3D 61 3A 7A           *b:=a:z
000090: 69 70 2E 63 6F 6D 5B 76 5D 0D 0A 20 20 20 20 20  ip.com[v]..     
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000B0: 20 20 20 20 20 2A 62 3A 3D 61 3A 7A 73 63 72 6E       *b:=a:zscrn
0000C0: 2E 6F 76 6C 5B 6F 76 5D 0D 0A 20 20 20 20 20 20  .ovl[ov]..      
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000E0: 20 20 20 20 2A 62 3A 3D 61 3A 64 73 6F 72 74 2E      *b:=a:dsort.
0000F0: 63 6F 6D 5B 76 5D 0D 0A 20 20 20 20 20 20 20 20  com[v]..        
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000110: 20 20 2A 62 3A 3D 61 3A 64 67 65 6E 2E 6F 76 6C    *b:=a:dgen.ovl
000120: 5B 6F 76 5D 0D 0A 0D 0A 20 20 20 20 67 2E 20 20  [ov]....    g.  
000130: 57 68 65 6E 20 61 20 20 2A 20 70 72 6F 6D 70 74  When a  * prompt
000140: 20 61 70 70 65 61 72 73 20 61 66 74 65 72 20 63   appears after c
000150: 6F 70 79 69 6E 67 20 74 68 65 20 66 69 6E 61 6C  opying the final
000160: 20 66 69 6C 65 2C 20 70 72 65 73 73 20 20 5B 52   file, press  [R
000170: 45 54 55 52 4E 5D 0D 0A 20 20 20 20 20 20 20 20  ETURN]..        
000180: 74 6F 20 66 69 6E 69 73 68 20 77 69 74 68 20 50  to finish with P
000190: 49 50 2E 0D 0A 0D 0A 20 20 20 20 68 2E 20 20 4E  IP.....    h.  N
0001A0: 6F 74 65 20 20 74 68 61 74 2C 20 20 69 66 20 20  ote  that,  if  
0001B0: 79 6F 75 20 20 77 69 73 68 20 74 6F 20 20 75 73  you  wish to  us
0001C0: 65 20 66 69 6C 65 73 20 6C 69 6B 65 20 20 49 4E  e files like  IN
0001D0: 54 52 4F 2E 43 4D 44 20 61 6E 64 20 49 4E 54 52  TRO.CMD and INTR
0001E0: 31 2E 43 4D 44 2C 0D 0A 20 20 20 20 20 20 20 20  1.CMD,..        
0001F0: 74 68 65 79 20 77 69 6C 6C 20 6E 6F 74 20 62 6F  they will not bo

Size : 512 (Real : 512)
000000: 00 00 00 00 00 00 00 00 00 20 41 73 20 59 6F 75  ......... As You
000010: 20 4C 69 6B 65 20 49 74 20 20 20 20 20 20 20 20   Like It        
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000050: 20 20 20 20 20 20 20 20 20 20 53 68 61 6B 65 73            Shakes
000060: 70 65 61 72 65 20 20 20 20 20 20 20 20 20 20 20  peare           
000070: 20 20 20 20 20 20 20 20 44 72 61 6D 61 20 20 20          Drama   
000080: 20 20 20 20 20 20 20 20 20 20 20 20 53 74 75 64              Stud
000090: 79 20 20 20 20 20 20 20 20 20 20 43 32 32 20 44  y          C22 D
0000A0: 6F 6D 62 65 79 20 61 6E 64 20 53 6F 6E 20 20 20  ombey and Son   
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44                 D
0000F0: 69 63 6B 65 6E 73 20 20 20 20 20 20 20 20 20 20  ickens          
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 4E 6F 76               Nov
000110: 65 6C 20 20 20 20 20 20 20 20 20 20 20 20 20 20  el              
000120: 20 53 74 75 64 79 20 20 20 20 20 20 20 20 20 20   Study          
000130: 41 32 33 20 42 6C 65 61 6B 20 48 6F 75 73 65 20  A23 Bleak House 
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000180: 20 20 20 20 44 69 63 6B 65 6E 73 20 20 20 20 20      Dickens     
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001A0: 20 20 4E 6F 76 65 6C 20 20 20 20 20 20 20 20 20    Novel         
0001B0: 20 20 20 20 20 20 53 74 75 64 79 20 20 20 20 20        Study     
0001C0: 20 20 20 20 20 41 32 33 20 52 69 76 61 6C 20 50       A23 Rival P
0001D0: 72 69 6E 63 65 73 2C 54 68 65 20 20 20 20 20 20  rinces,The      
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53                 S
000040: 68 61 6B 65 73 70 65 61 72 65 20 20 20 20 20 20  hakespeare      
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 44 72 61               Dra
000060: 6D 61 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ma              
000070: 20 4C 69 62 72 61 72 79 20 20 20 20 20 20 20 20   Library        
000080: 41 30 32 20 54 65 6D 70 65 73 74 20 20 20 20 20  A02 Tempest     
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000D0: 20 20 20 20 53 68 61 6B 65 73 70 65 61 72 65 20      Shakespeare 
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000F0: 20 20 44 72 61 6D 61 20 20 20 20 20 20 20 20 20    Drama         
000100: 20 20 20 20 20 20 4C 69 62 72 61 72 79 20 20 20        Library   
000110: 20 20 20 20 20 41 30 32 20 46 69 6E 6E 69 67 61       A02 Finniga
000120: 6E 27 73 20 57 61 6B 65 20 20 20 20 20 20 20 20  n's Wake        
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000160: 20 20 20 20 20 20 20 20 20 4A 6F 79 63 65 20 20           Joyce  
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000180: 20 20 20 20 20 20 20 4E 6F 76 65 6C 20 20 20 20         Novel    
000190: 20 20 20 20 20 20 20 20 20 20 20 4C 69 62 72 61             Libra
0001A0: 72 79 20 20 20 20 20 20 20 20 41 30 32 20 50 6F  ry        A02 Po
0001B0: 72 74 72 61 69 74 20 6F 66 20 74 68 65 20 59 6F  rtrait of the Yo
0001C0: 75 6E 67 20 4D 61 6E 20 61 73 20 61 6E 20 41 72  ung Man as an Ar
0001D0: 74 69 73 74 20 20 20 20 20 20 20 20 20 20 20 20  tist            
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4A 6F                Jo

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000010: 20 20 20 20 20 20 20 20 20 43 6C 61 72 6B 65 2C           Clarke,
000020: 4D 72 73 20 4D 20 41 20 20 20 20 20 20 20 20 20  Mrs M A         
000030: 20 20 20 20 20 20 20 53 6F 63 69 61 6C 20 48 69         Social Hi
000040: 73 74 6F 72 79 20 20 20 20 20 20 4C 69 62 72 61  story      Libra
000050: 72 79 20 20 20 20 20 20 20 20 43 30 33 20 43 6F  ry        C03 Co
000060: 6C 6C 65 63 74 65 64 20 50 6F 65 6D 73 20 20 20  llected Poems   
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4B 65                Ke
0000B0: 61 74 73 20 20 20 20 20 20 20 20 20 20 20 20 20  ats             
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 50 6F 65 74              Poet
0000D0: 72 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ry              
0000E0: 53 74 75 64 79 20 20 20 20 20 20 20 20 20 20 41  Study          A
0000F0: 32 31 20 57 6F 72 6C 64 20 41 74 6C 61 73 20 20  21 World Atlas  
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000160: 20 47 65 6F 67 72 61 70 68 79 20 20 20 20 20 20   Geography      
000170: 20 20 20 20 20 53 74 75 64 79 20 20 20 20 20 20       Study      
000180: 20 20 20 20 41 30 31 20 41 6E 6E 61 20 4B 61 72      A01 Anna Kar
000190: 65 6E 69 6E 61 20 20 20 20 20 20 20 20 20 20 20  enina           
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001D0: 20 20 20 20 20 20 20 20 54 6F 6C 73 74 6F 79 20          Tolstoy 
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001F0: 20 20 20 20 20 20 4E 6F 76 65 6C 20 20 20 20 20        Novel     

Size : 512 (Real : 512)
000000: 79 63 65 20 20 20 20 20 20 20 20 20 20 20 20 20  yce             
000010: 20 20 20 20 20 20 20 20 20 20 20 20 4E 6F 76 65              Nove
000020: 6C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  l               
000030: 6B 69 74 63 68 65 6E 20 20 20 20 20 20 20 20 41  kitchen        A
000040: 30 32 20 43 61 6B 65 73 20 61 6E 64 20 41 6C 65  02 Cakes and Ale
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000090: 20 20 20 4D 61 75 67 68 61 6D 2C 53 6F 6D 65 72     Maugham,Somer
0000A0: 73 65 74 20 20 20 20 20 20 20 20 20 20 20 20 20  set             
0000B0: 20 4E 6F 76 65 6C 20 20 20 20 20 20 20 20 20 20   Novel          
0000C0: 20 20 20 20 20 4C 69 62 72 61 72 79 20 20 20 20       Library    
0000D0: 20 20 20 20 41 30 32 20 44 75 6E 65 20 20 20 20      A02 Dune    
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000120: 20 20 20 20 20 20 20 20 48 65 72 62 65 72 74 2C          Herbert,
000130: 46 72 61 6E 6B 20 20 20 20 20 20 20 20 20 20 20  Frank           
000140: 20 20 20 20 20 20 53 63 69 65 6E 63 65 20 46 69        Science Fi
000150: 63 74 69 6F 6E 20 20 20 20 20 4C 69 62 72 61 72  ction     Librar
000160: 79 20 20 20 20 20 20 20 20 41 30 32 20 44 75 6E  y        A02 Dun
000170: 65 20 4D 65 73 73 69 61 68 20 20 20 20 20 20 20  e Messiah       
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 48 65 72               Her
0001C0: 62 65 72 74 2C 46 72 61 6E 6B 20 20 20 20 20 20  bert,Frank      
0001D0: 20 20 20 20 20 20 20 20 20 20 20 53 63 69 65 6E             Scien
0001E0: 63 65 20 46 69 63 74 69 6F 6E 20 20 20 20 20 4C  ce Fiction     L
0001F0: 69 62 72 61 72 79 20 20 20 20 20 20 20 20 41 30  ibrary        A0

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 53 74 75 64 79 20            Study 
000010: 20 20 20 20 20 20 20 20 20 44 33 32 20 52 69 64           D32 Rid
000020: 65 72 73 20 6F 66 20 74 68 65 20 50 75 72 70 6C  ers of the Purpl
000030: 65 20 53 61 67 65 20 20 20 20 20 20 20 20 20 20  e Sage          
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 47 72 65               Gre
000070: 79 2C 5A 61 6E 65 20 20 20 20 20 20 20 20 20 20  y,Zane          
000080: 20 20 20 20 20 20 20 20 20 20 20 57 65 73 74 65             Weste
000090: 72 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 4C  rn             L
0000A0: 69 62 72 61 72 79 20 20 20 20 20 20 20 20 41 32  ibrary        A2
0000B0: 32 20 4C 6F 72 64 20 4A 69 6D 20 20 20 20 20 20  2 Lord Jim      
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000100: 20 20 43 6F 6E 72 61 64 20 20 20 20 20 20 20 20    Conrad        
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000120: 4E 6F 76 65 6C 20 20 20 20 20 20 20 20 20 20 20  Novel           
000130: 20 20 20 20 53 74 75 64 79 20 20 20 20 20 20 20      Study       
000140: 20 20 20 41 32 31 20 57 61 72 20 61 6E 64 20 50     A21 War and P
000150: 65 61 63 65 20 20 20 20 20 20 20 20 20 20 20 20  eace            
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000190: 20 20 20 20 20 20 20 54 6F 6C 73 74 6F 79 20 20         Tolstoy  
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001B0: 20 20 20 20 20 4E 6F 76 65 6C 20 20 20 20 20 20       Novel      
0001C0: 20 20 20 20 20 20 20 20 20 53 74 75 64 79 20 20           Study  
0001D0: 20 20 20 20 20 20 20 20 41 30 31 20 4D 69 63 68          A01 Mich
0001E0: 61 65 6C 20 20 20 20 20 20 20 20 20 20 20 20 20  ael             
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  

Size : 512 (Real : 512)
000000: 32 20 57 6F 72 6B 69 6E 67 20 77 69 74 68 20 64  2 Working with d
000010: 42 61 73 65 20 49 49 20 20 20 20 20 20 20 20 20  Base II         
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000050: 20 20 64 65 20 50 61 63 65 20 20 20 20 20 20 20    de Pace       
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000070: 43 6F 6D 70 75 74 65 72 20 20 20 20 20 20 20 20  Computer        
000080: 20 20 20 20 53 74 75 64 79 20 20 20 20 20 20 20      Study       
000090: 20 20 20 41 30 32 20 54 48 45 20 4C 4F 53 53 20     A02 THE LOSS 
0000A0: 4F 46 20 41 20 53 4F 4E 20 20 20 20 20 20 20 20  OF A SON        
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000E0: 20 20 20 20 20 20 20 57 49 4C 4C 49 41 4D 20 54         WILLIAM T
0000F0: 45 4C 4C 20 20 20 20 20 20 20 20 20 20 20 20 20  ELL             
000100: 20 20 20 20 20 41 52 43 48 45 52 59 20 20 20 20       ARCHERY    
000110: 20 20 20 20 20 20 20 20 20 4C 49 42 52 41 52 59           LIBRARY
000120: 20 20 20 20 20 20 20 20 44 32 33 20 74 68 65 20          D23 the 
000130: 6C 69 66 65 20 61 6E 64 20 74 69 6D 65 73 20 6F  life and times o
000140: 66 20 68 65 6E 72 79 20 6A 61 6D 65 73 20 20 20  f henry james   
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000170: 20 20 20 20 20 20 20 20 20 20 20 20 77 61 6C 6C              wall
000180: 79 20 73 6D 69 74 68 20 20 20 20 20 20 20 20 20  y smith         
000190: 20 20 20 20 20 20 20 20 20 20 62 69 6F 67 72 61            biogra
0001A0: 70 68 79 20 20 20 20 20 20 20 20 20 20 20 6C 69  phy           li
0001B0: 62 72 61 72 79 20 20 20 20 20 20 20 20 61 31 30  brary        a10
0001C0: 1A 74 68 65 20 6C 69 66 65 20 61 6E 64 20 74 69  .the life and ti
0001D0: 6D 65 73 20 6F 66 20 68 65 6E 72 79 20 6A 61 6D  mes of henry jam
0001E0: 65 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20  es              
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000020: 20 20 20 20 20 20 20 20 20 20 20 20 57 6F 72 64              Word
000030: 73 77 6F 72 74 68 20 20 20 20 20 20 20 20 20 20  sworth          
000040: 20 20 20 20 20 20 20 20 20 20 50 6F 65 74 72 79            Poetry
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 74                St
000060: 75 64 79 20 20 20 20 20 20 20 20 20 20 41 30 31  udy          A01
000070: 20 43 72 69 74 69 71 75 65 20 6F 66 20 50 75 72   Critique of Pur
000080: 65 20 52 65 61 73 6F 6E 20 20 20 20 20 20 20 20  e Reason        
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000C0: 20 4B 61 6E 74 20 20 20 20 20 20 20 20 20 20 20   Kant           
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50                 P
0000E0: 68 69 6C 6F 73 6F 70 68 79 20 20 20 20 20 20 20  hilosophy       
0000F0: 20 20 20 53 74 75 64 79 20 20 20 20 20 20 20 20     Study        
000100: 20 20 41 30 31 20 49 6E 66 65 72 6E 6F 20 20 20    A01 Inferno   
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000150: 20 20 20 20 20 20 44 61 6E 74 65 20 20 20 20 20        Dante     
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000170: 20 20 20 20 50 6F 65 74 72 79 20 20 20 20 20 20      Poetry      
000180: 20 20 20 20 20 20 20 20 53 74 75 64 79 20 20 20          Study   
000190: 20 20 20 20 20 20 20 41 30 31 20 43 68 69 6C 64         A01 Child
0001A0: 65 20 48 61 72 6F 6C 64 20 20 20 20 20 20 20 20  e Harold        
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001E0: 20 20 20 20 20 20 20 20 20 20 20 42 79 72 6F 6E             Byron
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000010: 20 77 61 6C 6C 79 20 73 6D 69 74 68 20 20 20 20   wally smith    
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62                 b
000030: 69 6F 67 72 61 70 68 79 20 20 20 20 20 20 20 20  iography        
000040: 20 20 20 6C 69 62 72 61 72 79 20 20 20 20 20 20     library      
000050: 20 20 61 31 30 1A 57 48 41 54 20 45 43 4F 4E 4F    a10.WHAT ECONO
000060: 4D 49 43 20 43 52 49 53 49 53 20 21 20 20 20 20  MIC CRISIS !    
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000A0: 20 20 20 20 20 20 54 48 41 54 43 48 45 52 20 26        THATCHER &
0000B0: 20 4C 41 57 53 4F 4E 20 20 20 20 20 20 20 20 20   LAWSON         
0000C0: 20 20 20 20 44 49 53 41 53 54 45 52 53 20 20 20      DISASTERS   
0000D0: 20 20 20 20 20 20 20 20 53 54 55 44 59 20 20 20          STUDY   
0000E0: 20 20 20 20 20 20 20 45 33 34 20 67 6F 6E 65 20         E34 gone 
0000F0: 57 49 54 48 20 74 68 65 20 57 49 4E 44 20 20 20  WITH the WIND   
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000130: 20 20 20 20 20 20 20 20 20 20 20 4D 52 20 48 49             MR HI
000140: 45 4E 5A 20 20 20 20 20 20 20 20 20 20 20 20 20  ENZ             
000150: 20 20 20 20 20 20 20 20 20 46 4F 4F 44 20 20 20           FOOD   
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 4B 49 54               KIT
000170: 43 48 45 4E 20 20 20 20 20 20 20 20 54 4F 50 20  CHEN        TOP 
000180: 74 68 65 20 6C 69 66 65 20 61 6E 64 20 74 69 6D  the life and tim
000190: 65 73 20 6F 66 20 68 65 6E 72 79 20 6A 61 6D 65  es of henry jame
0001A0: 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  s               
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001D0: 77 61 6C 6C 79 20 73 6D 69 74 68 20 20 20 20 20  wally smith     
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 69                bi
0001F0: 6F 67 72 61 70 68 79 20 20 20 20 20 20 20 20 20  ography         

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 50 6F 65 74 72 79 20           Poetry 
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 6B 69 74               kit
000020: 63 68 65 6E 20 20 20 20 20 20 20 20 41 30 31 20  chen        A01 
000030: 44 6F 6C 6C 27 73 20 48 6F 75 73 65 20 20 20 20  Doll's House    
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000080: 49 62 73 65 6E 20 20 20 20 20 20 20 20 20 20 20  Ibsen           
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 72                Dr
0000A0: 61 6D 61 20 20 20 20 20 20 20 20 20 20 20 20 20  ama             
0000B0: 20 20 4C 69 62 72 61 72 79 20 20 20 20 20 20 20    Library       
0000C0: 20 41 30 32 20 48 65 6E 72 79 20 56 20 20 20 20   A02 Henry V    
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000110: 20 20 20 20 20 53 68 61 6B 65 73 70 65 61 72 65       Shakespeare
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000130: 20 20 20 44 72 61 6D 61 20 20 20 20 20 20 20 20     Drama        
000140: 20 20 20 20 20 20 20 4C 69 62 72 61 72 79 20 20         Library  
000150: 20 20 20 20 20 20 41 30 33 20 52 6F 6D 65 6F 20        A03 Romeo 
000160: 61 6E 64 20 4A 75 6C 69 65 74 20 20 20 20 20 20  and Juliet      
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001A0: 20 20 20 20 20 20 20 20 20 20 53 68 61 6B 65 73            Shakes
0001B0: 70 65 61 72 65 20 20 20 20 20 20 20 20 20 20 20  peare           
0001C0: 20 20 20 20 20 20 20 20 44 72 61 6D 61 20 20 20          Drama   
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 4C 69 62 72              Libr
0001E0: 61 72 79 20 20 20 20 20 20 20 20 41 30 32 20 4B  ary        A02 K
0001F0: 69 6E 67 20 4C 65 61 72 20 20 20 20 20 20 20 20  ing Lear        

Size : 512 (Real : 512)
000000: 20 20 6C 69 62 72 61 72 79 20 20 20 20 20 20 20    library       
000010: 20 61 31 30 1A 20 20 20 20 44 33 32 20 52 69 64   a10.    D32 Rid
000020: 65 72 73 20 6F 66 20 74 68 65 20 50 75 72 70 6C  ers of the Purpl
000030: 65 20 53 61 67 65 20 20 20 20 20 20 20 20 20 20  e Sage          
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 47 72 65               Gre
000070: 79 2C 5A 61 6E 65 20 20 20 20 20 20 20 20 20 20  y,Zane          
000080: 20 20 20 20 20 20 20 20 20 20 20 57 65 73 74 65             Weste
000090: 72 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 4C  rn             L
0000A0: 69 62 72 61 72 79 20 20 20 20 20 20 20 20 41 32  ibrary        A2
0000B0: 32 20 4C 6F 72 64 20 4A 69 6D 20 20 20 20 20 20  2 Lord Jim      
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000100: 20 20 43 6F 6E 72 61 64 20 20 20 20 20 20 20 20    Conrad        
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000120: 4E 6F 76 65 6C 20 20 20 20 20 20 20 20 20 20 20  Novel           
000130: 20 20 20 20 53 74 75 64 79 20 20 20 20 20 20 20      Study       
000140: 20 20 20 41 32 31 20 57 61 72 20 61 6E 64 20 50     A21 War and P
000150: 65 61 63 65 20 20 20 20 20 20 20 20 20 20 20 20  eace            
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000190: 20 20 20 20 20 20 20 54 6F 6C 73 74 6F 79 20 20         Tolstoy  
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001B0: 20 20 20 20 20 4E 6F 76 65 6C 20 20 20 20 20 20       Novel      
0001C0: 20 20 20 20 20 20 20 20 20 53 74 75 64 79 20 20           Study  
0001D0: 20 20 20 20 20 20 20 20 41 30 31 20 4D 69 63 68          A01 Mich
0001E0: 61 65 6C 20 20 20 20 20 20 20 20 20 20 20 20 20  ael             
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  

Size : 512 (Real : 512)
000000: 22 0D 0A 20 20 40 20 20 35 2C 30 20 73 61 79 20  "..  @  5,0 say 
000010: 22 54 69 74 6C 65 20 20 20 20 20 22 20 67 65 74  "Title     " get
000020: 20 74 69 74 6C 65 78 31 0D 0A 20 20 40 20 20 36   titlex1..  @  6
000030: 2C 30 20 73 61 79 20 22 20 20 20 20 20 20 20 20  ,0 say "        
000040: 20 20 22 20 67 65 74 20 74 69 74 6C 65 78 32 0D    " get titlex2.
000050: 0A 20 20 40 20 20 37 2C 30 20 73 61 79 20 22 41  .  @  7,0 say "A
000060: 75 74 68 6F 72 20 20 20 20 22 20 67 65 74 20 61  uthor    " get a
000070: 75 74 68 6F 72 78 0D 0A 20 20 40 20 20 38 2C 30  uthorx..  @  8,0
000080: 20 73 61 79 20 22 53 75 62 6A 65 63 74 20 20 20   say "Subject   
000090: 22 20 67 65 74 20 73 75 62 6A 65 63 74 78 0D 0A  " get subjectx..
0000A0: 20 20 40 20 20 39 2C 30 20 73 61 79 20 22 52 6F    @  9,0 say "Ro
0000B0: 6F 6D 20 20 20 20 20 20 22 20 67 65 74 20 72 6F  om      " get ro
0000C0: 6F 6D 78 0D 0A 20 20 40 20 31 30 2C 30 20 73 61  omx..  @ 10,0 sa
0000D0: 79 20 22 53 68 65 6C 66 20 20 20 20 20 22 20 67  y "Shelf     " g
0000E0: 65 74 20 73 68 65 6C 66 78 0D 0A 20 20 74 65 78  et shelfx..  tex
0000F0: 74 20 20 0D 0A 0D 0A 0D 0A 2A 2A 2A 2A 2A 2A 2A  t  ......*******
000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000110: 2A 2A 2A 2A 2A 2A 2A 2A 20 54 59 50 49 4E 47 20  ******** TYPING 
000120: 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A 2A 2A  INSTRUCTIONS ***
000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000140: 2A 2A 2A 2A 2A 2A 2A 0D 0A 2A 20 20 20 20 20 20  *******..*      
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000170: 20 20 20 20 20 2A 20 20 20 20 20 20 20 20 20 20       *          
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000190: 20 20 20 20 20 20 2A 0D 0A 2A 20 54 6F 20 6D 6F        *..* To mo
0001A0: 76 65 20 63 75 72 73 6F 72 2C 20 68 6F 6C 64 20  ve cursor, hold 
0001B0: 43 54 52 4C 20 61 6E 64 20 70 72 65 73 73 20 3A  CTRL and press :
0001C0: 20 20 20 20 20 2A 20 20 20 20 48 6F 6C 64 20 43       *    Hold C
0001D0: 54 52 4C 20 61 6E 64 20 70 72 65 73 73 20 3A 20  TRL and press : 
0001E0: 20 20 20 20 20 20 2A 0D 0A 2A 20 20 20 20 20 20        *..*      
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000010: 20 20 20 20 20 2A 20 20 20 20 20 20 20 20 20 20       *          
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000030: 20 20 20 20 20 20 2A 0D 0A 2A 20 20 45 20 20 74        *..*  E  t
000040: 6F 20 6D 6F 76 65 20 55 70 20 20 20 20 20 20 20  o move Up       
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000060: 20 20 20 20 20 2A 20 20 20 20 47 20 20 74 6F 20       *    G  to 
000070: 44 65 6C 65 74 65 20 20 20 20 20 20 20 20 20 20  Delete          
000080: 20 20 20 20 20 20 2A 0D 0A 2A 20 20 58 20 20 74        *..*  X  t
000090: 6F 20 6D 6F 76 65 20 44 6F 77 6E 20 20 20 20 20  o move Down     
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000B0: 20 20 20 20 20 2A 20 20 20 20 56 20 20 74 6F 20       *    V  to 
0000C0: 53 74 61 72 74 20 49 6E 73 65 72 74 20 20 20 20  Start Insert    
0000D0: 20 20 20 20 20 20 2A 0D 0A 2A 20 20 53 20 20 74        *..*  S  t
0000E0: 6F 20 6D 6F 76 65 20 4C 65 66 74 20 20 20 20 20  o move Left     
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000100: 20 20 20 20 20 2A 20 20 20 20 56 20 20 74 6F 20       *    V  to 
000110: 53 74 6F 70 20 20 49 6E 73 65 72 74 20 20 20 20  Stop  Insert    
000120: 20 20 20 20 20 20 2A 0D 0A 2A 20 20 44 20 20 74        *..*  D  t
000130: 6F 20 6D 6F 76 65 20 52 69 67 68 74 20 20 20 20  o move Right    
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000150: 20 20 20 20 20 2A 20 20 20 20 43 20 20 74 6F 20       *    C  to 
000160: 52 65 74 75 72 6E 20 74 6F 20 4D 61 69 6E 20 4D  Return to Main M
000170: 65 6E 75 20 20 20 2A 0D 0A 2A 20 20 20 20 20 20  enu   *..*      
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001A0: 20 20 20 20 20 2A 20 20 20 20 20 20 20 20 20 20       *          
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001C0: 20 20 20 20 20 20 2A 0D 0A 2A 2A 2A 2A 2A 2A 2A        *..*******
0001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0001E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0001F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************

Size : 512 (Real : 512)
000000: 6D 3D 31 0D 0A 79 0D 0A 43 4F 46 46 45 52 49 44  m=1..y..COFFERID
000010: 47 45 20 48 41 4C 4C 20 4C 49 42 52 41 52 59 0D  GE HALL LIBRARY.
000020: 0A 6E 0D 0A 6E 0D 0A 37 2C 72 6F 6F 6D 0D 0A 3C  .n..n..7,room..<
000030: 52 4F 4F 4D 3B 3D 3D 3D 3D 0D 0A 37 2C 73 68 65  ROOM;====..7,she
000040: 6C 66 0D 0A 3C 53 48 45 4C 46 3B 3D 3D 3D 3D 3D  lf..<SHELF;=====
000050: 0D 0A 32 30 2C 61 75 74 68 6F 72 0D 0A 3C 41 55  ..20,author..<AU
000060: 54 48 4F 52 3B 3D 3D 3D 3D 3D 3D 0D 0A 32 35 2C  THOR;======..25,
000070: 74 69 74 6C 65 0D 0A 3C 54 49 54 4C 45 3B 3D 3D  title..<TITLE;==
000080: 3D 3D 3D 0D 0A 31 33 2C 73 75 62 6A 65 63 74 0D  ===..13,subject.
000090: 0A 3C 53 55 42 4A 45 43 54 3B 3D 3D 3D 3D 3D 3D  .<SUBJECT;======
0000A0: 3D 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  =...............
0000B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0000C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0000D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0000E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0000F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000100: 20 20 20 20 20 2A 61 3A 3D 62 3A 64 69 72 2E 63       *a:=b:dir.c
000110: 6F 6D 5B 76 5D 0D 0A 20 20 20 20 20 20 20 20 20  om[v]..         
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000130: 20 20 2A 61 3A 3D 62 3A 74 79 70 65 2E 63 6F 6D    *a:=b:type.com
000140: 5B 76 5D 0D 0A 0D 0A 20 20 20 20 20 66 2E 20 20  [v]....     f.  
000150: 52 65 70 6C 61 63 65 20 74 68 65 20 43 50 2F 4D  Replace the CP/M
000160: 20 64 69 73 63 20 69 6E 20 44 72 69 76 65 20 42   disc in Drive B
000170: 3A 20 77 69 74 68 20 79 6F 75 72 20 64 42 41 53  : with your dBAS
000180: 45 20 57 4F 52 4B 49 4E 47 20 4D 41 53 54 45 52  E WORKING MASTER
000190: 20 20 77 69 74 68 0D 0A 0D 0A 20 20 20 20 20 20    with....      
0001A0: 20 20 20 73 69 64 65 20 31 20 66 61 63 69 6E 67     side 1 facing
0001B0: 20 6C 65 66 74 20 61 6E 64 20 63 6F 70 79 20 74   left and copy t
0001C0: 68 65 20 64 42 41 53 45 20 65 73 73 65 6E 74 69  he dBASE essenti
0001D0: 61 6C 73 20 61 73 20 66 6F 6C 6C 6F 77 73 3A 0D  als as follows:.
0001E0: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 20  ............... 
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  

Size : 512 (Real : 512)
000000: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000010: 2A 2A 2A 2A 2A 2A 2A 0D 0A 20 20 65 6E 64 74 65  *******..  endte
000020: 78 74 0D 0A 20 20 72 65 61 64 0D 0A 20 20 69 66  xt..  read..  if
000030: 20 74 69 74 6C 65 78 31 20 3D 20 22 20 22 0D 0A   titlex1 = " "..
000040: 20 20 20 20 72 65 74 75 72 6E 0D 0A 20 20 65 6C      return..  el
000050: 73 65 0D 0A 20 20 20 20 40 20 32 33 2C 30 20 73  se..    @ 23,0 s
000060: 61 79 20 22 50 6C 65 61 73 65 20 77 61 69 74 20  ay "Please wait 
000070: 66 6F 72 20 61 20 6D 6F 6D 65 6E 74 20 2E 2E 2E  for a moment ...
000080: 2E 2E 22 0D 0A 20 20 20 20 61 70 70 65 6E 64 20  .."..    append 
000090: 62 6C 61 6E 6B 0D 0A 20 20 20 20 73 74 6F 72 65  blank..    store
0000A0: 20 74 69 74 6C 65 78 31 2B 74 69 74 6C 65 78 32   titlex1+titlex2
0000B0: 20 74 6F 20 74 69 74 6C 65 78 0D 0A 20 20 20 20   to titlex..    
0000C0: 72 65 70 6C 61 63 65 20 74 69 74 6C 65 20 77 69  replace title wi
0000D0: 74 68 20 74 69 74 6C 65 78 2C 20 61 75 74 68 6F  th titlex, autho
0000E0: 72 20 77 69 74 68 20 61 75 74 68 6F 72 78 2C 20  r with authorx, 
0000F0: 73 75 62 6A 65 63 74 20 77 69 74 68 20 73 75 62  subject with sub
000100: 6A 65 63 74 78 3B 0D 0A 20 20 20 20 20 20 20 20  jectx;..        
000110: 20 20 20 20 72 6F 6F 6D 20 77 69 74 68 20 72 6F      room with ro
000120: 6F 6D 78 2C 20 73 68 65 6C 66 20 77 69 74 68 20  omx, shelf with 
000130: 73 68 65 6C 66 78 0D 0A 20 20 20 20 73 74 6F 72  shelfx..    stor
000140: 65 20 61 64 64 65 64 20 2B 31 20 74 6F 20 61 64  e added +1 to ad
000150: 64 65 64 0D 0A 20 20 20 20 69 66 20 61 64 64 65  ded..    if adde
000160: 64 20 3E 20 32 30 0D 0A 20 20 20 20 20 20 3F 20  d > 20..      ? 
000170: 22 44 61 74 61 62 61 73 65 20 62 65 69 6E 67 20  "Database being 
000180: 74 69 64 69 65 64 20 75 70 2E 22 0D 0A 20 20 20  tidied up."..   
000190: 20 20 20 75 73 65 20 62 6F 6F 6B 73 20 69 6E 64     use books ind
0001A0: 65 78 20 74 69 74 6C 65 73 0D 0A 20 20 20 20 20  ex titles..     
0001B0: 20 73 74 6F 72 65 20 30 20 74 6F 20 61 64 64 65   store 0 to adde
0001C0: 64 0D 0A 20 20 20 20 65 6E 64 69 66 20 0D 0A 20  d..    endif .. 
0001D0: 20 65 6E 64 69 66 0D 0A 65 6E 64 64 6F 0D 0A 1A   endif..enddo...
0001E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0001F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: 2A 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  * ==============
000010: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000020: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000030: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000040: 3D 3D 3D 3D 3D 3D 3D 0D 0A 2A 20 20 43 41 53 45  =======..*  CASE
000050: 20 4F 50 54 49 4F 4E 20 32 20 20 3A 20 20 43 48   OPTION 2  :  CH
000060: 41 4E 47 45 20 44 45 54 41 49 4C 53 20 4F 46 20  ANGE DETAILS OF 
000070: 41 20 42 4F 4F 4B 0D 0A 2A 20 3D 3D 3D 3D 3D 3D  A BOOK..* ======
000080: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000090: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
0000A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
0000B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D  ===============.
0000C0: 0A 2A 0D 0A 75 73 65 20 62 6F 6F 6B 73 20 69 6E  .*..use books in
0000D0: 64 65 78 20 74 69 74 6C 65 73 0D 0A 65 72 61 73  dex titles..eras
0000E0: 65 0D 0A 64 6F 20 77 68 69 6C 65 20 54 0D 0A 20  e..do while T.. 
0000F0: 20 65 72 61 73 65 0D 0A 20 20 40 20 20 31 2C 30   erase..  @  1,0
000100: 20 73 61 79 20 22 43 48 41 4E 47 45 20 44 45 54   say "CHANGE DET
000110: 41 49 4C 53 20 4F 46 20 41 20 42 4F 4F 4B 22 0D  AILS OF A BOOK".
000120: 0A 20 20 73 74 6F 72 65 20 73 74 72 28 31 2C 38  .  store str(1,8
000130: 31 29 20 74 6F 20 73 70 61 63 65 73 0D 0A 20 20  1) to spaces..  
000140: 73 74 6F 72 65 20 24 28 73 70 61 63 65 73 2C 31  store $(spaces,1
000150: 2C 34 30 29 20 74 6F 20 74 69 74 6C 65 78 31 0D  ,40) to titlex1.
000160: 0A 20 20 40 20 20 35 2C 30 20 73 61 79 20 22 54  .  @  5,0 say "T
000170: 69 74 6C 65 20 20 20 20 20 22 20 67 65 74 20 74  itle     " get t
000180: 69 74 6C 65 78 31 3B 0D 0A 20 20 20 70 69 63 74  itlex1;..   pict
000190: 75 72 65 20 22 21 21 21 21 21 21 21 21 21 21 21  ure "!!!!!!!!!!!
0001A0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21  !!!!!!!!!!!!!!!!
0001B0: 21 21 21 21 21 21 21 21 21 21 21 21 21 22 0D 0A  !!!!!!!!!!!!!"..
0001C0: 20 20 40 20 20 39 2C 30 20 73 61 79 20 22 28 49    @  9,0 say "(I
0001D0: 66 20 79 6F 75 20 63 61 6E 27 74 20 72 65 6D 65  f you can't reme
0001E0: 6D 62 65 72 20 74 68 65 20 74 69 74 6C 65 2C 20  mber the title, 
0001F0: 74 72 79 20 61 20 6C 65 74 74 65 72 20 6F 66 20  try a letter of 

Size : 512 (Real : 512)
000000: 2A 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  * ==============
000010: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000020: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000030: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000040: 3D 3D 3D 3D 3D 3D 3D 0D 0A 2A 20 20 43 41 53 45  =======..*  CASE
000050: 20 4F 50 54 49 4F 4E 20 31 20 20 3A 20 20 41 44   OPTION 1  :  AD
000060: 44 20 41 20 42 4F 4F 4B 20 57 49 54 48 20 49 4E  D A BOOK WITH IN
000070: 44 45 58 49 4E 47 0D 0A 2A 20 3D 3D 3D 3D 3D 3D  DEXING..* ======
000080: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000090: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
0000A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
0000B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D  ===============.
0000C0: 0A 2A 0D 0A 75 73 65 20 62 6F 6F 6B 73 20 69 6E  .*..use books in
0000D0: 64 65 78 20 74 69 74 6C 65 73 0D 0A 73 74 6F 72  dex titles..stor
0000E0: 65 20 30 20 74 6F 20 61 64 64 65 64 0D 0A 64 6F  e 0 to added..do
0000F0: 20 77 68 69 6C 65 20 54 0D 0A 20 20 73 74 6F 72   while T..  stor
000100: 65 20 73 74 72 28 31 2C 38 31 29 20 74 6F 20 73  e str(1,81) to s
000110: 70 61 63 65 73 0D 0A 20 20 73 74 6F 72 65 20 24  paces..  store $
000120: 28 73 70 61 63 65 73 2C 31 2C 34 30 29 20 74 6F  (spaces,1,40) to
000130: 20 74 69 74 6C 65 78 31 0D 0A 20 20 73 74 6F 72   titlex1..  stor
000140: 65 20 74 69 74 6C 65 78 31 20 74 6F 20 74 69 74  e titlex1 to tit
000150: 6C 65 78 32 0D 0A 20 20 73 74 6F 72 65 20 24 28  lex2..  store $(
000160: 73 70 61 63 65 73 2C 31 2C 33 30 29 20 74 6F 20  spaces,1,30) to 
000170: 61 75 74 68 6F 72 78 0D 0A 20 20 73 74 6F 72 65  authorx..  store
000180: 20 24 28 73 70 61 63 65 73 2C 31 2C 31 35 29 20   $(spaces,1,15) 
000190: 74 6F 20 72 6F 6F 6D 78 0D 0A 20 20 73 74 6F 72  to roomx..  stor
0001A0: 65 20 24 28 73 70 61 63 65 73 2C 31 2C 33 29 20  e $(spaces,1,3) 
0001B0: 20 74 6F 20 73 68 65 6C 66 78 0D 0A 20 20 73 74   to shelfx..  st
0001C0: 6F 72 65 20 24 28 73 70 61 63 65 73 2C 31 2C 32  ore $(spaces,1,2
0001D0: 30 29 20 74 6F 20 73 75 62 6A 65 63 74 78 0D 0A  0) to subjectx..
0001E0: 20 20 65 72 61 73 65 0D 0A 20 20 40 20 31 2C 30    erase..  @ 1,0
0001F0: 20 73 61 79 20 22 41 44 44 20 41 20 42 4F 4F 4B   say "ADD A BOOK

Size : 512 (Real : 512)
000000: 74 68 65 20 61 6C 70 68 61 62 65 74 29 22 0D 0A  the alphabet)"..
000010: 20 20 40 20 31 31 2C 30 20 73 61 79 20 22 50 72    @ 11,0 say "Pr
000020: 65 73 73 20 52 65 74 75 72 6E 20 74 6F 20 45 78  ess Return to Ex
000030: 69 74 22 0D 0A 20 20 72 65 61 64 0D 0A 20 20 69  it"..  read..  i
000040: 66 20 74 69 74 6C 65 78 31 20 3D 20 22 20 22 0D  f titlex1 = " ".
000050: 0A 20 20 20 20 65 72 61 73 65 0D 0A 20 20 20 20  .    erase..    
000060: 40 20 32 2C 30 20 73 61 79 20 22 50 6C 65 61 73  @ 2,0 say "Pleas
000070: 65 20 77 61 69 74 20 66 6F 72 20 61 20 6D 6F 6D  e wait for a mom
000080: 65 6E 74 20 2E 2E 2E 2E 2E 22 0D 0A 20 20 20 20  ent ....."..    
000090: 72 65 74 75 72 6E 0D 0A 20 20 65 6C 73 65 0D 0A  return..  else..
0000A0: 20 20 20 20 73 74 6F 72 65 20 74 72 69 6D 28 24      store trim($
0000B0: 28 74 69 74 6C 65 78 31 2C 31 2C 31 30 29 29 20  (titlex1,1,10)) 
0000C0: 74 6F 20 74 69 74 6C 65 78 0D 0A 20 20 20 20 66  to titlex..    f
0000D0: 69 6E 64 20 26 74 69 74 6C 65 78 0D 0A 20 20 20  ind &titlex..   
0000E0: 20 69 66 20 23 3D 30 0D 0A 20 20 20 20 20 20 40   if #=0..      @
0000F0: 20 31 33 2C 30 20 73 61 79 20 74 69 74 6C 65 78   13,0 say titlex
000100: 0D 0A 20 20 20 20 20 20 40 20 31 34 2C 30 20 73  ..      @ 14,0 s
000110: 61 79 20 22 4E 6F 74 20 46 6F 75 6E 64 22 0D 0A  ay "Not Found"..
000120: 20 20 20 20 20 20 40 20 31 37 2C 30 20 73 61 79        @ 17,0 say
000130: 20 22 50 72 65 73 73 20 61 6E 79 20 6B 65 79 20   "Press any key 
000140: 74 6F 20 63 6F 6E 74 69 6E 75 65 22 0D 0A 20 20  to continue"..  
000150: 20 20 20 20 73 65 74 20 63 6F 6E 73 20 6F 66 66      set cons off
000160: 0D 0A 20 20 20 20 20 20 77 61 69 74 0D 0A 20 20  ..      wait..  
000170: 20 20 20 20 73 65 74 20 63 6F 6E 73 20 6F 6E 0D      set cons on.
000180: 0A 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20  .    else..     
000190: 20 73 74 6F 72 65 20 22 4D 22 20 74 6F 20 6D 6F   store "M" to mo
0001A0: 72 65 0D 0A 20 20 20 20 20 20 64 6F 20 77 68 69  re..      do whi
0001B0: 6C 65 20 6D 6F 72 65 20 3D 20 22 4D 22 0D 0A 20  le more = "M".. 
0001C0: 20 20 20 20 20 20 20 73 74 6F 72 65 20 24 28 74         store $(t
0001D0: 69 74 6C 65 2C 31 2C 34 30 29 20 74 6F 20 74 69  itle,1,40) to ti
0001E0: 74 6C 65 78 31 0D 0A 20 20 20 20 20 20 20 20 73  tlex1..        s
0001F0: 74 6F 72 65 20 24 28 74 69 74 6C 65 2C 34 31 2C  tore $(title,41,

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 0D                *.
000010: 0A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  .***************
000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D  ***************.
000060: 0A 20 20 65 6E 64 74 65 78 74 0D 0A 20 20 72 65  .  endtext..  re
000070: 61 64 0D 0A 20 20 73 74 6F 72 65 20 74 69 74 6C  ad..  store titl
000080: 65 78 31 2B 74 69 74 6C 65 78 32 20 74 6F 20 74  ex1+titlex2 to t
000090: 69 74 6C 65 78 0D 0A 20 20 72 65 70 6C 61 63 65  itlex..  replace
0000A0: 20 74 69 74 6C 65 20 77 69 74 68 20 74 69 74 6C   title with titl
0000B0: 65 78 2C 20 61 75 74 68 6F 72 20 77 69 74 68 20  ex, author with 
0000C0: 61 75 74 68 6F 72 78 2C 20 73 75 62 6A 65 63 74  authorx, subject
0000D0: 20 77 69 74 68 20 73 75 62 6A 65 63 74 78 3B 0D   with subjectx;.
0000E0: 0A 20 20 20 20 20 20 20 20 72 6F 6F 6D 20 77 69  .        room wi
0000F0: 74 68 20 72 6F 6F 6D 78 2C 20 73 68 65 6C 66 20  th roomx, shelf 
000100: 77 69 74 68 20 73 68 65 6C 66 78 0D 0A 20 20 20  with shelfx..   
000110: 20 65 6E 64 69 66 0D 0A 20 20 65 6E 64 69 66 0D   endif..  endif.
000120: 0A 65 6E 64 69 66 0D 0A 65 6E 64 64 6F 0D 0A 1A  .endif..enddo...
000130: 1A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
000140: 20 20 20 20 20 20 20 2A 20 20 20 20 56 20 20 74         *    V  t
000150: 6F 20 53 74 6F 70 20 20 49 6E 73 65 72 74 20 20  o Stop  Insert  
000160: 20 20 20 20 20 20 20 20 2A 0D 0A 2A 20 20 44 20          *..*  D 
000170: 20 74 6F 20 6D 6F 76 65 20 52 69 67 68 74 20 20   to move Right  
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000190: 20 20 20 20 20 20 20 2A 20 20 20 20 20 20 20 20         *        
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001B0: 20 20 20 20 20 20 20 20 2A 0D 0A 2A 20 20 20 20          *..*    
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001E0: 20 20 20 20 20 20 20 2A 20 20 20 20 20 20 20 20         *        
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  

Size : 512 (Real : 512)
000000: 34 30 29 20 74 6F 20 74 69 74 6C 65 78 32 0D 0A  40) to titlex2..
000010: 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 61 75          store au
000020: 74 68 6F 72 20 74 6F 20 61 75 74 68 6F 72 78 0D  thor to authorx.
000030: 0A 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 72  .        store r
000040: 6F 6F 6D 20 74 6F 20 72 6F 6F 6D 78 0D 0A 20 20  oom to roomx..  
000050: 20 20 20 20 20 20 73 74 6F 72 65 20 73 68 65 6C        store shel
000060: 66 20 20 74 6F 20 73 68 65 6C 66 78 0D 0A 20 20  f  to shelfx..  
000070: 20 20 20 20 20 20 73 74 6F 72 65 20 73 75 62 6A        store subj
000080: 65 63 74 20 74 6F 20 73 75 62 6A 65 63 74 78 0D  ect to subjectx.
000090: 0A 20 20 20 20 20 20 20 20 65 72 61 73 65 0D 0A  .        erase..
0000A0: 20 20 20 20 20 20 20 20 40 20 20 31 2C 30 20 73          @  1,0 s
0000B0: 61 79 20 22 43 48 41 4E 47 45 20 44 45 54 41 49  ay "CHANGE DETAI
0000C0: 4C 53 20 4F 46 20 41 20 42 4F 4F 4B 22 0D 0A 20  LS OF A BOOK".. 
0000D0: 20 20 20 20 20 20 20 40 20 20 35 2C 30 20 73 61         @  5,0 sa
0000E0: 79 20 22 54 69 74 6C 65 20 20 20 20 20 22 2B 74  y "Title     "+t
0000F0: 69 74 6C 65 78 31 0D 0A 20 20 20 20 20 20 20 20  itlex1..        
000100: 40 20 20 36 2C 30 20 73 61 79 20 22 20 20 20 20  @  6,0 say "    
000110: 20 20 20 20 20 20 22 2B 74 69 74 6C 65 78 32 0D        "+titlex2.
000120: 0A 20 20 20 20 20 20 20 20 40 20 20 37 2C 30 20  .        @  7,0 
000130: 73 61 79 20 22 41 75 74 68 6F 72 20 20 20 20 22  say "Author    "
000140: 2B 61 75 74 68 6F 72 78 0D 0A 20 20 20 20 20 20  +authorx..      
000150: 20 20 40 20 20 38 2C 30 20 73 61 79 20 22 53 75    @  8,0 say "Su
000160: 62 6A 65 63 74 20 20 20 22 2B 73 75 62 6A 65 63  bject   "+subjec
000170: 74 78 0D 0A 20 20 20 20 20 20 20 20 40 20 20 39  tx..        @  9
000180: 2C 30 20 73 61 79 20 22 52 6F 6F 6D 20 20 20 20  ,0 say "Room    
000190: 20 20 22 2B 72 6F 6F 6D 78 0D 0A 20 20 20 20 20    "+roomx..     
0001A0: 20 20 20 40 20 31 30 2C 30 20 73 61 79 20 22 53     @ 10,0 say "S
0001B0: 68 65 6C 66 20 20 20 20 20 22 2B 73 68 65 6C 66  helf     "+shelf
0001C0: 78 0D 0A 20 20 20 20 20 20 20 20 40 20 32 30 2C  x..        @ 20,
0001D0: 30 20 73 61 79 20 22 50 72 65 73 73 20 43 20 74  0 say "Press C t
0001E0: 6F 20 63 68 61 6E 67 65 20 74 68 65 20 61 62 6F  o change the abo
0001F0: 76 65 20 20 20 22 0D 0A 20 20 20 20 20 20 20 20  ve   "..        

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: 40 20 32 31 2C 30 20 73 61 79 20 22 20 20 20 6F  @ 21,0 say "   o
000010: 72 20 2B 20 74 6F 20 6C 6F 6F 6B 20 66 6F 72 20  r + to look for 
000020: 6D 6F 72 65 20 62 6F 6F 6B 73 22 0D 0A 20 20 20  more books"..   
000030: 20 20 20 20 20 40 20 32 32 2C 30 20 73 61 79 20       @ 22,0 say 
000040: 22 20 20 20 6F 72 20 2D 20 74 6F 20 67 6F 20 62  "   or - to go b
000050: 61 63 6B 20 6F 6E 65 20 62 6F 6F 6B 20 20 20 22  ack one book   "
000060: 0D 0A 20 20 20 20 20 20 20 20 40 20 32 33 2C 30  ..        @ 23,0
000070: 20 73 61 79 20 22 20 20 6F 72 20 61 6E 79 20 6F   say "  or any o
000080: 74 68 65 72 20 6B 65 79 20 74 6F 20 73 65 6C 65  ther key to sele
000090: 63 74 20 61 6E 6F 74 68 65 72 20 62 6F 6F 6B 22  ct another book"
0000A0: 0D 0A 20 20 20 20 20 20 20 20 73 74 6F 72 65 20  ..        store 
0000B0: 22 20 22 20 74 6F 20 6E 65 78 74 0D 0A 20 20 20  " " to next..   
0000C0: 20 20 20 20 20 73 65 74 20 63 6F 6E 73 20 6F 66       set cons of
0000D0: 66 0D 0A 20 20 20 20 20 20 20 20 77 61 69 74 20  f..        wait 
0000E0: 74 6F 20 6E 65 78 74 0D 0A 20 20 20 20 20 20 20  to next..       
0000F0: 20 73 65 74 20 63 6F 6E 73 20 6F 6E 0D 0A 20 69   set cons on.. i
000100: 66 20 6E 65 78 74 20 3D 20 22 2B 22 20 2E 6F 72  f next = "+" .or
000110: 2E 20 6E 65 78 74 20 3D 20 22 2D 22 0D 0A 20 20  . next = "-"..  
000120: 20 20 20 20 20 20 20 20 69 66 20 6E 65 78 74 20          if next 
000130: 3D 20 22 2B 22 0D 0A 20 20 20 20 20 20 20 20 20  = "+"..         
000140: 20 20 20 73 6B 69 70 0D 0A 20 20 20 20 20 20 20     skip..       
000150: 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20     else..       
000160: 20 20 20 20 20 73 6B 69 70 20 2D 31 0D 0A 20 20       skip -1..  
000170: 20 20 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20          endif.. 
000180: 20 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20         else..   
000190: 20 20 20 20 20 20 20 73 74 6F 72 65 20 22 4E 22         store "N"
0001A0: 20 74 6F 20 6D 6F 72 65 0D 0A 20 20 20 20 20 20   to more..      
0001B0: 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 65    endif..      e
0001C0: 6E 64 64 6F 0D 0A 20 20 20 20 20 20 69 66 20 6E  nddo..      if n
0001D0: 65 78 74 20 3D 20 22 43 22 20 2E 6F 72 2E 20 6E  ext = "C" .or. n
0001E0: 65 78 74 20 3D 20 22 63 22 0D 0A 20 20 20 20 20  ext = "c"..     
0001F0: 20 20 20 65 72 61 73 65 0D 0A 20 20 20 20 20 20     erase..      

Size : 512 (Real : 512)
000000: 2A 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  * ==============
000010: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000020: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000030: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000040: 3D 3D 3D 3D 3D 3D 3D 0D 0A 2A 20 20 43 41 53 45  =======..*  CASE
000050: 20 4F 50 54 49 4F 4E 20 33 20 20 3A 20 20 44 45   OPTION 3  :  DE
000060: 4C 45 54 45 20 41 20 42 4F 4F 4B 0D 0A 2A 20 3D  LETE A BOOK..* =
000070: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000080: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000090: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
0000A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
0000B0: 3D 3D 3D 3D 0D 0A 2A 0D 0A 75 73 65 20 62 6F 6F  ====..*..use boo
0000C0: 6B 73 20 69 6E 64 65 78 20 74 69 74 6C 65 73 0D  ks index titles.
0000D0: 0A 65 72 61 73 65 0D 0A 73 74 6F 72 65 20 30 20  .erase..store 0 
0000E0: 74 6F 20 64 65 6C 74 0D 0A 64 6F 20 77 68 69 6C  to delt..do whil
0000F0: 65 20 54 0D 0A 20 20 65 72 61 73 65 0D 0A 20 20  e T..  erase..  
000100: 40 20 20 31 2C 30 20 73 61 79 20 22 44 45 4C 45  @  1,0 say "DELE
000110: 54 45 20 41 20 42 4F 4F 4B 22 0D 0A 20 20 73 74  TE A BOOK"..  st
000120: 6F 72 65 20 73 74 72 28 31 2C 38 31 29 20 74 6F  ore str(1,81) to
000130: 20 73 70 61 63 65 73 0D 0A 20 20 73 74 6F 72 65   spaces..  store
000140: 20 24 28 73 70 61 63 65 73 2C 31 2C 34 30 29 20   $(spaces,1,40) 
000150: 74 6F 20 74 69 74 6C 65 78 31 0D 0A 20 20 40 20  to titlex1..  @ 
000160: 20 35 2C 30 20 73 61 79 20 22 54 69 74 6C 65 20   5,0 say "Title 
000170: 20 20 20 20 22 20 67 65 74 20 74 69 74 6C 65 78      " get titlex
000180: 31 3B 0D 0A 20 20 20 70 69 63 74 75 72 65 20 22  1;..   picture "
000190: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21  !!!!!!!!!!!!!!!!
0001A0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21  !!!!!!!!!!!!!!!!
0001B0: 21 21 21 21 21 21 21 21 22 0D 0A 20 20 40 20 20  !!!!!!!!"..  @  
0001C0: 39 2C 30 20 73 61 79 20 22 28 49 66 20 79 6F 75  9,0 say "(If you
0001D0: 20 63 61 6E 27 74 20 72 65 6D 65 6D 62 65 72 20   can't remember 
0001E0: 74 68 65 20 74 69 74 6C 65 2C 20 74 72 79 20 61  the title, try a
0001F0: 20 6C 65 74 74 65 72 20 6F 66 20 74 68 65 20 61   letter of the a

Size : 512 (Real : 512)
000000: 20 20 40 20 20 31 2C 30 20 73 61 79 20 22 43 48    @  1,0 say "CH
000010: 41 4E 47 45 20 44 45 54 41 49 4C 53 20 4F 46 20  ANGE DETAILS OF 
000020: 41 20 42 4F 4F 4B 22 0D 0A 20 20 20 20 20 20 20  A BOOK"..       
000030: 20 40 20 20 35 2C 30 20 73 61 79 20 22 54 69 74   @  5,0 say "Tit
000040: 6C 65 20 20 20 20 20 22 20 67 65 74 20 74 69 74  le     " get tit
000050: 6C 65 78 31 0D 0A 20 20 20 20 20 20 20 20 40 20  lex1..        @ 
000060: 20 36 2C 30 20 73 61 79 20 22 20 20 20 20 20 20   6,0 say "      
000070: 20 20 20 20 22 20 67 65 74 20 74 69 74 6C 65 78      " get titlex
000080: 32 0D 0A 20 20 20 20 20 20 20 20 40 20 20 37 2C  2..        @  7,
000090: 30 20 73 61 79 20 22 41 75 74 68 6F 72 20 20 20  0 say "Author   
0000A0: 20 22 20 67 65 74 20 61 75 74 68 6F 72 78 0D 0A   " get authorx..
0000B0: 20 20 20 20 20 20 20 20 40 20 20 38 2C 30 20 73          @  8,0 s
0000C0: 61 79 20 22 53 75 62 6A 65 63 74 20 20 20 22 20  ay "Subject   " 
0000D0: 67 65 74 20 73 75 62 6A 65 63 74 78 0D 0A 20 20  get subjectx..  
0000E0: 20 20 20 20 20 20 40 20 20 39 2C 30 20 73 61 79        @  9,0 say
0000F0: 20 22 52 6F 6F 6D 20 20 20 20 20 20 22 20 67 65   "Room      " ge
000100: 74 20 72 6F 6F 6D 78 0D 0A 20 20 20 20 20 20 20  t roomx..       
000110: 20 40 20 31 30 2C 30 20 73 61 79 20 22 53 68 65   @ 10,0 say "She
000120: 6C 66 20 20 20 20 20 22 20 67 65 74 20 73 68 65  lf     " get she
000130: 6C 66 78 0D 0A 20 20 74 65 78 74 0D 0A 0D 0A 0D  lfx..  text.....
000140: 0A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  .***************
000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000160: 20 54 59 50 49 4E 47 20 49 4E 53 54 52 55 43 54   TYPING INSTRUCT
000170: 49 4F 4E 53 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  IONS ***********
000180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D  ***************.
000190: 0A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .*              
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 20 20               *  
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 0D                *.
0001E0: 0A 2A 20 54 6F 20 6D 6F 76 65 20 63 75 72 73 6F  .* To move curso
0001F0: 72 2C 20 68 6F 6C 64 20 43 54 52 4C 20 61 6E 64  r, hold CTRL and

Size : 512 (Real : 512)
000000: 6C 70 68 61 62 65 74 29 22 0D 0A 20 20 40 20 31  lphabet)"..  @ 1
000010: 31 2C 30 20 73 61 79 20 22 50 72 65 73 73 20 52  1,0 say "Press R
000020: 65 74 75 72 6E 20 74 6F 20 45 78 69 74 22 0D 0A  eturn to Exit"..
000030: 20 20 72 65 61 64 0D 0A 20 20 69 66 20 74 69 74    read..  if tit
000040: 6C 65 78 31 20 3D 20 22 20 22 0D 0A 20 20 20 20  lex1 = " "..    
000050: 65 72 61 73 65 0D 0A 20 20 20 20 40 20 32 2C 30  erase..    @ 2,0
000060: 20 73 61 79 20 22 50 6C 65 61 73 65 20 77 61 69   say "Please wai
000070: 74 20 66 6F 72 20 61 20 6D 6F 6D 65 6E 74 20 2E  t for a moment .
000080: 2E 2E 2E 2E 22 0D 0A 20 20 20 20 69 66 20 64 65  ...."..    if de
000090: 6C 74 20 3E 20 30 0D 0A 20 20 20 20 20 20 3F 0D  lt > 0..      ?.
0000A0: 0A 20 20 20 20 20 20 3F 20 22 4E 6F 77 20 72 65  .      ? "Now re
0000B0: 70 61 63 6B 69 6E 67 20 74 68 65 20 64 61 74 61  packing the data
0000C0: 62 61 73 65 20 74 6F 20 72 65 6D 6F 76 65 20 64  base to remove d
0000D0: 65 6C 65 74 65 64 20 72 65 63 6F 72 64 73 22 0D  eleted records".
0000E0: 0A 20 20 20 20 20 20 70 61 63 6B 0D 0A 20 20 20  .      pack..   
0000F0: 20 65 6E 64 69 66 0D 0A 20 20 20 20 72 65 74 75   endif..    retu
000100: 72 6E 0D 0A 20 20 65 6C 73 65 0D 0A 20 20 20 20  rn..  else..    
000110: 73 74 6F 72 65 20 74 72 69 6D 28 24 28 74 69 74  store trim($(tit
000120: 6C 65 78 31 2C 31 2C 31 30 29 29 20 74 6F 20 74  lex1,1,10)) to t
000130: 69 74 6C 65 78 0D 0A 20 20 20 20 66 69 6E 64 20  itlex..    find 
000140: 26 74 69 74 6C 65 78 0D 0A 20 20 20 20 69 66 20  &titlex..    if 
000150: 23 3D 30 0D 0A 20 20 20 20 20 20 40 20 31 33 2C  #=0..      @ 13,
000160: 30 20 73 61 79 20 74 69 74 6C 65 78 0D 0A 20 20  0 say titlex..  
000170: 20 20 20 20 40 20 31 34 2C 30 20 73 61 79 20 22      @ 14,0 say "
000180: 4E 6F 74 20 46 6F 75 6E 64 22 0D 0A 20 20 20 20  Not Found"..    
000190: 20 20 40 20 31 37 2C 30 20 73 61 79 20 22 50 72    @ 17,0 say "Pr
0001A0: 65 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 63  ess any key to c
0001B0: 6F 6E 74 69 6E 75 65 22 0D 0A 20 20 20 20 20 20  ontinue"..      
0001C0: 73 65 74 20 63 6F 6E 73 20 6F 66 66 0D 0A 20 20  set cons off..  
0001D0: 20 20 20 20 77 61 69 74 0D 0A 20 20 20 20 20 20      wait..      
0001E0: 73 65 74 20 63 6F 6E 73 20 6F 6E 0D 0A 20 20 20  set cons on..   
0001F0: 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 73 74 6F   else..      sto

Size : 512 (Real : 512)
000000: 20 70 72 65 73 73 20 3A 20 20 20 20 20 2A 20 20   press :     *  
000010: 20 20 48 6F 6C 64 20 43 54 52 4C 20 61 6E 64 20    Hold CTRL and 
000020: 70 72 65 73 73 20 3A 20 20 20 20 20 20 20 2A 0D  press :       *.
000030: 0A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .*              
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 20 20               *  
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 0D                *.
000080: 0A 2A 20 20 45 20 20 74 6F 20 6D 6F 76 65 20 55  .*  E  to move U
000090: 70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  p               
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 20 20               *  
0000B0: 20 20 47 20 20 74 6F 20 44 65 6C 65 74 65 20 20    G  to Delete  
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 0D                *.
0000D0: 0A 2A 20 20 58 20 20 74 6F 20 6D 6F 76 65 20 44  .*  X  to move D
0000E0: 6F 77 6E 20 20 20 20 20 20 20 20 20 20 20 20 20  own             
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 20 20               *  
000100: 20 20 56 20 20 74 6F 20 53 74 61 72 74 20 49 6E    V  to Start In
000110: 73 65 72 74 20 20 20 20 20 20 20 20 20 20 2A 0D  sert          *.
000120: 0A 2A 20 20 53 20 20 74 6F 20 6D 6F 76 65 20 4C  .*  S  to move L
000130: 65 66 74 20 20 20 20 20 20 20 20 20 20 20 20 20  eft             
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 20 20               *  
000150: 20 20 56 20 20 74 6F 20 53 74 6F 70 20 20 49 6E    V  to Stop  In
000160: 73 65 72 74 20 20 20 20 20 20 20 20 20 20 2A 0D  sert          *.
000170: 0A 2A 20 20 44 20 20 74 6F 20 6D 6F 76 65 20 52  .*  D  to move R
000180: 69 67 68 74 20 20 20 20 20 20 20 20 20 20 20 20  ight            
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 20 20               *  
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 0D                *.
0001C0: 0A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .*              
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 20 20               *  
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  

Size : 512 (Real : 512)
000000: 72 65 20 22 4D 22 20 74 6F 20 6D 6F 72 65 0D 0A  re "M" to more..
000010: 20 20 20 20 20 20 64 6F 20 77 68 69 6C 65 20 6D        do while m
000020: 6F 72 65 20 3D 20 22 4D 22 20 0D 0A 20 20 20 20  ore = "M" ..    
000030: 20 20 20 20 65 72 61 73 65 0D 0A 20 20 20 20 20      erase..     
000040: 20 20 20 40 20 20 31 2C 30 20 73 61 79 20 22 44     @  1,0 say "D
000050: 45 4C 45 54 45 20 41 20 42 4F 4F 4B 22 0D 0A 20  ELETE A BOOK".. 
000060: 20 20 20 20 20 20 20 69 66 20 2A 0D 0A 20 20 20         if *..   
000070: 20 20 20 20 20 20 20 20 40 20 33 2C 32 35 20 73          @ 3,25 s
000080: 61 79 20 22 41 6C 72 65 61 64 79 20 4D 61 72 6B  ay "Already Mark
000090: 65 64 20 66 6F 72 20 44 65 6C 65 74 69 6F 6E 22  ed for Deletion"
0000A0: 0D 0A 20 20 20 20 20 20 20 20 65 6E 64 69 66 0D  ..        endif.
0000B0: 0A 20 20 20 20 20 20 20 20 40 20 20 35 2C 30 20  .        @  5,0 
0000C0: 73 61 79 20 22 54 69 74 6C 65 20 20 20 20 20 22  say "Title     "
0000D0: 2B 24 28 74 69 74 6C 65 2C 31 2C 34 30 29 20 20  +$(title,1,40)  
0000E0: 20 0D 0A 20 20 20 20 20 20 20 20 40 20 20 36 2C   ..        @  6,
0000F0: 30 20 73 61 79 20 22 20 20 20 20 20 20 20 20 20  0 say "         
000100: 20 22 2B 24 28 74 69 74 6C 65 2C 34 31 2C 34 30   "+$(title,41,40
000110: 29 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 40  )    ..        @
000120: 20 20 37 2C 30 20 73 61 79 20 22 41 75 74 68 6F    7,0 say "Autho
000130: 72 20 20 20 20 22 2B 61 75 74 68 6F 72 0D 0A 20  r    "+author.. 
000140: 20 20 20 20 20 20 20 40 20 20 38 2C 30 20 73 61         @  8,0 sa
000150: 79 20 22 53 75 62 6A 65 63 74 20 20 20 22 2B 73  y "Subject   "+s
000160: 75 62 6A 65 63 74 0D 0A 20 20 20 20 20 20 20 20  ubject..        
000170: 40 20 20 39 2C 30 20 73 61 79 20 22 52 6F 6F 6D  @  9,0 say "Room
000180: 20 20 20 20 20 20 22 2B 72 6F 6F 6D 0D 0A 20 20        "+room..  
000190: 20 20 20 20 20 20 40 20 31 30 2C 30 20 73 61 79        @ 10,0 say
0001A0: 20 22 53 68 65 6C 66 20 20 20 20 20 22 2B 73 68   "Shelf     "+sh
0001B0: 65 6C 66 0D 0A 20 20 20 20 20 20 20 20 40 20 32  elf..        @ 2
0001C0: 30 2C 30 20 73 61 79 20 22 50 72 65 73 73 20 44  0,0 say "Press D
0001D0: 20 74 6F 20 64 65 6C 65 74 65 20 74 68 65 20 61   to delete the a
0001E0: 62 6F 76 65 20 20 20 22 20 0D 0A 20 20 20 20 20  bove   " ..     
0001F0: 20 20 20 40 20 32 31 2C 30 20 73 61 79 20 22 20     @ 21,0 say " 

Size : 512 (Real : 512)
000000: 22 50 72 65 73 73 20 52 65 74 75 72 6E 20 74 6F  "Press Return to
000010: 20 45 78 69 74 22 0D 0A 20 20 72 65 61 64 0D 0A   Exit"..  read..
000020: 20 20 69 66 20 74 69 74 6C 65 78 31 20 3D 20 22    if titlex1 = "
000030: 20 22 0D 0A 20 20 20 20 65 72 61 73 65 0D 0A 20   "..    erase.. 
000040: 20 20 20 72 65 74 75 72 6E 0D 0A 20 20 65 6C 73     return..  els
000050: 65 0D 0A 20 20 20 20 73 74 6F 72 65 20 74 72 69  e..    store tri
000060: 6D 28 24 28 74 69 74 6C 65 78 31 2C 31 2C 31 30  m($(titlex1,1,10
000070: 29 29 20 74 6F 20 74 69 74 6C 65 78 0D 0A 20 20  )) to titlex..  
000080: 20 20 66 69 6E 64 20 26 74 69 74 6C 65 78 0D 0A    find &titlex..
000090: 20 20 20 20 69 66 20 23 3D 30 0D 0A 20 20 20 20      if #=0..    
0000A0: 20 20 40 20 31 33 2C 30 20 73 61 79 20 74 69 74    @ 13,0 say tit
0000B0: 6C 65 78 0D 0A 20 20 20 20 20 20 40 20 31 34 2C  lex..      @ 14,
0000C0: 30 20 73 61 79 20 22 4E 6F 74 20 46 6F 75 6E 64  0 say "Not Found
0000D0: 22 0D 0A 20 20 20 20 20 20 40 20 31 37 2C 30 20  "..      @ 17,0 
0000E0: 73 61 79 20 22 50 72 65 73 73 20 61 6E 79 20 6B  say "Press any k
0000F0: 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 22 0D  ey to continue".
000100: 0A 20 20 20 20 20 20 73 65 74 20 63 6F 6E 73 20  .      set cons 
000110: 6F 66 66 0D 0A 20 20 20 20 20 20 77 61 69 74 0D  off..      wait.
000120: 0A 20 20 20 20 20 20 73 65 74 20 63 6F 6E 73 20  .      set cons 
000130: 6F 6E 0D 0A 20 20 20 20 65 6C 73 65 0D 0A 20 20  on..    else..  
000140: 20 20 20 20 73 74 6F 72 65 20 22 4D 22 20 74 6F      store "M" to
000150: 20 6D 6F 72 65 0D 0A 20 20 20 20 20 20 64 6F 20   more..      do 
000160: 77 68 69 6C 65 20 6D 6F 72 65 20 3D 20 22 4D 22  while more = "M"
000170: 20 0D 0A 20 20 20 20 20 20 20 20 65 72 61 73 65   ..        erase
000180: 0D 0A 20 20 20 20 20 20 20 20 40 20 20 35 2C 30  ..        @  5,0
000190: 20 73 61 79 20 22 54 69 74 6C 65 20 20 20 20 20   say "Title     
0001A0: 22 2B 24 28 74 69 74 6C 65 2C 31 2C 34 30 29 20  "+$(title,1,40) 
0001B0: 0D 0A 20 20 20 20 20 20 20 20 40 20 20 36 2C 30  ..        @  6,0
0001C0: 20 73 61 79 20 22 20 20 20 20 20 20 20 20 20 20   say "          
0001D0: 22 2B 24 28 74 69 74 6C 65 2C 34 31 2C 34 30 29  "+$(title,41,40)
0001E0: 20 0D 0A 20 20 20 20 20 20 20 20 40 20 20 37 2C   ..        @  7,
0001F0: 30 20 73 61 79 20 22 41 75 74 68 6F 72 20 20 20  0 say "Author   

Size : 512 (Real : 512)
000000: 20 20 6F 72 20 2B 20 74 6F 20 6C 6F 6F 6B 20 66    or + to look f
000010: 6F 72 20 6D 6F 72 65 20 62 6F 6F 6B 73 22 0D 0A  or more books"..
000020: 20 20 20 20 20 20 20 20 40 20 32 32 2C 30 20 73          @ 22,0 s
000030: 61 79 20 22 20 20 20 6F 72 20 2D 20 74 6F 20 67  ay "   or - to g
000040: 6F 20 62 61 63 6B 20 6F 6E 65 20 62 6F 6F 6B 20  o back one book 
000050: 20 20 22 0D 0A 20 20 20 20 20 20 20 20 40 20 32    "..        @ 2
000060: 33 2C 30 20 73 61 79 20 22 20 20 6F 72 20 61 6E  3,0 say "  or an
000070: 79 20 6F 74 68 65 72 20 6B 65 79 20 74 6F 20 73  y other key to s
000080: 65 6C 65 63 74 20 61 6E 6F 74 68 65 72 20 62 6F  elect another bo
000090: 6F 6B 22 0D 0A 20 20 20 20 20 20 20 20 73 74 6F  ok"..        sto
0000A0: 72 65 20 22 20 22 20 74 6F 20 6E 65 78 74 0D 0A  re " " to next..
0000B0: 20 20 20 20 20 20 20 20 73 65 74 20 63 6F 6E 73          set cons
0000C0: 20 6F 66 66 0D 0A 20 20 20 20 20 20 20 20 77 61   off..        wa
0000D0: 69 74 20 74 6F 20 6E 65 78 74 0D 0A 20 20 20 20  it to next..    
0000E0: 20 20 20 20 73 65 74 20 63 6F 6E 73 20 6F 6E 0D      set cons on.
0000F0: 0A 09 69 66 20 6E 65 78 74 20 3D 20 22 2B 22 20  ..if next = "+" 
000100: 2E 6F 72 2E 20 6E 65 78 74 20 3D 20 22 2D 22 0D  .or. next = "-".
000110: 0A 20 20 20 20 20 20 20 20 20 20 69 66 20 6E 65  .          if ne
000120: 78 74 20 3D 20 22 2B 22 0D 0A 20 20 20 20 20 20  xt = "+"..      
000130: 20 20 20 20 20 20 73 6B 69 70 20 0D 0A 20 20 20        skip ..   
000140: 20 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20         else..   
000150: 20 20 20 20 20 20 20 20 20 73 6B 69 70 20 2D 31           skip -1
000160: 0D 0A 20 20 20 20 20 20 20 20 20 20 65 6E 64 69  ..          endi
000170: 66 0D 0A 20 20 20 20 20 20 20 20 65 6C 73 65 0D  f..        else.
000180: 0A 20 20 20 20 20 20 20 20 20 20 73 74 6F 72 65  .          store
000190: 20 22 4E 22 20 74 6F 20 6D 6F 72 65 0D 0A 20 20   "N" to more..  
0001A0: 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20        endif..   
0001B0: 20 20 20 65 6E 64 64 6F 0D 0A 20 20 20 20 20 20     enddo..      
0001C0: 69 66 20 6E 65 78 74 20 3D 20 22 44 22 20 2E 6F  if next = "D" .o
0001D0: 72 2E 20 6E 65 78 74 20 3D 20 22 64 22 0D 0A 20  r. next = "d".. 
0001E0: 20 20 20 20 20 20 20 64 65 6C 65 74 65 0D 0A 20         delete.. 
0001F0: 20 20 20 20 20 20 20 73 74 6F 72 65 20 64 65 6C         store del

Size : 512 (Real : 512)
000000: 20 22 2B 61 75 74 68 6F 72 0D 0A 20 20 20 20 20   "+author..     
000010: 20 20 20 40 20 20 38 2C 30 20 73 61 79 20 22 53     @  8,0 say "S
000020: 75 62 6A 65 63 74 20 20 20 22 2B 73 75 62 6A 65  ubject   "+subje
000030: 63 74 0D 0A 20 20 20 20 20 20 20 20 40 20 20 39  ct..        @  9
000040: 2C 30 20 73 61 79 20 22 52 6F 6F 6D 20 20 20 20  ,0 say "Room    
000050: 20 20 22 2B 72 6F 6F 6D 0D 0A 20 20 20 20 20 20    "+room..      
000060: 20 20 40 20 31 30 2C 30 20 73 61 79 20 22 53 68    @ 10,0 say "Sh
000070: 65 6C 66 20 20 20 20 20 22 2B 73 68 65 6C 66 0D  elf     "+shelf.
000080: 0A 20 20 20 20 20 20 20 20 40 20 32 31 2C 30 20  .        @ 21,0 
000090: 73 61 79 20 22 50 72 65 73 73 20 2B 20 74 6F 20  say "Press + to 
0000A0: 6C 6F 6F 6B 20 66 6F 72 20 6D 6F 72 65 20 62 6F  look for more bo
0000B0: 6F 6B 73 22 0D 0A 20 20 20 20 20 20 20 20 40 20  oks"..        @ 
0000C0: 32 32 2C 30 20 73 61 79 20 22 20 20 20 6F 72 20  22,0 say "   or 
0000D0: 2D 20 74 6F 20 67 6F 20 62 61 63 6B 20 6F 6E 65  - to go back one
0000E0: 20 62 6F 6F 6B 20 20 20 22 0D 0A 20 20 20 20 20   book   "..     
0000F0: 20 20 20 40 20 32 33 2C 30 20 73 61 79 20 22 20     @ 23,0 say " 
000100: 20 6F 72 20 61 6E 79 20 6F 74 68 65 72 20 6B 65   or any other ke
000110: 79 20 74 6F 20 73 65 6C 65 63 74 20 61 6E 6F 74  y to select anot
000120: 68 65 72 20 62 6F 6F 6B 22 0D 0A 20 20 20 20 20  her book"..     
000130: 20 20 20 73 74 6F 72 65 20 22 20 22 20 74 6F 20     store " " to 
000140: 6E 65 78 74 0D 0A 20 20 20 20 20 20 20 20 73 65  next..        se
000150: 74 20 63 6F 6E 73 20 6F 66 66 0D 0A 20 20 20 20  t cons off..    
000160: 20 20 20 20 77 61 69 74 20 74 6F 20 6E 65 78 74      wait to next
000170: 0D 0A 20 20 20 20 20 20 20 20 73 65 74 20 63 6F  ..        set co
000180: 6E 73 20 6F 6E 0D 0A 09 69 66 20 6E 65 78 74 20  ns on...if next 
000190: 3D 20 22 2B 22 20 2E 6F 72 2E 20 6E 65 78 74 20  = "+" .or. next 
0001A0: 3D 20 22 2D 22 0D 0A 20 20 20 20 20 20 20 20 20  = "-"..         
0001B0: 20 69 66 20 6E 65 78 74 20 3D 20 22 2B 22 20 20   if next = "+"  
0001C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 73 6B  ..            sk
0001D0: 69 70 20 0D 0A 20 20 20 20 20 20 20 20 20 20 65  ip ..          e
0001E0: 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20  lse..           
0001F0: 20 73 6B 69 70 20 2D 31 0D 0A 20 20 20 20 20 20   skip -1..      

Size : 512 (Real : 512)
000000: 74 20 2B 20 31 20 74 6F 20 64 65 6C 74 0D 0A 20  t + 1 to delt.. 
000010: 20 20 20 20 20 20 20 3F 0D 0A 20 20 20 20 20 20         ?..      
000020: 20 20 3F 20 22 52 65 63 6F 72 64 20 44 65 6C 65    ? "Record Dele
000030: 74 65 64 22 0D 0A 20 20 20 20 20 20 20 20 73 74  ted"..        st
000040: 6F 72 65 20 30 20 74 6F 20 74 6F 70 0D 0A 20 20  ore 0 to top..  
000050: 20 20 20 20 20 20 64 6F 20 77 68 69 6C 65 20 74        do while t
000060: 6F 70 20 3C 20 33 30 0D 0A 20 20 20 20 20 20 20  op < 30..       
000070: 20 20 20 73 74 6F 72 65 20 74 6F 70 20 2B 20 31     store top + 1
000080: 20 74 6F 20 74 6F 70 0D 0A 20 20 20 20 20 20 20   to top..       
000090: 20 65 6E 64 64 6F 0D 0A 20 20 20 20 20 20 65 6E   enddo..      en
0000A0: 64 69 66 0D 0A 20 20 20 20 65 6E 64 69 66 0D 0A  dif..    endif..
0000B0: 20 20 65 6E 64 69 66 0D 0A 65 6E 64 64 6F 0D 0A    endif..enddo..
0000C0: 1A 1A 73 65 20 74 6F 20 72 65 6D 6F 76 65 20 64  ..se to remove d
0000D0: 65 6C 65 74 65 64 20 72 65 63 6F 72 64 73 22 0D  eleted records".
0000E0: 0A 20 20 20 20 20 20 70 61 63 6B 0D 0A 20 20 20  .      pack..   
0000F0: 20 65 6E 64 69 66 0D 0A 20 20 20 20 72 65 74 75   endif..    retu
000100: 72 6E 0D 0A 20 20 65 6C 73 65 0D 0A 20 20 20 20  rn..  else..    
000110: 73 74 6F 72 65 20 24 28 74 69 74 6C 65 78 31 2C  store $(titlex1,
000120: 31 2C 31 30 29 20 74 6F 20 74 69 74 6C 65 78 0D  1,10) to titlex.
000130: 0A 20 20 20 20 66 69 6E 64 20 26 74 69 74 6C 65  .    find &title
000140: 78 0D 0A 20 20 20 20 69 66 20 23 3D 30 0D 0A 20  x..    if #=0.. 
000150: 20 20 20 20 20 40 20 31 33 2C 30 20 73 61 79 20       @ 13,0 say 
000160: 74 69 74 6C 65 78 0D 0A 20 20 20 20 20 20 40 20  titlex..      @ 
000170: 31 34 2C 30 20 73 61 79 20 22 4E 6F 74 20 46 6F  14,0 say "Not Fo
000180: 75 6E 64 22 0D 0A 20 20 20 20 20 20 40 20 31 37  und"..      @ 17
000190: 2C 30 20 73 61 79 20 22 50 72 65 73 73 20 61 6E  ,0 say "Press an
0001A0: 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75  y key to continu
0001B0: 65 22 0D 0A 20 20 20 20 20 20 73 65 74 20 63 6F  e"..      set co
0001C0: 6E 73 20 6F 66 66 0D 0A 20 20 20 20 20 20 77 61  ns off..      wa
0001D0: 69 74 0D 0A 20 20 20 20 20 20 73 65 74 20 63 6F  it..      set co
0001E0: 6E 73 20 6F 6E 0D 0A 20 20 20 20 65 6C 73 65 0D  ns on..    else.
0001F0: 0A 20 20 20 20 20 20 73 74 6F 72 65 20 22 4D 22  .      store "M"

Size : 512 (Real : 512)
000000: 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 20      endif..     
000010: 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20     else..       
000020: 20 20 20 73 74 6F 72 65 20 22 4E 22 20 74 6F 20     store "N" to 
000030: 6D 6F 72 65 0D 0A 20 20 20 20 20 20 20 20 65 6E  more..        en
000040: 64 69 66 0D 0A 20 20 20 20 20 20 65 6E 64 64 6F  dif..      enddo
000050: 0D 0A 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 65  ..    endif..  e
000060: 6E 64 69 66 0D 0A 65 6E 64 64 6F 0D 0A 1A 1A 3D  ndif..enddo....=
000070: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000080: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000090: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
0000A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
0000B0: 3D 3D 3D 3D 0D 0A 2A 0D 0A 75 73 65 20 62 6F 6F  ====..*..use boo
0000C0: 6B 73 20 69 6E 64 65 78 20 74 69 74 6C 65 73 0D  ks index titles.
0000D0: 0A 65 72 61 73 65 0D 0A 73 74 6F 72 65 20 30 20  .erase..store 0 
0000E0: 74 6F 20 64 65 6C 74 0D 0A 64 6F 20 77 68 69 6C  to delt..do whil
0000F0: 65 20 54 0D 0A 20 20 65 72 61 73 65 0D 0A 20 20  e T..  erase..  
000100: 40 20 20 31 2C 30 20 73 61 79 20 22 44 45 4C 45  @  1,0 say "DELE
000110: 54 45 20 41 20 42 4F 4F 4B 22 0D 0A 20 20 73 74  TE A BOOK"..  st
000120: 6F 72 65 20 73 74 72 28 31 2C 38 31 29 20 74 6F  ore str(1,81) to
000130: 20 73 70 61 63 65 73 0D 0A 20 20 73 74 6F 72 65   spaces..  store
000140: 20 24 28 73 70 61 63 65 73 2C 31 2C 34 30 29 20   $(spaces,1,40) 
000150: 74 6F 20 74 69 74 6C 65 78 31 0D 0A 20 20 40 20  to titlex1..  @ 
000160: 20 35 2C 30 20 73 61 79 20 22 54 69 74 6C 65 20   5,0 say "Title 
000170: 20 20 20 20 22 20 67 65 74 20 74 69 74 6C 65 78      " get titlex
000180: 31 3B 0D 0A 20 20 20 70 69 63 74 75 72 65 20 22  1;..   picture "
000190: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21  !!!!!!!!!!!!!!!!
0001A0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21  !!!!!!!!!!!!!!!!
0001B0: 21 21 21 21 21 21 21 21 22 0D 0A 20 20 40 20 20  !!!!!!!!"..  @  
0001C0: 39 2C 30 20 73 61 79 20 22 28 49 66 20 79 6F 75  9,0 say "(If you
0001D0: 20 63 61 6E 27 74 20 72 65 6D 65 6D 62 65 72 20   can't remember 
0001E0: 74 68 65 20 74 69 74 6C 65 2C 20 74 72 79 20 61  the title, try a
0001F0: 20 6C 65 74 74 65 72 20 6F 66 20 74 68 65 20 61   letter of the a

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: 2A 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  * ==============
000010: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000020: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000030: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000040: 3D 3D 3D 3D 3D 3D 3D 0D 0A 2A 20 20 43 41 53 45  =======..*  CASE
000050: 20 4F 50 54 49 4F 4E 20 35 20 20 3A 20 20 41 55   OPTION 5  :  AU
000060: 54 48 4F 52 20 45 4E 51 55 49 52 59 0D 0A 2A 20  THOR ENQUIRY..* 
000070: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000080: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000090: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
0000A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
0000B0: 3D 3D 3D 3D 3D 0D 0A 2A 0D 0A 75 73 65 20 62 6F  =====..*..use bo
0000C0: 6F 6B 73 0D 0A 64 6F 20 77 68 69 6C 65 20 54 0D  oks..do while T.
0000D0: 0A 20 20 65 72 61 73 65 0D 0A 20 20 40 20 20 31  .  erase..  @  1
0000E0: 2C 30 20 73 61 79 20 22 41 55 54 48 4F 52 20 45  ,0 say "AUTHOR E
0000F0: 4E 51 55 49 52 59 22 0D 0A 20 20 73 74 6F 72 65  NQUIRY"..  store
000100: 20 73 74 72 28 31 2C 38 31 29 20 74 6F 20 73 70   str(1,81) to sp
000110: 61 63 65 73 0D 0A 20 20 73 74 6F 72 65 20 24 28  aces..  store $(
000120: 73 70 61 63 65 73 2C 31 2C 33 30 29 20 74 6F 20  spaces,1,30) to 
000130: 61 75 74 68 6F 72 78 0D 0A 20 20 40 20 20 35 2C  authorx..  @  5,
000140: 30 20 73 61 79 20 22 41 75 74 68 6F 72 20 20 20  0 say "Author   
000150: 20 20 20 20 20 20 20 20 20 20 22 20 67 65 74 20            " get 
000160: 61 75 74 68 6F 72 78 3B 0D 0A 20 20 20 70 69 63  authorx;..   pic
000170: 74 75 72 65 20 22 21 21 21 21 21 21 21 21 21 21  ture "!!!!!!!!!!
000180: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21  !!!!!!!!!!!!!!!!
000190: 21 21 21 21 22 0D 0A 20 20 40 20 20 39 2C 30 20  !!!!"..  @  9,0 
0001A0: 73 61 79 20 22 28 49 66 20 79 6F 75 20 63 61 6E  say "(If you can
0001B0: 27 74 20 72 65 6D 65 6D 62 65 72 20 74 68 65 20  't remember the 
0001C0: 61 75 74 68 6F 72 2C 20 74 72 79 20 65 6E 74 65  author, try ente
0001D0: 72 69 6E 67 20 41 4C 4C 29 22 0D 0A 20 20 40 20  ring ALL)"..  @ 
0001E0: 31 31 2C 30 20 73 61 79 20 22 50 72 65 73 73 20  11,0 say "Press 
0001F0: 52 65 74 75 72 6E 20 74 6F 20 45 78 69 74 22 0D  Return to Exit".

Size : 512 (Real : 512)
000000: 2A 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  * ==============
000010: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000020: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000030: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000040: 3D 3D 3D 3D 3D 3D 3D 0D 0A 2A 20 20 43 41 53 45  =======..*  CASE
000050: 20 4F 50 54 49 4F 4E 20 34 20 20 3A 20 20 54 49   OPTION 4  :  TI
000060: 54 4C 45 20 45 4E 51 55 49 52 59 0D 0A 2A 20 3D  TLE ENQUIRY..* =
000070: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000080: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000090: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
0000A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
0000B0: 3D 3D 3D 3D 0D 0A 2A 0D 0A 75 73 65 20 62 6F 6F  ====..*..use boo
0000C0: 6B 73 20 69 6E 64 65 78 20 74 69 74 6C 65 73 0D  ks index titles.
0000D0: 0A 64 6F 20 77 68 69 6C 65 20 54 0D 0A 20 20 65  .do while T..  e
0000E0: 72 61 73 65 0D 0A 20 20 40 20 20 31 2C 30 20 73  rase..  @  1,0 s
0000F0: 61 79 20 22 54 49 54 4C 45 20 45 4E 51 55 49 52  ay "TITLE ENQUIR
000100: 59 22 0D 0A 20 20 73 74 6F 72 65 20 73 74 72 28  Y"..  store str(
000110: 31 2C 38 31 29 20 74 6F 20 73 70 61 63 65 73 0D  1,81) to spaces.
000120: 0A 20 20 73 74 6F 72 65 20 24 28 73 70 61 63 65  .  store $(space
000130: 73 2C 31 2C 34 30 29 20 74 6F 20 74 69 74 6C 65  s,1,40) to title
000140: 78 31 0D 0A 20 20 40 20 20 35 2C 30 20 73 61 79  x1..  @  5,0 say
000150: 20 22 54 69 74 6C 65 20 20 20 20 20 22 20 67 65   "Title     " ge
000160: 74 20 74 69 74 6C 65 78 31 3B 0D 0A 20 20 20 70  t titlex1;..   p
000170: 69 63 74 75 72 65 20 22 21 21 21 21 21 21 21 21  icture "!!!!!!!!
000180: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21  !!!!!!!!!!!!!!!!
000190: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21  !!!!!!!!!!!!!!!!
0001A0: 22 0D 0A 20 20 40 20 20 39 2C 30 20 73 61 79 20  "..  @  9,0 say 
0001B0: 22 28 49 66 20 79 6F 75 20 63 61 6E 27 74 20 72  "(If you can't r
0001C0: 65 6D 65 6D 62 65 72 20 74 68 65 20 74 69 74 6C  emember the titl
0001D0: 65 2C 20 74 72 79 20 61 20 6C 65 74 74 65 72 20  e, try a letter 
0001E0: 6F 66 20 74 68 65 20 61 6C 70 68 61 62 65 74 29  of the alphabet)
0001F0: 22 0D 0A 20 20 40 20 31 31 2C 30 20 73 61 79 20  "..  @ 11,0 say 

Size : 512 (Real : 512)
000000: 0A 20 20 72 65 61 64 0D 0A 20 20 69 66 20 61 75  .  read..  if au
000010: 74 68 6F 72 78 20 3D 20 22 20 22 0D 0A 20 20 20  thorx = " "..   
000020: 20 65 72 61 73 65 0D 0A 20 20 20 20 72 65 74 75   erase..    retu
000030: 72 6E 0D 0A 20 20 65 6C 73 65 0D 0A 20 20 20 20  rn..  else..    
000040: 73 74 6F 72 65 20 74 72 69 6D 28 61 75 74 68 6F  store trim(autho
000050: 72 78 29 20 74 6F 20 61 75 74 68 6F 72 78 31 0D  rx) to authorx1.
000060: 0A 20 20 20 20 65 72 61 73 65 0D 0A 20 20 20 20  .    erase..    
000070: 73 74 6F 72 65 20 6C 65 6E 28 61 75 74 68 6F 72  store len(author
000080: 78 31 29 20 74 6F 20 63 68 61 72 73 0D 0A 20 20  x1) to chars..  
000090: 20 20 69 66 20 61 75 74 68 6F 72 78 31 20 3D 20    if authorx1 = 
0000A0: 22 41 4C 4C 22 0D 0A 20 20 20 20 20 20 6C 69 73  "ALL"..      lis
0000B0: 74 20 24 28 74 69 74 6C 65 2C 31 2C 33 33 29 2C  t $(title,1,33),
0000C0: 24 28 61 75 74 68 6F 72 2C 31 2C 31 35 29 2C 24  $(author,1,15),$
0000D0: 28 73 75 62 6A 65 63 74 2C 31 2C 31 30 29 2C 24  (subject,1,10),$
0000E0: 28 72 6F 6F 6D 2C 31 2C 31 33 29 2C 73 68 65 6C  (room,1,13),shel
0000F0: 66 20 6F 66 66 0D 0A 20 20 20 20 65 6C 73 65 20  f off..    else 
000100: 0D 0A 20 20 20 20 20 20 64 69 73 70 20 24 28 74  ..      disp $(t
000110: 69 74 6C 65 2C 31 2C 33 33 29 2C 24 28 61 75 74  itle,1,33),$(aut
000120: 68 6F 72 2C 31 2C 31 35 29 2C 24 28 73 75 62 6A  hor,1,15),$(subj
000130: 65 63 74 2C 31 2C 31 30 29 2C 24 28 72 6F 6F 6D  ect,1,10),$(room
000140: 2C 31 2C 31 33 29 2C 73 68 65 6C 66 3B 0D 0A 20  ,1,13),shelf;.. 
000150: 20 20 20 20 20 66 6F 72 20 61 75 74 68 6F 72 78       for authorx
000160: 31 20 3D 20 21 28 24 28 61 75 74 68 6F 72 2C 31  1 = !($(author,1
000170: 2C 63 68 61 72 73 29 29 20 6F 66 66 0D 0A 20 20  ,chars)) off..  
000180: 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 3F 20 22    endif..    ? "
000190: 50 72 65 73 73 20 61 6E 79 20 6B 65 79 20 74 6F  Press any key to
0001A0: 20 63 6F 6E 74 69 6E 75 65 22 0D 0A 20 20 20 20   continue"..    
0001B0: 73 65 74 20 63 6F 6E 73 20 6F 66 66 0D 0A 20 20  set cons off..  
0001C0: 20 20 77 61 69 74 0D 0A 20 20 20 20 73 65 74 20    wait..    set 
0001D0: 63 6F 6E 73 20 6F 6E 0D 0A 20 20 65 6E 64 69 66  cons on..  endif
0001E0: 0D 0A 65 6E 64 64 6F 0D 0A 1A 1A 1A 1A 1A 1A 1A  ..enddo.........
0001F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................

Size : 512 (Real : 512)
000000: 6F 72 2C 31 2C 31 35 29 2C 24 28 73 75 62 6A 65  or,1,15),$(subje
000010: 63 74 2C 31 2C 31 30 29 2C 24 28 72 6F 6F 6D 2C  ct,1,10),$(room,
000020: 31 2C 31 33 29 2C 73 68 65 6C 66 3B 0D 0A 20 20  1,13),shelf;..  
000030: 20 20 20 20 66 6F 72 20 70 6C 61 63 65 78 20 3D      for placex =
000040: 20 21 28 24 28 72 6F 6F 6D 2C 31 2C 63 68 61 72   !($(room,1,char
000050: 73 29 29 20 6F 66 66 0D 0A 20 20 20 20 65 6C 73  s)) off..    els
000060: 65 0D 0A 20 20 20 20 20 20 69 66 20 72 6F 6F 6D  e..      if room
000070: 78 20 3D 20 22 20 22 0D 0A 20 20 20 20 20 20 20  x = " "..       
000080: 20 64 69 73 70 20 24 28 74 69 74 6C 65 2C 31 2C   disp $(title,1,
000090: 33 33 29 2C 24 28 61 75 74 68 6F 72 2C 31 2C 31  33),$(author,1,1
0000A0: 35 29 2C 24 28 73 75 62 6A 65 63 74 2C 31 2C 31  5),$(subject,1,1
0000B0: 30 29 2C 24 28 72 6F 6F 6D 2C 31 2C 31 33 29 2C  0),$(room,1,13),
0000C0: 73 68 65 6C 66 3B 0D 0A 20 20 20 20 20 20 20 20  shelf;..        
0000D0: 66 6F 72 20 70 6C 61 63 65 78 20 3D 20 21 28 24  for placex = !($
0000E0: 28 73 68 65 6C 66 2C 31 2C 63 68 61 72 73 29 29  (shelf,1,chars))
0000F0: 20 6F 66 66 0D 0A 20 20 20 20 20 20 65 6C 73 65   off..      else
000100: 0D 0A 20 20 20 20 20 20 20 20 64 69 73 70 20 24  ..        disp $
000110: 28 74 69 74 6C 65 2C 31 2C 33 33 29 2C 24 28 61  (title,1,33),$(a
000120: 75 74 68 6F 72 2C 31 2C 31 35 29 2C 24 28 73 75  uthor,1,15),$(su
000130: 62 6A 65 63 74 2C 31 2C 31 30 29 2C 24 28 72 6F  bject,1,10),$(ro
000140: 6F 6D 2C 31 2C 31 33 29 2C 73 68 65 6C 66 3B 0D  om,1,13),shelf;.
000150: 0A 20 20 20 20 20 20 20 20 66 6F 72 20 72 6F 6F  .        for roo
000160: 6D 78 20 3D 20 21 28 72 6F 6F 6D 29 20 2E 61 6E  mx = !(room) .an
000170: 64 2E 20 73 68 65 6C 66 78 20 3D 20 21 28 73 68  d. shelfx = !(sh
000180: 65 6C 66 29 20 6F 66 66 0D 0A 20 20 20 20 20 20  elf) off..      
000190: 65 6E 64 69 66 0D 0A 20 20 20 20 65 6E 64 69 66  endif..    endif
0001A0: 0D 0A 20 20 20 20 3F 20 22 50 72 65 73 73 20 61  ..    ? "Press a
0001B0: 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E  ny key to contin
0001C0: 75 65 22 0D 0A 20 20 20 20 73 65 74 20 63 6F 6E  ue"..    set con
0001D0: 73 20 6F 66 66 0D 0A 20 20 20 20 77 61 69 74 0D  s off..    wait.
0001E0: 0A 20 20 20 20 73 65 74 20 63 6F 6E 73 20 6F 6E  .    set cons on
0001F0: 0D 0A 20 20 65 6E 64 69 66 0D 0A 65 6E 64 64 6F  ..  endif..enddo

Size : 512 (Real : 512)
000000: 2A 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  * ==============
000010: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000020: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000030: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000040: 3D 3D 3D 3D 3D 3D 3D 0D 0A 2A 20 20 43 41 53 45  =======..*  CASE
000050: 20 4F 50 54 49 4F 4E 20 36 20 20 3A 20 20 53 55   OPTION 6  :  SU
000060: 42 4A 45 43 54 20 45 4E 51 55 49 52 59 0D 0A 2A  BJECT ENQUIRY..*
000070: 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D   ===============
000080: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000090: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
0000A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
0000B0: 3D 3D 3D 3D 3D 3D 0D 0A 2A 0D 0A 75 73 65 20 62  ======..*..use b
0000C0: 6F 6F 6B 73 20 0D 0A 64 6F 20 77 68 69 6C 65 20  ooks ..do while 
0000D0: 54 0D 0A 20 20 65 72 61 73 65 0D 0A 20 20 40 20  T..  erase..  @ 
0000E0: 20 31 2C 30 20 73 61 79 20 22 53 55 42 4A 45 43   1,0 say "SUBJEC
0000F0: 54 20 45 4E 51 55 49 52 59 22 0D 0A 20 20 73 74  T ENQUIRY"..  st
000100: 6F 72 65 20 73 74 72 28 31 2C 38 31 29 20 74 6F  ore str(1,81) to
000110: 20 73 70 61 63 65 73 0D 0A 20 20 73 74 6F 72 65   spaces..  store
000120: 20 24 28 73 70 61 63 65 73 2C 31 2C 32 30 29 20   $(spaces,1,20) 
000130: 74 6F 20 73 75 62 6A 65 63 74 78 0D 0A 20 20 40  to subjectx..  @
000140: 20 20 35 2C 30 20 73 61 79 20 22 53 75 62 6A 65    5,0 say "Subje
000150: 63 74 20 20 20 20 20 20 20 20 20 20 20 20 22 20  ct            " 
000160: 67 65 74 20 73 75 62 6A 65 63 74 78 3B 0D 0A 20  get subjectx;.. 
000170: 20 20 70 69 63 74 75 72 65 20 22 21 21 21 21 21    picture "!!!!!
000180: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 22  !!!!!!!!!!!!!!!"
000190: 0D 0A 20 20 40 20 20 39 2C 30 20 73 61 79 20 22  ..  @  9,0 say "
0001A0: 28 49 66 20 79 6F 75 20 63 61 6E 27 74 20 72 65  (If you can't re
0001B0: 6D 65 6D 62 65 72 20 74 68 65 20 73 75 62 6A 65  member the subje
0001C0: 63 74 2C 20 74 72 79 20 65 6E 74 65 72 69 6E 67  ct, try entering
0001D0: 20 41 4C 4C 29 22 0D 0A 20 20 40 20 31 31 2C 30   ALL)"..  @ 11,0
0001E0: 20 73 61 79 20 22 50 72 65 73 73 20 52 65 74 75   say "Press Retu
0001F0: 72 6E 20 74 6F 20 45 78 69 74 22 0D 0A 20 20 72  rn to Exit"..  r

Size : 512 (Real : 512)
000000: 0D 0A 1A 1A 2C 31 35 29 2C 24 28 73 75 62 6A 65  ....,15),$(subje
000010: 63 74 2C 31 2C 31 30 29 2C 24 28 72 6F 6F 6D 2C  ct,1,10),$(room,
000020: 31 2C 31 33 29 2C 73 68 65 6C 66 3B 0D 0A 20 20  1,13),shelf;..  
000030: 20 20 20 20 66 6F 72 20 70 6C 61 63 65 78 20 3D      for placex =
000040: 20 21 28 24 28 72 6F 6F 6D 2C 31 2C 63 68 61 72   !($(room,1,char
000050: 73 29 29 20 6F 66 66 0D 0A 20 20 20 20 65 6C 73  s)) off..    els
000060: 65 0D 0A 20 20 20 20 20 20 69 66 20 72 6F 6F 6D  e..      if room
000070: 78 20 3D 20 22 20 22 0D 0A 20 20 20 20 20 20 20  x = " "..       
000080: 20 64 69 73 70 20 24 28 74 69 74 6C 65 2C 31 2C   disp $(title,1,
000090: 33 33 29 2C 24 28 61 75 74 68 6F 72 2C 31 2C 31  33),$(author,1,1
0000A0: 35 29 2C 24 28 73 75 62 6A 65 63 74 2C 31 2C 31  5),$(subject,1,1
0000B0: 30 29 2C 24 28 72 6F 6F 6D 2C 31 2C 31 33 29 2C  0),$(room,1,13),
0000C0: 73 68 65 6C 66 3B 0D 0A 20 20 20 20 20 20 20 20  shelf;..        
0000D0: 66 6F 72 20 70 6C 61 63 65 78 20 3D 20 21 28 24  for placex = !($
0000E0: 28 73 68 65 6C 66 2C 31 2C 63 68 61 72 73 29 29  (shelf,1,chars))
0000F0: 0D 0A 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20  ..      else..  
000100: 20 20 20 20 20 20 64 69 73 70 20 24 28 74 69 74        disp $(tit
000110: 6C 65 2C 31 2C 33 33 29 2C 24 28 61 75 74 68 6F  le,1,33),$(autho
000120: 72 2C 31 2C 31 35 29 2C 24 28 73 75 62 6A 65 63  r,1,15),$(subjec
000130: 74 2C 31 2C 31 30 29 2C 24 28 72 6F 6F 6D 2C 31  t,1,10),$(room,1
000140: 2C 31 33 29 2C 73 68 65 6C 66 3B 0D 0A 20 20 20  ,13),shelf;..   
000150: 20 20 20 20 20 66 6F 72 20 72 6F 6F 6D 78 20 3D       for roomx =
000160: 20 21 28 72 6F 6F 6D 29 20 2E 61 6E 64 2E 20 73   !(room) .and. s
000170: 68 65 6C 66 78 20 3D 20 21 28 73 68 65 6C 66 29  helfx = !(shelf)
000180: 20 6F 66 66 0D 0A 20 20 20 20 20 20 65 6E 64 69   off..      endi
000190: 66 0D 0A 20 20 20 20 65 6E 64 69 66 0D 0A 20 20  f..    endif..  
0001A0: 20 20 3F 20 22 50 72 65 73 73 20 61 6E 79 20 6B    ? "Press any k
0001B0: 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 22 0D  ey to continue".
0001C0: 0A 20 20 20 20 73 65 74 20 63 6F 6E 73 20 6F 66  .    set cons of
0001D0: 66 0D 0A 20 20 20 20 77 61 69 74 0D 0A 20 20 20  f..    wait..   
0001E0: 20 73 65 74 20 63 6F 6E 73 20 6F 6E 0D 0A 20 20   set cons on..  
0001F0: 65 6E 64 69 66 0D 0A 65 6E 64 64 6F 0D 0A 1A 1A  endif..enddo....

Size : 512 (Real : 512)
000000: 65 61 64 0D 0A 20 20 69 66 20 73 75 62 6A 65 63  ead..  if subjec
000010: 74 78 20 3D 20 22 20 22 0D 0A 20 20 20 20 65 72  tx = " "..    er
000020: 61 73 65 0D 0A 20 20 20 20 72 65 74 75 72 6E 0D  ase..    return.
000030: 0A 20 20 65 6C 73 65 0D 0A 20 20 20 20 73 74 6F  .  else..    sto
000040: 72 65 20 74 72 69 6D 28 73 75 62 6A 65 63 74 78  re trim(subjectx
000050: 29 20 74 6F 20 73 75 62 6A 65 63 74 78 0D 0A 20  ) to subjectx.. 
000060: 20 20 20 65 72 61 73 65 0D 0A 20 20 20 20 73 74     erase..    st
000070: 6F 72 65 20 6C 65 6E 28 73 75 62 6A 65 63 74 78  ore len(subjectx
000080: 29 20 74 6F 20 63 68 61 72 73 0D 0A 20 20 20 20  ) to chars..    
000090: 69 66 20 73 75 62 6A 65 63 74 78 20 3D 20 22 41  if subjectx = "A
0000A0: 4C 4C 22 0D 0A 20 20 20 20 20 20 6C 69 73 74 20  LL"..      list 
0000B0: 24 28 74 69 74 6C 65 2C 31 2C 33 33 29 2C 24 28  $(title,1,33),$(
0000C0: 61 75 74 68 6F 72 2C 31 2C 31 35 29 2C 24 28 73  author,1,15),$(s
0000D0: 75 62 6A 65 63 74 2C 31 2C 31 30 29 2C 24 28 72  ubject,1,10),$(r
0000E0: 6F 6F 6D 2C 31 2C 31 33 29 2C 73 68 65 6C 66 20  oom,1,13),shelf 
0000F0: 6F 66 66 0D 0A 20 20 20 20 65 6C 73 65 20 0D 0A  off..    else ..
000100: 20 20 20 20 20 20 64 69 73 70 20 24 28 74 69 74        disp $(tit
000110: 6C 65 2C 31 2C 33 33 29 2C 24 28 61 75 74 68 6F  le,1,33),$(autho
000120: 72 2C 31 2C 31 35 29 2C 24 28 73 75 62 6A 65 63  r,1,15),$(subjec
000130: 74 2C 31 2C 31 30 29 2C 24 28 72 6F 6F 6D 2C 31  t,1,10),$(room,1
000140: 2C 31 33 29 2C 73 68 65 6C 66 3B 0D 0A 20 20 20  ,13),shelf;..   
000150: 20 20 20 66 6F 72 20 73 75 62 6A 65 63 74 78 20     for subjectx 
000160: 3D 20 21 28 24 28 73 75 62 6A 65 63 74 2C 31 2C  = !($(subject,1,
000170: 63 68 61 72 73 29 29 20 6F 66 66 0D 0A 20 20 20  chars)) off..   
000180: 20 65 6E 64 69 66 0D 0A 20 20 20 20 3F 20 22 50   endif..    ? "P
000190: 72 65 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20  ress any key to 
0001A0: 63 6F 6E 74 69 6E 75 65 22 0D 0A 20 20 20 20 73  continue"..    s
0001B0: 65 74 20 63 6F 6E 73 20 6F 66 66 0D 0A 20 20 20  et cons off..   
0001C0: 20 77 61 69 74 0D 0A 20 20 20 20 73 65 74 20 63   wait..    set c
0001D0: 6F 6E 73 20 6F 6E 0D 0A 20 20 65 6E 64 69 66 0D  ons on..  endif.
0001E0: 0A 65 6E 64 64 6F 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A  .enddo..........
0001F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................

Size : 512 (Real : 512)
000000: 65 72 61 73 65 0D 0A 3F 20 22 50 6C 65 61 73 65  erase..? "Please
000010: 20 73 77 69 74 63 68 20 74 68 65 20 50 72 69 6E   switch the Prin
000020: 74 65 72 20 6F 6E 22 0D 0A 3F 0D 0A 3F 20 22 50  ter on"..?..? "P
000030: 72 65 73 73 20 61 6E 79 20 6B 65 79 20 77 68 65  ress any key whe
000040: 6E 20 79 6F 75 20 68 61 76 65 20 64 6F 6E 65 20  n you have done 
000050: 73 6F 22 0D 0A 3F 20 0D 0A 77 61 69 74 0D 0A 64  so"..? ..wait..d
000060: 6F 20 77 68 69 6C 65 20 54 0D 0A 20 20 65 72 61  o while T..  era
000070: 73 65 0D 0A 20 20 73 74 6F 72 65 20 22 20 22 20  se..  store " " 
000080: 74 6F 20 6F 70 74 69 6F 6E 0D 0A 20 20 40 20 20  to option..  @  
000090: 31 2C 33 30 20 73 61 79 20 22 53 45 4C 45 43 54  1,30 say "SELECT
0000A0: 20 54 59 50 45 20 4F 46 20 50 52 49 4E 54 22 0D   TYPE OF PRINT".
0000B0: 0A 20 20 40 20 20 39 2C 30 20 73 61 79 20 20 22  .  @  9,0 say  "
0000C0: 31 2E 20 54 69 74 6C 65 20 53 65 71 75 65 6E 63  1. Title Sequenc
0000D0: 65 22 0D 0A 20 20 40 20 31 30 2C 30 20 73 61 79  e"..  @ 10,0 say
0000E0: 20 20 22 32 2E 20 41 75 74 68 6F 72 20 53 65 71    "2. Author Seq
0000F0: 75 65 6E 63 65 22 0D 0A 20 20 40 20 31 31 2C 30  uence"..  @ 11,0
000100: 20 73 61 79 20 20 22 33 2E 20 53 75 62 6A 65 63   say  "3. Subjec
000110: 74 20 53 65 71 75 65 6E 63 65 22 0D 0A 20 20 40  t Sequence"..  @
000120: 20 31 32 2C 30 20 73 61 79 20 20 22 34 2E 20 52   12,0 say  "4. R
000130: 6F 6F 6D 2F 53 68 65 6C 66 20 53 65 71 75 65 6E  oom/Shelf Sequen
000140: 63 65 22 0D 0A 20 20 40 20 31 36 2C 30 20 73 61  ce"..  @ 16,0 sa
000150: 79 20 20 22 58 2E 20 45 78 69 74 22 0D 0A 20 20  y  "X. Exit"..  
000160: 40 20 31 38 2C 30 20 73 61 79 20 20 22 50 6C 65  @ 18,0 say  "Ple
000170: 61 73 65 20 65 6E 74 65 72 20 79 6F 75 72 20 63  ase enter your c
000180: 68 6F 69 63 65 22 20 67 65 74 20 6F 70 74 69 6F  hoice" get optio
000190: 6E 20 70 69 63 74 75 72 65 20 22 21 22 0D 0A 20  n picture "!".. 
0001A0: 20 72 65 61 64 0D 0A 20 20 40 20 32 33 2C 30 20   read..  @ 23,0 
0001B0: 73 61 79 20 22 50 6C 65 61 73 65 20 77 61 69 74  say "Please wait
0001C0: 20 66 6F 72 20 61 20 6D 6F 6D 65 6E 74 20 2E 2E   for a moment ..
0001D0: 2E 2E 2E 22 0D 0A 20 20 64 6F 20 63 61 73 65 0D  ..."..  do case.
0001E0: 0A 20 20 20 20 63 61 73 65 20 6F 70 74 69 6F 6E  .    case option
0001F0: 20 3D 20 22 58 22 0D 0A 20 20 20 20 20 20 65 72   = "X"..      er

Size : 512 (Real : 512)
000000: 2A 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  * ==============
000010: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000020: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000030: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000040: 3D 3D 3D 3D 3D 3D 3D 0D 0A 2A 20 20 43 41 53 45  =======..*  CASE
000050: 20 4F 50 54 49 4F 4E 20 37 20 20 3A 20 20 53 48   OPTION 7  :  SH
000060: 45 4C 46 20 45 4E 51 55 49 52 59 0D 0A 2A 20 3D  ELF ENQUIRY..* =
000070: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000080: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
000090: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
0000A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D  ================
0000B0: 3D 3D 3D 3D 0D 0A 2A 0D 0A 75 73 65 20 62 6F 6F  ====..*..use boo
0000C0: 6B 73 0D 0A 64 6F 20 77 68 69 6C 65 20 54 0D 0A  ks..do while T..
0000D0: 20 20 65 72 61 73 65 0D 0A 20 20 40 20 20 31 2C    erase..  @  1,
0000E0: 30 20 73 61 79 20 22 53 48 45 4C 46 20 45 4E 51  0 say "SHELF ENQ
0000F0: 55 49 52 59 22 0D 0A 20 20 73 74 6F 72 65 20 73  UIRY"..  store s
000100: 74 72 28 31 2C 38 31 29 20 74 6F 20 73 70 61 63  tr(1,81) to spac
000110: 65 73 0D 0A 20 20 73 74 6F 72 65 20 24 28 73 70  es..  store $(sp
000120: 61 63 65 73 2C 31 2C 31 35 29 20 74 6F 20 72 6F  aces,1,15) to ro
000130: 6F 6D 78 0D 0A 20 20 73 74 6F 72 65 20 24 28 73  omx..  store $(s
000140: 70 61 63 65 73 2C 31 2C 33 29 20 74 6F 20 73 68  paces,1,3) to sh
000150: 65 6C 66 78 0D 0A 20 20 40 20 20 35 2C 30 20 73  elfx..  @  5,0 s
000160: 61 79 20 22 52 6F 6F 6D 20 20 20 20 20 20 22 20  ay "Room      " 
000170: 67 65 74 20 72 6F 6F 6D 78 20 70 69 63 74 75 72  get roomx pictur
000180: 65 20 22 21 21 21 21 21 21 21 21 21 21 21 21 21  e "!!!!!!!!!!!!!
000190: 21 21 22 0D 0A 20 20 40 20 20 36 2C 30 20 73 61  !!"..  @  6,0 sa
0001A0: 79 20 22 53 68 65 6C 66 20 20 20 20 20 22 20 67  y "Shelf     " g
0001B0: 65 74 20 73 68 65 6C 66 78 20 70 69 63 74 75 72  et shelfx pictur
0001C0: 65 20 22 21 21 21 22 0D 0A 20 20 40 20 20 39 2C  e "!!!"..  @  9,
0001D0: 30 20 73 61 79 20 22 28 49 66 20 79 6F 75 20 63  0 say "(If you c
0001E0: 61 6E 27 74 20 72 65 6D 65 6D 62 65 72 20 74 68  an't remember th
0001F0: 65 20 72 6F 6F 6D 2C 20 74 72 79 20 65 6E 74 65  e room, try ente

Size : 512 (Real : 512)
000000: 61 73 65 0D 0A 20 20 20 20 20 20 72 65 74 75 72  ase..      retur
000010: 6E 0D 0A 20 20 20 20 63 61 73 65 20 6F 70 74 69  n..    case opti
000020: 6F 6E 20 3D 20 22 31 22 0D 0A 20 20 20 20 20 20  on = "1"..      
000030: 75 73 65 20 62 6F 6F 6B 73 20 69 6E 64 65 78 20  use books index 
000040: 74 69 74 6C 65 73 0D 0A 20 20 20 20 20 20 72 65  titles..      re
000050: 70 6F 72 74 20 66 6F 72 6D 20 62 6F 6F 6B 73 20  port form books 
000060: 74 6F 20 70 72 69 6E 74 0D 0A 20 20 20 20 63 61  to print..    ca
000070: 73 65 20 6F 70 74 69 6F 6E 20 3D 20 22 32 22 0D  se option = "2".
000080: 0A 20 20 20 20 20 20 75 73 65 20 62 6F 6F 6B 73  .      use books
000090: 20 0D 0A 20 20 20 20 20 20 3F 20 22 49 6E 64 65   ..      ? "Inde
0000A0: 78 69 6E 67 20 6F 6E 20 41 75 74 68 6F 72 22 0D  xing on Author".
0000B0: 0A 20 20 20 20 20 20 69 6E 64 65 78 20 6F 6E 20  .      index on 
0000C0: 21 28 24 28 61 75 74 68 6F 72 2C 31 2C 31 32 29  !($(author,1,12)
0000D0: 29 2B 21 28 24 28 74 69 74 6C 65 2C 31 2C 31 32  )+!($(title,1,12
0000E0: 29 29 20 74 6F 20 61 75 74 68 6F 72 73 0D 0A 20  )) to authors.. 
0000F0: 20 20 20 20 20 72 65 70 6F 72 74 20 66 6F 72 6D       report form
000100: 20 62 6F 6F 6B 73 20 74 6F 20 70 72 69 6E 74 0D   books to print.
000110: 0A 20 20 20 20 63 61 73 65 20 6F 70 74 69 6F 6E  .    case option
000120: 20 3D 20 22 33 22 0D 0A 20 20 20 20 20 20 75 73   = "3"..      us
000130: 65 20 62 6F 6F 6B 73 20 0D 0A 20 20 20 20 20 20  e books ..      
000140: 3F 20 22 49 6E 64 65 78 69 6E 67 20 6F 6E 20 53  ? "Indexing on S
000150: 75 62 6A 65 63 74 22 0D 0A 20 20 20 20 20 20 69  ubject"..      i
000160: 6E 64 65 78 20 6F 6E 20 21 28 24 28 73 75 62 6A  ndex on !($(subj
000170: 65 63 74 2C 31 2C 31 30 29 29 2B 21 28 24 28 61  ect,1,10))+!($(a
000180: 75 74 68 6F 72 2C 31 2C 31 30 29 29 20 74 6F 20  uthor,1,10)) to 
000190: 73 75 62 6A 65 63 74 0D 0A 20 20 20 20 20 20 72  subject..      r
0001A0: 65 70 6F 72 74 20 66 6F 72 6D 20 62 6F 6F 6B 73  eport form books
0001B0: 20 74 6F 20 70 72 69 6E 74 0D 0A 20 20 20 20 63   to print..    c
0001C0: 61 73 65 20 6F 70 74 69 6F 6E 20 3D 20 22 34 22  ase option = "4"
0001D0: 0D 0A 20 20 20 20 20 20 75 73 65 20 62 6F 6F 6B  ..      use book
0001E0: 73 20 0D 0A 20 20 20 20 20 20 3F 20 22 49 6E 64  s ..      ? "Ind
0001F0: 65 78 69 6E 67 20 6F 6E 20 52 6F 6F 6D 20 61 6E  exing on Room an

Size : 512 (Real : 512)
000000: 72 69 6E 67 20 41 4C 4C 29 22 0D 0A 20 20 40 20  ring ALL)"..  @ 
000010: 31 31 2C 30 20 73 61 79 20 22 50 72 65 73 73 20  11,0 say "Press 
000020: 52 65 74 75 72 6E 20 74 77 69 63 65 20 74 6F 20  Return twice to 
000030: 45 78 69 74 22 0D 0A 20 20 72 65 61 64 0D 0A 20  Exit"..  read.. 
000040: 20 69 66 20 72 6F 6F 6D 78 20 3D 20 22 20 22 20   if roomx = " " 
000050: 2E 61 6E 64 2E 20 73 68 65 6C 66 78 20 3D 20 22  .and. shelfx = "
000060: 20 22 0D 0A 20 20 20 20 65 72 61 73 65 0D 0A 20   "..    erase.. 
000070: 20 20 20 72 65 74 75 72 6E 0D 0A 20 20 65 6E 64     return..  end
000080: 69 66 0D 0A 20 20 69 66 20 73 68 65 6C 66 78 20  if..  if shelfx 
000090: 3D 20 22 20 22 0D 0A 20 20 20 20 73 74 6F 72 65  = " "..    store
0000A0: 20 74 72 69 6D 28 72 6F 6F 6D 78 29 20 74 6F 20   trim(roomx) to 
0000B0: 70 6C 61 63 65 78 0D 0A 20 20 65 6C 73 65 0D 0A  placex..  else..
0000C0: 20 20 20 20 69 66 20 72 6F 6F 6D 78 20 3D 20 22      if roomx = "
0000D0: 20 22 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20   "..      store 
0000E0: 74 72 69 6D 28 73 68 65 6C 66 78 29 20 74 6F 20  trim(shelfx) to 
0000F0: 70 6C 61 63 65 78 0D 0A 20 20 20 20 65 6C 73 65  placex..    else
000100: 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 72 6F  ..      store ro
000110: 6F 6D 78 2B 73 68 65 6C 66 78 20 74 6F 20 70 6C  omx+shelfx to pl
000120: 61 63 65 78 0D 0A 20 20 20 20 65 6E 64 69 66 0D  acex..    endif.
000130: 0A 20 20 65 6E 64 69 66 0D 0A 20 20 65 72 61 73  .  endif..  eras
000140: 65 0D 0A 20 20 73 74 6F 72 65 20 6C 65 6E 28 70  e..  store len(p
000150: 6C 61 63 65 78 29 20 74 6F 20 63 68 61 72 73 0D  lacex) to chars.
000160: 0A 20 20 69 66 20 70 6C 61 63 65 78 20 3D 20 22  .  if placex = "
000170: 41 4C 4C 22 0D 0A 20 20 20 20 6C 69 73 74 20 24  ALL"..    list $
000180: 28 74 69 74 6C 65 2C 31 2C 33 33 29 2C 24 28 61  (title,1,33),$(a
000190: 75 74 68 6F 72 2C 31 2C 31 35 29 2C 24 28 73 75  uthor,1,15),$(su
0001A0: 62 6A 65 63 74 2C 31 2C 31 30 29 2C 24 28 72 6F  bject,1,10),$(ro
0001B0: 6F 6D 2C 31 2C 31 33 29 2C 73 68 65 6C 66 20 6F  om,1,13),shelf o
0001C0: 66 66 0D 0A 20 20 65 6C 73 65 0D 0A 20 20 20 20  ff..  else..    
0001D0: 69 66 20 73 68 65 6C 66 78 20 3D 20 22 20 22 0D  if shelfx = " ".
0001E0: 0A 20 20 20 20 20 20 64 69 73 70 20 24 28 74 69  .      disp $(ti
0001F0: 74 6C 65 2C 31 2C 33 33 29 2C 24 28 61 75 74 68  tle,1,33),$(auth

Size : 512 (Real : 512)
000000: 64 20 53 68 65 6C 66 22 0D 0A 20 20 20 20 20 20  d Shelf"..      
000010: 69 6E 64 65 78 20 6F 6E 20 21 28 24 28 72 6F 6F  index on !($(roo
000020: 6D 2C 31 2C 34 29 2B 73 68 65 6C 66 2B 24 28 61  m,1,4)+shelf+$(a
000030: 75 74 68 6F 72 2C 31 2C 35 29 29 20 74 6F 20 72  uthor,1,5)) to r
000040: 6F 6F 6D 73 0D 0A 20 20 20 20 20 20 72 65 70 6F  ooms..      repo
000050: 72 74 20 66 6F 72 6D 20 62 6F 6F 6B 73 20 74 6F  rt form books to
000060: 20 70 72 69 6E 74 0D 0A 20 20 65 6E 64 63 61 73   print..  endcas
000070: 65 0D 0A 65 6E 64 64 6F 0D 0A 0D 0A 1A 1A 1A 1A  e..enddo........
000080: 65 63 74 20 74 6F 20 73 75 62 6A 65 63 74 78 0D  ect to subjectx.
000090: 0A 20 20 20 20 20 20 20 20 65 72 61 73 65 0D 0A  .        erase..
0000A0: 20 20 20 20 20 20 20 20 40 20 20 31 2C 30 20 73          @  1,0 s
0000B0: 61 79 20 22 43 48 41 4E 47 45 20 44 45 54 41 49  ay "CHANGE DETAI
0000C0: 4C 53 20 4F 46 20 41 20 42 4F 4F 4B 22 0D 0A 20  LS OF A BOOK".. 
0000D0: 20 20 20 20 20 20 20 40 20 20 35 2C 30 20 73 61         @  5,0 sa
0000E0: 79 20 22 54 69 74 6C 65 20 20 20 20 20 22 2B 74  y "Title     "+t
0000F0: 69 74 6C 65 78 31 0D 0A 20 20 20 20 20 20 20 20  itlex1..        
000100: 40 20 20 36 2C 30 20 73 61 79 20 22 20 20 20 20  @  6,0 say "    
000110: 20 20 20 20 20 20 22 2B 74 69 74 6C 65 78 32 0D        "+titlex2.
000120: 0A 20 20 20 20 20 20 20 20 40 20 20 37 2C 30 20  .        @  7,0 
000130: 73 61 79 20 22 41 75 74 68 6F 72 20 20 20 20 22  say "Author    "
000140: 2B 61 75 74 68 6F 72 78 0D 0A 20 20 20 20 20 20  +authorx..      
000150: 20 20 40 20 20 38 2C 30 20 73 61 79 20 22 53 75    @  8,0 say "Su
000160: 62 6A 65 63 74 20 20 20 22 2B 73 75 62 6A 65 63  bject   "+subjec
000170: 74 78 0D 0A 20 20 20 20 20 20 20 20 40 20 20 39  tx..        @  9
000180: 2C 30 20 73 61 79 20 22 52 6F 6F 6D 20 20 20 20  ,0 say "Room    
000190: 20 20 22 2B 72 6F 6F 6D 78 0D 0A 20 20 20 20 20    "+roomx..     
0001A0: 20 20 20 40 20 31 30 2C 30 20 73 61 79 20 22 53     @ 10,0 say "S
0001B0: 68 65 6C 66 20 20 20 20 20 22 2B 73 68 65 6C 66  helf     "+shelf
0001C0: 78 0D 0A 20 20 20 20 20 20 20 20 40 20 32 30 2C  x..        @ 20,
0001D0: 30 20 73 61 79 20 22 50 72 65 73 73 20 43 20 74  0 say "Press C t
0001E0: 6F 20 63 68 61 6E 67 65 20 74 68 65 20 61 62 6F  o change the abo
0001F0: 76 65 20 20 20 22 0D 0A 20 20 20 20 20 20 20 20  ve   "..        

Size : 512 (Real : 512)
000000: 61 73 65 20 70 72 65 73 73 20 61 6E 79 20 6B 65  ase press any ke
000010: 79 20 74 6F 20 65 78 69 74 20 70 72 6F 67 72 61  y to exit progra
000020: 6D 2E 20 27 0D 0A 20 20 40 20 32 31 2C 31 20 47  m. '..  @ 21,1 G
000030: 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 52 45 41  ET M.TEMP..  REA
000040: 44 0D 0A 20 20 43 4C 45 41 52 20 47 45 54 53 0D  D..  CLEAR GETS.
000050: 0A 20 20 40 20 32 30 2C 30 0D 0A 20 20 40 20 32  .  @ 20,0..  @ 2
000060: 31 2C 30 0D 0A 20 20 40 20 31 31 2C 32 37 20 53  1,0..  @ 11,27 S
000070: 41 59 20 27 52 45 54 55 52 4E 49 4E 47 20 54 4F  AY 'RETURNING TO
000080: 20 4D 41 49 4E 20 4D 45 4E 55 27 0D 0A 20 20 40   MAIN MENU'..  @
000090: 20 32 30 2C 31 0D 0A 20 20 53 54 4F 52 45 20 31   20,1..  STORE 1
0000A0: 20 54 4F 20 43 0D 0A 20 20 44 4F 20 57 48 49 4C   TO C..  DO WHIL
0000B0: 45 20 43 20 3C 20 32 35 0D 0A 20 20 20 20 53 54  E C < 25..    ST
0000C0: 4F 52 45 20 43 2B 31 20 54 4F 20 43 0D 0A 20 20  ORE C+1 TO C..  
0000D0: 45 4E 44 44 4F 0D 0A 52 45 54 55 52 4E 0D 0A 45  ENDDO..RETURN..E
0000E0: 4E 44 49 46 0D 0A 40 20 31 31 2C 32 30 20 53 41  NDIF..@ 11,20 SA
0000F0: 59 20 27 50 6C 65 61 73 65 20 57 61 69 74 20 2E  Y 'Please Wait .
000100: 2E 2E 20 6E 6F 77 20 6C 6F 61 64 69 6E 67 20 74  .. now loading t
000110: 68 65 20 6E 65 78 74 20 57 65 6C 63 6F 6D 65 20  he next Welcome 
000120: 66 69 6C 65 27 0D 0A 40 20 32 30 2C 31 0D 0A 55  file'..@ 20,1..U
000130: 53 45 20 46 52 4F 4E 41 2E 44 46 4C 0D 0A 43 4F  SE FRONA.DFL..CO
000140: 50 59 20 54 4F 20 54 45 4D 50 2E 44 42 46 20 53  PY TO TEMP.DBF S
000150: 54 52 55 0D 0A 55 53 45 20 54 45 4D 50 0D 0A 40  TRU..USE TEMP..@
000160: 20 31 31 2C 30 0D 0A 40 20 34 2C 30 0D 0A 54 45   11,0..@ 4,0..TE
000170: 58 54 0D 0A 20 20 20 20 20 59 6F 75 20 77 6F 75  XT..     You wou
000180: 6C 64 20 63 72 65 61 74 65 20 61 20 66 69 6C 65  ld create a file
000190: 20 69 6E 20 64 42 41 53 45 20 49 49 20 62 79 20   in dBASE II by 
0001A0: 74 79 70 69 6E 67 0D 0A 0D 0A 20 20 20 20 20 20  typing....      
0001B0: 2E 20 43 52 45 41 54 45 20 3C 66 69 6C 65 6E 61  . CREATE <filena
0001C0: 6D 65 3E 0D 0A 0D 0A 20 20 20 20 20 54 6F 20 68  me>....     To h
0001D0: 65 6C 70 20 79 6F 75 20 61 6C 6F 6E 67 20 49 20  elp you along I 
0001E0: 68 61 76 65 20 61 6C 72 65 61 64 79 20 65 6E 74  have already ent
0001F0: 65 72 65 64 20 74 68 65 20 43 52 45 41 54 45 20  ered the CREATE 

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: 2D 0D 0A 20 20 20 20 20 73 68 6F 77 6E 20 62 65  -..     shown be
000010: 6C 6F 77 20 74 68 65 20 6C 69 6E 65 2E 0D 0A 0D  low the line....
000020: 0A 20 20 20 20 20 4E 6F 77 20 63 68 6F 73 65 20  .     Now chose 
000030: 61 20 6E 61 6D 65 20 66 6F 72 20 79 6F 75 72 20  a name for your 
000040: 66 69 6C 65 2E 20 41 20 64 42 41 53 45 20 49 49  file. A dBASE II
000050: 20 66 69 6C 65 6E 61 6D 65 20 73 68 6F 75 6C 64   filename should
000060: 20 0D 0A 20 20 20 20 20 62 65 20 6E 6F 20 6D 6F   ..     be no mo
000070: 72 65 20 74 68 61 6E 20 38 20 63 68 61 72 61 63  re than 8 charac
000080: 74 65 72 73 20 6C 6F 6E 67 2E 54 68 65 20 66 69  ters long.The fi
000090: 72 73 74 20 63 68 61 72 61 63 74 65 72 20 73 68  rst character sh
0000A0: 6F 75 6C 64 20 0D 0A 20 20 20 20 20 62 65 20 61  ould ..     be a
0000B0: 6E 20 41 6C 70 68 61 20 28 20 41 2D 5A 20 29 2C  n Alpha ( A-Z ),
0000C0: 77 69 74 68 20 6E 6F 20 73 70 61 63 65 73 20 69  with no spaces i
0000D0: 6E 20 74 68 65 20 66 69 6C 65 6E 61 6D 65 2E 20  n the filename. 
0000E0: 0D 0A 20 20 20 20 20 54 68 65 20 65 78 74 65 6E  ..     The exten
0000F0: 73 69 6F 6E 20 6F 66 20 74 68 65 20 66 69 6C 65  sion of the file
000100: 6E 61 6D 65 20 77 69 6C 6C 20 61 75 74 6F 6D 61  name will automa
000110: 74 69 63 61 6C 79 20 62 65 20 28 2E 44 42 46 20  ticaly be (.DBF 
000120: 29 2E 20 0D 0A 20 20 20 20 20 20 0D 0A 45 4E 44  ). ..      ..END
000130: 54 45 58 54 0D 0A 40 20 32 33 2C 30 20 53 41 59  TEXT..@ 23,0 SAY
000140: 20 22 2E 20 43 52 45 41 54 45 22 0D 0A 53 54 4F   ". CREATE"..STO
000150: 52 45 20 27 20 20 20 20 20 20 20 20 27 20 54 4F  RE '        ' TO
000160: 20 43 46 49 4C 45 0D 0A 53 54 4F 52 45 20 46 20   CFILE..STORE F 
000170: 54 4F 20 56 41 4C 49 44 0D 0A 44 4F 20 57 48 49  TO VALID..DO WHI
000180: 4C 45 20 2E 4E 4F 54 2E 20 4D 2E 56 41 4C 49 44  LE .NOT. M.VALID
000190: 0D 0A 20 20 40 20 32 33 2C 39 20 53 41 59 20 4D  ..  @ 23,9 SAY M
0001A0: 2E 42 4C 41 4E 4B 0D 0A 20 20 40 20 31 37 2C 35  .BLANK..  @ 17,5
0001B0: 20 53 41 59 20 27 50 6C 65 61 73 65 20 65 6E 74   SAY 'Please ent
0001C0: 65 72 20 66 69 6C 65 20 6E 61 6D 65 2E 20 27 20  er file name. ' 
0001D0: 47 45 54 20 4D 2E 43 46 49 4C 45 20 50 49 43 54  GET M.CFILE PICT
0001E0: 20 27 21 21 21 21 21 21 21 21 27 0D 0A 20 20 52   '!!!!!!!!'..  R
0001F0: 45 41 44 0D 0A 20 20 43 4C 45 41 52 20 47 45 54  EAD..  CLEAR GET

Size : 512 (Real : 512)
000000: 02 00 00 01 01 50 12 00 46 49 45 4C 44 3A 4E 41  .....P..FIELD:NA
000010: 4D 45 00 43 0A E9 B1 00 46 49 45 4C 44 3A 54 59  ME.C....FIELD:TY
000020: 50 45 00 43 01 F3 B1 00 46 49 45 4C 44 3A 4C 45  PE.C....FIELD:LE
000030: 4E 00 00 4E 03 F4 B1 00 46 49 45 4C 44 3A 44 45  N..N....FIELD:DE
000040: 43 00 00 4E 03 F7 B1 00 0D 00 00 00 00 00 00 00  C..N............
000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................

Size : 512 (Real : 512)
000000: 53 0D 0A 20 20 49 46 20 4D 2E 43 46 49 4C 45 20  S..  IF M.CFILE 
000010: 3D 20 27 20 20 20 20 20 20 20 20 27 0D 0A 20 20  = '        '..  
000020: 20 20 45 52 41 53 45 0D 0A 54 45 58 54 0D 0A 0D    ERASE..TEXT...
000030: 0A 57 45 4C 43 4F 4D 45 20 20 20 20 20 20 20 20  .WELCOME        
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 52 45               CRE
000050: 41 54 45 20 41 20 44 41 54 41 42 41 53 45 20 46  ATE A DATABASE F
000060: 49 4C 45 20 20 20 20 20 20 20 20 20 20 20 20 20  ILE             
000070: 20 20 20 20 20 20 20 64 42 41 53 45 20 49 49 0D         dBASE II.
000080: 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  .---------------
000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000D0: 0D 0A 45 4E 44 54 45 58 54 0D 0A 40 20 32 32 2C  ..ENDTEXT..@ 22,
0000E0: 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D  1 SAY '---------
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000120: 2D 2D 2D 2D 2D 27 20 3B 0D 0A 20 20 20 20 20 20  -----' ;..      
000130: 20 20 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D     + '----------
000140: 2D 2D 2D 2D 2D 27 0D 0A 20 20 20 20 40 20 31 31  -----'..    @ 11
000150: 2C 32 37 20 53 41 59 20 27 52 45 54 55 52 4E 49  ,27 SAY 'RETURNI
000160: 4E 47 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 27  NG TO MAIN MENU'
000170: 0D 0A 20 20 20 20 40 20 32 30 2C 31 0D 0A 20 20  ..    @ 20,1..  
000180: 20 20 53 54 4F 52 45 20 31 20 54 4F 20 43 0D 0A    STORE 1 TO C..
000190: 20 20 20 20 44 4F 20 57 48 49 4C 45 20 43 20 3C      DO WHILE C <
0001A0: 20 32 35 0D 0A 20 20 20 20 20 20 53 54 4F 52 45   25..      STORE
0001B0: 20 43 2B 31 20 54 4F 20 43 0D 0A 20 20 20 20 45   C+1 TO C..    E
0001C0: 4E 44 44 4F 0D 0A 20 20 20 20 53 45 4C 45 20 53  NDDO..    SELE S
0001D0: 45 43 4F 0D 0A 20 20 20 20 55 53 45 0D 0A 20 20  ECO..    USE..  
0001E0: 20 20 53 45 4C 45 20 50 52 49 4D 0D 0A 20 20 20    SELE PRIM..   
0001F0: 20 55 53 45 20 26 4D 46 49 4C 45 20 0D 0A 20 20   USE &MFILE ..  

Size : 512 (Real : 512)
000000: 00 00 00 00 00 00 00 00 00 1A 0A 20 20 52 45 41  ...........  REA
000010: 44 0D 0A 20 20 43 4C 45 41 20 47 45 54 53 0D 0A  D..  CLEA GETS..
000020: 45 4E 44 44 4F 0D 0A 45 52 41 53 0D 0A 40 20 31  ENDDO..ERAS..@ 1
000030: 30 2C 32 34 20 53 41 59 20 27 52 45 54 55 52 4E  0,24 SAY 'RETURN
000040: 49 4E 47 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55  ING TO MAIN MENU
000050: 27 0D 0A 53 54 4F 52 45 20 30 20 54 4F 20 50 41  '..STORE 0 TO PA
000060: 55 53 45 0D 0A 44 4F 20 57 48 49 4C 45 20 50 41  USE..DO WHILE PA
000070: 55 53 45 20 3C 20 35 30 0D 0A 20 20 53 54 4F 52  USE < 50..  STOR
000080: 45 20 50 41 55 53 45 2B 31 20 54 4F 20 50 41 55  E PAUSE+1 TO PAU
000090: 53 45 0D 0A 45 4E 44 44 4F 0D 0A 52 45 4C 45 20  SE..ENDDO..RELE 
0000A0: 41 4C 4C 20 45 58 43 45 50 54 20 4D 46 49 4C 45  ALL EXCEPT MFILE
0000B0: 0D 0A 52 45 54 55 52 4E 0D 0A 1A 1A 1A 1A 1A 1A  ..RETURN........
0000C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0000D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0000E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0000F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000100: 20 20 20 20 20 59 6F 75 20 77 6F 75 6C 64 20 64       You would d
000110: 65 6C 65 74 65 20 61 20 66 69 6C 65 20 69 6E 20  elete a file in 
000120: 64 42 61 73 65 20 49 49 20 62 79 20 74 79 70 69  dBase II by typi
000130: 6E 67 2E 2E 2E 2E 20 0D 0A 0D 0A 2E 20 44 45 4C  ng.... ..... DEL
000140: 45 54 45 20 46 49 4C 45 20 3C 66 69 6C 65 6E 61  ETE FILE <filena
000150: 6D 65 3E 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20  me>....         
000160: 20 20 20 20 64 42 61 73 65 20 49 49 20 77 69 6C      dBase II wil
000170: 6C 20 72 65 74 75 72 6E 20 77 69 74 68 2E 2E 2E  l return with...
000180: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E  ................
000190: 2E 2E 2E 2E 2E 0D 0A 0D 0A 2E 20 46 49 4C 45 20  .......... FILE 
0001A0: 48 41 53 20 42 45 45 4E 20 44 45 4C 45 54 45 44  HAS BEEN DELETED
0001B0: 20 0D 0A 45 4E 44 54 45 58 54 0D 0A 40 20 31 39   ..ENDTEXT..@ 19
0001C0: 2C 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D 2D 2D  ,1 SAY '--------
0001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------

Size : 512 (Real : 512)
000000: 20 20 44 45 4C 45 54 45 20 46 49 4C 45 20 54 45    DELETE FILE TE
000010: 4D 50 2E 44 42 46 0D 0A 20 20 20 20 52 45 4C 45  MP.DBF..    RELE
000020: 41 53 45 20 41 4C 4C 20 45 58 43 45 50 54 20 4D  ASE ALL EXCEPT M
000030: 46 49 4C 45 0D 0A 20 20 20 20 52 45 54 55 52 4E  FILE..    RETURN
000040: 0D 0A 20 20 45 4E 44 49 46 20 5B 20 42 6C 61 6E  ..  ENDIF [ Blan
000050: 6B 20 66 69 6C 65 20 6E 61 6D 65 20 5D 0D 0A 20  k file name ].. 
000060: 20 53 54 4F 52 45 20 54 52 49 4D 28 4D 2E 43 46   STORE TRIM(M.CF
000070: 49 4C 45 29 20 54 4F 20 4D 54 45 53 54 20 0D 0A  ILE) TO MTEST ..
000080: 20 20 53 54 4F 52 45 20 27 20 27 20 54 4F 20 45    STORE ' ' TO E
000090: 52 52 31 2C 45 52 52 32 0D 0A 20 20 53 54 4F 52  RR1,ERR2..  STOR
0000A0: 45 20 54 20 54 4F 20 4D 53 47 0D 0A 20 20 49 46  E T TO MSG..  IF
0000B0: 20 2E 4E 4F 54 2E 20 24 28 4D 2E 4D 54 45 53 54   .NOT. $(M.MTEST
0000C0: 2C 31 2C 31 29 24 27 41 42 43 44 45 46 47 48 49  ,1,1)$'ABCDEFGHI
0000D0: 4A 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 57 58 59  JKLMNOPQRSTUVWXY
0000E0: 5A 27 0D 0A 20 20 20 20 53 54 4F 52 45 20 46 20  Z'..    STORE F 
0000F0: 54 4F 20 4D 53 47 0D 0A 20 20 20 20 53 54 4F 52  TO MSG..    STOR
000100: 45 20 45 52 52 31 2B 27 5E 27 20 54 4F 20 45 52  E ERR1+'^' TO ER
000110: 52 31 0D 0A 20 20 20 20 53 54 4F 52 45 20 45 52  R1..    STORE ER
000120: 52 32 2B 27 21 27 20 54 4F 20 45 52 52 32 20 0D  R2+'!' TO ERR2 .
000130: 0A 20 20 20 45 4C 53 45 0D 0A 20 20 20 20 53 54  .   ELSE..    ST
000140: 4F 52 45 20 45 52 52 31 2B 27 20 27 20 54 4F 20  ORE ERR1+' ' TO 
000150: 45 52 52 31 0D 0A 20 20 20 20 53 54 4F 52 45 20  ERR1..    STORE 
000160: 45 52 52 32 2B 27 20 27 20 54 4F 20 45 52 52 32  ERR2+' ' TO ERR2
000170: 0D 0A 20 20 45 4E 44 49 46 0D 0A 20 20 53 54 4F  ..  ENDIF..  STO
000180: 52 45 20 32 20 54 4F 20 43 0D 0A 20 20 44 4F 20  RE 2 TO C..  DO 
000190: 57 48 49 4C 45 20 43 20 3C 3D 20 4C 45 4E 28 4D  WHILE C <= LEN(M
0001A0: 2E 4D 54 45 53 54 29 0D 0A 20 20 20 20 49 46 20  .MTEST)..    IF 
0001B0: 2E 4E 4F 54 2E 20 24 28 4D 2E 4D 54 45 53 54 2C  .NOT. $(M.MTEST,
0001C0: 43 2C 31 29 24 27 41 42 43 44 45 46 47 48 49 4A  C,1)$'ABCDEFGHIJ
0001D0: 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 57 58 59 5A  KLMNOPQRSTUVWXYZ
0001E0: 30 31 32 33 34 35 36 37 38 39 27 0D 0A 20 20 20  0123456789'..   
0001F0: 20 20 20 53 54 4F 52 45 20 45 52 52 31 2B 27 5E     STORE ERR1+'^

Size : 512 (Real : 512)
000000: 53 45 54 20 54 41 4C 4B 20 4F 46 46 0D 0A 53 54  SET TALK OFF..ST
000010: 4F 52 45 20 27 20 20 20 20 20 20 20 20 20 20 20  ORE '           
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 27 20 54               ' T
000050: 4F 20 42 4C 41 4E 4B 0D 0A 45 52 41 53 45 0D 0A  O BLANK..ERASE..
000060: 54 45 58 54 0D 0A 0D 0A 57 45 4C 43 4F 4D 45 20  TEXT....WELCOME 
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000080: 20 20 20 20 43 52 45 41 54 45 20 41 20 44 41 54      CREATE A DAT
000090: 41 42 41 53 45 20 46 49 4C 45 20 20 20 20 20 20  ABASE FILE      
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 42                dB
0000B0: 41 53 45 20 49 49 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D  ASE II..--------
0000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000100: 2D 2D 2D 2D 2D 2D 2D 0D 0A 45 4E 44 54 45 58 54  -------..ENDTEXT
000110: 0D 0A 40 20 32 32 2C 31 20 53 41 59 20 27 2D 2D  ..@ 22,1 SAY '--
000120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20 3B 0D  ------------' ;.
000160: 0A 20 20 20 20 20 20 20 20 20 2B 20 27 2D 2D 2D  .         + '---
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 49  ------------'..I
000180: 46 20 2E 4E 4F 54 2E 20 46 49 4C 45 20 28 20 27  F .NOT. FILE ( '
000190: 46 52 4F 4E 41 2E 44 46 4C 27 20 29 0D 0A 20 20  FRONA.DFL' )..  
0001A0: 53 54 4F 52 45 20 27 20 27 20 54 4F 20 54 45 4D  STORE ' ' TO TEM
0001B0: 50 0D 0A 20 20 40 20 32 30 2C 35 20 53 41 59 20  P..  @ 20,5 SAY 
0001C0: 27 45 52 52 4F 52 20 2E 2E 2E 20 20 44 61 74 61  'ERROR ...  Data
0001D0: 20 46 69 6C 65 20 22 46 52 4F 4E 41 2E 44 46 4C   File "FRONA.DFL
0001E0: 22 20 6E 6F 74 20 66 6F 75 6E 64 2E 27 0D 0A 20  " not found.'.. 
0001F0: 20 40 20 32 31 2C 35 20 53 41 59 20 27 50 6C 65   @ 21,5 SAY 'Ple

Size : 512 (Real : 512)
000000: 27 20 54 4F 20 45 52 52 31 0D 0A 20 20 20 20 20  ' TO ERR1..     
000010: 20 53 54 4F 52 45 20 45 52 52 32 2B 27 21 27 20   STORE ERR2+'!' 
000020: 54 4F 20 45 52 52 32 0D 0A 20 20 20 20 20 20 53  TO ERR2..      S
000030: 54 4F 52 45 20 46 20 54 4F 20 4D 53 47 0D 0A 20  TORE F TO MSG.. 
000040: 20 20 20 20 45 4C 53 45 0D 0A 20 20 20 20 20 20      ELSE..      
000050: 53 54 4F 52 45 20 45 52 52 31 2B 27 20 27 20 54  STORE ERR1+' ' T
000060: 4F 20 45 52 52 31 0D 0A 20 20 20 20 20 20 53 54  O ERR1..      ST
000070: 4F 52 45 20 45 52 52 32 2B 27 20 27 20 54 4F 20  ORE ERR2+' ' TO 
000080: 45 52 52 32 0D 0A 20 20 20 20 45 4E 44 49 46 0D  ERR2..    ENDIF.
000090: 0A 20 20 20 20 53 54 4F 52 45 20 43 2B 31 20 54  .    STORE C+1 T
0000A0: 4F 20 43 0D 0A 20 20 45 4E 44 44 4F 0D 0A 20 20  O C..  ENDDO..  
0000B0: 49 46 20 4D 2E 4D 53 47 20 20 20 0D 0A 20 20 20  IF M.MSG   ..   
0000C0: 20 40 20 32 33 2C 39 20 53 41 59 20 4D 2E 4D 54   @ 23,9 SAY M.MT
0000D0: 45 53 54 0D 0A 20 20 20 45 4C 53 45 0D 0A 20 20  EST..   ELSE..  
0000E0: 20 20 40 20 31 38 2C 32 38 20 53 41 59 20 45 52    @ 18,28 SAY ER
0000F0: 52 31 2B 27 20 20 20 20 20 20 20 20 20 20 20 27  R1+'           '
000100: 0D 0A 20 20 20 20 40 20 31 39 2C 32 38 20 53 41  ..    @ 19,28 SA
000110: 59 20 45 52 52 32 2B 27 20 20 20 20 20 20 20 20  Y ERR2+'        
000120: 20 20 20 27 0D 0A 20 20 20 20 40 20 32 31 2C 35     '..    @ 21,5
000130: 20 53 41 59 20 27 49 6C 6C 65 67 61 6C 20 63 68   SAY 'Illegal ch
000140: 61 72 61 63 74 65 72 20 69 6E 20 74 68 65 20 46  aracter in the F
000150: 69 6C 65 20 4E 61 6D 65 20 2D 20 70 72 65 73 73  ile Name - press
000160: 20 61 6E 79 20 6B 65 79 3B 0D 0A 20 74 6F 20 20   any key;.. to  
000170: 72 65 74 72 79 27 0D 0A 20 20 20 20 53 54 4F 52  retry'..    STOR
000180: 45 20 27 20 27 20 54 4F 20 54 45 4D 50 0D 0A 20  E ' ' TO TEMP.. 
000190: 20 20 20 40 20 32 31 2C 31 20 47 45 54 20 4D 2E     @ 21,1 GET M.
0001A0: 54 45 4D 50 0D 0A 20 20 20 20 52 45 41 44 0D 0A  TEMP..    READ..
0001B0: 20 20 20 20 43 4C 45 41 52 20 47 45 54 53 0D 0A      CLEAR GETS..
0001C0: 20 20 20 20 53 54 4F 52 45 20 27 20 20 20 20 20      STORE '     
0001D0: 20 20 20 27 20 54 4F 20 43 46 49 4C 45 0D 0A 20     ' TO CFILE.. 
0001E0: 20 20 20 40 20 31 37 2C 30 0D 0A 20 20 20 20 40     @ 17,0..    @
0001F0: 20 31 38 2C 30 0D 0A 20 20 20 20 40 20 31 39 2C   18,0..    @ 19,

Size : 512 (Real : 512)
000000: 32 32 20 2E 41 4E 44 2E 20 4D 2E 43 4F 4E 54 0D  22 .AND. M.CONT.
000010: 0A 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  .  *************
000020: 2A 2A 2A 2A 20 4D 4A 47 20 2D 20 31 39 2F 30 37  **** MJG - 19/07
000030: 2F 38 34 0D 0A 20 20 69 66 20 72 65 63 6C 65 6E  /84..  if reclen
000040: 20 3D 20 31 30 30 30 0D 0A 20 20 20 20 73 74 6F   = 1000..    sto
000050: 72 65 20 66 20 74 6F 20 63 6F 6E 74 0D 0A 20 20  re f to cont..  
000060: 20 20 40 20 32 30 2C 35 20 73 61 79 20 27 59 6F    @ 20,5 say 'Yo
000070: 75 20 68 61 76 65 20 72 65 61 63 68 65 64 20 74  u have reached t
000080: 68 65 20 31 30 30 30 20 63 68 61 72 61 63 74 65  he 1000 characte
000090: 72 20 6C 69 6D 69 74 2E 27 0D 0A 20 20 20 20 40  r limit.'..    @
0000A0: 20 32 31 2C 35 20 73 61 79 20 27 49 20 63 61 6E   21,5 say 'I can
0000B0: 20 6E 6F 74 20 74 68 65 72 65 66 6F 72 65 20 61   not therefore a
0000C0: 6C 6C 6F 77 20 79 6F 75 20 74 6F 20 61 64 64 20  llow you to add 
0000D0: 61 20 66 75 72 74 68 65 72 20 66 69 65 6C 64 2E  a further field.
0000E0: 2E 2E 27 0D 0A 20 20 20 20 53 54 4F 52 45 20 31  ..'..    STORE 1
0000F0: 20 54 4F 20 43 0D 0A 20 20 20 20 44 4F 20 57 48   TO C..    DO WH
000100: 49 4C 45 20 43 20 3C 20 34 30 0D 0A 20 20 20 20  ILE C < 40..    
000110: 20 20 20 53 54 4F 52 45 20 43 20 2B 20 31 20 54     STORE C + 1 T
000120: 4F 20 43 0D 0A 20 20 20 20 45 4E 44 44 4F 0D 0A  O C..    ENDDO..
000130: 20 20 20 20 45 52 41 53 45 0D 0A 54 45 58 54 0D      ERASE..TEXT.
000140: 0A 0D 0A 57 45 4C 43 4F 4D 45 20 20 20 20 20 20  ...WELCOME      
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43                 C
000160: 52 45 41 54 45 20 41 20 44 41 54 41 42 41 53 45  REATE A DATABASE
000170: 20 46 49 4C 45 20 20 20 20 20 20 20 20 20 20 20   FILE           
000180: 20 20 20 20 20 20 20 20 20 64 42 41 53 45 20 49           dBASE I
000190: 49 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  I..-------------
0001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001E0: 2D 2D 0D 0A 45 4E 44 54 45 58 54 0D 0A 40 20 32  --..ENDTEXT..@ 2
0001F0: 32 2C 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D 2D  2,1 SAY '-------

Size : 512 (Real : 512)
000000: 30 0D 0A 20 20 20 20 40 20 32 30 2C 30 0D 0A 20  0..    @ 20,0.. 
000010: 20 20 20 40 20 32 31 2C 31 0D 0A 20 20 20 20 4C     @ 21,1..    L
000020: 4F 4F 50 0D 0A 20 20 45 4E 44 49 46 0D 0A 20 20  OOP..  ENDIF..  
000030: 49 46 20 46 49 4C 45 28 27 26 4D 54 45 53 54 27  IF FILE('&MTEST'
000040: 29 0D 0A 20 20 20 20 40 20 31 39 2C 35 20 53 41  )..    @ 19,5 SA
000050: 59 20 27 2A 2A 57 41 52 4E 49 4E 47 2A 2A 20 59  Y '**WARNING** Y
000060: 6F 75 20 61 72 65 20 74 72 79 69 6E 67 20 74 6F  ou are trying to
000070: 20 63 72 65 61 74 65 20 61 20 66 69 6C 65 20 74   create a file t
000080: 68 61 74 20 61 6C 72 65 61 64 79 20 27 20 3B 0D  hat already ' ;.
000090: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 2B 20  .             + 
0000A0: 27 65 78 69 73 74 73 27 0D 0A 20 20 20 20 40 20  'exists'..    @ 
0000B0: 32 30 2C 35 20 53 41 59 20 27 64 42 61 73 65 20  20,5 SAY 'dBase 
0000C0: 49 49 20 77 69 6C 6C 20 4E 4F 54 20 63 68 65 63  II will NOT chec
0000D0: 6B 20 74 68 69 73 20 66 6F 72 20 79 6F 75 2E 27  k this for you.'
0000E0: 0D 0A 20 20 20 20 53 54 4F 52 45 20 27 20 27 20  ..    STORE ' ' 
0000F0: 54 4F 20 52 45 53 50 0D 0A 20 20 20 20 53 54 4F  TO RESP..    STO
000100: 52 45 20 59 20 54 4F 20 4D 46 49 52 53 54 0D 0A  RE Y TO MFIRST..
000110: 20 20 20 20 44 4F 20 57 48 49 4C 45 20 2E 4E 4F      DO WHILE .NO
000120: 54 2E 20 4D 2E 52 45 53 50 24 27 43 52 27 0D 0A  T. M.RESP$'CR'..
000130: 20 20 20 20 20 20 53 54 4F 52 45 20 27 20 27 20        STORE ' ' 
000140: 54 4F 20 52 45 53 50 0D 0A 20 20 20 20 20 20 40  TO RESP..      @
000150: 20 32 31 2C 31 0D 0A 20 20 20 20 20 20 40 20 32   21,1..      @ 2
000160: 31 2C 35 20 53 41 59 20 27 44 6F 20 79 6F 75 20  1,5 SAY 'Do you 
000170: 77 69 73 68 20 74 6F 20 28 43 29 6F 6E 74 69 6E  wish to (C)ontin
000180: 75 65 20 28 52 29 65 74 72 79 20 27 20 0D 0A 20  ue (R)etry ' .. 
000190: 20 20 20 20 20 40 20 32 31 2C 31 20 47 45 54 20       @ 21,1 GET 
0001A0: 4D 2E 52 45 53 50 20 50 49 43 54 20 27 21 27 0D  M.RESP PICT '!'.
0001B0: 0A 20 20 20 20 20 20 49 46 20 2E 4E 4F 54 2E 20  .      IF .NOT. 
0001C0: 4D 2E 4D 46 49 52 53 54 0D 0A 20 20 20 20 20 20  M.MFIRST..      
0001D0: 20 20 20 40 20 32 31 2C 34 35 20 53 41 59 20 27     @ 21,45 SAY '
0001E0: 3C 2D 20 53 65 6C 65 63 74 69 6F 6E 20 49 6E 76  <- Selection Inv
0001F0: 61 6C 69 64 20 27 0D 0A 20 20 20 20 20 20 45 4C  alid '..      EL

Size : 512 (Real : 512)
000000: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000030: 2D 2D 2D 2D 2D 2D 2D 27 20 3B 0D 0A 20 20 20 20  -------' ;..    
000040: 20 20 20 20 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D 2D       + '--------
000050: 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 20 20 20 20 20 40  -------'..     @
000060: 20 32 33 2C 35 20 53 41 59 20 27 59 6F 75 72 20   23,5 SAY 'Your 
000070: 46 69 6C 65 20 48 61 73 20 42 65 65 6E 20 43 72  File Has Been Cr
000080: 65 61 74 65 64 20 41 73 20 22 26 43 46 49 4C 45  eated As "&CFILE
000090: 2E 2E 44 42 46 22 27 20 0D 0A 20 20 20 20 20 40  ..DBF"' ..     @
0000A0: 20 32 31 2C 35 20 53 41 59 20 27 50 6C 65 61 73   21,5 SAY 'Pleas
0000B0: 65 20 57 61 69 74 20 2E 2E 2E 20 53 61 76 69 6E  e Wait ... Savin
0000C0: 67 20 53 74 72 75 63 74 75 72 65 2E 27 0D 0A 20  g Structure.'.. 
0000D0: 20 20 20 20 40 20 32 30 2C 31 20 0D 0A 20 20 20      @ 20,1 ..   
0000E0: 20 20 6C 6F 6F 70 0D 0A 20 20 65 6E 64 69 66 0D    loop..  endif.
0000F0: 0A 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  .  *************
000100: 2A 2A 2A 2A 20 0D 0A 0D 0A 20 20 49 46 20 4D 2E  **** ....  IF M.
000110: 4C 49 4E 45 3E 31 36 0D 0A 20 20 20 20 53 54 4F  LINE>16..    STO
000120: 52 45 20 27 30 27 2B 53 54 52 28 28 4C 49 4E 45  RE '0'+STR((LINE
000130: 2D 37 29 2C 32 29 20 54 4F 20 46 49 45 4C 44 3A  -7),2) TO FIELD:
000140: 4E 4F 0D 0A 20 20 20 45 4C 53 45 0D 0A 20 20 20  NO..   ELSE..   
000150: 20 53 54 4F 52 45 20 27 30 30 27 2B 53 54 52 28   STORE '00'+STR(
000160: 28 4C 49 4E 45 2D 37 29 2C 31 29 20 54 4F 20 46  (LINE-7),1) TO F
000170: 49 45 4C 44 3A 4E 4F 0D 0A 20 20 45 4E 44 49 46  IELD:NO..  ENDIF
000180: 0D 0A 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ..  ************
000190: 2A 2A 0D 0A 20 20 2A 20 46 49 45 4C 44 20 4E 41  **..  * FIELD NA
0001A0: 4D 45 20 2A 0D 0A 20 20 2A 2A 2A 2A 2A 2A 2A 2A  ME *..  ********
0001B0: 2A 2A 2A 2A 2A 2A 0D 0A 20 20 40 20 4C 49 4E 45  ******..  @ LINE
0001C0: 2D 4F 46 46 53 45 54 2C 30 20 53 41 59 20 4D 2E  -OFFSET,0 SAY M.
0001D0: 46 49 45 4C 44 3A 4E 4F 0D 0A 20 20 3F 20 27 20  FIELD:NO..  ? ' 
0001E0: 20 20 20 20 20 20 20 20 20 5E 20 2D 2D 2D 2D 20           ^ ---- 
0001F0: 74 68 65 20 63 75 72 73 6F 72 20 69 73 20 70 6F  the cursor is po

Size : 512 (Real : 512)
000000: 53 45 0D 0A 20 20 20 20 20 20 20 20 20 53 54 4F  SE..         STO
000010: 52 45 20 4E 20 54 4F 20 4D 46 49 52 53 54 0D 0A  RE N TO MFIRST..
000020: 20 20 20 20 20 20 45 4E 44 49 46 0D 0A 20 20 20        ENDIF..   
000030: 20 20 20 52 45 41 44 0D 0A 20 20 20 20 20 20 40     READ..      @
000040: 20 31 37 2C 30 0D 0A 20 20 20 20 20 20 40 20 31   17,0..      @ 1
000050: 38 2C 30 0D 0A 20 20 20 20 20 20 40 20 31 39 2C  8,0..      @ 19,
000060: 30 0D 0A 20 20 20 20 20 20 40 20 32 30 2C 30 0D  0..      @ 20,0.
000070: 0A 20 20 20 20 20 20 40 20 32 31 2C 31 0D 0A 20  .      @ 21,1.. 
000080: 20 20 20 45 4E 44 44 4F 0D 0A 20 20 20 20 43 4C     ENDDO..    CL
000090: 45 41 52 20 47 45 54 53 0D 0A 20 20 20 20 49 46  EAR GETS..    IF
0000A0: 20 4D 2E 52 45 53 50 20 3D 20 27 52 27 0D 0A 20   M.RESP = 'R'.. 
0000B0: 20 20 20 20 20 53 54 4F 52 45 20 27 20 20 20 20       STORE '    
0000C0: 20 20 20 20 27 20 54 4F 20 43 46 49 4C 45 0D 0A      ' TO CFILE..
0000D0: 20 20 20 20 20 20 4C 4F 4F 50 20 20 0D 0A 20 20        LOOP  ..  
0000E0: 20 20 45 4E 44 49 46 20 5B 20 72 65 74 75 72 6E    ENDIF [ return
0000F0: 20 74 6F 20 6D 61 69 6E 20 6D 65 6E 75 20 2E 2E   to main menu ..
000100: 20 74 65 72 6D 69 6E 61 74 69 6F 6E 20 6F 66 20   termination of 
000110: 63 72 65 61 74 65 20 5D 0D 0A 20 20 45 4E 44 49  create ]..  ENDI
000120: 46 0D 0A 20 20 45 52 41 53 45 0D 0A 54 45 58 54  F..  ERASE..TEXT
000130: 0D 0A 0D 0A 57 45 4C 43 4F 4D 45 20 20 20 20 20  ....WELCOME     
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000150: 43 52 45 41 54 45 20 41 20 44 41 54 41 42 41 53  CREATE A DATABAS
000160: 45 20 46 49 4C 45 20 20 20 20 20 20 20 20 20 20  E FILE          
000170: 20 20 20 20 20 20 20 20 20 20 64 42 41 53 45 20            dBASE 
000180: 49 49 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  II..------------
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001D0: 2D 2D 2D 0D 0A 45 4E 44 54 45 58 54 0D 0A 40 20  ---..ENDTEXT..@ 
0001E0: 32 32 2C 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D  22,1 SAY '------
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------

Size : 512 (Real : 512)
000000: 73 69 74 69 6F 6E 65 64 20 68 65 72 65 20 2E 2E  sitioned here ..
000010: 2E 27 0D 0A 20 20 53 54 4F 52 45 20 27 20 20 20  .'..  STORE '   
000020: 20 20 20 20 20 20 20 27 20 54 4F 20 4D 46 0D 0A         ' TO MF..
000030: 20 20 53 54 4F 52 45 20 46 20 54 4F 20 43 4E 41    STORE F TO CNA
000040: 4D 45 0D 0A 20 20 44 4F 20 57 48 49 4C 45 20 2E  ME..  DO WHILE .
000050: 4E 4F 54 2E 20 4D 2E 43 4E 41 4D 45 0D 0A 20 20  NOT. M.CNAME..  
000060: 20 20 40 20 31 36 2C 35 20 53 41 59 20 27 59 6F    @ 16,5 SAY 'Yo
000070: 75 20 61 72 65 20 6E 6F 77 20 65 78 70 65 63 74  u are now expect
000080: 65 64 20 74 6F 20 67 69 76 65 20 61 20 6E 61 6D  ed to give a nam
000090: 65 20 66 6F 72 20 74 68 69 73 20 66 69 65 6C 64  e for this field
0000A0: 2E 27 0D 0A 20 20 20 20 40 20 31 37 2C 35 20 53  .'..    @ 17,5 S
0000B0: 41 59 20 27 4C 65 74 20 6D 65 20 74 72 79 20 74  AY 'Let me try t
0000C0: 6F 20 68 65 6C 70 2E 20 45 6E 74 65 72 20 6E 61  o help. Enter na
0000D0: 6D 65 20 27 20 47 45 54 20 4D 2E 4D 46 20 50 49  me ' GET M.MF PI
0000E0: 43 54 20 27 21 21 21 21 21 21 21 21 21 21 27 0D  CT '!!!!!!!!!!'.
0000F0: 0A 20 20 20 20 40 20 31 37 2C 35 30 20 53 41 59  .    @ 17,50 SAY
000100: 20 27 5B 20 42 6C 61 6E 6B 20 74 6F 20 66 69 6E   '[ Blank to fin
000110: 69 73 68 20 5D 27 0D 0A 20 20 20 20 52 45 41 44  ish ]'..    READ
000120: 20 0D 0A 20 20 20 20 43 4C 45 41 52 20 47 45 54   ..    CLEAR GET
000130: 53 0D 0A 20 20 20 20 49 46 20 4D 2E 4D 46 20 3D  S..    IF M.MF =
000140: 20 27 20 20 20 20 20 20 20 20 27 0D 0A 20 20 20   '        '..   
000150: 20 20 20 53 54 4F 52 45 20 54 20 54 4F 20 43 4E     STORE T TO CN
000160: 41 4D 45 0D 0A 20 20 20 20 20 20 4C 4F 4F 50 0D  AME..      LOOP.
000170: 0A 20 20 20 20 45 4E 44 49 46 20 0D 0A 20 20 20  .    ENDIF ..   
000180: 20 53 54 4F 52 45 20 54 52 49 4D 28 4D 2E 4D 46   STORE TRIM(M.MF
000190: 29 20 54 4F 20 46 54 45 53 54 0D 0A 20 20 20 20  ) TO FTEST..    
0001A0: 49 46 20 2E 4E 4F 54 2E 20 24 28 4D 2E 4D 46 2C  IF .NOT. $(M.MF,
0001B0: 31 2C 31 29 24 27 41 42 43 44 45 46 47 48 49 4A  1,1)$'ABCDEFGHIJ
0001C0: 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 57 58 59 5A  KLMNOPQRSTUVWXYZ
0001D0: 27 0D 0A 20 20 20 20 20 20 40 20 32 30 2C 35 20  '..      @ 20,5 
0001E0: 53 41 59 20 27 54 68 65 20 66 69 72 73 74 20 63  SAY 'The first c
0001F0: 68 61 72 61 63 74 65 72 20 6F 66 20 74 68 65 20  haracter of the 

Size : 512 (Real : 512)
000000: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000020: 2D 2D 2D 2D 2D 2D 2D 2D 27 20 3B 0D 0A 20 20 20  --------' ;..   
000030: 20 20 20 20 20 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D        + '-------
000040: 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 20 20 40 20 32  --------'..  @ 2
000050: 33 2C 30 20 53 41 59 20 27 2E 20 43 52 45 41 54  3,0 SAY '. CREAT
000060: 45 20 27 2B 4D 2E 4D 54 45 53 54 0D 0A 20 20 40  E '+M.MTEST..  @
000070: 20 31 39 2C 35 20 53 41 59 20 27 42 65 6C 6F 77   19,5 SAY 'Below
000080: 20 74 68 65 20 6C 69 6E 65 20 79 6F 75 20 77 69   the line you wi
000090: 6C 6C 20 6E 6F 77 20 73 65 65 20 74 68 65 20 63  ll now see the c
0000A0: 6F 6D 70 6C 65 74 65 20 63 6F 6D 6D 61 6E 64 27  omplete command'
0000B0: 0D 0A 20 20 40 20 32 30 2C 35 20 53 41 59 20 27  ..  @ 20,5 SAY '
0000C0: 61 73 20 79 6F 75 20 77 6F 75 6C 64 20 74 79 70  as you would typ
0000D0: 65 20 69 74 20 79 6F 75 72 73 65 6C 66 2E 27 20  e it yourself.' 
0000E0: 0D 0A 20 20 53 54 4F 52 45 20 27 20 27 20 54 4F  ..  STORE ' ' TO
0000F0: 20 54 45 4D 50 0D 0A 20 20 40 20 32 31 2C 35 20   TEMP..  @ 21,5 
000100: 53 41 59 20 27 50 72 65 73 73 20 61 6E 79 20 6B  SAY 'Press any k
000110: 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 27  ey to continue '
000120: 0D 0A 20 20 40 20 32 31 2C 31 20 47 45 54 20 4D  ..  @ 21,1 GET M
000130: 2E 54 45 4D 50 0D 0A 20 20 52 45 41 44 0D 0A 20  .TEMP..  READ.. 
000140: 20 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 40   CLEAR GETS..  @
000150: 20 31 39 2C 30 0D 0A 20 20 40 20 32 30 2C 30 0D   19,0..  @ 20,0.
000160: 0A 20 20 40 20 32 31 2C 30 0D 0A 20 20 53 54 4F  .  @ 21,0..  STO
000170: 52 45 20 54 20 54 4F 20 56 41 4C 49 44 0D 0A 45  RE T TO VALID..E
000180: 4E 44 44 4F 20 5B 20 65 6E 74 65 72 20 66 69 6C  NDDO [ enter fil
000190: 65 20 6E 61 6D 65 20 5D 0D 0A 41 50 50 45 4E 44  e name ]..APPEND
0001A0: 20 42 4C 41 4E 4B 0D 0A 45 52 41 53 45 0D 0A 40   BLANK..ERASE..@
0001B0: 20 32 32 2C 31 20 53 41 59 20 27 2D 2D 2D 2D 2D   22,1 SAY '-----
0001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20 3B 0D 0A 20 20  ---------' ;..  

Size : 512 (Real : 512)
000000: 6E 61 6D 65 20 6D 75 73 74 20 62 65 20 61 6C 70  name must be alp
000010: 68 61 20 28 41 2D 5A 29 20 20 20 20 20 20 20 20  ha (A-Z)        
000020: 27 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 20 27  '..      STORE '
000030: 20 27 20 54 4F 20 54 45 4D 50 0D 0A 20 20 20 20   ' TO TEMP..    
000040: 20 20 40 20 32 31 2C 35 20 53 41 59 20 27 50 72    @ 21,5 SAY 'Pr
000050: 65 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 72  ess any key to r
000060: 65 74 72 79 20 27 20 0D 0A 20 20 20 20 20 20 40  etry ' ..      @
000070: 20 32 31 2C 31 20 47 45 54 20 4D 2E 54 45 4D 50   21,1 GET M.TEMP
000080: 0D 0A 20 20 20 20 20 20 52 45 41 44 0D 0A 20 20  ..      READ..  
000090: 20 20 20 20 43 4C 45 41 52 20 47 45 54 53 0D 0A      CLEAR GETS..
0000A0: 20 20 20 20 20 20 40 20 31 36 2C 30 0D 0A 20 20        @ 16,0..  
0000B0: 20 20 20 20 40 20 31 37 2C 30 0D 0A 20 20 20 20      @ 17,0..    
0000C0: 20 20 40 20 31 38 2C 30 0D 0A 20 20 20 20 20 20    @ 18,0..      
0000D0: 40 20 31 39 2C 30 0D 0A 20 20 20 20 20 20 40 20  @ 19,0..      @ 
0000E0: 32 30 2C 30 0D 0A 20 20 20 20 20 20 40 20 32 31  20,0..      @ 21
0000F0: 2C 31 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 20  ,1..      STORE 
000100: 27 20 20 20 20 20 20 20 20 20 20 27 20 54 4F 20  '          ' TO 
000110: 4D 46 0D 0A 20 20 20 20 20 20 4C 4F 4F 50 0D 0A  MF..      LOOP..
000120: 20 20 20 20 45 4E 44 49 46 0D 0A 20 20 20 20 53      ENDIF..    S
000130: 54 4F 52 45 20 54 20 54 4F 20 4D 53 47 0D 0A 20  TORE T TO MSG.. 
000140: 20 20 20 53 54 4F 52 45 20 32 20 54 4F 20 43 0D     STORE 2 TO C.
000150: 0A 20 20 20 20 44 4F 20 57 48 49 4C 45 20 43 20  .    DO WHILE C 
000160: 3C 3D 20 4C 45 4E 28 4D 2E 46 54 45 53 54 29 0D  <= LEN(M.FTEST).
000170: 0A 20 20 20 20 20 20 49 46 20 2E 4E 4F 54 2E 20  .      IF .NOT. 
000180: 24 28 4D 2E 46 54 45 53 54 2C 43 2C 31 29 24 27  $(M.FTEST,C,1)$'
000190: 41 42 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F 50  ABCDEFGHIJKLMNOP
0001A0: 51 52 53 54 55 56 57 58 59 5A 30 31 32 33 34 35  QRSTUVWXYZ012345
0001B0: 36 37 38 39 3A 20 27 0D 0A 20 20 20 20 20 20 20  6789: '..       
0001C0: 20 53 54 4F 52 45 20 46 20 54 4F 20 4D 53 47 0D   STORE F TO MSG.
0001D0: 0A 20 20 20 20 20 20 45 4E 44 49 46 0D 0A 20 20  .      ENDIF..  
0001E0: 20 20 20 20 53 54 4F 52 45 20 43 2B 31 20 54 4F      STORE C+1 TO
0001F0: 20 43 0D 0A 20 20 20 20 45 4E 44 44 4F 0D 0A 20   C..    ENDDO.. 

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 2B 20 27 2D 2D 2D 2D 2D 2D         + '------
000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 40 20 30 2C  ---------'..@ 0,
000020: 30 0D 0A 54 45 58 54 0D 0A 0D 0A 57 45 4C 43 4F  0..TEXT....WELCO
000030: 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ME              
000040: 20 20 20 20 20 20 20 43 52 45 41 54 45 20 41 20         CREATE A 
000050: 44 41 54 41 42 41 53 45 20 46 49 4C 45 20 20 20  DATABASE FILE   
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000070: 20 64 42 41 53 45 20 49 49 0D 0A 2D 2D 2D 2D 2D   dBASE II..-----
000080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 45 4E 44 54  ----------..ENDT
0000D0: 45 58 54 0D 0A 3F 20 27 20 20 20 20 20 20 20 20  EXT..? '        
0000E0: 20 20 20 20 20 20 64 42 41 53 45 20 49 49 20 77        dBASE II w
0000F0: 69 6C 6C 20 72 65 74 75 72 6E 20 77 69 74 68 20  ill return with 
000100: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20  ............... 
000110: 27 0D 0A 3F 0D 0A 3F 20 27 46 49 45 4C 44 20 20  '..?..? 'FIELD  
000120: 20 20 20 4E 41 4D 45 2C 54 59 50 45 2C 57 49 44     NAME,TYPE,WID
000130: 54 48 2C 44 45 43 49 4D 41 4C 20 50 4C 41 43 45  TH,DECIMAL PLACE
000140: 53 27 0D 0A 53 54 4F 52 45 20 54 20 54 4F 20 43  S'..STORE T TO C
000150: 4F 4E 54 20 0D 0A 53 54 4F 52 45 20 38 20 54 4F  ONT ..STORE 8 TO
000160: 20 4C 49 4E 45 0D 0A 53 54 4F 52 45 20 30 20 54   LINE..STORE 0 T
000170: 4F 20 4F 46 46 53 45 54 2C 52 45 43 4C 45 4E 0D  O OFFSET,RECLEN.
000180: 0A 40 20 32 32 2C 31 20 53 41 59 20 27 2D 2D 2D  .@ 22,1 SAY '---
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20 3B 0D 0A  -----------' ;..
0001D0: 20 20 20 20 20 20 20 20 20 2B 20 27 2D 2D 2D 2D           + '----
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 44 4F  -----------'..DO
0001F0: 20 57 48 49 4C 45 20 4D 2E 4C 49 4E 45 20 3C 20   WHILE M.LINE < 

Size : 512 (Real : 512)
000000: 20 20 20 49 46 20 2E 4E 4F 54 2E 20 4D 2E 4D 53     IF .NOT. M.MS
000010: 47 0D 0A 20 20 20 20 20 20 40 20 32 30 2C 35 20  G..      @ 20,5 
000020: 53 41 59 20 27 54 68 65 72 65 20 69 73 20 61 6E  SAY 'There is an
000030: 20 69 6C 6C 65 67 61 6C 20 63 68 61 72 61 63 74   illegal charact
000040: 65 72 20 69 6E 20 74 68 65 20 66 69 65 6C 64 20  er in the field 
000050: 6E 61 6D 65 2E 20 20 20 20 20 20 20 20 20 20 20  name.           
000060: 20 27 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 20   '..      STORE 
000070: 27 20 27 20 54 4F 20 54 45 4D 50 0D 0A 20 20 20  ' ' TO TEMP..   
000080: 20 20 20 40 20 32 31 2C 35 20 53 41 59 20 27 50     @ 21,5 SAY 'P
000090: 72 65 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20  ress any key to 
0000A0: 72 65 74 72 79 20 27 20 0D 0A 20 20 20 20 20 20  retry ' ..      
0000B0: 40 20 32 31 2C 31 20 47 45 54 20 4D 2E 54 45 4D  @ 21,1 GET M.TEM
0000C0: 50 0D 0A 20 20 20 20 20 20 52 45 41 44 0D 0A 20  P..      READ.. 
0000D0: 20 20 20 20 20 43 4C 45 41 52 20 47 45 54 53 0D       CLEAR GETS.
0000E0: 0A 20 20 20 20 20 20 40 20 31 36 2C 30 0D 0A 20  .      @ 16,0.. 
0000F0: 20 20 20 20 20 40 20 31 37 2C 30 0D 0A 20 20 20       @ 17,0..   
000100: 20 20 20 40 20 31 38 2C 30 0D 0A 20 20 20 20 20     @ 18,0..     
000110: 20 40 20 31 39 2C 30 0D 0A 20 20 20 20 20 20 40   @ 19,0..      @
000120: 20 32 30 2C 30 0D 0A 20 20 20 20 20 20 40 20 32   20,0..      @ 2
000130: 31 2C 31 0D 0A 20 20 20 20 20 20 53 54 4F 52 45  1,1..      STORE
000140: 20 27 20 20 20 20 20 20 20 20 20 20 27 20 54 4F   '          ' TO
000150: 20 4D 46 0D 0A 20 20 20 20 20 20 4C 4F 4F 50 0D   MF..      LOOP.
000160: 0A 20 20 20 20 45 4E 44 49 46 0D 0A 20 20 20 20  .    ENDIF..    
000170: 49 46 20 27 20 27 24 4D 2E 46 54 45 53 54 0D 0A  IF ' '$M.FTEST..
000180: 20 20 20 20 20 20 40 20 32 30 2C 35 20 53 41 59        @ 20,5 SAY
000190: 20 27 53 70 61 63 65 73 20 61 72 65 20 6E 6F 74   'Spaces are not
0001A0: 20 61 6C 6C 6F 77 65 64 20 62 75 74 20 79 6F 75   allowed but you
0001B0: 20 63 61 6E 20 75 73 65 20 69 6D 62 65 64 64 65   can use imbedde
0001C0: 64 20 63 6F 6C 6F 6E 73 20 22 3A 22 20 27 0D 0A  d colons ":" '..
0001D0: 20 20 20 20 20 20 53 54 4F 52 45 20 27 20 27 20        STORE ' ' 
0001E0: 54 4F 20 54 45 4D 50 0D 0A 20 20 20 20 20 20 40  TO TEMP..      @
0001F0: 20 32 31 2C 35 20 53 41 59 20 27 50 72 65 73 73   21,5 SAY 'Press

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 64 42 41               dBA
000010: 53 45 20 49 49 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D  SE II..---------
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000060: 2D 2D 2D 2D 2D 2D 0D 0A 45 4E 44 54 45 58 54 0D  ------..ENDTEXT.
000070: 0A 40 20 32 32 2C 31 20 53 41 59 20 27 2D 2D 2D  .@ 22,1 SAY '---
000080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20 3B 0D 0A  -----------' ;..
0000C0: 20 20 20 20 20 20 20 20 20 2B 20 27 2D 2D 2D 2D           + '----
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 20 20  -----------'..  
0000E0: 20 20 20 20 40 20 32 33 2C 35 20 53 41 59 20 27      @ 23,5 SAY '
0000F0: 59 6F 75 72 20 46 69 6C 65 20 48 61 73 20 42 65  Your File Has Be
000100: 65 6E 20 43 72 65 61 74 65 64 20 41 73 20 22 26  en Created As "&
000110: 43 46 49 4C 45 2E 2E 44 42 46 22 27 20 0D 0A 20  CFILE..DBF"' .. 
000120: 20 20 20 20 20 40 20 31 31 2C 32 30 20 53 41 59       @ 11,20 SAY
000130: 20 27 50 6C 65 61 73 65 20 57 61 69 74 20 2E 2E   'Please Wait ..
000140: 2E 20 53 61 76 69 6E 67 20 53 74 72 75 63 74 75  . Saving Structu
000150: 72 65 2E 27 0D 0A 20 20 20 20 20 20 40 20 32 30  re.'..      @ 20
000160: 2C 31 20 20 20 20 20 0D 0A 20 20 20 20 20 20 4C  ,1     ..      L
000170: 4F 4F 50 0D 0A 20 20 20 20 45 4C 53 45 0D 0A 20  OOP..    ELSE.. 
000180: 20 20 20 20 20 40 20 31 36 2C 30 0D 0A 20 20 20       @ 16,0..   
000190: 20 20 20 40 20 31 37 2C 30 0D 0A 20 20 20 20 20     @ 17,0..     
0001A0: 20 40 20 31 38 2C 30 0D 0A 20 20 20 20 20 20 40   @ 18,0..      @
0001B0: 20 31 39 2C 30 0D 0A 20 20 20 20 20 20 40 20 32   19,0..      @ 2
0001C0: 30 2C 30 0D 0A 20 20 20 20 20 20 40 20 32 31 2C  0,0..      @ 21,
0001D0: 30 0D 0A 20 20 20 20 20 20 4C 4F 4F 50 0D 0A 20  0..      LOOP.. 
0001E0: 20 20 20 45 4E 44 49 46 20 0D 0A 20 20 45 4E 44     ENDIF ..  END
0001F0: 49 46 0D 0A 20 20 52 45 50 4C 41 43 45 20 46 49  IF..  REPLACE FI

Size : 512 (Real : 512)
000000: 20 61 6E 79 20 6B 65 79 20 74 6F 20 72 65 74 72   any key to retr
000010: 79 20 27 20 0D 0A 20 20 20 20 20 20 40 20 32 31  y ' ..      @ 21
000020: 2C 31 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20  ,1 GET M.TEMP.. 
000030: 20 20 20 20 20 52 45 41 44 0D 0A 20 20 20 20 20       READ..     
000040: 20 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 20   CLEAR GETS..   
000050: 20 20 20 40 20 31 36 2C 30 0D 0A 20 20 20 20 20     @ 16,0..     
000060: 20 40 20 31 37 2C 30 0D 0A 20 20 20 20 20 20 40   @ 17,0..      @
000070: 20 31 38 2C 30 0D 0A 20 20 20 20 20 20 40 20 31   18,0..      @ 1
000080: 39 2C 30 0D 0A 20 20 20 20 20 20 40 20 32 30 2C  9,0..      @ 20,
000090: 30 0D 0A 20 20 20 20 20 20 40 20 32 31 2C 31 0D  0..      @ 21,1.
0000A0: 0A 20 20 20 20 20 20 53 54 4F 52 45 20 27 20 20  .      STORE '  
0000B0: 20 20 20 20 20 20 20 20 27 20 54 4F 20 4D 46 0D          ' TO MF.
0000C0: 0A 20 20 20 20 20 20 4C 4F 4F 50 0D 0A 20 20 20  .      LOOP..   
0000D0: 20 45 4E 44 49 46 0D 0A 20 20 20 20 49 46 20 24   ENDIF..    IF $
0000E0: 28 4D 2E 46 54 45 53 54 2C 4C 45 4E 28 4D 2E 46  (M.FTEST,LEN(M.F
0000F0: 54 45 53 54 29 29 24 27 3A 27 0D 0A 20 20 20 20  TEST))$':'..    
000100: 20 20 40 20 32 30 2C 35 20 53 41 59 20 27 43 6F    @ 20,5 SAY 'Co
000110: 6C 6F 6E 73 20 6D 75 73 74 20 62 65 20 69 6D 62  lons must be imb
000120: 65 64 64 65 64 20 69 6E 20 74 68 65 20 66 69 65  edded in the fie
000130: 6C 64 20 6E 61 6D 65 20 20 20 20 20 20 20 20 20  ld name         
000140: 20 20 20 20 20 20 20 20 20 27 0D 0A 20 20 20 20           '..    
000150: 20 20 53 54 4F 52 45 20 27 20 27 20 54 4F 20 54    STORE ' ' TO T
000160: 45 4D 50 0D 0A 20 20 20 20 20 20 40 20 32 31 2C  EMP..      @ 21,
000170: 35 20 53 41 59 20 27 50 72 65 73 73 20 61 6E 79  5 SAY 'Press any
000180: 20 6B 65 79 20 74 6F 20 72 65 74 72 79 20 27 20   key to retry ' 
000190: 0D 0A 20 20 20 20 20 20 40 20 32 31 2C 31 20 47  ..      @ 21,1 G
0001A0: 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 20 20 20  ET M.TEMP..     
0001B0: 20 52 45 41 44 0D 0A 20 20 20 20 20 20 43 4C 45   READ..      CLE
0001C0: 41 52 20 47 45 54 53 0D 0A 20 20 20 20 20 20 40  AR GETS..      @
0001D0: 20 31 36 2C 30 0D 0A 20 20 20 20 20 20 40 20 31   16,0..      @ 1
0001E0: 37 2C 30 0D 0A 20 20 20 20 20 20 40 20 31 38 2C  7,0..      @ 18,
0001F0: 30 0D 0A 20 20 20 20 20 20 40 20 31 39 2C 30 0D  0..      @ 19,0.

Size : 512 (Real : 512)
000000: 45 4C 44 3A 4E 41 4D 45 20 57 49 54 48 20 4D 2E  ELD:NAME WITH M.
000010: 4D 46 0D 0A 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  MF..  **********
000020: 2A 2A 2A 2A 0D 0A 20 20 2A 20 46 49 45 4C 44 20  ****..  * FIELD 
000030: 54 59 50 45 20 2A 20 0D 0A 20 20 2A 2A 2A 2A 2A  TYPE * ..  *****
000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0A 20 20 40 20 4C  *********..  @ L
000050: 49 4E 45 2D 4F 46 46 53 45 54 2C 31 30 20 53 41  INE-OFFSET,10 SA
000060: 59 20 54 52 49 4D 28 46 49 45 4C 44 3A 4E 41 4D  Y TRIM(FIELD:NAM
000070: 45 29 2B 27 2C 27 0D 0A 20 20 3F 20 27 20 20 20  E)+','..  ? '   
000080: 20 20 20 20 20 20 20 20 20 20 20 47 6F 6F 64 20             Good 
000090: 2E 2E 2E 20 4E 6F 77 20 74 68 65 20 74 79 70 65  ... Now the type
0000A0: 20 65 69 74 68 65 72 20 22 43 22 2C 22 4E 22 20   either "C","N" 
0000B0: 6F 72 20 22 4C 22 20 2E 2E 2E 27 20 20 0D 0A 20  or "L" ...'  .. 
0000C0: 20 40 20 31 36 2C 30 0D 0A 20 20 40 20 31 37 2C   @ 16,0..  @ 17,
0000D0: 30 0D 0A 20 20 40 20 31 38 2C 30 0D 0A 20 20 40  0..  @ 18,0..  @
0000E0: 20 31 39 2C 30 0D 0A 20 20 40 20 32 30 2C 30 0D   19,0..  @ 20,0.
0000F0: 0A 20 20 40 20 32 31 2C 31 0D 0A 20 20 40 20 31  .  @ 21,1..  @ 1
000100: 39 2C 35 20 53 41 59 20 27 22 43 22 20 3D 20 43  9,5 SAY '"C" = C
000110: 68 61 72 61 63 74 65 72 20 28 20 41 6E 79 74 68  haracter ( Anyth
000120: 69 6E 67 20 4E 61 6D 65 73 2C 41 64 64 72 65 73  ing Names,Addres
000130: 73 65 73 2C 44 65 73 63 72 69 70 74 69 6F 6E 73  ses,Descriptions
000140: 20 65 74 63 2E 20 20 20 29 27 0D 0A 20 20 40 20   etc.   )'..  @ 
000150: 32 30 2C 35 20 53 41 59 20 27 22 4E 22 20 3D 20  20,5 SAY '"N" = 
000160: 4E 75 6D 65 72 69 63 20 20 20 28 20 46 6F 72 20  Numeric   ( For 
000170: 6D 61 74 68 65 6D 61 74 69 63 73 2C 20 61 6D 6F  mathematics, amo
000180: 75 6E 74 73 20 61 6E 64 20 6D 6F 6E 65 79 20 65  unts and money e
000190: 74 63 2E 20 20 20 20 20 20 29 27 0D 0A 20 20 40  tc.      )'..  @
0001A0: 20 32 31 2C 35 20 53 41 59 20 27 22 4C 22 20 3D   21,5 SAY '"L" =
0001B0: 20 4C 6F 67 69 63 61 6C 20 20 20 28 20 4F 6E 6C   Logical   ( Onl
0001C0: 79 20 61 6C 6C 6F 77 73 20 54 2F 59 28 54 52 55  y allows T/Y(TRU
0001D0: 45 29 2C 20 46 2F 4E 28 46 41 4C 53 45 29 20 69  E), F/N(FALSE) i
0001E0: 6E 70 75 74 20 20 20 20 20 20 29 27 0D 0A 20 20  nput      )'..  
0001F0: 44 4F 20 57 48 49 4C 45 20 2E 4E 4F 54 2E 20 46  DO WHILE .NOT. F

Size : 512 (Real : 512)
000000: 0A 20 20 20 20 20 20 40 20 32 30 2C 30 0D 0A 20  .      @ 20,0.. 
000010: 20 20 20 20 20 40 20 32 31 2C 31 0D 0A 20 20 20       @ 21,1..   
000020: 20 20 20 53 54 4F 52 45 20 27 20 20 20 20 20 20     STORE '      
000030: 20 20 20 20 27 20 54 4F 20 4D 46 0D 0A 20 20 20      ' TO MF..   
000040: 20 20 20 4C 4F 4F 50 0D 0A 20 20 20 20 45 4E 44     LOOP..    END
000050: 49 46 0D 0A 20 20 20 20 47 4F 54 4F 20 54 4F 50  IF..    GOTO TOP
000060: 0D 0A 20 20 20 20 4C 4F 43 41 54 45 20 46 4F 52  ..    LOCATE FOR
000070: 20 4D 2E 4D 46 20 3D 20 46 49 45 4C 44 3A 4E 41   M.MF = FIELD:NA
000080: 4D 45 0D 0A 20 20 20 20 49 46 20 2E 4E 4F 54 2E  ME..    IF .NOT.
000090: 20 45 4F 46 0D 0A 20 20 20 20 20 20 40 20 32 30   EOF..      @ 20
0000A0: 2C 35 20 53 41 59 20 27 59 6F 75 20 61 6C 72 65  ,5 SAY 'You alre
0000B0: 61 64 79 20 68 61 76 65 20 61 20 66 69 65 6C 64  ady have a field
0000C0: 20 6F 66 20 74 68 69 73 20 6E 61 6D 65 20 21 21   of this name !!
0000D0: 20 27 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 20   '..      STORE 
0000E0: 27 20 27 20 54 4F 20 54 45 4D 50 0D 0A 20 20 20  ' ' TO TEMP..   
0000F0: 20 20 20 40 20 32 31 2C 35 20 53 41 59 20 27 50     @ 21,5 SAY 'P
000100: 72 65 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20  ress any key to 
000110: 72 65 74 72 79 20 27 20 0D 0A 20 20 20 20 20 20  retry ' ..      
000120: 40 20 32 31 2C 31 20 47 45 54 20 4D 2E 54 45 4D  @ 21,1 GET M.TEM
000130: 50 0D 0A 20 20 20 20 20 20 52 45 41 44 0D 0A 20  P..      READ.. 
000140: 20 20 20 20 20 43 4C 45 41 52 20 47 45 54 53 0D       CLEAR GETS.
000150: 0A 20 20 20 20 20 20 47 4F 54 4F 20 42 4F 54 54  .      GOTO BOTT
000160: 0D 0A 20 20 20 20 20 20 40 20 31 36 2C 30 0D 0A  ..      @ 16,0..
000170: 20 20 20 20 20 20 40 20 31 37 2C 30 0D 0A 20 20        @ 17,0..  
000180: 20 20 20 20 40 20 31 38 2C 30 0D 0A 20 20 20 20      @ 18,0..    
000190: 20 20 40 20 31 39 2C 30 0D 0A 20 20 20 20 20 20    @ 19,0..      
0001A0: 40 20 32 30 2C 30 0D 0A 20 20 20 20 20 20 40 20  @ 20,0..      @ 
0001B0: 32 31 2C 31 0D 0A 20 20 20 20 20 20 53 54 4F 52  21,1..      STOR
0001C0: 45 20 27 20 20 20 20 20 20 20 20 20 20 27 20 54  E '          ' T
0001D0: 4F 20 4D 46 0D 0A 20 20 20 20 20 20 4C 4F 4F 50  O MF..      LOOP
0001E0: 0D 0A 20 20 20 20 45 4E 44 49 46 0D 0A 20 20 20  ..    ENDIF..   
0001F0: 20 53 54 4F 52 45 20 54 20 54 4F 20 43 4E 41 4D   STORE T TO CNAM

Size : 512 (Real : 512)
000000: 49 45 4C 44 3A 54 59 50 45 24 27 4C 4E 43 27 0D  IELD:TYPE$'LNC'.
000010: 0A 20 20 20 20 40 20 31 37 2C 35 20 53 41 59 20  .    @ 17,5 SAY 
000020: 27 41 67 61 69 6E 20 49 20 73 68 61 6C 6C 20 68  'Again I shall h
000030: 65 6C 70 20 79 6F 75 2E 20 20 45 6E 74 65 72 20  elp you.  Enter 
000040: 54 79 70 65 20 27 20 47 45 54 20 46 49 45 4C 44  Type ' GET FIELD
000050: 3A 54 59 50 45 20 50 49 43 54 20 27 21 27 0D 0A  :TYPE PICT '!'..
000060: 20 20 20 20 52 45 41 44 0D 0A 20 20 45 4E 44 44      READ..  ENDD
000070: 4F 0D 0A 20 20 43 4C 45 41 52 20 47 45 54 53 0D  O..  CLEAR GETS.
000080: 0A 20 20 49 46 20 46 49 45 4C 44 3A 54 59 50 45  .  IF FIELD:TYPE
000090: 24 27 43 4E 27 20 0D 0A 20 20 20 20 40 20 4C 49  $'CN' ..    @ LI
0000A0: 4E 45 2D 4F 46 46 53 45 54 2C 31 30 20 53 41 59  NE-OFFSET,10 SAY
0000B0: 20 54 52 49 4D 28 46 49 45 4C 44 3A 4E 41 4D 45   TRIM(FIELD:NAME
0000C0: 29 2B 27 2C 27 2B 46 49 45 4C 44 3A 54 59 50 45  )+','+FIELD:TYPE
0000D0: 2B 27 2C 27 0D 0A 20 20 45 4E 44 49 46 20 5B 20  +','..  ENDIF [ 
0000E0: 64 6F 20 6E 6F 74 20 64 69 73 70 6C 61 79 20 69  do not display i
0000F0: 66 20 22 4C 22 20 5D 0D 0A 20 20 40 20 31 37 2C  f "L" ]..  @ 17,
000100: 30 0D 0A 20 20 40 20 31 38 2C 30 0D 0A 20 20 40  0..  @ 18,0..  @
000110: 20 31 39 2C 30 0D 0A 20 20 40 20 32 30 2C 30 0D   19,0..  @ 20,0.
000120: 0A 20 20 40 20 32 31 2C 31 0D 0A 20 20 40 20 4D  .  @ 21,1..  @ M
000130: 2E 4C 49 4E 45 2D 4D 2E 4F 46 46 53 45 54 2C 39  .LINE-M.OFFSET,9
000140: 20 53 41 59 20 27 20 27 0D 0A 20 20 44 4F 20 43   SAY ' '..  DO C
000150: 41 53 45 0D 0A 20 20 20 20 20 20 2A 2A 2A 2A 2A  ASE..      *****
000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D  ***************.
000170: 0A 20 20 20 20 20 20 2A 20 22 43 22 20 46 49 45  .      * "C" FIE
000180: 4C 44 20 4C 45 4E 47 54 48 20 2A 0D 0A 20 20 20  LD LENGTH *..   
000190: 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A     *************
0001A0: 2A 2A 2A 2A 2A 2A 2A 0D 0A 20 20 20 20 43 41 53  *******..    CAS
0001B0: 45 20 46 49 45 4C 44 3A 54 59 50 45 20 3D 20 27  E FIELD:TYPE = '
0001C0: 43 27 0D 0A 20 20 20 20 20 20 3F 20 27 20 20 20  C'..      ? '   
0001D0: 20 20 20 20 20 20 20 20 20 20 20 47 6F 6F 64 20             Good 
0001E0: 2E 2E 2E 20 4E 6F 77 20 74 68 65 20 4C 65 6E 67  ... Now the Leng
0001F0: 74 68 20 6F 66 20 74 68 65 20 66 69 65 6C 64 20  th of the field 

Size : 512 (Real : 512)
000000: 45 0D 0A 20 20 45 4E 44 44 4F 0D 0A 20 20 49 46  E..  ENDDO..  IF
000010: 20 54 52 49 4D 28 4D 2E 4D 46 29 3D 27 20 27 0D   TRIM(M.MF)=' '.
000020: 0A 20 20 20 20 40 20 31 38 2C 30 0D 0A 20 20 20  .    @ 18,0..   
000030: 20 40 20 31 39 2C 30 0D 0A 20 20 20 20 40 20 32   @ 19,0..    @ 2
000040: 30 2C 30 0D 0A 20 20 20 20 40 20 32 31 2C 31 0D  0,0..    @ 21,1.
000050: 0A 20 20 20 20 53 54 4F 52 45 20 27 20 27 20 54  .    STORE ' ' T
000060: 4F 20 54 45 4D 50 0D 0A 20 20 20 20 44 4F 20 57  O TEMP..    DO W
000070: 48 49 4C 45 20 2E 4E 4F 54 2E 20 4D 2E 54 45 4D  HILE .NOT. M.TEM
000080: 50 24 27 59 4E 27 0D 0A 20 20 20 20 20 20 40 20  P$'YN'..      @ 
000090: 32 30 2C 35 20 53 41 59 20 27 45 6E 74 65 72 69  20,5 SAY 'Enteri
0000A0: 6E 67 20 61 20 62 6C 61 6E 6B 20 6E 61 6D 65 20  ng a blank name 
0000B0: 6D 65 61 6E 73 20 79 6F 75 20 77 61 6E 74 20 74  means you want t
0000C0: 6F 20 66 69 6E 69 73 68 2E 2E 2E 2E 27 0D 0A 20  o finish....'.. 
0000D0: 20 20 20 20 20 40 20 32 31 2C 35 20 53 41 59 20       @ 21,5 SAY 
0000E0: 27 44 6F 20 79 6F 75 20 77 61 6E 74 20 74 6F 20  'Do you want to 
0000F0: 66 69 6E 69 73 68 20 28 20 59 2F 4E 20 29 20 27  finish ( Y/N ) '
000100: 20 0D 0A 20 20 20 20 20 20 40 20 32 31 2C 31 20   ..      @ 21,1 
000110: 47 45 54 20 4D 2E 54 45 4D 50 20 50 49 43 54 20  GET M.TEMP PICT 
000120: 27 21 27 0D 0A 20 20 20 20 20 20 52 45 41 44 0D  '!'..      READ.
000130: 0A 20 20 20 20 45 4E 44 44 4F 0D 0A 20 20 20 20  .    ENDDO..    
000140: 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 20 20  CLEAR GETS..    
000150: 49 46 20 4D 2E 54 45 4D 50 20 3D 20 27 59 27 0D  IF M.TEMP = 'Y'.
000160: 0A 20 20 20 20 20 20 49 46 20 4D 2E 4C 49 4E 45  .      IF M.LINE
000170: 3D 38 0D 0A 20 20 20 20 20 20 20 20 45 52 41 53  =8..        ERAS
000180: 45 0D 0A 54 45 58 54 0D 0A 0D 0A 57 45 4C 43 4F  E..TEXT....WELCO
000190: 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ME              
0001A0: 20 20 20 20 20 20 20 43 52 45 41 54 45 20 41 20         CREATE A 
0001B0: 44 41 54 41 42 41 53 45 20 46 49 4C 45 20 20 20  DATABASE FILE   
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001D0: 20 64 42 41 53 45 20 49 49 0D 0A 2D 2D 2D 2D 2D   dBASE II..-----
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------

Size : 512 (Real : 512)
000000: 2E 2E 2E 2E 20 20 20 20 20 20 20 27 20 20 0D 0A  ....       '  ..
000010: 20 20 20 20 20 20 40 20 31 39 2C 35 20 53 41 59        @ 19,5 SAY
000020: 20 27 54 68 65 20 6C 65 6E 67 74 68 20 6F 66 20   'The length of 
000030: 61 20 22 43 22 20 66 69 65 6C 64 20 63 61 6E 20  a "C" field can 
000040: 62 65 20 62 65 74 77 65 65 6E 20 31 2D 32 35 34  be between 1-254
000050: 20 27 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 20   '..      STORE 
000060: 59 20 54 4F 20 4D 46 49 52 53 54 0D 0A 20 20 20  Y TO MFIRST..   
000070: 20 20 20 44 4F 20 57 48 49 4C 45 20 46 49 45 4C     DO WHILE FIEL
000080: 44 3A 4C 45 4E 20 3C 20 31 20 2E 4F 52 2E 20 46  D:LEN < 1 .OR. F
000090: 49 45 4C 44 3A 4C 45 4E 20 3E 20 32 35 34 20 0D  IELD:LEN > 254 .
0000A0: 0A 20 20 20 20 20 20 20 20 40 20 31 37 2C 30 0D  .        @ 17,0.
0000B0: 0A 20 20 20 20 20 20 20 20 40 20 31 37 2C 35 20  .        @ 17,5 
0000C0: 53 41 59 20 27 41 67 61 69 6E 20 49 20 77 69 6C  SAY 'Again I wil
0000D0: 6C 20 68 65 6C 70 2E 20 45 6E 74 65 72 20 4C 65  l help. Enter Le
0000E0: 6E 67 74 68 20 27 20 47 45 54 20 46 49 45 4C 44  ngth ' GET FIELD
0000F0: 3A 4C 45 4E 0D 0A 20 20 20 20 20 20 20 20 49 46  :LEN..        IF
000100: 20 2E 4E 4F 54 2E 20 4D 2E 4D 46 49 52 53 54 0D   .NOT. M.MFIRST.
000110: 0A 20 20 20 20 20 20 20 20 20 20 40 20 31 37 2C  .          @ 17,
000120: 34 35 20 53 41 59 20 27 3C 2D 20 53 65 6C 65 63  45 SAY '<- Selec
000130: 74 69 6F 6E 20 49 6E 76 61 6C 69 64 20 27 0D 0A  tion Invalid '..
000140: 20 20 20 20 20 20 20 20 45 4C 53 45 0D 0A 20 20          ELSE..  
000150: 20 20 20 20 20 20 20 20 53 54 4F 52 45 20 4E 20          STORE N 
000160: 54 4F 20 4D 46 49 52 53 54 0D 0A 20 20 20 20 20  TO MFIRST..     
000170: 20 20 20 45 4E 44 49 46 0D 0A 20 20 20 20 20 20     ENDIF..      
000180: 20 20 52 45 41 44 0D 0A 20 20 20 20 20 20 20 20    READ..        
000190: 49 46 20 4D 2E 52 45 43 4C 45 4E 2B 46 49 45 4C  IF M.RECLEN+FIEL
0001A0: 44 3A 4C 45 4E 20 3E 20 31 30 30 30 0D 0A 20 20  D:LEN > 1000..  
0001B0: 20 20 20 20 20 20 20 20 40 20 31 39 2C 30 0D 0A          @ 19,0..
0001C0: 20 20 20 20 20 20 20 20 20 20 40 20 32 30 2C 35            @ 20,5
0001D0: 20 53 41 59 20 27 54 68 65 20 6F 76 65 72 61 6C   SAY 'The overal
0001E0: 6C 20 6C 65 6E 67 74 68 20 6F 66 20 79 6F 75 72  l length of your
0001F0: 20 72 65 63 6F 72 64 20 69 73 20 27 2B 73 74 72   record is '+str

Size : 512 (Real : 512)
000000: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 45 4E 44 54  ----------..ENDT
000030: 45 58 54 0D 0A 40 20 32 32 2C 31 20 53 41 59 20  EXT..@ 22,1 SAY 
000040: 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  '---------------
000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27  ---------------'
000080: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 2B 20 27   ;..         + '
000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27  ---------------'
0000A0: 0D 0A 20 20 20 20 20 20 20 20 40 20 31 31 2C 32  ..        @ 11,2
0000B0: 37 20 53 41 59 20 27 52 45 54 55 52 4E 49 4E 47  7 SAY 'RETURNING
0000C0: 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 27 0D 0A   TO MAIN MENU'..
0000D0: 20 20 20 20 20 20 20 20 40 20 32 30 2C 31 0D 0A          @ 20,1..
0000E0: 20 20 20 20 20 20 20 20 53 45 4C 45 20 53 45 43          SELE SEC
0000F0: 4F 0D 0A 20 20 20 20 20 20 20 20 55 53 45 0D 0A  O..        USE..
000100: 20 20 20 20 20 20 20 20 53 45 4C 45 20 50 52 49          SELE PRI
000110: 4D 0D 0A 20 20 20 20 20 20 20 20 55 53 45 20 26  M..        USE &
000120: 4D 46 49 4C 45 20 0D 0A 20 20 20 20 20 20 20 20  MFILE ..        
000130: 44 45 4C 45 54 45 20 46 49 4C 45 20 54 45 4D 50  DELETE FILE TEMP
000140: 2E 44 42 46 0D 0A 20 20 20 20 20 20 20 20 52 45  .DBF..        RE
000150: 4C 45 41 53 45 20 41 4C 4C 20 45 58 43 45 50 54  LEASE ALL EXCEPT
000160: 20 4D 46 49 4C 45 0D 0A 20 20 20 20 20 20 20 20   MFILE..        
000170: 52 45 54 55 52 4E 0D 0A 20 20 20 20 20 20 45 4E  RETURN..      EN
000180: 44 49 46 20 5B 20 6E 6F 20 66 69 65 6C 64 73 20  DIF [ no fields 
000190: 65 6E 74 65 72 65 64 20 5D 0D 0A 20 20 20 20 20  entered ]..     
0001A0: 20 53 54 4F 52 45 20 46 20 54 4F 20 43 4F 4E 54   STORE F TO CONT
0001B0: 0D 0A 20 20 20 20 20 20 45 52 41 53 45 0D 0A 54  ..      ERASE..T
0001C0: 45 58 54 0D 0A 0D 0A 57 45 4C 43 4F 4D 45 20 20  EXT....WELCOME  
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001E0: 20 20 20 43 52 45 41 54 45 20 41 20 44 41 54 41     CREATE A DATA
0001F0: 42 41 53 45 20 46 49 4C 45 20 20 20 20 20 20 20  BASE FILE       

Size : 512 (Real : 512)
000000: 28 72 65 63 6C 65 6E 2C 34 29 0D 0A 20 20 20 20  (reclen,4)..    
000010: 20 20 20 20 20 20 40 20 32 31 2C 35 20 53 41 59        @ 21,5 SAY
000020: 20 27 57 69 74 68 20 74 68 69 73 20 66 69 65 6C   'With this fiel
000030: 64 20 6C 65 6E 67 74 68 20 69 74 20 77 6F 75 6C  d length it woul
000040: 64 20 62 65 20 6F 76 65 72 20 31 30 30 30 2E 27  d be over 1000.'
000050: 0D 0A 20 20 20 20 20 20 20 20 20 20 52 45 50 4C  ..          REPL
000060: 41 43 45 20 46 49 45 4C 44 3A 4C 45 4E 20 57 49  ACE FIELD:LEN WI
000070: 54 48 20 30 0D 0A 20 20 20 20 20 20 20 20 20 20  TH 0..          
000080: 53 54 4F 52 45 20 31 20 54 4F 20 43 0D 0A 20 20  STORE 1 TO C..  
000090: 20 20 20 20 20 20 20 20 44 4F 20 57 48 49 4C 45          DO WHILE
0000A0: 20 43 20 3C 33 30 0D 0A 20 20 20 20 20 20 20 20   C <30..        
0000B0: 20 20 20 20 20 53 54 4F 52 45 20 43 2B 31 20 54       STORE C+1 T
0000C0: 4F 20 43 0D 0A 20 20 20 20 20 20 20 20 20 20 45  O C..          E
0000D0: 4E 44 44 4F 0D 0A 20 20 20 20 20 20 20 20 45 4E  NDDO..        EN
0000E0: 44 49 46 0D 0A 20 20 20 20 20 20 20 20 40 20 31  DIF..        @ 1
0000F0: 36 2C 30 0D 0A 20 20 20 20 20 20 20 20 40 20 31  6,0..        @ 1
000100: 37 2C 30 0D 0A 20 20 20 20 20 20 20 20 40 20 31  7,0..        @ 1
000110: 38 2C 30 0D 0A 20 20 20 20 20 20 20 20 40 20 31  8,0..        @ 1
000120: 39 2C 30 0D 0A 20 20 20 20 20 20 20 20 40 20 32  9,0..        @ 2
000130: 30 2C 30 0D 0A 20 20 20 20 20 20 20 20 40 20 32  0,0..        @ 2
000140: 31 2C 31 0D 0A 20 20 20 20 20 20 45 4E 44 44 4F  1,1..      ENDDO
000150: 0D 0A 20 20 20 20 20 20 52 45 4C 45 41 53 45 20  ..      RELEASE 
000160: 4D 46 49 52 53 54 0D 0A 20 20 20 20 20 20 43 4C  MFIRST..      CL
000170: 45 41 52 20 47 45 54 53 0D 0A 20 20 20 20 20 20  EAR GETS..      
000180: 44 4F 20 43 41 53 45 0D 0A 20 20 20 20 20 20 20  DO CASE..       
000190: 20 43 41 53 45 20 46 49 45 4C 44 3A 4C 45 4E 20   CASE FIELD:LEN 
0001A0: 3E 20 39 39 0D 0A 20 20 20 20 20 20 20 20 20 20  > 99..          
0001B0: 53 54 4F 52 45 20 53 54 52 28 46 49 45 4C 44 3A  STORE STR(FIELD:
0001C0: 4C 45 4E 2C 33 29 20 54 4F 20 4D 2E 4D 46 49 45  LEN,3) TO M.MFIE
0001D0: 4C 44 3A 4C 45 4E 0D 0A 20 20 20 20 20 20 20 20  LD:LEN..        
0001E0: 43 41 53 45 20 46 49 45 4C 44 3A 4C 45 4E 20 3E  CASE FIELD:LEN >
0001F0: 20 39 0D 0A 20 20 20 20 20 20 20 20 20 20 53 54   9..          ST

Size : 512 (Real : 512)
000000: 20 20 40 20 31 37 2C 30 0D 0A 20 20 20 20 20 20    @ 17,0..      
000010: 40 20 31 38 2C 30 0D 0A 20 20 20 20 20 20 40 20  @ 18,0..      @ 
000020: 31 39 2C 30 0D 0A 20 20 20 20 20 20 40 20 32 30  19,0..      @ 20
000030: 2C 30 0D 0A 20 20 20 20 20 20 40 20 32 31 2C 31  ,0..      @ 21,1
000040: 0D 0A 20 20 20 20 20 20 40 20 31 39 2C 35 20 53  ..      @ 19,5 S
000050: 41 59 20 27 49 66 20 79 6F 75 20 64 6F 20 6E 6F  AY 'If you do no
000060: 74 20 77 61 6E 74 20 64 65 63 69 6D 61 6C 73 2C  t want decimals,
000070: 20 65 6E 74 65 72 20 30 2E 20 27 0D 0A 20 20 20   enter 0. '..   
000080: 20 20 20 40 20 32 30 2C 35 20 53 41 59 20 27 4F     @ 20,5 SAY 'O
000090: 74 68 65 72 77 69 73 65 20 79 6F 75 20 6D 61 79  therwise you may
0000A0: 20 68 61 76 65 20 61 73 20 6D 61 6E 79 20 61 73   have as many as
0000B0: 20 79 6F 75 20 63 61 6E 20 66 69 74 20 69 6E 74   you can fit int
0000C0: 6F 20 79 6F 75 72 20 27 0D 0A 20 20 20 20 20 20  o your '..      
0000D0: 40 20 32 31 2C 35 20 53 41 59 20 27 66 69 65 6C  @ 21,5 SAY 'fiel
0000E0: 64 2C 20 62 75 74 20 74 68 65 20 64 65 63 69 6D  d, but the decim
0000F0: 61 6C 20 70 6F 69 6E 74 20 77 69 6C 6C 20 61 6C  al point will al
000100: 73 6F 20 6F 63 63 75 70 79 20 61 20 70 6F 73 69  so occupy a posi
000110: 74 69 6F 6E 2E 27 0D 0A 20 20 20 20 20 20 53 54  tion.'..      ST
000120: 4F 52 45 20 46 20 54 4F 20 4E 55 4D 20 0D 0A 20  ORE F TO NUM .. 
000130: 20 20 20 20 20 53 54 4F 52 45 20 59 20 54 4F 20       STORE Y TO 
000140: 4D 46 49 52 53 54 0D 0A 20 20 20 20 20 20 44 4F  MFIRST..      DO
000150: 20 57 48 49 4C 45 20 2E 4E 4F 54 2E 20 4D 2E 4E   WHILE .NOT. M.N
000160: 55 4D 0D 0A 20 20 20 20 20 20 20 20 40 20 31 37  UM..        @ 17
000170: 2C 30 0D 0A 20 20 20 20 20 20 20 20 40 20 31 37  ,0..        @ 17
000180: 2C 35 20 53 41 59 20 27 41 67 61 69 6E 20 49 20  ,5 SAY 'Again I 
000190: 77 69 6C 6C 20 68 65 6C 70 2E 20 45 6E 74 65 72  will help. Enter
0001A0: 20 4C 65 6E 67 74 68 20 27 20 47 45 54 20 46 49   Length ' GET FI
0001B0: 45 4C 44 3A 44 45 43 0D 0A 20 20 20 20 20 20 20  ELD:DEC..       
0001C0: 20 49 46 20 2E 4E 4F 54 2E 20 4D 2E 4D 46 49 52   IF .NOT. M.MFIR
0001D0: 53 54 0D 0A 20 20 20 20 20 20 20 20 20 20 40 20  ST..          @ 
0001E0: 31 37 2C 34 35 20 53 41 59 20 27 3C 2D 20 53 65  17,45 SAY '<- Se
0001F0: 6C 65 63 74 69 6F 6E 20 49 6E 76 61 6C 69 64 27  lection Invalid'

Size : 512 (Real : 512)
000000: 4F 52 45 20 53 54 52 28 46 49 45 4C 44 3A 4C 45  ORE STR(FIELD:LE
000010: 4E 2C 32 29 20 54 4F 20 4D 2E 4D 46 49 45 4C 44  N,2) TO M.MFIELD
000020: 3A 4C 45 4E 0D 0A 20 20 20 20 20 20 20 20 4F 54  :LEN..        OT
000030: 48 45 0D 0A 20 20 20 20 20 20 20 20 20 20 53 54  HE..          ST
000040: 4F 52 45 20 53 54 52 28 46 49 45 4C 44 3A 4C 45  ORE STR(FIELD:LE
000050: 4E 2C 31 29 20 54 4F 20 4D 2E 4D 46 49 45 4C 44  N,1) TO M.MFIELD
000060: 3A 4C 45 4E 0D 0A 20 20 20 20 20 20 45 4E 44 43  :LEN..      ENDC
000070: 41 53 45 20 5B 20 63 68 61 6E 67 65 20 66 69 65  ASE [ change fie
000080: 6C 64 3A 6C 65 6E 20 74 6F 20 63 68 72 20 66 6F  ld:len to chr fo
000090: 72 20 64 69 73 70 6C 61 79 20 5D 20 0D 0A 20 20  r display ] ..  
0000A0: 20 20 20 20 40 20 4D 2E 4C 49 4E 45 2D 4D 2E 4F      @ M.LINE-M.O
0000B0: 46 46 53 45 54 2C 31 30 20 53 41 59 20 54 52 49  FFSET,10 SAY TRI
0000C0: 4D 28 46 49 45 4C 44 3A 4E 41 4D 45 29 2B 27 2C  M(FIELD:NAME)+',
0000D0: 27 2B 46 49 45 4C 44 3A 54 59 50 45 2B 27 2C 27  '+FIELD:TYPE+','
0000E0: 2B 4D 2E 4D 46 49 45 4C 44 3A 4C 45 4E 0D 0A 20  +M.MFIELD:LEN.. 
0000F0: 20 20 20 20 20 53 54 4F 52 45 20 46 49 45 4C 44       STORE FIELD
000100: 3A 4C 45 4E 2B 4D 2E 52 45 43 4C 45 4E 20 54 4F  :LEN+M.RECLEN TO
000110: 20 4D 2E 52 45 43 4C 45 4E 0D 0A 20 20 20 20 43   M.RECLEN..    C
000120: 41 53 45 20 46 49 45 4C 44 3A 54 59 50 45 20 3D  ASE FIELD:TYPE =
000130: 20 27 4E 27 0D 0A 20 20 20 20 20 20 2A 2A 2A 2A   'N'..      ****
000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000150: 0D 0A 20 20 20 20 20 20 2A 20 22 4E 22 20 46 49  ..      * "N" FI
000160: 45 4C 44 20 4C 45 4E 47 54 48 20 2A 0D 0A 20 20  ELD LENGTH *..  
000170: 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A      ************
000180: 2A 2A 2A 2A 2A 2A 2A 2A 0D 0A 20 20 20 20 20 20  ********..      
000190: 3F 20 27 20 20 20 20 20 20 20 20 20 20 20 20 20  ? '             
0001A0: 20 47 6F 6F 64 20 2E 2E 2E 20 4E 6F 77 20 74 68   Good ... Now th
0001B0: 65 20 4C 65 6E 67 74 68 20 6F 66 20 74 68 65 20  e Length of the 
0001C0: 66 69 65 6C 64 20 2E 2E 2E 2E 20 20 20 20 20 20  field ....      
0001D0: 20 27 20 20 0D 0A 20 20 20 20 20 20 40 20 31 39   '  ..      @ 19
0001E0: 2C 35 20 53 41 59 20 27 54 68 65 20 6C 65 6E 67  ,5 SAY 'The leng
0001F0: 74 68 20 6F 66 20 61 6E 20 22 4E 22 20 66 69 65  th of an "N" fie

Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 20 20 20 20 45 4C 53 45 0D 0A  ..        ELSE..
000010: 20 20 20 20 20 20 20 20 20 20 53 54 4F 52 45 20            STORE 
000020: 4E 20 54 4F 20 4D 46 49 52 53 54 0D 0A 20 20 20  N TO MFIRST..   
000030: 20 20 20 20 20 45 4E 44 49 46 0D 0A 20 20 20 20       ENDIF..    
000040: 20 20 20 20 52 45 41 44 0D 0A 20 20 20 20 20 20      READ..      
000050: 20 20 49 46 20 46 49 45 4C 44 3A 44 45 43 20 3C    IF FIELD:DEC <
000060: 3D 20 28 46 49 45 4C 44 3A 4C 45 4E 2D 32 29 20  = (FIELD:LEN-2) 
000070: 2E 41 4E 44 2E 20 46 49 45 4C 44 3A 44 45 43 20  .AND. FIELD:DEC 
000080: 3E 3D 20 30 0D 0A 20 20 20 20 20 20 20 20 20 20  >= 0..          
000090: 53 54 4F 52 45 20 54 20 54 4F 20 4E 55 4D 0D 0A  STORE T TO NUM..
0000A0: 20 20 20 20 20 20 20 20 45 4E 44 49 46 20 5B 20          ENDIF [ 
0000B0: 76 61 6C 69 64 61 74 65 20 44 65 63 69 6D 61 6C  validate Decimal
0000C0: 20 70 6C 61 63 65 73 20 5D 0D 0A 20 20 20 20 20   places ]..     
0000D0: 20 45 4E 44 44 4F 0D 0A 20 20 20 20 20 20 52 45   ENDDO..      RE
0000E0: 4C 45 41 53 45 20 4D 46 49 52 53 54 0D 0A 20 20  LEASE MFIRST..  
0000F0: 20 20 20 20 43 4C 45 41 52 20 47 45 54 53 0D 0A      CLEAR GETS..
000100: 20 20 20 20 20 20 49 46 20 46 49 45 4C 44 3A 44        IF FIELD:D
000110: 45 43 20 3E 20 39 0D 0A 20 20 20 20 20 20 20 20  EC > 9..        
000120: 53 54 4F 52 45 20 53 54 52 28 46 49 45 4C 44 3A  STORE STR(FIELD:
000130: 44 45 43 2C 32 29 20 54 4F 20 4D 2E 4D 46 49 45  DEC,2) TO M.MFIE
000140: 4C 44 3A 44 45 43 0D 0A 20 20 20 20 20 20 20 45  LD:DEC..       E
000150: 4C 53 45 0D 0A 20 20 20 20 20 20 20 20 53 54 4F  LSE..        STO
000160: 52 45 20 53 54 52 28 46 49 45 4C 44 3A 44 45 43  RE STR(FIELD:DEC
000170: 2C 31 29 20 54 4F 20 4D 2E 4D 46 49 45 4C 44 3A  ,1) TO M.MFIELD:
000180: 44 45 43 0D 0A 20 20 20 20 20 20 45 4E 44 49 46  DEC..      ENDIF
000190: 20 5B 20 63 68 61 6E 67 65 20 66 69 65 6C 64 3A   [ change field:
0001A0: 64 65 63 20 74 6F 20 63 68 72 20 66 6F 72 20 64  dec to chr for d
0001B0: 69 73 70 6C 61 79 20 5D 20 0D 0A 20 20 20 20 20  isplay ] ..     
0001C0: 20 40 20 4D 2E 4C 49 4E 45 2D 4D 2E 4F 46 46 53   @ M.LINE-M.OFFS
0001D0: 45 54 2C 31 30 20 53 41 59 20 54 52 49 4D 28 46  ET,10 SAY TRIM(F
0001E0: 49 45 4C 44 3A 4E 41 4D 45 29 2B 27 2C 27 2B 46  IELD:NAME)+','+F
0001F0: 49 45 4C 44 3A 54 59 50 45 2B 27 2C 27 3B 0D 0A  IELD:TYPE+',';..

Size : 512 (Real : 512)
000000: 6C 64 20 69 6E 63 6C 75 64 69 6E 67 20 31 20 66  ld including 1 f
000010: 6F 72 20 64 65 63 69 6D 61 6C 20 70 6F 69 6E 74  or decimal point
000020: 20 61 6E 64 27 0D 0A 20 20 20 20 20 20 40 20 32   and'..      @ 2
000030: 30 2C 35 20 53 41 59 20 27 20 74 68 65 20 64 65  0,5 SAY ' the de
000040: 63 69 6D 61 6C 20 70 6C 61 63 65 73 2E 20 49 74  cimal places. It
000050: 20 69 73 20 61 6C 73 6F 20 69 6D 70 6F 72 74 61   is also importa
000060: 6E 74 20 74 6F 20 72 65 6D 65 6D 62 65 72 20 74  nt to remember t
000070: 68 61 74 20 20 27 0D 0A 20 20 20 20 20 20 40 20  hat  '..      @ 
000080: 32 31 2C 35 20 53 41 59 20 27 64 42 41 53 45 20  21,5 SAY 'dBASE 
000090: 49 49 20 69 73 20 61 63 63 75 72 61 74 65 20 74  II is accurate t
0000A0: 6F 20 31 30 20 73 69 67 6E 69 66 69 63 61 6E 74  o 10 significant
0000B0: 20 66 69 67 75 72 65 73 20 2E 2E 2E 2E 2E 2E 20   figures ...... 
0000C0: 20 20 20 20 20 20 27 0D 0A 20 20 20 20 20 20 53        '..      S
0000D0: 54 4F 52 45 20 59 20 54 4F 20 4D 46 49 52 53 54  TORE Y TO MFIRST
0000E0: 0D 0A 20 20 20 20 20 20 44 4F 20 57 48 49 4C 45  ..      DO WHILE
0000F0: 20 46 49 45 4C 44 3A 4C 45 4E 20 3C 20 31 20 2E   FIELD:LEN < 1 .
000100: 4F 52 2E 20 46 49 45 4C 44 3A 4C 45 4E 20 3E 20  OR. FIELD:LEN > 
000110: 31 32 0D 0A 20 20 20 20 20 20 20 20 40 20 31 37  12..        @ 17
000120: 2C 30 0D 0A 20 20 20 20 20 20 20 20 40 20 31 37  ,0..        @ 17
000130: 2C 35 20 53 41 59 20 27 41 67 61 69 6E 20 49 20  ,5 SAY 'Again I 
000140: 77 69 6C 6C 20 68 65 6C 70 2E 20 45 6E 74 65 72  will help. Enter
000150: 20 4C 65 6E 67 74 68 20 27 20 47 45 54 20 46 49   Length ' GET FI
000160: 45 4C 44 3A 4C 45 4E 0D 0A 20 20 20 20 20 20 20  ELD:LEN..       
000170: 20 49 46 20 2E 4E 4F 54 2E 20 4D 2E 4D 46 49 52   IF .NOT. M.MFIR
000180: 53 54 0D 0A 20 20 20 20 20 20 20 20 20 20 40 20  ST..          @ 
000190: 31 37 2C 34 35 20 53 41 59 20 27 3C 2D 20 53 65  17,45 SAY '<- Se
0001A0: 6C 65 63 74 69 6F 6E 20 49 6E 76 61 6C 69 64 27  lection Invalid'
0001B0: 0D 0A 20 20 20 20 20 20 20 20 45 4C 53 45 0D 0A  ..        ELSE..
0001C0: 20 20 20 20 20 20 20 20 20 20 53 54 4F 52 45 20            STORE 
0001D0: 4E 20 54 4F 20 4D 46 49 52 53 54 0D 0A 20 20 20  N TO MFIRST..   
0001E0: 20 20 20 20 20 45 4E 44 49 46 0D 0A 20 20 20 20       ENDIF..    
0001F0: 20 20 20 20 52 45 41 44 0D 0A 20 20 20 20 20 20      READ..      

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 2B 4D 2E 4D 46 49 45 4C 44 3A        +M.MFIELD:
000010: 4C 45 4E 2B 27 2C 27 2B 4D 2E 4D 46 49 45 4C 44  LEN+','+M.MFIELD
000020: 3A 44 45 43 0D 0A 20 20 20 20 20 20 40 20 31 36  :DEC..      @ 16
000030: 2C 30 0D 0A 20 20 20 20 20 20 40 20 31 37 2C 30  ,0..      @ 17,0
000040: 0D 0A 20 20 20 20 20 20 40 20 31 38 2C 30 0D 0A  ..      @ 18,0..
000050: 20 20 20 20 20 20 40 20 31 39 2C 30 0D 0A 20 20        @ 19,0..  
000060: 20 20 20 20 40 20 32 30 2C 30 0D 0A 20 20 20 20      @ 20,0..    
000070: 20 20 40 20 32 31 2C 31 0D 0A 20 20 20 20 20 20    @ 21,1..      
000080: 4F 54 48 45 52 57 49 53 45 0D 0A 20 20 20 20 20  OTHERWISE..     
000090: 20 49 46 20 4D 2E 52 45 43 4C 45 4E 2B 31 20 3E   IF M.RECLEN+1 >
0000A0: 20 31 30 30 30 0D 0A 20 20 20 20 20 20 20 20 40   1000..        @
0000B0: 20 31 38 2C 30 0D 0A 20 20 20 20 20 20 20 20 40   18,0..        @
0000C0: 20 31 39 2C 30 0D 0A 20 20 20 20 20 20 20 20 40   19,0..        @
0000D0: 20 32 30 2C 30 0D 0A 20 20 20 20 20 20 20 20 40   20,0..        @
0000E0: 20 32 31 2C 31 0D 0A 20 20 20 20 20 20 20 20 40   21,1..        @
0000F0: 20 32 30 2C 35 20 53 41 59 20 27 54 68 65 20 6F   20,5 SAY 'The o
000100: 76 65 72 61 6C 6C 20 6C 65 6E 67 74 68 20 6F 66  verall length of
000110: 20 79 6F 75 72 20 72 65 63 6F 72 64 20 69 73 20   your record is 
000120: 27 2B 73 74 72 28 72 65 63 6C 65 6E 2C 34 29 0D  '+str(reclen,4).
000130: 0A 20 20 20 20 20 20 20 20 40 20 32 31 2C 35 20  .        @ 21,5 
000140: 53 41 59 20 27 57 69 74 68 20 74 68 69 73 20 66  SAY 'With this f
000150: 69 65 6C 64 20 6C 65 6E 67 74 68 20 69 74 20 77  ield length it w
000160: 6F 75 6C 64 20 62 65 20 6F 76 65 72 20 31 30 30  ould be over 100
000170: 30 2E 27 0D 0A 20 20 20 20 20 20 20 20 52 45 50  0.'..        REP
000180: 4C 41 43 45 20 46 49 45 4C 44 3A 4C 45 4E 20 57  LACE FIELD:LEN W
000190: 49 54 48 20 30 2C 46 49 45 4C 44 3A 4E 41 4D 45  ITH 0,FIELD:NAME
0001A0: 20 57 49 54 48 20 27 20 20 20 20 20 20 20 20 20   WITH '         
0001B0: 20 27 2C 3B 0D 0A 20 20 20 20 20 20 20 20 46 49   ',;..        FI
0001C0: 45 4C 44 3A 54 59 50 45 20 57 49 54 48 20 27 20  ELD:TYPE WITH ' 
0001D0: 27 0D 0A 20 20 20 20 20 20 20 20 64 65 6C 65 20  '..        dele 
0001E0: 0D 0A 20 20 20 20 20 20 20 20 73 74 6F 72 65 20  ..        store 
0001F0: 66 20 74 6F 20 63 6F 6E 74 0D 0A 20 20 20 20 20  f to cont..     

Size : 512 (Real : 512)
000000: 20 20 49 46 20 4D 2E 52 45 43 4C 45 4E 2B 46 49    IF M.RECLEN+FI
000010: 45 4C 44 3A 4C 45 4E 20 3E 20 31 30 30 30 0D 0A  ELD:LEN > 1000..
000020: 20 20 20 20 20 20 20 20 20 20 40 20 31 38 2C 30            @ 18,0
000030: 0D 0A 20 20 20 20 20 20 20 20 20 20 40 20 31 39  ..          @ 19
000040: 2C 30 0D 0A 20 20 20 20 20 20 20 20 20 20 40 20  ,0..          @ 
000050: 32 30 2C 30 0D 0A 20 20 20 20 20 20 20 20 20 20  20,0..          
000060: 40 20 32 31 2C 31 0D 0A 20 20 20 20 20 20 20 20  @ 21,1..        
000070: 20 20 40 20 32 30 2C 35 20 53 41 59 20 27 54 68    @ 20,5 SAY 'Th
000080: 65 20 6F 76 65 72 61 6C 6C 20 6C 65 6E 67 74 68  e overall length
000090: 20 6F 66 20 79 6F 75 72 20 72 65 63 6F 72 64 20   of your record 
0000A0: 69 73 20 27 2B 73 74 72 28 72 65 63 6C 65 6E 2C  is '+str(reclen,
0000B0: 34 29 0D 0A 20 20 20 20 20 20 20 20 20 20 40 20  4)..          @ 
0000C0: 32 31 2C 35 20 53 41 59 20 27 57 69 74 68 20 74  21,5 SAY 'With t
0000D0: 68 69 73 20 66 69 65 6C 64 20 6C 65 6E 67 74 68  his field length
0000E0: 20 69 74 20 77 6F 75 6C 64 20 62 65 20 6F 76 65   it would be ove
0000F0: 72 20 31 30 30 30 2E 27 0D 0A 20 20 20 20 20 20  r 1000.'..      
000100: 20 20 20 20 52 45 50 4C 41 43 45 20 46 49 45 4C      REPLACE FIEL
000110: 44 3A 4C 45 4E 20 57 49 54 48 20 30 0D 0A 20 20  D:LEN WITH 0..  
000120: 20 20 20 20 20 20 20 20 53 54 4F 52 45 20 31 20          STORE 1 
000130: 54 4F 20 43 0D 0A 20 20 20 20 20 20 20 20 20 20  TO C..          
000140: 44 4F 20 57 48 49 4C 45 20 43 20 3C 20 32 35 0D  DO WHILE C < 25.
000150: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54  .             ST
000160: 4F 52 45 20 43 2B 31 20 54 4F 20 43 0D 0A 20 20  ORE C+1 TO C..  
000170: 20 20 20 20 20 20 20 20 45 4E 44 44 4F 0D 0A 20          ENDDO.. 
000180: 20 20 20 20 20 20 20 20 20 40 20 31 36 2C 30 0D           @ 16,0.
000190: 0A 20 20 20 20 20 20 20 20 20 20 40 20 31 37 2C  .          @ 17,
0001A0: 30 0D 0A 20 20 20 20 20 20 20 20 20 20 40 20 32  0..          @ 2
0001B0: 30 2C 30 0D 0A 20 20 20 20 20 20 20 20 20 20 40  0,0..          @
0001C0: 20 32 31 2C 31 0D 0A 20 20 20 20 20 20 20 20 45   21,1..        E
0001D0: 4E 44 49 46 20 0D 0A 20 20 20 20 20 20 45 4E 44  NDIF ..      END
0001E0: 44 4F 0D 0A 20 20 20 20 20 20 52 45 4C 45 41 53  DO..      RELEAS
0001F0: 45 20 4D 46 49 52 53 54 0D 0A 20 20 20 20 20 20  E MFIRST..      

Size : 512 (Real : 512)
000000: 20 20 20 53 54 4F 52 45 20 31 20 54 4F 20 43 0D     STORE 1 TO C.
000010: 0A 20 20 20 20 20 20 20 20 44 4F 20 57 48 49 4C  .        DO WHIL
000020: 45 20 43 20 3C 20 32 35 0D 0A 20 20 20 20 20 20  E C < 25..      
000030: 20 20 20 20 53 54 4F 52 45 20 43 2B 31 20 54 4F      STORE C+1 TO
000040: 20 43 0D 0A 20 20 20 20 20 20 20 20 45 4E 44 44   C..        ENDD
000050: 4F 0D 0A 20 20 20 20 20 20 20 20 6C 6F 6F 70 0D  O..        loop.
000060: 0A 20 20 20 20 20 20 45 4C 53 45 0D 0A 20 20 20  .      ELSE..   
000070: 20 20 20 20 20 53 54 4F 52 45 20 4D 2E 52 45 43       STORE M.REC
000080: 4C 45 4E 2B 31 20 54 4F 20 4D 2E 52 45 43 4C 45  LEN+1 TO M.RECLE
000090: 4E 0D 0A 20 20 20 20 20 20 20 20 40 20 4D 2E 4C  N..        @ M.L
0000A0: 49 4E 45 2D 4D 2E 4F 46 46 53 45 54 2C 31 30 20  INE-M.OFFSET,10 
0000B0: 53 41 59 20 54 52 49 4D 28 46 49 45 4C 44 3A 4E  SAY TRIM(FIELD:N
0000C0: 41 4D 45 29 2B 27 2C 27 2B 46 49 45 4C 44 3A 54  AME)+','+FIELD:T
0000D0: 59 50 45 20 20 20 20 20 20 0D 0A 20 20 20 20 20  YPE      ..     
0000E0: 20 45 4E 44 49 46 20 0D 0A 20 20 45 4E 44 43 41   ENDIF ..  ENDCA
0000F0: 53 45 0D 0A 20 20 53 54 4F 52 45 20 4D 2E 4C 49  SE..  STORE M.LI
000100: 4E 45 2B 31 20 54 4F 20 4D 2E 4C 49 4E 45 0D 0A  NE+1 TO M.LINE..
000110: 20 20 40 20 4D 2E 4C 49 4E 45 2D 4D 2E 4F 46 46    @ M.LINE-M.OFF
000120: 53 45 54 2C 30 20 0D 0A 20 20 49 46 20 4D 2E 4C  SET,0 ..  IF M.L
000130: 49 4E 45 3E 31 34 0D 0A 20 20 20 20 53 54 4F 52  INE>14..    STOR
000140: 45 20 4D 2E 4F 46 46 53 45 54 2B 31 20 54 4F 20  E M.OFFSET+1 TO 
000150: 4D 2E 4F 46 46 53 45 54 0D 0A 20 20 20 20 40 20  M.OFFSET..    @ 
000160: 30 2C 30 0D 0A 20 20 20 20 40 20 31 2C 30 0D 0A  0,0..    @ 1,0..
000170: 20 20 20 20 40 20 32 2C 30 0D 0A 20 20 20 20 40      @ 2,0..    @
000180: 20 31 37 2C 30 0D 0A 20 20 20 20 40 20 31 38 2C   17,0..    @ 18,
000190: 30 0D 0A 20 20 20 20 40 20 31 39 2C 30 0D 0A 20  0..    @ 19,0.. 
0001A0: 20 20 20 40 20 32 30 2C 30 0D 0A 20 20 20 20 40     @ 20,0..    @
0001B0: 20 32 31 2C 31 0D 0A 20 20 20 20 40 20 32 33 2C   21,1..    @ 23,
0001C0: 30 20 53 41 59 20 4D 2E 42 4C 41 4E 4B 20 0D 0A  0 SAY M.BLANK ..
0001D0: 20 20 20 20 3F 0D 0A 20 20 20 20 3F 0D 0A 20 20      ?..    ?..  
0001E0: 20 20 40 20 30 2C 30 0D 0A 20 20 20 20 54 45 58    @ 0,0..    TEX
0001F0: 54 0D 0A 0D 0A 57 45 4C 43 4F 4D 45 20 20 20 20  T....WELCOME    

Size : 512 (Real : 512)
000000: 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 20 20  CLEAR GETS..    
000010: 20 20 53 54 4F 52 45 20 4D 2E 52 45 43 4C 45 4E    STORE M.RECLEN
000020: 2B 46 49 45 4C 44 3A 4C 45 4E 20 54 4F 20 4D 2E  +FIELD:LEN TO M.
000030: 52 45 43 4C 45 4E 0D 0A 20 20 20 20 20 20 49 46  RECLEN..      IF
000040: 20 46 49 45 4C 44 3A 4C 45 4E 20 3E 20 39 0D 0A   FIELD:LEN > 9..
000050: 20 20 20 20 20 20 20 20 53 54 4F 52 45 20 53 54          STORE ST
000060: 52 28 46 49 45 4C 44 3A 4C 45 4E 2C 32 29 20 54  R(FIELD:LEN,2) T
000070: 4F 20 4D 2E 4D 46 49 45 4C 44 3A 4C 45 4E 0D 0A  O M.MFIELD:LEN..
000080: 20 20 20 20 20 20 20 45 4C 53 45 0D 0A 20 20 20         ELSE..   
000090: 20 20 20 20 20 53 54 4F 52 45 20 53 54 52 28 46       STORE STR(F
0000A0: 49 45 4C 44 3A 4C 45 4E 2C 31 29 20 54 4F 20 4D  IELD:LEN,1) TO M
0000B0: 2E 4D 46 49 45 4C 44 3A 4C 45 4E 0D 0A 20 20 20  .MFIELD:LEN..   
0000C0: 20 20 20 45 4E 44 49 46 20 5B 20 63 68 61 6E 67     ENDIF [ chang
0000D0: 65 20 66 69 65 6C 64 3A 6C 65 6E 20 74 6F 20 63  e field:len to c
0000E0: 68 72 20 66 6F 72 20 64 69 73 70 6C 61 79 20 5D  hr for display ]
0000F0: 20 0D 0A 20 20 20 20 20 20 40 20 4D 2E 4C 49 4E   ..      @ M.LIN
000100: 45 2D 4D 2E 4F 46 46 53 45 54 2C 31 30 20 53 41  E-M.OFFSET,10 SA
000110: 59 20 54 52 49 4D 28 46 49 45 4C 44 3A 4E 41 4D  Y TRIM(FIELD:NAM
000120: 45 29 2B 27 2C 27 2B 46 49 45 4C 44 3A 54 59 50  E)+','+FIELD:TYP
000130: 45 2B 27 2C 27 2B 4D 2E 4D 46 49 45 4C 44 3A 4C  E+','+M.MFIELD:L
000140: 45 4E 2B 27 2C 27 0D 0A 20 20 20 20 20 20 2A 2A  EN+','..      **
000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000160: 2A 2A 2A 2A 0D 0A 20 20 20 20 20 20 2A 20 22 4E  ****..      * "N
000170: 22 20 46 49 45 4C 44 20 44 45 43 49 4D 41 4C 53  " FIELD DECIMALS
000180: 20 2A 0D 0A 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A   *..      ******
000190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
0001A0: 0D 0A 20 20 20 20 20 20 3F 20 27 20 20 20 20 20  ..      ? '     
0001B0: 20 20 20 20 20 20 20 20 20 47 6F 6F 64 20 2E 2E           Good ..
0001C0: 2E 20 4E 6F 77 20 74 68 65 20 6E 75 6D 62 65 72  . Now the number
0001D0: 20 6F 66 20 64 65 63 69 6D 61 6C 20 70 6C 61 63   of decimal plac
0001E0: 65 73 20 2E 2E 2E 2E 20 20 27 20 20 0D 0A 20 20  es ....  '  ..  
0001F0: 20 20 20 20 40 20 31 36 2C 30 0D 0A 20 20 20 20      @ 16,0..    

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000010: 20 43 52 45 41 54 45 20 41 20 44 41 54 41 42 41   CREATE A DATABA
000020: 53 45 20 46 49 4C 45 20 20 20 20 20 20 20 20 20  SE FILE         
000030: 20 20 20 20 20 20 20 20 20 20 20 64 42 41 53 45             dBASE
000040: 20 49 49 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D   II..-----------
000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000090: 2D 2D 2D 2D 0D 0A 20 20 20 20 45 4E 44 54 45 58  ----..    ENDTEX
0000A0: 54 0D 0A 20 20 20 20 40 20 31 2C 30 0D 0A 20 20  T..    @ 1,0..  
0000B0: 20 20 40 20 32 2C 30 0D 0A 20 20 20 20 40 20 32    @ 2,0..    @ 2
0000C0: 32 2C 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D 2D  2,1 SAY '-------
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000100: 2D 2D 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  --';..          
000110: 20 20 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D     + '----------
000120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 20 20 20  ----------'..   
000130: 20 40 20 32 31 2C 31 0D 0A 20 20 45 4E 44 49 46   @ 21,1..  ENDIF
000140: 0D 0A 20 20 41 50 50 45 4E 44 20 42 4C 41 4E 4B  ..  APPEND BLANK
000150: 0D 0A 45 4E 44 44 4F 0D 0A 0D 0A 2A 2A 2A 2A 2A  ..ENDDO....*****
000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 4D 4A  ************* MJ
000170: 47 20 2D 20 31 39 2F 30 37 2F 38 34 0D 0A 69 66  G - 19/07/84..if
000180: 20 6C 69 6E 65 20 3E 3D 20 32 32 0D 0A 20 20 40   line >= 22..  @
000190: 20 32 30 2C 35 20 73 61 79 20 27 64 42 41 53 45   20,5 say 'dBASE
0001A0: 20 49 49 20 77 69 6C 6C 20 61 6C 6C 6F 77 20 75   II will allow u
0001B0: 70 20 74 6F 20 33 32 20 66 69 65 6C 64 73 2E 27  p to 32 fields.'
0001C0: 0D 0A 20 20 40 20 32 31 2C 35 20 73 61 79 20 27  ..  @ 21,5 say '
0001D0: 57 45 4C 43 4F 4D 45 2C 20 66 6F 72 20 74 68 65  WELCOME, for the
0001E0: 20 73 61 6B 65 20 6F 66 20 73 69 6D 70 6C 69 63   sake of simplic
0001F0: 69 74 79 2C 20 77 69 6C 6C 20 6F 6E 6C 79 20 61  ity, will only a

Size : 512 (Real : 512)
000000: 31 2C 31 20 53 41 59 20 27 57 45 4C 43 4F 4D 45  1,1 SAY 'WELCOME
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000020: 20 20 20 20 20 20 20 4F 50 45 4E 2F 43 4C 4F 53         OPEN/CLOS
000030: 45 20 41 20 46 49 4C 45 27 0D 0A 20 20 40 20 31  E A FILE'..  @ 1
000040: 2C 37 31 20 53 41 59 20 27 64 42 41 53 45 20 49  ,71 SAY 'dBASE I
000050: 49 27 0D 0A 20 20 40 20 32 2C 31 20 53 41 59 20  I'..  @ 2,1 SAY 
000060: 55 4E 44 45 52 4C 4E 0D 0A 20 20 40 20 32 32 2C  UNDERLN..  @ 22,
000070: 31 20 53 41 59 20 55 4E 44 45 52 4C 4E 0D 0A 20  1 SAY UNDERLN.. 
000080: 20 40 20 32 33 2C 30 20 53 41 59 20 27 2E 20 55   @ 23,0 SAY '. U
000090: 53 45 27 0D 0A 20 20 49 46 20 46 49 4C 45 20 28  SE'..  IF FILE (
0000A0: 20 27 54 45 4D 50 53 54 52 55 2E 44 42 46 27 20   'TEMPSTRU.DBF' 
0000B0: 29 0D 0A 20 20 20 20 20 44 45 4C 45 54 45 20 46  )..     DELETE F
0000C0: 49 4C 45 20 54 45 4D 50 53 54 52 55 2E 44 42 46  ILE TEMPSTRU.DBF
0000D0: 0D 0A 20 20 45 4E 44 49 46 0D 0A 20 20 49 46 20  ..  ENDIF..  IF 
0000E0: 46 49 4C 45 20 28 20 27 54 45 4D 50 53 54 52 31  FILE ( 'TEMPSTR1
0000F0: 2E 44 42 46 27 20 29 0D 0A 20 20 20 20 20 44 45  .DBF' )..     DE
000100: 4C 45 54 45 20 46 49 4C 45 20 54 45 4D 50 53 54  LETE FILE TEMPST
000110: 52 31 2E 44 42 46 0D 0A 20 20 45 4E 44 49 46 0D  R1.DBF..  ENDIF.
000120: 0A 20 20 49 46 20 46 49 4C 45 20 28 20 27 54 45  .  IF FILE ( 'TE
000130: 4D 50 2E 44 42 46 27 20 29 0D 0A 20 20 20 20 20  MP.DBF' )..     
000140: 44 45 4C 45 54 45 20 46 49 4C 45 20 54 45 4D 50  DELETE FILE TEMP
000150: 2E 44 42 46 0D 0A 20 20 45 4E 44 49 46 0D 0A 20  .DBF..  ENDIF.. 
000160: 20 40 20 34 2C 35 20 53 41 59 20 27 4E 65 78 74   @ 4,5 SAY 'Next
000170: 20 64 42 41 53 45 20 49 49 20 72 65 71 75 69 72   dBASE II requir
000180: 65 73 20 74 68 65 20 66 69 6C 65 6E 61 6D 65 2C  es the filename,
000190: 20 3B 0D 0A 73 65 6C 65 63 74 20 66 72 6F 6D 20   ;..select from 
0001A0: 74 68 65 20 66 6F 6C 6C 6F 77 69 6E 67 27 0D 0A  the following'..
0001B0: 20 20 40 20 35 2C 30 0D 0A 20 20 4C 49 53 54 20    @ 5,0..  LIST 
0001C0: 46 49 4C 45 53 20 4C 49 4B 45 20 2A 2E 44 42 46  FILES LIKE *.DBF
0001D0: 0D 0A 20 20 53 54 4F 52 45 20 27 20 20 20 20 20  ..  STORE '     
0001E0: 20 20 20 27 20 54 4F 20 43 46 49 4C 45 0D 0A 20     ' TO CFILE.. 
0001F0: 20 53 54 4F 52 45 20 46 20 54 4F 20 56 41 4C 49   STORE F TO VALI

Size : 512 (Real : 512)
000000: 6C 6C 6F 77 20 31 34 2E 27 0D 0A 65 6E 64 69 66  llow 14.'..endif
000010: 0D 0A 73 74 6F 72 65 20 31 20 74 6F 20 63 0D 0A  ..store 1 to c..
000020: 64 6F 20 77 68 69 6C 65 20 4D 2E 63 20 3C 20 33  do while M.c < 3
000030: 30 0D 0A 20 20 73 74 6F 72 65 20 4D 2E 63 2B 31  0..  store M.c+1
000040: 20 74 6F 20 4D 2E 63 0D 0A 65 6E 64 64 6F 0D 0A   to M.c..enddo..
000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A  ****************
000060: 2A 2A 20 0D 0A 0D 0A 49 46 20 46 49 45 4C 44 3A  ** ....IF FIELD:
000070: 4E 41 4D 45 20 3D 20 27 20 20 20 20 20 20 20 20  NAME = '        
000080: 20 20 27 0D 0A 20 20 44 45 4C 45 0D 0A 20 20 50    '..  DELE..  P
000090: 41 43 4B 0D 0A 45 4E 44 49 46 20 5B 20 72 65 6D  ACK..ENDIF [ rem
0000A0: 6F 76 65 20 6C 61 73 74 20 72 65 63 6F 72 64 20  ove last record 
0000B0: 69 66 20 62 6C 61 6E 6B 20 5D 0D 0A 43 52 45 41  if blank ]..CREA
0000C0: 54 45 20 26 43 46 49 4C 45 20 46 52 4F 4D 20 54  TE &CFILE FROM T
0000D0: 45 4D 50 0D 0A 40 20 31 37 2C 30 0D 0A 40 20 31  EMP..@ 17,0..@ 1
0000E0: 38 2C 30 0D 0A 40 20 31 39 2C 30 0D 0A 40 20 32  8,0..@ 19,0..@ 2
0000F0: 30 2C 30 0D 0A 40 20 32 31 2C 30 0D 0A 40 20 32  0,0..@ 21,0..@ 2
000100: 33 2C 30 20 4D 2E 42 4C 41 4E 4B 0D 0A 40 20 31  3,0 M.BLANK..@ 1
000110: 31 2C 32 37 20 53 41 59 20 27 52 45 54 55 52 4E  1,27 SAY 'RETURN
000120: 49 4E 47 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55  ING TO MAIN MENU
000130: 27 0D 0A 40 20 32 30 2C 31 0D 0A 52 45 4C 45 41  '..@ 20,1..RELEA
000140: 53 45 20 41 4C 4C 20 45 58 43 45 50 54 20 4D 46  SE ALL EXCEPT MF
000150: 49 4C 45 0D 0A 53 45 4C 45 20 53 45 43 4F 0D 0A  ILE..SELE SECO..
000160: 55 53 45 0D 0A 53 45 4C 45 20 50 52 49 4D 0D 0A  USE..SELE PRIM..
000170: 55 53 45 20 26 4D 46 49 4C 45 0D 0A 44 45 4C 45  USE &MFILE..DELE
000180: 54 45 20 46 49 4C 45 20 54 45 4D 50 2E 44 42 46  TE FILE TEMP.DBF
000190: 0D 0A 52 45 54 55 52 4E 0D 0A 1A 1A 1A 1A 1A 1A  ..RETURN........
0001A0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0001B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0001C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0001D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0001E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0001F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................

Size : 512 (Real : 512)
000000: 44 0D 0A 20 20 44 4F 20 57 48 49 4C 45 20 2E 4E  D..  DO WHILE .N
000010: 4F 54 2E 20 4D 2E 56 41 4C 49 44 0D 0A 20 20 20  OT. M.VALID..   
000020: 20 40 20 31 37 2C 34 32 20 53 41 59 20 27 5B 42   @ 17,42 SAY '[B
000030: 6C 61 6E 6B 20 74 6F 20 66 69 6E 69 73 68 5D 27  lank to finish]'
000040: 0D 0A 20 20 20 20 40 20 31 37 2C 35 20 53 41 59  ..    @ 17,5 SAY
000050: 20 27 50 6C 65 61 73 65 20 65 6E 74 65 72 20 66   'Please enter f
000060: 69 6C 65 20 6E 61 6D 65 2E 20 27 20 47 45 54 20  ile name. ' GET 
000070: 4D 2E 43 46 49 4C 45 20 50 49 43 54 20 27 21 21  M.CFILE PICT '!!
000080: 21 21 21 21 21 21 27 0D 0A 20 20 20 20 40 20 31  !!!!!!'..    @ 1
000090: 39 2C 35 20 53 41 59 20 27 54 68 65 20 2E 44 42  9,5 SAY 'The .DB
0000A0: 46 20 73 75 66 66 69 78 20 69 73 20 6E 6F 74 20  F suffix is not 
0000B0: 72 65 71 75 69 72 65 64 27 0D 0A 20 20 20 20 52  required'..    R
0000C0: 45 41 44 0D 0A 20 20 20 20 43 4C 45 41 52 20 47  EAD..    CLEAR G
0000D0: 45 54 53 0D 0A 20 20 20 20 49 46 20 4D 2E 43 46  ETS..    IF M.CF
0000E0: 49 4C 45 20 3D 20 27 20 20 20 20 20 20 20 20 27  ILE = '        '
0000F0: 0D 0A 20 20 20 20 20 20 45 52 41 53 45 0D 0A 20  ..      ERASE.. 
000100: 20 20 20 20 20 40 20 31 2C 31 20 53 41 59 20 27       @ 1,1 SAY '
000110: 57 45 4C 43 4F 4D 45 20 20 20 20 20 20 20 20 20  WELCOME         
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4F 50                OP
000130: 45 4E 2F 43 4C 4F 53 45 20 41 20 46 49 4C 45 27  EN/CLOSE A FILE'
000140: 0D 0A 20 20 20 20 20 20 40 20 31 2C 37 31 20 53  ..      @ 1,71 S
000150: 41 59 20 27 64 42 41 53 45 20 49 49 27 0D 0A 20  AY 'dBASE II'.. 
000160: 20 20 20 20 20 40 20 32 2C 31 20 53 41 59 20 55       @ 2,1 SAY U
000170: 4E 44 45 52 4C 4E 0D 0A 20 20 20 20 20 20 40 20  NDERLN..      @ 
000180: 32 32 2C 31 20 53 41 59 20 55 4E 44 45 52 4C 4E  22,1 SAY UNDERLN
000190: 0D 0A 20 20 20 20 20 20 40 20 31 31 2C 32 37 20  ..      @ 11,27 
0001A0: 53 41 59 20 27 52 45 54 55 52 4E 49 4E 47 20 54  SAY 'RETURNING T
0001B0: 4F 20 4D 41 49 4E 20 4D 45 4E 55 27 0D 0A 20 20  O MAIN MENU'..  
0001C0: 20 20 20 20 40 20 32 30 2C 31 0D 0A 20 20 20 20      @ 20,1..    
0001D0: 20 20 53 54 4F 52 45 20 31 20 54 4F 20 43 0D 0A    STORE 1 TO C..
0001E0: 20 20 20 20 20 20 44 4F 20 57 48 49 4C 45 20 43        DO WHILE C
0001F0: 20 3C 20 32 35 0D 0A 20 20 20 20 20 20 20 20 53   < 25..        S

Size : 512 (Real : 512)
000000: 53 54 4F 52 45 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D  STORE '---------
000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20  --------------' 
000030: 54 4F 20 55 4E 44 45 52 4C 4E 0D 0A 53 54 4F 52  TO UNDERLN..STOR
000040: 45 20 27 20 20 20 20 20 20 20 20 20 20 20 20 20  E '             
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000070: 20 27 20 54 4F 20 42 4C 41 4E 4B 0D 0A 53 54 4F   ' TO BLANK..STO
000080: 52 45 20 55 4E 44 45 52 4C 4E 2B 55 4E 44 45 52  RE UNDERLN+UNDER
000090: 4C 4E 20 54 4F 20 55 4E 44 45 52 4C 4E 0D 0A 45  LN TO UNDERLN..E
0000A0: 52 41 53 45 0D 0A 40 20 31 2C 31 20 53 41 59 20  RASE..@ 1,1 SAY 
0000B0: 27 57 45 4C 43 4F 4D 45 20 20 20 20 20 20 20 20  'WELCOME        
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4F                 O
0000D0: 50 45 4E 2F 43 4C 4F 53 45 20 41 20 46 49 4C 45  PEN/CLOSE A FILE
0000E0: 27 0D 0A 40 20 31 2C 37 31 20 53 41 59 20 27 64  '..@ 1,71 SAY 'd
0000F0: 42 41 53 45 20 49 49 27 0D 0A 40 20 32 2C 31 20  BASE II'..@ 2,1 
000100: 53 41 59 20 55 4E 44 45 52 4C 4E 0D 0A 40 20 38  SAY UNDERLN..@ 8
000110: 2C 32 30 20 73 61 79 20 27 41 2E 20 20 4F 70 65  ,20 say 'A.  Ope
000120: 6E 20 61 20 66 69 6C 65 27 0D 0A 40 20 31 30 2C  n a file'..@ 10,
000130: 32 30 20 53 41 59 20 27 42 2E 20 20 43 6C 6F 73  20 SAY 'B.  Clos
000140: 65 20 61 20 66 69 6C 65 27 0D 0A 40 20 31 32 2C  e a file'..@ 12,
000150: 32 30 20 53 41 59 20 27 58 2E 20 20 52 65 74 75  20 SAY 'X.  Retu
000160: 72 6E 20 74 6F 20 6D 61 69 6E 20 6D 65 6E 75 27  rn to main menu'
000170: 0D 0A 40 20 32 32 2C 31 20 53 41 59 20 55 4E 44  ..@ 22,1 SAY UND
000180: 45 52 4C 4E 0D 0A 53 54 4F 52 45 20 27 20 27 20  ERLN..STORE ' ' 
000190: 54 4F 20 52 45 50 4C 59 0D 0A 53 54 4F 52 45 20  TO REPLY..STORE 
0001A0: 59 20 20 20 54 4F 20 4D 46 49 52 53 54 0D 0A 44  Y   TO MFIRST..D
0001B0: 4F 20 57 48 49 4C 45 20 2E 4E 4F 54 2E 20 4D 2E  O WHILE .NOT. M.
0001C0: 52 45 50 4C 59 24 27 41 42 58 27 0D 0A 20 20 40  REPLY$'ABX'..  @
0001D0: 20 32 31 2C 30 0D 0A 20 20 40 20 32 31 2C 35 20   21,0..  @ 21,5 
0001E0: 53 41 59 20 27 50 6C 65 61 73 65 20 65 6E 74 65  SAY 'Please ente
0001F0: 72 20 6F 70 74 69 6F 6E 20 2D 20 27 20 0D 0A 20  r option - ' .. 

Size : 512 (Real : 512)
000000: 54 4F 52 45 20 43 2B 31 20 54 4F 20 43 0D 0A 20  TORE C+1 TO C.. 
000010: 20 20 20 20 20 45 4E 44 44 4F 0D 0A 20 20 20 20       ENDDO..    
000020: 20 20 53 45 4C 45 20 53 45 43 4F 0D 0A 20 20 20    SELE SECO..   
000030: 20 20 20 55 53 45 20 0D 0A 20 20 20 20 20 20 53     USE ..      S
000040: 45 4C 45 20 50 52 49 4D 0D 0A 20 20 20 20 20 20  ELE PRIM..      
000050: 55 53 45 20 26 4D 46 49 4C 45 20 0D 0A 20 20 20  USE &MFILE ..   
000060: 20 20 20 52 45 4C 45 41 53 45 20 41 4C 4C 20 45     RELEASE ALL E
000070: 58 43 45 50 54 20 4D 46 49 4C 45 0D 0A 20 20 20  XCEPT MFILE..   
000080: 20 20 20 52 45 54 55 52 4E 0D 0A 20 20 20 20 45     RETURN..    E
000090: 4E 44 49 46 20 5B 20 42 6C 61 6E 6B 20 66 69 6C  NDIF [ Blank fil
0000A0: 65 20 6E 61 6D 65 20 5D 0D 0A 20 20 20 20 53 54  e name ]..    ST
0000B0: 4F 52 45 20 54 52 49 4D 28 4D 2E 43 46 49 4C 45  ORE TRIM(M.CFILE
0000C0: 29 20 54 4F 20 4D 54 45 53 54 20 0D 0A 20 20 20  ) TO MTEST ..   
0000D0: 20 53 54 4F 52 45 20 27 20 27 20 54 4F 20 45 52   STORE ' ' TO ER
0000E0: 52 31 2C 45 52 52 32 0D 0A 20 20 20 20 53 54 4F  R1,ERR2..    STO
0000F0: 52 45 20 54 20 54 4F 20 4D 53 47 0D 0A 20 20 20  RE T TO MSG..   
000100: 20 49 46 20 2E 4E 4F 54 2E 20 24 28 4D 2E 4D 54   IF .NOT. $(M.MT
000110: 45 53 54 2C 31 2C 31 29 24 27 41 42 43 44 45 46  EST,1,1)$'ABCDEF
000120: 47 48 49 4A 4B 4C 4D 4E 4F 50 51 52 53 54 55 56  GHIJKLMNOPQRSTUV
000130: 57 58 59 5A 27 0D 0A 20 20 20 20 20 20 53 54 4F  WXYZ'..      STO
000140: 52 45 20 46 20 54 4F 20 4D 53 47 0D 0A 20 20 20  RE F TO MSG..   
000150: 20 20 20 53 54 4F 52 45 20 45 52 52 31 2B 27 5E     STORE ERR1+'^
000160: 27 20 54 4F 20 45 52 52 31 0D 0A 20 20 20 20 20  ' TO ERR1..     
000170: 20 53 54 4F 52 45 20 45 52 52 32 2B 27 21 27 20   STORE ERR2+'!' 
000180: 54 4F 20 45 52 52 32 20 0D 0A 20 20 20 20 20 45  TO ERR2 ..     E
000190: 4C 53 45 0D 0A 20 20 20 20 20 20 53 54 4F 52 45  LSE..      STORE
0001A0: 20 45 52 52 31 2B 27 20 27 20 54 4F 20 45 52 52   ERR1+' ' TO ERR
0001B0: 31 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 20 45  1..      STORE E
0001C0: 52 52 32 2B 27 20 27 20 54 4F 20 45 52 52 32 0D  RR2+' ' TO ERR2.
0001D0: 0A 20 20 20 20 45 4E 44 49 46 0D 0A 20 20 20 20  .    ENDIF..    
0001E0: 53 54 4F 52 45 20 32 20 54 4F 20 43 0D 0A 20 20  STORE 2 TO C..  
0001F0: 20 20 44 4F 20 57 48 49 4C 45 20 4D 2E 43 20 3C    DO WHILE M.C <

Size : 512 (Real : 512)
000000: 20 40 20 32 31 2C 31 20 47 45 54 20 4D 2E 52 45   @ 21,1 GET M.RE
000010: 50 4C 59 20 70 69 63 74 20 27 21 27 0D 0A 20 20  PLY pict '!'..  
000020: 49 46 20 2E 4E 4F 54 2E 20 4D 2E 4D 46 49 52 53  IF .NOT. M.MFIRS
000030: 54 0D 0A 20 20 20 20 40 20 32 31 2C 33 30 20 53  T..    @ 21,30 S
000040: 41 59 20 27 3C 2D 20 53 65 6C 65 63 74 69 6F 6E  AY '<- Selection
000050: 20 49 6E 76 61 6C 69 64 27 0D 0A 20 20 45 4C 53   Invalid'..  ELS
000060: 45 0D 0A 20 20 20 20 53 54 4F 52 45 20 4E 20 54  E..    STORE N T
000070: 4F 20 4D 46 49 52 53 54 0D 0A 20 20 45 4E 44 49  O MFIRST..  ENDI
000080: 46 0D 0A 20 20 52 45 41 44 0D 0A 20 20 43 4C 45  F..  READ..  CLE
000090: 41 52 20 47 45 54 53 0D 0A 45 4E 44 44 4F 0D 0A  AR GETS..ENDDO..
0000A0: 52 45 4C 45 41 53 45 20 4D 46 49 52 53 54 0D 0A  RELEASE MFIRST..
0000B0: 49 46 20 4D 2E 52 45 50 4C 59 3D 27 58 27 0D 0A  IF M.REPLY='X'..
0000C0: 20 20 45 52 41 53 45 0D 0A 20 20 40 20 31 2C 31    ERASE..  @ 1,1
0000D0: 20 53 41 59 20 27 57 45 4C 43 4F 4D 45 20 20 20   SAY 'WELCOME   
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000F0: 20 20 20 20 4F 50 45 4E 2F 43 4C 4F 53 45 20 41      OPEN/CLOSE A
000100: 20 46 49 4C 45 27 0D 0A 20 20 40 20 31 2C 37 31   FILE'..  @ 1,71
000110: 20 53 41 59 20 27 64 42 41 53 45 20 49 49 27 0D   SAY 'dBASE II'.
000120: 0A 20 20 40 20 32 2C 31 20 53 41 59 20 55 4E 44  .  @ 2,1 SAY UND
000130: 45 52 4C 4E 0D 0A 20 20 40 20 32 32 2C 31 20 53  ERLN..  @ 22,1 S
000140: 41 59 20 55 4E 44 45 52 4C 4E 0D 0A 20 20 40 20  AY UNDERLN..  @ 
000150: 31 31 2C 32 37 20 53 41 59 20 27 52 45 54 55 52  11,27 SAY 'RETUR
000160: 4E 49 4E 47 20 54 4F 20 4D 41 49 4E 20 4D 45 4E  NING TO MAIN MEN
000170: 55 20 27 0D 0A 20 20 40 20 32 30 2C 31 0D 0A 20  U '..  @ 20,1.. 
000180: 20 73 74 6F 72 65 20 31 20 74 6F 20 4D 2E 63 0D   store 1 to M.c.
000190: 0A 20 20 64 6F 20 77 68 69 6C 65 20 4D 2E 63 3C  .  do while M.c<
0001A0: 3D 32 35 0D 0A 20 20 20 20 73 74 6F 72 65 20 4D  =25..    store M
0001B0: 2E 63 2B 31 20 74 6F 20 63 0D 0A 20 20 65 6E 64  .c+1 to c..  end
0001C0: 64 6F 20 0D 0A 20 20 72 65 6C 65 20 63 0D 0A 20  do ..  rele c.. 
0001D0: 20 52 45 54 55 52 4E 0D 0A 45 4E 44 49 46 0D 0A   RETURN..ENDIF..
0001E0: 49 46 20 21 28 4D 2E 52 45 50 4C 59 29 20 3D 27  IF !(M.REPLY) ='
0001F0: 41 27 0D 0A 20 20 53 45 4C 45 20 50 52 49 4D 0D  A'..  SELE PRIM.

Size : 512 (Real : 512)
000000: 3D 20 4C 45 4E 28 4D 54 45 53 54 29 0D 0A 20 20  = LEN(MTEST)..  
000010: 20 20 20 20 49 46 20 2E 4E 4F 54 2E 20 24 28 4D      IF .NOT. $(M
000020: 2E 4D 54 45 53 54 2C 43 2C 31 29 24 27 41 42 43  .MTEST,C,1)$'ABC
000030: 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F 50 51 52 53  DEFGHIJKLMNOPQRS
000040: 54 55 56 57 58 59 5A 30 31 32 33 34 35 36 37 38  TUVWXYZ012345678
000050: 39 27 0D 0A 20 20 20 20 20 20 20 20 53 54 4F 52  9'..        STOR
000060: 45 20 45 52 52 31 2B 27 5E 27 20 54 4F 20 45 52  E ERR1+'^' TO ER
000070: 52 31 0D 0A 20 20 20 20 20 20 20 20 53 54 4F 52  R1..        STOR
000080: 45 20 45 52 52 32 2B 27 21 27 20 54 4F 20 45 52  E ERR2+'!' TO ER
000090: 52 32 0D 0A 20 20 20 20 20 20 20 20 53 54 4F 52  R2..        STOR
0000A0: 45 20 46 20 54 4F 20 4D 53 47 0D 0A 20 20 20 20  E F TO MSG..    
0000B0: 20 20 20 45 4C 53 45 0D 0A 20 20 20 20 20 20 20     ELSE..       
0000C0: 20 53 54 4F 52 45 20 45 52 52 31 2B 27 20 27 20   STORE ERR1+' ' 
0000D0: 54 4F 20 45 52 52 31 0D 0A 20 20 20 20 20 20 20  TO ERR1..       
0000E0: 20 53 54 4F 52 45 20 45 52 52 32 2B 27 20 27 20   STORE ERR2+' ' 
0000F0: 54 4F 20 45 52 52 32 0D 0A 20 20 20 20 20 20 45  TO ERR2..      E
000100: 4E 44 49 46 0D 0A 20 20 20 20 20 20 53 54 4F 52  NDIF..      STOR
000110: 45 20 4D 2E 43 2B 31 20 54 4F 20 43 0D 0A 20 20  E M.C+1 TO C..  
000120: 20 20 45 4E 44 44 4F 0D 0A 20 20 20 20 49 46 20    ENDDO..    IF 
000130: 4D 2E 4D 53 47 20 20 20 0D 0A 20 20 20 20 20 20  M.MSG   ..      
000140: 40 20 32 33 2C 36 20 53 41 59 20 4D 2E 4D 54 45  @ 23,6 SAY M.MTE
000150: 53 54 0D 0A 20 20 20 20 20 45 4C 53 45 0D 0A 20  ST..     ELSE.. 
000160: 20 20 20 20 20 40 20 31 38 2C 30 0D 0A 20 20 20       @ 18,0..   
000170: 20 20 20 40 20 31 39 2C 30 0D 0A 20 20 20 20 20     @ 19,0..     
000180: 20 40 20 32 30 2C 30 0D 0A 20 20 20 20 20 20 40   @ 20,0..      @
000190: 20 32 31 2C 30 0D 0A 20 20 20 20 20 20 40 20 32   21,0..      @ 2
0001A0: 33 2C 36 20 53 41 59 20 4D 2E 42 4C 41 4E 4B 0D  3,6 SAY M.BLANK.
0001B0: 0A 20 20 20 20 20 20 40 20 31 38 2C 32 38 20 53  .      @ 18,28 S
0001C0: 41 59 20 45 52 52 31 2B 27 20 20 20 20 20 20 20  AY ERR1+'       
0001D0: 20 20 20 20 27 0D 0A 20 20 20 20 20 20 40 20 31      '..      @ 1
0001E0: 39 2C 32 38 20 53 41 59 20 45 52 52 32 2B 27 20  9,28 SAY ERR2+' 
0001F0: 20 20 20 20 20 20 20 20 20 20 27 0D 0A 20 20 20            '..   

Size : 512 (Real : 512)
000000: 0A 20 20 55 53 45 0D 0A 20 20 53 45 4C 45 20 53  .  USE..  SELE S
000010: 45 43 4F 0D 0A 20 20 55 53 45 0D 0A 20 20 45 52  ECO..  USE..  ER
000020: 41 53 45 0D 0A 20 20 40 20 31 2C 31 20 53 41 59  ASE..  @ 1,1 SAY
000030: 20 27 57 45 4C 43 4F 4D 45 20 20 20 20 20 20 20   'WELCOME       
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000050: 4F 50 45 4E 2F 43 4C 4F 53 45 20 41 20 46 49 4C  OPEN/CLOSE A FIL
000060: 45 27 0D 0A 20 20 40 20 31 2C 37 31 20 53 41 59  E'..  @ 1,71 SAY
000070: 20 27 64 42 41 53 45 20 49 49 27 0D 0A 20 20 40   'dBASE II'..  @
000080: 20 32 2C 31 20 53 41 59 20 55 4E 44 45 52 4C 4E   2,1 SAY UNDERLN
000090: 0D 0A 20 20 40 20 32 32 2C 31 20 53 41 59 20 55  ..  @ 22,1 SAY U
0000A0: 4E 44 45 52 4C 4E 0D 0A 20 20 40 20 34 2C 30 0D  NDERLN..  @ 4,0.
0000B0: 0A 54 45 58 54 0D 0A 20 20 20 20 20 54 6F 20 4F  .TEXT..     To O
0000C0: 50 45 4E 20 61 20 66 69 6C 65 20 79 6F 75 20 68  PEN a file you h
0000D0: 61 76 65 20 74 6F 20 75 73 65 20 74 68 65 20 55  ave to use the U
0000E0: 53 45 20 63 6F 6D 6D 61 6E 64 20 62 79 20 74 79  SE command by ty
0000F0: 70 69 6E 67 0D 0A 0D 0A 20 20 20 20 20 20 2E 20  ping....      . 
000100: 55 53 45 20 3C 66 69 6C 65 6E 61 6D 65 3E 0D 0A  USE <filename>..
000110: 0D 0A 20 20 20 20 20 54 6F 20 68 65 6C 70 20 79  ..     To help y
000120: 6F 75 20 61 6C 6F 6E 67 20 49 20 68 61 76 65 20  ou along I have 
000130: 61 6C 72 65 61 64 79 20 65 6E 74 65 72 65 64 20  already entered 
000140: 74 68 65 20 55 53 45 20 2D 0D 0A 20 20 20 20 20  the USE -..     
000150: 73 68 6F 77 6E 20 62 65 6C 6F 77 20 74 68 65 20  shown below the 
000160: 6C 69 6E 65 2E 0D 0A 0D 0A 45 4E 44 54 45 58 54  line.....ENDTEXT
000170: 0D 0A 20 20 40 20 32 33 2C 30 20 53 41 59 20 27  ..  @ 23,0 SAY '
000180: 2E 20 55 53 45 27 0D 0A 20 20 53 54 4F 52 45 20  . USE'..  STORE 
000190: 27 20 27 20 54 4F 20 54 45 4D 50 0D 0A 20 20 40  ' ' TO TEMP..  @
0001A0: 20 32 31 2C 35 20 53 41 59 20 27 50 72 65 73 73   21,5 SAY 'Press
0001B0: 20 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74   any key to cont
0001C0: 69 6E 75 65 20 27 0D 0A 20 20 40 20 32 31 2C 31  inue '..  @ 21,1
0001D0: 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 52   GET M.TEMP..  R
0001E0: 45 41 44 0D 0A 20 20 43 4C 45 41 52 20 47 45 54  EAD..  CLEAR GET
0001F0: 53 0D 0A 20 20 45 52 41 53 45 0D 0A 20 20 40 20  S..  ERASE..  @ 

Size : 512 (Real : 512)
000000: 20 20 20 40 20 32 31 2C 35 20 53 41 59 20 27 49     @ 21,5 SAY 'I
000010: 6C 6C 65 67 61 6C 20 63 68 61 72 61 63 74 65 72  llegal character
000020: 20 69 6E 20 74 68 65 20 46 69 6C 65 20 4E 61 6D   in the File Nam
000030: 65 20 2D 20 70 72 65 73 73 20 61 6E 79 20 6B 65  e - press any ke
000040: 79 3B 0D 0A 20 74 6F 20 20 72 65 74 72 79 27 0D  y;.. to  retry'.
000050: 0A 20 20 20 20 20 20 53 54 4F 52 45 20 27 20 27  .      STORE ' '
000060: 20 54 4F 20 54 45 4D 50 0D 0A 20 20 20 20 20 20   TO TEMP..      
000070: 40 20 32 31 2C 31 20 47 45 54 20 4D 2E 54 45 4D  @ 21,1 GET M.TEM
000080: 50 0D 0A 20 20 20 20 20 20 52 45 41 44 0D 0A 20  P..      READ.. 
000090: 20 20 20 20 20 43 4C 45 41 52 20 47 45 54 53 0D       CLEAR GETS.
0000A0: 0A 20 20 20 20 20 20 40 20 31 36 2C 30 0D 0A 20  .      @ 16,0.. 
0000B0: 20 20 20 20 20 40 20 31 37 2C 30 0D 0A 20 20 20       @ 17,0..   
0000C0: 20 20 20 40 20 31 38 2C 30 0D 0A 20 20 20 20 20     @ 18,0..     
0000D0: 20 40 20 31 39 2C 30 0D 0A 20 20 20 20 20 20 40   @ 19,0..      @
0000E0: 20 32 30 2C 30 0D 0A 20 20 20 20 20 20 40 20 32   20,0..      @ 2
0000F0: 31 2C 30 0D 0A 20 20 20 20 20 20 53 54 4F 52 45  1,0..      STORE
000100: 20 27 20 20 20 20 20 20 20 20 27 20 54 4F 20 43   '        ' TO C
000110: 46 49 4C 45 0D 0A 20 20 20 20 20 20 4C 4F 4F 50  FILE..      LOOP
000120: 0D 0A 20 20 20 20 45 4E 44 49 46 0D 0A 20 20 20  ..    ENDIF..   
000130: 20 49 46 20 2E 6E 6F 74 2E 20 46 49 4C 45 28 27   IF .not. FILE('
000140: 26 4D 54 45 53 54 27 29 0D 0A 20 20 20 20 20 20  &MTEST')..      
000150: 40 20 31 38 2C 30 0D 0A 20 20 20 20 20 20 40 20  @ 18,0..      @ 
000160: 31 39 2C 30 0D 0A 20 20 20 20 20 20 40 20 32 30  19,0..      @ 20
000170: 2C 30 0D 0A 20 20 20 20 20 20 40 20 32 31 2C 30  ,0..      @ 21,0
000180: 0D 0A 20 20 20 20 20 20 40 20 32 33 2C 36 20 53  ..      @ 23,6 S
000190: 41 59 20 4D 2E 42 4C 41 4E 4B 0D 0A 20 20 20 20  AY M.BLANK..    
0001A0: 20 20 53 54 4F 52 45 20 27 20 27 20 54 4F 20 54    STORE ' ' TO T
0001B0: 45 4D 50 0D 0A 20 20 20 20 20 20 40 20 32 31 2C  EMP..      @ 21,
0001C0: 35 20 73 61 79 20 27 46 69 6C 65 20 6E 6F 74 20  5 say 'File not 
0001D0: 66 6F 75 6E 64 20 2D 20 50 72 65 73 73 20 61 6E  found - Press an
0001E0: 79 20 6B 65 79 20 74 6F 20 72 65 74 72 79 20 27  y key to retry '
0001F0: 20 0D 0A 20 20 20 20 20 20 40 20 32 31 2C 31 20   ..      @ 21,1 

Size : 512 (Real : 512)
000000: 45 52 41 53 0D 0A 53 54 4F 52 45 20 27 20 20 20  ERAS..STORE '   
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000030: 20 20 20 20 20 20 20 20 20 20 27 20 54 4F 20 42            ' TO B
000040: 4C 41 4E 4B 0D 0A 54 45 58 54 0D 0A 0D 0A 57 45  LANK..TEXT....WE
000050: 4C 43 4F 4D 45 20 20 20 20 20 20 20 20 20 20 20  LCOME           
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000070: 44 45 4C 45 54 45 20 41 20 46 49 4C 45 20 20 20  DELETE A FILE   
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000090: 20 20 20 20 20 64 42 41 53 45 20 49 49 0D 0A 2D       dBASE II..-
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A  --------------..
0000F0: 45 4E 44 54 45 58 54 0D 0A 40 20 34 2C 30 0D 0A  ENDTEXT..@ 4,0..
000100: 54 45 58 54 0D 0A 20 20 20 20 20 20 20 20 20 59  TEXT..         Y
000110: 6F 75 20 77 6F 75 6C 64 20 64 65 6C 65 74 65 20  ou would delete 
000120: 61 20 66 69 6C 65 20 69 6E 20 64 42 41 53 45 20  a file in dBASE 
000130: 49 49 20 62 79 20 74 79 70 69 6E 67 2E 2E 2E 2E  II by typing....
000140: 20 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 2E   ....          .
000150: 20 44 45 4C 45 54 45 20 46 49 4C 45 20 3C 66 69   DELETE FILE <fi
000160: 6C 65 6E 61 6D 65 3E 0D 0A 0D 0A 20 20 20 20 20  lename>....     
000170: 20 20 20 20 64 42 41 53 45 20 49 49 20 77 69 6C      dBASE II wil
000180: 6C 20 72 65 74 75 72 6E 20 77 69 74 68 2E 2E 2E  l return with...
000190: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E  ................
0001A0: 2E 2E 2E 2E 2E 0D 0A 0D 0A 20 20 20 20 20 20 20  .........       
0001B0: 20 20 20 2E 20 46 49 4C 45 20 48 41 53 20 42 45     . FILE HAS BE
0001C0: 45 4E 20 44 45 4C 45 54 45 44 20 0D 0A 0D 0A 20  EN DELETED .... 
0001D0: 20 20 20 20 20 20 20 20 49 20 77 69 6C 6C 20 68          I will h
0001E0: 65 6C 70 20 79 6F 75 20 61 6C 6F 6E 67 2E 20 49  elp you along. I
0001F0: 20 68 61 76 65 20 61 6C 72 65 61 64 79 20 65 6E   have already en

Size : 512 (Real : 512)
000000: 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 20 20  GET M.TEMP..    
000010: 20 20 52 45 41 44 0D 0A 20 20 20 20 20 20 43 4C    READ..      CL
000020: 45 41 52 20 47 45 54 53 0D 0A 20 20 20 20 20 20  EAR GETS..      
000030: 40 20 31 37 2C 30 0D 0A 20 20 20 20 20 20 40 20  @ 17,0..      @ 
000040: 31 38 2C 30 0D 0A 20 20 20 20 20 20 40 20 31 39  18,0..      @ 19
000050: 2C 30 0D 0A 20 20 20 20 20 20 40 20 32 30 2C 30  ,0..      @ 20,0
000060: 0D 0A 20 20 20 20 20 20 40 20 32 31 2C 31 0D 0A  ..      @ 21,1..
000070: 20 20 20 20 20 20 53 54 4F 52 45 20 27 20 20 20        STORE '   
000080: 20 20 20 20 20 27 20 54 4F 20 43 46 49 4C 45 0D       ' TO CFILE.
000090: 0A 20 20 20 20 20 20 6C 6F 6F 70 0D 0A 20 20 20  .      loop..   
0000A0: 20 45 4E 44 49 46 0D 0A 20 20 20 20 53 54 4F 52   ENDIF..    STOR
0000B0: 45 20 54 20 54 4F 20 56 41 4C 49 44 0D 0A 20 20  E T TO VALID..  
0000C0: 45 4E 44 44 4F 20 5B 20 65 6E 74 65 72 20 66 69  ENDDO [ enter fi
0000D0: 6C 65 20 6E 61 6D 65 20 5D 0D 0A 20 20 73 74 6F  le name ]..  sto
0000E0: 72 65 20 4D 2E 63 66 69 6C 65 20 74 6F 20 6D 66  re M.cfile to mf
0000F0: 69 6C 65 0D 0A 20 20 45 52 41 53 45 0D 0A 20 20  ile..  ERASE..  
000100: 40 20 31 2C 31 20 53 41 59 20 27 57 45 4C 43 4F  @ 1,1 SAY 'WELCO
000110: 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ME              
000120: 20 20 20 20 20 20 20 20 20 4F 50 45 4E 2F 43 4C           OPEN/CL
000130: 4F 53 45 20 41 20 46 49 4C 45 27 0D 0A 20 20 40  OSE A FILE'..  @
000140: 20 31 2C 37 31 20 53 41 59 20 27 64 42 41 53 45   1,71 SAY 'dBASE
000150: 20 49 49 27 0D 0A 20 20 40 20 32 2C 31 20 53 41   II'..  @ 2,1 SA
000160: 59 20 55 4E 44 45 52 4C 4E 0D 0A 20 20 40 20 32  Y UNDERLN..  @ 2
000170: 32 2C 31 20 53 41 59 20 55 4E 44 45 52 4C 4E 0D  2,1 SAY UNDERLN.
000180: 0A 20 20 40 20 32 33 2C 30 20 53 41 59 20 27 2E  .  @ 23,0 SAY '.
000190: 20 55 53 45 20 27 2B 4D 2E 4D 54 45 53 54 0D 0A   USE '+M.MTEST..
0001A0: 20 20 40 20 31 39 2C 35 20 53 41 59 20 27 42 65    @ 19,5 SAY 'Be
0001B0: 6C 6F 77 20 74 68 65 20 6C 69 6E 65 20 79 6F 75  low the line you
0001C0: 20 77 69 6C 6C 20 6E 6F 77 20 73 65 65 20 74 68   will now see th
0001D0: 65 20 63 6F 6D 70 6C 65 74 65 20 63 6F 6D 6D 61  e complete comma
0001E0: 6E 64 27 0D 0A 20 20 40 20 32 30 2C 35 20 53 41  nd'..  @ 20,5 SA
0001F0: 59 20 27 61 73 20 79 6F 75 20 77 6F 75 6C 64 20  Y 'as you would 

Size : 512 (Real : 512)
000000: 74 65 72 65 64 20 74 68 65 20 0D 0A 20 20 20 20  tered the ..    
000010: 20 20 20 20 20 44 45 4C 45 54 45 20 46 49 4C 45       DELETE FILE
000020: 20 66 6F 72 20 79 6F 75 20 2D 20 73 68 6F 77 6E   for you - shown
000030: 20 62 65 6C 6F 77 20 74 68 65 20 6C 69 6E 65 2E   below the line.
000040: 0D 0A 45 4E 44 54 45 58 54 0D 0A 40 20 32 32 2C  ..ENDTEXT..@ 22,
000050: 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D  1 SAY '---------
000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20  --------------' 
000080: 3B 0D 0A 20 20 20 20 20 20 20 20 20 2B 20 27 2D  ;..         + '-
000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000B0: 2D 2D 2D 2D 2D 27 0D 0A 40 20 32 33 2C 30 20 53  -----'..@ 23,0 S
0000C0: 41 59 20 27 2E 20 44 45 4C 45 54 45 20 46 49 4C  AY '. DELETE FIL
0000D0: 45 27 0D 0A 53 54 4F 52 45 20 27 20 27 20 54 4F  E'..STORE ' ' TO
0000E0: 20 54 45 4D 50 0D 0A 40 20 32 31 2C 35 20 53 41   TEMP..@ 21,5 SA
0000F0: 59 20 27 50 72 65 73 73 20 61 6E 79 20 6B 65 79  Y 'Press any key
000100: 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 27 0D 0A   to continue '..
000110: 40 20 32 31 2C 31 20 47 45 54 20 4D 2E 54 45 4D  @ 21,1 GET M.TEM
000120: 50 0D 0A 52 45 41 44 0D 0A 43 4C 45 41 52 20 47  P..READ..CLEAR G
000130: 45 54 53 0D 0A 45 52 41 53 0D 0A 54 45 58 54 0D  ETS..ERAS..TEXT.
000140: 0A 0D 0A 57 45 4C 43 4F 4D 45 20 20 20 20 20 20  ...WELCOME      
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000160: 20 20 20 20 20 44 45 4C 45 54 45 20 41 20 46 49       DELETE A FI
000170: 4C 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20  LE              
000180: 20 20 20 20 20 20 20 20 20 20 64 42 41 53 45 20            dBASE 
000190: 49 49 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  II..------------
0001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001E0: 2D 2D 2D 0D 0A 45 4E 44 54 45 58 54 0D 0A 40 20  ---..ENDTEXT..@ 
0001F0: 32 32 2C 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D  22,1 SAY '------

Size : 512 (Real : 512)
000000: 74 79 70 65 20 69 74 20 79 6F 75 72 73 65 6C 66  type it yourself
000010: 2E 27 20 0D 0A 20 20 53 54 4F 52 45 20 27 20 27  .' ..  STORE ' '
000020: 20 54 4F 20 54 45 4D 50 0D 0A 20 20 40 20 32 31   TO TEMP..  @ 21
000030: 2C 35 20 53 41 59 20 27 50 72 65 73 73 20 61 6E  ,5 SAY 'Press an
000040: 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75  y key to continu
000050: 65 20 27 0D 0A 20 20 40 20 32 31 2C 31 20 47 45  e '..  @ 21,1 GE
000060: 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 52 45 41 44  T M.TEMP..  READ
000070: 0D 0A 20 20 43 4C 45 41 52 20 47 45 54 53 0D 0A  ..  CLEAR GETS..
000080: 20 20 73 65 6C 65 20 70 72 69 6D 0D 0A 20 20 55    sele prim..  U
000090: 53 45 20 26 4D 74 65 73 74 0D 0A 45 4C 53 45 0D  SE &Mtest..ELSE.
0000A0: 0A 20 20 40 20 38 2C 35 20 0D 0A 20 20 40 20 31  .  @ 8,5 ..  @ 1
0000B0: 30 2C 35 20 0D 0A 20 20 40 20 31 31 2C 35 0D 0A  0,5 ..  @ 11,5..
0000C0: 20 20 40 20 31 32 2C 35 20 0D 0A 20 20 40 20 31    @ 12,5 ..  @ 1
0000D0: 37 2C 35 0D 0A 20 20 40 20 32 31 2C 30 0D 0A 20  7,5..  @ 21,0.. 
0000E0: 20 40 20 34 2C 35 20 73 61 79 20 27 59 6F 75 20   @ 4,5 say 'You 
0000F0: 63 61 6E 20 43 4C 4F 53 45 20 61 20 66 69 6C 65  can CLOSE a file
000100: 20 69 6E 20 6F 6E 65 20 6F 66 20 74 68 72 65 65   in one of three
000110: 20 77 61 79 73 2E 20 54 68 65 20 66 6F 72 6D 61   ways. The forma
000120: 74 73 20 66 6F 72 20 27 20 3B 0D 0A 20 20 20 20  ts for ' ;..    
000130: 20 20 20 20 20 20 2B 20 27 74 68 65 73 65 20 61        + 'these a
000140: 72 65 3A 27 0D 0A 20 20 40 20 36 2C 35 20 53 41  re:'..  @ 6,5 SA
000150: 59 20 27 2E 20 55 53 45 20 20 20 20 20 20 20 20  Y '. USE        
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 20 63               - c
000170: 6C 6F 73 65 73 20 66 69 6C 65 20 69 6E 20 75 73  loses file in us
000180: 65 27 20 20 20 20 20 20 20 20 20 0D 0A 20 20 40  e'         ..  @
000190: 20 37 2C 35 20 53 41 59 20 27 2E 20 43 4C 45 41   7,5 SAY '. CLEA
0001A0: 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  R               
0001B0: 20 20 20 20 2D 20 63 6C 6F 73 65 73 20 61 6C 6C      - closes all
0001C0: 20 66 69 6C 65 73 2F 6D 65 6D 6F 72 79 20 61 72   files/memory ar
0001D0: 65 61 73 27 20 0D 0A 20 20 40 20 38 2C 35 20 53  eas' ..  @ 8,5 S
0001E0: 41 59 20 27 2E 20 55 53 45 20 5B 3C 64 61 74 61  AY '. USE [<data
0001F0: 62 61 73 65 20 66 69 6C 65 3E 5D 20 20 20 2D 20  base file>]   - 

Size : 512 (Real : 512)
000000: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000020: 2D 27 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 2B  -' ;..         +
000030: 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D   '--------------
000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000050: 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 0D 0A 53 54 4F  --------'....STO
000060: 52 45 20 27 20 20 20 20 20 20 20 20 27 20 54 4F  RE '        ' TO
000070: 20 44 45 4C 0D 0A 53 54 4F 52 45 20 54 20 54 4F   DEL..STORE T TO
000080: 20 50 43 4F 4E 54 0D 0A 44 4F 20 57 48 49 4C 45   PCONT..DO WHILE
000090: 20 4D 2E 50 43 4F 4E 54 0D 0A 20 20 40 20 32 33   M.PCONT..  @ 23
0000A0: 2C 30 20 53 41 59 20 27 2E 20 44 45 4C 45 54 45  ,0 SAY '. DELETE
0000B0: 20 46 49 4C 45 27 0D 0A 20 20 40 20 34 2C 35 20   FILE'..  @ 4,5 
0000C0: 53 41 59 20 27 4E 65 78 74 20 64 42 41 53 45 20  SAY 'Next dBASE 
0000D0: 49 49 20 72 65 71 75 69 72 65 73 20 74 68 65 20  II requires the 
0000E0: 66 69 6C 65 6E 61 6D 65 2C 20 3B 0D 0A 73 65 6C  filename, ;..sel
0000F0: 65 63 74 20 66 72 6F 6D 20 74 68 65 20 66 6F 6C  ect from the fol
000100: 6C 6F 77 69 6E 67 27 0D 0A 20 20 40 20 35 2C 30  lowing'..  @ 5,0
000110: 0D 0A 20 20 4C 49 53 54 20 46 49 4C 45 53 20 4C  ..  LIST FILES L
000120: 49 4B 45 20 2A 2E 44 42 46 0D 0A 20 20 53 54 4F  IKE *.DBF..  STO
000130: 52 45 20 46 20 54 4F 20 56 41 4C 49 44 0D 0A 20  RE F TO VALID.. 
000140: 20 44 4F 20 57 48 49 4C 45 20 2E 4E 4F 54 2E 20   DO WHILE .NOT. 
000150: 4D 2E 56 41 4C 49 44 0D 0A 20 20 20 20 40 20 31  M.VALID..    @ 1
000160: 39 2C 35 20 53 41 59 20 27 59 6F 75 20 64 6F 20  9,5 SAY 'You do 
000170: 6E 6F 74 20 6E 65 65 64 20 74 6F 20 75 73 65 20  not need to use 
000180: 74 68 65 20 2E 44 42 46 20 73 75 66 66 69 78 2E  the .DBF suffix.
000190: 27 0D 0A 20 20 20 20 40 20 31 37 2C 35 20 53 41  '..    @ 17,5 SA
0001A0: 59 20 27 50 6C 65 61 73 65 20 65 6E 74 65 72 20  Y 'Please enter 
0001B0: 66 69 6C 65 20 66 6F 72 20 64 65 6C 65 74 69 6F  file for deletio
0001C0: 6E 20 27 20 47 45 54 20 4D 2E 44 45 4C 20 50 49  n ' GET M.DEL PI
0001D0: 43 54 20 27 21 21 21 21 21 21 21 21 27 0D 0A 20  CT '!!!!!!!!'.. 
0001E0: 20 20 20 40 20 31 37 2C 35 30 20 53 41 59 20 27     @ 17,50 SAY '
0001F0: 5B 42 6C 61 6E 6B 20 74 6F 20 66 69 6E 69 73 68  [Blank to finish

Size : 512 (Real : 512)
000000: 63 6C 6F 73 65 73 20 66 69 6C 65 20 69 6E 20 75  closes file in u
000010: 73 65 20 61 6E 64 20 6F 70 65 6E 73 20 61 6E 6F  se and opens ano
000020: 74 68 65 72 27 0D 0A 20 20 40 20 31 30 2C 35 20  ther'..  @ 10,5 
000030: 53 41 59 20 27 54 68 65 20 6C 61 73 74 20 6F 66  SAY 'The last of
000040: 20 74 68 65 73 65 20 63 6F 6D 6D 61 6E 64 73 20   these commands 
000050: 69 73 20 63 6F 76 65 72 65 64 20 69 6E 20 74 68  is covered in th
000060: 65 20 4F 50 45 4E 20 73 65 63 74 69 6F 6E 2E 27  e OPEN section.'
000070: 0D 0A 20 20 40 20 31 31 2C 35 20 53 41 59 20 27  ..  @ 11,5 SAY '
000080: 54 68 65 20 55 53 45 20 61 6E 64 20 43 4C 45 41  The USE and CLEA
000090: 52 20 63 6F 6D 6D 61 6E 64 73 20 61 72 65 20 75  R commands are u
0000A0: 73 65 64 20 61 73 20 73 65 65 6E 20 61 62 6F 76  sed as seen abov
0000B0: 65 20 62 75 74 20 69 74 20 6D 75 73 74 20 62 65  e but it must be
0000C0: 27 0D 0A 20 20 40 20 31 32 2C 35 20 53 41 59 20  '..  @ 12,5 SAY 
0000D0: 27 52 45 4D 45 4D 42 45 52 45 44 20 74 68 61 74  'REMEMBERED that
0000E0: 20 43 4C 45 41 52 20 77 69 6C 6C 20 20 6E 6F 74   CLEAR will  not
0000F0: 20 20 6F 6E 6C 79 20 63 6C 6F 73 65 20 79 6F 75    only close you
000100: 72 20 66 69 6C 65 73 20 20 62 75 74 20 61 6C 73  r files  but als
000110: 6F 27 0D 0A 20 20 40 20 31 33 2C 35 20 53 41 59  o'..  @ 13,5 SAY
000120: 20 27 72 65 6D 6F 76 65 20 61 6C 6C 20 6D 65 6D   'remove all mem
000130: 6F 72 79 20 61 72 65 61 73 20 74 68 61 74 20 79  ory areas that y
000140: 6F 75 20 6D 61 79 20 68 61 76 65 20 73 65 74 20  ou may have set 
000150: 75 70 2C 20 74 68 65 72 65 66 6F 72 65 2C 20 74  up, therefore, t
000160: 68 65 27 0D 0A 20 20 40 20 31 34 2C 35 20 53 41  he'..  @ 14,5 SA
000170: 59 20 27 55 53 45 20 63 6F 6D 6D 61 6E 64 20 6F  Y 'USE command o
000180: 6E 6C 79 20 69 73 20 73 68 6F 77 6E 20 62 65 6C  nly is shown bel
000190: 6F 77 3A 27 0D 0A 20 20 40 20 32 32 2C 31 20 53  ow:'..  @ 22,1 S
0001A0: 41 59 20 4D 2E 55 4E 44 45 52 4C 4E 0D 0A 20 20  AY M.UNDERLN..  
0001B0: 40 20 32 33 2C 30 20 53 41 59 20 27 2E 20 55 53  @ 23,0 SAY '. US
0001C0: 45 27 0D 0A 20 20 53 54 4F 52 45 20 27 20 27 20  E'..  STORE ' ' 
0001D0: 54 4F 20 54 45 4D 50 0D 0A 20 20 40 20 32 31 2C  TO TEMP..  @ 21,
0001E0: 35 20 53 41 59 20 27 50 72 65 73 73 20 61 6E 79  5 SAY 'Press any
0001F0: 20 6B 65 79 20 74 6F 20 43 4C 4F 53 45 20 79 6F   key to CLOSE yo

Size : 512 (Real : 512)
000000: 5D 27 0D 0A 20 20 20 20 52 45 41 44 0D 0A 20 20  ]'..    READ..  
000010: 20 20 43 4C 45 41 20 47 45 54 53 0D 0A 20 20 20    CLEA GETS..   
000020: 20 49 46 20 4D 2E 44 45 4C 20 3D 20 27 20 20 20   IF M.DEL = '   
000030: 20 20 20 20 20 27 0D 0A 20 20 20 20 20 20 45 52       '..      ER
000040: 41 53 0D 0A 54 45 58 54 0D 0A 0D 0A 57 45 4C 43  AS..TEXT....WELC
000050: 4F 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 20  OME             
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 45                DE
000070: 4C 45 54 45 20 41 20 46 49 4C 45 20 20 20 20 20  LETE A FILE     
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000090: 20 20 20 64 42 41 53 45 20 49 49 0D 0A 2D 2D 2D     dBASE II..---
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 45 4E  ------------..EN
0000F0: 44 54 45 58 54 0D 0A 20 20 20 20 20 20 20 40 20  DTEXT..       @ 
000100: 32 32 2C 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D  22,1 SAY '------
000110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000130: 2D 27 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 2B  -' ;..         +
000140: 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D   '--------------
000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000160: 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 20 20 20 20 20  --------'..     
000170: 20 40 20 31 31 2C 32 37 20 53 41 59 20 27 52 45   @ 11,27 SAY 'RE
000180: 54 55 52 4E 49 4E 47 20 54 4F 20 4D 41 49 4E 20  TURNING TO MAIN 
000190: 4D 45 4E 55 27 0D 0A 20 20 20 20 20 20 40 20 32  MENU'..      @ 2
0001A0: 30 2C 31 0D 0A 20 20 20 20 20 20 53 54 4F 52 45  0,1..      STORE
0001B0: 20 31 20 54 4F 20 43 0D 0A 20 20 20 20 20 20 44   1 TO C..      D
0001C0: 4F 20 57 48 49 4C 45 20 43 20 3C 20 32 35 0D 0A  O WHILE C < 25..
0001D0: 20 20 20 20 20 20 20 20 53 54 4F 52 45 20 43 2B          STORE C+
0001E0: 31 20 54 4F 20 43 0D 0A 20 20 20 20 20 20 45 4E  1 TO C..      EN
0001F0: 44 44 4F 0D 0A 20 20 20 20 20 20 52 45 4C 45 20  DDO..      RELE 

Size : 512 (Real : 512)
000000: 75 72 20 66 69 6C 65 2E 27 20 0D 0A 20 20 40 20  ur file.' ..  @ 
000010: 32 31 2C 31 20 47 45 54 20 4D 2E 54 45 4D 50 0D  21,1 GET M.TEMP.
000020: 0A 20 20 52 45 41 44 0D 0A 20 20 43 4C 45 41 52  .  READ..  CLEAR
000030: 20 47 45 54 53 0D 0A 20 20 55 53 45 0D 0A 20 20   GETS..  USE..  
000040: 52 45 4C 45 41 53 45 0D 0A 20 20 53 54 4F 52 45  RELEASE..  STORE
000050: 20 27 20 20 20 20 20 20 20 20 27 20 54 4F 20 4D   '        ' TO M
000060: 46 49 4C 45 0D 0A 45 4E 44 49 46 0D 0A 45 52 41  FILE..ENDIF..ERA
000070: 53 45 0D 0A 40 20 31 2C 31 20 53 41 59 20 27 57  SE..@ 1,1 SAY 'W
000080: 45 4C 43 4F 4D 45 20 20 20 20 20 20 20 20 20 20  ELCOME          
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 4F 50 45               OPE
0000A0: 4E 2F 43 4C 4F 53 45 20 41 20 46 49 4C 45 27 0D  N/CLOSE A FILE'.
0000B0: 0A 40 20 31 2C 37 31 20 53 41 59 20 27 64 42 41  .@ 1,71 SAY 'dBA
0000C0: 53 45 20 49 49 27 0D 0A 40 20 32 2C 31 20 53 41  SE II'..@ 2,1 SA
0000D0: 59 20 55 4E 44 45 52 4C 4E 0D 0A 40 20 32 32 2C  Y UNDERLN..@ 22,
0000E0: 31 20 53 41 59 20 55 4E 44 45 52 4C 4E 0D 0A 40  1 SAY UNDERLN..@
0000F0: 20 31 31 2C 32 37 20 53 41 59 20 27 52 45 54 55   11,27 SAY 'RETU
000100: 52 4E 49 4E 47 20 54 4F 20 4D 41 49 4E 20 4D 45  RNING TO MAIN ME
000110: 4E 55 20 27 0D 0A 40 20 32 30 2C 31 0D 0A 73 74  NU '..@ 20,1..st
000120: 6F 72 65 20 31 20 74 6F 20 63 20 0D 0A 64 6F 20  ore 1 to c ..do 
000130: 77 68 69 6C 65 20 4D 2E 63 20 3C 3D 20 32 35 0D  while M.c <= 25.
000140: 0A 20 20 73 74 6F 72 65 20 4D 2E 63 2B 31 20 74  .  store M.c+1 t
000150: 6F 20 63 0D 0A 65 6E 64 64 6F 0D 0A 72 65 6C 65  o c..enddo..rele
000160: 20 63 0D 0A 52 45 54 55 52 4E 0D 0A 1A 1A 1A 1A   c..RETURN......
000170: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000180: 20 53 54 4F 52 45 20 54 52 49 4D 28 4D 2E 4D 46   STORE TRIM(M.MF
000190: 29 20 54 4F 20 46 54 45 53 54 0D 0A 20 20 20 20  ) TO FTEST..    
0001A0: 49 46 20 2E 4E 4F 54 2E 20 24 28 4D 2E 4D 46 2C  IF .NOT. $(M.MF,
0001B0: 31 2C 31 29 24 27 41 42 43 44 45 46 47 48 49 4A  1,1)$'ABCDEFGHIJ
0001C0: 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 57 58 59 5A  KLMNOPQRSTUVWXYZ
0001D0: 27 0D 0A 20 20 20 20 20 20 40 20 32 30 2C 35 20  '..      @ 20,5 
0001E0: 53 41 59 20 27 54 68 65 20 66 69 72 73 74 20 63  SAY 'The first c
0001F0: 68 61 72 61 63 74 65 72 20 6F 66 20 74 68 65 20  haracter of the 

Size : 512 (Real : 512)
000000: 41 4C 4C 20 45 58 43 45 50 54 20 4D 46 49 4C 45  ALL EXCEPT MFILE
000010: 0D 0A 20 20 20 20 20 20 52 45 54 55 52 4E 0D 0A  ..      RETURN..
000020: 20 20 20 20 45 4E 44 49 46 20 5B 20 42 6C 61 6E      ENDIF [ Blan
000030: 6B 20 46 69 6C 65 6E 61 6D 65 20 5D 0D 0A 20 20  k Filename ]..  
000040: 20 20 44 4F 20 57 48 49 4C 45 20 24 28 4D 2E 44    DO WHILE $(M.D
000050: 45 4C 2C 31 2C 31 29 3D 20 27 20 27 0D 0A 20 20  EL,1,1)= ' '..  
000060: 20 20 20 20 53 54 4F 52 45 20 24 28 4D 2E 44 45      STORE $(M.DE
000070: 4C 2C 32 29 2B 20 27 20 27 20 54 4F 20 44 45 4C  L,2)+ ' ' TO DEL
000080: 20 20 0D 0A 20 20 20 20 45 4E 44 44 4F 0D 0A 20    ..    ENDDO.. 
000090: 20 20 20 53 54 4F 52 45 20 54 52 49 4D 28 4D 2E     STORE TRIM(M.
0000A0: 44 45 4C 29 20 54 4F 20 4D 54 45 53 54 20 0D 0A  DEL) TO MTEST ..
0000B0: 20 20 20 20 53 54 4F 52 45 20 27 20 27 20 54 4F      STORE ' ' TO
0000C0: 20 45 52 52 31 2C 45 52 52 32 20 0D 0A 20 20 20   ERR1,ERR2 ..   
0000D0: 20 53 54 4F 52 45 20 54 20 54 4F 20 4D 53 47 0D   STORE T TO MSG.
0000E0: 0A 20 20 20 20 49 46 20 2E 4E 4F 54 2E 20 24 28  .    IF .NOT. $(
0000F0: 4D 2E 4D 54 45 53 54 2C 31 2C 31 29 24 27 41 42  M.MTEST,1,1)$'AB
000100: 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F 50 51 52  CDEFGHIJKLMNOPQR
000110: 53 54 55 56 57 58 59 5A 27 0D 0A 20 20 20 20 20  STUVWXYZ'..     
000120: 20 53 54 4F 52 45 20 46 20 54 4F 20 4D 53 47 0D   STORE F TO MSG.
000130: 0A 20 20 20 20 20 20 53 54 4F 52 45 20 45 52 52  .      STORE ERR
000140: 31 2B 27 5E 27 20 54 4F 20 45 52 52 31 0D 0A 20  1+'^' TO ERR1.. 
000150: 20 20 20 20 20 53 54 4F 52 45 20 45 52 52 32 2B       STORE ERR2+
000160: 27 21 27 20 54 4F 20 45 52 52 32 20 0D 0A 20 20  '!' TO ERR2 ..  
000170: 20 20 45 4C 53 45 20 0D 0A 20 20 20 20 20 20 53    ELSE ..      S
000180: 54 4F 52 45 20 45 52 52 31 2B 27 20 27 20 54 4F  TORE ERR1+' ' TO
000190: 20 45 52 52 31 0D 0A 20 20 20 20 20 20 53 54 4F   ERR1..      STO
0001A0: 52 45 20 45 52 52 32 2B 27 20 27 20 54 4F 20 45  RE ERR2+' ' TO E
0001B0: 52 52 32 0D 0A 20 20 20 20 45 4E 44 49 46 0D 0A  RR2..    ENDIF..
0001C0: 20 20 20 20 53 54 4F 52 45 20 32 20 54 4F 20 43      STORE 2 TO C
0001D0: 0D 0A 20 20 20 20 44 4F 20 57 48 49 4C 45 20 43  ..    DO WHILE C
0001E0: 20 3C 3D 20 4C 45 4E 28 4D 2E 4D 54 45 53 54 29   <= LEN(M.MTEST)
0001F0: 0D 0A 20 20 20 20 20 20 49 46 20 2E 4E 4F 54 2E  ..      IF .NOT.

Size : 512 (Real : 512)
000000: 6D 70 6C 65 74 65 20 63 6F 6D 6D 61 6E 64 27 0D  mplete command'.
000010: 0A 20 20 20 20 40 20 32 30 2C 35 20 53 41 59 20  .    @ 20,5 SAY 
000020: 27 61 73 20 79 6F 75 20 77 6F 75 6C 64 20 74 79  'as you would ty
000030: 70 65 20 69 74 20 79 6F 75 72 73 65 6C 66 2E 27  pe it yourself.'
000040: 20 0D 0A 20 20 20 20 53 54 4F 52 45 20 27 20 27   ..    STORE ' '
000050: 20 54 4F 20 54 45 4D 50 0D 0A 20 20 20 20 40 20   TO TEMP..    @ 
000060: 32 31 2C 35 20 53 41 59 20 27 50 72 65 73 73 20  21,5 SAY 'Press 
000070: 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69  any key to conti
000080: 6E 75 65 20 27 0D 0A 20 20 20 20 40 20 32 31 2C  nue '..    @ 21,
000090: 31 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20  1 GET M.TEMP..  
0000A0: 20 20 52 45 41 44 0D 0A 20 20 20 20 43 4C 45 41    READ..    CLEA
0000B0: 52 20 47 45 54 53 0D 0A 20 20 20 20 40 20 31 39  R GETS..    @ 19
0000C0: 2C 30 0D 0A 20 20 20 20 40 20 32 30 2C 30 0D 0A  ,0..    @ 20,0..
0000D0: 20 20 20 20 40 20 32 31 2C 30 0D 0A 20 20 20 20      @ 21,0..    
0000E0: 40 20 32 31 2C 35 20 53 41 59 20 27 44 6F 20 79  @ 21,5 SAY 'Do y
0000F0: 6F 75 20 77 61 6E 74 20 74 6F 20 64 65 6C 65 74  ou want to delet
000100: 65 20 74 68 69 73 20 66 69 6C 65 20 28 59 2F 4E  e this file (Y/N
000110: 29 2E 27 20 0D 0A 20 20 20 20 40 20 32 31 2C 31  ).' ..    @ 21,1
000120: 20 47 45 54 20 4D 2E 43 48 4F 49 43 45 20 50 49   GET M.CHOICE PI
000130: 43 54 20 27 21 27 0D 0A 20 20 20 20 52 45 41 44  CT '!'..    READ
000140: 0D 0A 20 20 20 20 40 20 32 31 2C 30 0D 0A 20 20  ..    @ 21,0..  
000150: 45 4E 44 49 46 0D 0A 20 20 43 4C 45 41 52 20 47  ENDIF..  CLEAR G
000160: 45 54 53 0D 0A 20 20 49 46 20 4D 2E 43 48 4F 49  ETS..  IF M.CHOI
000170: 43 45 20 3D 20 27 59 27 0D 0A 20 20 20 20 44 45  CE = 'Y'..    DE
000180: 4C 45 54 45 20 46 49 4C 45 20 26 44 45 4C 0D 0A  LETE FILE &DEL..
000190: 20 20 20 20 40 20 34 2C 35 20 53 41 59 20 27 54      @ 4,5 SAY 'T
0001A0: 68 65 20 66 69 6C 65 73 20 6C 65 66 74 20 61 72  he files left ar
0001B0: 65 3A 2D 20 20 20 20 20 20 20 20 20 20 20 20 27  e:-            '
0001C0: 0D 0A 20 20 20 20 40 20 35 2C 30 0D 0A 20 20 20  ..    @ 5,0..   
0001D0: 20 4C 49 53 54 20 46 49 4C 45 53 20 4C 49 4B 45   LIST FILES LIKE
0001E0: 20 2A 2E 44 42 46 0D 0A 20 20 20 20 53 54 4F 52   *.DBF..    STOR
0001F0: 45 20 46 20 54 4F 20 50 43 4F 4E 54 0D 0A 20 20  E F TO PCONT..  

Size : 512 (Real : 512)
000000: 20 24 28 4D 2E 4D 54 45 53 54 2C 43 2C 31 29 24   $(M.MTEST,C,1)$
000010: 27 41 42 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F  'ABCDEFGHIJKLMNO
000020: 50 51 52 53 54 55 56 57 58 59 5A 30 31 32 33 34  PQRSTUVWXYZ01234
000030: 35 36 37 38 39 27 0D 0A 20 20 20 20 20 20 20 20  56789'..        
000040: 53 54 4F 52 45 20 45 52 52 31 2B 27 5E 27 20 54  STORE ERR1+'^' T
000050: 4F 20 45 52 52 31 0D 0A 20 20 20 20 20 20 20 20  O ERR1..        
000060: 53 54 4F 52 45 20 45 52 52 32 2B 27 21 27 20 54  STORE ERR2+'!' T
000070: 4F 20 45 52 52 32 0D 0A 20 20 20 20 20 20 20 20  O ERR2..        
000080: 53 54 4F 52 45 20 46 20 54 4F 20 4D 53 47 0D 0A  STORE F TO MSG..
000090: 20 20 20 20 20 20 45 4C 53 45 0D 0A 20 20 20 20        ELSE..    
0000A0: 20 20 20 20 53 54 4F 52 45 20 45 52 52 31 2B 27      STORE ERR1+'
0000B0: 20 27 20 54 4F 20 45 52 52 31 0D 0A 20 20 20 20   ' TO ERR1..    
0000C0: 20 20 20 20 53 54 4F 52 45 20 45 52 52 32 2B 27      STORE ERR2+'
0000D0: 20 27 20 54 4F 20 45 52 52 32 0D 0A 20 20 20 20   ' TO ERR2..    
0000E0: 20 20 45 4E 44 49 46 0D 0A 20 20 20 20 20 20 53    ENDIF..      S
0000F0: 54 4F 52 45 20 43 2B 31 20 54 4F 20 43 0D 0A 20  TORE C+1 TO C.. 
000100: 20 20 20 45 4E 44 44 4F 0D 0A 20 20 20 20 49 46     ENDDO..    IF
000110: 20 4D 2E 4D 53 47 20 20 20 0D 0A 20 20 20 20 20   M.MSG   ..     
000120: 20 40 20 32 33 2C 31 34 20 53 41 59 20 4D 2E 4D   @ 23,14 SAY M.M
000130: 54 45 53 54 0D 0A 20 20 20 20 45 4C 53 45 0D 0A  TEST..    ELSE..
000140: 20 20 20 20 20 20 40 20 31 38 2C 30 0D 0A 20 20        @ 18,0..  
000150: 20 20 20 20 40 20 31 39 2C 30 0D 0A 20 20 20 20      @ 19,0..    
000160: 20 20 40 20 31 38 2C 33 35 20 53 41 59 20 45 52    @ 18,35 SAY ER
000170: 52 31 2B 27 20 20 20 20 20 20 20 20 20 20 20 27  R1+'           '
000180: 0D 0A 20 20 20 20 20 20 40 20 31 39 2C 33 35 20  ..      @ 19,35 
000190: 53 41 59 20 45 52 52 32 2B 27 20 20 20 20 20 20  SAY ERR2+'      
0001A0: 20 20 20 20 20 27 0D 0A 20 20 20 20 20 20 40 20       '..      @ 
0001B0: 32 31 2C 35 20 53 41 59 20 27 49 6C 6C 65 67 61  21,5 SAY 'Illega
0001C0: 6C 20 63 68 61 72 61 63 74 65 72 20 69 6E 20 74  l character in t
0001D0: 68 65 20 46 69 6C 65 20 4E 61 6D 65 20 2D 20 70  he File Name - p
0001E0: 72 65 73 73 20 61 6E 79 20 6B 65 79 3B 0D 0A 20  ress any key;.. 
0001F0: 74 6F 20 72 65 74 72 79 27 0D 0A 20 20 20 20 20  to retry'..     

Size : 512 (Real : 512)
000000: 20 45 4C 53 45 0D 0A 20 20 20 20 53 54 4F 52 45   ELSE..    STORE
000010: 20 27 20 20 20 20 20 20 20 20 27 20 54 4F 20 44   '        ' TO D
000020: 45 4C 0D 0A 20 20 20 20 40 20 32 31 2C 30 0D 0A  EL..    @ 21,0..
000030: 20 20 20 20 40 20 32 33 2C 31 34 20 53 41 59 20      @ 23,14 SAY 
000040: 4D 2E 42 4C 41 4E 4B 0D 0A 20 20 20 20 4C 4F 4F  M.BLANK..    LOO
000050: 50 20 0D 0A 20 20 45 4E 44 49 46 0D 0A 20 20 53  P ..  ENDIF..  S
000060: 54 4F 52 45 20 27 20 27 20 54 4F 20 43 4F 4E 54  TORE ' ' TO CONT
000070: 0D 0A 20 20 40 20 32 30 2C 35 20 53 41 59 20 27  ..  @ 20,5 SAY '
000080: 57 65 6C 6C 20 64 6F 6E 65 2C 20 79 6F 75 20 68  Well done, you h
000090: 61 76 65 20 73 75 63 63 65 73 73 66 75 6C 6C 79  ave successfully
0000A0: 20 64 65 6C 65 74 65 64 20 27 2B 4D 2E 44 45 4C   deleted '+M.DEL
0000B0: 0D 0A 20 20 40 20 32 33 2C 30 20 53 41 59 20 27  ..  @ 23,0 SAY '
0000C0: 2E 20 46 49 4C 45 20 48 41 53 20 42 45 45 4E 20  . FILE HAS BEEN 
0000D0: 44 45 4C 45 54 45 44 27 0D 0A 20 20 53 54 4F 52  DELETED'..  STOR
0000E0: 45 20 27 20 27 20 54 4F 20 54 45 4D 50 0D 0A 20  E ' ' TO TEMP.. 
0000F0: 20 40 20 32 31 2C 35 20 53 41 59 20 27 50 72 65   @ 21,5 SAY 'Pre
000100: 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F  ss any key to co
000110: 6E 74 69 6E 75 65 20 27 0D 0A 20 20 40 20 32 31  ntinue '..  @ 21
000120: 2C 31 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20  ,1 GET M.TEMP.. 
000130: 20 52 45 41 44 0D 0A 20 20 43 4C 45 41 52 20 47   READ..  CLEAR G
000140: 45 54 53 0D 0A 45 4E 44 44 4F 0D 0A 45 52 41 53  ETS..ENDDO..ERAS
000150: 0D 0A 54 45 58 54 0D 0A 0D 0A 57 45 4C 43 4F 4D  ..TEXT....WELCOM
000160: 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  E               
000170: 20 20 20 20 20 20 20 20 20 20 20 20 44 45 4C 45              DELE
000180: 54 45 20 41 20 46 49 4C 45 20 20 20 20 20 20 20  TE A FILE       
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001A0: 20 64 42 41 53 45 20 49 49 0D 0A 2D 2D 2D 2D 2D   dBASE II..-----
0001B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 45 4E 44 54  ----------..ENDT

Size : 512 (Real : 512)
000000: 20 53 54 4F 52 45 20 27 20 27 20 54 4F 20 54 45   STORE ' ' TO TE
000010: 4D 50 0D 0A 20 20 20 20 20 20 40 20 32 31 2C 31  MP..      @ 21,1
000020: 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 20   GET M.TEMP..   
000030: 20 20 20 52 45 41 44 0D 0A 20 20 20 20 20 20 43     READ..      C
000040: 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 20 20 20  LEAR GETS..     
000050: 20 53 54 4F 52 45 20 27 20 20 20 20 20 20 20 20   STORE '        
000060: 27 20 54 4F 20 44 45 4C 0D 0A 20 20 20 20 20 20  ' TO DEL..      
000070: 40 20 31 37 2C 30 0D 0A 20 20 20 20 20 20 40 20  @ 17,0..      @ 
000080: 31 38 2C 30 0D 0A 20 20 20 20 20 20 40 20 31 39  18,0..      @ 19
000090: 2C 30 0D 0A 20 20 20 20 20 20 40 20 32 30 2C 30  ,0..      @ 20,0
0000A0: 0D 0A 20 20 20 20 20 20 40 20 32 31 2C 31 0D 0A  ..      @ 21,1..
0000B0: 20 20 20 20 20 20 40 20 32 33 2C 31 34 20 53 41        @ 23,14 SA
0000C0: 59 20 4D 2E 42 4C 41 4E 4B 0D 0A 20 20 20 20 20  Y M.BLANK..     
0000D0: 20 4C 4F 4F 50 0D 0A 20 20 20 20 45 4E 44 49 46   LOOP..    ENDIF
0000E0: 0D 0A 20 20 20 20 49 46 20 4D 2E 44 45 4C 20 3D  ..    IF M.DEL =
0000F0: 20 4D 2E 4D 46 49 4C 45 0D 0A 20 20 20 20 20 20   M.MFILE..      
000100: 40 20 31 39 2C 30 20 0D 0A 20 20 20 20 20 20 40  @ 19,0 ..      @
000110: 20 32 30 2C 30 0D 0A 20 20 20 20 20 20 40 20 32   20,0..      @ 2
000120: 31 2C 30 0D 0A 20 20 20 20 20 20 40 20 32 33 2C  1,0..      @ 23,
000130: 31 34 20 53 41 59 20 4D 2E 42 4C 41 4E 4B 0D 0A  14 SAY M.BLANK..
000140: 20 20 20 20 20 20 40 20 32 30 2C 35 20 53 41 59        @ 20,5 SAY
000150: 20 54 52 49 4D 28 4D 2E 44 45 4C 29 2B 27 20 49   TRIM(M.DEL)+' I
000160: 73 20 63 75 72 72 65 6E 74 6C 79 20 6F 70 65 6E  s currently open
000170: 2E 20 50 6C 65 61 73 65 20 63 68 6F 6F 73 65 20  . Please choose 
000180: 61 67 61 69 6E 2E 27 0D 0A 20 20 20 20 20 20 53  again.'..      S
000190: 54 4F 52 45 20 27 20 20 20 20 20 20 20 20 27 20  TORE '        ' 
0001A0: 54 4F 20 44 45 4C 0D 0A 20 20 20 20 20 20 53 54  TO DEL..      ST
0001B0: 4F 52 45 20 27 20 27 20 54 4F 20 54 45 4D 50 0D  ORE ' ' TO TEMP.
0001C0: 0A 20 20 20 20 20 20 40 20 32 31 2C 35 20 53 41  .      @ 21,5 SA
0001D0: 59 20 27 50 72 65 73 73 20 61 6E 79 20 6B 65 79  Y 'Press any key
0001E0: 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 27 0D 0A   to continue '..
0001F0: 20 20 20 20 20 20 40 20 32 31 2C 31 20 47 45 54        @ 21,1 GET

Size : 512 (Real : 512)
000000: 45 58 54 0D 0A 40 20 32 32 2C 31 20 53 41 59 20  EXT..@ 22,1 SAY 
000010: 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  '---------------
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000030: 2D 2D 2D 2D 2D 2D 2D 2D 27 20 3B 0D 0A 20 20 20  --------' ;..   
000040: 20 20 20 20 20 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D        + '-------
000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27  ---------------'
000070: 0D 0A 40 20 31 31 2C 32 37 20 53 41 59 20 27 52  ..@ 11,27 SAY 'R
000080: 45 54 55 52 4E 49 4E 47 20 54 4F 20 4D 41 49 4E  ETURNING TO MAIN
000090: 20 4D 45 4E 55 27 0D 0A 40 20 32 30 2C 31 0D 0A   MENU'..@ 20,1..
0000A0: 53 54 4F 52 45 20 31 20 54 4F 20 43 0D 0A 44 4F  STORE 1 TO C..DO
0000B0: 20 57 48 49 4C 45 20 43 20 3C 20 32 35 0D 0A 20   WHILE C < 25.. 
0000C0: 20 53 54 4F 52 45 20 43 2B 31 20 54 4F 20 43 0D   STORE C+1 TO C.
0000D0: 0A 45 4E 44 44 4F 0D 0A 52 45 4C 45 20 41 4C 4C  .ENDDO..RELE ALL
0000E0: 20 45 58 43 45 50 54 20 4D 46 49 4C 45 0D 0A 52   EXCEPT MFILE..R
0000F0: 45 54 55 52 4E 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ETURN...........
000100: 20 20 20 20 52 45 50 4C 41 43 45 20 46 49 45 4C      REPLACE FIEL
000110: 44 3A 4C 45 4E 20 57 49 54 48 20 30 0D 0A 20 20  D:LEN WITH 0..  
000120: 20 20 20 20 20 20 20 20 53 54 4F 52 45 20 31 20          STORE 1 
000130: 54 4F 20 43 0D 0A 20 20 20 20 20 20 20 20 20 20  TO C..          
000140: 44 4F 20 57 48 49 4C 45 20 43 20 3C 20 32 35 0D  DO WHILE C < 25.
000150: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54  .             ST
000160: 4F 52 45 20 43 2B 31 20 54 4F 20 43 0D 0A 20 20  ORE C+1 TO C..  
000170: 20 20 20 20 20 20 20 20 45 4E 44 44 4F 0D 0A 20          ENDDO.. 
000180: 20 20 20 20 20 20 20 20 20 40 20 31 36 2C 30 0D           @ 16,0.
000190: 0A 20 20 20 20 20 20 20 20 20 20 40 20 31 37 2C  .          @ 17,
0001A0: 30 0D 0A 20 20 20 20 20 20 20 20 20 20 40 20 32  0..          @ 2
0001B0: 30 2C 30 0D 0A 20 20 20 20 20 20 20 20 20 20 40  0,0..          @
0001C0: 20 32 31 2C 31 0D 0A 20 20 20 20 20 20 20 20 45   21,1..        E
0001D0: 4E 44 49 46 20 0D 0A 20 20 20 20 20 20 45 4E 44  NDIF ..      END
0001E0: 44 4F 0D 0A 20 20 20 20 20 20 52 45 4C 45 41 53  DO..      RELEAS
0001F0: 45 20 4D 46 49 52 53 54 0D 0A 20 20 20 20 20 20  E MFIRST..      

Size : 512 (Real : 512)
000000: 20 4D 2E 54 45 4D 50 0D 0A 20 20 20 20 20 20 52   M.TEMP..      R
000010: 45 41 44 0D 0A 20 20 20 20 20 20 43 4C 45 41 52  EAD..      CLEAR
000020: 20 47 45 54 53 0D 0A 20 20 20 20 20 20 40 20 31   GETS..      @ 1
000030: 36 2C 30 0D 0A 20 20 20 20 20 20 40 20 31 37 2C  6,0..      @ 17,
000040: 30 0D 0A 20 20 20 20 20 20 40 20 31 38 2C 30 0D  0..      @ 18,0.
000050: 0A 20 20 20 20 20 20 40 20 31 39 2C 30 0D 0A 20  .      @ 19,0.. 
000060: 20 20 20 20 20 40 20 32 30 2C 30 0D 0A 20 20 20       @ 20,0..   
000070: 20 20 20 40 20 32 31 2C 30 0D 0A 20 20 20 20 20     @ 21,0..     
000080: 20 40 20 32 33 2C 31 34 20 53 41 59 20 4D 2E 42   @ 23,14 SAY M.B
000090: 4C 41 4E 4B 0D 0A 20 20 20 20 20 20 4C 4F 4F 50  LANK..      LOOP
0000A0: 0D 0A 20 20 20 20 45 4E 44 49 46 0D 0A 20 20 20  ..    ENDIF..   
0000B0: 20 49 46 20 2E 4E 4F 54 2E 20 46 49 4C 45 20 28   IF .NOT. FILE (
0000C0: 20 27 26 44 45 4C 27 20 29 0D 0A 20 20 20 20 20   '&DEL' )..     
0000D0: 20 40 20 31 39 2C 30 0D 0A 20 20 20 20 20 20 40   @ 19,0..      @
0000E0: 20 32 30 2C 30 0D 0A 20 20 20 20 20 20 40 20 32   20,0..      @ 2
0000F0: 31 2C 30 0D 0A 20 20 20 20 20 20 53 54 4F 52 45  1,0..      STORE
000100: 20 27 20 27 20 54 4F 20 54 45 4D 50 0D 0A 20 20   ' ' TO TEMP..  
000110: 20 20 20 20 40 20 32 31 2C 35 20 53 41 59 20 27      @ 21,5 SAY '
000120: 46 69 6C 65 20 6E 6F 74 20 66 6F 75 6E 64 20 2D  File not found -
000130: 20 50 72 65 73 73 20 61 6E 79 20 6B 65 79 20 74   Press any key t
000140: 6F 20 72 65 74 72 79 20 27 20 0D 0A 20 20 20 20  o retry ' ..    
000150: 20 20 40 20 32 31 2C 31 20 47 45 54 20 4D 2E 54    @ 21,1 GET M.T
000160: 45 4D 50 0D 0A 20 20 20 20 20 20 52 45 41 44 0D  EMP..      READ.
000170: 0A 20 20 20 20 20 20 43 4C 45 41 52 20 47 45 54  .      CLEAR GET
000180: 53 0D 0A 20 20 20 20 20 20 40 20 31 36 2C 30 0D  S..      @ 16,0.
000190: 0A 20 20 20 20 20 20 40 20 31 37 2C 30 0D 0A 20  .      @ 17,0.. 
0001A0: 20 20 20 20 20 40 20 31 38 2C 30 0D 0A 20 20 20       @ 18,0..   
0001B0: 20 20 20 40 20 31 39 2C 30 0D 0A 20 20 20 20 20     @ 19,0..     
0001C0: 20 40 20 32 30 2C 30 0D 0A 20 20 20 20 20 20 40   @ 20,0..      @
0001D0: 20 32 31 2C 31 0D 0A 20 20 20 20 20 20 53 54 4F   21,1..      STO
0001E0: 52 45 20 27 20 20 20 20 20 20 20 20 27 20 54 4F  RE '        ' TO
0001F0: 20 44 45 4C 0D 0A 20 20 20 20 20 20 40 20 32 33   DEL..      @ 23

Size : 512 (Real : 512)
000000: 45 52 41 53 0D 0A 53 54 4F 52 45 20 27 20 20 20  ERAS..STORE '   
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000030: 20 20 20 20 20 20 20 20 27 20 54 4F 20 42 4C 41          ' TO BLA
000040: 4E 4B 0D 0A 54 45 58 54 0D 0A 0D 0A 57 45 4C 43  NK..TEXT....WELC
000050: 4F 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 20  OME             
000060: 20 20 20 20 20 20 20 41 44 44 20 44 41 54 41 20         ADD DATA 
000070: 54 4F 20 41 20 46 49 4C 45 20 20 20 20 20 20 20  TO A FILE       
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000090: 64 42 41 53 45 20 49 49 0D 0A 2D 2D 2D 2D 2D 2D  dBASE II..------
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000E0: 2D 2D 2D 2D 2D 2D 20 20 0D 0A 0D 0A 20 20 20 20  ------  ....    
0000F0: 20 20 20 54 6F 20 61 64 64 20 64 61 74 61 20 74     To add data t
000100: 6F 20 61 20 64 42 41 53 45 20 49 49 20 66 69 6C  o a dBASE II fil
000110: 65 20 79 6F 75 20 6D 75 73 74 20 66 69 72 73 74  e you must first
000120: 20 65 6E 73 75 72 65 20 74 68 61 74 20 0D 0A 0D   ensure that ...
000130: 0A 20 20 20 20 20 20 20 79 6F 75 20 68 61 76 65  .       you have
000140: 20 6F 70 65 6E 65 64 20 61 20 66 69 6C 65 2E 0D   opened a file..
000150: 0A 45 4E 44 54 45 58 54 0D 0A 40 20 32 32 2C 31  .ENDTEXT..@ 22,1
000160: 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D   SAY '----------
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20 3B 0D  ------------' ;.
000190: 0A 20 20 20 20 20 20 20 20 20 2B 20 27 2D 2D 2D  .         + '---
0001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001C0: 2D 2D 2D 27 0D 0A 49 46 20 4D 2E 4D 46 49 4C 45  ---'..IF M.MFILE
0001D0: 3D 27 20 20 20 20 20 20 20 20 27 0D 0A 20 20 40  ='        '..  @
0001E0: 20 32 30 2C 35 20 53 41 59 20 27 4E 6F 20 66 69   20,5 SAY 'No fi
0001F0: 6C 65 20 69 6E 20 75 73 65 20 70 6C 65 61 73 65  le in use please

Size : 512 (Real : 512)
000000: 2C 31 34 20 53 41 59 20 4D 2E 42 4C 41 4E 4B 0D  ,14 SAY M.BLANK.
000010: 0A 20 20 20 20 45 4C 53 45 0D 0A 20 20 20 20 20  .    ELSE..     
000020: 20 53 54 4F 52 45 20 54 20 54 4F 20 56 41 4C 49   STORE T TO VALI
000030: 44 0D 0A 20 20 20 20 45 4E 44 49 46 0D 0A 20 20  D..    ENDIF..  
000040: 45 4E 44 44 4F 0D 0A 20 20 53 54 4F 52 20 27 20  ENDDO..  STOR ' 
000050: 27 20 54 4F 20 43 48 4F 49 43 45 0D 0A 20 20 49  ' TO CHOICE..  I
000060: 46 20 46 49 4C 45 20 28 20 27 26 44 45 4C 27 20  F FILE ( '&DEL' 
000070: 29 0D 0A 20 20 20 20 45 52 41 53 0D 0A 54 45 58  )..    ERAS..TEX
000080: 54 0D 0A 0D 0A 57 45 4C 43 4F 4D 45 20 20 20 20  T....WELCOME    
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000A0: 20 20 20 20 20 20 20 44 45 4C 45 54 45 20 41 20         DELETE A 
0000B0: 46 49 4C 45 20 20 20 20 20 20 20 20 20 20 20 20  FILE            
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 64 42 41 53              dBAS
0000D0: 45 20 49 49 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  E II..----------
0000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000120: 2D 2D 2D 2D 2D 0D 0A 45 4E 44 54 45 58 54 0D 0A  -----..ENDTEXT..
000130: 20 20 20 20 40 20 32 32 2C 31 20 53 41 59 20 27      @ 22,1 SAY '
000140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000160: 2D 2D 2D 2D 2D 2D 2D 27 20 3B 0D 0A 20 20 20 20  -------' ;..    
000170: 20 20 20 20 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D 2D       + '--------
000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 0D  --------------'.
0001A0: 0A 20 20 20 20 40 20 32 33 2C 30 20 53 41 59 20  .    @ 23,0 SAY 
0001B0: 27 2E 20 44 45 4C 45 54 45 20 46 49 4C 45 20 27  '. DELETE FILE '
0001C0: 2B 4D 54 45 53 54 20 20 0D 0A 20 20 20 20 40 20  +MTEST  ..    @ 
0001D0: 31 39 2C 35 20 53 41 59 20 27 42 65 6C 6F 77 20  19,5 SAY 'Below 
0001E0: 74 68 65 20 6C 69 6E 65 20 79 6F 75 20 77 69 6C  the line you wil
0001F0: 6C 20 6E 6F 77 20 73 65 65 20 74 68 65 20 63 6F  l now see the co

Size : 512 (Real : 512)
000000: 20 4F 50 45 4E 20 66 72 6F 6D 20 6D 61 69 6E 20   OPEN from main 
000010: 6D 65 6E 75 27 0D 0A 20 20 53 54 4F 52 45 20 27  menu'..  STORE '
000020: 20 27 20 54 4F 20 54 45 4D 50 0D 0A 20 20 40 20   ' TO TEMP..  @ 
000030: 32 31 2C 35 20 53 41 59 20 27 50 72 65 73 73 20  21,5 SAY 'Press 
000040: 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69  any key to conti
000050: 6E 75 65 20 27 0D 0A 20 20 40 20 32 31 2C 31 20  nue '..  @ 21,1 
000060: 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 52 45  GET M.TEMP..  RE
000070: 41 44 0D 0A 20 20 43 4C 45 41 52 20 47 45 54 53  AD..  CLEAR GETS
000080: 0D 0A 20 20 45 52 41 53 0D 0A 54 45 58 54 0D 0A  ..  ERAS..TEXT..
000090: 0D 0A 57 45 4C 43 4F 4D 45 20 20 20 20 20 20 20  ..WELCOME       
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 41 44 44               ADD
0000B0: 20 44 41 54 41 20 54 4F 20 41 20 46 49 4C 45 20   DATA TO A FILE 
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000D0: 20 20 20 20 20 20 64 42 41 53 45 20 49 49 0D 0A        dBASE II..
0000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 0D 0A  ------------  ..
000130: 45 4E 44 54 45 58 54 0D 0A 20 20 40 20 32 32 2C  ENDTEXT..  @ 22,
000140: 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D  1 SAY '---------
000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20 3B  -------------' ;
000170: 0D 0A 20 20 20 20 20 20 20 20 20 2B 20 27 2D 2D  ..         + '--
000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001A0: 2D 2D 2D 2D 27 0D 0A 20 20 40 20 31 31 2C 32 37  ----'..  @ 11,27
0001B0: 20 53 41 59 20 27 52 45 54 55 52 4E 49 4E 47 20   SAY 'RETURNING 
0001C0: 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 27 0D 0A 20  TO MAIN MENU'.. 
0001D0: 20 40 20 32 30 2C 31 0D 0A 20 20 53 54 4F 52 45   @ 20,1..  STORE
0001E0: 20 31 20 54 4F 20 43 0D 0A 20 20 44 4F 20 57 48   1 TO C..  DO WH
0001F0: 49 4C 45 20 43 20 3C 20 32 35 0D 0A 20 20 20 20  ILE C < 25..    

Size : 512 (Real : 512)
000000: 52 20 54 20 54 4F 20 43 4F 4E 54 0D 0A 20 20 20  R T TO CONT..   
000010: 20 44 4F 20 57 48 49 4C 45 20 4D 2E 43 4F 4E 54   DO WHILE M.CONT
000020: 0D 0A 20 20 20 20 20 20 53 45 4C 45 43 54 20 50  ..      SELECT P
000030: 52 49 4D 41 52 59 0D 0A 20 20 20 20 20 20 40 20  RIMARY..      @ 
000040: 4C 49 4E 45 2C 31 20 53 41 59 20 53 2E 46 49 45  LINE,1 SAY S.FIE
000050: 4C 44 3A 4E 41 4D 45 0D 0A 20 20 20 20 20 20 53  LD:NAME..      S
000060: 54 4F 52 20 53 2E 46 49 45 4C 44 3A 4E 41 4D 45  TOR S.FIELD:NAME
000070: 20 54 4F 20 41 50 50 45 31 0D 0A 20 20 20 20 20   TO APPE1..     
000080: 20 40 20 4C 49 4E 45 2C 31 31 20 47 45 54 20 26   @ LINE,11 GET &
000090: 41 50 50 45 31 0D 0A 20 20 20 20 20 20 44 4F 20  APPE1..      DO 
0000A0: 43 41 53 45 0D 0A 20 20 20 20 20 20 20 20 43 41  CASE..        CA
0000B0: 53 45 20 46 49 45 4C 44 3A 4C 45 4E 20 3C 20 36  SE FIELD:LEN < 6
0000C0: 39 0D 0A 20 20 20 20 20 20 20 20 20 20 53 54 4F  9..          STO
0000D0: 52 20 4D 2E 4C 49 4E 45 2B 31 20 54 4F 20 4C 49  R M.LINE+1 TO LI
0000E0: 4E 45 0D 0A 20 20 20 20 20 20 20 20 43 41 53 45  NE..        CASE
0000F0: 20 46 49 45 4C 44 3A 4C 45 4E 20 3E 20 36 38 20   FIELD:LEN > 68 
000100: 2E 41 4E 44 2E 20 46 49 45 4C 44 3A 4C 45 4E 20  .AND. FIELD:LEN 
000110: 3C 20 31 35 39 0D 0A 20 20 20 20 20 20 20 20 20  < 159..         
000120: 20 53 54 4F 52 20 4D 2E 4C 49 4E 45 2B 32 20 54   STOR M.LINE+2 T
000130: 4F 20 4C 49 4E 45 0D 0A 20 20 20 20 20 20 20 20  O LINE..        
000140: 43 41 53 45 20 46 49 45 4C 44 3A 4C 45 4E 20 3E  CASE FIELD:LEN >
000150: 20 31 35 38 20 2E 41 4E 44 2E 20 46 49 45 4C 44   158 .AND. FIELD
000160: 3A 4C 45 4E 20 3C 20 32 33 39 0D 0A 20 20 20 20  :LEN < 239..    
000170: 20 20 20 20 20 20 53 54 4F 52 20 4D 2E 4C 49 4E        STOR M.LIN
000180: 45 2B 33 20 54 4F 20 4C 49 4E 45 0D 0A 20 20 20  E+3 TO LINE..   
000190: 20 20 20 20 20 43 41 53 45 20 46 49 45 4C 44 3A       CASE FIELD:
0001A0: 4C 45 4E 20 3E 20 32 33 38 0D 0A 20 20 20 20 20  LEN > 238..     
0001B0: 20 20 20 20 20 53 54 4F 52 20 4D 2E 4C 49 4E 45       STOR M.LINE
0001C0: 2B 34 20 54 4F 20 4C 49 4E 45 0D 0A 20 20 20 20  +4 TO LINE..    
0001D0: 20 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 20    ENDCASE..     
0001E0: 20 40 20 32 31 2C 35 20 53 41 59 20 27 50 6C 65   @ 21,5 SAY 'Ple
0001F0: 61 73 65 20 65 6E 74 65 72 20 72 65 71 75 69 72  ase enter requir

Size : 512 (Real : 512)
000000: 53 54 4F 52 45 20 43 2B 31 20 54 4F 20 43 0D 0A  STORE C+1 TO C..
000010: 20 20 45 4E 44 44 4F 0D 0A 20 20 52 45 4C 45 41    ENDDO..  RELEA
000020: 53 45 20 41 4C 4C 20 45 58 43 45 50 54 20 4D 46  SE ALL EXCEPT MF
000030: 49 4C 45 0D 0A 20 20 52 45 54 55 52 4E 0D 0A 45  ILE..  RETURN..E
000040: 4E 44 49 46 0D 0A 40 20 32 30 2C 35 20 53 41 59  NDIF..@ 20,5 SAY
000050: 20 27 54 68 65 20 66 69 6C 65 20 70 72 65 73 65   'The file prese
000060: 6E 74 6C 79 20 69 6E 20 75 73 65 20 69 73 20 2D  ntly in use is -
000070: 20 27 2B 4D 2E 4D 46 49 4C 45 0D 0A 53 54 4F 52   '+M.MFILE..STOR
000080: 45 20 27 20 27 20 54 4F 20 52 45 50 4C 59 0D 0A  E ' ' TO REPLY..
000090: 44 4F 20 57 48 49 4C 45 20 2E 4E 4F 54 2E 21 28  DO WHILE .NOT.!(
0000A0: 4D 2E 52 45 50 4C 59 29 24 27 59 4E 27 0D 0A 20  M.REPLY)$'YN'.. 
0000B0: 20 40 20 32 31 2C 30 0D 0A 20 20 40 20 32 31 2C   @ 21,0..  @ 21,
0000C0: 35 20 53 41 59 20 27 44 6F 20 79 6F 75 20 77 69  5 SAY 'Do you wi
0000D0: 73 68 20 74 6F 20 61 64 64 20 64 61 74 61 20 74  sh to add data t
0000E0: 6F 20 74 68 69 73 20 66 69 6C 65 3F 20 59 2F 4E  o this file? Y/N
0000F0: 20 27 20 0D 0A 20 20 40 20 32 31 2C 31 20 47 45   ' ..  @ 21,1 GE
000100: 54 20 4D 2E 52 45 50 4C 59 0D 0A 20 20 52 45 41  T M.REPLY..  REA
000110: 44 0D 0A 20 20 43 4C 45 41 52 20 47 45 54 53 0D  D..  CLEAR GETS.
000120: 0A 45 4E 44 44 4F 0D 0A 49 46 20 21 28 4D 2E 52  .ENDDO..IF !(M.R
000130: 45 50 4C 59 29 3D 27 4E 27 0D 0A 20 20 45 52 41  EPLY)='N'..  ERA
000140: 53 0D 0A 54 45 58 54 0D 0A 0D 0A 57 45 4C 43 4F  S..TEXT....WELCO
000150: 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ME              
000160: 20 20 20 20 20 20 41 44 44 20 44 41 54 41 20 54        ADD DATA T
000170: 4F 20 41 20 46 49 4C 45 20 20 20 20 20 20 20 20  O A FILE        
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64                 d
000190: 42 41 53 45 20 49 49 0D 0A 2D 2D 2D 2D 2D 2D 2D  BASE II..-------
0001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001E0: 2D 2D 2D 2D 2D 20 20 0D 0A 45 4E 44 54 45 58 54  -----  ..ENDTEXT
0001F0: 0D 0A 20 20 40 20 32 32 2C 31 20 53 41 59 20 27  ..  @ 22,1 SAY '

Size : 512 (Real : 512)
000000: 65 64 20 64 65 74 61 69 6C 73 27 0D 0A 20 20 20  ed details'..   
000010: 20 20 20 53 45 4C 45 43 54 20 53 45 43 4F 4E 44     SELECT SECOND
000020: 41 52 59 0D 0A 20 20 20 20 20 20 53 4B 49 50 0D  ARY..      SKIP.
000030: 0A 20 20 20 20 20 20 44 4F 20 43 41 53 45 0D 0A  .      DO CASE..
000040: 20 20 20 20 20 20 20 20 43 41 53 45 20 46 49 45          CASE FIE
000050: 4C 44 3A 4C 45 4E 20 3C 20 36 39 0D 0A 20 20 20  LD:LEN < 69..   
000060: 20 20 20 20 20 20 20 53 54 4F 52 20 31 20 54 4F         STOR 1 TO
000070: 20 4E 45 58 54 4C 49 4E 45 0D 0A 20 20 20 20 20   NEXTLINE..     
000080: 20 20 20 43 41 53 45 20 46 49 45 4C 44 3A 4C 45     CASE FIELD:LE
000090: 4E 20 3E 20 36 38 20 2E 41 4E 44 2E 20 46 49 45  N > 68 .AND. FIE
0000A0: 4C 44 3A 4C 45 4E 20 3C 20 31 35 39 0D 0A 20 20  LD:LEN < 159..  
0000B0: 20 20 20 20 20 20 20 20 53 54 4F 52 20 32 20 54          STOR 2 T
0000C0: 4F 20 4E 45 58 54 4C 49 4E 45 0D 0A 20 20 20 20  O NEXTLINE..    
0000D0: 20 20 20 20 43 41 53 45 20 46 49 45 4C 44 3A 4C      CASE FIELD:L
0000E0: 45 4E 20 3E 20 31 35 38 20 2E 41 4E 44 2E 20 46  EN > 158 .AND. F
0000F0: 49 45 4C 44 3A 4C 45 4E 20 3C 20 32 33 39 0D 0A  IELD:LEN < 239..
000100: 20 20 20 20 20 20 20 20 20 20 53 54 4F 52 20 33            STOR 3
000110: 20 54 4F 20 4E 45 58 54 4C 49 4E 45 0D 0A 20 20   TO NEXTLINE..  
000120: 20 20 20 20 20 20 43 41 53 45 20 46 49 45 4C 44        CASE FIELD
000130: 3A 4C 45 4E 20 3E 20 32 33 38 0D 0A 20 20 20 20  :LEN > 238..    
000140: 20 20 20 20 20 20 53 54 4F 52 20 34 20 54 4F 20        STOR 4 TO 
000150: 4E 45 58 54 4C 49 4E 45 0D 0A 20 20 20 20 20 20  NEXTLINE..      
000160: 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 20 20 49  ENDCASE..      I
000170: 46 20 45 4F 46 20 2E 4F 52 2E 20 4D 2E 4C 49 4E  F EOF .OR. M.LIN
000180: 45 2B 4D 2E 4E 45 58 54 4C 49 4E 45 20 20 3E 20  E+M.NEXTLINE  > 
000190: 31 37 0D 0A 20 20 20 20 20 20 20 20 53 54 4F 52  17..        STOR
0001A0: 20 46 20 54 4F 20 43 4F 4E 54 0D 0A 20 20 20 20   F TO CONT..    
0001B0: 20 20 20 20 49 46 20 45 4F 46 0D 0A 20 20 20 20      IF EOF..    
0001C0: 20 20 20 20 20 20 53 54 4F 52 20 54 20 54 4F 20        STOR T TO 
0001D0: 4C 41 53 54 52 45 43 2C 4C 4F 47 49 43 0D 0A 20  LASTREC,LOGIC.. 
0001E0: 20 20 20 20 20 20 20 45 4E 44 49 46 0D 0A 20 20         ENDIF..  
0001F0: 20 20 20 20 45 4E 44 49 46 0D 0A 20 20 20 20 45      ENDIF..    E

Size : 512 (Real : 512)
000000: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000020: 2D 2D 2D 2D 2D 2D 27 20 3B 0D 0A 20 20 20 20 20  ------' ;..     
000030: 20 20 20 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D      + '---------
000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A  -------------'..
000060: 20 20 40 20 31 31 2C 32 37 20 53 41 59 20 27 52    @ 11,27 SAY 'R
000070: 45 54 55 52 4E 49 4E 47 20 54 4F 20 4D 41 49 4E  ETURNING TO MAIN
000080: 20 4D 45 4E 55 27 0D 0A 20 20 40 20 32 30 2C 31   MENU'..  @ 20,1
000090: 0D 0A 20 20 53 54 4F 52 45 20 31 20 54 4F 20 43  ..  STORE 1 TO C
0000A0: 0D 0A 20 20 44 4F 20 57 48 49 4C 45 20 43 20 3C  ..  DO WHILE C <
0000B0: 20 32 35 0D 0A 20 20 20 20 53 54 4F 52 45 20 43   25..    STORE C
0000C0: 2B 31 20 54 4F 20 43 0D 0A 20 20 45 4E 44 44 4F  +1 TO C..  ENDDO
0000D0: 0D 0A 20 20 52 45 4C 45 41 53 45 20 41 4C 4C 20  ..  RELEASE ALL 
0000E0: 45 58 43 45 50 54 20 4D 46 49 4C 45 0D 0A 20 20  EXCEPT MFILE..  
0000F0: 52 45 54 55 52 4E 0D 0A 45 4E 44 49 46 0D 0A 45  RETURN..ENDIF..E
000100: 52 41 53 0D 0A 54 45 58 54 0D 0A 0D 0A 57 45 4C  RAS..TEXT....WEL
000110: 43 4F 4D 45 20 20 20 20 20 20 20 20 20 20 20 20  COME            
000120: 20 20 20 20 20 20 20 20 41 44 44 20 44 41 54 41          ADD DATA
000130: 20 54 4F 20 41 20 46 49 4C 45 20 20 20 20 20 20   TO A FILE      
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000150: 20 64 42 41 53 45 20 49 49 0D 0A 2D 2D 2D 2D 2D   dBASE II..-----
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001A0: 2D 2D 2D 2D 2D 2D 2D 20 20 0D 0A 45 4E 44 54 45  -------  ..ENDTE
0001B0: 58 54 0D 0A 40 20 32 32 2C 31 20 53 41 59 20 27  XT..@ 22,1 SAY '
0001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001E0: 2D 2D 2D 2D 2D 2D 27 20 3B 0D 0A 20 20 20 20 20  ------' ;..     
0001F0: 20 20 20 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D      + '---------

Size : 512 (Real : 512)
000000: 4E 44 44 4F 0D 0A 20 20 20 20 53 45 4C 45 43 54  NDDO..    SELECT
000010: 20 50 52 49 4D 41 52 59 0D 0A 20 20 20 20 52 45   PRIMARY..    RE
000020: 41 44 0D 0A 20 20 20 20 43 4C 45 41 20 47 45 54  AD..    CLEA GET
000030: 53 0D 0A 20 20 20 20 49 46 20 2E 4E 4F 54 2E 20  S..    IF .NOT. 
000040: 4D 2E 4C 41 53 54 52 45 43 0D 0A 20 20 20 20 20  M.LASTREC..     
000050: 20 53 54 4F 52 20 35 20 54 4F 20 4D 2E 4C 49 4E   STOR 5 TO M.LIN
000060: 45 0D 0A 20 20 20 20 20 20 44 4F 20 57 48 49 4C  E..      DO WHIL
000070: 45 20 4D 2E 4C 49 4E 45 20 3C 31 38 0D 0A 20 20  E M.LINE <18..  
000080: 20 20 20 20 20 20 40 20 4D 2E 4C 49 4E 45 2C 30        @ M.LINE,0
000090: 0D 0A 20 20 20 20 20 20 20 20 53 54 4F 52 20 4D  ..        STOR M
0000A0: 2E 4C 49 4E 45 20 2B 20 31 20 54 4F 20 4C 49 4E  .LINE + 1 TO LIN
0000B0: 45 20 0D 0A 20 20 20 20 20 20 45 4E 44 44 4F 0D  E ..      ENDDO.
0000C0: 0A 20 20 20 20 20 45 4C 53 45 0D 0A 20 20 20 20  .     ELSE..    
0000D0: 20 20 53 54 4F 52 45 20 54 20 54 4F 20 4E 4F 43    STORE T TO NOC
0000E0: 4F 4E 54 0D 0A 20 20 20 20 45 4E 44 49 46 0D 0A  ONT..    ENDIF..
0000F0: 20 20 45 4E 44 44 4F 0D 0A 20 20 40 20 32 30 2C    ENDDO..  @ 20,
000100: 35 20 53 41 59 20 27 64 42 41 53 45 20 49 49 20  5 SAY 'dBASE II 
000110: 77 69 6C 6C 20 61 6C 6C 6F 77 20 79 6F 75 20 74  will allow you t
000120: 6F 20 41 50 50 45 4E 44 20 61 73 20 6D 61 6E 79  o APPEND as many
000130: 20 3B 0D 0A 72 65 63 6F 72 64 73 20 61 73 20 72   ;..records as r
000140: 65 71 75 69 72 65 64 2E 27 0D 0A 20 20 53 54 4F  equired.'..  STO
000150: 52 45 20 27 20 27 20 54 4F 20 52 45 50 4C 59 0D  RE ' ' TO REPLY.
000160: 0A 20 20 44 4F 20 57 48 49 4C 45 20 2E 4E 4F 54  .  DO WHILE .NOT
000170: 2E 20 4D 2E 52 45 50 4C 59 24 27 59 4E 27 0D 0A  . M.REPLY$'YN'..
000180: 20 20 20 20 40 20 32 31 2C 30 0D 0A 20 20 20 20      @ 21,0..    
000190: 40 20 32 31 2C 35 20 53 41 59 20 27 4D 6F 72 65  @ 21,5 SAY 'More
0001A0: 20 52 65 63 6F 72 64 73 3F 20 59 2F 4E 20 27 20   Records? Y/N ' 
0001B0: 0D 0A 20 20 20 20 40 20 32 31 2C 31 20 47 45 54  ..    @ 21,1 GET
0001C0: 20 4D 2E 52 45 50 4C 59 20 70 69 63 74 20 27 21   M.REPLY pict '!
0001D0: 27 0D 0A 20 20 20 20 52 45 41 44 0D 0A 20 20 20  '..    READ..   
0001E0: 20 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 45   CLEAR GETS..  E
0001F0: 4E 44 44 4F 0D 0A 20 20 45 52 41 53 0D 0A 54 45  NDDO..  ERAS..TE

Size : 512 (Real : 512)
000000: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A  -------------'..
000020: 40 20 34 2C 30 0D 0A 54 45 58 54 0D 0A 20 20 20  @ 4,0..TEXT..   
000030: 20 20 59 6F 75 20 77 6F 75 6C 64 20 61 64 64 20    You would add 
000040: 64 61 74 61 20 74 6F 20 61 20 66 69 6C 65 20 69  data to a file i
000050: 6E 20 64 42 41 53 45 20 49 49 20 62 79 20 74 79  n dBASE II by ty
000060: 70 69 6E 67 0D 0A 0D 0A 20 20 20 20 20 20 2E 20  ping....      . 
000070: 41 50 50 45 4E 44 20 0D 0A 0D 0A 20 20 20 20 20  APPEND ....     
000080: 54 6F 20 68 65 6C 70 20 79 6F 75 20 61 6C 6F 6E  To help you alon
000090: 67 20 49 20 68 61 76 65 20 61 6C 72 65 61 64 79  g I have already
0000A0: 20 65 6E 74 65 72 65 64 20 74 68 65 20 41 50 50   entered the APP
0000B0: 45 4E 44 20 2D 0D 0A 20 20 20 20 20 73 68 6F 77  END -..     show
0000C0: 6E 20 62 65 6C 6F 77 20 74 68 65 20 6C 69 6E 65  n below the line
0000D0: 2E 0D 0A 0D 0A 45 4E 44 54 45 58 54 0D 0A 40 20  .....ENDTEXT..@ 
0000E0: 32 33 2C 30 20 53 41 59 20 22 2E 20 41 50 50 45  23,0 SAY ". APPE
0000F0: 4E 44 22 0D 0A 53 54 4F 52 45 20 27 20 27 20 54  ND"..STORE ' ' T
000100: 4F 20 54 45 4D 50 0D 0A 40 20 32 31 2C 35 20 53  O TEMP..@ 21,5 S
000110: 41 59 20 27 50 72 65 73 73 20 61 6E 79 20 6B 65  AY 'Press any ke
000120: 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 27 0D  y to continue '.
000130: 0A 40 20 32 31 2C 31 20 47 45 54 20 4D 2E 54 45  .@ 21,1 GET M.TE
000140: 4D 50 0D 0A 52 45 41 44 0D 0A 43 4C 45 41 52 20  MP..READ..CLEAR 
000150: 47 45 54 53 0D 0A 45 52 41 53 0D 0A 54 45 58 54  GETS..ERAS..TEXT
000160: 0D 0A 0D 0A 57 45 4C 43 4F 4D 45 20 20 20 20 20  ....WELCOME     
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41                 A
000180: 44 44 20 44 41 54 41 20 54 4F 20 41 20 46 49 4C  DD DATA TO A FIL
000190: 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  E               
0001A0: 20 20 20 20 20 20 20 20 64 42 41 53 45 20 49 49          dBASE II
0001B0: 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ..--------------
0001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20  --------------  

Size : 512 (Real : 512)
000000: 58 54 0D 0A 0D 0A 57 45 4C 43 4F 4D 45 20 20 20  XT....WELCOME   
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000020: 20 41 44 44 20 44 41 54 41 20 54 4F 20 41 20 46   ADD DATA TO A F
000030: 49 4C 45 20 20 20 20 20 20 20 20 20 20 20 20 20  ILE             
000040: 20 20 20 20 20 20 20 20 20 20 64 42 41 53 45 20            dBASE 
000050: 49 49 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  II..------------
000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000A0: 20 20 0D 0A 45 4E 44 54 45 58 54 0D 0A 20 20 20    ..ENDTEXT..   
0000B0: 20 40 20 32 32 2C 31 20 53 41 59 20 27 2D 2D 2D   @ 22,1 SAY '---
0000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000E0: 2D 2D 2D 27 20 3B 0D 0A 20 20 20 20 20 20 20 20  ---' ;..        
0000F0: 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D   + '------------
000100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 20 20 49  ----------'..  I
000120: 46 20 4D 2E 52 45 50 4C 59 3D 27 4E 27 0D 0A 20  F M.REPLY='N'.. 
000130: 20 20 20 53 54 4F 52 45 20 46 20 54 4F 20 4D 55     STORE F TO MU
000140: 4C 54 49 0D 0A 20 20 45 4C 53 45 0D 0A 20 20 20  LTI..  ELSE..   
000150: 20 40 20 32 33 2C 30 20 53 41 59 20 27 2E 20 41   @ 23,0 SAY '. A
000160: 50 50 45 4E 44 27 0D 0A 20 20 20 20 53 45 4C 45  PPEND'..    SELE
000170: 20 53 45 43 4F 20 0D 0A 20 20 20 20 47 4F 54 4F   SECO ..    GOTO
000180: 20 54 4F 50 0D 0A 20 20 45 4E 44 49 46 0D 0A 45   TOP..  ENDIF..E
000190: 4E 44 44 4F 0D 0A 40 20 32 33 2C 30 20 53 41 59  NDDO..@ 23,0 SAY
0001A0: 20 4D 2E 42 4C 41 4E 4B 0D 0A 40 20 31 31 2C 32   M.BLANK..@ 11,2
0001B0: 37 20 53 41 59 20 27 52 45 54 55 52 4E 49 4E 47  7 SAY 'RETURNING
0001C0: 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 27 0D 0A   TO MAIN MENU'..
0001D0: 40 20 32 30 2C 31 0D 0A 53 54 4F 52 45 20 31 20  @ 20,1..STORE 1 
0001E0: 54 4F 20 43 0D 0A 44 4F 20 57 48 49 4C 45 20 43  TO C..DO WHILE C
0001F0: 20 3C 20 32 35 0D 0A 20 20 53 54 4F 52 45 20 43   < 25..  STORE C

Size : 512 (Real : 512)
000000: 0D 0A 45 4E 44 54 45 58 54 0D 0A 40 20 32 32 2C  ..ENDTEXT..@ 22,
000010: 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D  1 SAY '---------
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20 3B  -------------' ;
000040: 0D 0A 20 20 20 20 20 20 20 20 20 2B 20 27 2D 2D  ..         + '--
000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000070: 2D 2D 2D 2D 27 0D 0A 40 20 32 33 2C 30 20 53 41  ----'..@ 23,0 SA
000080: 59 20 27 2E 20 41 50 50 45 4E 44 27 0D 0A 40 20  Y '. APPEND'..@ 
000090: 31 31 2C 32 30 20 53 41 59 20 27 50 6C 65 61 73  11,20 SAY 'Pleas
0000A0: 65 20 57 61 69 74 20 2E 2E 2E 20 6E 6F 77 20 6C  e Wait ... now l
0000B0: 6F 61 64 69 6E 67 20 74 68 65 20 6E 65 78 74 20  oading the next 
0000C0: 57 65 6C 63 6F 6D 65 20 66 69 6C 65 27 0D 0A 40  Welcome file'..@
0000D0: 20 32 30 2C 31 0D 0A 43 4F 50 59 20 54 4F 20 54   20,1..COPY TO T
0000E0: 45 4D 50 20 53 54 52 55 43 54 55 52 45 20 45 58  EMP STRUCTURE EX
0000F0: 54 45 4E 44 45 44 0D 0A 53 45 4C 45 43 54 20 53  TENDED..SELECT S
000100: 45 43 4F 4E 44 41 52 59 0D 0A 55 53 45 20 54 45  ECONDARY..USE TE
000110: 4D 50 0D 0A 53 54 4F 52 20 54 20 54 4F 20 4D 55  MP..STOR T TO MU
000120: 4C 54 49 0D 0A 44 4F 20 57 48 49 4C 45 20 4D 2E  LTI..DO WHILE M.
000130: 4D 55 4C 54 49 0D 0A 20 20 40 20 31 31 2C 35 0D  MULTI..  @ 11,5.
000140: 0A 20 20 47 4F 20 54 4F 50 0D 0A 20 20 53 45 4C  .  GO TOP..  SEL
000150: 45 43 54 20 50 52 49 4D 41 52 59 0D 0A 20 20 41  ECT PRIMARY..  A
000160: 50 50 45 4E 44 20 42 4C 41 4E 4B 0D 0A 20 20 40  PPEND BLANK..  @
000170: 20 34 2C 31 20 53 41 59 20 27 52 45 43 4F 52 44   4,1 SAY 'RECORD
000180: 20 23 20 27 0D 0A 20 20 40 20 34 2C 31 30 20 53   # '..  @ 4,10 S
000190: 41 59 20 23 0D 0A 20 20 53 54 4F 52 45 20 46 20  AY #..  STORE F 
0001A0: 54 4F 20 4E 4F 43 4F 4E 54 2C 4C 41 53 54 52 45  TO NOCONT,LASTRE
0001B0: 43 0D 0A 20 20 44 4F 20 57 48 49 4C 45 20 2E 4E  C..  DO WHILE .N
0001C0: 4F 54 2E 20 4D 2E 4E 4F 43 4F 4E 54 0D 0A 20 20  OT. M.NOCONT..  
0001D0: 20 20 53 45 4C 45 43 54 20 53 45 43 4F 4E 44 41    SELECT SECONDA
0001E0: 52 59 0D 0A 20 20 20 20 53 54 4F 52 45 20 35 20  RY..    STORE 5 
0001F0: 54 4F 20 4C 49 4E 45 0D 0A 20 20 20 20 53 54 4F  TO LINE..    STO

Size : 512 (Real : 512)
000000: 2B 31 20 54 4F 20 43 0D 0A 45 4E 44 44 4F 0D 0A  +1 TO C..ENDDO..
000010: 52 45 4C 45 41 53 45 20 41 4C 4C 20 45 58 43 45  RELEASE ALL EXCE
000020: 50 54 20 4D 46 49 4C 45 0D 0A 53 45 4C 45 43 54  PT MFILE..SELECT
000030: 20 53 45 43 4F 4E 44 41 52 59 0D 0A 55 53 45 0D   SECONDARY..USE.
000040: 0A 53 45 4C 45 43 54 20 50 52 49 4D 41 52 59 0D  .SELECT PRIMARY.
000050: 0A 55 53 45 0D 0A 44 45 4C 45 54 45 20 46 49 4C  .USE..DELETE FIL
000060: 45 20 54 45 4D 50 0D 0A 55 53 45 20 26 4D 46 49  E TEMP..USE &MFI
000070: 4C 45 0D 0A 52 45 54 55 52 4E 0D 0A 1A 1A 1A 1A  LE..RETURN......
000080: 21 21 21 21 21 21 27 0D 0A 20 20 20 20 40 20 31  !!!!!!'..    @ 1
000090: 39 2C 35 20 53 41 59 20 27 54 68 65 20 2E 44 42  9,5 SAY 'The .DB
0000A0: 46 20 73 75 66 66 69 78 20 69 73 20 6E 6F 74 20  F suffix is not 
0000B0: 72 65 71 75 69 72 65 64 27 0D 0A 20 20 20 20 52  required'..    R
0000C0: 45 41 44 0D 0A 20 20 20 20 43 4C 45 41 52 20 47  EAD..    CLEAR G
0000D0: 45 54 53 0D 0A 20 20 20 20 49 46 20 4D 2E 43 46  ETS..    IF M.CF
0000E0: 49 4C 45 20 3D 20 27 20 20 20 20 20 20 20 20 27  ILE = '        '
0000F0: 0D 0A 20 20 20 20 20 20 45 52 41 53 45 0D 0A 20  ..      ERASE.. 
000100: 20 20 20 20 20 40 20 31 2C 31 20 53 41 59 20 27       @ 1,1 SAY '
000110: 57 45 4C 43 4F 4D 45 20 20 20 20 20 20 20 20 20  WELCOME         
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4F 50                OP
000130: 45 4E 2F 43 4C 4F 53 45 20 41 20 46 49 4C 45 27  EN/CLOSE A FILE'
000140: 0D 0A 20 20 20 20 20 20 40 20 31 2C 37 31 20 53  ..      @ 1,71 S
000150: 41 59 20 27 64 42 41 53 45 20 49 49 27 0D 0A 20  AY 'dBASE II'.. 
000160: 20 20 20 20 20 40 20 32 2C 31 20 53 41 59 20 55       @ 2,1 SAY U
000170: 4E 44 45 52 4C 4E 0D 0A 20 20 20 20 20 20 40 20  NDERLN..      @ 
000180: 32 32 2C 31 20 53 41 59 20 55 4E 44 45 52 4C 4E  22,1 SAY UNDERLN
000190: 0D 0A 20 20 20 20 20 20 40 20 31 31 2C 32 37 20  ..      @ 11,27 
0001A0: 53 41 59 20 27 52 45 54 55 52 4E 49 4E 47 20 54  SAY 'RETURNING T
0001B0: 4F 20 4D 41 49 4E 20 4D 45 4E 55 27 0D 0A 20 20  O MAIN MENU'..  
0001C0: 20 20 20 20 40 20 32 30 2C 31 0D 0A 20 20 20 20      @ 20,1..    
0001D0: 20 20 53 54 4F 52 45 20 31 20 54 4F 20 43 0D 0A    STORE 1 TO C..
0001E0: 20 20 20 20 20 20 44 4F 20 57 48 49 4C 45 20 43        DO WHILE C
0001F0: 20 3C 20 32 35 0D 0A 20 20 20 20 20 20 20 20 53   < 25..        S

Size : 512 (Real : 512)
000000: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000010: 2D 2D 2D 2D 2D 2D 2D 2D 27 20 3B 0D 0A 20 20 20  --------' ;..   
000020: 20 20 20 20 20 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D        + '-------
000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27  ---------------'
000050: 0D 0A 45 4E 44 44 4F 0D 0A 49 46 20 4D 2E 52 45  ..ENDDO..IF M.RE
000060: 50 4C 59 3D 27 4E 27 0D 0A 20 20 40 20 31 31 2C  PLY='N'..  @ 11,
000070: 32 37 20 53 41 59 20 27 52 45 54 55 52 4E 49 4E  27 SAY 'RETURNIN
000080: 47 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 27 0D  G TO MAIN MENU'.
000090: 0A 20 20 40 20 32 30 2C 31 0D 0A 20 20 53 54 4F  .  @ 20,1..  STO
0000A0: 52 45 20 31 20 54 4F 20 43 0D 0A 20 20 44 4F 20  RE 1 TO C..  DO 
0000B0: 57 48 49 4C 45 20 43 20 3C 20 32 35 0D 0A 20 20  WHILE C < 25..  
0000C0: 20 20 53 54 4F 52 45 20 43 2B 31 20 54 4F 20 43    STORE C+1 TO C
0000D0: 0D 0A 20 20 45 4E 44 44 4F 0D 0A 20 20 52 45 4C  ..  ENDDO..  REL
0000E0: 45 41 53 45 20 41 4C 4C 20 45 58 43 45 50 54 20  EASE ALL EXCEPT 
0000F0: 4D 46 49 4C 45 0D 0A 20 20 52 45 54 55 52 4E 0D  MFILE..  RETURN.
000100: 0A 45 4E 44 49 46 0D 0A 40 20 34 2C 30 0D 0A 54  .ENDIF..@ 4,0..T
000110: 45 58 54 0D 0A 20 20 20 20 20 59 6F 75 20 77 6F  EXT..     You wo
000120: 75 6C 64 20 65 64 69 74 20 61 20 72 65 63 6F 72  uld edit a recor
000130: 64 20 69 6E 20 61 20 64 42 41 53 45 20 49 49 20  d in a dBASE II 
000140: 66 69 6C 65 20 62 79 20 74 79 70 69 6E 67 0D 0A  file by typing..
000150: 0D 0A 20 20 20 20 20 20 2E 20 45 44 49 54 0D 0A  ..      . EDIT..
000160: 0D 0A 20 20 20 20 20 54 6F 20 68 65 6C 70 20 79  ..     To help y
000170: 6F 75 20 61 6C 6F 6E 67 20 49 20 68 61 76 65 20  ou along I have 
000180: 61 6C 72 65 61 64 79 20 65 6E 74 65 72 65 64 20  already entered 
000190: 74 68 65 20 45 44 49 54 20 2D 0D 0A 20 20 20 20  the EDIT -..    
0001A0: 20 73 68 6F 77 6E 20 62 65 6C 6F 77 20 74 68 65   shown below the
0001B0: 20 6C 69 6E 65 2E 0D 0A 0D 0A 20 20 20 20 20 20   line.....      
0001C0: 0D 0A 45 4E 44 54 45 58 54 0D 0A 40 20 32 33 2C  ..ENDTEXT..@ 23,
0001D0: 30 20 53 41 59 20 22 2E 20 45 44 49 54 22 0D 0A  0 SAY ". EDIT"..
0001E0: 53 54 4F 52 45 20 27 20 27 20 54 4F 20 54 45 4D  STORE ' ' TO TEM
0001F0: 50 0D 0A 40 20 32 31 2C 35 20 53 41 59 20 27 50  P..@ 21,5 SAY 'P

Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: 72 65 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20  ress any key to 
000010: 63 6F 6E 74 69 6E 75 65 20 27 0D 0A 40 20 32 31  continue '..@ 21
000020: 2C 31 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 52  ,1 GET M.TEMP..R
000030: 45 41 44 0D 0A 43 4C 45 41 52 20 47 45 54 53 0D  EAD..CLEAR GETS.
000040: 0A 45 52 41 53 0D 0A 54 45 58 54 0D 0A 0D 0A 57  .ERAS..TEXT....W
000050: 45 4C 43 4F 4D 45 20 20 20 20 20 20 20 20 20 20  ELCOME          
000060: 20 20 20 20 20 20 20 20 20 20 45 44 49 54 20 44            EDIT D
000070: 41 54 41 20 46 52 4F 4D 20 41 20 46 49 4C 45 20  ATA FROM A FILE 
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000090: 64 42 41 53 45 20 49 49 20 20 20 20 0D 0A 2D 2D  dBASE II    ..--
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 0D 0A 45 4E  ----------  ..EN
0000F0: 44 54 45 58 54 0D 0A 40 20 32 32 2C 31 20 53 41  DTEXT..@ 22,1 SA
000100: 59 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  Y '-------------
000110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20 3B 0D 0A 20 20  ---------' ;..  
000130: 20 20 20 20 20 20 20 2B 20 27 2D 2D 2D 2D 2D 2D         + '------
000140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000160: 27 0D 0A 40 20 32 33 2C 30 20 53 41 59 20 27 2E  '..@ 23,0 SAY '.
000170: 20 45 44 49 54 27 0D 0A 40 20 31 31 2C 32 30 20   EDIT'..@ 11,20 
000180: 53 41 59 20 27 50 6C 65 61 73 65 20 57 61 69 74  SAY 'Please Wait
000190: 20 2E 2E 2E 20 6E 6F 77 20 6C 6F 61 64 69 6E 67   ... now loading
0001A0: 20 74 68 65 20 6E 65 78 74 20 57 65 6C 63 6F 6D   the next Welcom
0001B0: 65 20 66 69 6C 65 27 0D 0A 40 20 32 30 2C 31 0D  e file'..@ 20,1.
0001C0: 0A 43 4F 50 59 20 54 4F 20 54 45 4D 50 31 20 53  .COPY TO TEMP1 S
0001D0: 54 52 55 43 54 55 52 45 20 45 58 54 45 4E 44 45  TRUCTURE EXTENDE
0001E0: 44 0D 0A 53 45 4C 45 43 54 20 53 45 43 4F 4E 44  D..SELECT SECOND
0001F0: 41 52 59 0D 0A 55 53 45 20 54 45 4D 50 31 0D 0A  ARY..USE TEMP1..

Size : 512 (Real : 512)
000000: 45 52 41 53 0D 0A 53 54 4F 52 45 20 27 20 20 20  ERAS..STORE '   
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000030: 20 20 20 20 20 20 20 20 20 20 27 20 54 4F 20 42            ' TO B
000040: 4C 41 4E 4B 0D 0A 54 45 58 54 0D 0A 0D 0A 57 45  LANK..TEXT....WE
000050: 4C 43 4F 4D 45 20 20 20 20 20 20 20 20 20 20 20  LCOME           
000060: 20 20 20 20 20 20 20 20 20 45 44 49 54 20 44 41           EDIT DA
000070: 54 41 20 46 52 4F 4D 20 41 20 46 49 4C 45 20 20  TA FROM A FILE  
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64                 d
000090: 42 41 53 45 20 49 49 20 20 20 20 0D 0A 2D 2D 2D  BASE II    ..---
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 0D 0A 0D 0A 20  ---------  .... 
0000F0: 20 20 20 20 20 20 54 6F 20 65 64 69 74 20 61 20        To edit a 
000100: 72 65 63 6F 72 64 20 69 6E 20 61 20 64 42 41 53  record in a dBAS
000110: 45 20 49 49 20 66 69 6C 65 20 79 6F 75 20 6D 75  E II file you mu
000120: 73 74 20 66 69 72 73 74 20 65 6E 73 75 72 65 20  st first ensure 
000130: 74 68 61 74 20 0D 0A 0D 0A 20 20 20 20 20 20 20  that ....       
000140: 79 6F 75 20 68 61 76 65 20 6F 70 65 6E 65 64 20  you have opened 
000150: 61 20 66 69 6C 65 2E 0D 0A 45 4E 44 54 45 58 54  a file...ENDTEXT
000160: 0D 0A 40 20 32 32 2C 31 20 53 41 59 20 27 2D 2D  ..@ 22,1 SAY '--
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000190: 2D 2D 2D 2D 27 20 3B 0D 0A 20 20 20 20 20 20 20  ----' ;..       
0001A0: 20 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D    + '-----------
0001B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 49 46  -----------'..IF
0001D0: 20 4D 2E 4D 46 49 4C 45 3D 27 20 20 20 20 20 20   M.MFILE='      
0001E0: 20 20 27 0D 0A 20 20 40 20 32 30 2C 35 20 53 41    '..  @ 20,5 SA
0001F0: 59 20 27 4E 6F 20 66 69 6C 65 20 69 6E 20 75 73  Y 'No file in us

Size : 512 (Real : 512)
000000: 53 54 4F 52 20 54 20 54 4F 20 4D 55 4C 54 49 0D  STOR T TO MULTI.
000010: 0A 44 4F 20 57 48 49 4C 45 20 4D 2E 4D 55 4C 54  .DO WHILE M.MULT
000020: 49 0D 0A 20 20 53 45 4C 45 43 54 20 53 45 43 4F  I..  SELECT SECO
000030: 4E 44 41 52 59 0D 0A 20 20 40 20 31 31 2C 35 0D  NDARY..  @ 11,5.
000040: 0A 20 20 47 4F 20 54 4F 50 0D 0A 20 20 53 45 4C  .  GO TOP..  SEL
000050: 45 43 54 20 50 52 49 4D 41 52 59 0D 0A 20 20 47  ECT PRIMARY..  G
000060: 4F 20 42 4F 54 54 4F 4D 0D 0A 20 20 53 54 4F 52  O BOTTOM..  STOR
000070: 20 53 54 52 28 23 2C 33 29 20 54 4F 20 52 45 43   STR(#,3) TO REC
000080: 4E 55 4D 0D 0A 20 20 53 54 4F 52 20 54 20 54 4F  NUM..  STOR T TO
000090: 20 42 49 47 4E 55 4D 0D 0A 20 20 44 4F 20 57 48   BIGNUM..  DO WH
0000A0: 49 4C 45 20 4D 2E 42 49 47 4E 55 4D 0D 0A 20 20  ILE M.BIGNUM..  
0000B0: 20 20 53 54 4F 52 20 27 20 20 20 27 20 54 4F 20    STOR '   ' TO 
0000C0: 45 44 49 54 0D 0A 20 20 20 20 40 20 31 39 2C 35  EDIT..    @ 19,5
0000D0: 20 53 41 59 20 27 59 6F 75 20 68 61 76 65 20 27   SAY 'You have '
0000E0: 2B 52 45 43 4E 55 4D 2B 27 20 72 65 63 6F 72 64  +RECNUM+' record
0000F0: 73 20 69 6E 20 27 2B 4D 2E 4D 46 49 4C 45 0D 0A  s in '+M.MFILE..
000100: 20 20 20 20 40 20 31 37 2C 35 20 53 41 59 20 27      @ 17,5 SAY '
000110: 43 68 6F 6F 73 65 20 61 20 72 65 63 6F 72 64 20  Choose a record 
000120: 6E 75 6D 62 65 72 20 74 6F 20 65 64 69 74 20 27  number to edit '
000130: 47 45 54 20 4D 2E 45 44 49 54 20 50 49 43 54 20  GET M.EDIT PICT 
000140: 27 39 39 39 27 0D 0A 20 20 20 20 40 20 31 37 2C  '999'..    @ 17,
000150: 34 31 20 53 41 59 20 27 5B 42 6C 61 6E 6B 20 74  41 SAY '[Blank t
000160: 6F 20 66 69 6E 69 73 68 5D 27 0D 0A 20 20 20 20  o finish]'..    
000170: 52 45 41 44 0D 0A 20 20 20 20 43 4C 45 41 20 47  READ..    CLEA G
000180: 45 54 53 0D 0A 20 20 20 20 49 46 20 56 41 4C 28  ETS..    IF VAL(
000190: 4D 2E 45 44 49 54 29 20 3C 3E 20 49 4E 54 28 56  M.EDIT) <> INT(V
0001A0: 41 4C 28 4D 2E 45 44 49 54 29 29 0D 0A 20 20 20  AL(M.EDIT))..   
0001B0: 20 20 20 40 20 32 30 2C 35 20 53 41 59 20 27 50     @ 20,5 SAY 'P
0001C0: 6C 65 61 73 65 20 74 72 79 20 61 20 77 68 6F 6C  lease try a whol
0001D0: 65 20 6E 75 6D 62 65 72 20 21 21 27 0D 0A 20 20  e number !!'..  
0001E0: 20 20 20 20 53 54 4F 52 45 20 27 20 27 20 54 4F      STORE ' ' TO
0001F0: 20 54 45 4D 50 0D 0A 20 20 20 20 20 20 40 20 32   TEMP..      @ 2

Size : 512 (Real : 512)
000000: 65 20 70 6C 65 61 73 65 20 4F 50 45 4E 20 66 72  e please OPEN fr
000010: 6F 6D 20 6D 61 69 6E 20 6D 65 6E 75 27 0D 0A 20  om main menu'.. 
000020: 20 53 54 4F 52 45 20 27 20 27 20 54 4F 20 54 45   STORE ' ' TO TE
000030: 4D 50 0D 0A 20 20 40 20 32 31 2C 35 20 53 41 59  MP..  @ 21,5 SAY
000040: 20 27 50 72 65 73 73 20 61 6E 79 20 6B 65 79 20   'Press any key 
000050: 74 6F 20 63 6F 6E 74 69 6E 75 65 20 27 0D 0A 20  to continue '.. 
000060: 20 40 20 32 31 2C 31 20 47 45 54 20 4D 2E 54 45   @ 21,1 GET M.TE
000070: 4D 50 0D 0A 20 20 52 45 41 44 0D 0A 20 20 43 4C  MP..  READ..  CL
000080: 45 41 52 20 47 45 54 53 0D 0A 20 20 45 52 41 53  EAR GETS..  ERAS
000090: 0D 0A 54 45 58 54 0D 0A 0D 0A 57 45 4C 43 4F 4D  ..TEXT....WELCOM
0000A0: 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  E               
0000B0: 20 20 20 20 20 45 44 49 54 20 44 41 54 41 20 46       EDIT DATA F
0000C0: 52 4F 4D 20 41 20 46 49 4C 45 20 20 20 20 20 20  ROM A FILE      
0000D0: 20 20 20 20 20 20 20 20 20 20 20 64 42 41 53 45             dBASE
0000E0: 20 49 49 20 20 20 20 0D 0A 2D 2D 2D 2D 2D 2D 2D   II    ..-------
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000130: 2D 2D 2D 2D 2D 20 20 0D 0A 45 4E 44 54 45 58 54  -----  ..ENDTEXT
000140: 0D 0A 20 20 40 20 32 32 2C 31 20 53 41 59 20 27  ..  @ 22,1 SAY '
000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000170: 2D 2D 2D 2D 2D 2D 27 20 3B 0D 0A 20 20 20 20 20  ------' ;..     
000180: 20 20 20 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D      + '---------
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A  -------------'..
0001B0: 20 20 40 20 31 31 2C 32 37 20 53 41 59 20 27 52    @ 11,27 SAY 'R
0001C0: 45 54 55 52 4E 49 4E 47 20 54 4F 20 4D 41 49 4E  ETURNING TO MAIN
0001D0: 20 4D 45 4E 55 27 0D 0A 20 20 40 20 32 30 2C 31   MENU'..  @ 20,1
0001E0: 0D 0A 20 20 53 54 4F 52 45 20 31 20 54 4F 20 43  ..  STORE 1 TO C
0001F0: 0D 0A 20 20 44 4F 20 57 48 49 4C 45 20 43 20 3C  ..  DO WHILE C <

Size : 512 (Real : 512)
000000: 31 2C 35 20 53 41 59 20 27 50 72 65 73 73 20 61  1,5 SAY 'Press a
000010: 6E 79 20 6B 65 79 20 74 6F 20 72 65 74 72 79 20  ny key to retry 
000020: 27 20 0D 0A 20 20 20 20 20 20 40 20 32 31 2C 31  ' ..      @ 21,1
000030: 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 20   GET M.TEMP..   
000040: 20 20 20 52 45 41 44 0D 0A 20 20 20 20 20 20 43     READ..      C
000050: 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 20 20 20  LEAR GETS..     
000060: 20 40 20 31 36 2C 30 0D 0A 20 20 20 20 20 20 40   @ 16,0..      @
000070: 20 31 37 2C 30 0D 0A 20 20 20 20 20 20 40 20 31   17,0..      @ 1
000080: 38 2C 30 0D 0A 20 20 20 20 20 20 40 20 31 39 2C  8,0..      @ 19,
000090: 30 0D 0A 20 20 20 20 20 20 40 20 32 30 2C 30 0D  0..      @ 20,0.
0000A0: 0A 20 20 20 20 20 20 40 20 32 31 2C 31 0D 0A 20  .      @ 21,1.. 
0000B0: 20 20 20 20 20 53 54 4F 52 45 20 27 20 20 20 27       STORE '   '
0000C0: 20 54 4F 20 45 44 49 54 0D 0A 20 20 20 20 20 20   TO EDIT..      
0000D0: 4C 4F 4F 50 0D 0A 20 20 20 20 45 4E 44 49 46 20  LOOP..    ENDIF 
0000E0: 0D 0A 20 20 20 20 49 46 20 56 41 4C 28 4D 2E 45  ..    IF VAL(M.E
0000F0: 44 49 54 29 20 3C 20 30 20 2E 4F 52 2E 20 56 41  DIT) < 0 .OR. VA
000100: 4C 28 4D 2E 45 44 49 54 29 20 3E 20 23 20 0D 0A  L(M.EDIT) > # ..
000110: 20 20 20 20 20 20 40 20 32 30 2C 35 20 53 41 59        @ 20,5 SAY
000120: 20 27 52 65 63 6F 72 64 20 6F 75 74 20 6F 66 20   'Record out of 
000130: 72 61 6E 67 65 2E 20 50 6C 65 61 73 65 20 63 68  range. Please ch
000140: 6F 6F 73 65 20 61 67 61 69 6E 2E 27 0D 0A 20 20  oose again.'..  
000150: 20 20 20 20 53 54 4F 52 45 20 27 20 27 20 54 4F      STORE ' ' TO
000160: 20 54 45 4D 50 0D 0A 20 20 20 20 20 20 40 20 32   TEMP..      @ 2
000170: 31 2C 35 20 53 41 59 20 27 50 72 65 73 73 20 61  1,5 SAY 'Press a
000180: 6E 79 20 6B 65 79 20 74 6F 20 72 65 74 72 79 20  ny key to retry 
000190: 27 20 0D 0A 20 20 20 20 20 20 40 20 32 31 2C 31  ' ..      @ 21,1
0001A0: 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 20   GET M.TEMP..   
0001B0: 20 20 20 52 45 41 44 0D 0A 20 20 20 20 20 20 43     READ..      C
0001C0: 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 20 20 20  LEAR GETS..     
0001D0: 20 40 20 31 36 2C 30 0D 0A 20 20 20 20 20 20 40   @ 16,0..      @
0001E0: 20 31 37 2C 30 0D 0A 20 20 20 20 20 20 40 20 31   17,0..      @ 1
0001F0: 38 2C 30 0D 0A 20 20 20 20 20 20 40 20 31 39 2C  8,0..      @ 19,

Size : 512 (Real : 512)
000000: 20 32 35 0D 0A 20 20 20 20 53 54 4F 52 45 20 43   25..    STORE C
000010: 2B 31 20 54 4F 20 43 0D 0A 20 20 45 4E 44 44 4F  +1 TO C..  ENDDO
000020: 0D 0A 20 20 52 45 4C 45 41 53 45 20 41 4C 4C 20  ..  RELEASE ALL 
000030: 45 58 43 45 50 54 20 4D 46 49 4C 45 0D 0A 20 20  EXCEPT MFILE..  
000040: 52 45 54 55 52 4E 0D 0A 45 4E 44 49 46 0D 0A 40  RETURN..ENDIF..@
000050: 20 32 30 2C 35 20 53 41 59 20 27 54 68 65 20 66   20,5 SAY 'The f
000060: 69 6C 65 20 70 72 65 73 65 6E 74 6C 79 20 69 6E  ile presently in
000070: 20 75 73 65 20 69 73 20 2D 20 27 2B 4D 2E 4D 46   use is - '+M.MF
000080: 49 4C 45 0D 0A 53 54 4F 52 45 20 27 20 27 20 54  ILE..STORE ' ' T
000090: 4F 20 52 45 50 4C 59 0D 0A 44 4F 20 57 48 49 4C  O REPLY..DO WHIL
0000A0: 45 20 2E 4E 4F 54 2E 20 4D 2E 52 45 50 4C 59 24  E .NOT. M.REPLY$
0000B0: 27 59 4E 27 0D 0A 20 20 40 20 32 31 2C 35 20 53  'YN'..  @ 21,5 S
0000C0: 41 59 20 27 44 6F 20 79 6F 75 20 77 69 73 68 20  AY 'Do you wish 
0000D0: 74 6F 20 65 64 69 74 20 61 20 72 65 63 6F 72 64  to edit a record
0000E0: 20 69 6E 20 74 68 69 73 20 66 69 6C 65 3F 20 59   in this file? Y
0000F0: 2F 4E 20 27 20 0D 0A 20 20 40 20 32 31 2C 31 20  /N ' ..  @ 21,1 
000100: 47 45 54 20 4D 2E 52 45 50 4C 59 20 70 69 63 74  GET M.REPLY pict
000110: 20 27 21 27 0D 0A 20 20 52 45 41 44 0D 0A 20 20   '!'..  READ..  
000120: 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 45 52  CLEAR GETS..  ER
000130: 41 53 0D 0A 54 45 58 54 0D 0A 0D 0A 57 45 4C 43  AS..TEXT....WELC
000140: 4F 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 20  OME             
000150: 20 20 20 20 20 20 20 45 44 49 54 20 44 41 54 41         EDIT DATA
000160: 20 46 52 4F 4D 20 41 20 46 49 4C 45 20 20 20 20   FROM A FILE    
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 64 42 41               dBA
000180: 53 45 20 49 49 20 20 20 20 0D 0A 2D 2D 2D 2D 2D  SE II    ..-----
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001D0: 2D 2D 2D 2D 2D 2D 2D 20 20 0D 0A 45 4E 44 54 45  -------  ..ENDTE
0001E0: 58 54 0D 0A 20 20 40 20 32 32 2C 31 20 53 41 59  XT..  @ 22,1 SAY
0001F0: 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D   '--------------

Size : 512 (Real : 512)
000000: 30 0D 0A 20 20 20 20 20 20 40 20 32 30 2C 30 0D  0..      @ 20,0.
000010: 0A 20 20 20 20 20 20 40 20 32 31 2C 31 0D 0A 20  .      @ 21,1.. 
000020: 20 20 20 20 20 53 54 4F 52 45 20 27 20 20 20 27       STORE '   '
000030: 20 54 4F 20 45 44 49 54 0D 0A 20 20 20 20 20 20   TO EDIT..      
000040: 4C 4F 4F 50 0D 0A 20 20 20 20 45 4C 53 45 0D 0A  LOOP..    ELSE..
000050: 20 20 20 20 20 20 53 54 4F 52 45 20 46 20 54 4F        STORE F TO
000060: 20 42 49 47 4E 55 4D 0D 0A 20 20 20 20 20 20 40   BIGNUM..      @
000070: 20 32 33 2C 37 20 53 41 59 20 45 44 49 54 0D 0A   23,7 SAY EDIT..
000080: 20 20 20 20 45 4E 44 49 46 0D 0A 20 20 45 4E 44      ENDIF..  END
000090: 44 4F 0D 0A 20 20 45 52 41 53 0D 0A 54 45 58 54  DO..  ERAS..TEXT
0000A0: 0D 0A 0D 0A 57 45 4C 43 4F 4D 45 20 20 20 20 20  ....WELCOME     
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45                 E
0000C0: 44 49 54 20 44 41 54 41 20 46 52 4F 4D 20 41 20  DIT DATA FROM A 
0000D0: 46 49 4C 45 20 20 20 20 20 20 20 20 20 20 20 20  FILE            
0000E0: 20 20 20 20 20 64 42 41 53 45 20 49 49 20 20 20       dBASE II   
0000F0: 20 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D   ..-------------
000100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20  --------------- 
000140: 20 0D 0A 45 4E 44 54 45 58 54 0D 0A 20 20 40 20   ..ENDTEXT..  @ 
000150: 32 32 2C 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D  22,1 SAY '------
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000180: 27 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 2B 20  ' ;..         + 
000190: 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  '---------------
0001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001B0: 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 20 20 40 20 32 33  -------'..  @ 23
0001C0: 2C 30 20 53 41 59 20 27 2E 20 45 44 49 54 20 27  ,0 SAY '. EDIT '
0001D0: 2B 4D 2E 45 44 49 54 0D 0A 20 20 49 46 20 56 41  +M.EDIT..  IF VA
0001E0: 4C 28 4D 2E 45 44 49 54 29 20 3D 20 30 0D 0A 20  L(M.EDIT) = 0.. 
0001F0: 20 20 20 52 45 4C 45 41 53 45 20 41 4C 4C 20 45     RELEASE ALL E

Size : 512 (Real : 512)
000000: 79 20 3B 0D 0A 72 65 63 6F 72 64 73 20 61 73 20  y ;..records as 
000010: 72 65 71 75 69 72 65 64 2E 27 0D 0A 20 20 53 54  required.'..  ST
000020: 4F 52 45 20 27 20 27 20 54 4F 20 52 45 50 4C 59  ORE ' ' TO REPLY
000030: 0D 0A 20 20 44 4F 20 57 48 49 4C 45 20 2E 4E 4F  ..  DO WHILE .NO
000040: 54 2E 20 4D 2E 52 45 50 4C 59 24 27 59 4E 27 0D  T. M.REPLY$'YN'.
000050: 0A 20 20 20 20 40 20 32 31 2C 30 0D 0A 20 20 20  .    @ 21,0..   
000060: 20 40 20 32 31 2C 35 20 53 41 59 20 27 4D 6F 72   @ 21,5 SAY 'Mor
000070: 65 20 52 65 63 6F 72 64 73 3F 20 59 2F 4E 20 27  e Records? Y/N '
000080: 20 0D 0A 20 20 20 20 40 20 32 31 2C 31 20 47 45   ..    @ 21,1 GE
000090: 54 20 4D 2E 52 45 50 4C 59 20 70 69 63 74 20 27  T M.REPLY pict '
0000A0: 21 27 0D 0A 20 20 20 20 52 45 41 44 0D 0A 20 20  !'..    READ..  
0000B0: 20 20 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 20    CLEAR GETS..  
0000C0: 45 4E 44 44 4F 0D 0A 20 20 45 52 41 53 0D 0A 54  ENDDO..  ERAS..T
0000D0: 45 58 54 0D 0A 0D 0A 57 45 4C 43 4F 4D 45 20 20  EXT....WELCOME  
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000F0: 20 20 45 44 49 54 20 44 41 54 41 20 46 52 4F 4D    EDIT DATA FROM
000100: 20 41 20 46 49 4C 45 20 20 20 20 20 20 20 20 20   A FILE         
000110: 20 20 20 20 20 20 20 20 64 42 41 53 45 20 49 49          dBASE II
000120: 20 20 20 20 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D      ..----------
000130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000170: 2D 2D 20 20 0D 0A 45 4E 44 54 45 58 54 0D 0A 20  --  ..ENDTEXT.. 
000180: 20 40 20 32 32 2C 31 20 53 41 59 20 27 2D 2D 2D   @ 22,1 SAY '---
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001B0: 2D 2D 2D 27 20 3B 0D 0A 20 20 20 20 20 20 20 20  ---' ;..        
0001C0: 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D   + '------------
0001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 20 20 49  ----------'..  I
0001F0: 46 20 4D 2E 52 45 50 4C 59 3D 27 4E 27 0D 0A 20  F M.REPLY='N'.. 

Size : 512 (Real : 512)
000000: 58 43 45 50 54 20 4D 46 49 4C 45 0D 0A 20 20 20  XCEPT MFILE..   
000010: 20 53 45 4C 45 43 54 20 53 45 43 4F 4E 44 41 52   SELECT SECONDAR
000020: 59 0D 0A 20 20 20 20 55 53 45 0D 0A 20 20 20 20  Y..    USE..    
000030: 53 45 4C 45 43 54 20 50 52 49 4D 41 52 59 0D 0A  SELECT PRIMARY..
000040: 20 20 20 20 44 45 4C 45 54 45 20 46 49 4C 45 20      DELETE FILE 
000050: 54 45 4D 50 31 0D 0A 20 20 20 20 40 20 32 33 2C  TEMP1..    @ 23,
000060: 30 20 53 41 59 20 4D 2E 42 4C 41 4E 4B 0D 0A 20  0 SAY M.BLANK.. 
000070: 20 20 20 40 20 31 31 2C 32 37 20 53 41 59 20 27     @ 11,27 SAY '
000080: 52 45 54 55 52 4E 49 4E 47 20 54 4F 20 4D 41 49  RETURNING TO MAI
000090: 4E 20 4D 45 4E 55 27 0D 0A 20 20 20 20 40 20 32  N MENU'..    @ 2
0000A0: 30 2C 31 0D 0A 20 20 20 20 53 54 4F 52 20 30 20  0,1..    STOR 0 
0000B0: 54 4F 20 50 41 55 53 45 0D 0A 20 20 20 20 44 4F  TO PAUSE..    DO
0000C0: 20 57 48 49 4C 45 20 4D 2E 50 41 55 53 45 3C 32   WHILE M.PAUSE<2
0000D0: 35 0D 0A 20 20 20 20 20 20 53 54 4F 52 20 4D 2E  5..      STOR M.
0000E0: 50 41 55 53 45 2B 31 20 54 4F 20 50 41 55 53 45  PAUSE+1 TO PAUSE
0000F0: 0D 0A 20 20 20 20 45 4E 44 44 4F 0D 0A 20 20 20  ..    ENDDO..   
000100: 20 52 45 54 55 52 4E 0D 0A 20 20 45 4E 44 49 46   RETURN..  ENDIF
000110: 0D 0A 20 20 40 20 31 39 2C 35 20 53 41 59 20 27  ..  @ 19,5 SAY '
000120: 42 65 6C 6F 77 20 74 68 65 20 6C 69 6E 65 20 79  Below the line y
000130: 6F 75 20 77 69 6C 6C 20 6E 6F 77 20 73 65 65 20  ou will now see 
000140: 74 68 65 20 63 6F 6D 70 6C 65 74 65 20 63 6F 6D  the complete com
000150: 6D 61 6E 64 27 0D 0A 20 20 40 20 32 30 2C 35 20  mand'..  @ 20,5 
000160: 53 41 59 20 27 61 73 20 79 6F 75 20 77 6F 75 6C  SAY 'as you woul
000170: 64 20 74 79 70 65 20 69 74 20 79 6F 75 72 73 65  d type it yourse
000180: 6C 66 2E 27 20 0D 0A 20 20 53 54 4F 52 45 20 27  lf.' ..  STORE '
000190: 20 27 20 54 4F 20 54 45 4D 50 0D 0A 20 20 40 20   ' TO TEMP..  @ 
0001A0: 32 31 2C 35 20 53 41 59 20 27 50 72 65 73 73 20  21,5 SAY 'Press 
0001B0: 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69  any key to conti
0001C0: 6E 75 65 20 27 0D 0A 20 20 40 20 32 31 2C 31 20  nue '..  @ 21,1 
0001D0: 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 52 45  GET M.TEMP..  RE
0001E0: 41 44 0D 0A 20 20 43 4C 45 41 52 20 47 45 54 53  AD..  CLEAR GETS
0001F0: 0D 0A 20 20 40 20 31 39 2C 30 0D 0A 20 20 40 20  ..  @ 19,0..  @ 

Size : 512 (Real : 512)
000000: 20 20 20 40 20 32 33 2C 30 20 53 41 59 20 4D 2E     @ 23,0 SAY M.
000010: 42 4C 41 4E 4B 0D 0A 20 20 20 20 53 54 4F 52 20  BLANK..    STOR 
000020: 46 20 54 4F 20 4D 55 4C 54 49 0D 0A 20 20 45 4E  F TO MULTI..  EN
000030: 44 49 46 0D 0A 45 4E 44 44 4F 0D 0A 40 20 31 31  DIF..ENDDO..@ 11
000040: 2C 32 37 20 53 41 59 20 27 52 45 54 55 52 4E 49  ,27 SAY 'RETURNI
000050: 4E 47 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 27  NG TO MAIN MENU'
000060: 0D 0A 40 20 32 30 2C 31 0D 0A 53 54 4F 52 45 20  ..@ 20,1..STORE 
000070: 31 20 54 4F 20 43 0D 0A 44 4F 20 57 48 49 4C 45  1 TO C..DO WHILE
000080: 20 43 20 3C 20 32 35 0D 0A 20 20 53 54 4F 52 45   C < 25..  STORE
000090: 20 43 2B 31 20 54 4F 20 43 0D 0A 45 4E 44 44 4F   C+1 TO C..ENDDO
0000A0: 0D 0A 52 45 4C 45 41 53 45 20 41 4C 4C 20 45 58  ..RELEASE ALL EX
0000B0: 43 45 50 54 20 4D 46 49 4C 45 0D 0A 53 45 4C 45  CEPT MFILE..SELE
0000C0: 43 54 20 53 45 43 4F 4E 44 41 52 59 0D 0A 55 53  CT SECONDARY..US
0000D0: 45 0D 0A 53 45 4C 45 43 54 20 50 52 49 4D 41 52  E..SELECT PRIMAR
0000E0: 59 0D 0A 44 45 4C 45 54 45 20 46 49 4C 45 20 54  Y..DELETE FILE T
0000F0: 45 4D 50 31 0D 0A 52 45 54 55 52 4E 0D 0A 1A 1A  EMP1..RETURN....
000100: 32 32 2C 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D  22,1 SAY '------
000110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000130: 2D 27 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 2B  -' ;..         +
000140: 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D   '--------------
000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000160: 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 20 20 20 20 20  --------'..     
000170: 20 40 20 31 31 2C 32 37 20 53 41 59 20 27 52 45   @ 11,27 SAY 'RE
000180: 54 55 52 4E 49 4E 47 20 54 4F 20 4D 41 49 4E 20  TURNING TO MAIN 
000190: 4D 45 4E 55 27 0D 0A 20 20 20 20 20 20 40 20 32  MENU'..      @ 2
0001A0: 30 2C 31 0D 0A 20 20 20 20 20 20 53 54 4F 52 45  0,1..      STORE
0001B0: 20 31 20 54 4F 20 43 0D 0A 20 20 20 20 20 20 44   1 TO C..      D
0001C0: 4F 20 57 48 49 4C 45 20 43 20 3C 20 32 35 0D 0A  O WHILE C < 25..
0001D0: 20 20 20 20 20 20 20 20 53 54 4F 52 45 20 43 2B          STORE C+
0001E0: 31 20 54 4F 20 43 0D 0A 20 20 20 20 20 20 45 4E  1 TO C..      EN
0001F0: 44 44 4F 0D 0A 20 20 20 20 20 20 52 45 4C 45 20  DDO..      RELE 

Size : 512 (Real : 512)
000000: 32 30 2C 30 0D 0A 20 20 40 20 32 31 2C 30 0D 0A  20,0..  @ 21,0..
000010: 20 20 47 4F 20 56 41 4C 28 4D 2E 45 44 49 54 29    GO VAL(M.EDIT)
000020: 0D 0A 20 20 40 20 34 2C 31 20 53 41 59 20 27 52  ..  @ 4,1 SAY 'R
000030: 45 43 4F 52 44 20 23 20 27 0D 0A 20 20 40 20 34  ECORD # '..  @ 4
000040: 2C 31 30 20 53 41 59 20 23 0D 0A 20 20 53 54 4F  ,10 SAY #..  STO
000050: 52 45 20 54 20 54 4F 20 4E 4F 43 4F 4E 54 0D 0A  RE T TO NOCONT..
000060: 20 20 53 54 4F 52 20 46 20 54 4F 20 4C 41 53 54    STOR F TO LAST
000070: 52 45 43 0D 0A 20 20 44 4F 20 57 48 49 4C 45 20  REC..  DO WHILE 
000080: 20 4D 2E 4E 4F 43 4F 4E 54 0D 0A 20 20 20 20 53   M.NOCONT..    S
000090: 54 4F 52 45 20 35 20 54 4F 20 4C 49 4E 45 0D 0A  TORE 5 TO LINE..
0000A0: 20 20 20 20 53 54 4F 52 20 54 20 54 4F 20 54 43      STOR T TO TC
0000B0: 4F 4E 54 0D 0A 20 20 20 20 44 4F 20 57 48 49 4C  ONT..    DO WHIL
0000C0: 45 20 4D 2E 54 43 4F 4E 54 20 3D 20 54 0D 0A 20  E M.TCONT = T.. 
0000D0: 20 20 20 20 20 53 45 4C 45 43 54 20 50 52 49 4D       SELECT PRIM
0000E0: 41 52 59 0D 0A 20 20 20 20 20 20 40 20 4D 2E 4C  ARY..      @ M.L
0000F0: 49 4E 45 2C 31 20 53 41 59 20 53 2E 46 49 45 4C  INE,1 SAY S.FIEL
000100: 44 3A 4E 41 4D 45 0D 0A 20 20 20 20 20 20 53 54  D:NAME..      ST
000110: 4F 52 20 53 2E 46 49 45 4C 44 3A 4E 41 4D 45 20  OR S.FIELD:NAME 
000120: 54 4F 20 41 50 50 45 31 0D 0A 20 20 20 20 20 20  TO APPE1..      
000130: 40 20 4D 2E 4C 49 4E 45 2C 31 31 20 47 45 54 20  @ M.LINE,11 GET 
000140: 26 41 50 50 45 31 0D 0A 20 20 20 20 20 20 44 4F  &APPE1..      DO
000150: 20 43 41 53 45 0D 0A 20 20 20 20 20 20 20 20 43   CASE..        C
000160: 41 53 45 20 46 49 45 4C 44 3A 4C 45 4E 20 3C 20  ASE FIELD:LEN < 
000170: 36 39 0D 0A 20 20 20 20 20 20 20 20 20 20 53 54  69..          ST
000180: 4F 52 20 4D 2E 4C 49 4E 45 2B 31 20 54 4F 20 4C  OR M.LINE+1 TO L
000190: 49 4E 45 0D 0A 20 20 20 20 20 20 20 20 43 41 53  INE..        CAS
0001A0: 45 20 46 49 45 4C 44 3A 4C 45 4E 20 3E 20 36 38  E FIELD:LEN > 68
0001B0: 20 2E 41 4E 44 2E 20 46 49 45 4C 44 3A 4C 45 4E   .AND. FIELD:LEN
0001C0: 20 3C 20 31 35 39 0D 0A 20 20 20 20 20 20 20 20   < 159..        
0001D0: 20 20 53 54 4F 52 20 4D 2E 4C 49 4E 45 2B 32 20    STOR M.LINE+2 
0001E0: 54 4F 20 4C 49 4E 45 0D 0A 20 20 20 20 20 20 20  TO LINE..       
0001F0: 20 43 41 53 45 20 46 49 45 4C 44 3A 4C 45 4E 20   CASE FIELD:LEN 

Size : 512 (Real : 512)
000000: 45 52 41 53 0D 0A 53 54 4F 52 45 20 27 20 20 20  ERAS..STORE '   
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000030: 20 20 20 20 20 20 20 20 20 27 20 54 4F 20 42 4C           ' TO BL
000040: 41 4E 4B 0D 0A 54 45 58 54 0D 0A 0D 0A 20 57 45  ANK..TEXT.... WE
000050: 4C 43 4F 4D 45 20 20 20 20 20 20 20 20 20 20 20  LCOME           
000060: 20 20 20 20 20 20 20 20 44 45 4C 45 54 45 20 44          DELETE D
000070: 41 54 41 20 46 52 4F 4D 20 41 20 46 49 4C 45 20  ATA FROM A FILE 
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000090: 64 42 41 53 45 20 49 49 20 20 20 20 0D 0A 2D 2D  dBASE II    ..--
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 0D 0A 0D 0A  ----------  ....
0000F0: 20 20 20 20 20 54 6F 20 64 65 6C 65 74 65 20 61       To delete a
000100: 20 72 65 63 6F 72 64 20 69 6E 20 61 20 64 42 41   record in a dBA
000110: 53 45 20 49 49 20 66 69 6C 65 20 79 6F 75 20 6D  SE II file you m
000120: 75 73 74 20 66 69 72 73 74 20 65 6E 73 75 72 65  ust first ensure
000130: 20 74 68 61 74 20 0D 0A 0D 0A 20 20 20 20 20 79   that ....     y
000140: 6F 75 20 68 61 76 65 20 6F 70 65 6E 65 64 20 61  ou have opened a
000150: 20 66 69 6C 65 2E 0D 0A 45 4E 44 54 45 58 54 0D   file...ENDTEXT.
000160: 0A 40 20 32 32 2C 31 20 53 41 59 20 27 2D 2D 2D  .@ 22,1 SAY '---
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000190: 2D 2D 2D 27 20 3B 0D 0A 20 20 20 20 20 20 20 20  ---' ;..        
0001A0: 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D   + '------------
0001B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 49 46 20  ----------'..IF 
0001D0: 4D 2E 4D 46 49 4C 45 3D 27 20 20 20 20 20 20 20  M.MFILE='       
0001E0: 20 27 0D 0A 20 20 40 20 32 30 2C 35 20 53 41 59   '..  @ 20,5 SAY
0001F0: 20 27 4E 6F 20 66 69 6C 65 20 69 6E 20 75 73 65   'No file in use

Size : 512 (Real : 512)
000000: 3E 20 31 35 38 20 2E 41 4E 44 2E 20 46 49 45 4C  > 158 .AND. FIEL
000010: 44 3A 4C 45 4E 20 3C 20 32 33 39 0D 0A 20 20 20  D:LEN < 239..   
000020: 20 20 20 20 20 20 20 53 54 4F 52 20 4D 2E 4C 49         STOR M.LI
000030: 4E 45 2B 33 20 54 4F 20 4C 49 4E 45 0D 0A 20 20  NE+3 TO LINE..  
000040: 20 20 20 20 20 20 43 41 53 45 20 46 49 45 4C 44        CASE FIELD
000050: 3A 4C 45 4E 20 3E 20 32 33 38 0D 0A 20 20 20 20  :LEN > 238..    
000060: 20 20 20 20 20 20 53 54 4F 52 20 4D 2E 4C 49 4E        STOR M.LIN
000070: 45 2B 34 20 54 4F 20 4C 49 4E 45 0D 0A 20 20 20  E+4 TO LINE..   
000080: 20 20 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 20     ENDCASE..    
000090: 20 20 53 45 4C 45 43 54 20 53 45 43 4F 4E 44 41    SELECT SECONDA
0000A0: 52 59 0D 0A 20 20 20 20 20 20 53 4B 49 50 0D 0A  RY..      SKIP..
0000B0: 20 20 20 20 20 20 44 4F 20 43 41 53 45 0D 0A 20        DO CASE.. 
0000C0: 20 20 20 20 20 20 20 43 41 53 45 20 46 49 45 4C         CASE FIEL
0000D0: 44 3A 4C 45 4E 20 3C 20 36 39 0D 0A 20 20 20 20  D:LEN < 69..    
0000E0: 20 20 20 20 20 20 53 54 4F 52 20 31 20 54 4F 20        STOR 1 TO 
0000F0: 4E 45 58 54 4C 49 4E 45 0D 0A 20 20 20 20 20 20  NEXTLINE..      
000100: 20 20 43 41 53 45 20 46 49 45 4C 44 3A 4C 45 4E    CASE FIELD:LEN
000110: 20 3E 20 36 38 20 2E 41 4E 44 2E 20 46 49 45 4C   > 68 .AND. FIEL
000120: 44 3A 4C 45 4E 20 3C 20 31 35 39 0D 0A 20 20 20  D:LEN < 159..   
000130: 20 20 20 20 20 20 20 53 54 4F 52 20 32 20 54 4F         STOR 2 TO
000140: 20 4E 45 58 54 4C 49 4E 45 0D 0A 20 20 20 20 20   NEXTLINE..     
000150: 20 20 20 43 41 53 45 20 46 49 45 4C 44 3A 4C 45     CASE FIELD:LE
000160: 4E 20 3E 20 31 35 38 20 2E 41 4E 44 2E 20 46 49  N > 158 .AND. FI
000170: 45 4C 44 3A 4C 45 4E 20 3C 20 32 33 39 0D 0A 20  ELD:LEN < 239.. 
000180: 20 20 20 20 20 20 20 20 20 53 54 4F 52 20 33 20           STOR 3 
000190: 54 4F 20 4E 45 58 54 4C 49 4E 45 0D 0A 20 20 20  TO NEXTLINE..   
0001A0: 20 20 20 20 20 43 41 53 45 20 46 49 45 4C 44 3A       CASE FIELD:
0001B0: 4C 45 4E 20 3E 20 32 33 38 0D 0A 20 20 20 20 20  LEN > 238..     
0001C0: 20 20 20 20 20 53 54 4F 52 20 34 20 54 4F 20 4E       STOR 4 TO N
0001D0: 45 58 54 4C 49 4E 45 0D 0A 20 20 20 20 20 20 45  EXTLINE..      E
0001E0: 4E 44 43 41 53 45 0D 0A 20 20 20 20 20 20 49 46  NDCASE..      IF
0001F0: 20 45 4F 46 20 2E 4F 52 2E 20 4D 2E 4C 49 4E 45   EOF .OR. M.LINE

Size : 512 (Real : 512)
000000: 20 70 6C 65 61 73 65 20 4F 50 45 4E 20 66 72 6F   please OPEN fro
000010: 6D 20 6D 61 69 6E 20 6D 65 6E 75 27 0D 0A 20 20  m main menu'..  
000020: 53 54 4F 52 45 20 27 20 27 20 54 4F 20 52 45 50  STORE ' ' TO REP
000030: 4C 59 0D 0A 20 20 40 20 32 31 2C 35 20 53 41 59  LY..  @ 21,5 SAY
000040: 20 27 50 72 65 73 73 20 61 6E 79 20 6B 65 79 20   'Press any key 
000050: 74 6F 20 72 65 74 75 72 6E 20 74 6F 20 6D 61 69  to return to mai
000060: 6E 20 6D 65 6E 75 20 27 20 0D 0A 20 20 40 20 32  n menu ' ..  @ 2
000070: 31 2C 31 20 47 45 54 20 4D 2E 52 45 50 4C 59 0D  1,1 GET M.REPLY.
000080: 0A 20 20 52 45 41 44 0D 0A 20 20 43 4C 45 41 20  .  READ..  CLEA 
000090: 47 45 54 53 0D 0A 20 20 45 52 41 53 0D 0A 54 45  GETS..  ERAS..TE
0000A0: 58 54 0D 0A 0D 0A 20 57 45 4C 43 4F 4D 45 20 20  XT.... WELCOME  
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000C0: 20 44 45 4C 45 54 45 20 44 41 54 41 20 46 52 4F   DELETE DATA FRO
0000D0: 4D 20 41 20 46 49 4C 45 20 20 20 20 20 20 20 20  M A FILE        
0000E0: 20 20 20 20 20 20 20 20 20 64 42 41 53 45 20 49           dBASE I
0000F0: 49 20 20 20 20 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D  I    ..---------
000100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000140: 2D 2D 2D 20 20 0D 0A 45 4E 44 54 45 58 54 0D 0A  ---  ..ENDTEXT..
000150: 20 20 40 20 32 32 2C 31 20 53 41 59 20 27 2D 2D    @ 22,1 SAY '--
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000180: 2D 2D 2D 2D 27 20 3B 0D 0A 20 20 20 20 20 20 20  ----' ;..       
000190: 20 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D    + '-----------
0001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 20 20  -----------'..  
0001C0: 40 20 31 31 2C 32 37 20 53 41 59 20 27 52 45 54  @ 11,27 SAY 'RET
0001D0: 55 52 4E 49 4E 47 20 54 4F 20 4D 41 49 4E 20 4D  URNING TO MAIN M
0001E0: 45 4E 55 27 0D 0A 20 20 40 20 32 30 2C 31 0D 0A  ENU'..  @ 20,1..
0001F0: 20 20 53 54 4F 52 45 20 31 20 54 4F 20 43 0D 0A    STORE 1 TO C..

Size : 512 (Real : 512)
000000: 2B 4D 2E 4E 45 58 54 4C 49 4E 45 20 20 3E 20 31  +M.NEXTLINE  > 1
000010: 37 0D 0A 20 20 20 20 20 20 20 20 53 54 4F 52 20  7..        STOR 
000020: 46 20 54 4F 20 54 43 4F 4E 54 0D 0A 20 20 20 20  F TO TCONT..    
000030: 20 20 20 20 49 46 20 45 4F 46 20 0D 0A 20 20 20      IF EOF ..   
000040: 20 20 20 20 20 20 20 53 54 4F 52 20 54 20 54 4F         STOR T TO
000050: 20 4C 41 53 54 52 45 43 0D 0A 20 20 20 20 20 20   LASTREC..      
000060: 20 20 20 20 53 54 4F 52 20 54 20 54 4F 20 4C 4F      STOR T TO LO
000070: 47 49 43 0D 0A 20 20 20 20 20 20 20 20 45 4E 44  GIC..        END
000080: 49 46 0D 0A 20 20 20 20 20 20 45 4E 44 49 46 0D  IF..      ENDIF.
000090: 0A 20 20 20 20 45 4E 44 44 4F 0D 0A 20 20 20 20  .    ENDDO..    
0000A0: 53 45 4C 45 43 54 20 50 52 49 4D 41 52 59 0D 0A  SELECT PRIMARY..
0000B0: 20 20 20 20 52 45 41 44 0D 0A 20 20 20 20 47 4F      READ..    GO
0000C0: 20 54 4F 50 0D 0A 20 20 20 20 43 4C 45 41 20 47   TOP..    CLEA G
0000D0: 45 54 53 0D 0A 20 20 20 20 49 46 20 2E 4E 4F 54  ETS..    IF .NOT
0000E0: 2E 20 4D 2E 4C 41 53 54 52 45 43 0D 0A 20 20 20  . M.LASTREC..   
0000F0: 20 20 20 53 54 4F 52 20 35 20 54 4F 20 4C 49 4E     STOR 5 TO LIN
000100: 45 0D 0A 20 20 20 20 20 20 44 4F 20 57 48 49 4C  E..      DO WHIL
000110: 45 20 4D 2E 4C 49 4E 45 20 3C 31 38 0D 0A 20 20  E M.LINE <18..  
000120: 20 20 20 20 20 20 40 20 4D 2E 4C 49 4E 45 2C 30        @ M.LINE,0
000130: 0D 0A 20 20 20 20 20 20 20 20 53 54 4F 52 20 4D  ..        STOR M
000140: 2E 4C 49 4E 45 20 2B 20 31 20 54 4F 20 4C 49 4E  .LINE + 1 TO LIN
000150: 45 20 0D 0A 20 20 20 20 20 20 45 4E 44 44 4F 0D  E ..      ENDDO.
000160: 0A 20 20 20 20 20 45 4C 53 45 0D 0A 20 20 20 20  .     ELSE..    
000170: 20 20 53 54 4F 52 20 46 20 54 4F 20 4E 4F 43 4F    STOR F TO NOCO
000180: 4E 54 0D 0A 20 20 20 20 45 4E 44 49 46 0D 0A 20  NT..    ENDIF.. 
000190: 20 45 4E 44 44 4F 0D 0A 20 20 40 20 31 39 2C 30   ENDDO..  @ 19,0
0001A0: 0D 0A 20 20 40 20 32 30 2C 30 0D 0A 20 20 40 20  ..  @ 20,0..  @ 
0001B0: 32 31 2C 30 0D 0A 20 20 40 20 32 33 2C 37 20 53  21,0..  @ 23,7 S
0001C0: 41 59 20 4D 2E 42 4C 41 4E 4B 0D 0A 20 20 40 20  AY M.BLANK..  @ 
0001D0: 32 30 2C 35 20 53 41 59 20 27 64 42 41 53 45 20  20,5 SAY 'dBASE 
0001E0: 49 49 20 77 69 6C 6C 20 61 6C 6C 6F 77 20 79 6F  II will allow yo
0001F0: 75 20 74 6F 20 45 44 49 54 20 61 73 20 6D 61 6E  u to EDIT as man

Size : 512 (Real : 512)
000000: 20 20 44 4F 20 57 48 49 4C 45 20 43 20 3C 20 32    DO WHILE C < 2
000010: 35 0D 0A 20 20 20 20 53 54 4F 52 45 20 43 2B 31  5..    STORE C+1
000020: 20 54 4F 20 43 0D 0A 20 20 45 4E 44 44 4F 0D 0A   TO C..  ENDDO..
000030: 20 20 52 45 4C 45 41 53 45 20 41 4C 4C 20 45 58    RELEASE ALL EX
000040: 43 45 50 54 20 4D 46 49 4C 45 0D 0A 20 20 52 45  CEPT MFILE..  RE
000050: 54 55 52 4E 0D 0A 45 4E 44 49 46 0D 0A 40 20 32  TURN..ENDIF..@ 2
000060: 30 2C 35 20 53 41 59 20 27 54 68 65 20 66 69 6C  0,5 SAY 'The fil
000070: 65 20 70 72 65 73 65 6E 74 6C 79 20 69 6E 20 75  e presently in u
000080: 73 65 20 69 73 20 2D 20 27 2B 4D 2E 4D 46 49 4C  se is - '+M.MFIL
000090: 45 0D 0A 53 54 4F 52 45 20 27 20 27 20 54 4F 20  E..STORE ' ' TO 
0000A0: 52 45 50 4C 59 0D 0A 44 4F 20 57 48 49 4C 45 20  REPLY..DO WHILE 
0000B0: 2E 4E 4F 54 2E 20 4D 2E 52 45 50 4C 59 24 27 59  .NOT. M.REPLY$'Y
0000C0: 4E 27 0D 0A 20 20 40 20 32 31 2C 35 20 53 41 59  N'..  @ 21,5 SAY
0000D0: 20 27 44 6F 20 79 6F 75 20 77 69 73 68 20 74 6F   'Do you wish to
0000E0: 20 64 65 6C 65 74 65 20 61 20 72 65 63 6F 72 64   delete a record
0000F0: 20 69 6E 20 74 68 69 73 20 66 69 6C 65 3F 20 59   in this file? Y
000100: 2F 4E 20 27 20 0D 0A 20 20 40 20 32 31 2C 31 20  /N ' ..  @ 21,1 
000110: 47 45 54 20 4D 2E 52 45 50 4C 59 20 70 69 63 74  GET M.REPLY pict
000120: 20 27 21 27 0D 0A 20 20 52 45 41 44 0D 0A 20 20   '!'..  READ..  
000130: 43 4C 45 41 52 20 47 45 54 53 0D 0A 45 4E 44 44  CLEAR GETS..ENDD
000140: 4F 0D 0A 45 52 41 53 0D 0A 54 45 58 54 0D 0A 0D  O..ERAS..TEXT...
000150: 0A 20 57 45 4C 43 4F 4D 45 20 20 20 20 20 20 20  . WELCOME       
000160: 20 20 20 20 20 20 20 20 20 20 20 20 44 45 4C 45              DELE
000170: 54 45 20 44 41 54 41 20 46 52 4F 4D 20 41 20 46  TE DATA FROM A F
000180: 49 4C 45 20 20 20 20 20 20 20 20 20 20 20 20 20  ILE             
000190: 20 20 20 20 64 42 41 53 45 20 49 49 20 20 20 20      dBASE II    
0001A0: 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ..--------------
0001B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20  --------------  
0001F0: 0D 0A 45 4E 44 54 45 58 54 0D 0A 40 20 32 32 2C  ..ENDTEXT..@ 22,

Size : 512 (Real : 512)
000000: 0A 20 20 20 20 53 54 4F 52 45 20 46 20 54 4F 20  .    STORE F TO 
000010: 42 49 47 4E 55 4D 0D 0A 20 20 45 4E 44 49 46 0D  BIGNUM..  ENDIF.
000020: 0A 45 4E 44 44 4F 0D 0A 45 52 41 53 0D 0A 54 45  .ENDDO..ERAS..TE
000030: 58 54 0D 0A 0D 0A 20 57 45 4C 43 4F 4D 45 20 20  XT.... WELCOME  
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000050: 20 44 45 4C 45 54 45 20 44 41 54 41 20 46 52 4F   DELETE DATA FRO
000060: 4D 20 41 20 46 49 4C 45 20 20 20 20 20 20 20 20  M A FILE        
000070: 20 20 20 20 20 20 20 20 20 64 42 41 53 45 20 49           dBASE I
000080: 49 20 20 20 20 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D  I    ..---------
000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000D0: 2D 2D 2D 20 20 0D 0A 45 4E 44 54 45 58 54 0D 0A  ---  ..ENDTEXT..
0000E0: 40 20 32 32 2C 31 20 53 41 59 20 27 2D 2D 2D 2D  @ 22,1 SAY '----
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000110: 2D 2D 27 20 3B 0D 0A 20 20 20 20 20 20 20 20 20  --' ;..         
000120: 2B 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  + '-------------
000130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 49 46 20 56  ---------'..IF V
000150: 41 4C 28 4D 2E 45 44 49 54 29 20 3D 20 30 20 20  AL(M.EDIT) = 0  
000160: 0D 0A 20 20 52 45 4C 45 41 53 45 20 41 4C 4C 20  ..  RELEASE ALL 
000170: 45 58 43 45 50 54 20 4D 46 49 4C 45 0D 0A 20 20  EXCEPT MFILE..  
000180: 53 45 4C 45 43 54 20 53 45 43 4F 4E 44 41 52 59  SELECT SECONDARY
000190: 0D 0A 20 20 55 53 45 0D 0A 20 20 53 45 4C 45 43  ..  USE..  SELEC
0001A0: 54 20 50 52 49 4D 41 52 59 0D 0A 20 20 44 45 4C  T PRIMARY..  DEL
0001B0: 45 54 45 20 46 49 4C 45 20 54 45 4D 50 31 0D 0A  ETE FILE TEMP1..
0001C0: 20 20 45 52 41 53 0D 0A 20 20 40 20 31 31 2C 32    ERAS..  @ 11,2
0001D0: 37 20 53 41 59 20 27 52 45 54 55 52 4E 49 4E 47  7 SAY 'RETURNING
0001E0: 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 27 0D 0A   TO MAIN MENU'..
0001F0: 20 20 40 20 32 30 2C 31 0D 0A 20 20 53 54 4F 52    @ 20,1..  STOR

Size : 512 (Real : 512)
000000: 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D  1 SAY '---------
000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20 3B  -------------' ;
000030: 0D 0A 20 20 20 20 20 20 20 20 20 2B 20 27 2D 2D  ..         + '--
000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000060: 2D 2D 2D 2D 27 0D 0A 49 46 20 4D 2E 52 45 50 4C  ----'..IF M.REPL
000070: 59 3D 27 4E 27 0D 0A 20 20 40 20 31 31 2C 32 37  Y='N'..  @ 11,27
000080: 20 53 41 59 20 27 52 45 54 55 52 4E 49 4E 47 20   SAY 'RETURNING 
000090: 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 20 27 0D 0A  TO MAIN MENU '..
0000A0: 20 20 40 20 32 30 2C 31 0D 0A 20 20 53 54 4F 52    @ 20,1..  STOR
0000B0: 45 20 31 20 54 4F 20 43 0D 0A 20 20 44 4F 20 57  E 1 TO C..  DO W
0000C0: 48 49 4C 45 20 43 20 3C 20 32 35 0D 0A 20 20 20  HILE C < 25..   
0000D0: 20 53 54 4F 52 45 20 43 2B 31 20 54 4F 20 43 0D   STORE C+1 TO C.
0000E0: 0A 20 20 45 4E 44 44 4F 0D 0A 20 20 52 45 4C 45  .  ENDDO..  RELE
0000F0: 41 53 45 20 41 4C 4C 20 45 58 43 45 50 54 20 4D  ASE ALL EXCEPT M
000100: 46 49 4C 45 0D 0A 20 20 52 45 54 55 52 4E 0D 0A  FILE..  RETURN..
000110: 45 4E 44 49 46 0D 0A 40 20 34 2C 30 0D 0A 54 45  ENDIF..@ 4,0..TE
000120: 58 54 0D 0A 20 20 20 20 20 59 6F 75 20 77 6F 75  XT..     You wou
000130: 6C 64 20 64 65 6C 65 74 65 20 64 61 74 61 20 69  ld delete data i
000140: 6E 20 64 42 41 53 45 20 49 49 20 62 79 20 74 79  n dBASE II by ty
000150: 70 69 6E 67 0D 0A 0D 0A 20 20 20 20 20 20 2E 20  ping....      . 
000160: 44 45 4C 45 54 45 20 52 45 43 4F 52 44 20 3C 72  DELETE RECORD <r
000170: 65 63 6F 72 64 20 6E 75 6D 62 65 72 3E 0D 0A 0D  ecord number>...
000180: 0A 20 20 20 20 20 4F 72 20 74 68 65 20 63 6F 6D  .     Or the com
000190: 6D 61 6E 64 20 3A 0D 0A 0D 0A 20 20 20 20 20 20  mand :....      
0001A0: 2E 20 44 45 4C 45 54 45 20 41 4C 4C 0D 0A 20 20  . DELETE ALL..  
0001B0: 0D 0A 20 20 20 20 20 64 42 41 53 45 20 49 49 20  ..     dBASE II 
0001C0: 77 69 6C 6C 20 74 68 65 6E 20 6D 61 72 6B 20 74  will then mark t
0001D0: 68 6F 73 65 20 72 65 63 6F 72 64 73 20 66 6F 72  hose records for
0001E0: 20 64 65 6C 65 74 69 6F 6E 2E 0D 0A 0D 0A 20 20   deletion.....  
0001F0: 20 20 20 57 65 20 77 69 6C 6C 20 63 6F 6E 63 65     We will conce

Size : 512 (Real : 512)
000000: 20 30 20 54 4F 20 50 41 55 53 45 0D 0A 20 20 44   0 TO PAUSE..  D
000010: 4F 20 57 48 49 4C 45 20 4D 2E 50 41 55 53 45 3C  O WHILE M.PAUSE<
000020: 32 35 0D 0A 20 20 20 20 53 54 4F 52 20 4D 2E 50  25..    STOR M.P
000030: 41 55 53 45 2B 31 20 54 4F 20 50 41 55 53 45 0D  AUSE+1 TO PAUSE.
000040: 0A 20 20 45 4E 44 44 4F 0D 0A 20 20 52 45 54 55  .  ENDDO..  RETU
000050: 52 4E 0D 0A 45 4E 44 49 46 0D 0A 40 20 32 33 2C  RN..ENDIF..@ 23,
000060: 30 20 53 41 59 20 27 2E 20 44 45 4C 45 54 45 20  0 SAY '. DELETE 
000070: 52 45 43 4F 52 44 20 27 0D 0A 40 20 32 30 2C 35  RECORD '..@ 20,5
000080: 20 53 41 59 20 27 59 6F 75 20 68 61 76 65 20 63   SAY 'You have c
000090: 68 6F 73 65 6E 20 72 65 63 6F 72 64 20 27 2B 54  hosen record '+T
0000A0: 52 49 4D 28 4D 2E 45 44 49 54 29 20 27 20 66 6F  RIM(M.EDIT) ' fo
0000B0: 72 20 64 65 6C 65 74 69 6F 6E 27 0D 0A 53 54 4F  r deletion'..STO
0000C0: 52 45 20 27 20 27 20 54 4F 20 52 45 50 4C 59 0D  RE ' ' TO REPLY.
0000D0: 0A 44 4F 20 57 48 49 4C 45 20 2E 4E 4F 54 2E 20  .DO WHILE .NOT. 
0000E0: 4D 2E 52 45 50 4C 59 24 27 59 4E 27 0D 0A 20 20  M.REPLY$'YN'..  
0000F0: 40 20 32 31 2C 35 20 53 41 59 20 27 41 72 65 20  @ 21,5 SAY 'Are 
000100: 79 6F 75 20 73 75 72 65 3F 20 59 2F 4E 20 27 20  you sure? Y/N ' 
000110: 0D 0A 20 20 40 20 32 31 2C 31 20 47 45 54 20 4D  ..  @ 21,1 GET M
000120: 2E 52 45 50 4C 59 20 50 49 43 54 20 22 21 22 0D  .REPLY PICT "!".
000130: 0A 20 20 52 45 41 44 0D 0A 20 20 43 4C 45 41 52  .  READ..  CLEAR
000140: 20 47 45 54 53 0D 0A 45 4E 44 44 4F 0D 0A 40 20   GETS..ENDDO..@ 
000150: 32 30 2C 30 0D 0A 40 20 32 31 2C 30 0D 0A 49 46  20,0..@ 21,0..IF
000160: 20 4D 2E 52 45 50 4C 59 3D 27 4E 27 0D 0A 20 20   M.REPLY='N'..  
000170: 40 20 32 33 2C 30 20 53 41 59 20 4D 2E 42 4C 41  @ 23,0 SAY M.BLA
000180: 4E 4B 0D 0A 20 20 40 20 31 31 2C 32 37 20 53 41  NK..  @ 11,27 SA
000190: 59 20 27 52 45 54 55 52 4E 49 4E 47 20 54 4F 20  Y 'RETURNING TO 
0001A0: 4D 41 49 4E 20 4D 45 4E 55 27 0D 0A 20 20 40 20  MAIN MENU'..  @ 
0001B0: 32 30 2C 31 0D 0A 20 20 53 54 4F 52 45 20 31 20  20,1..  STORE 1 
0001C0: 54 4F 20 43 0D 0A 20 20 44 4F 20 57 48 49 4C 45  TO C..  DO WHILE
0001D0: 20 43 20 3C 20 32 35 0D 0A 20 20 20 20 53 54 4F   C < 25..    STO
0001E0: 52 45 20 43 2B 31 20 54 4F 20 43 0D 0A 20 20 45  RE C+1 TO C..  E
0001F0: 4E 44 44 4F 0D 0A 20 20 52 45 4C 45 41 53 45 20  NDDO..  RELEASE 

Size : 512 (Real : 512)
000000: 72 6E 20 6F 75 72 73 65 6C 76 65 73 20 77 69 74  rn ourselves wit
000010: 68 20 64 65 6C 65 74 69 6E 67 20 6F 6E 65 20 72  h deleting one r
000020: 65 63 6F 72 64 20 66 6F 72 20 6E 6F 77 2E 0D 0A  ecord for now...
000030: 20 20 20 20 20 54 68 65 20 63 6F 6D 6D 61 6E 64       The command
000040: 20 69 73 20 73 68 6F 77 6E 20 62 65 6C 6F 77 20   is shown below 
000050: 74 68 65 20 6C 69 6E 65 2E 0D 0A 0D 0A 45 4E 44  the line.....END
000060: 54 45 58 54 0D 0A 40 20 32 33 2C 30 20 53 41 59  TEXT..@ 23,0 SAY
000070: 20 27 2E 20 44 45 4C 45 54 45 20 52 45 43 4F 52   '. DELETE RECOR
000080: 44 27 0D 0A 53 54 4F 52 45 20 27 20 27 20 54 4F  D'..STORE ' ' TO
000090: 20 54 45 4D 50 0D 0A 40 20 32 31 2C 35 20 53 41   TEMP..@ 21,5 SA
0000A0: 59 20 27 50 72 65 73 73 20 61 6E 79 20 6B 65 79  Y 'Press any key
0000B0: 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 27 0D 0A   to continue '..
0000C0: 40 20 32 31 2C 31 20 47 45 54 20 4D 2E 54 45 4D  @ 21,1 GET M.TEM
0000D0: 50 0D 0A 52 45 41 44 0D 0A 43 4C 45 41 52 20 47  P..READ..CLEAR G
0000E0: 45 54 53 0D 0A 45 52 41 53 0D 0A 54 45 58 54 0D  ETS..ERAS..TEXT.
0000F0: 0A 0D 0A 20 57 45 4C 43 4F 4D 45 20 20 20 20 20  ... WELCOME     
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 45                DE
000110: 4C 45 54 45 20 44 41 54 41 20 46 52 4F 4D 20 41  LETE DATA FROM A
000120: 20 46 49 4C 45 20 20 20 20 20 20 20 20 20 20 20   FILE           
000130: 20 20 20 20 20 20 64 42 41 53 45 20 49 49 20 20        dBASE II  
000140: 20 20 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D    ..------------
000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000190: 20 20 0D 0A 45 4E 44 54 45 58 54 0D 0A 40 20 32    ..ENDTEXT..@ 2
0001A0: 32 2C 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D 2D  2,1 SAY '-------
0001B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27  ---------------'
0001D0: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 2B 20 27   ;..         + '
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------

Size : 512 (Real : 512)
000000: 41 4C 4C 20 45 58 43 45 50 54 20 4D 46 49 4C 45  ALL EXCEPT MFILE
000010: 0D 0A 20 20 53 45 4C 45 43 54 20 53 45 43 4F 4E  ..  SELECT SECON
000020: 44 41 52 59 0D 0A 20 20 55 53 45 0D 0A 20 20 53  DARY..  USE..  S
000030: 45 4C 45 43 54 20 50 52 49 4D 41 52 59 0D 0A 20  ELECT PRIMARY.. 
000040: 20 44 45 4C 45 54 45 20 46 49 4C 45 20 54 45 4D   DELETE FILE TEM
000050: 50 31 0D 0A 20 20 52 45 54 55 52 4E 0D 0A 20 45  P1..  RETURN.. E
000060: 4C 53 45 0D 0A 20 20 40 20 32 33 2C 30 20 53 41  LSE..  @ 23,0 SA
000070: 59 20 27 2E 20 44 45 4C 45 54 45 20 52 45 43 4F  Y '. DELETE RECO
000080: 52 44 20 27 2B 4D 2E 45 44 49 54 0D 0A 20 20 40  RD '+M.EDIT..  @
000090: 20 31 39 2C 35 20 53 41 59 20 27 42 65 6C 6F 77   19,5 SAY 'Below
0000A0: 20 74 68 65 20 6C 69 6E 65 20 79 6F 75 20 77 69   the line you wi
0000B0: 6C 6C 20 6E 6F 77 20 73 65 65 20 74 68 65 20 63  ll now see the c
0000C0: 6F 6D 70 6C 65 74 65 20 63 6F 6D 6D 61 6E 64 27  omplete command'
0000D0: 0D 0A 20 20 40 20 32 30 2C 35 20 53 41 59 20 27  ..  @ 20,5 SAY '
0000E0: 61 73 20 79 6F 75 20 77 6F 75 6C 64 20 74 79 70  as you would typ
0000F0: 65 20 69 74 20 79 6F 75 72 73 65 6C 66 2E 27 20  e it yourself.' 
000100: 0D 0A 20 20 53 54 4F 52 45 20 27 20 27 20 54 4F  ..  STORE ' ' TO
000110: 20 54 45 4D 50 0D 0A 20 20 40 20 32 31 2C 35 20   TEMP..  @ 21,5 
000120: 53 41 59 20 27 50 72 65 73 73 20 61 6E 79 20 6B  SAY 'Press any k
000130: 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 27  ey to continue '
000140: 0D 0A 20 20 40 20 32 31 2C 31 20 47 45 54 20 4D  ..  @ 21,1 GET M
000150: 2E 54 45 4D 50 0D 0A 20 20 52 45 41 44 0D 0A 20  .TEMP..  READ.. 
000160: 20 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 47   CLEAR GETS..  G
000170: 4F 20 56 41 4C 28 4D 2E 45 44 49 54 29 0D 0A 20  O VAL(M.EDIT).. 
000180: 20 44 45 4C 45 54 45 20 0D 0A 45 4E 44 49 46 0D   DELETE ..ENDIF.
000190: 0A 40 20 31 39 2C 30 0D 0A 40 20 32 30 2C 30 0D  .@ 19,0..@ 20,0.
0001A0: 0A 40 20 32 31 2C 30 0D 0A 40 20 20 34 2C 30 0D  .@ 21,0..@  4,0.
0001B0: 0A 54 45 58 54 0D 0A 20 20 20 20 20 20 20 59 6F  .TEXT..       Yo
0001C0: 75 72 20 72 65 63 6F 72 64 20 68 61 73 20 6E 6F  ur record has no
0001D0: 77 20 62 65 65 6E 20 6D 61 72 6B 65 64 20 66 6F  w been marked fo
0001E0: 72 20 64 65 6C 65 74 69 6F 6E 2E 0D 0A 20 20 20  r deletion...   
0001F0: 20 20 20 20 54 6F 20 65 72 61 73 65 20 69 74 20      To erase it 

Size : 512 (Real : 512)
000000: 2D 2D 2D 2D 2D 2D 27 0D 0A 40 20 32 33 2C 30 20  ------'..@ 23,0 
000010: 53 41 59 20 27 2E 20 44 45 4C 45 54 45 20 52 45  SAY '. DELETE RE
000020: 43 4F 52 44 27 0D 0A 43 4F 50 59 20 54 4F 20 54  CORD'..COPY TO T
000030: 45 4D 50 31 20 53 54 52 55 43 54 55 52 45 20 45  EMP1 STRUCTURE E
000040: 58 54 45 4E 44 45 44 0D 0A 53 45 4C 45 43 54 20  XTENDED..SELECT 
000050: 53 45 43 4F 4E 44 41 52 59 0D 0A 55 53 45 20 54  SECONDARY..USE T
000060: 45 4D 50 31 0D 0A 53 45 4C 45 43 54 20 50 52 49  EMP1..SELECT PRI
000070: 4D 41 52 59 0D 0A 47 4F 20 42 4F 54 54 4F 4D 0D  MARY..GO BOTTOM.
000080: 0A 53 54 4F 52 20 53 54 52 28 23 2C 33 29 20 54  .STOR STR(#,3) T
000090: 4F 20 52 45 43 4E 55 4D 0D 0A 53 54 4F 52 20 54  O RECNUM..STOR T
0000A0: 20 54 4F 20 42 49 47 4E 55 4D 0D 0A 53 54 4F 52   TO BIGNUM..STOR
0000B0: 20 27 20 20 20 27 20 54 4F 20 45 44 49 54 0D 0A   '   ' TO EDIT..
0000C0: 44 4F 20 57 48 49 4C 45 20 4D 2E 42 49 47 4E 55  DO WHILE M.BIGNU
0000D0: 4D 0D 0A 20 20 40 20 31 39 2C 35 20 53 41 59 20  M..  @ 19,5 SAY 
0000E0: 27 59 6F 75 20 68 61 76 65 20 27 2B 4D 2E 52 45  'You have '+M.RE
0000F0: 43 4E 55 4D 2B 27 20 72 65 63 6F 72 64 73 20 69  CNUM+' records i
000100: 6E 20 27 2B 4D 2E 4D 46 49 4C 45 0D 0A 20 20 40  n '+M.MFILE..  @
000110: 20 31 37 2C 35 20 53 41 59 20 27 43 68 6F 6F 73   17,5 SAY 'Choos
000120: 65 20 61 20 72 65 63 6F 72 64 20 6E 75 6D 62 65  e a record numbe
000130: 72 20 74 6F 20 64 65 6C 65 74 65 20 27 47 45 54  r to delete 'GET
000140: 20 4D 2E 45 44 49 54 20 50 49 43 54 20 27 39 39   M.EDIT PICT '99
000150: 39 27 0D 0A 20 20 40 20 31 37 2C 34 32 20 53 41  9'..  @ 17,42 SA
000160: 59 20 27 5B 42 6C 61 6E 6B 20 74 6F 20 66 69 6E  Y '[Blank to fin
000170: 69 73 68 5D 27 0D 0A 20 20 52 45 41 44 0D 0A 20  ish]'..  READ.. 
000180: 20 43 4C 45 41 20 47 45 54 53 0D 0A 20 20 49 46   CLEA GETS..  IF
000190: 20 56 41 4C 28 4D 2E 45 44 49 54 29 20 3C 3E 20   VAL(M.EDIT) <> 
0001A0: 49 4E 54 28 56 41 4C 28 4D 2E 45 44 49 54 29 29  INT(VAL(M.EDIT))
0001B0: 0D 0A 20 20 20 20 40 20 32 30 2C 35 20 53 41 59  ..    @ 20,5 SAY
0001C0: 20 27 50 6C 65 61 73 65 20 74 72 79 20 61 20 77   'Please try a w
0001D0: 68 6F 6C 65 20 6E 75 6D 62 65 72 20 21 21 27 0D  hole number !!'.
0001E0: 0A 20 20 20 20 53 54 4F 52 45 20 27 20 27 20 54  .    STORE ' ' T
0001F0: 4F 20 54 45 4D 50 0D 0A 20 20 20 20 40 20 32 31  O TEMP..    @ 21

Size : 512 (Real : 512)
000000: 66 72 6F 6D 20 79 6F 75 72 20 66 69 6C 65 20 79  from your file y
000010: 6F 75 20 75 73 65 20 74 68 65 20 50 41 43 4B 20  ou use the PACK 
000020: 63 6F 6D 6D 61 6E 64 2E 20 0D 0A 0D 0A 20 20 20  command. ....   
000030: 20 20 20 20 54 6F 20 73 61 76 65 20 79 6F 75 72      To save your
000040: 20 72 65 63 6F 72 64 20 66 72 6F 6D 20 64 65 6C   record from del
000050: 65 74 69 6F 6E 20 79 6F 75 20 75 73 65 20 74 68  etion you use th
000060: 65 20 52 45 43 41 4C 4C 20 0D 0A 20 20 20 20 20  e RECALL ..     
000070: 20 20 63 6F 6D 6D 61 6E 64 2E 20 0D 0A 0D 0A 0D    command. .....
000080: 0A 0D 0A 45 4E 44 54 45 58 54 0D 0A 40 20 32 32  ...ENDTEXT..@ 22
000090: 2C 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D 2D 2D  ,1 SAY '--------
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20  --------------' 
0000C0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 2B 20 27 2D  ;..         + '-
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000F0: 2D 2D 2D 2D 2D 27 0D 0A 53 54 4F 52 45 20 27 20  -----'..STORE ' 
000100: 27 20 54 4F 20 50 41 43 52 45 43 0D 0A 53 54 4F  ' TO PACREC..STO
000110: 52 45 20 59 20 20 20 54 4F 20 4D 46 49 52 53 54  RE Y   TO MFIRST
000120: 0D 0A 44 4F 20 57 48 49 4C 45 20 2E 4E 4F 54 2E  ..DO WHILE .NOT.
000130: 20 4D 2E 50 41 43 52 45 43 24 27 50 52 27 0D 0A   M.PACREC$'PR'..
000140: 20 20 40 20 32 31 2C 30 0D 0A 20 20 40 20 32 31    @ 21,0..  @ 21
000150: 2C 35 20 53 41 59 20 27 44 6F 20 79 6F 75 20 77  ,5 SAY 'Do you w
000160: 69 73 68 20 74 6F 20 50 41 43 4B 20 6F 72 20 52  ish to PACK or R
000170: 45 43 41 4C 4C 3F 20 28 50 2F 52 29 20 27 20 0D  ECALL? (P/R) ' .
000180: 0A 20 20 40 20 32 31 2C 31 20 47 45 54 20 4D 2E  .  @ 21,1 GET M.
000190: 50 41 43 52 45 43 20 50 49 43 54 20 27 21 27 0D  PACREC PICT '!'.
0001A0: 0A 20 20 49 46 20 2E 4E 4F 54 2E 20 4D 2E 4D 46  .  IF .NOT. M.MF
0001B0: 49 52 53 54 0D 0A 20 20 20 20 40 20 32 31 2C 35  IRST..    @ 21,5
0001C0: 30 20 53 41 59 20 27 3C 2D 20 49 6E 76 61 6C 69  0 SAY '<- Invali
0001D0: 64 20 53 65 6C 65 63 74 69 6F 6E 27 0D 0A 20 20  d Selection'..  
0001E0: 45 4C 53 45 0D 0A 20 20 20 20 53 54 4F 52 45 20  ELSE..    STORE 
0001F0: 4E 20 54 4F 20 4D 46 49 52 53 54 0D 0A 20 20 45  N TO MFIRST..  E

Size : 512 (Real : 512)
000000: 2C 35 20 53 41 59 20 27 50 72 65 73 73 20 61 6E  ,5 SAY 'Press an
000010: 79 20 6B 65 79 20 74 6F 20 72 65 74 72 79 20 27  y key to retry '
000020: 20 0D 0A 20 20 20 20 40 20 32 31 2C 31 20 47 45   ..    @ 21,1 GE
000030: 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 20 20 52 45  T M.TEMP..    RE
000040: 41 44 0D 0A 20 20 20 20 43 4C 45 41 52 20 47 45  AD..    CLEAR GE
000050: 54 53 0D 0A 20 20 20 20 40 20 31 37 2C 30 0D 0A  TS..    @ 17,0..
000060: 20 20 20 20 40 20 31 38 2C 30 0D 0A 20 20 20 20      @ 18,0..    
000070: 40 20 31 39 2C 30 0D 0A 20 20 20 20 40 20 32 30  @ 19,0..    @ 20
000080: 2C 30 0D 0A 20 20 20 20 40 20 32 31 2C 31 0D 0A  ,0..    @ 21,1..
000090: 20 20 20 20 53 54 4F 52 45 20 27 20 20 20 27 20      STORE '   ' 
0000A0: 54 4F 20 45 44 49 54 0D 0A 20 20 20 20 4C 4F 4F  TO EDIT..    LOO
0000B0: 50 0D 0A 20 20 45 4E 44 49 46 20 0D 0A 20 20 49  P..  ENDIF ..  I
0000C0: 46 20 56 41 4C 28 4D 2E 45 44 49 54 29 20 3C 20  F VAL(M.EDIT) < 
0000D0: 30 20 2E 4F 52 2E 20 56 41 4C 28 4D 2E 45 44 49  0 .OR. VAL(M.EDI
0000E0: 54 29 20 3E 20 23 20 0D 0A 20 20 20 20 40 20 32  T) > # ..    @ 2
0000F0: 30 2C 35 20 53 41 59 20 27 52 65 63 6F 72 64 20  0,5 SAY 'Record 
000100: 6F 75 74 20 6F 66 20 72 61 6E 67 65 2E 20 50 6C  out of range. Pl
000110: 65 61 73 65 20 63 68 6F 6F 73 65 20 61 67 61 69  ease choose agai
000120: 6E 2E 27 0D 0A 20 20 20 20 53 54 4F 52 45 20 27  n.'..    STORE '
000130: 20 27 20 54 4F 20 54 45 4D 50 0D 0A 20 20 20 20   ' TO TEMP..    
000140: 40 20 32 31 2C 35 20 53 41 59 20 27 50 72 65 73  @ 21,5 SAY 'Pres
000150: 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 72 65 74  s any key to ret
000160: 72 79 20 27 20 0D 0A 20 20 20 20 40 20 32 31 2C  ry ' ..    @ 21,
000170: 31 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20  1 GET M.TEMP..  
000180: 20 20 52 45 41 44 0D 0A 20 20 20 20 43 4C 45 41    READ..    CLEA
000190: 52 20 47 45 54 53 0D 0A 20 20 20 20 40 20 31 36  R GETS..    @ 16
0001A0: 2C 30 0D 0A 20 20 20 20 40 20 31 37 2C 30 0D 0A  ,0..    @ 17,0..
0001B0: 20 20 20 20 40 20 31 38 2C 30 0D 0A 20 20 20 20      @ 18,0..    
0001C0: 40 20 31 39 2C 30 0D 0A 20 20 20 20 40 20 32 30  @ 19,0..    @ 20
0001D0: 2C 30 0D 0A 20 20 20 20 40 20 32 31 2C 31 0D 0A  ,0..    @ 21,1..
0001E0: 20 20 20 20 53 54 4F 52 45 20 27 20 20 20 27 20      STORE '   ' 
0001F0: 54 4F 20 45 44 49 54 0D 0A 20 20 45 4C 53 45 0D  TO EDIT..  ELSE.

Size : 512 (Real : 512)
000000: 4E 44 49 46 0D 0A 20 20 52 45 41 44 0D 0A 45 4E  NDIF..  READ..EN
000010: 44 44 4F 0D 0A 52 45 4C 45 41 53 45 20 4D 46 49  DDO..RELEASE MFI
000020: 52 53 54 0D 0A 43 4C 45 41 52 20 47 45 54 53 0D  RST..CLEAR GETS.
000030: 0A 45 52 41 53 0D 0A 54 45 58 54 0D 0A 0D 0A 20  .ERAS..TEXT.... 
000040: 57 45 4C 43 4F 4D 45 20 20 20 20 20 20 20 20 20  WELCOME         
000050: 20 20 20 20 20 20 20 20 20 20 44 45 4C 45 54 45            DELETE
000060: 20 44 41 54 41 20 46 52 4F 4D 20 41 20 46 49 4C   DATA FROM A FIL
000070: 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  E               
000080: 20 20 64 42 41 53 45 20 49 49 20 20 20 20 0D 0A    dBASE II    ..
000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 0D 0A  ------------  ..
0000E0: 45 4E 44 54 45 58 54 0D 0A 40 20 32 32 2C 31 20  ENDTEXT..@ 22,1 
0000F0: 53 41 59 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  SAY '-----------
000100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20 3B 0D 0A  -----------' ;..
000120: 20 20 20 20 20 20 20 20 20 2B 20 27 2D 2D 2D 2D           + '----
000130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000150: 2D 2D 27 0D 0A 49 46 20 4D 2E 50 41 43 52 45 43  --'..IF M.PACREC
000160: 20 3D 20 27 50 27 20 0D 0A 20 20 40 20 32 33 2C   = 'P' ..  @ 23,
000170: 30 20 53 41 59 20 27 2E 20 50 41 43 4B 27 0D 0A  0 SAY '. PACK'..
000180: 20 20 40 20 32 30 2C 35 20 53 41 59 20 27 54 6F    @ 20,5 SAY 'To
000190: 20 50 41 43 4B 20 79 6F 75 72 20 66 69 6C 65 2C   PACK your file,
0001A0: 20 79 6F 75 20 6D 75 73 74 20 69 73 73 75 65 20   you must issue 
0001B0: 74 68 65 20 63 6F 6D 6D 61 6E 64 20 62 65 6C 6F  the command belo
0001C0: 77 3A 2D 27 0D 0A 20 20 53 54 4F 52 45 20 27 20  w:-'..  STORE ' 
0001D0: 27 20 54 4F 20 54 45 4D 50 0D 0A 20 20 40 20 32  ' TO TEMP..  @ 2
0001E0: 31 2C 35 20 53 41 59 20 27 50 72 65 73 73 20 61  1,5 SAY 'Press a
0001F0: 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E  ny key to contin

Size : 512 (Real : 512)
000000: 4D 46 49 4C 45 0D 0A 53 54 4F 52 45 20 27 20 27  MFILE..STORE ' '
000010: 20 54 4F 20 52 45 50 4C 59 0D 0A 44 4F 20 57 48   TO REPLY..DO WH
000020: 49 4C 45 20 2E 4E 4F 54 2E 20 4D 2E 52 45 50 4C  ILE .NOT. M.REPL
000030: 59 24 27 59 4E 27 0D 0A 20 20 40 20 32 31 2C 30  Y$'YN'..  @ 21,0
000040: 0D 0A 20 20 40 20 32 31 2C 35 20 53 41 59 20 27  ..  @ 21,5 SAY '
000050: 44 6F 20 79 6F 75 20 77 69 73 68 20 74 6F 20 44  Do you wish to D
000060: 49 53 50 4C 41 59 20 74 68 69 73 20 66 69 6C 65  ISPLAY this file
000070: 3F 20 59 2F 4E 20 27 20 0D 0A 20 20 40 20 32 31  ? Y/N ' ..  @ 21
000080: 2C 31 20 47 45 54 20 4D 2E 52 45 50 4C 59 20 70  ,1 GET M.REPLY p
000090: 69 63 74 20 27 21 27 0D 0A 20 20 52 45 41 44 0D  ict '!'..  READ.
0000A0: 0A 20 20 43 4C 45 41 52 20 47 45 54 53 0D 0A 45  .  CLEAR GETS..E
0000B0: 4E 44 44 4F 0D 0A 45 52 41 53 45 0D 0A 40 20 31  NDDO..ERASE..@ 1
0000C0: 2C 31 20 53 41 59 20 27 57 45 4C 43 4F 4D 45 20  ,1 SAY 'WELCOME 
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000E0: 20 20 4C 49 53 54 2F 44 49 53 50 4C 41 59 20 52    LIST/DISPLAY R
0000F0: 45 43 4F 52 44 53 20 20 20 20 20 20 20 20 20 20  ECORDS          
000100: 20 20 20 20 20 20 27 20 3B 0D 0A 20 20 20 20 20        ' ;..     
000110: 20 20 20 2B 20 27 20 20 20 20 20 64 42 41 53 45     + '     dBASE
000120: 20 49 49 27 0D 0A 40 20 32 2C 31 20 53 41 59 20   II'..@ 2,1 SAY 
000130: 55 4E 44 45 52 4C 4E 0D 0A 40 20 32 32 2C 31 20  UNDERLN..@ 22,1 
000140: 53 41 59 20 55 4E 44 45 52 4C 4E 0D 0A 49 46 20  SAY UNDERLN..IF 
000150: 4D 2E 52 45 50 4C 59 3D 27 4E 27 0D 0A 20 20 40  M.REPLY='N'..  @
000160: 20 31 31 2C 32 37 20 53 41 59 20 27 52 45 54 55   11,27 SAY 'RETU
000170: 52 4E 49 4E 47 20 54 4F 20 4D 41 49 4E 20 4D 45  RNING TO MAIN ME
000180: 4E 55 27 0D 0A 20 20 40 20 32 30 2C 31 0D 0A 20  NU'..  @ 20,1.. 
000190: 20 53 54 4F 52 45 20 31 20 54 4F 20 43 0D 0A 20   STORE 1 TO C.. 
0001A0: 20 44 4F 20 57 48 49 4C 45 20 43 20 3C 20 32 35   DO WHILE C < 25
0001B0: 0D 0A 20 20 20 20 53 54 4F 52 45 20 43 2B 31 20  ..    STORE C+1 
0001C0: 54 4F 20 43 0D 0A 20 20 45 4E 44 44 4F 0D 0A 20  TO C..  ENDDO.. 
0001D0: 20 52 45 4C 45 41 53 45 20 41 4C 4C 20 45 58 43   RELEASE ALL EXC
0001E0: 45 50 54 20 4D 46 49 4C 45 0D 0A 20 20 52 45 54  EPT MFILE..  RET
0001F0: 55 52 4E 0D 0A 45 4E 44 49 46 0D 0A 40 20 34 2C  URN..ENDIF..@ 4,

Size : 512 (Real : 512)
000000: 75 65 20 27 0D 0A 20 20 40 20 32 31 2C 31 20 47  ue '..  @ 21,1 G
000010: 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 52 45 41  ET M.TEMP..  REA
000020: 44 0D 0A 20 20 43 4C 45 41 52 20 47 45 54 53 0D  D..  CLEAR GETS.
000030: 0A 20 20 50 41 43 4B 0D 0A 20 20 40 20 32 30 2C  .  PACK..  @ 20,
000040: 30 0D 0A 20 20 40 20 32 31 2C 30 0D 0A 20 20 40  0..  @ 21,0..  @
000050: 20 32 31 2C 35 20 53 41 59 20 27 43 6F 6E 67 72   21,5 SAY 'Congr
000060: 61 74 75 6C 61 74 69 6F 6E 73 2C 20 79 6F 75 20  atulations, you 
000070: 68 61 76 65 20 73 75 63 63 65 73 73 66 75 6C 6C  have successfull
000080: 79 20 64 65 6C 65 74 65 64 20 72 65 63 6F 72 64  y deleted record
000090: 20 27 3B 0D 0A 20 2B 20 4D 2E 45 44 49 54 0D 0A   ';.. + M.EDIT..
0000A0: 45 4C 53 45 0D 0A 20 20 40 20 32 33 2C 30 20 53  ELSE..  @ 23,0 S
0000B0: 41 59 20 27 2E 20 52 45 43 41 4C 4C 27 0D 0A 20  AY '. RECALL'.. 
0000C0: 20 40 20 32 30 2C 35 20 53 41 59 20 27 54 6F 20   @ 20,5 SAY 'To 
0000D0: 72 65 63 61 6C 6C 20 74 68 69 73 20 72 65 63 6F  recall this reco
0000E0: 72 64 2C 20 79 6F 75 20 6D 75 73 74 20 69 73 73  rd, you must iss
0000F0: 75 65 20 74 68 65 20 63 6F 6D 6D 61 6E 64 20 62  ue the command b
000100: 65 6C 6F 77 3A 2D 27 0D 0A 20 20 53 54 4F 52 45  elow:-'..  STORE
000110: 20 27 20 27 20 54 4F 20 54 45 4D 50 0D 0A 20 20   ' ' TO TEMP..  
000120: 40 20 32 31 2C 35 20 53 41 59 20 27 50 72 65 73  @ 21,5 SAY 'Pres
000130: 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E  s any key to con
000140: 74 69 6E 75 65 20 27 0D 0A 20 20 40 20 32 31 2C  tinue '..  @ 21,
000150: 31 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20  1 GET M.TEMP..  
000160: 52 45 41 44 0D 0A 20 20 43 4C 45 41 52 20 47 45  READ..  CLEAR GE
000170: 54 53 0D 0A 20 20 52 45 43 41 4C 4C 0D 0A 20 20  TS..  RECALL..  
000180: 40 20 32 30 2C 30 0D 0A 20 20 40 20 32 31 2C 30  @ 20,0..  @ 21,0
000190: 0D 0A 20 20 40 20 32 31 2C 35 20 53 41 59 20 27  ..  @ 21,5 SAY '
0001A0: 43 6F 6E 67 72 61 74 75 6C 61 74 69 6F 6E 73 2C  Congratulations,
0001B0: 20 79 6F 75 20 68 61 76 65 20 73 75 63 63 65 73   you have succes
0001C0: 73 66 75 6C 6C 79 20 72 65 63 61 6C 6C 65 64 20  sfully recalled 
0001D0: 72 65 63 6F 72 64 20 27 3B 0D 0A 20 2B 20 4D 2E  record ';.. + M.
0001E0: 45 44 49 54 0D 0A 45 4E 44 49 46 0D 0A 53 54 4F  EDIT..ENDIF..STO
0001F0: 52 45 20 31 20 54 4F 20 43 0D 0A 44 4F 20 57 48  RE 1 TO C..DO WH

Size : 512 (Real : 512)
000000: 30 20 0D 0A 54 45 58 54 0D 0A 20 20 20 20 20 59  0 ..TEXT..     Y
000010: 6F 75 20 77 6F 75 6C 64 20 64 69 73 70 6C 61 79  ou would display
000020: 20 64 61 74 61 20 69 6E 20 61 20 64 42 41 53 45   data in a dBASE
000030: 20 49 49 20 66 69 6C 65 20 62 79 20 74 79 70 69   II file by typi
000040: 6E 67 0D 0A 0D 0A 20 20 20 20 20 20 2E 20 44 49  ng....      . DI
000050: 53 50 4C 41 59 20 0D 0A 0D 0A 20 20 20 20 20 54  SPLAY ....     T
000060: 6F 20 68 65 6C 70 20 79 6F 75 20 61 6C 6F 6E 67  o help you along
000070: 20 49 20 68 61 76 65 20 61 6C 72 65 61 64 79 20   I have already 
000080: 65 6E 74 65 72 65 64 20 74 68 65 20 44 49 53 50  entered the DISP
000090: 4C 41 59 20 2D 0D 0A 20 20 20 20 20 73 68 6F 77  LAY -..     show
0000A0: 6E 20 62 65 6C 6F 77 20 74 68 65 20 6C 69 6E 65  n below the line
0000B0: 2E 0D 0A 20 20 20 20 20 20 0D 0A 45 4E 44 54 45  ...      ..ENDTE
0000C0: 58 54 0D 0A 40 20 32 33 2C 30 20 53 41 59 20 27  XT..@ 23,0 SAY '
0000D0: 2E 20 44 49 53 50 4C 41 59 27 0D 0A 53 54 4F 52  . DISPLAY'..STOR
0000E0: 45 20 27 20 27 20 54 4F 20 54 45 4D 50 0D 0A 40  E ' ' TO TEMP..@
0000F0: 20 32 31 2C 35 20 53 41 59 20 27 50 72 65 73 73   21,5 SAY 'Press
000100: 20 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74   any key to cont
000110: 69 6E 75 65 20 27 0D 0A 40 20 32 31 2C 31 20 47  inue '..@ 21,1 G
000120: 45 54 20 4D 2E 54 45 4D 50 0D 0A 52 45 41 44 0D  ET M.TEMP..READ.
000130: 0A 43 4C 45 41 52 20 47 45 54 53 0D 0A 45 52 41  .CLEAR GETS..ERA
000140: 53 45 0D 0A 40 20 31 2C 31 20 53 41 59 20 27 57  SE..@ 1,1 SAY 'W
000150: 45 4C 43 4F 4D 45 20 20 20 20 20 20 20 20 20 20  ELCOME          
000160: 20 20 20 20 20 20 20 20 20 4C 49 53 54 2F 44 49           LIST/DI
000170: 53 50 4C 41 59 20 52 45 43 4F 52 44 53 20 20 20  SPLAY RECORDS   
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 27 20 3B               ' ;
000190: 0D 0A 20 20 20 20 20 20 20 20 2B 20 27 20 20 20  ..        + '   
0001A0: 20 20 64 42 41 53 45 20 49 49 27 0D 0A 40 20 32    dBASE II'..@ 2
0001B0: 2C 31 20 53 41 59 20 55 4E 44 45 52 4C 4E 0D 0A  ,1 SAY UNDERLN..
0001C0: 40 20 32 32 2C 31 20 53 41 59 20 55 4E 44 45 52  @ 22,1 SAY UNDER
0001D0: 4C 4E 0D 0A 40 20 31 39 2C 35 20 53 41 59 20 27  LN..@ 19,5 SAY '
0001E0: 42 65 6C 6F 77 20 74 68 65 20 6C 69 6E 65 20 79  Below the line y
0001F0: 6F 75 20 77 69 6C 6C 20 6E 6F 77 20 73 65 65 20  ou will now see 

Size : 512 (Real : 512)
000000: 49 4C 45 20 43 20 3C 20 32 35 0D 0A 20 20 53 54  ILE C < 25..  ST
000010: 4F 52 45 20 43 2B 31 20 54 4F 20 43 0D 0A 45 4E  ORE C+1 TO C..EN
000020: 44 44 4F 0D 0A 40 20 32 31 2C 30 0D 0A 40 20 32  DDO..@ 21,0..@ 2
000030: 33 2C 30 20 53 41 59 20 4D 2E 42 4C 41 4E 4B 20  3,0 SAY M.BLANK 
000040: 0D 0A 40 20 31 31 2C 32 37 20 53 41 59 20 27 52  ..@ 11,27 SAY 'R
000050: 45 54 55 52 4E 49 4E 47 20 54 4F 20 4D 41 49 4E  ETURNING TO MAIN
000060: 20 4D 45 4E 55 27 0D 0A 40 20 32 30 2C 31 0D 0A   MENU'..@ 20,1..
000070: 53 54 4F 52 45 20 31 20 54 4F 20 43 0D 0A 44 4F  STORE 1 TO C..DO
000080: 20 57 48 49 4C 45 20 43 20 3C 20 32 35 0D 0A 20   WHILE C < 25.. 
000090: 20 53 54 4F 52 45 20 43 2B 31 20 54 4F 20 43 0D   STORE C+1 TO C.
0000A0: 0A 45 4E 44 44 4F 0D 0A 52 45 4C 45 41 53 45 20  .ENDDO..RELEASE 
0000B0: 41 4C 4C 20 45 58 43 45 50 54 20 4D 46 49 4C 45  ALL EXCEPT MFILE
0000C0: 0D 0A 53 45 4C 45 43 54 20 53 45 43 4F 4E 44 41  ..SELECT SECONDA
0000D0: 52 59 0D 0A 55 53 45 0D 0A 53 45 4C 45 43 54 20  RY..USE..SELECT 
0000E0: 50 52 49 4D 41 52 59 0D 0A 44 45 4C 45 54 45 20  PRIMARY..DELETE 
0000F0: 46 49 4C 45 20 54 45 4D 50 31 0D 0A 52 45 54 55  FILE TEMP1..RETU
000100: 52 4E 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  RN..............
000110: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000120: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000130: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000140: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000150: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000160: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000170: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000180: 20 23 20 27 0D 0A 20 20 40 20 34 2C 31 30 20 53   # '..  @ 4,10 S
000190: 41 59 20 23 0D 0A 20 20 53 54 4F 52 45 20 46 20  AY #..  STORE F 
0001A0: 54 4F 20 4E 4F 43 4F 4E 54 2C 4C 41 53 54 52 45  TO NOCONT,LASTRE
0001B0: 43 0D 0A 20 20 44 4F 20 57 48 49 4C 45 20 2E 4E  C..  DO WHILE .N
0001C0: 4F 54 2E 20 4D 2E 4E 4F 43 4F 4E 54 0D 0A 20 20  OT. M.NOCONT..  
0001D0: 20 20 53 45 4C 45 43 54 20 53 45 43 4F 4E 44 41    SELECT SECONDA
0001E0: 52 59 0D 0A 20 20 20 20 53 54 4F 52 45 20 35 20  RY..    STORE 5 
0001F0: 54 4F 20 4C 49 4E 45 0D 0A 20 20 20 20 53 54 4F  TO LINE..    STO

Size : 512 (Real : 512)
000000: 74 68 65 20 63 6F 6D 70 6C 65 74 65 20 63 6F 6D  the complete com
000010: 6D 61 6E 64 27 0D 0A 40 20 32 30 2C 35 20 53 41  mand'..@ 20,5 SA
000020: 59 20 27 74 6F 20 44 49 53 50 4C 41 59 20 74 68  Y 'to DISPLAY th
000030: 65 20 66 75 6C 6C 20 66 69 6C 65 20 61 73 20 79  e full file as y
000040: 6F 75 20 77 6F 75 6C 64 20 74 79 70 65 20 69 74  ou would type it
000050: 20 79 6F 75 72 73 65 6C 66 2E 27 20 0D 0A 40 20   yourself.' ..@ 
000060: 32 33 2C 30 20 53 41 59 20 27 2E 20 44 49 53 50  23,0 SAY '. DISP
000070: 4C 41 59 20 41 4C 4C 27 0D 0A 53 54 4F 52 45 20  LAY ALL'..STORE 
000080: 27 20 27 20 54 4F 20 52 45 50 4C 59 0D 0A 44 4F  ' ' TO REPLY..DO
000090: 20 57 48 49 4C 45 20 2E 4E 4F 54 2E 20 4D 2E 52   WHILE .NOT. M.R
0000A0: 45 50 4C 59 24 27 59 4E 27 0D 0A 20 20 40 20 32  EPLY$'YN'..  @ 2
0000B0: 31 2C 30 0D 0A 20 20 40 20 32 31 2C 35 20 53 41  1,0..  @ 21,5 SA
0000C0: 59 20 27 44 6F 20 79 6F 75 20 77 69 73 68 20 74  Y 'Do you wish t
0000D0: 6F 20 64 6F 20 74 68 69 73 3F 20 59 2F 4E 20 27  o do this? Y/N '
0000E0: 0D 0A 20 20 40 20 32 31 2C 31 20 47 45 54 20 4D  ..  @ 21,1 GET M
0000F0: 2E 52 45 50 4C 59 20 50 49 43 54 20 27 21 27 0D  .REPLY PICT '!'.
000100: 0A 20 20 52 45 41 44 0D 0A 20 20 43 4C 45 41 52  .  READ..  CLEAR
000110: 20 47 45 54 53 0D 0A 45 4E 44 44 4F 0D 0A 40 20   GETS..ENDDO..@ 
000120: 31 39 2C 30 0D 0A 40 20 32 30 2C 30 0D 0A 40 20  19,0..@ 20,0..@ 
000130: 32 31 2C 30 0D 0A 40 20 32 33 2C 30 20 53 41 59  21,0..@ 23,0 SAY
000140: 20 4D 2E 42 4C 41 4E 4B 32 0D 0A 49 46 20 4D 2E   M.BLANK2..IF M.
000150: 52 45 50 4C 59 3D 27 59 27 0D 0A 20 20 45 52 41  REPLY='Y'..  ERA
000160: 53 45 0D 0A 20 20 40 20 31 2C 31 20 53 41 59 20  SE..  @ 1,1 SAY 
000170: 27 57 45 4C 43 4F 4D 45 20 20 20 20 20 20 20 20  'WELCOME        
000180: 20 20 20 20 20 20 20 20 20 20 20 4C 49 53 54 2F             LIST/
000190: 44 49 53 50 4C 41 59 20 52 45 43 4F 52 44 53 20  DISPLAY RECORDS 
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27                 '
0001B0: 20 3B 0D 0A 20 20 20 20 20 20 20 20 2B 20 27 20   ;..        + ' 
0001C0: 20 20 20 20 64 42 41 53 45 20 49 49 27 0D 0A 20      dBASE II'.. 
0001D0: 20 40 20 32 2C 31 20 53 41 59 20 55 4E 44 45 52   @ 2,1 SAY UNDER
0001E0: 4C 4E 0D 0A 20 20 44 49 53 50 4C 41 59 20 41 4C  LN..  DISPLAY AL
0001F0: 4C 0D 0A 20 20 3F 0D 0A 20 20 3F 0D 0A 20 20 3F  L..  ?..  ?..  ?

Size : 512 (Real : 512)
000000: 53 54 4F 52 45 20 27 20 20 20 20 20 20 20 20 20  STORE '         
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 20                ' 
000030: 54 4F 20 42 4C 41 4E 4B 32 0D 0A 53 54 4F 52 45  TO BLANK2..STORE
000040: 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D   '--------------
000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20 54 4F 20 55 4E  ---------' TO UN
000070: 44 45 52 4C 4E 0D 0A 53 54 4F 52 45 20 55 4E 44  DERLN..STORE UND
000080: 45 52 4C 4E 2B 55 4E 44 45 52 4C 4E 20 54 4F 20  ERLN+UNDERLN TO 
000090: 55 4E 44 45 52 4C 4E 0D 0A 53 54 4F 52 45 20 4D  UNDERLN..STORE M
0000A0: 2E 42 4C 41 4E 4B 32 2B 4D 2E 42 4C 41 4E 4B 32  .BLANK2+M.BLANK2
0000B0: 20 54 4F 20 42 4C 41 4E 4B 0D 0A 45 52 41 53 45   TO BLANK..ERASE
0000C0: 0D 0A 40 20 31 2C 31 20 53 41 59 20 27 57 45 4C  ..@ 1,1 SAY 'WEL
0000D0: 43 4F 4D 45 20 20 20 20 20 20 20 20 20 20 20 20  COME            
0000E0: 20 20 20 20 20 20 20 4C 49 53 54 2F 44 49 53 50         LIST/DISP
0000F0: 4C 41 59 20 52 45 43 4F 52 44 53 20 20 20 20 20  LAY RECORDS     
000100: 20 20 20 20 20 20 20 20 20 20 20 27 20 3B 0D 0A             ' ;..
000110: 20 20 20 20 20 20 20 20 2B 20 27 20 20 20 20 20          + '     
000120: 64 42 41 53 45 20 49 49 27 0D 0A 40 20 32 2C 31  dBASE II'..@ 2,1
000130: 20 53 41 59 20 55 4E 44 45 52 4C 4E 0D 0A 40 20   SAY UNDERLN..@ 
000140: 32 32 2C 31 20 53 41 59 20 55 4E 44 45 52 4C 4E  22,1 SAY UNDERLN
000150: 0D 0A 40 20 34 2C 30 0D 0A 54 45 58 54 0D 0A 20  ..@ 4,0..TEXT.. 
000160: 20 20 20 20 20 20 20 20 54 6F 20 6C 69 73 74 20          To list 
000170: 6F 72 20 64 69 73 70 6C 61 79 20 64 61 74 61 20  or display data 
000180: 69 6E 20 61 20 64 42 41 53 45 20 49 49 20 66 69  in a dBASE II fi
000190: 6C 65 20 79 6F 75 0D 0A 20 20 20 20 20 20 20 20  le you..        
0001A0: 20 6D 75 73 74 20 65 6E 73 75 72 65 20 74 68 61   must ensure tha
0001B0: 74 20 79 6F 75 20 68 61 76 65 20 66 69 72 73 74  t you have first
0001C0: 20 6F 70 65 6E 65 64 20 61 20 66 69 6C 65 0D 0A   opened a file..
0001D0: 45 4E 44 54 45 58 54 0D 0A 49 46 20 4D 2E 4D 46  ENDTEXT..IF M.MF
0001E0: 49 4C 45 3D 27 20 20 20 20 20 20 20 20 27 0D 0A  ILE='        '..
0001F0: 20 20 40 20 32 30 2C 35 20 53 41 59 20 27 4E 6F    @ 20,5 SAY 'No

Size : 512 (Real : 512)
000000: 0D 0A 20 20 3F 0D 0A 20 20 40 20 30 2C 30 0D 0A  ..  ?..  @ 0,0..
000010: 20 20 40 20 31 2C 31 20 53 41 59 20 27 57 45 4C    @ 1,1 SAY 'WEL
000020: 43 4F 4D 45 20 20 20 20 20 20 20 20 20 20 20 20  COME            
000030: 20 20 20 20 20 20 20 4C 49 53 54 2F 44 49 53 50         LIST/DISP
000040: 4C 41 59 20 52 45 43 4F 52 44 53 20 20 20 20 20  LAY RECORDS     
000050: 20 20 20 20 20 20 20 20 20 20 20 27 20 3B 0D 0A             ' ;..
000060: 20 20 20 20 20 20 20 20 2B 20 27 20 20 20 20 20          + '     
000070: 64 42 41 53 45 20 49 49 27 0D 0A 20 20 40 20 32  dBASE II'..  @ 2
000080: 2C 31 20 53 41 59 20 55 4E 44 45 52 4C 4E 0D 0A  ,1 SAY UNDERLN..
000090: 20 20 40 20 32 32 2C 31 20 53 41 59 20 55 4E 44    @ 22,1 SAY UND
0000A0: 45 52 4C 4E 0D 0A 20 20 53 54 4F 52 45 20 27 20  ERLN..  STORE ' 
0000B0: 27 20 54 4F 20 54 45 4D 50 0D 0A 20 20 40 20 32  ' TO TEMP..  @ 2
0000C0: 31 2C 35 20 53 41 59 20 27 50 72 65 73 73 20 61  1,5 SAY 'Press a
0000D0: 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E  ny key to contin
0000E0: 75 65 20 27 0D 0A 20 20 40 20 32 31 2C 31 20 47  ue '..  @ 21,1 G
0000F0: 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 52 45 41  ET M.TEMP..  REA
000100: 44 0D 0A 20 20 43 4C 45 41 52 20 47 45 54 53 0D  D..  CLEAR GETS.
000110: 0A 20 20 45 52 41 53 45 0D 0A 40 20 31 2C 31 20  .  ERASE..@ 1,1 
000120: 53 41 59 20 27 57 45 4C 43 4F 4D 45 20 20 20 20  SAY 'WELCOME    
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4C                 L
000140: 49 53 54 2F 44 49 53 50 4C 41 59 20 52 45 43 4F  IST/DISPLAY RECO
000150: 52 44 53 20 20 20 20 20 20 20 20 20 20 20 20 20  RDS             
000160: 20 20 20 27 20 3B 0D 0A 20 20 20 20 20 20 20 20     ' ;..        
000170: 2B 20 27 20 20 20 20 20 64 42 41 53 45 20 49 49  + '     dBASE II
000180: 27 0D 0A 20 20 40 20 32 2C 31 20 53 41 59 20 55  '..  @ 2,1 SAY U
000190: 4E 44 45 52 4C 4E 0D 0A 20 20 40 20 32 32 2C 31  NDERLN..  @ 22,1
0001A0: 20 53 41 59 20 55 4E 44 45 52 4C 4E 0D 0A 20 20   SAY UNDERLN..  
0001B0: 40 20 31 31 2C 32 37 20 53 41 59 20 27 52 45 54  @ 11,27 SAY 'RET
0001C0: 55 52 4E 49 4E 47 20 54 4F 20 4D 41 49 4E 20 4D  URNING TO MAIN M
0001D0: 45 4E 55 27 0D 0A 20 20 40 20 32 30 2C 31 0D 0A  ENU'..  @ 20,1..
0001E0: 20 20 53 54 4F 52 45 20 31 20 54 4F 20 43 0D 0A    STORE 1 TO C..
0001F0: 20 20 44 4F 20 57 48 49 4C 45 20 43 20 3C 20 32    DO WHILE C < 2

Size : 512 (Real : 512)
000000: 20 66 69 6C 65 20 69 6E 20 75 73 65 20 70 6C 65   file in use ple
000010: 61 73 65 20 4F 50 45 4E 20 66 72 6F 6D 20 6D 61  ase OPEN from ma
000020: 69 6E 20 6D 65 6E 75 27 0D 0A 20 20 53 54 4F 52  in menu'..  STOR
000030: 45 20 27 20 27 20 54 4F 20 54 45 4D 50 0D 0A 20  E ' ' TO TEMP.. 
000040: 20 40 20 32 31 2C 35 20 53 41 59 20 27 50 72 65   @ 21,5 SAY 'Pre
000050: 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F  ss any key to co
000060: 6E 74 69 6E 75 65 20 27 0D 0A 20 20 40 20 32 31  ntinue '..  @ 21
000070: 2C 31 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20  ,1 GET M.TEMP.. 
000080: 20 52 45 41 44 0D 0A 20 20 43 4C 45 41 52 20 47   READ..  CLEAR G
000090: 45 54 53 0D 0A 20 20 45 52 41 53 45 0D 0A 40 20  ETS..  ERASE..@ 
0000A0: 31 2C 31 20 53 41 59 20 27 57 45 4C 43 4F 4D 45  1,1 SAY 'WELCOME
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000C0: 20 20 20 4C 49 53 54 2F 44 49 53 50 4C 41 59 20     LIST/DISPLAY 
0000D0: 52 45 43 4F 52 44 53 20 20 20 20 20 20 20 20 20  RECORDS         
0000E0: 20 20 20 20 20 20 20 27 20 3B 0D 0A 20 20 20 20         ' ;..    
0000F0: 20 20 20 20 2B 20 27 20 20 20 20 20 64 42 41 53      + '     dBAS
000100: 45 20 49 49 27 0D 0A 20 20 40 20 32 2C 31 20 53  E II'..  @ 2,1 S
000110: 41 59 20 55 4E 44 45 52 4C 4E 0D 0A 20 20 40 20  AY UNDERLN..  @ 
000120: 32 32 2C 31 20 53 41 59 20 55 4E 44 45 52 4C 4E  22,1 SAY UNDERLN
000130: 0D 0A 20 20 40 20 31 31 2C 32 37 20 53 41 59 20  ..  @ 11,27 SAY 
000140: 27 52 45 54 55 52 4E 49 4E 47 20 54 4F 20 4D 41  'RETURNING TO MA
000150: 49 4E 20 4D 45 4E 55 27 0D 0A 20 20 40 20 32 30  IN MENU'..  @ 20
000160: 2C 31 0D 0A 20 20 53 54 4F 52 45 20 31 20 54 4F  ,1..  STORE 1 TO
000170: 20 43 0D 0A 20 20 44 4F 20 57 48 49 4C 45 20 43   C..  DO WHILE C
000180: 20 3C 20 32 35 0D 0A 20 20 20 20 53 54 4F 52 45   < 25..    STORE
000190: 20 43 2B 31 20 54 4F 20 43 0D 0A 20 20 45 4E 44   C+1 TO C..  END
0001A0: 44 4F 0D 0A 20 20 52 45 4C 45 41 53 45 20 41 4C  DO..  RELEASE AL
0001B0: 4C 20 45 58 43 45 50 54 20 4D 46 49 4C 45 0D 0A  L EXCEPT MFILE..
0001C0: 20 20 52 45 54 55 52 4E 0D 0A 45 4E 44 49 46 0D    RETURN..ENDIF.
0001D0: 0A 40 20 32 30 2C 35 20 53 41 59 20 27 54 68 65  .@ 20,5 SAY 'The
0001E0: 20 66 69 6C 65 20 70 72 65 73 65 6E 74 6C 79 20   file presently 
0001F0: 69 6E 20 75 73 65 20 69 73 20 2D 20 27 2B 4D 2E  in use is - '+M.

Size : 512 (Real : 512)
000000: 35 0D 0A 20 20 20 20 53 54 4F 52 45 20 43 2B 31  5..    STORE C+1
000010: 20 54 4F 20 43 0D 0A 20 20 45 4E 44 44 4F 20 0D   TO C..  ENDDO .
000020: 0A 20 20 52 45 54 55 52 4E 0D 0A 45 4E 44 49 46  .  RETURN..ENDIF
000030: 0D 0A 40 20 31 31 2C 32 30 20 53 41 59 20 27 50  ..@ 11,20 SAY 'P
000040: 6C 65 61 73 65 20 57 61 69 74 20 2E 2E 2E 20 6E  lease Wait ... n
000050: 6F 77 20 6C 6F 61 64 69 6E 67 20 74 68 65 20 6E  ow loading the n
000060: 65 78 74 20 57 65 6C 63 6F 6D 65 20 66 69 6C 65  ext Welcome file
000070: 27 0D 0A 40 20 32 30 2C 31 0D 0A 53 45 4C 45 43  '..@ 20,1..SELEC
000080: 54 20 53 45 43 4F 0D 0A 55 53 45 0D 0A 53 45 4C  T SECO..USE..SEL
000090: 45 43 54 20 50 52 49 4D 41 52 59 0D 0A 55 53 45  ECT PRIMARY..USE
0000A0: 20 26 4D 46 49 4C 45 0D 0A 43 4F 50 59 20 54 4F   &MFILE..COPY TO
0000B0: 20 54 45 4D 50 53 54 52 55 20 53 54 52 55 20 45   TEMPSTRU STRU E
0000C0: 58 54 45 4E 44 45 44 0D 0A 53 45 4C 45 43 54 20  XTENDED..SELECT 
0000D0: 53 45 43 4F 4E 44 41 52 59 20 0D 0A 55 53 45 20  SECONDARY ..USE 
0000E0: 54 45 4D 50 53 54 52 55 0D 0A 40 20 31 31 2C 30  TEMPSTRU..@ 11,0
0000F0: 0D 0A 47 4F 20 42 4F 54 54 4F 4D 0D 0A 53 54 4F  ..GO BOTTOM..STO
000100: 52 45 20 23 20 54 4F 20 46 49 4C 43 4E 54 0D 0A  RE # TO FILCNT..
000110: 47 4F 20 54 4F 50 0D 0A 40 20 34 2C 35 20 53 41  GO TOP..@ 4,5 SA
000120: 59 20 27 59 6F 75 20 61 72 65 20 6E 6F 77 20 61  Y 'You are now a
000130: 73 6B 65 64 20 74 6F 20 73 65 6C 65 63 74 20 77  sked to select w
000140: 68 69 63 68 20 66 69 65 6C 64 73 20 79 6F 75 20  hich fields you 
000150: 77 69 73 68 20 74 6F 20 44 49 53 50 4C 41 59 2E  wish to DISPLAY.
000160: 20 54 6F 27 0D 0A 40 20 35 2C 35 20 53 41 59 20   To'..@ 5,5 SAY 
000170: 27 64 6F 20 74 68 69 73 20 6A 75 73 74 20 65 6E  'do this just en
000180: 74 65 72 20 20 74 68 65 20 20 72 65 66 2E 20 6E  ter  the  ref. n
000190: 75 6D 62 65 72 20 20 61 6E 64 20 70 72 65 73 73  umber  and press
0001A0: 20 63 61 72 72 69 61 67 65 20 72 65 74 75 72 6E   carriage return
0001B0: 2E 27 0D 0A 40 20 36 2C 35 20 53 41 59 20 27 57  .'..@ 6,5 SAY 'W
0001C0: 65 6C 63 6F 6D 65 20 77 69 6C 6C 20 62 75 69 6C  elcome will buil
0001D0: 64 20 74 68 65 20 63 6F 6D 6D 61 6E 64 2E 20 57  d the command. W
0001E0: 48 45 4E 20 46 49 4E 49 53 48 45 44 20 4C 45 41  HEN FINISHED LEA
0001F0: 56 45 20 42 4C 41 4E 4B 2E 27 0D 0A 53 54 4F 52  VE BLANK.'..STOR

Size : 512 (Real : 512)
000000: 0A 40 20 32 33 2C 30 20 53 41 59 20 27 2E 20 27  .@ 23,0 SAY '. '
000010: 2B 4D 2E 53 45 4C 45 43 54 0D 0A 53 45 4C 45 43  +M.SELECT..SELEC
000020: 54 20 50 52 49 4D 41 52 59 0D 0A 45 52 41 53 45  T PRIMARY..ERASE
000030: 0D 0A 40 20 31 2C 31 20 53 41 59 20 27 57 45 4C  ..@ 1,1 SAY 'WEL
000040: 43 4F 4D 45 20 20 20 20 20 20 20 20 20 20 20 20  COME            
000050: 20 20 20 20 20 20 20 4C 49 53 54 2F 44 49 53 50         LIST/DISP
000060: 4C 41 59 20 52 45 43 4F 52 44 53 20 20 20 20 20  LAY RECORDS     
000070: 20 20 20 20 20 20 20 20 20 20 20 27 20 3B 0D 0A             ' ;..
000080: 20 20 20 20 20 20 20 20 2B 20 27 20 20 20 20 20          + '     
000090: 64 42 41 53 45 20 49 49 27 0D 0A 40 20 32 2C 31  dBASE II'..@ 2,1
0000A0: 20 53 41 59 20 55 4E 44 45 52 4C 4E 0D 0A 40 20   SAY UNDERLN..@ 
0000B0: 32 32 2C 31 20 53 41 59 20 55 4E 44 45 52 4C 4E  22,1 SAY UNDERLN
0000C0: 0D 0A 40 20 32 33 2C 30 20 53 41 59 20 27 2E 20  ..@ 23,0 SAY '. 
0000D0: 27 2B 4D 2E 53 45 4C 45 43 54 0D 0A 40 20 31 39  '+M.SELECT..@ 19
0000E0: 2C 35 20 53 41 59 20 27 42 65 6C 6F 77 20 74 68  ,5 SAY 'Below th
0000F0: 65 20 6C 69 6E 65 20 79 6F 75 20 77 69 6C 6C 20  e line you will 
000100: 6E 6F 77 20 73 65 65 20 74 68 65 20 63 6F 6D 70  now see the comp
000110: 6C 65 74 65 20 63 6F 6D 6D 61 6E 64 27 0D 0A 40  lete command'..@
000120: 20 32 30 2C 35 20 53 41 59 20 27 61 73 20 79 6F   20,5 SAY 'as yo
000130: 75 20 77 6F 75 6C 64 20 74 79 70 65 20 69 74 20  u would type it 
000140: 79 6F 75 72 73 65 6C 66 2E 27 20 0D 0A 53 54 4F  yourself.' ..STO
000150: 52 45 20 27 20 27 20 54 4F 20 54 45 4D 50 0D 0A  RE ' ' TO TEMP..
000160: 40 20 32 31 2C 35 20 53 41 59 20 27 50 72 65 73  @ 21,5 SAY 'Pres
000170: 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E  s any key to con
000180: 74 69 6E 75 65 20 27 0D 0A 40 20 32 31 2C 31 20  tinue '..@ 21,1 
000190: 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 52 45 41 44  GET M.TEMP..READ
0001A0: 0D 0A 43 4C 45 41 52 20 47 45 54 53 0D 0A 53 54  ..CLEAR GETS..ST
0001B0: 4F 52 45 20 4C 45 4E 28 4D 2E 53 45 4C 45 43 54  ORE LEN(M.SELECT
0001C0: 29 2B 33 20 54 4F 20 43 4F 4C 0D 0A 53 54 4F 52  )+3 TO COL..STOR
0001D0: 45 20 32 32 20 54 4F 20 4C 49 4E 45 0D 0A 49 46  E 22 TO LINE..IF
0001E0: 20 4D 2E 43 4F 4C 3E 37 39 0D 0A 20 20 53 54 4F   M.COL>79..  STO
0001F0: 52 45 20 32 33 20 54 4F 20 4C 49 4E 45 0D 0A 20  RE 23 TO LINE.. 

Size : 512 (Real : 512)
000000: 45 20 27 44 49 53 50 4C 41 59 20 41 4C 4C 20 46  E 'DISPLAY ALL F
000010: 49 45 4C 44 53 20 27 20 54 4F 20 53 45 4C 45 43  IELDS ' TO SELEC
000020: 54 0D 0A 53 54 4F 52 45 20 38 20 54 4F 20 4C 49  T..STORE 8 TO LI
000030: 4E 45 0D 0A 53 54 4F 52 45 20 31 20 54 4F 20 43  NE..STORE 1 TO C
000040: 4F 55 4E 54 0D 0A 53 54 4F 52 45 20 31 31 20 54  OUNT..STORE 11 T
000050: 4F 20 52 45 43 43 4E 54 0D 0A 53 54 4F 52 45 20  O RECCNT..STORE 
000060: 31 20 54 4F 20 43 4F 4C 0D 0A 53 54 4F 52 45 20  1 TO COL..STORE 
000070: 54 20 54 4F 20 43 4F 4E 54 0D 0A 44 4F 20 57 48  T TO CONT..DO WH
000080: 49 4C 45 20 4D 2E 43 4F 4E 54 0D 0A 20 20 44 4F  ILE M.CONT..  DO
000090: 20 57 48 49 4C 45 20 4D 2E 4C 49 4E 45 3C 31 35   WHILE M.LINE<15
0000A0: 2E 41 4E 44 2E 2E 4E 4F 54 2E 45 4F 46 0D 0A 20  .AND..NOT.EOF.. 
0000B0: 20 20 20 40 20 4D 2E 4C 49 4E 45 2C 4D 2E 43 4F     @ M.LINE,M.CO
0000C0: 4C 20 53 41 59 20 53 54 52 28 4D 2E 43 4F 55 4E  L SAY STR(M.COUN
0000D0: 54 2C 32 29 0D 0A 20 20 20 20 40 20 4D 2E 4C 49  T,2)..    @ M.LI
0000E0: 4E 45 2C 4D 2E 43 4F 4C 2B 33 20 53 41 59 20 46  NE,M.COL+3 SAY F
0000F0: 49 45 4C 44 3A 4E 41 4D 45 2B 27 2C 27 2B 46 49  IELD:NAME+','+FI
000100: 45 4C 44 3A 54 59 50 45 2B 27 2C 27 2B 53 54 52  ELD:TYPE+','+STR
000110: 28 46 49 45 4C 44 3A 4C 45 4E 2C 33 29 2B 27 2C  (FIELD:LEN,3)+',
000120: 27 3B 0D 0A 20 20 20 20 2B 53 54 52 28 46 49 45  ';..    +STR(FIE
000130: 4C 44 3A 44 45 43 2C 32 29 0D 0A 20 20 20 20 53  LD:DEC,2)..    S
000140: 54 4F 52 45 20 4D 2E 4C 49 4E 45 2B 31 20 54 4F  TORE M.LINE+1 TO
000150: 20 4C 49 4E 45 0D 0A 20 20 20 20 53 54 4F 52 45   LINE..    STORE
000160: 20 4D 2E 43 4F 55 4E 54 2B 31 20 54 4F 20 43 4F   M.COUNT+1 TO CO
000170: 55 4E 54 0D 0A 20 20 20 20 53 4B 49 50 0D 0A 20  UNT..    SKIP.. 
000180: 20 45 4E 44 44 4F 0D 0A 20 20 49 46 20 45 4F 46   ENDDO..  IF EOF
000190: 20 0D 0A 20 20 20 20 53 54 4F 52 45 20 46 20 54   ..    STORE F T
0001A0: 4F 20 43 4F 4E 54 0D 0A 20 20 20 20 4C 4F 4F 50  O CONT..    LOOP
0001B0: 0D 0A 20 20 45 4E 44 49 46 0D 0A 20 20 53 54 4F  ..  ENDIF..  STO
0001C0: 52 45 20 38 20 54 4F 20 4C 49 4E 45 0D 0A 20 20  RE 8 TO LINE..  
0001D0: 53 54 4F 52 45 20 4D 2E 43 4F 4C 2B 32 36 20 54  STORE M.COL+26 T
0001E0: 4F 20 43 4F 4C 0D 0A 45 4E 44 44 4F 0D 0A 53 54  O COL..ENDDO..ST
0001F0: 4F 52 45 20 54 20 54 4F 20 43 4F 4E 54 0D 0A 53  ORE T TO CONT..S

Size : 512 (Real : 512)
000000: 20 53 54 4F 52 45 20 4D 2E 43 4F 4C 2D 37 39 20   STORE M.COL-79 
000010: 54 4F 20 43 4F 4C 0D 0A 45 4E 44 49 46 0D 0A 45  TO COL..ENDIF..E
000020: 52 41 53 45 20 0D 0A 40 20 31 2C 31 20 53 41 59  RASE ..@ 1,1 SAY
000030: 20 27 57 45 4C 43 4F 4D 45 20 20 20 20 20 20 20   'WELCOME       
000040: 20 20 20 20 20 20 20 20 20 20 20 20 4C 49 53 54              LIST
000050: 2F 44 49 53 50 4C 41 59 20 52 45 43 4F 52 44 53  /DISPLAY RECORDS
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000070: 27 20 3B 0D 0A 20 20 20 20 20 20 20 20 2B 20 27  ' ;..        + '
000080: 20 20 20 20 20 64 42 41 53 45 20 49 49 27 0D 0A       dBASE II'..
000090: 40 20 32 2C 31 20 53 41 59 20 55 4E 44 45 52 4C  @ 2,1 SAY UNDERL
0000A0: 4E 0D 0A 26 53 45 4C 45 43 54 0D 0A 3F 0D 0A 3F  N..&SELECT..?..?
0000B0: 0D 0A 3F 0D 0A 3F 20 0D 0A 40 20 30 2C 30 0D 0A  ..?..? ..@ 0,0..
0000C0: 40 20 31 2C 31 20 53 41 59 20 27 57 45 4C 43 4F  @ 1,1 SAY 'WELCO
0000D0: 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ME              
0000E0: 20 20 20 20 20 4C 49 53 54 2F 44 49 53 50 4C 41       LIST/DISPLA
0000F0: 59 20 52 45 43 4F 52 44 53 20 20 20 20 20 20 20  Y RECORDS       
000100: 20 20 20 20 20 20 20 20 20 27 20 3B 0D 0A 20 20           ' ;..  
000110: 20 20 20 20 20 20 2B 20 27 20 20 20 20 20 64 42        + '     dB
000120: 41 53 45 20 49 49 27 0D 0A 40 20 32 2C 31 20 53  ASE II'..@ 2,1 S
000130: 41 59 20 55 4E 44 45 52 4C 4E 0D 0A 40 20 32 32  AY UNDERLN..@ 22
000140: 2C 31 20 53 41 59 20 55 4E 44 45 52 4C 4E 0D 0A  ,1 SAY UNDERLN..
000150: 53 54 4F 52 45 20 27 20 27 20 54 4F 20 54 45 4D  STORE ' ' TO TEM
000160: 50 0D 0A 40 20 32 31 2C 35 20 53 41 59 20 27 50  P..@ 21,5 SAY 'P
000170: 72 65 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20  ress any key to 
000180: 63 6F 6E 74 69 6E 75 65 20 27 0D 0A 40 20 32 31  continue '..@ 21
000190: 2C 31 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 52  ,1 GET M.TEMP..R
0001A0: 45 41 44 0D 0A 43 4C 45 41 52 20 47 45 54 53 0D  EAD..CLEAR GETS.
0001B0: 0A 45 52 41 53 45 0D 0A 40 20 31 2C 31 20 53 41  .ERASE..@ 1,1 SA
0001C0: 59 20 27 57 45 4C 43 4F 4D 45 20 20 20 20 20 20  Y 'WELCOME      
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 4C 49 53               LIS
0001E0: 54 2F 44 49 53 50 4C 41 59 20 52 45 43 4F 52 44  T/DISPLAY RECORD
0001F0: 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  S               

Size : 512 (Real : 512)
000000: 54 4F 52 45 20 54 20 54 4F 20 46 49 52 53 54 0D  TORE T TO FIRST.
000010: 0A 47 4F 20 42 4F 54 54 4F 4D 0D 0A 53 54 4F 52  .GO BOTTOM..STOR
000020: 45 20 23 20 54 4F 20 42 4F 54 54 4F 4D 0D 0A 44  E # TO BOTTOM..D
000030: 4F 20 57 48 49 4C 45 20 4D 2E 43 4F 4E 54 0D 0A  O WHILE M.CONT..
000040: 20 20 49 46 20 4C 45 4E 28 4D 2E 53 45 4C 45 43    IF LEN(M.SELEC
000050: 54 29 3E 31 30 30 0D 0A 20 20 20 20 40 20 32 33  T)>100..    @ 23
000060: 2C 30 20 53 41 59 20 27 2E 20 27 2B 4D 2E 53 45  ,0 SAY '. '+M.SE
000070: 4C 45 43 54 0D 0A 20 20 20 20 53 54 4F 52 45 20  LECT..    STORE 
000080: 27 20 27 20 54 4F 20 52 45 50 4C 59 0D 0A 20 20  ' ' TO REPLY..  
000090: 20 20 40 20 32 31 2C 35 20 53 41 59 3B 0D 0A 20    @ 21,5 SAY;.. 
0000A0: 20 20 20 27 53 65 6C 65 63 74 69 6F 6E 20 69 73     'Selection is
0000B0: 20 6E 6F 77 20 6C 61 72 67 65 20 65 6E 6F 75 67   now large enoug
0000C0: 68 20 66 6F 72 20 64 65 6D 6F 20 2D 20 70 72 65  h for demo - pre
0000D0: 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F  ss any key to co
0000E0: 6E 74 69 6E 75 65 27 0D 0A 20 20 20 20 40 20 32  ntinue'..    @ 2
0000F0: 31 2C 31 20 47 45 54 20 4D 2E 52 45 50 4C 59 0D  1,1 GET M.REPLY.
000100: 0A 20 20 20 20 52 45 41 44 0D 0A 20 20 20 20 43  .    READ..    C
000110: 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 20 20 53  LEAR GETS..    S
000120: 54 4F 52 45 20 46 20 54 4F 20 43 4F 4E 54 0D 0A  TORE F TO CONT..
000130: 20 20 20 20 4C 4F 4F 50 0D 0A 20 20 45 4E 44 49      LOOP..  ENDI
000140: 46 0D 0A 20 20 40 20 32 33 2C 30 20 53 41 59 20  F..  @ 23,0 SAY 
000150: 27 2E 20 27 2B 4D 2E 53 45 4C 45 43 54 0D 0A 20  '. '+M.SELECT.. 
000160: 20 53 54 4F 52 45 20 27 20 20 27 20 54 4F 20 52   STORE '  ' TO R
000170: 45 46 0D 0A 20 20 40 20 31 37 2C 35 20 53 41 59  EF..  @ 17,5 SAY
000180: 20 27 45 6E 74 65 72 20 72 65 66 65 72 65 6E 63   'Enter referenc
000190: 65 20 6E 75 6D 62 65 72 20 2D 20 27 20 47 45 54  e number - ' GET
0001A0: 20 4D 2E 52 45 46 20 50 49 43 54 20 27 39 39 27   M.REF PICT '99'
0001B0: 0D 0A 20 20 52 45 41 44 0D 0A 20 20 43 4C 45 41  ..  READ..  CLEA
0001C0: 52 20 47 45 54 53 0D 0A 20 20 49 46 20 56 41 4C  R GETS..  IF VAL
0001D0: 28 4D 2E 52 45 46 29 3D 30 0D 0A 20 20 20 20 49  (M.REF)=0..    I
0001E0: 46 20 4D 2E 46 49 52 53 54 0D 0A 20 20 20 20 20  F M.FIRST..     
0001F0: 20 53 54 4F 52 45 20 27 20 27 20 54 4F 20 54 45   STORE ' ' TO TE

Size : 512 (Real : 512)
000000: 20 27 20 3B 0D 0A 20 20 20 20 20 20 20 20 2B 20   ' ;..        + 
000010: 27 20 20 20 20 20 64 42 41 53 45 20 49 49 27 0D  '     dBASE II'.
000020: 0A 40 20 32 2C 31 20 53 41 59 20 55 4E 44 45 52  .@ 2,1 SAY UNDER
000030: 4C 4E 0D 0A 40 20 32 32 2C 31 20 53 41 59 20 55  LN..@ 22,1 SAY U
000040: 4E 44 45 52 4C 4E 0D 0A 40 20 31 31 2C 32 37 20  NDERLN..@ 11,27 
000050: 53 41 59 20 27 52 45 54 55 52 4E 49 4E 47 20 54  SAY 'RETURNING T
000060: 4F 20 4D 41 49 4E 20 4D 45 4E 55 27 0D 0A 40 20  O MAIN MENU'..@ 
000070: 32 30 2C 31 0D 0A 53 54 4F 52 45 20 31 20 54 4F  20,1..STORE 1 TO
000080: 20 43 0D 0A 44 4F 20 57 48 49 4C 45 20 43 20 3C   C..DO WHILE C <
000090: 20 32 35 0D 0A 20 20 53 54 4F 52 45 20 43 2B 31   25..  STORE C+1
0000A0: 20 54 4F 20 43 0D 0A 45 4E 44 44 4F 0D 0A 52 45   TO C..ENDDO..RE
0000B0: 4C 45 41 53 45 20 41 4C 4C 20 45 58 43 45 50 54  LEASE ALL EXCEPT
0000C0: 20 4D 46 49 4C 45 0D 0A 53 45 4C 45 20 53 45 43   MFILE..SELE SEC
0000D0: 4F 0D 0A 55 53 45 0D 0A 53 45 4C 45 20 50 52 49  O..USE..SELE PRI
0000E0: 4D 0D 0A 55 53 45 20 26 4D 46 49 4C 45 0D 0A 44  M..USE &MFILE..D
0000F0: 45 4C 45 54 45 20 46 49 4C 45 20 54 45 4D 50 53  ELETE FILE TEMPS
000100: 54 52 55 2E 44 42 46 0D 0A 52 45 54 55 52 4E 0D  TRU.DBF..RETURN.
000110: 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000120: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000130: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000140: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000150: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000160: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000170: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000180: 6C 66 2E 27 20 0D 0A 20 20 53 54 4F 52 45 20 27  lf.' ..  STORE '
000190: 20 27 20 54 4F 20 54 45 4D 50 0D 0A 20 20 40 20   ' TO TEMP..  @ 
0001A0: 32 31 2C 35 20 53 41 59 20 27 50 72 65 73 73 20  21,5 SAY 'Press 
0001B0: 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69  any key to conti
0001C0: 6E 75 65 20 27 0D 0A 20 20 40 20 32 31 2C 31 20  nue '..  @ 21,1 
0001D0: 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 52 45  GET M.TEMP..  RE
0001E0: 41 44 0D 0A 20 20 43 4C 45 41 52 20 47 45 54 53  AD..  CLEAR GETS
0001F0: 0D 0A 20 20 40 20 31 39 2C 30 0D 0A 20 20 40 20  ..  @ 19,0..  @ 

Size : 512 (Real : 512)
000000: 4D 50 0D 0A 20 20 20 20 20 20 40 20 32 31 2C 35  MP..      @ 21,5
000010: 20 53 41 59 20 27 59 6F 75 20 4D 55 53 54 20 6D   SAY 'You MUST m
000020: 61 6B 65 20 61 20 73 65 6C 65 63 74 69 6F 6E 20  ake a selection 
000030: 2D 20 3B 0D 0A 50 72 65 73 73 20 61 6E 79 20 6B  - ;..Press any k
000040: 65 79 20 74 6F 20 72 65 74 72 79 20 27 20 0D 0A  ey to retry ' ..
000050: 20 20 20 20 20 20 40 20 32 31 2C 31 20 47 45 54        @ 21,1 GET
000060: 20 4D 2E 54 45 4D 50 0D 0A 20 20 20 20 20 20 52   M.TEMP..      R
000070: 45 41 44 0D 0A 20 20 20 20 20 20 43 4C 45 41 52  EAD..      CLEAR
000080: 20 47 45 54 53 0D 0A 20 20 20 20 20 20 40 20 31   GETS..      @ 1
000090: 36 2C 30 0D 0A 20 20 20 20 20 20 40 20 31 37 2C  6,0..      @ 17,
0000A0: 30 0D 0A 20 20 20 20 20 20 40 20 31 38 2C 30 0D  0..      @ 18,0.
0000B0: 0A 20 20 20 20 20 20 40 20 31 39 2C 30 0D 0A 20  .      @ 19,0.. 
0000C0: 20 20 20 20 20 40 20 32 30 2C 30 0D 0A 20 20 20       @ 20,0..   
0000D0: 20 20 20 40 20 32 31 2C 31 0D 0A 20 20 20 20 20     @ 21,1..     
0000E0: 20 4C 4F 4F 50 0D 0A 20 20 20 20 45 4E 44 49 46   LOOP..    ENDIF
0000F0: 0D 0A 20 20 20 20 53 54 4F 52 45 20 46 20 54 4F  ..    STORE F TO
000100: 20 43 4F 4E 54 20 0D 0A 20 20 20 20 4C 4F 4F 50   CONT ..    LOOP
000110: 0D 0A 20 20 45 4E 44 49 46 0D 0A 20 20 49 46 20  ..  ENDIF..  IF 
000120: 56 41 4C 28 4D 2E 52 45 46 29 3E 42 4F 54 54 4F  VAL(M.REF)>BOTTO
000130: 4D 0D 0A 20 20 20 20 53 54 4F 52 45 20 27 20 27  M..    STORE ' '
000140: 20 54 4F 20 54 45 4D 50 0D 0A 20 20 20 20 40 20   TO TEMP..    @ 
000150: 32 31 2C 35 20 53 41 59 20 27 49 6E 76 61 6C 69  21,5 SAY 'Invali
000160: 64 20 73 65 6C 65 63 74 69 6F 6E 20 2D 20 50 72  d selection - Pr
000170: 65 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 72  ess any key to r
000180: 65 74 72 79 20 27 20 0D 0A 20 20 20 20 40 20 32  etry ' ..    @ 2
000190: 31 2C 31 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A  1,1 GET M.TEMP..
0001A0: 20 20 20 20 52 45 41 44 0D 0A 20 20 20 20 43 4C      READ..    CL
0001B0: 45 41 52 20 47 45 54 53 0D 0A 20 20 20 20 40 20  EAR GETS..    @ 
0001C0: 31 36 2C 30 0D 0A 20 20 20 20 40 20 31 37 2C 30  16,0..    @ 17,0
0001D0: 0D 0A 20 20 20 20 40 20 31 38 2C 30 0D 0A 20 20  ..    @ 18,0..  
0001E0: 20 20 40 20 31 39 2C 30 0D 0A 20 20 20 20 40 20    @ 19,0..    @ 
0001F0: 32 30 2C 30 0D 0A 20 20 20 20 40 20 32 31 2C 31  20,0..    @ 21,1

Size : 512 (Real : 512)
000000: 53 54 4F 52 45 20 27 20 20 20 20 20 20 20 20 20  STORE '         
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 20                ' 
000030: 54 4F 20 42 4C 41 4E 4B 32 0D 0A 53 54 4F 52 45  TO BLANK2..STORE
000040: 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D   '--------------
000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20 54 4F 20 55 4E  ---------' TO UN
000070: 44 45 52 4C 4E 0D 0A 53 54 4F 52 45 20 55 4E 44  DERLN..STORE UND
000080: 45 52 4C 4E 2B 55 4E 44 45 52 4C 4E 20 54 4F 20  ERLN+UNDERLN TO 
000090: 55 4E 44 45 52 4C 4E 0D 0A 53 54 4F 52 45 20 4D  UNDERLN..STORE M
0000A0: 2E 42 4C 41 4E 4B 32 2B 4D 2E 42 4C 41 4E 4B 32  .BLANK2+M.BLANK2
0000B0: 20 54 4F 20 42 4C 41 4E 4B 0D 0A 45 52 41 53 45   TO BLANK..ERASE
0000C0: 0D 0A 40 20 31 2C 31 20 53 41 59 20 27 57 45 4C  ..@ 1,1 SAY 'WEL
0000D0: 43 4F 4D 45 20 20 20 20 20 20 20 20 20 20 20 20  COME            
0000E0: 20 20 20 20 20 20 20 20 20 4C 4F 43 41 54 45 20           LOCATE 
0000F0: 52 45 43 4F 52 44 53 20 20 20 20 20 20 20 20 20  RECORDS         
000100: 20 20 20 20 20 20 20 20 27 20 3B 0D 0A 20 20 20          ' ;..   
000110: 20 20 20 20 20 2B 20 27 20 20 20 20 20 64 42 41       + '     dBA
000120: 53 45 20 49 49 27 0D 0A 40 20 32 2C 31 20 53 41  SE II'..@ 2,1 SA
000130: 59 20 4D 2E 55 4E 44 45 52 4C 4E 0D 0A 40 20 32  Y M.UNDERLN..@ 2
000140: 32 2C 31 20 53 41 59 20 4D 2E 55 4E 44 45 52 4C  2,1 SAY M.UNDERL
000150: 4E 0D 0A 40 20 34 2C 30 20 0D 0A 54 45 58 54 20  N..@ 4,0 ..TEXT 
000160: 0D 0A 20 20 20 20 20 20 20 54 6F 20 6C 6F 63 61  ..       To loca
000170: 74 65 20 64 61 74 61 20 69 6E 20 61 20 64 42 41  te data in a dBA
000180: 53 45 20 49 49 20 66 69 6C 65 20 79 6F 75 20 6D  SE II file you m
000190: 75 73 74 20 66 69 72 73 74 0D 0A 20 20 20 20 20  ust first..     
0001A0: 20 20 65 6E 73 75 72 65 20 74 68 61 74 20 79 6F    ensure that yo
0001B0: 75 20 68 61 76 65 20 6F 70 65 6E 65 64 20 61 20  u have opened a 
0001C0: 66 69 6C 65 2E 0D 0A 45 4E 44 54 45 58 54 0D 0A  file...ENDTEXT..
0001D0: 49 46 20 4D 2E 4D 46 49 4C 45 3D 27 20 20 20 20  IF M.MFILE='    
0001E0: 20 20 20 20 27 0D 0A 20 20 40 20 32 30 2C 35 20      '..  @ 20,5 
0001F0: 53 41 59 20 27 4E 6F 20 66 69 6C 65 20 69 6E 20  SAY 'No file in 

Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 53 54 4F 52 45 20 27 20 20 27  ..    STORE '  '
000010: 20 54 4F 20 52 45 46 0D 0A 20 20 20 20 4C 4F 4F   TO REF..    LOO
000020: 50 0D 0A 20 20 45 4E 44 49 46 0D 0A 20 20 49 46  P..  ENDIF..  IF
000030: 20 56 41 4C 28 4D 2E 52 45 46 29 20 3C 3E 20 49   VAL(M.REF) <> I
000040: 4E 54 28 56 41 4C 28 4D 2E 52 45 46 29 29 0D 0A  NT(VAL(M.REF))..
000050: 20 20 20 20 40 20 32 30 2C 35 20 53 41 59 20 27      @ 20,5 SAY '
000060: 50 6C 65 61 73 65 20 74 72 79 20 77 68 6F 6C 65  Please try whole
000070: 20 6E 75 6D 62 65 72 73 20 21 21 27 0D 0A 20 20   numbers !!'..  
000080: 20 20 53 54 4F 52 45 20 27 20 27 20 54 4F 20 54    STORE ' ' TO T
000090: 45 4D 50 0D 0A 20 20 20 20 40 20 32 31 2C 35 20  EMP..    @ 21,5 
0000A0: 53 41 59 20 27 50 72 65 73 73 20 61 6E 79 20 6B  SAY 'Press any k
0000B0: 65 79 20 74 6F 20 72 65 74 72 79 20 27 20 0D 0A  ey to retry ' ..
0000C0: 20 20 20 20 40 20 32 31 2C 31 20 47 45 54 20 4D      @ 21,1 GET M
0000D0: 2E 54 45 4D 50 0D 0A 20 20 20 20 52 45 41 44 0D  .TEMP..    READ.
0000E0: 0A 20 20 20 20 43 4C 45 41 52 20 47 45 54 53 0D  .    CLEAR GETS.
0000F0: 0A 20 20 20 20 40 20 31 36 2C 30 0D 0A 20 20 20  .    @ 16,0..   
000100: 20 40 20 31 37 2C 30 0D 0A 20 20 20 20 40 20 31   @ 17,0..    @ 1
000110: 38 2C 30 0D 0A 20 20 20 20 40 20 31 39 2C 30 0D  8,0..    @ 19,0.
000120: 0A 20 20 20 20 40 20 32 30 2C 30 0D 0A 20 20 20  .    @ 20,0..   
000130: 20 40 20 32 31 2C 31 0D 0A 20 20 20 20 53 54 4F   @ 21,1..    STO
000140: 52 45 20 27 20 20 27 20 54 4F 20 52 45 46 20 0D  RE '  ' TO REF .
000150: 0A 20 20 20 20 4C 4F 4F 50 0D 0A 20 20 45 4E 44  .    LOOP..  END
000160: 49 46 0D 0A 20 20 47 4F 20 56 41 4C 28 4D 2E 52  IF..  GO VAL(M.R
000170: 45 46 29 0D 0A 20 20 49 46 20 4D 2E 46 49 52 53  EF)..  IF M.FIRS
000180: 54 0D 0A 20 20 20 20 53 54 4F 52 45 20 46 20 54  T..    STORE F T
000190: 4F 20 46 49 52 53 54 0D 0A 20 20 20 45 4C 53 45  O FIRST..   ELSE
0001A0: 0D 0A 20 20 20 20 53 54 4F 52 45 20 4D 2E 53 45  ..    STORE M.SE
0001B0: 4C 45 43 54 2B 27 2C 27 20 54 4F 20 53 45 4C 45  LECT+',' TO SELE
0001C0: 43 54 0D 0A 20 20 45 4E 44 49 46 0D 0A 20 20 53  CT..  ENDIF..  S
0001D0: 54 4F 52 45 20 4D 2E 53 45 4C 45 43 54 2B 54 52  TORE M.SELECT+TR
0001E0: 49 4D 28 46 49 45 4C 44 3A 4E 41 4D 45 29 20 54  IM(FIELD:NAME) T
0001F0: 4F 20 53 45 4C 45 43 54 0D 0A 45 4E 44 44 4F 0D  O SELECT..ENDDO.

Size : 512 (Real : 512)
000000: 75 73 65 20 70 6C 65 61 73 65 20 4F 50 45 4E 20  use please OPEN 
000010: 66 72 6F 6D 20 6D 61 69 6E 20 6D 65 6E 75 27 0D  from main menu'.
000020: 0A 20 20 53 54 4F 52 45 20 27 20 27 20 54 4F 20  .  STORE ' ' TO 
000030: 54 45 4D 50 0D 0A 20 20 40 20 32 31 2C 35 20 53  TEMP..  @ 21,5 S
000040: 41 59 20 27 50 72 65 73 73 20 61 6E 79 20 6B 65  AY 'Press any ke
000050: 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 27 0D  y to continue '.
000060: 0A 20 20 40 20 32 31 2C 31 20 47 45 54 20 4D 2E  .  @ 21,1 GET M.
000070: 54 45 4D 50 0D 0A 20 20 52 45 41 44 0D 0A 20 20  TEMP..  READ..  
000080: 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 45 52  CLEAR GETS..  ER
000090: 41 53 45 0D 0A 40 20 31 2C 31 20 53 41 59 20 27  ASE..@ 1,1 SAY '
0000A0: 57 45 4C 43 4F 4D 45 20 20 20 20 20 20 20 20 20  WELCOME         
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 4C 4F 43 41              LOCA
0000C0: 54 45 20 52 45 43 4F 52 44 53 20 20 20 20 20 20  TE RECORDS      
0000D0: 20 20 20 20 20 20 20 20 20 20 20 27 20 3B 0D 0A             ' ;..
0000E0: 20 20 20 20 20 20 20 20 2B 20 27 20 20 20 20 20          + '     
0000F0: 64 42 41 53 45 20 49 49 27 0D 0A 20 20 40 20 32  dBASE II'..  @ 2
000100: 2C 31 20 53 41 59 20 4D 2E 55 4E 44 45 52 4C 4E  ,1 SAY M.UNDERLN
000110: 0D 0A 20 20 40 20 32 32 2C 31 20 53 41 59 20 4D  ..  @ 22,1 SAY M
000120: 2E 55 4E 44 45 52 4C 4E 0D 0A 20 20 40 20 31 31  .UNDERLN..  @ 11
000130: 2C 32 37 20 53 41 59 20 27 52 45 54 55 52 4E 49  ,27 SAY 'RETURNI
000140: 4E 47 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 27  NG TO MAIN MENU'
000150: 0D 0A 20 20 40 20 32 30 2C 31 0D 0A 20 20 53 54  ..  @ 20,1..  ST
000160: 4F 52 45 20 31 20 54 4F 20 43 0D 0A 20 20 44 4F  ORE 1 TO C..  DO
000170: 20 57 48 49 4C 45 20 43 20 3C 20 32 35 0D 0A 20   WHILE C < 25.. 
000180: 20 20 20 53 54 4F 52 45 20 43 2B 31 20 54 4F 20     STORE C+1 TO 
000190: 43 0D 0A 20 20 45 4E 44 44 4F 0D 0A 20 20 52 45  C..  ENDDO..  RE
0001A0: 4C 45 41 53 45 20 41 4C 4C 20 45 58 43 45 50 54  LEASE ALL EXCEPT
0001B0: 20 4D 46 49 4C 45 0D 0A 20 20 52 45 54 55 52 4E   MFILE..  RETURN
0001C0: 0D 0A 45 4E 44 49 46 0D 0A 40 20 32 30 2C 35 20  ..ENDIF..@ 20,5 
0001D0: 53 41 59 20 27 54 68 65 20 66 69 6C 65 20 70 72  SAY 'The file pr
0001E0: 65 73 65 6E 74 6C 79 20 69 6E 20 75 73 65 20 69  esently in use i
0001F0: 73 20 2D 20 27 2B 4D 2E 4D 46 49 4C 45 0D 0A 53  s - '+M.MFILE..S

Size : 512 (Real : 512)
000000: 65 72 20 74 68 65 20 72 65 66 2E 20 6E 75 6D 62  er the ref. numb
000010: 65 72 20 61 6E 64 20 20 70 72 65 73 73 20 63 61  er and  press ca
000020: 72 72 69 61 67 65 20 72 65 74 75 72 6E 2E 27 0D  rriage return.'.
000030: 0A 40 20 36 2C 35 20 53 41 59 20 27 57 65 6C 63  .@ 6,5 SAY 'Welc
000040: 6F 6D 65 20 77 69 6C 6C 20 62 75 69 6C 64 20 74  ome will build t
000050: 68 65 20 63 6F 6D 6D 61 6E 64 2E 20 27 0D 0A 53  he command. '..S
000060: 54 4F 52 45 20 27 4C 4F 43 41 54 45 20 46 4F 52  TORE 'LOCATE FOR
000070: 20 27 20 54 4F 20 53 45 4C 45 43 54 0D 0A 53 54   ' TO SELECT..ST
000080: 4F 52 45 20 38 20 54 4F 20 4C 49 4E 45 0D 0A 53  ORE 8 TO LINE..S
000090: 54 4F 52 45 20 31 20 54 4F 20 43 4F 55 4E 54 0D  TORE 1 TO COUNT.
0000A0: 0A 53 54 4F 52 45 20 31 31 20 54 4F 20 52 45 43  .STORE 11 TO REC
0000B0: 43 4E 54 0D 0A 53 54 4F 52 45 20 31 20 54 4F 20  CNT..STORE 1 TO 
0000C0: 43 4F 4C 0D 0A 53 54 4F 52 45 20 54 20 54 4F 20  COL..STORE T TO 
0000D0: 43 4F 4E 54 0D 0A 44 4F 20 57 48 49 4C 45 20 4D  CONT..DO WHILE M
0000E0: 2E 43 4F 4E 54 0D 0A 20 20 44 4F 20 57 48 49 4C  .CONT..  DO WHIL
0000F0: 45 20 4D 2E 4C 49 4E 45 3C 31 35 2E 41 4E 44 2E  E M.LINE<15.AND.
000100: 2E 4E 4F 54 2E 45 4F 46 0D 0A 20 20 20 20 40 20  .NOT.EOF..    @ 
000110: 4D 2E 4C 49 4E 45 2C 4D 2E 43 4F 4C 20 53 41 59  M.LINE,M.COL SAY
000120: 20 53 54 52 28 4D 2E 43 4F 55 4E 54 2C 32 29 0D   STR(M.COUNT,2).
000130: 0A 20 20 20 20 40 20 4D 2E 4C 49 4E 45 2C 4D 2E  .    @ M.LINE,M.
000140: 43 4F 4C 2B 33 20 53 41 59 20 46 49 45 4C 44 3A  COL+3 SAY FIELD:
000150: 4E 41 4D 45 2B 27 2C 27 2B 46 49 45 4C 44 3A 54  NAME+','+FIELD:T
000160: 59 50 45 2B 27 2C 27 2B 53 54 52 28 46 49 45 4C  YPE+','+STR(FIEL
000170: 44 3A 4C 45 4E 2C 33 29 2B 27 2C 27 3B 0D 0A 20  D:LEN,3)+',';.. 
000180: 20 20 20 2B 53 54 52 28 46 49 45 4C 44 3A 44 45     +STR(FIELD:DE
000190: 43 2C 32 29 0D 0A 20 20 20 20 53 54 4F 52 45 20  C,2)..    STORE 
0001A0: 4D 2E 4C 49 4E 45 2B 31 20 54 4F 20 4C 49 4E 45  M.LINE+1 TO LINE
0001B0: 0D 0A 20 20 20 20 53 54 4F 52 45 20 4D 2E 43 4F  ..    STORE M.CO
0001C0: 55 4E 54 2B 31 20 54 4F 20 43 4F 55 4E 54 0D 0A  UNT+1 TO COUNT..
0001D0: 20 20 20 20 53 4B 49 50 0D 0A 20 20 45 4E 44 44      SKIP..  ENDD
0001E0: 4F 0D 0A 20 20 49 46 20 45 4F 46 20 0D 0A 20 20  O..  IF EOF ..  
0001F0: 20 20 53 54 4F 52 45 20 46 20 54 4F 20 43 4F 4E    STORE F TO CON

Size : 512 (Real : 512)
000000: 54 4F 52 45 20 27 20 27 20 54 4F 20 52 45 50 4C  TORE ' ' TO REPL
000010: 59 0D 0A 44 4F 20 57 48 49 4C 45 20 2E 4E 4F 54  Y..DO WHILE .NOT
000020: 2E 20 4D 2E 52 45 50 4C 59 24 27 59 4E 27 0D 0A  . M.REPLY$'YN'..
000030: 20 20 40 20 32 31 2C 35 20 53 41 59 20 27 44 6F    @ 21,5 SAY 'Do
000040: 20 79 6F 75 20 77 69 73 68 20 74 6F 20 4C 4F 43   you wish to LOC
000050: 41 54 45 20 69 6E 20 74 68 69 73 20 66 69 6C 65  ATE in this file
000060: 3F 20 59 2F 4E 20 27 20 0D 0A 20 20 40 20 32 31  ? Y/N ' ..  @ 21
000070: 2C 31 20 47 45 54 20 4D 2E 52 45 50 4C 59 20 70  ,1 GET M.REPLY p
000080: 69 63 74 20 27 21 27 0D 0A 20 20 52 45 41 44 0D  ict '!'..  READ.
000090: 0A 20 20 43 4C 45 41 52 20 47 45 54 53 0D 0A 45  .  CLEAR GETS..E
0000A0: 4E 44 44 0D 0A 49 46 20 4D 2E 52 45 50 4C 59 3D  NDD..IF M.REPLY=
0000B0: 27 4E 27 0D 0A 20 20 45 52 41 53 45 0D 0A 40 20  'N'..  ERASE..@ 
0000C0: 31 2C 31 20 53 41 59 20 27 57 45 4C 43 4F 4D 45  1,1 SAY 'WELCOME
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000E0: 20 20 20 20 20 4C 4F 43 41 54 45 20 52 45 43 4F       LOCATE RECO
0000F0: 52 44 53 20 20 20 20 20 20 20 20 20 20 20 20 20  RDS             
000100: 20 20 20 20 27 20 3B 0D 0A 20 20 20 20 20 20 20      ' ;..       
000110: 20 2B 20 27 20 20 20 20 20 64 42 41 53 45 20 49   + '     dBASE I
000120: 49 27 0D 0A 20 20 40 20 32 2C 31 20 53 41 59 20  I'..  @ 2,1 SAY 
000130: 4D 2E 55 4E 44 45 52 4C 4E 0D 0A 20 20 40 20 32  M.UNDERLN..  @ 2
000140: 32 2C 31 20 53 41 59 20 4D 2E 55 4E 44 45 52 4C  2,1 SAY M.UNDERL
000150: 4E 0D 0A 20 20 40 20 31 31 2C 32 37 20 53 41 59  N..  @ 11,27 SAY
000160: 20 27 52 45 54 55 52 4E 49 4E 47 20 54 4F 20 4D   'RETURNING TO M
000170: 41 49 4E 20 4D 45 4E 55 27 0D 0A 20 20 40 20 32  AIN MENU'..  @ 2
000180: 30 2C 31 0D 0A 20 20 53 54 4F 52 45 20 31 20 54  0,1..  STORE 1 T
000190: 4F 20 43 0D 0A 20 20 44 4F 20 57 48 49 4C 45 20  O C..  DO WHILE 
0001A0: 43 20 3C 20 32 35 0D 0A 20 20 20 20 53 54 4F 52  C < 25..    STOR
0001B0: 45 20 43 2B 31 20 54 4F 20 43 0D 0A 20 20 45 4E  E C+1 TO C..  EN
0001C0: 44 44 4F 0D 0A 20 20 52 45 4C 45 41 53 45 20 41  DDO..  RELEASE A
0001D0: 4C 4C 20 45 58 43 45 50 54 20 4D 46 49 4C 45 0D  LL EXCEPT MFILE.
0001E0: 0A 20 20 52 45 54 55 52 4E 0D 0A 45 4E 44 49 46  .  RETURN..ENDIF
0001F0: 0D 0A 45 52 41 53 45 0D 0A 40 20 31 2C 31 20 53  ..ERASE..@ 1,1 S

Size : 512 (Real : 512)
000000: 54 0D 0A 20 20 20 20 4C 4F 4F 50 0D 0A 20 20 45  T..    LOOP..  E
000010: 4E 44 49 46 0D 0A 20 20 53 54 4F 52 45 20 38 20  NDIF..  STORE 8 
000020: 54 4F 20 4C 49 4E 45 0D 0A 20 20 53 54 4F 52 45  TO LINE..  STORE
000030: 20 4D 2E 43 4F 4C 2B 32 36 20 54 4F 20 43 4F 4C   M.COL+26 TO COL
000040: 0D 0A 45 4E 44 44 4F 0D 0A 53 54 4F 52 45 20 54  ..ENDDO..STORE T
000050: 20 54 4F 20 43 4F 4E 54 2C 46 49 52 53 54 0D 0A   TO CONT,FIRST..
000060: 47 4F 20 42 4F 54 54 4F 4D 0D 0A 53 54 4F 52 45  GO BOTTOM..STORE
000070: 20 23 20 54 4F 20 42 4F 54 54 4F 4D 0D 0A 44 4F   # TO BOTTOM..DO
000080: 20 57 48 49 4C 45 20 4D 2E 43 4F 4E 54 0D 0A 20   WHILE M.CONT.. 
000090: 20 40 20 32 33 2C 30 20 53 41 59 20 27 2E 20 27   @ 23,0 SAY '. '
0000A0: 2B 4D 2E 53 45 4C 45 43 54 0D 0A 20 20 53 54 4F  +M.SELECT..  STO
0000B0: 52 45 20 27 20 20 27 20 54 4F 20 52 45 46 0D 0A  RE '  ' TO REF..
0000C0: 20 20 40 20 31 37 2C 35 20 53 41 59 20 27 45 6E    @ 17,5 SAY 'En
0000D0: 74 65 72 20 72 65 66 65 72 65 6E 63 65 20 6E 75  ter reference nu
0000E0: 6D 62 65 72 20 2D 20 27 20 47 45 54 20 4D 2E 52  mber - ' GET M.R
0000F0: 45 46 20 50 49 43 54 20 27 39 39 27 0D 0A 20 20  EF PICT '99'..  
000100: 52 45 41 44 0D 0A 20 20 43 4C 45 41 52 20 47 45  READ..  CLEAR GE
000110: 54 53 0D 0A 20 20 49 46 20 56 41 4C 28 4D 2E 52  TS..  IF VAL(M.R
000120: 45 46 29 3D 30 0D 0A 20 20 20 20 49 46 20 4D 2E  EF)=0..    IF M.
000130: 46 49 52 53 54 0D 0A 20 20 20 20 20 20 53 54 4F  FIRST..      STO
000140: 52 45 20 27 20 27 20 54 4F 20 54 45 4D 50 0D 0A  RE ' ' TO TEMP..
000150: 20 20 20 20 20 20 40 20 32 31 2C 35 20 53 41 59        @ 21,5 SAY
000160: 20 27 59 6F 75 20 4D 55 53 54 20 6D 61 6B 65 20   'You MUST make 
000170: 61 20 73 65 6C 65 63 74 69 6F 6E 20 2D 20 50 72  a selection - Pr
000180: 65 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 72  ess any key to r
000190: 65 74 72 79 20 27 20 0D 0A 20 20 20 20 20 20 40  etry ' ..      @
0001A0: 20 32 31 2C 31 20 47 45 54 20 4D 2E 54 45 4D 50   21,1 GET M.TEMP
0001B0: 0D 0A 20 20 20 20 20 20 52 45 41 44 0D 0A 20 20  ..      READ..  
0001C0: 20 20 20 20 43 4C 45 41 52 20 47 45 54 53 0D 0A      CLEAR GETS..
0001D0: 20 20 20 20 20 20 40 20 31 37 2C 30 0D 0A 20 20        @ 17,0..  
0001E0: 20 20 20 20 40 20 31 38 2C 30 0D 0A 20 20 20 20      @ 18,0..    
0001F0: 20 20 40 20 31 39 2C 30 0D 0A 20 20 20 20 20 20    @ 19,0..      

Size : 512 (Real : 512)
000000: 41 59 20 27 57 45 4C 43 4F 4D 45 20 20 20 20 20  AY 'WELCOME     
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000020: 4C 4F 43 41 54 45 20 52 45 43 4F 52 44 53 20 20  LOCATE RECORDS  
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27                 '
000040: 20 3B 0D 0A 20 20 20 20 20 20 20 20 2B 20 27 20   ;..        + ' 
000050: 20 20 20 20 64 42 41 53 45 20 49 49 27 0D 0A 40      dBASE II'..@
000060: 20 32 2C 31 20 53 41 59 20 4D 2E 55 4E 44 45 52   2,1 SAY M.UNDER
000070: 4C 4E 0D 0A 40 20 32 32 2C 31 20 53 41 59 20 4D  LN..@ 22,1 SAY M
000080: 2E 55 4E 44 45 52 4C 4E 0D 0A 40 20 34 2C 30 0D  .UNDERLN..@ 4,0.
000090: 0A 54 45 58 54 0D 0A 20 20 20 20 20 59 6F 75 20  .TEXT..     You 
0000A0: 77 6F 75 6C 64 20 6C 6F 63 61 74 65 20 61 20 72  would locate a r
0000B0: 65 63 6F 72 64 20 69 6E 20 61 20 64 42 41 53 45  ecord in a dBASE
0000C0: 20 49 49 20 66 69 6C 65 20 62 79 20 74 79 70 69   II file by typi
0000D0: 6E 67 0D 0A 0D 0A 20 20 20 20 20 20 2E 20 4C 4F  ng....      . LO
0000E0: 43 41 54 45 0D 0A 0D 0A 20 20 20 20 20 54 6F 20  CATE....     To 
0000F0: 68 65 6C 70 20 79 6F 75 20 61 6C 6F 6E 67 20 49  help you along I
000100: 20 68 61 76 65 20 61 6C 72 65 61 64 79 20 65 6E   have already en
000110: 74 65 72 65 64 20 74 68 65 20 4C 4F 43 41 54 45  tered the LOCATE
000120: 20 2D 0D 0A 20 20 20 20 20 73 68 6F 77 6E 20 62   -..     shown b
000130: 65 6C 6F 77 20 74 68 65 20 6C 69 6E 65 2E 0D 0A  elow the line...
000140: 0D 0A 20 20 20 20 20 54 68 65 72 65 20 61 72 65  ..     There are
000150: 20 6F 74 68 65 72 20 63 6F 6D 6D 61 6E 64 73 20   other commands 
000160: 63 6F 6E 6E 65 63 74 65 64 20 77 69 74 68 20 4C  connected with L
000170: 4F 43 41 54 45 20 77 68 69 63 68 20 49 0D 0A 20  OCATE which I.. 
000180: 20 20 20 20 73 68 61 6C 6C 20 65 78 70 6C 61 69      shall explai
000190: 6E 20 61 73 20 77 65 20 6D 65 65 74 20 74 68 65  n as we meet the
0001A0: 6D 2E 0D 0A 20 20 20 20 20 20 0D 0A 45 4E 44 54  m...      ..ENDT
0001B0: 45 58 54 0D 0A 40 20 32 33 2C 30 20 53 41 59 20  EXT..@ 23,0 SAY 
0001C0: 22 2E 20 4C 4F 43 41 54 45 22 20 0D 0A 53 54 4F  ". LOCATE" ..STO
0001D0: 52 45 20 27 20 27 20 54 4F 20 54 45 4D 50 0D 0A  RE ' ' TO TEMP..
0001E0: 40 20 32 31 2C 35 20 53 41 59 20 27 50 72 65 73  @ 21,5 SAY 'Pres
0001F0: 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E  s any key to con