000000: 45 58 54 45 4E 44 45 44 20 43 50 43 20 44 53 4B EXTENDED CPC DSK
000010: 20 46 69 6C 65 0D 0A 44 69 73 6B 2D 49 6E 66 6F File..Disk-Info
000020: 0D 0A 53 41 4D 64 69 73 6B 31 37 30 35 31 34 00 ..SAMdisk170514.
000030: 2A 01 00 00 13 13 13 13 13 13 13 13 13 13 13 13 *...............
000040: 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 ................
000050: 13 13 13 13 13 13 13 13 13 13 13 13 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: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
000110: 00 00 01 00 02 09 52 E5 00 00 41 02 00 00 00 02 ......R...A.....
000120: 00 00 46 02 00 00 00 02 00 00 42 02 00 00 00 02 ..F.......B.....
000130: 00 00 47 02 00 00 00 02 00 00 43 02 00 00 00 02 ..G.......C.....
000140: 00 00 48 02 00 00 00 02 00 00 44 02 00 00 00 02 ..H.......D.....
000150: 00 00 49 02 00 00 00 02 00 00 45 02 00 00 00 02 ..I.......E.....
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 ................
000200: 11 00 03 21 00 00 06 04 CD 01 02 30 34 10 F9 CD ...!.......04...
000210: C5 01 20 64 11 00 0C 06 10 7E B7 28 1A E5 C5 6F .. d.....~.(...o
000220: 26 00 CD FC 01 30 1A C1 E1 23 10 ED 21 2A 02 34 &....0...#..!*.4
000230: D5 CD C5 01 D1 28 E0 21 00 0C 0E FF CD 9B BE 16 .....(.!........
000240: BD 21 46 01 18 6B 0D 0A 44 69 73 63 65 74 74 65 .!F..k..Discette
000250: 20 72 65 61 64 20 66 61 69 6C 75 72 65 0D 0A 50 read failure..P
000260: 72 65 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 ress any key to
000270: 72 65 73 74 61 72 74 FF 21 7D 01 18 34 0D 0A 43 restart.!}..4..C
000280: 61 6E 6E 6F 74 20 66 69 6E 64 20 22 2E 45 4D 53 annot find ".EMS
000290: 22 20 66 69 6C 65 0D 0A 50 72 65 73 73 20 61 6E " file..Press an
0002A0: 79 20 6B 65 79 20 74 6F 20 72 65 73 74 61 72 74 y key to restart
0002B0: FF 7E 23 FE FF C4 5A BB 20 F7 CD 1B BB 38 FB CD .~#...Z. ....8..
0002C0: 18 BB CF 00 00 21 00 03 06 40 7E E6 F0 20 22 C5 .....!...@~.. ".
0002D0: E5 11 0D 00 19 11 2B 02 01 FF 0C 1B 1A 2B AE A1 ......+......+..
0002E0: 28 09 1A FE 3F 20 08 7E A1 12 AF 0E 7F 10 EC E1 (...? .~........
0002F0: C1 11 10 00 19 C8 19 10 D1 F6 FF C9 29 CD 01 02 ............)...
000300: D0 C5 E5 01 F7 FF 3E 01 3C 09 38 FC 67 7D C6 4A ......>.<.8.g}.J
000310: 4F 2E 00 EB CD 89 BE EB E1 C1 D0 14 14 23 C9 3F O............#.?
000320: 3F 3F 3F 3F 3F 3F 3F 45 4D 53 00 CF CF CF CF CF ???????EMS......
000330: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000340: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000350: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000360: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000370: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000380: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000390: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0003A0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0003B0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0003C0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0003D0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0003E0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0003F0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0010A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0010B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0010C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0010D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0010E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0010F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0011A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0011B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0011C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0011D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0011E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0011F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0012A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0012B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0012C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0012D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0012E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0012F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
001410: 01 00 01 00 02 09 52 E5 01 00 41 02 00 00 00 02 ......R...A.....
001420: 01 00 46 02 00 00 00 02 01 00 42 02 00 00 00 02 ..F.......B.....
001430: 01 00 47 02 00 00 00 02 01 00 43 02 00 00 00 02 ..G.......C.....
001440: 01 00 48 02 00 00 00 02 01 00 44 02 00 00 00 02 ..H.......D.....
001450: 01 00 49 02 00 00 00 02 01 00 45 02 00 00 00 02 ..I.......E.....
001460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0015A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0015B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0015C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0015D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0015E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0015F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0016A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0016B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0016C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0016D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0016E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0016F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0017A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0017B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0017C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0017D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0017E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0017F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0018A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0018B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0018C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0018D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0018E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0018F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0019A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0019B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0019C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0019D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0019E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0019F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0020A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0020B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0020C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0020D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0020E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0020F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0021A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0021B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0021C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0021D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0021E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0021F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0022A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0022B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0022C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0022D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0022E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0022F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0023A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0023B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0023C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0023D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0023E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0023F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0024A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0024B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0024C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0024D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0024E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0024F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0025A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0025B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0025C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0025D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0025E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0025F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0026A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0026B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0026C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0026D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0026E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0026F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
002710: 02 00 01 00 02 09 52 E5 02 00 41 02 00 00 00 02 ......R...A.....
002720: 02 00 46 02 00 00 00 02 02 00 42 02 00 00 00 02 ..F.......B.....
002730: 02 00 47 02 00 00 00 02 02 00 43 02 00 00 00 02 ..G.......C.....
002740: 02 00 48 02 00 00 00 02 02 00 44 02 00 00 00 02 ..H.......D.....
002750: 02 00 49 02 00 00 00 02 02 00 45 02 00 00 00 02 ..I.......E.....
002760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002800: 00 41 55 54 48 4F 52 53 20 4E 44 58 00 00 00 10 .AUTHORS NDX....
002810: 02 03 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002820: 00 42 4F 4F 4B 32 20 20 20 46 52 4D 00 00 00 04 .BOOK2 FRM....
002830: 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002840: 00 54 59 50 45 2D 4D 45 20 20 20 20 00 00 00 3B .TYPE-ME ...;
002850: 05 06 07 08 09 0A 0B 0C 00 00 00 00 00 00 00 00 ................
002860: 00 42 4F 4F 4B 53 20 20 20 44 42 46 00 00 00 2C .BOOKS DBF...,
002870: 0D 0E 0F 10 11 12 00 00 00 00 00 00 00 00 00 00 ................
002880: 00 42 4F 4F 4B 53 20 20 20 46 52 4D 00 00 00 02 .BOOKS FRM....
002890: 13 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0028A0: 00 42 4F 4F 4B 53 31 20 20 43 4D 44 00 00 00 10 .BOOKS1 CMD....
0028B0: 14 15 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0028C0: 00 42 4F 4F 4B 53 32 20 20 43 4D 44 00 00 00 1C .BOOKS2 CMD....
0028D0: 16 17 18 19 00 00 00 00 00 00 00 00 00 00 00 00 ................
0028E0: 00 42 4F 4F 4B 53 33 20 20 43 4D 44 00 00 00 14 .BOOKS3 CMD....
0028F0: 1A 1B 1C 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002900: 00 42 4F 4F 4B 53 34 20 20 43 4D 44 00 00 00 10 .BOOKS4 CMD....
002910: 1D 1E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002920: 00 42 4F 4F 4B 53 35 20 20 43 4D 44 00 00 00 08 .BOOKS5 CMD....
002930: 1F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002940: 00 42 4F 4F 4B 53 36 20 20 43 4D 44 00 00 00 08 .BOOKS6 CMD....
002950: 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ...............
002960: 00 42 4F 4F 4B 53 37 20 20 43 4D 44 00 00 00 10 .BOOKS7 CMD....
002970: 21 22 00 00 00 00 00 00 00 00 00 00 00 00 00 00 !"..............
002980: 00 42 4F 4F 4B 53 38 20 20 43 4D 44 00 00 00 09 .BOOKS8 CMD....
002990: 23 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 #$..............
0029A0: 00 46 52 4F 4E 41 20 20 20 44 46 4C 00 00 00 08 .FRONA DFL....
0029B0: 25 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 %...............
0029C0: 00 46 52 4F 4E 41 20 20 20 45 4E 44 00 00 00 80 .FRONA END....
0029D0: 26 27 28 29 2A 2B 2C 2D 2E 2F 30 31 32 33 34 35 &'()*+,-./012345
0029E0: 00 46 52 4F 4E 41 20 20 20 45 4E 44 01 00 00 08 .FRONA END....
0029F0: 36 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 6...............
002A00: 10 00 00 06 00 20 20 20 20 20 20 20 20 20 20 20 .....
002A10: 20 57 4F 52 4C 44 20 41 54 4C 41 53 20 00 00 0E WORLD ATLAS ...
002A20: 00 42 59 52 4F 4E 20 20 20 20 20 20 20 43 48 49 .BYRON CHI
002A30: 4C 44 45 20 48 41 52 4F 4C 00 00 04 00 43 4C 41 LDE HAROL....CLA
002A40: 52 4B 45 2C 4D 52 53 20 4D 52 49 56 41 4C 20 50 RKE,MRS MRIVAL P
002A50: 52 49 4E 43 45 00 00 09 00 43 4F 4E 52 41 44 20 RINCE....CONRAD
002A60: 20 20 20 20 20 4C 4F 52 44 20 4A 49 4D 20 20 20 LORD JIM
002A70: 20 00 00 0D 00 44 41 4E 54 45 20 20 20 20 20 20 ....DANTE
002A80: 20 49 4E 46 45 52 4E 4F 20 20 20 20 20 00 00 19 INFERNO ...
002A90: 00 44 45 20 50 41 43 45 20 20 20 20 20 57 4F 52 .DE PACE WOR
002AA0: 4B 49 4E 47 20 57 49 54 48 00 00 03 00 44 49 43 KING WITH....DIC
002AB0: 4B 45 4E 53 20 20 20 20 20 42 4C 45 41 4B 20 48 KENS BLEAK H
002AC0: 4F 55 53 45 20 00 00 02 00 44 49 43 4B 45 4E 53 OUSE ....DICKENS
002AD0: 20 20 20 20 20 44 4F 4D 42 45 59 20 41 4E 44 20 DOMBEY AND
002AE0: 53 00 00 1B 00 44 52 20 50 41 59 4E 45 20 20 20 S....DR PAYNE
002AF0: 20 54 48 45 20 41 52 54 20 4F 46 20 53 00 00 08 THE ART OF S...
002B00: 00 47 52 45 59 2C 5A 41 4E 45 20 20 20 52 49 44 .GREY,ZANE RID
002B10: 45 52 53 20 4F 46 20 54 48 00 00 17 00 48 45 52 ERS OF TH....HER
002B20: 42 45 52 54 2C 46 52 41 4E 44 55 4E 45 20 20 20 BERT,FRANDUNE
002B30: 20 20 20 20 20 00 00 18 00 48 45 52 42 45 52 54 ....HERBERT
002B40: 2C 46 52 41 4E 44 55 4E 45 20 4D 45 53 53 49 41 ,FRANDUNE MESSIA
002B50: 48 00 00 0F 00 49 42 53 45 4E 20 20 20 20 20 20 H....IBSEN
002B60: 20 44 4F 4C 4C 27 53 20 48 4F 55 53 45 00 00 14 DOLL'S HOUSE...
002B70: 00 4A 4F 59 43 45 20 20 20 20 20 20 20 46 49 4E .JOYCE FIN
002B80: 4E 49 47 41 4E 27 53 20 57 00 00 15 00 4A 4F 59 NIGAN'S W....JOY
002B90: 43 45 20 20 20 20 20 20 20 50 4F 52 54 52 41 49 CE PORTRAI
002BA0: 54 20 4F 46 20 00 00 0C 00 4B 41 4E 54 20 20 20 T OF ....KANT
002BB0: 20 20 20 20 20 43 52 49 54 49 51 55 45 20 4F 46 CRITIQUE OF
002BC0: 20 00 00 07 00 54 4F 4C 53 54 4F 59 20 20 20 20 ....TOLSTOY
002BD0: 20 41 4E 4E 41 20 4B 41 52 45 4E 49 4E 00 00 0A ANNA KARENIN...
002BE0: 00 54 4F 4C 53 54 4F 59 20 20 20 20 20 57 41 52 .TOLSTOY WAR
002BF0: 20 41 4E 44 20 50 45 41 43 00 00 0B 00 57 4F 52 AND PEAC....WOR
002C00: 00 46 52 4F 4E 42 20 20 20 45 4E 44 00 00 00 2F .FRONB END.../
002C10: 37 38 39 3A 3B 3C 00 00 00 00 00 00 00 00 00 00 789:;<..........
002C20: 00 46 52 4F 4E 43 20 20 20 45 4E 44 00 00 00 2E .FRONC END....
002C30: 3D 3E 3F 40 41 42 00 00 00 00 00 00 00 00 00 00 =>?@AB..........
002C40: 00 46 52 4F 4E 44 20 20 20 45 4E 44 00 00 00 29 .FROND END...)
002C50: 43 44 45 46 47 48 00 00 00 00 00 00 00 00 00 00 CDEFGH..........
002C60: 00 46 52 4F 4E 45 20 20 20 45 4E 44 00 00 00 36 .FRONE END...6
002C70: 49 4A 4B 4C 4D 4E 4F 00 00 00 00 00 00 00 00 00 IJKLMNO.........
002C80: 00 46 52 4F 4E 46 20 20 20 45 4E 44 00 00 00 37 .FRONF END...7
002C90: 50 51 52 53 54 55 56 00 00 00 00 00 00 00 00 00 PQRSTUV.........
002CA0: 00 46 52 4F 4E 47 20 20 20 45 4E 44 00 00 00 37 .FRONG END...7
002CB0: 57 58 59 5A 5B 5C 5D 00 00 00 00 00 00 00 00 00 WXYZ[\].........
002CC0: 00 46 52 4F 4E 48 20 20 20 45 4E 44 00 00 00 52 .FRONH END...R
002CD0: 5E 5F 60 61 62 63 64 65 66 67 68 00 00 00 00 00 ^_`abcdefgh.....
002CE0: 00 46 52 4F 4E 49 20 20 20 45 4E 44 00 00 00 67 .FRONI END...g
002CF0: 69 6A 6B 6C 6D 6E 6F 70 71 72 73 74 75 00 00 00 ijklmnopqrstu...
002D00: 00 46 52 4F 4E 49 32 20 20 45 4E 44 00 00 00 5B .FRONI2 END...[
002D10: 76 77 78 79 7A 7B 7C 7D 7E 7F 80 81 00 00 00 00 vwxyz{|}~.......
002D20: 00 46 52 4F 4E 49 58 20 20 44 42 57 00 00 00 08 .FRONIX DBW....
002D30: 82 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002D40: 00 46 52 4F 4E 54 20 20 20 45 4E 44 00 00 00 0E .FRONT END....
002D50: 83 84 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002D60: 00 52 4F 4F 4D 53 20 20 20 46 52 4D 00 00 00 02 .ROOMS FRM....
002D70: 85 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002D80: 00 52 4F 4F 4D 53 20 20 20 4E 44 58 00 00 00 08 .ROOMS NDX....
002D90: 86 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002DA0: 00 53 55 42 4A 45 43 54 20 4E 44 58 00 00 00 10 .SUBJECT NDX....
002DB0: 87 88 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002DC0: 00 54 49 54 4C 45 53 20 20 4E 44 58 00 00 00 24 .TITLES NDX...$
002DD0: 89 8A 8B 8C 8D 00 00 00 00 00 00 00 00 00 00 00 ................
002DE0: 00 49 4E 54 52 4F 20 20 20 43 4D 44 00 00 00 18 .INTRO CMD....
002DF0: 8E 8F 90 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002E00: 0D 00 00 05 00 4B 45 41 54 53 20 20 20 20 20 20 .....KEATS
002E10: 20 43 4F 4C 4C 45 43 54 45 44 20 50 4F 00 00 16 COLLECTED PO...
002E20: 00 4D 41 55 47 48 41 4D 2C 53 4F 4D 45 43 41 4B .MAUGHAM,SOMECAK
002E30: 45 53 20 41 4E 44 20 41 4C 00 00 1A 00 4D 52 53 ES AND AL....MRS
002E40: 20 4E 20 45 20 54 52 45 4D 54 48 45 20 54 52 49 N E TREMTHE TRI
002E50: 41 4C 53 20 54 00 00 01 00 53 48 41 4B 45 53 50 ALS T....SHAKESP
002E60: 45 41 52 45 20 41 53 20 59 4F 55 20 4C 49 4B 45 EARE AS YOU LIKE
002E70: 20 00 00 10 00 53 48 41 4B 45 53 50 45 41 52 45 ....SHAKESPEARE
002E80: 20 48 45 4E 52 59 20 56 20 20 20 20 20 00 00 12 HENRY V ...
002E90: 00 53 48 41 4B 45 53 50 45 41 52 45 20 4B 49 4E .SHAKESPEARE KIN
002EA0: 47 20 4C 45 41 52 20 20 20 00 00 11 00 53 48 41 G LEAR ....SHA
002EB0: 4B 45 53 50 45 41 52 45 20 52 4F 4D 45 4F 20 41 KESPEARE ROMEO A
002EC0: 4E 44 20 4A 55 00 00 13 00 53 48 41 4B 45 53 50 ND JU....SHAKESP
002ED0: 45 41 52 45 20 54 45 4D 50 45 53 54 20 20 20 20 EARE TEMPEST
002EE0: 20 00 00 1D 00 54 48 41 54 43 48 45 52 20 26 20 ....THATCHER &
002EF0: 4C 57 48 41 54 20 45 43 4F 4E 4F 4D 49 00 00 07 LWHAT ECONOMI...
002F00: 00 54 4F 4C 53 54 4F 59 20 20 20 20 20 41 4E 4E .TOLSTOY ANN
002F10: 41 20 4B 41 52 45 4E 49 4E 00 00 0A 00 54 4F 4C A KARENIN....TOL
002F20: 53 54 4F 59 20 20 20 20 20 57 41 52 20 41 4E 44 STOY WAR AND
002F30: 20 50 45 41 43 00 00 1C 00 57 49 4C 4C 49 41 4D PEAC....WILLIAM
002F40: 20 54 45 4C 4C 54 48 45 20 4C 4F 53 53 20 4F 46 TELLTHE LOSS OF
002F50: 20 00 00 0B 00 57 4F 52 44 53 57 4F 52 54 48 20 ....WORDSWORTH
002F60: 20 4D 49 43 48 41 45 4C 20 20 20 20 20 00 00 12 MICHAEL ...
002F70: 00 53 48 41 4B 45 53 50 45 41 52 45 20 4B 49 4E .SHAKESPEARE KIN
002F80: 47 20 4C 45 41 52 20 20 20 00 00 11 00 53 48 41 G LEAR ....SHA
002F90: 4B 45 53 50 45 41 52 45 20 52 4F 4D 45 4F 20 41 KESPEARE ROMEO A
002FA0: 4E 44 20 4A 55 00 00 13 00 53 48 41 4B 45 53 50 ND JU....SHAKESP
002FB0: 45 41 52 45 20 54 45 4D 50 45 53 54 20 20 20 20 EARE TEMPEST
002FC0: 20 00 00 07 00 54 4F 4C 53 54 4F 59 20 20 20 20 ....TOLSTOY
002FD0: 20 41 4E 4E 41 20 4B 41 52 45 4E 49 4E 00 00 0A ANNA KARENIN...
002FE0: 00 54 4F 4C 53 54 4F 59 20 20 20 20 20 57 41 52 .TOLSTOY WAR
002FF0: 20 41 4E 44 20 50 45 41 43 00 00 0B 00 57 4F 52 AND PEAC....WOR
003000: 00 55 54 49 4C 53 20 20 20 54 58 54 00 00 00 28 .UTILS TXT...(
003010: 91 92 93 94 95 00 00 00 00 00 00 00 00 00 00 00 ................
003020: 00 42 4F 4F 4B 53 20 20 20 43 4D 44 00 00 00 0F .BOOKS CMD....
003030: 96 97 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003040: 00 49 4E 54 52 31 20 20 20 43 4D 44 00 00 00 10 .INTR1 CMD....
003050: 98 99 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003060: 00 44 49 53 43 44 49 52 20 54 58 54 00 00 00 3A .DISCDIR TXT...:
003070: 9A 9B 9C 9D 9E 9F A0 A1 00 00 00 00 00 00 00 00 ................
003080: 00 57 45 4C 43 4F 4D 45 20 43 4D 44 00 00 00 24 .WELCOME CMD...$
003090: A2 A3 A4 A5 A6 00 00 00 00 00 00 00 00 00 00 00 .£..............
0030A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0030B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0030C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0030D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0030E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0030F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0031A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0031B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0031C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0031D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0031E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0031F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003200: 01 01 00 0C 00 4B 41 4E 54 20 20 20 20 20 20 20 .....KANT
003210: 20 43 52 49 54 49 51 55 45 20 4F 46 20 02 00 1C CRITIQUE OF ...
003220: 00 57 49 4C 4C 49 41 4D 20 54 45 4C 4C 54 48 45 .WILLIAM TELLTHE
003230: 20 4C 4F 53 53 20 4F 46 20 00 00 10 00 53 48 41 LOSS OF ....SHA
003240: 4B 45 53 50 45 41 52 45 20 48 45 4E 52 59 20 56 KESPEARE HENRY V
003250: 20 20 20 20 20 00 00 12 00 53 48 41 4B 45 53 50 ....SHAKESP
003260: 45 41 52 45 20 4B 49 4E 47 20 4C 45 41 52 20 20 EARE KING LEAR
003270: 20 00 00 11 00 53 48 41 4B 45 53 50 45 41 52 45 ....SHAKESPEARE
003280: 20 52 4F 4D 45 4F 20 41 4E 44 20 4A 55 00 00 13 ROMEO AND JU...
003290: 00 53 48 41 4B 45 53 50 45 41 52 45 20 54 45 4D .SHAKESPEARE TEM
0032A0: 50 45 53 54 20 20 20 20 20 00 00 07 00 54 4F 4C PEST ....TOL
0032B0: 53 54 4F 59 20 20 20 20 20 41 4E 4E 41 20 4B 41 STOY ANNA KA
0032C0: 52 45 4E 49 4E 00 00 0A 00 54 4F 4C 53 54 4F 59 RENIN....TOLSTOY
0032D0: 20 20 20 20 20 57 41 52 20 41 4E 44 20 50 45 41 WAR AND PEA
0032E0: 43 00 00 0B 00 57 4F 52 44 53 57 4F 52 54 48 20 C....WORDSWORTH
0032F0: 20 4D 49 43 48 41 45 4C 20 20 20 20 20 00 00 0C MICHAEL ...
003300: 00 4B 41 4E 54 20 20 20 20 20 20 20 20 43 52 49 .KANT CRI
003310: 54 49 51 55 45 20 4F 46 20 00 00 05 00 4B 45 41 TIQUE OF ....KEA
003320: 54 53 20 20 20 20 20 20 20 43 4F 4C 4C 45 43 54 TS COLLECT
003330: 45 44 20 50 4F 00 00 01 00 53 48 41 4B 45 53 50 ED PO....SHAKESP
003340: 45 41 52 45 20 41 53 20 59 4F 55 20 4C 49 4B 45 EARE AS YOU LIKE
003350: 20 00 00 10 00 53 48 41 4B 45 53 50 45 41 52 45 ....SHAKESPEARE
003360: 20 48 45 4E 52 59 20 56 20 20 20 20 20 00 00 12 HENRY V ...
003370: 00 53 48 41 4B 45 53 50 45 41 52 45 20 4B 49 4E .SHAKESPEARE KIN
003380: 47 20 4C 45 41 52 20 20 20 00 00 11 00 53 48 41 G LEAR ....SHA
003390: 4B 45 53 50 45 41 52 45 20 52 4F 4D 45 4F 20 41 KESPEARE ROMEO A
0033A0: 4E 44 20 4A 55 00 00 13 00 53 48 41 4B 45 53 50 ND JU....SHAKESP
0033B0: 45 41 52 45 20 54 45 4D 50 45 53 54 20 20 20 20 EARE TEMPEST
0033C0: 20 00 00 07 00 54 4F 4C 53 54 4F 59 20 20 20 20 ....TOLSTOY
0033D0: 20 41 4E 4E 41 20 4B 41 52 45 4E 49 4E 00 00 0A ANNA KARENIN...
0033E0: 00 54 4F 4C 53 54 4F 59 20 20 20 20 20 57 41 52 .TOLSTOY WAR
0033F0: 20 41 4E 44 20 50 45 41 43 00 00 0B 00 57 4F 52 AND PEAC....WOR
003400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0034A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0034B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0034C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0034D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0034E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0034F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0035A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0035B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0035C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0035D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0035E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0035F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003600: 6D 6C 77 0D 0A 54 EB 17 46 49 45 4C 44 3A 4E 41 mlw..T..FIELD:NA
003610: 4D 45 00 43 0A 01 00 00 46 49 45 4C 44 3A 54 59 ME.C....FIELD:TY
003620: 50 45 00 43 01 0B 00 00 46 49 45 4C 44 3A 4C 45 PE.C....FIELD:LE
003630: 4E 00 00 4E 03 0C 00 00 46 49 45 4C 44 3A 44 45 N..N....FIELD:DE
003640: 43 00 00 4E 03 0F 00 00 0D 48 45 4C 46 00 00 00 C..N.....HELF...
003650: 00 00 00 43 03 7A B2 00 0D 00 00 00 00 00 00 00 ...C.z..........
003660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0036A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0036B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0036C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0036D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0036E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0036F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003700: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003710: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003720: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003730: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003740: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003750: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0037A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0037B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0037C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0037D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0037E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0037F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003800: 00 00 03 00 04 00 1A 1C 12 00 21 28 24 28 61 75 ..........!($(au
003810: 74 68 6F 72 2C 31 2C 31 32 29 29 2B 21 28 24 28 thor,1,12))+!($(
003820: 74 69 74 6C 65 2C 31 2C 31 32 29 29 00 00 00 00 title,1,12))....
003830: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003840: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003850: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0038A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0038B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0038C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0038D0: 00 00 00 00 00 00 00 00 00 00 00 00 01 01 00 0C ................
0038E0: 00 4B 41 4E 54 20 20 20 20 20 20 20 20 43 52 49 .KANT CRI
0038F0: 54 49 51 55 45 20 4F 46 20 02 00 01 00 53 48 41 TIQUE OF ....SHA
003900: 4B 45 53 50 45 41 52 45 20 41 53 20 59 4F 55 20 KESPEARE AS YOU
003910: 4C 49 4B 45 20 00 00 10 00 53 48 41 4B 45 53 50 LIKE ....SHAKESP
003920: 45 41 52 45 20 48 45 4E 52 59 20 56 20 20 20 20 EARE HENRY V
003930: 20 00 00 12 00 53 48 41 4B 45 53 50 45 41 52 45 ....SHAKESPEARE
003940: 20 4B 49 4E 47 20 4C 45 41 52 20 20 20 00 00 11 KING LEAR ...
003950: 00 53 48 41 4B 45 53 50 45 41 52 45 20 52 4F 4D .SHAKESPEARE ROM
003960: 45 4F 20 41 4E 44 20 4A 55 00 00 13 00 53 48 41 EO AND JU....SHA
003970: 4B 45 53 50 45 41 52 45 20 54 45 4D 50 45 53 54 KESPEARE TEMPEST
003980: 20 20 20 20 20 00 00 07 00 54 4F 4C 53 54 4F 59 ....TOLSTOY
003990: 20 20 20 20 20 41 4E 4E 41 20 4B 41 52 45 4E 49 ANNA KARENI
0039A0: 4E 00 00 0A 00 54 4F 4C 53 54 4F 59 20 20 20 20 N....TOLSTOY
0039B0: 20 57 41 52 20 41 4E 44 20 50 45 41 43 00 00 0B WAR AND PEAC...
0039C0: 00 57 4F 52 44 53 57 4F 52 54 48 20 20 4D 49 43 .WORDSWORTH MIC
0039D0: 48 41 45 4C 20 20 20 20 20 00 00 0C 00 4B 41 4E HAEL ....KAN
0039E0: 54 20 20 20 20 20 20 20 20 43 52 49 54 49 51 55 T CRITIQU
0039F0: 45 20 4F 46 20 00 00 05 00 4B 45 41 54 53 20 20 E OF ....KEATS
003A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
003A10: 03 00 01 00 02 09 52 E5 03 00 41 02 00 00 00 02 ......R...A.....
003A20: 03 00 46 02 00 00 00 02 03 00 42 02 00 00 00 02 ..F.......B.....
003A30: 03 00 47 02 00 00 00 02 03 00 43 02 00 00 00 02 ..G.......C.....
003A40: 03 00 48 02 00 00 00 02 03 00 44 02 00 00 00 02 ..H.......D.....
003A50: 03 00 49 02 00 00 00 02 03 00 45 02 00 00 00 02 ..I.......E.....
003A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003D00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003D10: 20 20 20 20 20 20 20 20 2A 61 3A 3D 62 3A 73 75 *a:=b:su
003D20: 62 6D 69 74 2E 63 6F 6D 5B 76 5D 0D 0A 20 20 20 bmit.com[v]..
003D30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003D40: 20 20 20 20 20 20 20 20 2A 61 3A 3D 62 3A 70 69 *a:=b:pi
003D50: 70 2E 63 6F 6D 5B 76 5D 0D 0A 20 20 20 20 20 20 p.com[v]..
003D60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003D70: 20 20 20 20 20 2A 61 3A 3D 62 3A 70 61 70 65 72 *a:=b:paper
003D80: 2E 63 6F 6D 5B 76 5D 0D 0A 20 20 20 20 20 20 20 .com[v]..
003D90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003DA0: 20 20 20 20 2A 61 3A 3D 62 3A 73 65 74 6B 65 79 *a:=b:setkey
003DB0: 73 2E 63 6F 6D 5B 76 5D 0D 0A 20 20 20 20 20 20 s.com[v]..
003DC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003DD0: 20 20 20 20 20 2A 61 3A 3D 62 3A 73 65 74 6C 73 *a:=b:setls
003DE0: 74 2E 63 6F 6D 5B 76 5D 0D 0A 20 20 20 20 20 20 t.com[v]..
003DF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003E00: 20 20 20 20 20 2A 61 3A 3D 62 3A 64 69 72 2E 63 *a:=b:dir.c
003E10: 6F 6D 5B 76 5D 0D 0A 20 20 20 20 20 20 20 20 20 om[v]..
003E20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003E30: 20 20 2A 61 3A 3D 62 3A 74 79 70 65 2E 63 6F 6D *a:=b:type.com
003E40: 5B 76 5D 0D 0A 0D 0A 20 20 20 20 20 66 2E 20 20 [v].... f.
003E50: 52 65 70 6C 61 63 65 20 74 68 65 20 43 50 2F 4D Replace the CP/M
003E60: 20 64 69 73 63 20 69 6E 20 44 72 69 76 65 20 42 disc in Drive B
003E70: 3A 20 77 69 74 68 20 79 6F 75 72 20 64 42 41 53 : with your dBAS
003E80: 45 20 57 4F 52 4B 49 4E 47 20 4D 41 53 54 45 52 E WORKING MASTER
003E90: 20 20 77 69 74 68 0D 0A 0D 0A 20 20 20 20 20 20 with....
003EA0: 20 20 20 73 69 64 65 20 31 20 66 61 63 69 6E 67 side 1 facing
003EB0: 20 6C 65 66 74 20 61 6E 64 20 63 6F 70 79 20 74 left and copy t
003EC0: 68 65 20 64 42 41 53 45 20 65 73 73 65 6E 74 69 he dBASE essenti
003ED0: 61 6C 73 20 61 73 20 66 6F 6C 6C 6F 77 73 3A 0D als as follows:.
003EE0: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 20 ...............
003EF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003F00: 0D 0A 0D 0A 0D 0A 20 20 54 59 50 45 2D 4D 45 20 ...... TYPE-ME
003F10: 31 38 2F 30 38 2F 38 37 0D 0A 0D 0A 20 20 20 20 18/08/87....
003F20: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 20 50 **** P
003F30: 72 69 6E 74 20 6F 75 74 20 74 68 69 73 20 66 69 rint out this fi
003F40: 6C 65 20 61 73 20 73 6F 6F 6E 20 61 73 20 79 6F le as soon as yo
003F50: 75 20 63 61 6E 20 2A 2A 2A 2A 0D 0A 20 20 20 20 u can ****..
003F60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D -
003F70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
003F80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
003F90: 2D 2D 2D 2D 2D 0D 0A 0D 0A 20 20 20 20 20 20 20 -----....
003FA0: 20 20 20 20 20 64 42 41 53 45 20 49 49 20 76 20 dBASE II v
003FB0: 32 2E 34 31 20 2D 20 41 20 53 45 4C 46 2D 53 54 2.41 - A SELF-ST
003FC0: 41 52 54 45 52 20 46 4F 52 20 54 48 45 20 41 4D ARTER FOR THE AM
003FD0: 53 54 52 41 44 20 50 43 57 0D 0A 20 20 20 20 20 STRAD PCW..
003FE0: 20 20 20 20 20 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D =========
003FF0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
004000: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
004010: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 20 ===========....
004020: 20 54 68 65 20 50 43 57 20 38 35 31 32 20 61 6E The PCW 8512 an
004030: 64 20 50 43 57 20 38 32 35 36 20 63 61 6E 20 62 d PCW 8256 can b
004040: 6F 74 68 20 68 61 6E 64 6C 65 20 74 68 65 20 73 oth handle the s
004050: 61 6D 65 20 73 65 6C 66 2D 73 74 61 72 74 69 6E ame self-startin
004060: 67 20 69 6E 73 74 61 6C 6C 61 74 69 6F 6E 0D 0A g installation..
004070: 20 20 6F 66 20 20 64 42 41 53 45 20 49 49 2C 20 of dBASE II,
004080: 20 20 77 68 69 63 68 20 20 72 75 6E 73 20 20 66 which runs f
004090: 72 6F 6D 20 20 74 68 65 20 20 52 41 4D 20 20 44 rom the RAM D
0040A0: 69 73 63 20 20 20 28 44 72 69 76 65 20 4D 3A 29 isc (Drive M:)
0040B0: 20 20 61 6E 64 20 20 70 72 6F 76 69 64 65 73 0D and provides.
0040C0: 0A 20 20 64 61 74 61 20 73 74 6F 72 61 67 65 20 . data storage
0040D0: 73 70 61 63 65 20 6F 6E 20 44 72 69 76 65 73 20 space on Drives
0040E0: 41 3A 20 61 6E 64 20 42 3A 2E 0D 0A 0D 0A 20 20 A: and B:.....
0040F0: 43 6F 70 79 72 69 67 68 74 20 72 65 73 74 72 69 Copyright restri
004100: 20 20 20 20 20 20 20 20 20 20 2A 61 3A 3D 62 3A *a:=b:
004110: 64 62 61 73 65 2E 63 6F 6D 5B 76 5D 0D 0A 20 20 dbase.com[v]..
004120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004130: 20 20 20 20 20 20 20 20 20 2A 61 3A 3D 62 3A 64 *a:=b:d
004140: 62 61 73 65 6F 76 72 2E 63 6F 6D 5B 76 5D 0D 0A baseovr.com[v]..
004150: 0D 0A 20 20 20 20 20 20 20 20 20 61 6E 64 20 61 .. and a
004160: 6C 73 6F 20 74 68 65 20 75 73 65 72 2D 64 65 66 lso the user-def
004170: 69 6E 65 64 20 66 69 6C 65 73 20 74 6F 20 62 65 ined files to be
004180: 20 72 65 61 64 20 62 79 20 74 68 65 20 75 74 69 read by the uti
004190: 6C 69 74 69 65 73 20 3A 0D 0A 0D 0A 20 20 20 20 lities :....
0041A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0041B0: 20 20 20 20 20 20 20 2A 61 3A 3D 62 3A 75 2A 2E *a:=b:u*.
0041C0: 2A 5B 6F 76 5D 0D 0A 0D 0A 20 20 20 20 20 20 20 *[ov]....
0041D0: 20 20 54 68 69 73 20 77 69 6C 6C 20 63 6F 70 79 This will copy
0041E0: 20 74 68 65 20 66 6F 6C 6C 6F 77 69 6E 67 20 66 the following f
0041F0: 69 6C 65 73 20 6F 6E 74 6F 20 74 68 65 20 53 54 iles onto the ST
004200: 41 52 54 45 52 20 64 69 73 6B 20 3A 0D 0A 0D 0A ARTER disk :....
004210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004220: 20 20 20 20 20 20 75 6B 65 79 73 2E 64 62 32 20 ukeys.db2
004230: 20 20 20 20 20 20 20 20 5B 55 73 65 64 20 62 79 [Used by
004240: 20 53 45 54 4B 45 59 53 2E 43 4F 4D 20 5D 0D 0A SETKEYS.COM ]..
004250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004260: 20 20 20 20 20 20 75 62 6F 6C 64 2E 70 74 72 20 ubold.ptr
004270: 20 20 20 20 20 20 20 20 5B 55 73 65 64 20 62 79 [Used by
004280: 20 53 45 54 4C 53 54 2E 43 4F 4D 20 20 5D 0D 0A SETLST.COM ]..
004290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0042A0: 20 20 20 20 20 20 75 64 65 66 61 75 6C 74 2E 63 udefault.c
0042B0: 6D 64 20 20 20 20 20 20 5B 55 73 65 64 20 62 79 md [Used by
0042C0: 20 64 42 41 53 45 20 20 20 20 20 20 20 5D 0D 0A dBASE ]..
0042D0: 0D 0A 20 20 20 20 20 20 20 20 20 41 6E 64 20 61 .. And a
0042E0: 6C 73 6F 20 74 68 65 20 70 72 6F 66 69 6C 65 20 lso the profile
0042F0: 66 6F 72 20 43 50 4D 20 77 68 65 6E 20 62 6F 6F for CPM when boo
004300: 63 74 69 6F 6E 73 20 20 70 72 65 76 65 6E 74 20 ctions prevent
004310: 20 75 73 20 20 66 72 6F 6D 20 20 70 72 6F 76 69 us from provi
004320: 64 69 6E 67 20 20 79 6F 75 20 20 77 69 74 68 20 ding you with
004330: 20 61 20 72 65 61 64 79 2D 6D 61 64 65 0D 0A 20 a ready-made..
004340: 20 53 54 41 52 54 45 52 20 64 69 73 63 20 74 6F STARTER disc to
004350: 20 62 6F 6F 74 20 79 6F 75 20 73 74 72 61 69 67 boot you straig
004360: 68 74 20 69 6E 74 6F 20 64 42 41 53 45 20 62 75 ht into dBASE bu
004370: 74 20 79 6F 75 20 63 61 6E 20 65 61 73 69 6C 79 t you can easily
004380: 20 6D 61 6B 65 20 79 6F 75 72 20 6F 77 6E 0D 0A make your own..
004390: 20 20 69 66 20 79 6F 75 20 66 6F 6C 6C 6F 77 20 if you follow
0043A0: 74 68 65 73 65 20 69 6E 73 74 72 75 63 74 69 6F these instructio
0043B0: 6E 73 20 77 69 74 68 20 63 61 72 65 2E 20 20 54 ns with care. T
0043C0: 68 65 20 74 69 6D 65 20 61 6E 64 20 65 66 66 6F he time and effo
0043D0: 72 74 20 79 6F 75 20 73 70 65 6E 64 20 6F 6E 0D rt you spend on.
0043E0: 0A 20 20 74 68 69 73 20 74 61 73 6B 20 77 69 6C . this task wil
0043F0: 6C 20 62 65 20 77 65 6C 6C 20 72 65 77 61 72 64 l be well reward
004400: 65 64 21 0D 0A 0D 0A 20 20 59 6F 75 20 6D 75 73 ed!.... You mus
004410: 74 20 68 61 76 65 20 61 20 77 6F 72 6B 69 6E 67 t have a working
004420: 20 6B 6E 6F 77 6C 65 64 67 65 20 6F 66 20 74 68 knowledge of th
004430: 65 20 43 50 2F 4D 20 75 74 69 6C 69 74 69 65 73 e CP/M utilities
004440: 20 28 44 49 53 43 4B 49 54 2C 20 50 49 50 29 0D (DISCKIT, PIP).
004450: 0A 0D 0A 20 20 2A 2A 2A 2A 20 20 20 49 46 20 59 ... **** IF Y
004460: 4F 55 20 48 41 56 45 20 41 20 53 49 4E 47 4C 45 OU HAVE A SINGLE
004470: 20 44 52 49 56 45 20 50 43 57 20 38 32 35 36 2C DRIVE PCW 8256,
004480: 20 47 4F 54 4F 20 50 41 52 41 20 33 2C 20 45 4C GOTO PARA 3, EL
004490: 53 45 20 52 45 41 44 20 4F 4E 2E 20 20 20 2A 2A SE READ ON. **
0044A0: 2A 2A 0D 0A 0D 0A 20 20 31 2E 20 20 20 4C 4F 41 **.... 1. LOA
0044B0: 44 49 4E 47 20 49 4E 53 54 52 55 43 54 49 4F 4E DING INSTRUCTION
0044C0: 53 20 46 4F 52 20 54 48 45 20 41 4D 53 54 52 41 S FOR THE AMSTRA
0044D0: 44 20 50 43 57 20 38 35 31 32 0D 0A 0D 0A 20 20 D PCW 8512....
0044E0: 20 20 20 61 2E 20 20 59 6F 75 20 77 69 6C 6C 20 a. You will
0044F0: 72 65 71 75 69 72 65 20 79 6F 75 72 20 43 50 2F require your CP/
004500: 74 69 6E 67 20 74 68 65 20 6D 61 63 68 69 6E 65 ting the machine
004510: 20 3A 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 :....
004520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004530: 20 2A 61 3A 3D 62 3A 70 72 6F 66 69 6C 65 2E 73 *a:=b:profile.s
004540: 75 62 5B 6F 76 5D 0D 0A 0D 0A 20 20 20 20 67 2E ub[ov].... g.
004550: 20 20 4D 6F 76 65 20 20 74 68 65 20 64 42 41 53 Move the dBAS
004560: 45 20 57 4F 52 4B 49 4E 47 20 4D 41 53 54 45 52 E WORKING MASTER
004570: 20 74 6F 20 44 72 69 76 65 20 41 3A 2C 20 73 69 to Drive A:, si
004580: 64 65 20 31 20 20 73 74 69 6C 6C 20 74 6F 20 74 de 1 still to t
004590: 68 65 20 6C 65 66 74 2C 0D 0A 20 20 20 20 20 20 he left,..
0045A0: 20 20 61 6E 64 20 70 6C 61 63 65 20 79 6F 75 72 and place your
0045B0: 20 6E 65 77 20 64 42 41 53 45 20 44 49 53 54 52 new dBASE DISTR
0045C0: 49 42 55 54 49 4F 4E 20 64 69 73 63 20 69 6E 20 IBUTION disc in
0045D0: 44 72 69 76 65 20 42 3A 2E 0D 0A 20 20 20 20 20 Drive B:...
0045E0: 20 20 20 47 6F 20 6F 6E 3A 0D 0A 20 20 20 20 20 Go on:..
0045F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004600: 20 20 20 20 20 20 2A 62 3A 3D 61 3A 64 62 61 73 *b:=a:dbas
004610: 65 6D 73 67 2E 74 78 74 5B 6F 76 5D 0D 0A 20 20 emsg.txt[ov]..
004620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004630: 20 20 20 20 20 20 20 20 20 2A 62 3A 3D 61 3A 7A *b:=a:z
004640: 69 70 2E 63 6F 6D 5B 76 5D 0D 0A 20 20 20 20 20 ip.com[v]..
004650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004660: 20 20 20 20 20 20 2A 62 3A 3D 61 3A 7A 73 63 72 *b:=a:zscr
004670: 6E 2E 6F 76 6C 5B 6F 76 5D 0D 0A 20 20 20 20 20 n.ovl[ov]..
004680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004690: 20 20 20 20 20 20 2A 62 3A 3D 61 3A 64 73 6F 72 *b:=a:dsor
0046A0: 74 2E 63 6F 6D 5B 76 5D 0D 0A 20 20 20 20 20 20 t.com[v]..
0046B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0046C0: 20 20 20 20 20 2A 62 3A 3D 61 3A 64 67 65 6E 2E *b:=a:dgen.
0046D0: 6F 76 6C 5B 6F 76 5D 0D 0A 0D 0A 20 20 20 20 68 ovl[ov].... h
0046E0: 2E 20 20 54 75 72 6E 20 6F 76 65 72 20 74 68 65 . Turn over the
0046F0: 20 64 42 41 53 45 20 57 4F 52 4B 49 4E 47 20 4D dBASE WORKING M
004700: 4D 20 50 6C 75 73 20 53 79 73 74 65 6D 20 44 69 M Plus System Di
004710: 73 63 20 61 6E 64 20 74 68 72 65 65 20 62 6C 61 sc and three bla
004720: 6E 6B 20 64 69 73 63 73 2C 0D 0A 0D 0A 20 20 20 nk discs,....
004730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004740: 6F 6E 65 20 6C 61 62 65 6C 6C 65 64 20 20 27 64 one labelled 'd
004750: 42 41 53 45 20 57 4F 52 4B 49 4E 47 20 4D 41 53 BASE WORKING MAS
004760: 54 45 52 27 20 20 20 69 6E 20 43 46 32 20 20 20 TER' in CF2
004770: 66 6F 72 6D 61 74 2C 0D 0A 20 20 20 20 20 20 20 format,..
004780: 20 20 20 20 20 20 20 20 61 6E 6F 74 68 65 72 20 another
004790: 6C 61 62 65 6C 6C 65 64 20 20 27 64 42 41 53 45 labelled 'dBASE
0047A0: 20 53 54 41 52 54 45 52 27 20 20 20 20 20 61 6C STARTER' al
0047B0: 73 6F 20 69 6E 20 43 46 32 20 20 20 66 6F 72 6D so in CF2 form
0047C0: 61 74 0D 0A 20 20 20 20 20 20 20 20 20 61 6E 64 at.. and
0047D0: 20 74 68 65 20 74 68 69 72 64 20 6C 61 62 65 6C the third label
0047E0: 6C 65 64 20 20 27 64 42 41 53 45 20 44 49 53 54 led 'dBASE DIST
0047F0: 52 49 42 55 54 49 4F 4E 27 20 61 6E 64 20 69 6E RIBUTION' and in
004800: 20 43 46 32 44 44 20 66 6F 72 6D 61 74 2E 0D 0A CF2DD format...
004810: 0D 0A 20 20 20 20 20 62 2E 20 20 4B 65 65 70 20 .. b. Keep
004820: 61 20 66 65 77 20 6D 6F 72 65 20 66 6F 72 6D 61 a few more forma
004830: 74 74 65 64 20 64 69 73 63 73 20 72 65 61 64 79 tted discs ready
004840: 20 74 6F 20 42 41 43 4B 20 55 50 20 79 6F 75 72 to BACK UP your
004850: 20 77 6F 72 6B 2E 0D 0A 0D 0A 20 20 32 2E 20 20 work..... 2.
004860: 20 50 52 45 50 41 52 41 54 49 4F 4E 20 4F 46 20 PREPARATION OF
004870: 44 49 53 43 53 2E 0D 0A 0D 0A 20 20 20 20 20 20 DISCS.....
004880: 20 20 20 4E 6F 77 20 74 61 6B 65 20 74 68 65 20 Now take the
004890: 66 6F 6C 6C 6F 77 69 6E 67 20 61 63 74 69 6F 6E following action
0048A0: 3A 0D 0A 0D 0A 20 20 20 20 20 61 2E 20 20 55 73 :.... a. Us
0048B0: 65 20 44 49 53 43 4B 49 54 20 74 6F 20 66 6F 72 e DISCKIT to for
0048C0: 6D 61 74 20 64 69 73 63 73 20 61 73 20 61 62 6F mat discs as abo
0048D0: 76 65 2E 0D 0A 0D 0A 20 20 20 20 20 62 2E 20 20 ve..... b.
0048E0: 50 72 65 70 61 72 65 20 74 68 65 20 64 42 41 53 Prepare the dBAS
0048F0: 45 20 57 4F 52 4B 49 4E 47 20 4D 41 53 54 45 52 E WORKING MASTER
004900: 41 53 54 45 52 20 61 6E 64 20 63 6F 6E 74 69 6E ASTER and contin
004910: 75 65 20 77 69 74 68 3A 0D 0A 0D 0A 20 20 20 20 ue with:....
004920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004930: 20 20 20 20 20 20 20 2A 62 3A 3D 61 3A 2A 2E 2A *b:=a:*.*
004940: 5B 6F 76 5D 0D 0A 0D 0A 20 20 20 20 69 2E 20 20 [ov].... i.
004950: 49 6E 73 65 72 74 20 74 68 65 20 45 58 41 4D 50 Insert the EXAMP
004960: 4C 45 53 20 44 69 73 63 20 74 6F 20 44 72 69 76 LES Disc to Driv
004970: 65 20 41 3A 2E 20 20 48 6F 6C 64 20 64 6F 77 6E e A:. Hold down
004980: 20 5B 41 4C 54 5D 20 26 20 70 72 65 73 73 20 5B [ALT] & press [
004990: 57 5D 2E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 W]...
0049A0: 20 20 20 50 72 65 73 73 20 5B 52 45 54 55 52 4E Press [RETURN
0049B0: 5D 2E 0D 0A 0D 0A 20 20 20 20 6A 2E 20 20 57 68 ]..... j. Wh
0049C0: 65 6E 20 61 20 20 2A 20 70 72 6F 6D 70 74 20 61 en a * prompt a
0049D0: 70 70 65 61 72 73 20 61 66 74 65 72 20 63 6F 70 ppears after cop
0049E0: 79 69 6E 67 20 74 68 65 20 66 69 6E 61 6C 20 66 ying the final f
0049F0: 69 6C 65 2C 20 70 72 65 73 73 20 20 5B 52 45 54 ile, press [RET
004A00: 55 52 4E 5D 0D 0A 20 20 20 20 20 20 20 20 74 6F URN].. to
004A10: 20 66 69 6E 69 73 68 20 77 69 74 68 20 50 49 50 finish with PIP
004A20: 2E 0D 0A 0D 0A 20 20 20 20 6B 2E 20 20 2A 2A 2A ..... k. ***
004A30: 2A 20 47 4F 54 4F 20 50 41 52 41 20 35 2E 20 2A * GOTO PARA 5. *
004A40: 2A 2A 2A 0D 0A 0D 0A 0D 0A 20 20 33 2E 20 20 20 ***...... 3.
004A50: 4C 4F 41 44 49 4E 47 20 49 4E 53 54 52 55 43 54 LOADING INSTRUCT
004A60: 49 4F 4E 53 20 46 4F 52 20 54 48 45 20 41 4D 53 IONS FOR THE AMS
004A70: 54 52 41 44 20 50 43 57 20 38 32 35 36 2E 0D 0A TRAD PCW 8256...
004A80: 0D 0A 20 20 20 20 61 2E 20 20 59 6F 75 20 77 69 .. a. You wi
004A90: 6C 6C 20 72 65 71 75 69 72 65 20 79 6F 75 72 20 ll require your
004AA0: 43 50 2F 4D 20 50 6C 75 73 20 53 79 73 74 65 6D CP/M Plus System
004AB0: 20 44 69 73 63 20 61 6E 64 20 74 68 72 65 65 20 Disc and three
004AC0: 62 6C 61 6E 6B 20 64 69 73 63 73 2C 20 61 6C 6C blank discs, all
004AD0: 0D 0A 20 20 20 20 20 20 20 20 69 6E 20 43 46 32 .. in CF2
004AE0: 20 66 6F 72 6D 61 74 20 61 6E 64 20 6C 61 62 65 format and labe
004AF0: 6C 6C 65 64 3A 0D 0A 0D 0A 20 20 20 20 20 20 20 lled:....
004B00: 20 20 62 79 20 75 73 69 6E 67 20 44 49 53 43 4B by using DISCK
004B10: 49 54 20 74 6F 20 63 6F 70 79 20 20 62 6F 74 68 IT to copy both
004B20: 20 73 69 64 65 73 0D 0A 20 20 20 20 20 20 20 20 sides..
004B30: 20 6F 66 20 79 6F 75 72 20 77 72 69 74 65 2D 70 of your write-p
004B40: 72 6F 74 65 63 74 65 64 20 6F 72 69 67 69 6E 61 rotected origina
004B50: 6C 20 64 42 41 53 45 20 4D 41 53 54 45 52 20 74 l dBASE MASTER t
004B60: 6F 20 61 20 66 72 65 73 68 20 64 69 73 63 2E 0D o a fresh disc..
004B70: 0A 0D 0A 20 20 20 20 20 63 2E 20 20 45 78 69 74 ... c. Exit
004B80: 20 44 49 53 43 4B 49 54 20 61 6E 64 20 70 6C 61 DISCKIT and pla
004B90: 63 65 20 79 6F 75 72 20 43 50 2F 4D 20 64 69 73 ce your CP/M dis
004BA0: 63 20 69 6E 20 44 72 69 76 65 20 41 3A 2E 20 20 c in Drive A:.
004BB0: 54 79 70 65 20 50 49 50 20 61 6E 64 20 70 72 65 Type PIP and pre
004BC0: 73 73 0D 0A 20 20 20 20 20 20 20 20 20 5B 52 45 ss.. [RE
004BD0: 54 55 52 4E 5D 2E 0D 0A 0D 0A 20 20 20 20 20 64 TURN]..... d
004BE0: 2E 20 20 57 68 65 6E 20 74 68 65 20 2A 20 70 72 . When the * pr
004BF0: 6F 6D 70 74 20 61 70 70 65 61 72 73 2C 20 20 77 ompt appears, w
004C00: 72 69 74 65 2D 70 72 6F 74 65 63 74 20 74 68 65 rite-protect the
004C10: 20 43 50 2F 4D 20 64 69 73 63 20 61 6E 64 20 6D CP/M disc and m
004C20: 6F 76 65 20 69 74 20 74 6F 0D 0A 20 20 20 20 20 ove it to..
004C30: 20 20 20 20 44 72 69 76 65 20 42 3A 20 20 61 6E Drive B: an
004C40: 64 20 70 75 74 20 74 68 65 20 62 6C 61 6E 6B 20 d put the blank
004C50: 66 6F 72 6D 61 74 74 65 64 20 64 42 41 53 45 20 formatted dBASE
004C60: 53 54 41 52 54 45 52 20 69 6E 20 44 72 69 76 65 STARTER in Drive
004C70: 20 41 3A 2E 0D 0A 0D 0A 20 20 20 20 20 65 2E 20 A:..... e.
004C80: 20 46 6F 6C 6C 6F 77 20 2A 20 70 72 6F 6D 70 74 Follow * prompt
004C90: 73 20 62 79 20 74 79 70 69 6E 67 20 61 73 20 62 s by typing as b
004CA0: 65 6C 6F 77 2E 20 20 50 72 65 73 73 20 5B 52 45 elow. Press [RE
004CB0: 54 55 52 4E 5D 20 20 61 66 74 65 72 20 65 61 63 TURN] after eac
004CC0: 68 20 6C 69 6E 65 3A 0D 0A 0D 0A 20 20 20 20 20 h line:....
004CD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004CE0: 20 20 20 20 20 20 2A 61 3A 3D 62 3A 6A 31 34 63 *a:=b:j14c
004CF0: 70 6D 33 2E 65 6D 73 5B 6F 76 5D 0D 0A 20 20 20 pm3.ems[ov]..
004D00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
004D10: 04 00 01 00 02 09 52 E5 04 00 41 02 00 00 00 02 ......R...A.....
004D20: 04 00 46 02 00 00 00 02 04 00 42 02 00 00 00 02 ..F.......B.....
004D30: 04 00 47 02 00 00 00 02 04 00 43 02 00 00 00 02 ..G.......C.....
004D40: 04 00 48 02 00 00 00 02 04 00 44 02 00 00 00 02 ..H.......D.....
004D50: 04 00 49 02 00 00 00 02 04 00 45 02 00 00 00 02 ..I.......E.....
004D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004E00: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 31 29 (1)
004E10: 20 20 53 69 64 65 20 31 2E 20 20 27 64 42 41 53 Side 1. 'dBAS
004E20: 45 20 57 4F 52 4B 49 4E 47 20 4D 41 53 54 45 52 E WORKING MASTER
004E30: 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 '..
004E40: 20 20 20 20 20 20 20 20 20 20 20 20 53 69 64 65 Side
004E50: 20 32 2E 20 20 27 64 42 41 53 45 20 4D 45 4E 55 2. 'dBASE MENU
004E60: 27 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 '....
004E70: 20 20 20 20 20 20 20 20 20 28 32 29 20 20 53 69 (2) Si
004E80: 64 65 20 31 2E 20 20 27 64 42 41 53 45 20 53 54 de 1. 'dBASE ST
004E90: 41 52 54 45 52 27 0D 0A 20 20 20 20 20 20 20 20 ARTER'..
004EA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004EB0: 20 53 69 64 65 20 32 2E 20 20 27 64 42 41 53 45 Side 2. 'dBASE
004EC0: 20 44 49 53 54 52 49 42 55 54 49 4F 4E 27 0D 0A DISTRIBUTION'..
004ED0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
004EE0: 20 20 20 20 20 20 28 33 29 20 20 53 69 64 65 20 (3) Side
004EF0: 31 2E 20 20 27 64 42 41 53 45 20 57 45 4C 43 4F 1. 'dBASE WELCO
004F00: 4D 45 20 61 6E 64 20 42 4F 4F 4B 53 27 2E 0D 0A ME and BOOKS'...
004F10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004F20: 20 20 20 20 20 20 20 20 20 53 69 64 65 20 32 2E Side 2.
004F30: 20 20 27 64 42 41 53 45 20 28 6F 74 68 65 72 20 'dBASE (other
004F40: 64 61 74 61 29 27 0D 0A 0D 0A 20 20 20 20 62 2E data)'.... b.
004F50: 20 20 59 6F 75 20 77 6F 75 6C 64 20 61 6C 73 6F You would also
004F60: 20 62 65 20 76 65 72 79 20 77 65 6C 6C 20 61 64 be very well ad
004F70: 76 69 73 65 64 20 74 6F 20 6B 65 65 70 20 61 20 vised to keep a
004F80: 66 65 77 20 6D 6F 72 65 20 20 66 6F 72 6D 61 74 few more format
004F90: 74 65 64 20 64 69 73 63 73 0D 0A 20 20 20 20 20 ted discs..
004FA0: 20 20 20 72 65 61 64 79 20 74 6F 20 42 41 43 4B ready to BACK
004FB0: 20 55 50 20 79 6F 75 72 20 76 61 6C 75 61 62 6C UP your valuabl
004FC0: 65 20 77 6F 72 6B 2E 0D 0A 0D 0A 20 20 34 2E 20 e work..... 4.
004FD0: 20 20 50 52 45 50 41 52 41 54 49 4F 4E 20 4F 46 PREPARATION OF
004FE0: 20 44 49 53 43 53 2E 0D 0A 0D 0A 20 20 20 20 20 DISCS.....
004FF0: 20 20 20 4E 6F 77 20 74 61 6B 65 20 74 68 65 20 Now take the
005000: 74 68 20 66 69 74 20 6F 6E 74 6F 20 74 68 65 20 th fit onto the
005010: 4D 45 4E 55 20 44 69 73 63 20 20 62 75 74 20 79 MENU Disc but y
005020: 6F 75 20 77 6F 75 6C 64 20 62 65 20 20 61 73 20 ou would be as
005030: 77 65 6C 6C 20 74 6F 0D 0A 20 20 20 20 20 20 20 well to..
005040: 20 63 6F 70 79 20 20 74 68 65 6D 20 20 66 72 6F copy them fro
005050: 6D 20 20 45 58 41 4D 50 4C 45 53 20 20 74 6F 20 m EXAMPLES to
005060: 64 42 41 53 45 20 44 49 53 54 52 49 42 55 54 49 dBASE DISTRIBUTI
005070: 4F 4E 20 20 61 6E 64 20 65 76 65 72 79 20 44 41 ON and every DA
005080: 54 41 20 44 69 73 63 2E 0D 0A 0D 0A 20 20 35 2E TA Disc..... 5.
005090: 20 20 20 54 45 53 54 20 54 48 45 20 53 59 53 54 TEST THE SYST
0050A0: 45 4D 2E 0D 0A 0D 0A 20 20 20 28 31 29 20 20 41 EM..... (1) A
0050B0: 6C 6C 20 66 69 6C 65 73 20 77 68 69 63 68 20 79 ll files which y
0050C0: 6F 75 20 6E 65 65 64 20 74 6F 20 73 74 61 72 74 ou need to start
0050D0: 20 77 69 74 68 20 73 68 6F 75 6C 64 20 6E 6F 77 with should now
0050E0: 20 62 65 20 6F 6E 20 77 6F 72 6B 69 6E 67 20 64 be on working d
0050F0: 69 73 63 73 2E 0D 0A 0D 0A 20 20 20 28 32 29 20 iscs..... (2)
005100: 20 57 68 65 6E 20 79 6F 75 20 61 72 65 20 63 6F When you are co
005110: 6E 66 69 64 65 6E 74 20 74 68 61 74 20 79 6F 75 nfident that you
005120: 20 6B 6E 6F 77 20 68 6F 77 20 74 6F 20 27 51 55 know how to 'QU
005130: 49 54 27 20 64 42 41 53 45 20 70 72 6F 70 65 72 IT' dBASE proper
005140: 6C 79 2C 0D 0A 20 20 20 20 20 20 20 20 70 6C 61 ly,.. pla
005150: 63 65 20 44 42 41 53 45 20 53 54 41 52 54 45 52 ce DBASE STARTER
005160: 20 69 6E 20 44 72 69 76 65 20 41 3A 20 61 6E 64 in Drive A: and
005170: 20 44 42 41 53 45 20 44 49 53 54 52 49 42 55 54 DBASE DISTRIBUT
005180: 49 4F 4E 20 69 6E 20 44 72 69 76 65 20 42 3A 0D ION in Drive B:.
005190: 0A 20 20 20 20 20 20 20 20 2D 20 69 66 20 79 6F . - if yo
0051A0: 75 20 68 61 76 65 20 6F 6E 65 20 2D 20 74 68 65 u have one - the
0051B0: 6E 20 72 65 73 65 74 20 74 68 65 20 50 43 57 20 n reset the PCW
0051C0: 74 6F 20 72 75 6E 20 64 42 41 53 45 20 49 49 20 to run dBASE II
0051D0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 0D 0A 0D 0A 0D ................
0051E0: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 20 20 20 20 49 ........... I
0051F0: 66 20 79 6F 75 20 77 61 6E 74 20 74 6F 20 6B 6E f you want to kn
005200: 66 6F 6C 6C 6F 77 69 6E 67 20 61 63 74 69 6F 6E following action
005210: 3A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D :...............
005220: 0A 20 20 20 20 61 2E 20 20 55 73 65 20 44 49 53 . a. Use DIS
005230: 43 4B 49 54 20 74 6F 20 66 6F 72 6D 61 74 20 74 CKIT to format t
005240: 68 72 65 65 20 64 69 73 63 73 20 61 73 20 61 62 hree discs as ab
005250: 6F 76 65 2E 0D 0A 0D 0A 20 20 20 20 62 2E 20 20 ove..... b.
005260: 43 68 65 63 6B 20 20 74 68 61 74 20 20 79 6F 75 Check that you
005270: 72 20 6F 72 69 67 69 6E 61 6C 20 6D 61 73 74 65 r original maste
005280: 72 20 64 69 73 63 73 20 20 61 72 65 20 77 72 69 r discs are wri
005290: 74 65 2D 70 72 6F 74 65 63 74 65 64 0D 0A 20 20 te-protected..
0052A0: 20 20 20 20 20 20 61 6E 64 20 63 6F 6E 74 69 6E and contin
0052B0: 75 65 20 77 69 74 68 20 44 49 53 43 4B 49 54 20 ue with DISCKIT
0052C0: 74 6F 20 63 6F 70 79 20 74 68 65 6D 2C 20 61 73 to copy them, as
0052D0: 20 61 70 70 72 6F 70 72 69 61 74 65 20 2C 0D 0A appropriate ,..
0052E0: 20 20 20 20 20 20 20 20 74 6F 20 74 68 65 20 64 to the d
0052F0: 69 73 63 73 20 6D 65 6E 74 69 6F 6E 65 64 20 69 iscs mentioned i
005300: 6E 20 70 61 72 61 20 33 2E 20 61 2E 20 28 31 29 n para 3. a. (1)
005310: 20 26 20 28 33 29 20 61 62 6F 76 65 2E 0D 0A 0D & (3) above....
005320: 0A 20 20 20 20 63 2E 20 20 45 78 69 74 20 44 49 . c. Exit DI
005330: 53 43 4B 49 54 20 61 6E 64 20 70 6C 61 63 65 20 SCKIT and place
005340: 79 6F 75 72 20 43 50 2F 4D 20 64 69 73 63 20 69 your CP/M disc i
005350: 6E 20 44 72 69 76 65 20 41 3A 2E 20 20 54 79 70 n Drive A:. Typ
005360: 65 20 50 49 50 20 61 6E 64 20 70 72 65 73 73 0D e PIP and press.
005370: 0A 20 20 20 20 20 20 20 20 5B 52 45 54 55 52 4E . [RETURN
005380: 5D 2E 0D 0A 0D 0A 20 20 20 20 64 2E 20 20 57 72 ]..... d. Wr
005390: 69 74 65 2D 70 72 6F 74 65 63 74 20 79 6F 75 72 ite-protect your
0053A0: 20 43 50 2F 4D 20 64 69 73 63 20 61 6E 64 20 70 CP/M disc and p
0053B0: 75 74 20 69 74 20 62 61 63 6B 20 69 6E 74 6F 20 ut it back into
0053C0: 44 72 69 76 65 20 41 3A 20 74 68 65 6E 20 66 6F Drive A: then fo
0053D0: 6C 6C 6F 77 0D 0A 20 20 20 20 20 20 20 20 2A 20 llow.. *
0053E0: 70 72 6F 6D 70 74 73 20 62 79 20 74 79 70 69 6E prompts by typin
0053F0: 67 20 61 73 20 62 65 6C 6F 77 2C 20 75 73 69 6E g as below, usin
005400: 6F 77 20 6D 6F 72 65 20 61 62 6F 75 74 20 74 68 ow more about th
005410: 65 20 75 73 65 72 2D 64 65 66 69 6E 65 64 20 75 e user-defined u
005420: 74 69 6C 69 74 69 65 73 20 75 73 65 64 2C 0D 0A tilities used,..
005430: 20 20 20 20 6A 75 73 74 20 74 79 70 65 20 74 68 just type th
005440: 65 20 55 54 49 4C 53 2E 54 58 54 20 66 69 6C 65 e UTILS.TXT file
005450: 20 6F 6E 20 74 68 69 73 20 64 69 73 6B 2E 0D 0A on this disk...
005460: 0D 0A 20 20 20 20 49 66 20 79 6F 75 20 77 69 73 .. If you wis
005470: 68 20 74 6F 20 63 68 65 63 6B 20 6F 6E 20 74 68 h to check on th
005480: 65 20 63 6F 6E 74 65 6E 74 73 20 6F 66 20 79 6F e contents of yo
005490: 75 72 20 6F 72 69 67 69 6E 61 6C 20 64 69 73 63 ur original disc
0054A0: 73 20 61 6E 64 20 73 75 67 67 65 73 74 65 64 0D s and suggested.
0054B0: 0A 20 20 20 20 6D 61 6B 65 75 70 20 6F 66 20 74 . makeup of t
0054C0: 68 65 20 64 42 41 53 45 20 44 49 53 54 52 49 42 he dBASE DISTRIB
0054D0: 55 54 49 4F 4E 20 44 69 73 63 2C 20 74 79 70 65 UTION Disc, type
0054E0: 20 74 68 65 20 44 49 53 43 44 49 52 2E 54 58 54 the DISCDIR.TXT
0054F0: 20 66 69 6C 65 2E 0D 0A 0D 0A 20 20 20 20 47 6F file..... Go
005500: 6F 64 20 4C 75 63 6B 21 0D 0A 1A 6F 66 20 79 6F od Luck!...of yo
005510: 75 72 20 6F 72 69 67 69 6E 61 6C 20 64 69 73 63 ur original disc
005520: 73 20 61 6E 64 20 73 75 67 67 65 73 74 65 64 0D s and suggested.
005530: 0A 20 20 20 20 6D 61 6B 65 75 70 20 6F 66 20 74 . makeup of t
005540: 68 65 20 64 42 41 53 45 20 44 49 53 54 52 49 42 he dBASE DISTRIB
005550: 55 54 49 4F 4E 20 44 69 73 63 2C 20 74 79 70 65 UTION Disc, type
005560: 20 74 68 65 20 44 49 53 43 44 49 52 2E 54 58 54 the DISCDIR.TXT
005570: 20 66 69 6C 65 2E 0D 0A 0D 0A 20 20 20 20 47 6F file..... Go
005580: 2A FB B4 CD 7F 9D E1 D2 3C B5 EB 22 FB B4 EB 22 *.......<.."..."
005590: FD B4 CD 78 B7 C2 11 B5 21 FB B4 CD FB 9E C8 2A ...x....!......*
0055A0: FD B4 AF 3E 04 CD 58 B5 2A 7B B4 C3 07 B5 F5 CD ...>..X.*{......
0055B0: 51 B6 3A AB B4 5F A0 32 EF B4 7B A1 32 AB B4 F1 Q.:.._.2..{.2...
0055C0: F5 C4 92 B6 22 F0 B4 CD 82 9E 22 1B F6 CD 58 B6 ...."....."...X.
0055D0: 7E 3C CA C2 B5 F1 00 00 00 00 00 00 00 00 00 00 ~<..............
0055E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0055F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 FF ................
005600: 67 20 74 68 65 20 64 42 41 53 45 20 53 54 41 52 g the dBASE STAR
005610: 54 45 52 20 64 69 73 6B 20 66 6F 72 20 44 72 69 TER disk for Dri
005620: 76 65 20 42 2E 0D 0A 20 20 20 20 20 20 20 20 50 ve B... P
005630: 72 65 73 73 20 5B 52 45 54 55 52 4E 5D 20 61 66 ress [RETURN] af
005640: 74 65 72 20 65 61 63 68 20 6C 69 6E 65 20 61 6E ter each line an
005650: 64 20 6F 62 65 79 20 74 68 65 20 20 70 72 6F 6D d obey the prom
005660: 70 74 73 20 20 74 6F 20 20 73 77 61 70 20 20 64 pts to swap d
005670: 69 73 63 73 0D 0A 20 20 20 20 20 20 20 20 28 20 iscs.. (
005680: 20 61 6E 20 20 75 6E 61 76 6F 69 64 61 62 6C 65 an unavoidable
005690: 20 63 68 6F 72 65 20 20 77 69 74 68 20 61 20 73 chore with a s
0056A0: 69 6E 67 6C 65 20 64 72 69 76 65 29 3A 0D 0A 0D ingle drive):...
0056B0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0056C0: 20 20 20 20 20 20 20 20 20 20 20 2A 62 3A 3D 6A *b:=j
0056D0: 31 34 63 70 6D 33 2E 65 6D 73 5B 6F 76 5D 0D 0A 14cpm3.ems[ov]..
0056E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0056F0: 20 20 20 20 20 20 20 20 20 20 2A 62 3A 3D 73 75 *b:=su
005700: 62 6D 69 74 2E 63 6F 6D 5B 76 5D 0D 0A 20 20 20 bmit.com[v]..
005710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005720: 20 20 20 20 20 20 20 2A 62 3A 3D 70 69 70 2E 63 *b:=pip.c
005730: 6F 6D 5B 76 5D 0D 0A 20 20 20 20 20 20 20 20 20 om[v]..
005740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005750: 20 2A 62 3A 3D 70 61 70 65 72 2E 63 6F 6D 5B 76 *b:=paper.com[v
005760: 5D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ]..
005770: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 62 3A *b:
005780: 3D 73 65 74 6B 65 79 73 2E 63 6F 6D 5B 76 5D 0D =setkeys.com[v].
005790: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0057A0: 20 20 20 20 20 20 20 20 20 20 20 2A 62 3A 3D 73 *b:=s
0057B0: 65 74 6C 73 74 2E 63 6F 6D 5B 76 5D 0D 0A 20 20 etlst.com[v]..
0057C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0057D0: 20 20 20 20 20 20 20 20 2A 62 3A 3D 64 69 72 2E *b:=dir.
0057E0: 63 6F 6D 5B 76 5D 0D 0A 20 20 20 20 20 20 20 20 com[v]..
0057F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0058A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0058B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0058C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0058D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0058E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0058F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0059A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0059B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0059C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0059D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0059E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0059F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005A00: 20 20 2A 62 3A 3D 74 79 70 65 2E 63 6F 6D 5B 76 *b:=type.com[v
005A10: 5D 0D 0A 0D 0A 20 20 20 20 65 2E 20 20 4F 6E 20 ].... e. On
005A20: 66 75 74 75 72 65 20 70 72 6F 6D 70 74 73 20 66 future prompts f
005A30: 6F 72 20 61 20 22 64 69 73 63 20 66 6F 72 20 41 or a "disc for A
005A40: 3A 22 20 69 6E 73 65 72 74 20 79 6F 75 72 20 64 :" insert your d
005A50: 42 41 53 45 20 57 4F 52 4B 49 4E 47 20 4D 41 53 BASE WORKING MAS
005A60: 54 45 52 0D 0A 20 20 20 20 20 20 20 20 77 69 74 TER.. wit
005A70: 68 20 73 69 64 65 20 31 20 66 61 63 69 6E 67 20 h side 1 facing
005A80: 6C 65 66 74 20 74 6F 20 63 6F 70 79 20 74 68 65 left to copy the
005A90: 20 64 42 41 53 45 20 66 69 6C 65 73 20 77 68 69 dBASE files whi
005AA0: 63 68 20 61 72 65 3A 0D 0A 0D 0A 20 20 20 20 20 ch are:....
005AB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005AC0: 20 20 20 20 20 2A 62 3A 3D 64 62 61 73 65 2E 63 *b:=dbase.c
005AD0: 6F 6D 5B 76 5D 0D 0A 20 20 20 20 20 20 20 20 20 om[v]..
005AE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005AF0: 20 2A 62 3A 3D 64 62 61 73 65 6F 76 72 2E 63 6F *b:=dbaseovr.co
005B00: 6D 5B 76 5D 0D 0A 0D 0A 20 20 20 20 20 20 20 20 m[v]....
005B10: 41 6E 64 20 74 68 65 20 75 73 65 72 2D 64 65 66 And the user-def
005B20: 69 6E 65 64 20 66 69 6C 65 73 20 74 6F 20 62 65 ined files to be
005B30: 20 75 73 65 64 20 62 79 20 74 68 65 20 75 74 69 used by the uti
005B40: 6C 69 74 69 65 73 20 3A 0D 0A 0D 0A 20 20 20 20 lities :....
005B50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005B60: 20 20 20 20 20 20 2A 62 3A 3D 61 3A 75 2A 2E 2A *b:=a:u*.*
005B70: 5B 76 5D 0D 0A 0D 0A 20 20 20 20 20 20 20 20 41 [v].... A
005B80: 6E 64 20 74 68 65 20 70 72 6F 66 69 6C 65 20 66 nd the profile f
005B90: 6F 72 20 43 50 4D 20 77 68 65 6E 20 62 6F 6F 74 or CPM when boot
005BA0: 69 6E 67 20 74 68 65 20 6D 61 63 68 69 6E 65 20 ing the machine
005BB0: 3A 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 :....
005BC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A *
005BD0: 62 3A 3D 61 3A 70 72 6F 66 69 6C 65 2E 73 75 62 b:=a:profile.sub
005BE0: 0D 0A 0D 0A 20 20 20 20 66 2E 20 20 46 72 6F 6D .... f. From
005BF0: 20 6E 6F 77 20 6F 6E 2C 20 79 6F 75 72 20 44 42 now on, your DB
005C00: 02 1B 00 00 00 00 95 00 54 49 54 4C 45 00 00 00 ........TITLE...
005C10: 00 00 00 43 50 D9 73 00 41 55 54 48 4F 52 00 00 ...CP.s.AUTHOR..
005C20: 00 00 00 43 1E 29 74 00 53 55 42 4A 45 43 54 00 ...C.)t.SUBJECT.
005C30: 00 00 00 43 14 47 74 00 52 4F 4F 4D 00 00 00 00 ...C.Gt.ROOM....
005C40: 00 00 00 43 0F 5B 74 00 53 48 45 4C 46 00 00 00 ...C.[t.SHELF...
005C50: 00 00 00 43 03 6A 74 00 0D 00 00 00 00 00 00 00 ...C.jt.........
005C60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005C70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005C80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005C90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005CA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005CB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005CC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005CD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005CE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005CF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005D00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005D10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005D20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005D30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005D40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005D50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005DF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005E00: 41 53 45 20 44 49 53 54 52 49 42 55 54 49 4F 4E ASE DISTRIBUTION
005E10: 20 64 69 73 63 20 69 73 20 74 68 65 20 6F 6E 65 disc is the one
005E20: 20 66 6F 72 20 44 72 69 76 65 20 42 3A 0D 0A 20 for Drive B:..
005E30: 20 20 20 20 20 20 20 47 6F 20 6F 6E 3A 0D 0A 20 Go on:..
005E40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005E50: 20 20 20 20 20 20 20 20 20 2A 62 3A 3D 64 62 61 *b:=dba
005E60: 73 65 6D 73 67 2E 74 78 74 5B 6F 76 5D 0D 0A 20 semsg.txt[ov]..
005E70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005E80: 20 20 20 20 20 20 20 20 20 2A 62 3A 3D 61 3A 7A *b:=a:z
005E90: 69 70 2E 63 6F 6D 5B 76 5D 0D 0A 20 20 20 20 20 ip.com[v]..
005EA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005EB0: 20 20 20 20 20 2A 62 3A 3D 61 3A 7A 73 63 72 6E *b:=a:zscrn
005EC0: 2E 6F 76 6C 5B 6F 76 5D 0D 0A 20 20 20 20 20 20 .ovl[ov]..
005ED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005EE0: 20 20 20 20 2A 62 3A 3D 61 3A 64 73 6F 72 74 2E *b:=a:dsort.
005EF0: 63 6F 6D 5B 76 5D 0D 0A 20 20 20 20 20 20 20 20 com[v]..
005F00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005F10: 20 20 2A 62 3A 3D 61 3A 64 67 65 6E 2E 6F 76 6C *b:=a:dgen.ovl
005F20: 5B 6F 76 5D 0D 0A 0D 0A 20 20 20 20 67 2E 20 20 [ov].... g.
005F30: 57 68 65 6E 20 61 20 20 2A 20 70 72 6F 6D 70 74 When a * prompt
005F40: 20 61 70 70 65 61 72 73 20 61 66 74 65 72 20 63 appears after c
005F50: 6F 70 79 69 6E 67 20 74 68 65 20 66 69 6E 61 6C opying the final
005F60: 20 66 69 6C 65 2C 20 70 72 65 73 73 20 20 5B 52 file, press [R
005F70: 45 54 55 52 4E 5D 0D 0A 20 20 20 20 20 20 20 20 ETURN]..
005F80: 74 6F 20 66 69 6E 69 73 68 20 77 69 74 68 20 50 to finish with P
005F90: 49 50 2E 0D 0A 0D 0A 20 20 20 20 68 2E 20 20 4E IP..... h. N
005FA0: 6F 74 65 20 20 74 68 61 74 2C 20 20 69 66 20 20 ote that, if
005FB0: 79 6F 75 20 20 77 69 73 68 20 74 6F 20 20 75 73 you wish to us
005FC0: 65 20 66 69 6C 65 73 20 6C 69 6B 65 20 20 49 4E e files like IN
005FD0: 54 52 4F 2E 43 4D 44 20 61 6E 64 20 49 4E 54 52 TRO.CMD and INTR
005FE0: 31 2E 43 4D 44 2C 0D 0A 20 20 20 20 20 20 20 20 1.CMD,..
005FF0: 74 68 65 79 20 77 69 6C 6C 20 6E 6F 74 20 62 6F they will not bo
006000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
006010: 05 00 01 00 02 09 52 E5 05 00 41 02 00 00 00 02 ......R...A.....
006020: 05 00 46 02 00 00 00 02 05 00 42 02 00 00 00 02 ..F.......B.....
006030: 05 00 47 02 00 00 00 02 05 00 43 02 00 00 00 02 ..G.......C.....
006040: 05 00 48 02 00 00 00 02 05 00 44 02 00 00 00 02 ..H.......D.....
006050: 05 00 49 02 00 00 00 02 05 00 45 02 00 00 00 02 ..I.......E.....
006060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006100: 00 00 00 00 00 00 00 00 00 20 41 73 20 59 6F 75 ......... As You
006110: 20 4C 69 6B 65 20 49 74 20 20 20 20 20 20 20 20 Like It
006120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006150: 20 20 20 20 20 20 20 20 20 20 53 68 61 6B 65 73 Shakes
006160: 70 65 61 72 65 20 20 20 20 20 20 20 20 20 20 20 peare
006170: 20 20 20 20 20 20 20 20 44 72 61 6D 61 20 20 20 Drama
006180: 20 20 20 20 20 20 20 20 20 20 20 20 53 74 75 64 Stud
006190: 79 20 20 20 20 20 20 20 20 20 20 43 32 32 20 44 y C22 D
0061A0: 6F 6D 62 65 79 20 61 6E 64 20 53 6F 6E 20 20 20 ombey and Son
0061B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0061C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0061D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0061E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 D
0061F0: 69 63 6B 65 6E 73 20 20 20 20 20 20 20 20 20 20 ickens
006200: 20 20 20 20 20 20 20 20 20 20 20 20 20 4E 6F 76 Nov
006210: 65 6C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 el
006220: 20 53 74 75 64 79 20 20 20 20 20 20 20 20 20 20 Study
006230: 41 32 33 20 42 6C 65 61 6B 20 48 6F 75 73 65 20 A23 Bleak House
006240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006280: 20 20 20 20 44 69 63 6B 65 6E 73 20 20 20 20 20 Dickens
006290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0062A0: 20 20 4E 6F 76 65 6C 20 20 20 20 20 20 20 20 20 Novel
0062B0: 20 20 20 20 20 20 53 74 75 64 79 20 20 20 20 20 Study
0062C0: 20 20 20 20 20 41 32 33 20 52 69 76 61 6C 20 50 A23 Rival P
0062D0: 72 69 6E 63 65 73 2C 54 68 65 20 20 20 20 20 20 rinces,The
0062E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0062F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 S
006340: 68 61 6B 65 73 70 65 61 72 65 20 20 20 20 20 20 hakespeare
006350: 20 20 20 20 20 20 20 20 20 20 20 20 20 44 72 61 Dra
006360: 6D 61 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ma
006370: 20 4C 69 62 72 61 72 79 20 20 20 20 20 20 20 20 Library
006380: 41 30 32 20 54 65 6D 70 65 73 74 20 20 20 20 20 A02 Tempest
006390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0063A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0063B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0063C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0063D0: 20 20 20 20 53 68 61 6B 65 73 70 65 61 72 65 20 Shakespeare
0063E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0063F0: 20 20 44 72 61 6D 61 20 20 20 20 20 20 20 20 20 Drama
006400: 20 20 20 20 20 20 4C 69 62 72 61 72 79 20 20 20 Library
006410: 20 20 20 20 20 41 30 32 20 46 69 6E 6E 69 67 61 A02 Finniga
006420: 6E 27 73 20 57 61 6B 65 20 20 20 20 20 20 20 20 n's Wake
006430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006460: 20 20 20 20 20 20 20 20 20 4A 6F 79 63 65 20 20 Joyce
006470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006480: 20 20 20 20 20 20 20 4E 6F 76 65 6C 20 20 20 20 Novel
006490: 20 20 20 20 20 20 20 20 20 20 20 4C 69 62 72 61 Libra
0064A0: 72 79 20 20 20 20 20 20 20 20 41 30 32 20 50 6F ry A02 Po
0064B0: 72 74 72 61 69 74 20 6F 66 20 74 68 65 20 59 6F rtrait of the Yo
0064C0: 75 6E 67 20 4D 61 6E 20 61 73 20 61 6E 20 41 72 ung Man as an Ar
0064D0: 74 69 73 74 20 20 20 20 20 20 20 20 20 20 20 20 tist
0064E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0064F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4A 6F Jo
006500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006510: 20 20 20 20 20 20 20 20 20 43 6C 61 72 6B 65 2C Clarke,
006520: 4D 72 73 20 4D 20 41 20 20 20 20 20 20 20 20 20 Mrs M A
006530: 20 20 20 20 20 20 20 53 6F 63 69 61 6C 20 48 69 Social Hi
006540: 73 74 6F 72 79 20 20 20 20 20 20 4C 69 62 72 61 story Libra
006550: 72 79 20 20 20 20 20 20 20 20 43 30 33 20 43 6F ry C03 Co
006560: 6C 6C 65 63 74 65 64 20 50 6F 65 6D 73 20 20 20 llected Poems
006570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0065A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4B 65 Ke
0065B0: 61 74 73 20 20 20 20 20 20 20 20 20 20 20 20 20 ats
0065C0: 20 20 20 20 20 20 20 20 20 20 20 20 50 6F 65 74 Poet
0065D0: 72 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ry
0065E0: 53 74 75 64 79 20 20 20 20 20 20 20 20 20 20 41 Study A
0065F0: 32 31 20 57 6F 72 6C 64 20 41 74 6C 61 73 20 20 21 World Atlas
006600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006660: 20 47 65 6F 67 72 61 70 68 79 20 20 20 20 20 20 Geography
006670: 20 20 20 20 20 53 74 75 64 79 20 20 20 20 20 20 Study
006680: 20 20 20 20 41 30 31 20 41 6E 6E 61 20 4B 61 72 A01 Anna Kar
006690: 65 6E 69 6E 61 20 20 20 20 20 20 20 20 20 20 20 enina
0066A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0066B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0066C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0066D0: 20 20 20 20 20 20 20 20 54 6F 6C 73 74 6F 79 20 Tolstoy
0066E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0066F0: 20 20 20 20 20 20 4E 6F 76 65 6C 20 20 20 20 20 Novel
006700: 79 63 65 20 20 20 20 20 20 20 20 20 20 20 20 20 yce
006710: 20 20 20 20 20 20 20 20 20 20 20 20 4E 6F 76 65 Nove
006720: 6C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 l
006730: 6B 69 74 63 68 65 6E 20 20 20 20 20 20 20 20 41 kitchen A
006740: 30 32 20 43 61 6B 65 73 20 61 6E 64 20 41 6C 65 02 Cakes and Ale
006750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006790: 20 20 20 4D 61 75 67 68 61 6D 2C 53 6F 6D 65 72 Maugham,Somer
0067A0: 73 65 74 20 20 20 20 20 20 20 20 20 20 20 20 20 set
0067B0: 20 4E 6F 76 65 6C 20 20 20 20 20 20 20 20 20 20 Novel
0067C0: 20 20 20 20 20 4C 69 62 72 61 72 79 20 20 20 20 Library
0067D0: 20 20 20 20 41 30 32 20 44 75 6E 65 20 20 20 20 A02 Dune
0067E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0067F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006820: 20 20 20 20 20 20 20 20 48 65 72 62 65 72 74 2C Herbert,
006830: 46 72 61 6E 6B 20 20 20 20 20 20 20 20 20 20 20 Frank
006840: 20 20 20 20 20 20 53 63 69 65 6E 63 65 20 46 69 Science Fi
006850: 63 74 69 6F 6E 20 20 20 20 20 4C 69 62 72 61 72 ction Librar
006860: 79 20 20 20 20 20 20 20 20 41 30 32 20 44 75 6E y A02 Dun
006870: 65 20 4D 65 73 73 69 61 68 20 20 20 20 20 20 20 e Messiah
006880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0068A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0068B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 48 65 72 Her
0068C0: 62 65 72 74 2C 46 72 61 6E 6B 20 20 20 20 20 20 bert,Frank
0068D0: 20 20 20 20 20 20 20 20 20 20 20 53 63 69 65 6E Scien
0068E0: 63 65 20 46 69 63 74 69 6F 6E 20 20 20 20 20 4C ce Fiction L
0068F0: 69 62 72 61 72 79 20 20 20 20 20 20 20 20 41 30 ibrary A0
006900: 20 20 20 20 20 20 20 20 20 20 53 74 75 64 79 20 Study
006910: 20 20 20 20 20 20 20 20 20 44 33 32 20 52 69 64 D32 Rid
006920: 65 72 73 20 6F 66 20 74 68 65 20 50 75 72 70 6C ers of the Purpl
006930: 65 20 53 61 67 65 20 20 20 20 20 20 20 20 20 20 e Sage
006940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006950: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006960: 20 20 20 20 20 20 20 20 20 20 20 20 20 47 72 65 Gre
006970: 79 2C 5A 61 6E 65 20 20 20 20 20 20 20 20 20 20 y,Zane
006980: 20 20 20 20 20 20 20 20 20 20 20 57 65 73 74 65 Weste
006990: 72 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 4C rn L
0069A0: 69 62 72 61 72 79 20 20 20 20 20 20 20 20 41 32 ibrary A2
0069B0: 32 20 4C 6F 72 64 20 4A 69 6D 20 20 20 20 20 20 2 Lord Jim
0069C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0069D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0069E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0069F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006A00: 20 20 43 6F 6E 72 61 64 20 20 20 20 20 20 20 20 Conrad
006A10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006A20: 4E 6F 76 65 6C 20 20 20 20 20 20 20 20 20 20 20 Novel
006A30: 20 20 20 20 53 74 75 64 79 20 20 20 20 20 20 20 Study
006A40: 20 20 20 41 32 31 20 57 61 72 20 61 6E 64 20 50 A21 War and P
006A50: 65 61 63 65 20 20 20 20 20 20 20 20 20 20 20 20 eace
006A60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006A70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006A80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006A90: 20 20 20 20 20 20 20 54 6F 6C 73 74 6F 79 20 20 Tolstoy
006AA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006AB0: 20 20 20 20 20 4E 6F 76 65 6C 20 20 20 20 20 20 Novel
006AC0: 20 20 20 20 20 20 20 20 20 53 74 75 64 79 20 20 Study
006AD0: 20 20 20 20 20 20 20 20 41 30 31 20 4D 69 63 68 A01 Mich
006AE0: 61 65 6C 20 20 20 20 20 20 20 20 20 20 20 20 20 ael
006AF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006B00: 32 20 57 6F 72 6B 69 6E 67 20 77 69 74 68 20 64 2 Working with d
006B10: 42 61 73 65 20 49 49 20 20 20 20 20 20 20 20 20 Base II
006B20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006B30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006B40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006B50: 20 20 64 65 20 50 61 63 65 20 20 20 20 20 20 20 de Pace
006B60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006B70: 43 6F 6D 70 75 74 65 72 20 20 20 20 20 20 20 20 Computer
006B80: 20 20 20 20 53 74 75 64 79 20 20 20 20 20 20 20 Study
006B90: 20 20 20 41 30 32 20 54 48 45 20 4C 4F 53 53 20 A02 THE LOSS
006BA0: 4F 46 20 41 20 53 4F 4E 20 20 20 20 20 20 20 20 OF A SON
006BB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006BC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006BD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006BE0: 20 20 20 20 20 20 20 57 49 4C 4C 49 41 4D 20 54 WILLIAM T
006BF0: 45 4C 4C 20 20 20 20 20 20 20 20 20 20 20 20 20 ELL
006C00: 20 20 20 20 20 41 52 43 48 45 52 59 20 20 20 20 ARCHERY
006C10: 20 20 20 20 20 20 20 20 20 4C 49 42 52 41 52 59 LIBRARY
006C20: 20 20 20 20 20 20 20 20 44 32 33 20 74 68 65 20 D23 the
006C30: 6C 69 66 65 20 61 6E 64 20 74 69 6D 65 73 20 6F life and times o
006C40: 66 20 68 65 6E 72 79 20 6A 61 6D 65 73 20 20 20 f henry james
006C50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006C70: 20 20 20 20 20 20 20 20 20 20 20 20 77 61 6C 6C wall
006C80: 79 20 73 6D 69 74 68 20 20 20 20 20 20 20 20 20 y smith
006C90: 20 20 20 20 20 20 20 20 20 20 62 69 6F 67 72 61 biogra
006CA0: 70 68 79 20 20 20 20 20 20 20 20 20 20 20 6C 69 phy li
006CB0: 62 72 61 72 79 20 20 20 20 20 20 20 20 61 31 30 brary a10
006CC0: 1A 74 68 65 20 6C 69 66 65 20 61 6E 64 20 74 69 .the life and ti
006CD0: 6D 65 73 20 6F 66 20 68 65 6E 72 79 20 6A 61 6D mes of henry jam
006CE0: 65 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 es
006CF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006D00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006D10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006D20: 20 20 20 20 20 20 20 20 20 20 20 20 57 6F 72 64 Word
006D30: 73 77 6F 72 74 68 20 20 20 20 20 20 20 20 20 20 sworth
006D40: 20 20 20 20 20 20 20 20 20 20 50 6F 65 74 72 79 Poetry
006D50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 74 St
006D60: 75 64 79 20 20 20 20 20 20 20 20 20 20 41 30 31 udy A01
006D70: 20 43 72 69 74 69 71 75 65 20 6F 66 20 50 75 72 Critique of Pur
006D80: 65 20 52 65 61 73 6F 6E 20 20 20 20 20 20 20 20 e Reason
006D90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006DA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006DB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006DC0: 20 4B 61 6E 74 20 20 20 20 20 20 20 20 20 20 20 Kant
006DD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 P
006DE0: 68 69 6C 6F 73 6F 70 68 79 20 20 20 20 20 20 20 hilosophy
006DF0: 20 20 20 53 74 75 64 79 20 20 20 20 20 20 20 20 Study
006E00: 20 20 41 30 31 20 49 6E 66 65 72 6E 6F 20 20 20 A01 Inferno
006E10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006E20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006E30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006E40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006E50: 20 20 20 20 20 20 44 61 6E 74 65 20 20 20 20 20 Dante
006E60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006E70: 20 20 20 20 50 6F 65 74 72 79 20 20 20 20 20 20 Poetry
006E80: 20 20 20 20 20 20 20 20 53 74 75 64 79 20 20 20 Study
006E90: 20 20 20 20 20 20 20 41 30 31 20 43 68 69 6C 64 A01 Child
006EA0: 65 20 48 61 72 6F 6C 64 20 20 20 20 20 20 20 20 e Harold
006EB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006EC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006ED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006EE0: 20 20 20 20 20 20 20 20 20 20 20 42 79 72 6F 6E Byron
006EF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006F00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006F10: 20 77 61 6C 6C 79 20 73 6D 69 74 68 20 20 20 20 wally smith
006F20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 b
006F30: 69 6F 67 72 61 70 68 79 20 20 20 20 20 20 20 20 iography
006F40: 20 20 20 6C 69 62 72 61 72 79 20 20 20 20 20 20 library
006F50: 20 20 61 31 30 1A 57 48 41 54 20 45 43 4F 4E 4F a10.WHAT ECONO
006F60: 4D 49 43 20 43 52 49 53 49 53 20 21 20 20 20 20 MIC CRISIS !
006F70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006F80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006F90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006FA0: 20 20 20 20 20 20 54 48 41 54 43 48 45 52 20 26 THATCHER &
006FB0: 20 4C 41 57 53 4F 4E 20 20 20 20 20 20 20 20 20 LAWSON
006FC0: 20 20 20 20 44 49 53 41 53 54 45 52 53 20 20 20 DISASTERS
006FD0: 20 20 20 20 20 20 20 20 53 54 55 44 59 20 20 20 STUDY
006FE0: 20 20 20 20 20 20 20 45 33 34 20 67 6F 6E 65 20 E34 gone
006FF0: 57 49 54 48 20 74 68 65 20 57 49 4E 44 20 20 20 WITH the WIND
007000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007030: 20 20 20 20 20 20 20 20 20 20 20 4D 52 20 48 49 MR HI
007040: 45 4E 5A 20 20 20 20 20 20 20 20 20 20 20 20 20 ENZ
007050: 20 20 20 20 20 20 20 20 20 46 4F 4F 44 20 20 20 FOOD
007060: 20 20 20 20 20 20 20 20 20 20 20 20 20 4B 49 54 KIT
007070: 43 48 45 4E 20 20 20 20 20 20 20 20 54 4F 50 20 CHEN TOP
007080: 74 68 65 20 6C 69 66 65 20 61 6E 64 20 74 69 6D the life and tim
007090: 65 73 20 6F 66 20 68 65 6E 72 79 20 6A 61 6D 65 es of henry jame
0070A0: 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 s
0070B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0070C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0070D0: 77 61 6C 6C 79 20 73 6D 69 74 68 20 20 20 20 20 wally smith
0070E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 69 bi
0070F0: 6F 67 72 61 70 68 79 20 20 20 20 20 20 20 20 20 ography
007100: 20 20 20 20 20 20 20 20 20 50 6F 65 74 72 79 20 Poetry
007110: 20 20 20 20 20 20 20 20 20 20 20 20 20 6B 69 74 kit
007120: 63 68 65 6E 20 20 20 20 20 20 20 20 41 30 31 20 chen A01
007130: 44 6F 6C 6C 27 73 20 48 6F 75 73 65 20 20 20 20 Doll's House
007140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007180: 49 62 73 65 6E 20 20 20 20 20 20 20 20 20 20 20 Ibsen
007190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 72 Dr
0071A0: 61 6D 61 20 20 20 20 20 20 20 20 20 20 20 20 20 ama
0071B0: 20 20 4C 69 62 72 61 72 79 20 20 20 20 20 20 20 Library
0071C0: 20 41 30 32 20 48 65 6E 72 79 20 56 20 20 20 20 A02 Henry V
0071D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0071E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0071F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007210: 20 20 20 20 20 53 68 61 6B 65 73 70 65 61 72 65 Shakespeare
007220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007230: 20 20 20 44 72 61 6D 61 20 20 20 20 20 20 20 20 Drama
007240: 20 20 20 20 20 20 20 4C 69 62 72 61 72 79 20 20 Library
007250: 20 20 20 20 20 20 41 30 33 20 52 6F 6D 65 6F 20 A03 Romeo
007260: 61 6E 64 20 4A 75 6C 69 65 74 20 20 20 20 20 20 and Juliet
007270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0072A0: 20 20 20 20 20 20 20 20 20 20 53 68 61 6B 65 73 Shakes
0072B0: 70 65 61 72 65 20 20 20 20 20 20 20 20 20 20 20 peare
0072C0: 20 20 20 20 20 20 20 20 44 72 61 6D 61 20 20 20 Drama
0072D0: 20 20 20 20 20 20 20 20 20 20 20 20 4C 69 62 72 Libr
0072E0: 61 72 79 20 20 20 20 20 20 20 20 41 30 32 20 4B ary A02 K
0072F0: 69 6E 67 20 4C 65 61 72 20 20 20 20 20 20 20 20 ing Lear
007300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
007310: 06 00 01 00 02 09 52 E5 06 00 41 02 00 00 00 02 ......R...A.....
007320: 06 00 46 02 00 00 00 02 06 00 42 02 00 00 00 02 ..F.......B.....
007330: 06 00 47 02 00 00 00 02 06 00 43 02 00 00 00 02 ..G.......C.....
007340: 06 00 48 02 00 00 00 02 06 00 44 02 00 00 00 02 ..H.......D.....
007350: 06 00 49 02 00 00 00 02 06 00 45 02 00 00 00 02 ..I.......E.....
007360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007400: 20 20 6C 69 62 72 61 72 79 20 20 20 20 20 20 20 library
007410: 20 61 31 30 1A 20 20 20 20 44 33 32 20 52 69 64 a10. D32 Rid
007420: 65 72 73 20 6F 66 20 74 68 65 20 50 75 72 70 6C ers of the Purpl
007430: 65 20 53 61 67 65 20 20 20 20 20 20 20 20 20 20 e Sage
007440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007460: 20 20 20 20 20 20 20 20 20 20 20 20 20 47 72 65 Gre
007470: 79 2C 5A 61 6E 65 20 20 20 20 20 20 20 20 20 20 y,Zane
007480: 20 20 20 20 20 20 20 20 20 20 20 57 65 73 74 65 Weste
007490: 72 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 4C rn L
0074A0: 69 62 72 61 72 79 20 20 20 20 20 20 20 20 41 32 ibrary A2
0074B0: 32 20 4C 6F 72 64 20 4A 69 6D 20 20 20 20 20 20 2 Lord Jim
0074C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0074D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0074E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0074F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007500: 20 20 43 6F 6E 72 61 64 20 20 20 20 20 20 20 20 Conrad
007510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007520: 4E 6F 76 65 6C 20 20 20 20 20 20 20 20 20 20 20 Novel
007530: 20 20 20 20 53 74 75 64 79 20 20 20 20 20 20 20 Study
007540: 20 20 20 41 32 31 20 57 61 72 20 61 6E 64 20 50 A21 War and P
007550: 65 61 63 65 20 20 20 20 20 20 20 20 20 20 20 20 eace
007560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007590: 20 20 20 20 20 20 20 54 6F 6C 73 74 6F 79 20 20 Tolstoy
0075A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0075B0: 20 20 20 20 20 4E 6F 76 65 6C 20 20 20 20 20 20 Novel
0075C0: 20 20 20 20 20 20 20 20 20 53 74 75 64 79 20 20 Study
0075D0: 20 20 20 20 20 20 20 20 41 30 31 20 4D 69 63 68 A01 Mich
0075E0: 61 65 6C 20 20 20 20 20 20 20 20 20 20 20 20 20 ael
0075F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007600: 22 0D 0A 20 20 40 20 20 35 2C 30 20 73 61 79 20 ".. @ 5,0 say
007610: 22 54 69 74 6C 65 20 20 20 20 20 22 20 67 65 74 "Title " get
007620: 20 74 69 74 6C 65 78 31 0D 0A 20 20 40 20 20 36 titlex1.. @ 6
007630: 2C 30 20 73 61 79 20 22 20 20 20 20 20 20 20 20 ,0 say "
007640: 20 20 22 20 67 65 74 20 74 69 74 6C 65 78 32 0D " get titlex2.
007650: 0A 20 20 40 20 20 37 2C 30 20 73 61 79 20 22 41 . @ 7,0 say "A
007660: 75 74 68 6F 72 20 20 20 20 22 20 67 65 74 20 61 uthor " get a
007670: 75 74 68 6F 72 78 0D 0A 20 20 40 20 20 38 2C 30 uthorx.. @ 8,0
007680: 20 73 61 79 20 22 53 75 62 6A 65 63 74 20 20 20 say "Subject
007690: 22 20 67 65 74 20 73 75 62 6A 65 63 74 78 0D 0A " get subjectx..
0076A0: 20 20 40 20 20 39 2C 30 20 73 61 79 20 22 52 6F @ 9,0 say "Ro
0076B0: 6F 6D 20 20 20 20 20 20 22 20 67 65 74 20 72 6F om " get ro
0076C0: 6F 6D 78 0D 0A 20 20 40 20 31 30 2C 30 20 73 61 omx.. @ 10,0 sa
0076D0: 79 20 22 53 68 65 6C 66 20 20 20 20 20 22 20 67 y "Shelf " g
0076E0: 65 74 20 73 68 65 6C 66 78 0D 0A 20 20 74 65 78 et shelfx.. tex
0076F0: 74 20 20 0D 0A 0D 0A 0D 0A 2A 2A 2A 2A 2A 2A 2A t ......*******
007700: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
007710: 2A 2A 2A 2A 2A 2A 2A 2A 20 54 59 50 49 4E 47 20 ******** TYPING
007720: 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A 2A 2A INSTRUCTIONS ***
007730: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
007740: 2A 2A 2A 2A 2A 2A 2A 0D 0A 2A 20 20 20 20 20 20 *******..*
007750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007770: 20 20 20 20 20 2A 20 20 20 20 20 20 20 20 20 20 *
007780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007790: 20 20 20 20 20 20 2A 0D 0A 2A 20 54 6F 20 6D 6F *..* To mo
0077A0: 76 65 20 63 75 72 73 6F 72 2C 20 68 6F 6C 64 20 ve cursor, hold
0077B0: 43 54 52 4C 20 61 6E 64 20 70 72 65 73 73 20 3A CTRL and press :
0077C0: 20 20 20 20 20 2A 20 20 20 20 48 6F 6C 64 20 43 * Hold C
0077D0: 54 52 4C 20 61 6E 64 20 70 72 65 73 73 20 3A 20 TRL and press :
0077E0: 20 20 20 20 20 20 2A 0D 0A 2A 20 20 20 20 20 20 *..*
0077F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0078A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0078B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0078C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0078D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0078E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0078F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0079A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0079B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0079C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0079D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0079E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0079F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007A00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007A10: 20 20 20 20 20 2A 20 20 20 20 20 20 20 20 20 20 *
007A20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007A30: 20 20 20 20 20 20 2A 0D 0A 2A 20 20 45 20 20 74 *..* E t
007A40: 6F 20 6D 6F 76 65 20 55 70 20 20 20 20 20 20 20 o move Up
007A50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007A60: 20 20 20 20 20 2A 20 20 20 20 47 20 20 74 6F 20 * G to
007A70: 44 65 6C 65 74 65 20 20 20 20 20 20 20 20 20 20 Delete
007A80: 20 20 20 20 20 20 2A 0D 0A 2A 20 20 58 20 20 74 *..* X t
007A90: 6F 20 6D 6F 76 65 20 44 6F 77 6E 20 20 20 20 20 o move Down
007AA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007AB0: 20 20 20 20 20 2A 20 20 20 20 56 20 20 74 6F 20 * V to
007AC0: 53 74 61 72 74 20 49 6E 73 65 72 74 20 20 20 20 Start Insert
007AD0: 20 20 20 20 20 20 2A 0D 0A 2A 20 20 53 20 20 74 *..* S t
007AE0: 6F 20 6D 6F 76 65 20 4C 65 66 74 20 20 20 20 20 o move Left
007AF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007B00: 20 20 20 20 20 2A 20 20 20 20 56 20 20 74 6F 20 * V to
007B10: 53 74 6F 70 20 20 49 6E 73 65 72 74 20 20 20 20 Stop Insert
007B20: 20 20 20 20 20 20 2A 0D 0A 2A 20 20 44 20 20 74 *..* D t
007B30: 6F 20 6D 6F 76 65 20 52 69 67 68 74 20 20 20 20 o move Right
007B40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007B50: 20 20 20 20 20 2A 20 20 20 20 43 20 20 74 6F 20 * C to
007B60: 52 65 74 75 72 6E 20 74 6F 20 4D 61 69 6E 20 4D Return to Main M
007B70: 65 6E 75 20 20 20 2A 0D 0A 2A 20 20 20 20 20 20 enu *..*
007B80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007B90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007BA0: 20 20 20 20 20 2A 20 20 20 20 20 20 20 20 20 20 *
007BB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007BC0: 20 20 20 20 20 20 2A 0D 0A 2A 2A 2A 2A 2A 2A 2A *..*******
007BD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
007BE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
007BF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
007C00: 6D 3D 31 0D 0A 79 0D 0A 43 4F 46 46 45 52 49 44 m=1..y..COFFERID
007C10: 47 45 20 48 41 4C 4C 20 4C 49 42 52 41 52 59 0D GE HALL LIBRARY.
007C20: 0A 6E 0D 0A 6E 0D 0A 37 2C 72 6F 6F 6D 0D 0A 3C .n..n..7,room..<
007C30: 52 4F 4F 4D 3B 3D 3D 3D 3D 0D 0A 37 2C 73 68 65 ROOM;====..7,she
007C40: 6C 66 0D 0A 3C 53 48 45 4C 46 3B 3D 3D 3D 3D 3D lf..<SHELF;=====
007C50: 0D 0A 32 30 2C 61 75 74 68 6F 72 0D 0A 3C 41 55 ..20,author..<AU
007C60: 54 48 4F 52 3B 3D 3D 3D 3D 3D 3D 0D 0A 32 35 2C THOR;======..25,
007C70: 74 69 74 6C 65 0D 0A 3C 54 49 54 4C 45 3B 3D 3D title..<TITLE;==
007C80: 3D 3D 3D 0D 0A 31 33 2C 73 75 62 6A 65 63 74 0D ===..13,subject.
007C90: 0A 3C 53 55 42 4A 45 43 54 3B 3D 3D 3D 3D 3D 3D .<SUBJECT;======
007CA0: 3D 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A =...............
007CB0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
007CC0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
007CD0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
007CE0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
007CF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
007D00: 20 20 20 20 20 2A 61 3A 3D 62 3A 64 69 72 2E 63 *a:=b:dir.c
007D10: 6F 6D 5B 76 5D 0D 0A 20 20 20 20 20 20 20 20 20 om[v]..
007D20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007D30: 20 20 2A 61 3A 3D 62 3A 74 79 70 65 2E 63 6F 6D *a:=b:type.com
007D40: 5B 76 5D 0D 0A 0D 0A 20 20 20 20 20 66 2E 20 20 [v].... f.
007D50: 52 65 70 6C 61 63 65 20 74 68 65 20 43 50 2F 4D Replace the CP/M
007D60: 20 64 69 73 63 20 69 6E 20 44 72 69 76 65 20 42 disc in Drive B
007D70: 3A 20 77 69 74 68 20 79 6F 75 72 20 64 42 41 53 : with your dBAS
007D80: 45 20 57 4F 52 4B 49 4E 47 20 4D 41 53 54 45 52 E WORKING MASTER
007D90: 20 20 77 69 74 68 0D 0A 0D 0A 20 20 20 20 20 20 with....
007DA0: 20 20 20 73 69 64 65 20 31 20 66 61 63 69 6E 67 side 1 facing
007DB0: 20 6C 65 66 74 20 61 6E 64 20 63 6F 70 79 20 74 left and copy t
007DC0: 68 65 20 64 42 41 53 45 20 65 73 73 65 6E 74 69 he dBASE essenti
007DD0: 61 6C 73 20 61 73 20 66 6F 6C 6C 6F 77 73 3A 0D als as follows:.
007DE0: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 20 ...............
007DF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007E00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
007E10: 2A 2A 2A 2A 2A 2A 2A 0D 0A 20 20 65 6E 64 74 65 *******.. endte
007E20: 78 74 0D 0A 20 20 72 65 61 64 0D 0A 20 20 69 66 xt.. read.. if
007E30: 20 74 69 74 6C 65 78 31 20 3D 20 22 20 22 0D 0A titlex1 = " "..
007E40: 20 20 20 20 72 65 74 75 72 6E 0D 0A 20 20 65 6C return.. el
007E50: 73 65 0D 0A 20 20 20 20 40 20 32 33 2C 30 20 73 se.. @ 23,0 s
007E60: 61 79 20 22 50 6C 65 61 73 65 20 77 61 69 74 20 ay "Please wait
007E70: 66 6F 72 20 61 20 6D 6F 6D 65 6E 74 20 2E 2E 2E for a moment ...
007E80: 2E 2E 22 0D 0A 20 20 20 20 61 70 70 65 6E 64 20 ..".. append
007E90: 62 6C 61 6E 6B 0D 0A 20 20 20 20 73 74 6F 72 65 blank.. store
007EA0: 20 74 69 74 6C 65 78 31 2B 74 69 74 6C 65 78 32 titlex1+titlex2
007EB0: 20 74 6F 20 74 69 74 6C 65 78 0D 0A 20 20 20 20 to titlex..
007EC0: 72 65 70 6C 61 63 65 20 74 69 74 6C 65 20 77 69 replace title wi
007ED0: 74 68 20 74 69 74 6C 65 78 2C 20 61 75 74 68 6F th titlex, autho
007EE0: 72 20 77 69 74 68 20 61 75 74 68 6F 72 78 2C 20 r with authorx,
007EF0: 73 75 62 6A 65 63 74 20 77 69 74 68 20 73 75 62 subject with sub
007F00: 6A 65 63 74 78 3B 0D 0A 20 20 20 20 20 20 20 20 jectx;..
007F10: 20 20 20 20 72 6F 6F 6D 20 77 69 74 68 20 72 6F room with ro
007F20: 6F 6D 78 2C 20 73 68 65 6C 66 20 77 69 74 68 20 omx, shelf with
007F30: 73 68 65 6C 66 78 0D 0A 20 20 20 20 73 74 6F 72 shelfx.. stor
007F40: 65 20 61 64 64 65 64 20 2B 31 20 74 6F 20 61 64 e added +1 to ad
007F50: 64 65 64 0D 0A 20 20 20 20 69 66 20 61 64 64 65 ded.. if adde
007F60: 64 20 3E 20 32 30 0D 0A 20 20 20 20 20 20 3F 20 d > 20.. ?
007F70: 22 44 61 74 61 62 61 73 65 20 62 65 69 6E 67 20 "Database being
007F80: 74 69 64 69 65 64 20 75 70 2E 22 0D 0A 20 20 20 tidied up."..
007F90: 20 20 20 75 73 65 20 62 6F 6F 6B 73 20 69 6E 64 use books ind
007FA0: 65 78 20 74 69 74 6C 65 73 0D 0A 20 20 20 20 20 ex titles..
007FB0: 20 73 74 6F 72 65 20 30 20 74 6F 20 61 64 64 65 store 0 to adde
007FC0: 64 0D 0A 20 20 20 20 65 6E 64 69 66 20 0D 0A 20 d.. endif ..
007FD0: 20 65 6E 64 69 66 0D 0A 65 6E 64 64 6F 0D 0A 1A endif..enddo...
007FE0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
007FF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
008000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0080A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0080B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0080C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0080D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0080E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0080F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0081A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0081B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0081C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0081D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0081E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0081F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008200: 2A 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D * ==============
008210: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
008220: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
008230: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
008240: 3D 3D 3D 3D 3D 3D 3D 0D 0A 2A 20 20 43 41 53 45 =======..* CASE
008250: 20 4F 50 54 49 4F 4E 20 32 20 20 3A 20 20 43 48 OPTION 2 : CH
008260: 41 4E 47 45 20 44 45 54 41 49 4C 53 20 4F 46 20 ANGE DETAILS OF
008270: 41 20 42 4F 4F 4B 0D 0A 2A 20 3D 3D 3D 3D 3D 3D A BOOK..* ======
008280: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
008290: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
0082A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
0082B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D ===============.
0082C0: 0A 2A 0D 0A 75 73 65 20 62 6F 6F 6B 73 20 69 6E .*..use books in
0082D0: 64 65 78 20 74 69 74 6C 65 73 0D 0A 65 72 61 73 dex titles..eras
0082E0: 65 0D 0A 64 6F 20 77 68 69 6C 65 20 54 0D 0A 20 e..do while T..
0082F0: 20 65 72 61 73 65 0D 0A 20 20 40 20 20 31 2C 30 erase.. @ 1,0
008300: 20 73 61 79 20 22 43 48 41 4E 47 45 20 44 45 54 say "CHANGE DET
008310: 41 49 4C 53 20 4F 46 20 41 20 42 4F 4F 4B 22 0D AILS OF A BOOK".
008320: 0A 20 20 73 74 6F 72 65 20 73 74 72 28 31 2C 38 . store str(1,8
008330: 31 29 20 74 6F 20 73 70 61 63 65 73 0D 0A 20 20 1) to spaces..
008340: 73 74 6F 72 65 20 24 28 73 70 61 63 65 73 2C 31 store $(spaces,1
008350: 2C 34 30 29 20 74 6F 20 74 69 74 6C 65 78 31 0D ,40) to titlex1.
008360: 0A 20 20 40 20 20 35 2C 30 20 73 61 79 20 22 54 . @ 5,0 say "T
008370: 69 74 6C 65 20 20 20 20 20 22 20 67 65 74 20 74 itle " get t
008380: 69 74 6C 65 78 31 3B 0D 0A 20 20 20 70 69 63 74 itlex1;.. pict
008390: 75 72 65 20 22 21 21 21 21 21 21 21 21 21 21 21 ure "!!!!!!!!!!!
0083A0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0083B0: 21 21 21 21 21 21 21 21 21 21 21 21 21 22 0D 0A !!!!!!!!!!!!!"..
0083C0: 20 20 40 20 20 39 2C 30 20 73 61 79 20 22 28 49 @ 9,0 say "(I
0083D0: 66 20 79 6F 75 20 63 61 6E 27 74 20 72 65 6D 65 f you can't reme
0083E0: 6D 62 65 72 20 74 68 65 20 74 69 74 6C 65 2C 20 mber the title,
0083F0: 74 72 79 20 61 20 6C 65 74 74 65 72 20 6F 66 20 try a letter of
008400: 2A 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D * ==============
008410: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
008420: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
008430: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
008440: 3D 3D 3D 3D 3D 3D 3D 0D 0A 2A 20 20 43 41 53 45 =======..* CASE
008450: 20 4F 50 54 49 4F 4E 20 31 20 20 3A 20 20 41 44 OPTION 1 : AD
008460: 44 20 41 20 42 4F 4F 4B 20 57 49 54 48 20 49 4E D A BOOK WITH IN
008470: 44 45 58 49 4E 47 0D 0A 2A 20 3D 3D 3D 3D 3D 3D DEXING..* ======
008480: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
008490: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
0084A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
0084B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D ===============.
0084C0: 0A 2A 0D 0A 75 73 65 20 62 6F 6F 6B 73 20 69 6E .*..use books in
0084D0: 64 65 78 20 74 69 74 6C 65 73 0D 0A 73 74 6F 72 dex titles..stor
0084E0: 65 20 30 20 74 6F 20 61 64 64 65 64 0D 0A 64 6F e 0 to added..do
0084F0: 20 77 68 69 6C 65 20 54 0D 0A 20 20 73 74 6F 72 while T.. stor
008500: 65 20 73 74 72 28 31 2C 38 31 29 20 74 6F 20 73 e str(1,81) to s
008510: 70 61 63 65 73 0D 0A 20 20 73 74 6F 72 65 20 24 paces.. store $
008520: 28 73 70 61 63 65 73 2C 31 2C 34 30 29 20 74 6F (spaces,1,40) to
008530: 20 74 69 74 6C 65 78 31 0D 0A 20 20 73 74 6F 72 titlex1.. stor
008540: 65 20 74 69 74 6C 65 78 31 20 74 6F 20 74 69 74 e titlex1 to tit
008550: 6C 65 78 32 0D 0A 20 20 73 74 6F 72 65 20 24 28 lex2.. store $(
008560: 73 70 61 63 65 73 2C 31 2C 33 30 29 20 74 6F 20 spaces,1,30) to
008570: 61 75 74 68 6F 72 78 0D 0A 20 20 73 74 6F 72 65 authorx.. store
008580: 20 24 28 73 70 61 63 65 73 2C 31 2C 31 35 29 20 $(spaces,1,15)
008590: 74 6F 20 72 6F 6F 6D 78 0D 0A 20 20 73 74 6F 72 to roomx.. stor
0085A0: 65 20 24 28 73 70 61 63 65 73 2C 31 2C 33 29 20 e $(spaces,1,3)
0085B0: 20 74 6F 20 73 68 65 6C 66 78 0D 0A 20 20 73 74 to shelfx.. st
0085C0: 6F 72 65 20 24 28 73 70 61 63 65 73 2C 31 2C 32 ore $(spaces,1,2
0085D0: 30 29 20 74 6F 20 73 75 62 6A 65 63 74 78 0D 0A 0) to subjectx..
0085E0: 20 20 65 72 61 73 65 0D 0A 20 20 40 20 31 2C 30 erase.. @ 1,0
0085F0: 20 73 61 79 20 22 41 44 44 20 41 20 42 4F 4F 4B say "ADD A BOOK
008600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
008610: 07 00 01 00 02 09 52 E5 07 00 41 02 00 00 00 02 ......R...A.....
008620: 07 00 46 02 00 00 00 02 07 00 42 02 00 00 00 02 ..F.......B.....
008630: 07 00 47 02 00 00 00 02 07 00 43 02 00 00 00 02 ..G.......C.....
008640: 07 00 48 02 00 00 00 02 07 00 44 02 00 00 00 02 ..H.......D.....
008650: 07 00 49 02 00 00 00 02 07 00 45 02 00 00 00 02 ..I.......E.....
008660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008700: 74 68 65 20 61 6C 70 68 61 62 65 74 29 22 0D 0A the alphabet)"..
008710: 20 20 40 20 31 31 2C 30 20 73 61 79 20 22 50 72 @ 11,0 say "Pr
008720: 65 73 73 20 52 65 74 75 72 6E 20 74 6F 20 45 78 ess Return to Ex
008730: 69 74 22 0D 0A 20 20 72 65 61 64 0D 0A 20 20 69 it".. read.. i
008740: 66 20 74 69 74 6C 65 78 31 20 3D 20 22 20 22 0D f titlex1 = " ".
008750: 0A 20 20 20 20 65 72 61 73 65 0D 0A 20 20 20 20 . erase..
008760: 40 20 32 2C 30 20 73 61 79 20 22 50 6C 65 61 73 @ 2,0 say "Pleas
008770: 65 20 77 61 69 74 20 66 6F 72 20 61 20 6D 6F 6D e wait for a mom
008780: 65 6E 74 20 2E 2E 2E 2E 2E 22 0D 0A 20 20 20 20 ent ....."..
008790: 72 65 74 75 72 6E 0D 0A 20 20 65 6C 73 65 0D 0A return.. else..
0087A0: 20 20 20 20 73 74 6F 72 65 20 74 72 69 6D 28 24 store trim($
0087B0: 28 74 69 74 6C 65 78 31 2C 31 2C 31 30 29 29 20 (titlex1,1,10))
0087C0: 74 6F 20 74 69 74 6C 65 78 0D 0A 20 20 20 20 66 to titlex.. f
0087D0: 69 6E 64 20 26 74 69 74 6C 65 78 0D 0A 20 20 20 ind &titlex..
0087E0: 20 69 66 20 23 3D 30 0D 0A 20 20 20 20 20 20 40 if #=0.. @
0087F0: 20 31 33 2C 30 20 73 61 79 20 74 69 74 6C 65 78 13,0 say titlex
008800: 0D 0A 20 20 20 20 20 20 40 20 31 34 2C 30 20 73 .. @ 14,0 s
008810: 61 79 20 22 4E 6F 74 20 46 6F 75 6E 64 22 0D 0A ay "Not Found"..
008820: 20 20 20 20 20 20 40 20 31 37 2C 30 20 73 61 79 @ 17,0 say
008830: 20 22 50 72 65 73 73 20 61 6E 79 20 6B 65 79 20 "Press any key
008840: 74 6F 20 63 6F 6E 74 69 6E 75 65 22 0D 0A 20 20 to continue"..
008850: 20 20 20 20 73 65 74 20 63 6F 6E 73 20 6F 66 66 set cons off
008860: 0D 0A 20 20 20 20 20 20 77 61 69 74 0D 0A 20 20 .. wait..
008870: 20 20 20 20 73 65 74 20 63 6F 6E 73 20 6F 6E 0D set cons on.
008880: 0A 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 . else..
008890: 20 73 74 6F 72 65 20 22 4D 22 20 74 6F 20 6D 6F store "M" to mo
0088A0: 72 65 0D 0A 20 20 20 20 20 20 64 6F 20 77 68 69 re.. do whi
0088B0: 6C 65 20 6D 6F 72 65 20 3D 20 22 4D 22 0D 0A 20 le more = "M"..
0088C0: 20 20 20 20 20 20 20 73 74 6F 72 65 20 24 28 74 store $(t
0088D0: 69 74 6C 65 2C 31 2C 34 30 29 20 74 6F 20 74 69 itle,1,40) to ti
0088E0: 74 6C 65 78 31 0D 0A 20 20 20 20 20 20 20 20 73 tlex1.. s
0088F0: 74 6F 72 65 20 24 28 74 69 74 6C 65 2C 34 31 2C tore $(title,41,
008900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 0D *.
008910: 0A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A .***************
008920: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
008930: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
008940: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
008950: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D ***************.
008960: 0A 20 20 65 6E 64 74 65 78 74 0D 0A 20 20 72 65 . endtext.. re
008970: 61 64 0D 0A 20 20 73 74 6F 72 65 20 74 69 74 6C ad.. store titl
008980: 65 78 31 2B 74 69 74 6C 65 78 32 20 74 6F 20 74 ex1+titlex2 to t
008990: 69 74 6C 65 78 0D 0A 20 20 72 65 70 6C 61 63 65 itlex.. replace
0089A0: 20 74 69 74 6C 65 20 77 69 74 68 20 74 69 74 6C title with titl
0089B0: 65 78 2C 20 61 75 74 68 6F 72 20 77 69 74 68 20 ex, author with
0089C0: 61 75 74 68 6F 72 78 2C 20 73 75 62 6A 65 63 74 authorx, subject
0089D0: 20 77 69 74 68 20 73 75 62 6A 65 63 74 78 3B 0D with subjectx;.
0089E0: 0A 20 20 20 20 20 20 20 20 72 6F 6F 6D 20 77 69 . room wi
0089F0: 74 68 20 72 6F 6F 6D 78 2C 20 73 68 65 6C 66 20 th roomx, shelf
008A00: 77 69 74 68 20 73 68 65 6C 66 78 0D 0A 20 20 20 with shelfx..
008A10: 20 65 6E 64 69 66 0D 0A 20 20 65 6E 64 69 66 0D endif.. endif.
008A20: 0A 65 6E 64 69 66 0D 0A 65 6E 64 64 6F 0D 0A 1A .endif..enddo...
008A30: 1A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
008A40: 20 20 20 20 20 20 20 2A 20 20 20 20 56 20 20 74 * V t
008A50: 6F 20 53 74 6F 70 20 20 49 6E 73 65 72 74 20 20 o Stop Insert
008A60: 20 20 20 20 20 20 20 20 2A 0D 0A 2A 20 20 44 20 *..* D
008A70: 20 74 6F 20 6D 6F 76 65 20 52 69 67 68 74 20 20 to move Right
008A80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008A90: 20 20 20 20 20 20 20 2A 20 20 20 20 20 20 20 20 *
008AA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008AB0: 20 20 20 20 20 20 20 20 2A 0D 0A 2A 20 20 20 20 *..*
008AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008AD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008AE0: 20 20 20 20 20 20 20 2A 20 20 20 20 20 20 20 20 *
008AF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008B00: 34 30 29 20 74 6F 20 74 69 74 6C 65 78 32 0D 0A 40) to titlex2..
008B10: 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 61 75 store au
008B20: 74 68 6F 72 20 74 6F 20 61 75 74 68 6F 72 78 0D thor to authorx.
008B30: 0A 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 72 . store r
008B40: 6F 6F 6D 20 74 6F 20 72 6F 6F 6D 78 0D 0A 20 20 oom to roomx..
008B50: 20 20 20 20 20 20 73 74 6F 72 65 20 73 68 65 6C store shel
008B60: 66 20 20 74 6F 20 73 68 65 6C 66 78 0D 0A 20 20 f to shelfx..
008B70: 20 20 20 20 20 20 73 74 6F 72 65 20 73 75 62 6A store subj
008B80: 65 63 74 20 74 6F 20 73 75 62 6A 65 63 74 78 0D ect to subjectx.
008B90: 0A 20 20 20 20 20 20 20 20 65 72 61 73 65 0D 0A . erase..
008BA0: 20 20 20 20 20 20 20 20 40 20 20 31 2C 30 20 73 @ 1,0 s
008BB0: 61 79 20 22 43 48 41 4E 47 45 20 44 45 54 41 49 ay "CHANGE DETAI
008BC0: 4C 53 20 4F 46 20 41 20 42 4F 4F 4B 22 0D 0A 20 LS OF A BOOK"..
008BD0: 20 20 20 20 20 20 20 40 20 20 35 2C 30 20 73 61 @ 5,0 sa
008BE0: 79 20 22 54 69 74 6C 65 20 20 20 20 20 22 2B 74 y "Title "+t
008BF0: 69 74 6C 65 78 31 0D 0A 20 20 20 20 20 20 20 20 itlex1..
008C00: 40 20 20 36 2C 30 20 73 61 79 20 22 20 20 20 20 @ 6,0 say "
008C10: 20 20 20 20 20 20 22 2B 74 69 74 6C 65 78 32 0D "+titlex2.
008C20: 0A 20 20 20 20 20 20 20 20 40 20 20 37 2C 30 20 . @ 7,0
008C30: 73 61 79 20 22 41 75 74 68 6F 72 20 20 20 20 22 say "Author "
008C40: 2B 61 75 74 68 6F 72 78 0D 0A 20 20 20 20 20 20 +authorx..
008C50: 20 20 40 20 20 38 2C 30 20 73 61 79 20 22 53 75 @ 8,0 say "Su
008C60: 62 6A 65 63 74 20 20 20 22 2B 73 75 62 6A 65 63 bject "+subjec
008C70: 74 78 0D 0A 20 20 20 20 20 20 20 20 40 20 20 39 tx.. @ 9
008C80: 2C 30 20 73 61 79 20 22 52 6F 6F 6D 20 20 20 20 ,0 say "Room
008C90: 20 20 22 2B 72 6F 6F 6D 78 0D 0A 20 20 20 20 20 "+roomx..
008CA0: 20 20 20 40 20 31 30 2C 30 20 73 61 79 20 22 53 @ 10,0 say "S
008CB0: 68 65 6C 66 20 20 20 20 20 22 2B 73 68 65 6C 66 helf "+shelf
008CC0: 78 0D 0A 20 20 20 20 20 20 20 20 40 20 32 30 2C x.. @ 20,
008CD0: 30 20 73 61 79 20 22 50 72 65 73 73 20 43 20 74 0 say "Press C t
008CE0: 6F 20 63 68 61 6E 67 65 20 74 68 65 20 61 62 6F o change the abo
008CF0: 76 65 20 20 20 22 0D 0A 20 20 20 20 20 20 20 20 ve "..
008D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008F00: 40 20 32 31 2C 30 20 73 61 79 20 22 20 20 20 6F @ 21,0 say " o
008F10: 72 20 2B 20 74 6F 20 6C 6F 6F 6B 20 66 6F 72 20 r + to look for
008F20: 6D 6F 72 65 20 62 6F 6F 6B 73 22 0D 0A 20 20 20 more books"..
008F30: 20 20 20 20 20 40 20 32 32 2C 30 20 73 61 79 20 @ 22,0 say
008F40: 22 20 20 20 6F 72 20 2D 20 74 6F 20 67 6F 20 62 " or - to go b
008F50: 61 63 6B 20 6F 6E 65 20 62 6F 6F 6B 20 20 20 22 ack one book "
008F60: 0D 0A 20 20 20 20 20 20 20 20 40 20 32 33 2C 30 .. @ 23,0
008F70: 20 73 61 79 20 22 20 20 6F 72 20 61 6E 79 20 6F say " or any o
008F80: 74 68 65 72 20 6B 65 79 20 74 6F 20 73 65 6C 65 ther key to sele
008F90: 63 74 20 61 6E 6F 74 68 65 72 20 62 6F 6F 6B 22 ct another book"
008FA0: 0D 0A 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 .. store
008FB0: 22 20 22 20 74 6F 20 6E 65 78 74 0D 0A 20 20 20 " " to next..
008FC0: 20 20 20 20 20 73 65 74 20 63 6F 6E 73 20 6F 66 set cons of
008FD0: 66 0D 0A 20 20 20 20 20 20 20 20 77 61 69 74 20 f.. wait
008FE0: 74 6F 20 6E 65 78 74 0D 0A 20 20 20 20 20 20 20 to next..
008FF0: 20 73 65 74 20 63 6F 6E 73 20 6F 6E 0D 0A 20 69 set cons on.. i
009000: 66 20 6E 65 78 74 20 3D 20 22 2B 22 20 2E 6F 72 f next = "+" .or
009010: 2E 20 6E 65 78 74 20 3D 20 22 2D 22 0D 0A 20 20 . next = "-"..
009020: 20 20 20 20 20 20 20 20 69 66 20 6E 65 78 74 20 if next
009030: 3D 20 22 2B 22 0D 0A 20 20 20 20 20 20 20 20 20 = "+"..
009040: 20 20 20 73 6B 69 70 0D 0A 20 20 20 20 20 20 20 skip..
009050: 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 else..
009060: 20 20 20 20 20 73 6B 69 70 20 2D 31 0D 0A 20 20 skip -1..
009070: 20 20 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 endif..
009080: 20 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 else..
009090: 20 20 20 20 20 20 20 73 74 6F 72 65 20 22 4E 22 store "N"
0090A0: 20 74 6F 20 6D 6F 72 65 0D 0A 20 20 20 20 20 20 to more..
0090B0: 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 65 endif.. e
0090C0: 6E 64 64 6F 0D 0A 20 20 20 20 20 20 69 66 20 6E nddo.. if n
0090D0: 65 78 74 20 3D 20 22 43 22 20 2E 6F 72 2E 20 6E ext = "C" .or. n
0090E0: 65 78 74 20 3D 20 22 63 22 0D 0A 20 20 20 20 20 ext = "c"..
0090F0: 20 20 20 65 72 61 73 65 0D 0A 20 20 20 20 20 20 erase..
009100: 2A 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D * ==============
009110: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
009120: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
009130: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
009140: 3D 3D 3D 3D 3D 3D 3D 0D 0A 2A 20 20 43 41 53 45 =======..* CASE
009150: 20 4F 50 54 49 4F 4E 20 33 20 20 3A 20 20 44 45 OPTION 3 : DE
009160: 4C 45 54 45 20 41 20 42 4F 4F 4B 0D 0A 2A 20 3D LETE A BOOK..* =
009170: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
009180: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
009190: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
0091A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
0091B0: 3D 3D 3D 3D 0D 0A 2A 0D 0A 75 73 65 20 62 6F 6F ====..*..use boo
0091C0: 6B 73 20 69 6E 64 65 78 20 74 69 74 6C 65 73 0D ks index titles.
0091D0: 0A 65 72 61 73 65 0D 0A 73 74 6F 72 65 20 30 20 .erase..store 0
0091E0: 74 6F 20 64 65 6C 74 0D 0A 64 6F 20 77 68 69 6C to delt..do whil
0091F0: 65 20 54 0D 0A 20 20 65 72 61 73 65 0D 0A 20 20 e T.. erase..
009200: 40 20 20 31 2C 30 20 73 61 79 20 22 44 45 4C 45 @ 1,0 say "DELE
009210: 54 45 20 41 20 42 4F 4F 4B 22 0D 0A 20 20 73 74 TE A BOOK".. st
009220: 6F 72 65 20 73 74 72 28 31 2C 38 31 29 20 74 6F ore str(1,81) to
009230: 20 73 70 61 63 65 73 0D 0A 20 20 73 74 6F 72 65 spaces.. store
009240: 20 24 28 73 70 61 63 65 73 2C 31 2C 34 30 29 20 $(spaces,1,40)
009250: 74 6F 20 74 69 74 6C 65 78 31 0D 0A 20 20 40 20 to titlex1.. @
009260: 20 35 2C 30 20 73 61 79 20 22 54 69 74 6C 65 20 5,0 say "Title
009270: 20 20 20 20 22 20 67 65 74 20 74 69 74 6C 65 78 " get titlex
009280: 31 3B 0D 0A 20 20 20 70 69 63 74 75 72 65 20 22 1;.. picture "
009290: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0092A0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
0092B0: 21 21 21 21 21 21 21 21 22 0D 0A 20 20 40 20 20 !!!!!!!!".. @
0092C0: 39 2C 30 20 73 61 79 20 22 28 49 66 20 79 6F 75 9,0 say "(If you
0092D0: 20 63 61 6E 27 74 20 72 65 6D 65 6D 62 65 72 20 can't remember
0092E0: 74 68 65 20 74 69 74 6C 65 2C 20 74 72 79 20 61 the title, try a
0092F0: 20 6C 65 74 74 65 72 20 6F 66 20 74 68 65 20 61 letter of the a
009300: 20 20 40 20 20 31 2C 30 20 73 61 79 20 22 43 48 @ 1,0 say "CH
009310: 41 4E 47 45 20 44 45 54 41 49 4C 53 20 4F 46 20 ANGE DETAILS OF
009320: 41 20 42 4F 4F 4B 22 0D 0A 20 20 20 20 20 20 20 A BOOK"..
009330: 20 40 20 20 35 2C 30 20 73 61 79 20 22 54 69 74 @ 5,0 say "Tit
009340: 6C 65 20 20 20 20 20 22 20 67 65 74 20 74 69 74 le " get tit
009350: 6C 65 78 31 0D 0A 20 20 20 20 20 20 20 20 40 20 lex1.. @
009360: 20 36 2C 30 20 73 61 79 20 22 20 20 20 20 20 20 6,0 say "
009370: 20 20 20 20 22 20 67 65 74 20 74 69 74 6C 65 78 " get titlex
009380: 32 0D 0A 20 20 20 20 20 20 20 20 40 20 20 37 2C 2.. @ 7,
009390: 30 20 73 61 79 20 22 41 75 74 68 6F 72 20 20 20 0 say "Author
0093A0: 20 22 20 67 65 74 20 61 75 74 68 6F 72 78 0D 0A " get authorx..
0093B0: 20 20 20 20 20 20 20 20 40 20 20 38 2C 30 20 73 @ 8,0 s
0093C0: 61 79 20 22 53 75 62 6A 65 63 74 20 20 20 22 20 ay "Subject "
0093D0: 67 65 74 20 73 75 62 6A 65 63 74 78 0D 0A 20 20 get subjectx..
0093E0: 20 20 20 20 20 20 40 20 20 39 2C 30 20 73 61 79 @ 9,0 say
0093F0: 20 22 52 6F 6F 6D 20 20 20 20 20 20 22 20 67 65 "Room " ge
009400: 74 20 72 6F 6F 6D 78 0D 0A 20 20 20 20 20 20 20 t roomx..
009410: 20 40 20 31 30 2C 30 20 73 61 79 20 22 53 68 65 @ 10,0 say "She
009420: 6C 66 20 20 20 20 20 22 20 67 65 74 20 73 68 65 lf " get she
009430: 6C 66 78 0D 0A 20 20 74 65 78 74 0D 0A 0D 0A 0D lfx.. text.....
009440: 0A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A .***************
009450: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
009460: 20 54 59 50 49 4E 47 20 49 4E 53 54 52 55 43 54 TYPING INSTRUCT
009470: 49 4F 4E 53 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A IONS ***********
009480: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D ***************.
009490: 0A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .*
0094A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0094B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 20 20 *
0094C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0094D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 0D *.
0094E0: 0A 2A 20 54 6F 20 6D 6F 76 65 20 63 75 72 73 6F .* To move curso
0094F0: 72 2C 20 68 6F 6C 64 20 43 54 52 4C 20 61 6E 64 r, hold CTRL and
009500: 6C 70 68 61 62 65 74 29 22 0D 0A 20 20 40 20 31 lphabet)".. @ 1
009510: 31 2C 30 20 73 61 79 20 22 50 72 65 73 73 20 52 1,0 say "Press R
009520: 65 74 75 72 6E 20 74 6F 20 45 78 69 74 22 0D 0A eturn to Exit"..
009530: 20 20 72 65 61 64 0D 0A 20 20 69 66 20 74 69 74 read.. if tit
009540: 6C 65 78 31 20 3D 20 22 20 22 0D 0A 20 20 20 20 lex1 = " "..
009550: 65 72 61 73 65 0D 0A 20 20 20 20 40 20 32 2C 30 erase.. @ 2,0
009560: 20 73 61 79 20 22 50 6C 65 61 73 65 20 77 61 69 say "Please wai
009570: 74 20 66 6F 72 20 61 20 6D 6F 6D 65 6E 74 20 2E t for a moment .
009580: 2E 2E 2E 2E 22 0D 0A 20 20 20 20 69 66 20 64 65 ....".. if de
009590: 6C 74 20 3E 20 30 0D 0A 20 20 20 20 20 20 3F 0D lt > 0.. ?.
0095A0: 0A 20 20 20 20 20 20 3F 20 22 4E 6F 77 20 72 65 . ? "Now re
0095B0: 70 61 63 6B 69 6E 67 20 74 68 65 20 64 61 74 61 packing the data
0095C0: 62 61 73 65 20 74 6F 20 72 65 6D 6F 76 65 20 64 base to remove d
0095D0: 65 6C 65 74 65 64 20 72 65 63 6F 72 64 73 22 0D eleted records".
0095E0: 0A 20 20 20 20 20 20 70 61 63 6B 0D 0A 20 20 20 . pack..
0095F0: 20 65 6E 64 69 66 0D 0A 20 20 20 20 72 65 74 75 endif.. retu
009600: 72 6E 0D 0A 20 20 65 6C 73 65 0D 0A 20 20 20 20 rn.. else..
009610: 73 74 6F 72 65 20 74 72 69 6D 28 24 28 74 69 74 store trim($(tit
009620: 6C 65 78 31 2C 31 2C 31 30 29 29 20 74 6F 20 74 lex1,1,10)) to t
009630: 69 74 6C 65 78 0D 0A 20 20 20 20 66 69 6E 64 20 itlex.. find
009640: 26 74 69 74 6C 65 78 0D 0A 20 20 20 20 69 66 20 &titlex.. if
009650: 23 3D 30 0D 0A 20 20 20 20 20 20 40 20 31 33 2C #=0.. @ 13,
009660: 30 20 73 61 79 20 74 69 74 6C 65 78 0D 0A 20 20 0 say titlex..
009670: 20 20 20 20 40 20 31 34 2C 30 20 73 61 79 20 22 @ 14,0 say "
009680: 4E 6F 74 20 46 6F 75 6E 64 22 0D 0A 20 20 20 20 Not Found"..
009690: 20 20 40 20 31 37 2C 30 20 73 61 79 20 22 50 72 @ 17,0 say "Pr
0096A0: 65 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 63 ess any key to c
0096B0: 6F 6E 74 69 6E 75 65 22 0D 0A 20 20 20 20 20 20 ontinue"..
0096C0: 73 65 74 20 63 6F 6E 73 20 6F 66 66 0D 0A 20 20 set cons off..
0096D0: 20 20 20 20 77 61 69 74 0D 0A 20 20 20 20 20 20 wait..
0096E0: 73 65 74 20 63 6F 6E 73 20 6F 6E 0D 0A 20 20 20 set cons on..
0096F0: 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 73 74 6F else.. sto
009700: 20 70 72 65 73 73 20 3A 20 20 20 20 20 2A 20 20 press : *
009710: 20 20 48 6F 6C 64 20 43 54 52 4C 20 61 6E 64 20 Hold CTRL and
009720: 70 72 65 73 73 20 3A 20 20 20 20 20 20 20 2A 0D press : *.
009730: 0A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .*
009740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009750: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 20 20 *
009760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 0D *.
009780: 0A 2A 20 20 45 20 20 74 6F 20 6D 6F 76 65 20 55 .* E to move U
009790: 70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 p
0097A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 20 20 *
0097B0: 20 20 47 20 20 74 6F 20 44 65 6C 65 74 65 20 20 G to Delete
0097C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 0D *.
0097D0: 0A 2A 20 20 58 20 20 74 6F 20 6D 6F 76 65 20 44 .* X to move D
0097E0: 6F 77 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 own
0097F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 20 20 *
009800: 20 20 56 20 20 74 6F 20 53 74 61 72 74 20 49 6E V to Start In
009810: 73 65 72 74 20 20 20 20 20 20 20 20 20 20 2A 0D sert *.
009820: 0A 2A 20 20 53 20 20 74 6F 20 6D 6F 76 65 20 4C .* S to move L
009830: 65 66 74 20 20 20 20 20 20 20 20 20 20 20 20 20 eft
009840: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 20 20 *
009850: 20 20 56 20 20 74 6F 20 53 74 6F 70 20 20 49 6E V to Stop In
009860: 73 65 72 74 20 20 20 20 20 20 20 20 20 20 2A 0D sert *.
009870: 0A 2A 20 20 44 20 20 74 6F 20 6D 6F 76 65 20 52 .* D to move R
009880: 69 67 68 74 20 20 20 20 20 20 20 20 20 20 20 20 ight
009890: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 20 20 *
0098A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0098B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 0D *.
0098C0: 0A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .*
0098D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0098E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 20 20 *
0098F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009900: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
009910: 08 00 01 00 02 09 52 E5 08 00 41 02 00 00 00 02 ......R...A.....
009920: 08 00 46 02 00 00 00 02 08 00 42 02 00 00 00 02 ..F.......B.....
009930: 08 00 47 02 00 00 00 02 08 00 43 02 00 00 00 02 ..G.......C.....
009940: 08 00 48 02 00 00 00 02 08 00 44 02 00 00 00 02 ..H.......D.....
009950: 08 00 49 02 00 00 00 02 08 00 45 02 00 00 00 02 ..I.......E.....
009960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009A00: 72 65 20 22 4D 22 20 74 6F 20 6D 6F 72 65 0D 0A re "M" to more..
009A10: 20 20 20 20 20 20 64 6F 20 77 68 69 6C 65 20 6D do while m
009A20: 6F 72 65 20 3D 20 22 4D 22 20 0D 0A 20 20 20 20 ore = "M" ..
009A30: 20 20 20 20 65 72 61 73 65 0D 0A 20 20 20 20 20 erase..
009A40: 20 20 20 40 20 20 31 2C 30 20 73 61 79 20 22 44 @ 1,0 say "D
009A50: 45 4C 45 54 45 20 41 20 42 4F 4F 4B 22 0D 0A 20 ELETE A BOOK"..
009A60: 20 20 20 20 20 20 20 69 66 20 2A 0D 0A 20 20 20 if *..
009A70: 20 20 20 20 20 20 20 20 40 20 33 2C 32 35 20 73 @ 3,25 s
009A80: 61 79 20 22 41 6C 72 65 61 64 79 20 4D 61 72 6B ay "Already Mark
009A90: 65 64 20 66 6F 72 20 44 65 6C 65 74 69 6F 6E 22 ed for Deletion"
009AA0: 0D 0A 20 20 20 20 20 20 20 20 65 6E 64 69 66 0D .. endif.
009AB0: 0A 20 20 20 20 20 20 20 20 40 20 20 35 2C 30 20 . @ 5,0
009AC0: 73 61 79 20 22 54 69 74 6C 65 20 20 20 20 20 22 say "Title "
009AD0: 2B 24 28 74 69 74 6C 65 2C 31 2C 34 30 29 20 20 +$(title,1,40)
009AE0: 20 0D 0A 20 20 20 20 20 20 20 20 40 20 20 36 2C .. @ 6,
009AF0: 30 20 73 61 79 20 22 20 20 20 20 20 20 20 20 20 0 say "
009B00: 20 22 2B 24 28 74 69 74 6C 65 2C 34 31 2C 34 30 "+$(title,41,40
009B10: 29 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 40 ) .. @
009B20: 20 20 37 2C 30 20 73 61 79 20 22 41 75 74 68 6F 7,0 say "Autho
009B30: 72 20 20 20 20 22 2B 61 75 74 68 6F 72 0D 0A 20 r "+author..
009B40: 20 20 20 20 20 20 20 40 20 20 38 2C 30 20 73 61 @ 8,0 sa
009B50: 79 20 22 53 75 62 6A 65 63 74 20 20 20 22 2B 73 y "Subject "+s
009B60: 75 62 6A 65 63 74 0D 0A 20 20 20 20 20 20 20 20 ubject..
009B70: 40 20 20 39 2C 30 20 73 61 79 20 22 52 6F 6F 6D @ 9,0 say "Room
009B80: 20 20 20 20 20 20 22 2B 72 6F 6F 6D 0D 0A 20 20 "+room..
009B90: 20 20 20 20 20 20 40 20 31 30 2C 30 20 73 61 79 @ 10,0 say
009BA0: 20 22 53 68 65 6C 66 20 20 20 20 20 22 2B 73 68 "Shelf "+sh
009BB0: 65 6C 66 0D 0A 20 20 20 20 20 20 20 20 40 20 32 elf.. @ 2
009BC0: 30 2C 30 20 73 61 79 20 22 50 72 65 73 73 20 44 0,0 say "Press D
009BD0: 20 74 6F 20 64 65 6C 65 74 65 20 74 68 65 20 61 to delete the a
009BE0: 62 6F 76 65 20 20 20 22 20 0D 0A 20 20 20 20 20 bove " ..
009BF0: 20 20 20 40 20 32 31 2C 30 20 73 61 79 20 22 20 @ 21,0 say "
009C00: 22 50 72 65 73 73 20 52 65 74 75 72 6E 20 74 6F "Press Return to
009C10: 20 45 78 69 74 22 0D 0A 20 20 72 65 61 64 0D 0A Exit".. read..
009C20: 20 20 69 66 20 74 69 74 6C 65 78 31 20 3D 20 22 if titlex1 = "
009C30: 20 22 0D 0A 20 20 20 20 65 72 61 73 65 0D 0A 20 ".. erase..
009C40: 20 20 20 72 65 74 75 72 6E 0D 0A 20 20 65 6C 73 return.. els
009C50: 65 0D 0A 20 20 20 20 73 74 6F 72 65 20 74 72 69 e.. store tri
009C60: 6D 28 24 28 74 69 74 6C 65 78 31 2C 31 2C 31 30 m($(titlex1,1,10
009C70: 29 29 20 74 6F 20 74 69 74 6C 65 78 0D 0A 20 20 )) to titlex..
009C80: 20 20 66 69 6E 64 20 26 74 69 74 6C 65 78 0D 0A find &titlex..
009C90: 20 20 20 20 69 66 20 23 3D 30 0D 0A 20 20 20 20 if #=0..
009CA0: 20 20 40 20 31 33 2C 30 20 73 61 79 20 74 69 74 @ 13,0 say tit
009CB0: 6C 65 78 0D 0A 20 20 20 20 20 20 40 20 31 34 2C lex.. @ 14,
009CC0: 30 20 73 61 79 20 22 4E 6F 74 20 46 6F 75 6E 64 0 say "Not Found
009CD0: 22 0D 0A 20 20 20 20 20 20 40 20 31 37 2C 30 20 ".. @ 17,0
009CE0: 73 61 79 20 22 50 72 65 73 73 20 61 6E 79 20 6B say "Press any k
009CF0: 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 22 0D ey to continue".
009D00: 0A 20 20 20 20 20 20 73 65 74 20 63 6F 6E 73 20 . set cons
009D10: 6F 66 66 0D 0A 20 20 20 20 20 20 77 61 69 74 0D off.. wait.
009D20: 0A 20 20 20 20 20 20 73 65 74 20 63 6F 6E 73 20 . set cons
009D30: 6F 6E 0D 0A 20 20 20 20 65 6C 73 65 0D 0A 20 20 on.. else..
009D40: 20 20 20 20 73 74 6F 72 65 20 22 4D 22 20 74 6F store "M" to
009D50: 20 6D 6F 72 65 0D 0A 20 20 20 20 20 20 64 6F 20 more.. do
009D60: 77 68 69 6C 65 20 6D 6F 72 65 20 3D 20 22 4D 22 while more = "M"
009D70: 20 0D 0A 20 20 20 20 20 20 20 20 65 72 61 73 65 .. erase
009D80: 0D 0A 20 20 20 20 20 20 20 20 40 20 20 35 2C 30 .. @ 5,0
009D90: 20 73 61 79 20 22 54 69 74 6C 65 20 20 20 20 20 say "Title
009DA0: 22 2B 24 28 74 69 74 6C 65 2C 31 2C 34 30 29 20 "+$(title,1,40)
009DB0: 0D 0A 20 20 20 20 20 20 20 20 40 20 20 36 2C 30 .. @ 6,0
009DC0: 20 73 61 79 20 22 20 20 20 20 20 20 20 20 20 20 say "
009DD0: 22 2B 24 28 74 69 74 6C 65 2C 34 31 2C 34 30 29 "+$(title,41,40)
009DE0: 20 0D 0A 20 20 20 20 20 20 20 20 40 20 20 37 2C .. @ 7,
009DF0: 30 20 73 61 79 20 22 41 75 74 68 6F 72 20 20 20 0 say "Author
009E00: 20 20 6F 72 20 2B 20 74 6F 20 6C 6F 6F 6B 20 66 or + to look f
009E10: 6F 72 20 6D 6F 72 65 20 62 6F 6F 6B 73 22 0D 0A or more books"..
009E20: 20 20 20 20 20 20 20 20 40 20 32 32 2C 30 20 73 @ 22,0 s
009E30: 61 79 20 22 20 20 20 6F 72 20 2D 20 74 6F 20 67 ay " or - to g
009E40: 6F 20 62 61 63 6B 20 6F 6E 65 20 62 6F 6F 6B 20 o back one book
009E50: 20 20 22 0D 0A 20 20 20 20 20 20 20 20 40 20 32 ".. @ 2
009E60: 33 2C 30 20 73 61 79 20 22 20 20 6F 72 20 61 6E 3,0 say " or an
009E70: 79 20 6F 74 68 65 72 20 6B 65 79 20 74 6F 20 73 y other key to s
009E80: 65 6C 65 63 74 20 61 6E 6F 74 68 65 72 20 62 6F elect another bo
009E90: 6F 6B 22 0D 0A 20 20 20 20 20 20 20 20 73 74 6F ok".. sto
009EA0: 72 65 20 22 20 22 20 74 6F 20 6E 65 78 74 0D 0A re " " to next..
009EB0: 20 20 20 20 20 20 20 20 73 65 74 20 63 6F 6E 73 set cons
009EC0: 20 6F 66 66 0D 0A 20 20 20 20 20 20 20 20 77 61 off.. wa
009ED0: 69 74 20 74 6F 20 6E 65 78 74 0D 0A 20 20 20 20 it to next..
009EE0: 20 20 20 20 73 65 74 20 63 6F 6E 73 20 6F 6E 0D set cons on.
009EF0: 0A 09 69 66 20 6E 65 78 74 20 3D 20 22 2B 22 20 ..if next = "+"
009F00: 2E 6F 72 2E 20 6E 65 78 74 20 3D 20 22 2D 22 0D .or. next = "-".
009F10: 0A 20 20 20 20 20 20 20 20 20 20 69 66 20 6E 65 . if ne
009F20: 78 74 20 3D 20 22 2B 22 0D 0A 20 20 20 20 20 20 xt = "+"..
009F30: 20 20 20 20 20 20 73 6B 69 70 20 0D 0A 20 20 20 skip ..
009F40: 20 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 else..
009F50: 20 20 20 20 20 20 20 20 20 73 6B 69 70 20 2D 31 skip -1
009F60: 0D 0A 20 20 20 20 20 20 20 20 20 20 65 6E 64 69 .. endi
009F70: 66 0D 0A 20 20 20 20 20 20 20 20 65 6C 73 65 0D f.. else.
009F80: 0A 20 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 . store
009F90: 20 22 4E 22 20 74 6F 20 6D 6F 72 65 0D 0A 20 20 "N" to more..
009FA0: 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 endif..
009FB0: 20 20 20 65 6E 64 64 6F 0D 0A 20 20 20 20 20 20 enddo..
009FC0: 69 66 20 6E 65 78 74 20 3D 20 22 44 22 20 2E 6F if next = "D" .o
009FD0: 72 2E 20 6E 65 78 74 20 3D 20 22 64 22 0D 0A 20 r. next = "d"..
009FE0: 20 20 20 20 20 20 20 64 65 6C 65 74 65 0D 0A 20 delete..
009FF0: 20 20 20 20 20 20 20 73 74 6F 72 65 20 64 65 6C store del
00A000: 20 22 2B 61 75 74 68 6F 72 0D 0A 20 20 20 20 20 "+author..
00A010: 20 20 20 40 20 20 38 2C 30 20 73 61 79 20 22 53 @ 8,0 say "S
00A020: 75 62 6A 65 63 74 20 20 20 22 2B 73 75 62 6A 65 ubject "+subje
00A030: 63 74 0D 0A 20 20 20 20 20 20 20 20 40 20 20 39 ct.. @ 9
00A040: 2C 30 20 73 61 79 20 22 52 6F 6F 6D 20 20 20 20 ,0 say "Room
00A050: 20 20 22 2B 72 6F 6F 6D 0D 0A 20 20 20 20 20 20 "+room..
00A060: 20 20 40 20 31 30 2C 30 20 73 61 79 20 22 53 68 @ 10,0 say "Sh
00A070: 65 6C 66 20 20 20 20 20 22 2B 73 68 65 6C 66 0D elf "+shelf.
00A080: 0A 20 20 20 20 20 20 20 20 40 20 32 31 2C 30 20 . @ 21,0
00A090: 73 61 79 20 22 50 72 65 73 73 20 2B 20 74 6F 20 say "Press + to
00A0A0: 6C 6F 6F 6B 20 66 6F 72 20 6D 6F 72 65 20 62 6F look for more bo
00A0B0: 6F 6B 73 22 0D 0A 20 20 20 20 20 20 20 20 40 20 oks".. @
00A0C0: 32 32 2C 30 20 73 61 79 20 22 20 20 20 6F 72 20 22,0 say " or
00A0D0: 2D 20 74 6F 20 67 6F 20 62 61 63 6B 20 6F 6E 65 - to go back one
00A0E0: 20 62 6F 6F 6B 20 20 20 22 0D 0A 20 20 20 20 20 book "..
00A0F0: 20 20 20 40 20 32 33 2C 30 20 73 61 79 20 22 20 @ 23,0 say "
00A100: 20 6F 72 20 61 6E 79 20 6F 74 68 65 72 20 6B 65 or any other ke
00A110: 79 20 74 6F 20 73 65 6C 65 63 74 20 61 6E 6F 74 y to select anot
00A120: 68 65 72 20 62 6F 6F 6B 22 0D 0A 20 20 20 20 20 her book"..
00A130: 20 20 20 73 74 6F 72 65 20 22 20 22 20 74 6F 20 store " " to
00A140: 6E 65 78 74 0D 0A 20 20 20 20 20 20 20 20 73 65 next.. se
00A150: 74 20 63 6F 6E 73 20 6F 66 66 0D 0A 20 20 20 20 t cons off..
00A160: 20 20 20 20 77 61 69 74 20 74 6F 20 6E 65 78 74 wait to next
00A170: 0D 0A 20 20 20 20 20 20 20 20 73 65 74 20 63 6F .. set co
00A180: 6E 73 20 6F 6E 0D 0A 09 69 66 20 6E 65 78 74 20 ns on...if next
00A190: 3D 20 22 2B 22 20 2E 6F 72 2E 20 6E 65 78 74 20 = "+" .or. next
00A1A0: 3D 20 22 2D 22 0D 0A 20 20 20 20 20 20 20 20 20 = "-"..
00A1B0: 20 69 66 20 6E 65 78 74 20 3D 20 22 2B 22 20 20 if next = "+"
00A1C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 73 6B .. sk
00A1D0: 69 70 20 0D 0A 20 20 20 20 20 20 20 20 20 20 65 ip .. e
00A1E0: 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 lse..
00A1F0: 20 73 6B 69 70 20 2D 31 0D 0A 20 20 20 20 20 20 skip -1..
00A200: 74 20 2B 20 31 20 74 6F 20 64 65 6C 74 0D 0A 20 t + 1 to delt..
00A210: 20 20 20 20 20 20 20 3F 0D 0A 20 20 20 20 20 20 ?..
00A220: 20 20 3F 20 22 52 65 63 6F 72 64 20 44 65 6C 65 ? "Record Dele
00A230: 74 65 64 22 0D 0A 20 20 20 20 20 20 20 20 73 74 ted".. st
00A240: 6F 72 65 20 30 20 74 6F 20 74 6F 70 0D 0A 20 20 ore 0 to top..
00A250: 20 20 20 20 20 20 64 6F 20 77 68 69 6C 65 20 74 do while t
00A260: 6F 70 20 3C 20 33 30 0D 0A 20 20 20 20 20 20 20 op < 30..
00A270: 20 20 20 73 74 6F 72 65 20 74 6F 70 20 2B 20 31 store top + 1
00A280: 20 74 6F 20 74 6F 70 0D 0A 20 20 20 20 20 20 20 to top..
00A290: 20 65 6E 64 64 6F 0D 0A 20 20 20 20 20 20 65 6E enddo.. en
00A2A0: 64 69 66 0D 0A 20 20 20 20 65 6E 64 69 66 0D 0A dif.. endif..
00A2B0: 20 20 65 6E 64 69 66 0D 0A 65 6E 64 64 6F 0D 0A endif..enddo..
00A2C0: 1A 1A 73 65 20 74 6F 20 72 65 6D 6F 76 65 20 64 ..se to remove d
00A2D0: 65 6C 65 74 65 64 20 72 65 63 6F 72 64 73 22 0D eleted records".
00A2E0: 0A 20 20 20 20 20 20 70 61 63 6B 0D 0A 20 20 20 . pack..
00A2F0: 20 65 6E 64 69 66 0D 0A 20 20 20 20 72 65 74 75 endif.. retu
00A300: 72 6E 0D 0A 20 20 65 6C 73 65 0D 0A 20 20 20 20 rn.. else..
00A310: 73 74 6F 72 65 20 24 28 74 69 74 6C 65 78 31 2C store $(titlex1,
00A320: 31 2C 31 30 29 20 74 6F 20 74 69 74 6C 65 78 0D 1,10) to titlex.
00A330: 0A 20 20 20 20 66 69 6E 64 20 26 74 69 74 6C 65 . find &title
00A340: 78 0D 0A 20 20 20 20 69 66 20 23 3D 30 0D 0A 20 x.. if #=0..
00A350: 20 20 20 20 20 40 20 31 33 2C 30 20 73 61 79 20 @ 13,0 say
00A360: 74 69 74 6C 65 78 0D 0A 20 20 20 20 20 20 40 20 titlex.. @
00A370: 31 34 2C 30 20 73 61 79 20 22 4E 6F 74 20 46 6F 14,0 say "Not Fo
00A380: 75 6E 64 22 0D 0A 20 20 20 20 20 20 40 20 31 37 und".. @ 17
00A390: 2C 30 20 73 61 79 20 22 50 72 65 73 73 20 61 6E ,0 say "Press an
00A3A0: 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 y key to continu
00A3B0: 65 22 0D 0A 20 20 20 20 20 20 73 65 74 20 63 6F e".. set co
00A3C0: 6E 73 20 6F 66 66 0D 0A 20 20 20 20 20 20 77 61 ns off.. wa
00A3D0: 69 74 0D 0A 20 20 20 20 20 20 73 65 74 20 63 6F it.. set co
00A3E0: 6E 73 20 6F 6E 0D 0A 20 20 20 20 65 6C 73 65 0D ns on.. else.
00A3F0: 0A 20 20 20 20 20 20 73 74 6F 72 65 20 22 4D 22 . store "M"
00A400: 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 endif..
00A410: 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 else..
00A420: 20 20 20 73 74 6F 72 65 20 22 4E 22 20 74 6F 20 store "N" to
00A430: 6D 6F 72 65 0D 0A 20 20 20 20 20 20 20 20 65 6E more.. en
00A440: 64 69 66 0D 0A 20 20 20 20 20 20 65 6E 64 64 6F dif.. enddo
00A450: 0D 0A 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 65 .. endif.. e
00A460: 6E 64 69 66 0D 0A 65 6E 64 64 6F 0D 0A 1A 1A 3D ndif..enddo....=
00A470: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00A480: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00A490: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00A4A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00A4B0: 3D 3D 3D 3D 0D 0A 2A 0D 0A 75 73 65 20 62 6F 6F ====..*..use boo
00A4C0: 6B 73 20 69 6E 64 65 78 20 74 69 74 6C 65 73 0D ks index titles.
00A4D0: 0A 65 72 61 73 65 0D 0A 73 74 6F 72 65 20 30 20 .erase..store 0
00A4E0: 74 6F 20 64 65 6C 74 0D 0A 64 6F 20 77 68 69 6C to delt..do whil
00A4F0: 65 20 54 0D 0A 20 20 65 72 61 73 65 0D 0A 20 20 e T.. erase..
00A500: 40 20 20 31 2C 30 20 73 61 79 20 22 44 45 4C 45 @ 1,0 say "DELE
00A510: 54 45 20 41 20 42 4F 4F 4B 22 0D 0A 20 20 73 74 TE A BOOK".. st
00A520: 6F 72 65 20 73 74 72 28 31 2C 38 31 29 20 74 6F ore str(1,81) to
00A530: 20 73 70 61 63 65 73 0D 0A 20 20 73 74 6F 72 65 spaces.. store
00A540: 20 24 28 73 70 61 63 65 73 2C 31 2C 34 30 29 20 $(spaces,1,40)
00A550: 74 6F 20 74 69 74 6C 65 78 31 0D 0A 20 20 40 20 to titlex1.. @
00A560: 20 35 2C 30 20 73 61 79 20 22 54 69 74 6C 65 20 5,0 say "Title
00A570: 20 20 20 20 22 20 67 65 74 20 74 69 74 6C 65 78 " get titlex
00A580: 31 3B 0D 0A 20 20 20 70 69 63 74 75 72 65 20 22 1;.. picture "
00A590: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
00A5A0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
00A5B0: 21 21 21 21 21 21 21 21 22 0D 0A 20 20 40 20 20 !!!!!!!!".. @
00A5C0: 39 2C 30 20 73 61 79 20 22 28 49 66 20 79 6F 75 9,0 say "(If you
00A5D0: 20 63 61 6E 27 74 20 72 65 6D 65 6D 62 65 72 20 can't remember
00A5E0: 74 68 65 20 74 69 74 6C 65 2C 20 74 72 79 20 61 the title, try a
00A5F0: 20 6C 65 74 74 65 72 20 6F 66 20 74 68 65 20 61 letter of the a
00A600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A800: 2A 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D * ==============
00A810: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00A820: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00A830: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00A840: 3D 3D 3D 3D 3D 3D 3D 0D 0A 2A 20 20 43 41 53 45 =======..* CASE
00A850: 20 4F 50 54 49 4F 4E 20 35 20 20 3A 20 20 41 55 OPTION 5 : AU
00A860: 54 48 4F 52 20 45 4E 51 55 49 52 59 0D 0A 2A 20 THOR ENQUIRY..*
00A870: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00A880: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00A890: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00A8A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00A8B0: 3D 3D 3D 3D 3D 0D 0A 2A 0D 0A 75 73 65 20 62 6F =====..*..use bo
00A8C0: 6F 6B 73 0D 0A 64 6F 20 77 68 69 6C 65 20 54 0D oks..do while T.
00A8D0: 0A 20 20 65 72 61 73 65 0D 0A 20 20 40 20 20 31 . erase.. @ 1
00A8E0: 2C 30 20 73 61 79 20 22 41 55 54 48 4F 52 20 45 ,0 say "AUTHOR E
00A8F0: 4E 51 55 49 52 59 22 0D 0A 20 20 73 74 6F 72 65 NQUIRY".. store
00A900: 20 73 74 72 28 31 2C 38 31 29 20 74 6F 20 73 70 str(1,81) to sp
00A910: 61 63 65 73 0D 0A 20 20 73 74 6F 72 65 20 24 28 aces.. store $(
00A920: 73 70 61 63 65 73 2C 31 2C 33 30 29 20 74 6F 20 spaces,1,30) to
00A930: 61 75 74 68 6F 72 78 0D 0A 20 20 40 20 20 35 2C authorx.. @ 5,
00A940: 30 20 73 61 79 20 22 41 75 74 68 6F 72 20 20 20 0 say "Author
00A950: 20 20 20 20 20 20 20 20 20 20 22 20 67 65 74 20 " get
00A960: 61 75 74 68 6F 72 78 3B 0D 0A 20 20 20 70 69 63 authorx;.. pic
00A970: 74 75 72 65 20 22 21 21 21 21 21 21 21 21 21 21 ture "!!!!!!!!!!
00A980: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
00A990: 21 21 21 21 22 0D 0A 20 20 40 20 20 39 2C 30 20 !!!!".. @ 9,0
00A9A0: 73 61 79 20 22 28 49 66 20 79 6F 75 20 63 61 6E say "(If you can
00A9B0: 27 74 20 72 65 6D 65 6D 62 65 72 20 74 68 65 20 't remember the
00A9C0: 61 75 74 68 6F 72 2C 20 74 72 79 20 65 6E 74 65 author, try ente
00A9D0: 72 69 6E 67 20 41 4C 4C 29 22 0D 0A 20 20 40 20 ring ALL)".. @
00A9E0: 31 31 2C 30 20 73 61 79 20 22 50 72 65 73 73 20 11,0 say "Press
00A9F0: 52 65 74 75 72 6E 20 74 6F 20 45 78 69 74 22 0D Return to Exit".
00AA00: 2A 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D * ==============
00AA10: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00AA20: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00AA30: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00AA40: 3D 3D 3D 3D 3D 3D 3D 0D 0A 2A 20 20 43 41 53 45 =======..* CASE
00AA50: 20 4F 50 54 49 4F 4E 20 34 20 20 3A 20 20 54 49 OPTION 4 : TI
00AA60: 54 4C 45 20 45 4E 51 55 49 52 59 0D 0A 2A 20 3D TLE ENQUIRY..* =
00AA70: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00AA80: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00AA90: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00AAA0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00AAB0: 3D 3D 3D 3D 0D 0A 2A 0D 0A 75 73 65 20 62 6F 6F ====..*..use boo
00AAC0: 6B 73 20 69 6E 64 65 78 20 74 69 74 6C 65 73 0D ks index titles.
00AAD0: 0A 64 6F 20 77 68 69 6C 65 20 54 0D 0A 20 20 65 .do while T.. e
00AAE0: 72 61 73 65 0D 0A 20 20 40 20 20 31 2C 30 20 73 rase.. @ 1,0 s
00AAF0: 61 79 20 22 54 49 54 4C 45 20 45 4E 51 55 49 52 ay "TITLE ENQUIR
00AB00: 59 22 0D 0A 20 20 73 74 6F 72 65 20 73 74 72 28 Y".. store str(
00AB10: 31 2C 38 31 29 20 74 6F 20 73 70 61 63 65 73 0D 1,81) to spaces.
00AB20: 0A 20 20 73 74 6F 72 65 20 24 28 73 70 61 63 65 . store $(space
00AB30: 73 2C 31 2C 34 30 29 20 74 6F 20 74 69 74 6C 65 s,1,40) to title
00AB40: 78 31 0D 0A 20 20 40 20 20 35 2C 30 20 73 61 79 x1.. @ 5,0 say
00AB50: 20 22 54 69 74 6C 65 20 20 20 20 20 22 20 67 65 "Title " ge
00AB60: 74 20 74 69 74 6C 65 78 31 3B 0D 0A 20 20 20 70 t titlex1;.. p
00AB70: 69 63 74 75 72 65 20 22 21 21 21 21 21 21 21 21 icture "!!!!!!!!
00AB80: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
00AB90: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
00ABA0: 22 0D 0A 20 20 40 20 20 39 2C 30 20 73 61 79 20 ".. @ 9,0 say
00ABB0: 22 28 49 66 20 79 6F 75 20 63 61 6E 27 74 20 72 "(If you can't r
00ABC0: 65 6D 65 6D 62 65 72 20 74 68 65 20 74 69 74 6C emember the titl
00ABD0: 65 2C 20 74 72 79 20 61 20 6C 65 74 74 65 72 20 e, try a letter
00ABE0: 6F 66 20 74 68 65 20 61 6C 70 68 61 62 65 74 29 of the alphabet)
00ABF0: 22 0D 0A 20 20 40 20 31 31 2C 30 20 73 61 79 20 ".. @ 11,0 say
00AC00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00AC10: 09 00 01 00 02 09 52 E5 09 00 41 02 00 00 00 02 ......R...A.....
00AC20: 09 00 46 02 00 00 00 02 09 00 42 02 00 00 00 02 ..F.......B.....
00AC30: 09 00 47 02 00 00 00 02 09 00 43 02 00 00 00 02 ..G.......C.....
00AC40: 09 00 48 02 00 00 00 02 09 00 44 02 00 00 00 02 ..H.......D.....
00AC50: 09 00 49 02 00 00 00 02 09 00 45 02 00 00 00 02 ..I.......E.....
00AC60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AD00: 0A 20 20 72 65 61 64 0D 0A 20 20 69 66 20 61 75 . read.. if au
00AD10: 74 68 6F 72 78 20 3D 20 22 20 22 0D 0A 20 20 20 thorx = " "..
00AD20: 20 65 72 61 73 65 0D 0A 20 20 20 20 72 65 74 75 erase.. retu
00AD30: 72 6E 0D 0A 20 20 65 6C 73 65 0D 0A 20 20 20 20 rn.. else..
00AD40: 73 74 6F 72 65 20 74 72 69 6D 28 61 75 74 68 6F store trim(autho
00AD50: 72 78 29 20 74 6F 20 61 75 74 68 6F 72 78 31 0D rx) to authorx1.
00AD60: 0A 20 20 20 20 65 72 61 73 65 0D 0A 20 20 20 20 . erase..
00AD70: 73 74 6F 72 65 20 6C 65 6E 28 61 75 74 68 6F 72 store len(author
00AD80: 78 31 29 20 74 6F 20 63 68 61 72 73 0D 0A 20 20 x1) to chars..
00AD90: 20 20 69 66 20 61 75 74 68 6F 72 78 31 20 3D 20 if authorx1 =
00ADA0: 22 41 4C 4C 22 0D 0A 20 20 20 20 20 20 6C 69 73 "ALL".. lis
00ADB0: 74 20 24 28 74 69 74 6C 65 2C 31 2C 33 33 29 2C t $(title,1,33),
00ADC0: 24 28 61 75 74 68 6F 72 2C 31 2C 31 35 29 2C 24 $(author,1,15),$
00ADD0: 28 73 75 62 6A 65 63 74 2C 31 2C 31 30 29 2C 24 (subject,1,10),$
00ADE0: 28 72 6F 6F 6D 2C 31 2C 31 33 29 2C 73 68 65 6C (room,1,13),shel
00ADF0: 66 20 6F 66 66 0D 0A 20 20 20 20 65 6C 73 65 20 f off.. else
00AE00: 0D 0A 20 20 20 20 20 20 64 69 73 70 20 24 28 74 .. disp $(t
00AE10: 69 74 6C 65 2C 31 2C 33 33 29 2C 24 28 61 75 74 itle,1,33),$(aut
00AE20: 68 6F 72 2C 31 2C 31 35 29 2C 24 28 73 75 62 6A hor,1,15),$(subj
00AE30: 65 63 74 2C 31 2C 31 30 29 2C 24 28 72 6F 6F 6D ect,1,10),$(room
00AE40: 2C 31 2C 31 33 29 2C 73 68 65 6C 66 3B 0D 0A 20 ,1,13),shelf;..
00AE50: 20 20 20 20 20 66 6F 72 20 61 75 74 68 6F 72 78 for authorx
00AE60: 31 20 3D 20 21 28 24 28 61 75 74 68 6F 72 2C 31 1 = !($(author,1
00AE70: 2C 63 68 61 72 73 29 29 20 6F 66 66 0D 0A 20 20 ,chars)) off..
00AE80: 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 3F 20 22 endif.. ? "
00AE90: 50 72 65 73 73 20 61 6E 79 20 6B 65 79 20 74 6F Press any key to
00AEA0: 20 63 6F 6E 74 69 6E 75 65 22 0D 0A 20 20 20 20 continue"..
00AEB0: 73 65 74 20 63 6F 6E 73 20 6F 66 66 0D 0A 20 20 set cons off..
00AEC0: 20 20 77 61 69 74 0D 0A 20 20 20 20 73 65 74 20 wait.. set
00AED0: 63 6F 6E 73 20 6F 6E 0D 0A 20 20 65 6E 64 69 66 cons on.. endif
00AEE0: 0D 0A 65 6E 64 64 6F 0D 0A 1A 1A 1A 1A 1A 1A 1A ..enddo.........
00AEF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00AF00: 6F 72 2C 31 2C 31 35 29 2C 24 28 73 75 62 6A 65 or,1,15),$(subje
00AF10: 63 74 2C 31 2C 31 30 29 2C 24 28 72 6F 6F 6D 2C ct,1,10),$(room,
00AF20: 31 2C 31 33 29 2C 73 68 65 6C 66 3B 0D 0A 20 20 1,13),shelf;..
00AF30: 20 20 20 20 66 6F 72 20 70 6C 61 63 65 78 20 3D for placex =
00AF40: 20 21 28 24 28 72 6F 6F 6D 2C 31 2C 63 68 61 72 !($(room,1,char
00AF50: 73 29 29 20 6F 66 66 0D 0A 20 20 20 20 65 6C 73 s)) off.. els
00AF60: 65 0D 0A 20 20 20 20 20 20 69 66 20 72 6F 6F 6D e.. if room
00AF70: 78 20 3D 20 22 20 22 0D 0A 20 20 20 20 20 20 20 x = " "..
00AF80: 20 64 69 73 70 20 24 28 74 69 74 6C 65 2C 31 2C disp $(title,1,
00AF90: 33 33 29 2C 24 28 61 75 74 68 6F 72 2C 31 2C 31 33),$(author,1,1
00AFA0: 35 29 2C 24 28 73 75 62 6A 65 63 74 2C 31 2C 31 5),$(subject,1,1
00AFB0: 30 29 2C 24 28 72 6F 6F 6D 2C 31 2C 31 33 29 2C 0),$(room,1,13),
00AFC0: 73 68 65 6C 66 3B 0D 0A 20 20 20 20 20 20 20 20 shelf;..
00AFD0: 66 6F 72 20 70 6C 61 63 65 78 20 3D 20 21 28 24 for placex = !($
00AFE0: 28 73 68 65 6C 66 2C 31 2C 63 68 61 72 73 29 29 (shelf,1,chars))
00AFF0: 20 6F 66 66 0D 0A 20 20 20 20 20 20 65 6C 73 65 off.. else
00B000: 0D 0A 20 20 20 20 20 20 20 20 64 69 73 70 20 24 .. disp $
00B010: 28 74 69 74 6C 65 2C 31 2C 33 33 29 2C 24 28 61 (title,1,33),$(a
00B020: 75 74 68 6F 72 2C 31 2C 31 35 29 2C 24 28 73 75 uthor,1,15),$(su
00B030: 62 6A 65 63 74 2C 31 2C 31 30 29 2C 24 28 72 6F bject,1,10),$(ro
00B040: 6F 6D 2C 31 2C 31 33 29 2C 73 68 65 6C 66 3B 0D om,1,13),shelf;.
00B050: 0A 20 20 20 20 20 20 20 20 66 6F 72 20 72 6F 6F . for roo
00B060: 6D 78 20 3D 20 21 28 72 6F 6F 6D 29 20 2E 61 6E mx = !(room) .an
00B070: 64 2E 20 73 68 65 6C 66 78 20 3D 20 21 28 73 68 d. shelfx = !(sh
00B080: 65 6C 66 29 20 6F 66 66 0D 0A 20 20 20 20 20 20 elf) off..
00B090: 65 6E 64 69 66 0D 0A 20 20 20 20 65 6E 64 69 66 endif.. endif
00B0A0: 0D 0A 20 20 20 20 3F 20 22 50 72 65 73 73 20 61 .. ? "Press a
00B0B0: 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E ny key to contin
00B0C0: 75 65 22 0D 0A 20 20 20 20 73 65 74 20 63 6F 6E ue".. set con
00B0D0: 73 20 6F 66 66 0D 0A 20 20 20 20 77 61 69 74 0D s off.. wait.
00B0E0: 0A 20 20 20 20 73 65 74 20 63 6F 6E 73 20 6F 6E . set cons on
00B0F0: 0D 0A 20 20 65 6E 64 69 66 0D 0A 65 6E 64 64 6F .. endif..enddo
00B100: 2A 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D * ==============
00B110: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00B120: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00B130: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00B140: 3D 3D 3D 3D 3D 3D 3D 0D 0A 2A 20 20 43 41 53 45 =======..* CASE
00B150: 20 4F 50 54 49 4F 4E 20 36 20 20 3A 20 20 53 55 OPTION 6 : SU
00B160: 42 4A 45 43 54 20 45 4E 51 55 49 52 59 0D 0A 2A BJECT ENQUIRY..*
00B170: 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ===============
00B180: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00B190: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00B1A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00B1B0: 3D 3D 3D 3D 3D 3D 0D 0A 2A 0D 0A 75 73 65 20 62 ======..*..use b
00B1C0: 6F 6F 6B 73 20 0D 0A 64 6F 20 77 68 69 6C 65 20 ooks ..do while
00B1D0: 54 0D 0A 20 20 65 72 61 73 65 0D 0A 20 20 40 20 T.. erase.. @
00B1E0: 20 31 2C 30 20 73 61 79 20 22 53 55 42 4A 45 43 1,0 say "SUBJEC
00B1F0: 54 20 45 4E 51 55 49 52 59 22 0D 0A 20 20 73 74 T ENQUIRY".. st
00B200: 6F 72 65 20 73 74 72 28 31 2C 38 31 29 20 74 6F ore str(1,81) to
00B210: 20 73 70 61 63 65 73 0D 0A 20 20 73 74 6F 72 65 spaces.. store
00B220: 20 24 28 73 70 61 63 65 73 2C 31 2C 32 30 29 20 $(spaces,1,20)
00B230: 74 6F 20 73 75 62 6A 65 63 74 78 0D 0A 20 20 40 to subjectx.. @
00B240: 20 20 35 2C 30 20 73 61 79 20 22 53 75 62 6A 65 5,0 say "Subje
00B250: 63 74 20 20 20 20 20 20 20 20 20 20 20 20 22 20 ct "
00B260: 67 65 74 20 73 75 62 6A 65 63 74 78 3B 0D 0A 20 get subjectx;..
00B270: 20 20 70 69 63 74 75 72 65 20 22 21 21 21 21 21 picture "!!!!!
00B280: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 22 !!!!!!!!!!!!!!!"
00B290: 0D 0A 20 20 40 20 20 39 2C 30 20 73 61 79 20 22 .. @ 9,0 say "
00B2A0: 28 49 66 20 79 6F 75 20 63 61 6E 27 74 20 72 65 (If you can't re
00B2B0: 6D 65 6D 62 65 72 20 74 68 65 20 73 75 62 6A 65 member the subje
00B2C0: 63 74 2C 20 74 72 79 20 65 6E 74 65 72 69 6E 67 ct, try entering
00B2D0: 20 41 4C 4C 29 22 0D 0A 20 20 40 20 31 31 2C 30 ALL)".. @ 11,0
00B2E0: 20 73 61 79 20 22 50 72 65 73 73 20 52 65 74 75 say "Press Retu
00B2F0: 72 6E 20 74 6F 20 45 78 69 74 22 0D 0A 20 20 72 rn to Exit".. r
00B300: 0D 0A 1A 1A 2C 31 35 29 2C 24 28 73 75 62 6A 65 ....,15),$(subje
00B310: 63 74 2C 31 2C 31 30 29 2C 24 28 72 6F 6F 6D 2C ct,1,10),$(room,
00B320: 31 2C 31 33 29 2C 73 68 65 6C 66 3B 0D 0A 20 20 1,13),shelf;..
00B330: 20 20 20 20 66 6F 72 20 70 6C 61 63 65 78 20 3D for placex =
00B340: 20 21 28 24 28 72 6F 6F 6D 2C 31 2C 63 68 61 72 !($(room,1,char
00B350: 73 29 29 20 6F 66 66 0D 0A 20 20 20 20 65 6C 73 s)) off.. els
00B360: 65 0D 0A 20 20 20 20 20 20 69 66 20 72 6F 6F 6D e.. if room
00B370: 78 20 3D 20 22 20 22 0D 0A 20 20 20 20 20 20 20 x = " "..
00B380: 20 64 69 73 70 20 24 28 74 69 74 6C 65 2C 31 2C disp $(title,1,
00B390: 33 33 29 2C 24 28 61 75 74 68 6F 72 2C 31 2C 31 33),$(author,1,1
00B3A0: 35 29 2C 24 28 73 75 62 6A 65 63 74 2C 31 2C 31 5),$(subject,1,1
00B3B0: 30 29 2C 24 28 72 6F 6F 6D 2C 31 2C 31 33 29 2C 0),$(room,1,13),
00B3C0: 73 68 65 6C 66 3B 0D 0A 20 20 20 20 20 20 20 20 shelf;..
00B3D0: 66 6F 72 20 70 6C 61 63 65 78 20 3D 20 21 28 24 for placex = !($
00B3E0: 28 73 68 65 6C 66 2C 31 2C 63 68 61 72 73 29 29 (shelf,1,chars))
00B3F0: 0D 0A 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 .. else..
00B400: 20 20 20 20 20 20 64 69 73 70 20 24 28 74 69 74 disp $(tit
00B410: 6C 65 2C 31 2C 33 33 29 2C 24 28 61 75 74 68 6F le,1,33),$(autho
00B420: 72 2C 31 2C 31 35 29 2C 24 28 73 75 62 6A 65 63 r,1,15),$(subjec
00B430: 74 2C 31 2C 31 30 29 2C 24 28 72 6F 6F 6D 2C 31 t,1,10),$(room,1
00B440: 2C 31 33 29 2C 73 68 65 6C 66 3B 0D 0A 20 20 20 ,13),shelf;..
00B450: 20 20 20 20 20 66 6F 72 20 72 6F 6F 6D 78 20 3D for roomx =
00B460: 20 21 28 72 6F 6F 6D 29 20 2E 61 6E 64 2E 20 73 !(room) .and. s
00B470: 68 65 6C 66 78 20 3D 20 21 28 73 68 65 6C 66 29 helfx = !(shelf)
00B480: 20 6F 66 66 0D 0A 20 20 20 20 20 20 65 6E 64 69 off.. endi
00B490: 66 0D 0A 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 f.. endif..
00B4A0: 20 20 3F 20 22 50 72 65 73 73 20 61 6E 79 20 6B ? "Press any k
00B4B0: 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 22 0D ey to continue".
00B4C0: 0A 20 20 20 20 73 65 74 20 63 6F 6E 73 20 6F 66 . set cons of
00B4D0: 66 0D 0A 20 20 20 20 77 61 69 74 0D 0A 20 20 20 f.. wait..
00B4E0: 20 73 65 74 20 63 6F 6E 73 20 6F 6E 0D 0A 20 20 set cons on..
00B4F0: 65 6E 64 69 66 0D 0A 65 6E 64 64 6F 0D 0A 1A 1A endif..enddo....
00B500: 65 61 64 0D 0A 20 20 69 66 20 73 75 62 6A 65 63 ead.. if subjec
00B510: 74 78 20 3D 20 22 20 22 0D 0A 20 20 20 20 65 72 tx = " ".. er
00B520: 61 73 65 0D 0A 20 20 20 20 72 65 74 75 72 6E 0D ase.. return.
00B530: 0A 20 20 65 6C 73 65 0D 0A 20 20 20 20 73 74 6F . else.. sto
00B540: 72 65 20 74 72 69 6D 28 73 75 62 6A 65 63 74 78 re trim(subjectx
00B550: 29 20 74 6F 20 73 75 62 6A 65 63 74 78 0D 0A 20 ) to subjectx..
00B560: 20 20 20 65 72 61 73 65 0D 0A 20 20 20 20 73 74 erase.. st
00B570: 6F 72 65 20 6C 65 6E 28 73 75 62 6A 65 63 74 78 ore len(subjectx
00B580: 29 20 74 6F 20 63 68 61 72 73 0D 0A 20 20 20 20 ) to chars..
00B590: 69 66 20 73 75 62 6A 65 63 74 78 20 3D 20 22 41 if subjectx = "A
00B5A0: 4C 4C 22 0D 0A 20 20 20 20 20 20 6C 69 73 74 20 LL".. list
00B5B0: 24 28 74 69 74 6C 65 2C 31 2C 33 33 29 2C 24 28 $(title,1,33),$(
00B5C0: 61 75 74 68 6F 72 2C 31 2C 31 35 29 2C 24 28 73 author,1,15),$(s
00B5D0: 75 62 6A 65 63 74 2C 31 2C 31 30 29 2C 24 28 72 ubject,1,10),$(r
00B5E0: 6F 6F 6D 2C 31 2C 31 33 29 2C 73 68 65 6C 66 20 oom,1,13),shelf
00B5F0: 6F 66 66 0D 0A 20 20 20 20 65 6C 73 65 20 0D 0A off.. else ..
00B600: 20 20 20 20 20 20 64 69 73 70 20 24 28 74 69 74 disp $(tit
00B610: 6C 65 2C 31 2C 33 33 29 2C 24 28 61 75 74 68 6F le,1,33),$(autho
00B620: 72 2C 31 2C 31 35 29 2C 24 28 73 75 62 6A 65 63 r,1,15),$(subjec
00B630: 74 2C 31 2C 31 30 29 2C 24 28 72 6F 6F 6D 2C 31 t,1,10),$(room,1
00B640: 2C 31 33 29 2C 73 68 65 6C 66 3B 0D 0A 20 20 20 ,13),shelf;..
00B650: 20 20 20 66 6F 72 20 73 75 62 6A 65 63 74 78 20 for subjectx
00B660: 3D 20 21 28 24 28 73 75 62 6A 65 63 74 2C 31 2C = !($(subject,1,
00B670: 63 68 61 72 73 29 29 20 6F 66 66 0D 0A 20 20 20 chars)) off..
00B680: 20 65 6E 64 69 66 0D 0A 20 20 20 20 3F 20 22 50 endif.. ? "P
00B690: 72 65 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 ress any key to
00B6A0: 63 6F 6E 74 69 6E 75 65 22 0D 0A 20 20 20 20 73 continue".. s
00B6B0: 65 74 20 63 6F 6E 73 20 6F 66 66 0D 0A 20 20 20 et cons off..
00B6C0: 20 77 61 69 74 0D 0A 20 20 20 20 73 65 74 20 63 wait.. set c
00B6D0: 6F 6E 73 20 6F 6E 0D 0A 20 20 65 6E 64 69 66 0D ons on.. endif.
00B6E0: 0A 65 6E 64 64 6F 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A .enddo..........
00B6F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00B700: 65 72 61 73 65 0D 0A 3F 20 22 50 6C 65 61 73 65 erase..? "Please
00B710: 20 73 77 69 74 63 68 20 74 68 65 20 50 72 69 6E switch the Prin
00B720: 74 65 72 20 6F 6E 22 0D 0A 3F 0D 0A 3F 20 22 50 ter on"..?..? "P
00B730: 72 65 73 73 20 61 6E 79 20 6B 65 79 20 77 68 65 ress any key whe
00B740: 6E 20 79 6F 75 20 68 61 76 65 20 64 6F 6E 65 20 n you have done
00B750: 73 6F 22 0D 0A 3F 20 0D 0A 77 61 69 74 0D 0A 64 so"..? ..wait..d
00B760: 6F 20 77 68 69 6C 65 20 54 0D 0A 20 20 65 72 61 o while T.. era
00B770: 73 65 0D 0A 20 20 73 74 6F 72 65 20 22 20 22 20 se.. store " "
00B780: 74 6F 20 6F 70 74 69 6F 6E 0D 0A 20 20 40 20 20 to option.. @
00B790: 31 2C 33 30 20 73 61 79 20 22 53 45 4C 45 43 54 1,30 say "SELECT
00B7A0: 20 54 59 50 45 20 4F 46 20 50 52 49 4E 54 22 0D TYPE OF PRINT".
00B7B0: 0A 20 20 40 20 20 39 2C 30 20 73 61 79 20 20 22 . @ 9,0 say "
00B7C0: 31 2E 20 54 69 74 6C 65 20 53 65 71 75 65 6E 63 1. Title Sequenc
00B7D0: 65 22 0D 0A 20 20 40 20 31 30 2C 30 20 73 61 79 e".. @ 10,0 say
00B7E0: 20 20 22 32 2E 20 41 75 74 68 6F 72 20 53 65 71 "2. Author Seq
00B7F0: 75 65 6E 63 65 22 0D 0A 20 20 40 20 31 31 2C 30 uence".. @ 11,0
00B800: 20 73 61 79 20 20 22 33 2E 20 53 75 62 6A 65 63 say "3. Subjec
00B810: 74 20 53 65 71 75 65 6E 63 65 22 0D 0A 20 20 40 t Sequence".. @
00B820: 20 31 32 2C 30 20 73 61 79 20 20 22 34 2E 20 52 12,0 say "4. R
00B830: 6F 6F 6D 2F 53 68 65 6C 66 20 53 65 71 75 65 6E oom/Shelf Sequen
00B840: 63 65 22 0D 0A 20 20 40 20 31 36 2C 30 20 73 61 ce".. @ 16,0 sa
00B850: 79 20 20 22 58 2E 20 45 78 69 74 22 0D 0A 20 20 y "X. Exit"..
00B860: 40 20 31 38 2C 30 20 73 61 79 20 20 22 50 6C 65 @ 18,0 say "Ple
00B870: 61 73 65 20 65 6E 74 65 72 20 79 6F 75 72 20 63 ase enter your c
00B880: 68 6F 69 63 65 22 20 67 65 74 20 6F 70 74 69 6F hoice" get optio
00B890: 6E 20 70 69 63 74 75 72 65 20 22 21 22 0D 0A 20 n picture "!"..
00B8A0: 20 72 65 61 64 0D 0A 20 20 40 20 32 33 2C 30 20 read.. @ 23,0
00B8B0: 73 61 79 20 22 50 6C 65 61 73 65 20 77 61 69 74 say "Please wait
00B8C0: 20 66 6F 72 20 61 20 6D 6F 6D 65 6E 74 20 2E 2E for a moment ..
00B8D0: 2E 2E 2E 22 0D 0A 20 20 64 6F 20 63 61 73 65 0D ...".. do case.
00B8E0: 0A 20 20 20 20 63 61 73 65 20 6F 70 74 69 6F 6E . case option
00B8F0: 20 3D 20 22 58 22 0D 0A 20 20 20 20 20 20 65 72 = "X".. er
00B900: 2A 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D * ==============
00B910: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00B920: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00B930: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00B940: 3D 3D 3D 3D 3D 3D 3D 0D 0A 2A 20 20 43 41 53 45 =======..* CASE
00B950: 20 4F 50 54 49 4F 4E 20 37 20 20 3A 20 20 53 48 OPTION 7 : SH
00B960: 45 4C 46 20 45 4E 51 55 49 52 59 0D 0A 2A 20 3D ELF ENQUIRY..* =
00B970: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00B980: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00B990: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00B9A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00B9B0: 3D 3D 3D 3D 0D 0A 2A 0D 0A 75 73 65 20 62 6F 6F ====..*..use boo
00B9C0: 6B 73 0D 0A 64 6F 20 77 68 69 6C 65 20 54 0D 0A ks..do while T..
00B9D0: 20 20 65 72 61 73 65 0D 0A 20 20 40 20 20 31 2C erase.. @ 1,
00B9E0: 30 20 73 61 79 20 22 53 48 45 4C 46 20 45 4E 51 0 say "SHELF ENQ
00B9F0: 55 49 52 59 22 0D 0A 20 20 73 74 6F 72 65 20 73 UIRY".. store s
00BA00: 74 72 28 31 2C 38 31 29 20 74 6F 20 73 70 61 63 tr(1,81) to spac
00BA10: 65 73 0D 0A 20 20 73 74 6F 72 65 20 24 28 73 70 es.. store $(sp
00BA20: 61 63 65 73 2C 31 2C 31 35 29 20 74 6F 20 72 6F aces,1,15) to ro
00BA30: 6F 6D 78 0D 0A 20 20 73 74 6F 72 65 20 24 28 73 omx.. store $(s
00BA40: 70 61 63 65 73 2C 31 2C 33 29 20 74 6F 20 73 68 paces,1,3) to sh
00BA50: 65 6C 66 78 0D 0A 20 20 40 20 20 35 2C 30 20 73 elfx.. @ 5,0 s
00BA60: 61 79 20 22 52 6F 6F 6D 20 20 20 20 20 20 22 20 ay "Room "
00BA70: 67 65 74 20 72 6F 6F 6D 78 20 70 69 63 74 75 72 get roomx pictur
00BA80: 65 20 22 21 21 21 21 21 21 21 21 21 21 21 21 21 e "!!!!!!!!!!!!!
00BA90: 21 21 22 0D 0A 20 20 40 20 20 36 2C 30 20 73 61 !!".. @ 6,0 sa
00BAA0: 79 20 22 53 68 65 6C 66 20 20 20 20 20 22 20 67 y "Shelf " g
00BAB0: 65 74 20 73 68 65 6C 66 78 20 70 69 63 74 75 72 et shelfx pictur
00BAC0: 65 20 22 21 21 21 22 0D 0A 20 20 40 20 20 39 2C e "!!!".. @ 9,
00BAD0: 30 20 73 61 79 20 22 28 49 66 20 79 6F 75 20 63 0 say "(If you c
00BAE0: 61 6E 27 74 20 72 65 6D 65 6D 62 65 72 20 74 68 an't remember th
00BAF0: 65 20 72 6F 6F 6D 2C 20 74 72 79 20 65 6E 74 65 e room, try ente
00BB00: 61 73 65 0D 0A 20 20 20 20 20 20 72 65 74 75 72 ase.. retur
00BB10: 6E 0D 0A 20 20 20 20 63 61 73 65 20 6F 70 74 69 n.. case opti
00BB20: 6F 6E 20 3D 20 22 31 22 0D 0A 20 20 20 20 20 20 on = "1"..
00BB30: 75 73 65 20 62 6F 6F 6B 73 20 69 6E 64 65 78 20 use books index
00BB40: 74 69 74 6C 65 73 0D 0A 20 20 20 20 20 20 72 65 titles.. re
00BB50: 70 6F 72 74 20 66 6F 72 6D 20 62 6F 6F 6B 73 20 port form books
00BB60: 74 6F 20 70 72 69 6E 74 0D 0A 20 20 20 20 63 61 to print.. ca
00BB70: 73 65 20 6F 70 74 69 6F 6E 20 3D 20 22 32 22 0D se option = "2".
00BB80: 0A 20 20 20 20 20 20 75 73 65 20 62 6F 6F 6B 73 . use books
00BB90: 20 0D 0A 20 20 20 20 20 20 3F 20 22 49 6E 64 65 .. ? "Inde
00BBA0: 78 69 6E 67 20 6F 6E 20 41 75 74 68 6F 72 22 0D xing on Author".
00BBB0: 0A 20 20 20 20 20 20 69 6E 64 65 78 20 6F 6E 20 . index on
00BBC0: 21 28 24 28 61 75 74 68 6F 72 2C 31 2C 31 32 29 !($(author,1,12)
00BBD0: 29 2B 21 28 24 28 74 69 74 6C 65 2C 31 2C 31 32 )+!($(title,1,12
00BBE0: 29 29 20 74 6F 20 61 75 74 68 6F 72 73 0D 0A 20 )) to authors..
00BBF0: 20 20 20 20 20 72 65 70 6F 72 74 20 66 6F 72 6D report form
00BC00: 20 62 6F 6F 6B 73 20 74 6F 20 70 72 69 6E 74 0D books to print.
00BC10: 0A 20 20 20 20 63 61 73 65 20 6F 70 74 69 6F 6E . case option
00BC20: 20 3D 20 22 33 22 0D 0A 20 20 20 20 20 20 75 73 = "3".. us
00BC30: 65 20 62 6F 6F 6B 73 20 0D 0A 20 20 20 20 20 20 e books ..
00BC40: 3F 20 22 49 6E 64 65 78 69 6E 67 20 6F 6E 20 53 ? "Indexing on S
00BC50: 75 62 6A 65 63 74 22 0D 0A 20 20 20 20 20 20 69 ubject".. i
00BC60: 6E 64 65 78 20 6F 6E 20 21 28 24 28 73 75 62 6A ndex on !($(subj
00BC70: 65 63 74 2C 31 2C 31 30 29 29 2B 21 28 24 28 61 ect,1,10))+!($(a
00BC80: 75 74 68 6F 72 2C 31 2C 31 30 29 29 20 74 6F 20 uthor,1,10)) to
00BC90: 73 75 62 6A 65 63 74 0D 0A 20 20 20 20 20 20 72 subject.. r
00BCA0: 65 70 6F 72 74 20 66 6F 72 6D 20 62 6F 6F 6B 73 eport form books
00BCB0: 20 74 6F 20 70 72 69 6E 74 0D 0A 20 20 20 20 63 to print.. c
00BCC0: 61 73 65 20 6F 70 74 69 6F 6E 20 3D 20 22 34 22 ase option = "4"
00BCD0: 0D 0A 20 20 20 20 20 20 75 73 65 20 62 6F 6F 6B .. use book
00BCE0: 73 20 0D 0A 20 20 20 20 20 20 3F 20 22 49 6E 64 s .. ? "Ind
00BCF0: 65 78 69 6E 67 20 6F 6E 20 52 6F 6F 6D 20 61 6E exing on Room an
00BD00: 72 69 6E 67 20 41 4C 4C 29 22 0D 0A 20 20 40 20 ring ALL)".. @
00BD10: 31 31 2C 30 20 73 61 79 20 22 50 72 65 73 73 20 11,0 say "Press
00BD20: 52 65 74 75 72 6E 20 74 77 69 63 65 20 74 6F 20 Return twice to
00BD30: 45 78 69 74 22 0D 0A 20 20 72 65 61 64 0D 0A 20 Exit".. read..
00BD40: 20 69 66 20 72 6F 6F 6D 78 20 3D 20 22 20 22 20 if roomx = " "
00BD50: 2E 61 6E 64 2E 20 73 68 65 6C 66 78 20 3D 20 22 .and. shelfx = "
00BD60: 20 22 0D 0A 20 20 20 20 65 72 61 73 65 0D 0A 20 ".. erase..
00BD70: 20 20 20 72 65 74 75 72 6E 0D 0A 20 20 65 6E 64 return.. end
00BD80: 69 66 0D 0A 20 20 69 66 20 73 68 65 6C 66 78 20 if.. if shelfx
00BD90: 3D 20 22 20 22 0D 0A 20 20 20 20 73 74 6F 72 65 = " ".. store
00BDA0: 20 74 72 69 6D 28 72 6F 6F 6D 78 29 20 74 6F 20 trim(roomx) to
00BDB0: 70 6C 61 63 65 78 0D 0A 20 20 65 6C 73 65 0D 0A placex.. else..
00BDC0: 20 20 20 20 69 66 20 72 6F 6F 6D 78 20 3D 20 22 if roomx = "
00BDD0: 20 22 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 ".. store
00BDE0: 74 72 69 6D 28 73 68 65 6C 66 78 29 20 74 6F 20 trim(shelfx) to
00BDF0: 70 6C 61 63 65 78 0D 0A 20 20 20 20 65 6C 73 65 placex.. else
00BE00: 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 72 6F .. store ro
00BE10: 6F 6D 78 2B 73 68 65 6C 66 78 20 74 6F 20 70 6C omx+shelfx to pl
00BE20: 61 63 65 78 0D 0A 20 20 20 20 65 6E 64 69 66 0D acex.. endif.
00BE30: 0A 20 20 65 6E 64 69 66 0D 0A 20 20 65 72 61 73 . endif.. eras
00BE40: 65 0D 0A 20 20 73 74 6F 72 65 20 6C 65 6E 28 70 e.. store len(p
00BE50: 6C 61 63 65 78 29 20 74 6F 20 63 68 61 72 73 0D lacex) to chars.
00BE60: 0A 20 20 69 66 20 70 6C 61 63 65 78 20 3D 20 22 . if placex = "
00BE70: 41 4C 4C 22 0D 0A 20 20 20 20 6C 69 73 74 20 24 ALL".. list $
00BE80: 28 74 69 74 6C 65 2C 31 2C 33 33 29 2C 24 28 61 (title,1,33),$(a
00BE90: 75 74 68 6F 72 2C 31 2C 31 35 29 2C 24 28 73 75 uthor,1,15),$(su
00BEA0: 62 6A 65 63 74 2C 31 2C 31 30 29 2C 24 28 72 6F bject,1,10),$(ro
00BEB0: 6F 6D 2C 31 2C 31 33 29 2C 73 68 65 6C 66 20 6F om,1,13),shelf o
00BEC0: 66 66 0D 0A 20 20 65 6C 73 65 0D 0A 20 20 20 20 ff.. else..
00BED0: 69 66 20 73 68 65 6C 66 78 20 3D 20 22 20 22 0D if shelfx = " ".
00BEE0: 0A 20 20 20 20 20 20 64 69 73 70 20 24 28 74 69 . disp $(ti
00BEF0: 74 6C 65 2C 31 2C 33 33 29 2C 24 28 61 75 74 68 tle,1,33),$(auth
00BF00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00BF10: 0A 00 01 00 02 09 52 E5 0A 00 41 02 00 00 00 02 ......R...A.....
00BF20: 0A 00 46 02 00 00 00 02 0A 00 42 02 00 00 00 02 ..F.......B.....
00BF30: 0A 00 47 02 00 00 00 02 0A 00 43 02 00 00 00 02 ..G.......C.....
00BF40: 0A 00 48 02 00 00 00 02 0A 00 44 02 00 00 00 02 ..H.......D.....
00BF50: 0A 00 49 02 00 00 00 02 0A 00 45 02 00 00 00 02 ..I.......E.....
00BF60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C000: 64 20 53 68 65 6C 66 22 0D 0A 20 20 20 20 20 20 d Shelf"..
00C010: 69 6E 64 65 78 20 6F 6E 20 21 28 24 28 72 6F 6F index on !($(roo
00C020: 6D 2C 31 2C 34 29 2B 73 68 65 6C 66 2B 24 28 61 m,1,4)+shelf+$(a
00C030: 75 74 68 6F 72 2C 31 2C 35 29 29 20 74 6F 20 72 uthor,1,5)) to r
00C040: 6F 6F 6D 73 0D 0A 20 20 20 20 20 20 72 65 70 6F ooms.. repo
00C050: 72 74 20 66 6F 72 6D 20 62 6F 6F 6B 73 20 74 6F rt form books to
00C060: 20 70 72 69 6E 74 0D 0A 20 20 65 6E 64 63 61 73 print.. endcas
00C070: 65 0D 0A 65 6E 64 64 6F 0D 0A 0D 0A 1A 1A 1A 1A e..enddo........
00C080: 65 63 74 20 74 6F 20 73 75 62 6A 65 63 74 78 0D ect to subjectx.
00C090: 0A 20 20 20 20 20 20 20 20 65 72 61 73 65 0D 0A . erase..
00C0A0: 20 20 20 20 20 20 20 20 40 20 20 31 2C 30 20 73 @ 1,0 s
00C0B0: 61 79 20 22 43 48 41 4E 47 45 20 44 45 54 41 49 ay "CHANGE DETAI
00C0C0: 4C 53 20 4F 46 20 41 20 42 4F 4F 4B 22 0D 0A 20 LS OF A BOOK"..
00C0D0: 20 20 20 20 20 20 20 40 20 20 35 2C 30 20 73 61 @ 5,0 sa
00C0E0: 79 20 22 54 69 74 6C 65 20 20 20 20 20 22 2B 74 y "Title "+t
00C0F0: 69 74 6C 65 78 31 0D 0A 20 20 20 20 20 20 20 20 itlex1..
00C100: 40 20 20 36 2C 30 20 73 61 79 20 22 20 20 20 20 @ 6,0 say "
00C110: 20 20 20 20 20 20 22 2B 74 69 74 6C 65 78 32 0D "+titlex2.
00C120: 0A 20 20 20 20 20 20 20 20 40 20 20 37 2C 30 20 . @ 7,0
00C130: 73 61 79 20 22 41 75 74 68 6F 72 20 20 20 20 22 say "Author "
00C140: 2B 61 75 74 68 6F 72 78 0D 0A 20 20 20 20 20 20 +authorx..
00C150: 20 20 40 20 20 38 2C 30 20 73 61 79 20 22 53 75 @ 8,0 say "Su
00C160: 62 6A 65 63 74 20 20 20 22 2B 73 75 62 6A 65 63 bject "+subjec
00C170: 74 78 0D 0A 20 20 20 20 20 20 20 20 40 20 20 39 tx.. @ 9
00C180: 2C 30 20 73 61 79 20 22 52 6F 6F 6D 20 20 20 20 ,0 say "Room
00C190: 20 20 22 2B 72 6F 6F 6D 78 0D 0A 20 20 20 20 20 "+roomx..
00C1A0: 20 20 20 40 20 31 30 2C 30 20 73 61 79 20 22 53 @ 10,0 say "S
00C1B0: 68 65 6C 66 20 20 20 20 20 22 2B 73 68 65 6C 66 helf "+shelf
00C1C0: 78 0D 0A 20 20 20 20 20 20 20 20 40 20 32 30 2C x.. @ 20,
00C1D0: 30 20 73 61 79 20 22 50 72 65 73 73 20 43 20 74 0 say "Press C t
00C1E0: 6F 20 63 68 61 6E 67 65 20 74 68 65 20 61 62 6F o change the abo
00C1F0: 76 65 20 20 20 22 0D 0A 20 20 20 20 20 20 20 20 ve "..
00C200: 61 73 65 20 70 72 65 73 73 20 61 6E 79 20 6B 65 ase press any ke
00C210: 79 20 74 6F 20 65 78 69 74 20 70 72 6F 67 72 61 y to exit progra
00C220: 6D 2E 20 27 0D 0A 20 20 40 20 32 31 2C 31 20 47 m. '.. @ 21,1 G
00C230: 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 52 45 41 ET M.TEMP.. REA
00C240: 44 0D 0A 20 20 43 4C 45 41 52 20 47 45 54 53 0D D.. CLEAR GETS.
00C250: 0A 20 20 40 20 32 30 2C 30 0D 0A 20 20 40 20 32 . @ 20,0.. @ 2
00C260: 31 2C 30 0D 0A 20 20 40 20 31 31 2C 32 37 20 53 1,0.. @ 11,27 S
00C270: 41 59 20 27 52 45 54 55 52 4E 49 4E 47 20 54 4F AY 'RETURNING TO
00C280: 20 4D 41 49 4E 20 4D 45 4E 55 27 0D 0A 20 20 40 MAIN MENU'.. @
00C290: 20 32 30 2C 31 0D 0A 20 20 53 54 4F 52 45 20 31 20,1.. STORE 1
00C2A0: 20 54 4F 20 43 0D 0A 20 20 44 4F 20 57 48 49 4C TO C.. DO WHIL
00C2B0: 45 20 43 20 3C 20 32 35 0D 0A 20 20 20 20 53 54 E C < 25.. ST
00C2C0: 4F 52 45 20 43 2B 31 20 54 4F 20 43 0D 0A 20 20 ORE C+1 TO C..
00C2D0: 45 4E 44 44 4F 0D 0A 52 45 54 55 52 4E 0D 0A 45 ENDDO..RETURN..E
00C2E0: 4E 44 49 46 0D 0A 40 20 31 31 2C 32 30 20 53 41 NDIF..@ 11,20 SA
00C2F0: 59 20 27 50 6C 65 61 73 65 20 57 61 69 74 20 2E Y 'Please Wait .
00C300: 2E 2E 20 6E 6F 77 20 6C 6F 61 64 69 6E 67 20 74 .. now loading t
00C310: 68 65 20 6E 65 78 74 20 57 65 6C 63 6F 6D 65 20 he next Welcome
00C320: 66 69 6C 65 27 0D 0A 40 20 32 30 2C 31 0D 0A 55 file'..@ 20,1..U
00C330: 53 45 20 46 52 4F 4E 41 2E 44 46 4C 0D 0A 43 4F SE FRONA.DFL..CO
00C340: 50 59 20 54 4F 20 54 45 4D 50 2E 44 42 46 20 53 PY TO TEMP.DBF S
00C350: 54 52 55 0D 0A 55 53 45 20 54 45 4D 50 0D 0A 40 TRU..USE TEMP..@
00C360: 20 31 31 2C 30 0D 0A 40 20 34 2C 30 0D 0A 54 45 11,0..@ 4,0..TE
00C370: 58 54 0D 0A 20 20 20 20 20 59 6F 75 20 77 6F 75 XT.. You wou
00C380: 6C 64 20 63 72 65 61 74 65 20 61 20 66 69 6C 65 ld create a file
00C390: 20 69 6E 20 64 42 41 53 45 20 49 49 20 62 79 20 in dBASE II by
00C3A0: 74 79 70 69 6E 67 0D 0A 0D 0A 20 20 20 20 20 20 typing....
00C3B0: 2E 20 43 52 45 41 54 45 20 3C 66 69 6C 65 6E 61 . CREATE <filena
00C3C0: 6D 65 3E 0D 0A 0D 0A 20 20 20 20 20 54 6F 20 68 me>.... To h
00C3D0: 65 6C 70 20 79 6F 75 20 61 6C 6F 6E 67 20 49 20 elp you along I
00C3E0: 68 61 76 65 20 61 6C 72 65 61 64 79 20 65 6E 74 have already ent
00C3F0: 65 72 65 64 20 74 68 65 20 43 52 45 41 54 45 20 ered the CREATE
00C400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C600: 2D 0D 0A 20 20 20 20 20 73 68 6F 77 6E 20 62 65 -.. shown be
00C610: 6C 6F 77 20 74 68 65 20 6C 69 6E 65 2E 0D 0A 0D low the line....
00C620: 0A 20 20 20 20 20 4E 6F 77 20 63 68 6F 73 65 20 . Now chose
00C630: 61 20 6E 61 6D 65 20 66 6F 72 20 79 6F 75 72 20 a name for your
00C640: 66 69 6C 65 2E 20 41 20 64 42 41 53 45 20 49 49 file. A dBASE II
00C650: 20 66 69 6C 65 6E 61 6D 65 20 73 68 6F 75 6C 64 filename should
00C660: 20 0D 0A 20 20 20 20 20 62 65 20 6E 6F 20 6D 6F .. be no mo
00C670: 72 65 20 74 68 61 6E 20 38 20 63 68 61 72 61 63 re than 8 charac
00C680: 74 65 72 73 20 6C 6F 6E 67 2E 54 68 65 20 66 69 ters long.The fi
00C690: 72 73 74 20 63 68 61 72 61 63 74 65 72 20 73 68 rst character sh
00C6A0: 6F 75 6C 64 20 0D 0A 20 20 20 20 20 62 65 20 61 ould .. be a
00C6B0: 6E 20 41 6C 70 68 61 20 28 20 41 2D 5A 20 29 2C n Alpha ( A-Z ),
00C6C0: 77 69 74 68 20 6E 6F 20 73 70 61 63 65 73 20 69 with no spaces i
00C6D0: 6E 20 74 68 65 20 66 69 6C 65 6E 61 6D 65 2E 20 n the filename.
00C6E0: 0D 0A 20 20 20 20 20 54 68 65 20 65 78 74 65 6E .. The exten
00C6F0: 73 69 6F 6E 20 6F 66 20 74 68 65 20 66 69 6C 65 sion of the file
00C700: 6E 61 6D 65 20 77 69 6C 6C 20 61 75 74 6F 6D 61 name will automa
00C710: 74 69 63 61 6C 79 20 62 65 20 28 2E 44 42 46 20 ticaly be (.DBF
00C720: 29 2E 20 0D 0A 20 20 20 20 20 20 0D 0A 45 4E 44 ). .. ..END
00C730: 54 45 58 54 0D 0A 40 20 32 33 2C 30 20 53 41 59 TEXT..@ 23,0 SAY
00C740: 20 22 2E 20 43 52 45 41 54 45 22 0D 0A 53 54 4F ". CREATE"..STO
00C750: 52 45 20 27 20 20 20 20 20 20 20 20 27 20 54 4F RE ' ' TO
00C760: 20 43 46 49 4C 45 0D 0A 53 54 4F 52 45 20 46 20 CFILE..STORE F
00C770: 54 4F 20 56 41 4C 49 44 0D 0A 44 4F 20 57 48 49 TO VALID..DO WHI
00C780: 4C 45 20 2E 4E 4F 54 2E 20 4D 2E 56 41 4C 49 44 LE .NOT. M.VALID
00C790: 0D 0A 20 20 40 20 32 33 2C 39 20 53 41 59 20 4D .. @ 23,9 SAY M
00C7A0: 2E 42 4C 41 4E 4B 0D 0A 20 20 40 20 31 37 2C 35 .BLANK.. @ 17,5
00C7B0: 20 53 41 59 20 27 50 6C 65 61 73 65 20 65 6E 74 SAY 'Please ent
00C7C0: 65 72 20 66 69 6C 65 20 6E 61 6D 65 2E 20 27 20 er file name. '
00C7D0: 47 45 54 20 4D 2E 43 46 49 4C 45 20 50 49 43 54 GET M.CFILE PICT
00C7E0: 20 27 21 21 21 21 21 21 21 21 27 0D 0A 20 20 52 '!!!!!!!!'.. R
00C7F0: 45 41 44 0D 0A 20 20 43 4C 45 41 52 20 47 45 54 EAD.. CLEAR GET
00C800: 02 00 00 01 01 50 12 00 46 49 45 4C 44 3A 4E 41 .....P..FIELD:NA
00C810: 4D 45 00 43 0A E9 B1 00 46 49 45 4C 44 3A 54 59 ME.C....FIELD:TY
00C820: 50 45 00 43 01 F3 B1 00 46 49 45 4C 44 3A 4C 45 PE.C....FIELD:LE
00C830: 4E 00 00 4E 03 F4 B1 00 46 49 45 4C 44 3A 44 45 N..N....FIELD:DE
00C840: 43 00 00 4E 03 F7 B1 00 0D 00 00 00 00 00 00 00 C..N............
00C850: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C8A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C8B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C8C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C8D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C8E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C8F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C900: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C910: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C920: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C930: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C940: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C950: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C9A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C9B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C9C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C9D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C9E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C9F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00CA00: 53 0D 0A 20 20 49 46 20 4D 2E 43 46 49 4C 45 20 S.. IF M.CFILE
00CA10: 3D 20 27 20 20 20 20 20 20 20 20 27 0D 0A 20 20 = ' '..
00CA20: 20 20 45 52 41 53 45 0D 0A 54 45 58 54 0D 0A 0D ERASE..TEXT...
00CA30: 0A 57 45 4C 43 4F 4D 45 20 20 20 20 20 20 20 20 .WELCOME
00CA40: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 52 45 CRE
00CA50: 41 54 45 20 41 20 44 41 54 41 42 41 53 45 20 46 ATE A DATABASE F
00CA60: 49 4C 45 20 20 20 20 20 20 20 20 20 20 20 20 20 ILE
00CA70: 20 20 20 20 20 20 20 64 42 41 53 45 20 49 49 0D dBASE II.
00CA80: 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D .---------------
00CA90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00CAA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00CAB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00CAC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00CAD0: 0D 0A 45 4E 44 54 45 58 54 0D 0A 40 20 32 32 2C ..ENDTEXT..@ 22,
00CAE0: 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 1 SAY '---------
00CAF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00CB00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00CB10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00CB20: 2D 2D 2D 2D 2D 27 20 3B 0D 0A 20 20 20 20 20 20 -----' ;..
00CB30: 20 20 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D + '----------
00CB40: 2D 2D 2D 2D 2D 27 0D 0A 20 20 20 20 40 20 31 31 -----'.. @ 11
00CB50: 2C 32 37 20 53 41 59 20 27 52 45 54 55 52 4E 49 ,27 SAY 'RETURNI
00CB60: 4E 47 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 27 NG TO MAIN MENU'
00CB70: 0D 0A 20 20 20 20 40 20 32 30 2C 31 0D 0A 20 20 .. @ 20,1..
00CB80: 20 20 53 54 4F 52 45 20 31 20 54 4F 20 43 0D 0A STORE 1 TO C..
00CB90: 20 20 20 20 44 4F 20 57 48 49 4C 45 20 43 20 3C DO WHILE C <
00CBA0: 20 32 35 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 25.. STORE
00CBB0: 20 43 2B 31 20 54 4F 20 43 0D 0A 20 20 20 20 45 C+1 TO C.. E
00CBC0: 4E 44 44 4F 0D 0A 20 20 20 20 53 45 4C 45 20 53 NDDO.. SELE S
00CBD0: 45 43 4F 0D 0A 20 20 20 20 55 53 45 0D 0A 20 20 ECO.. USE..
00CBE0: 20 20 53 45 4C 45 20 50 52 49 4D 0D 0A 20 20 20 SELE PRIM..
00CBF0: 20 55 53 45 20 26 4D 46 49 4C 45 20 0D 0A 20 20 USE &MFILE ..
00CC00: 00 00 00 00 00 00 00 00 00 1A 0A 20 20 52 45 41 ........... REA
00CC10: 44 0D 0A 20 20 43 4C 45 41 20 47 45 54 53 0D 0A D.. CLEA GETS..
00CC20: 45 4E 44 44 4F 0D 0A 45 52 41 53 0D 0A 40 20 31 ENDDO..ERAS..@ 1
00CC30: 30 2C 32 34 20 53 41 59 20 27 52 45 54 55 52 4E 0,24 SAY 'RETURN
00CC40: 49 4E 47 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 ING TO MAIN MENU
00CC50: 27 0D 0A 53 54 4F 52 45 20 30 20 54 4F 20 50 41 '..STORE 0 TO PA
00CC60: 55 53 45 0D 0A 44 4F 20 57 48 49 4C 45 20 50 41 USE..DO WHILE PA
00CC70: 55 53 45 20 3C 20 35 30 0D 0A 20 20 53 54 4F 52 USE < 50.. STOR
00CC80: 45 20 50 41 55 53 45 2B 31 20 54 4F 20 50 41 55 E PAUSE+1 TO PAU
00CC90: 53 45 0D 0A 45 4E 44 44 4F 0D 0A 52 45 4C 45 20 SE..ENDDO..RELE
00CCA0: 41 4C 4C 20 45 58 43 45 50 54 20 4D 46 49 4C 45 ALL EXCEPT MFILE
00CCB0: 0D 0A 52 45 54 55 52 4E 0D 0A 1A 1A 1A 1A 1A 1A ..RETURN........
00CCC0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00CCD0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00CCE0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00CCF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00CD00: 20 20 20 20 20 59 6F 75 20 77 6F 75 6C 64 20 64 You would d
00CD10: 65 6C 65 74 65 20 61 20 66 69 6C 65 20 69 6E 20 elete a file in
00CD20: 64 42 61 73 65 20 49 49 20 62 79 20 74 79 70 69 dBase II by typi
00CD30: 6E 67 2E 2E 2E 2E 20 0D 0A 0D 0A 2E 20 44 45 4C ng.... ..... DEL
00CD40: 45 54 45 20 46 49 4C 45 20 3C 66 69 6C 65 6E 61 ETE FILE <filena
00CD50: 6D 65 3E 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 me>....
00CD60: 20 20 20 20 64 42 61 73 65 20 49 49 20 77 69 6C dBase II wil
00CD70: 6C 20 72 65 74 75 72 6E 20 77 69 74 68 2E 2E 2E l return with...
00CD80: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E ................
00CD90: 2E 2E 2E 2E 2E 0D 0A 0D 0A 2E 20 46 49 4C 45 20 .......... FILE
00CDA0: 48 41 53 20 42 45 45 4E 20 44 45 4C 45 54 45 44 HAS BEEN DELETED
00CDB0: 20 0D 0A 45 4E 44 54 45 58 54 0D 0A 40 20 31 39 ..ENDTEXT..@ 19
00CDC0: 2C 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D 2D 2D ,1 SAY '--------
00CDD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00CDE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00CDF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00CE00: 20 20 44 45 4C 45 54 45 20 46 49 4C 45 20 54 45 DELETE FILE TE
00CE10: 4D 50 2E 44 42 46 0D 0A 20 20 20 20 52 45 4C 45 MP.DBF.. RELE
00CE20: 41 53 45 20 41 4C 4C 20 45 58 43 45 50 54 20 4D ASE ALL EXCEPT M
00CE30: 46 49 4C 45 0D 0A 20 20 20 20 52 45 54 55 52 4E FILE.. RETURN
00CE40: 0D 0A 20 20 45 4E 44 49 46 20 5B 20 42 6C 61 6E .. ENDIF [ Blan
00CE50: 6B 20 66 69 6C 65 20 6E 61 6D 65 20 5D 0D 0A 20 k file name ]..
00CE60: 20 53 54 4F 52 45 20 54 52 49 4D 28 4D 2E 43 46 STORE TRIM(M.CF
00CE70: 49 4C 45 29 20 54 4F 20 4D 54 45 53 54 20 0D 0A ILE) TO MTEST ..
00CE80: 20 20 53 54 4F 52 45 20 27 20 27 20 54 4F 20 45 STORE ' ' TO E
00CE90: 52 52 31 2C 45 52 52 32 0D 0A 20 20 53 54 4F 52 RR1,ERR2.. STOR
00CEA0: 45 20 54 20 54 4F 20 4D 53 47 0D 0A 20 20 49 46 E T TO MSG.. IF
00CEB0: 20 2E 4E 4F 54 2E 20 24 28 4D 2E 4D 54 45 53 54 .NOT. $(M.MTEST
00CEC0: 2C 31 2C 31 29 24 27 41 42 43 44 45 46 47 48 49 ,1,1)$'ABCDEFGHI
00CED0: 4A 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 57 58 59 JKLMNOPQRSTUVWXY
00CEE0: 5A 27 0D 0A 20 20 20 20 53 54 4F 52 45 20 46 20 Z'.. STORE F
00CEF0: 54 4F 20 4D 53 47 0D 0A 20 20 20 20 53 54 4F 52 TO MSG.. STOR
00CF00: 45 20 45 52 52 31 2B 27 5E 27 20 54 4F 20 45 52 E ERR1+'^' TO ER
00CF10: 52 31 0D 0A 20 20 20 20 53 54 4F 52 45 20 45 52 R1.. STORE ER
00CF20: 52 32 2B 27 21 27 20 54 4F 20 45 52 52 32 20 0D R2+'!' TO ERR2 .
00CF30: 0A 20 20 20 45 4C 53 45 0D 0A 20 20 20 20 53 54 . ELSE.. ST
00CF40: 4F 52 45 20 45 52 52 31 2B 27 20 27 20 54 4F 20 ORE ERR1+' ' TO
00CF50: 45 52 52 31 0D 0A 20 20 20 20 53 54 4F 52 45 20 ERR1.. STORE
00CF60: 45 52 52 32 2B 27 20 27 20 54 4F 20 45 52 52 32 ERR2+' ' TO ERR2
00CF70: 0D 0A 20 20 45 4E 44 49 46 0D 0A 20 20 53 54 4F .. ENDIF.. STO
00CF80: 52 45 20 32 20 54 4F 20 43 0D 0A 20 20 44 4F 20 RE 2 TO C.. DO
00CF90: 57 48 49 4C 45 20 43 20 3C 3D 20 4C 45 4E 28 4D WHILE C <= LEN(M
00CFA0: 2E 4D 54 45 53 54 29 0D 0A 20 20 20 20 49 46 20 .MTEST).. IF
00CFB0: 2E 4E 4F 54 2E 20 24 28 4D 2E 4D 54 45 53 54 2C .NOT. $(M.MTEST,
00CFC0: 43 2C 31 29 24 27 41 42 43 44 45 46 47 48 49 4A C,1)$'ABCDEFGHIJ
00CFD0: 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 57 58 59 5A KLMNOPQRSTUVWXYZ
00CFE0: 30 31 32 33 34 35 36 37 38 39 27 0D 0A 20 20 20 0123456789'..
00CFF0: 20 20 20 53 54 4F 52 45 20 45 52 52 31 2B 27 5E STORE ERR1+'^
00D000: 53 45 54 20 54 41 4C 4B 20 4F 46 46 0D 0A 53 54 SET TALK OFF..ST
00D010: 4F 52 45 20 27 20 20 20 20 20 20 20 20 20 20 20 ORE '
00D020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00D030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00D040: 20 20 20 20 20 20 20 20 20 20 20 20 20 27 20 54 ' T
00D050: 4F 20 42 4C 41 4E 4B 0D 0A 45 52 41 53 45 0D 0A O BLANK..ERASE..
00D060: 54 45 58 54 0D 0A 0D 0A 57 45 4C 43 4F 4D 45 20 TEXT....WELCOME
00D070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00D080: 20 20 20 20 43 52 45 41 54 45 20 41 20 44 41 54 CREATE A DAT
00D090: 41 42 41 53 45 20 46 49 4C 45 20 20 20 20 20 20 ABASE FILE
00D0A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 42 dB
00D0B0: 41 53 45 20 49 49 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D ASE II..--------
00D0C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00D0D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00D0E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00D0F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00D100: 2D 2D 2D 2D 2D 2D 2D 0D 0A 45 4E 44 54 45 58 54 -------..ENDTEXT
00D110: 0D 0A 40 20 32 32 2C 31 20 53 41 59 20 27 2D 2D ..@ 22,1 SAY '--
00D120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00D130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00D140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00D150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20 3B 0D ------------' ;.
00D160: 0A 20 20 20 20 20 20 20 20 20 2B 20 27 2D 2D 2D . + '---
00D170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 49 ------------'..I
00D180: 46 20 2E 4E 4F 54 2E 20 46 49 4C 45 20 28 20 27 F .NOT. FILE ( '
00D190: 46 52 4F 4E 41 2E 44 46 4C 27 20 29 0D 0A 20 20 FRONA.DFL' )..
00D1A0: 53 54 4F 52 45 20 27 20 27 20 54 4F 20 54 45 4D STORE ' ' TO TEM
00D1B0: 50 0D 0A 20 20 40 20 32 30 2C 35 20 53 41 59 20 P.. @ 20,5 SAY
00D1C0: 27 45 52 52 4F 52 20 2E 2E 2E 20 20 44 61 74 61 'ERROR ... Data
00D1D0: 20 46 69 6C 65 20 22 46 52 4F 4E 41 2E 44 46 4C File "FRONA.DFL
00D1E0: 22 20 6E 6F 74 20 66 6F 75 6E 64 2E 27 0D 0A 20 " not found.'..
00D1F0: 20 40 20 32 31 2C 35 20 53 41 59 20 27 50 6C 65 @ 21,5 SAY 'Ple
00D200: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00D210: 0B 00 01 00 02 09 52 E5 0B 00 41 02 00 00 00 02 ......R...A.....
00D220: 0B 00 46 02 00 00 00 02 0B 00 42 02 00 00 00 02 ..F.......B.....
00D230: 0B 00 47 02 00 00 00 02 0B 00 43 02 00 00 00 02 ..G.......C.....
00D240: 0B 00 48 02 00 00 00 02 0B 00 44 02 00 00 00 02 ..H.......D.....
00D250: 0B 00 49 02 00 00 00 02 0B 00 45 02 00 00 00 02 ..I.......E.....
00D260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D300: 27 20 54 4F 20 45 52 52 31 0D 0A 20 20 20 20 20 ' TO ERR1..
00D310: 20 53 54 4F 52 45 20 45 52 52 32 2B 27 21 27 20 STORE ERR2+'!'
00D320: 54 4F 20 45 52 52 32 0D 0A 20 20 20 20 20 20 53 TO ERR2.. S
00D330: 54 4F 52 45 20 46 20 54 4F 20 4D 53 47 0D 0A 20 TORE F TO MSG..
00D340: 20 20 20 20 45 4C 53 45 0D 0A 20 20 20 20 20 20 ELSE..
00D350: 53 54 4F 52 45 20 45 52 52 31 2B 27 20 27 20 54 STORE ERR1+' ' T
00D360: 4F 20 45 52 52 31 0D 0A 20 20 20 20 20 20 53 54 O ERR1.. ST
00D370: 4F 52 45 20 45 52 52 32 2B 27 20 27 20 54 4F 20 ORE ERR2+' ' TO
00D380: 45 52 52 32 0D 0A 20 20 20 20 45 4E 44 49 46 0D ERR2.. ENDIF.
00D390: 0A 20 20 20 20 53 54 4F 52 45 20 43 2B 31 20 54 . STORE C+1 T
00D3A0: 4F 20 43 0D 0A 20 20 45 4E 44 44 4F 0D 0A 20 20 O C.. ENDDO..
00D3B0: 49 46 20 4D 2E 4D 53 47 20 20 20 0D 0A 20 20 20 IF M.MSG ..
00D3C0: 20 40 20 32 33 2C 39 20 53 41 59 20 4D 2E 4D 54 @ 23,9 SAY M.MT
00D3D0: 45 53 54 0D 0A 20 20 20 45 4C 53 45 0D 0A 20 20 EST.. ELSE..
00D3E0: 20 20 40 20 31 38 2C 32 38 20 53 41 59 20 45 52 @ 18,28 SAY ER
00D3F0: 52 31 2B 27 20 20 20 20 20 20 20 20 20 20 20 27 R1+' '
00D400: 0D 0A 20 20 20 20 40 20 31 39 2C 32 38 20 53 41 .. @ 19,28 SA
00D410: 59 20 45 52 52 32 2B 27 20 20 20 20 20 20 20 20 Y ERR2+'
00D420: 20 20 20 27 0D 0A 20 20 20 20 40 20 32 31 2C 35 '.. @ 21,5
00D430: 20 53 41 59 20 27 49 6C 6C 65 67 61 6C 20 63 68 SAY 'Illegal ch
00D440: 61 72 61 63 74 65 72 20 69 6E 20 74 68 65 20 46 aracter in the F
00D450: 69 6C 65 20 4E 61 6D 65 20 2D 20 70 72 65 73 73 ile Name - press
00D460: 20 61 6E 79 20 6B 65 79 3B 0D 0A 20 74 6F 20 20 any key;.. to
00D470: 72 65 74 72 79 27 0D 0A 20 20 20 20 53 54 4F 52 retry'.. STOR
00D480: 45 20 27 20 27 20 54 4F 20 54 45 4D 50 0D 0A 20 E ' ' TO TEMP..
00D490: 20 20 20 40 20 32 31 2C 31 20 47 45 54 20 4D 2E @ 21,1 GET M.
00D4A0: 54 45 4D 50 0D 0A 20 20 20 20 52 45 41 44 0D 0A TEMP.. READ..
00D4B0: 20 20 20 20 43 4C 45 41 52 20 47 45 54 53 0D 0A CLEAR GETS..
00D4C0: 20 20 20 20 53 54 4F 52 45 20 27 20 20 20 20 20 STORE '
00D4D0: 20 20 20 27 20 54 4F 20 43 46 49 4C 45 0D 0A 20 ' TO CFILE..
00D4E0: 20 20 20 40 20 31 37 2C 30 0D 0A 20 20 20 20 40 @ 17,0.. @
00D4F0: 20 31 38 2C 30 0D 0A 20 20 20 20 40 20 31 39 2C 18,0.. @ 19,
00D500: 32 32 20 2E 41 4E 44 2E 20 4D 2E 43 4F 4E 54 0D 22 .AND. M.CONT.
00D510: 0A 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A . *************
00D520: 2A 2A 2A 2A 20 4D 4A 47 20 2D 20 31 39 2F 30 37 **** MJG - 19/07
00D530: 2F 38 34 0D 0A 20 20 69 66 20 72 65 63 6C 65 6E /84.. if reclen
00D540: 20 3D 20 31 30 30 30 0D 0A 20 20 20 20 73 74 6F = 1000.. sto
00D550: 72 65 20 66 20 74 6F 20 63 6F 6E 74 0D 0A 20 20 re f to cont..
00D560: 20 20 40 20 32 30 2C 35 20 73 61 79 20 27 59 6F @ 20,5 say 'Yo
00D570: 75 20 68 61 76 65 20 72 65 61 63 68 65 64 20 74 u have reached t
00D580: 68 65 20 31 30 30 30 20 63 68 61 72 61 63 74 65 he 1000 characte
00D590: 72 20 6C 69 6D 69 74 2E 27 0D 0A 20 20 20 20 40 r limit.'.. @
00D5A0: 20 32 31 2C 35 20 73 61 79 20 27 49 20 63 61 6E 21,5 say 'I can
00D5B0: 20 6E 6F 74 20 74 68 65 72 65 66 6F 72 65 20 61 not therefore a
00D5C0: 6C 6C 6F 77 20 79 6F 75 20 74 6F 20 61 64 64 20 llow you to add
00D5D0: 61 20 66 75 72 74 68 65 72 20 66 69 65 6C 64 2E a further field.
00D5E0: 2E 2E 27 0D 0A 20 20 20 20 53 54 4F 52 45 20 31 ..'.. STORE 1
00D5F0: 20 54 4F 20 43 0D 0A 20 20 20 20 44 4F 20 57 48 TO C.. DO WH
00D600: 49 4C 45 20 43 20 3C 20 34 30 0D 0A 20 20 20 20 ILE C < 40..
00D610: 20 20 20 53 54 4F 52 45 20 43 20 2B 20 31 20 54 STORE C + 1 T
00D620: 4F 20 43 0D 0A 20 20 20 20 45 4E 44 44 4F 0D 0A O C.. ENDDO..
00D630: 20 20 20 20 45 52 41 53 45 0D 0A 54 45 58 54 0D ERASE..TEXT.
00D640: 0A 0D 0A 57 45 4C 43 4F 4D 45 20 20 20 20 20 20 ...WELCOME
00D650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 C
00D660: 52 45 41 54 45 20 41 20 44 41 54 41 42 41 53 45 REATE A DATABASE
00D670: 20 46 49 4C 45 20 20 20 20 20 20 20 20 20 20 20 FILE
00D680: 20 20 20 20 20 20 20 20 20 64 42 41 53 45 20 49 dBASE I
00D690: 49 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D I..-------------
00D6A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00D6B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00D6C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00D6D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00D6E0: 2D 2D 0D 0A 45 4E 44 54 45 58 54 0D 0A 40 20 32 --..ENDTEXT..@ 2
00D6F0: 32 2C 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D 2D 2,1 SAY '-------
00D700: 30 0D 0A 20 20 20 20 40 20 32 30 2C 30 0D 0A 20 0.. @ 20,0..
00D710: 20 20 20 40 20 32 31 2C 31 0D 0A 20 20 20 20 4C @ 21,1.. L
00D720: 4F 4F 50 0D 0A 20 20 45 4E 44 49 46 0D 0A 20 20 OOP.. ENDIF..
00D730: 49 46 20 46 49 4C 45 28 27 26 4D 54 45 53 54 27 IF FILE('&MTEST'
00D740: 29 0D 0A 20 20 20 20 40 20 31 39 2C 35 20 53 41 ).. @ 19,5 SA
00D750: 59 20 27 2A 2A 57 41 52 4E 49 4E 47 2A 2A 20 59 Y '**WARNING** Y
00D760: 6F 75 20 61 72 65 20 74 72 79 69 6E 67 20 74 6F ou are trying to
00D770: 20 63 72 65 61 74 65 20 61 20 66 69 6C 65 20 74 create a file t
00D780: 68 61 74 20 61 6C 72 65 61 64 79 20 27 20 3B 0D hat already ' ;.
00D790: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 2B 20 . +
00D7A0: 27 65 78 69 73 74 73 27 0D 0A 20 20 20 20 40 20 'exists'.. @
00D7B0: 32 30 2C 35 20 53 41 59 20 27 64 42 61 73 65 20 20,5 SAY 'dBase
00D7C0: 49 49 20 77 69 6C 6C 20 4E 4F 54 20 63 68 65 63 II will NOT chec
00D7D0: 6B 20 74 68 69 73 20 66 6F 72 20 79 6F 75 2E 27 k this for you.'
00D7E0: 0D 0A 20 20 20 20 53 54 4F 52 45 20 27 20 27 20 .. STORE ' '
00D7F0: 54 4F 20 52 45 53 50 0D 0A 20 20 20 20 53 54 4F TO RESP.. STO
00D800: 52 45 20 59 20 54 4F 20 4D 46 49 52 53 54 0D 0A RE Y TO MFIRST..
00D810: 20 20 20 20 44 4F 20 57 48 49 4C 45 20 2E 4E 4F DO WHILE .NO
00D820: 54 2E 20 4D 2E 52 45 53 50 24 27 43 52 27 0D 0A T. M.RESP$'CR'..
00D830: 20 20 20 20 20 20 53 54 4F 52 45 20 27 20 27 20 STORE ' '
00D840: 54 4F 20 52 45 53 50 0D 0A 20 20 20 20 20 20 40 TO RESP.. @
00D850: 20 32 31 2C 31 0D 0A 20 20 20 20 20 20 40 20 32 21,1.. @ 2
00D860: 31 2C 35 20 53 41 59 20 27 44 6F 20 79 6F 75 20 1,5 SAY 'Do you
00D870: 77 69 73 68 20 74 6F 20 28 43 29 6F 6E 74 69 6E wish to (C)ontin
00D880: 75 65 20 28 52 29 65 74 72 79 20 27 20 0D 0A 20 ue (R)etry ' ..
00D890: 20 20 20 20 20 40 20 32 31 2C 31 20 47 45 54 20 @ 21,1 GET
00D8A0: 4D 2E 52 45 53 50 20 50 49 43 54 20 27 21 27 0D M.RESP PICT '!'.
00D8B0: 0A 20 20 20 20 20 20 49 46 20 2E 4E 4F 54 2E 20 . IF .NOT.
00D8C0: 4D 2E 4D 46 49 52 53 54 0D 0A 20 20 20 20 20 20 M.MFIRST..
00D8D0: 20 20 20 40 20 32 31 2C 34 35 20 53 41 59 20 27 @ 21,45 SAY '
00D8E0: 3C 2D 20 53 65 6C 65 63 74 69 6F 6E 20 49 6E 76 <- Selection Inv
00D8F0: 61 6C 69 64 20 27 0D 0A 20 20 20 20 20 20 45 4C alid '.. EL
00D900: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00D910: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00D920: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00D930: 2D 2D 2D 2D 2D 2D 2D 27 20 3B 0D 0A 20 20 20 20 -------' ;..
00D940: 20 20 20 20 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D 2D + '--------
00D950: 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 20 20 20 20 20 40 -------'.. @
00D960: 20 32 33 2C 35 20 53 41 59 20 27 59 6F 75 72 20 23,5 SAY 'Your
00D970: 46 69 6C 65 20 48 61 73 20 42 65 65 6E 20 43 72 File Has Been Cr
00D980: 65 61 74 65 64 20 41 73 20 22 26 43 46 49 4C 45 eated As "&CFILE
00D990: 2E 2E 44 42 46 22 27 20 0D 0A 20 20 20 20 20 40 ..DBF"' .. @
00D9A0: 20 32 31 2C 35 20 53 41 59 20 27 50 6C 65 61 73 21,5 SAY 'Pleas
00D9B0: 65 20 57 61 69 74 20 2E 2E 2E 20 53 61 76 69 6E e Wait ... Savin
00D9C0: 67 20 53 74 72 75 63 74 75 72 65 2E 27 0D 0A 20 g Structure.'..
00D9D0: 20 20 20 20 40 20 32 30 2C 31 20 0D 0A 20 20 20 @ 20,1 ..
00D9E0: 20 20 6C 6F 6F 70 0D 0A 20 20 65 6E 64 69 66 0D loop.. endif.
00D9F0: 0A 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A . *************
00DA00: 2A 2A 2A 2A 20 0D 0A 0D 0A 20 20 49 46 20 4D 2E **** .... IF M.
00DA10: 4C 49 4E 45 3E 31 36 0D 0A 20 20 20 20 53 54 4F LINE>16.. STO
00DA20: 52 45 20 27 30 27 2B 53 54 52 28 28 4C 49 4E 45 RE '0'+STR((LINE
00DA30: 2D 37 29 2C 32 29 20 54 4F 20 46 49 45 4C 44 3A -7),2) TO FIELD:
00DA40: 4E 4F 0D 0A 20 20 20 45 4C 53 45 0D 0A 20 20 20 NO.. ELSE..
00DA50: 20 53 54 4F 52 45 20 27 30 30 27 2B 53 54 52 28 STORE '00'+STR(
00DA60: 28 4C 49 4E 45 2D 37 29 2C 31 29 20 54 4F 20 46 (LINE-7),1) TO F
00DA70: 49 45 4C 44 3A 4E 4F 0D 0A 20 20 45 4E 44 49 46 IELD:NO.. ENDIF
00DA80: 0D 0A 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A .. ************
00DA90: 2A 2A 0D 0A 20 20 2A 20 46 49 45 4C 44 20 4E 41 **.. * FIELD NA
00DAA0: 4D 45 20 2A 0D 0A 20 20 2A 2A 2A 2A 2A 2A 2A 2A ME *.. ********
00DAB0: 2A 2A 2A 2A 2A 2A 0D 0A 20 20 40 20 4C 49 4E 45 ******.. @ LINE
00DAC0: 2D 4F 46 46 53 45 54 2C 30 20 53 41 59 20 4D 2E -OFFSET,0 SAY M.
00DAD0: 46 49 45 4C 44 3A 4E 4F 0D 0A 20 20 3F 20 27 20 FIELD:NO.. ? '
00DAE0: 20 20 20 20 20 20 20 20 20 5E 20 2D 2D 2D 2D 20 ^ ----
00DAF0: 74 68 65 20 63 75 72 73 6F 72 20 69 73 20 70 6F the cursor is po
00DB00: 53 45 0D 0A 20 20 20 20 20 20 20 20 20 53 54 4F SE.. STO
00DB10: 52 45 20 4E 20 54 4F 20 4D 46 49 52 53 54 0D 0A RE N TO MFIRST..
00DB20: 20 20 20 20 20 20 45 4E 44 49 46 0D 0A 20 20 20 ENDIF..
00DB30: 20 20 20 52 45 41 44 0D 0A 20 20 20 20 20 20 40 READ.. @
00DB40: 20 31 37 2C 30 0D 0A 20 20 20 20 20 20 40 20 31 17,0.. @ 1
00DB50: 38 2C 30 0D 0A 20 20 20 20 20 20 40 20 31 39 2C 8,0.. @ 19,
00DB60: 30 0D 0A 20 20 20 20 20 20 40 20 32 30 2C 30 0D 0.. @ 20,0.
00DB70: 0A 20 20 20 20 20 20 40 20 32 31 2C 31 0D 0A 20 . @ 21,1..
00DB80: 20 20 20 45 4E 44 44 4F 0D 0A 20 20 20 20 43 4C ENDDO.. CL
00DB90: 45 41 52 20 47 45 54 53 0D 0A 20 20 20 20 49 46 EAR GETS.. IF
00DBA0: 20 4D 2E 52 45 53 50 20 3D 20 27 52 27 0D 0A 20 M.RESP = 'R'..
00DBB0: 20 20 20 20 20 53 54 4F 52 45 20 27 20 20 20 20 STORE '
00DBC0: 20 20 20 20 27 20 54 4F 20 43 46 49 4C 45 0D 0A ' TO CFILE..
00DBD0: 20 20 20 20 20 20 4C 4F 4F 50 20 20 0D 0A 20 20 LOOP ..
00DBE0: 20 20 45 4E 44 49 46 20 5B 20 72 65 74 75 72 6E ENDIF [ return
00DBF0: 20 74 6F 20 6D 61 69 6E 20 6D 65 6E 75 20 2E 2E to main menu ..
00DC00: 20 74 65 72 6D 69 6E 61 74 69 6F 6E 20 6F 66 20 termination of
00DC10: 63 72 65 61 74 65 20 5D 0D 0A 20 20 45 4E 44 49 create ].. ENDI
00DC20: 46 0D 0A 20 20 45 52 41 53 45 0D 0A 54 45 58 54 F.. ERASE..TEXT
00DC30: 0D 0A 0D 0A 57 45 4C 43 4F 4D 45 20 20 20 20 20 ....WELCOME
00DC40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00DC50: 43 52 45 41 54 45 20 41 20 44 41 54 41 42 41 53 CREATE A DATABAS
00DC60: 45 20 46 49 4C 45 20 20 20 20 20 20 20 20 20 20 E FILE
00DC70: 20 20 20 20 20 20 20 20 20 20 64 42 41 53 45 20 dBASE
00DC80: 49 49 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D II..------------
00DC90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00DCA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00DCB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00DCC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00DCD0: 2D 2D 2D 0D 0A 45 4E 44 54 45 58 54 0D 0A 40 20 ---..ENDTEXT..@
00DCE0: 32 32 2C 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D 22,1 SAY '------
00DCF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00DD00: 73 69 74 69 6F 6E 65 64 20 68 65 72 65 20 2E 2E sitioned here ..
00DD10: 2E 27 0D 0A 20 20 53 54 4F 52 45 20 27 20 20 20 .'.. STORE '
00DD20: 20 20 20 20 20 20 20 27 20 54 4F 20 4D 46 0D 0A ' TO MF..
00DD30: 20 20 53 54 4F 52 45 20 46 20 54 4F 20 43 4E 41 STORE F TO CNA
00DD40: 4D 45 0D 0A 20 20 44 4F 20 57 48 49 4C 45 20 2E ME.. DO WHILE .
00DD50: 4E 4F 54 2E 20 4D 2E 43 4E 41 4D 45 0D 0A 20 20 NOT. M.CNAME..
00DD60: 20 20 40 20 31 36 2C 35 20 53 41 59 20 27 59 6F @ 16,5 SAY 'Yo
00DD70: 75 20 61 72 65 20 6E 6F 77 20 65 78 70 65 63 74 u are now expect
00DD80: 65 64 20 74 6F 20 67 69 76 65 20 61 20 6E 61 6D ed to give a nam
00DD90: 65 20 66 6F 72 20 74 68 69 73 20 66 69 65 6C 64 e for this field
00DDA0: 2E 27 0D 0A 20 20 20 20 40 20 31 37 2C 35 20 53 .'.. @ 17,5 S
00DDB0: 41 59 20 27 4C 65 74 20 6D 65 20 74 72 79 20 74 AY 'Let me try t
00DDC0: 6F 20 68 65 6C 70 2E 20 45 6E 74 65 72 20 6E 61 o help. Enter na
00DDD0: 6D 65 20 27 20 47 45 54 20 4D 2E 4D 46 20 50 49 me ' GET M.MF PI
00DDE0: 43 54 20 27 21 21 21 21 21 21 21 21 21 21 27 0D CT '!!!!!!!!!!'.
00DDF0: 0A 20 20 20 20 40 20 31 37 2C 35 30 20 53 41 59 . @ 17,50 SAY
00DE00: 20 27 5B 20 42 6C 61 6E 6B 20 74 6F 20 66 69 6E '[ Blank to fin
00DE10: 69 73 68 20 5D 27 0D 0A 20 20 20 20 52 45 41 44 ish ]'.. READ
00DE20: 20 0D 0A 20 20 20 20 43 4C 45 41 52 20 47 45 54 .. CLEAR GET
00DE30: 53 0D 0A 20 20 20 20 49 46 20 4D 2E 4D 46 20 3D S.. IF M.MF =
00DE40: 20 27 20 20 20 20 20 20 20 20 27 0D 0A 20 20 20 ' '..
00DE50: 20 20 20 53 54 4F 52 45 20 54 20 54 4F 20 43 4E STORE T TO CN
00DE60: 41 4D 45 0D 0A 20 20 20 20 20 20 4C 4F 4F 50 0D AME.. LOOP.
00DE70: 0A 20 20 20 20 45 4E 44 49 46 20 0D 0A 20 20 20 . ENDIF ..
00DE80: 20 53 54 4F 52 45 20 54 52 49 4D 28 4D 2E 4D 46 STORE TRIM(M.MF
00DE90: 29 20 54 4F 20 46 54 45 53 54 0D 0A 20 20 20 20 ) TO FTEST..
00DEA0: 49 46 20 2E 4E 4F 54 2E 20 24 28 4D 2E 4D 46 2C IF .NOT. $(M.MF,
00DEB0: 31 2C 31 29 24 27 41 42 43 44 45 46 47 48 49 4A 1,1)$'ABCDEFGHIJ
00DEC0: 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 57 58 59 5A KLMNOPQRSTUVWXYZ
00DED0: 27 0D 0A 20 20 20 20 20 20 40 20 32 30 2C 35 20 '.. @ 20,5
00DEE0: 53 41 59 20 27 54 68 65 20 66 69 72 73 74 20 63 SAY 'The first c
00DEF0: 68 61 72 61 63 74 65 72 20 6F 66 20 74 68 65 20 haracter of the
00DF00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00DF10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00DF20: 2D 2D 2D 2D 2D 2D 2D 2D 27 20 3B 0D 0A 20 20 20 --------' ;..
00DF30: 20 20 20 20 20 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D + '-------
00DF40: 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 20 20 40 20 32 --------'.. @ 2
00DF50: 33 2C 30 20 53 41 59 20 27 2E 20 43 52 45 41 54 3,0 SAY '. CREAT
00DF60: 45 20 27 2B 4D 2E 4D 54 45 53 54 0D 0A 20 20 40 E '+M.MTEST.. @
00DF70: 20 31 39 2C 35 20 53 41 59 20 27 42 65 6C 6F 77 19,5 SAY 'Below
00DF80: 20 74 68 65 20 6C 69 6E 65 20 79 6F 75 20 77 69 the line you wi
00DF90: 6C 6C 20 6E 6F 77 20 73 65 65 20 74 68 65 20 63 ll now see the c
00DFA0: 6F 6D 70 6C 65 74 65 20 63 6F 6D 6D 61 6E 64 27 omplete command'
00DFB0: 0D 0A 20 20 40 20 32 30 2C 35 20 53 41 59 20 27 .. @ 20,5 SAY '
00DFC0: 61 73 20 79 6F 75 20 77 6F 75 6C 64 20 74 79 70 as you would typ
00DFD0: 65 20 69 74 20 79 6F 75 72 73 65 6C 66 2E 27 20 e it yourself.'
00DFE0: 0D 0A 20 20 53 54 4F 52 45 20 27 20 27 20 54 4F .. STORE ' ' TO
00DFF0: 20 54 45 4D 50 0D 0A 20 20 40 20 32 31 2C 35 20 TEMP.. @ 21,5
00E000: 53 41 59 20 27 50 72 65 73 73 20 61 6E 79 20 6B SAY 'Press any k
00E010: 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 27 ey to continue '
00E020: 0D 0A 20 20 40 20 32 31 2C 31 20 47 45 54 20 4D .. @ 21,1 GET M
00E030: 2E 54 45 4D 50 0D 0A 20 20 52 45 41 44 0D 0A 20 .TEMP.. READ..
00E040: 20 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 40 CLEAR GETS.. @
00E050: 20 31 39 2C 30 0D 0A 20 20 40 20 32 30 2C 30 0D 19,0.. @ 20,0.
00E060: 0A 20 20 40 20 32 31 2C 30 0D 0A 20 20 53 54 4F . @ 21,0.. STO
00E070: 52 45 20 54 20 54 4F 20 56 41 4C 49 44 0D 0A 45 RE T TO VALID..E
00E080: 4E 44 44 4F 20 5B 20 65 6E 74 65 72 20 66 69 6C NDDO [ enter fil
00E090: 65 20 6E 61 6D 65 20 5D 0D 0A 41 50 50 45 4E 44 e name ]..APPEND
00E0A0: 20 42 4C 41 4E 4B 0D 0A 45 52 41 53 45 0D 0A 40 BLANK..ERASE..@
00E0B0: 20 32 32 2C 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 22,1 SAY '-----
00E0C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00E0D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00E0E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00E0F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20 3B 0D 0A 20 20 ---------' ;..
00E100: 6E 61 6D 65 20 6D 75 73 74 20 62 65 20 61 6C 70 name must be alp
00E110: 68 61 20 28 41 2D 5A 29 20 20 20 20 20 20 20 20 ha (A-Z)
00E120: 27 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 20 27 '.. STORE '
00E130: 20 27 20 54 4F 20 54 45 4D 50 0D 0A 20 20 20 20 ' TO TEMP..
00E140: 20 20 40 20 32 31 2C 35 20 53 41 59 20 27 50 72 @ 21,5 SAY 'Pr
00E150: 65 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 72 ess any key to r
00E160: 65 74 72 79 20 27 20 0D 0A 20 20 20 20 20 20 40 etry ' .. @
00E170: 20 32 31 2C 31 20 47 45 54 20 4D 2E 54 45 4D 50 21,1 GET M.TEMP
00E180: 0D 0A 20 20 20 20 20 20 52 45 41 44 0D 0A 20 20 .. READ..
00E190: 20 20 20 20 43 4C 45 41 52 20 47 45 54 53 0D 0A CLEAR GETS..
00E1A0: 20 20 20 20 20 20 40 20 31 36 2C 30 0D 0A 20 20 @ 16,0..
00E1B0: 20 20 20 20 40 20 31 37 2C 30 0D 0A 20 20 20 20 @ 17,0..
00E1C0: 20 20 40 20 31 38 2C 30 0D 0A 20 20 20 20 20 20 @ 18,0..
00E1D0: 40 20 31 39 2C 30 0D 0A 20 20 20 20 20 20 40 20 @ 19,0.. @
00E1E0: 32 30 2C 30 0D 0A 20 20 20 20 20 20 40 20 32 31 20,0.. @ 21
00E1F0: 2C 31 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 20 ,1.. STORE
00E200: 27 20 20 20 20 20 20 20 20 20 20 27 20 54 4F 20 ' ' TO
00E210: 4D 46 0D 0A 20 20 20 20 20 20 4C 4F 4F 50 0D 0A MF.. LOOP..
00E220: 20 20 20 20 45 4E 44 49 46 0D 0A 20 20 20 20 53 ENDIF.. S
00E230: 54 4F 52 45 20 54 20 54 4F 20 4D 53 47 0D 0A 20 TORE T TO MSG..
00E240: 20 20 20 53 54 4F 52 45 20 32 20 54 4F 20 43 0D STORE 2 TO C.
00E250: 0A 20 20 20 20 44 4F 20 57 48 49 4C 45 20 43 20 . DO WHILE C
00E260: 3C 3D 20 4C 45 4E 28 4D 2E 46 54 45 53 54 29 0D <= LEN(M.FTEST).
00E270: 0A 20 20 20 20 20 20 49 46 20 2E 4E 4F 54 2E 20 . IF .NOT.
00E280: 24 28 4D 2E 46 54 45 53 54 2C 43 2C 31 29 24 27 $(M.FTEST,C,1)$'
00E290: 41 42 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F 50 ABCDEFGHIJKLMNOP
00E2A0: 51 52 53 54 55 56 57 58 59 5A 30 31 32 33 34 35 QRSTUVWXYZ012345
00E2B0: 36 37 38 39 3A 20 27 0D 0A 20 20 20 20 20 20 20 6789: '..
00E2C0: 20 53 54 4F 52 45 20 46 20 54 4F 20 4D 53 47 0D STORE F TO MSG.
00E2D0: 0A 20 20 20 20 20 20 45 4E 44 49 46 0D 0A 20 20 . ENDIF..
00E2E0: 20 20 20 20 53 54 4F 52 45 20 43 2B 31 20 54 4F STORE C+1 TO
00E2F0: 20 43 0D 0A 20 20 20 20 45 4E 44 44 4F 0D 0A 20 C.. ENDDO..
00E300: 20 20 20 20 20 20 20 2B 20 27 2D 2D 2D 2D 2D 2D + '------
00E310: 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 40 20 30 2C ---------'..@ 0,
00E320: 30 0D 0A 54 45 58 54 0D 0A 0D 0A 57 45 4C 43 4F 0..TEXT....WELCO
00E330: 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ME
00E340: 20 20 20 20 20 20 20 43 52 45 41 54 45 20 41 20 CREATE A
00E350: 44 41 54 41 42 41 53 45 20 46 49 4C 45 20 20 20 DATABASE FILE
00E360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E370: 20 64 42 41 53 45 20 49 49 0D 0A 2D 2D 2D 2D 2D dBASE II..-----
00E380: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00E390: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00E3A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00E3B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00E3C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 45 4E 44 54 ----------..ENDT
00E3D0: 45 58 54 0D 0A 3F 20 27 20 20 20 20 20 20 20 20 EXT..? '
00E3E0: 20 20 20 20 20 20 64 42 41 53 45 20 49 49 20 77 dBASE II w
00E3F0: 69 6C 6C 20 72 65 74 75 72 6E 20 77 69 74 68 20 ill return with
00E400: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 ...............
00E410: 27 0D 0A 3F 0D 0A 3F 20 27 46 49 45 4C 44 20 20 '..?..? 'FIELD
00E420: 20 20 20 4E 41 4D 45 2C 54 59 50 45 2C 57 49 44 NAME,TYPE,WID
00E430: 54 48 2C 44 45 43 49 4D 41 4C 20 50 4C 41 43 45 TH,DECIMAL PLACE
00E440: 53 27 0D 0A 53 54 4F 52 45 20 54 20 54 4F 20 43 S'..STORE T TO C
00E450: 4F 4E 54 20 0D 0A 53 54 4F 52 45 20 38 20 54 4F ONT ..STORE 8 TO
00E460: 20 4C 49 4E 45 0D 0A 53 54 4F 52 45 20 30 20 54 LINE..STORE 0 T
00E470: 4F 20 4F 46 46 53 45 54 2C 52 45 43 4C 45 4E 0D O OFFSET,RECLEN.
00E480: 0A 40 20 32 32 2C 31 20 53 41 59 20 27 2D 2D 2D .@ 22,1 SAY '---
00E490: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00E4A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00E4B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00E4C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20 3B 0D 0A -----------' ;..
00E4D0: 20 20 20 20 20 20 20 20 20 2B 20 27 2D 2D 2D 2D + '----
00E4E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 44 4F -----------'..DO
00E4F0: 20 57 48 49 4C 45 20 4D 2E 4C 49 4E 45 20 3C 20 WHILE M.LINE <
00E500: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00E510: 0C 00 01 00 02 09 52 E5 0C 00 41 02 00 00 00 02 ......R...A.....
00E520: 0C 00 46 02 00 00 00 02 0C 00 42 02 00 00 00 02 ..F.......B.....
00E530: 0C 00 47 02 00 00 00 02 0C 00 43 02 00 00 00 02 ..G.......C.....
00E540: 0C 00 48 02 00 00 00 02 0C 00 44 02 00 00 00 02 ..H.......D.....
00E550: 0C 00 49 02 00 00 00 02 0C 00 45 02 00 00 00 02 ..I.......E.....
00E560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E600: 20 20 20 49 46 20 2E 4E 4F 54 2E 20 4D 2E 4D 53 IF .NOT. M.MS
00E610: 47 0D 0A 20 20 20 20 20 20 40 20 32 30 2C 35 20 G.. @ 20,5
00E620: 53 41 59 20 27 54 68 65 72 65 20 69 73 20 61 6E SAY 'There is an
00E630: 20 69 6C 6C 65 67 61 6C 20 63 68 61 72 61 63 74 illegal charact
00E640: 65 72 20 69 6E 20 74 68 65 20 66 69 65 6C 64 20 er in the field
00E650: 6E 61 6D 65 2E 20 20 20 20 20 20 20 20 20 20 20 name.
00E660: 20 27 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 20 '.. STORE
00E670: 27 20 27 20 54 4F 20 54 45 4D 50 0D 0A 20 20 20 ' ' TO TEMP..
00E680: 20 20 20 40 20 32 31 2C 35 20 53 41 59 20 27 50 @ 21,5 SAY 'P
00E690: 72 65 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 ress any key to
00E6A0: 72 65 74 72 79 20 27 20 0D 0A 20 20 20 20 20 20 retry ' ..
00E6B0: 40 20 32 31 2C 31 20 47 45 54 20 4D 2E 54 45 4D @ 21,1 GET M.TEM
00E6C0: 50 0D 0A 20 20 20 20 20 20 52 45 41 44 0D 0A 20 P.. READ..
00E6D0: 20 20 20 20 20 43 4C 45 41 52 20 47 45 54 53 0D CLEAR GETS.
00E6E0: 0A 20 20 20 20 20 20 40 20 31 36 2C 30 0D 0A 20 . @ 16,0..
00E6F0: 20 20 20 20 20 40 20 31 37 2C 30 0D 0A 20 20 20 @ 17,0..
00E700: 20 20 20 40 20 31 38 2C 30 0D 0A 20 20 20 20 20 @ 18,0..
00E710: 20 40 20 31 39 2C 30 0D 0A 20 20 20 20 20 20 40 @ 19,0.. @
00E720: 20 32 30 2C 30 0D 0A 20 20 20 20 20 20 40 20 32 20,0.. @ 2
00E730: 31 2C 31 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 1,1.. STORE
00E740: 20 27 20 20 20 20 20 20 20 20 20 20 27 20 54 4F ' ' TO
00E750: 20 4D 46 0D 0A 20 20 20 20 20 20 4C 4F 4F 50 0D MF.. LOOP.
00E760: 0A 20 20 20 20 45 4E 44 49 46 0D 0A 20 20 20 20 . ENDIF..
00E770: 49 46 20 27 20 27 24 4D 2E 46 54 45 53 54 0D 0A IF ' '$M.FTEST..
00E780: 20 20 20 20 20 20 40 20 32 30 2C 35 20 53 41 59 @ 20,5 SAY
00E790: 20 27 53 70 61 63 65 73 20 61 72 65 20 6E 6F 74 'Spaces are not
00E7A0: 20 61 6C 6C 6F 77 65 64 20 62 75 74 20 79 6F 75 allowed but you
00E7B0: 20 63 61 6E 20 75 73 65 20 69 6D 62 65 64 64 65 can use imbedde
00E7C0: 64 20 63 6F 6C 6F 6E 73 20 22 3A 22 20 27 0D 0A d colons ":" '..
00E7D0: 20 20 20 20 20 20 53 54 4F 52 45 20 27 20 27 20 STORE ' '
00E7E0: 54 4F 20 54 45 4D 50 0D 0A 20 20 20 20 20 20 40 TO TEMP.. @
00E7F0: 20 32 31 2C 35 20 53 41 59 20 27 50 72 65 73 73 21,5 SAY 'Press
00E800: 20 20 20 20 20 20 20 20 20 20 20 20 20 64 42 41 dBA
00E810: 53 45 20 49 49 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D SE II..---------
00E820: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00E830: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00E840: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00E850: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00E860: 2D 2D 2D 2D 2D 2D 0D 0A 45 4E 44 54 45 58 54 0D ------..ENDTEXT.
00E870: 0A 40 20 32 32 2C 31 20 53 41 59 20 27 2D 2D 2D .@ 22,1 SAY '---
00E880: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00E890: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00E8A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00E8B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20 3B 0D 0A -----------' ;..
00E8C0: 20 20 20 20 20 20 20 20 20 2B 20 27 2D 2D 2D 2D + '----
00E8D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 20 20 -----------'..
00E8E0: 20 20 20 20 40 20 32 33 2C 35 20 53 41 59 20 27 @ 23,5 SAY '
00E8F0: 59 6F 75 72 20 46 69 6C 65 20 48 61 73 20 42 65 Your File Has Be
00E900: 65 6E 20 43 72 65 61 74 65 64 20 41 73 20 22 26 en Created As "&
00E910: 43 46 49 4C 45 2E 2E 44 42 46 22 27 20 0D 0A 20 CFILE..DBF"' ..
00E920: 20 20 20 20 20 40 20 31 31 2C 32 30 20 53 41 59 @ 11,20 SAY
00E930: 20 27 50 6C 65 61 73 65 20 57 61 69 74 20 2E 2E 'Please Wait ..
00E940: 2E 20 53 61 76 69 6E 67 20 53 74 72 75 63 74 75 . Saving Structu
00E950: 72 65 2E 27 0D 0A 20 20 20 20 20 20 40 20 32 30 re.'.. @ 20
00E960: 2C 31 20 20 20 20 20 0D 0A 20 20 20 20 20 20 4C ,1 .. L
00E970: 4F 4F 50 0D 0A 20 20 20 20 45 4C 53 45 0D 0A 20 OOP.. ELSE..
00E980: 20 20 20 20 20 40 20 31 36 2C 30 0D 0A 20 20 20 @ 16,0..
00E990: 20 20 20 40 20 31 37 2C 30 0D 0A 20 20 20 20 20 @ 17,0..
00E9A0: 20 40 20 31 38 2C 30 0D 0A 20 20 20 20 20 20 40 @ 18,0.. @
00E9B0: 20 31 39 2C 30 0D 0A 20 20 20 20 20 20 40 20 32 19,0.. @ 2
00E9C0: 30 2C 30 0D 0A 20 20 20 20 20 20 40 20 32 31 2C 0,0.. @ 21,
00E9D0: 30 0D 0A 20 20 20 20 20 20 4C 4F 4F 50 0D 0A 20 0.. LOOP..
00E9E0: 20 20 20 45 4E 44 49 46 20 0D 0A 20 20 45 4E 44 ENDIF .. END
00E9F0: 49 46 0D 0A 20 20 52 45 50 4C 41 43 45 20 46 49 IF.. REPLACE FI
00EA00: 20 61 6E 79 20 6B 65 79 20 74 6F 20 72 65 74 72 any key to retr
00EA10: 79 20 27 20 0D 0A 20 20 20 20 20 20 40 20 32 31 y ' .. @ 21
00EA20: 2C 31 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 ,1 GET M.TEMP..
00EA30: 20 20 20 20 20 52 45 41 44 0D 0A 20 20 20 20 20 READ..
00EA40: 20 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 20 CLEAR GETS..
00EA50: 20 20 20 40 20 31 36 2C 30 0D 0A 20 20 20 20 20 @ 16,0..
00EA60: 20 40 20 31 37 2C 30 0D 0A 20 20 20 20 20 20 40 @ 17,0.. @
00EA70: 20 31 38 2C 30 0D 0A 20 20 20 20 20 20 40 20 31 18,0.. @ 1
00EA80: 39 2C 30 0D 0A 20 20 20 20 20 20 40 20 32 30 2C 9,0.. @ 20,
00EA90: 30 0D 0A 20 20 20 20 20 20 40 20 32 31 2C 31 0D 0.. @ 21,1.
00EAA0: 0A 20 20 20 20 20 20 53 54 4F 52 45 20 27 20 20 . STORE '
00EAB0: 20 20 20 20 20 20 20 20 27 20 54 4F 20 4D 46 0D ' TO MF.
00EAC0: 0A 20 20 20 20 20 20 4C 4F 4F 50 0D 0A 20 20 20 . LOOP..
00EAD0: 20 45 4E 44 49 46 0D 0A 20 20 20 20 49 46 20 24 ENDIF.. IF $
00EAE0: 28 4D 2E 46 54 45 53 54 2C 4C 45 4E 28 4D 2E 46 (M.FTEST,LEN(M.F
00EAF0: 54 45 53 54 29 29 24 27 3A 27 0D 0A 20 20 20 20 TEST))$':'..
00EB00: 20 20 40 20 32 30 2C 35 20 53 41 59 20 27 43 6F @ 20,5 SAY 'Co
00EB10: 6C 6F 6E 73 20 6D 75 73 74 20 62 65 20 69 6D 62 lons must be imb
00EB20: 65 64 64 65 64 20 69 6E 20 74 68 65 20 66 69 65 edded in the fie
00EB30: 6C 64 20 6E 61 6D 65 20 20 20 20 20 20 20 20 20 ld name
00EB40: 20 20 20 20 20 20 20 20 20 27 0D 0A 20 20 20 20 '..
00EB50: 20 20 53 54 4F 52 45 20 27 20 27 20 54 4F 20 54 STORE ' ' TO T
00EB60: 45 4D 50 0D 0A 20 20 20 20 20 20 40 20 32 31 2C EMP.. @ 21,
00EB70: 35 20 53 41 59 20 27 50 72 65 73 73 20 61 6E 79 5 SAY 'Press any
00EB80: 20 6B 65 79 20 74 6F 20 72 65 74 72 79 20 27 20 key to retry '
00EB90: 0D 0A 20 20 20 20 20 20 40 20 32 31 2C 31 20 47 .. @ 21,1 G
00EBA0: 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 20 20 20 ET M.TEMP..
00EBB0: 20 52 45 41 44 0D 0A 20 20 20 20 20 20 43 4C 45 READ.. CLE
00EBC0: 41 52 20 47 45 54 53 0D 0A 20 20 20 20 20 20 40 AR GETS.. @
00EBD0: 20 31 36 2C 30 0D 0A 20 20 20 20 20 20 40 20 31 16,0.. @ 1
00EBE0: 37 2C 30 0D 0A 20 20 20 20 20 20 40 20 31 38 2C 7,0.. @ 18,
00EBF0: 30 0D 0A 20 20 20 20 20 20 40 20 31 39 2C 30 0D 0.. @ 19,0.
00EC00: 45 4C 44 3A 4E 41 4D 45 20 57 49 54 48 20 4D 2E ELD:NAME WITH M.
00EC10: 4D 46 0D 0A 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A MF.. **********
00EC20: 2A 2A 2A 2A 0D 0A 20 20 2A 20 46 49 45 4C 44 20 ****.. * FIELD
00EC30: 54 59 50 45 20 2A 20 0D 0A 20 20 2A 2A 2A 2A 2A TYPE * .. *****
00EC40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0A 20 20 40 20 4C *********.. @ L
00EC50: 49 4E 45 2D 4F 46 46 53 45 54 2C 31 30 20 53 41 INE-OFFSET,10 SA
00EC60: 59 20 54 52 49 4D 28 46 49 45 4C 44 3A 4E 41 4D Y TRIM(FIELD:NAM
00EC70: 45 29 2B 27 2C 27 0D 0A 20 20 3F 20 27 20 20 20 E)+','.. ? '
00EC80: 20 20 20 20 20 20 20 20 20 20 20 47 6F 6F 64 20 Good
00EC90: 2E 2E 2E 20 4E 6F 77 20 74 68 65 20 74 79 70 65 ... Now the type
00ECA0: 20 65 69 74 68 65 72 20 22 43 22 2C 22 4E 22 20 either "C","N"
00ECB0: 6F 72 20 22 4C 22 20 2E 2E 2E 27 20 20 0D 0A 20 or "L" ...' ..
00ECC0: 20 40 20 31 36 2C 30 0D 0A 20 20 40 20 31 37 2C @ 16,0.. @ 17,
00ECD0: 30 0D 0A 20 20 40 20 31 38 2C 30 0D 0A 20 20 40 0.. @ 18,0.. @
00ECE0: 20 31 39 2C 30 0D 0A 20 20 40 20 32 30 2C 30 0D 19,0.. @ 20,0.
00ECF0: 0A 20 20 40 20 32 31 2C 31 0D 0A 20 20 40 20 31 . @ 21,1.. @ 1
00ED00: 39 2C 35 20 53 41 59 20 27 22 43 22 20 3D 20 43 9,5 SAY '"C" = C
00ED10: 68 61 72 61 63 74 65 72 20 28 20 41 6E 79 74 68 haracter ( Anyth
00ED20: 69 6E 67 20 4E 61 6D 65 73 2C 41 64 64 72 65 73 ing Names,Addres
00ED30: 73 65 73 2C 44 65 73 63 72 69 70 74 69 6F 6E 73 ses,Descriptions
00ED40: 20 65 74 63 2E 20 20 20 29 27 0D 0A 20 20 40 20 etc. )'.. @
00ED50: 32 30 2C 35 20 53 41 59 20 27 22 4E 22 20 3D 20 20,5 SAY '"N" =
00ED60: 4E 75 6D 65 72 69 63 20 20 20 28 20 46 6F 72 20 Numeric ( For
00ED70: 6D 61 74 68 65 6D 61 74 69 63 73 2C 20 61 6D 6F mathematics, amo
00ED80: 75 6E 74 73 20 61 6E 64 20 6D 6F 6E 65 79 20 65 unts and money e
00ED90: 74 63 2E 20 20 20 20 20 20 29 27 0D 0A 20 20 40 tc. )'.. @
00EDA0: 20 32 31 2C 35 20 53 41 59 20 27 22 4C 22 20 3D 21,5 SAY '"L" =
00EDB0: 20 4C 6F 67 69 63 61 6C 20 20 20 28 20 4F 6E 6C Logical ( Onl
00EDC0: 79 20 61 6C 6C 6F 77 73 20 54 2F 59 28 54 52 55 y allows T/Y(TRU
00EDD0: 45 29 2C 20 46 2F 4E 28 46 41 4C 53 45 29 20 69 E), F/N(FALSE) i
00EDE0: 6E 70 75 74 20 20 20 20 20 20 29 27 0D 0A 20 20 nput )'..
00EDF0: 44 4F 20 57 48 49 4C 45 20 2E 4E 4F 54 2E 20 46 DO WHILE .NOT. F
00EE00: 0A 20 20 20 20 20 20 40 20 32 30 2C 30 0D 0A 20 . @ 20,0..
00EE10: 20 20 20 20 20 40 20 32 31 2C 31 0D 0A 20 20 20 @ 21,1..
00EE20: 20 20 20 53 54 4F 52 45 20 27 20 20 20 20 20 20 STORE '
00EE30: 20 20 20 20 27 20 54 4F 20 4D 46 0D 0A 20 20 20 ' TO MF..
00EE40: 20 20 20 4C 4F 4F 50 0D 0A 20 20 20 20 45 4E 44 LOOP.. END
00EE50: 49 46 0D 0A 20 20 20 20 47 4F 54 4F 20 54 4F 50 IF.. GOTO TOP
00EE60: 0D 0A 20 20 20 20 4C 4F 43 41 54 45 20 46 4F 52 .. LOCATE FOR
00EE70: 20 4D 2E 4D 46 20 3D 20 46 49 45 4C 44 3A 4E 41 M.MF = FIELD:NA
00EE80: 4D 45 0D 0A 20 20 20 20 49 46 20 2E 4E 4F 54 2E ME.. IF .NOT.
00EE90: 20 45 4F 46 0D 0A 20 20 20 20 20 20 40 20 32 30 EOF.. @ 20
00EEA0: 2C 35 20 53 41 59 20 27 59 6F 75 20 61 6C 72 65 ,5 SAY 'You alre
00EEB0: 61 64 79 20 68 61 76 65 20 61 20 66 69 65 6C 64 ady have a field
00EEC0: 20 6F 66 20 74 68 69 73 20 6E 61 6D 65 20 21 21 of this name !!
00EED0: 20 27 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 20 '.. STORE
00EEE0: 27 20 27 20 54 4F 20 54 45 4D 50 0D 0A 20 20 20 ' ' TO TEMP..
00EEF0: 20 20 20 40 20 32 31 2C 35 20 53 41 59 20 27 50 @ 21,5 SAY 'P
00EF00: 72 65 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 ress any key to
00EF10: 72 65 74 72 79 20 27 20 0D 0A 20 20 20 20 20 20 retry ' ..
00EF20: 40 20 32 31 2C 31 20 47 45 54 20 4D 2E 54 45 4D @ 21,1 GET M.TEM
00EF30: 50 0D 0A 20 20 20 20 20 20 52 45 41 44 0D 0A 20 P.. READ..
00EF40: 20 20 20 20 20 43 4C 45 41 52 20 47 45 54 53 0D CLEAR GETS.
00EF50: 0A 20 20 20 20 20 20 47 4F 54 4F 20 42 4F 54 54 . GOTO BOTT
00EF60: 0D 0A 20 20 20 20 20 20 40 20 31 36 2C 30 0D 0A .. @ 16,0..
00EF70: 20 20 20 20 20 20 40 20 31 37 2C 30 0D 0A 20 20 @ 17,0..
00EF80: 20 20 20 20 40 20 31 38 2C 30 0D 0A 20 20 20 20 @ 18,0..
00EF90: 20 20 40 20 31 39 2C 30 0D 0A 20 20 20 20 20 20 @ 19,0..
00EFA0: 40 20 32 30 2C 30 0D 0A 20 20 20 20 20 20 40 20 @ 20,0.. @
00EFB0: 32 31 2C 31 0D 0A 20 20 20 20 20 20 53 54 4F 52 21,1.. STOR
00EFC0: 45 20 27 20 20 20 20 20 20 20 20 20 20 27 20 54 E ' ' T
00EFD0: 4F 20 4D 46 0D 0A 20 20 20 20 20 20 4C 4F 4F 50 O MF.. LOOP
00EFE0: 0D 0A 20 20 20 20 45 4E 44 49 46 0D 0A 20 20 20 .. ENDIF..
00EFF0: 20 53 54 4F 52 45 20 54 20 54 4F 20 43 4E 41 4D STORE T TO CNAM
00F000: 49 45 4C 44 3A 54 59 50 45 24 27 4C 4E 43 27 0D IELD:TYPE$'LNC'.
00F010: 0A 20 20 20 20 40 20 31 37 2C 35 20 53 41 59 20 . @ 17,5 SAY
00F020: 27 41 67 61 69 6E 20 49 20 73 68 61 6C 6C 20 68 'Again I shall h
00F030: 65 6C 70 20 79 6F 75 2E 20 20 45 6E 74 65 72 20 elp you. Enter
00F040: 54 79 70 65 20 27 20 47 45 54 20 46 49 45 4C 44 Type ' GET FIELD
00F050: 3A 54 59 50 45 20 50 49 43 54 20 27 21 27 0D 0A :TYPE PICT '!'..
00F060: 20 20 20 20 52 45 41 44 0D 0A 20 20 45 4E 44 44 READ.. ENDD
00F070: 4F 0D 0A 20 20 43 4C 45 41 52 20 47 45 54 53 0D O.. CLEAR GETS.
00F080: 0A 20 20 49 46 20 46 49 45 4C 44 3A 54 59 50 45 . IF FIELD:TYPE
00F090: 24 27 43 4E 27 20 0D 0A 20 20 20 20 40 20 4C 49 $'CN' .. @ LI
00F0A0: 4E 45 2D 4F 46 46 53 45 54 2C 31 30 20 53 41 59 NE-OFFSET,10 SAY
00F0B0: 20 54 52 49 4D 28 46 49 45 4C 44 3A 4E 41 4D 45 TRIM(FIELD:NAME
00F0C0: 29 2B 27 2C 27 2B 46 49 45 4C 44 3A 54 59 50 45 )+','+FIELD:TYPE
00F0D0: 2B 27 2C 27 0D 0A 20 20 45 4E 44 49 46 20 5B 20 +','.. ENDIF [
00F0E0: 64 6F 20 6E 6F 74 20 64 69 73 70 6C 61 79 20 69 do not display i
00F0F0: 66 20 22 4C 22 20 5D 0D 0A 20 20 40 20 31 37 2C f "L" ].. @ 17,
00F100: 30 0D 0A 20 20 40 20 31 38 2C 30 0D 0A 20 20 40 0.. @ 18,0.. @
00F110: 20 31 39 2C 30 0D 0A 20 20 40 20 32 30 2C 30 0D 19,0.. @ 20,0.
00F120: 0A 20 20 40 20 32 31 2C 31 0D 0A 20 20 40 20 4D . @ 21,1.. @ M
00F130: 2E 4C 49 4E 45 2D 4D 2E 4F 46 46 53 45 54 2C 39 .LINE-M.OFFSET,9
00F140: 20 53 41 59 20 27 20 27 0D 0A 20 20 44 4F 20 43 SAY ' '.. DO C
00F150: 41 53 45 0D 0A 20 20 20 20 20 20 2A 2A 2A 2A 2A ASE.. *****
00F160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D ***************.
00F170: 0A 20 20 20 20 20 20 2A 20 22 43 22 20 46 49 45 . * "C" FIE
00F180: 4C 44 20 4C 45 4E 47 54 48 20 2A 0D 0A 20 20 20 LD LENGTH *..
00F190: 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A *************
00F1A0: 2A 2A 2A 2A 2A 2A 2A 0D 0A 20 20 20 20 43 41 53 *******.. CAS
00F1B0: 45 20 46 49 45 4C 44 3A 54 59 50 45 20 3D 20 27 E FIELD:TYPE = '
00F1C0: 43 27 0D 0A 20 20 20 20 20 20 3F 20 27 20 20 20 C'.. ? '
00F1D0: 20 20 20 20 20 20 20 20 20 20 20 47 6F 6F 64 20 Good
00F1E0: 2E 2E 2E 20 4E 6F 77 20 74 68 65 20 4C 65 6E 67 ... Now the Leng
00F1F0: 74 68 20 6F 66 20 74 68 65 20 66 69 65 6C 64 20 th of the field
00F200: 45 0D 0A 20 20 45 4E 44 44 4F 0D 0A 20 20 49 46 E.. ENDDO.. IF
00F210: 20 54 52 49 4D 28 4D 2E 4D 46 29 3D 27 20 27 0D TRIM(M.MF)=' '.
00F220: 0A 20 20 20 20 40 20 31 38 2C 30 0D 0A 20 20 20 . @ 18,0..
00F230: 20 40 20 31 39 2C 30 0D 0A 20 20 20 20 40 20 32 @ 19,0.. @ 2
00F240: 30 2C 30 0D 0A 20 20 20 20 40 20 32 31 2C 31 0D 0,0.. @ 21,1.
00F250: 0A 20 20 20 20 53 54 4F 52 45 20 27 20 27 20 54 . STORE ' ' T
00F260: 4F 20 54 45 4D 50 0D 0A 20 20 20 20 44 4F 20 57 O TEMP.. DO W
00F270: 48 49 4C 45 20 2E 4E 4F 54 2E 20 4D 2E 54 45 4D HILE .NOT. M.TEM
00F280: 50 24 27 59 4E 27 0D 0A 20 20 20 20 20 20 40 20 P$'YN'.. @
00F290: 32 30 2C 35 20 53 41 59 20 27 45 6E 74 65 72 69 20,5 SAY 'Enteri
00F2A0: 6E 67 20 61 20 62 6C 61 6E 6B 20 6E 61 6D 65 20 ng a blank name
00F2B0: 6D 65 61 6E 73 20 79 6F 75 20 77 61 6E 74 20 74 means you want t
00F2C0: 6F 20 66 69 6E 69 73 68 2E 2E 2E 2E 27 0D 0A 20 o finish....'..
00F2D0: 20 20 20 20 20 40 20 32 31 2C 35 20 53 41 59 20 @ 21,5 SAY
00F2E0: 27 44 6F 20 79 6F 75 20 77 61 6E 74 20 74 6F 20 'Do you want to
00F2F0: 66 69 6E 69 73 68 20 28 20 59 2F 4E 20 29 20 27 finish ( Y/N ) '
00F300: 20 0D 0A 20 20 20 20 20 20 40 20 32 31 2C 31 20 .. @ 21,1
00F310: 47 45 54 20 4D 2E 54 45 4D 50 20 50 49 43 54 20 GET M.TEMP PICT
00F320: 27 21 27 0D 0A 20 20 20 20 20 20 52 45 41 44 0D '!'.. READ.
00F330: 0A 20 20 20 20 45 4E 44 44 4F 0D 0A 20 20 20 20 . ENDDO..
00F340: 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 20 20 CLEAR GETS..
00F350: 49 46 20 4D 2E 54 45 4D 50 20 3D 20 27 59 27 0D IF M.TEMP = 'Y'.
00F360: 0A 20 20 20 20 20 20 49 46 20 4D 2E 4C 49 4E 45 . IF M.LINE
00F370: 3D 38 0D 0A 20 20 20 20 20 20 20 20 45 52 41 53 =8.. ERAS
00F380: 45 0D 0A 54 45 58 54 0D 0A 0D 0A 57 45 4C 43 4F E..TEXT....WELCO
00F390: 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ME
00F3A0: 20 20 20 20 20 20 20 43 52 45 41 54 45 20 41 20 CREATE A
00F3B0: 44 41 54 41 42 41 53 45 20 46 49 4C 45 20 20 20 DATABASE FILE
00F3C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F3D0: 20 64 42 41 53 45 20 49 49 0D 0A 2D 2D 2D 2D 2D dBASE II..-----
00F3E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00F3F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00F400: 2E 2E 2E 2E 20 20 20 20 20 20 20 27 20 20 0D 0A .... ' ..
00F410: 20 20 20 20 20 20 40 20 31 39 2C 35 20 53 41 59 @ 19,5 SAY
00F420: 20 27 54 68 65 20 6C 65 6E 67 74 68 20 6F 66 20 'The length of
00F430: 61 20 22 43 22 20 66 69 65 6C 64 20 63 61 6E 20 a "C" field can
00F440: 62 65 20 62 65 74 77 65 65 6E 20 31 2D 32 35 34 be between 1-254
00F450: 20 27 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 20 '.. STORE
00F460: 59 20 54 4F 20 4D 46 49 52 53 54 0D 0A 20 20 20 Y TO MFIRST..
00F470: 20 20 20 44 4F 20 57 48 49 4C 45 20 46 49 45 4C DO WHILE FIEL
00F480: 44 3A 4C 45 4E 20 3C 20 31 20 2E 4F 52 2E 20 46 D:LEN < 1 .OR. F
00F490: 49 45 4C 44 3A 4C 45 4E 20 3E 20 32 35 34 20 0D IELD:LEN > 254 .
00F4A0: 0A 20 20 20 20 20 20 20 20 40 20 31 37 2C 30 0D . @ 17,0.
00F4B0: 0A 20 20 20 20 20 20 20 20 40 20 31 37 2C 35 20 . @ 17,5
00F4C0: 53 41 59 20 27 41 67 61 69 6E 20 49 20 77 69 6C SAY 'Again I wil
00F4D0: 6C 20 68 65 6C 70 2E 20 45 6E 74 65 72 20 4C 65 l help. Enter Le
00F4E0: 6E 67 74 68 20 27 20 47 45 54 20 46 49 45 4C 44 ngth ' GET FIELD
00F4F0: 3A 4C 45 4E 0D 0A 20 20 20 20 20 20 20 20 49 46 :LEN.. IF
00F500: 20 2E 4E 4F 54 2E 20 4D 2E 4D 46 49 52 53 54 0D .NOT. M.MFIRST.
00F510: 0A 20 20 20 20 20 20 20 20 20 20 40 20 31 37 2C . @ 17,
00F520: 34 35 20 53 41 59 20 27 3C 2D 20 53 65 6C 65 63 45 SAY '<- Selec
00F530: 74 69 6F 6E 20 49 6E 76 61 6C 69 64 20 27 0D 0A tion Invalid '..
00F540: 20 20 20 20 20 20 20 20 45 4C 53 45 0D 0A 20 20 ELSE..
00F550: 20 20 20 20 20 20 20 20 53 54 4F 52 45 20 4E 20 STORE N
00F560: 54 4F 20 4D 46 49 52 53 54 0D 0A 20 20 20 20 20 TO MFIRST..
00F570: 20 20 20 45 4E 44 49 46 0D 0A 20 20 20 20 20 20 ENDIF..
00F580: 20 20 52 45 41 44 0D 0A 20 20 20 20 20 20 20 20 READ..
00F590: 49 46 20 4D 2E 52 45 43 4C 45 4E 2B 46 49 45 4C IF M.RECLEN+FIEL
00F5A0: 44 3A 4C 45 4E 20 3E 20 31 30 30 30 0D 0A 20 20 D:LEN > 1000..
00F5B0: 20 20 20 20 20 20 20 20 40 20 31 39 2C 30 0D 0A @ 19,0..
00F5C0: 20 20 20 20 20 20 20 20 20 20 40 20 32 30 2C 35 @ 20,5
00F5D0: 20 53 41 59 20 27 54 68 65 20 6F 76 65 72 61 6C SAY 'The overal
00F5E0: 6C 20 6C 65 6E 67 74 68 20 6F 66 20 79 6F 75 72 l length of your
00F5F0: 20 72 65 63 6F 72 64 20 69 73 20 27 2B 73 74 72 record is '+str
00F600: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00F610: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00F620: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 45 4E 44 54 ----------..ENDT
00F630: 45 58 54 0D 0A 40 20 32 32 2C 31 20 53 41 59 20 EXT..@ 22,1 SAY
00F640: 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D '---------------
00F650: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00F660: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00F670: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 ---------------'
00F680: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 2B 20 27 ;.. + '
00F690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 ---------------'
00F6A0: 0D 0A 20 20 20 20 20 20 20 20 40 20 31 31 2C 32 .. @ 11,2
00F6B0: 37 20 53 41 59 20 27 52 45 54 55 52 4E 49 4E 47 7 SAY 'RETURNING
00F6C0: 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 27 0D 0A TO MAIN MENU'..
00F6D0: 20 20 20 20 20 20 20 20 40 20 32 30 2C 31 0D 0A @ 20,1..
00F6E0: 20 20 20 20 20 20 20 20 53 45 4C 45 20 53 45 43 SELE SEC
00F6F0: 4F 0D 0A 20 20 20 20 20 20 20 20 55 53 45 0D 0A O.. USE..
00F700: 20 20 20 20 20 20 20 20 53 45 4C 45 20 50 52 49 SELE PRI
00F710: 4D 0D 0A 20 20 20 20 20 20 20 20 55 53 45 20 26 M.. USE &
00F720: 4D 46 49 4C 45 20 0D 0A 20 20 20 20 20 20 20 20 MFILE ..
00F730: 44 45 4C 45 54 45 20 46 49 4C 45 20 54 45 4D 50 DELETE FILE TEMP
00F740: 2E 44 42 46 0D 0A 20 20 20 20 20 20 20 20 52 45 .DBF.. RE
00F750: 4C 45 41 53 45 20 41 4C 4C 20 45 58 43 45 50 54 LEASE ALL EXCEPT
00F760: 20 4D 46 49 4C 45 0D 0A 20 20 20 20 20 20 20 20 MFILE..
00F770: 52 45 54 55 52 4E 0D 0A 20 20 20 20 20 20 45 4E RETURN.. EN
00F780: 44 49 46 20 5B 20 6E 6F 20 66 69 65 6C 64 73 20 DIF [ no fields
00F790: 65 6E 74 65 72 65 64 20 5D 0D 0A 20 20 20 20 20 entered ]..
00F7A0: 20 53 54 4F 52 45 20 46 20 54 4F 20 43 4F 4E 54 STORE F TO CONT
00F7B0: 0D 0A 20 20 20 20 20 20 45 52 41 53 45 0D 0A 54 .. ERASE..T
00F7C0: 45 58 54 0D 0A 0D 0A 57 45 4C 43 4F 4D 45 20 20 EXT....WELCOME
00F7D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F7E0: 20 20 20 43 52 45 41 54 45 20 41 20 44 41 54 41 CREATE A DATA
00F7F0: 42 41 53 45 20 46 49 4C 45 20 20 20 20 20 20 20 BASE FILE
00F800: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00F810: 0D 00 01 00 02 09 52 E5 0D 00 41 02 00 00 00 02 ......R...A.....
00F820: 0D 00 46 02 00 00 00 02 0D 00 42 02 00 00 00 02 ..F.......B.....
00F830: 0D 00 47 02 00 00 00 02 0D 00 43 02 00 00 00 02 ..G.......C.....
00F840: 0D 00 48 02 00 00 00 02 0D 00 44 02 00 00 00 02 ..H.......D.....
00F850: 0D 00 49 02 00 00 00 02 0D 00 45 02 00 00 00 02 ..I.......E.....
00F860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F900: 28 72 65 63 6C 65 6E 2C 34 29 0D 0A 20 20 20 20 (reclen,4)..
00F910: 20 20 20 20 20 20 40 20 32 31 2C 35 20 53 41 59 @ 21,5 SAY
00F920: 20 27 57 69 74 68 20 74 68 69 73 20 66 69 65 6C 'With this fiel
00F930: 64 20 6C 65 6E 67 74 68 20 69 74 20 77 6F 75 6C d length it woul
00F940: 64 20 62 65 20 6F 76 65 72 20 31 30 30 30 2E 27 d be over 1000.'
00F950: 0D 0A 20 20 20 20 20 20 20 20 20 20 52 45 50 4C .. REPL
00F960: 41 43 45 20 46 49 45 4C 44 3A 4C 45 4E 20 57 49 ACE FIELD:LEN WI
00F970: 54 48 20 30 0D 0A 20 20 20 20 20 20 20 20 20 20 TH 0..
00F980: 53 54 4F 52 45 20 31 20 54 4F 20 43 0D 0A 20 20 STORE 1 TO C..
00F990: 20 20 20 20 20 20 20 20 44 4F 20 57 48 49 4C 45 DO WHILE
00F9A0: 20 43 20 3C 33 30 0D 0A 20 20 20 20 20 20 20 20 C <30..
00F9B0: 20 20 20 20 20 53 54 4F 52 45 20 43 2B 31 20 54 STORE C+1 T
00F9C0: 4F 20 43 0D 0A 20 20 20 20 20 20 20 20 20 20 45 O C.. E
00F9D0: 4E 44 44 4F 0D 0A 20 20 20 20 20 20 20 20 45 4E NDDO.. EN
00F9E0: 44 49 46 0D 0A 20 20 20 20 20 20 20 20 40 20 31 DIF.. @ 1
00F9F0: 36 2C 30 0D 0A 20 20 20 20 20 20 20 20 40 20 31 6,0.. @ 1
00FA00: 37 2C 30 0D 0A 20 20 20 20 20 20 20 20 40 20 31 7,0.. @ 1
00FA10: 38 2C 30 0D 0A 20 20 20 20 20 20 20 20 40 20 31 8,0.. @ 1
00FA20: 39 2C 30 0D 0A 20 20 20 20 20 20 20 20 40 20 32 9,0.. @ 2
00FA30: 30 2C 30 0D 0A 20 20 20 20 20 20 20 20 40 20 32 0,0.. @ 2
00FA40: 31 2C 31 0D 0A 20 20 20 20 20 20 45 4E 44 44 4F 1,1.. ENDDO
00FA50: 0D 0A 20 20 20 20 20 20 52 45 4C 45 41 53 45 20 .. RELEASE
00FA60: 4D 46 49 52 53 54 0D 0A 20 20 20 20 20 20 43 4C MFIRST.. CL
00FA70: 45 41 52 20 47 45 54 53 0D 0A 20 20 20 20 20 20 EAR GETS..
00FA80: 44 4F 20 43 41 53 45 0D 0A 20 20 20 20 20 20 20 DO CASE..
00FA90: 20 43 41 53 45 20 46 49 45 4C 44 3A 4C 45 4E 20 CASE FIELD:LEN
00FAA0: 3E 20 39 39 0D 0A 20 20 20 20 20 20 20 20 20 20 > 99..
00FAB0: 53 54 4F 52 45 20 53 54 52 28 46 49 45 4C 44 3A STORE STR(FIELD:
00FAC0: 4C 45 4E 2C 33 29 20 54 4F 20 4D 2E 4D 46 49 45 LEN,3) TO M.MFIE
00FAD0: 4C 44 3A 4C 45 4E 0D 0A 20 20 20 20 20 20 20 20 LD:LEN..
00FAE0: 43 41 53 45 20 46 49 45 4C 44 3A 4C 45 4E 20 3E CASE FIELD:LEN >
00FAF0: 20 39 0D 0A 20 20 20 20 20 20 20 20 20 20 53 54 9.. ST
00FB00: 20 20 40 20 31 37 2C 30 0D 0A 20 20 20 20 20 20 @ 17,0..
00FB10: 40 20 31 38 2C 30 0D 0A 20 20 20 20 20 20 40 20 @ 18,0.. @
00FB20: 31 39 2C 30 0D 0A 20 20 20 20 20 20 40 20 32 30 19,0.. @ 20
00FB30: 2C 30 0D 0A 20 20 20 20 20 20 40 20 32 31 2C 31 ,0.. @ 21,1
00FB40: 0D 0A 20 20 20 20 20 20 40 20 31 39 2C 35 20 53 .. @ 19,5 S
00FB50: 41 59 20 27 49 66 20 79 6F 75 20 64 6F 20 6E 6F AY 'If you do no
00FB60: 74 20 77 61 6E 74 20 64 65 63 69 6D 61 6C 73 2C t want decimals,
00FB70: 20 65 6E 74 65 72 20 30 2E 20 27 0D 0A 20 20 20 enter 0. '..
00FB80: 20 20 20 40 20 32 30 2C 35 20 53 41 59 20 27 4F @ 20,5 SAY 'O
00FB90: 74 68 65 72 77 69 73 65 20 79 6F 75 20 6D 61 79 therwise you may
00FBA0: 20 68 61 76 65 20 61 73 20 6D 61 6E 79 20 61 73 have as many as
00FBB0: 20 79 6F 75 20 63 61 6E 20 66 69 74 20 69 6E 74 you can fit int
00FBC0: 6F 20 79 6F 75 72 20 27 0D 0A 20 20 20 20 20 20 o your '..
00FBD0: 40 20 32 31 2C 35 20 53 41 59 20 27 66 69 65 6C @ 21,5 SAY 'fiel
00FBE0: 64 2C 20 62 75 74 20 74 68 65 20 64 65 63 69 6D d, but the decim
00FBF0: 61 6C 20 70 6F 69 6E 74 20 77 69 6C 6C 20 61 6C al point will al
00FC00: 73 6F 20 6F 63 63 75 70 79 20 61 20 70 6F 73 69 so occupy a posi
00FC10: 74 69 6F 6E 2E 27 0D 0A 20 20 20 20 20 20 53 54 tion.'.. ST
00FC20: 4F 52 45 20 46 20 54 4F 20 4E 55 4D 20 0D 0A 20 ORE F TO NUM ..
00FC30: 20 20 20 20 20 53 54 4F 52 45 20 59 20 54 4F 20 STORE Y TO
00FC40: 4D 46 49 52 53 54 0D 0A 20 20 20 20 20 20 44 4F MFIRST.. DO
00FC50: 20 57 48 49 4C 45 20 2E 4E 4F 54 2E 20 4D 2E 4E WHILE .NOT. M.N
00FC60: 55 4D 0D 0A 20 20 20 20 20 20 20 20 40 20 31 37 UM.. @ 17
00FC70: 2C 30 0D 0A 20 20 20 20 20 20 20 20 40 20 31 37 ,0.. @ 17
00FC80: 2C 35 20 53 41 59 20 27 41 67 61 69 6E 20 49 20 ,5 SAY 'Again I
00FC90: 77 69 6C 6C 20 68 65 6C 70 2E 20 45 6E 74 65 72 will help. Enter
00FCA0: 20 4C 65 6E 67 74 68 20 27 20 47 45 54 20 46 49 Length ' GET FI
00FCB0: 45 4C 44 3A 44 45 43 0D 0A 20 20 20 20 20 20 20 ELD:DEC..
00FCC0: 20 49 46 20 2E 4E 4F 54 2E 20 4D 2E 4D 46 49 52 IF .NOT. M.MFIR
00FCD0: 53 54 0D 0A 20 20 20 20 20 20 20 20 20 20 40 20 ST.. @
00FCE0: 31 37 2C 34 35 20 53 41 59 20 27 3C 2D 20 53 65 17,45 SAY '<- Se
00FCF0: 6C 65 63 74 69 6F 6E 20 49 6E 76 61 6C 69 64 27 lection Invalid'
00FD00: 4F 52 45 20 53 54 52 28 46 49 45 4C 44 3A 4C 45 ORE STR(FIELD:LE
00FD10: 4E 2C 32 29 20 54 4F 20 4D 2E 4D 46 49 45 4C 44 N,2) TO M.MFIELD
00FD20: 3A 4C 45 4E 0D 0A 20 20 20 20 20 20 20 20 4F 54 :LEN.. OT
00FD30: 48 45 0D 0A 20 20 20 20 20 20 20 20 20 20 53 54 HE.. ST
00FD40: 4F 52 45 20 53 54 52 28 46 49 45 4C 44 3A 4C 45 ORE STR(FIELD:LE
00FD50: 4E 2C 31 29 20 54 4F 20 4D 2E 4D 46 49 45 4C 44 N,1) TO M.MFIELD
00FD60: 3A 4C 45 4E 0D 0A 20 20 20 20 20 20 45 4E 44 43 :LEN.. ENDC
00FD70: 41 53 45 20 5B 20 63 68 61 6E 67 65 20 66 69 65 ASE [ change fie
00FD80: 6C 64 3A 6C 65 6E 20 74 6F 20 63 68 72 20 66 6F ld:len to chr fo
00FD90: 72 20 64 69 73 70 6C 61 79 20 5D 20 0D 0A 20 20 r display ] ..
00FDA0: 20 20 20 20 40 20 4D 2E 4C 49 4E 45 2D 4D 2E 4F @ M.LINE-M.O
00FDB0: 46 46 53 45 54 2C 31 30 20 53 41 59 20 54 52 49 FFSET,10 SAY TRI
00FDC0: 4D 28 46 49 45 4C 44 3A 4E 41 4D 45 29 2B 27 2C M(FIELD:NAME)+',
00FDD0: 27 2B 46 49 45 4C 44 3A 54 59 50 45 2B 27 2C 27 '+FIELD:TYPE+','
00FDE0: 2B 4D 2E 4D 46 49 45 4C 44 3A 4C 45 4E 0D 0A 20 +M.MFIELD:LEN..
00FDF0: 20 20 20 20 20 53 54 4F 52 45 20 46 49 45 4C 44 STORE FIELD
00FE00: 3A 4C 45 4E 2B 4D 2E 52 45 43 4C 45 4E 20 54 4F :LEN+M.RECLEN TO
00FE10: 20 4D 2E 52 45 43 4C 45 4E 0D 0A 20 20 20 20 43 M.RECLEN.. C
00FE20: 41 53 45 20 46 49 45 4C 44 3A 54 59 50 45 20 3D ASE FIELD:TYPE =
00FE30: 20 27 4E 27 0D 0A 20 20 20 20 20 20 2A 2A 2A 2A 'N'.. ****
00FE40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
00FE50: 0D 0A 20 20 20 20 20 20 2A 20 22 4E 22 20 46 49 .. * "N" FI
00FE60: 45 4C 44 20 4C 45 4E 47 54 48 20 2A 0D 0A 20 20 ELD LENGTH *..
00FE70: 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ************
00FE80: 2A 2A 2A 2A 2A 2A 2A 2A 0D 0A 20 20 20 20 20 20 ********..
00FE90: 3F 20 27 20 20 20 20 20 20 20 20 20 20 20 20 20 ? '
00FEA0: 20 47 6F 6F 64 20 2E 2E 2E 20 4E 6F 77 20 74 68 Good ... Now th
00FEB0: 65 20 4C 65 6E 67 74 68 20 6F 66 20 74 68 65 20 e Length of the
00FEC0: 66 69 65 6C 64 20 2E 2E 2E 2E 20 20 20 20 20 20 field ....
00FED0: 20 27 20 20 0D 0A 20 20 20 20 20 20 40 20 31 39 ' .. @ 19
00FEE0: 2C 35 20 53 41 59 20 27 54 68 65 20 6C 65 6E 67 ,5 SAY 'The leng
00FEF0: 74 68 20 6F 66 20 61 6E 20 22 4E 22 20 66 69 65 th of an "N" fie
00FF00: 0D 0A 20 20 20 20 20 20 20 20 45 4C 53 45 0D 0A .. ELSE..
00FF10: 20 20 20 20 20 20 20 20 20 20 53 54 4F 52 45 20 STORE
00FF20: 4E 20 54 4F 20 4D 46 49 52 53 54 0D 0A 20 20 20 N TO MFIRST..
00FF30: 20 20 20 20 20 45 4E 44 49 46 0D 0A 20 20 20 20 ENDIF..
00FF40: 20 20 20 20 52 45 41 44 0D 0A 20 20 20 20 20 20 READ..
00FF50: 20 20 49 46 20 46 49 45 4C 44 3A 44 45 43 20 3C IF FIELD:DEC <
00FF60: 3D 20 28 46 49 45 4C 44 3A 4C 45 4E 2D 32 29 20 = (FIELD:LEN-2)
00FF70: 2E 41 4E 44 2E 20 46 49 45 4C 44 3A 44 45 43 20 .AND. FIELD:DEC
00FF80: 3E 3D 20 30 0D 0A 20 20 20 20 20 20 20 20 20 20 >= 0..
00FF90: 53 54 4F 52 45 20 54 20 54 4F 20 4E 55 4D 0D 0A STORE T TO NUM..
00FFA0: 20 20 20 20 20 20 20 20 45 4E 44 49 46 20 5B 20 ENDIF [
00FFB0: 76 61 6C 69 64 61 74 65 20 44 65 63 69 6D 61 6C validate Decimal
00FFC0: 20 70 6C 61 63 65 73 20 5D 0D 0A 20 20 20 20 20 places ]..
00FFD0: 20 45 4E 44 44 4F 0D 0A 20 20 20 20 20 20 52 45 ENDDO.. RE
00FFE0: 4C 45 41 53 45 20 4D 46 49 52 53 54 0D 0A 20 20 LEASE MFIRST..
00FFF0: 20 20 20 20 43 4C 45 41 52 20 47 45 54 53 0D 0A CLEAR GETS..
010000: 20 20 20 20 20 20 49 46 20 46 49 45 4C 44 3A 44 IF FIELD:D
010010: 45 43 20 3E 20 39 0D 0A 20 20 20 20 20 20 20 20 EC > 9..
010020: 53 54 4F 52 45 20 53 54 52 28 46 49 45 4C 44 3A STORE STR(FIELD:
010030: 44 45 43 2C 32 29 20 54 4F 20 4D 2E 4D 46 49 45 DEC,2) TO M.MFIE
010040: 4C 44 3A 44 45 43 0D 0A 20 20 20 20 20 20 20 45 LD:DEC.. E
010050: 4C 53 45 0D 0A 20 20 20 20 20 20 20 20 53 54 4F LSE.. STO
010060: 52 45 20 53 54 52 28 46 49 45 4C 44 3A 44 45 43 RE STR(FIELD:DEC
010070: 2C 31 29 20 54 4F 20 4D 2E 4D 46 49 45 4C 44 3A ,1) TO M.MFIELD:
010080: 44 45 43 0D 0A 20 20 20 20 20 20 45 4E 44 49 46 DEC.. ENDIF
010090: 20 5B 20 63 68 61 6E 67 65 20 66 69 65 6C 64 3A [ change field:
0100A0: 64 65 63 20 74 6F 20 63 68 72 20 66 6F 72 20 64 dec to chr for d
0100B0: 69 73 70 6C 61 79 20 5D 20 0D 0A 20 20 20 20 20 isplay ] ..
0100C0: 20 40 20 4D 2E 4C 49 4E 45 2D 4D 2E 4F 46 46 53 @ M.LINE-M.OFFS
0100D0: 45 54 2C 31 30 20 53 41 59 20 54 52 49 4D 28 46 ET,10 SAY TRIM(F
0100E0: 49 45 4C 44 3A 4E 41 4D 45 29 2B 27 2C 27 2B 46 IELD:NAME)+','+F
0100F0: 49 45 4C 44 3A 54 59 50 45 2B 27 2C 27 3B 0D 0A IELD:TYPE+',';..
010100: 6C 64 20 69 6E 63 6C 75 64 69 6E 67 20 31 20 66 ld including 1 f
010110: 6F 72 20 64 65 63 69 6D 61 6C 20 70 6F 69 6E 74 or decimal point
010120: 20 61 6E 64 27 0D 0A 20 20 20 20 20 20 40 20 32 and'.. @ 2
010130: 30 2C 35 20 53 41 59 20 27 20 74 68 65 20 64 65 0,5 SAY ' the de
010140: 63 69 6D 61 6C 20 70 6C 61 63 65 73 2E 20 49 74 cimal places. It
010150: 20 69 73 20 61 6C 73 6F 20 69 6D 70 6F 72 74 61 is also importa
010160: 6E 74 20 74 6F 20 72 65 6D 65 6D 62 65 72 20 74 nt to remember t
010170: 68 61 74 20 20 27 0D 0A 20 20 20 20 20 20 40 20 hat '.. @
010180: 32 31 2C 35 20 53 41 59 20 27 64 42 41 53 45 20 21,5 SAY 'dBASE
010190: 49 49 20 69 73 20 61 63 63 75 72 61 74 65 20 74 II is accurate t
0101A0: 6F 20 31 30 20 73 69 67 6E 69 66 69 63 61 6E 74 o 10 significant
0101B0: 20 66 69 67 75 72 65 73 20 2E 2E 2E 2E 2E 2E 20 figures ......
0101C0: 20 20 20 20 20 20 27 0D 0A 20 20 20 20 20 20 53 '.. S
0101D0: 54 4F 52 45 20 59 20 54 4F 20 4D 46 49 52 53 54 TORE Y TO MFIRST
0101E0: 0D 0A 20 20 20 20 20 20 44 4F 20 57 48 49 4C 45 .. DO WHILE
0101F0: 20 46 49 45 4C 44 3A 4C 45 4E 20 3C 20 31 20 2E FIELD:LEN < 1 .
010200: 4F 52 2E 20 46 49 45 4C 44 3A 4C 45 4E 20 3E 20 OR. FIELD:LEN >
010210: 31 32 0D 0A 20 20 20 20 20 20 20 20 40 20 31 37 12.. @ 17
010220: 2C 30 0D 0A 20 20 20 20 20 20 20 20 40 20 31 37 ,0.. @ 17
010230: 2C 35 20 53 41 59 20 27 41 67 61 69 6E 20 49 20 ,5 SAY 'Again I
010240: 77 69 6C 6C 20 68 65 6C 70 2E 20 45 6E 74 65 72 will help. Enter
010250: 20 4C 65 6E 67 74 68 20 27 20 47 45 54 20 46 49 Length ' GET FI
010260: 45 4C 44 3A 4C 45 4E 0D 0A 20 20 20 20 20 20 20 ELD:LEN..
010270: 20 49 46 20 2E 4E 4F 54 2E 20 4D 2E 4D 46 49 52 IF .NOT. M.MFIR
010280: 53 54 0D 0A 20 20 20 20 20 20 20 20 20 20 40 20 ST.. @
010290: 31 37 2C 34 35 20 53 41 59 20 27 3C 2D 20 53 65 17,45 SAY '<- Se
0102A0: 6C 65 63 74 69 6F 6E 20 49 6E 76 61 6C 69 64 27 lection Invalid'
0102B0: 0D 0A 20 20 20 20 20 20 20 20 45 4C 53 45 0D 0A .. ELSE..
0102C0: 20 20 20 20 20 20 20 20 20 20 53 54 4F 52 45 20 STORE
0102D0: 4E 20 54 4F 20 4D 46 49 52 53 54 0D 0A 20 20 20 N TO MFIRST..
0102E0: 20 20 20 20 20 45 4E 44 49 46 0D 0A 20 20 20 20 ENDIF..
0102F0: 20 20 20 20 52 45 41 44 0D 0A 20 20 20 20 20 20 READ..
010300: 20 20 20 20 20 20 2B 4D 2E 4D 46 49 45 4C 44 3A +M.MFIELD:
010310: 4C 45 4E 2B 27 2C 27 2B 4D 2E 4D 46 49 45 4C 44 LEN+','+M.MFIELD
010320: 3A 44 45 43 0D 0A 20 20 20 20 20 20 40 20 31 36 :DEC.. @ 16
010330: 2C 30 0D 0A 20 20 20 20 20 20 40 20 31 37 2C 30 ,0.. @ 17,0
010340: 0D 0A 20 20 20 20 20 20 40 20 31 38 2C 30 0D 0A .. @ 18,0..
010350: 20 20 20 20 20 20 40 20 31 39 2C 30 0D 0A 20 20 @ 19,0..
010360: 20 20 20 20 40 20 32 30 2C 30 0D 0A 20 20 20 20 @ 20,0..
010370: 20 20 40 20 32 31 2C 31 0D 0A 20 20 20 20 20 20 @ 21,1..
010380: 4F 54 48 45 52 57 49 53 45 0D 0A 20 20 20 20 20 OTHERWISE..
010390: 20 49 46 20 4D 2E 52 45 43 4C 45 4E 2B 31 20 3E IF M.RECLEN+1 >
0103A0: 20 31 30 30 30 0D 0A 20 20 20 20 20 20 20 20 40 1000.. @
0103B0: 20 31 38 2C 30 0D 0A 20 20 20 20 20 20 20 20 40 18,0.. @
0103C0: 20 31 39 2C 30 0D 0A 20 20 20 20 20 20 20 20 40 19,0.. @
0103D0: 20 32 30 2C 30 0D 0A 20 20 20 20 20 20 20 20 40 20,0.. @
0103E0: 20 32 31 2C 31 0D 0A 20 20 20 20 20 20 20 20 40 21,1.. @
0103F0: 20 32 30 2C 35 20 53 41 59 20 27 54 68 65 20 6F 20,5 SAY 'The o
010400: 76 65 72 61 6C 6C 20 6C 65 6E 67 74 68 20 6F 66 verall length of
010410: 20 79 6F 75 72 20 72 65 63 6F 72 64 20 69 73 20 your record is
010420: 27 2B 73 74 72 28 72 65 63 6C 65 6E 2C 34 29 0D '+str(reclen,4).
010430: 0A 20 20 20 20 20 20 20 20 40 20 32 31 2C 35 20 . @ 21,5
010440: 53 41 59 20 27 57 69 74 68 20 74 68 69 73 20 66 SAY 'With this f
010450: 69 65 6C 64 20 6C 65 6E 67 74 68 20 69 74 20 77 ield length it w
010460: 6F 75 6C 64 20 62 65 20 6F 76 65 72 20 31 30 30 ould be over 100
010470: 30 2E 27 0D 0A 20 20 20 20 20 20 20 20 52 45 50 0.'.. REP
010480: 4C 41 43 45 20 46 49 45 4C 44 3A 4C 45 4E 20 57 LACE FIELD:LEN W
010490: 49 54 48 20 30 2C 46 49 45 4C 44 3A 4E 41 4D 45 ITH 0,FIELD:NAME
0104A0: 20 57 49 54 48 20 27 20 20 20 20 20 20 20 20 20 WITH '
0104B0: 20 27 2C 3B 0D 0A 20 20 20 20 20 20 20 20 46 49 ',;.. FI
0104C0: 45 4C 44 3A 54 59 50 45 20 57 49 54 48 20 27 20 ELD:TYPE WITH '
0104D0: 27 0D 0A 20 20 20 20 20 20 20 20 64 65 6C 65 20 '.. dele
0104E0: 0D 0A 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 .. store
0104F0: 66 20 74 6F 20 63 6F 6E 74 0D 0A 20 20 20 20 20 f to cont..
010500: 20 20 49 46 20 4D 2E 52 45 43 4C 45 4E 2B 46 49 IF M.RECLEN+FI
010510: 45 4C 44 3A 4C 45 4E 20 3E 20 31 30 30 30 0D 0A ELD:LEN > 1000..
010520: 20 20 20 20 20 20 20 20 20 20 40 20 31 38 2C 30 @ 18,0
010530: 0D 0A 20 20 20 20 20 20 20 20 20 20 40 20 31 39 .. @ 19
010540: 2C 30 0D 0A 20 20 20 20 20 20 20 20 20 20 40 20 ,0.. @
010550: 32 30 2C 30 0D 0A 20 20 20 20 20 20 20 20 20 20 20,0..
010560: 40 20 32 31 2C 31 0D 0A 20 20 20 20 20 20 20 20 @ 21,1..
010570: 20 20 40 20 32 30 2C 35 20 53 41 59 20 27 54 68 @ 20,5 SAY 'Th
010580: 65 20 6F 76 65 72 61 6C 6C 20 6C 65 6E 67 74 68 e overall length
010590: 20 6F 66 20 79 6F 75 72 20 72 65 63 6F 72 64 20 of your record
0105A0: 69 73 20 27 2B 73 74 72 28 72 65 63 6C 65 6E 2C is '+str(reclen,
0105B0: 34 29 0D 0A 20 20 20 20 20 20 20 20 20 20 40 20 4).. @
0105C0: 32 31 2C 35 20 53 41 59 20 27 57 69 74 68 20 74 21,5 SAY 'With t
0105D0: 68 69 73 20 66 69 65 6C 64 20 6C 65 6E 67 74 68 his field length
0105E0: 20 69 74 20 77 6F 75 6C 64 20 62 65 20 6F 76 65 it would be ove
0105F0: 72 20 31 30 30 30 2E 27 0D 0A 20 20 20 20 20 20 r 1000.'..
010600: 20 20 20 20 52 45 50 4C 41 43 45 20 46 49 45 4C REPLACE FIEL
010610: 44 3A 4C 45 4E 20 57 49 54 48 20 30 0D 0A 20 20 D:LEN WITH 0..
010620: 20 20 20 20 20 20 20 20 53 54 4F 52 45 20 31 20 STORE 1
010630: 54 4F 20 43 0D 0A 20 20 20 20 20 20 20 20 20 20 TO C..
010640: 44 4F 20 57 48 49 4C 45 20 43 20 3C 20 32 35 0D DO WHILE C < 25.
010650: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 . ST
010660: 4F 52 45 20 43 2B 31 20 54 4F 20 43 0D 0A 20 20 ORE C+1 TO C..
010670: 20 20 20 20 20 20 20 20 45 4E 44 44 4F 0D 0A 20 ENDDO..
010680: 20 20 20 20 20 20 20 20 20 40 20 31 36 2C 30 0D @ 16,0.
010690: 0A 20 20 20 20 20 20 20 20 20 20 40 20 31 37 2C . @ 17,
0106A0: 30 0D 0A 20 20 20 20 20 20 20 20 20 20 40 20 32 0.. @ 2
0106B0: 30 2C 30 0D 0A 20 20 20 20 20 20 20 20 20 20 40 0,0.. @
0106C0: 20 32 31 2C 31 0D 0A 20 20 20 20 20 20 20 20 45 21,1.. E
0106D0: 4E 44 49 46 20 0D 0A 20 20 20 20 20 20 45 4E 44 NDIF .. END
0106E0: 44 4F 0D 0A 20 20 20 20 20 20 52 45 4C 45 41 53 DO.. RELEAS
0106F0: 45 20 4D 46 49 52 53 54 0D 0A 20 20 20 20 20 20 E MFIRST..
010700: 20 20 20 53 54 4F 52 45 20 31 20 54 4F 20 43 0D STORE 1 TO C.
010710: 0A 20 20 20 20 20 20 20 20 44 4F 20 57 48 49 4C . DO WHIL
010720: 45 20 43 20 3C 20 32 35 0D 0A 20 20 20 20 20 20 E C < 25..
010730: 20 20 20 20 53 54 4F 52 45 20 43 2B 31 20 54 4F STORE C+1 TO
010740: 20 43 0D 0A 20 20 20 20 20 20 20 20 45 4E 44 44 C.. ENDD
010750: 4F 0D 0A 20 20 20 20 20 20 20 20 6C 6F 6F 70 0D O.. loop.
010760: 0A 20 20 20 20 20 20 45 4C 53 45 0D 0A 20 20 20 . ELSE..
010770: 20 20 20 20 20 53 54 4F 52 45 20 4D 2E 52 45 43 STORE M.REC
010780: 4C 45 4E 2B 31 20 54 4F 20 4D 2E 52 45 43 4C 45 LEN+1 TO M.RECLE
010790: 4E 0D 0A 20 20 20 20 20 20 20 20 40 20 4D 2E 4C N.. @ M.L
0107A0: 49 4E 45 2D 4D 2E 4F 46 46 53 45 54 2C 31 30 20 INE-M.OFFSET,10
0107B0: 53 41 59 20 54 52 49 4D 28 46 49 45 4C 44 3A 4E SAY TRIM(FIELD:N
0107C0: 41 4D 45 29 2B 27 2C 27 2B 46 49 45 4C 44 3A 54 AME)+','+FIELD:T
0107D0: 59 50 45 20 20 20 20 20 20 0D 0A 20 20 20 20 20 YPE ..
0107E0: 20 45 4E 44 49 46 20 0D 0A 20 20 45 4E 44 43 41 ENDIF .. ENDCA
0107F0: 53 45 0D 0A 20 20 53 54 4F 52 45 20 4D 2E 4C 49 SE.. STORE M.LI
010800: 4E 45 2B 31 20 54 4F 20 4D 2E 4C 49 4E 45 0D 0A NE+1 TO M.LINE..
010810: 20 20 40 20 4D 2E 4C 49 4E 45 2D 4D 2E 4F 46 46 @ M.LINE-M.OFF
010820: 53 45 54 2C 30 20 0D 0A 20 20 49 46 20 4D 2E 4C SET,0 .. IF M.L
010830: 49 4E 45 3E 31 34 0D 0A 20 20 20 20 53 54 4F 52 INE>14.. STOR
010840: 45 20 4D 2E 4F 46 46 53 45 54 2B 31 20 54 4F 20 E M.OFFSET+1 TO
010850: 4D 2E 4F 46 46 53 45 54 0D 0A 20 20 20 20 40 20 M.OFFSET.. @
010860: 30 2C 30 0D 0A 20 20 20 20 40 20 31 2C 30 0D 0A 0,0.. @ 1,0..
010870: 20 20 20 20 40 20 32 2C 30 0D 0A 20 20 20 20 40 @ 2,0.. @
010880: 20 31 37 2C 30 0D 0A 20 20 20 20 40 20 31 38 2C 17,0.. @ 18,
010890: 30 0D 0A 20 20 20 20 40 20 31 39 2C 30 0D 0A 20 0.. @ 19,0..
0108A0: 20 20 20 40 20 32 30 2C 30 0D 0A 20 20 20 20 40 @ 20,0.. @
0108B0: 20 32 31 2C 31 0D 0A 20 20 20 20 40 20 32 33 2C 21,1.. @ 23,
0108C0: 30 20 53 41 59 20 4D 2E 42 4C 41 4E 4B 20 0D 0A 0 SAY M.BLANK ..
0108D0: 20 20 20 20 3F 0D 0A 20 20 20 20 3F 0D 0A 20 20 ?.. ?..
0108E0: 20 20 40 20 30 2C 30 0D 0A 20 20 20 20 54 45 58 @ 0,0.. TEX
0108F0: 54 0D 0A 0D 0A 57 45 4C 43 4F 4D 45 20 20 20 20 T....WELCOME
010900: 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 20 20 CLEAR GETS..
010910: 20 20 53 54 4F 52 45 20 4D 2E 52 45 43 4C 45 4E STORE M.RECLEN
010920: 2B 46 49 45 4C 44 3A 4C 45 4E 20 54 4F 20 4D 2E +FIELD:LEN TO M.
010930: 52 45 43 4C 45 4E 0D 0A 20 20 20 20 20 20 49 46 RECLEN.. IF
010940: 20 46 49 45 4C 44 3A 4C 45 4E 20 3E 20 39 0D 0A FIELD:LEN > 9..
010950: 20 20 20 20 20 20 20 20 53 54 4F 52 45 20 53 54 STORE ST
010960: 52 28 46 49 45 4C 44 3A 4C 45 4E 2C 32 29 20 54 R(FIELD:LEN,2) T
010970: 4F 20 4D 2E 4D 46 49 45 4C 44 3A 4C 45 4E 0D 0A O M.MFIELD:LEN..
010980: 20 20 20 20 20 20 20 45 4C 53 45 0D 0A 20 20 20 ELSE..
010990: 20 20 20 20 20 53 54 4F 52 45 20 53 54 52 28 46 STORE STR(F
0109A0: 49 45 4C 44 3A 4C 45 4E 2C 31 29 20 54 4F 20 4D IELD:LEN,1) TO M
0109B0: 2E 4D 46 49 45 4C 44 3A 4C 45 4E 0D 0A 20 20 20 .MFIELD:LEN..
0109C0: 20 20 20 45 4E 44 49 46 20 5B 20 63 68 61 6E 67 ENDIF [ chang
0109D0: 65 20 66 69 65 6C 64 3A 6C 65 6E 20 74 6F 20 63 e field:len to c
0109E0: 68 72 20 66 6F 72 20 64 69 73 70 6C 61 79 20 5D hr for display ]
0109F0: 20 0D 0A 20 20 20 20 20 20 40 20 4D 2E 4C 49 4E .. @ M.LIN
010A00: 45 2D 4D 2E 4F 46 46 53 45 54 2C 31 30 20 53 41 E-M.OFFSET,10 SA
010A10: 59 20 54 52 49 4D 28 46 49 45 4C 44 3A 4E 41 4D Y TRIM(FIELD:NAM
010A20: 45 29 2B 27 2C 27 2B 46 49 45 4C 44 3A 54 59 50 E)+','+FIELD:TYP
010A30: 45 2B 27 2C 27 2B 4D 2E 4D 46 49 45 4C 44 3A 4C E+','+M.MFIELD:L
010A40: 45 4E 2B 27 2C 27 0D 0A 20 20 20 20 20 20 2A 2A EN+','.. **
010A50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
010A60: 2A 2A 2A 2A 0D 0A 20 20 20 20 20 20 2A 20 22 4E ****.. * "N
010A70: 22 20 46 49 45 4C 44 20 44 45 43 49 4D 41 4C 53 " FIELD DECIMALS
010A80: 20 2A 0D 0A 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A *.. ******
010A90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
010AA0: 0D 0A 20 20 20 20 20 20 3F 20 27 20 20 20 20 20 .. ? '
010AB0: 20 20 20 20 20 20 20 20 20 47 6F 6F 64 20 2E 2E Good ..
010AC0: 2E 20 4E 6F 77 20 74 68 65 20 6E 75 6D 62 65 72 . Now the number
010AD0: 20 6F 66 20 64 65 63 69 6D 61 6C 20 70 6C 61 63 of decimal plac
010AE0: 65 73 20 2E 2E 2E 2E 20 20 27 20 20 0D 0A 20 20 es .... ' ..
010AF0: 20 20 20 20 40 20 31 36 2C 30 0D 0A 20 20 20 20 @ 16,0..
010B00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
010B10: 0E 00 01 00 02 09 52 E5 0E 00 41 02 00 00 00 02 ......R...A.....
010B20: 0E 00 46 02 00 00 00 02 0E 00 42 02 00 00 00 02 ..F.......B.....
010B30: 0E 00 47 02 00 00 00 02 0E 00 43 02 00 00 00 02 ..G.......C.....
010B40: 0E 00 48 02 00 00 00 02 0E 00 44 02 00 00 00 02 ..H.......D.....
010B50: 0E 00 49 02 00 00 00 02 0E 00 45 02 00 00 00 02 ..I.......E.....
010B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010C00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010C10: 20 43 52 45 41 54 45 20 41 20 44 41 54 41 42 41 CREATE A DATABA
010C20: 53 45 20 46 49 4C 45 20 20 20 20 20 20 20 20 20 SE FILE
010C30: 20 20 20 20 20 20 20 20 20 20 20 64 42 41 53 45 dBASE
010C40: 20 49 49 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D II..-----------
010C50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
010C60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
010C70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
010C80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
010C90: 2D 2D 2D 2D 0D 0A 20 20 20 20 45 4E 44 54 45 58 ----.. ENDTEX
010CA0: 54 0D 0A 20 20 20 20 40 20 31 2C 30 0D 0A 20 20 T.. @ 1,0..
010CB0: 20 20 40 20 32 2C 30 0D 0A 20 20 20 20 40 20 32 @ 2,0.. @ 2
010CC0: 32 2C 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D 2D 2,1 SAY '-------
010CD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
010CE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
010CF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
010D00: 2D 2D 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 --';..
010D10: 20 20 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D + '----------
010D20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 20 20 20 ----------'..
010D30: 20 40 20 32 31 2C 31 0D 0A 20 20 45 4E 44 49 46 @ 21,1.. ENDIF
010D40: 0D 0A 20 20 41 50 50 45 4E 44 20 42 4C 41 4E 4B .. APPEND BLANK
010D50: 0D 0A 45 4E 44 44 4F 0D 0A 0D 0A 2A 2A 2A 2A 2A ..ENDDO....*****
010D60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 4D 4A ************* MJ
010D70: 47 20 2D 20 31 39 2F 30 37 2F 38 34 0D 0A 69 66 G - 19/07/84..if
010D80: 20 6C 69 6E 65 20 3E 3D 20 32 32 0D 0A 20 20 40 line >= 22.. @
010D90: 20 32 30 2C 35 20 73 61 79 20 27 64 42 41 53 45 20,5 say 'dBASE
010DA0: 20 49 49 20 77 69 6C 6C 20 61 6C 6C 6F 77 20 75 II will allow u
010DB0: 70 20 74 6F 20 33 32 20 66 69 65 6C 64 73 2E 27 p to 32 fields.'
010DC0: 0D 0A 20 20 40 20 32 31 2C 35 20 73 61 79 20 27 .. @ 21,5 say '
010DD0: 57 45 4C 43 4F 4D 45 2C 20 66 6F 72 20 74 68 65 WELCOME, for the
010DE0: 20 73 61 6B 65 20 6F 66 20 73 69 6D 70 6C 69 63 sake of simplic
010DF0: 69 74 79 2C 20 77 69 6C 6C 20 6F 6E 6C 79 20 61 ity, will only a
010E00: 31 2C 31 20 53 41 59 20 27 57 45 4C 43 4F 4D 45 1,1 SAY 'WELCOME
010E10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010E20: 20 20 20 20 20 20 20 4F 50 45 4E 2F 43 4C 4F 53 OPEN/CLOS
010E30: 45 20 41 20 46 49 4C 45 27 0D 0A 20 20 40 20 31 E A FILE'.. @ 1
010E40: 2C 37 31 20 53 41 59 20 27 64 42 41 53 45 20 49 ,71 SAY 'dBASE I
010E50: 49 27 0D 0A 20 20 40 20 32 2C 31 20 53 41 59 20 I'.. @ 2,1 SAY
010E60: 55 4E 44 45 52 4C 4E 0D 0A 20 20 40 20 32 32 2C UNDERLN.. @ 22,
010E70: 31 20 53 41 59 20 55 4E 44 45 52 4C 4E 0D 0A 20 1 SAY UNDERLN..
010E80: 20 40 20 32 33 2C 30 20 53 41 59 20 27 2E 20 55 @ 23,0 SAY '. U
010E90: 53 45 27 0D 0A 20 20 49 46 20 46 49 4C 45 20 28 SE'.. IF FILE (
010EA0: 20 27 54 45 4D 50 53 54 52 55 2E 44 42 46 27 20 'TEMPSTRU.DBF'
010EB0: 29 0D 0A 20 20 20 20 20 44 45 4C 45 54 45 20 46 ).. DELETE F
010EC0: 49 4C 45 20 54 45 4D 50 53 54 52 55 2E 44 42 46 ILE TEMPSTRU.DBF
010ED0: 0D 0A 20 20 45 4E 44 49 46 0D 0A 20 20 49 46 20 .. ENDIF.. IF
010EE0: 46 49 4C 45 20 28 20 27 54 45 4D 50 53 54 52 31 FILE ( 'TEMPSTR1
010EF0: 2E 44 42 46 27 20 29 0D 0A 20 20 20 20 20 44 45 .DBF' ).. DE
010F00: 4C 45 54 45 20 46 49 4C 45 20 54 45 4D 50 53 54 LETE FILE TEMPST
010F10: 52 31 2E 44 42 46 0D 0A 20 20 45 4E 44 49 46 0D R1.DBF.. ENDIF.
010F20: 0A 20 20 49 46 20 46 49 4C 45 20 28 20 27 54 45 . IF FILE ( 'TE
010F30: 4D 50 2E 44 42 46 27 20 29 0D 0A 20 20 20 20 20 MP.DBF' )..
010F40: 44 45 4C 45 54 45 20 46 49 4C 45 20 54 45 4D 50 DELETE FILE TEMP
010F50: 2E 44 42 46 0D 0A 20 20 45 4E 44 49 46 0D 0A 20 .DBF.. ENDIF..
010F60: 20 40 20 34 2C 35 20 53 41 59 20 27 4E 65 78 74 @ 4,5 SAY 'Next
010F70: 20 64 42 41 53 45 20 49 49 20 72 65 71 75 69 72 dBASE II requir
010F80: 65 73 20 74 68 65 20 66 69 6C 65 6E 61 6D 65 2C es the filename,
010F90: 20 3B 0D 0A 73 65 6C 65 63 74 20 66 72 6F 6D 20 ;..select from
010FA0: 74 68 65 20 66 6F 6C 6C 6F 77 69 6E 67 27 0D 0A the following'..
010FB0: 20 20 40 20 35 2C 30 0D 0A 20 20 4C 49 53 54 20 @ 5,0.. LIST
010FC0: 46 49 4C 45 53 20 4C 49 4B 45 20 2A 2E 44 42 46 FILES LIKE *.DBF
010FD0: 0D 0A 20 20 53 54 4F 52 45 20 27 20 20 20 20 20 .. STORE '
010FE0: 20 20 20 27 20 54 4F 20 43 46 49 4C 45 0D 0A 20 ' TO CFILE..
010FF0: 20 53 54 4F 52 45 20 46 20 54 4F 20 56 41 4C 49 STORE F TO VALI
011000: 6C 6C 6F 77 20 31 34 2E 27 0D 0A 65 6E 64 69 66 llow 14.'..endif
011010: 0D 0A 73 74 6F 72 65 20 31 20 74 6F 20 63 0D 0A ..store 1 to c..
011020: 64 6F 20 77 68 69 6C 65 20 4D 2E 63 20 3C 20 33 do while M.c < 3
011030: 30 0D 0A 20 20 73 74 6F 72 65 20 4D 2E 63 2B 31 0.. store M.c+1
011040: 20 74 6F 20 4D 2E 63 0D 0A 65 6E 64 64 6F 0D 0A to M.c..enddo..
011050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
011060: 2A 2A 20 0D 0A 0D 0A 49 46 20 46 49 45 4C 44 3A ** ....IF FIELD:
011070: 4E 41 4D 45 20 3D 20 27 20 20 20 20 20 20 20 20 NAME = '
011080: 20 20 27 0D 0A 20 20 44 45 4C 45 0D 0A 20 20 50 '.. DELE.. P
011090: 41 43 4B 0D 0A 45 4E 44 49 46 20 5B 20 72 65 6D ACK..ENDIF [ rem
0110A0: 6F 76 65 20 6C 61 73 74 20 72 65 63 6F 72 64 20 ove last record
0110B0: 69 66 20 62 6C 61 6E 6B 20 5D 0D 0A 43 52 45 41 if blank ]..CREA
0110C0: 54 45 20 26 43 46 49 4C 45 20 46 52 4F 4D 20 54 TE &CFILE FROM T
0110D0: 45 4D 50 0D 0A 40 20 31 37 2C 30 0D 0A 40 20 31 EMP..@ 17,0..@ 1
0110E0: 38 2C 30 0D 0A 40 20 31 39 2C 30 0D 0A 40 20 32 8,0..@ 19,0..@ 2
0110F0: 30 2C 30 0D 0A 40 20 32 31 2C 30 0D 0A 40 20 32 0,0..@ 21,0..@ 2
011100: 33 2C 30 20 4D 2E 42 4C 41 4E 4B 0D 0A 40 20 31 3,0 M.BLANK..@ 1
011110: 31 2C 32 37 20 53 41 59 20 27 52 45 54 55 52 4E 1,27 SAY 'RETURN
011120: 49 4E 47 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 ING TO MAIN MENU
011130: 27 0D 0A 40 20 32 30 2C 31 0D 0A 52 45 4C 45 41 '..@ 20,1..RELEA
011140: 53 45 20 41 4C 4C 20 45 58 43 45 50 54 20 4D 46 SE ALL EXCEPT MF
011150: 49 4C 45 0D 0A 53 45 4C 45 20 53 45 43 4F 0D 0A ILE..SELE SECO..
011160: 55 53 45 0D 0A 53 45 4C 45 20 50 52 49 4D 0D 0A USE..SELE PRIM..
011170: 55 53 45 20 26 4D 46 49 4C 45 0D 0A 44 45 4C 45 USE &MFILE..DELE
011180: 54 45 20 46 49 4C 45 20 54 45 4D 50 2E 44 42 46 TE FILE TEMP.DBF
011190: 0D 0A 52 45 54 55 52 4E 0D 0A 1A 1A 1A 1A 1A 1A ..RETURN........
0111A0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0111B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0111C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0111D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0111E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0111F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
011200: 44 0D 0A 20 20 44 4F 20 57 48 49 4C 45 20 2E 4E D.. DO WHILE .N
011210: 4F 54 2E 20 4D 2E 56 41 4C 49 44 0D 0A 20 20 20 OT. M.VALID..
011220: 20 40 20 31 37 2C 34 32 20 53 41 59 20 27 5B 42 @ 17,42 SAY '[B
011230: 6C 61 6E 6B 20 74 6F 20 66 69 6E 69 73 68 5D 27 lank to finish]'
011240: 0D 0A 20 20 20 20 40 20 31 37 2C 35 20 53 41 59 .. @ 17,5 SAY
011250: 20 27 50 6C 65 61 73 65 20 65 6E 74 65 72 20 66 'Please enter f
011260: 69 6C 65 20 6E 61 6D 65 2E 20 27 20 47 45 54 20 ile name. ' GET
011270: 4D 2E 43 46 49 4C 45 20 50 49 43 54 20 27 21 21 M.CFILE PICT '!!
011280: 21 21 21 21 21 21 27 0D 0A 20 20 20 20 40 20 31 !!!!!!'.. @ 1
011290: 39 2C 35 20 53 41 59 20 27 54 68 65 20 2E 44 42 9,5 SAY 'The .DB
0112A0: 46 20 73 75 66 66 69 78 20 69 73 20 6E 6F 74 20 F suffix is not
0112B0: 72 65 71 75 69 72 65 64 27 0D 0A 20 20 20 20 52 required'.. R
0112C0: 45 41 44 0D 0A 20 20 20 20 43 4C 45 41 52 20 47 EAD.. CLEAR G
0112D0: 45 54 53 0D 0A 20 20 20 20 49 46 20 4D 2E 43 46 ETS.. IF M.CF
0112E0: 49 4C 45 20 3D 20 27 20 20 20 20 20 20 20 20 27 ILE = ' '
0112F0: 0D 0A 20 20 20 20 20 20 45 52 41 53 45 0D 0A 20 .. ERASE..
011300: 20 20 20 20 20 40 20 31 2C 31 20 53 41 59 20 27 @ 1,1 SAY '
011310: 57 45 4C 43 4F 4D 45 20 20 20 20 20 20 20 20 20 WELCOME
011320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4F 50 OP
011330: 45 4E 2F 43 4C 4F 53 45 20 41 20 46 49 4C 45 27 EN/CLOSE A FILE'
011340: 0D 0A 20 20 20 20 20 20 40 20 31 2C 37 31 20 53 .. @ 1,71 S
011350: 41 59 20 27 64 42 41 53 45 20 49 49 27 0D 0A 20 AY 'dBASE II'..
011360: 20 20 20 20 20 40 20 32 2C 31 20 53 41 59 20 55 @ 2,1 SAY U
011370: 4E 44 45 52 4C 4E 0D 0A 20 20 20 20 20 20 40 20 NDERLN.. @
011380: 32 32 2C 31 20 53 41 59 20 55 4E 44 45 52 4C 4E 22,1 SAY UNDERLN
011390: 0D 0A 20 20 20 20 20 20 40 20 31 31 2C 32 37 20 .. @ 11,27
0113A0: 53 41 59 20 27 52 45 54 55 52 4E 49 4E 47 20 54 SAY 'RETURNING T
0113B0: 4F 20 4D 41 49 4E 20 4D 45 4E 55 27 0D 0A 20 20 O MAIN MENU'..
0113C0: 20 20 20 20 40 20 32 30 2C 31 0D 0A 20 20 20 20 @ 20,1..
0113D0: 20 20 53 54 4F 52 45 20 31 20 54 4F 20 43 0D 0A STORE 1 TO C..
0113E0: 20 20 20 20 20 20 44 4F 20 57 48 49 4C 45 20 43 DO WHILE C
0113F0: 20 3C 20 32 35 0D 0A 20 20 20 20 20 20 20 20 53 < 25.. S
011400: 53 54 4F 52 45 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D STORE '---------
011410: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
011420: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20 --------------'
011430: 54 4F 20 55 4E 44 45 52 4C 4E 0D 0A 53 54 4F 52 TO UNDERLN..STOR
011440: 45 20 27 20 20 20 20 20 20 20 20 20 20 20 20 20 E '
011450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011470: 20 27 20 54 4F 20 42 4C 41 4E 4B 0D 0A 53 54 4F ' TO BLANK..STO
011480: 52 45 20 55 4E 44 45 52 4C 4E 2B 55 4E 44 45 52 RE UNDERLN+UNDER
011490: 4C 4E 20 54 4F 20 55 4E 44 45 52 4C 4E 0D 0A 45 LN TO UNDERLN..E
0114A0: 52 41 53 45 0D 0A 40 20 31 2C 31 20 53 41 59 20 RASE..@ 1,1 SAY
0114B0: 27 57 45 4C 43 4F 4D 45 20 20 20 20 20 20 20 20 'WELCOME
0114C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4F O
0114D0: 50 45 4E 2F 43 4C 4F 53 45 20 41 20 46 49 4C 45 PEN/CLOSE A FILE
0114E0: 27 0D 0A 40 20 31 2C 37 31 20 53 41 59 20 27 64 '..@ 1,71 SAY 'd
0114F0: 42 41 53 45 20 49 49 27 0D 0A 40 20 32 2C 31 20 BASE II'..@ 2,1
011500: 53 41 59 20 55 4E 44 45 52 4C 4E 0D 0A 40 20 38 SAY UNDERLN..@ 8
011510: 2C 32 30 20 73 61 79 20 27 41 2E 20 20 4F 70 65 ,20 say 'A. Ope
011520: 6E 20 61 20 66 69 6C 65 27 0D 0A 40 20 31 30 2C n a file'..@ 10,
011530: 32 30 20 53 41 59 20 27 42 2E 20 20 43 6C 6F 73 20 SAY 'B. Clos
011540: 65 20 61 20 66 69 6C 65 27 0D 0A 40 20 31 32 2C e a file'..@ 12,
011550: 32 30 20 53 41 59 20 27 58 2E 20 20 52 65 74 75 20 SAY 'X. Retu
011560: 72 6E 20 74 6F 20 6D 61 69 6E 20 6D 65 6E 75 27 rn to main menu'
011570: 0D 0A 40 20 32 32 2C 31 20 53 41 59 20 55 4E 44 ..@ 22,1 SAY UND
011580: 45 52 4C 4E 0D 0A 53 54 4F 52 45 20 27 20 27 20 ERLN..STORE ' '
011590: 54 4F 20 52 45 50 4C 59 0D 0A 53 54 4F 52 45 20 TO REPLY..STORE
0115A0: 59 20 20 20 54 4F 20 4D 46 49 52 53 54 0D 0A 44 Y TO MFIRST..D
0115B0: 4F 20 57 48 49 4C 45 20 2E 4E 4F 54 2E 20 4D 2E O WHILE .NOT. M.
0115C0: 52 45 50 4C 59 24 27 41 42 58 27 0D 0A 20 20 40 REPLY$'ABX'.. @
0115D0: 20 32 31 2C 30 0D 0A 20 20 40 20 32 31 2C 35 20 21,0.. @ 21,5
0115E0: 53 41 59 20 27 50 6C 65 61 73 65 20 65 6E 74 65 SAY 'Please ente
0115F0: 72 20 6F 70 74 69 6F 6E 20 2D 20 27 20 0D 0A 20 r option - ' ..
011600: 54 4F 52 45 20 43 2B 31 20 54 4F 20 43 0D 0A 20 TORE C+1 TO C..
011610: 20 20 20 20 20 45 4E 44 44 4F 0D 0A 20 20 20 20 ENDDO..
011620: 20 20 53 45 4C 45 20 53 45 43 4F 0D 0A 20 20 20 SELE SECO..
011630: 20 20 20 55 53 45 20 0D 0A 20 20 20 20 20 20 53 USE .. S
011640: 45 4C 45 20 50 52 49 4D 0D 0A 20 20 20 20 20 20 ELE PRIM..
011650: 55 53 45 20 26 4D 46 49 4C 45 20 0D 0A 20 20 20 USE &MFILE ..
011660: 20 20 20 52 45 4C 45 41 53 45 20 41 4C 4C 20 45 RELEASE ALL E
011670: 58 43 45 50 54 20 4D 46 49 4C 45 0D 0A 20 20 20 XCEPT MFILE..
011680: 20 20 20 52 45 54 55 52 4E 0D 0A 20 20 20 20 45 RETURN.. E
011690: 4E 44 49 46 20 5B 20 42 6C 61 6E 6B 20 66 69 6C NDIF [ Blank fil
0116A0: 65 20 6E 61 6D 65 20 5D 0D 0A 20 20 20 20 53 54 e name ].. ST
0116B0: 4F 52 45 20 54 52 49 4D 28 4D 2E 43 46 49 4C 45 ORE TRIM(M.CFILE
0116C0: 29 20 54 4F 20 4D 54 45 53 54 20 0D 0A 20 20 20 ) TO MTEST ..
0116D0: 20 53 54 4F 52 45 20 27 20 27 20 54 4F 20 45 52 STORE ' ' TO ER
0116E0: 52 31 2C 45 52 52 32 0D 0A 20 20 20 20 53 54 4F R1,ERR2.. STO
0116F0: 52 45 20 54 20 54 4F 20 4D 53 47 0D 0A 20 20 20 RE T TO MSG..
011700: 20 49 46 20 2E 4E 4F 54 2E 20 24 28 4D 2E 4D 54 IF .NOT. $(M.MT
011710: 45 53 54 2C 31 2C 31 29 24 27 41 42 43 44 45 46 EST,1,1)$'ABCDEF
011720: 47 48 49 4A 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 GHIJKLMNOPQRSTUV
011730: 57 58 59 5A 27 0D 0A 20 20 20 20 20 20 53 54 4F WXYZ'.. STO
011740: 52 45 20 46 20 54 4F 20 4D 53 47 0D 0A 20 20 20 RE F TO MSG..
011750: 20 20 20 53 54 4F 52 45 20 45 52 52 31 2B 27 5E STORE ERR1+'^
011760: 27 20 54 4F 20 45 52 52 31 0D 0A 20 20 20 20 20 ' TO ERR1..
011770: 20 53 54 4F 52 45 20 45 52 52 32 2B 27 21 27 20 STORE ERR2+'!'
011780: 54 4F 20 45 52 52 32 20 0D 0A 20 20 20 20 20 45 TO ERR2 .. E
011790: 4C 53 45 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 LSE.. STORE
0117A0: 20 45 52 52 31 2B 27 20 27 20 54 4F 20 45 52 52 ERR1+' ' TO ERR
0117B0: 31 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 20 45 1.. STORE E
0117C0: 52 52 32 2B 27 20 27 20 54 4F 20 45 52 52 32 0D RR2+' ' TO ERR2.
0117D0: 0A 20 20 20 20 45 4E 44 49 46 0D 0A 20 20 20 20 . ENDIF..
0117E0: 53 54 4F 52 45 20 32 20 54 4F 20 43 0D 0A 20 20 STORE 2 TO C..
0117F0: 20 20 44 4F 20 57 48 49 4C 45 20 4D 2E 43 20 3C DO WHILE M.C <
011800: 20 40 20 32 31 2C 31 20 47 45 54 20 4D 2E 52 45 @ 21,1 GET M.RE
011810: 50 4C 59 20 70 69 63 74 20 27 21 27 0D 0A 20 20 PLY pict '!'..
011820: 49 46 20 2E 4E 4F 54 2E 20 4D 2E 4D 46 49 52 53 IF .NOT. M.MFIRS
011830: 54 0D 0A 20 20 20 20 40 20 32 31 2C 33 30 20 53 T.. @ 21,30 S
011840: 41 59 20 27 3C 2D 20 53 65 6C 65 63 74 69 6F 6E AY '<- Selection
011850: 20 49 6E 76 61 6C 69 64 27 0D 0A 20 20 45 4C 53 Invalid'.. ELS
011860: 45 0D 0A 20 20 20 20 53 54 4F 52 45 20 4E 20 54 E.. STORE N T
011870: 4F 20 4D 46 49 52 53 54 0D 0A 20 20 45 4E 44 49 O MFIRST.. ENDI
011880: 46 0D 0A 20 20 52 45 41 44 0D 0A 20 20 43 4C 45 F.. READ.. CLE
011890: 41 52 20 47 45 54 53 0D 0A 45 4E 44 44 4F 0D 0A AR GETS..ENDDO..
0118A0: 52 45 4C 45 41 53 45 20 4D 46 49 52 53 54 0D 0A RELEASE MFIRST..
0118B0: 49 46 20 4D 2E 52 45 50 4C 59 3D 27 58 27 0D 0A IF M.REPLY='X'..
0118C0: 20 20 45 52 41 53 45 0D 0A 20 20 40 20 31 2C 31 ERASE.. @ 1,1
0118D0: 20 53 41 59 20 27 57 45 4C 43 4F 4D 45 20 20 20 SAY 'WELCOME
0118E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0118F0: 20 20 20 20 4F 50 45 4E 2F 43 4C 4F 53 45 20 41 OPEN/CLOSE A
011900: 20 46 49 4C 45 27 0D 0A 20 20 40 20 31 2C 37 31 FILE'.. @ 1,71
011910: 20 53 41 59 20 27 64 42 41 53 45 20 49 49 27 0D SAY 'dBASE II'.
011920: 0A 20 20 40 20 32 2C 31 20 53 41 59 20 55 4E 44 . @ 2,1 SAY UND
011930: 45 52 4C 4E 0D 0A 20 20 40 20 32 32 2C 31 20 53 ERLN.. @ 22,1 S
011940: 41 59 20 55 4E 44 45 52 4C 4E 0D 0A 20 20 40 20 AY UNDERLN.. @
011950: 31 31 2C 32 37 20 53 41 59 20 27 52 45 54 55 52 11,27 SAY 'RETUR
011960: 4E 49 4E 47 20 54 4F 20 4D 41 49 4E 20 4D 45 4E NING TO MAIN MEN
011970: 55 20 27 0D 0A 20 20 40 20 32 30 2C 31 0D 0A 20 U '.. @ 20,1..
011980: 20 73 74 6F 72 65 20 31 20 74 6F 20 4D 2E 63 0D store 1 to M.c.
011990: 0A 20 20 64 6F 20 77 68 69 6C 65 20 4D 2E 63 3C . do while M.c<
0119A0: 3D 32 35 0D 0A 20 20 20 20 73 74 6F 72 65 20 4D =25.. store M
0119B0: 2E 63 2B 31 20 74 6F 20 63 0D 0A 20 20 65 6E 64 .c+1 to c.. end
0119C0: 64 6F 20 0D 0A 20 20 72 65 6C 65 20 63 0D 0A 20 do .. rele c..
0119D0: 20 52 45 54 55 52 4E 0D 0A 45 4E 44 49 46 0D 0A RETURN..ENDIF..
0119E0: 49 46 20 21 28 4D 2E 52 45 50 4C 59 29 20 3D 27 IF !(M.REPLY) ='
0119F0: 41 27 0D 0A 20 20 53 45 4C 45 20 50 52 49 4D 0D A'.. SELE PRIM.
011A00: 3D 20 4C 45 4E 28 4D 54 45 53 54 29 0D 0A 20 20 = LEN(MTEST)..
011A10: 20 20 20 20 49 46 20 2E 4E 4F 54 2E 20 24 28 4D IF .NOT. $(M
011A20: 2E 4D 54 45 53 54 2C 43 2C 31 29 24 27 41 42 43 .MTEST,C,1)$'ABC
011A30: 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F 50 51 52 53 DEFGHIJKLMNOPQRS
011A40: 54 55 56 57 58 59 5A 30 31 32 33 34 35 36 37 38 TUVWXYZ012345678
011A50: 39 27 0D 0A 20 20 20 20 20 20 20 20 53 54 4F 52 9'.. STOR
011A60: 45 20 45 52 52 31 2B 27 5E 27 20 54 4F 20 45 52 E ERR1+'^' TO ER
011A70: 52 31 0D 0A 20 20 20 20 20 20 20 20 53 54 4F 52 R1.. STOR
011A80: 45 20 45 52 52 32 2B 27 21 27 20 54 4F 20 45 52 E ERR2+'!' TO ER
011A90: 52 32 0D 0A 20 20 20 20 20 20 20 20 53 54 4F 52 R2.. STOR
011AA0: 45 20 46 20 54 4F 20 4D 53 47 0D 0A 20 20 20 20 E F TO MSG..
011AB0: 20 20 20 45 4C 53 45 0D 0A 20 20 20 20 20 20 20 ELSE..
011AC0: 20 53 54 4F 52 45 20 45 52 52 31 2B 27 20 27 20 STORE ERR1+' '
011AD0: 54 4F 20 45 52 52 31 0D 0A 20 20 20 20 20 20 20 TO ERR1..
011AE0: 20 53 54 4F 52 45 20 45 52 52 32 2B 27 20 27 20 STORE ERR2+' '
011AF0: 54 4F 20 45 52 52 32 0D 0A 20 20 20 20 20 20 45 TO ERR2.. E
011B00: 4E 44 49 46 0D 0A 20 20 20 20 20 20 53 54 4F 52 NDIF.. STOR
011B10: 45 20 4D 2E 43 2B 31 20 54 4F 20 43 0D 0A 20 20 E M.C+1 TO C..
011B20: 20 20 45 4E 44 44 4F 0D 0A 20 20 20 20 49 46 20 ENDDO.. IF
011B30: 4D 2E 4D 53 47 20 20 20 0D 0A 20 20 20 20 20 20 M.MSG ..
011B40: 40 20 32 33 2C 36 20 53 41 59 20 4D 2E 4D 54 45 @ 23,6 SAY M.MTE
011B50: 53 54 0D 0A 20 20 20 20 20 45 4C 53 45 0D 0A 20 ST.. ELSE..
011B60: 20 20 20 20 20 40 20 31 38 2C 30 0D 0A 20 20 20 @ 18,0..
011B70: 20 20 20 40 20 31 39 2C 30 0D 0A 20 20 20 20 20 @ 19,0..
011B80: 20 40 20 32 30 2C 30 0D 0A 20 20 20 20 20 20 40 @ 20,0.. @
011B90: 20 32 31 2C 30 0D 0A 20 20 20 20 20 20 40 20 32 21,0.. @ 2
011BA0: 33 2C 36 20 53 41 59 20 4D 2E 42 4C 41 4E 4B 0D 3,6 SAY M.BLANK.
011BB0: 0A 20 20 20 20 20 20 40 20 31 38 2C 32 38 20 53 . @ 18,28 S
011BC0: 41 59 20 45 52 52 31 2B 27 20 20 20 20 20 20 20 AY ERR1+'
011BD0: 20 20 20 20 27 0D 0A 20 20 20 20 20 20 40 20 31 '.. @ 1
011BE0: 39 2C 32 38 20 53 41 59 20 45 52 52 32 2B 27 20 9,28 SAY ERR2+'
011BF0: 20 20 20 20 20 20 20 20 20 20 27 0D 0A 20 20 20 '..
011C00: 0A 20 20 55 53 45 0D 0A 20 20 53 45 4C 45 20 53 . USE.. SELE S
011C10: 45 43 4F 0D 0A 20 20 55 53 45 0D 0A 20 20 45 52 ECO.. USE.. ER
011C20: 41 53 45 0D 0A 20 20 40 20 31 2C 31 20 53 41 59 ASE.. @ 1,1 SAY
011C30: 20 27 57 45 4C 43 4F 4D 45 20 20 20 20 20 20 20 'WELCOME
011C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011C50: 4F 50 45 4E 2F 43 4C 4F 53 45 20 41 20 46 49 4C OPEN/CLOSE A FIL
011C60: 45 27 0D 0A 20 20 40 20 31 2C 37 31 20 53 41 59 E'.. @ 1,71 SAY
011C70: 20 27 64 42 41 53 45 20 49 49 27 0D 0A 20 20 40 'dBASE II'.. @
011C80: 20 32 2C 31 20 53 41 59 20 55 4E 44 45 52 4C 4E 2,1 SAY UNDERLN
011C90: 0D 0A 20 20 40 20 32 32 2C 31 20 53 41 59 20 55 .. @ 22,1 SAY U
011CA0: 4E 44 45 52 4C 4E 0D 0A 20 20 40 20 34 2C 30 0D NDERLN.. @ 4,0.
011CB0: 0A 54 45 58 54 0D 0A 20 20 20 20 20 54 6F 20 4F .TEXT.. To O
011CC0: 50 45 4E 20 61 20 66 69 6C 65 20 79 6F 75 20 68 PEN a file you h
011CD0: 61 76 65 20 74 6F 20 75 73 65 20 74 68 65 20 55 ave to use the U
011CE0: 53 45 20 63 6F 6D 6D 61 6E 64 20 62 79 20 74 79 SE command by ty
011CF0: 70 69 6E 67 0D 0A 0D 0A 20 20 20 20 20 20 2E 20 ping.... .
011D00: 55 53 45 20 3C 66 69 6C 65 6E 61 6D 65 3E 0D 0A USE <filename>..
011D10: 0D 0A 20 20 20 20 20 54 6F 20 68 65 6C 70 20 79 .. To help y
011D20: 6F 75 20 61 6C 6F 6E 67 20 49 20 68 61 76 65 20 ou along I have
011D30: 61 6C 72 65 61 64 79 20 65 6E 74 65 72 65 64 20 already entered
011D40: 74 68 65 20 55 53 45 20 2D 0D 0A 20 20 20 20 20 the USE -..
011D50: 73 68 6F 77 6E 20 62 65 6C 6F 77 20 74 68 65 20 shown below the
011D60: 6C 69 6E 65 2E 0D 0A 0D 0A 45 4E 44 54 45 58 54 line.....ENDTEXT
011D70: 0D 0A 20 20 40 20 32 33 2C 30 20 53 41 59 20 27 .. @ 23,0 SAY '
011D80: 2E 20 55 53 45 27 0D 0A 20 20 53 54 4F 52 45 20 . USE'.. STORE
011D90: 27 20 27 20 54 4F 20 54 45 4D 50 0D 0A 20 20 40 ' ' TO TEMP.. @
011DA0: 20 32 31 2C 35 20 53 41 59 20 27 50 72 65 73 73 21,5 SAY 'Press
011DB0: 20 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 any key to cont
011DC0: 69 6E 75 65 20 27 0D 0A 20 20 40 20 32 31 2C 31 inue '.. @ 21,1
011DD0: 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 52 GET M.TEMP.. R
011DE0: 45 41 44 0D 0A 20 20 43 4C 45 41 52 20 47 45 54 EAD.. CLEAR GET
011DF0: 53 0D 0A 20 20 45 52 41 53 45 0D 0A 20 20 40 20 S.. ERASE.. @
011E00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
011E10: 0F 00 01 00 02 09 52 E5 0F 00 41 02 00 00 00 02 ......R...A.....
011E20: 0F 00 46 02 00 00 00 02 0F 00 42 02 00 00 00 02 ..F.......B.....
011E30: 0F 00 47 02 00 00 00 02 0F 00 43 02 00 00 00 02 ..G.......C.....
011E40: 0F 00 48 02 00 00 00 02 0F 00 44 02 00 00 00 02 ..H.......D.....
011E50: 0F 00 49 02 00 00 00 02 0F 00 45 02 00 00 00 02 ..I.......E.....
011E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011F00: 20 20 20 40 20 32 31 2C 35 20 53 41 59 20 27 49 @ 21,5 SAY 'I
011F10: 6C 6C 65 67 61 6C 20 63 68 61 72 61 63 74 65 72 llegal character
011F20: 20 69 6E 20 74 68 65 20 46 69 6C 65 20 4E 61 6D in the File Nam
011F30: 65 20 2D 20 70 72 65 73 73 20 61 6E 79 20 6B 65 e - press any ke
011F40: 79 3B 0D 0A 20 74 6F 20 20 72 65 74 72 79 27 0D y;.. to retry'.
011F50: 0A 20 20 20 20 20 20 53 54 4F 52 45 20 27 20 27 . STORE ' '
011F60: 20 54 4F 20 54 45 4D 50 0D 0A 20 20 20 20 20 20 TO TEMP..
011F70: 40 20 32 31 2C 31 20 47 45 54 20 4D 2E 54 45 4D @ 21,1 GET M.TEM
011F80: 50 0D 0A 20 20 20 20 20 20 52 45 41 44 0D 0A 20 P.. READ..
011F90: 20 20 20 20 20 43 4C 45 41 52 20 47 45 54 53 0D CLEAR GETS.
011FA0: 0A 20 20 20 20 20 20 40 20 31 36 2C 30 0D 0A 20 . @ 16,0..
011FB0: 20 20 20 20 20 40 20 31 37 2C 30 0D 0A 20 20 20 @ 17,0..
011FC0: 20 20 20 40 20 31 38 2C 30 0D 0A 20 20 20 20 20 @ 18,0..
011FD0: 20 40 20 31 39 2C 30 0D 0A 20 20 20 20 20 20 40 @ 19,0.. @
011FE0: 20 32 30 2C 30 0D 0A 20 20 20 20 20 20 40 20 32 20,0.. @ 2
011FF0: 31 2C 30 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 1,0.. STORE
012000: 20 27 20 20 20 20 20 20 20 20 27 20 54 4F 20 43 ' ' TO C
012010: 46 49 4C 45 0D 0A 20 20 20 20 20 20 4C 4F 4F 50 FILE.. LOOP
012020: 0D 0A 20 20 20 20 45 4E 44 49 46 0D 0A 20 20 20 .. ENDIF..
012030: 20 49 46 20 2E 6E 6F 74 2E 20 46 49 4C 45 28 27 IF .not. FILE('
012040: 26 4D 54 45 53 54 27 29 0D 0A 20 20 20 20 20 20 &MTEST')..
012050: 40 20 31 38 2C 30 0D 0A 20 20 20 20 20 20 40 20 @ 18,0.. @
012060: 31 39 2C 30 0D 0A 20 20 20 20 20 20 40 20 32 30 19,0.. @ 20
012070: 2C 30 0D 0A 20 20 20 20 20 20 40 20 32 31 2C 30 ,0.. @ 21,0
012080: 0D 0A 20 20 20 20 20 20 40 20 32 33 2C 36 20 53 .. @ 23,6 S
012090: 41 59 20 4D 2E 42 4C 41 4E 4B 0D 0A 20 20 20 20 AY M.BLANK..
0120A0: 20 20 53 54 4F 52 45 20 27 20 27 20 54 4F 20 54 STORE ' ' TO T
0120B0: 45 4D 50 0D 0A 20 20 20 20 20 20 40 20 32 31 2C EMP.. @ 21,
0120C0: 35 20 73 61 79 20 27 46 69 6C 65 20 6E 6F 74 20 5 say 'File not
0120D0: 66 6F 75 6E 64 20 2D 20 50 72 65 73 73 20 61 6E found - Press an
0120E0: 79 20 6B 65 79 20 74 6F 20 72 65 74 72 79 20 27 y key to retry '
0120F0: 20 0D 0A 20 20 20 20 20 20 40 20 32 31 2C 31 20 .. @ 21,1
012100: 45 52 41 53 0D 0A 53 54 4F 52 45 20 27 20 20 20 ERAS..STORE '
012110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012130: 20 20 20 20 20 20 20 20 20 20 27 20 54 4F 20 42 ' TO B
012140: 4C 41 4E 4B 0D 0A 54 45 58 54 0D 0A 0D 0A 57 45 LANK..TEXT....WE
012150: 4C 43 4F 4D 45 20 20 20 20 20 20 20 20 20 20 20 LCOME
012160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012170: 44 45 4C 45 54 45 20 41 20 46 49 4C 45 20 20 20 DELETE A FILE
012180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012190: 20 20 20 20 20 64 42 41 53 45 20 49 49 0D 0A 2D dBASE II..-
0121A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0121B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0121C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0121D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0121E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
0121F0: 45 4E 44 54 45 58 54 0D 0A 40 20 34 2C 30 0D 0A ENDTEXT..@ 4,0..
012200: 54 45 58 54 0D 0A 20 20 20 20 20 20 20 20 20 59 TEXT.. Y
012210: 6F 75 20 77 6F 75 6C 64 20 64 65 6C 65 74 65 20 ou would delete
012220: 61 20 66 69 6C 65 20 69 6E 20 64 42 41 53 45 20 a file in dBASE
012230: 49 49 20 62 79 20 74 79 70 69 6E 67 2E 2E 2E 2E II by typing....
012240: 20 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 2E .... .
012250: 20 44 45 4C 45 54 45 20 46 49 4C 45 20 3C 66 69 DELETE FILE <fi
012260: 6C 65 6E 61 6D 65 3E 0D 0A 0D 0A 20 20 20 20 20 lename>....
012270: 20 20 20 20 64 42 41 53 45 20 49 49 20 77 69 6C dBASE II wil
012280: 6C 20 72 65 74 75 72 6E 20 77 69 74 68 2E 2E 2E l return with...
012290: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E ................
0122A0: 2E 2E 2E 2E 2E 0D 0A 0D 0A 20 20 20 20 20 20 20 .........
0122B0: 20 20 20 2E 20 46 49 4C 45 20 48 41 53 20 42 45 . FILE HAS BE
0122C0: 45 4E 20 44 45 4C 45 54 45 44 20 0D 0A 0D 0A 20 EN DELETED ....
0122D0: 20 20 20 20 20 20 20 20 49 20 77 69 6C 6C 20 68 I will h
0122E0: 65 6C 70 20 79 6F 75 20 61 6C 6F 6E 67 2E 20 49 elp you along. I
0122F0: 20 68 61 76 65 20 61 6C 72 65 61 64 79 20 65 6E have already en
012300: 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 20 20 GET M.TEMP..
012310: 20 20 52 45 41 44 0D 0A 20 20 20 20 20 20 43 4C READ.. CL
012320: 45 41 52 20 47 45 54 53 0D 0A 20 20 20 20 20 20 EAR GETS..
012330: 40 20 31 37 2C 30 0D 0A 20 20 20 20 20 20 40 20 @ 17,0.. @
012340: 31 38 2C 30 0D 0A 20 20 20 20 20 20 40 20 31 39 18,0.. @ 19
012350: 2C 30 0D 0A 20 20 20 20 20 20 40 20 32 30 2C 30 ,0.. @ 20,0
012360: 0D 0A 20 20 20 20 20 20 40 20 32 31 2C 31 0D 0A .. @ 21,1..
012370: 20 20 20 20 20 20 53 54 4F 52 45 20 27 20 20 20 STORE '
012380: 20 20 20 20 20 27 20 54 4F 20 43 46 49 4C 45 0D ' TO CFILE.
012390: 0A 20 20 20 20 20 20 6C 6F 6F 70 0D 0A 20 20 20 . loop..
0123A0: 20 45 4E 44 49 46 0D 0A 20 20 20 20 53 54 4F 52 ENDIF.. STOR
0123B0: 45 20 54 20 54 4F 20 56 41 4C 49 44 0D 0A 20 20 E T TO VALID..
0123C0: 45 4E 44 44 4F 20 5B 20 65 6E 74 65 72 20 66 69 ENDDO [ enter fi
0123D0: 6C 65 20 6E 61 6D 65 20 5D 0D 0A 20 20 73 74 6F le name ].. sto
0123E0: 72 65 20 4D 2E 63 66 69 6C 65 20 74 6F 20 6D 66 re M.cfile to mf
0123F0: 69 6C 65 0D 0A 20 20 45 52 41 53 45 0D 0A 20 20 ile.. ERASE..
012400: 40 20 31 2C 31 20 53 41 59 20 27 57 45 4C 43 4F @ 1,1 SAY 'WELCO
012410: 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ME
012420: 20 20 20 20 20 20 20 20 20 4F 50 45 4E 2F 43 4C OPEN/CL
012430: 4F 53 45 20 41 20 46 49 4C 45 27 0D 0A 20 20 40 OSE A FILE'.. @
012440: 20 31 2C 37 31 20 53 41 59 20 27 64 42 41 53 45 1,71 SAY 'dBASE
012450: 20 49 49 27 0D 0A 20 20 40 20 32 2C 31 20 53 41 II'.. @ 2,1 SA
012460: 59 20 55 4E 44 45 52 4C 4E 0D 0A 20 20 40 20 32 Y UNDERLN.. @ 2
012470: 32 2C 31 20 53 41 59 20 55 4E 44 45 52 4C 4E 0D 2,1 SAY UNDERLN.
012480: 0A 20 20 40 20 32 33 2C 30 20 53 41 59 20 27 2E . @ 23,0 SAY '.
012490: 20 55 53 45 20 27 2B 4D 2E 4D 54 45 53 54 0D 0A USE '+M.MTEST..
0124A0: 20 20 40 20 31 39 2C 35 20 53 41 59 20 27 42 65 @ 19,5 SAY 'Be
0124B0: 6C 6F 77 20 74 68 65 20 6C 69 6E 65 20 79 6F 75 low the line you
0124C0: 20 77 69 6C 6C 20 6E 6F 77 20 73 65 65 20 74 68 will now see th
0124D0: 65 20 63 6F 6D 70 6C 65 74 65 20 63 6F 6D 6D 61 e complete comma
0124E0: 6E 64 27 0D 0A 20 20 40 20 32 30 2C 35 20 53 41 nd'.. @ 20,5 SA
0124F0: 59 20 27 61 73 20 79 6F 75 20 77 6F 75 6C 64 20 Y 'as you would
012500: 74 65 72 65 64 20 74 68 65 20 0D 0A 20 20 20 20 tered the ..
012510: 20 20 20 20 20 44 45 4C 45 54 45 20 46 49 4C 45 DELETE FILE
012520: 20 66 6F 72 20 79 6F 75 20 2D 20 73 68 6F 77 6E for you - shown
012530: 20 62 65 6C 6F 77 20 74 68 65 20 6C 69 6E 65 2E below the line.
012540: 0D 0A 45 4E 44 54 45 58 54 0D 0A 40 20 32 32 2C ..ENDTEXT..@ 22,
012550: 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 1 SAY '---------
012560: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
012570: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20 --------------'
012580: 3B 0D 0A 20 20 20 20 20 20 20 20 20 2B 20 27 2D ;.. + '-
012590: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0125A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0125B0: 2D 2D 2D 2D 2D 27 0D 0A 40 20 32 33 2C 30 20 53 -----'..@ 23,0 S
0125C0: 41 59 20 27 2E 20 44 45 4C 45 54 45 20 46 49 4C AY '. DELETE FIL
0125D0: 45 27 0D 0A 53 54 4F 52 45 20 27 20 27 20 54 4F E'..STORE ' ' TO
0125E0: 20 54 45 4D 50 0D 0A 40 20 32 31 2C 35 20 53 41 TEMP..@ 21,5 SA
0125F0: 59 20 27 50 72 65 73 73 20 61 6E 79 20 6B 65 79 Y 'Press any key
012600: 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 27 0D 0A to continue '..
012610: 40 20 32 31 2C 31 20 47 45 54 20 4D 2E 54 45 4D @ 21,1 GET M.TEM
012620: 50 0D 0A 52 45 41 44 0D 0A 43 4C 45 41 52 20 47 P..READ..CLEAR G
012630: 45 54 53 0D 0A 45 52 41 53 0D 0A 54 45 58 54 0D ETS..ERAS..TEXT.
012640: 0A 0D 0A 57 45 4C 43 4F 4D 45 20 20 20 20 20 20 ...WELCOME
012650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012660: 20 20 20 20 20 44 45 4C 45 54 45 20 41 20 46 49 DELETE A FI
012670: 4C 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 LE
012680: 20 20 20 20 20 20 20 20 20 20 64 42 41 53 45 20 dBASE
012690: 49 49 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D II..------------
0126A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0126B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0126C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0126D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0126E0: 2D 2D 2D 0D 0A 45 4E 44 54 45 58 54 0D 0A 40 20 ---..ENDTEXT..@
0126F0: 32 32 2C 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D 22,1 SAY '------
012700: 74 79 70 65 20 69 74 20 79 6F 75 72 73 65 6C 66 type it yourself
012710: 2E 27 20 0D 0A 20 20 53 54 4F 52 45 20 27 20 27 .' .. STORE ' '
012720: 20 54 4F 20 54 45 4D 50 0D 0A 20 20 40 20 32 31 TO TEMP.. @ 21
012730: 2C 35 20 53 41 59 20 27 50 72 65 73 73 20 61 6E ,5 SAY 'Press an
012740: 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 y key to continu
012750: 65 20 27 0D 0A 20 20 40 20 32 31 2C 31 20 47 45 e '.. @ 21,1 GE
012760: 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 52 45 41 44 T M.TEMP.. READ
012770: 0D 0A 20 20 43 4C 45 41 52 20 47 45 54 53 0D 0A .. CLEAR GETS..
012780: 20 20 73 65 6C 65 20 70 72 69 6D 0D 0A 20 20 55 sele prim.. U
012790: 53 45 20 26 4D 74 65 73 74 0D 0A 45 4C 53 45 0D SE &Mtest..ELSE.
0127A0: 0A 20 20 40 20 38 2C 35 20 0D 0A 20 20 40 20 31 . @ 8,5 .. @ 1
0127B0: 30 2C 35 20 0D 0A 20 20 40 20 31 31 2C 35 0D 0A 0,5 .. @ 11,5..
0127C0: 20 20 40 20 31 32 2C 35 20 0D 0A 20 20 40 20 31 @ 12,5 .. @ 1
0127D0: 37 2C 35 0D 0A 20 20 40 20 32 31 2C 30 0D 0A 20 7,5.. @ 21,0..
0127E0: 20 40 20 34 2C 35 20 73 61 79 20 27 59 6F 75 20 @ 4,5 say 'You
0127F0: 63 61 6E 20 43 4C 4F 53 45 20 61 20 66 69 6C 65 can CLOSE a file
012800: 20 69 6E 20 6F 6E 65 20 6F 66 20 74 68 72 65 65 in one of three
012810: 20 77 61 79 73 2E 20 54 68 65 20 66 6F 72 6D 61 ways. The forma
012820: 74 73 20 66 6F 72 20 27 20 3B 0D 0A 20 20 20 20 ts for ' ;..
012830: 20 20 20 20 20 20 2B 20 27 74 68 65 73 65 20 61 + 'these a
012840: 72 65 3A 27 0D 0A 20 20 40 20 36 2C 35 20 53 41 re:'.. @ 6,5 SA
012850: 59 20 27 2E 20 55 53 45 20 20 20 20 20 20 20 20 Y '. USE
012860: 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 20 63 - c
012870: 6C 6F 73 65 73 20 66 69 6C 65 20 69 6E 20 75 73 loses file in us
012880: 65 27 20 20 20 20 20 20 20 20 20 0D 0A 20 20 40 e' .. @
012890: 20 37 2C 35 20 53 41 59 20 27 2E 20 43 4C 45 41 7,5 SAY '. CLEA
0128A0: 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 R
0128B0: 20 20 20 20 2D 20 63 6C 6F 73 65 73 20 61 6C 6C - closes all
0128C0: 20 66 69 6C 65 73 2F 6D 65 6D 6F 72 79 20 61 72 files/memory ar
0128D0: 65 61 73 27 20 0D 0A 20 20 40 20 38 2C 35 20 53 eas' .. @ 8,5 S
0128E0: 41 59 20 27 2E 20 55 53 45 20 5B 3C 64 61 74 61 AY '. USE [<data
0128F0: 62 61 73 65 20 66 69 6C 65 3E 5D 20 20 20 2D 20 base file>] -
012900: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
012910: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
012920: 2D 27 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 2B -' ;.. +
012930: 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D '--------------
012940: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
012950: 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 0D 0A 53 54 4F --------'....STO
012960: 52 45 20 27 20 20 20 20 20 20 20 20 27 20 54 4F RE ' ' TO
012970: 20 44 45 4C 0D 0A 53 54 4F 52 45 20 54 20 54 4F DEL..STORE T TO
012980: 20 50 43 4F 4E 54 0D 0A 44 4F 20 57 48 49 4C 45 PCONT..DO WHILE
012990: 20 4D 2E 50 43 4F 4E 54 0D 0A 20 20 40 20 32 33 M.PCONT.. @ 23
0129A0: 2C 30 20 53 41 59 20 27 2E 20 44 45 4C 45 54 45 ,0 SAY '. DELETE
0129B0: 20 46 49 4C 45 27 0D 0A 20 20 40 20 34 2C 35 20 FILE'.. @ 4,5
0129C0: 53 41 59 20 27 4E 65 78 74 20 64 42 41 53 45 20 SAY 'Next dBASE
0129D0: 49 49 20 72 65 71 75 69 72 65 73 20 74 68 65 20 II requires the
0129E0: 66 69 6C 65 6E 61 6D 65 2C 20 3B 0D 0A 73 65 6C filename, ;..sel
0129F0: 65 63 74 20 66 72 6F 6D 20 74 68 65 20 66 6F 6C ect from the fol
012A00: 6C 6F 77 69 6E 67 27 0D 0A 20 20 40 20 35 2C 30 lowing'.. @ 5,0
012A10: 0D 0A 20 20 4C 49 53 54 20 46 49 4C 45 53 20 4C .. LIST FILES L
012A20: 49 4B 45 20 2A 2E 44 42 46 0D 0A 20 20 53 54 4F IKE *.DBF.. STO
012A30: 52 45 20 46 20 54 4F 20 56 41 4C 49 44 0D 0A 20 RE F TO VALID..
012A40: 20 44 4F 20 57 48 49 4C 45 20 2E 4E 4F 54 2E 20 DO WHILE .NOT.
012A50: 4D 2E 56 41 4C 49 44 0D 0A 20 20 20 20 40 20 31 M.VALID.. @ 1
012A60: 39 2C 35 20 53 41 59 20 27 59 6F 75 20 64 6F 20 9,5 SAY 'You do
012A70: 6E 6F 74 20 6E 65 65 64 20 74 6F 20 75 73 65 20 not need to use
012A80: 74 68 65 20 2E 44 42 46 20 73 75 66 66 69 78 2E the .DBF suffix.
012A90: 27 0D 0A 20 20 20 20 40 20 31 37 2C 35 20 53 41 '.. @ 17,5 SA
012AA0: 59 20 27 50 6C 65 61 73 65 20 65 6E 74 65 72 20 Y 'Please enter
012AB0: 66 69 6C 65 20 66 6F 72 20 64 65 6C 65 74 69 6F file for deletio
012AC0: 6E 20 27 20 47 45 54 20 4D 2E 44 45 4C 20 50 49 n ' GET M.DEL PI
012AD0: 43 54 20 27 21 21 21 21 21 21 21 21 27 0D 0A 20 CT '!!!!!!!!'..
012AE0: 20 20 20 40 20 31 37 2C 35 30 20 53 41 59 20 27 @ 17,50 SAY '
012AF0: 5B 42 6C 61 6E 6B 20 74 6F 20 66 69 6E 69 73 68 [Blank to finish
012B00: 63 6C 6F 73 65 73 20 66 69 6C 65 20 69 6E 20 75 closes file in u
012B10: 73 65 20 61 6E 64 20 6F 70 65 6E 73 20 61 6E 6F se and opens ano
012B20: 74 68 65 72 27 0D 0A 20 20 40 20 31 30 2C 35 20 ther'.. @ 10,5
012B30: 53 41 59 20 27 54 68 65 20 6C 61 73 74 20 6F 66 SAY 'The last of
012B40: 20 74 68 65 73 65 20 63 6F 6D 6D 61 6E 64 73 20 these commands
012B50: 69 73 20 63 6F 76 65 72 65 64 20 69 6E 20 74 68 is covered in th
012B60: 65 20 4F 50 45 4E 20 73 65 63 74 69 6F 6E 2E 27 e OPEN section.'
012B70: 0D 0A 20 20 40 20 31 31 2C 35 20 53 41 59 20 27 .. @ 11,5 SAY '
012B80: 54 68 65 20 55 53 45 20 61 6E 64 20 43 4C 45 41 The USE and CLEA
012B90: 52 20 63 6F 6D 6D 61 6E 64 73 20 61 72 65 20 75 R commands are u
012BA0: 73 65 64 20 61 73 20 73 65 65 6E 20 61 62 6F 76 sed as seen abov
012BB0: 65 20 62 75 74 20 69 74 20 6D 75 73 74 20 62 65 e but it must be
012BC0: 27 0D 0A 20 20 40 20 31 32 2C 35 20 53 41 59 20 '.. @ 12,5 SAY
012BD0: 27 52 45 4D 45 4D 42 45 52 45 44 20 74 68 61 74 'REMEMBERED that
012BE0: 20 43 4C 45 41 52 20 77 69 6C 6C 20 20 6E 6F 74 CLEAR will not
012BF0: 20 20 6F 6E 6C 79 20 63 6C 6F 73 65 20 79 6F 75 only close you
012C00: 72 20 66 69 6C 65 73 20 20 62 75 74 20 61 6C 73 r files but als
012C10: 6F 27 0D 0A 20 20 40 20 31 33 2C 35 20 53 41 59 o'.. @ 13,5 SAY
012C20: 20 27 72 65 6D 6F 76 65 20 61 6C 6C 20 6D 65 6D 'remove all mem
012C30: 6F 72 79 20 61 72 65 61 73 20 74 68 61 74 20 79 ory areas that y
012C40: 6F 75 20 6D 61 79 20 68 61 76 65 20 73 65 74 20 ou may have set
012C50: 75 70 2C 20 74 68 65 72 65 66 6F 72 65 2C 20 74 up, therefore, t
012C60: 68 65 27 0D 0A 20 20 40 20 31 34 2C 35 20 53 41 he'.. @ 14,5 SA
012C70: 59 20 27 55 53 45 20 63 6F 6D 6D 61 6E 64 20 6F Y 'USE command o
012C80: 6E 6C 79 20 69 73 20 73 68 6F 77 6E 20 62 65 6C nly is shown bel
012C90: 6F 77 3A 27 0D 0A 20 20 40 20 32 32 2C 31 20 53 ow:'.. @ 22,1 S
012CA0: 41 59 20 4D 2E 55 4E 44 45 52 4C 4E 0D 0A 20 20 AY M.UNDERLN..
012CB0: 40 20 32 33 2C 30 20 53 41 59 20 27 2E 20 55 53 @ 23,0 SAY '. US
012CC0: 45 27 0D 0A 20 20 53 54 4F 52 45 20 27 20 27 20 E'.. STORE ' '
012CD0: 54 4F 20 54 45 4D 50 0D 0A 20 20 40 20 32 31 2C TO TEMP.. @ 21,
012CE0: 35 20 53 41 59 20 27 50 72 65 73 73 20 61 6E 79 5 SAY 'Press any
012CF0: 20 6B 65 79 20 74 6F 20 43 4C 4F 53 45 20 79 6F key to CLOSE yo
012D00: 5D 27 0D 0A 20 20 20 20 52 45 41 44 0D 0A 20 20 ]'.. READ..
012D10: 20 20 43 4C 45 41 20 47 45 54 53 0D 0A 20 20 20 CLEA GETS..
012D20: 20 49 46 20 4D 2E 44 45 4C 20 3D 20 27 20 20 20 IF M.DEL = '
012D30: 20 20 20 20 20 27 0D 0A 20 20 20 20 20 20 45 52 '.. ER
012D40: 41 53 0D 0A 54 45 58 54 0D 0A 0D 0A 57 45 4C 43 AS..TEXT....WELC
012D50: 4F 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 20 OME
012D60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 45 DE
012D70: 4C 45 54 45 20 41 20 46 49 4C 45 20 20 20 20 20 LETE A FILE
012D80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012D90: 20 20 20 64 42 41 53 45 20 49 49 0D 0A 2D 2D 2D dBASE II..---
012DA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
012DB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
012DC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
012DD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
012DE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 45 4E ------------..EN
012DF0: 44 54 45 58 54 0D 0A 20 20 20 20 20 20 20 40 20 DTEXT.. @
012E00: 32 32 2C 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D 22,1 SAY '------
012E10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
012E20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
012E30: 2D 27 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 2B -' ;.. +
012E40: 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D '--------------
012E50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
012E60: 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 20 20 20 20 20 --------'..
012E70: 20 40 20 31 31 2C 32 37 20 53 41 59 20 27 52 45 @ 11,27 SAY 'RE
012E80: 54 55 52 4E 49 4E 47 20 54 4F 20 4D 41 49 4E 20 TURNING TO MAIN
012E90: 4D 45 4E 55 27 0D 0A 20 20 20 20 20 20 40 20 32 MENU'.. @ 2
012EA0: 30 2C 31 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 0,1.. STORE
012EB0: 20 31 20 54 4F 20 43 0D 0A 20 20 20 20 20 20 44 1 TO C.. D
012EC0: 4F 20 57 48 49 4C 45 20 43 20 3C 20 32 35 0D 0A O WHILE C < 25..
012ED0: 20 20 20 20 20 20 20 20 53 54 4F 52 45 20 43 2B STORE C+
012EE0: 31 20 54 4F 20 43 0D 0A 20 20 20 20 20 20 45 4E 1 TO C.. EN
012EF0: 44 44 4F 0D 0A 20 20 20 20 20 20 52 45 4C 45 20 DDO.. RELE
012F00: 75 72 20 66 69 6C 65 2E 27 20 0D 0A 20 20 40 20 ur file.' .. @
012F10: 32 31 2C 31 20 47 45 54 20 4D 2E 54 45 4D 50 0D 21,1 GET M.TEMP.
012F20: 0A 20 20 52 45 41 44 0D 0A 20 20 43 4C 45 41 52 . READ.. CLEAR
012F30: 20 47 45 54 53 0D 0A 20 20 55 53 45 0D 0A 20 20 GETS.. USE..
012F40: 52 45 4C 45 41 53 45 0D 0A 20 20 53 54 4F 52 45 RELEASE.. STORE
012F50: 20 27 20 20 20 20 20 20 20 20 27 20 54 4F 20 4D ' ' TO M
012F60: 46 49 4C 45 0D 0A 45 4E 44 49 46 0D 0A 45 52 41 FILE..ENDIF..ERA
012F70: 53 45 0D 0A 40 20 31 2C 31 20 53 41 59 20 27 57 SE..@ 1,1 SAY 'W
012F80: 45 4C 43 4F 4D 45 20 20 20 20 20 20 20 20 20 20 ELCOME
012F90: 20 20 20 20 20 20 20 20 20 20 20 20 20 4F 50 45 OPE
012FA0: 4E 2F 43 4C 4F 53 45 20 41 20 46 49 4C 45 27 0D N/CLOSE A FILE'.
012FB0: 0A 40 20 31 2C 37 31 20 53 41 59 20 27 64 42 41 .@ 1,71 SAY 'dBA
012FC0: 53 45 20 49 49 27 0D 0A 40 20 32 2C 31 20 53 41 SE II'..@ 2,1 SA
012FD0: 59 20 55 4E 44 45 52 4C 4E 0D 0A 40 20 32 32 2C Y UNDERLN..@ 22,
012FE0: 31 20 53 41 59 20 55 4E 44 45 52 4C 4E 0D 0A 40 1 SAY UNDERLN..@
012FF0: 20 31 31 2C 32 37 20 53 41 59 20 27 52 45 54 55 11,27 SAY 'RETU
013000: 52 4E 49 4E 47 20 54 4F 20 4D 41 49 4E 20 4D 45 RNING TO MAIN ME
013010: 4E 55 20 27 0D 0A 40 20 32 30 2C 31 0D 0A 73 74 NU '..@ 20,1..st
013020: 6F 72 65 20 31 20 74 6F 20 63 20 0D 0A 64 6F 20 ore 1 to c ..do
013030: 77 68 69 6C 65 20 4D 2E 63 20 3C 3D 20 32 35 0D while M.c <= 25.
013040: 0A 20 20 73 74 6F 72 65 20 4D 2E 63 2B 31 20 74 . store M.c+1 t
013050: 6F 20 63 0D 0A 65 6E 64 64 6F 0D 0A 72 65 6C 65 o c..enddo..rele
013060: 20 63 0D 0A 52 45 54 55 52 4E 0D 0A 1A 1A 1A 1A c..RETURN......
013070: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
013080: 20 53 54 4F 52 45 20 54 52 49 4D 28 4D 2E 4D 46 STORE TRIM(M.MF
013090: 29 20 54 4F 20 46 54 45 53 54 0D 0A 20 20 20 20 ) TO FTEST..
0130A0: 49 46 20 2E 4E 4F 54 2E 20 24 28 4D 2E 4D 46 2C IF .NOT. $(M.MF,
0130B0: 31 2C 31 29 24 27 41 42 43 44 45 46 47 48 49 4A 1,1)$'ABCDEFGHIJ
0130C0: 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 57 58 59 5A KLMNOPQRSTUVWXYZ
0130D0: 27 0D 0A 20 20 20 20 20 20 40 20 32 30 2C 35 20 '.. @ 20,5
0130E0: 53 41 59 20 27 54 68 65 20 66 69 72 73 74 20 63 SAY 'The first c
0130F0: 68 61 72 61 63 74 65 72 20 6F 66 20 74 68 65 20 haracter of the
013100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
013110: 10 00 01 00 02 09 52 E5 10 00 41 02 00 00 00 02 ......R...A.....
013120: 10 00 46 02 00 00 00 02 10 00 42 02 00 00 00 02 ..F.......B.....
013130: 10 00 47 02 00 00 00 02 10 00 43 02 00 00 00 02 ..G.......C.....
013140: 10 00 48 02 00 00 00 02 10 00 44 02 00 00 00 02 ..H.......D.....
013150: 10 00 49 02 00 00 00 02 10 00 45 02 00 00 00 02 ..I.......E.....
013160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013200: 41 4C 4C 20 45 58 43 45 50 54 20 4D 46 49 4C 45 ALL EXCEPT MFILE
013210: 0D 0A 20 20 20 20 20 20 52 45 54 55 52 4E 0D 0A .. RETURN..
013220: 20 20 20 20 45 4E 44 49 46 20 5B 20 42 6C 61 6E ENDIF [ Blan
013230: 6B 20 46 69 6C 65 6E 61 6D 65 20 5D 0D 0A 20 20 k Filename ]..
013240: 20 20 44 4F 20 57 48 49 4C 45 20 24 28 4D 2E 44 DO WHILE $(M.D
013250: 45 4C 2C 31 2C 31 29 3D 20 27 20 27 0D 0A 20 20 EL,1,1)= ' '..
013260: 20 20 20 20 53 54 4F 52 45 20 24 28 4D 2E 44 45 STORE $(M.DE
013270: 4C 2C 32 29 2B 20 27 20 27 20 54 4F 20 44 45 4C L,2)+ ' ' TO DEL
013280: 20 20 0D 0A 20 20 20 20 45 4E 44 44 4F 0D 0A 20 .. ENDDO..
013290: 20 20 20 53 54 4F 52 45 20 54 52 49 4D 28 4D 2E STORE TRIM(M.
0132A0: 44 45 4C 29 20 54 4F 20 4D 54 45 53 54 20 0D 0A DEL) TO MTEST ..
0132B0: 20 20 20 20 53 54 4F 52 45 20 27 20 27 20 54 4F STORE ' ' TO
0132C0: 20 45 52 52 31 2C 45 52 52 32 20 0D 0A 20 20 20 ERR1,ERR2 ..
0132D0: 20 53 54 4F 52 45 20 54 20 54 4F 20 4D 53 47 0D STORE T TO MSG.
0132E0: 0A 20 20 20 20 49 46 20 2E 4E 4F 54 2E 20 24 28 . IF .NOT. $(
0132F0: 4D 2E 4D 54 45 53 54 2C 31 2C 31 29 24 27 41 42 M.MTEST,1,1)$'AB
013300: 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F 50 51 52 CDEFGHIJKLMNOPQR
013310: 53 54 55 56 57 58 59 5A 27 0D 0A 20 20 20 20 20 STUVWXYZ'..
013320: 20 53 54 4F 52 45 20 46 20 54 4F 20 4D 53 47 0D STORE F TO MSG.
013330: 0A 20 20 20 20 20 20 53 54 4F 52 45 20 45 52 52 . STORE ERR
013340: 31 2B 27 5E 27 20 54 4F 20 45 52 52 31 0D 0A 20 1+'^' TO ERR1..
013350: 20 20 20 20 20 53 54 4F 52 45 20 45 52 52 32 2B STORE ERR2+
013360: 27 21 27 20 54 4F 20 45 52 52 32 20 0D 0A 20 20 '!' TO ERR2 ..
013370: 20 20 45 4C 53 45 20 0D 0A 20 20 20 20 20 20 53 ELSE .. S
013380: 54 4F 52 45 20 45 52 52 31 2B 27 20 27 20 54 4F TORE ERR1+' ' TO
013390: 20 45 52 52 31 0D 0A 20 20 20 20 20 20 53 54 4F ERR1.. STO
0133A0: 52 45 20 45 52 52 32 2B 27 20 27 20 54 4F 20 45 RE ERR2+' ' TO E
0133B0: 52 52 32 0D 0A 20 20 20 20 45 4E 44 49 46 0D 0A RR2.. ENDIF..
0133C0: 20 20 20 20 53 54 4F 52 45 20 32 20 54 4F 20 43 STORE 2 TO C
0133D0: 0D 0A 20 20 20 20 44 4F 20 57 48 49 4C 45 20 43 .. DO WHILE C
0133E0: 20 3C 3D 20 4C 45 4E 28 4D 2E 4D 54 45 53 54 29 <= LEN(M.MTEST)
0133F0: 0D 0A 20 20 20 20 20 20 49 46 20 2E 4E 4F 54 2E .. IF .NOT.
013400: 6D 70 6C 65 74 65 20 63 6F 6D 6D 61 6E 64 27 0D mplete command'.
013410: 0A 20 20 20 20 40 20 32 30 2C 35 20 53 41 59 20 . @ 20,5 SAY
013420: 27 61 73 20 79 6F 75 20 77 6F 75 6C 64 20 74 79 'as you would ty
013430: 70 65 20 69 74 20 79 6F 75 72 73 65 6C 66 2E 27 pe it yourself.'
013440: 20 0D 0A 20 20 20 20 53 54 4F 52 45 20 27 20 27 .. STORE ' '
013450: 20 54 4F 20 54 45 4D 50 0D 0A 20 20 20 20 40 20 TO TEMP.. @
013460: 32 31 2C 35 20 53 41 59 20 27 50 72 65 73 73 20 21,5 SAY 'Press
013470: 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 any key to conti
013480: 6E 75 65 20 27 0D 0A 20 20 20 20 40 20 32 31 2C nue '.. @ 21,
013490: 31 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 1 GET M.TEMP..
0134A0: 20 20 52 45 41 44 0D 0A 20 20 20 20 43 4C 45 41 READ.. CLEA
0134B0: 52 20 47 45 54 53 0D 0A 20 20 20 20 40 20 31 39 R GETS.. @ 19
0134C0: 2C 30 0D 0A 20 20 20 20 40 20 32 30 2C 30 0D 0A ,0.. @ 20,0..
0134D0: 20 20 20 20 40 20 32 31 2C 30 0D 0A 20 20 20 20 @ 21,0..
0134E0: 40 20 32 31 2C 35 20 53 41 59 20 27 44 6F 20 79 @ 21,5 SAY 'Do y
0134F0: 6F 75 20 77 61 6E 74 20 74 6F 20 64 65 6C 65 74 ou want to delet
013500: 65 20 74 68 69 73 20 66 69 6C 65 20 28 59 2F 4E e this file (Y/N
013510: 29 2E 27 20 0D 0A 20 20 20 20 40 20 32 31 2C 31 ).' .. @ 21,1
013520: 20 47 45 54 20 4D 2E 43 48 4F 49 43 45 20 50 49 GET M.CHOICE PI
013530: 43 54 20 27 21 27 0D 0A 20 20 20 20 52 45 41 44 CT '!'.. READ
013540: 0D 0A 20 20 20 20 40 20 32 31 2C 30 0D 0A 20 20 .. @ 21,0..
013550: 45 4E 44 49 46 0D 0A 20 20 43 4C 45 41 52 20 47 ENDIF.. CLEAR G
013560: 45 54 53 0D 0A 20 20 49 46 20 4D 2E 43 48 4F 49 ETS.. IF M.CHOI
013570: 43 45 20 3D 20 27 59 27 0D 0A 20 20 20 20 44 45 CE = 'Y'.. DE
013580: 4C 45 54 45 20 46 49 4C 45 20 26 44 45 4C 0D 0A LETE FILE &DEL..
013590: 20 20 20 20 40 20 34 2C 35 20 53 41 59 20 27 54 @ 4,5 SAY 'T
0135A0: 68 65 20 66 69 6C 65 73 20 6C 65 66 74 20 61 72 he files left ar
0135B0: 65 3A 2D 20 20 20 20 20 20 20 20 20 20 20 20 27 e:- '
0135C0: 0D 0A 20 20 20 20 40 20 35 2C 30 0D 0A 20 20 20 .. @ 5,0..
0135D0: 20 4C 49 53 54 20 46 49 4C 45 53 20 4C 49 4B 45 LIST FILES LIKE
0135E0: 20 2A 2E 44 42 46 0D 0A 20 20 20 20 53 54 4F 52 *.DBF.. STOR
0135F0: 45 20 46 20 54 4F 20 50 43 4F 4E 54 0D 0A 20 20 E F TO PCONT..
013600: 20 24 28 4D 2E 4D 54 45 53 54 2C 43 2C 31 29 24 $(M.MTEST,C,1)$
013610: 27 41 42 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F 'ABCDEFGHIJKLMNO
013620: 50 51 52 53 54 55 56 57 58 59 5A 30 31 32 33 34 PQRSTUVWXYZ01234
013630: 35 36 37 38 39 27 0D 0A 20 20 20 20 20 20 20 20 56789'..
013640: 53 54 4F 52 45 20 45 52 52 31 2B 27 5E 27 20 54 STORE ERR1+'^' T
013650: 4F 20 45 52 52 31 0D 0A 20 20 20 20 20 20 20 20 O ERR1..
013660: 53 54 4F 52 45 20 45 52 52 32 2B 27 21 27 20 54 STORE ERR2+'!' T
013670: 4F 20 45 52 52 32 0D 0A 20 20 20 20 20 20 20 20 O ERR2..
013680: 53 54 4F 52 45 20 46 20 54 4F 20 4D 53 47 0D 0A STORE F TO MSG..
013690: 20 20 20 20 20 20 45 4C 53 45 0D 0A 20 20 20 20 ELSE..
0136A0: 20 20 20 20 53 54 4F 52 45 20 45 52 52 31 2B 27 STORE ERR1+'
0136B0: 20 27 20 54 4F 20 45 52 52 31 0D 0A 20 20 20 20 ' TO ERR1..
0136C0: 20 20 20 20 53 54 4F 52 45 20 45 52 52 32 2B 27 STORE ERR2+'
0136D0: 20 27 20 54 4F 20 45 52 52 32 0D 0A 20 20 20 20 ' TO ERR2..
0136E0: 20 20 45 4E 44 49 46 0D 0A 20 20 20 20 20 20 53 ENDIF.. S
0136F0: 54 4F 52 45 20 43 2B 31 20 54 4F 20 43 0D 0A 20 TORE C+1 TO C..
013700: 20 20 20 45 4E 44 44 4F 0D 0A 20 20 20 20 49 46 ENDDO.. IF
013710: 20 4D 2E 4D 53 47 20 20 20 0D 0A 20 20 20 20 20 M.MSG ..
013720: 20 40 20 32 33 2C 31 34 20 53 41 59 20 4D 2E 4D @ 23,14 SAY M.M
013730: 54 45 53 54 0D 0A 20 20 20 20 45 4C 53 45 0D 0A TEST.. ELSE..
013740: 20 20 20 20 20 20 40 20 31 38 2C 30 0D 0A 20 20 @ 18,0..
013750: 20 20 20 20 40 20 31 39 2C 30 0D 0A 20 20 20 20 @ 19,0..
013760: 20 20 40 20 31 38 2C 33 35 20 53 41 59 20 45 52 @ 18,35 SAY ER
013770: 52 31 2B 27 20 20 20 20 20 20 20 20 20 20 20 27 R1+' '
013780: 0D 0A 20 20 20 20 20 20 40 20 31 39 2C 33 35 20 .. @ 19,35
013790: 53 41 59 20 45 52 52 32 2B 27 20 20 20 20 20 20 SAY ERR2+'
0137A0: 20 20 20 20 20 27 0D 0A 20 20 20 20 20 20 40 20 '.. @
0137B0: 32 31 2C 35 20 53 41 59 20 27 49 6C 6C 65 67 61 21,5 SAY 'Illega
0137C0: 6C 20 63 68 61 72 61 63 74 65 72 20 69 6E 20 74 l character in t
0137D0: 68 65 20 46 69 6C 65 20 4E 61 6D 65 20 2D 20 70 he File Name - p
0137E0: 72 65 73 73 20 61 6E 79 20 6B 65 79 3B 0D 0A 20 ress any key;..
0137F0: 74 6F 20 72 65 74 72 79 27 0D 0A 20 20 20 20 20 to retry'..
013800: 20 45 4C 53 45 0D 0A 20 20 20 20 53 54 4F 52 45 ELSE.. STORE
013810: 20 27 20 20 20 20 20 20 20 20 27 20 54 4F 20 44 ' ' TO D
013820: 45 4C 0D 0A 20 20 20 20 40 20 32 31 2C 30 0D 0A EL.. @ 21,0..
013830: 20 20 20 20 40 20 32 33 2C 31 34 20 53 41 59 20 @ 23,14 SAY
013840: 4D 2E 42 4C 41 4E 4B 0D 0A 20 20 20 20 4C 4F 4F M.BLANK.. LOO
013850: 50 20 0D 0A 20 20 45 4E 44 49 46 0D 0A 20 20 53 P .. ENDIF.. S
013860: 54 4F 52 45 20 27 20 27 20 54 4F 20 43 4F 4E 54 TORE ' ' TO CONT
013870: 0D 0A 20 20 40 20 32 30 2C 35 20 53 41 59 20 27 .. @ 20,5 SAY '
013880: 57 65 6C 6C 20 64 6F 6E 65 2C 20 79 6F 75 20 68 Well done, you h
013890: 61 76 65 20 73 75 63 63 65 73 73 66 75 6C 6C 79 ave successfully
0138A0: 20 64 65 6C 65 74 65 64 20 27 2B 4D 2E 44 45 4C deleted '+M.DEL
0138B0: 0D 0A 20 20 40 20 32 33 2C 30 20 53 41 59 20 27 .. @ 23,0 SAY '
0138C0: 2E 20 46 49 4C 45 20 48 41 53 20 42 45 45 4E 20 . FILE HAS BEEN
0138D0: 44 45 4C 45 54 45 44 27 0D 0A 20 20 53 54 4F 52 DELETED'.. STOR
0138E0: 45 20 27 20 27 20 54 4F 20 54 45 4D 50 0D 0A 20 E ' ' TO TEMP..
0138F0: 20 40 20 32 31 2C 35 20 53 41 59 20 27 50 72 65 @ 21,5 SAY 'Pre
013900: 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F ss any key to co
013910: 6E 74 69 6E 75 65 20 27 0D 0A 20 20 40 20 32 31 ntinue '.. @ 21
013920: 2C 31 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 ,1 GET M.TEMP..
013930: 20 52 45 41 44 0D 0A 20 20 43 4C 45 41 52 20 47 READ.. CLEAR G
013940: 45 54 53 0D 0A 45 4E 44 44 4F 0D 0A 45 52 41 53 ETS..ENDDO..ERAS
013950: 0D 0A 54 45 58 54 0D 0A 0D 0A 57 45 4C 43 4F 4D ..TEXT....WELCOM
013960: 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 E
013970: 20 20 20 20 20 20 20 20 20 20 20 20 44 45 4C 45 DELE
013980: 54 45 20 41 20 46 49 4C 45 20 20 20 20 20 20 20 TE A FILE
013990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0139A0: 20 64 42 41 53 45 20 49 49 0D 0A 2D 2D 2D 2D 2D dBASE II..-----
0139B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0139C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0139D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0139E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0139F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 45 4E 44 54 ----------..ENDT
013A00: 20 53 54 4F 52 45 20 27 20 27 20 54 4F 20 54 45 STORE ' ' TO TE
013A10: 4D 50 0D 0A 20 20 20 20 20 20 40 20 32 31 2C 31 MP.. @ 21,1
013A20: 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 20 GET M.TEMP..
013A30: 20 20 20 52 45 41 44 0D 0A 20 20 20 20 20 20 43 READ.. C
013A40: 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 20 20 20 LEAR GETS..
013A50: 20 53 54 4F 52 45 20 27 20 20 20 20 20 20 20 20 STORE '
013A60: 27 20 54 4F 20 44 45 4C 0D 0A 20 20 20 20 20 20 ' TO DEL..
013A70: 40 20 31 37 2C 30 0D 0A 20 20 20 20 20 20 40 20 @ 17,0.. @
013A80: 31 38 2C 30 0D 0A 20 20 20 20 20 20 40 20 31 39 18,0.. @ 19
013A90: 2C 30 0D 0A 20 20 20 20 20 20 40 20 32 30 2C 30 ,0.. @ 20,0
013AA0: 0D 0A 20 20 20 20 20 20 40 20 32 31 2C 31 0D 0A .. @ 21,1..
013AB0: 20 20 20 20 20 20 40 20 32 33 2C 31 34 20 53 41 @ 23,14 SA
013AC0: 59 20 4D 2E 42 4C 41 4E 4B 0D 0A 20 20 20 20 20 Y M.BLANK..
013AD0: 20 4C 4F 4F 50 0D 0A 20 20 20 20 45 4E 44 49 46 LOOP.. ENDIF
013AE0: 0D 0A 20 20 20 20 49 46 20 4D 2E 44 45 4C 20 3D .. IF M.DEL =
013AF0: 20 4D 2E 4D 46 49 4C 45 0D 0A 20 20 20 20 20 20 M.MFILE..
013B00: 40 20 31 39 2C 30 20 0D 0A 20 20 20 20 20 20 40 @ 19,0 .. @
013B10: 20 32 30 2C 30 0D 0A 20 20 20 20 20 20 40 20 32 20,0.. @ 2
013B20: 31 2C 30 0D 0A 20 20 20 20 20 20 40 20 32 33 2C 1,0.. @ 23,
013B30: 31 34 20 53 41 59 20 4D 2E 42 4C 41 4E 4B 0D 0A 14 SAY M.BLANK..
013B40: 20 20 20 20 20 20 40 20 32 30 2C 35 20 53 41 59 @ 20,5 SAY
013B50: 20 54 52 49 4D 28 4D 2E 44 45 4C 29 2B 27 20 49 TRIM(M.DEL)+' I
013B60: 73 20 63 75 72 72 65 6E 74 6C 79 20 6F 70 65 6E s currently open
013B70: 2E 20 50 6C 65 61 73 65 20 63 68 6F 6F 73 65 20 . Please choose
013B80: 61 67 61 69 6E 2E 27 0D 0A 20 20 20 20 20 20 53 again.'.. S
013B90: 54 4F 52 45 20 27 20 20 20 20 20 20 20 20 27 20 TORE ' '
013BA0: 54 4F 20 44 45 4C 0D 0A 20 20 20 20 20 20 53 54 TO DEL.. ST
013BB0: 4F 52 45 20 27 20 27 20 54 4F 20 54 45 4D 50 0D ORE ' ' TO TEMP.
013BC0: 0A 20 20 20 20 20 20 40 20 32 31 2C 35 20 53 41 . @ 21,5 SA
013BD0: 59 20 27 50 72 65 73 73 20 61 6E 79 20 6B 65 79 Y 'Press any key
013BE0: 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 27 0D 0A to continue '..
013BF0: 20 20 20 20 20 20 40 20 32 31 2C 31 20 47 45 54 @ 21,1 GET
013C00: 45 58 54 0D 0A 40 20 32 32 2C 31 20 53 41 59 20 EXT..@ 22,1 SAY
013C10: 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D '---------------
013C20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
013C30: 2D 2D 2D 2D 2D 2D 2D 2D 27 20 3B 0D 0A 20 20 20 --------' ;..
013C40: 20 20 20 20 20 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D + '-------
013C50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
013C60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 ---------------'
013C70: 0D 0A 40 20 31 31 2C 32 37 20 53 41 59 20 27 52 ..@ 11,27 SAY 'R
013C80: 45 54 55 52 4E 49 4E 47 20 54 4F 20 4D 41 49 4E ETURNING TO MAIN
013C90: 20 4D 45 4E 55 27 0D 0A 40 20 32 30 2C 31 0D 0A MENU'..@ 20,1..
013CA0: 53 54 4F 52 45 20 31 20 54 4F 20 43 0D 0A 44 4F STORE 1 TO C..DO
013CB0: 20 57 48 49 4C 45 20 43 20 3C 20 32 35 0D 0A 20 WHILE C < 25..
013CC0: 20 53 54 4F 52 45 20 43 2B 31 20 54 4F 20 43 0D STORE C+1 TO C.
013CD0: 0A 45 4E 44 44 4F 0D 0A 52 45 4C 45 20 41 4C 4C .ENDDO..RELE ALL
013CE0: 20 45 58 43 45 50 54 20 4D 46 49 4C 45 0D 0A 52 EXCEPT MFILE..R
013CF0: 45 54 55 52 4E 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A ETURN...........
013D00: 20 20 20 20 52 45 50 4C 41 43 45 20 46 49 45 4C REPLACE FIEL
013D10: 44 3A 4C 45 4E 20 57 49 54 48 20 30 0D 0A 20 20 D:LEN WITH 0..
013D20: 20 20 20 20 20 20 20 20 53 54 4F 52 45 20 31 20 STORE 1
013D30: 54 4F 20 43 0D 0A 20 20 20 20 20 20 20 20 20 20 TO C..
013D40: 44 4F 20 57 48 49 4C 45 20 43 20 3C 20 32 35 0D DO WHILE C < 25.
013D50: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 . ST
013D60: 4F 52 45 20 43 2B 31 20 54 4F 20 43 0D 0A 20 20 ORE C+1 TO C..
013D70: 20 20 20 20 20 20 20 20 45 4E 44 44 4F 0D 0A 20 ENDDO..
013D80: 20 20 20 20 20 20 20 20 20 40 20 31 36 2C 30 0D @ 16,0.
013D90: 0A 20 20 20 20 20 20 20 20 20 20 40 20 31 37 2C . @ 17,
013DA0: 30 0D 0A 20 20 20 20 20 20 20 20 20 20 40 20 32 0.. @ 2
013DB0: 30 2C 30 0D 0A 20 20 20 20 20 20 20 20 20 20 40 0,0.. @
013DC0: 20 32 31 2C 31 0D 0A 20 20 20 20 20 20 20 20 45 21,1.. E
013DD0: 4E 44 49 46 20 0D 0A 20 20 20 20 20 20 45 4E 44 NDIF .. END
013DE0: 44 4F 0D 0A 20 20 20 20 20 20 52 45 4C 45 41 53 DO.. RELEAS
013DF0: 45 20 4D 46 49 52 53 54 0D 0A 20 20 20 20 20 20 E MFIRST..
013E00: 20 4D 2E 54 45 4D 50 0D 0A 20 20 20 20 20 20 52 M.TEMP.. R
013E10: 45 41 44 0D 0A 20 20 20 20 20 20 43 4C 45 41 52 EAD.. CLEAR
013E20: 20 47 45 54 53 0D 0A 20 20 20 20 20 20 40 20 31 GETS.. @ 1
013E30: 36 2C 30 0D 0A 20 20 20 20 20 20 40 20 31 37 2C 6,0.. @ 17,
013E40: 30 0D 0A 20 20 20 20 20 20 40 20 31 38 2C 30 0D 0.. @ 18,0.
013E50: 0A 20 20 20 20 20 20 40 20 31 39 2C 30 0D 0A 20 . @ 19,0..
013E60: 20 20 20 20 20 40 20 32 30 2C 30 0D 0A 20 20 20 @ 20,0..
013E70: 20 20 20 40 20 32 31 2C 30 0D 0A 20 20 20 20 20 @ 21,0..
013E80: 20 40 20 32 33 2C 31 34 20 53 41 59 20 4D 2E 42 @ 23,14 SAY M.B
013E90: 4C 41 4E 4B 0D 0A 20 20 20 20 20 20 4C 4F 4F 50 LANK.. LOOP
013EA0: 0D 0A 20 20 20 20 45 4E 44 49 46 0D 0A 20 20 20 .. ENDIF..
013EB0: 20 49 46 20 2E 4E 4F 54 2E 20 46 49 4C 45 20 28 IF .NOT. FILE (
013EC0: 20 27 26 44 45 4C 27 20 29 0D 0A 20 20 20 20 20 '&DEL' )..
013ED0: 20 40 20 31 39 2C 30 0D 0A 20 20 20 20 20 20 40 @ 19,0.. @
013EE0: 20 32 30 2C 30 0D 0A 20 20 20 20 20 20 40 20 32 20,0.. @ 2
013EF0: 31 2C 30 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 1,0.. STORE
013F00: 20 27 20 27 20 54 4F 20 54 45 4D 50 0D 0A 20 20 ' ' TO TEMP..
013F10: 20 20 20 20 40 20 32 31 2C 35 20 53 41 59 20 27 @ 21,5 SAY '
013F20: 46 69 6C 65 20 6E 6F 74 20 66 6F 75 6E 64 20 2D File not found -
013F30: 20 50 72 65 73 73 20 61 6E 79 20 6B 65 79 20 74 Press any key t
013F40: 6F 20 72 65 74 72 79 20 27 20 0D 0A 20 20 20 20 o retry ' ..
013F50: 20 20 40 20 32 31 2C 31 20 47 45 54 20 4D 2E 54 @ 21,1 GET M.T
013F60: 45 4D 50 0D 0A 20 20 20 20 20 20 52 45 41 44 0D EMP.. READ.
013F70: 0A 20 20 20 20 20 20 43 4C 45 41 52 20 47 45 54 . CLEAR GET
013F80: 53 0D 0A 20 20 20 20 20 20 40 20 31 36 2C 30 0D S.. @ 16,0.
013F90: 0A 20 20 20 20 20 20 40 20 31 37 2C 30 0D 0A 20 . @ 17,0..
013FA0: 20 20 20 20 20 40 20 31 38 2C 30 0D 0A 20 20 20 @ 18,0..
013FB0: 20 20 20 40 20 31 39 2C 30 0D 0A 20 20 20 20 20 @ 19,0..
013FC0: 20 40 20 32 30 2C 30 0D 0A 20 20 20 20 20 20 40 @ 20,0.. @
013FD0: 20 32 31 2C 31 0D 0A 20 20 20 20 20 20 53 54 4F 21,1.. STO
013FE0: 52 45 20 27 20 20 20 20 20 20 20 20 27 20 54 4F RE ' ' TO
013FF0: 20 44 45 4C 0D 0A 20 20 20 20 20 20 40 20 32 33 DEL.. @ 23
014000: 45 52 41 53 0D 0A 53 54 4F 52 45 20 27 20 20 20 ERAS..STORE '
014010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014030: 20 20 20 20 20 20 20 20 27 20 54 4F 20 42 4C 41 ' TO BLA
014040: 4E 4B 0D 0A 54 45 58 54 0D 0A 0D 0A 57 45 4C 43 NK..TEXT....WELC
014050: 4F 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 20 OME
014060: 20 20 20 20 20 20 20 41 44 44 20 44 41 54 41 20 ADD DATA
014070: 54 4F 20 41 20 46 49 4C 45 20 20 20 20 20 20 20 TO A FILE
014080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014090: 64 42 41 53 45 20 49 49 0D 0A 2D 2D 2D 2D 2D 2D dBASE II..------
0140A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0140B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0140C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0140D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0140E0: 2D 2D 2D 2D 2D 2D 20 20 0D 0A 0D 0A 20 20 20 20 ------ ....
0140F0: 20 20 20 54 6F 20 61 64 64 20 64 61 74 61 20 74 To add data t
014100: 6F 20 61 20 64 42 41 53 45 20 49 49 20 66 69 6C o a dBASE II fil
014110: 65 20 79 6F 75 20 6D 75 73 74 20 66 69 72 73 74 e you must first
014120: 20 65 6E 73 75 72 65 20 74 68 61 74 20 0D 0A 0D ensure that ...
014130: 0A 20 20 20 20 20 20 20 79 6F 75 20 68 61 76 65 . you have
014140: 20 6F 70 65 6E 65 64 20 61 20 66 69 6C 65 2E 0D opened a file..
014150: 0A 45 4E 44 54 45 58 54 0D 0A 40 20 32 32 2C 31 .ENDTEXT..@ 22,1
014160: 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D SAY '----------
014170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20 3B 0D ------------' ;.
014190: 0A 20 20 20 20 20 20 20 20 20 2B 20 27 2D 2D 2D . + '---
0141A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0141B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0141C0: 2D 2D 2D 27 0D 0A 49 46 20 4D 2E 4D 46 49 4C 45 ---'..IF M.MFILE
0141D0: 3D 27 20 20 20 20 20 20 20 20 27 0D 0A 20 20 40 =' '.. @
0141E0: 20 32 30 2C 35 20 53 41 59 20 27 4E 6F 20 66 69 20,5 SAY 'No fi
0141F0: 6C 65 20 69 6E 20 75 73 65 20 70 6C 65 61 73 65 le in use please
014200: 2C 31 34 20 53 41 59 20 4D 2E 42 4C 41 4E 4B 0D ,14 SAY M.BLANK.
014210: 0A 20 20 20 20 45 4C 53 45 0D 0A 20 20 20 20 20 . ELSE..
014220: 20 53 54 4F 52 45 20 54 20 54 4F 20 56 41 4C 49 STORE T TO VALI
014230: 44 0D 0A 20 20 20 20 45 4E 44 49 46 0D 0A 20 20 D.. ENDIF..
014240: 45 4E 44 44 4F 0D 0A 20 20 53 54 4F 52 20 27 20 ENDDO.. STOR '
014250: 27 20 54 4F 20 43 48 4F 49 43 45 0D 0A 20 20 49 ' TO CHOICE.. I
014260: 46 20 46 49 4C 45 20 28 20 27 26 44 45 4C 27 20 F FILE ( '&DEL'
014270: 29 0D 0A 20 20 20 20 45 52 41 53 0D 0A 54 45 58 ).. ERAS..TEX
014280: 54 0D 0A 0D 0A 57 45 4C 43 4F 4D 45 20 20 20 20 T....WELCOME
014290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0142A0: 20 20 20 20 20 20 20 44 45 4C 45 54 45 20 41 20 DELETE A
0142B0: 46 49 4C 45 20 20 20 20 20 20 20 20 20 20 20 20 FILE
0142C0: 20 20 20 20 20 20 20 20 20 20 20 20 64 42 41 53 dBAS
0142D0: 45 20 49 49 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D E II..----------
0142E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0142F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014300: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014310: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014320: 2D 2D 2D 2D 2D 0D 0A 45 4E 44 54 45 58 54 0D 0A -----..ENDTEXT..
014330: 20 20 20 20 40 20 32 32 2C 31 20 53 41 59 20 27 @ 22,1 SAY '
014340: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014350: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014360: 2D 2D 2D 2D 2D 2D 2D 27 20 3B 0D 0A 20 20 20 20 -------' ;..
014370: 20 20 20 20 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D 2D + '--------
014380: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014390: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 0D --------------'.
0143A0: 0A 20 20 20 20 40 20 32 33 2C 30 20 53 41 59 20 . @ 23,0 SAY
0143B0: 27 2E 20 44 45 4C 45 54 45 20 46 49 4C 45 20 27 '. DELETE FILE '
0143C0: 2B 4D 54 45 53 54 20 20 0D 0A 20 20 20 20 40 20 +MTEST .. @
0143D0: 31 39 2C 35 20 53 41 59 20 27 42 65 6C 6F 77 20 19,5 SAY 'Below
0143E0: 74 68 65 20 6C 69 6E 65 20 79 6F 75 20 77 69 6C the line you wil
0143F0: 6C 20 6E 6F 77 20 73 65 65 20 74 68 65 20 63 6F l now see the co
014400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
014410: 11 00 01 00 02 09 50 E5 11 00 41 02 00 00 00 02 ......P...A.....
014420: 11 00 46 02 00 00 00 02 11 00 42 02 00 00 00 02 ..F.......B.....
014430: 11 00 47 02 00 00 00 02 11 00 43 02 00 00 00 02 ..G.......C.....
014440: 11 00 48 02 00 00 00 02 11 00 44 02 00 00 00 02 ..H.......D.....
014450: 11 00 49 02 00 00 00 02 11 00 45 02 00 00 00 02 ..I.......E.....
014460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014500: 20 4F 50 45 4E 20 66 72 6F 6D 20 6D 61 69 6E 20 OPEN from main
014510: 6D 65 6E 75 27 0D 0A 20 20 53 54 4F 52 45 20 27 menu'.. STORE '
014520: 20 27 20 54 4F 20 54 45 4D 50 0D 0A 20 20 40 20 ' TO TEMP.. @
014530: 32 31 2C 35 20 53 41 59 20 27 50 72 65 73 73 20 21,5 SAY 'Press
014540: 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 any key to conti
014550: 6E 75 65 20 27 0D 0A 20 20 40 20 32 31 2C 31 20 nue '.. @ 21,1
014560: 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 52 45 GET M.TEMP.. RE
014570: 41 44 0D 0A 20 20 43 4C 45 41 52 20 47 45 54 53 AD.. CLEAR GETS
014580: 0D 0A 20 20 45 52 41 53 0D 0A 54 45 58 54 0D 0A .. ERAS..TEXT..
014590: 0D 0A 57 45 4C 43 4F 4D 45 20 20 20 20 20 20 20 ..WELCOME
0145A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 41 44 44 ADD
0145B0: 20 44 41 54 41 20 54 4F 20 41 20 46 49 4C 45 20 DATA TO A FILE
0145C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0145D0: 20 20 20 20 20 20 64 42 41 53 45 20 49 49 0D 0A dBASE II..
0145E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0145F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014600: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014610: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014620: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 0D 0A ------------ ..
014630: 45 4E 44 54 45 58 54 0D 0A 20 20 40 20 32 32 2C ENDTEXT.. @ 22,
014640: 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 1 SAY '---------
014650: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014660: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20 3B -------------' ;
014670: 0D 0A 20 20 20 20 20 20 20 20 20 2B 20 27 2D 2D .. + '--
014680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0146A0: 2D 2D 2D 2D 27 0D 0A 20 20 40 20 31 31 2C 32 37 ----'.. @ 11,27
0146B0: 20 53 41 59 20 27 52 45 54 55 52 4E 49 4E 47 20 SAY 'RETURNING
0146C0: 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 27 0D 0A 20 TO MAIN MENU'..
0146D0: 20 40 20 32 30 2C 31 0D 0A 20 20 53 54 4F 52 45 @ 20,1.. STORE
0146E0: 20 31 20 54 4F 20 43 0D 0A 20 20 44 4F 20 57 48 1 TO C.. DO WH
0146F0: 49 4C 45 20 43 20 3C 20 32 35 0D 0A 20 20 20 20 ILE C < 25..
014700: 52 20 54 20 54 4F 20 43 4F 4E 54 0D 0A 20 20 20 R T TO CONT..
014710: 20 44 4F 20 57 48 49 4C 45 20 4D 2E 43 4F 4E 54 DO WHILE M.CONT
014720: 0D 0A 20 20 20 20 20 20 53 45 4C 45 43 54 20 50 .. SELECT P
014730: 52 49 4D 41 52 59 0D 0A 20 20 20 20 20 20 40 20 RIMARY.. @
014740: 4C 49 4E 45 2C 31 20 53 41 59 20 53 2E 46 49 45 LINE,1 SAY S.FIE
014750: 4C 44 3A 4E 41 4D 45 0D 0A 20 20 20 20 20 20 53 LD:NAME.. S
014760: 54 4F 52 20 53 2E 46 49 45 4C 44 3A 4E 41 4D 45 TOR S.FIELD:NAME
014770: 20 54 4F 20 41 50 50 45 31 0D 0A 20 20 20 20 20 TO APPE1..
014780: 20 40 20 4C 49 4E 45 2C 31 31 20 47 45 54 20 26 @ LINE,11 GET &
014790: 41 50 50 45 31 0D 0A 20 20 20 20 20 20 44 4F 20 APPE1.. DO
0147A0: 43 41 53 45 0D 0A 20 20 20 20 20 20 20 20 43 41 CASE.. CA
0147B0: 53 45 20 46 49 45 4C 44 3A 4C 45 4E 20 3C 20 36 SE FIELD:LEN < 6
0147C0: 39 0D 0A 20 20 20 20 20 20 20 20 20 20 53 54 4F 9.. STO
0147D0: 52 20 4D 2E 4C 49 4E 45 2B 31 20 54 4F 20 4C 49 R M.LINE+1 TO LI
0147E0: 4E 45 0D 0A 20 20 20 20 20 20 20 20 43 41 53 45 NE.. CASE
0147F0: 20 46 49 45 4C 44 3A 4C 45 4E 20 3E 20 36 38 20 FIELD:LEN > 68
014800: 2E 41 4E 44 2E 20 46 49 45 4C 44 3A 4C 45 4E 20 .AND. FIELD:LEN
014810: 3C 20 31 35 39 0D 0A 20 20 20 20 20 20 20 20 20 < 159..
014820: 20 53 54 4F 52 20 4D 2E 4C 49 4E 45 2B 32 20 54 STOR M.LINE+2 T
014830: 4F 20 4C 49 4E 45 0D 0A 20 20 20 20 20 20 20 20 O LINE..
014840: 43 41 53 45 20 46 49 45 4C 44 3A 4C 45 4E 20 3E CASE FIELD:LEN >
014850: 20 31 35 38 20 2E 41 4E 44 2E 20 46 49 45 4C 44 158 .AND. FIELD
014860: 3A 4C 45 4E 20 3C 20 32 33 39 0D 0A 20 20 20 20 :LEN < 239..
014870: 20 20 20 20 20 20 53 54 4F 52 20 4D 2E 4C 49 4E STOR M.LIN
014880: 45 2B 33 20 54 4F 20 4C 49 4E 45 0D 0A 20 20 20 E+3 TO LINE..
014890: 20 20 20 20 20 43 41 53 45 20 46 49 45 4C 44 3A CASE FIELD:
0148A0: 4C 45 4E 20 3E 20 32 33 38 0D 0A 20 20 20 20 20 LEN > 238..
0148B0: 20 20 20 20 20 53 54 4F 52 20 4D 2E 4C 49 4E 45 STOR M.LINE
0148C0: 2B 34 20 54 4F 20 4C 49 4E 45 0D 0A 20 20 20 20 +4 TO LINE..
0148D0: 20 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 20 ENDCASE..
0148E0: 20 40 20 32 31 2C 35 20 53 41 59 20 27 50 6C 65 @ 21,5 SAY 'Ple
0148F0: 61 73 65 20 65 6E 74 65 72 20 72 65 71 75 69 72 ase enter requir
014900: 53 54 4F 52 45 20 43 2B 31 20 54 4F 20 43 0D 0A STORE C+1 TO C..
014910: 20 20 45 4E 44 44 4F 0D 0A 20 20 52 45 4C 45 41 ENDDO.. RELEA
014920: 53 45 20 41 4C 4C 20 45 58 43 45 50 54 20 4D 46 SE ALL EXCEPT MF
014930: 49 4C 45 0D 0A 20 20 52 45 54 55 52 4E 0D 0A 45 ILE.. RETURN..E
014940: 4E 44 49 46 0D 0A 40 20 32 30 2C 35 20 53 41 59 NDIF..@ 20,5 SAY
014950: 20 27 54 68 65 20 66 69 6C 65 20 70 72 65 73 65 'The file prese
014960: 6E 74 6C 79 20 69 6E 20 75 73 65 20 69 73 20 2D ntly in use is -
014970: 20 27 2B 4D 2E 4D 46 49 4C 45 0D 0A 53 54 4F 52 '+M.MFILE..STOR
014980: 45 20 27 20 27 20 54 4F 20 52 45 50 4C 59 0D 0A E ' ' TO REPLY..
014990: 44 4F 20 57 48 49 4C 45 20 2E 4E 4F 54 2E 21 28 DO WHILE .NOT.!(
0149A0: 4D 2E 52 45 50 4C 59 29 24 27 59 4E 27 0D 0A 20 M.REPLY)$'YN'..
0149B0: 20 40 20 32 31 2C 30 0D 0A 20 20 40 20 32 31 2C @ 21,0.. @ 21,
0149C0: 35 20 53 41 59 20 27 44 6F 20 79 6F 75 20 77 69 5 SAY 'Do you wi
0149D0: 73 68 20 74 6F 20 61 64 64 20 64 61 74 61 20 74 sh to add data t
0149E0: 6F 20 74 68 69 73 20 66 69 6C 65 3F 20 59 2F 4E o this file? Y/N
0149F0: 20 27 20 0D 0A 20 20 40 20 32 31 2C 31 20 47 45 ' .. @ 21,1 GE
014A00: 54 20 4D 2E 52 45 50 4C 59 0D 0A 20 20 52 45 41 T M.REPLY.. REA
014A10: 44 0D 0A 20 20 43 4C 45 41 52 20 47 45 54 53 0D D.. CLEAR GETS.
014A20: 0A 45 4E 44 44 4F 0D 0A 49 46 20 21 28 4D 2E 52 .ENDDO..IF !(M.R
014A30: 45 50 4C 59 29 3D 27 4E 27 0D 0A 20 20 45 52 41 EPLY)='N'.. ERA
014A40: 53 0D 0A 54 45 58 54 0D 0A 0D 0A 57 45 4C 43 4F S..TEXT....WELCO
014A50: 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ME
014A60: 20 20 20 20 20 20 41 44 44 20 44 41 54 41 20 54 ADD DATA T
014A70: 4F 20 41 20 46 49 4C 45 20 20 20 20 20 20 20 20 O A FILE
014A80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 d
014A90: 42 41 53 45 20 49 49 0D 0A 2D 2D 2D 2D 2D 2D 2D BASE II..-------
014AA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014AB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014AC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014AD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014AE0: 2D 2D 2D 2D 2D 20 20 0D 0A 45 4E 44 54 45 58 54 ----- ..ENDTEXT
014AF0: 0D 0A 20 20 40 20 32 32 2C 31 20 53 41 59 20 27 .. @ 22,1 SAY '
014B00: 65 64 20 64 65 74 61 69 6C 73 27 0D 0A 20 20 20 ed details'..
014B10: 20 20 20 53 45 4C 45 43 54 20 53 45 43 4F 4E 44 SELECT SECOND
014B20: 41 52 59 0D 0A 20 20 20 20 20 20 53 4B 49 50 0D ARY.. SKIP.
014B30: 0A 20 20 20 20 20 20 44 4F 20 43 41 53 45 0D 0A . DO CASE..
014B40: 20 20 20 20 20 20 20 20 43 41 53 45 20 46 49 45 CASE FIE
014B50: 4C 44 3A 4C 45 4E 20 3C 20 36 39 0D 0A 20 20 20 LD:LEN < 69..
014B60: 20 20 20 20 20 20 20 53 54 4F 52 20 31 20 54 4F STOR 1 TO
014B70: 20 4E 45 58 54 4C 49 4E 45 0D 0A 20 20 20 20 20 NEXTLINE..
014B80: 20 20 20 43 41 53 45 20 46 49 45 4C 44 3A 4C 45 CASE FIELD:LE
014B90: 4E 20 3E 20 36 38 20 2E 41 4E 44 2E 20 46 49 45 N > 68 .AND. FIE
014BA0: 4C 44 3A 4C 45 4E 20 3C 20 31 35 39 0D 0A 20 20 LD:LEN < 159..
014BB0: 20 20 20 20 20 20 20 20 53 54 4F 52 20 32 20 54 STOR 2 T
014BC0: 4F 20 4E 45 58 54 4C 49 4E 45 0D 0A 20 20 20 20 O NEXTLINE..
014BD0: 20 20 20 20 43 41 53 45 20 46 49 45 4C 44 3A 4C CASE FIELD:L
014BE0: 45 4E 20 3E 20 31 35 38 20 2E 41 4E 44 2E 20 46 EN > 158 .AND. F
014BF0: 49 45 4C 44 3A 4C 45 4E 20 3C 20 32 33 39 0D 0A IELD:LEN < 239..
014C00: 20 20 20 20 20 20 20 20 20 20 53 54 4F 52 20 33 STOR 3
014C10: 20 54 4F 20 4E 45 58 54 4C 49 4E 45 0D 0A 20 20 TO NEXTLINE..
014C20: 20 20 20 20 20 20 43 41 53 45 20 46 49 45 4C 44 CASE FIELD
014C30: 3A 4C 45 4E 20 3E 20 32 33 38 0D 0A 20 20 20 20 :LEN > 238..
014C40: 20 20 20 20 20 20 53 54 4F 52 20 34 20 54 4F 20 STOR 4 TO
014C50: 4E 45 58 54 4C 49 4E 45 0D 0A 20 20 20 20 20 20 NEXTLINE..
014C60: 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 20 20 49 ENDCASE.. I
014C70: 46 20 45 4F 46 20 2E 4F 52 2E 20 4D 2E 4C 49 4E F EOF .OR. M.LIN
014C80: 45 2B 4D 2E 4E 45 58 54 4C 49 4E 45 20 20 3E 20 E+M.NEXTLINE >
014C90: 31 37 0D 0A 20 20 20 20 20 20 20 20 53 54 4F 52 17.. STOR
014CA0: 20 46 20 54 4F 20 43 4F 4E 54 0D 0A 20 20 20 20 F TO CONT..
014CB0: 20 20 20 20 49 46 20 45 4F 46 0D 0A 20 20 20 20 IF EOF..
014CC0: 20 20 20 20 20 20 53 54 4F 52 20 54 20 54 4F 20 STOR T TO
014CD0: 4C 41 53 54 52 45 43 2C 4C 4F 47 49 43 0D 0A 20 LASTREC,LOGIC..
014CE0: 20 20 20 20 20 20 20 45 4E 44 49 46 0D 0A 20 20 ENDIF..
014CF0: 20 20 20 20 45 4E 44 49 46 0D 0A 20 20 20 20 45 ENDIF.. E
014D00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014D10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014D20: 2D 2D 2D 2D 2D 2D 27 20 3B 0D 0A 20 20 20 20 20 ------' ;..
014D30: 20 20 20 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D + '---------
014D40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014D50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A -------------'..
014D60: 20 20 40 20 31 31 2C 32 37 20 53 41 59 20 27 52 @ 11,27 SAY 'R
014D70: 45 54 55 52 4E 49 4E 47 20 54 4F 20 4D 41 49 4E ETURNING TO MAIN
014D80: 20 4D 45 4E 55 27 0D 0A 20 20 40 20 32 30 2C 31 MENU'.. @ 20,1
014D90: 0D 0A 20 20 53 54 4F 52 45 20 31 20 54 4F 20 43 .. STORE 1 TO C
014DA0: 0D 0A 20 20 44 4F 20 57 48 49 4C 45 20 43 20 3C .. DO WHILE C <
014DB0: 20 32 35 0D 0A 20 20 20 20 53 54 4F 52 45 20 43 25.. STORE C
014DC0: 2B 31 20 54 4F 20 43 0D 0A 20 20 45 4E 44 44 4F +1 TO C.. ENDDO
014DD0: 0D 0A 20 20 52 45 4C 45 41 53 45 20 41 4C 4C 20 .. RELEASE ALL
014DE0: 45 58 43 45 50 54 20 4D 46 49 4C 45 0D 0A 20 20 EXCEPT MFILE..
014DF0: 52 45 54 55 52 4E 0D 0A 45 4E 44 49 46 0D 0A 45 RETURN..ENDIF..E
014E00: 52 41 53 0D 0A 54 45 58 54 0D 0A 0D 0A 57 45 4C RAS..TEXT....WEL
014E10: 43 4F 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 COME
014E20: 20 20 20 20 20 20 20 20 41 44 44 20 44 41 54 41 ADD DATA
014E30: 20 54 4F 20 41 20 46 49 4C 45 20 20 20 20 20 20 TO A FILE
014E40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014E50: 20 64 42 41 53 45 20 49 49 0D 0A 2D 2D 2D 2D 2D dBASE II..-----
014E60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014E70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014E80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014E90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014EA0: 2D 2D 2D 2D 2D 2D 2D 20 20 0D 0A 45 4E 44 54 45 ------- ..ENDTE
014EB0: 58 54 0D 0A 40 20 32 32 2C 31 20 53 41 59 20 27 XT..@ 22,1 SAY '
014EC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014ED0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
014EE0: 2D 2D 2D 2D 2D 2D 27 20 3B 0D 0A 20 20 20 20 20 ------' ;..
014EF0: 20 20 20 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D + '---------
014F00: 4E 44 44 4F 0D 0A 20 20 20 20 53 45 4C 45 43 54 NDDO.. SELECT
014F10: 20 50 52 49 4D 41 52 59 0D 0A 20 20 20 20 52 45 PRIMARY.. RE
014F20: 41 44 0D 0A 20 20 20 20 43 4C 45 41 20 47 45 54 AD.. CLEA GET
014F30: 53 0D 0A 20 20 20 20 49 46 20 2E 4E 4F 54 2E 20 S.. IF .NOT.
014F40: 4D 2E 4C 41 53 54 52 45 43 0D 0A 20 20 20 20 20 M.LASTREC..
014F50: 20 53 54 4F 52 20 35 20 54 4F 20 4D 2E 4C 49 4E STOR 5 TO M.LIN
014F60: 45 0D 0A 20 20 20 20 20 20 44 4F 20 57 48 49 4C E.. DO WHIL
014F70: 45 20 4D 2E 4C 49 4E 45 20 3C 31 38 0D 0A 20 20 E M.LINE <18..
014F80: 20 20 20 20 20 20 40 20 4D 2E 4C 49 4E 45 2C 30 @ M.LINE,0
014F90: 0D 0A 20 20 20 20 20 20 20 20 53 54 4F 52 20 4D .. STOR M
014FA0: 2E 4C 49 4E 45 20 2B 20 31 20 54 4F 20 4C 49 4E .LINE + 1 TO LIN
014FB0: 45 20 0D 0A 20 20 20 20 20 20 45 4E 44 44 4F 0D E .. ENDDO.
014FC0: 0A 20 20 20 20 20 45 4C 53 45 0D 0A 20 20 20 20 . ELSE..
014FD0: 20 20 53 54 4F 52 45 20 54 20 54 4F 20 4E 4F 43 STORE T TO NOC
014FE0: 4F 4E 54 0D 0A 20 20 20 20 45 4E 44 49 46 0D 0A ONT.. ENDIF..
014FF0: 20 20 45 4E 44 44 4F 0D 0A 20 20 40 20 32 30 2C ENDDO.. @ 20,
015000: 35 20 53 41 59 20 27 64 42 41 53 45 20 49 49 20 5 SAY 'dBASE II
015010: 77 69 6C 6C 20 61 6C 6C 6F 77 20 79 6F 75 20 74 will allow you t
015020: 6F 20 41 50 50 45 4E 44 20 61 73 20 6D 61 6E 79 o APPEND as many
015030: 20 3B 0D 0A 72 65 63 6F 72 64 73 20 61 73 20 72 ;..records as r
015040: 65 71 75 69 72 65 64 2E 27 0D 0A 20 20 53 54 4F equired.'.. STO
015050: 52 45 20 27 20 27 20 54 4F 20 52 45 50 4C 59 0D RE ' ' TO REPLY.
015060: 0A 20 20 44 4F 20 57 48 49 4C 45 20 2E 4E 4F 54 . DO WHILE .NOT
015070: 2E 20 4D 2E 52 45 50 4C 59 24 27 59 4E 27 0D 0A . M.REPLY$'YN'..
015080: 20 20 20 20 40 20 32 31 2C 30 0D 0A 20 20 20 20 @ 21,0..
015090: 40 20 32 31 2C 35 20 53 41 59 20 27 4D 6F 72 65 @ 21,5 SAY 'More
0150A0: 20 52 65 63 6F 72 64 73 3F 20 59 2F 4E 20 27 20 Records? Y/N '
0150B0: 0D 0A 20 20 20 20 40 20 32 31 2C 31 20 47 45 54 .. @ 21,1 GET
0150C0: 20 4D 2E 52 45 50 4C 59 20 70 69 63 74 20 27 21 M.REPLY pict '!
0150D0: 27 0D 0A 20 20 20 20 52 45 41 44 0D 0A 20 20 20 '.. READ..
0150E0: 20 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 45 CLEAR GETS.. E
0150F0: 4E 44 44 4F 0D 0A 20 20 45 52 41 53 0D 0A 54 45 NDDO.. ERAS..TE
015100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
015110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A -------------'..
015120: 40 20 34 2C 30 0D 0A 54 45 58 54 0D 0A 20 20 20 @ 4,0..TEXT..
015130: 20 20 59 6F 75 20 77 6F 75 6C 64 20 61 64 64 20 You would add
015140: 64 61 74 61 20 74 6F 20 61 20 66 69 6C 65 20 69 data to a file i
015150: 6E 20 64 42 41 53 45 20 49 49 20 62 79 20 74 79 n dBASE II by ty
015160: 70 69 6E 67 0D 0A 0D 0A 20 20 20 20 20 20 2E 20 ping.... .
015170: 41 50 50 45 4E 44 20 0D 0A 0D 0A 20 20 20 20 20 APPEND ....
015180: 54 6F 20 68 65 6C 70 20 79 6F 75 20 61 6C 6F 6E To help you alon
015190: 67 20 49 20 68 61 76 65 20 61 6C 72 65 61 64 79 g I have already
0151A0: 20 65 6E 74 65 72 65 64 20 74 68 65 20 41 50 50 entered the APP
0151B0: 45 4E 44 20 2D 0D 0A 20 20 20 20 20 73 68 6F 77 END -.. show
0151C0: 6E 20 62 65 6C 6F 77 20 74 68 65 20 6C 69 6E 65 n below the line
0151D0: 2E 0D 0A 0D 0A 45 4E 44 54 45 58 54 0D 0A 40 20 .....ENDTEXT..@
0151E0: 32 33 2C 30 20 53 41 59 20 22 2E 20 41 50 50 45 23,0 SAY ". APPE
0151F0: 4E 44 22 0D 0A 53 54 4F 52 45 20 27 20 27 20 54 ND"..STORE ' ' T
015200: 4F 20 54 45 4D 50 0D 0A 40 20 32 31 2C 35 20 53 O TEMP..@ 21,5 S
015210: 41 59 20 27 50 72 65 73 73 20 61 6E 79 20 6B 65 AY 'Press any ke
015220: 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 27 0D y to continue '.
015230: 0A 40 20 32 31 2C 31 20 47 45 54 20 4D 2E 54 45 .@ 21,1 GET M.TE
015240: 4D 50 0D 0A 52 45 41 44 0D 0A 43 4C 45 41 52 20 MP..READ..CLEAR
015250: 47 45 54 53 0D 0A 45 52 41 53 0D 0A 54 45 58 54 GETS..ERAS..TEXT
015260: 0D 0A 0D 0A 57 45 4C 43 4F 4D 45 20 20 20 20 20 ....WELCOME
015270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 A
015280: 44 44 20 44 41 54 41 20 54 4F 20 41 20 46 49 4C DD DATA TO A FIL
015290: 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 E
0152A0: 20 20 20 20 20 20 20 20 64 42 41 53 45 20 49 49 dBASE II
0152B0: 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ..--------------
0152C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0152D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0152E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0152F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 --------------
015300: 58 54 0D 0A 0D 0A 57 45 4C 43 4F 4D 45 20 20 20 XT....WELCOME
015310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015320: 20 41 44 44 20 44 41 54 41 20 54 4F 20 41 20 46 ADD DATA TO A F
015330: 49 4C 45 20 20 20 20 20 20 20 20 20 20 20 20 20 ILE
015340: 20 20 20 20 20 20 20 20 20 20 64 42 41 53 45 20 dBASE
015350: 49 49 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D II..------------
015360: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
015370: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
015380: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
015390: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0153A0: 20 20 0D 0A 45 4E 44 54 45 58 54 0D 0A 20 20 20 ..ENDTEXT..
0153B0: 20 40 20 32 32 2C 31 20 53 41 59 20 27 2D 2D 2D @ 22,1 SAY '---
0153C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0153D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0153E0: 2D 2D 2D 27 20 3B 0D 0A 20 20 20 20 20 20 20 20 ---' ;..
0153F0: 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D + '------------
015400: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
015410: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 20 20 49 ----------'.. I
015420: 46 20 4D 2E 52 45 50 4C 59 3D 27 4E 27 0D 0A 20 F M.REPLY='N'..
015430: 20 20 20 53 54 4F 52 45 20 46 20 54 4F 20 4D 55 STORE F TO MU
015440: 4C 54 49 0D 0A 20 20 45 4C 53 45 0D 0A 20 20 20 LTI.. ELSE..
015450: 20 40 20 32 33 2C 30 20 53 41 59 20 27 2E 20 41 @ 23,0 SAY '. A
015460: 50 50 45 4E 44 27 0D 0A 20 20 20 20 53 45 4C 45 PPEND'.. SELE
015470: 20 53 45 43 4F 20 0D 0A 20 20 20 20 47 4F 54 4F SECO .. GOTO
015480: 20 54 4F 50 0D 0A 20 20 45 4E 44 49 46 0D 0A 45 TOP.. ENDIF..E
015490: 4E 44 44 4F 0D 0A 40 20 32 33 2C 30 20 53 41 59 NDDO..@ 23,0 SAY
0154A0: 20 4D 2E 42 4C 41 4E 4B 0D 0A 40 20 31 31 2C 32 M.BLANK..@ 11,2
0154B0: 37 20 53 41 59 20 27 52 45 54 55 52 4E 49 4E 47 7 SAY 'RETURNING
0154C0: 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 27 0D 0A TO MAIN MENU'..
0154D0: 40 20 32 30 2C 31 0D 0A 53 54 4F 52 45 20 31 20 @ 20,1..STORE 1
0154E0: 54 4F 20 43 0D 0A 44 4F 20 57 48 49 4C 45 20 43 TO C..DO WHILE C
0154F0: 20 3C 20 32 35 0D 0A 20 20 53 54 4F 52 45 20 43 < 25.. STORE C
015500: 0D 0A 45 4E 44 54 45 58 54 0D 0A 40 20 32 32 2C ..ENDTEXT..@ 22,
015510: 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 1 SAY '---------
015520: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
015530: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20 3B -------------' ;
015540: 0D 0A 20 20 20 20 20 20 20 20 20 2B 20 27 2D 2D .. + '--
015550: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
015560: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
015570: 2D 2D 2D 2D 27 0D 0A 40 20 32 33 2C 30 20 53 41 ----'..@ 23,0 SA
015580: 59 20 27 2E 20 41 50 50 45 4E 44 27 0D 0A 40 20 Y '. APPEND'..@
015590: 31 31 2C 32 30 20 53 41 59 20 27 50 6C 65 61 73 11,20 SAY 'Pleas
0155A0: 65 20 57 61 69 74 20 2E 2E 2E 20 6E 6F 77 20 6C e Wait ... now l
0155B0: 6F 61 64 69 6E 67 20 74 68 65 20 6E 65 78 74 20 oading the next
0155C0: 57 65 6C 63 6F 6D 65 20 66 69 6C 65 27 0D 0A 40 Welcome file'..@
0155D0: 20 32 30 2C 31 0D 0A 43 4F 50 59 20 54 4F 20 54 20,1..COPY TO T
0155E0: 45 4D 50 20 53 54 52 55 43 54 55 52 45 20 45 58 EMP STRUCTURE EX
0155F0: 54 45 4E 44 45 44 0D 0A 53 45 4C 45 43 54 20 53 TENDED..SELECT S
015600: 45 43 4F 4E 44 41 52 59 0D 0A 55 53 45 20 54 45 ECONDARY..USE TE
015610: 4D 50 0D 0A 53 54 4F 52 20 54 20 54 4F 20 4D 55 MP..STOR T TO MU
015620: 4C 54 49 0D 0A 44 4F 20 57 48 49 4C 45 20 4D 2E LTI..DO WHILE M.
015630: 4D 55 4C 54 49 0D 0A 20 20 40 20 31 31 2C 35 0D MULTI.. @ 11,5.
015640: 0A 20 20 47 4F 20 54 4F 50 0D 0A 20 20 53 45 4C . GO TOP.. SEL
015650: 45 43 54 20 50 52 49 4D 41 52 59 0D 0A 20 20 41 ECT PRIMARY.. A
015660: 50 50 45 4E 44 20 42 4C 41 4E 4B 0D 0A 20 20 40 PPEND BLANK.. @
015670: 20 34 2C 31 20 53 41 59 20 27 52 45 43 4F 52 44 4,1 SAY 'RECORD
015680: 20 23 20 27 0D 0A 20 20 40 20 34 2C 31 30 20 53 # '.. @ 4,10 S
015690: 41 59 20 23 0D 0A 20 20 53 54 4F 52 45 20 46 20 AY #.. STORE F
0156A0: 54 4F 20 4E 4F 43 4F 4E 54 2C 4C 41 53 54 52 45 TO NOCONT,LASTRE
0156B0: 43 0D 0A 20 20 44 4F 20 57 48 49 4C 45 20 2E 4E C.. DO WHILE .N
0156C0: 4F 54 2E 20 4D 2E 4E 4F 43 4F 4E 54 0D 0A 20 20 OT. M.NOCONT..
0156D0: 20 20 53 45 4C 45 43 54 20 53 45 43 4F 4E 44 41 SELECT SECONDA
0156E0: 52 59 0D 0A 20 20 20 20 53 54 4F 52 45 20 35 20 RY.. STORE 5
0156F0: 54 4F 20 4C 49 4E 45 0D 0A 20 20 20 20 53 54 4F TO LINE.. STO
015700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
015710: 12 00 01 00 02 09 52 E5 12 00 41 02 00 00 00 02 ......R...A.....
015720: 12 00 46 02 00 00 00 02 12 00 42 02 00 00 00 02 ..F.......B.....
015730: 12 00 47 02 00 00 00 02 12 00 43 02 00 00 00 02 ..G.......C.....
015740: 12 00 48 02 00 00 00 02 12 00 44 02 00 00 00 02 ..H.......D.....
015750: 12 00 49 02 00 00 00 02 12 00 45 02 00 00 00 02 ..I.......E.....
015760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015800: 2B 31 20 54 4F 20 43 0D 0A 45 4E 44 44 4F 0D 0A +1 TO C..ENDDO..
015810: 52 45 4C 45 41 53 45 20 41 4C 4C 20 45 58 43 45 RELEASE ALL EXCE
015820: 50 54 20 4D 46 49 4C 45 0D 0A 53 45 4C 45 43 54 PT MFILE..SELECT
015830: 20 53 45 43 4F 4E 44 41 52 59 0D 0A 55 53 45 0D SECONDARY..USE.
015840: 0A 53 45 4C 45 43 54 20 50 52 49 4D 41 52 59 0D .SELECT PRIMARY.
015850: 0A 55 53 45 0D 0A 44 45 4C 45 54 45 20 46 49 4C .USE..DELETE FIL
015860: 45 20 54 45 4D 50 0D 0A 55 53 45 20 26 4D 46 49 E TEMP..USE &MFI
015870: 4C 45 0D 0A 52 45 54 55 52 4E 0D 0A 1A 1A 1A 1A LE..RETURN......
015880: 21 21 21 21 21 21 27 0D 0A 20 20 20 20 40 20 31 !!!!!!'.. @ 1
015890: 39 2C 35 20 53 41 59 20 27 54 68 65 20 2E 44 42 9,5 SAY 'The .DB
0158A0: 46 20 73 75 66 66 69 78 20 69 73 20 6E 6F 74 20 F suffix is not
0158B0: 72 65 71 75 69 72 65 64 27 0D 0A 20 20 20 20 52 required'.. R
0158C0: 45 41 44 0D 0A 20 20 20 20 43 4C 45 41 52 20 47 EAD.. CLEAR G
0158D0: 45 54 53 0D 0A 20 20 20 20 49 46 20 4D 2E 43 46 ETS.. IF M.CF
0158E0: 49 4C 45 20 3D 20 27 20 20 20 20 20 20 20 20 27 ILE = ' '
0158F0: 0D 0A 20 20 20 20 20 20 45 52 41 53 45 0D 0A 20 .. ERASE..
015900: 20 20 20 20 20 40 20 31 2C 31 20 53 41 59 20 27 @ 1,1 SAY '
015910: 57 45 4C 43 4F 4D 45 20 20 20 20 20 20 20 20 20 WELCOME
015920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4F 50 OP
015930: 45 4E 2F 43 4C 4F 53 45 20 41 20 46 49 4C 45 27 EN/CLOSE A FILE'
015940: 0D 0A 20 20 20 20 20 20 40 20 31 2C 37 31 20 53 .. @ 1,71 S
015950: 41 59 20 27 64 42 41 53 45 20 49 49 27 0D 0A 20 AY 'dBASE II'..
015960: 20 20 20 20 20 40 20 32 2C 31 20 53 41 59 20 55 @ 2,1 SAY U
015970: 4E 44 45 52 4C 4E 0D 0A 20 20 20 20 20 20 40 20 NDERLN.. @
015980: 32 32 2C 31 20 53 41 59 20 55 4E 44 45 52 4C 4E 22,1 SAY UNDERLN
015990: 0D 0A 20 20 20 20 20 20 40 20 31 31 2C 32 37 20 .. @ 11,27
0159A0: 53 41 59 20 27 52 45 54 55 52 4E 49 4E 47 20 54 SAY 'RETURNING T
0159B0: 4F 20 4D 41 49 4E 20 4D 45 4E 55 27 0D 0A 20 20 O MAIN MENU'..
0159C0: 20 20 20 20 40 20 32 30 2C 31 0D 0A 20 20 20 20 @ 20,1..
0159D0: 20 20 53 54 4F 52 45 20 31 20 54 4F 20 43 0D 0A STORE 1 TO C..
0159E0: 20 20 20 20 20 20 44 4F 20 57 48 49 4C 45 20 43 DO WHILE C
0159F0: 20 3C 20 32 35 0D 0A 20 20 20 20 20 20 20 20 53 < 25.. S
015A00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
015A10: 2D 2D 2D 2D 2D 2D 2D 2D 27 20 3B 0D 0A 20 20 20 --------' ;..
015A20: 20 20 20 20 20 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D + '-------
015A30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
015A40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 ---------------'
015A50: 0D 0A 45 4E 44 44 4F 0D 0A 49 46 20 4D 2E 52 45 ..ENDDO..IF M.RE
015A60: 50 4C 59 3D 27 4E 27 0D 0A 20 20 40 20 31 31 2C PLY='N'.. @ 11,
015A70: 32 37 20 53 41 59 20 27 52 45 54 55 52 4E 49 4E 27 SAY 'RETURNIN
015A80: 47 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 27 0D G TO MAIN MENU'.
015A90: 0A 20 20 40 20 32 30 2C 31 0D 0A 20 20 53 54 4F . @ 20,1.. STO
015AA0: 52 45 20 31 20 54 4F 20 43 0D 0A 20 20 44 4F 20 RE 1 TO C.. DO
015AB0: 57 48 49 4C 45 20 43 20 3C 20 32 35 0D 0A 20 20 WHILE C < 25..
015AC0: 20 20 53 54 4F 52 45 20 43 2B 31 20 54 4F 20 43 STORE C+1 TO C
015AD0: 0D 0A 20 20 45 4E 44 44 4F 0D 0A 20 20 52 45 4C .. ENDDO.. REL
015AE0: 45 41 53 45 20 41 4C 4C 20 45 58 43 45 50 54 20 EASE ALL EXCEPT
015AF0: 4D 46 49 4C 45 0D 0A 20 20 52 45 54 55 52 4E 0D MFILE.. RETURN.
015B00: 0A 45 4E 44 49 46 0D 0A 40 20 34 2C 30 0D 0A 54 .ENDIF..@ 4,0..T
015B10: 45 58 54 0D 0A 20 20 20 20 20 59 6F 75 20 77 6F EXT.. You wo
015B20: 75 6C 64 20 65 64 69 74 20 61 20 72 65 63 6F 72 uld edit a recor
015B30: 64 20 69 6E 20 61 20 64 42 41 53 45 20 49 49 20 d in a dBASE II
015B40: 66 69 6C 65 20 62 79 20 74 79 70 69 6E 67 0D 0A file by typing..
015B50: 0D 0A 20 20 20 20 20 20 2E 20 45 44 49 54 0D 0A .. . EDIT..
015B60: 0D 0A 20 20 20 20 20 54 6F 20 68 65 6C 70 20 79 .. To help y
015B70: 6F 75 20 61 6C 6F 6E 67 20 49 20 68 61 76 65 20 ou along I have
015B80: 61 6C 72 65 61 64 79 20 65 6E 74 65 72 65 64 20 already entered
015B90: 74 68 65 20 45 44 49 54 20 2D 0D 0A 20 20 20 20 the EDIT -..
015BA0: 20 73 68 6F 77 6E 20 62 65 6C 6F 77 20 74 68 65 shown below the
015BB0: 20 6C 69 6E 65 2E 0D 0A 0D 0A 20 20 20 20 20 20 line.....
015BC0: 0D 0A 45 4E 44 54 45 58 54 0D 0A 40 20 32 33 2C ..ENDTEXT..@ 23,
015BD0: 30 20 53 41 59 20 22 2E 20 45 44 49 54 22 0D 0A 0 SAY ". EDIT"..
015BE0: 53 54 4F 52 45 20 27 20 27 20 54 4F 20 54 45 4D STORE ' ' TO TEM
015BF0: 50 0D 0A 40 20 32 31 2C 35 20 53 41 59 20 27 50 P..@ 21,5 SAY 'P
015C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015E00: 72 65 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 ress any key to
015E10: 63 6F 6E 74 69 6E 75 65 20 27 0D 0A 40 20 32 31 continue '..@ 21
015E20: 2C 31 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 52 ,1 GET M.TEMP..R
015E30: 45 41 44 0D 0A 43 4C 45 41 52 20 47 45 54 53 0D EAD..CLEAR GETS.
015E40: 0A 45 52 41 53 0D 0A 54 45 58 54 0D 0A 0D 0A 57 .ERAS..TEXT....W
015E50: 45 4C 43 4F 4D 45 20 20 20 20 20 20 20 20 20 20 ELCOME
015E60: 20 20 20 20 20 20 20 20 20 20 45 44 49 54 20 44 EDIT D
015E70: 41 54 41 20 46 52 4F 4D 20 41 20 46 49 4C 45 20 ATA FROM A FILE
015E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015E90: 64 42 41 53 45 20 49 49 20 20 20 20 0D 0A 2D 2D dBASE II ..--
015EA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
015EB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
015EC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
015ED0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
015EE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 0D 0A 45 4E ---------- ..EN
015EF0: 44 54 45 58 54 0D 0A 40 20 32 32 2C 31 20 53 41 DTEXT..@ 22,1 SA
015F00: 59 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D Y '-------------
015F10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
015F20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20 3B 0D 0A 20 20 ---------' ;..
015F30: 20 20 20 20 20 20 20 2B 20 27 2D 2D 2D 2D 2D 2D + '------
015F40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
015F50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
015F60: 27 0D 0A 40 20 32 33 2C 30 20 53 41 59 20 27 2E '..@ 23,0 SAY '.
015F70: 20 45 44 49 54 27 0D 0A 40 20 31 31 2C 32 30 20 EDIT'..@ 11,20
015F80: 53 41 59 20 27 50 6C 65 61 73 65 20 57 61 69 74 SAY 'Please Wait
015F90: 20 2E 2E 2E 20 6E 6F 77 20 6C 6F 61 64 69 6E 67 ... now loading
015FA0: 20 74 68 65 20 6E 65 78 74 20 57 65 6C 63 6F 6D the next Welcom
015FB0: 65 20 66 69 6C 65 27 0D 0A 40 20 32 30 2C 31 0D e file'..@ 20,1.
015FC0: 0A 43 4F 50 59 20 54 4F 20 54 45 4D 50 31 20 53 .COPY TO TEMP1 S
015FD0: 54 52 55 43 54 55 52 45 20 45 58 54 45 4E 44 45 TRUCTURE EXTENDE
015FE0: 44 0D 0A 53 45 4C 45 43 54 20 53 45 43 4F 4E 44 D..SELECT SECOND
015FF0: 41 52 59 0D 0A 55 53 45 20 54 45 4D 50 31 0D 0A ARY..USE TEMP1..
016000: 45 52 41 53 0D 0A 53 54 4F 52 45 20 27 20 20 20 ERAS..STORE '
016010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016030: 20 20 20 20 20 20 20 20 20 20 27 20 54 4F 20 42 ' TO B
016040: 4C 41 4E 4B 0D 0A 54 45 58 54 0D 0A 0D 0A 57 45 LANK..TEXT....WE
016050: 4C 43 4F 4D 45 20 20 20 20 20 20 20 20 20 20 20 LCOME
016060: 20 20 20 20 20 20 20 20 20 45 44 49 54 20 44 41 EDIT DA
016070: 54 41 20 46 52 4F 4D 20 41 20 46 49 4C 45 20 20 TA FROM A FILE
016080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 d
016090: 42 41 53 45 20 49 49 20 20 20 20 0D 0A 2D 2D 2D BASE II ..---
0160A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0160B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0160C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0160D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0160E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 0D 0A 0D 0A 20 --------- ....
0160F0: 20 20 20 20 20 20 54 6F 20 65 64 69 74 20 61 20 To edit a
016100: 72 65 63 6F 72 64 20 69 6E 20 61 20 64 42 41 53 record in a dBAS
016110: 45 20 49 49 20 66 69 6C 65 20 79 6F 75 20 6D 75 E II file you mu
016120: 73 74 20 66 69 72 73 74 20 65 6E 73 75 72 65 20 st first ensure
016130: 74 68 61 74 20 0D 0A 0D 0A 20 20 20 20 20 20 20 that ....
016140: 79 6F 75 20 68 61 76 65 20 6F 70 65 6E 65 64 20 you have opened
016150: 61 20 66 69 6C 65 2E 0D 0A 45 4E 44 54 45 58 54 a file...ENDTEXT
016160: 0D 0A 40 20 32 32 2C 31 20 53 41 59 20 27 2D 2D ..@ 22,1 SAY '--
016170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016190: 2D 2D 2D 2D 27 20 3B 0D 0A 20 20 20 20 20 20 20 ----' ;..
0161A0: 20 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D + '-----------
0161B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0161C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 49 46 -----------'..IF
0161D0: 20 4D 2E 4D 46 49 4C 45 3D 27 20 20 20 20 20 20 M.MFILE='
0161E0: 20 20 27 0D 0A 20 20 40 20 32 30 2C 35 20 53 41 '.. @ 20,5 SA
0161F0: 59 20 27 4E 6F 20 66 69 6C 65 20 69 6E 20 75 73 Y 'No file in us
016200: 53 54 4F 52 20 54 20 54 4F 20 4D 55 4C 54 49 0D STOR T TO MULTI.
016210: 0A 44 4F 20 57 48 49 4C 45 20 4D 2E 4D 55 4C 54 .DO WHILE M.MULT
016220: 49 0D 0A 20 20 53 45 4C 45 43 54 20 53 45 43 4F I.. SELECT SECO
016230: 4E 44 41 52 59 0D 0A 20 20 40 20 31 31 2C 35 0D NDARY.. @ 11,5.
016240: 0A 20 20 47 4F 20 54 4F 50 0D 0A 20 20 53 45 4C . GO TOP.. SEL
016250: 45 43 54 20 50 52 49 4D 41 52 59 0D 0A 20 20 47 ECT PRIMARY.. G
016260: 4F 20 42 4F 54 54 4F 4D 0D 0A 20 20 53 54 4F 52 O BOTTOM.. STOR
016270: 20 53 54 52 28 23 2C 33 29 20 54 4F 20 52 45 43 STR(#,3) TO REC
016280: 4E 55 4D 0D 0A 20 20 53 54 4F 52 20 54 20 54 4F NUM.. STOR T TO
016290: 20 42 49 47 4E 55 4D 0D 0A 20 20 44 4F 20 57 48 BIGNUM.. DO WH
0162A0: 49 4C 45 20 4D 2E 42 49 47 4E 55 4D 0D 0A 20 20 ILE M.BIGNUM..
0162B0: 20 20 53 54 4F 52 20 27 20 20 20 27 20 54 4F 20 STOR ' ' TO
0162C0: 45 44 49 54 0D 0A 20 20 20 20 40 20 31 39 2C 35 EDIT.. @ 19,5
0162D0: 20 53 41 59 20 27 59 6F 75 20 68 61 76 65 20 27 SAY 'You have '
0162E0: 2B 52 45 43 4E 55 4D 2B 27 20 72 65 63 6F 72 64 +RECNUM+' record
0162F0: 73 20 69 6E 20 27 2B 4D 2E 4D 46 49 4C 45 0D 0A s in '+M.MFILE..
016300: 20 20 20 20 40 20 31 37 2C 35 20 53 41 59 20 27 @ 17,5 SAY '
016310: 43 68 6F 6F 73 65 20 61 20 72 65 63 6F 72 64 20 Choose a record
016320: 6E 75 6D 62 65 72 20 74 6F 20 65 64 69 74 20 27 number to edit '
016330: 47 45 54 20 4D 2E 45 44 49 54 20 50 49 43 54 20 GET M.EDIT PICT
016340: 27 39 39 39 27 0D 0A 20 20 20 20 40 20 31 37 2C '999'.. @ 17,
016350: 34 31 20 53 41 59 20 27 5B 42 6C 61 6E 6B 20 74 41 SAY '[Blank t
016360: 6F 20 66 69 6E 69 73 68 5D 27 0D 0A 20 20 20 20 o finish]'..
016370: 52 45 41 44 0D 0A 20 20 20 20 43 4C 45 41 20 47 READ.. CLEA G
016380: 45 54 53 0D 0A 20 20 20 20 49 46 20 56 41 4C 28 ETS.. IF VAL(
016390: 4D 2E 45 44 49 54 29 20 3C 3E 20 49 4E 54 28 56 M.EDIT) <> INT(V
0163A0: 41 4C 28 4D 2E 45 44 49 54 29 29 0D 0A 20 20 20 AL(M.EDIT))..
0163B0: 20 20 20 40 20 32 30 2C 35 20 53 41 59 20 27 50 @ 20,5 SAY 'P
0163C0: 6C 65 61 73 65 20 74 72 79 20 61 20 77 68 6F 6C lease try a whol
0163D0: 65 20 6E 75 6D 62 65 72 20 21 21 27 0D 0A 20 20 e number !!'..
0163E0: 20 20 20 20 53 54 4F 52 45 20 27 20 27 20 54 4F STORE ' ' TO
0163F0: 20 54 45 4D 50 0D 0A 20 20 20 20 20 20 40 20 32 TEMP.. @ 2
016400: 65 20 70 6C 65 61 73 65 20 4F 50 45 4E 20 66 72 e please OPEN fr
016410: 6F 6D 20 6D 61 69 6E 20 6D 65 6E 75 27 0D 0A 20 om main menu'..
016420: 20 53 54 4F 52 45 20 27 20 27 20 54 4F 20 54 45 STORE ' ' TO TE
016430: 4D 50 0D 0A 20 20 40 20 32 31 2C 35 20 53 41 59 MP.. @ 21,5 SAY
016440: 20 27 50 72 65 73 73 20 61 6E 79 20 6B 65 79 20 'Press any key
016450: 74 6F 20 63 6F 6E 74 69 6E 75 65 20 27 0D 0A 20 to continue '..
016460: 20 40 20 32 31 2C 31 20 47 45 54 20 4D 2E 54 45 @ 21,1 GET M.TE
016470: 4D 50 0D 0A 20 20 52 45 41 44 0D 0A 20 20 43 4C MP.. READ.. CL
016480: 45 41 52 20 47 45 54 53 0D 0A 20 20 45 52 41 53 EAR GETS.. ERAS
016490: 0D 0A 54 45 58 54 0D 0A 0D 0A 57 45 4C 43 4F 4D ..TEXT....WELCOM
0164A0: 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 E
0164B0: 20 20 20 20 20 45 44 49 54 20 44 41 54 41 20 46 EDIT DATA F
0164C0: 52 4F 4D 20 41 20 46 49 4C 45 20 20 20 20 20 20 ROM A FILE
0164D0: 20 20 20 20 20 20 20 20 20 20 20 64 42 41 53 45 dBASE
0164E0: 20 49 49 20 20 20 20 0D 0A 2D 2D 2D 2D 2D 2D 2D II ..-------
0164F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016500: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016510: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016520: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016530: 2D 2D 2D 2D 2D 20 20 0D 0A 45 4E 44 54 45 58 54 ----- ..ENDTEXT
016540: 0D 0A 20 20 40 20 32 32 2C 31 20 53 41 59 20 27 .. @ 22,1 SAY '
016550: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016560: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016570: 2D 2D 2D 2D 2D 2D 27 20 3B 0D 0A 20 20 20 20 20 ------' ;..
016580: 20 20 20 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D + '---------
016590: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0165A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A -------------'..
0165B0: 20 20 40 20 31 31 2C 32 37 20 53 41 59 20 27 52 @ 11,27 SAY 'R
0165C0: 45 54 55 52 4E 49 4E 47 20 54 4F 20 4D 41 49 4E ETURNING TO MAIN
0165D0: 20 4D 45 4E 55 27 0D 0A 20 20 40 20 32 30 2C 31 MENU'.. @ 20,1
0165E0: 0D 0A 20 20 53 54 4F 52 45 20 31 20 54 4F 20 43 .. STORE 1 TO C
0165F0: 0D 0A 20 20 44 4F 20 57 48 49 4C 45 20 43 20 3C .. DO WHILE C <
016600: 31 2C 35 20 53 41 59 20 27 50 72 65 73 73 20 61 1,5 SAY 'Press a
016610: 6E 79 20 6B 65 79 20 74 6F 20 72 65 74 72 79 20 ny key to retry
016620: 27 20 0D 0A 20 20 20 20 20 20 40 20 32 31 2C 31 ' .. @ 21,1
016630: 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 20 GET M.TEMP..
016640: 20 20 20 52 45 41 44 0D 0A 20 20 20 20 20 20 43 READ.. C
016650: 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 20 20 20 LEAR GETS..
016660: 20 40 20 31 36 2C 30 0D 0A 20 20 20 20 20 20 40 @ 16,0.. @
016670: 20 31 37 2C 30 0D 0A 20 20 20 20 20 20 40 20 31 17,0.. @ 1
016680: 38 2C 30 0D 0A 20 20 20 20 20 20 40 20 31 39 2C 8,0.. @ 19,
016690: 30 0D 0A 20 20 20 20 20 20 40 20 32 30 2C 30 0D 0.. @ 20,0.
0166A0: 0A 20 20 20 20 20 20 40 20 32 31 2C 31 0D 0A 20 . @ 21,1..
0166B0: 20 20 20 20 20 53 54 4F 52 45 20 27 20 20 20 27 STORE ' '
0166C0: 20 54 4F 20 45 44 49 54 0D 0A 20 20 20 20 20 20 TO EDIT..
0166D0: 4C 4F 4F 50 0D 0A 20 20 20 20 45 4E 44 49 46 20 LOOP.. ENDIF
0166E0: 0D 0A 20 20 20 20 49 46 20 56 41 4C 28 4D 2E 45 .. IF VAL(M.E
0166F0: 44 49 54 29 20 3C 20 30 20 2E 4F 52 2E 20 56 41 DIT) < 0 .OR. VA
016700: 4C 28 4D 2E 45 44 49 54 29 20 3E 20 23 20 0D 0A L(M.EDIT) > # ..
016710: 20 20 20 20 20 20 40 20 32 30 2C 35 20 53 41 59 @ 20,5 SAY
016720: 20 27 52 65 63 6F 72 64 20 6F 75 74 20 6F 66 20 'Record out of
016730: 72 61 6E 67 65 2E 20 50 6C 65 61 73 65 20 63 68 range. Please ch
016740: 6F 6F 73 65 20 61 67 61 69 6E 2E 27 0D 0A 20 20 oose again.'..
016750: 20 20 20 20 53 54 4F 52 45 20 27 20 27 20 54 4F STORE ' ' TO
016760: 20 54 45 4D 50 0D 0A 20 20 20 20 20 20 40 20 32 TEMP.. @ 2
016770: 31 2C 35 20 53 41 59 20 27 50 72 65 73 73 20 61 1,5 SAY 'Press a
016780: 6E 79 20 6B 65 79 20 74 6F 20 72 65 74 72 79 20 ny key to retry
016790: 27 20 0D 0A 20 20 20 20 20 20 40 20 32 31 2C 31 ' .. @ 21,1
0167A0: 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 20 GET M.TEMP..
0167B0: 20 20 20 52 45 41 44 0D 0A 20 20 20 20 20 20 43 READ.. C
0167C0: 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 20 20 20 LEAR GETS..
0167D0: 20 40 20 31 36 2C 30 0D 0A 20 20 20 20 20 20 40 @ 16,0.. @
0167E0: 20 31 37 2C 30 0D 0A 20 20 20 20 20 20 40 20 31 17,0.. @ 1
0167F0: 38 2C 30 0D 0A 20 20 20 20 20 20 40 20 31 39 2C 8,0.. @ 19,
016800: 20 32 35 0D 0A 20 20 20 20 53 54 4F 52 45 20 43 25.. STORE C
016810: 2B 31 20 54 4F 20 43 0D 0A 20 20 45 4E 44 44 4F +1 TO C.. ENDDO
016820: 0D 0A 20 20 52 45 4C 45 41 53 45 20 41 4C 4C 20 .. RELEASE ALL
016830: 45 58 43 45 50 54 20 4D 46 49 4C 45 0D 0A 20 20 EXCEPT MFILE..
016840: 52 45 54 55 52 4E 0D 0A 45 4E 44 49 46 0D 0A 40 RETURN..ENDIF..@
016850: 20 32 30 2C 35 20 53 41 59 20 27 54 68 65 20 66 20,5 SAY 'The f
016860: 69 6C 65 20 70 72 65 73 65 6E 74 6C 79 20 69 6E ile presently in
016870: 20 75 73 65 20 69 73 20 2D 20 27 2B 4D 2E 4D 46 use is - '+M.MF
016880: 49 4C 45 0D 0A 53 54 4F 52 45 20 27 20 27 20 54 ILE..STORE ' ' T
016890: 4F 20 52 45 50 4C 59 0D 0A 44 4F 20 57 48 49 4C O REPLY..DO WHIL
0168A0: 45 20 2E 4E 4F 54 2E 20 4D 2E 52 45 50 4C 59 24 E .NOT. M.REPLY$
0168B0: 27 59 4E 27 0D 0A 20 20 40 20 32 31 2C 35 20 53 'YN'.. @ 21,5 S
0168C0: 41 59 20 27 44 6F 20 79 6F 75 20 77 69 73 68 20 AY 'Do you wish
0168D0: 74 6F 20 65 64 69 74 20 61 20 72 65 63 6F 72 64 to edit a record
0168E0: 20 69 6E 20 74 68 69 73 20 66 69 6C 65 3F 20 59 in this file? Y
0168F0: 2F 4E 20 27 20 0D 0A 20 20 40 20 32 31 2C 31 20 /N ' .. @ 21,1
016900: 47 45 54 20 4D 2E 52 45 50 4C 59 20 70 69 63 74 GET M.REPLY pict
016910: 20 27 21 27 0D 0A 20 20 52 45 41 44 0D 0A 20 20 '!'.. READ..
016920: 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 45 52 CLEAR GETS.. ER
016930: 41 53 0D 0A 54 45 58 54 0D 0A 0D 0A 57 45 4C 43 AS..TEXT....WELC
016940: 4F 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 20 OME
016950: 20 20 20 20 20 20 20 45 44 49 54 20 44 41 54 41 EDIT DATA
016960: 20 46 52 4F 4D 20 41 20 46 49 4C 45 20 20 20 20 FROM A FILE
016970: 20 20 20 20 20 20 20 20 20 20 20 20 20 64 42 41 dBA
016980: 53 45 20 49 49 20 20 20 20 0D 0A 2D 2D 2D 2D 2D SE II ..-----
016990: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0169A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0169B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0169C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0169D0: 2D 2D 2D 2D 2D 2D 2D 20 20 0D 0A 45 4E 44 54 45 ------- ..ENDTE
0169E0: 58 54 0D 0A 20 20 40 20 32 32 2C 31 20 53 41 59 XT.. @ 22,1 SAY
0169F0: 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D '--------------
016A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
016A10: 13 00 01 00 02 09 4F E5 13 00 41 02 00 00 00 02 ......O...A.....
016A20: 13 00 46 02 00 00 00 02 13 00 42 02 00 00 00 02 ..F.......B.....
016A30: 13 00 47 02 00 00 00 02 13 00 43 02 00 00 00 02 ..G.......C.....
016A40: 13 00 48 02 00 00 00 02 13 00 44 02 00 00 00 02 ..H.......D.....
016A50: 13 00 49 02 00 00 00 02 13 00 45 02 00 00 00 02 ..I.......E.....
016A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016B00: 30 0D 0A 20 20 20 20 20 20 40 20 32 30 2C 30 0D 0.. @ 20,0.
016B10: 0A 20 20 20 20 20 20 40 20 32 31 2C 31 0D 0A 20 . @ 21,1..
016B20: 20 20 20 20 20 53 54 4F 52 45 20 27 20 20 20 27 STORE ' '
016B30: 20 54 4F 20 45 44 49 54 0D 0A 20 20 20 20 20 20 TO EDIT..
016B40: 4C 4F 4F 50 0D 0A 20 20 20 20 45 4C 53 45 0D 0A LOOP.. ELSE..
016B50: 20 20 20 20 20 20 53 54 4F 52 45 20 46 20 54 4F STORE F TO
016B60: 20 42 49 47 4E 55 4D 0D 0A 20 20 20 20 20 20 40 BIGNUM.. @
016B70: 20 32 33 2C 37 20 53 41 59 20 45 44 49 54 0D 0A 23,7 SAY EDIT..
016B80: 20 20 20 20 45 4E 44 49 46 0D 0A 20 20 45 4E 44 ENDIF.. END
016B90: 44 4F 0D 0A 20 20 45 52 41 53 0D 0A 54 45 58 54 DO.. ERAS..TEXT
016BA0: 0D 0A 0D 0A 57 45 4C 43 4F 4D 45 20 20 20 20 20 ....WELCOME
016BB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
016BC0: 44 49 54 20 44 41 54 41 20 46 52 4F 4D 20 41 20 DIT DATA FROM A
016BD0: 46 49 4C 45 20 20 20 20 20 20 20 20 20 20 20 20 FILE
016BE0: 20 20 20 20 20 64 42 41 53 45 20 49 49 20 20 20 dBASE II
016BF0: 20 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ..-------------
016C00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016C10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016C20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016C30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 ---------------
016C40: 20 0D 0A 45 4E 44 54 45 58 54 0D 0A 20 20 40 20 ..ENDTEXT.. @
016C50: 32 32 2C 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D 22,1 SAY '------
016C60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016C70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016C80: 27 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 2B 20 ' ;.. +
016C90: 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D '---------------
016CA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016CB0: 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 20 20 40 20 32 33 -------'.. @ 23
016CC0: 2C 30 20 53 41 59 20 27 2E 20 45 44 49 54 20 27 ,0 SAY '. EDIT '
016CD0: 2B 4D 2E 45 44 49 54 0D 0A 20 20 49 46 20 56 41 +M.EDIT.. IF VA
016CE0: 4C 28 4D 2E 45 44 49 54 29 20 3D 20 30 0D 0A 20 L(M.EDIT) = 0..
016CF0: 20 20 20 52 45 4C 45 41 53 45 20 41 4C 4C 20 45 RELEASE ALL E
016D00: 79 20 3B 0D 0A 72 65 63 6F 72 64 73 20 61 73 20 y ;..records as
016D10: 72 65 71 75 69 72 65 64 2E 27 0D 0A 20 20 53 54 required.'.. ST
016D20: 4F 52 45 20 27 20 27 20 54 4F 20 52 45 50 4C 59 ORE ' ' TO REPLY
016D30: 0D 0A 20 20 44 4F 20 57 48 49 4C 45 20 2E 4E 4F .. DO WHILE .NO
016D40: 54 2E 20 4D 2E 52 45 50 4C 59 24 27 59 4E 27 0D T. M.REPLY$'YN'.
016D50: 0A 20 20 20 20 40 20 32 31 2C 30 0D 0A 20 20 20 . @ 21,0..
016D60: 20 40 20 32 31 2C 35 20 53 41 59 20 27 4D 6F 72 @ 21,5 SAY 'Mor
016D70: 65 20 52 65 63 6F 72 64 73 3F 20 59 2F 4E 20 27 e Records? Y/N '
016D80: 20 0D 0A 20 20 20 20 40 20 32 31 2C 31 20 47 45 .. @ 21,1 GE
016D90: 54 20 4D 2E 52 45 50 4C 59 20 70 69 63 74 20 27 T M.REPLY pict '
016DA0: 21 27 0D 0A 20 20 20 20 52 45 41 44 0D 0A 20 20 !'.. READ..
016DB0: 20 20 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 CLEAR GETS..
016DC0: 45 4E 44 44 4F 0D 0A 20 20 45 52 41 53 0D 0A 54 ENDDO.. ERAS..T
016DD0: 45 58 54 0D 0A 0D 0A 57 45 4C 43 4F 4D 45 20 20 EXT....WELCOME
016DE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016DF0: 20 20 45 44 49 54 20 44 41 54 41 20 46 52 4F 4D EDIT DATA FROM
016E00: 20 41 20 46 49 4C 45 20 20 20 20 20 20 20 20 20 A FILE
016E10: 20 20 20 20 20 20 20 20 64 42 41 53 45 20 49 49 dBASE II
016E20: 20 20 20 20 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ..----------
016E30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016E40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016E50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016E60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016E70: 2D 2D 20 20 0D 0A 45 4E 44 54 45 58 54 0D 0A 20 -- ..ENDTEXT..
016E80: 20 40 20 32 32 2C 31 20 53 41 59 20 27 2D 2D 2D @ 22,1 SAY '---
016E90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016EA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016EB0: 2D 2D 2D 27 20 3B 0D 0A 20 20 20 20 20 20 20 20 ---' ;..
016EC0: 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D + '------------
016ED0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016EE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 20 20 49 ----------'.. I
016EF0: 46 20 4D 2E 52 45 50 4C 59 3D 27 4E 27 0D 0A 20 F M.REPLY='N'..
016F00: 58 43 45 50 54 20 4D 46 49 4C 45 0D 0A 20 20 20 XCEPT MFILE..
016F10: 20 53 45 4C 45 43 54 20 53 45 43 4F 4E 44 41 52 SELECT SECONDAR
016F20: 59 0D 0A 20 20 20 20 55 53 45 0D 0A 20 20 20 20 Y.. USE..
016F30: 53 45 4C 45 43 54 20 50 52 49 4D 41 52 59 0D 0A SELECT PRIMARY..
016F40: 20 20 20 20 44 45 4C 45 54 45 20 46 49 4C 45 20 DELETE FILE
016F50: 54 45 4D 50 31 0D 0A 20 20 20 20 40 20 32 33 2C TEMP1.. @ 23,
016F60: 30 20 53 41 59 20 4D 2E 42 4C 41 4E 4B 0D 0A 20 0 SAY M.BLANK..
016F70: 20 20 20 40 20 31 31 2C 32 37 20 53 41 59 20 27 @ 11,27 SAY '
016F80: 52 45 54 55 52 4E 49 4E 47 20 54 4F 20 4D 41 49 RETURNING TO MAI
016F90: 4E 20 4D 45 4E 55 27 0D 0A 20 20 20 20 40 20 32 N MENU'.. @ 2
016FA0: 30 2C 31 0D 0A 20 20 20 20 53 54 4F 52 20 30 20 0,1.. STOR 0
016FB0: 54 4F 20 50 41 55 53 45 0D 0A 20 20 20 20 44 4F TO PAUSE.. DO
016FC0: 20 57 48 49 4C 45 20 4D 2E 50 41 55 53 45 3C 32 WHILE M.PAUSE<2
016FD0: 35 0D 0A 20 20 20 20 20 20 53 54 4F 52 20 4D 2E 5.. STOR M.
016FE0: 50 41 55 53 45 2B 31 20 54 4F 20 50 41 55 53 45 PAUSE+1 TO PAUSE
016FF0: 0D 0A 20 20 20 20 45 4E 44 44 4F 0D 0A 20 20 20 .. ENDDO..
017000: 20 52 45 54 55 52 4E 0D 0A 20 20 45 4E 44 49 46 RETURN.. ENDIF
017010: 0D 0A 20 20 40 20 31 39 2C 35 20 53 41 59 20 27 .. @ 19,5 SAY '
017020: 42 65 6C 6F 77 20 74 68 65 20 6C 69 6E 65 20 79 Below the line y
017030: 6F 75 20 77 69 6C 6C 20 6E 6F 77 20 73 65 65 20 ou will now see
017040: 74 68 65 20 63 6F 6D 70 6C 65 74 65 20 63 6F 6D the complete com
017050: 6D 61 6E 64 27 0D 0A 20 20 40 20 32 30 2C 35 20 mand'.. @ 20,5
017060: 53 41 59 20 27 61 73 20 79 6F 75 20 77 6F 75 6C SAY 'as you woul
017070: 64 20 74 79 70 65 20 69 74 20 79 6F 75 72 73 65 d type it yourse
017080: 6C 66 2E 27 20 0D 0A 20 20 53 54 4F 52 45 20 27 lf.' .. STORE '
017090: 20 27 20 54 4F 20 54 45 4D 50 0D 0A 20 20 40 20 ' TO TEMP.. @
0170A0: 32 31 2C 35 20 53 41 59 20 27 50 72 65 73 73 20 21,5 SAY 'Press
0170B0: 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 any key to conti
0170C0: 6E 75 65 20 27 0D 0A 20 20 40 20 32 31 2C 31 20 nue '.. @ 21,1
0170D0: 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 52 45 GET M.TEMP.. RE
0170E0: 41 44 0D 0A 20 20 43 4C 45 41 52 20 47 45 54 53 AD.. CLEAR GETS
0170F0: 0D 0A 20 20 40 20 31 39 2C 30 0D 0A 20 20 40 20 .. @ 19,0.. @
017100: 20 20 20 40 20 32 33 2C 30 20 53 41 59 20 4D 2E @ 23,0 SAY M.
017110: 42 4C 41 4E 4B 0D 0A 20 20 20 20 53 54 4F 52 20 BLANK.. STOR
017120: 46 20 54 4F 20 4D 55 4C 54 49 0D 0A 20 20 45 4E F TO MULTI.. EN
017130: 44 49 46 0D 0A 45 4E 44 44 4F 0D 0A 40 20 31 31 DIF..ENDDO..@ 11
017140: 2C 32 37 20 53 41 59 20 27 52 45 54 55 52 4E 49 ,27 SAY 'RETURNI
017150: 4E 47 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 27 NG TO MAIN MENU'
017160: 0D 0A 40 20 32 30 2C 31 0D 0A 53 54 4F 52 45 20 ..@ 20,1..STORE
017170: 31 20 54 4F 20 43 0D 0A 44 4F 20 57 48 49 4C 45 1 TO C..DO WHILE
017180: 20 43 20 3C 20 32 35 0D 0A 20 20 53 54 4F 52 45 C < 25.. STORE
017190: 20 43 2B 31 20 54 4F 20 43 0D 0A 45 4E 44 44 4F C+1 TO C..ENDDO
0171A0: 0D 0A 52 45 4C 45 41 53 45 20 41 4C 4C 20 45 58 ..RELEASE ALL EX
0171B0: 43 45 50 54 20 4D 46 49 4C 45 0D 0A 53 45 4C 45 CEPT MFILE..SELE
0171C0: 43 54 20 53 45 43 4F 4E 44 41 52 59 0D 0A 55 53 CT SECONDARY..US
0171D0: 45 0D 0A 53 45 4C 45 43 54 20 50 52 49 4D 41 52 E..SELECT PRIMAR
0171E0: 59 0D 0A 44 45 4C 45 54 45 20 46 49 4C 45 20 54 Y..DELETE FILE T
0171F0: 45 4D 50 31 0D 0A 52 45 54 55 52 4E 0D 0A 1A 1A EMP1..RETURN....
017200: 32 32 2C 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D 22,1 SAY '------
017210: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
017220: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
017230: 2D 27 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 2B -' ;.. +
017240: 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D '--------------
017250: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
017260: 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 20 20 20 20 20 --------'..
017270: 20 40 20 31 31 2C 32 37 20 53 41 59 20 27 52 45 @ 11,27 SAY 'RE
017280: 54 55 52 4E 49 4E 47 20 54 4F 20 4D 41 49 4E 20 TURNING TO MAIN
017290: 4D 45 4E 55 27 0D 0A 20 20 20 20 20 20 40 20 32 MENU'.. @ 2
0172A0: 30 2C 31 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 0,1.. STORE
0172B0: 20 31 20 54 4F 20 43 0D 0A 20 20 20 20 20 20 44 1 TO C.. D
0172C0: 4F 20 57 48 49 4C 45 20 43 20 3C 20 32 35 0D 0A O WHILE C < 25..
0172D0: 20 20 20 20 20 20 20 20 53 54 4F 52 45 20 43 2B STORE C+
0172E0: 31 20 54 4F 20 43 0D 0A 20 20 20 20 20 20 45 4E 1 TO C.. EN
0172F0: 44 44 4F 0D 0A 20 20 20 20 20 20 52 45 4C 45 20 DDO.. RELE
017300: 32 30 2C 30 0D 0A 20 20 40 20 32 31 2C 30 0D 0A 20,0.. @ 21,0..
017310: 20 20 47 4F 20 56 41 4C 28 4D 2E 45 44 49 54 29 GO VAL(M.EDIT)
017320: 0D 0A 20 20 40 20 34 2C 31 20 53 41 59 20 27 52 .. @ 4,1 SAY 'R
017330: 45 43 4F 52 44 20 23 20 27 0D 0A 20 20 40 20 34 ECORD # '.. @ 4
017340: 2C 31 30 20 53 41 59 20 23 0D 0A 20 20 53 54 4F ,10 SAY #.. STO
017350: 52 45 20 54 20 54 4F 20 4E 4F 43 4F 4E 54 0D 0A RE T TO NOCONT..
017360: 20 20 53 54 4F 52 20 46 20 54 4F 20 4C 41 53 54 STOR F TO LAST
017370: 52 45 43 0D 0A 20 20 44 4F 20 57 48 49 4C 45 20 REC.. DO WHILE
017380: 20 4D 2E 4E 4F 43 4F 4E 54 0D 0A 20 20 20 20 53 M.NOCONT.. S
017390: 54 4F 52 45 20 35 20 54 4F 20 4C 49 4E 45 0D 0A TORE 5 TO LINE..
0173A0: 20 20 20 20 53 54 4F 52 20 54 20 54 4F 20 54 43 STOR T TO TC
0173B0: 4F 4E 54 0D 0A 20 20 20 20 44 4F 20 57 48 49 4C ONT.. DO WHIL
0173C0: 45 20 4D 2E 54 43 4F 4E 54 20 3D 20 54 0D 0A 20 E M.TCONT = T..
0173D0: 20 20 20 20 20 53 45 4C 45 43 54 20 50 52 49 4D SELECT PRIM
0173E0: 41 52 59 0D 0A 20 20 20 20 20 20 40 20 4D 2E 4C ARY.. @ M.L
0173F0: 49 4E 45 2C 31 20 53 41 59 20 53 2E 46 49 45 4C INE,1 SAY S.FIEL
017400: 44 3A 4E 41 4D 45 0D 0A 20 20 20 20 20 20 53 54 D:NAME.. ST
017410: 4F 52 20 53 2E 46 49 45 4C 44 3A 4E 41 4D 45 20 OR S.FIELD:NAME
017420: 54 4F 20 41 50 50 45 31 0D 0A 20 20 20 20 20 20 TO APPE1..
017430: 40 20 4D 2E 4C 49 4E 45 2C 31 31 20 47 45 54 20 @ M.LINE,11 GET
017440: 26 41 50 50 45 31 0D 0A 20 20 20 20 20 20 44 4F &APPE1.. DO
017450: 20 43 41 53 45 0D 0A 20 20 20 20 20 20 20 20 43 CASE.. C
017460: 41 53 45 20 46 49 45 4C 44 3A 4C 45 4E 20 3C 20 ASE FIELD:LEN <
017470: 36 39 0D 0A 20 20 20 20 20 20 20 20 20 20 53 54 69.. ST
017480: 4F 52 20 4D 2E 4C 49 4E 45 2B 31 20 54 4F 20 4C OR M.LINE+1 TO L
017490: 49 4E 45 0D 0A 20 20 20 20 20 20 20 20 43 41 53 INE.. CAS
0174A0: 45 20 46 49 45 4C 44 3A 4C 45 4E 20 3E 20 36 38 E FIELD:LEN > 68
0174B0: 20 2E 41 4E 44 2E 20 46 49 45 4C 44 3A 4C 45 4E .AND. FIELD:LEN
0174C0: 20 3C 20 31 35 39 0D 0A 20 20 20 20 20 20 20 20 < 159..
0174D0: 20 20 53 54 4F 52 20 4D 2E 4C 49 4E 45 2B 32 20 STOR M.LINE+2
0174E0: 54 4F 20 4C 49 4E 45 0D 0A 20 20 20 20 20 20 20 TO LINE..
0174F0: 20 43 41 53 45 20 46 49 45 4C 44 3A 4C 45 4E 20 CASE FIELD:LEN
017500: 45 52 41 53 0D 0A 53 54 4F 52 45 20 27 20 20 20 ERAS..STORE '
017510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017530: 20 20 20 20 20 20 20 20 20 27 20 54 4F 20 42 4C ' TO BL
017540: 41 4E 4B 0D 0A 54 45 58 54 0D 0A 0D 0A 20 57 45 ANK..TEXT.... WE
017550: 4C 43 4F 4D 45 20 20 20 20 20 20 20 20 20 20 20 LCOME
017560: 20 20 20 20 20 20 20 20 44 45 4C 45 54 45 20 44 DELETE D
017570: 41 54 41 20 46 52 4F 4D 20 41 20 46 49 4C 45 20 ATA FROM A FILE
017580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017590: 64 42 41 53 45 20 49 49 20 20 20 20 0D 0A 2D 2D dBASE II ..--
0175A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0175B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0175C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0175D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0175E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 0D 0A 0D 0A ---------- ....
0175F0: 20 20 20 20 20 54 6F 20 64 65 6C 65 74 65 20 61 To delete a
017600: 20 72 65 63 6F 72 64 20 69 6E 20 61 20 64 42 41 record in a dBA
017610: 53 45 20 49 49 20 66 69 6C 65 20 79 6F 75 20 6D SE II file you m
017620: 75 73 74 20 66 69 72 73 74 20 65 6E 73 75 72 65 ust first ensure
017630: 20 74 68 61 74 20 0D 0A 0D 0A 20 20 20 20 20 79 that .... y
017640: 6F 75 20 68 61 76 65 20 6F 70 65 6E 65 64 20 61 ou have opened a
017650: 20 66 69 6C 65 2E 0D 0A 45 4E 44 54 45 58 54 0D file...ENDTEXT.
017660: 0A 40 20 32 32 2C 31 20 53 41 59 20 27 2D 2D 2D .@ 22,1 SAY '---
017670: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
017680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
017690: 2D 2D 2D 27 20 3B 0D 0A 20 20 20 20 20 20 20 20 ---' ;..
0176A0: 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D + '------------
0176B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0176C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 49 46 20 ----------'..IF
0176D0: 4D 2E 4D 46 49 4C 45 3D 27 20 20 20 20 20 20 20 M.MFILE='
0176E0: 20 27 0D 0A 20 20 40 20 32 30 2C 35 20 53 41 59 '.. @ 20,5 SAY
0176F0: 20 27 4E 6F 20 66 69 6C 65 20 69 6E 20 75 73 65 'No file in use
017700: 3E 20 31 35 38 20 2E 41 4E 44 2E 20 46 49 45 4C > 158 .AND. FIEL
017710: 44 3A 4C 45 4E 20 3C 20 32 33 39 0D 0A 20 20 20 D:LEN < 239..
017720: 20 20 20 20 20 20 20 53 54 4F 52 20 4D 2E 4C 49 STOR M.LI
017730: 4E 45 2B 33 20 54 4F 20 4C 49 4E 45 0D 0A 20 20 NE+3 TO LINE..
017740: 20 20 20 20 20 20 43 41 53 45 20 46 49 45 4C 44 CASE FIELD
017750: 3A 4C 45 4E 20 3E 20 32 33 38 0D 0A 20 20 20 20 :LEN > 238..
017760: 20 20 20 20 20 20 53 54 4F 52 20 4D 2E 4C 49 4E STOR M.LIN
017770: 45 2B 34 20 54 4F 20 4C 49 4E 45 0D 0A 20 20 20 E+4 TO LINE..
017780: 20 20 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 ENDCASE..
017790: 20 20 53 45 4C 45 43 54 20 53 45 43 4F 4E 44 41 SELECT SECONDA
0177A0: 52 59 0D 0A 20 20 20 20 20 20 53 4B 49 50 0D 0A RY.. SKIP..
0177B0: 20 20 20 20 20 20 44 4F 20 43 41 53 45 0D 0A 20 DO CASE..
0177C0: 20 20 20 20 20 20 20 43 41 53 45 20 46 49 45 4C CASE FIEL
0177D0: 44 3A 4C 45 4E 20 3C 20 36 39 0D 0A 20 20 20 20 D:LEN < 69..
0177E0: 20 20 20 20 20 20 53 54 4F 52 20 31 20 54 4F 20 STOR 1 TO
0177F0: 4E 45 58 54 4C 49 4E 45 0D 0A 20 20 20 20 20 20 NEXTLINE..
017800: 20 20 43 41 53 45 20 46 49 45 4C 44 3A 4C 45 4E CASE FIELD:LEN
017810: 20 3E 20 36 38 20 2E 41 4E 44 2E 20 46 49 45 4C > 68 .AND. FIEL
017820: 44 3A 4C 45 4E 20 3C 20 31 35 39 0D 0A 20 20 20 D:LEN < 159..
017830: 20 20 20 20 20 20 20 53 54 4F 52 20 32 20 54 4F STOR 2 TO
017840: 20 4E 45 58 54 4C 49 4E 45 0D 0A 20 20 20 20 20 NEXTLINE..
017850: 20 20 20 43 41 53 45 20 46 49 45 4C 44 3A 4C 45 CASE FIELD:LE
017860: 4E 20 3E 20 31 35 38 20 2E 41 4E 44 2E 20 46 49 N > 158 .AND. FI
017870: 45 4C 44 3A 4C 45 4E 20 3C 20 32 33 39 0D 0A 20 ELD:LEN < 239..
017880: 20 20 20 20 20 20 20 20 20 53 54 4F 52 20 33 20 STOR 3
017890: 54 4F 20 4E 45 58 54 4C 49 4E 45 0D 0A 20 20 20 TO NEXTLINE..
0178A0: 20 20 20 20 20 43 41 53 45 20 46 49 45 4C 44 3A CASE FIELD:
0178B0: 4C 45 4E 20 3E 20 32 33 38 0D 0A 20 20 20 20 20 LEN > 238..
0178C0: 20 20 20 20 20 53 54 4F 52 20 34 20 54 4F 20 4E STOR 4 TO N
0178D0: 45 58 54 4C 49 4E 45 0D 0A 20 20 20 20 20 20 45 EXTLINE.. E
0178E0: 4E 44 43 41 53 45 0D 0A 20 20 20 20 20 20 49 46 NDCASE.. IF
0178F0: 20 45 4F 46 20 2E 4F 52 2E 20 4D 2E 4C 49 4E 45 EOF .OR. M.LINE
017900: 20 70 6C 65 61 73 65 20 4F 50 45 4E 20 66 72 6F please OPEN fro
017910: 6D 20 6D 61 69 6E 20 6D 65 6E 75 27 0D 0A 20 20 m main menu'..
017920: 53 54 4F 52 45 20 27 20 27 20 54 4F 20 52 45 50 STORE ' ' TO REP
017930: 4C 59 0D 0A 20 20 40 20 32 31 2C 35 20 53 41 59 LY.. @ 21,5 SAY
017940: 20 27 50 72 65 73 73 20 61 6E 79 20 6B 65 79 20 'Press any key
017950: 74 6F 20 72 65 74 75 72 6E 20 74 6F 20 6D 61 69 to return to mai
017960: 6E 20 6D 65 6E 75 20 27 20 0D 0A 20 20 40 20 32 n menu ' .. @ 2
017970: 31 2C 31 20 47 45 54 20 4D 2E 52 45 50 4C 59 0D 1,1 GET M.REPLY.
017980: 0A 20 20 52 45 41 44 0D 0A 20 20 43 4C 45 41 20 . READ.. CLEA
017990: 47 45 54 53 0D 0A 20 20 45 52 41 53 0D 0A 54 45 GETS.. ERAS..TE
0179A0: 58 54 0D 0A 0D 0A 20 57 45 4C 43 4F 4D 45 20 20 XT.... WELCOME
0179B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0179C0: 20 44 45 4C 45 54 45 20 44 41 54 41 20 46 52 4F DELETE DATA FRO
0179D0: 4D 20 41 20 46 49 4C 45 20 20 20 20 20 20 20 20 M A FILE
0179E0: 20 20 20 20 20 20 20 20 20 64 42 41 53 45 20 49 dBASE I
0179F0: 49 20 20 20 20 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D I ..---------
017A00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
017A10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
017A20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
017A30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
017A40: 2D 2D 2D 20 20 0D 0A 45 4E 44 54 45 58 54 0D 0A --- ..ENDTEXT..
017A50: 20 20 40 20 32 32 2C 31 20 53 41 59 20 27 2D 2D @ 22,1 SAY '--
017A60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
017A70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
017A80: 2D 2D 2D 2D 27 20 3B 0D 0A 20 20 20 20 20 20 20 ----' ;..
017A90: 20 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D + '-----------
017AA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
017AB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 20 20 -----------'..
017AC0: 40 20 31 31 2C 32 37 20 53 41 59 20 27 52 45 54 @ 11,27 SAY 'RET
017AD0: 55 52 4E 49 4E 47 20 54 4F 20 4D 41 49 4E 20 4D URNING TO MAIN M
017AE0: 45 4E 55 27 0D 0A 20 20 40 20 32 30 2C 31 0D 0A ENU'.. @ 20,1..
017AF0: 20 20 53 54 4F 52 45 20 31 20 54 4F 20 43 0D 0A STORE 1 TO C..
017B00: 2B 4D 2E 4E 45 58 54 4C 49 4E 45 20 20 3E 20 31 +M.NEXTLINE > 1
017B10: 37 0D 0A 20 20 20 20 20 20 20 20 53 54 4F 52 20 7.. STOR
017B20: 46 20 54 4F 20 54 43 4F 4E 54 0D 0A 20 20 20 20 F TO TCONT..
017B30: 20 20 20 20 49 46 20 45 4F 46 20 0D 0A 20 20 20 IF EOF ..
017B40: 20 20 20 20 20 20 20 53 54 4F 52 20 54 20 54 4F STOR T TO
017B50: 20 4C 41 53 54 52 45 43 0D 0A 20 20 20 20 20 20 LASTREC..
017B60: 20 20 20 20 53 54 4F 52 20 54 20 54 4F 20 4C 4F STOR T TO LO
017B70: 47 49 43 0D 0A 20 20 20 20 20 20 20 20 45 4E 44 GIC.. END
017B80: 49 46 0D 0A 20 20 20 20 20 20 45 4E 44 49 46 0D IF.. ENDIF.
017B90: 0A 20 20 20 20 45 4E 44 44 4F 0D 0A 20 20 20 20 . ENDDO..
017BA0: 53 45 4C 45 43 54 20 50 52 49 4D 41 52 59 0D 0A SELECT PRIMARY..
017BB0: 20 20 20 20 52 45 41 44 0D 0A 20 20 20 20 47 4F READ.. GO
017BC0: 20 54 4F 50 0D 0A 20 20 20 20 43 4C 45 41 20 47 TOP.. CLEA G
017BD0: 45 54 53 0D 0A 20 20 20 20 49 46 20 2E 4E 4F 54 ETS.. IF .NOT
017BE0: 2E 20 4D 2E 4C 41 53 54 52 45 43 0D 0A 20 20 20 . M.LASTREC..
017BF0: 20 20 20 53 54 4F 52 20 35 20 54 4F 20 4C 49 4E STOR 5 TO LIN
017C00: 45 0D 0A 20 20 20 20 20 20 44 4F 20 57 48 49 4C E.. DO WHIL
017C10: 45 20 4D 2E 4C 49 4E 45 20 3C 31 38 0D 0A 20 20 E M.LINE <18..
017C20: 20 20 20 20 20 20 40 20 4D 2E 4C 49 4E 45 2C 30 @ M.LINE,0
017C30: 0D 0A 20 20 20 20 20 20 20 20 53 54 4F 52 20 4D .. STOR M
017C40: 2E 4C 49 4E 45 20 2B 20 31 20 54 4F 20 4C 49 4E .LINE + 1 TO LIN
017C50: 45 20 0D 0A 20 20 20 20 20 20 45 4E 44 44 4F 0D E .. ENDDO.
017C60: 0A 20 20 20 20 20 45 4C 53 45 0D 0A 20 20 20 20 . ELSE..
017C70: 20 20 53 54 4F 52 20 46 20 54 4F 20 4E 4F 43 4F STOR F TO NOCO
017C80: 4E 54 0D 0A 20 20 20 20 45 4E 44 49 46 0D 0A 20 NT.. ENDIF..
017C90: 20 45 4E 44 44 4F 0D 0A 20 20 40 20 31 39 2C 30 ENDDO.. @ 19,0
017CA0: 0D 0A 20 20 40 20 32 30 2C 30 0D 0A 20 20 40 20 .. @ 20,0.. @
017CB0: 32 31 2C 30 0D 0A 20 20 40 20 32 33 2C 37 20 53 21,0.. @ 23,7 S
017CC0: 41 59 20 4D 2E 42 4C 41 4E 4B 0D 0A 20 20 40 20 AY M.BLANK.. @
017CD0: 32 30 2C 35 20 53 41 59 20 27 64 42 41 53 45 20 20,5 SAY 'dBASE
017CE0: 49 49 20 77 69 6C 6C 20 61 6C 6C 6F 77 20 79 6F II will allow yo
017CF0: 75 20 74 6F 20 45 44 49 54 20 61 73 20 6D 61 6E u to EDIT as man
017D00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
017D10: 14 00 01 00 02 09 52 E5 14 00 41 02 00 00 00 02 ......R...A.....
017D20: 14 00 46 02 00 00 00 02 14 00 42 02 00 00 00 02 ..F.......B.....
017D30: 14 00 47 02 00 00 00 02 14 00 43 02 00 00 00 02 ..G.......C.....
017D40: 14 00 48 02 00 00 00 02 14 00 44 02 00 00 00 02 ..H.......D.....
017D50: 14 00 49 02 00 00 00 02 14 00 45 02 00 00 00 02 ..I.......E.....
017D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017E00: 20 20 44 4F 20 57 48 49 4C 45 20 43 20 3C 20 32 DO WHILE C < 2
017E10: 35 0D 0A 20 20 20 20 53 54 4F 52 45 20 43 2B 31 5.. STORE C+1
017E20: 20 54 4F 20 43 0D 0A 20 20 45 4E 44 44 4F 0D 0A TO C.. ENDDO..
017E30: 20 20 52 45 4C 45 41 53 45 20 41 4C 4C 20 45 58 RELEASE ALL EX
017E40: 43 45 50 54 20 4D 46 49 4C 45 0D 0A 20 20 52 45 CEPT MFILE.. RE
017E50: 54 55 52 4E 0D 0A 45 4E 44 49 46 0D 0A 40 20 32 TURN..ENDIF..@ 2
017E60: 30 2C 35 20 53 41 59 20 27 54 68 65 20 66 69 6C 0,5 SAY 'The fil
017E70: 65 20 70 72 65 73 65 6E 74 6C 79 20 69 6E 20 75 e presently in u
017E80: 73 65 20 69 73 20 2D 20 27 2B 4D 2E 4D 46 49 4C se is - '+M.MFIL
017E90: 45 0D 0A 53 54 4F 52 45 20 27 20 27 20 54 4F 20 E..STORE ' ' TO
017EA0: 52 45 50 4C 59 0D 0A 44 4F 20 57 48 49 4C 45 20 REPLY..DO WHILE
017EB0: 2E 4E 4F 54 2E 20 4D 2E 52 45 50 4C 59 24 27 59 .NOT. M.REPLY$'Y
017EC0: 4E 27 0D 0A 20 20 40 20 32 31 2C 35 20 53 41 59 N'.. @ 21,5 SAY
017ED0: 20 27 44 6F 20 79 6F 75 20 77 69 73 68 20 74 6F 'Do you wish to
017EE0: 20 64 65 6C 65 74 65 20 61 20 72 65 63 6F 72 64 delete a record
017EF0: 20 69 6E 20 74 68 69 73 20 66 69 6C 65 3F 20 59 in this file? Y
017F00: 2F 4E 20 27 20 0D 0A 20 20 40 20 32 31 2C 31 20 /N ' .. @ 21,1
017F10: 47 45 54 20 4D 2E 52 45 50 4C 59 20 70 69 63 74 GET M.REPLY pict
017F20: 20 27 21 27 0D 0A 20 20 52 45 41 44 0D 0A 20 20 '!'.. READ..
017F30: 43 4C 45 41 52 20 47 45 54 53 0D 0A 45 4E 44 44 CLEAR GETS..ENDD
017F40: 4F 0D 0A 45 52 41 53 0D 0A 54 45 58 54 0D 0A 0D O..ERAS..TEXT...
017F50: 0A 20 57 45 4C 43 4F 4D 45 20 20 20 20 20 20 20 . WELCOME
017F60: 20 20 20 20 20 20 20 20 20 20 20 20 44 45 4C 45 DELE
017F70: 54 45 20 44 41 54 41 20 46 52 4F 4D 20 41 20 46 TE DATA FROM A F
017F80: 49 4C 45 20 20 20 20 20 20 20 20 20 20 20 20 20 ILE
017F90: 20 20 20 20 64 42 41 53 45 20 49 49 20 20 20 20 dBASE II
017FA0: 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ..--------------
017FB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
017FC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
017FD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
017FE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 --------------
017FF0: 0D 0A 45 4E 44 54 45 58 54 0D 0A 40 20 32 32 2C ..ENDTEXT..@ 22,
018000: 0A 20 20 20 20 53 54 4F 52 45 20 46 20 54 4F 20 . STORE F TO
018010: 42 49 47 4E 55 4D 0D 0A 20 20 45 4E 44 49 46 0D BIGNUM.. ENDIF.
018020: 0A 45 4E 44 44 4F 0D 0A 45 52 41 53 0D 0A 54 45 .ENDDO..ERAS..TE
018030: 58 54 0D 0A 0D 0A 20 57 45 4C 43 4F 4D 45 20 20 XT.... WELCOME
018040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018050: 20 44 45 4C 45 54 45 20 44 41 54 41 20 46 52 4F DELETE DATA FRO
018060: 4D 20 41 20 46 49 4C 45 20 20 20 20 20 20 20 20 M A FILE
018070: 20 20 20 20 20 20 20 20 20 64 42 41 53 45 20 49 dBASE I
018080: 49 20 20 20 20 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D I ..---------
018090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0180A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0180B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0180C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0180D0: 2D 2D 2D 20 20 0D 0A 45 4E 44 54 45 58 54 0D 0A --- ..ENDTEXT..
0180E0: 40 20 32 32 2C 31 20 53 41 59 20 27 2D 2D 2D 2D @ 22,1 SAY '----
0180F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
018100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
018110: 2D 2D 27 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 --' ;..
018120: 2B 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D + '-------------
018130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
018140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 49 46 20 56 ---------'..IF V
018150: 41 4C 28 4D 2E 45 44 49 54 29 20 3D 20 30 20 20 AL(M.EDIT) = 0
018160: 0D 0A 20 20 52 45 4C 45 41 53 45 20 41 4C 4C 20 .. RELEASE ALL
018170: 45 58 43 45 50 54 20 4D 46 49 4C 45 0D 0A 20 20 EXCEPT MFILE..
018180: 53 45 4C 45 43 54 20 53 45 43 4F 4E 44 41 52 59 SELECT SECONDARY
018190: 0D 0A 20 20 55 53 45 0D 0A 20 20 53 45 4C 45 43 .. USE.. SELEC
0181A0: 54 20 50 52 49 4D 41 52 59 0D 0A 20 20 44 45 4C T PRIMARY.. DEL
0181B0: 45 54 45 20 46 49 4C 45 20 54 45 4D 50 31 0D 0A ETE FILE TEMP1..
0181C0: 20 20 45 52 41 53 0D 0A 20 20 40 20 31 31 2C 32 ERAS.. @ 11,2
0181D0: 37 20 53 41 59 20 27 52 45 54 55 52 4E 49 4E 47 7 SAY 'RETURNING
0181E0: 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 27 0D 0A TO MAIN MENU'..
0181F0: 20 20 40 20 32 30 2C 31 0D 0A 20 20 53 54 4F 52 @ 20,1.. STOR
018200: 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 1 SAY '---------
018210: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
018220: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20 3B -------------' ;
018230: 0D 0A 20 20 20 20 20 20 20 20 20 2B 20 27 2D 2D .. + '--
018240: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
018250: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
018260: 2D 2D 2D 2D 27 0D 0A 49 46 20 4D 2E 52 45 50 4C ----'..IF M.REPL
018270: 59 3D 27 4E 27 0D 0A 20 20 40 20 31 31 2C 32 37 Y='N'.. @ 11,27
018280: 20 53 41 59 20 27 52 45 54 55 52 4E 49 4E 47 20 SAY 'RETURNING
018290: 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 20 27 0D 0A TO MAIN MENU '..
0182A0: 20 20 40 20 32 30 2C 31 0D 0A 20 20 53 54 4F 52 @ 20,1.. STOR
0182B0: 45 20 31 20 54 4F 20 43 0D 0A 20 20 44 4F 20 57 E 1 TO C.. DO W
0182C0: 48 49 4C 45 20 43 20 3C 20 32 35 0D 0A 20 20 20 HILE C < 25..
0182D0: 20 53 54 4F 52 45 20 43 2B 31 20 54 4F 20 43 0D STORE C+1 TO C.
0182E0: 0A 20 20 45 4E 44 44 4F 0D 0A 20 20 52 45 4C 45 . ENDDO.. RELE
0182F0: 41 53 45 20 41 4C 4C 20 45 58 43 45 50 54 20 4D ASE ALL EXCEPT M
018300: 46 49 4C 45 0D 0A 20 20 52 45 54 55 52 4E 0D 0A FILE.. RETURN..
018310: 45 4E 44 49 46 0D 0A 40 20 34 2C 30 0D 0A 54 45 ENDIF..@ 4,0..TE
018320: 58 54 0D 0A 20 20 20 20 20 59 6F 75 20 77 6F 75 XT.. You wou
018330: 6C 64 20 64 65 6C 65 74 65 20 64 61 74 61 20 69 ld delete data i
018340: 6E 20 64 42 41 53 45 20 49 49 20 62 79 20 74 79 n dBASE II by ty
018350: 70 69 6E 67 0D 0A 0D 0A 20 20 20 20 20 20 2E 20 ping.... .
018360: 44 45 4C 45 54 45 20 52 45 43 4F 52 44 20 3C 72 DELETE RECORD <r
018370: 65 63 6F 72 64 20 6E 75 6D 62 65 72 3E 0D 0A 0D ecord number>...
018380: 0A 20 20 20 20 20 4F 72 20 74 68 65 20 63 6F 6D . Or the com
018390: 6D 61 6E 64 20 3A 0D 0A 0D 0A 20 20 20 20 20 20 mand :....
0183A0: 2E 20 44 45 4C 45 54 45 20 41 4C 4C 0D 0A 20 20 . DELETE ALL..
0183B0: 0D 0A 20 20 20 20 20 64 42 41 53 45 20 49 49 20 .. dBASE II
0183C0: 77 69 6C 6C 20 74 68 65 6E 20 6D 61 72 6B 20 74 will then mark t
0183D0: 68 6F 73 65 20 72 65 63 6F 72 64 73 20 66 6F 72 hose records for
0183E0: 20 64 65 6C 65 74 69 6F 6E 2E 0D 0A 0D 0A 20 20 deletion.....
0183F0: 20 20 20 57 65 20 77 69 6C 6C 20 63 6F 6E 63 65 We will conce
018400: 20 30 20 54 4F 20 50 41 55 53 45 0D 0A 20 20 44 0 TO PAUSE.. D
018410: 4F 20 57 48 49 4C 45 20 4D 2E 50 41 55 53 45 3C O WHILE M.PAUSE<
018420: 32 35 0D 0A 20 20 20 20 53 54 4F 52 20 4D 2E 50 25.. STOR M.P
018430: 41 55 53 45 2B 31 20 54 4F 20 50 41 55 53 45 0D AUSE+1 TO PAUSE.
018440: 0A 20 20 45 4E 44 44 4F 0D 0A 20 20 52 45 54 55 . ENDDO.. RETU
018450: 52 4E 0D 0A 45 4E 44 49 46 0D 0A 40 20 32 33 2C RN..ENDIF..@ 23,
018460: 30 20 53 41 59 20 27 2E 20 44 45 4C 45 54 45 20 0 SAY '. DELETE
018470: 52 45 43 4F 52 44 20 27 0D 0A 40 20 32 30 2C 35 RECORD '..@ 20,5
018480: 20 53 41 59 20 27 59 6F 75 20 68 61 76 65 20 63 SAY 'You have c
018490: 68 6F 73 65 6E 20 72 65 63 6F 72 64 20 27 2B 54 hosen record '+T
0184A0: 52 49 4D 28 4D 2E 45 44 49 54 29 20 27 20 66 6F RIM(M.EDIT) ' fo
0184B0: 72 20 64 65 6C 65 74 69 6F 6E 27 0D 0A 53 54 4F r deletion'..STO
0184C0: 52 45 20 27 20 27 20 54 4F 20 52 45 50 4C 59 0D RE ' ' TO REPLY.
0184D0: 0A 44 4F 20 57 48 49 4C 45 20 2E 4E 4F 54 2E 20 .DO WHILE .NOT.
0184E0: 4D 2E 52 45 50 4C 59 24 27 59 4E 27 0D 0A 20 20 M.REPLY$'YN'..
0184F0: 40 20 32 31 2C 35 20 53 41 59 20 27 41 72 65 20 @ 21,5 SAY 'Are
018500: 79 6F 75 20 73 75 72 65 3F 20 59 2F 4E 20 27 20 you sure? Y/N '
018510: 0D 0A 20 20 40 20 32 31 2C 31 20 47 45 54 20 4D .. @ 21,1 GET M
018520: 2E 52 45 50 4C 59 20 50 49 43 54 20 22 21 22 0D .REPLY PICT "!".
018530: 0A 20 20 52 45 41 44 0D 0A 20 20 43 4C 45 41 52 . READ.. CLEAR
018540: 20 47 45 54 53 0D 0A 45 4E 44 44 4F 0D 0A 40 20 GETS..ENDDO..@
018550: 32 30 2C 30 0D 0A 40 20 32 31 2C 30 0D 0A 49 46 20,0..@ 21,0..IF
018560: 20 4D 2E 52 45 50 4C 59 3D 27 4E 27 0D 0A 20 20 M.REPLY='N'..
018570: 40 20 32 33 2C 30 20 53 41 59 20 4D 2E 42 4C 41 @ 23,0 SAY M.BLA
018580: 4E 4B 0D 0A 20 20 40 20 31 31 2C 32 37 20 53 41 NK.. @ 11,27 SA
018590: 59 20 27 52 45 54 55 52 4E 49 4E 47 20 54 4F 20 Y 'RETURNING TO
0185A0: 4D 41 49 4E 20 4D 45 4E 55 27 0D 0A 20 20 40 20 MAIN MENU'.. @
0185B0: 32 30 2C 31 0D 0A 20 20 53 54 4F 52 45 20 31 20 20,1.. STORE 1
0185C0: 54 4F 20 43 0D 0A 20 20 44 4F 20 57 48 49 4C 45 TO C.. DO WHILE
0185D0: 20 43 20 3C 20 32 35 0D 0A 20 20 20 20 53 54 4F C < 25.. STO
0185E0: 52 45 20 43 2B 31 20 54 4F 20 43 0D 0A 20 20 45 RE C+1 TO C.. E
0185F0: 4E 44 44 4F 0D 0A 20 20 52 45 4C 45 41 53 45 20 NDDO.. RELEASE
018600: 72 6E 20 6F 75 72 73 65 6C 76 65 73 20 77 69 74 rn ourselves wit
018610: 68 20 64 65 6C 65 74 69 6E 67 20 6F 6E 65 20 72 h deleting one r
018620: 65 63 6F 72 64 20 66 6F 72 20 6E 6F 77 2E 0D 0A ecord for now...
018630: 20 20 20 20 20 54 68 65 20 63 6F 6D 6D 61 6E 64 The command
018640: 20 69 73 20 73 68 6F 77 6E 20 62 65 6C 6F 77 20 is shown below
018650: 74 68 65 20 6C 69 6E 65 2E 0D 0A 0D 0A 45 4E 44 the line.....END
018660: 54 45 58 54 0D 0A 40 20 32 33 2C 30 20 53 41 59 TEXT..@ 23,0 SAY
018670: 20 27 2E 20 44 45 4C 45 54 45 20 52 45 43 4F 52 '. DELETE RECOR
018680: 44 27 0D 0A 53 54 4F 52 45 20 27 20 27 20 54 4F D'..STORE ' ' TO
018690: 20 54 45 4D 50 0D 0A 40 20 32 31 2C 35 20 53 41 TEMP..@ 21,5 SA
0186A0: 59 20 27 50 72 65 73 73 20 61 6E 79 20 6B 65 79 Y 'Press any key
0186B0: 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 27 0D 0A to continue '..
0186C0: 40 20 32 31 2C 31 20 47 45 54 20 4D 2E 54 45 4D @ 21,1 GET M.TEM
0186D0: 50 0D 0A 52 45 41 44 0D 0A 43 4C 45 41 52 20 47 P..READ..CLEAR G
0186E0: 45 54 53 0D 0A 45 52 41 53 0D 0A 54 45 58 54 0D ETS..ERAS..TEXT.
0186F0: 0A 0D 0A 20 57 45 4C 43 4F 4D 45 20 20 20 20 20 ... WELCOME
018700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 45 DE
018710: 4C 45 54 45 20 44 41 54 41 20 46 52 4F 4D 20 41 LETE DATA FROM A
018720: 20 46 49 4C 45 20 20 20 20 20 20 20 20 20 20 20 FILE
018730: 20 20 20 20 20 20 64 42 41 53 45 20 49 49 20 20 dBASE II
018740: 20 20 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ..------------
018750: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
018760: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
018770: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
018780: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
018790: 20 20 0D 0A 45 4E 44 54 45 58 54 0D 0A 40 20 32 ..ENDTEXT..@ 2
0187A0: 32 2C 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D 2D 2,1 SAY '-------
0187B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0187C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 ---------------'
0187D0: 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 2B 20 27 ;.. + '
0187E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0187F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
018800: 41 4C 4C 20 45 58 43 45 50 54 20 4D 46 49 4C 45 ALL EXCEPT MFILE
018810: 0D 0A 20 20 53 45 4C 45 43 54 20 53 45 43 4F 4E .. SELECT SECON
018820: 44 41 52 59 0D 0A 20 20 55 53 45 0D 0A 20 20 53 DARY.. USE.. S
018830: 45 4C 45 43 54 20 50 52 49 4D 41 52 59 0D 0A 20 ELECT PRIMARY..
018840: 20 44 45 4C 45 54 45 20 46 49 4C 45 20 54 45 4D DELETE FILE TEM
018850: 50 31 0D 0A 20 20 52 45 54 55 52 4E 0D 0A 20 45 P1.. RETURN.. E
018860: 4C 53 45 0D 0A 20 20 40 20 32 33 2C 30 20 53 41 LSE.. @ 23,0 SA
018870: 59 20 27 2E 20 44 45 4C 45 54 45 20 52 45 43 4F Y '. DELETE RECO
018880: 52 44 20 27 2B 4D 2E 45 44 49 54 0D 0A 20 20 40 RD '+M.EDIT.. @
018890: 20 31 39 2C 35 20 53 41 59 20 27 42 65 6C 6F 77 19,5 SAY 'Below
0188A0: 20 74 68 65 20 6C 69 6E 65 20 79 6F 75 20 77 69 the line you wi
0188B0: 6C 6C 20 6E 6F 77 20 73 65 65 20 74 68 65 20 63 ll now see the c
0188C0: 6F 6D 70 6C 65 74 65 20 63 6F 6D 6D 61 6E 64 27 omplete command'
0188D0: 0D 0A 20 20 40 20 32 30 2C 35 20 53 41 59 20 27 .. @ 20,5 SAY '
0188E0: 61 73 20 79 6F 75 20 77 6F 75 6C 64 20 74 79 70 as you would typ
0188F0: 65 20 69 74 20 79 6F 75 72 73 65 6C 66 2E 27 20 e it yourself.'
018900: 0D 0A 20 20 53 54 4F 52 45 20 27 20 27 20 54 4F .. STORE ' ' TO
018910: 20 54 45 4D 50 0D 0A 20 20 40 20 32 31 2C 35 20 TEMP.. @ 21,5
018920: 53 41 59 20 27 50 72 65 73 73 20 61 6E 79 20 6B SAY 'Press any k
018930: 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 27 ey to continue '
018940: 0D 0A 20 20 40 20 32 31 2C 31 20 47 45 54 20 4D .. @ 21,1 GET M
018950: 2E 54 45 4D 50 0D 0A 20 20 52 45 41 44 0D 0A 20 .TEMP.. READ..
018960: 20 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 47 CLEAR GETS.. G
018970: 4F 20 56 41 4C 28 4D 2E 45 44 49 54 29 0D 0A 20 O VAL(M.EDIT)..
018980: 20 44 45 4C 45 54 45 20 0D 0A 45 4E 44 49 46 0D DELETE ..ENDIF.
018990: 0A 40 20 31 39 2C 30 0D 0A 40 20 32 30 2C 30 0D .@ 19,0..@ 20,0.
0189A0: 0A 40 20 32 31 2C 30 0D 0A 40 20 20 34 2C 30 0D .@ 21,0..@ 4,0.
0189B0: 0A 54 45 58 54 0D 0A 20 20 20 20 20 20 20 59 6F .TEXT.. Yo
0189C0: 75 72 20 72 65 63 6F 72 64 20 68 61 73 20 6E 6F ur record has no
0189D0: 77 20 62 65 65 6E 20 6D 61 72 6B 65 64 20 66 6F w been marked fo
0189E0: 72 20 64 65 6C 65 74 69 6F 6E 2E 0D 0A 20 20 20 r deletion...
0189F0: 20 20 20 20 54 6F 20 65 72 61 73 65 20 69 74 20 To erase it
018A00: 2D 2D 2D 2D 2D 2D 27 0D 0A 40 20 32 33 2C 30 20 ------'..@ 23,0
018A10: 53 41 59 20 27 2E 20 44 45 4C 45 54 45 20 52 45 SAY '. DELETE RE
018A20: 43 4F 52 44 27 0D 0A 43 4F 50 59 20 54 4F 20 54 CORD'..COPY TO T
018A30: 45 4D 50 31 20 53 54 52 55 43 54 55 52 45 20 45 EMP1 STRUCTURE E
018A40: 58 54 45 4E 44 45 44 0D 0A 53 45 4C 45 43 54 20 XTENDED..SELECT
018A50: 53 45 43 4F 4E 44 41 52 59 0D 0A 55 53 45 20 54 SECONDARY..USE T
018A60: 45 4D 50 31 0D 0A 53 45 4C 45 43 54 20 50 52 49 EMP1..SELECT PRI
018A70: 4D 41 52 59 0D 0A 47 4F 20 42 4F 54 54 4F 4D 0D MARY..GO BOTTOM.
018A80: 0A 53 54 4F 52 20 53 54 52 28 23 2C 33 29 20 54 .STOR STR(#,3) T
018A90: 4F 20 52 45 43 4E 55 4D 0D 0A 53 54 4F 52 20 54 O RECNUM..STOR T
018AA0: 20 54 4F 20 42 49 47 4E 55 4D 0D 0A 53 54 4F 52 TO BIGNUM..STOR
018AB0: 20 27 20 20 20 27 20 54 4F 20 45 44 49 54 0D 0A ' ' TO EDIT..
018AC0: 44 4F 20 57 48 49 4C 45 20 4D 2E 42 49 47 4E 55 DO WHILE M.BIGNU
018AD0: 4D 0D 0A 20 20 40 20 31 39 2C 35 20 53 41 59 20 M.. @ 19,5 SAY
018AE0: 27 59 6F 75 20 68 61 76 65 20 27 2B 4D 2E 52 45 'You have '+M.RE
018AF0: 43 4E 55 4D 2B 27 20 72 65 63 6F 72 64 73 20 69 CNUM+' records i
018B00: 6E 20 27 2B 4D 2E 4D 46 49 4C 45 0D 0A 20 20 40 n '+M.MFILE.. @
018B10: 20 31 37 2C 35 20 53 41 59 20 27 43 68 6F 6F 73 17,5 SAY 'Choos
018B20: 65 20 61 20 72 65 63 6F 72 64 20 6E 75 6D 62 65 e a record numbe
018B30: 72 20 74 6F 20 64 65 6C 65 74 65 20 27 47 45 54 r to delete 'GET
018B40: 20 4D 2E 45 44 49 54 20 50 49 43 54 20 27 39 39 M.EDIT PICT '99
018B50: 39 27 0D 0A 20 20 40 20 31 37 2C 34 32 20 53 41 9'.. @ 17,42 SA
018B60: 59 20 27 5B 42 6C 61 6E 6B 20 74 6F 20 66 69 6E Y '[Blank to fin
018B70: 69 73 68 5D 27 0D 0A 20 20 52 45 41 44 0D 0A 20 ish]'.. READ..
018B80: 20 43 4C 45 41 20 47 45 54 53 0D 0A 20 20 49 46 CLEA GETS.. IF
018B90: 20 56 41 4C 28 4D 2E 45 44 49 54 29 20 3C 3E 20 VAL(M.EDIT) <>
018BA0: 49 4E 54 28 56 41 4C 28 4D 2E 45 44 49 54 29 29 INT(VAL(M.EDIT))
018BB0: 0D 0A 20 20 20 20 40 20 32 30 2C 35 20 53 41 59 .. @ 20,5 SAY
018BC0: 20 27 50 6C 65 61 73 65 20 74 72 79 20 61 20 77 'Please try a w
018BD0: 68 6F 6C 65 20 6E 75 6D 62 65 72 20 21 21 27 0D hole number !!'.
018BE0: 0A 20 20 20 20 53 54 4F 52 45 20 27 20 27 20 54 . STORE ' ' T
018BF0: 4F 20 54 45 4D 50 0D 0A 20 20 20 20 40 20 32 31 O TEMP.. @ 21
018C00: 66 72 6F 6D 20 79 6F 75 72 20 66 69 6C 65 20 79 from your file y
018C10: 6F 75 20 75 73 65 20 74 68 65 20 50 41 43 4B 20 ou use the PACK
018C20: 63 6F 6D 6D 61 6E 64 2E 20 0D 0A 0D 0A 20 20 20 command. ....
018C30: 20 20 20 20 54 6F 20 73 61 76 65 20 79 6F 75 72 To save your
018C40: 20 72 65 63 6F 72 64 20 66 72 6F 6D 20 64 65 6C record from del
018C50: 65 74 69 6F 6E 20 79 6F 75 20 75 73 65 20 74 68 etion you use th
018C60: 65 20 52 45 43 41 4C 4C 20 0D 0A 20 20 20 20 20 e RECALL ..
018C70: 20 20 63 6F 6D 6D 61 6E 64 2E 20 0D 0A 0D 0A 0D command. .....
018C80: 0A 0D 0A 45 4E 44 54 45 58 54 0D 0A 40 20 32 32 ...ENDTEXT..@ 22
018C90: 2C 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D 2D 2D ,1 SAY '--------
018CA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
018CB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20 --------------'
018CC0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 2B 20 27 2D ;.. + '-
018CD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
018CE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
018CF0: 2D 2D 2D 2D 2D 27 0D 0A 53 54 4F 52 45 20 27 20 -----'..STORE '
018D00: 27 20 54 4F 20 50 41 43 52 45 43 0D 0A 53 54 4F ' TO PACREC..STO
018D10: 52 45 20 59 20 20 20 54 4F 20 4D 46 49 52 53 54 RE Y TO MFIRST
018D20: 0D 0A 44 4F 20 57 48 49 4C 45 20 2E 4E 4F 54 2E ..DO WHILE .NOT.
018D30: 20 4D 2E 50 41 43 52 45 43 24 27 50 52 27 0D 0A M.PACREC$'PR'..
018D40: 20 20 40 20 32 31 2C 30 0D 0A 20 20 40 20 32 31 @ 21,0.. @ 21
018D50: 2C 35 20 53 41 59 20 27 44 6F 20 79 6F 75 20 77 ,5 SAY 'Do you w
018D60: 69 73 68 20 74 6F 20 50 41 43 4B 20 6F 72 20 52 ish to PACK or R
018D70: 45 43 41 4C 4C 3F 20 28 50 2F 52 29 20 27 20 0D ECALL? (P/R) ' .
018D80: 0A 20 20 40 20 32 31 2C 31 20 47 45 54 20 4D 2E . @ 21,1 GET M.
018D90: 50 41 43 52 45 43 20 50 49 43 54 20 27 21 27 0D PACREC PICT '!'.
018DA0: 0A 20 20 49 46 20 2E 4E 4F 54 2E 20 4D 2E 4D 46 . IF .NOT. M.MF
018DB0: 49 52 53 54 0D 0A 20 20 20 20 40 20 32 31 2C 35 IRST.. @ 21,5
018DC0: 30 20 53 41 59 20 27 3C 2D 20 49 6E 76 61 6C 69 0 SAY '<- Invali
018DD0: 64 20 53 65 6C 65 63 74 69 6F 6E 27 0D 0A 20 20 d Selection'..
018DE0: 45 4C 53 45 0D 0A 20 20 20 20 53 54 4F 52 45 20 ELSE.. STORE
018DF0: 4E 20 54 4F 20 4D 46 49 52 53 54 0D 0A 20 20 45 N TO MFIRST.. E
018E00: 2C 35 20 53 41 59 20 27 50 72 65 73 73 20 61 6E ,5 SAY 'Press an
018E10: 79 20 6B 65 79 20 74 6F 20 72 65 74 72 79 20 27 y key to retry '
018E20: 20 0D 0A 20 20 20 20 40 20 32 31 2C 31 20 47 45 .. @ 21,1 GE
018E30: 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 20 20 52 45 T M.TEMP.. RE
018E40: 41 44 0D 0A 20 20 20 20 43 4C 45 41 52 20 47 45 AD.. CLEAR GE
018E50: 54 53 0D 0A 20 20 20 20 40 20 31 37 2C 30 0D 0A TS.. @ 17,0..
018E60: 20 20 20 20 40 20 31 38 2C 30 0D 0A 20 20 20 20 @ 18,0..
018E70: 40 20 31 39 2C 30 0D 0A 20 20 20 20 40 20 32 30 @ 19,0.. @ 20
018E80: 2C 30 0D 0A 20 20 20 20 40 20 32 31 2C 31 0D 0A ,0.. @ 21,1..
018E90: 20 20 20 20 53 54 4F 52 45 20 27 20 20 20 27 20 STORE ' '
018EA0: 54 4F 20 45 44 49 54 0D 0A 20 20 20 20 4C 4F 4F TO EDIT.. LOO
018EB0: 50 0D 0A 20 20 45 4E 44 49 46 20 0D 0A 20 20 49 P.. ENDIF .. I
018EC0: 46 20 56 41 4C 28 4D 2E 45 44 49 54 29 20 3C 20 F VAL(M.EDIT) <
018ED0: 30 20 2E 4F 52 2E 20 56 41 4C 28 4D 2E 45 44 49 0 .OR. VAL(M.EDI
018EE0: 54 29 20 3E 20 23 20 0D 0A 20 20 20 20 40 20 32 T) > # .. @ 2
018EF0: 30 2C 35 20 53 41 59 20 27 52 65 63 6F 72 64 20 0,5 SAY 'Record
018F00: 6F 75 74 20 6F 66 20 72 61 6E 67 65 2E 20 50 6C out of range. Pl
018F10: 65 61 73 65 20 63 68 6F 6F 73 65 20 61 67 61 69 ease choose agai
018F20: 6E 2E 27 0D 0A 20 20 20 20 53 54 4F 52 45 20 27 n.'.. STORE '
018F30: 20 27 20 54 4F 20 54 45 4D 50 0D 0A 20 20 20 20 ' TO TEMP..
018F40: 40 20 32 31 2C 35 20 53 41 59 20 27 50 72 65 73 @ 21,5 SAY 'Pres
018F50: 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 72 65 74 s any key to ret
018F60: 72 79 20 27 20 0D 0A 20 20 20 20 40 20 32 31 2C ry ' .. @ 21,
018F70: 31 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 1 GET M.TEMP..
018F80: 20 20 52 45 41 44 0D 0A 20 20 20 20 43 4C 45 41 READ.. CLEA
018F90: 52 20 47 45 54 53 0D 0A 20 20 20 20 40 20 31 36 R GETS.. @ 16
018FA0: 2C 30 0D 0A 20 20 20 20 40 20 31 37 2C 30 0D 0A ,0.. @ 17,0..
018FB0: 20 20 20 20 40 20 31 38 2C 30 0D 0A 20 20 20 20 @ 18,0..
018FC0: 40 20 31 39 2C 30 0D 0A 20 20 20 20 40 20 32 30 @ 19,0.. @ 20
018FD0: 2C 30 0D 0A 20 20 20 20 40 20 32 31 2C 31 0D 0A ,0.. @ 21,1..
018FE0: 20 20 20 20 53 54 4F 52 45 20 27 20 20 20 27 20 STORE ' '
018FF0: 54 4F 20 45 44 49 54 0D 0A 20 20 45 4C 53 45 0D TO EDIT.. ELSE.
019000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
019010: 15 00 01 00 02 09 4F E5 15 00 41 02 00 00 00 02 ......O...A.....
019020: 15 00 46 02 00 00 00 02 15 00 42 02 00 00 00 02 ..F.......B.....
019030: 15 00 47 02 00 00 00 02 15 00 43 02 00 00 00 02 ..G.......C.....
019040: 15 00 48 02 00 00 00 02 15 00 44 02 00 00 00 02 ..H.......D.....
019050: 15 00 49 02 00 00 00 02 15 00 45 02 00 00 00 02 ..I.......E.....
019060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019100: 4E 44 49 46 0D 0A 20 20 52 45 41 44 0D 0A 45 4E NDIF.. READ..EN
019110: 44 44 4F 0D 0A 52 45 4C 45 41 53 45 20 4D 46 49 DDO..RELEASE MFI
019120: 52 53 54 0D 0A 43 4C 45 41 52 20 47 45 54 53 0D RST..CLEAR GETS.
019130: 0A 45 52 41 53 0D 0A 54 45 58 54 0D 0A 0D 0A 20 .ERAS..TEXT....
019140: 57 45 4C 43 4F 4D 45 20 20 20 20 20 20 20 20 20 WELCOME
019150: 20 20 20 20 20 20 20 20 20 20 44 45 4C 45 54 45 DELETE
019160: 20 44 41 54 41 20 46 52 4F 4D 20 41 20 46 49 4C DATA FROM A FIL
019170: 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 E
019180: 20 20 64 42 41 53 45 20 49 49 20 20 20 20 0D 0A dBASE II ..
019190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0191A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0191B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0191C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0191D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 0D 0A ------------ ..
0191E0: 45 4E 44 54 45 58 54 0D 0A 40 20 32 32 2C 31 20 ENDTEXT..@ 22,1
0191F0: 53 41 59 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D SAY '-----------
019200: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
019210: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20 3B 0D 0A -----------' ;..
019220: 20 20 20 20 20 20 20 20 20 2B 20 27 2D 2D 2D 2D + '----
019230: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
019240: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
019250: 2D 2D 27 0D 0A 49 46 20 4D 2E 50 41 43 52 45 43 --'..IF M.PACREC
019260: 20 3D 20 27 50 27 20 0D 0A 20 20 40 20 32 33 2C = 'P' .. @ 23,
019270: 30 20 53 41 59 20 27 2E 20 50 41 43 4B 27 0D 0A 0 SAY '. PACK'..
019280: 20 20 40 20 32 30 2C 35 20 53 41 59 20 27 54 6F @ 20,5 SAY 'To
019290: 20 50 41 43 4B 20 79 6F 75 72 20 66 69 6C 65 2C PACK your file,
0192A0: 20 79 6F 75 20 6D 75 73 74 20 69 73 73 75 65 20 you must issue
0192B0: 74 68 65 20 63 6F 6D 6D 61 6E 64 20 62 65 6C 6F the command belo
0192C0: 77 3A 2D 27 0D 0A 20 20 53 54 4F 52 45 20 27 20 w:-'.. STORE '
0192D0: 27 20 54 4F 20 54 45 4D 50 0D 0A 20 20 40 20 32 ' TO TEMP.. @ 2
0192E0: 31 2C 35 20 53 41 59 20 27 50 72 65 73 73 20 61 1,5 SAY 'Press a
0192F0: 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E ny key to contin
019300: 4D 46 49 4C 45 0D 0A 53 54 4F 52 45 20 27 20 27 MFILE..STORE ' '
019310: 20 54 4F 20 52 45 50 4C 59 0D 0A 44 4F 20 57 48 TO REPLY..DO WH
019320: 49 4C 45 20 2E 4E 4F 54 2E 20 4D 2E 52 45 50 4C ILE .NOT. M.REPL
019330: 59 24 27 59 4E 27 0D 0A 20 20 40 20 32 31 2C 30 Y$'YN'.. @ 21,0
019340: 0D 0A 20 20 40 20 32 31 2C 35 20 53 41 59 20 27 .. @ 21,5 SAY '
019350: 44 6F 20 79 6F 75 20 77 69 73 68 20 74 6F 20 44 Do you wish to D
019360: 49 53 50 4C 41 59 20 74 68 69 73 20 66 69 6C 65 ISPLAY this file
019370: 3F 20 59 2F 4E 20 27 20 0D 0A 20 20 40 20 32 31 ? Y/N ' .. @ 21
019380: 2C 31 20 47 45 54 20 4D 2E 52 45 50 4C 59 20 70 ,1 GET M.REPLY p
019390: 69 63 74 20 27 21 27 0D 0A 20 20 52 45 41 44 0D ict '!'.. READ.
0193A0: 0A 20 20 43 4C 45 41 52 20 47 45 54 53 0D 0A 45 . CLEAR GETS..E
0193B0: 4E 44 44 4F 0D 0A 45 52 41 53 45 0D 0A 40 20 31 NDDO..ERASE..@ 1
0193C0: 2C 31 20 53 41 59 20 27 57 45 4C 43 4F 4D 45 20 ,1 SAY 'WELCOME
0193D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0193E0: 20 20 4C 49 53 54 2F 44 49 53 50 4C 41 59 20 52 LIST/DISPLAY R
0193F0: 45 43 4F 52 44 53 20 20 20 20 20 20 20 20 20 20 ECORDS
019400: 20 20 20 20 20 20 27 20 3B 0D 0A 20 20 20 20 20 ' ;..
019410: 20 20 20 2B 20 27 20 20 20 20 20 64 42 41 53 45 + ' dBASE
019420: 20 49 49 27 0D 0A 40 20 32 2C 31 20 53 41 59 20 II'..@ 2,1 SAY
019430: 55 4E 44 45 52 4C 4E 0D 0A 40 20 32 32 2C 31 20 UNDERLN..@ 22,1
019440: 53 41 59 20 55 4E 44 45 52 4C 4E 0D 0A 49 46 20 SAY UNDERLN..IF
019450: 4D 2E 52 45 50 4C 59 3D 27 4E 27 0D 0A 20 20 40 M.REPLY='N'.. @
019460: 20 31 31 2C 32 37 20 53 41 59 20 27 52 45 54 55 11,27 SAY 'RETU
019470: 52 4E 49 4E 47 20 54 4F 20 4D 41 49 4E 20 4D 45 RNING TO MAIN ME
019480: 4E 55 27 0D 0A 20 20 40 20 32 30 2C 31 0D 0A 20 NU'.. @ 20,1..
019490: 20 53 54 4F 52 45 20 31 20 54 4F 20 43 0D 0A 20 STORE 1 TO C..
0194A0: 20 44 4F 20 57 48 49 4C 45 20 43 20 3C 20 32 35 DO WHILE C < 25
0194B0: 0D 0A 20 20 20 20 53 54 4F 52 45 20 43 2B 31 20 .. STORE C+1
0194C0: 54 4F 20 43 0D 0A 20 20 45 4E 44 44 4F 0D 0A 20 TO C.. ENDDO..
0194D0: 20 52 45 4C 45 41 53 45 20 41 4C 4C 20 45 58 43 RELEASE ALL EXC
0194E0: 45 50 54 20 4D 46 49 4C 45 0D 0A 20 20 52 45 54 EPT MFILE.. RET
0194F0: 55 52 4E 0D 0A 45 4E 44 49 46 0D 0A 40 20 34 2C URN..ENDIF..@ 4,
019500: 75 65 20 27 0D 0A 20 20 40 20 32 31 2C 31 20 47 ue '.. @ 21,1 G
019510: 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 52 45 41 ET M.TEMP.. REA
019520: 44 0D 0A 20 20 43 4C 45 41 52 20 47 45 54 53 0D D.. CLEAR GETS.
019530: 0A 20 20 50 41 43 4B 0D 0A 20 20 40 20 32 30 2C . PACK.. @ 20,
019540: 30 0D 0A 20 20 40 20 32 31 2C 30 0D 0A 20 20 40 0.. @ 21,0.. @
019550: 20 32 31 2C 35 20 53 41 59 20 27 43 6F 6E 67 72 21,5 SAY 'Congr
019560: 61 74 75 6C 61 74 69 6F 6E 73 2C 20 79 6F 75 20 atulations, you
019570: 68 61 76 65 20 73 75 63 63 65 73 73 66 75 6C 6C have successfull
019580: 79 20 64 65 6C 65 74 65 64 20 72 65 63 6F 72 64 y deleted record
019590: 20 27 3B 0D 0A 20 2B 20 4D 2E 45 44 49 54 0D 0A ';.. + M.EDIT..
0195A0: 45 4C 53 45 0D 0A 20 20 40 20 32 33 2C 30 20 53 ELSE.. @ 23,0 S
0195B0: 41 59 20 27 2E 20 52 45 43 41 4C 4C 27 0D 0A 20 AY '. RECALL'..
0195C0: 20 40 20 32 30 2C 35 20 53 41 59 20 27 54 6F 20 @ 20,5 SAY 'To
0195D0: 72 65 63 61 6C 6C 20 74 68 69 73 20 72 65 63 6F recall this reco
0195E0: 72 64 2C 20 79 6F 75 20 6D 75 73 74 20 69 73 73 rd, you must iss
0195F0: 75 65 20 74 68 65 20 63 6F 6D 6D 61 6E 64 20 62 ue the command b
019600: 65 6C 6F 77 3A 2D 27 0D 0A 20 20 53 54 4F 52 45 elow:-'.. STORE
019610: 20 27 20 27 20 54 4F 20 54 45 4D 50 0D 0A 20 20 ' ' TO TEMP..
019620: 40 20 32 31 2C 35 20 53 41 59 20 27 50 72 65 73 @ 21,5 SAY 'Pres
019630: 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E s any key to con
019640: 74 69 6E 75 65 20 27 0D 0A 20 20 40 20 32 31 2C tinue '.. @ 21,
019650: 31 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 1 GET M.TEMP..
019660: 52 45 41 44 0D 0A 20 20 43 4C 45 41 52 20 47 45 READ.. CLEAR GE
019670: 54 53 0D 0A 20 20 52 45 43 41 4C 4C 0D 0A 20 20 TS.. RECALL..
019680: 40 20 32 30 2C 30 0D 0A 20 20 40 20 32 31 2C 30 @ 20,0.. @ 21,0
019690: 0D 0A 20 20 40 20 32 31 2C 35 20 53 41 59 20 27 .. @ 21,5 SAY '
0196A0: 43 6F 6E 67 72 61 74 75 6C 61 74 69 6F 6E 73 2C Congratulations,
0196B0: 20 79 6F 75 20 68 61 76 65 20 73 75 63 63 65 73 you have succes
0196C0: 73 66 75 6C 6C 79 20 72 65 63 61 6C 6C 65 64 20 sfully recalled
0196D0: 72 65 63 6F 72 64 20 27 3B 0D 0A 20 2B 20 4D 2E record ';.. + M.
0196E0: 45 44 49 54 0D 0A 45 4E 44 49 46 0D 0A 53 54 4F EDIT..ENDIF..STO
0196F0: 52 45 20 31 20 54 4F 20 43 0D 0A 44 4F 20 57 48 RE 1 TO C..DO WH
019700: 30 20 0D 0A 54 45 58 54 0D 0A 20 20 20 20 20 59 0 ..TEXT.. Y
019710: 6F 75 20 77 6F 75 6C 64 20 64 69 73 70 6C 61 79 ou would display
019720: 20 64 61 74 61 20 69 6E 20 61 20 64 42 41 53 45 data in a dBASE
019730: 20 49 49 20 66 69 6C 65 20 62 79 20 74 79 70 69 II file by typi
019740: 6E 67 0D 0A 0D 0A 20 20 20 20 20 20 2E 20 44 49 ng.... . DI
019750: 53 50 4C 41 59 20 0D 0A 0D 0A 20 20 20 20 20 54 SPLAY .... T
019760: 6F 20 68 65 6C 70 20 79 6F 75 20 61 6C 6F 6E 67 o help you along
019770: 20 49 20 68 61 76 65 20 61 6C 72 65 61 64 79 20 I have already
019780: 65 6E 74 65 72 65 64 20 74 68 65 20 44 49 53 50 entered the DISP
019790: 4C 41 59 20 2D 0D 0A 20 20 20 20 20 73 68 6F 77 LAY -.. show
0197A0: 6E 20 62 65 6C 6F 77 20 74 68 65 20 6C 69 6E 65 n below the line
0197B0: 2E 0D 0A 20 20 20 20 20 20 0D 0A 45 4E 44 54 45 ... ..ENDTE
0197C0: 58 54 0D 0A 40 20 32 33 2C 30 20 53 41 59 20 27 XT..@ 23,0 SAY '
0197D0: 2E 20 44 49 53 50 4C 41 59 27 0D 0A 53 54 4F 52 . DISPLAY'..STOR
0197E0: 45 20 27 20 27 20 54 4F 20 54 45 4D 50 0D 0A 40 E ' ' TO TEMP..@
0197F0: 20 32 31 2C 35 20 53 41 59 20 27 50 72 65 73 73 21,5 SAY 'Press
019800: 20 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 any key to cont
019810: 69 6E 75 65 20 27 0D 0A 40 20 32 31 2C 31 20 47 inue '..@ 21,1 G
019820: 45 54 20 4D 2E 54 45 4D 50 0D 0A 52 45 41 44 0D ET M.TEMP..READ.
019830: 0A 43 4C 45 41 52 20 47 45 54 53 0D 0A 45 52 41 .CLEAR GETS..ERA
019840: 53 45 0D 0A 40 20 31 2C 31 20 53 41 59 20 27 57 SE..@ 1,1 SAY 'W
019850: 45 4C 43 4F 4D 45 20 20 20 20 20 20 20 20 20 20 ELCOME
019860: 20 20 20 20 20 20 20 20 20 4C 49 53 54 2F 44 49 LIST/DI
019870: 53 50 4C 41 59 20 52 45 43 4F 52 44 53 20 20 20 SPLAY RECORDS
019880: 20 20 20 20 20 20 20 20 20 20 20 20 20 27 20 3B ' ;
019890: 0D 0A 20 20 20 20 20 20 20 20 2B 20 27 20 20 20 .. + '
0198A0: 20 20 64 42 41 53 45 20 49 49 27 0D 0A 40 20 32 dBASE II'..@ 2
0198B0: 2C 31 20 53 41 59 20 55 4E 44 45 52 4C 4E 0D 0A ,1 SAY UNDERLN..
0198C0: 40 20 32 32 2C 31 20 53 41 59 20 55 4E 44 45 52 @ 22,1 SAY UNDER
0198D0: 4C 4E 0D 0A 40 20 31 39 2C 35 20 53 41 59 20 27 LN..@ 19,5 SAY '
0198E0: 42 65 6C 6F 77 20 74 68 65 20 6C 69 6E 65 20 79 Below the line y
0198F0: 6F 75 20 77 69 6C 6C 20 6E 6F 77 20 73 65 65 20 ou will now see
019900: 49 4C 45 20 43 20 3C 20 32 35 0D 0A 20 20 53 54 ILE C < 25.. ST
019910: 4F 52 45 20 43 2B 31 20 54 4F 20 43 0D 0A 45 4E ORE C+1 TO C..EN
019920: 44 44 4F 0D 0A 40 20 32 31 2C 30 0D 0A 40 20 32 DDO..@ 21,0..@ 2
019930: 33 2C 30 20 53 41 59 20 4D 2E 42 4C 41 4E 4B 20 3,0 SAY M.BLANK
019940: 0D 0A 40 20 31 31 2C 32 37 20 53 41 59 20 27 52 ..@ 11,27 SAY 'R
019950: 45 54 55 52 4E 49 4E 47 20 54 4F 20 4D 41 49 4E ETURNING TO MAIN
019960: 20 4D 45 4E 55 27 0D 0A 40 20 32 30 2C 31 0D 0A MENU'..@ 20,1..
019970: 53 54 4F 52 45 20 31 20 54 4F 20 43 0D 0A 44 4F STORE 1 TO C..DO
019980: 20 57 48 49 4C 45 20 43 20 3C 20 32 35 0D 0A 20 WHILE C < 25..
019990: 20 53 54 4F 52 45 20 43 2B 31 20 54 4F 20 43 0D STORE C+1 TO C.
0199A0: 0A 45 4E 44 44 4F 0D 0A 52 45 4C 45 41 53 45 20 .ENDDO..RELEASE
0199B0: 41 4C 4C 20 45 58 43 45 50 54 20 4D 46 49 4C 45 ALL EXCEPT MFILE
0199C0: 0D 0A 53 45 4C 45 43 54 20 53 45 43 4F 4E 44 41 ..SELECT SECONDA
0199D0: 52 59 0D 0A 55 53 45 0D 0A 53 45 4C 45 43 54 20 RY..USE..SELECT
0199E0: 50 52 49 4D 41 52 59 0D 0A 44 45 4C 45 54 45 20 PRIMARY..DELETE
0199F0: 46 49 4C 45 20 54 45 4D 50 31 0D 0A 52 45 54 55 FILE TEMP1..RETU
019A00: 52 4E 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A RN..............
019A10: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
019A20: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
019A30: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
019A40: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
019A50: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
019A60: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
019A70: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
019A80: 20 23 20 27 0D 0A 20 20 40 20 34 2C 31 30 20 53 # '.. @ 4,10 S
019A90: 41 59 20 23 0D 0A 20 20 53 54 4F 52 45 20 46 20 AY #.. STORE F
019AA0: 54 4F 20 4E 4F 43 4F 4E 54 2C 4C 41 53 54 52 45 TO NOCONT,LASTRE
019AB0: 43 0D 0A 20 20 44 4F 20 57 48 49 4C 45 20 2E 4E C.. DO WHILE .N
019AC0: 4F 54 2E 20 4D 2E 4E 4F 43 4F 4E 54 0D 0A 20 20 OT. M.NOCONT..
019AD0: 20 20 53 45 4C 45 43 54 20 53 45 43 4F 4E 44 41 SELECT SECONDA
019AE0: 52 59 0D 0A 20 20 20 20 53 54 4F 52 45 20 35 20 RY.. STORE 5
019AF0: 54 4F 20 4C 49 4E 45 0D 0A 20 20 20 20 53 54 4F TO LINE.. STO
019B00: 74 68 65 20 63 6F 6D 70 6C 65 74 65 20 63 6F 6D the complete com
019B10: 6D 61 6E 64 27 0D 0A 40 20 32 30 2C 35 20 53 41 mand'..@ 20,5 SA
019B20: 59 20 27 74 6F 20 44 49 53 50 4C 41 59 20 74 68 Y 'to DISPLAY th
019B30: 65 20 66 75 6C 6C 20 66 69 6C 65 20 61 73 20 79 e full file as y
019B40: 6F 75 20 77 6F 75 6C 64 20 74 79 70 65 20 69 74 ou would type it
019B50: 20 79 6F 75 72 73 65 6C 66 2E 27 20 0D 0A 40 20 yourself.' ..@
019B60: 32 33 2C 30 20 53 41 59 20 27 2E 20 44 49 53 50 23,0 SAY '. DISP
019B70: 4C 41 59 20 41 4C 4C 27 0D 0A 53 54 4F 52 45 20 LAY ALL'..STORE
019B80: 27 20 27 20 54 4F 20 52 45 50 4C 59 0D 0A 44 4F ' ' TO REPLY..DO
019B90: 20 57 48 49 4C 45 20 2E 4E 4F 54 2E 20 4D 2E 52 WHILE .NOT. M.R
019BA0: 45 50 4C 59 24 27 59 4E 27 0D 0A 20 20 40 20 32 EPLY$'YN'.. @ 2
019BB0: 31 2C 30 0D 0A 20 20 40 20 32 31 2C 35 20 53 41 1,0.. @ 21,5 SA
019BC0: 59 20 27 44 6F 20 79 6F 75 20 77 69 73 68 20 74 Y 'Do you wish t
019BD0: 6F 20 64 6F 20 74 68 69 73 3F 20 59 2F 4E 20 27 o do this? Y/N '
019BE0: 0D 0A 20 20 40 20 32 31 2C 31 20 47 45 54 20 4D .. @ 21,1 GET M
019BF0: 2E 52 45 50 4C 59 20 50 49 43 54 20 27 21 27 0D .REPLY PICT '!'.
019C00: 0A 20 20 52 45 41 44 0D 0A 20 20 43 4C 45 41 52 . READ.. CLEAR
019C10: 20 47 45 54 53 0D 0A 45 4E 44 44 4F 0D 0A 40 20 GETS..ENDDO..@
019C20: 31 39 2C 30 0D 0A 40 20 32 30 2C 30 0D 0A 40 20 19,0..@ 20,0..@
019C30: 32 31 2C 30 0D 0A 40 20 32 33 2C 30 20 53 41 59 21,0..@ 23,0 SAY
019C40: 20 4D 2E 42 4C 41 4E 4B 32 0D 0A 49 46 20 4D 2E M.BLANK2..IF M.
019C50: 52 45 50 4C 59 3D 27 59 27 0D 0A 20 20 45 52 41 REPLY='Y'.. ERA
019C60: 53 45 0D 0A 20 20 40 20 31 2C 31 20 53 41 59 20 SE.. @ 1,1 SAY
019C70: 27 57 45 4C 43 4F 4D 45 20 20 20 20 20 20 20 20 'WELCOME
019C80: 20 20 20 20 20 20 20 20 20 20 20 4C 49 53 54 2F LIST/
019C90: 44 49 53 50 4C 41 59 20 52 45 43 4F 52 44 53 20 DISPLAY RECORDS
019CA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 '
019CB0: 20 3B 0D 0A 20 20 20 20 20 20 20 20 2B 20 27 20 ;.. + '
019CC0: 20 20 20 20 64 42 41 53 45 20 49 49 27 0D 0A 20 dBASE II'..
019CD0: 20 40 20 32 2C 31 20 53 41 59 20 55 4E 44 45 52 @ 2,1 SAY UNDER
019CE0: 4C 4E 0D 0A 20 20 44 49 53 50 4C 41 59 20 41 4C LN.. DISPLAY AL
019CF0: 4C 0D 0A 20 20 3F 0D 0A 20 20 3F 0D 0A 20 20 3F L.. ?.. ?.. ?
019D00: 53 54 4F 52 45 20 27 20 20 20 20 20 20 20 20 20 STORE '
019D10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019D20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 20 '
019D30: 54 4F 20 42 4C 41 4E 4B 32 0D 0A 53 54 4F 52 45 TO BLANK2..STORE
019D40: 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D '--------------
019D50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
019D60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20 54 4F 20 55 4E ---------' TO UN
019D70: 44 45 52 4C 4E 0D 0A 53 54 4F 52 45 20 55 4E 44 DERLN..STORE UND
019D80: 45 52 4C 4E 2B 55 4E 44 45 52 4C 4E 20 54 4F 20 ERLN+UNDERLN TO
019D90: 55 4E 44 45 52 4C 4E 0D 0A 53 54 4F 52 45 20 4D UNDERLN..STORE M
019DA0: 2E 42 4C 41 4E 4B 32 2B 4D 2E 42 4C 41 4E 4B 32 .BLANK2+M.BLANK2
019DB0: 20 54 4F 20 42 4C 41 4E 4B 0D 0A 45 52 41 53 45 TO BLANK..ERASE
019DC0: 0D 0A 40 20 31 2C 31 20 53 41 59 20 27 57 45 4C ..@ 1,1 SAY 'WEL
019DD0: 43 4F 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 COME
019DE0: 20 20 20 20 20 20 20 4C 49 53 54 2F 44 49 53 50 LIST/DISP
019DF0: 4C 41 59 20 52 45 43 4F 52 44 53 20 20 20 20 20 LAY RECORDS
019E00: 20 20 20 20 20 20 20 20 20 20 20 27 20 3B 0D 0A ' ;..
019E10: 20 20 20 20 20 20 20 20 2B 20 27 20 20 20 20 20 + '
019E20: 64 42 41 53 45 20 49 49 27 0D 0A 40 20 32 2C 31 dBASE II'..@ 2,1
019E30: 20 53 41 59 20 55 4E 44 45 52 4C 4E 0D 0A 40 20 SAY UNDERLN..@
019E40: 32 32 2C 31 20 53 41 59 20 55 4E 44 45 52 4C 4E 22,1 SAY UNDERLN
019E50: 0D 0A 40 20 34 2C 30 0D 0A 54 45 58 54 0D 0A 20 ..@ 4,0..TEXT..
019E60: 20 20 20 20 20 20 20 20 54 6F 20 6C 69 73 74 20 To list
019E70: 6F 72 20 64 69 73 70 6C 61 79 20 64 61 74 61 20 or display data
019E80: 69 6E 20 61 20 64 42 41 53 45 20 49 49 20 66 69 in a dBASE II fi
019E90: 6C 65 20 79 6F 75 0D 0A 20 20 20 20 20 20 20 20 le you..
019EA0: 20 6D 75 73 74 20 65 6E 73 75 72 65 20 74 68 61 must ensure tha
019EB0: 74 20 79 6F 75 20 68 61 76 65 20 66 69 72 73 74 t you have first
019EC0: 20 6F 70 65 6E 65 64 20 61 20 66 69 6C 65 0D 0A opened a file..
019ED0: 45 4E 44 54 45 58 54 0D 0A 49 46 20 4D 2E 4D 46 ENDTEXT..IF M.MF
019EE0: 49 4C 45 3D 27 20 20 20 20 20 20 20 20 27 0D 0A ILE=' '..
019EF0: 20 20 40 20 32 30 2C 35 20 53 41 59 20 27 4E 6F @ 20,5 SAY 'No
019F00: 0D 0A 20 20 3F 0D 0A 20 20 40 20 30 2C 30 0D 0A .. ?.. @ 0,0..
019F10: 20 20 40 20 31 2C 31 20 53 41 59 20 27 57 45 4C @ 1,1 SAY 'WEL
019F20: 43 4F 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 COME
019F30: 20 20 20 20 20 20 20 4C 49 53 54 2F 44 49 53 50 LIST/DISP
019F40: 4C 41 59 20 52 45 43 4F 52 44 53 20 20 20 20 20 LAY RECORDS
019F50: 20 20 20 20 20 20 20 20 20 20 20 27 20 3B 0D 0A ' ;..
019F60: 20 20 20 20 20 20 20 20 2B 20 27 20 20 20 20 20 + '
019F70: 64 42 41 53 45 20 49 49 27 0D 0A 20 20 40 20 32 dBASE II'.. @ 2
019F80: 2C 31 20 53 41 59 20 55 4E 44 45 52 4C 4E 0D 0A ,1 SAY UNDERLN..
019F90: 20 20 40 20 32 32 2C 31 20 53 41 59 20 55 4E 44 @ 22,1 SAY UND
019FA0: 45 52 4C 4E 0D 0A 20 20 53 54 4F 52 45 20 27 20 ERLN.. STORE '
019FB0: 27 20 54 4F 20 54 45 4D 50 0D 0A 20 20 40 20 32 ' TO TEMP.. @ 2
019FC0: 31 2C 35 20 53 41 59 20 27 50 72 65 73 73 20 61 1,5 SAY 'Press a
019FD0: 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E ny key to contin
019FE0: 75 65 20 27 0D 0A 20 20 40 20 32 31 2C 31 20 47 ue '.. @ 21,1 G
019FF0: 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 52 45 41 ET M.TEMP.. REA
01A000: 44 0D 0A 20 20 43 4C 45 41 52 20 47 45 54 53 0D D.. CLEAR GETS.
01A010: 0A 20 20 45 52 41 53 45 0D 0A 40 20 31 2C 31 20 . ERASE..@ 1,1
01A020: 53 41 59 20 27 57 45 4C 43 4F 4D 45 20 20 20 20 SAY 'WELCOME
01A030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4C L
01A040: 49 53 54 2F 44 49 53 50 4C 41 59 20 52 45 43 4F IST/DISPLAY RECO
01A050: 52 44 53 20 20 20 20 20 20 20 20 20 20 20 20 20 RDS
01A060: 20 20 20 27 20 3B 0D 0A 20 20 20 20 20 20 20 20 ' ;..
01A070: 2B 20 27 20 20 20 20 20 64 42 41 53 45 20 49 49 + ' dBASE II
01A080: 27 0D 0A 20 20 40 20 32 2C 31 20 53 41 59 20 55 '.. @ 2,1 SAY U
01A090: 4E 44 45 52 4C 4E 0D 0A 20 20 40 20 32 32 2C 31 NDERLN.. @ 22,1
01A0A0: 20 53 41 59 20 55 4E 44 45 52 4C 4E 0D 0A 20 20 SAY UNDERLN..
01A0B0: 40 20 31 31 2C 32 37 20 53 41 59 20 27 52 45 54 @ 11,27 SAY 'RET
01A0C0: 55 52 4E 49 4E 47 20 54 4F 20 4D 41 49 4E 20 4D URNING TO MAIN M
01A0D0: 45 4E 55 27 0D 0A 20 20 40 20 32 30 2C 31 0D 0A ENU'.. @ 20,1..
01A0E0: 20 20 53 54 4F 52 45 20 31 20 54 4F 20 43 0D 0A STORE 1 TO C..
01A0F0: 20 20 44 4F 20 57 48 49 4C 45 20 43 20 3C 20 32 DO WHILE C < 2
01A100: 20 66 69 6C 65 20 69 6E 20 75 73 65 20 70 6C 65 file in use ple
01A110: 61 73 65 20 4F 50 45 4E 20 66 72 6F 6D 20 6D 61 ase OPEN from ma
01A120: 69 6E 20 6D 65 6E 75 27 0D 0A 20 20 53 54 4F 52 in menu'.. STOR
01A130: 45 20 27 20 27 20 54 4F 20 54 45 4D 50 0D 0A 20 E ' ' TO TEMP..
01A140: 20 40 20 32 31 2C 35 20 53 41 59 20 27 50 72 65 @ 21,5 SAY 'Pre
01A150: 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F ss any key to co
01A160: 6E 74 69 6E 75 65 20 27 0D 0A 20 20 40 20 32 31 ntinue '.. @ 21
01A170: 2C 31 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 ,1 GET M.TEMP..
01A180: 20 52 45 41 44 0D 0A 20 20 43 4C 45 41 52 20 47 READ.. CLEAR G
01A190: 45 54 53 0D 0A 20 20 45 52 41 53 45 0D 0A 40 20 ETS.. ERASE..@
01A1A0: 31 2C 31 20 53 41 59 20 27 57 45 4C 43 4F 4D 45 1,1 SAY 'WELCOME
01A1B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01A1C0: 20 20 20 4C 49 53 54 2F 44 49 53 50 4C 41 59 20 LIST/DISPLAY
01A1D0: 52 45 43 4F 52 44 53 20 20 20 20 20 20 20 20 20 RECORDS
01A1E0: 20 20 20 20 20 20 20 27 20 3B 0D 0A 20 20 20 20 ' ;..
01A1F0: 20 20 20 20 2B 20 27 20 20 20 20 20 64 42 41 53 + ' dBAS
01A200: 45 20 49 49 27 0D 0A 20 20 40 20 32 2C 31 20 53 E II'.. @ 2,1 S
01A210: 41 59 20 55 4E 44 45 52 4C 4E 0D 0A 20 20 40 20 AY UNDERLN.. @
01A220: 32 32 2C 31 20 53 41 59 20 55 4E 44 45 52 4C 4E 22,1 SAY UNDERLN
01A230: 0D 0A 20 20 40 20 31 31 2C 32 37 20 53 41 59 20 .. @ 11,27 SAY
01A240: 27 52 45 54 55 52 4E 49 4E 47 20 54 4F 20 4D 41 'RETURNING TO MA
01A250: 49 4E 20 4D 45 4E 55 27 0D 0A 20 20 40 20 32 30 IN MENU'.. @ 20
01A260: 2C 31 0D 0A 20 20 53 54 4F 52 45 20 31 20 54 4F ,1.. STORE 1 TO
01A270: 20 43 0D 0A 20 20 44 4F 20 57 48 49 4C 45 20 43 C.. DO WHILE C
01A280: 20 3C 20 32 35 0D 0A 20 20 20 20 53 54 4F 52 45 < 25.. STORE
01A290: 20 43 2B 31 20 54 4F 20 43 0D 0A 20 20 45 4E 44 C+1 TO C.. END
01A2A0: 44 4F 0D 0A 20 20 52 45 4C 45 41 53 45 20 41 4C DO.. RELEASE AL
01A2B0: 4C 20 45 58 43 45 50 54 20 4D 46 49 4C 45 0D 0A L EXCEPT MFILE..
01A2C0: 20 20 52 45 54 55 52 4E 0D 0A 45 4E 44 49 46 0D RETURN..ENDIF.
01A2D0: 0A 40 20 32 30 2C 35 20 53 41 59 20 27 54 68 65 .@ 20,5 SAY 'The
01A2E0: 20 66 69 6C 65 20 70 72 65 73 65 6E 74 6C 79 20 file presently
01A2F0: 69 6E 20 75 73 65 20 69 73 20 2D 20 27 2B 4D 2E in use is - '+M.
01A300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01A310: 16 00 01 00 02 09 52 E5 16 00 41 02 00 00 00 02 ......R...A.....
01A320: 16 00 46 02 00 00 00 02 16 00 42 02 00 00 00 02 ..F.......B.....
01A330: 16 00 47 02 00 00 00 02 16 00 43 02 00 00 00 02 ..G.......C.....
01A340: 16 00 48 02 00 00 00 02 16 00 44 02 00 00 00 02 ..H.......D.....
01A350: 16 00 49 02 00 00 00 02 16 00 45 02 00 00 00 02 ..I.......E.....
01A360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A400: 35 0D 0A 20 20 20 20 53 54 4F 52 45 20 43 2B 31 5.. STORE C+1
01A410: 20 54 4F 20 43 0D 0A 20 20 45 4E 44 44 4F 20 0D TO C.. ENDDO .
01A420: 0A 20 20 52 45 54 55 52 4E 0D 0A 45 4E 44 49 46 . RETURN..ENDIF
01A430: 0D 0A 40 20 31 31 2C 32 30 20 53 41 59 20 27 50 ..@ 11,20 SAY 'P
01A440: 6C 65 61 73 65 20 57 61 69 74 20 2E 2E 2E 20 6E lease Wait ... n
01A450: 6F 77 20 6C 6F 61 64 69 6E 67 20 74 68 65 20 6E ow loading the n
01A460: 65 78 74 20 57 65 6C 63 6F 6D 65 20 66 69 6C 65 ext Welcome file
01A470: 27 0D 0A 40 20 32 30 2C 31 0D 0A 53 45 4C 45 43 '..@ 20,1..SELEC
01A480: 54 20 53 45 43 4F 0D 0A 55 53 45 0D 0A 53 45 4C T SECO..USE..SEL
01A490: 45 43 54 20 50 52 49 4D 41 52 59 0D 0A 55 53 45 ECT PRIMARY..USE
01A4A0: 20 26 4D 46 49 4C 45 0D 0A 43 4F 50 59 20 54 4F &MFILE..COPY TO
01A4B0: 20 54 45 4D 50 53 54 52 55 20 53 54 52 55 20 45 TEMPSTRU STRU E
01A4C0: 58 54 45 4E 44 45 44 0D 0A 53 45 4C 45 43 54 20 XTENDED..SELECT
01A4D0: 53 45 43 4F 4E 44 41 52 59 20 0D 0A 55 53 45 20 SECONDARY ..USE
01A4E0: 54 45 4D 50 53 54 52 55 0D 0A 40 20 31 31 2C 30 TEMPSTRU..@ 11,0
01A4F0: 0D 0A 47 4F 20 42 4F 54 54 4F 4D 0D 0A 53 54 4F ..GO BOTTOM..STO
01A500: 52 45 20 23 20 54 4F 20 46 49 4C 43 4E 54 0D 0A RE # TO FILCNT..
01A510: 47 4F 20 54 4F 50 0D 0A 40 20 34 2C 35 20 53 41 GO TOP..@ 4,5 SA
01A520: 59 20 27 59 6F 75 20 61 72 65 20 6E 6F 77 20 61 Y 'You are now a
01A530: 73 6B 65 64 20 74 6F 20 73 65 6C 65 63 74 20 77 sked to select w
01A540: 68 69 63 68 20 66 69 65 6C 64 73 20 79 6F 75 20 hich fields you
01A550: 77 69 73 68 20 74 6F 20 44 49 53 50 4C 41 59 2E wish to DISPLAY.
01A560: 20 54 6F 27 0D 0A 40 20 35 2C 35 20 53 41 59 20 To'..@ 5,5 SAY
01A570: 27 64 6F 20 74 68 69 73 20 6A 75 73 74 20 65 6E 'do this just en
01A580: 74 65 72 20 20 74 68 65 20 20 72 65 66 2E 20 6E ter the ref. n
01A590: 75 6D 62 65 72 20 20 61 6E 64 20 70 72 65 73 73 umber and press
01A5A0: 20 63 61 72 72 69 61 67 65 20 72 65 74 75 72 6E carriage return
01A5B0: 2E 27 0D 0A 40 20 36 2C 35 20 53 41 59 20 27 57 .'..@ 6,5 SAY 'W
01A5C0: 65 6C 63 6F 6D 65 20 77 69 6C 6C 20 62 75 69 6C elcome will buil
01A5D0: 64 20 74 68 65 20 63 6F 6D 6D 61 6E 64 2E 20 57 d the command. W
01A5E0: 48 45 4E 20 46 49 4E 49 53 48 45 44 20 4C 45 41 HEN FINISHED LEA
01A5F0: 56 45 20 42 4C 41 4E 4B 2E 27 0D 0A 53 54 4F 52 VE BLANK.'..STOR
01A600: 0A 40 20 32 33 2C 30 20 53 41 59 20 27 2E 20 27 .@ 23,0 SAY '. '
01A610: 2B 4D 2E 53 45 4C 45 43 54 0D 0A 53 45 4C 45 43 +M.SELECT..SELEC
01A620: 54 20 50 52 49 4D 41 52 59 0D 0A 45 52 41 53 45 T PRIMARY..ERASE
01A630: 0D 0A 40 20 31 2C 31 20 53 41 59 20 27 57 45 4C ..@ 1,1 SAY 'WEL
01A640: 43 4F 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 COME
01A650: 20 20 20 20 20 20 20 4C 49 53 54 2F 44 49 53 50 LIST/DISP
01A660: 4C 41 59 20 52 45 43 4F 52 44 53 20 20 20 20 20 LAY RECORDS
01A670: 20 20 20 20 20 20 20 20 20 20 20 27 20 3B 0D 0A ' ;..
01A680: 20 20 20 20 20 20 20 20 2B 20 27 20 20 20 20 20 + '
01A690: 64 42 41 53 45 20 49 49 27 0D 0A 40 20 32 2C 31 dBASE II'..@ 2,1
01A6A0: 20 53 41 59 20 55 4E 44 45 52 4C 4E 0D 0A 40 20 SAY UNDERLN..@
01A6B0: 32 32 2C 31 20 53 41 59 20 55 4E 44 45 52 4C 4E 22,1 SAY UNDERLN
01A6C0: 0D 0A 40 20 32 33 2C 30 20 53 41 59 20 27 2E 20 ..@ 23,0 SAY '.
01A6D0: 27 2B 4D 2E 53 45 4C 45 43 54 0D 0A 40 20 31 39 '+M.SELECT..@ 19
01A6E0: 2C 35 20 53 41 59 20 27 42 65 6C 6F 77 20 74 68 ,5 SAY 'Below th
01A6F0: 65 20 6C 69 6E 65 20 79 6F 75 20 77 69 6C 6C 20 e line you will
01A700: 6E 6F 77 20 73 65 65 20 74 68 65 20 63 6F 6D 70 now see the comp
01A710: 6C 65 74 65 20 63 6F 6D 6D 61 6E 64 27 0D 0A 40 lete command'..@
01A720: 20 32 30 2C 35 20 53 41 59 20 27 61 73 20 79 6F 20,5 SAY 'as yo
01A730: 75 20 77 6F 75 6C 64 20 74 79 70 65 20 69 74 20 u would type it
01A740: 79 6F 75 72 73 65 6C 66 2E 27 20 0D 0A 53 54 4F yourself.' ..STO
01A750: 52 45 20 27 20 27 20 54 4F 20 54 45 4D 50 0D 0A RE ' ' TO TEMP..
01A760: 40 20 32 31 2C 35 20 53 41 59 20 27 50 72 65 73 @ 21,5 SAY 'Pres
01A770: 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E s any key to con
01A780: 74 69 6E 75 65 20 27 0D 0A 40 20 32 31 2C 31 20 tinue '..@ 21,1
01A790: 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 52 45 41 44 GET M.TEMP..READ
01A7A0: 0D 0A 43 4C 45 41 52 20 47 45 54 53 0D 0A 53 54 ..CLEAR GETS..ST
01A7B0: 4F 52 45 20 4C 45 4E 28 4D 2E 53 45 4C 45 43 54 ORE LEN(M.SELECT
01A7C0: 29 2B 33 20 54 4F 20 43 4F 4C 0D 0A 53 54 4F 52 )+3 TO COL..STOR
01A7D0: 45 20 32 32 20 54 4F 20 4C 49 4E 45 0D 0A 49 46 E 22 TO LINE..IF
01A7E0: 20 4D 2E 43 4F 4C 3E 37 39 0D 0A 20 20 53 54 4F M.COL>79.. STO
01A7F0: 52 45 20 32 33 20 54 4F 20 4C 49 4E 45 0D 0A 20 RE 23 TO LINE..
01A800: 45 20 27 44 49 53 50 4C 41 59 20 41 4C 4C 20 46 E 'DISPLAY ALL F
01A810: 49 45 4C 44 53 20 27 20 54 4F 20 53 45 4C 45 43 IELDS ' TO SELEC
01A820: 54 0D 0A 53 54 4F 52 45 20 38 20 54 4F 20 4C 49 T..STORE 8 TO LI
01A830: 4E 45 0D 0A 53 54 4F 52 45 20 31 20 54 4F 20 43 NE..STORE 1 TO C
01A840: 4F 55 4E 54 0D 0A 53 54 4F 52 45 20 31 31 20 54 OUNT..STORE 11 T
01A850: 4F 20 52 45 43 43 4E 54 0D 0A 53 54 4F 52 45 20 O RECCNT..STORE
01A860: 31 20 54 4F 20 43 4F 4C 0D 0A 53 54 4F 52 45 20 1 TO COL..STORE
01A870: 54 20 54 4F 20 43 4F 4E 54 0D 0A 44 4F 20 57 48 T TO CONT..DO WH
01A880: 49 4C 45 20 4D 2E 43 4F 4E 54 0D 0A 20 20 44 4F ILE M.CONT.. DO
01A890: 20 57 48 49 4C 45 20 4D 2E 4C 49 4E 45 3C 31 35 WHILE M.LINE<15
01A8A0: 2E 41 4E 44 2E 2E 4E 4F 54 2E 45 4F 46 0D 0A 20 .AND..NOT.EOF..
01A8B0: 20 20 20 40 20 4D 2E 4C 49 4E 45 2C 4D 2E 43 4F @ M.LINE,M.CO
01A8C0: 4C 20 53 41 59 20 53 54 52 28 4D 2E 43 4F 55 4E L SAY STR(M.COUN
01A8D0: 54 2C 32 29 0D 0A 20 20 20 20 40 20 4D 2E 4C 49 T,2).. @ M.LI
01A8E0: 4E 45 2C 4D 2E 43 4F 4C 2B 33 20 53 41 59 20 46 NE,M.COL+3 SAY F
01A8F0: 49 45 4C 44 3A 4E 41 4D 45 2B 27 2C 27 2B 46 49 IELD:NAME+','+FI
01A900: 45 4C 44 3A 54 59 50 45 2B 27 2C 27 2B 53 54 52 ELD:TYPE+','+STR
01A910: 28 46 49 45 4C 44 3A 4C 45 4E 2C 33 29 2B 27 2C (FIELD:LEN,3)+',
01A920: 27 3B 0D 0A 20 20 20 20 2B 53 54 52 28 46 49 45 ';.. +STR(FIE
01A930: 4C 44 3A 44 45 43 2C 32 29 0D 0A 20 20 20 20 53 LD:DEC,2).. S
01A940: 54 4F 52 45 20 4D 2E 4C 49 4E 45 2B 31 20 54 4F TORE M.LINE+1 TO
01A950: 20 4C 49 4E 45 0D 0A 20 20 20 20 53 54 4F 52 45 LINE.. STORE
01A960: 20 4D 2E 43 4F 55 4E 54 2B 31 20 54 4F 20 43 4F M.COUNT+1 TO CO
01A970: 55 4E 54 0D 0A 20 20 20 20 53 4B 49 50 0D 0A 20 UNT.. SKIP..
01A980: 20 45 4E 44 44 4F 0D 0A 20 20 49 46 20 45 4F 46 ENDDO.. IF EOF
01A990: 20 0D 0A 20 20 20 20 53 54 4F 52 45 20 46 20 54 .. STORE F T
01A9A0: 4F 20 43 4F 4E 54 0D 0A 20 20 20 20 4C 4F 4F 50 O CONT.. LOOP
01A9B0: 0D 0A 20 20 45 4E 44 49 46 0D 0A 20 20 53 54 4F .. ENDIF.. STO
01A9C0: 52 45 20 38 20 54 4F 20 4C 49 4E 45 0D 0A 20 20 RE 8 TO LINE..
01A9D0: 53 54 4F 52 45 20 4D 2E 43 4F 4C 2B 32 36 20 54 STORE M.COL+26 T
01A9E0: 4F 20 43 4F 4C 0D 0A 45 4E 44 44 4F 0D 0A 53 54 O COL..ENDDO..ST
01A9F0: 4F 52 45 20 54 20 54 4F 20 43 4F 4E 54 0D 0A 53 ORE T TO CONT..S
01AA00: 20 53 54 4F 52 45 20 4D 2E 43 4F 4C 2D 37 39 20 STORE M.COL-79
01AA10: 54 4F 20 43 4F 4C 0D 0A 45 4E 44 49 46 0D 0A 45 TO COL..ENDIF..E
01AA20: 52 41 53 45 20 0D 0A 40 20 31 2C 31 20 53 41 59 RASE ..@ 1,1 SAY
01AA30: 20 27 57 45 4C 43 4F 4D 45 20 20 20 20 20 20 20 'WELCOME
01AA40: 20 20 20 20 20 20 20 20 20 20 20 20 4C 49 53 54 LIST
01AA50: 2F 44 49 53 50 4C 41 59 20 52 45 43 4F 52 44 53 /DISPLAY RECORDS
01AA60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01AA70: 27 20 3B 0D 0A 20 20 20 20 20 20 20 20 2B 20 27 ' ;.. + '
01AA80: 20 20 20 20 20 64 42 41 53 45 20 49 49 27 0D 0A dBASE II'..
01AA90: 40 20 32 2C 31 20 53 41 59 20 55 4E 44 45 52 4C @ 2,1 SAY UNDERL
01AAA0: 4E 0D 0A 26 53 45 4C 45 43 54 0D 0A 3F 0D 0A 3F N..&SELECT..?..?
01AAB0: 0D 0A 3F 0D 0A 3F 20 0D 0A 40 20 30 2C 30 0D 0A ..?..? ..@ 0,0..
01AAC0: 40 20 31 2C 31 20 53 41 59 20 27 57 45 4C 43 4F @ 1,1 SAY 'WELCO
01AAD0: 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ME
01AAE0: 20 20 20 20 20 4C 49 53 54 2F 44 49 53 50 4C 41 LIST/DISPLA
01AAF0: 59 20 52 45 43 4F 52 44 53 20 20 20 20 20 20 20 Y RECORDS
01AB00: 20 20 20 20 20 20 20 20 20 27 20 3B 0D 0A 20 20 ' ;..
01AB10: 20 20 20 20 20 20 2B 20 27 20 20 20 20 20 64 42 + ' dB
01AB20: 41 53 45 20 49 49 27 0D 0A 40 20 32 2C 31 20 53 ASE II'..@ 2,1 S
01AB30: 41 59 20 55 4E 44 45 52 4C 4E 0D 0A 40 20 32 32 AY UNDERLN..@ 22
01AB40: 2C 31 20 53 41 59 20 55 4E 44 45 52 4C 4E 0D 0A ,1 SAY UNDERLN..
01AB50: 53 54 4F 52 45 20 27 20 27 20 54 4F 20 54 45 4D STORE ' ' TO TEM
01AB60: 50 0D 0A 40 20 32 31 2C 35 20 53 41 59 20 27 50 P..@ 21,5 SAY 'P
01AB70: 72 65 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 ress any key to
01AB80: 63 6F 6E 74 69 6E 75 65 20 27 0D 0A 40 20 32 31 continue '..@ 21
01AB90: 2C 31 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 52 ,1 GET M.TEMP..R
01ABA0: 45 41 44 0D 0A 43 4C 45 41 52 20 47 45 54 53 0D EAD..CLEAR GETS.
01ABB0: 0A 45 52 41 53 45 0D 0A 40 20 31 2C 31 20 53 41 .ERASE..@ 1,1 SA
01ABC0: 59 20 27 57 45 4C 43 4F 4D 45 20 20 20 20 20 20 Y 'WELCOME
01ABD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 4C 49 53 LIS
01ABE0: 54 2F 44 49 53 50 4C 41 59 20 52 45 43 4F 52 44 T/DISPLAY RECORD
01ABF0: 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 S
01AC00: 54 4F 52 45 20 54 20 54 4F 20 46 49 52 53 54 0D TORE T TO FIRST.
01AC10: 0A 47 4F 20 42 4F 54 54 4F 4D 0D 0A 53 54 4F 52 .GO BOTTOM..STOR
01AC20: 45 20 23 20 54 4F 20 42 4F 54 54 4F 4D 0D 0A 44 E # TO BOTTOM..D
01AC30: 4F 20 57 48 49 4C 45 20 4D 2E 43 4F 4E 54 0D 0A O WHILE M.CONT..
01AC40: 20 20 49 46 20 4C 45 4E 28 4D 2E 53 45 4C 45 43 IF LEN(M.SELEC
01AC50: 54 29 3E 31 30 30 0D 0A 20 20 20 20 40 20 32 33 T)>100.. @ 23
01AC60: 2C 30 20 53 41 59 20 27 2E 20 27 2B 4D 2E 53 45 ,0 SAY '. '+M.SE
01AC70: 4C 45 43 54 0D 0A 20 20 20 20 53 54 4F 52 45 20 LECT.. STORE
01AC80: 27 20 27 20 54 4F 20 52 45 50 4C 59 0D 0A 20 20 ' ' TO REPLY..
01AC90: 20 20 40 20 32 31 2C 35 20 53 41 59 3B 0D 0A 20 @ 21,5 SAY;..
01ACA0: 20 20 20 27 53 65 6C 65 63 74 69 6F 6E 20 69 73 'Selection is
01ACB0: 20 6E 6F 77 20 6C 61 72 67 65 20 65 6E 6F 75 67 now large enoug
01ACC0: 68 20 66 6F 72 20 64 65 6D 6F 20 2D 20 70 72 65 h for demo - pre
01ACD0: 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F ss any key to co
01ACE0: 6E 74 69 6E 75 65 27 0D 0A 20 20 20 20 40 20 32 ntinue'.. @ 2
01ACF0: 31 2C 31 20 47 45 54 20 4D 2E 52 45 50 4C 59 0D 1,1 GET M.REPLY.
01AD00: 0A 20 20 20 20 52 45 41 44 0D 0A 20 20 20 20 43 . READ.. C
01AD10: 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 20 20 53 LEAR GETS.. S
01AD20: 54 4F 52 45 20 46 20 54 4F 20 43 4F 4E 54 0D 0A TORE F TO CONT..
01AD30: 20 20 20 20 4C 4F 4F 50 0D 0A 20 20 45 4E 44 49 LOOP.. ENDI
01AD40: 46 0D 0A 20 20 40 20 32 33 2C 30 20 53 41 59 20 F.. @ 23,0 SAY
01AD50: 27 2E 20 27 2B 4D 2E 53 45 4C 45 43 54 0D 0A 20 '. '+M.SELECT..
01AD60: 20 53 54 4F 52 45 20 27 20 20 27 20 54 4F 20 52 STORE ' ' TO R
01AD70: 45 46 0D 0A 20 20 40 20 31 37 2C 35 20 53 41 59 EF.. @ 17,5 SAY
01AD80: 20 27 45 6E 74 65 72 20 72 65 66 65 72 65 6E 63 'Enter referenc
01AD90: 65 20 6E 75 6D 62 65 72 20 2D 20 27 20 47 45 54 e number - ' GET
01ADA0: 20 4D 2E 52 45 46 20 50 49 43 54 20 27 39 39 27 M.REF PICT '99'
01ADB0: 0D 0A 20 20 52 45 41 44 0D 0A 20 20 43 4C 45 41 .. READ.. CLEA
01ADC0: 52 20 47 45 54 53 0D 0A 20 20 49 46 20 56 41 4C R GETS.. IF VAL
01ADD0: 28 4D 2E 52 45 46 29 3D 30 0D 0A 20 20 20 20 49 (M.REF)=0.. I
01ADE0: 46 20 4D 2E 46 49 52 53 54 0D 0A 20 20 20 20 20 F M.FIRST..
01ADF0: 20 53 54 4F 52 45 20 27 20 27 20 54 4F 20 54 45 STORE ' ' TO TE
01AE00: 20 27 20 3B 0D 0A 20 20 20 20 20 20 20 20 2B 20 ' ;.. +
01AE10: 27 20 20 20 20 20 64 42 41 53 45 20 49 49 27 0D ' dBASE II'.
01AE20: 0A 40 20 32 2C 31 20 53 41 59 20 55 4E 44 45 52 .@ 2,1 SAY UNDER
01AE30: 4C 4E 0D 0A 40 20 32 32 2C 31 20 53 41 59 20 55 LN..@ 22,1 SAY U
01AE40: 4E 44 45 52 4C 4E 0D 0A 40 20 31 31 2C 32 37 20 NDERLN..@ 11,27
01AE50: 53 41 59 20 27 52 45 54 55 52 4E 49 4E 47 20 54 SAY 'RETURNING T
01AE60: 4F 20 4D 41 49 4E 20 4D 45 4E 55 27 0D 0A 40 20 O MAIN MENU'..@
01AE70: 32 30 2C 31 0D 0A 53 54 4F 52 45 20 31 20 54 4F 20,1..STORE 1 TO
01AE80: 20 43 0D 0A 44 4F 20 57 48 49 4C 45 20 43 20 3C C..DO WHILE C <
01AE90: 20 32 35 0D 0A 20 20 53 54 4F 52 45 20 43 2B 31 25.. STORE C+1
01AEA0: 20 54 4F 20 43 0D 0A 45 4E 44 44 4F 0D 0A 52 45 TO C..ENDDO..RE
01AEB0: 4C 45 41 53 45 20 41 4C 4C 20 45 58 43 45 50 54 LEASE ALL EXCEPT
01AEC0: 20 4D 46 49 4C 45 0D 0A 53 45 4C 45 20 53 45 43 MFILE..SELE SEC
01AED0: 4F 0D 0A 55 53 45 0D 0A 53 45 4C 45 20 50 52 49 O..USE..SELE PRI
01AEE0: 4D 0D 0A 55 53 45 20 26 4D 46 49 4C 45 0D 0A 44 M..USE &MFILE..D
01AEF0: 45 4C 45 54 45 20 46 49 4C 45 20 54 45 4D 50 53 ELETE FILE TEMPS
01AF00: 54 52 55 2E 44 42 46 0D 0A 52 45 54 55 52 4E 0D TRU.DBF..RETURN.
01AF10: 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01AF20: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01AF30: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01AF40: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01AF50: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01AF60: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01AF70: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01AF80: 6C 66 2E 27 20 0D 0A 20 20 53 54 4F 52 45 20 27 lf.' .. STORE '
01AF90: 20 27 20 54 4F 20 54 45 4D 50 0D 0A 20 20 40 20 ' TO TEMP.. @
01AFA0: 32 31 2C 35 20 53 41 59 20 27 50 72 65 73 73 20 21,5 SAY 'Press
01AFB0: 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 any key to conti
01AFC0: 6E 75 65 20 27 0D 0A 20 20 40 20 32 31 2C 31 20 nue '.. @ 21,1
01AFD0: 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 52 45 GET M.TEMP.. RE
01AFE0: 41 44 0D 0A 20 20 43 4C 45 41 52 20 47 45 54 53 AD.. CLEAR GETS
01AFF0: 0D 0A 20 20 40 20 31 39 2C 30 0D 0A 20 20 40 20 .. @ 19,0.. @
01B000: 4D 50 0D 0A 20 20 20 20 20 20 40 20 32 31 2C 35 MP.. @ 21,5
01B010: 20 53 41 59 20 27 59 6F 75 20 4D 55 53 54 20 6D SAY 'You MUST m
01B020: 61 6B 65 20 61 20 73 65 6C 65 63 74 69 6F 6E 20 ake a selection
01B030: 2D 20 3B 0D 0A 50 72 65 73 73 20 61 6E 79 20 6B - ;..Press any k
01B040: 65 79 20 74 6F 20 72 65 74 72 79 20 27 20 0D 0A ey to retry ' ..
01B050: 20 20 20 20 20 20 40 20 32 31 2C 31 20 47 45 54 @ 21,1 GET
01B060: 20 4D 2E 54 45 4D 50 0D 0A 20 20 20 20 20 20 52 M.TEMP.. R
01B070: 45 41 44 0D 0A 20 20 20 20 20 20 43 4C 45 41 52 EAD.. CLEAR
01B080: 20 47 45 54 53 0D 0A 20 20 20 20 20 20 40 20 31 GETS.. @ 1
01B090: 36 2C 30 0D 0A 20 20 20 20 20 20 40 20 31 37 2C 6,0.. @ 17,
01B0A0: 30 0D 0A 20 20 20 20 20 20 40 20 31 38 2C 30 0D 0.. @ 18,0.
01B0B0: 0A 20 20 20 20 20 20 40 20 31 39 2C 30 0D 0A 20 . @ 19,0..
01B0C0: 20 20 20 20 20 40 20 32 30 2C 30 0D 0A 20 20 20 @ 20,0..
01B0D0: 20 20 20 40 20 32 31 2C 31 0D 0A 20 20 20 20 20 @ 21,1..
01B0E0: 20 4C 4F 4F 50 0D 0A 20 20 20 20 45 4E 44 49 46 LOOP.. ENDIF
01B0F0: 0D 0A 20 20 20 20 53 54 4F 52 45 20 46 20 54 4F .. STORE F TO
01B100: 20 43 4F 4E 54 20 0D 0A 20 20 20 20 4C 4F 4F 50 CONT .. LOOP
01B110: 0D 0A 20 20 45 4E 44 49 46 0D 0A 20 20 49 46 20 .. ENDIF.. IF
01B120: 56 41 4C 28 4D 2E 52 45 46 29 3E 42 4F 54 54 4F VAL(M.REF)>BOTTO
01B130: 4D 0D 0A 20 20 20 20 53 54 4F 52 45 20 27 20 27 M.. STORE ' '
01B140: 20 54 4F 20 54 45 4D 50 0D 0A 20 20 20 20 40 20 TO TEMP.. @
01B150: 32 31 2C 35 20 53 41 59 20 27 49 6E 76 61 6C 69 21,5 SAY 'Invali
01B160: 64 20 73 65 6C 65 63 74 69 6F 6E 20 2D 20 50 72 d selection - Pr
01B170: 65 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 72 ess any key to r
01B180: 65 74 72 79 20 27 20 0D 0A 20 20 20 20 40 20 32 etry ' .. @ 2
01B190: 31 2C 31 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 1,1 GET M.TEMP..
01B1A0: 20 20 20 20 52 45 41 44 0D 0A 20 20 20 20 43 4C READ.. CL
01B1B0: 45 41 52 20 47 45 54 53 0D 0A 20 20 20 20 40 20 EAR GETS.. @
01B1C0: 31 36 2C 30 0D 0A 20 20 20 20 40 20 31 37 2C 30 16,0.. @ 17,0
01B1D0: 0D 0A 20 20 20 20 40 20 31 38 2C 30 0D 0A 20 20 .. @ 18,0..
01B1E0: 20 20 40 20 31 39 2C 30 0D 0A 20 20 20 20 40 20 @ 19,0.. @
01B1F0: 32 30 2C 30 0D 0A 20 20 20 20 40 20 32 31 2C 31 20,0.. @ 21,1
01B200: 53 54 4F 52 45 20 27 20 20 20 20 20 20 20 20 20 STORE '
01B210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 20 '
01B230: 54 4F 20 42 4C 41 4E 4B 32 0D 0A 53 54 4F 52 45 TO BLANK2..STORE
01B240: 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D '--------------
01B250: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01B260: 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20 54 4F 20 55 4E ---------' TO UN
01B270: 44 45 52 4C 4E 0D 0A 53 54 4F 52 45 20 55 4E 44 DERLN..STORE UND
01B280: 45 52 4C 4E 2B 55 4E 44 45 52 4C 4E 20 54 4F 20 ERLN+UNDERLN TO
01B290: 55 4E 44 45 52 4C 4E 0D 0A 53 54 4F 52 45 20 4D UNDERLN..STORE M
01B2A0: 2E 42 4C 41 4E 4B 32 2B 4D 2E 42 4C 41 4E 4B 32 .BLANK2+M.BLANK2
01B2B0: 20 54 4F 20 42 4C 41 4E 4B 0D 0A 45 52 41 53 45 TO BLANK..ERASE
01B2C0: 0D 0A 40 20 31 2C 31 20 53 41 59 20 27 57 45 4C ..@ 1,1 SAY 'WEL
01B2D0: 43 4F 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 COME
01B2E0: 20 20 20 20 20 20 20 20 20 4C 4F 43 41 54 45 20 LOCATE
01B2F0: 52 45 43 4F 52 44 53 20 20 20 20 20 20 20 20 20 RECORDS
01B300: 20 20 20 20 20 20 20 20 27 20 3B 0D 0A 20 20 20 ' ;..
01B310: 20 20 20 20 20 2B 20 27 20 20 20 20 20 64 42 41 + ' dBA
01B320: 53 45 20 49 49 27 0D 0A 40 20 32 2C 31 20 53 41 SE II'..@ 2,1 SA
01B330: 59 20 4D 2E 55 4E 44 45 52 4C 4E 0D 0A 40 20 32 Y M.UNDERLN..@ 2
01B340: 32 2C 31 20 53 41 59 20 4D 2E 55 4E 44 45 52 4C 2,1 SAY M.UNDERL
01B350: 4E 0D 0A 40 20 34 2C 30 20 0D 0A 54 45 58 54 20 N..@ 4,0 ..TEXT
01B360: 0D 0A 20 20 20 20 20 20 20 54 6F 20 6C 6F 63 61 .. To loca
01B370: 74 65 20 64 61 74 61 20 69 6E 20 61 20 64 42 41 te data in a dBA
01B380: 53 45 20 49 49 20 66 69 6C 65 20 79 6F 75 20 6D SE II file you m
01B390: 75 73 74 20 66 69 72 73 74 0D 0A 20 20 20 20 20 ust first..
01B3A0: 20 20 65 6E 73 75 72 65 20 74 68 61 74 20 79 6F ensure that yo
01B3B0: 75 20 68 61 76 65 20 6F 70 65 6E 65 64 20 61 20 u have opened a
01B3C0: 66 69 6C 65 2E 0D 0A 45 4E 44 54 45 58 54 0D 0A file...ENDTEXT..
01B3D0: 49 46 20 4D 2E 4D 46 49 4C 45 3D 27 20 20 20 20 IF M.MFILE='
01B3E0: 20 20 20 20 27 0D 0A 20 20 40 20 32 30 2C 35 20 '.. @ 20,5
01B3F0: 53 41 59 20 27 4E 6F 20 66 69 6C 65 20 69 6E 20 SAY 'No file in
01B400: 0D 0A 20 20 20 20 53 54 4F 52 45 20 27 20 20 27 .. STORE ' '
01B410: 20 54 4F 20 52 45 46 0D 0A 20 20 20 20 4C 4F 4F TO REF.. LOO
01B420: 50 0D 0A 20 20 45 4E 44 49 46 0D 0A 20 20 49 46 P.. ENDIF.. IF
01B430: 20 56 41 4C 28 4D 2E 52 45 46 29 20 3C 3E 20 49 VAL(M.REF) <> I
01B440: 4E 54 28 56 41 4C 28 4D 2E 52 45 46 29 29 0D 0A NT(VAL(M.REF))..
01B450: 20 20 20 20 40 20 32 30 2C 35 20 53 41 59 20 27 @ 20,5 SAY '
01B460: 50 6C 65 61 73 65 20 74 72 79 20 77 68 6F 6C 65 Please try whole
01B470: 20 6E 75 6D 62 65 72 73 20 21 21 27 0D 0A 20 20 numbers !!'..
01B480: 20 20 53 54 4F 52 45 20 27 20 27 20 54 4F 20 54 STORE ' ' TO T
01B490: 45 4D 50 0D 0A 20 20 20 20 40 20 32 31 2C 35 20 EMP.. @ 21,5
01B4A0: 53 41 59 20 27 50 72 65 73 73 20 61 6E 79 20 6B SAY 'Press any k
01B4B0: 65 79 20 74 6F 20 72 65 74 72 79 20 27 20 0D 0A ey to retry ' ..
01B4C0: 20 20 20 20 40 20 32 31 2C 31 20 47 45 54 20 4D @ 21,1 GET M
01B4D0: 2E 54 45 4D 50 0D 0A 20 20 20 20 52 45 41 44 0D .TEMP.. READ.
01B4E0: 0A 20 20 20 20 43 4C 45 41 52 20 47 45 54 53 0D . CLEAR GETS.
01B4F0: 0A 20 20 20 20 40 20 31 36 2C 30 0D 0A 20 20 20 . @ 16,0..
01B500: 20 40 20 31 37 2C 30 0D 0A 20 20 20 20 40 20 31 @ 17,0.. @ 1
01B510: 38 2C 30 0D 0A 20 20 20 20 40 20 31 39 2C 30 0D 8,0.. @ 19,0.
01B520: 0A 20 20 20 20 40 20 32 30 2C 30 0D 0A 20 20 20 . @ 20,0..
01B530: 20 40 20 32 31 2C 31 0D 0A 20 20 20 20 53 54 4F @ 21,1.. STO
01B540: 52 45 20 27 20 20 27 20 54 4F 20 52 45 46 20 0D RE ' ' TO REF .
01B550: 0A 20 20 20 20 4C 4F 4F 50 0D 0A 20 20 45 4E 44 . LOOP.. END
01B560: 49 46 0D 0A 20 20 47 4F 20 56 41 4C 28 4D 2E 52 IF.. GO VAL(M.R
01B570: 45 46 29 0D 0A 20 20 49 46 20 4D 2E 46 49 52 53 EF).. IF M.FIRS
01B580: 54 0D 0A 20 20 20 20 53 54 4F 52 45 20 46 20 54 T.. STORE F T
01B590: 4F 20 46 49 52 53 54 0D 0A 20 20 20 45 4C 53 45 O FIRST.. ELSE
01B5A0: 0D 0A 20 20 20 20 53 54 4F 52 45 20 4D 2E 53 45 .. STORE M.SE
01B5B0: 4C 45 43 54 2B 27 2C 27 20 54 4F 20 53 45 4C 45 LECT+',' TO SELE
01B5C0: 43 54 0D 0A 20 20 45 4E 44 49 46 0D 0A 20 20 53 CT.. ENDIF.. S
01B5D0: 54 4F 52 45 20 4D 2E 53 45 4C 45 43 54 2B 54 52 TORE M.SELECT+TR
01B5E0: 49 4D 28 46 49 45 4C 44 3A 4E 41 4D 45 29 20 54 IM(FIELD:NAME) T
01B5F0: 4F 20 53 45 4C 45 43 54 0D 0A 45 4E 44 44 4F 0D O SELECT..ENDDO.
01B600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01B610: 17 00 01 00 02 09 52 E5 17 00 41 02 00 00 00 02 ......R...A.....
01B620: 17 00 46 02 00 00 00 02 17 00 42 02 00 00 00 02 ..F.......B.....
01B630: 17 00 47 02 00 00 00 02 17 00 43 02 00 00 00 02 ..G.......C.....
01B640: 17 00 48 02 00 00 00 02 17 00 44 02 00 00 00 02 ..H.......D.....
01B650: 17 00 49 02 00 00 00 02 17 00 45 02 00 00 00 02 ..I.......E.....
01B660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B700: 75 73 65 20 70 6C 65 61 73 65 20 4F 50 45 4E 20 use please OPEN
01B710: 66 72 6F 6D 20 6D 61 69 6E 20 6D 65 6E 75 27 0D from main menu'.
01B720: 0A 20 20 53 54 4F 52 45 20 27 20 27 20 54 4F 20 . STORE ' ' TO
01B730: 54 45 4D 50 0D 0A 20 20 40 20 32 31 2C 35 20 53 TEMP.. @ 21,5 S
01B740: 41 59 20 27 50 72 65 73 73 20 61 6E 79 20 6B 65 AY 'Press any ke
01B750: 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 27 0D y to continue '.
01B760: 0A 20 20 40 20 32 31 2C 31 20 47 45 54 20 4D 2E . @ 21,1 GET M.
01B770: 54 45 4D 50 0D 0A 20 20 52 45 41 44 0D 0A 20 20 TEMP.. READ..
01B780: 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 45 52 CLEAR GETS.. ER
01B790: 41 53 45 0D 0A 40 20 31 2C 31 20 53 41 59 20 27 ASE..@ 1,1 SAY '
01B7A0: 57 45 4C 43 4F 4D 45 20 20 20 20 20 20 20 20 20 WELCOME
01B7B0: 20 20 20 20 20 20 20 20 20 20 20 20 4C 4F 43 41 LOCA
01B7C0: 54 45 20 52 45 43 4F 52 44 53 20 20 20 20 20 20 TE RECORDS
01B7D0: 20 20 20 20 20 20 20 20 20 20 20 27 20 3B 0D 0A ' ;..
01B7E0: 20 20 20 20 20 20 20 20 2B 20 27 20 20 20 20 20 + '
01B7F0: 64 42 41 53 45 20 49 49 27 0D 0A 20 20 40 20 32 dBASE II'.. @ 2
01B800: 2C 31 20 53 41 59 20 4D 2E 55 4E 44 45 52 4C 4E ,1 SAY M.UNDERLN
01B810: 0D 0A 20 20 40 20 32 32 2C 31 20 53 41 59 20 4D .. @ 22,1 SAY M
01B820: 2E 55 4E 44 45 52 4C 4E 0D 0A 20 20 40 20 31 31 .UNDERLN.. @ 11
01B830: 2C 32 37 20 53 41 59 20 27 52 45 54 55 52 4E 49 ,27 SAY 'RETURNI
01B840: 4E 47 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 27 NG TO MAIN MENU'
01B850: 0D 0A 20 20 40 20 32 30 2C 31 0D 0A 20 20 53 54 .. @ 20,1.. ST
01B860: 4F 52 45 20 31 20 54 4F 20 43 0D 0A 20 20 44 4F ORE 1 TO C.. DO
01B870: 20 57 48 49 4C 45 20 43 20 3C 20 32 35 0D 0A 20 WHILE C < 25..
01B880: 20 20 20 53 54 4F 52 45 20 43 2B 31 20 54 4F 20 STORE C+1 TO
01B890: 43 0D 0A 20 20 45 4E 44 44 4F 0D 0A 20 20 52 45 C.. ENDDO.. RE
01B8A0: 4C 45 41 53 45 20 41 4C 4C 20 45 58 43 45 50 54 LEASE ALL EXCEPT
01B8B0: 20 4D 46 49 4C 45 0D 0A 20 20 52 45 54 55 52 4E MFILE.. RETURN
01B8C0: 0D 0A 45 4E 44 49 46 0D 0A 40 20 32 30 2C 35 20 ..ENDIF..@ 20,5
01B8D0: 53 41 59 20 27 54 68 65 20 66 69 6C 65 20 70 72 SAY 'The file pr
01B8E0: 65 73 65 6E 74 6C 79 20 69 6E 20 75 73 65 20 69 esently in use i
01B8F0: 73 20 2D 20 27 2B 4D 2E 4D 46 49 4C 45 0D 0A 53 s - '+M.MFILE..S
01B900: 65 72 20 74 68 65 20 72 65 66 2E 20 6E 75 6D 62 er the ref. numb
01B910: 65 72 20 61 6E 64 20 20 70 72 65 73 73 20 63 61 er and press ca
01B920: 72 72 69 61 67 65 20 72 65 74 75 72 6E 2E 27 0D rriage return.'.
01B930: 0A 40 20 36 2C 35 20 53 41 59 20 27 57 65 6C 63 .@ 6,5 SAY 'Welc
01B940: 6F 6D 65 20 77 69 6C 6C 20 62 75 69 6C 64 20 74 ome will build t
01B950: 68 65 20 63 6F 6D 6D 61 6E 64 2E 20 27 0D 0A 53 he command. '..S
01B960: 54 4F 52 45 20 27 4C 4F 43 41 54 45 20 46 4F 52 TORE 'LOCATE FOR
01B970: 20 27 20 54 4F 20 53 45 4C 45 43 54 0D 0A 53 54 ' TO SELECT..ST
01B980: 4F 52 45 20 38 20 54 4F 20 4C 49 4E 45 0D 0A 53 ORE 8 TO LINE..S
01B990: 54 4F 52 45 20 31 20 54 4F 20 43 4F 55 4E 54 0D TORE 1 TO COUNT.
01B9A0: 0A 53 54 4F 52 45 20 31 31 20 54 4F 20 52 45 43 .STORE 11 TO REC
01B9B0: 43 4E 54 0D 0A 53 54 4F 52 45 20 31 20 54 4F 20 CNT..STORE 1 TO
01B9C0: 43 4F 4C 0D 0A 53 54 4F 52 45 20 54 20 54 4F 20 COL..STORE T TO
01B9D0: 43 4F 4E 54 0D 0A 44 4F 20 57 48 49 4C 45 20 4D CONT..DO WHILE M
01B9E0: 2E 43 4F 4E 54 0D 0A 20 20 44 4F 20 57 48 49 4C .CONT.. DO WHIL
01B9F0: 45 20 4D 2E 4C 49 4E 45 3C 31 35 2E 41 4E 44 2E E M.LINE<15.AND.
01BA00: 2E 4E 4F 54 2E 45 4F 46 0D 0A 20 20 20 20 40 20 .NOT.EOF.. @
01BA10: 4D 2E 4C 49 4E 45 2C 4D 2E 43 4F 4C 20 53 41 59 M.LINE,M.COL SAY
01BA20: 20 53 54 52 28 4D 2E 43 4F 55 4E 54 2C 32 29 0D STR(M.COUNT,2).
01BA30: 0A 20 20 20 20 40 20 4D 2E 4C 49 4E 45 2C 4D 2E . @ M.LINE,M.
01BA40: 43 4F 4C 2B 33 20 53 41 59 20 46 49 45 4C 44 3A COL+3 SAY FIELD:
01BA50: 4E 41 4D 45 2B 27 2C 27 2B 46 49 45 4C 44 3A 54 NAME+','+FIELD:T
01BA60: 59 50 45 2B 27 2C 27 2B 53 54 52 28 46 49 45 4C YPE+','+STR(FIEL
01BA70: 44 3A 4C 45 4E 2C 33 29 2B 27 2C 27 3B 0D 0A 20 D:LEN,3)+',';..
01BA80: 20 20 20 2B 53 54 52 28 46 49 45 4C 44 3A 44 45 +STR(FIELD:DE
01BA90: 43 2C 32 29 0D 0A 20 20 20 20 53 54 4F 52 45 20 C,2).. STORE
01BAA0: 4D 2E 4C 49 4E 45 2B 31 20 54 4F 20 4C 49 4E 45 M.LINE+1 TO LINE
01BAB0: 0D 0A 20 20 20 20 53 54 4F 52 45 20 4D 2E 43 4F .. STORE M.CO
01BAC0: 55 4E 54 2B 31 20 54 4F 20 43 4F 55 4E 54 0D 0A UNT+1 TO COUNT..
01BAD0: 20 20 20 20 53 4B 49 50 0D 0A 20 20 45 4E 44 44 SKIP.. ENDD
01BAE0: 4F 0D 0A 20 20 49 46 20 45 4F 46 20 0D 0A 20 20 O.. IF EOF ..
01BAF0: 20 20 53 54 4F 52 45 20 46 20 54 4F 20 43 4F 4E STORE F TO CON
01BB00: 54 4F 52 45 20 27 20 27 20 54 4F 20 52 45 50 4C TORE ' ' TO REPL
01BB10: 59 0D 0A 44 4F 20 57 48 49 4C 45 20 2E 4E 4F 54 Y..DO WHILE .NOT
01BB20: 2E 20 4D 2E 52 45 50 4C 59 24 27 59 4E 27 0D 0A . M.REPLY$'YN'..
01BB30: 20 20 40 20 32 31 2C 35 20 53 41 59 20 27 44 6F @ 21,5 SAY 'Do
01BB40: 20 79 6F 75 20 77 69 73 68 20 74 6F 20 4C 4F 43 you wish to LOC
01BB50: 41 54 45 20 69 6E 20 74 68 69 73 20 66 69 6C 65 ATE in this file
01BB60: 3F 20 59 2F 4E 20 27 20 0D 0A 20 20 40 20 32 31 ? Y/N ' .. @ 21
01BB70: 2C 31 20 47 45 54 20 4D 2E 52 45 50 4C 59 20 70 ,1 GET M.REPLY p
01BB80: 69 63 74 20 27 21 27 0D 0A 20 20 52 45 41 44 0D ict '!'.. READ.
01BB90: 0A 20 20 43 4C 45 41 52 20 47 45 54 53 0D 0A 45 . CLEAR GETS..E
01BBA0: 4E 44 44 0D 0A 49 46 20 4D 2E 52 45 50 4C 59 3D NDD..IF M.REPLY=
01BBB0: 27 4E 27 0D 0A 20 20 45 52 41 53 45 0D 0A 40 20 'N'.. ERASE..@
01BBC0: 31 2C 31 20 53 41 59 20 27 57 45 4C 43 4F 4D 45 1,1 SAY 'WELCOME
01BBD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01BBE0: 20 20 20 20 20 4C 4F 43 41 54 45 20 52 45 43 4F LOCATE RECO
01BBF0: 52 44 53 20 20 20 20 20 20 20 20 20 20 20 20 20 RDS
01BC00: 20 20 20 20 27 20 3B 0D 0A 20 20 20 20 20 20 20 ' ;..
01BC10: 20 2B 20 27 20 20 20 20 20 64 42 41 53 45 20 49 + ' dBASE I
01BC20: 49 27 0D 0A 20 20 40 20 32 2C 31 20 53 41 59 20 I'.. @ 2,1 SAY
01BC30: 4D 2E 55 4E 44 45 52 4C 4E 0D 0A 20 20 40 20 32 M.UNDERLN.. @ 2
01BC40: 32 2C 31 20 53 41 59 20 4D 2E 55 4E 44 45 52 4C 2,1 SAY M.UNDERL
01BC50: 4E 0D 0A 20 20 40 20 31 31 2C 32 37 20 53 41 59 N.. @ 11,27 SAY
01BC60: 20 27 52 45 54 55 52 4E 49 4E 47 20 54 4F 20 4D 'RETURNING TO M
01BC70: 41 49 4E 20 4D 45 4E 55 27 0D 0A 20 20 40 20 32 AIN MENU'.. @ 2
01BC80: 30 2C 31 0D 0A 20 20 53 54 4F 52 45 20 31 20 54 0,1.. STORE 1 T
01BC90: 4F 20 43 0D 0A 20 20 44 4F 20 57 48 49 4C 45 20 O C.. DO WHILE
01BCA0: 43 20 3C 20 32 35 0D 0A 20 20 20 20 53 54 4F 52 C < 25.. STOR
01BCB0: 45 20 43 2B 31 20 54 4F 20 43 0D 0A 20 20 45 4E E C+1 TO C.. EN
01BCC0: 44 44 4F 0D 0A 20 20 52 45 4C 45 41 53 45 20 41 DDO.. RELEASE A
01BCD0: 4C 4C 20 45 58 43 45 50 54 20 4D 46 49 4C 45 0D LL EXCEPT MFILE.
01BCE0: 0A 20 20 52 45 54 55 52 4E 0D 0A 45 4E 44 49 46 . RETURN..ENDIF
01BCF0: 0D 0A 45 52 41 53 45 0D 0A 40 20 31 2C 31 20 53 ..ERASE..@ 1,1 S
01BD00: 54 0D 0A 20 20 20 20 4C 4F 4F 50 0D 0A 20 20 45 T.. LOOP.. E
01BD10: 4E 44 49 46 0D 0A 20 20 53 54 4F 52 45 20 38 20 NDIF.. STORE 8
01BD20: 54 4F 20 4C 49 4E 45 0D 0A 20 20 53 54 4F 52 45 TO LINE.. STORE
01BD30: 20 4D 2E 43 4F 4C 2B 32 36 20 54 4F 20 43 4F 4C M.COL+26 TO COL
01BD40: 0D 0A 45 4E 44 44 4F 0D 0A 53 54 4F 52 45 20 54 ..ENDDO..STORE T
01BD50: 20 54 4F 20 43 4F 4E 54 2C 46 49 52 53 54 0D 0A TO CONT,FIRST..
01BD60: 47 4F 20 42 4F 54 54 4F 4D 0D 0A 53 54 4F 52 45 GO BOTTOM..STORE
01BD70: 20 23 20 54 4F 20 42 4F 54 54 4F 4D 0D 0A 44 4F # TO BOTTOM..DO
01BD80: 20 57 48 49 4C 45 20 4D 2E 43 4F 4E 54 0D 0A 20 WHILE M.CONT..
01BD90: 20 40 20 32 33 2C 30 20 53 41 59 20 27 2E 20 27 @ 23,0 SAY '. '
01BDA0: 2B 4D 2E 53 45 4C 45 43 54 0D 0A 20 20 53 54 4F +M.SELECT.. STO
01BDB0: 52 45 20 27 20 20 27 20 54 4F 20 52 45 46 0D 0A RE ' ' TO REF..
01BDC0: 20 20 40 20 31 37 2C 35 20 53 41 59 20 27 45 6E @ 17,5 SAY 'En
01BDD0: 74 65 72 20 72 65 66 65 72 65 6E 63 65 20 6E 75 ter reference nu
01BDE0: 6D 62 65 72 20 2D 20 27 20 47 45 54 20 4D 2E 52 mber - ' GET M.R
01BDF0: 45 46 20 50 49 43 54 20 27 39 39 27 0D 0A 20 20 EF PICT '99'..
01BE00: 52 45 41 44 0D 0A 20 20 43 4C 45 41 52 20 47 45 READ.. CLEAR GE
01BE10: 54 53 0D 0A 20 20 49 46 20 56 41 4C 28 4D 2E 52 TS.. IF VAL(M.R
01BE20: 45 46 29 3D 30 0D 0A 20 20 20 20 49 46 20 4D 2E EF)=0.. IF M.
01BE30: 46 49 52 53 54 0D 0A 20 20 20 20 20 20 53 54 4F FIRST.. STO
01BE40: 52 45 20 27 20 27 20 54 4F 20 54 45 4D 50 0D 0A RE ' ' TO TEMP..
01BE50: 20 20 20 20 20 20 40 20 32 31 2C 35 20 53 41 59 @ 21,5 SAY
01BE60: 20 27 59 6F 75 20 4D 55 53 54 20 6D 61 6B 65 20 'You MUST make
01BE70: 61 20 73 65 6C 65 63 74 69 6F 6E 20 2D 20 50 72 a selection - Pr
01BE80: 65 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 72 ess any key to r
01BE90: 65 74 72 79 20 27 20 0D 0A 20 20 20 20 20 20 40 etry ' .. @
01BEA0: 20 32 31 2C 31 20 47 45 54 20 4D 2E 54 45 4D 50 21,1 GET M.TEMP
01BEB0: 0D 0A 20 20 20 20 20 20 52 45 41 44 0D 0A 20 20 .. READ..
01BEC0: 20 20 20 20 43 4C 45 41 52 20 47 45 54 53 0D 0A CLEAR GETS..
01BED0: 20 20 20 20 20 20 40 20 31 37 2C 30 0D 0A 20 20 @ 17,0..
01BEE0: 20 20 20 20 40 20 31 38 2C 30 0D 0A 20 20 20 20 @ 18,0..
01BEF0: 20 20 40 20 31 39 2C 30 0D 0A 20 20 20 20 20 20 @ 19,0..
01BF00: 41 59 20 27 57 45 4C 43 4F 4D 45 20 20 20 20 20 AY 'WELCOME
01BF10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01BF20: 4C 4F 43 41 54 45 20 52 45 43 4F 52 44 53 20 20 LOCATE RECORDS
01BF30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 '
01BF40: 20 3B 0D 0A 20 20 20 20 20 20 20 20 2B 20 27 20 ;.. + '
01BF50: 20 20 20 20 64 42 41 53 45 20 49 49 27 0D 0A 40 dBASE II'..@
01BF60: 20 32 2C 31 20 53 41 59 20 4D 2E 55 4E 44 45 52 2,1 SAY M.UNDER
01BF70: 4C 4E 0D 0A 40 20 32 32 2C 31 20 53 41 59 20 4D LN..@ 22,1 SAY M
01BF80: 2E 55 4E 44 45 52 4C 4E 0D 0A 40 20 34 2C 30 0D .UNDERLN..@ 4,0.
01BF90: 0A 54 45 58 54 0D 0A 20 20 20 20 20 59 6F 75 20 .TEXT.. You
01BFA0: 77 6F 75 6C 64 20 6C 6F 63 61 74 65 20 61 20 72 would locate a r
01BFB0: 65 63 6F 72 64 20 69 6E 20 61 20 64 42 41 53 45 ecord in a dBASE
01BFC0: 20 49 49 20 66 69 6C 65 20 62 79 20 74 79 70 69 II file by typi
01BFD0: 6E 67 0D 0A 0D 0A 20 20 20 20 20 20 2E 20 4C 4F ng.... . LO
01BFE0: 43 41 54 45 0D 0A 0D 0A 20 20 20 20 20 54 6F 20 CATE.... To
01BFF0: 68 65 6C 70 20 79 6F 75 20 61 6C 6F 6E 67 20 49 help you along I
01C000: 20 68 61 76 65 20 61 6C 72 65 61 64 79 20 65 6E have already en
01C010: 74 65 72 65 64 20 74 68 65 20 4C 4F 43 41 54 45 tered the LOCATE
01C020: 20 2D 0D 0A 20 20 20 20 20 73 68 6F 77 6E 20 62 -.. shown b
01C030: 65 6C 6F 77 20 74 68 65 20 6C 69 6E 65 2E 0D 0A elow the line...
01C040: 0D 0A 20 20 20 20 20 54 68 65 72 65 20 61 72 65 .. There are
01C050: 20 6F 74 68 65 72 20 63 6F 6D 6D 61 6E 64 73 20 other commands
01C060: 63 6F 6E 6E 65 63 74 65 64 20 77 69 74 68 20 4C connected with L
01C070: 4F 43 41 54 45 20 77 68 69 63 68 20 49 0D 0A 20 OCATE which I..
01C080: 20 20 20 20 73 68 61 6C 6C 20 65 78 70 6C 61 69 shall explai
01C090: 6E 20 61 73 20 77 65 20 6D 65 65 74 20 74 68 65 n as we meet the
01C0A0: 6D 2E 0D 0A 20 20 20 20 20 20 0D 0A 45 4E 44 54 m... ..ENDT
01C0B0: 45 58 54 0D 0A 40 20 32 33 2C 30 20 53 41 59 20 EXT..@ 23,0 SAY
01C0C0: 22 2E 20 4C 4F 43 41 54 45 22 20 0D 0A 53 54 4F ". LOCATE" ..STO
01C0D0: 52 45 20 27 20 27 20 54 4F 20 54 45 4D 50 0D 0A RE ' ' TO TEMP..
01C0E0: 40 20 32 31 2C 35 20 53 41 59 20 27 50 72 65 73 @ 21,5 SAY 'Pres
01C0F0: 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E s any key to con
01C100: 40 20 32 30 2C 30 0D 0A 20 20 20 20 20 20 40 20 @ 20,0.. @
01C110: 32 31 2C 30 0D 0A 20 20 20 20 20 20 4C 4F 4F 50 21,0.. LOOP
01C120: 0D 0A 20 20 20 20 45 4E 44 49 46 0D 0A 20 20 20 .. ENDIF..
01C130: 20 53 54 4F 52 45 20 46 20 54 4F 20 43 4F 4E 54 STORE F TO CONT
01C140: 20 0D 0A 20 20 20 20 4C 4F 4F 50 0D 0A 20 20 45 .. LOOP.. E
01C150: 4E 44 49 46 0D 0A 20 20 49 46 20 56 41 4C 28 4D NDIF.. IF VAL(M
01C160: 2E 52 45 46 29 3E 4D 2E 42 4F 54 54 4F 4D 0D 0A .REF)>M.BOTTOM..
01C170: 20 20 20 20 40 20 31 38 2C 34 30 20 53 41 59 20 @ 18,40 SAY
01C180: 27 49 6E 76 61 6C 69 64 20 73 65 6C 65 63 74 69 'Invalid selecti
01C190: 6F 6E 20 70 6C 65 61 73 65 20 72 65 74 72 79 27 on please retry'
01C1A0: 0D 0A 20 20 20 20 53 54 4F 52 45 20 27 20 27 20 .. STORE ' '
01C1B0: 54 4F 20 54 45 4D 50 0D 0A 20 20 20 20 40 20 32 TO TEMP.. @ 2
01C1C0: 31 2C 35 20 53 41 59 20 27 50 72 65 73 73 20 61 1,5 SAY 'Press a
01C1D0: 6E 79 20 6B 65 79 20 74 6F 20 72 65 74 72 79 20 ny key to retry
01C1E0: 27 20 0D 0A 20 20 20 20 40 20 32 31 2C 31 20 47 ' .. @ 21,1 G
01C1F0: 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 20 20 52 ET M.TEMP.. R
01C200: 45 41 44 0D 0A 20 20 20 20 43 4C 45 41 52 20 47 EAD.. CLEAR G
01C210: 45 54 53 0D 0A 20 20 20 20 40 20 31 37 2C 30 0D ETS.. @ 17,0.
01C220: 0A 20 20 20 20 40 20 31 38 2C 30 0D 0A 20 20 20 . @ 18,0..
01C230: 20 40 20 31 39 2C 30 0D 0A 20 20 20 20 40 20 32 @ 19,0.. @ 2
01C240: 30 2C 30 0D 0A 20 20 20 20 40 20 32 31 2C 31 0D 0,0.. @ 21,1.
01C250: 0A 20 20 20 20 53 54 4F 52 45 20 27 20 20 27 20 . STORE ' '
01C260: 54 4F 20 52 45 46 0D 0A 20 20 20 20 4C 4F 4F 50 TO REF.. LOOP
01C270: 0D 0A 20 20 45 4E 44 49 46 0D 0A 20 20 49 46 20 .. ENDIF.. IF
01C280: 56 41 4C 28 4D 2E 52 45 46 29 20 3C 3E 20 49 4E VAL(M.REF) <> IN
01C290: 54 28 56 41 4C 28 4D 2E 52 45 46 29 29 0D 0A 20 T(VAL(M.REF))..
01C2A0: 20 20 20 40 20 31 38 2C 34 30 20 53 41 59 20 27 @ 18,40 SAY '
01C2B0: 50 6C 65 61 73 65 20 74 72 79 20 77 68 6F 6C 65 Please try whole
01C2C0: 20 6E 75 6D 62 65 72 73 20 21 21 27 0D 0A 20 20 numbers !!'..
01C2D0: 20 20 53 54 4F 52 45 20 27 20 27 20 54 4F 20 54 STORE ' ' TO T
01C2E0: 45 4D 50 0D 0A 20 20 20 20 40 20 32 31 2C 35 20 EMP.. @ 21,5
01C2F0: 53 41 59 20 27 50 72 65 73 73 20 61 6E 79 20 6B SAY 'Press any k
01C300: 74 69 6E 75 65 20 27 0D 0A 40 20 32 31 2C 31 20 tinue '..@ 21,1
01C310: 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 52 45 41 44 GET M.TEMP..READ
01C320: 0D 0A 43 4C 45 41 52 20 47 45 54 53 0D 0A 45 52 ..CLEAR GETS..ER
01C330: 41 53 45 0D 0A 40 20 31 2C 31 20 53 41 59 20 27 ASE..@ 1,1 SAY '
01C340: 57 45 4C 43 4F 4D 45 20 20 20 20 20 20 20 20 20 WELCOME
01C350: 20 20 20 20 20 20 20 20 20 20 20 20 4C 4F 43 41 LOCA
01C360: 54 45 20 52 45 43 4F 52 44 53 20 20 20 20 20 20 TE RECORDS
01C370: 20 20 20 20 20 20 20 20 20 20 20 27 20 3B 0D 0A ' ;..
01C380: 20 20 20 20 20 20 20 20 2B 20 27 20 20 20 20 20 + '
01C390: 64 42 41 53 45 20 49 49 27 0D 0A 40 20 32 2C 31 dBASE II'..@ 2,1
01C3A0: 20 53 41 59 20 4D 2E 55 4E 44 45 52 4C 4E 0D 0A SAY M.UNDERLN..
01C3B0: 40 20 32 32 2C 31 20 53 41 59 20 4D 2E 55 4E 44 @ 22,1 SAY M.UND
01C3C0: 45 52 4C 4E 0D 0A 40 20 34 2C 30 0D 0A 54 45 58 ERLN..@ 4,0..TEX
01C3D0: 54 0D 0A 20 20 20 20 20 4D 61 6B 65 20 73 75 72 T.. Make sur
01C3E0: 65 20 79 6F 75 20 61 72 65 20 61 74 20 74 68 65 e you are at the
01C3F0: 20 74 6F 70 20 6F 66 20 79 6F 75 72 20 66 69 6C top of your fil
01C400: 65 20 62 79 20 74 79 70 69 6E 67 0D 0A 0D 0A 20 e by typing....
01C410: 20 20 20 20 20 2E 20 47 4F 54 4F 20 54 4F 50 20 . GOTO TOP
01C420: 20 20 20 20 20 20 0D 0A 0D 0A 20 20 20 20 20 54 .... T
01C430: 6F 20 68 65 6C 70 20 79 6F 75 20 61 6C 6F 6E 67 o help you along
01C440: 20 49 20 68 61 76 65 20 61 6C 72 65 61 64 79 20 I have already
01C450: 65 6E 74 65 72 65 64 20 74 68 65 20 47 4F 54 4F entered the GOTO
01C460: 20 54 4F 50 20 2D 0D 0A 20 20 20 20 20 73 68 6F TOP -.. sho
01C470: 77 6E 20 62 65 6C 6F 77 20 74 68 65 20 6C 69 6E wn below the lin
01C480: 65 2E 0D 0A 0D 0A 45 4E 44 54 45 58 54 0D 0A 40 e.....ENDTEXT..@
01C490: 20 32 33 2C 30 20 53 41 59 20 22 2E 20 47 4F 54 23,0 SAY ". GOT
01C4A0: 4F 20 54 4F 50 20 20 20 20 20 20 20 20 20 20 20 O TOP
01C4B0: 20 20 20 22 0D 0A 53 54 4F 52 45 20 27 20 27 20 "..STORE ' '
01C4C0: 54 4F 20 54 45 4D 50 0D 0A 40 20 32 31 2C 35 20 TO TEMP..@ 21,5
01C4D0: 53 41 59 20 27 50 72 65 73 73 20 61 6E 79 20 6B SAY 'Press any k
01C4E0: 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 27 ey to continue '
01C4F0: 0D 0A 40 20 32 31 2C 31 20 47 45 54 20 4D 2E 54 ..@ 21,1 GET M.T
01C500: 65 79 20 74 6F 20 72 65 74 72 79 20 27 20 0D 0A ey to retry ' ..
01C510: 20 20 20 20 40 20 32 31 2C 31 20 47 45 54 20 4D @ 21,1 GET M
01C520: 2E 54 45 4D 50 0D 0A 20 20 20 20 52 45 41 44 0D .TEMP.. READ.
01C530: 0A 20 20 20 20 43 4C 45 41 52 20 47 45 54 53 0D . CLEAR GETS.
01C540: 0A 20 20 20 20 40 20 31 37 2C 30 0D 0A 20 20 20 . @ 17,0..
01C550: 20 40 20 31 38 2C 30 0D 0A 20 20 20 20 40 20 31 @ 18,0.. @ 1
01C560: 39 2C 30 0D 0A 20 20 20 20 40 20 32 30 2C 30 0D 9,0.. @ 20,0.
01C570: 0A 20 20 20 20 40 20 32 31 2C 31 0D 0A 20 20 20 . @ 21,1..
01C580: 20 53 54 4F 52 45 20 27 20 20 27 20 54 4F 20 52 STORE ' ' TO R
01C590: 45 46 0D 0A 20 20 20 20 4C 4F 4F 50 0D 0A 20 20 EF.. LOOP..
01C5A0: 45 4E 44 49 46 0D 0A 20 20 53 54 4F 52 45 20 46 ENDIF.. STORE F
01C5B0: 20 54 4F 20 46 49 52 53 54 2C 43 4F 4E 54 0D 0A TO FIRST,CONT..
01C5C0: 45 4E 44 44 4F 0D 0A 47 4F 20 56 41 4C 28 4D 2E ENDDO..GO VAL(M.
01C5D0: 52 45 46 29 0D 0A 40 20 32 33 2C 31 33 20 53 41 REF)..@ 23,13 SA
01C5E0: 59 20 46 49 45 4C 44 3A 4E 41 4D 45 0D 0A 44 4F Y FIELD:NAME..DO
01C5F0: 20 43 41 53 45 0D 0A 20 20 43 41 53 45 20 46 49 CASE.. CASE FI
01C600: 45 4C 44 3A 54 59 50 45 20 3D 20 27 43 27 0D 0A ELD:TYPE = 'C'..
01C610: 20 20 20 20 49 46 20 46 49 45 4C 44 3A 4C 45 4E IF FIELD:LEN
01C620: 20 3E 20 32 30 0D 0A 20 20 20 20 20 20 53 54 4F > 20.. STO
01C630: 52 45 20 27 20 20 20 20 20 20 20 20 20 20 20 20 RE '
01C640: 20 20 20 20 20 20 20 20 27 20 54 4F 20 53 54 52 ' TO STR
01C650: 49 4E 47 0D 0A 20 20 20 20 20 45 4C 53 45 0D 0A ING.. ELSE..
01C660: 20 20 20 20 20 20 53 54 4F 52 45 20 24 28 27 20 STORE $('
01C670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C680: 20 20 20 27 2C 31 2C 46 49 45 4C 44 3A 4C 45 4E ',1,FIELD:LEN
01C690: 29 20 54 4F 20 53 54 52 49 4E 47 0D 0A 20 20 20 ) TO STRING..
01C6A0: 20 45 4E 44 49 46 0D 0A 20 20 20 20 53 54 4F 52 ENDIF.. STOR
01C6B0: 45 20 46 20 54 4F 20 54 53 54 52 0D 0A 20 20 20 E F TO TSTR..
01C6C0: 20 44 4F 20 57 48 49 4C 45 20 54 52 49 4D 28 4D DO WHILE TRIM(M
01C6D0: 2E 53 54 52 49 4E 47 29 20 3D 20 27 20 27 20 2E .STRING) = ' ' .
01C6E0: 4F 52 2E 20 2E 4E 4F 54 2E 20 4D 2E 54 53 54 52 OR. .NOT. M.TSTR
01C6F0: 0D 0A 20 20 20 20 20 20 40 20 31 37 2C 30 0D 0A .. @ 17,0..
01C700: 45 4D 50 0D 0A 52 45 41 44 0D 0A 43 4C 45 41 52 EMP..READ..CLEAR
01C710: 20 47 45 54 53 0D 0A 45 52 41 53 45 0D 0A 40 20 GETS..ERASE..@
01C720: 31 2C 31 20 53 41 59 20 27 57 45 4C 43 4F 4D 45 1,1 SAY 'WELCOME
01C730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C740: 20 20 20 20 20 4C 4F 43 41 54 45 20 52 45 43 4F LOCATE RECO
01C750: 52 44 53 20 20 20 20 20 20 20 20 20 20 20 20 20 RDS
01C760: 20 20 20 20 27 20 3B 0D 0A 20 20 20 20 20 20 20 ' ;..
01C770: 20 2B 20 27 20 20 20 20 20 64 42 41 53 45 20 49 + ' dBASE I
01C780: 49 27 0D 0A 40 20 32 2C 31 20 53 41 59 20 4D 2E I'..@ 2,1 SAY M.
01C790: 55 4E 44 45 52 4C 4E 0D 0A 40 20 32 32 2C 31 20 UNDERLN..@ 22,1
01C7A0: 53 41 59 20 4D 2E 55 4E 44 45 52 4C 4E 0D 0A 40 SAY M.UNDERLN..@
01C7B0: 20 31 31 2C 32 30 20 53 41 59 20 27 50 6C 65 61 11,20 SAY 'Plea
01C7C0: 73 65 20 57 61 69 74 20 2E 2E 2E 20 6E 6F 77 20 se Wait ... now
01C7D0: 6C 6F 61 64 69 6E 67 20 74 68 65 20 6E 65 78 74 loading the next
01C7E0: 20 57 65 6C 63 6F 6D 65 20 66 69 6C 65 27 0D 0A Welcome file'..
01C7F0: 40 20 32 30 2C 31 0D 0A 53 45 4C 45 20 53 45 43 @ 20,1..SELE SEC
01C800: 4F 0D 0A 55 53 45 0D 0A 53 45 4C 45 43 54 20 50 O..USE..SELECT P
01C810: 52 49 4D 41 52 59 0D 0A 55 53 45 20 26 4D 46 49 RIMARY..USE &MFI
01C820: 4C 45 0D 0A 43 4F 50 59 20 54 4F 20 54 45 4D 50 LE..COPY TO TEMP
01C830: 53 54 52 55 20 53 54 52 55 20 45 58 54 45 4E 44 STRU STRU EXTEND
01C840: 45 44 0D 0A 53 45 4C 45 43 54 20 53 45 43 4F 4E ED..SELECT SECON
01C850: 44 41 52 59 20 0D 0A 55 53 45 20 54 45 4D 50 53 DARY ..USE TEMPS
01C860: 54 52 55 0D 0A 47 4F 20 42 4F 54 54 4F 4D 0D 0A TRU..GO BOTTOM..
01C870: 53 54 4F 52 45 20 23 20 54 4F 20 46 49 4C 43 4E STORE # TO FILCN
01C880: 54 0D 0A 40 20 31 31 2C 35 0D 0A 67 6F 20 74 6F T..@ 11,5..go to
01C890: 70 0D 0A 40 20 34 2C 35 20 53 41 59 20 27 59 6F p..@ 4,5 SAY 'Yo
01C8A0: 75 20 61 72 65 20 6E 6F 77 20 61 73 6B 65 64 20 u are now asked
01C8B0: 20 74 6F 20 73 65 6C 65 63 74 20 77 68 69 63 68 to select which
01C8C0: 20 66 69 65 6C 64 20 79 6F 75 20 77 69 73 68 20 field you wish
01C8D0: 20 74 6F 20 20 4C 4F 43 41 54 45 20 6F 6E 2E 27 to LOCATE on.'
01C8E0: 0D 0A 40 20 35 2C 35 20 53 41 59 20 27 54 6F 20 ..@ 5,5 SAY 'To
01C8F0: 64 6F 20 74 68 69 73 20 6A 75 73 74 20 65 6E 74 do this just ent
01C900: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01C910: 18 00 01 00 02 09 50 E5 18 00 41 02 00 00 00 02 ......P...A.....
01C920: 18 00 46 02 00 00 00 02 18 00 42 02 00 00 00 02 ..F.......B.....
01C930: 18 00 47 02 00 00 00 02 18 00 43 02 00 00 00 02 ..G.......C.....
01C940: 18 00 48 02 00 00 00 02 18 00 44 02 00 00 00 02 ..H.......D.....
01C950: 18 00 49 02 00 00 00 02 18 00 45 02 00 00 00 02 ..I.......E.....
01C960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01CA00: 20 20 20 20 20 20 40 20 31 38 2C 30 0D 0A 20 20 @ 18,0..
01CA10: 20 20 20 20 40 20 31 39 2C 30 0D 0A 20 20 20 20 @ 19,0..
01CA20: 20 20 40 20 32 30 2C 30 0D 0A 20 20 20 20 20 20 @ 20,0..
01CA30: 40 20 32 31 2C 30 0D 0A 20 20 20 20 20 20 40 20 @ 21,0.. @
01CA40: 31 37 2C 35 20 53 41 59 20 27 45 6E 74 65 72 20 17,5 SAY 'Enter
01CA50: 4C 65 74 74 65 72 2C 57 6F 72 64 20 6F 72 20 57 Letter,Word or W
01CA60: 6F 72 64 73 20 74 6F 20 62 65 20 73 65 61 72 63 ords to be searc
01CA70: 68 65 64 20 66 6F 72 20 27 3B 0D 0A 47 45 54 20 hed for ';..GET
01CA80: 4D 2E 53 54 52 49 4E 47 20 50 49 43 54 20 27 21 M.STRING PICT '!
01CA90: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 !!!!!!!!!!!!!!!!
01CAA0: 21 27 0D 0A 20 20 20 20 20 20 52 45 41 44 0D 0A !'.. READ..
01CAB0: 20 20 20 20 20 20 43 4C 45 41 52 20 47 45 54 53 CLEAR GETS
01CAC0: 0D 0A 20 20 20 20 20 20 49 46 20 22 27 22 24 4D .. IF "'"$M
01CAD0: 2E 53 54 52 49 4E 47 0D 0A 20 20 20 20 20 20 20 .STRING..
01CAE0: 20 40 20 32 30 2C 35 20 53 41 59 20 22 20 3C 27 @ 20,5 SAY " <'
01CAF0: 3E 20 49 6E 76 65 72 74 65 64 20 63 6F 6D 6D 61 > Inverted comma
01CB00: 27 73 20 63 61 6E 6E 6F 74 20 62 65 20 61 6C 6C 's cannot be all
01CB10: 6F 77 65 64 20 22 20 0D 0A 20 20 20 20 20 20 20 owed " ..
01CB20: 20 53 54 4F 52 45 20 46 20 54 4F 20 54 53 54 52 STORE F TO TSTR
01CB30: 20 0D 0A 20 20 20 20 20 20 20 20 53 54 4F 52 45 .. STORE
01CB40: 20 27 20 27 20 54 4F 20 54 45 4D 50 0D 0A 20 20 ' ' TO TEMP..
01CB50: 20 20 20 20 20 20 40 20 32 31 2C 35 20 53 41 59 @ 21,5 SAY
01CB60: 20 27 50 72 65 73 73 20 61 6E 79 20 6B 65 79 20 'Press any key
01CB70: 74 6F 20 72 65 74 72 79 20 27 20 0D 0A 20 20 20 to retry ' ..
01CB80: 20 20 20 20 20 40 20 32 31 2C 31 20 47 45 54 20 @ 21,1 GET
01CB90: 4D 2E 54 45 4D 50 0D 0A 20 20 20 20 20 20 20 20 M.TEMP..
01CBA0: 52 45 41 44 0D 0A 20 20 20 20 20 20 20 20 43 4C READ.. CL
01CBB0: 45 41 52 20 47 45 54 53 0D 0A 20 20 20 20 20 20 EAR GETS..
01CBC0: 20 20 40 20 31 37 2C 30 0D 0A 20 20 20 20 20 20 @ 17,0..
01CBD0: 20 20 40 20 31 38 2C 30 0D 0A 20 20 20 20 20 20 @ 18,0..
01CBE0: 20 20 40 20 31 39 2C 30 0D 0A 20 20 20 20 20 20 @ 19,0..
01CBF0: 20 20 40 20 32 30 2C 30 0D 0A 20 20 20 20 20 20 @ 20,0..
01CC00: 45 20 4D 2E 43 4F 4C 2D 37 39 20 54 4F 20 43 4F E M.COL-79 TO CO
01CC10: 4C 0D 0A 45 4E 44 49 46 0D 0A 26 53 45 4C 45 43 L..ENDIF..&SELEC
01CC20: 54 0D 0A 49 46 20 45 4F 46 0D 0A 20 20 40 20 31 T..IF EOF.. @ 1
01CC30: 30 2C 32 37 20 53 41 59 20 27 2A 2A 2A 2A 2A 2A 0,27 SAY '******
01CC40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 27 0D **************'.
01CC50: 0A 20 20 40 20 31 31 2C 32 37 20 53 41 59 20 27 . @ 11,27 SAY '
01CC60: 2A 20 4E 4F 20 52 45 43 4F 52 44 53 20 46 4F 55 * NO RECORDS FOU
01CC70: 4E 44 20 2A 27 0D 0A 20 20 40 20 31 32 2C 32 37 ND *'.. @ 12,27
01CC80: 20 53 41 59 20 27 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A SAY '**********
01CC90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 27 0D 0A 20 20 53 **********'.. S
01CCA0: 54 4F 52 45 20 31 20 54 4F 20 43 0D 0A 20 20 44 TORE 1 TO C.. D
01CCB0: 4F 20 57 48 49 4C 45 20 43 20 3C 20 32 35 0D 0A O WHILE C < 25..
01CCC0: 20 20 20 20 53 54 4F 52 45 20 43 2B 31 20 54 4F STORE C+1 TO
01CCD0: 20 43 0D 0A 20 20 45 4E 44 44 4F 0D 0A 45 4C 53 C.. ENDDO..ELS
01CCE0: 45 0D 0A 20 20 40 20 31 30 2C 33 30 20 53 41 59 E.. @ 10,30 SAY
01CCF0: 20 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 '
01CD00: 20 20 20 20 20 20 27 0D 0A 20 20 40 20 31 31 2C '.. @ 11,
01CD10: 33 30 20 53 41 59 20 27 20 20 52 45 43 4F 52 44 30 SAY ' RECORD
01CD20: 20 46 4F 55 4E 44 20 20 20 20 20 20 27 0D 0A 20 FOUND '..
01CD30: 20 40 20 31 32 2C 33 30 20 53 41 59 20 27 20 20 @ 12,30 SAY '
01CD40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 20 20 ------------
01CD50: 20 20 27 0D 0A 20 20 44 49 53 50 0D 0A 45 4E 44 '.. DISP..END
01CD60: 49 46 0D 0A 44 4F 20 57 48 49 4C 45 20 2E 4E 4F IF..DO WHILE .NO
01CD70: 54 2E 20 45 4F 46 0D 0A 20 20 53 54 4F 52 45 20 T. EOF.. STORE
01CD80: 27 20 27 20 54 4F 20 52 45 53 50 0D 0A 20 20 44 ' ' TO RESP.. D
01CD90: 4F 20 57 48 49 4C 45 20 2E 4E 4F 54 2E 20 4D 2E O WHILE .NOT. M.
01CDA0: 52 45 53 50 24 27 59 4E 27 0D 0A 20 20 40 20 31 RESP$'YN'.. @ 1
01CDB0: 38 2C 30 0D 0A 20 20 40 20 31 39 2C 30 0D 0A 20 8,0.. @ 19,0..
01CDC0: 20 40 20 32 30 2C 30 0D 0A 20 20 40 20 32 31 2C @ 20,0.. @ 21,
01CDD0: 30 0D 0A 20 20 40 20 32 31 2C 35 20 53 41 59 20 0.. @ 21,5 SAY
01CDE0: 27 44 6F 20 79 6F 75 20 77 61 6E 74 20 74 6F 20 'Do you want to
01CDF0: 74 72 79 20 66 6F 72 20 61 6E 6F 74 68 65 72 20 try for another
01CE00: 20 20 40 20 32 31 2C 31 0D 0A 20 20 20 20 20 20 @ 21,1..
01CE10: 45 4C 53 45 0D 0A 20 20 20 20 20 20 20 20 53 54 ELSE.. ST
01CE20: 4F 52 45 20 54 20 54 4F 20 54 53 54 52 0D 0A 20 ORE T TO TSTR..
01CE30: 20 20 20 20 20 45 4E 44 49 46 0D 0A 20 20 20 20 ENDIF..
01CE40: 45 4E 44 44 4F 0D 0A 20 20 20 20 53 54 4F 52 45 ENDDO.. STORE
01CE50: 20 4D 2E 53 45 4C 45 43 54 2B 22 27 22 2B 54 52 M.SELECT+"'"+TR
01CE60: 49 4D 28 4D 2E 53 54 52 49 4E 47 29 2B 22 27 22 IM(M.STRING)+"'"
01CE70: 2B 27 24 28 21 28 27 2B 54 52 49 4D 28 46 49 45 +'$(!('+TRIM(FIE
01CE80: 4C 44 3A 4E 41 4D 45 29 2B 27 29 29 27 3B 0D 0A LD:NAME)+'))';..
01CE90: 20 20 20 20 54 4F 20 53 45 4C 45 43 54 20 20 0D TO SELECT .
01CEA0: 0A 20 20 43 41 53 45 20 46 49 45 4C 44 3A 54 59 . CASE FIELD:TY
01CEB0: 50 45 20 3D 20 27 4E 27 0D 0A 20 20 20 20 53 54 PE = 'N'.. ST
01CEC0: 4F 52 45 20 4D 2E 53 45 4C 45 43 54 2B 54 52 49 ORE M.SELECT+TRI
01CED0: 4D 28 46 49 45 4C 44 3A 4E 41 4D 45 29 20 54 4F M(FIELD:NAME) TO
01CEE0: 20 53 45 4C 45 43 54 0D 0A 20 20 20 20 40 20 32 SELECT.. @ 2
01CEF0: 33 2C 30 20 53 41 59 20 27 2E 20 27 20 2B 20 4D 3,0 SAY '. ' + M
01CF00: 2E 53 45 4C 45 43 54 0D 0A 20 20 20 20 40 20 34 .SELECT.. @ 4
01CF10: 2C 30 0D 0A 20 20 20 20 40 20 35 2C 30 0D 0A 20 ,0.. @ 5,0..
01CF20: 20 20 20 40 20 36 2C 30 0D 0A 20 20 20 20 40 20 @ 6,0.. @
01CF30: 34 2C 31 30 20 53 41 59 20 27 22 3E 22 20 3D 20 4,10 SAY '">" =
01CF40: 47 72 65 61 74 65 72 20 54 68 61 6E 20 20 20 20 Greater Than
01CF50: 20 20 20 20 20 22 3C 22 20 3D 20 53 6D 61 6C 6C "<" = Small
01CF60: 65 72 20 54 68 61 6E 20 27 0D 0A 20 20 20 20 40 er Than '.. @
01CF70: 20 35 2C 31 30 20 53 41 59 20 27 22 3D 22 20 3D 5,10 SAY '"=" =
01CF80: 20 45 71 75 61 6C 20 54 6F 20 20 20 20 20 20 20 Equal To
01CF90: 20 20 20 20 20 20 22 23 22 20 3D 20 4E 6F 74 20 "#" = Not
01CFA0: 45 71 75 61 6C 20 54 6F 20 27 0D 0A 20 20 20 20 Equal To '..
01CFB0: 40 20 31 37 2C 30 0D 0A 20 20 20 20 40 20 31 38 @ 17,0.. @ 18
01CFC0: 2C 30 0D 0A 20 20 20 20 40 20 31 39 2C 30 0D 0A ,0.. @ 19,0..
01CFD0: 20 20 20 20 40 20 32 30 2C 30 0D 0A 20 20 20 20 @ 20,0..
01CFE0: 40 20 32 31 2C 30 0D 0A 20 20 20 20 53 54 4F 52 @ 21,0.. STOR
01CFF0: 45 20 27 20 27 20 54 4F 20 4F 50 45 52 41 54 4F E ' ' TO OPERATO
01D000: 6D 61 74 63 68 20 3F 20 28 59 2F 4E 29 20 27 20 match ? (Y/N) '
01D010: 0D 0A 20 20 20 20 40 20 32 31 2C 31 20 47 45 54 .. @ 21,1 GET
01D020: 20 4D 2E 52 45 53 50 20 50 49 43 54 20 27 21 27 M.RESP PICT '!'
01D030: 0D 0A 20 20 20 20 52 45 41 44 0D 0A 20 20 20 20 .. READ..
01D040: 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 45 4E CLEAR GETS.. EN
01D050: 44 44 4F 0D 0A 20 20 49 46 20 4D 2E 52 45 53 50 DDO.. IF M.RESP
01D060: 20 3D 20 27 4E 27 0D 0A 20 20 20 20 47 4F 54 4F = 'N'.. GOTO
01D070: 20 42 4F 54 54 0D 0A 20 20 20 20 53 4B 49 50 0D BOTT.. SKIP.
01D080: 0A 20 20 20 20 4C 4F 4F 50 0D 0A 20 20 45 4E 44 . LOOP.. END
01D090: 49 46 20 5B 20 72 65 74 75 72 6E 20 74 6F 20 6D IF [ return to m
01D0A0: 61 69 6E 20 6D 65 6E 75 20 69 66 20 75 73 65 72 ain menu if user
01D0B0: 20 64 6F 65 73 20 6E 6F 74 20 77 69 73 68 20 74 does not wish t
01D0C0: 6F 20 43 4F 4E 54 49 4E 55 45 20 74 68 65 20 6C o CONTINUE the l
01D0D0: 6F 63 61 74 65 20 5D 20 0D 0A 20 20 20 45 52 41 ocate ] .. ERA
01D0E0: 53 45 0D 0A 40 20 31 2C 31 20 53 41 59 20 27 57 SE..@ 1,1 SAY 'W
01D0F0: 45 4C 43 4F 4D 45 20 20 20 20 20 20 20 20 20 20 ELCOME
01D100: 20 20 20 20 20 20 20 20 20 20 20 4C 4F 43 41 54 LOCAT
01D110: 45 20 52 45 43 4F 52 44 53 20 20 20 20 20 20 20 E RECORDS
01D120: 20 20 20 20 20 20 20 20 20 20 27 20 3B 0D 0A 20 ' ;..
01D130: 20 20 20 20 20 20 20 2B 20 27 20 20 20 20 20 64 + ' d
01D140: 42 41 53 45 20 49 49 27 0D 0A 40 20 32 2C 31 20 BASE II'..@ 2,1
01D150: 53 41 59 20 4D 2E 55 4E 44 45 52 4C 4E 0D 0A 40 SAY M.UNDERLN..@
01D160: 20 32 32 2C 31 20 53 41 59 20 4D 2E 55 4E 44 45 22,1 SAY M.UNDE
01D170: 52 4C 4E 0D 0A 40 20 34 2C 30 0D 0A 54 45 58 54 RLN..@ 4,0..TEXT
01D180: 0D 0A 20 20 20 20 20 59 6F 75 20 77 6F 75 6C 64 .. You would
01D190: 20 63 6F 6E 74 69 6E 75 65 20 74 6F 20 6C 6F 63 continue to loc
01D1A0: 61 74 65 20 72 65 63 6F 72 64 73 20 69 6E 20 64 ate records in d
01D1B0: 42 41 53 45 20 49 49 20 62 79 20 74 79 70 69 6E BASE II by typin
01D1C0: 67 0D 0A 0D 0A 20 20 20 20 20 20 2E 20 43 4F 4E g.... . CON
01D1D0: 54 49 4E 55 45 0D 0A 0D 0A 20 20 20 20 20 54 6F TINUE.... To
01D1E0: 20 68 65 6C 70 20 79 6F 75 20 61 6C 6F 6E 67 20 help you along
01D1F0: 49 20 68 61 76 65 20 61 6C 72 65 61 64 79 20 65 I have already e
01D200: 52 0D 0A 20 20 20 20 44 4F 20 57 48 49 4C 45 20 R.. DO WHILE
01D210: 2E 4E 4F 54 2E 20 4D 2E 4F 50 45 52 41 54 4F 52 .NOT. M.OPERATOR
01D220: 24 27 3C 3E 3D 23 27 0D 0A 20 20 20 20 20 20 40 $'<>=#'.. @
01D230: 20 31 37 2C 35 20 53 41 59 20 27 45 6E 74 65 72 17,5 SAY 'Enter
01D240: 20 6D 61 74 68 61 6D 61 74 69 63 61 6C 20 6F 70 mathamatical op
01D250: 65 72 61 74 6F 72 20 27 20 47 45 54 20 4D 2E 4F erator ' GET M.O
01D260: 50 45 52 41 54 4F 52 20 50 49 43 54 20 27 21 27 PERATOR PICT '!'
01D270: 0D 0A 20 20 20 20 20 20 52 45 41 44 0D 0A 20 20 .. READ..
01D280: 20 20 20 20 43 4C 45 41 52 20 47 45 54 53 0D 0A CLEAR GETS..
01D290: 20 20 20 20 45 4E 44 44 4F 0D 0A 20 20 20 20 53 ENDDO.. S
01D2A0: 54 4F 52 45 20 4D 2E 53 45 4C 45 43 54 2B 27 20 TORE M.SELECT+'
01D2B0: 27 2B 4D 2E 4F 50 45 52 41 54 4F 52 20 54 4F 20 '+M.OPERATOR TO
01D2C0: 53 45 4C 45 43 54 0D 0A 20 20 20 20 40 20 32 33 SELECT.. @ 23
01D2D0: 2C 30 20 53 41 59 20 27 2E 20 27 20 2B 20 4D 2E ,0 SAY '. ' + M.
01D2E0: 53 45 4C 45 43 54 0D 0A 20 20 20 20 53 54 4F 52 SELECT.. STOR
01D2F0: 45 20 27 22 27 2B 24 28 27 39 39 39 39 39 39 39 E '"'+$('9999999
01D300: 39 39 39 39 39 39 39 39 39 39 39 39 39 27 2C 31 9999999999999',1
01D310: 2C 28 46 49 45 4C 44 3A 4C 45 4E 2D 31 29 29 20 ,(FIELD:LEN-1))
01D320: 54 4F 20 50 49 43 54 31 0D 0A 20 20 20 20 49 46 TO PICT1.. IF
01D330: 20 46 49 45 4C 44 3A 44 45 43 20 3E 20 30 0D 0A FIELD:DEC > 0..
01D340: 20 20 20 20 20 20 53 54 4F 52 45 20 4D 2E 50 49 STORE M.PI
01D350: 43 54 31 2B 27 2E 27 2B 24 28 27 39 39 39 39 39 CT1+'.'+$('99999
01D360: 39 39 39 39 39 39 39 39 39 39 39 39 39 39 27 2C 99999999999999',
01D370: 31 2C 46 49 45 4C 44 3A 44 45 43 29 20 54 4F 20 1,FIELD:DEC) TO
01D380: 50 49 43 54 31 0D 0A 20 20 20 20 45 4E 44 49 46 PICT1.. ENDIF
01D390: 0D 0A 20 20 20 20 53 54 4F 52 45 20 4D 2E 50 49 .. STORE M.PI
01D3A0: 43 54 31 2B 27 22 27 20 54 4F 20 50 49 43 54 31 CT1+'"' TO PICT1
01D3B0: 0D 0A 20 20 20 20 53 54 4F 52 45 20 30 20 54 4F .. STORE 0 TO
01D3C0: 20 4D 41 54 48 0D 0A 20 20 20 20 40 20 31 37 2C MATH.. @ 17,
01D3D0: 30 0D 0A 20 20 20 20 40 20 31 37 2C 35 20 53 41 0.. @ 17,5 SA
01D3E0: 59 20 27 45 6E 74 65 72 20 76 61 6C 75 65 20 74 Y 'Enter value t
01D3F0: 6F 20 62 65 20 63 6F 6D 70 61 72 65 64 20 61 67 o be compared ag
01D400: 6E 74 65 72 65 64 20 74 68 65 20 43 4F 4E 54 49 ntered the CONTI
01D410: 4E 55 45 20 2D 0D 0A 20 20 20 20 20 73 68 6F 77 NUE -.. show
01D420: 6E 20 62 65 6C 6F 77 20 74 68 65 20 6C 69 6E 65 n below the line
01D430: 2E 0D 0A 0D 0A 45 4E 44 54 45 58 54 0D 0A 20 20 .....ENDTEXT..
01D440: 53 54 4F 52 45 20 27 43 4F 4E 54 49 4E 55 45 27 STORE 'CONTINUE'
01D450: 20 54 4F 20 53 45 4C 45 43 54 0D 0A 20 20 40 20 TO SELECT.. @
01D460: 32 33 2C 31 20 53 41 59 20 27 2E 20 27 2B 4D 2E 23,1 SAY '. '+M.
01D470: 53 45 4C 45 43 54 0D 0A 20 20 53 54 4F 52 45 20 SELECT.. STORE
01D480: 27 20 27 20 54 4F 20 54 45 4D 50 0D 0A 20 20 40 ' ' TO TEMP.. @
01D490: 20 32 31 2C 35 20 53 41 59 20 27 50 72 65 73 73 21,5 SAY 'Press
01D4A0: 20 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 any key to cont
01D4B0: 69 6E 75 65 20 27 0D 0A 20 20 40 20 32 31 2C 31 inue '.. @ 21,1
01D4C0: 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 52 GET M.TEMP.. R
01D4D0: 45 41 44 0D 0A 20 20 43 4C 45 41 52 20 47 45 54 EAD.. CLEAR GET
01D4E0: 53 0D 0A 20 20 45 52 41 53 45 0D 0A 54 45 58 54 S.. ERASE..TEXT
01D4F0: 0D 0A 0D 0A 57 45 4C 43 4F 4D 45 20 20 20 20 20 ....WELCOME
01D500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01D510: 43 52 45 41 54 45 20 41 20 44 41 54 41 42 41 53 CREATE A DATABAS
01D520: 45 20 46 49 4C 45 20 20 20 20 20 20 20 20 20 20 E FILE
01D530: 20 20 20 20 20 20 20 20 20 20 64 42 41 53 45 20 dBASE
01D540: 49 49 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D II..------------
01D550: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01D560: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01D570: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01D580: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01D590: 2D 2D 2D 0D 0A 45 4E 44 54 45 58 54 0D 0A 40 20 ---..ENDTEXT..@
01D5A0: 32 32 2C 31 20 53 41 59 20 27 2D 2D 2D 2D 2D 2D 22,1 SAY '------
01D5B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01D5C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01D5D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01D5E0: 2D 2D 2D 2D 2D 2D 2D 2D 27 20 3B 0D 0A 20 20 20 --------' ;..
01D5F0: 20 20 20 20 20 20 2B 20 27 2D 2D 2D 2D 2D 2D 2D + '-------
01D600: 61 69 6E 73 74 20 27 20 47 45 54 20 4D 2E 4D 41 ainst ' GET M.MA
01D610: 54 48 20 50 49 43 54 20 26 50 49 43 54 31 0D 0A TH PICT &PICT1..
01D620: 20 20 20 20 52 45 41 44 0D 0A 20 20 20 20 43 4C READ.. CL
01D630: 45 41 52 20 47 45 54 53 0D 0A 20 20 20 20 53 54 EAR GETS.. ST
01D640: 4F 52 45 20 27 20 27 2B 53 54 52 28 4D 2E 4D 41 ORE ' '+STR(M.MA
01D650: 54 48 2C 46 49 45 4C 44 3A 4C 45 4E 2C 46 49 45 TH,FIELD:LEN,FIE
01D660: 4C 44 3A 44 45 43 29 20 54 4F 20 4D 41 54 48 32 LD:DEC) TO MATH2
01D670: 0D 0A 20 20 20 20 53 54 4F 52 45 20 4D 2E 53 45 .. STORE M.SE
01D680: 4C 45 43 54 2B 4D 2E 4D 41 54 48 32 20 54 4F 20 LECT+M.MATH2 TO
01D690: 53 45 4C 45 43 54 0D 0A 20 20 4F 54 48 45 52 57 SELECT.. OTHERW
01D6A0: 49 53 45 20 0D 0A 20 20 20 20 40 20 31 37 2C 35 ISE .. @ 17,5
01D6B0: 0D 0A 20 20 20 20 53 54 4F 52 45 20 27 20 27 20 .. STORE ' '
01D6C0: 54 4F 20 4C 4F 47 49 43 20 0D 0A 20 20 20 20 44 TO LOGIC .. D
01D6D0: 4F 20 57 48 49 4C 45 20 2E 4E 4F 54 2E 20 4D 2E O WHILE .NOT. M.
01D6E0: 4C 4F 47 49 43 24 27 54 46 27 20 0D 0A 20 20 20 LOGIC$'TF' ..
01D6F0: 20 20 20 40 20 31 37 2C 35 20 53 41 59 20 27 4C @ 17,5 SAY 'L
01D700: 6F 63 61 74 65 20 66 6F 72 20 66 69 65 6C 64 20 ocate for field
01D710: 3D 20 28 54 29 72 75 65 20 6F 72 20 28 46 29 61 = (T)rue or (F)a
01D720: 6C 73 65 20 27 20 47 45 54 20 4D 2E 4C 4F 47 49 lse ' GET M.LOGI
01D730: 43 20 50 49 43 54 20 27 21 27 0D 0A 20 20 20 20 C PICT '!'..
01D740: 20 20 52 45 41 44 0D 0A 20 20 20 20 20 20 43 4C READ.. CL
01D750: 45 41 52 20 47 45 54 53 0D 0A 20 20 20 20 45 4E EAR GETS.. EN
01D760: 44 44 4F 0D 0A 20 20 20 20 49 46 20 4D 2E 4C 4F DDO.. IF M.LO
01D770: 47 49 43 20 3D 20 27 46 27 0D 0A 20 20 20 20 20 GIC = 'F'..
01D780: 20 53 54 4F 52 45 20 4D 2E 53 45 4C 45 43 54 2B STORE M.SELECT+
01D790: 27 20 2E 4E 4F 54 2E 27 20 54 4F 20 53 45 4C 45 ' .NOT.' TO SELE
01D7A0: 43 54 0D 0A 20 20 20 20 45 4E 44 49 46 0D 0A 20 CT.. ENDIF..
01D7B0: 20 20 20 53 54 4F 52 45 20 4D 2E 53 45 4C 45 43 STORE M.SELEC
01D7C0: 54 2B 27 20 27 2B 54 52 49 4D 28 46 49 45 4C 44 T+' '+TRIM(FIELD
01D7D0: 3A 4E 41 4D 45 29 20 54 4F 20 53 45 4C 45 43 54 :NAME) TO SELECT
01D7E0: 0D 0A 45 4E 44 43 41 53 45 20 20 0D 0A 45 52 41 ..ENDCASE ..ERA
01D7F0: 53 45 0D 0A 40 20 31 2C 31 20 53 41 59 20 27 57 SE..@ 1,1 SAY 'W
01D800: 2D 2D 2D 2D 2D 2D 2D 2D 27 0D 0A 20 20 40 20 31 --------'.. @ 1
01D810: 39 2C 35 20 53 41 59 20 27 42 65 6C 6F 77 20 74 9,5 SAY 'Below t
01D820: 68 65 20 6C 69 6E 65 20 79 6F 75 20 77 69 6C 6C he line you will
01D830: 20 6E 6F 77 20 73 65 65 20 74 68 65 20 63 6F 6D now see the com
01D840: 70 6C 65 74 65 20 63 6F 6D 6D 61 6E 64 27 0D 0A plete command'..
01D850: 20 20 40 20 32 30 2C 35 20 53 41 59 20 27 61 73 @ 20,5 SAY 'as
01D860: 20 79 6F 75 20 77 6F 75 6C 64 20 74 79 70 65 20 you would type
01D870: 69 74 20 79 6F 75 72 73 65 6C 66 2E 27 20 0D 0A it yourself.' ..
01D880: 20 20 40 20 32 33 2C 31 20 53 41 59 20 27 2E 20 @ 23,1 SAY '.
01D890: 27 2B 4D 2E 53 45 4C 45 43 54 0D 0A 20 20 53 54 '+M.SELECT.. ST
01D8A0: 4F 52 45 20 27 20 27 20 54 4F 20 54 45 4D 50 0D ORE ' ' TO TEMP.
01D8B0: 0A 20 20 40 20 32 31 2C 35 20 53 41 59 20 27 50 . @ 21,5 SAY 'P
01D8C0: 72 65 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 ress any key to
01D8D0: 63 6F 6E 74 69 6E 75 65 20 27 0D 0A 20 20 40 20 continue '.. @
01D8E0: 32 31 2C 31 20 47 45 54 20 4D 2E 54 45 4D 50 0D 21,1 GET M.TEMP.
01D8F0: 0A 20 20 52 45 41 44 0D 0A 20 20 43 4C 45 41 52 . READ.. CLEAR
01D900: 20 47 45 54 53 0D 0A 20 20 53 54 4F 52 45 20 4C GETS.. STORE L
01D910: 45 4E 28 4D 2E 53 45 4C 45 43 54 29 2B 33 20 54 EN(M.SELECT)+3 T
01D920: 4F 20 43 4F 4C 0D 0A 20 20 53 54 4F 52 45 20 32 O COL.. STORE 2
01D930: 32 20 54 4F 20 4D 2E 4C 49 4E 45 0D 0A 20 20 49 2 TO M.LINE.. I
01D940: 46 20 4D 2E 43 4F 4C 3E 37 39 0D 0A 20 20 20 20 F M.COL>79..
01D950: 53 54 4F 52 45 20 32 33 20 54 4F 20 4C 49 4E 45 STORE 23 TO LINE
01D960: 0D 0A 20 20 20 20 53 54 4F 52 45 20 4D 2E 43 4F .. STORE M.CO
01D970: 4C 2D 37 39 20 54 4F 20 43 4F 4C 0D 0A 20 20 45 L-79 TO COL.. E
01D980: 4E 44 49 46 0D 0A 20 20 26 53 45 4C 45 43 54 0D NDIF.. &SELECT.
01D990: 0A 20 20 49 46 20 45 4F 46 0D 0A 20 20 20 20 40 . IF EOF.. @
01D9A0: 20 31 30 2C 32 37 20 53 41 59 20 27 2A 2A 2A 2A 10,27 SAY '****
01D9B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
01D9C0: 2A 2A 2A 2A 2A 27 0D 0A 20 20 20 20 40 20 31 31 *****'.. @ 11
01D9D0: 2C 32 37 20 53 41 59 20 27 2A 20 4E 4F 20 4D 4F ,27 SAY '* NO MO
01D9E0: 52 45 20 52 45 43 4F 52 44 53 20 46 4F 55 4E 44 RE RECORDS FOUND
01D9F0: 20 2A 27 0D 0A 20 20 20 20 40 20 31 32 2C 32 37 *'.. @ 12,27
01DA00: 45 4C 43 4F 4D 45 20 20 20 20 20 20 20 20 20 20 ELCOME
01DA10: 20 20 20 20 20 20 20 20 20 20 20 4C 4F 43 41 54 LOCAT
01DA20: 45 20 52 45 43 4F 52 44 53 20 20 20 20 20 20 20 E RECORDS
01DA30: 20 20 20 20 20 20 20 20 20 20 27 20 3B 0D 0A 20 ' ;..
01DA40: 20 20 20 20 20 20 20 2B 20 27 20 20 20 20 20 64 + ' d
01DA50: 42 41 53 45 20 49 49 27 0D 0A 40 20 32 2C 31 20 BASE II'..@ 2,1
01DA60: 53 41 59 20 4D 2E 55 4E 44 45 52 4C 4E 0D 0A 40 SAY M.UNDERLN..@
01DA70: 20 32 32 2C 31 20 53 41 59 20 4D 2E 55 4E 44 45 22,1 SAY M.UNDE
01DA80: 52 4C 4E 0D 0A 53 45 4C 45 43 54 20 50 52 49 4D RLN..SELECT PRIM
01DA90: 41 52 59 0D 0A 40 20 32 33 2C 30 20 53 41 59 20 ARY..@ 23,0 SAY
01DAA0: 27 2E 20 27 2B 4D 2E 53 45 4C 45 43 54 0D 0A 40 '. '+M.SELECT..@
01DAB0: 20 31 39 2C 35 20 53 41 59 20 27 42 65 6C 6F 77 19,5 SAY 'Below
01DAC0: 20 74 68 65 20 6C 69 6E 65 20 79 6F 75 20 77 69 the line you wi
01DAD0: 6C 6C 20 6E 6F 77 20 73 65 65 20 74 68 65 20 63 ll now see the c
01DAE0: 6F 6D 70 6C 65 74 65 20 63 6F 6D 6D 61 6E 64 27 omplete command'
01DAF0: 0D 0A 40 20 32 30 2C 35 20 53 41 59 20 27 61 73 ..@ 20,5 SAY 'as
01DB00: 20 79 6F 75 20 77 6F 75 6C 64 20 74 79 70 65 20 you would type
01DB10: 69 74 20 79 6F 75 72 73 65 6C 66 2E 27 20 0D 0A it yourself.' ..
01DB20: 53 54 4F 52 45 20 27 20 27 20 54 4F 20 54 45 4D STORE ' ' TO TEM
01DB30: 50 0D 0A 40 20 32 31 2C 35 20 53 41 59 20 27 50 P..@ 21,5 SAY 'P
01DB40: 72 65 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 ress any key to
01DB50: 63 6F 6E 74 69 6E 75 65 20 27 0D 0A 40 20 32 31 continue '..@ 21
01DB60: 2C 31 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 52 ,1 GET M.TEMP..R
01DB70: 45 41 44 0D 0A 43 4C 45 41 52 20 47 45 54 53 0D EAD..CLEAR GETS.
01DB80: 0A 40 20 31 37 2C 30 0D 0A 40 20 31 38 2C 30 0D .@ 17,0..@ 18,0.
01DB90: 0A 40 20 31 39 2C 30 0D 0A 40 20 32 30 2C 30 0D .@ 19,0..@ 20,0.
01DBA0: 0A 40 20 32 31 2C 30 0D 0A 53 54 4F 52 45 20 4C .@ 21,0..STORE L
01DBB0: 45 4E 28 4D 2E 53 45 4C 45 43 54 29 2B 33 20 54 EN(M.SELECT)+3 T
01DBC0: 4F 20 43 4F 4C 0D 0A 53 54 4F 52 45 20 32 32 20 O COL..STORE 22
01DBD0: 54 4F 20 4C 49 4E 45 0D 0A 49 46 20 4D 2E 43 4F TO LINE..IF M.CO
01DBE0: 4C 3E 37 39 0D 0A 20 20 53 54 4F 52 45 20 32 33 L>79.. STORE 23
01DBF0: 20 54 4F 20 4C 49 4E 45 0D 0A 20 20 53 54 4F 52 TO LINE.. STOR
01DC00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01DC10: 19 00 01 00 02 09 52 E5 19 00 41 02 00 00 00 02 ......R...A.....
01DC20: 19 00 46 02 00 00 00 02 19 00 42 02 00 00 00 02 ..F.......B.....
01DC30: 19 00 47 02 00 00 00 02 19 00 43 02 00 00 00 02 ..G.......C.....
01DC40: 19 00 48 02 00 00 00 02 19 00 44 02 00 00 00 02 ..H.......D.....
01DC50: 19 00 49 02 00 00 00 02 19 00 45 02 00 00 00 02 ..I.......E.....
01DC60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DD00: 20 53 41 59 20 27 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A SAY '**********
01DD10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 27 ***************'
01DD20: 0D 0A 20 20 20 20 3F 0D 0A 20 20 20 20 3F 0D 0A .. ?.. ?..
01DD30: 20 20 20 20 3F 0D 0A 20 20 20 20 53 54 4F 52 45 ?.. STORE
01DD40: 20 31 20 54 4F 20 43 0D 0A 20 20 20 20 44 4F 20 1 TO C.. DO
01DD50: 57 48 49 4C 45 20 43 20 3C 20 32 35 0D 0A 20 20 WHILE C < 25..
01DD60: 20 20 20 53 54 4F 52 45 20 43 2B 31 20 54 4F 20 STORE C+1 TO
01DD70: 43 0D 0A 20 20 20 20 45 4E 44 44 4F 0D 0A 45 4C C.. ENDDO..EL
01DD80: 53 45 0D 0A 20 20 20 20 40 20 31 30 2C 32 37 20 SE.. @ 10,27
01DD90: 53 41 59 20 27 20 20 20 20 20 20 20 20 20 20 20 SAY '
01DDA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 0D '.
01DDB0: 0A 20 20 20 20 40 20 31 31 2C 32 37 20 53 41 59 . @ 11,27 SAY
01DDC0: 20 27 20 20 41 4E 4F 54 48 45 52 20 52 45 43 4F ' ANOTHER RECO
01DDD0: 52 44 20 46 4F 55 4E 44 20 20 20 27 0D 0A 20 20 RD FOUND '..
01DDE0: 20 20 40 20 31 32 2C 32 37 20 53 41 59 20 27 20 @ 12,27 SAY '
01DDF0: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------------
01DE00: 2D 2D 2D 2D 2D 20 20 20 27 0D 0A 20 20 20 20 44 ----- '.. D
01DE10: 49 53 50 0D 0A 20 20 45 4E 44 49 46 0D 0A 45 4E ISP.. ENDIF..EN
01DE20: 44 44 4F 0D 0A 45 52 41 53 45 0D 0A 40 20 31 2C DDO..ERASE..@ 1,
01DE30: 31 20 53 41 59 20 27 57 45 4C 43 4F 4D 45 20 20 1 SAY 'WELCOME
01DE40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01DE50: 20 20 20 4C 4F 43 41 54 45 20 52 45 43 4F 52 44 LOCATE RECORD
01DE60: 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 S
01DE70: 20 20 27 20 3B 0D 0A 20 20 20 20 20 20 20 20 2B ' ;.. +
01DE80: 20 27 20 20 20 20 20 64 42 41 53 45 20 49 49 27 ' dBASE II'
01DE90: 0D 0A 40 20 32 2C 31 20 53 41 59 20 4D 2E 55 4E ..@ 2,1 SAY M.UN
01DEA0: 44 45 52 4C 4E 0D 0A 40 20 32 32 2C 31 20 53 41 DERLN..@ 22,1 SA
01DEB0: 59 20 4D 2E 55 4E 44 45 52 4C 4E 0D 0A 40 20 31 Y M.UNDERLN..@ 1
01DEC0: 31 2C 32 37 20 53 41 59 20 27 52 45 54 55 52 4E 1,27 SAY 'RETURN
01DED0: 49 4E 47 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 ING TO MAIN MENU
01DEE0: 27 0D 0A 40 20 32 30 2C 31 0D 0A 53 54 4F 52 45 '..@ 20,1..STORE
01DEF0: 20 31 20 54 4F 20 43 0D 0A 44 4F 20 57 48 49 4C 1 TO C..DO WHIL
01DF00: 72 65 73 65 6E 74 6C 79 20 69 6E 20 75 73 65 20 resently in use
01DF10: 69 73 20 2D 20 27 2B 4D 2E 4D 46 49 4C 45 0D 0A is - '+M.MFILE..
01DF20: 53 54 4F 52 45 20 27 20 27 20 54 4F 20 52 45 50 STORE ' ' TO REP
01DF30: 4C 59 0D 0A 44 4F 20 57 48 49 4C 45 20 2E 4E 4F LY..DO WHILE .NO
01DF40: 54 2E 21 28 4D 2E 52 45 50 4C 59 29 24 27 59 4E T.!(M.REPLY)$'YN
01DF50: 27 0D 0A 20 20 40 20 32 31 2C 30 0D 0A 20 20 40 '.. @ 21,0.. @
01DF60: 20 32 31 2C 35 20 53 41 59 20 27 44 6F 20 79 6F 21,5 SAY 'Do yo
01DF70: 75 20 77 69 73 68 20 74 6F 20 72 65 70 6F 72 74 u wish to report
01DF80: 20 6F 6E 20 74 68 69 73 20 66 69 6C 65 3F 20 59 on this file? Y
01DF90: 2F 4E 20 27 20 0D 0A 20 20 40 20 32 31 2C 31 20 /N ' .. @ 21,1
01DFA0: 47 45 54 20 4D 2E 52 45 50 4C 59 0D 0A 20 20 52 GET M.REPLY.. R
01DFB0: 45 41 44 0D 0A 20 20 43 4C 45 41 52 20 47 45 54 EAD.. CLEAR GET
01DFC0: 53 0D 0A 45 4E 44 44 4F 0D 0A 45 52 41 53 45 0D S..ENDDO..ERASE.
01DFD0: 0A 40 20 31 2C 31 20 53 41 59 20 27 57 45 4C 43 .@ 1,1 SAY 'WELC
01DFE0: 4F 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 20 OME
01DFF0: 20 20 20 20 20 20 20 20 52 45 50 4F 52 54 20 43 REPORT C
01E000: 52 45 41 54 49 4F 4E 20 20 20 20 20 20 20 20 20 REATION
01E010: 20 20 20 20 20 20 20 27 20 3B 0D 0A 20 20 20 20 ' ;..
01E020: 20 20 20 20 2B 20 27 20 20 20 20 20 20 64 42 41 + ' dBA
01E030: 53 45 20 49 49 27 0D 0A 40 20 32 2C 31 20 53 41 SE II'..@ 2,1 SA
01E040: 59 20 4D 2E 55 4E 44 45 52 4C 4E 0D 0A 40 20 32 Y M.UNDERLN..@ 2
01E050: 32 2C 31 20 53 41 59 20 4D 2E 55 4E 44 45 52 4C 2,1 SAY M.UNDERL
01E060: 4E 0D 0A 49 46 20 21 28 4D 2E 52 45 50 4C 59 29 N..IF !(M.REPLY)
01E070: 3D 27 4E 27 0D 0A 20 20 40 20 31 31 2C 32 37 20 ='N'.. @ 11,27
01E080: 53 41 59 20 27 52 45 54 55 52 4E 49 4E 47 20 54 SAY 'RETURNING T
01E090: 4F 20 4D 41 49 4E 20 4D 45 4E 55 27 0D 0A 20 20 O MAIN MENU'..
01E0A0: 40 20 32 30 2C 31 0D 0A 20 20 53 54 4F 52 45 20 @ 20,1.. STORE
01E0B0: 31 20 54 4F 20 43 0D 0A 20 20 44 4F 20 57 48 49 1 TO C.. DO WHI
01E0C0: 4C 45 20 43 20 3C 20 32 35 0D 0A 20 20 20 20 53 LE C < 25.. S
01E0D0: 54 4F 52 45 20 43 2B 31 20 54 4F 20 43 0D 0A 20 TORE C+1 TO C..
01E0E0: 20 45 4E 44 44 4F 0D 0A 20 20 52 45 4C 45 41 53 ENDDO.. RELEAS
01E0F0: 45 20 41 4C 4C 20 45 58 43 45 50 54 20 4D 46 49 E ALL EXCEPT MFI
01E100: 45 20 43 20 3C 20 32 35 0D 0A 20 20 53 54 4F 52 E C < 25.. STOR
01E110: 45 20 43 2B 31 20 54 4F 20 43 0D 0A 45 4E 44 44 E C+1 TO C..ENDD
01E120: 4F 0D 0A 52 45 4C 45 41 53 45 20 41 4C 4C 20 45 O..RELEASE ALL E
01E130: 58 43 45 50 54 20 4D 46 49 4C 45 0D 0A 53 45 4C XCEPT MFILE..SEL
01E140: 45 20 53 45 43 4F 0D 0A 55 53 45 0D 0A 53 45 4C E SECO..USE..SEL
01E150: 45 20 50 52 49 4D 0D 0A 55 53 45 20 26 4D 46 49 E PRIM..USE &MFI
01E160: 4C 45 0D 0A 44 45 4C 45 54 45 20 46 49 4C 45 20 LE..DELETE FILE
01E170: 54 45 4D 50 53 54 52 55 2E 44 42 46 0D 0A 52 45 TEMPSTRU.DBF..RE
01E180: 54 55 52 4E 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A TURN............
01E190: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01E1A0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01E1B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01E1C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01E1D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01E1E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01E1F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01E200: 79 6F 75 20 73 75 72 65 3F 20 59 2F 4E 20 27 20 you sure? Y/N '
01E210: 0D 0A 20 20 40 20 32 31 2C 31 20 47 45 54 20 4D .. @ 21,1 GET M
01E220: 2E 52 45 50 4C 59 20 50 49 43 54 20 22 21 22 0D .REPLY PICT "!".
01E230: 0A 20 20 52 45 41 44 0D 0A 20 20 43 4C 45 41 52 . READ.. CLEAR
01E240: 20 47 45 54 53 0D 0A 45 4E 44 44 4F 0D 0A 40 20 GETS..ENDDO..@
01E250: 32 30 2C 30 0D 0A 40 20 32 31 2C 30 0D 0A 49 46 20,0..@ 21,0..IF
01E260: 20 4D 2E 52 45 50 4C 59 3D 27 4E 27 0D 0A 20 20 M.REPLY='N'..
01E270: 40 20 32 33 2C 30 20 53 41 59 20 4D 2E 42 4C 41 @ 23,0 SAY M.BLA
01E280: 4E 4B 0D 0A 20 20 40 20 31 31 2C 32 37 20 53 41 NK.. @ 11,27 SA
01E290: 59 20 27 52 45 54 55 52 4E 49 4E 47 20 54 4F 20 Y 'RETURNING TO
01E2A0: 4D 41 49 4E 20 4D 45 4E 55 27 0D 0A 20 20 40 20 MAIN MENU'.. @
01E2B0: 32 30 2C 31 0D 0A 20 20 53 54 4F 52 45 20 31 20 20,1.. STORE 1
01E2C0: 54 4F 20 43 0D 0A 20 20 44 4F 20 57 48 49 4C 45 TO C.. DO WHILE
01E2D0: 20 43 20 3C 20 32 35 0D 0A 20 20 20 20 53 54 4F C < 25.. STO
01E2E0: 52 45 20 43 2B 31 20 54 4F 20 43 0D 0A 20 20 45 RE C+1 TO C.. E
01E2F0: 4E 44 44 4F 0D 0A 20 20 52 45 4C 45 41 53 45 20 NDDO.. RELEASE
01E300: 4C 45 0D 0A 20 20 52 45 54 55 52 4E 0D 0A 45 4E LE.. RETURN..EN
01E310: 44 49 46 0D 0A 40 20 34 2C 30 0D 0A 54 45 58 54 DIF..@ 4,0..TEXT
01E320: 0D 0A 20 20 20 20 20 59 6F 75 20 77 6F 75 6C 64 .. You would
01E330: 20 63 72 65 61 74 65 20 61 20 72 65 70 6F 72 74 create a report
01E340: 20 20 6F 72 20 70 72 69 6E 74 20 61 6E 20 65 78 or print an ex
01E350: 69 73 74 69 6E 67 20 72 65 70 6F 72 74 20 0D 0A isting report ..
01E360: 20 20 20 20 20 69 6E 20 64 42 41 53 45 20 49 49 in dBASE II
01E370: 20 62 79 20 74 79 70 69 6E 67 0D 0A 20 20 20 20 by typing..
01E380: 0D 0A 20 20 20 20 20 20 2E 20 52 45 50 4F 52 54 .. . REPORT
01E390: 20 46 4F 52 4D 20 3C 66 69 6C 65 6E 61 6D 65 3E FORM <filename>
01E3A0: 20 54 4F 20 50 52 49 4E 54 0D 0A 0D 0A 20 20 20 TO PRINT....
01E3B0: 20 20 42 79 20 6F 6D 69 74 69 6E 67 20 74 68 65 By omiting the
01E3C0: 20 6F 70 74 69 6F 6E 20 54 4F 20 50 52 49 4E 54 option TO PRINT
01E3D0: 20 79 6F 75 72 20 72 65 70 6F 72 74 20 77 69 6C your report wil
01E3E0: 6C 20 62 65 20 0D 0A 20 20 20 20 20 64 69 73 70 l be .. disp
01E3F0: 6C 61 79 65 64 20 6F 6E 20 74 68 65 20 73 63 72 layed on the scr
01E400: 65 65 6E 20 6F 6E 6C 79 2E 0D 0A 0D 0A 20 20 20 een only.....
01E410: 20 20 52 65 70 6F 72 74 20 69 73 20 75 73 65 64 Report is used
01E420: 20 20 74 6F 20 70 72 65 70 61 72 65 20 20 72 65 to prepare re
01E430: 70 6F 72 74 73 20 28 65 69 74 68 65 72 20 6F 6E ports (either on
01E440: 20 73 63 72 65 65 6E 20 0D 0A 20 20 20 20 20 6F screen .. o
01E450: 72 20 6F 6E 20 70 61 70 65 72 29 20 20 62 79 20 r on paper) by
01E460: 64 69 73 70 6C 61 79 69 6E 67 20 64 61 74 61 20 displaying data
01E470: 20 66 72 6F 6D 20 74 68 65 20 20 66 69 6C 65 20 from the file
01E480: 20 69 6E 20 55 53 45 20 0D 0A 20 20 20 20 20 69 in USE .. i
01E490: 6E 20 61 20 64 65 66 69 6E 65 64 20 6D 61 6E 6E n a defined mann
01E4A0: 65 72 2E 20 20 52 45 50 4F 52 54 53 20 20 6D 61 er. REPORTS ma
01E4B0: 79 20 20 68 61 76 65 20 74 69 74 6C 65 64 20 20 y have titled
01E4C0: 63 6F 6C 75 6D 6E 73 2C 20 20 0D 0A 20 20 20 20 columns, ..
01E4D0: 20 74 6F 74 61 6C 6C 65 64 20 20 6E 75 6D 65 72 totalled numer
01E4E0: 69 63 20 66 69 65 6C 64 73 2C 20 61 6E 64 20 64 ic fields, and d
01E4F0: 69 73 70 6C 61 79 65 64 20 65 78 70 72 65 73 73 isplayed express
01E500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E700: 69 6F 6E 73 20 0D 0A 20 20 20 20 20 69 6E 76 6F ions .. invo
01E710: 6C 76 69 6E 67 20 64 61 74 61 20 66 69 65 6C 64 lving data field
01E720: 73 2C 20 6D 65 6D 6F 72 79 20 76 61 72 69 61 62 s, memory variab
01E730: 6C 65 73 2C 61 6E 64 20 63 6F 6E 73 74 61 6E 74 les,and constant
01E740: 73 2E 0D 0A 65 6E 64 74 65 78 74 0D 0A 53 54 4F s...endtext..STO
01E750: 52 45 20 27 20 27 20 54 4F 20 54 45 4D 50 0D 0A RE ' ' TO TEMP..
01E760: 40 20 32 33 2C 30 20 53 41 59 20 27 2E 20 52 45 @ 23,0 SAY '. RE
01E770: 50 4F 52 54 20 46 4F 52 4D 27 0D 0A 40 20 32 31 PORT FORM'..@ 21
01E780: 2C 35 20 53 41 59 20 27 50 72 65 73 73 20 61 6E ,5 SAY 'Press an
01E790: 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 y key to continu
01E7A0: 65 20 27 0D 0A 40 20 32 31 2C 31 20 47 45 54 20 e '..@ 21,1 GET
01E7B0: 4D 2E 54 45 4D 50 0D 0A 52 45 41 44 0D 0A 43 4C M.TEMP..READ..CL
01E7C0: 45 41 52 20 47 45 54 53 0D 0A 45 52 41 53 45 0D EAR GETS..ERASE.
01E7D0: 0A 40 20 31 2C 31 20 53 41 59 20 27 57 45 4C 43 .@ 1,1 SAY 'WELC
01E7E0: 4F 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 20 OME
01E7F0: 20 20 20 20 20 20 20 20 52 45 50 4F 52 54 20 43 REPORT C
01E800: 52 45 41 54 49 4F 4E 20 20 20 20 20 20 20 20 20 REATION
01E810: 20 20 20 20 20 20 20 27 20 3B 0D 0A 20 20 20 20 ' ;..
01E820: 20 20 20 20 2B 20 27 20 20 20 20 20 20 64 42 41 + ' dBA
01E830: 53 45 20 49 49 27 0D 0A 40 20 32 2C 31 20 53 41 SE II'..@ 2,1 SA
01E840: 59 20 4D 2E 55 4E 44 45 52 4C 4E 0D 0A 40 20 32 Y M.UNDERLN..@ 2
01E850: 32 2C 31 20 53 41 59 20 4D 2E 55 4E 44 45 52 4C 2,1 SAY M.UNDERL
01E860: 4E 0D 0A 49 46 20 4D 2E 52 45 53 50 20 3D 20 27 N..IF M.RESP = '
01E870: 4E 27 0D 0A 20 20 40 20 32 33 2C 30 20 53 41 59 N'.. @ 23,0 SAY
01E880: 20 4D 2E 42 4C 41 4E 4B 32 0D 0A 20 20 40 20 31 M.BLANK2.. @ 1
01E890: 31 2C 32 37 20 53 41 59 20 27 52 45 54 55 52 4E 1,27 SAY 'RETURN
01E8A0: 49 4E 47 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 ING TO MAIN MENU
01E8B0: 27 0D 0A 20 20 40 20 32 30 2C 31 0D 0A 20 20 52 '.. @ 20,1.. R
01E8C0: 45 4C 45 41 53 45 20 41 4C 4C 20 45 58 43 45 50 ELEASE ALL EXCEP
01E8D0: 54 20 4D 46 49 4C 45 0D 0A 20 20 52 45 54 55 52 T MFILE.. RETUR
01E8E0: 4E 0D 0A 45 4E 44 49 46 0D 0A 40 20 32 33 2C 30 N..ENDIF..@ 23,0
01E8F0: 20 53 41 59 20 27 2E 20 52 45 50 4F 52 54 20 46 SAY '. REPORT F
01E900: 0D 0A 53 54 4F 52 45 20 27 20 20 20 20 20 20 20 ..STORE '
01E910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01E920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01E930: 27 20 54 4F 20 42 4C 41 4E 4B 32 0D 0A 53 54 4F ' TO BLANK2..STO
01E940: 52 45 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D RE '------------
01E950: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01E960: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 20 54 4F 20 -----------' TO
01E970: 55 4E 44 45 52 4C 4E 0D 0A 53 54 4F 52 45 20 4D UNDERLN..STORE M
01E980: 2E 55 4E 44 45 52 4C 4E 2B 4D 2E 55 4E 44 45 52 .UNDERLN+M.UNDER
01E990: 4C 4E 20 54 4F 20 55 4E 44 45 52 4C 4E 0D 0A 53 LN TO UNDERLN..S
01E9A0: 54 4F 52 45 20 4D 2E 42 4C 41 4E 4B 32 2B 4D 2E TORE M.BLANK2+M.
01E9B0: 42 4C 41 4E 4B 32 20 54 4F 20 42 4C 41 4E 4B 0D BLANK2 TO BLANK.
01E9C0: 0A 45 52 41 53 45 0D 0A 40 20 31 2C 31 20 53 41 .ERASE..@ 1,1 SA
01E9D0: 59 20 27 57 45 4C 43 4F 4D 45 20 20 20 20 20 20 Y 'WELCOME
01E9E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 R
01E9F0: 45 50 4F 52 54 20 43 52 45 41 54 49 4F 4E 20 20 EPORT CREATION
01EA00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 20 '
01EA10: 3B 0D 0A 20 20 20 20 20 20 20 20 2B 20 27 20 20 ;.. + '
01EA20: 20 20 20 20 64 42 41 53 45 20 49 49 27 0D 0A 40 dBASE II'..@
01EA30: 20 32 2C 31 20 53 41 59 20 4D 2E 55 4E 44 45 52 2,1 SAY M.UNDER
01EA40: 4C 4E 0D 0A 40 20 32 32 2C 31 20 53 41 59 20 4D LN..@ 22,1 SAY M
01EA50: 2E 55 4E 44 45 52 4C 4E 0D 0A 40 20 34 2C 35 20 .UNDERLN..@ 4,5
01EA60: 73 61 79 20 27 54 6F 20 72 65 70 6F 72 74 20 6F say 'To report o
01EA70: 6E 20 61 20 66 69 6C 65 20 69 6E 20 64 42 41 53 n a file in dBAS
01EA80: 45 20 49 49 20 79 6F 75 20 6D 75 73 74 20 66 69 E II you must fi
01EA90: 72 73 74 20 65 6E 73 75 72 65 27 0D 0A 40 20 35 rst ensure'..@ 5
01EAA0: 2C 35 20 73 61 79 20 27 74 68 61 74 20 79 6F 75 ,5 say 'that you
01EAB0: 20 68 61 76 65 20 6F 70 65 6E 65 64 20 61 20 66 have opened a f
01EAC0: 69 6C 65 2E 27 0D 0A 20 20 49 46 20 4D 2E 4D 46 ile.'.. IF M.MF
01EAD0: 49 4C 45 3D 27 20 20 20 20 20 20 20 20 27 0D 0A ILE=' '..
01EAE0: 20 20 40 20 32 30 2C 35 20 53 41 59 20 27 4E 6F @ 20,5 SAY 'No
01EAF0: 20 66 69 6C 65 20 69 6E 20 75 73 65 20 70 6C 65 file in use ple
01EB00: 4F 52 4D 27 0D 0A 40 20 34 2C 31 20 53 41 59 20 ORM'..@ 4,1 SAY
01EB10: 27 20 20 20 20 20 54 68 65 20 72 65 70 6F 72 74 ' The report
01EB20: 20 66 6F 72 6D 73 20 61 6C 72 65 61 64 79 20 63 forms already c
01EB30: 72 65 61 74 65 64 20 61 72 65 20 3A 2D 20 27 0D reated are :- '.
01EB40: 0A 4C 49 53 54 20 46 49 4C 45 20 4C 49 4B 45 20 .LIST FILE LIKE
01EB50: 2A 2E 46 52 4D 0D 0A 53 54 4F 52 45 20 27 20 27 *.FRM..STORE ' '
01EB60: 20 54 4F 20 52 45 53 50 0D 0A 44 4F 20 57 48 49 TO RESP..DO WHI
01EB70: 4C 45 20 2E 4E 4F 54 2E 20 4D 2E 52 45 53 50 24 LE .NOT. M.RESP$
01EB80: 27 59 4E 27 0D 0A 20 20 40 20 32 31 2C 35 20 53 'YN'.. @ 21,5 S
01EB90: 41 59 20 27 54 79 70 65 20 59 20 74 6F 20 75 73 AY 'Type Y to us
01EBA0: 65 20 6F 6E 65 20 6F 66 20 74 68 65 73 65 20 66 e one of these f
01EBB0: 69 6C 65 73 20 27 2B 3B 0D 0A 27 2D 20 54 79 70 iles '+;..'- Typ
01EBC0: 65 20 4E 20 74 6F 20 63 72 65 61 74 65 20 61 20 e N to create a
01EBD0: 6E 65 77 20 72 65 70 6F 72 74 27 20 0D 0A 20 20 new report' ..
01EBE0: 40 20 32 31 2C 31 20 47 45 54 20 4D 2E 52 45 53 @ 21,1 GET M.RES
01EBF0: 50 20 50 49 43 54 20 27 21 27 0D 0A 20 20 52 45 P PICT '!'.. RE
01EC00: 41 44 0D 0A 20 20 43 4C 45 41 52 20 47 45 54 53 AD.. CLEAR GETS
01EC10: 0D 0A 45 4E 44 44 4F 0D 0A 40 20 32 31 2C 30 0D ..ENDDO..@ 21,0.
01EC20: 0A 49 46 20 4D 2E 52 45 53 50 20 3D 20 27 59 27 .IF M.RESP = 'Y'
01EC30: 0D 0A 20 20 53 54 4F 52 45 20 27 20 20 20 20 20 .. STORE '
01EC40: 20 20 20 27 20 54 4F 20 46 46 49 4C 45 0D 0A 20 ' TO FFILE..
01EC50: 20 53 54 4F 52 45 20 46 20 54 4F 20 46 4F 55 4E STORE F TO FOUN
01EC60: 44 0D 0A 20 20 40 20 32 31 2C 35 20 53 41 59 20 D.. @ 21,5 SAY
01EC70: 27 42 65 20 43 41 52 45 46 55 4C 20 74 6F 20 63 'Be CAREFUL to c
01EC80: 68 6F 6F 73 65 20 61 20 52 65 70 6F 72 74 20 74 hoose a Report t
01EC90: 68 61 74 20 75 73 65 73 20 64 61 74 61 62 61 73 hat uses databas
01ECA0: 65 20 27 20 2B 20 4D 2E 4D 46 49 4C 45 0D 0A 20 e ' + M.MFILE..
01ECB0: 20 44 4F 20 57 48 49 4C 45 20 2E 4E 4F 54 2E 20 DO WHILE .NOT.
01ECC0: 4D 2E 46 4F 55 4E 44 0D 0A 20 20 20 20 40 20 31 M.FOUND.. @ 1
01ECD0: 37 2C 35 20 53 41 59 20 27 50 6C 65 61 73 65 20 7,5 SAY 'Please
01ECE0: 65 6E 74 65 72 20 66 69 6C 65 20 6E 61 6D 65 20 enter file name
01ECF0: 27 20 47 45 54 20 4D 2E 46 46 49 4C 45 20 50 49 ' GET M.FFILE PI
01ED00: 61 73 65 20 4F 50 45 4E 20 66 72 6F 6D 20 6D 61 ase OPEN from ma
01ED10: 69 6E 20 6D 65 6E 75 27 0D 0A 20 20 53 54 4F 52 in menu'.. STOR
01ED20: 45 20 27 20 27 20 54 4F 20 52 45 50 4C 59 0D 0A E ' ' TO REPLY..
01ED30: 20 20 53 54 4F 52 45 20 27 20 27 20 54 4F 20 54 STORE ' ' TO T
01ED40: 45 4D 50 0D 0A 20 20 40 20 32 31 2C 35 20 53 41 EMP.. @ 21,5 SA
01ED50: 59 20 27 50 72 65 73 73 20 61 6E 79 20 6B 65 79 Y 'Press any key
01ED60: 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 27 0D 0A to continue '..
01ED70: 20 20 40 20 32 31 2C 31 20 47 45 54 20 4D 2E 54 @ 21,1 GET M.T
01ED80: 45 4D 50 0D 0A 20 20 52 45 41 44 0D 0A 20 20 43 EMP.. READ.. C
01ED90: 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 45 52 41 LEAR GETS.. ERA
01EDA0: 53 45 0D 0A 40 20 31 2C 31 20 53 41 59 20 27 57 SE..@ 1,1 SAY 'W
01EDB0: 45 4C 43 4F 4D 45 20 20 20 20 20 20 20 20 20 20 ELCOME
01EDC0: 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4F 52 REPOR
01EDD0: 54 20 43 52 45 41 54 49 4F 4E 20 20 20 20 20 20 T CREATION
01EDE0: 20 20 20 20 20 20 20 20 20 20 27 20 3B 0D 0A 20 ' ;..
01EDF0: 20 20 20 20 20 20 20 2B 20 27 20 20 20 20 20 20 + '
01EE00: 64 42 41 53 45 20 49 49 27 0D 0A 20 20 40 20 32 dBASE II'.. @ 2
01EE10: 2C 31 20 53 41 59 20 4D 2E 55 4E 44 45 52 4C 4E ,1 SAY M.UNDERLN
01EE20: 0D 0A 20 20 40 20 32 32 2C 31 20 53 41 59 20 4D .. @ 22,1 SAY M
01EE30: 2E 55 4E 44 45 52 4C 4E 0D 0A 20 20 40 20 31 31 .UNDERLN.. @ 11
01EE40: 2C 32 37 20 53 41 59 20 27 52 45 54 55 52 4E 49 ,27 SAY 'RETURNI
01EE50: 4E 47 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 27 NG TO MAIN MENU'
01EE60: 0D 0A 20 20 40 20 32 30 2C 31 0D 0A 20 20 53 54 .. @ 20,1.. ST
01EE70: 4F 52 45 20 31 20 54 4F 20 43 0D 0A 20 20 44 4F ORE 1 TO C.. DO
01EE80: 20 57 48 49 4C 45 20 43 20 3C 20 32 35 0D 0A 20 WHILE C < 25..
01EE90: 20 20 20 53 54 4F 52 45 20 43 2B 31 20 54 4F 20 STORE C+1 TO
01EEA0: 43 0D 0A 20 20 45 4E 44 44 4F 0D 0A 20 20 52 45 C.. ENDDO.. RE
01EEB0: 4C 45 41 53 45 20 41 4C 4C 20 45 58 43 45 50 54 LEASE ALL EXCEPT
01EEC0: 20 4D 46 49 4C 45 0D 0A 20 20 52 45 54 55 52 4E MFILE.. RETURN
01EED0: 0D 0A 45 4E 44 49 46 20 5B 20 6E 6F 20 66 69 6C ..ENDIF [ no fil
01EEE0: 65 20 6F 70 65 6E 20 5D 0D 0A 40 20 32 30 2C 35 e open ]..@ 20,5
01EEF0: 20 53 41 59 20 27 54 68 65 20 66 69 6C 65 20 70 SAY 'The file p
01EF00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01EF10: 1A 00 01 00 02 09 52 E5 1A 00 41 02 00 00 00 02 ......R...A.....
01EF20: 1A 00 46 02 00 00 00 02 1A 00 42 02 00 00 00 02 ..F.......B.....
01EF30: 1A 00 47 02 00 00 00 02 1A 00 43 02 00 00 00 02 ..G.......C.....
01EF40: 1A 00 48 02 00 00 00 02 1A 00 44 02 00 00 00 02 ..H.......D.....
01EF50: 1A 00 49 02 00 00 00 02 1A 00 45 02 00 00 00 02 ..I.......E.....
01EF60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F000: 43 54 20 27 21 21 21 21 21 21 21 21 27 0D 0A 20 CT '!!!!!!!!'..
01F010: 20 20 20 40 20 31 37 2C 34 37 20 53 41 59 20 27 @ 17,47 SAY '
01F020: 5B 20 42 6C 61 6E 6B 20 74 6F 20 66 69 6E 69 73 [ Blank to finis
01F030: 68 5D 27 0D 0A 20 20 20 20 52 45 41 44 0D 0A 20 h]'.. READ..
01F040: 20 20 20 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 CLEAR GETS..
01F050: 20 20 20 49 46 20 4D 2E 46 46 49 4C 45 20 3D 20 IF M.FFILE =
01F060: 27 20 20 20 20 20 20 20 20 27 0D 0A 20 20 20 20 ' '..
01F070: 20 20 45 52 41 53 45 0D 0A 40 20 31 2C 31 20 53 ERASE..@ 1,1 S
01F080: 41 59 20 27 57 45 4C 43 4F 4D 45 20 20 20 20 20 AY 'WELCOME
01F090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F0A0: 52 45 50 4F 52 54 20 43 52 45 41 54 49 4F 4E 20 REPORT CREATION
01F0B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 '
01F0C0: 20 3B 0D 0A 20 20 20 20 20 20 20 20 2B 20 27 20 ;.. + '
01F0D0: 20 20 20 20 20 64 42 41 53 45 20 49 49 27 0D 0A dBASE II'..
01F0E0: 20 20 20 20 20 20 40 20 32 2C 31 20 53 41 59 20 @ 2,1 SAY
01F0F0: 4D 2E 55 4E 44 45 52 4C 4E 0D 0A 20 20 20 20 20 M.UNDERLN..
01F100: 20 40 20 32 32 2C 31 20 53 41 59 20 4D 2E 55 4E @ 22,1 SAY M.UN
01F110: 44 45 52 4C 4E 0D 0A 20 20 20 20 20 20 40 20 31 DERLN.. @ 1
01F120: 31 2C 32 37 20 53 41 59 20 27 52 45 54 55 52 4E 1,27 SAY 'RETURN
01F130: 49 4E 47 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 ING TO MAIN MENU
01F140: 27 0D 0A 20 20 20 20 20 20 40 20 32 30 2C 31 0D '.. @ 20,1.
01F150: 0A 20 20 20 20 20 20 52 45 4C 45 41 53 45 20 41 . RELEASE A
01F160: 4C 4C 20 45 58 43 45 50 54 20 4D 46 49 4C 45 0D LL EXCEPT MFILE.
01F170: 0A 20 20 20 20 20 20 53 54 4F 52 45 20 31 20 54 . STORE 1 T
01F180: 4F 20 43 0D 0A 20 20 20 20 20 20 44 4F 20 57 48 O C.. DO WH
01F190: 49 4C 45 20 43 20 3C 20 32 35 0D 0A 20 20 20 20 ILE C < 25..
01F1A0: 20 20 20 20 53 54 4F 52 45 20 43 2B 31 20 54 4F STORE C+1 TO
01F1B0: 20 43 0D 0A 20 20 20 20 20 20 45 4E 44 44 4F 0D C.. ENDDO.
01F1C0: 0A 20 20 20 20 20 20 52 45 54 55 52 4E 0D 0A 20 . RETURN..
01F1D0: 20 20 20 45 4E 44 49 46 0D 0A 20 20 20 20 40 20 ENDIF.. @
01F1E0: 32 30 2C 30 0D 0A 20 20 20 20 40 20 32 31 2C 31 20,0.. @ 21,1
01F1F0: 0D 0A 20 20 20 20 53 54 4F 52 45 20 54 52 49 4D .. STORE TRIM
01F200: 31 39 2C 30 0D 0A 20 20 20 20 20 20 40 20 32 30 19,0.. @ 20
01F210: 2C 30 0D 0A 20 20 20 20 20 20 40 20 32 31 2C 31 ,0.. @ 21,1
01F220: 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 20 27 20 .. STORE '
01F230: 20 20 20 20 20 20 20 27 20 54 4F 20 46 46 49 4C ' TO FFIL
01F240: 45 0D 0A 20 20 20 20 20 20 6C 6F 6F 70 0D 0A 20 E.. loop..
01F250: 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 64 6F endif.. do
01F260: 20 77 68 69 6C 65 20 2E 6E 6F 74 2E 20 65 6F 66 while .not. eof
01F270: 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 66 20 .. store f
01F280: 74 6F 20 6D 6A 67 6E 6F 67 6F 6F 64 0D 0A 20 20 to mjgnogood..
01F290: 20 20 20 20 69 66 20 40 28 27 2C 27 2C 66 69 65 if @(',',fie
01F2A0: 6C 64 3A 6E 61 6D 65 29 20 3D 20 30 0D 0A 20 20 ld:name) = 0..
01F2B0: 20 20 20 20 20 20 73 6B 69 70 0D 0A 20 20 20 20 skip..
01F2C0: 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 73 endif.. s
01F2D0: 74 6F 72 65 20 21 28 74 72 69 6D 28 24 28 66 69 tore !(trim($(fi
01F2E0: 65 6C 64 3A 6E 61 6D 65 2C 40 28 27 2C 27 2C 66 eld:name,@(',',f
01F2F0: 69 65 6C 64 3A 6E 61 6D 65 29 2B 31 29 29 29 20 ield:name)+1)))
01F300: 74 6F 20 6D 6A 67 66 69 65 6C 64 0D 0A 20 20 20 to mjgfield..
01F310: 20 20 20 73 65 6C 65 20 70 72 69 6D 0D 0A 20 20 sele prim..
01F320: 20 20 20 20 6C 6F 63 61 74 65 20 66 6F 72 20 21 locate for !
01F330: 28 74 72 69 6D 28 66 69 65 6C 64 3A 6E 61 6D 65 (trim(field:name
01F340: 29 29 20 3D 20 6D 6A 67 66 69 65 6C 64 0D 0A 20 )) = mjgfield..
01F350: 20 20 20 20 20 69 66 20 65 6F 66 0D 0A 20 20 20 if eof..
01F360: 20 20 20 20 20 40 20 32 31 2C 30 0D 0A 20 20 20 @ 21,0..
01F370: 20 20 20 20 20 40 20 32 30 2C 35 20 73 61 79 20 @ 20,5 say
01F380: 27 2A 2A 20 45 52 52 4F 52 20 2A 2A 20 54 68 69 '** ERROR ** Thi
01F390: 73 20 72 65 70 6F 72 74 20 64 6F 65 73 20 6E 6F s report does no
01F3A0: 74 20 63 6F 72 72 65 73 70 6F 6E 64 20 77 69 74 t correspond wit
01F3B0: 68 20 79 6F 75 72 20 64 61 74 61 62 61 73 65 27 h your database'
01F3C0: 0D 0A 20 20 20 20 20 20 20 20 53 54 4F 52 45 20 .. STORE
01F3D0: 27 20 27 20 54 4F 20 54 45 4D 50 0D 0A 20 20 20 ' ' TO TEMP..
01F3E0: 20 20 20 20 20 40 20 32 31 2C 35 20 53 41 59 20 @ 21,5 SAY
01F3F0: 27 50 72 65 73 73 20 61 6E 79 20 6B 65 79 20 74 'Press any key t
01F400: 28 4D 2E 46 46 49 4C 45 29 20 54 4F 20 54 46 49 (M.FFILE) TO TFI
01F410: 4C 45 0D 0A 0D 0A 20 20 20 20 53 54 4F 52 45 20 LE.... STORE
01F420: 54 52 49 4D 28 4D 2E 46 46 49 4C 45 29 20 54 4F TRIM(M.FFILE) TO
01F430: 20 4D 54 45 53 54 20 0D 0A 20 20 53 54 4F 52 45 MTEST .. STORE
01F440: 20 27 20 27 20 54 4F 20 45 52 52 31 2C 45 52 52 ' ' TO ERR1,ERR
01F450: 32 0D 0A 20 20 53 54 4F 52 45 20 54 20 54 4F 20 2.. STORE T TO
01F460: 4D 53 47 0D 0A 20 20 49 46 20 2E 4E 4F 54 2E 20 MSG.. IF .NOT.
01F470: 24 28 4D 2E 4D 54 45 53 54 2C 31 2C 31 29 24 27 $(M.MTEST,1,1)$'
01F480: 41 42 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F 50 ABCDEFGHIJKLMNOP
01F490: 51 52 53 54 55 56 57 58 59 5A 27 0D 0A 20 20 20 QRSTUVWXYZ'..
01F4A0: 20 53 54 4F 52 45 20 46 20 54 4F 20 4D 53 47 0D STORE F TO MSG.
01F4B0: 0A 20 20 20 20 53 54 4F 52 45 20 45 52 52 31 2B . STORE ERR1+
01F4C0: 27 5E 27 20 54 4F 20 45 52 52 31 0D 0A 20 20 20 '^' TO ERR1..
01F4D0: 20 53 54 4F 52 45 20 45 52 52 32 2B 27 21 27 20 STORE ERR2+'!'
01F4E0: 54 4F 20 45 52 52 32 20 0D 0A 20 20 20 45 4C 53 TO ERR2 .. ELS
01F4F0: 45 0D 0A 20 20 20 20 53 54 4F 52 45 20 45 52 52 E.. STORE ERR
01F500: 31 2B 27 20 27 20 54 4F 20 45 52 52 31 0D 0A 20 1+' ' TO ERR1..
01F510: 20 20 20 53 54 4F 52 45 20 45 52 52 32 2B 27 20 STORE ERR2+'
01F520: 27 20 54 4F 20 45 52 52 32 0D 0A 20 20 45 4E 44 ' TO ERR2.. END
01F530: 49 46 0D 0A 20 20 53 54 4F 52 45 20 32 20 54 4F IF.. STORE 2 TO
01F540: 20 43 0D 0A 20 20 44 4F 20 57 48 49 4C 45 20 43 C.. DO WHILE C
01F550: 20 3C 3D 20 4C 45 4E 28 4D 2E 4D 54 45 53 54 29 <= LEN(M.MTEST)
01F560: 0D 0A 20 20 20 20 49 46 20 2E 4E 4F 54 2E 20 24 .. IF .NOT. $
01F570: 28 4D 2E 4D 54 45 53 54 2C 43 2C 31 29 24 27 41 (M.MTEST,C,1)$'A
01F580: 42 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F 50 51 BCDEFGHIJKLMNOPQ
01F590: 52 53 54 55 56 57 58 59 5A 30 31 32 33 34 35 36 RSTUVWXYZ0123456
01F5A0: 37 38 39 27 0D 0A 20 20 20 20 20 20 53 54 4F 52 789'.. STOR
01F5B0: 45 20 45 52 52 31 2B 27 5E 27 20 54 4F 20 45 52 E ERR1+'^' TO ER
01F5C0: 52 31 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 20 R1.. STORE
01F5D0: 45 52 52 32 2B 27 21 27 20 54 4F 20 45 52 52 32 ERR2+'!' TO ERR2
01F5E0: 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 20 46 20 .. STORE F
01F5F0: 54 4F 20 4D 53 47 0D 0A 20 20 20 20 20 45 4C 53 TO MSG.. ELS
01F600: 6F 20 72 65 74 72 79 20 27 20 0D 0A 20 20 20 20 o retry ' ..
01F610: 20 20 20 20 40 20 32 31 2C 31 20 47 45 54 20 4D @ 21,1 GET M
01F620: 2E 54 45 4D 50 0D 0A 20 20 20 20 20 20 20 20 52 .TEMP.. R
01F630: 45 41 44 0D 0A 20 20 20 20 20 20 20 20 43 4C 45 EAD.. CLE
01F640: 41 52 20 47 45 54 53 0D 0A 20 20 20 20 20 20 20 AR GETS..
01F650: 20 40 20 31 37 2C 30 0D 0A 20 20 20 20 20 20 20 @ 17,0..
01F660: 20 40 20 31 38 2C 30 0D 0A 20 20 20 20 20 20 20 @ 18,0..
01F670: 20 40 20 31 39 2C 30 0D 0A 20 20 20 20 20 20 20 @ 19,0..
01F680: 20 40 20 32 30 2C 30 0D 0A 20 20 20 20 20 20 20 @ 20,0..
01F690: 20 40 20 32 31 2C 31 0D 0A 20 20 20 20 20 20 20 @ 21,1..
01F6A0: 20 73 74 6F 72 65 20 74 20 74 6F 20 6D 6A 67 6E store t to mjgn
01F6B0: 6F 67 6F 6F 64 0D 0A 20 20 20 20 20 20 20 20 53 ogood.. S
01F6C0: 54 4F 52 45 20 27 20 20 20 20 20 20 20 20 27 20 TORE ' '
01F6D0: 54 4F 20 46 46 49 4C 45 0D 0A 20 20 20 20 20 20 TO FFILE..
01F6E0: 20 20 6C 6F 6F 70 0D 0A 20 20 20 20 20 20 65 6E loop.. en
01F6F0: 64 69 66 0D 0A 20 20 20 20 20 20 73 65 6C 65 20 dif.. sele
01F700: 73 65 63 6F 0D 0A 20 20 20 20 20 20 73 6B 69 70 seco.. skip
01F710: 20 2B 32 0D 0A 20 20 20 20 65 6E 64 64 6F 0D 0A +2.. enddo..
01F720: 20 20 20 20 73 65 6C 65 20 73 65 63 6F 20 0D 0A sele seco ..
01F730: 20 20 20 20 75 73 65 0D 0A 20 20 20 20 73 65 6C use.. sel
01F740: 65 20 70 72 69 6D 0D 0A 20 20 20 20 75 73 65 0D e prim.. use.
01F750: 0A 20 20 20 20 64 65 6C 65 74 65 20 66 69 6C 65 . delete file
01F760: 20 74 65 6D 70 73 74 72 75 0D 0A 20 20 20 20 64 tempstru.. d
01F770: 65 6C 65 74 65 20 66 69 6C 65 20 74 65 6D 70 73 elete file temps
01F780: 74 72 31 0D 0A 20 20 20 20 69 66 20 6D 6A 67 6E tr1.. if mjgn
01F790: 6F 67 6F 6F 64 0D 0A 20 20 20 20 20 20 6C 6F 6F ogood.. loo
01F7A0: 70 0D 0A 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 p.. endif..
01F7B0: 20 20 72 65 6C 65 61 73 65 20 61 6C 6C 20 6C 69 release all li
01F7C0: 6B 65 20 6D 6A 67 2A 0D 0A 20 20 20 20 2A 2A 2A ke mjg*.. ***
01F7D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
01F7E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
01F7F0: 2A 2A 0D 0A 0D 0A 20 20 20 20 53 54 4F 52 45 20 **.... STORE
01F800: 45 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 20 45 E.. STORE E
01F810: 52 52 31 2B 27 20 27 20 54 4F 20 45 52 52 31 0D RR1+' ' TO ERR1.
01F820: 0A 20 20 20 20 20 20 53 54 4F 52 45 20 45 52 52 . STORE ERR
01F830: 32 2B 27 20 27 20 54 4F 20 45 52 52 32 0D 0A 20 2+' ' TO ERR2..
01F840: 20 20 20 45 4E 44 49 46 0D 0A 20 20 20 20 53 54 ENDIF.. ST
01F850: 4F 52 45 20 43 2B 31 20 54 4F 20 43 0D 0A 20 20 ORE C+1 TO C..
01F860: 45 4E 44 44 4F 0D 0A 20 20 49 46 20 4D 2E 4D 53 ENDDO.. IF M.MS
01F870: 47 20 20 20 0D 0A 20 20 20 20 40 20 32 33 2C 31 G .. @ 23,1
01F880: 34 20 53 41 59 20 4D 2E 4D 54 45 53 54 0D 0A 20 4 SAY M.MTEST..
01F890: 20 20 45 4C 53 45 0D 0A 20 20 20 20 40 20 31 38 ELSE.. @ 18
01F8A0: 2C 32 38 20 53 41 59 20 45 52 52 31 2B 27 20 20 ,28 SAY ERR1+'
01F8B0: 20 20 20 20 20 20 20 20 20 27 0D 0A 20 20 20 20 '..
01F8C0: 40 20 31 39 2C 32 38 20 53 41 59 20 45 52 52 32 @ 19,28 SAY ERR2
01F8D0: 2B 27 20 20 20 20 20 20 20 20 20 20 20 27 0D 0A +' '..
01F8E0: 20 20 20 20 40 20 32 31 2C 35 20 53 41 59 20 27 @ 21,5 SAY '
01F8F0: 49 6C 6C 65 67 61 6C 20 63 68 61 72 61 63 74 65 Illegal characte
01F900: 72 20 69 6E 20 74 68 65 20 46 69 6C 65 20 4E 61 r in the File Na
01F910: 6D 65 20 2D 20 70 72 65 73 73 20 61 6E 79 20 6B me - press any k
01F920: 65 79 3B 0D 0A 20 74 6F 20 20 72 65 74 72 79 27 ey;.. to retry'
01F930: 0D 0A 20 20 20 20 53 54 4F 52 45 20 27 20 27 20 .. STORE ' '
01F940: 54 4F 20 54 45 4D 50 0D 0A 20 20 20 20 40 20 32 TO TEMP.. @ 2
01F950: 31 2C 31 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 1,1 GET M.TEMP..
01F960: 20 20 20 20 52 45 41 44 0D 0A 20 20 20 20 43 4C READ.. CL
01F970: 45 41 52 20 47 45 54 53 0D 0A 20 20 20 20 53 54 EAR GETS.. ST
01F980: 4F 52 45 20 27 20 20 20 20 20 20 20 20 27 20 54 ORE ' ' T
01F990: 4F 20 46 46 49 4C 45 0D 0A 20 20 20 20 40 20 31 O FFILE.. @ 1
01F9A0: 37 2C 30 0D 0A 20 20 20 20 40 20 31 38 2C 30 0D 7,0.. @ 18,0.
01F9B0: 0A 20 20 20 20 40 20 31 39 2C 30 0D 0A 20 20 20 . @ 19,0..
01F9C0: 20 40 20 32 30 2C 30 0D 0A 20 20 20 20 40 20 32 @ 20,0.. @ 2
01F9D0: 31 2C 31 0D 0A 20 20 20 20 4C 4F 4F 50 0D 0A 20 1,1.. LOOP..
01F9E0: 20 45 4E 44 49 46 0D 0A 0D 0A 20 20 20 20 49 46 ENDIF.... IF
01F9F0: 20 2E 4E 4F 54 2E 20 46 49 4C 45 20 28 20 27 26 .NOT. FILE ( '&
01FA00: 54 20 54 4F 20 46 4F 55 4E 44 0D 0A 20 20 45 4E T TO FOUND.. EN
01FA10: 44 44 4F 0D 0A 20 20 45 52 41 53 45 0D 0A 20 20 DDO.. ERASE..
01FA20: 40 20 31 2C 31 20 53 41 59 20 27 57 45 4C 43 4F @ 1,1 SAY 'WELCO
01FA30: 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ME
01FA40: 20 20 20 20 20 20 20 52 45 50 4F 52 54 20 50 52 REPORT PR
01FA50: 49 4E 54 49 4E 47 20 20 20 20 20 20 20 20 20 20 INTING
01FA60: 20 20 20 20 20 20 20 27 20 3B 0D 0A 20 20 20 20 ' ;..
01FA70: 20 20 20 20 20 20 2B 20 27 20 20 20 20 20 64 42 + ' dB
01FA80: 41 53 45 20 49 49 27 0D 0A 20 20 40 20 32 2C 31 ASE II'.. @ 2,1
01FA90: 20 53 41 59 20 4D 2E 55 4E 44 45 52 4C 4E 0D 0A SAY M.UNDERLN..
01FAA0: 20 20 40 20 32 32 2C 31 20 53 41 59 20 4D 2E 55 @ 22,1 SAY M.U
01FAB0: 4E 44 45 52 4C 4E 0D 0A 20 20 40 20 31 31 2C 32 NDERLN.. @ 11,2
01FAC0: 30 20 53 41 59 20 27 50 6C 65 61 73 65 20 57 61 0 SAY 'Please Wa
01FAD0: 69 74 20 2E 2E 2E 20 6E 6F 77 20 6C 6F 61 64 69 it ... now loadi
01FAE0: 6E 67 20 74 68 65 20 6E 65 78 74 20 57 65 6C 63 ng the next Welc
01FAF0: 6F 6D 65 20 66 69 6C 65 27 0D 0A 20 20 40 20 32 ome file'.. @ 2
01FB00: 30 2C 31 0D 0A 20 20 53 45 4C 45 20 53 45 43 4F 0,1.. SELE SECO
01FB10: 0D 0A 20 20 53 45 4C 45 20 50 52 49 4D 0D 0A 20 .. SELE PRIM..
01FB20: 20 55 53 45 20 26 4D 46 49 4C 45 0D 0A 20 20 40 USE &MFILE.. @
01FB30: 20 31 31 2C 30 0D 0A 20 20 53 54 4F 52 45 20 27 11,0.. STORE '
01FB40: 20 27 20 54 4F 20 52 50 52 49 4E 54 0D 0A 20 20 ' TO RPRINT..
01FB50: 44 4F 20 57 48 49 4C 45 20 2E 4E 4F 54 2E 20 4D DO WHILE .NOT. M
01FB60: 2E 52 50 52 49 4E 54 24 27 50 53 27 0D 0A 20 20 .RPRINT$'PS'..
01FB70: 20 20 40 20 32 31 2C 35 20 53 41 59 20 27 44 6F @ 21,5 SAY 'Do
01FB80: 20 79 6F 75 20 77 61 6E 74 20 6F 75 74 70 75 74 you want output
01FB90: 20 74 6F 20 50 72 69 6E 74 65 72 20 6F 72 20 74 to Printer or t
01FBA0: 6F 20 74 68 65 20 53 63 72 65 65 6E 20 3F 20 28 o the Screen ? (
01FBB0: 50 2F 53 29 20 27 20 0D 0A 20 20 20 20 40 20 32 P/S) ' .. @ 2
01FBC0: 31 2C 31 20 47 45 54 20 4D 2E 52 50 52 49 4E 54 1,1 GET M.RPRINT
01FBD0: 20 50 49 43 54 20 27 21 27 0D 0A 20 20 20 20 52 PICT '!'.. R
01FBE0: 45 41 44 0D 0A 20 20 20 20 43 4C 45 41 52 20 47 EAD.. CLEAR G
01FBF0: 45 54 53 0D 0A 20 20 45 4E 44 44 4F 0D 0A 20 20 ETS.. ENDDO..
01FC00: 54 46 49 4C 45 2E 2E 46 52 4D 27 20 29 0D 0A 20 TFILE..FRM' )..
01FC10: 20 20 20 20 20 40 20 32 31 2C 30 0D 0A 20 20 20 @ 21,0..
01FC20: 20 20 20 40 20 32 31 2C 35 20 53 41 59 20 27 46 @ 21,5 SAY 'F
01FC30: 69 6C 65 20 64 6F 65 73 20 6E 6F 74 20 65 78 69 ile does not exi
01FC40: 73 74 20 2D 20 70 72 65 73 73 20 61 6E 79 20 6B st - press any k
01FC50: 65 79 3B 0D 0A 20 74 6F 20 20 72 65 74 72 79 27 ey;.. to retry'
01FC60: 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 20 27 20 .. STORE '
01FC70: 27 20 54 4F 20 54 45 4D 50 0D 0A 20 20 20 20 20 ' TO TEMP..
01FC80: 20 40 20 32 31 2C 31 20 47 45 54 20 4D 2E 54 45 @ 21,1 GET M.TE
01FC90: 4D 50 0D 0A 20 20 20 20 20 20 52 45 41 44 0D 0A MP.. READ..
01FCA0: 20 20 20 20 20 20 43 4C 45 41 52 20 47 45 54 53 CLEAR GETS
01FCB0: 0D 0A 20 20 20 20 20 20 40 20 31 37 2C 30 0D 0A .. @ 17,0..
01FCC0: 20 20 20 20 20 20 40 20 31 38 2C 30 0D 0A 20 20 @ 18,0..
01FCD0: 20 20 20 20 40 20 31 39 2C 30 0D 0A 20 20 20 20 @ 19,0..
01FCE0: 20 20 40 20 32 30 2C 30 0D 0A 20 20 20 20 20 20 @ 20,0..
01FCF0: 40 20 32 31 2C 30 0D 0A 20 20 20 20 20 20 53 54 @ 21,0.. ST
01FD00: 4F 52 45 20 27 20 20 20 20 20 20 20 20 27 20 54 ORE ' ' T
01FD10: 4F 20 46 46 49 4C 45 0D 0A 20 20 20 20 20 20 4C O FFILE.. L
01FD20: 4F 4F 50 0D 0A 20 20 20 20 45 4E 44 49 46 0D 0A OOP.. ENDIF..
01FD30: 20 20 20 20 40 20 32 31 2C 35 20 73 61 79 20 27 @ 21,5 say '
01FD40: 4E 6F 77 20 63 68 65 63 6B 69 6E 67 20 73 65 6C Now checking sel
01FD50: 65 63 74 65 64 20 72 65 70 6F 72 74 20 6D 61 74 ected report mat
01FD60: 63 68 65 73 20 74 68 65 20 64 61 74 61 62 61 73 ches the databas
01FD70: 65 20 69 6E 20 75 73 65 27 0D 0A 20 20 20 20 2A e in use'.. *
01FD80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
01FD90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 4D 4A 47 ************ MJG
01FDA0: 20 2D 20 31 39 2F 30 37 2F 38 34 0D 0A 20 20 20 - 19/07/84..
01FDB0: 20 2A 2A 20 54 68 69 73 20 72 6F 75 74 69 6E 65 ** This routine
01FDC0: 20 63 68 65 63 6B 73 20 74 68 65 20 76 61 6C 69 checks the vali
01FDD0: 64 69 74 79 20 6F 66 20 2E 46 52 4D 20 66 69 6C dity of .FRM fil
01FDE0: 65 73 20 61 67 61 69 6E 73 74 20 2E 44 42 46 20 es against .DBF
01FDF0: 66 69 6C 65 73 2E 0D 0A 20 20 20 20 2A 2A 20 49 files... ** I
01FE00: 40 20 32 31 2C 30 0D 0A 20 20 49 46 20 4D 2E 52 @ 21,0.. IF M.R
01FE10: 50 52 49 4E 54 20 3D 20 27 50 27 0D 0A 20 20 20 PRINT = 'P'..
01FE20: 20 53 54 4F 52 45 20 27 20 27 20 54 4F 20 43 50 STORE ' ' TO CP
01FE30: 52 49 4E 54 45 52 0D 0A 20 20 20 20 40 20 32 31 RINTER.. @ 21
01FE40: 2C 35 20 53 41 59 20 27 50 6C 65 61 73 65 20 70 ,5 SAY 'Please p
01FE50: 72 65 70 61 72 65 20 50 72 69 6E 74 65 72 20 2E repare Printer .
01FE60: 2E 2E 2E 20 50 72 65 73 73 20 61 6E 79 20 6B 65 ... Press any ke
01FE70: 79 20 77 68 65 6E 20 72 65 61 64 79 20 27 20 0D y when ready ' .
01FE80: 0A 20 20 20 20 40 20 32 31 2C 31 20 47 45 54 20 . @ 21,1 GET
01FE90: 4D 2E 43 50 52 49 4E 54 45 52 0D 0A 20 20 20 20 M.CPRINTER..
01FEA0: 52 45 41 44 0D 0A 20 20 20 20 43 4C 45 41 52 20 READ.. CLEAR
01FEB0: 47 45 54 53 0D 0A 20 20 20 20 53 54 4F 52 45 20 GETS.. STORE
01FEC0: 27 52 45 50 4F 52 54 20 46 4F 52 4D 20 26 54 46 'REPORT FORM &TF
01FED0: 49 4C 45 20 54 4F 20 50 52 49 4E 54 27 20 54 4F ILE TO PRINT' TO
01FEE0: 20 53 45 4C 45 43 54 0D 0A 20 20 20 20 40 20 32 SELECT.. @ 2
01FEF0: 31 2C 30 0D 0A 20 20 20 20 40 20 32 33 2C 30 20 1,0.. @ 23,0
01FF00: 53 41 59 20 27 2E 20 26 53 45 4C 45 43 54 27 0D SAY '. &SELECT'.
01FF10: 0A 20 20 20 20 40 20 31 39 2C 35 20 53 41 59 20 . @ 19,5 SAY
01FF20: 27 42 65 6C 6F 77 20 74 68 65 20 6C 69 6E 65 20 'Below the line
01FF30: 79 6F 75 20 77 69 6C 6C 20 6E 6F 77 20 73 65 65 you will now see
01FF40: 20 74 68 65 20 63 6F 6D 70 6C 65 74 65 20 63 6F the complete co
01FF50: 6D 6D 61 6E 64 27 0D 0A 20 20 20 20 40 20 32 30 mmand'.. @ 20
01FF60: 2C 35 20 53 41 59 20 27 74 6F 20 70 72 69 6E 74 ,5 SAY 'to print
01FF70: 20 61 20 72 65 70 6F 72 74 20 61 73 20 79 6F 75 a report as you
01FF80: 20 77 6F 75 6C 64 20 74 79 70 65 20 69 74 20 79 would type it y
01FF90: 6F 75 72 73 65 6C 66 2E 27 20 0D 0A 20 20 20 20 ourself.' ..
01FFA0: 53 54 4F 52 45 20 27 20 27 20 54 4F 20 54 45 4D STORE ' ' TO TEM
01FFB0: 50 0D 0A 20 20 20 20 40 20 32 31 2C 35 20 53 41 P.. @ 21,5 SA
01FFC0: 59 20 27 50 72 65 73 73 20 61 6E 79 20 6B 65 79 Y 'Press any key
01FFD0: 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 27 0D 0A to continue '..
01FFE0: 20 20 20 20 40 20 32 31 2C 31 20 47 45 54 20 4D @ 21,1 GET M
01FFF0: 2E 54 45 4D 50 0D 0A 20 20 20 20 52 45 41 44 0D .TEMP.. READ.
020000: 74 20 69 73 20 37 30 20 25 20 72 65 6C 69 61 62 t is 70 % reliab
020010: 6C 65 2E 0D 0A 20 20 20 20 73 65 6C 65 20 70 72 le... sele pr
020020: 69 6D 0D 0A 20 20 20 20 75 73 65 20 26 6D 66 69 im.. use &mfi
020030: 6C 65 0D 0A 20 20 20 20 63 6F 70 79 20 74 6F 20 le.. copy to
020040: 74 65 6D 70 73 74 72 75 20 73 74 72 75 20 65 78 tempstru stru ex
020050: 74 65 6E 64 65 64 0D 0A 20 20 20 20 75 73 65 20 tended.. use
020060: 74 65 6D 70 73 74 72 75 0D 0A 20 20 20 20 63 6F tempstru.. co
020070: 70 79 20 74 6F 20 74 65 6D 70 73 74 72 31 20 73 py to tempstr1 s
020080: 74 72 75 0D 0A 20 20 20 20 73 65 6C 65 20 73 65 tru.. sele se
020090: 63 6F 0D 0A 20 20 20 20 75 73 65 20 74 65 6D 70 co.. use temp
0200A0: 73 74 72 31 0D 0A 20 20 20 20 61 70 70 65 6E 64 str1.. append
0200B0: 20 66 72 6F 6D 20 26 74 66 69 6C 65 2E 2E 66 72 from &tfile..fr
0200C0: 6D 20 73 64 66 0D 0A 20 20 20 20 6C 6F 63 61 74 m sdf.. locat
0200D0: 65 20 66 6F 72 20 27 2C 27 20 24 20 66 69 65 6C e for ',' $ fiel
0200E0: 64 3A 6E 61 6D 65 20 2E 61 6E 64 2E 20 23 3E 31 d:name .and. #>1
0200F0: 0D 0A 20 20 20 20 69 66 20 65 6F 66 0D 0A 20 20 .. if eof..
020100: 20 20 20 20 40 20 32 31 2C 30 0D 0A 20 20 20 20 @ 21,0..
020110: 20 20 40 20 32 30 2C 35 20 73 61 79 20 27 2A 2A @ 20,5 say '**
020120: 20 45 52 52 4F 52 20 2A 2A 20 54 68 69 73 20 72 ERROR ** This r
020130: 65 70 6F 72 74 20 64 6F 65 73 20 6E 6F 74 20 63 eport does not c
020140: 6F 72 72 65 73 70 6F 6E 64 20 77 69 74 68 20 79 orrespond with y
020150: 6F 75 72 20 64 61 74 61 62 61 73 65 27 0D 0A 20 our database'..
020160: 20 20 20 20 20 53 54 4F 52 45 20 27 20 27 20 54 STORE ' ' T
020170: 4F 20 54 45 4D 50 0D 0A 20 20 20 20 20 20 40 20 O TEMP.. @
020180: 32 31 2C 35 20 53 41 59 20 27 50 72 65 73 73 20 21,5 SAY 'Press
020190: 61 6E 79 20 6B 65 79 20 74 6F 20 72 65 74 72 79 any key to retry
0201A0: 20 27 20 0D 0A 20 20 20 20 20 20 40 20 32 31 2C ' .. @ 21,
0201B0: 31 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 20 1 GET M.TEMP..
0201C0: 20 20 20 20 52 45 41 44 0D 0A 20 20 20 20 20 20 READ..
0201D0: 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 20 20 CLEAR GETS..
0201E0: 20 20 40 20 31 37 2C 30 0D 0A 20 20 20 20 20 20 @ 17,0..
0201F0: 40 20 31 38 2C 30 0D 0A 20 20 20 20 20 20 40 20 @ 18,0.. @
020200: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
020210: 1B 00 01 00 02 09 52 E5 1B 00 41 02 00 00 00 02 ......R...A.....
020220: 1B 00 46 02 00 00 00 02 1B 00 42 02 00 00 00 02 ..F.......B.....
020230: 1B 00 47 02 00 00 00 02 1B 00 43 02 00 00 00 02 ..G.......C.....
020240: 1B 00 48 02 00 00 00 02 1B 00 44 02 00 00 00 02 ..H.......D.....
020250: 1B 00 49 02 00 00 00 02 1B 00 45 02 00 00 00 02 ..I.......E.....
020260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020300: 0A 20 20 20 20 43 4C 45 41 52 20 47 45 54 53 0D . CLEAR GETS.
020310: 0A 20 20 20 20 53 54 4F 52 45 20 4C 45 4E 28 4D . STORE LEN(M
020320: 2E 53 45 4C 45 43 54 29 2B 32 20 54 4F 20 43 4F .SELECT)+2 TO CO
020330: 4C 0D 0A 20 20 20 20 40 20 32 33 2C 4D 2E 43 4F L.. @ 23,M.CO
020340: 4C 2B 31 20 53 41 59 20 27 20 27 0D 0A 20 20 20 L+1 SAY ' '..
020350: 20 53 45 54 20 43 4F 4E 53 20 4F 46 46 0D 0A 20 SET CONS OFF..
020360: 20 20 20 26 73 65 6C 65 63 74 0D 0A 20 20 45 4C &select.. EL
020370: 53 45 0D 0A 20 20 20 20 40 20 32 31 2C 30 0D 0A SE.. @ 21,0..
020380: 20 20 20 20 53 54 4F 52 45 20 27 52 45 50 4F 52 STORE 'REPOR
020390: 54 20 46 4F 52 4D 20 26 54 46 49 4C 45 20 4E 45 T FORM &TFILE NE
0203A0: 58 54 20 38 20 50 4C 41 49 4E 27 20 54 4F 20 53 XT 8 PLAIN' TO S
0203B0: 45 4C 45 43 54 0D 0A 20 20 20 20 40 20 32 33 2C ELECT.. @ 23,
0203C0: 31 20 53 41 59 20 27 2E 20 26 53 45 4C 45 43 54 1 SAY '. &SELECT
0203D0: 27 0D 0A 20 20 20 20 40 20 31 39 2C 35 20 53 41 '.. @ 19,5 SA
0203E0: 59 20 27 42 65 6C 6F 77 20 74 68 65 20 6C 69 6E Y 'Below the lin
0203F0: 65 20 79 6F 75 20 77 69 6C 6C 20 6E 6F 77 20 73 e you will now s
020400: 65 65 20 74 68 65 20 63 6F 6D 70 6C 65 74 65 20 ee the complete
020410: 63 6F 6D 6D 61 6E 64 27 0D 0A 20 20 20 20 40 20 command'.. @
020420: 32 30 2C 35 20 53 41 59 20 27 61 73 20 79 6F 75 20,5 SAY 'as you
020430: 20 77 6F 75 6C 64 20 74 79 70 65 20 69 74 20 79 would type it y
020440: 6F 75 72 73 65 6C 66 2E 27 20 0D 0A 20 20 20 20 ourself.' ..
020450: 53 54 4F 52 45 20 27 20 27 20 54 4F 20 54 45 4D STORE ' ' TO TEM
020460: 50 0D 0A 20 20 20 20 40 20 32 31 2C 35 20 53 41 P.. @ 21,5 SA
020470: 59 20 27 50 72 65 73 73 20 61 6E 79 20 6B 65 79 Y 'Press any key
020480: 20 74 6F 20 63 6F 6E 74 69 6E 75 65 20 27 0D 0A to continue '..
020490: 20 20 20 20 40 20 32 31 2C 31 20 47 45 54 20 4D @ 21,1 GET M
0204A0: 2E 54 45 4D 50 0D 0A 20 20 20 20 52 45 41 44 0D .TEMP.. READ.
0204B0: 0A 20 20 20 20 43 4C 45 41 52 20 47 45 54 53 0D . CLEAR GETS.
0204C0: 0A 20 20 20 20 53 54 4F 52 45 20 4C 45 4E 28 4D . STORE LEN(M
0204D0: 2E 53 45 4C 45 43 54 29 2B 32 20 54 4F 20 43 4F .SELECT)+2 TO CO
0204E0: 4C 0D 0A 20 20 20 20 44 4F 20 57 48 49 4C 45 20 L.. DO WHILE
0204F0: 2E 4E 4F 54 2E 20 45 4F 46 0D 0A 20 20 20 20 20 .NOT. EOF..
020500: 20 20 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 CLEAR GETS..
020510: 49 46 20 4D 2E 43 46 49 4C 45 20 3D 20 27 20 20 IF M.CFILE = '
020520: 20 20 20 20 20 20 27 0D 0A 20 20 20 20 45 52 41 '.. ERA
020530: 53 45 0D 0A 40 20 31 2C 31 20 53 41 59 20 27 57 SE..@ 1,1 SAY 'W
020540: 45 4C 43 4F 4D 45 20 20 20 20 20 20 20 20 20 20 ELCOME
020550: 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4F 52 REPOR
020560: 54 20 43 52 45 41 54 49 4F 4E 20 20 20 20 20 20 T CREATION
020570: 20 20 20 20 20 20 20 20 20 20 27 20 3B 0D 0A 20 ' ;..
020580: 20 20 20 20 20 20 20 2B 20 27 20 20 20 20 20 20 + '
020590: 64 42 41 53 45 20 49 49 27 0D 0A 20 20 20 20 40 dBASE II'.. @
0205A0: 20 32 2C 31 20 53 41 59 20 4D 2E 55 4E 44 45 52 2,1 SAY M.UNDER
0205B0: 4C 4E 0D 0A 20 20 20 20 40 20 32 32 2C 31 20 53 LN.. @ 22,1 S
0205C0: 41 59 20 4D 2E 55 4E 44 45 52 4C 4E 0D 0A 20 20 AY M.UNDERLN..
0205D0: 20 20 40 20 31 31 2C 32 37 20 53 41 59 20 27 52 @ 11,27 SAY 'R
0205E0: 45 54 55 52 4E 49 4E 47 20 54 4F 20 4D 41 49 4E ETURNING TO MAIN
0205F0: 20 4D 45 4E 55 27 0D 0A 20 20 20 20 40 20 32 30 MENU'.. @ 20
020600: 2C 31 0D 0A 20 20 20 20 53 54 4F 52 45 20 31 20 ,1.. STORE 1
020610: 54 4F 20 43 0D 0A 20 20 20 20 44 4F 20 57 48 49 TO C.. DO WHI
020620: 4C 45 20 43 20 3C 20 32 35 0D 0A 20 20 20 20 20 LE C < 25..
020630: 53 54 4F 52 45 20 43 2B 31 20 54 4F 20 43 0D 0A STORE C+1 TO C..
020640: 20 20 20 20 45 4E 44 44 4F 20 0D 0A 20 20 20 20 ENDDO ..
020650: 53 45 4C 45 20 53 45 43 4F 0D 0A 20 20 20 20 55 SELE SECO.. U
020660: 53 45 0D 0A 20 20 20 20 53 45 4C 45 20 50 52 49 SE.. SELE PRI
020670: 4D 0D 0A 20 20 20 20 55 53 45 20 26 4D 46 49 4C M.. USE &MFIL
020680: 45 0D 0A 20 20 20 20 52 45 4C 45 41 53 45 20 41 E.. RELEASE A
020690: 4C 4C 20 45 58 43 45 50 54 20 4D 46 49 4C 45 0D LL EXCEPT MFILE.
0206A0: 0A 20 20 20 20 52 45 54 55 52 4E 0D 0A 20 20 45 . RETURN.. E
0206B0: 4E 44 49 46 20 5B 20 42 6C 61 6E 6B 20 66 69 6C NDIF [ Blank fil
0206C0: 65 20 6E 61 6D 65 20 5D 0D 0A 20 20 53 54 4F 52 e name ].. STOR
0206D0: 45 20 54 52 49 4D 28 4D 2E 43 46 49 4C 45 29 20 E TRIM(M.CFILE)
0206E0: 54 4F 20 4D 54 45 53 54 0D 0A 20 20 53 54 4F 52 TO MTEST.. STOR
0206F0: 45 20 27 20 27 20 54 4F 20 45 52 52 31 2C 45 52 E ' ' TO ERR1,ER
020700: 20 40 20 31 39 2C 30 0D 0A 20 20 20 20 20 20 40 @ 19,0.. @
020710: 20 32 30 2C 30 0D 0A 20 20 20 20 20 20 40 20 32 20,0.. @ 2
020720: 31 2C 31 0D 0A 20 20 20 20 20 20 40 20 32 32 2C 1,1.. @ 22,
020730: 30 0D 0A 20 20 20 20 20 20 40 20 32 33 2C 30 0D 0.. @ 23,0.
020740: 0A 20 20 20 20 20 20 26 53 45 4C 45 43 54 0D 0A . &SELECT..
020750: 20 20 20 20 20 20 3F 0D 0A 20 20 20 20 20 20 3F ?.. ?
020760: 0D 0A 20 20 20 20 20 20 3F 0D 0A 20 20 20 20 20 .. ?..
020770: 20 3F 0D 0A 20 20 20 20 20 20 40 20 30 2C 30 0D ?.. @ 0,0.
020780: 0A 20 20 40 20 31 2C 31 20 53 41 59 20 27 57 45 . @ 1,1 SAY 'WE
020790: 4C 43 4F 4D 45 20 20 20 20 20 20 20 20 20 20 20 LCOME
0207A0: 20 20 20 20 20 20 20 20 20 20 52 45 50 4F 52 54 REPORT
0207B0: 20 50 52 49 4E 54 49 4E 47 20 20 20 20 20 20 20 PRINTING
0207C0: 20 20 20 20 20 20 20 20 20 20 27 20 3B 0D 0A 20 ' ;..
0207D0: 20 20 20 20 20 20 20 20 20 2B 20 27 20 20 20 20 + '
0207E0: 20 64 42 41 53 45 20 49 49 27 0D 0A 20 20 20 20 dBASE II'..
0207F0: 20 20 40 20 32 2C 31 20 53 41 59 20 4D 2E 55 4E @ 2,1 SAY M.UN
020800: 44 45 52 4C 4E 0D 0A 20 20 20 20 20 20 40 20 32 DERLN.. @ 2
020810: 32 2C 31 20 53 41 59 20 4D 2E 55 4E 44 45 52 4C 2,1 SAY M.UNDERL
020820: 4E 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 20 27 N.. STORE '
020830: 20 27 20 54 4F 20 58 52 45 53 50 0D 0A 20 20 20 ' TO XRESP..
020840: 20 20 20 40 20 32 31 2C 35 20 53 41 59 20 20 27 @ 21,5 SAY '
020850: 50 72 65 73 73 20 52 45 54 55 52 4E 20 74 6F 20 Press RETURN to
020860: 63 6F 6E 74 69 6E 75 65 20 6F 72 20 22 58 22 20 continue or "X"
020870: 74 6F 20 45 78 69 74 20 27 20 0D 0A 20 20 20 20 to Exit ' ..
020880: 20 20 40 20 32 31 2C 31 20 47 45 54 20 4D 2E 58 @ 21,1 GET M.X
020890: 52 45 53 50 20 50 49 43 54 20 27 21 27 0D 0A 20 RESP PICT '!'..
0208A0: 20 20 20 20 20 52 45 41 44 0D 0A 20 20 20 20 20 READ..
0208B0: 20 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 20 CLEAR GETS..
0208C0: 20 20 20 49 46 20 4D 2E 58 52 45 53 50 20 3D 20 IF M.XRESP =
0208D0: 27 58 27 0D 0A 20 20 20 20 20 20 20 20 53 45 4C 'X'.. SEL
0208E0: 45 20 50 52 49 4D 0D 0A 20 20 20 20 20 20 20 20 E PRIM..
0208F0: 55 53 45 20 26 4D 46 49 4C 45 0D 0A 20 20 20 20 USE &MFILE..
020900: 52 32 0D 0A 20 20 53 54 4F 52 45 20 54 20 54 4F R2.. STORE T TO
020910: 20 4D 53 47 0D 0A 20 20 49 46 20 2E 4E 4F 54 2E MSG.. IF .NOT.
020920: 20 24 28 4D 2E 4D 54 45 53 54 2C 31 2C 31 29 24 $(M.MTEST,1,1)$
020930: 27 41 42 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F 'ABCDEFGHIJKLMNO
020940: 50 51 52 53 54 55 56 57 58 59 5A 27 0D 0A 20 20 PQRSTUVWXYZ'..
020950: 20 20 53 54 4F 52 45 20 46 20 54 4F 20 4D 53 47 STORE F TO MSG
020960: 0D 0A 20 20 20 20 53 54 4F 52 45 20 45 52 52 31 .. STORE ERR1
020970: 2B 27 5E 27 20 54 4F 20 45 52 52 31 0D 0A 20 20 +'^' TO ERR1..
020980: 20 20 53 54 4F 52 45 20 45 52 52 32 2B 27 21 27 STORE ERR2+'!'
020990: 20 54 4F 20 45 52 52 32 0D 0A 20 20 20 45 4C 53 TO ERR2.. ELS
0209A0: 45 0D 0A 20 20 20 20 53 54 4F 52 45 20 45 52 52 E.. STORE ERR
0209B0: 31 2B 27 20 27 20 54 4F 20 45 52 52 31 0D 0A 20 1+' ' TO ERR1..
0209C0: 20 20 20 53 54 4F 52 45 20 45 52 52 32 2B 27 20 STORE ERR2+'
0209D0: 27 20 54 4F 20 45 52 52 32 0D 0A 20 20 45 4E 44 ' TO ERR2.. END
0209E0: 49 46 0D 0A 20 20 53 54 4F 52 45 20 32 20 54 4F IF.. STORE 2 TO
0209F0: 20 43 0D 0A 20 20 44 4F 20 57 48 49 4C 45 20 4D C.. DO WHILE M
020A00: 2E 43 20 3C 3D 20 4C 45 4E 28 4D 54 45 53 54 29 .C <= LEN(MTEST)
020A10: 0D 0A 20 20 20 20 49 46 20 2E 4E 4F 54 2E 20 24 .. IF .NOT. $
020A20: 28 4D 2E 4D 54 45 53 54 2C 43 2C 31 29 24 27 41 (M.MTEST,C,1)$'A
020A30: 42 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F 50 51 BCDEFGHIJKLMNOPQ
020A40: 52 53 54 55 56 57 58 59 5A 30 31 32 33 34 35 36 RSTUVWXYZ0123456
020A50: 37 38 39 27 0D 0A 20 20 20 20 20 20 53 54 4F 52 789'.. STOR
020A60: 45 20 45 52 52 31 2B 27 5E 27 20 54 4F 20 45 52 E ERR1+'^' TO ER
020A70: 52 31 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 20 R1.. STORE
020A80: 45 52 52 32 2B 27 21 27 20 54 4F 20 45 52 52 32 ERR2+'!' TO ERR2
020A90: 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 20 46 20 .. STORE F
020AA0: 54 4F 20 4D 53 47 0D 0A 20 20 20 20 20 45 4C 53 TO MSG.. ELS
020AB0: 45 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 20 45 E.. STORE E
020AC0: 52 52 31 2B 27 20 27 20 54 4F 20 45 52 52 31 0D RR1+' ' TO ERR1.
020AD0: 0A 20 20 20 20 20 20 53 54 4F 52 45 20 45 52 52 . STORE ERR
020AE0: 32 2B 27 20 27 20 54 4F 20 45 52 52 32 0D 0A 20 2+' ' TO ERR2..
020AF0: 20 20 20 45 4E 44 49 46 0D 0A 20 20 20 20 53 54 ENDIF.. ST
020B00: 20 20 20 20 52 45 4C 45 41 53 45 20 41 4C 4C 20 RELEASE ALL
020B10: 45 58 43 45 50 54 20 4D 46 49 4C 45 0D 0A 20 20 EXCEPT MFILE..
020B20: 20 20 20 20 20 20 45 52 41 53 45 0D 0A 20 20 40 ERASE.. @
020B30: 20 31 2C 31 20 53 41 59 20 27 57 45 4C 43 4F 4D 1,1 SAY 'WELCOM
020B40: 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 E
020B50: 20 20 20 20 20 20 52 45 50 4F 52 54 20 50 52 49 REPORT PRI
020B60: 4E 54 49 4E 47 20 20 20 20 20 20 20 20 20 20 20 NTING
020B70: 20 20 20 20 20 20 27 20 3B 0D 0A 20 20 20 20 20 ' ;..
020B80: 20 20 20 20 20 2B 20 27 20 20 20 20 20 64 42 41 + ' dBA
020B90: 53 45 20 49 49 27 0D 0A 20 20 40 20 32 2C 31 20 SE II'.. @ 2,1
020BA0: 53 41 59 20 4D 2E 55 4E 44 45 52 4C 4E 0D 0A 20 SAY M.UNDERLN..
020BB0: 20 40 20 32 32 2C 31 20 53 41 59 20 4D 2E 55 4E @ 22,1 SAY M.UN
020BC0: 44 45 52 4C 4E 0D 0A 20 20 20 20 20 20 20 20 40 DERLN.. @
020BD0: 20 31 31 2C 32 37 20 53 41 59 20 27 52 45 54 55 11,27 SAY 'RETU
020BE0: 52 4E 49 4E 47 20 54 4F 20 4D 41 49 4E 20 4D 45 RNING TO MAIN ME
020BF0: 4E 55 27 0D 0A 20 20 20 20 20 20 20 20 40 20 32 NU'.. @ 2
020C00: 30 2C 31 0D 0A 20 20 20 20 20 20 20 20 53 54 4F 0,1.. STO
020C10: 52 45 20 30 20 54 4F 20 4D 43 4F 55 4E 54 0D 0A RE 0 TO MCOUNT..
020C20: 20 20 20 20 20 20 20 20 44 4F 20 57 48 49 4C 45 DO WHILE
020C30: 20 4D 2E 4D 43 4F 55 4E 54 20 3C 20 32 35 0D 0A M.MCOUNT < 25..
020C40: 20 20 20 20 20 20 20 20 20 20 53 54 4F 52 45 20 STORE
020C50: 4D 2E 4D 43 4F 55 4E 54 20 2B 31 20 54 4F 20 4D M.MCOUNT +1 TO M
020C60: 43 4F 55 4E 54 0D 0A 20 20 20 20 20 20 20 20 45 COUNT.. E
020C70: 4E 44 44 4F 0D 0A 20 20 20 20 20 20 20 20 52 45 NDDO.. RE
020C80: 4C 45 41 53 45 20 4D 43 4F 55 4E 54 0D 0A 20 20 LEASE MCOUNT..
020C90: 20 20 20 20 20 20 52 45 54 55 52 4E 0D 0A 20 20 RETURN..
020CA0: 20 20 20 20 45 4E 44 49 46 0D 0A 20 20 20 20 20 ENDIF..
020CB0: 20 53 4B 49 50 0D 0A 20 20 20 20 45 4E 44 44 4F SKIP.. ENDDO
020CC0: 20 5B 20 65 6E 64 20 6F 66 20 66 69 6C 65 20 5D [ end of file ]
020CD0: 0D 0A 20 20 45 4E 44 49 46 20 5B 20 70 72 69 6E .. ENDIF [ prin
020CE0: 74 65 72 20 6F 72 20 73 63 72 65 65 6E 20 5D 0D ter or screen ].
020CF0: 0A 20 20 53 45 54 20 43 4F 4E 53 20 4F 4E 0D 0A . SET CONS ON..
020D00: 4F 52 45 20 4D 2E 43 2B 31 20 54 4F 20 43 0D 0A ORE M.C+1 TO C..
020D10: 20 20 45 4E 44 44 4F 0D 0A 20 20 40 20 32 30 2C ENDDO.. @ 20,
020D20: 35 0D 0A 20 20 40 20 32 31 2C 35 0D 0A 20 20 49 5.. @ 21,5.. I
020D30: 46 20 4D 2E 4D 53 47 0D 0A 20 20 20 20 40 20 31 F M.MSG.. @ 1
020D40: 38 2C 30 0D 0A 20 20 20 20 40 20 31 39 2C 30 0D 8,0.. @ 19,0.
020D50: 0A 20 20 20 45 4C 53 45 0D 0A 20 20 20 20 40 20 . ELSE.. @
020D60: 31 38 2C 33 35 20 53 41 59 20 45 52 52 31 2B 27 18,35 SAY ERR1+'
020D70: 20 20 20 20 20 20 20 20 20 20 20 27 0D 0A 20 20 '..
020D80: 20 20 40 20 31 39 2C 33 35 20 53 41 59 20 45 52 @ 19,35 SAY ER
020D90: 52 32 2B 27 20 20 20 20 20 20 20 20 20 20 20 27 R2+' '
020DA0: 0D 0A 20 20 20 20 40 20 32 31 2C 35 20 53 41 59 .. @ 21,5 SAY
020DB0: 20 27 49 6C 6C 65 67 61 6C 20 63 68 61 72 61 63 'Illegal charac
020DC0: 74 65 72 20 69 6E 20 74 68 65 20 46 69 6C 65 20 ter in the File
020DD0: 4E 61 6D 65 20 2D 20 70 72 65 73 73 20 61 6E 79 Name - press any
020DE0: 20 6B 65 79 3B 0D 0A 20 74 6F 20 20 72 65 74 72 key;.. to retr
020DF0: 79 27 0D 0A 20 20 20 20 53 54 4F 52 45 20 27 20 y'.. STORE '
020E00: 27 20 54 4F 20 54 45 4D 50 0D 0A 20 20 20 20 40 ' TO TEMP.. @
020E10: 20 32 31 2C 31 20 47 45 54 20 4D 2E 54 45 4D 50 21,1 GET M.TEMP
020E20: 0D 0A 20 20 20 20 52 45 41 44 0D 0A 20 20 20 20 .. READ..
020E30: 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 20 20 CLEAR GETS..
020E40: 40 20 31 37 2C 30 0D 0A 20 20 20 20 40 20 31 38 @ 17,0.. @ 18
020E50: 2C 30 0D 0A 20 20 20 20 40 20 31 39 2C 30 0D 0A ,0.. @ 19,0..
020E60: 20 20 20 20 40 20 32 30 2C 30 0D 0A 20 20 20 20 @ 20,0..
020E70: 40 20 32 31 2C 30 0D 0A 20 20 20 20 4C 4F 4F 50 @ 21,0.. LOOP
020E80: 0D 0A 20 20 45 4E 44 49 46 0D 0A 20 20 49 46 20 .. ENDIF.. IF
020E90: 46 49 4C 45 28 27 26 4D 54 45 53 54 2E 2E 46 52 FILE('&MTEST..FR
020EA0: 4D 27 29 0D 0A 20 20 20 20 53 54 4F 52 45 20 27 M').. STORE '
020EB0: 20 27 20 54 4F 20 54 45 4D 50 0D 0A 20 20 20 20 ' TO TEMP..
020EC0: 40 20 32 31 2C 35 20 53 41 59 20 27 46 69 6C 65 @ 21,5 SAY 'File
020ED0: 20 61 6C 72 65 61 64 79 20 65 78 69 73 74 73 20 already exists
020EE0: 2D 20 50 72 65 73 73 20 61 6E 79 20 6B 65 79 20 - Press any key
020EF0: 74 6F 20 72 65 74 72 79 20 27 20 0D 0A 20 20 20 to retry ' ..
020F00: 20 20 53 45 4C 45 20 50 52 49 4D 0D 0A 20 20 55 SELE PRIM.. U
020F10: 53 45 20 26 4D 46 49 4C 45 0D 0A 20 20 45 52 41 SE &MFILE.. ERA
020F20: 53 45 0D 0A 20 20 40 20 31 2C 31 20 53 41 59 20 SE.. @ 1,1 SAY
020F30: 27 57 45 4C 43 4F 4D 45 20 20 20 20 20 20 20 20 'WELCOME
020F40: 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 REP
020F50: 4F 52 54 20 50 52 49 4E 54 49 4E 47 20 20 20 20 ORT PRINTING
020F60: 20 20 20 20 20 20 20 20 20 20 20 20 27 3B 0D 0A ';..
020F70: 20 20 20 20 20 20 20 20 20 20 2B 20 27 20 20 20 + '
020F80: 20 20 20 64 42 41 53 45 20 49 49 27 0D 0A 20 20 dBASE II'..
020F90: 40 20 32 2C 31 20 53 41 59 20 55 4E 44 45 52 4C @ 2,1 SAY UNDERL
020FA0: 4E 0D 0A 20 20 40 20 32 32 2C 31 20 53 41 59 20 N.. @ 22,1 SAY
020FB0: 4D 2E 55 4E 44 45 52 4C 4E 0D 0A 20 20 40 20 31 M.UNDERLN.. @ 1
020FC0: 31 2C 32 37 20 53 41 59 20 27 52 45 54 55 52 4E 1,27 SAY 'RETURN
020FD0: 49 4E 47 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 ING TO MAIN MENU
020FE0: 27 0D 0A 20 20 40 20 32 30 2C 31 0D 0A 20 20 53 '.. @ 20,1.. S
020FF0: 54 4F 52 45 20 31 20 54 4F 20 43 0D 0A 20 20 44 TORE 1 TO C.. D
021000: 4F 20 57 48 49 4C 45 20 43 20 3C 20 32 35 0D 0A O WHILE C < 25..
021010: 20 20 20 20 53 54 4F 52 45 20 43 2B 31 20 54 4F STORE C+1 TO
021020: 20 43 0D 0A 20 20 45 4E 44 44 4F 0D 0A 20 20 52 C.. ENDDO.. R
021030: 45 4C 45 41 53 45 20 41 4C 4C 20 45 58 43 45 50 ELEASE ALL EXCEP
021040: 54 20 4D 46 49 4C 45 0D 0A 20 20 52 45 54 55 52 T MFILE.. RETUR
021050: 4E 0D 0A 45 4E 44 49 46 20 5B 20 50 72 69 6E 74 N..ENDIF [ Print
021060: 20 63 75 72 72 65 6E 74 6C 79 20 73 65 74 2D 75 currently set-u
021070: 70 20 72 65 70 6F 72 74 20 5D 0D 0A 2A 20 20 20 p report ]..*
021080: 43 52 45 41 54 45 20 4E 45 57 20 52 45 50 4F 52 CREATE NEW REPOR
021090: 54 20 46 4F 52 4D 0D 0A 45 52 41 53 45 0D 0A 40 T FORM..ERASE..@
0210A0: 20 31 2C 31 20 53 41 59 20 27 57 45 4C 43 4F 4D 1,1 SAY 'WELCOM
0210B0: 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 E
0210C0: 20 20 20 20 20 20 52 45 50 4F 52 54 20 43 52 45 REPORT CRE
0210D0: 41 54 49 4F 4E 20 20 20 20 20 20 20 20 20 20 20 ATION
0210E0: 20 20 20 20 20 27 20 3B 0D 0A 20 20 20 20 20 20 ' ;..
0210F0: 20 20 2B 20 27 20 20 20 20 20 20 64 42 41 53 45 + ' dBASE
021100: 20 40 20 32 31 2C 31 20 47 45 54 20 4D 2E 54 45 @ 21,1 GET M.TE
021110: 4D 50 0D 0A 20 20 20 20 52 45 41 44 0D 0A 20 20 MP.. READ..
021120: 20 20 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 CLEAR GETS..
021130: 20 20 40 20 31 37 2C 30 0D 0A 20 20 20 20 40 20 @ 17,0.. @
021140: 31 38 2C 30 0D 0A 20 20 20 20 40 20 31 39 2C 30 18,0.. @ 19,0
021150: 0D 0A 20 20 20 20 40 20 32 30 2C 30 0D 0A 20 20 .. @ 20,0..
021160: 20 20 40 20 32 31 2C 31 0D 0A 20 20 20 20 6C 6F @ 21,1.. lo
021170: 6F 70 0D 0A 20 20 45 4E 44 49 46 0D 0A 20 20 53 op.. ENDIF.. S
021180: 54 4F 52 45 20 54 20 54 4F 20 56 41 4C 49 44 0D TORE T TO VALID.
021190: 0A 45 4E 44 44 4F 20 5B 20 65 6E 74 65 72 20 66 .ENDDO [ enter f
0211A0: 69 6C 65 20 6E 61 6D 65 20 5D 0D 0A 40 20 31 31 ile name ]..@ 11
0211B0: 2C 30 0D 0A 40 20 31 37 2C 30 0D 0A 40 20 32 33 ,0..@ 17,0..@ 23
0211C0: 2C 30 20 53 41 59 20 27 2E 20 52 45 50 4F 52 54 ,0 SAY '. REPORT
0211D0: 20 46 4F 52 4D 20 26 43 46 49 4C 45 27 0D 0A 40 FORM &CFILE'..@
0211E0: 20 31 39 2C 35 20 53 41 59 20 27 42 65 6C 6F 77 19,5 SAY 'Below
0211F0: 20 74 68 65 20 6C 69 6E 65 20 79 6F 75 20 77 69 the line you wi
021200: 6C 6C 20 6E 6F 77 20 73 65 65 20 74 68 65 20 63 ll now see the c
021210: 6F 6D 70 6C 65 74 65 20 63 6F 6D 6D 61 6E 64 27 omplete command'
021220: 0D 0A 40 20 32 30 2C 35 20 53 41 59 20 27 61 73 ..@ 20,5 SAY 'as
021230: 20 79 6F 75 20 77 6F 75 6C 64 20 74 79 70 65 20 you would type
021240: 69 74 20 79 6F 75 72 73 65 6C 66 2E 27 20 0D 0A it yourself.' ..
021250: 53 54 4F 52 45 20 27 20 27 20 54 4F 20 54 45 4D STORE ' ' TO TEM
021260: 50 0D 0A 40 20 32 31 2C 35 20 53 41 59 20 27 50 P..@ 21,5 SAY 'P
021270: 72 65 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 ress any key to
021280: 63 6F 6E 74 69 6E 75 65 20 27 0D 0A 40 20 32 31 continue '..@ 21
021290: 2C 31 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 52 ,1 GET M.TEMP..R
0212A0: 45 41 44 0D 0A 43 4C 45 41 52 20 47 45 54 53 0D EAD..CLEAR GETS.
0212B0: 0A 20 20 40 20 31 39 2C 30 0D 0A 20 20 40 20 32 . @ 19,0.. @ 2
0212C0: 30 2C 30 0D 0A 20 20 40 20 32 31 2C 30 0D 0A 20 0,0.. @ 21,0..
0212D0: 20 40 20 31 31 2C 32 30 20 53 41 59 20 27 50 6C @ 11,20 SAY 'Pl
0212E0: 65 61 73 65 20 57 61 69 74 20 2E 2E 2E 20 6E 6F ease Wait ... no
0212F0: 77 20 6C 6F 61 64 69 6E 67 20 74 68 65 20 6E 65 w loading the ne
021300: 20 49 49 27 0D 0A 40 20 32 2C 31 20 53 41 59 20 II'..@ 2,1 SAY
021310: 4D 2E 55 4E 44 45 52 4C 4E 0D 0A 40 20 32 32 2C M.UNDERLN..@ 22,
021320: 31 20 53 41 59 20 4D 2E 55 4E 44 45 52 4C 4E 0D 1 SAY M.UNDERLN.
021330: 0A 40 20 31 31 2C 32 30 20 53 41 59 20 27 50 6C .@ 11,20 SAY 'Pl
021340: 65 61 73 65 20 57 61 69 74 20 2E 2E 2E 20 6E 6F ease Wait ... no
021350: 77 20 6C 6F 61 64 69 6E 67 20 74 68 65 20 6E 65 w loading the ne
021360: 78 74 20 57 65 6C 63 6F 6D 65 20 66 69 6C 65 27 xt Welcome file'
021370: 0D 0A 40 20 32 30 2C 31 0D 0A 40 20 32 33 2C 30 ..@ 20,1..@ 23,0
021380: 20 53 41 59 20 27 2E 20 52 45 50 4F 52 54 20 46 SAY '. REPORT F
021390: 4F 52 4D 27 0D 0A 53 45 4C 45 20 53 45 43 4F 0D ORM'..SELE SECO.
0213A0: 0A 55 53 45 0D 0A 53 45 4C 45 43 54 20 50 52 49 .USE..SELECT PRI
0213B0: 4D 41 52 59 0D 0A 55 53 45 20 26 4D 46 49 4C 45 MARY..USE &MFILE
0213C0: 0D 0A 43 4F 50 59 20 54 4F 20 54 45 4D 50 53 54 ..COPY TO TEMPST
0213D0: 52 55 20 53 54 52 55 20 45 58 54 45 4E 44 45 44 RU STRU EXTENDED
0213E0: 0D 0A 53 45 4C 45 43 54 20 53 45 43 4F 4E 44 41 ..SELECT SECONDA
0213F0: 52 59 0D 0A 55 53 45 20 54 45 4D 50 53 54 52 55 RY..USE TEMPSTRU
021400: 0D 0A 40 20 31 30 2C 31 20 53 41 59 20 4D 2E 42 ..@ 10,1 SAY M.B
021410: 4C 41 4E 4B 0D 0A 47 4F 20 42 4F 54 54 4F 4D 0D LANK..GO BOTTOM.
021420: 0A 53 54 4F 52 45 20 23 20 54 4F 20 46 49 4C 43 .STORE # TO FILC
021430: 4E 54 0D 0A 47 4F 20 54 4F 50 0D 0A 40 20 31 31 NT..GO TOP..@ 11
021440: 2C 30 0D 0A 53 54 4F 52 45 20 27 20 20 20 20 20 ,0..STORE '
021450: 20 20 20 27 20 54 4F 20 43 46 49 4C 45 0D 0A 73 ' TO CFILE..s
021460: 74 6F 72 65 20 66 20 74 6F 20 76 61 6C 69 64 0D tore f to valid.
021470: 0A 44 4F 20 57 48 49 4C 45 20 2E 4E 4F 54 2E 20 .DO WHILE .NOT.
021480: 4D 2E 56 41 4C 49 44 0D 0A 20 20 40 20 31 37 2C M.VALID.. @ 17,
021490: 34 37 20 53 41 59 20 27 5B 42 6C 61 6E 6B 20 74 47 SAY '[Blank t
0214A0: 6F 20 66 69 6E 69 73 68 5D 27 0D 0A 20 20 40 20 o finish]'.. @
0214B0: 31 37 2C 35 20 53 41 59 20 27 50 6C 65 61 73 65 17,5 SAY 'Please
0214C0: 20 65 6E 74 65 72 20 52 65 70 6F 72 74 20 66 69 enter Report fi
0214D0: 6C 65 20 6E 61 6D 65 2E 20 27 20 47 45 54 20 4D le name. ' GET M
0214E0: 2E 43 46 49 4C 45 20 50 49 43 54 20 27 21 21 21 .CFILE PICT '!!!
0214F0: 21 21 21 21 21 27 0D 0A 20 20 52 45 41 44 0D 0A !!!!!'.. READ..
021500: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
021510: 1C 00 01 00 02 09 50 E5 1C 00 41 02 00 00 00 02 ......P...A.....
021520: 1C 00 46 02 00 00 00 02 1C 00 42 02 00 00 00 02 ..F.......B.....
021530: 1C 00 47 02 00 00 00 02 1C 00 43 02 00 00 00 02 ..G.......C.....
021540: 1C 00 48 02 00 00 00 02 1C 00 44 02 00 00 00 02 ..H.......D.....
021550: 1C 00 49 02 00 00 00 02 1C 00 45 02 00 00 00 02 ..I.......E.....
021560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021600: 78 74 20 57 65 6C 63 6F 6D 65 20 66 69 6C 65 27 xt Welcome file'
021610: 0D 0A 20 20 40 20 32 30 2C 31 0D 0A 53 54 4F 52 .. @ 20,1..STOR
021620: 45 20 4D 54 45 53 54 20 54 4F 20 4D 46 49 4C 45 E MTEST TO MFILE
021630: 32 0D 0A 53 54 4F 52 45 20 4D 46 49 4C 45 32 20 2..STORE MFILE2
021640: 54 4F 20 4D 54 45 53 54 0D 0A 52 45 4C 45 41 53 TO MTEST..RELEAS
021650: 45 20 4D 46 49 4C 45 32 0D 0A 2A 20 20 52 45 50 E MFILE2..* REP
021660: 4F 52 54 20 47 45 4E 45 52 41 54 4F 52 20 2D 20 ORT GENERATOR -
021670: 46 52 4F 4E 49 32 2E 45 4E 44 0D 0A 44 4F 20 46 FRONI2.END..DO F
021680: 52 4F 4E 49 32 2E 45 4E 44 0D 0A 45 52 41 53 45 RONI2.END..ERASE
021690: 0D 0A 40 20 31 2C 31 20 53 41 59 20 27 57 45 4C ..@ 1,1 SAY 'WEL
0216A0: 43 4F 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 COME
0216B0: 20 20 20 20 20 20 20 20 20 52 45 50 4F 52 54 20 REPORT
0216C0: 43 52 45 41 54 49 4F 4E 20 20 20 20 20 20 20 20 CREATION
0216D0: 20 20 20 20 20 20 20 20 27 20 3B 0D 0A 20 20 20 ' ;..
0216E0: 20 20 20 20 20 2B 20 27 20 20 20 20 20 20 64 42 + ' dB
0216F0: 41 53 45 20 49 49 27 0D 0A 40 20 32 2C 31 20 53 ASE II'..@ 2,1 S
021700: 41 59 20 4D 2E 55 4E 44 45 52 4C 4E 0D 0A 40 20 AY M.UNDERLN..@
021710: 32 32 2C 31 20 53 41 59 20 4D 2E 55 4E 44 45 52 22,1 SAY M.UNDER
021720: 4C 4E 0D 0A 53 45 4C 45 20 53 45 43 4F 0D 0A 55 LN..SELE SECO..U
021730: 53 45 0D 0A 53 45 4C 45 20 50 52 49 4D 0D 0A 55 SE..SELE PRIM..U
021740: 53 45 20 26 4D 46 49 4C 45 0D 0A 49 46 20 57 49 SE &MFILE..IF WI
021750: 50 45 4F 55 54 0D 0A 20 20 40 20 31 39 2C 35 20 PEOUT.. @ 19,5
021760: 53 41 59 20 27 49 66 20 72 65 70 6F 72 74 20 66 SAY 'If report f
021770: 6F 72 6D 20 26 6D 74 65 73 74 2E 2E 46 52 4D 20 orm &mtest..FRM
021780: 20 69 73 20 6E 6F 74 20 74 6F 20 79 6F 75 72 20 is not to your
021790: 6C 69 6B 69 6E 67 27 0D 0A 20 20 40 20 32 30 2C liking'.. @ 20,
0217A0: 35 20 53 41 59 20 27 69 74 20 69 73 20 70 6F 73 5 SAY 'it is pos
0217B0: 73 69 62 6C 65 20 74 6F 20 64 65 6C 65 74 65 20 sible to delete
0217C0: 69 74 20 66 72 6F 6D 20 64 42 61 73 65 20 49 49 it from dBase II
0217D0: 20 61 6E 64 20 72 65 2D 63 72 65 61 74 65 20 21 and re-create !
0217E0: 27 0D 0A 20 20 73 74 6F 72 65 20 22 20 22 20 74 '.. store " " t
0217F0: 6F 20 74 65 6D 70 0D 0A 20 20 40 20 32 31 2C 35 o temp.. @ 21,5
021800: 75 6E 74 2C 36 30 20 53 41 59 20 27 2C 4C 3D 27 unt,60 SAY ',L='
021810: 0D 0A 20 20 40 20 63 6F 75 6E 74 2C 36 33 20 53 .. @ count,63 S
021820: 41 59 20 6C 70 70 0D 0A 20 20 53 54 4F 52 45 20 AY lpp.. STORE
021830: 30 20 54 4F 20 73 69 7A 65 0D 0A 20 20 40 20 32 0 TO size.. @ 2
021840: 31 2C 30 0D 0A 20 20 40 20 32 31 2C 35 20 53 41 1,0.. @ 21,5 SA
021850: 59 20 27 50 61 67 65 20 57 69 64 74 68 27 0D 0A Y 'Page Width'..
021860: 20 20 44 4F 20 57 48 49 4C 45 20 73 69 7A 65 20 DO WHILE size
021870: 3D 20 30 20 2E 4F 52 2E 20 77 69 64 74 68 20 3E = 0 .OR. width >
021880: 20 31 33 32 0D 0A 20 20 20 20 40 20 32 31 2C 30 132.. @ 21,0
021890: 20 47 45 54 20 77 69 64 74 68 20 50 49 43 54 20 GET width PICT
0218A0: 27 39 39 39 27 20 0D 0A 20 20 20 20 52 45 41 44 '999' .. READ
0218B0: 0D 0A 20 20 20 20 47 4F 20 54 4F 50 0D 0A 20 20 .. GO TOP..
0218C0: 20 20 43 4F 55 4E 54 20 46 4F 52 20 66 69 65 6C COUNT FOR fiel
0218D0: 64 3A 6C 65 6E 20 3C 20 77 69 64 74 68 20 54 4F d:len < width TO
0218E0: 20 73 69 7A 65 0D 0A 20 20 20 20 49 46 20 73 69 size.. IF si
0218F0: 7A 65 20 3D 20 30 0D 0A 20 20 20 20 20 20 40 20 ze = 0.. @
021900: 32 31 2C 35 20 53 41 59 20 27 50 61 67 65 20 77 21,5 SAY 'Page w
021910: 69 64 74 68 20 6E 6F 74 20 77 69 64 65 20 65 6E idth not wide en
021920: 6F 75 67 68 20 74 6F 20 66 69 74 20 64 61 74 61 ough to fit data
021930: 62 61 73 65 2E 20 50 6C 65 61 73 65 20 52 65 2D base. Please Re-
021940: 65 6E 74 65 72 27 0D 0A 20 20 20 20 45 4E 44 49 enter'.. ENDI
021950: 46 20 73 69 7A 65 20 3D 20 30 0D 0A 20 20 20 20 F size = 0..
021960: 49 46 20 77 69 64 74 68 20 3E 20 31 33 32 0D 0A IF width > 132..
021970: 20 20 20 20 20 20 40 20 32 31 2C 35 20 53 41 59 @ 21,5 SAY
021980: 20 27 50 61 67 65 20 77 69 64 74 68 20 6D 75 73 'Page width mus
021990: 74 20 6E 6F 74 20 65 78 63 65 65 64 20 31 33 32 t not exceed 132
0219A0: 2E 20 50 6C 65 61 73 65 20 52 65 2D 65 6E 74 65 . Please Re-ente
0219B0: 72 20 20 20 20 20 20 20 20 20 20 20 20 27 0D 0A r '..
0219C0: 20 20 20 20 45 4E 44 49 46 20 77 69 64 74 68 20 ENDIF width
0219D0: 3E 20 31 33 32 0D 0A 20 20 20 20 43 4C 45 41 52 > 132.. CLEAR
0219E0: 20 47 45 54 53 0D 0A 20 20 45 4E 44 44 4F 20 57 GETS.. ENDDO W
0219F0: 48 49 4C 45 20 73 69 7A 65 20 3D 20 30 0D 0A 20 HILE size = 0..
021A00: 20 73 61 79 20 22 50 72 65 73 73 20 61 6E 79 20 say "Press any
021A10: 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 65 2E key to continue.
021A20: 2E 2E 22 0D 0A 20 20 40 20 32 31 2C 31 20 73 61 ..".. @ 21,1 sa
021A30: 79 20 67 65 74 20 74 65 6D 70 0D 0A 20 20 72 65 y get temp.. re
021A40: 61 64 20 0D 0A 20 20 63 6C 65 61 72 20 67 65 74 ad .. clear get
021A50: 73 0D 0A 45 4E 44 49 46 0D 0A 40 20 31 39 2C 30 s..ENDIF..@ 19,0
021A60: 0D 0A 40 20 32 30 2C 30 0D 0A 40 20 32 31 2C 30 ..@ 20,0..@ 21,0
021A70: 0D 0A 40 20 31 31 2C 32 37 20 53 41 59 20 27 52 ..@ 11,27 SAY 'R
021A80: 45 54 55 52 4E 49 4E 47 20 54 4F 20 4D 41 49 4E ETURNING TO MAIN
021A90: 20 4D 45 4E 55 27 0D 0A 40 20 32 30 2C 31 0D 0A MENU'..@ 20,1..
021AA0: 49 46 20 46 49 4C 45 20 28 20 27 54 45 4D 50 53 IF FILE ( 'TEMPS
021AB0: 54 52 55 2E 44 42 46 27 20 29 0D 0A 20 20 44 45 TRU.DBF' ).. DE
021AC0: 4C 45 20 46 49 4C 45 20 54 45 4D 50 53 54 52 55 LE FILE TEMPSTRU
021AD0: 2E 44 42 46 0D 0A 45 4E 44 49 46 0D 0A 49 46 20 .DBF..ENDIF..IF
021AE0: 46 49 4C 45 20 28 20 27 46 52 4F 4E 49 46 2E 44 FILE ( 'FRONIF.D
021AF0: 42 57 27 20 29 0D 0A 20 20 44 45 4C 45 54 45 20 BW' ).. DELETE
021B00: 46 49 4C 45 20 46 52 4F 4E 49 46 2E 44 42 57 0D FILE FRONIF.DBW.
021B10: 0A 45 4E 44 49 46 0D 0A 52 45 4C 45 41 53 45 20 .ENDIF..RELEASE
021B20: 41 4C 4C 20 45 58 43 45 50 54 20 4D 46 49 4C 45 ALL EXCEPT MFILE
021B30: 0D 0A 52 45 54 55 52 4E 0D 0A 1A 1A 1A 1A 1A 1A ..RETURN........
021B40: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
021B50: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
021B60: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
021B70: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
021B80: 4E 4B 0D 0A 20 20 40 20 31 31 2C 32 37 20 53 41 NK.. @ 11,27 SA
021B90: 59 20 27 52 45 54 55 52 4E 49 4E 47 20 54 4F 20 Y 'RETURNING TO
021BA0: 4D 41 49 4E 20 4D 45 4E 55 27 0D 0A 20 20 40 20 MAIN MENU'.. @
021BB0: 32 30 2C 31 0D 0A 20 20 53 54 4F 52 45 20 31 20 20,1.. STORE 1
021BC0: 54 4F 20 43 0D 0A 20 20 44 4F 20 57 48 49 4C 45 TO C.. DO WHILE
021BD0: 20 43 20 3C 20 32 35 0D 0A 20 20 20 20 53 54 4F C < 25.. STO
021BE0: 52 45 20 43 2B 31 20 54 4F 20 43 0D 0A 20 20 45 RE C+1 TO C.. E
021BF0: 4E 44 44 4F 0D 0A 20 20 52 45 4C 45 41 53 45 20 NDDO.. RELEASE
021C00: 20 53 45 4C 45 43 54 20 50 52 49 4D 41 52 59 0D SELECT PRIMARY.
021C10: 0A 20 20 40 20 63 6F 75 6E 74 2C 36 35 20 53 41 . @ count,65 SA
021C20: 59 20 27 2C 57 3D 27 0D 0A 20 20 40 20 63 6F 75 Y ',W='.. @ cou
021C30: 6E 74 2C 36 38 20 53 41 59 20 77 69 64 74 68 0D nt,68 SAY width.
021C40: 0A 20 20 47 4F 54 4F 20 54 4F 50 0D 0A 20 20 41 . GOTO TOP.. A
021C50: 50 50 45 4E 44 20 42 4C 41 4E 4B 0D 0A 20 20 52 PPEND BLANK.. R
021C60: 45 50 4C 41 43 45 20 6C 69 6E 65 20 57 49 54 48 EPLACE line WITH
021C70: 20 27 4D 3D 27 2B 53 54 52 28 6D 61 72 67 2C 32 'M='+STR(marg,2
021C80: 29 2B 27 2C 4C 3D 27 2B 53 54 52 28 6C 70 70 2C )+',L='+STR(lpp,
021C90: 32 29 2B 27 2C 57 3D 27 2B 53 54 52 28 77 69 64 2)+',W='+STR(wid
021CA0: 74 68 2C 33 29 0D 0A 20 20 53 54 4F 52 45 20 63 th,3).. STORE c
021CB0: 6F 75 6E 74 2B 31 20 54 4F 20 63 6F 75 6E 74 0D ount+1 TO count.
021CC0: 0A 20 20 40 20 32 31 2C 30 20 0D 0A 20 20 40 20 . @ 21,0 .. @
021CD0: 63 6F 75 6E 74 2C 30 20 53 41 59 20 27 50 61 67 count,0 SAY 'Pag
021CE0: 65 20 68 65 61 64 69 6E 67 3F 20 28 79 2F 6E 29 e heading? (y/n)
021CF0: 27 0D 0A 20 20 53 54 4F 52 45 20 27 20 27 20 54 '.. STORE ' ' T
021D00: 4F 20 69 6E 6B 65 79 0D 0A 20 20 44 4F 20 57 48 O inkey.. DO WH
021D10: 49 4C 45 20 2E 4E 4F 54 2E 20 69 6E 6B 65 79 24 ILE .NOT. inkey$
021D20: 27 59 4E 27 0D 0A 20 20 20 20 40 20 32 31 2C 30 'YN'.. @ 21,0
021D30: 20 47 45 54 20 69 6E 6B 65 79 20 50 49 43 54 20 GET inkey PICT
021D40: 27 21 27 0D 0A 20 20 20 20 40 20 32 31 2C 35 20 '!'.. @ 21,5
021D50: 53 41 59 20 27 44 6F 20 79 6F 75 20 77 61 6E 74 SAY 'Do you want
021D60: 20 61 20 70 61 67 65 20 68 65 61 64 69 6E 67 20 a page heading
021D70: 28 59 2F 4E 29 20 3F 20 27 0D 0A 20 20 20 20 52 (Y/N) ? '.. R
021D80: 45 41 44 0D 0A 20 20 20 20 43 4C 45 41 52 20 47 EAD.. CLEAR G
021D90: 45 54 53 0D 0A 20 20 45 4E 44 44 4F 20 57 48 49 ETS.. ENDDO WHI
021DA0: 4C 45 20 2E 4E 4F 54 2E 20 69 6E 6B 65 79 24 27 LE .NOT. inkey$'
021DB0: 59 4E 27 0D 0A 20 20 40 20 63 6F 75 6E 74 2C 32 YN'.. @ count,2
021DC0: 30 20 53 41 59 20 69 6E 6B 65 79 0D 0A 20 20 41 0 SAY inkey.. A
021DD0: 50 50 45 4E 44 20 42 4C 41 4E 4B 0D 0A 20 20 52 PPEND BLANK.. R
021DE0: 45 50 4C 41 43 45 20 6C 69 6E 65 20 57 49 54 48 EPLACE line WITH
021DF0: 20 69 6E 6B 65 79 0D 0A 20 20 53 54 4F 52 45 20 inkey.. STORE
021E00: 2A 20 52 45 50 4F 52 54 20 46 4F 52 4D 20 47 45 * REPORT FORM GE
021E10: 4E 45 52 41 54 4F 52 20 2D 20 57 44 41 20 32 33 NERATOR - WDA 23
021E20: 2F 30 37 2F 31 39 38 34 0D 0A 2A 20 50 52 4F 47 /07/1984..* PROG
021E30: 52 41 4D 20 46 49 4C 45 20 3D 20 46 52 4F 4E 49 RAM FILE = FRONI
021E40: 32 2E 45 4E 44 20 28 43 41 4C 4C 45 44 20 46 52 2.END (CALLED FR
021E50: 4F 4D 20 46 52 4F 4E 49 2E 45 4E 44 29 0D 0A 40 OM FRONI.END)..@
021E60: 20 31 31 2C 30 0D 0A 53 45 4C 45 43 54 20 50 52 11,0..SELECT PR
021E70: 49 4D 41 52 59 0D 0A 43 52 45 41 54 45 20 46 52 IMARY..CREATE FR
021E80: 4F 4E 49 46 2E 44 42 57 20 46 52 4F 4D 20 46 52 ONIF.DBW FROM FR
021E90: 4F 4E 49 58 2E 44 42 57 0D 0A 55 53 45 20 46 52 ONIX.DBW..USE FR
021EA0: 4F 4E 49 46 2E 44 42 57 0D 0A 53 45 4C 45 43 54 ONIF.DBW..SELECT
021EB0: 20 53 45 43 4F 4E 44 41 52 59 0D 0A 55 53 45 20 SECONDARY..USE
021EC0: 54 45 4D 50 53 54 52 55 0D 0A 53 54 4F 52 45 20 TEMPSTRU..STORE
021ED0: 30 20 54 4F 20 6E 75 6D 73 0D 0A 43 4F 55 4E 54 0 TO nums..COUNT
021EE0: 20 46 4F 52 20 66 69 65 6C 64 3A 74 79 70 65 20 FOR field:type
021EF0: 3D 20 27 4E 27 20 54 4F 20 6E 75 6D 73 0D 0A 47 = 'N' TO nums..G
021F00: 4F 20 54 4F 50 0D 0A 43 4F 55 4E 54 20 46 4F 52 O TOP..COUNT FOR
021F10: 20 66 69 65 6C 64 3A 6C 65 6E 20 3C 20 31 33 33 field:len < 133
021F20: 20 54 4F 20 66 69 74 0D 0A 49 46 20 66 69 74 20 TO fit..IF fit
021F30: 3D 20 30 0D 0A 20 20 53 54 4F 52 45 20 27 20 27 = 0.. STORE ' '
021F40: 20 54 4F 20 69 6E 6B 65 79 0D 0A 20 20 40 20 32 TO inkey.. @ 2
021F50: 31 2C 30 20 47 45 54 20 69 6E 6B 65 79 20 50 49 1,0 GET inkey PI
021F60: 43 54 20 27 21 27 0D 0A 20 20 40 20 32 31 2C 35 CT '!'.. @ 21,5
021F70: 20 53 41 59 20 27 44 61 74 61 62 61 73 65 20 6E SAY 'Database n
021F80: 6F 74 20 73 75 69 74 61 62 6C 65 2E 20 50 72 65 ot suitable. Pre
021F90: 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F ss any key to co
021FA0: 6E 74 69 6E 75 65 2E 27 0D 0A 20 20 52 45 41 44 ntinue.'.. READ
021FB0: 0D 0A 20 20 53 45 4C 45 43 54 20 53 45 43 4F 4E .. SELECT SECON
021FC0: 44 41 52 59 0D 0A 20 20 55 53 45 0D 0A 20 20 53 DARY.. USE.. S
021FD0: 45 4C 45 43 54 20 50 52 49 4D 41 52 59 0D 0A 20 ELECT PRIMARY..
021FE0: 20 55 53 45 0D 0A 20 20 44 45 4C 45 54 45 20 46 USE.. DELETE F
021FF0: 49 4C 45 20 46 52 4F 4E 49 46 2E 44 42 57 0D 0A ILE FRONIF.DBW..
022000: 63 6F 75 6E 74 2B 31 20 54 4F 20 63 6F 75 6E 74 count+1 TO count
022010: 0D 0A 20 20 49 46 20 69 6E 6B 65 79 20 3D 20 27 .. IF inkey = '
022020: 59 27 0D 0A 20 20 20 20 40 20 32 31 2C 30 20 0D Y'.. @ 21,0 .
022030: 0A 20 20 20 20 53 54 4F 52 45 20 27 20 20 20 20 . STORE '
022040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022050: 20 20 20 20 20 20 20 20 20 20 27 20 54 4F 20 68 ' TO h
022060: 65 61 64 65 72 0D 0A 20 20 20 20 53 54 4F 52 45 eader.. STORE
022070: 20 68 65 61 64 65 72 2B 68 65 61 64 65 72 20 54 header+header T
022080: 4F 20 68 65 61 64 65 72 0D 0A 20 20 20 20 40 20 O header.. @
022090: 63 6F 75 6E 74 2C 30 20 53 41 59 20 27 45 6E 74 count,0 SAY 'Ent
0220A0: 65 72 20 70 61 67 65 20 68 65 61 64 69 6E 67 3A er page heading:
0220B0: 27 0D 0A 20 20 20 20 40 20 32 31 2C 30 20 53 41 '.. @ 21,0 SA
0220C0: 59 20 27 48 65 61 64 69 6E 67 3A 27 20 47 45 54 Y 'Heading:' GET
0220D0: 20 68 65 61 64 65 72 0D 0A 20 20 20 20 52 45 41 header.. REA
0220E0: 44 0D 0A 20 20 20 20 40 20 63 6F 75 6E 74 2C 31 D.. @ count,1
0220F0: 39 20 53 41 59 20 68 65 61 64 65 72 0D 0A 20 20 9 SAY header..
022100: 20 20 41 50 50 45 4E 44 20 42 4C 41 4E 4B 0D 0A APPEND BLANK..
022110: 20 20 20 20 52 45 50 4C 41 43 45 20 6C 69 6E 65 REPLACE line
022120: 20 57 49 54 48 20 68 65 61 64 65 72 0D 0A 20 20 WITH header..
022130: 20 20 53 54 4F 52 45 20 63 6F 75 6E 74 2B 31 20 STORE count+1
022140: 54 4F 20 63 6F 75 6E 74 0D 0A 20 20 45 4E 44 49 TO count.. ENDI
022150: 46 20 69 6E 6B 65 79 20 3D 20 27 59 27 0D 0A 20 F inkey = 'Y'..
022160: 20 40 20 32 31 2C 30 20 0D 0A 20 20 40 20 63 6F @ 21,0 .. @ co
022170: 75 6E 74 2C 30 20 53 41 59 20 27 44 6F 75 62 6C unt,0 SAY 'Doubl
022180: 65 20 73 70 61 63 65 20 72 65 70 6F 72 74 3F 20 e space report?
022190: 28 79 2F 6E 29 27 0D 0A 20 20 53 54 4F 52 45 20 (y/n)'.. STORE
0221A0: 27 20 27 20 54 4F 20 69 6E 6B 65 79 0D 0A 20 20 ' ' TO inkey..
0221B0: 44 4F 20 57 48 49 4C 45 20 2E 4E 4F 54 2E 20 69 DO WHILE .NOT. i
0221C0: 6E 6B 65 79 24 27 59 4E 27 0D 0A 20 20 20 20 40 nkey$'YN'.. @
0221D0: 20 32 31 2C 30 20 47 45 54 20 69 6E 6B 65 79 20 21,0 GET inkey
0221E0: 50 49 43 54 20 27 21 27 0D 0A 20 20 20 20 40 20 PICT '!'.. @
0221F0: 32 31 2C 35 20 53 41 59 20 27 44 6F 20 79 6F 75 21,5 SAY 'Do you
022200: 20 20 53 54 4F 52 45 20 46 20 54 4F 20 77 69 70 STORE F TO wip
022210: 65 6F 75 74 0D 0A 20 20 52 45 54 55 52 4E 0D 0A eout.. RETURN..
022220: 45 4E 44 49 46 20 66 69 74 20 3D 20 30 0D 0A 47 ENDIF fit = 0..G
022230: 4F 20 42 4F 54 54 4F 4D 0D 0A 53 54 4F 52 45 20 O BOTTOM..STORE
022240: 23 20 54 4F 20 6E 6F 3A 66 69 65 6C 64 73 0D 0A # TO no:fields..
022250: 47 4F 20 54 4F 50 0D 0A 40 20 33 2C 30 20 53 41 GO TOP..@ 3,0 SA
022260: 59 20 27 20 20 4E 6F 2E 20 20 4E 61 6D 65 20 20 Y ' No. Name
022270: 20 20 20 20 20 54 79 70 65 20 20 4C 65 6E 67 74 Type Lengt
022280: 68 20 44 65 63 2E 27 0D 0A 49 46 20 6E 6F 3A 66 h Dec.'..IF no:f
022290: 69 65 6C 64 73 20 3C 3E 20 31 0D 0A 20 20 40 20 ields <> 1.. @
0222A0: 33 2C 34 30 20 53 41 59 20 27 20 20 4E 6F 2E 20 3,40 SAY ' No.
0222B0: 20 4E 61 6D 65 20 20 20 20 20 20 20 54 79 70 65 Name Type
0222C0: 20 20 4C 65 6E 67 74 68 20 44 65 63 2E 27 0D 0A Length Dec.'..
0222D0: 45 4E 44 49 46 0D 0A 53 45 4C 45 43 54 20 53 45 ENDIF..SELECT SE
0222E0: 43 4F 4E 44 41 52 59 0D 0A 53 54 4F 52 45 20 33 CONDARY..STORE 3
0222F0: 20 54 4F 20 6C 6E 0D 0A 44 4F 20 57 48 49 4C 45 TO ln..DO WHILE
022300: 20 2E 4E 4F 54 2E 20 45 4F 46 0D 0A 20 20 49 46 .NOT. EOF.. IF
022310: 20 28 23 2F 32 2E 30 29 20 3D 20 49 4E 54 28 23 (#/2.0) = INT(#
022320: 2F 32 29 0D 0A 20 20 20 20 53 54 4F 52 45 20 34 /2).. STORE 4
022330: 30 20 54 4F 20 63 6C 6D 0D 0A 20 20 20 45 4C 53 0 TO clm.. ELS
022340: 45 0D 0A 20 20 20 20 53 54 4F 52 45 20 30 20 54 E.. STORE 0 T
022350: 4F 20 63 6C 6D 0D 0A 20 20 20 20 53 54 4F 52 45 O clm.. STORE
022360: 20 6C 6E 2B 31 20 54 4F 20 6C 6E 20 0D 0A 20 20 ln+1 TO ln ..
022370: 45 4E 44 49 46 0D 0A 20 20 40 20 6C 6E 2C 63 6C ENDIF.. @ ln,cl
022380: 6D 20 53 41 59 20 23 0D 0A 20 20 40 20 6C 6E 2C m SAY #.. @ ln,
022390: 63 6C 6D 2B 37 20 53 41 59 20 66 69 65 6C 64 3A clm+7 SAY field:
0223A0: 6E 61 6D 65 0D 0A 20 20 40 20 6C 6E 2C 63 6C 6D name.. @ ln,clm
0223B0: 2B 32 30 20 53 41 59 20 66 69 65 6C 64 3A 74 79 +20 SAY field:ty
0223C0: 70 65 0D 0A 20 20 40 20 6C 6E 2C 63 6C 6D 2B 32 pe.. @ ln,clm+2
0223D0: 37 20 53 41 59 20 66 69 65 6C 64 3A 6C 65 6E 0D 7 SAY field:len.
0223E0: 0A 20 20 49 46 20 66 69 65 6C 64 3A 64 65 63 20 . IF field:dec
0223F0: 3C 3E 20 30 0D 0A 20 20 20 20 40 20 6C 6E 2C 63 <> 0.. @ ln,c
022400: 20 77 61 6E 74 20 64 6F 75 62 6C 65 20 73 70 61 want double spa
022410: 63 69 6E 67 20 28 59 2F 4E 29 20 3F 20 27 0D 0A cing (Y/N) ? '..
022420: 20 20 20 20 52 45 41 44 0D 0A 20 20 20 20 43 4C READ.. CL
022430: 45 41 52 20 47 45 54 53 0D 0A 20 20 45 4E 44 44 EAR GETS.. ENDD
022440: 4F 20 57 48 49 4C 45 20 2E 4E 4F 54 2E 20 69 6E O WHILE .NOT. in
022450: 6B 65 79 24 27 59 4E 27 0D 0A 20 20 40 20 63 6F key$'YN'.. @ co
022460: 75 6E 74 2C 32 35 20 53 41 59 20 69 6E 6B 65 79 unt,25 SAY inkey
022470: 0D 0A 20 20 41 50 50 45 4E 44 20 42 4C 41 4E 4B .. APPEND BLANK
022480: 0D 0A 20 20 52 45 50 4C 41 43 45 20 6C 69 6E 65 .. REPLACE line
022490: 20 57 49 54 48 20 69 6E 6B 65 79 0D 0A 20 20 53 WITH inkey.. S
0224A0: 54 4F 52 45 20 63 6F 75 6E 74 2B 31 20 54 4F 20 TORE count+1 TO
0224B0: 63 6F 75 6E 74 0D 0A 20 20 40 20 63 6F 75 6E 74 count.. @ count
0224C0: 2C 30 20 53 41 59 20 27 41 72 65 20 74 6F 74 61 ,0 SAY 'Are tota
0224D0: 6C 73 20 72 65 71 75 69 72 65 64 3F 20 28 79 2F ls required? (y/
0224E0: 6E 29 27 0D 0A 20 20 53 54 4F 52 45 20 27 20 27 n)'.. STORE ' '
0224F0: 20 54 4F 20 69 6E 6B 65 79 0D 0A 20 20 44 4F 20 TO inkey.. DO
022500: 57 48 49 4C 45 20 2E 4E 4F 54 2E 20 69 6E 6B 65 WHILE .NOT. inke
022510: 79 24 27 59 4E 27 20 20 0D 0A 20 20 20 20 40 20 y$'YN' .. @
022520: 32 31 2C 30 0D 0A 20 20 20 20 40 20 32 31 2C 30 21,0.. @ 21,0
022530: 20 47 45 54 20 69 6E 6B 65 79 20 50 49 43 54 20 GET inkey PICT
022540: 27 21 27 0D 0A 20 20 20 20 40 20 32 31 2C 35 20 '!'.. @ 21,5
022550: 53 41 59 20 27 44 6F 20 79 6F 75 20 77 61 6E 74 SAY 'Do you want
022560: 20 74 6F 74 61 6C 73 20 28 59 2F 4E 29 20 3F 20 totals (Y/N) ?
022570: 27 0D 0A 20 20 20 20 52 45 41 44 0D 0A 20 20 20 '.. READ..
022580: 20 49 46 20 6E 75 6D 73 20 3D 20 30 20 2E 41 4E IF nums = 0 .AN
022590: 44 2E 20 69 6E 6B 65 79 20 3D 20 27 59 27 0D 0A D. inkey = 'Y'..
0225A0: 20 20 20 20 20 20 40 20 32 31 2C 30 0D 0A 20 20 @ 21,0..
0225B0: 20 20 20 20 53 54 4F 52 45 20 27 20 27 20 54 4F STORE ' ' TO
0225C0: 20 69 6E 6B 65 79 0D 0A 20 20 20 20 20 20 40 20 inkey.. @
0225D0: 32 31 2C 30 20 47 45 54 20 69 6E 6B 65 79 20 50 21,0 GET inkey P
0225E0: 49 43 54 20 27 21 27 0D 0A 20 20 20 20 20 20 40 ICT '!'.. @
0225F0: 20 32 31 2C 35 20 53 41 59 20 27 4E 6F 20 6E 75 21,5 SAY 'No nu
022600: 6C 6D 2B 33 32 20 53 41 59 20 66 69 65 6C 64 3A lm+32 SAY field:
022610: 64 65 63 0D 0A 20 20 45 4E 44 49 46 20 66 69 65 dec.. ENDIF fie
022620: 6C 64 3A 64 65 63 20 3D 20 30 0D 0A 20 20 53 4B ld:dec = 0.. SK
022630: 49 50 0D 0A 45 4E 44 44 4F 20 57 48 49 4C 45 20 IP..ENDDO WHILE
022640: 2E 4E 4F 54 2E 20 45 4F 46 0D 0A 53 54 4F 52 45 .NOT. EOF..STORE
022650: 20 46 20 54 4F 20 6F 6B 0D 0A 44 4F 20 57 48 49 F TO ok..DO WHI
022660: 4C 45 20 2E 4E 4F 54 2E 20 6F 6B 0D 0A 20 20 53 LE .NOT. ok.. S
022670: 45 4C 45 43 54 20 53 45 43 4F 4E 44 41 52 59 0D ELECT SECONDARY.
022680: 0A 20 20 53 54 4F 52 45 20 49 4E 54 28 28 6E 6F . STORE INT((no
022690: 3A 66 69 65 6C 64 73 2B 31 29 2F 32 29 2B 34 20 :fields+1)/2)+4
0226A0: 54 4F 20 63 6F 75 6E 74 0D 0A 20 20 40 20 63 6F TO count.. @ co
0226B0: 75 6E 74 2C 30 20 53 41 59 20 20 27 45 6E 74 65 unt,0 SAY 'Ente
0226C0: 72 20 4F 70 74 69 6F 6E 2C 20 6D 3D 6C 65 66 74 r Option, m=left
0226D0: 20 6D 61 72 67 69 6E 2C 20 6C 3D 6C 69 6E 65 73 margin, l=lines
0226E0: 2F 70 61 67 65 2C 20 77 3D 70 61 67 65 20 77 69 /page, w=page wi
0226F0: 64 74 68 27 0D 0A 20 20 40 20 32 31 2C 30 20 0D dth'.. @ 21,0 .
022700: 0A 20 20 53 54 4F 52 45 20 30 20 54 4F 20 6D 61 . STORE 0 TO ma
022710: 72 67 0D 0A 20 20 53 54 4F 52 45 20 36 36 20 54 rg.. STORE 66 T
022720: 4F 20 6C 70 70 0D 0A 20 20 53 54 4F 52 45 20 38 O lpp.. STORE 8
022730: 30 20 54 4F 20 77 69 64 74 68 0D 0A 20 20 40 20 0 TO width.. @
022740: 32 31 2C 30 20 47 45 54 20 6D 61 72 67 20 50 49 21,0 GET marg PI
022750: 43 54 20 27 39 39 27 0D 0A 20 20 40 20 32 31 2C CT '99'.. @ 21,
022760: 35 20 53 41 59 20 27 4C 65 66 74 20 4D 61 72 67 5 SAY 'Left Marg
022770: 69 6E 27 0D 0A 20 20 52 45 41 44 0D 0A 20 20 40 in'.. READ.. @
022780: 20 63 6F 75 6E 74 2C 35 35 20 53 41 59 20 27 20 count,55 SAY '
022790: 4D 3D 27 0D 0A 20 20 40 20 63 6F 75 6E 74 2C 35 M='.. @ count,5
0227A0: 38 20 53 41 59 20 6D 61 72 67 0D 0A 20 20 40 20 8 SAY marg.. @
0227B0: 32 31 2C 30 20 0D 0A 20 20 40 20 32 31 2C 30 20 21,0 .. @ 21,0
0227C0: 47 45 54 20 6C 70 70 20 50 49 43 54 20 27 39 39 GET lpp PICT '99
0227D0: 27 0D 0A 20 20 40 20 32 31 2C 35 20 53 41 59 20 '.. @ 21,5 SAY
0227E0: 27 4C 69 6E 65 73 20 50 65 72 20 50 61 67 65 27 'Lines Per Page'
0227F0: 0D 0A 20 20 52 45 41 44 0D 0A 20 20 40 20 63 6F .. READ.. @ co
022800: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
022810: 1D 00 01 00 02 09 52 E5 1D 00 41 02 00 00 00 02 ......R...A.....
022820: 1D 00 46 02 00 00 00 02 1D 00 42 02 00 00 00 02 ..F.......B.....
022830: 1D 00 47 02 00 00 00 02 1D 00 43 02 00 00 00 02 ..G.......C.....
022840: 1D 00 48 02 00 00 00 02 1D 00 44 02 00 00 00 02 ..H.......D.....
022850: 1D 00 49 02 00 00 00 02 1D 00 45 02 00 00 00 02 ..I.......E.....
022860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022900: 6D 65 72 69 63 20 66 69 65 6C 64 73 20 69 6E 20 meric fields in
022910: 64 61 74 61 62 61 73 65 2E 20 50 72 65 73 73 20 database. Press
022920: 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 any key to conti
022930: 6E 75 65 27 0D 0A 20 20 20 20 20 20 52 45 41 44 nue'.. READ
022940: 0D 0A 20 20 20 20 20 20 43 4C 45 41 52 20 47 45 .. CLEAR GE
022950: 54 53 0D 0A 20 20 20 20 45 4E 44 49 46 20 6E 75 TS.. ENDIF nu
022960: 6D 73 20 3D 20 30 20 2E 41 4E 44 2E 20 69 6E 6B ms = 0 .AND. ink
022970: 65 79 20 3D 20 27 59 27 0D 0A 20 20 45 4E 44 44 ey = 'Y'.. ENDD
022980: 4F 20 2E 4E 4F 54 2E 20 69 6E 6B 65 79 24 27 59 O .NOT. inkey$'Y
022990: 4E 27 0D 0A 20 20 49 46 20 69 6E 6B 65 79 20 3D N'.. IF inkey =
0229A0: 20 27 59 27 0D 0A 20 20 20 20 53 54 4F 52 45 20 'Y'.. STORE
0229B0: 54 20 54 4F 20 74 6F 74 61 6C 73 0D 0A 20 20 20 T TO totals..
0229C0: 45 4C 53 45 0D 0A 20 20 20 20 53 54 4F 52 45 20 ELSE.. STORE
0229D0: 46 20 54 4F 20 74 6F 74 61 6C 73 0D 0A 20 20 45 F TO totals.. E
0229E0: 4E 44 49 46 20 69 6E 6B 65 79 20 3D 20 27 59 27 NDIF inkey = 'Y'
0229F0: 0D 0A 20 20 40 20 63 6F 75 6E 74 2C 32 36 20 53 .. @ count,26 S
022A00: 41 59 20 69 6E 6B 65 79 0D 0A 20 20 41 50 50 45 AY inkey.. APPE
022A10: 4E 44 20 42 4C 41 4E 4B 0D 0A 20 20 52 45 50 4C ND BLANK.. REPL
022A20: 41 43 45 20 6C 69 6E 65 20 57 49 54 48 20 69 6E ACE line WITH in
022A30: 6B 65 79 0D 0A 20 20 53 54 4F 52 45 20 63 6F 75 key.. STORE cou
022A40: 6E 74 2B 31 20 54 4F 20 63 6F 75 6E 74 0D 0A 20 nt+1 TO count..
022A50: 20 49 46 20 69 6E 6B 65 79 20 3D 20 27 59 27 0D IF inkey = 'Y'.
022A60: 0A 20 20 20 20 40 20 32 31 2C 30 20 0D 0A 20 20 . @ 21,0 ..
022A70: 20 20 40 20 63 6F 75 6E 74 2C 30 20 53 41 59 20 @ count,0 SAY
022A80: 27 53 75 62 74 6F 74 61 6C 73 20 69 6E 20 72 65 'Subtotals in re
022A90: 70 6F 72 74 3F 20 28 79 2F 6E 29 27 0D 0A 20 20 port? (y/n)'..
022AA0: 20 20 53 54 4F 52 45 20 27 20 27 20 54 4F 20 69 STORE ' ' TO i
022AB0: 6E 6B 65 79 0D 0A 20 20 20 20 44 4F 20 57 48 49 nkey.. DO WHI
022AC0: 4C 45 20 2E 4E 4F 54 2E 20 69 6E 6B 65 79 24 27 LE .NOT. inkey$'
022AD0: 59 4E 27 20 0D 0A 20 20 20 20 20 20 40 20 32 31 YN' .. @ 21
022AE0: 2C 30 20 47 45 54 20 69 6E 6B 65 79 20 50 49 43 ,0 GET inkey PIC
022AF0: 54 20 27 21 27 0D 0A 20 20 20 20 20 20 40 20 32 T '!'.. @ 2
022B00: 46 20 69 6E 6B 65 79 20 3D 20 27 59 27 0D 0A 20 F inkey = 'Y'..
022B10: 20 40 20 32 31 2C 30 20 0D 0A 20 20 40 20 32 31 @ 21,0 .. @ 21
022B20: 2C 35 20 53 41 59 20 27 41 72 65 20 79 6F 75 20 ,5 SAY 'Are you
022B30: 68 61 70 70 79 20 77 69 74 68 20 74 68 65 73 65 happy with these
022B40: 20 6F 70 74 69 6F 6E 73 20 28 59 2F 4E 29 20 3F options (Y/N) ?
022B50: 27 0D 0A 20 20 53 54 4F 52 45 20 27 20 27 20 54 '.. STORE ' ' T
022B60: 4F 20 69 6E 6B 65 79 0D 0A 20 20 44 4F 20 57 48 O inkey.. DO WH
022B70: 49 4C 45 20 2E 4E 4F 54 2E 20 69 6E 6B 65 79 24 ILE .NOT. inkey$
022B80: 27 59 4E 27 0D 0A 20 20 20 20 40 20 32 31 2C 30 'YN'.. @ 21,0
022B90: 20 47 45 54 20 69 6E 6B 65 79 20 50 49 43 54 20 GET inkey PICT
022BA0: 27 21 27 0D 0A 20 20 20 20 52 45 41 44 0D 0A 20 '!'.. READ..
022BB0: 20 20 20 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 CLEAR GETS..
022BC0: 20 45 4E 44 44 4F 20 57 48 49 4C 45 20 2E 4E 4F ENDDO WHILE .NO
022BD0: 54 2E 20 69 6E 6B 65 79 24 27 59 4E 27 0D 0A 20 T. inkey$'YN'..
022BE0: 20 49 46 20 69 6E 6B 65 79 20 3D 20 27 4E 27 0D IF inkey = 'N'.
022BF0: 0A 20 20 20 20 55 53 45 0D 0A 20 20 20 20 43 52 . USE.. CR
022C00: 45 41 54 45 20 46 52 4F 4E 49 46 2E 44 42 57 20 EATE FRONIF.DBW
022C10: 46 52 4F 4D 20 46 52 4F 4E 49 58 2E 44 42 57 0D FROM FRONIX.DBW.
022C20: 0A 20 20 20 20 55 53 45 20 46 52 4F 4E 49 46 2E . USE FRONIF.
022C30: 44 42 57 0D 0A 20 20 20 45 4C 53 45 0D 0A 20 20 DBW.. ELSE..
022C40: 20 20 53 54 4F 52 45 20 54 20 54 4F 20 6F 6B 0D STORE T TO ok.
022C50: 0A 20 20 20 20 40 20 32 31 2C 30 20 0D 0A 20 20 . @ 21,0 ..
022C60: 45 4E 44 49 46 20 69 6E 6B 65 79 20 3D 20 27 4E ENDIF inkey = 'N
022C70: 27 0D 0A 20 20 53 54 4F 52 45 20 49 4E 54 28 28 '.. STORE INT((
022C80: 6E 6F 3A 66 69 65 6C 64 73 2B 31 29 2F 32 29 2B no:fields+1)/2)+
022C90: 34 20 54 4F 20 63 6F 75 6E 74 0D 0A 20 20 44 4F 4 TO count.. DO
022CA0: 20 57 48 49 4C 45 20 63 6F 75 6E 74 20 3C 20 32 WHILE count < 2
022CB0: 32 0D 0A 20 20 20 20 40 20 63 6F 75 6E 74 2C 30 2.. @ count,0
022CC0: 0D 0A 20 20 20 20 53 54 4F 52 45 20 63 6F 75 6E .. STORE coun
022CD0: 74 2B 31 20 54 4F 20 63 6F 75 6E 74 0D 0A 20 20 t+1 TO count..
022CE0: 45 4E 44 44 4F 20 57 48 49 4C 45 20 63 6F 75 6E ENDDO WHILE coun
022CF0: 74 20 3C 20 32 32 0D 0A 43 4C 45 41 52 20 47 45 t < 22..CLEAR GE
022D00: 31 2C 35 20 53 41 59 20 27 44 6F 20 79 6F 75 20 1,5 SAY 'Do you
022D10: 77 61 6E 74 20 53 75 62 74 6F 74 61 6C 73 20 28 want Subtotals (
022D20: 59 2F 4E 29 20 3F 20 27 0D 0A 20 20 20 20 20 20 Y/N) ? '..
022D30: 52 45 41 44 0D 0A 20 20 20 20 20 20 43 4C 45 41 READ.. CLEA
022D40: 52 20 47 45 54 53 0D 0A 20 20 20 20 45 4E 44 44 R GETS.. ENDD
022D50: 4F 20 57 48 49 4C 45 20 2E 4E 4F 54 2E 20 69 6E O WHILE .NOT. in
022D60: 6B 65 79 24 27 59 4E 27 0D 0A 20 20 20 20 40 20 key$'YN'.. @
022D70: 63 6F 75 6E 74 2C 32 36 20 53 41 59 20 69 6E 6B count,26 SAY ink
022D80: 65 79 0D 0A 20 20 20 20 41 50 50 45 4E 44 20 42 ey.. APPEND B
022D90: 4C 41 4E 4B 0D 0A 20 20 20 20 52 45 50 4C 41 43 LANK.. REPLAC
022DA0: 45 20 6C 69 6E 65 20 57 49 54 48 20 69 6E 6B 65 E line WITH inke
022DB0: 79 0D 0A 20 20 20 20 53 54 4F 52 45 20 63 6F 75 y.. STORE cou
022DC0: 6E 74 2B 31 20 54 4F 20 63 6F 75 6E 74 0D 0A 20 nt+1 TO count..
022DD0: 20 20 20 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 CLEAR GETS..
022DE0: 20 20 20 49 46 20 69 6E 6B 65 79 20 3D 20 27 59 IF inkey = 'Y
022DF0: 27 0D 0A 20 20 20 20 20 20 40 20 32 31 2C 30 20 '.. @ 21,0
022E00: 0D 0A 20 20 20 20 20 20 40 20 63 6F 75 6E 74 2C .. @ count,
022E10: 30 20 53 41 59 20 27 45 6E 74 65 72 20 73 75 62 0 SAY 'Enter sub
022E20: 74 6F 74 61 6C 73 20 66 69 65 6C 64 3A 20 27 0D totals field: '.
022E30: 0A 20 20 20 20 20 20 53 54 4F 52 45 20 30 20 54 . STORE 0 T
022E40: 4F 20 66 69 65 6C 64 0D 0A 20 20 20 20 20 20 53 O field.. S
022E50: 45 4C 45 43 54 20 53 45 43 4F 4E 44 41 52 59 0D ELECT SECONDARY.
022E60: 0A 20 20 20 20 20 20 44 4F 20 57 48 49 4C 45 20 . DO WHILE
022E70: 66 69 65 6C 64 20 3C 20 31 20 2E 4F 52 2E 20 66 field < 1 .OR. f
022E80: 69 65 6C 64 20 3E 20 6E 6F 3A 66 69 65 6C 64 73 ield > no:fields
022E90: 0D 0A 20 20 20 20 20 20 20 20 40 20 32 31 2C 30 .. @ 21,0
022EA0: 20 47 45 54 20 66 69 65 6C 64 20 50 49 43 54 20 GET field PICT
022EB0: 27 39 39 27 0D 0A 20 20 20 20 20 20 20 20 40 20 '99'.. @
022EC0: 32 31 2C 35 20 53 41 59 20 27 45 6E 74 65 72 20 21,5 SAY 'Enter
022ED0: 53 75 62 74 6F 74 61 6C 73 20 46 69 65 6C 64 20 Subtotals Field
022EE0: 4E 6F 2E 20 27 0D 0A 20 20 20 20 20 20 20 20 52 No. '.. R
022EF0: 45 41 44 0D 0A 20 20 20 20 20 20 20 20 49 46 20 EAD.. IF
022F00: 54 53 0D 0A 45 4E 44 44 4F 20 57 48 49 4C 45 20 TS..ENDDO WHILE
022F10: 2E 4E 4F 54 2E 20 6F 6B 0D 0A 53 54 4F 52 45 20 .NOT. ok..STORE
022F20: 28 28 6E 6F 3A 66 69 65 6C 64 73 2B 31 29 2F 32 ((no:fields+1)/2
022F30: 29 2B 34 20 74 6F 20 63 6F 75 6E 74 0D 0A 40 20 )+4 to count..@
022F40: 63 6F 75 6E 74 2C 30 20 53 41 59 20 27 43 6F 6C count,0 SAY 'Col
022F50: 20 20 20 20 57 69 64 74 68 2C 20 43 6F 6E 74 65 Width, Conte
022F60: 6E 74 73 27 0D 0A 53 54 4F 52 45 20 63 6F 75 6E nts'..STORE coun
022F70: 74 2B 31 20 54 4F 20 63 6F 75 6E 74 0D 0A 53 54 t+1 TO count..ST
022F80: 4F 52 45 20 77 69 64 74 68 20 54 4F 20 61 76 61 ORE width TO ava
022F90: 69 6C 0D 0A 53 54 4F 52 45 20 27 20 20 20 20 20 il..STORE '
022FA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022FB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022FC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022FD0: 20 20 20 20 20 20 20 27 20 54 4F 20 73 70 61 63 ' TO spac
022FE0: 65 0D 0A 53 54 4F 52 45 20 46 20 54 4F 20 63 6F e..STORE F TO co
022FF0: 6D 70 6C 65 74 65 0D 0A 53 54 4F 52 45 20 31 20 mplete..STORE 1
023000: 54 4F 20 63 6F 6C 0D 0A 44 4F 20 57 48 49 4C 45 TO col..DO WHILE
023010: 20 2E 4E 4F 54 2E 20 63 6F 6D 70 6C 65 74 65 0D .NOT. complete.
023020: 0A 20 20 49 46 20 63 6F 75 6E 74 20 3E 20 31 38 . IF count > 18
023030: 0D 0A 20 20 20 20 53 54 4F 52 45 20 49 4E 54 28 .. STORE INT(
023040: 28 6E 6F 3A 66 69 65 6C 64 73 2B 31 29 2F 32 29 (no:fields+1)/2)
023050: 2B 35 20 54 4F 20 63 6F 75 6E 74 0D 0A 20 20 20 +5 TO count..
023060: 20 44 4F 20 57 48 49 4C 45 20 63 6F 75 6E 74 20 DO WHILE count
023070: 3C 20 32 32 0D 0A 20 20 20 20 20 20 40 20 63 6F < 22.. @ co
023080: 75 6E 74 2C 30 0D 0A 20 20 20 20 20 20 53 54 4F unt,0.. STO
023090: 52 45 20 63 6F 75 6E 74 2B 31 20 54 4F 20 63 6F RE count+1 TO co
0230A0: 75 6E 74 0D 0A 20 20 20 20 45 4E 44 44 4F 20 57 unt.. ENDDO W
0230B0: 48 49 4C 45 20 63 6F 75 6E 74 20 3C 20 32 32 0D HILE count < 22.
0230C0: 0A 20 20 20 20 53 54 4F 52 45 20 49 4E 54 28 28 . STORE INT((
0230D0: 6E 6F 3A 66 69 65 6C 64 73 2B 31 29 2F 32 29 2B no:fields+1)/2)+
0230E0: 35 20 54 4F 20 63 6F 75 6E 74 0D 0A 20 20 20 20 5 TO count..
0230F0: 40 20 63 6F 75 6E 74 2C 30 20 53 41 59 20 63 6F @ count,0 SAY co
023100: 66 69 65 6C 64 20 3E 20 30 20 20 2E 41 4E 44 2E field > 0 .AND.
023110: 20 66 69 65 6C 64 20 3C 3D 20 6E 6F 3A 66 69 65 field <= no:fie
023120: 6C 64 73 0D 0A 20 20 20 20 20 20 20 20 20 20 47 lds.. G
023130: 4F 54 4F 20 66 69 65 6C 64 0D 0A 20 20 20 20 20 OTO field..
023140: 20 20 20 20 20 49 46 20 66 69 65 6C 64 3A 74 79 IF field:ty
023150: 70 65 20 3C 3E 20 27 4E 27 0D 0A 20 20 20 20 20 pe <> 'N'..
023160: 20 20 20 20 20 20 20 53 54 4F 52 45 20 30 20 54 STORE 0 T
023170: 4F 20 66 69 65 6C 64 0D 0A 20 20 20 20 20 20 20 O field..
023180: 20 20 20 45 4E 44 49 46 0D 0A 20 20 20 20 20 20 ENDIF..
023190: 20 20 45 4E 44 49 46 0D 0A 20 20 20 20 20 20 20 ENDIF..
0231A0: 20 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 20 CLEAR GETS..
0231B0: 20 20 20 45 4E 44 44 4F 20 57 48 49 4C 45 20 66 ENDDO WHILE f
0231C0: 69 65 6C 64 20 3C 20 31 20 2E 4F 52 2E 20 66 69 ield < 1 .OR. fi
0231D0: 65 6C 64 20 3E 20 6E 6F 3A 66 69 65 6C 64 73 0D eld > no:fields.
0231E0: 0A 20 20 20 20 20 20 40 20 63 6F 75 6E 74 2C 32 . @ count,2
0231F0: 33 20 53 41 59 20 66 69 65 6C 64 3A 6E 61 6D 65 3 SAY field:name
023200: 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 20 66 69 .. STORE fi
023210: 65 6C 64 3A 6E 61 6D 65 20 54 4F 20 6E 61 6D 65 eld:name TO name
023220: 0D 0A 20 20 20 20 20 20 53 45 4C 45 43 54 20 50 .. SELECT P
023230: 52 49 4D 41 52 59 0D 0A 20 20 20 20 20 20 41 50 RIMARY.. AP
023240: 50 45 4E 44 20 42 4C 41 4E 4B 0D 0A 20 20 20 20 PEND BLANK..
023250: 20 20 52 45 50 4C 41 43 45 20 6C 69 6E 65 20 57 REPLACE line W
023260: 49 54 48 20 6E 61 6D 65 0D 0A 20 20 20 20 20 20 ITH name..
023270: 53 54 4F 52 45 20 63 6F 75 6E 74 2B 31 20 54 4F STORE count+1 TO
023280: 20 63 6F 75 6E 74 0D 0A 20 20 20 20 20 20 40 20 count.. @
023290: 32 31 2C 30 20 0D 0A 20 20 20 20 20 20 40 20 63 21,0 .. @ c
0232A0: 6F 75 6E 74 2C 30 20 53 41 59 20 27 53 75 6D 6D ount,0 SAY 'Summ
0232B0: 61 72 79 20 72 65 70 6F 72 74 20 6F 6E 6C 79 3F ary report only?
0232C0: 20 28 79 2F 6E 29 27 0D 0A 20 20 20 20 20 20 53 (y/n)'.. S
0232D0: 54 4F 52 45 20 27 20 27 20 54 4F 20 69 6E 6B 65 TORE ' ' TO inke
0232E0: 79 0D 0A 20 20 20 20 20 20 44 4F 20 57 48 49 4C y.. DO WHIL
0232F0: 45 20 2E 4E 4F 54 2E 20 69 6E 6B 65 79 24 27 59 E .NOT. inkey$'Y
023300: 6C 6D 0D 0A 20 20 20 20 40 20 63 6F 75 6E 74 2C lm.. @ count,
023310: 37 20 53 41 59 20 73 70 65 63 0D 0A 20 20 20 20 7 SAY spec..
023320: 40 20 63 6F 75 6E 74 2B 31 2C 30 20 53 41 59 20 @ count+1,0 SAY
023330: 27 45 6E 74 65 72 20 68 65 61 64 69 6E 67 3A 27 'Enter heading:'
023340: 2B 68 65 61 64 0D 0A 20 20 20 20 53 54 4F 52 45 +head.. STORE
023350: 20 63 6F 75 6E 74 2B 32 20 54 4F 20 63 6F 75 6E count+2 TO coun
023360: 74 0D 0A 20 20 20 20 53 45 4C 45 43 54 20 53 45 t.. SELECT SE
023370: 43 4F 4E 44 41 52 59 0D 0A 20 20 20 20 49 46 20 CONDARY.. IF
023380: 66 69 65 6C 64 3A 74 79 70 65 20 3D 20 27 4E 27 field:type = 'N'
023390: 20 2E 41 4E 44 2E 20 74 6F 74 61 6C 73 0D 0A 20 .AND. totals..
0233A0: 20 20 20 20 20 40 20 63 6F 75 6E 74 2C 30 20 53 @ count,0 S
0233B0: 41 59 20 27 41 72 65 20 74 6F 74 61 6C 73 20 72 AY 'Are totals r
0233C0: 65 71 75 69 72 65 64 3F 20 28 79 2F 6E 29 27 2B equired? (y/n)'+
0233D0: 69 6E 6B 65 79 0D 0A 20 20 20 20 20 20 53 54 4F inkey.. STO
0233E0: 52 45 20 63 6F 75 6E 74 2B 31 20 54 4F 20 63 6F RE count+1 TO co
0233F0: 75 6E 74 0D 0A 20 20 20 20 45 4E 44 49 46 0D 0A unt.. ENDIF..
023400: 20 20 20 20 53 45 4C 45 43 54 20 50 52 49 4D 41 SELECT PRIMA
023410: 52 59 0D 0A 20 20 45 4E 44 49 C6 20 63 6F 75 6E RY.. ENDI. coun
023420: 74 20 3E 20 31 38 0D 0A 20 20 49 46 20 63 6F 6C t > 18.. IF col
023430: 20 3C 20 31 30 0D 0A 20 20 20 20 53 54 4F 52 45 < 10.. STORE
023440: 20 27 30 30 27 2B 53 54 52 28 63 6F 6C 2C 31 29 '00'+STR(col,1)
023450: 20 54 4F 20 63 6F 6C 6D 0D 0A 20 20 20 45 4C 53 TO colm.. ELS
023460: 45 0D 0A 20 20 20 20 53 54 4F 52 45 20 27 30 27 E.. STORE '0'
023470: 2B 53 54 52 28 63 6F 6C 2C 32 29 20 54 4F 20 63 +STR(col,2) TO c
023480: 6F 6C 6D 0D 0A 20 20 45 4E 44 49 46 20 63 6F 6C olm.. ENDIF col
023490: 20 3C 20 31 30 0D 0A 20 20 40 20 63 6F 75 6E 74 < 10.. @ count
0234A0: 2C 30 20 53 41 59 20 63 6F 6C 6D 0D 0A 20 20 53 ,0 SAY colm.. S
0234B0: 54 4F 52 45 20 30 20 54 4F 20 66 77 0D 0A 20 20 TORE 0 TO fw..
0234C0: 53 54 4F 52 45 20 46 20 54 4F 20 64 69 73 70 3A STORE F TO disp:
0234D0: 68 65 6C 70 0D 0A 20 20 53 54 4F 52 45 20 54 20 help.. STORE T
0234E0: 54 4F 20 72 65 70 65 61 74 0D 0A 20 20 44 4F 20 TO repeat.. DO
0234F0: 57 48 49 4C 45 20 72 65 70 65 61 74 0D 0A 20 20 WHILE repeat..
023500: 4E 27 0D 0A 20 20 20 20 20 20 20 20 40 20 32 31 N'.. @ 21
023510: 2C 30 20 47 45 54 20 69 6E 6B 65 79 20 50 49 43 ,0 GET inkey PIC
023520: 54 20 27 21 27 0D 0A 20 20 20 20 20 20 20 20 40 T '!'.. @
023530: 20 32 31 2C 35 20 53 41 59 20 27 53 75 6D 6D 61 21,5 SAY 'Summa
023540: 72 79 20 52 65 70 6F 72 74 20 4F 6E 6C 79 20 28 ry Report Only (
023550: 59 2F 4E 29 20 3F 20 27 0D 0A 20 20 20 20 20 20 Y/N) ? '..
023560: 20 20 52 45 41 44 0D 0A 20 20 20 20 20 20 20 20 READ..
023570: 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 20 20 CLEAR GETS..
023580: 20 20 45 4E 44 44 4F 20 57 48 49 4C 45 20 2E 4E ENDDO WHILE .N
023590: 4F 54 2E 20 69 6E 6B 65 79 24 27 59 4E 27 0D 0A OT. inkey$'YN'..
0235A0: 20 20 20 20 20 20 40 20 63 6F 75 6E 74 2C 32 36 @ count,26
0235B0: 20 53 41 59 20 69 6E 6B 65 79 0D 0A 20 20 20 20 SAY inkey..
0235C0: 20 20 41 50 50 45 4E 44 20 42 4C 41 4E 4B 0D 0A APPEND BLANK..
0235D0: 20 20 20 20 20 20 52 45 50 4C 41 43 45 20 6C 69 REPLACE li
0235E0: 6E 65 20 57 49 54 48 20 69 6E 6B 65 79 0D 0A 20 ne WITH inkey..
0235F0: 20 20 20 20 20 53 54 4F 52 45 20 63 6F 75 6E 74 STORE count
023600: 2B 31 20 54 4F 20 63 6F 75 6E 74 0D 0A 20 20 20 +1 TO count..
023610: 20 20 20 40 20 32 31 2C 30 20 0D 0A 20 20 20 20 @ 21,0 ..
023620: 20 20 40 20 63 6F 75 6E 74 2C 30 20 53 41 59 20 @ count,0 SAY
023630: 27 45 6A 65 63 74 20 70 61 67 65 20 61 66 74 65 'Eject page afte
023640: 72 20 73 75 62 74 6F 74 61 6C 73 3F 20 28 79 2F r subtotals? (y/
023650: 6E 29 27 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 n)'.. STORE
023660: 20 27 20 27 20 54 4F 20 69 6E 6B 65 79 0D 0A 20 ' ' TO inkey..
023670: 20 20 20 20 20 44 4F 20 57 48 49 4C 45 20 2E 4E DO WHILE .N
023680: 4F 54 2E 20 69 6E 6B 65 79 24 27 59 4E 27 0D 0A OT. inkey$'YN'..
023690: 20 20 20 20 20 20 20 20 40 20 32 31 2C 30 20 47 @ 21,0 G
0236A0: 45 54 20 69 6E 6B 65 79 20 50 49 43 54 20 27 21 ET inkey PICT '!
0236B0: 27 0D 0A 20 20 20 20 20 20 20 20 40 20 32 31 2C '.. @ 21,
0236C0: 35 20 53 41 59 20 27 45 6A 65 63 74 20 70 61 67 5 SAY 'Eject pag
0236D0: 65 20 61 66 74 65 72 20 73 75 62 74 6F 74 61 6C e after subtotal
0236E0: 73 20 28 59 2F 4E 29 20 3F 20 27 0D 0A 20 20 20 s (Y/N) ? '..
0236F0: 20 20 20 20 20 52 45 41 44 0D 0A 20 20 20 20 20 READ..
023700: 20 20 40 20 32 31 2C 30 20 0D 0A 20 20 20 20 40 @ 21,0 .. @
023710: 20 32 31 2C 30 20 47 45 54 20 66 77 20 50 49 43 21,0 GET fw PIC
023720: 54 20 27 39 39 39 27 0D 0A 20 20 20 20 40 20 32 T '999'.. @ 2
023730: 31 2C 35 20 53 41 59 20 27 45 6E 74 65 72 20 77 1,5 SAY 'Enter w
023740: 69 64 74 68 20 6F 66 20 63 6F 6C 75 6D 6E 27 0D idth of column'.
023750: 0A 20 20 20 20 49 46 20 63 6F 6C 20 3C 3E 20 31 . IF col <> 1
023760: 0D 0A 20 20 20 20 20 20 40 20 32 31 2C 32 38 20 .. @ 21,28
023770: 53 41 59 20 27 6F 72 20 70 72 65 73 73 20 52 45 SAY 'or press RE
023780: 54 55 52 4E 20 74 6F 20 66 69 6E 69 73 68 20 66 TURN to finish f
023790: 6F 72 6D 20 65 6E 74 72 79 27 0D 0A 20 20 20 20 orm entry'..
0237A0: 45 4E 44 49 46 0D 0A 20 20 20 20 40 20 63 6F 75 ENDIF.. @ cou
0237B0: 6E 74 2C 32 36 20 53 41 59 20 27 3C 2D 20 43 6F nt,26 SAY '<- Co
0237C0: 6C 73 2E 20 61 76 61 69 6C 61 62 6C 65 20 3D 20 ls. available =
0237D0: 27 2B 53 54 52 28 61 76 61 69 6C 2C 33 29 0D 0A '+STR(avail,3)..
0237E0: 20 20 20 20 49 46 20 64 69 73 70 3A 68 65 6C 70 IF disp:help
0237F0: 0D 0A 20 20 20 20 20 20 40 20 63 6F 75 6E 74 2C .. @ count,
023800: 35 30 20 53 41 59 20 27 2C 20 52 65 63 6F 6D 6D 50 SAY ', Recomm
023810: 65 6E 64 65 64 20 57 69 64 74 68 20 3D 20 27 2B ended Width = '+
023820: 53 54 52 28 66 77 2C 33 29 0D 0A 20 20 20 20 20 STR(fw,3)..
023830: 20 53 54 4F 52 45 20 46 20 54 4F 20 64 69 73 70 STORE F TO disp
023840: 3A 68 65 6C 70 0D 0A 20 20 20 20 45 4E 44 49 46 :help.. ENDIF
023850: 20 64 69 73 70 3A 68 65 6C 70 0D 0A 20 20 20 20 disp:help..
023860: 52 45 41 44 0D 0A 20 20 20 20 40 20 63 6F 75 6E READ.. @ coun
023870: 74 2C 32 36 0D 0A 20 20 20 20 49 46 20 66 77 20 t,26.. IF fw
023880: 3E 20 61 76 61 69 6C 0D 0A 20 20 20 20 20 20 40 > avail.. @
023890: 20 32 31 2C 30 0D 0A 20 20 20 20 20 20 40 20 32 21,0.. @ 2
0238A0: 31 2C 35 20 53 41 59 20 27 46 6F 72 6D 20 4F 76 1,5 SAY 'Form Ov
0238B0: 65 72 66 6C 6F 77 2E 20 50 72 65 73 73 20 61 6E erflow. Press an
0238C0: 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E 75 y key to continu
0238D0: 65 27 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 20 e'.. STORE
0238E0: 27 20 27 20 54 4F 20 69 6E 6B 65 79 0D 0A 20 20 ' ' TO inkey..
0238F0: 20 20 20 20 40 20 32 31 2C 30 20 47 45 54 20 69 @ 21,0 GET i
023900: 20 20 20 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 CLEAR GETS..
023910: 20 20 20 20 20 45 4E 44 44 4F 20 57 48 49 4C 45 ENDDO WHILE
023920: 20 2E 4E 4F 54 2E 20 69 6E 6B 65 79 24 27 59 4E .NOT. inkey$'YN
023930: 27 0D 0A 20 20 20 20 20 20 40 20 63 6F 75 6E 74 '.. @ count
023940: 2C 33 33 20 53 41 59 20 69 6E 6B 65 79 0D 0A 20 ,33 SAY inkey..
023950: 20 20 20 20 20 41 50 50 45 4E 44 20 42 4C 41 4E APPEND BLAN
023960: 4B 0D 0A 20 20 20 20 20 20 52 45 50 4C 41 43 45 K.. REPLACE
023970: 20 6C 69 6E 65 20 57 49 54 48 20 69 6E 6B 65 79 line WITH inkey
023980: 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 20 63 6F .. STORE co
023990: 75 6E 74 2B 31 20 54 4F 20 63 6F 75 6E 74 0D 0A unt+1 TO count..
0239A0: 20 20 20 20 20 20 40 20 32 31 2C 30 20 0D 0A 20 @ 21,0 ..
0239B0: 20 20 20 20 20 40 20 63 6F 75 6E 74 2C 30 20 53 @ count,0 S
0239C0: 41 59 20 27 45 6E 74 65 72 20 73 75 62 74 6F 74 AY 'Enter subtot
0239D0: 61 6C 73 20 68 65 61 64 69 6E 67 3A 27 0D 0A 20 als heading:'..
0239E0: 20 20 20 20 20 53 54 4F 52 45 20 27 20 20 20 20 STORE '
0239F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023A00: 20 20 20 20 27 20 54 4F 20 68 65 61 64 65 72 0D ' TO header.
023A10: 0A 20 20 20 20 20 20 53 54 4F 52 45 20 68 65 61 . STORE hea
023A20: 64 65 72 2B 68 65 61 64 65 72 20 54 4F 20 68 65 der+header TO he
023A30: 61 64 65 72 0D 0A 20 20 20 20 20 20 40 20 32 31 ader.. @ 21
023A40: 2C 30 20 53 41 59 20 27 53 75 62 74 6F 74 61 6C ,0 SAY 'Subtotal
023A50: 73 20 68 65 61 64 69 6E 67 3A 27 20 47 45 54 20 s heading:' GET
023A60: 68 65 61 64 65 72 0D 0A 20 20 20 20 20 20 52 45 header.. RE
023A70: 41 44 0D 0A 20 20 20 20 20 20 40 20 63 6F 75 6E AD.. @ coun
023A80: 74 2C 32 34 20 53 41 59 20 68 65 61 64 65 72 0D t,24 SAY header.
023A90: 0A 20 20 20 20 20 20 41 50 50 45 4E 44 20 42 4C . APPEND BL
023AA0: 41 4E 4B 0D 0A 20 20 20 20 20 20 52 45 50 4C 41 ANK.. REPLA
023AB0: 43 45 20 6C 69 6E 65 20 57 49 54 48 20 68 65 61 CE line WITH hea
023AC0: 64 65 72 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 der.. STORE
023AD0: 20 63 6F 75 6E 74 2B 31 20 54 4F 20 63 6F 75 6E count+1 TO coun
023AE0: 74 0D 0A 20 20 20 20 45 4E 44 49 46 20 69 6E 6B t.. ENDIF ink
023AF0: 65 79 20 3D 20 27 59 27 0D 0A 20 20 45 4E 44 49 ey = 'Y'.. ENDI
023B00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
023B10: 1E 00 01 00 02 09 52 E5 1E 00 41 02 00 00 00 02 ......R...A.....
023B20: 1E 00 46 02 00 00 00 02 1E 00 42 02 00 00 00 02 ..F.......B.....
023B30: 1E 00 47 02 00 00 00 02 1E 00 43 02 00 00 00 02 ..G.......C.....
023B40: 1E 00 48 02 00 00 00 02 1E 00 44 02 00 00 00 02 ..H.......D.....
023B50: 1E 00 49 02 00 00 00 02 1E 00 45 02 00 00 00 02 ..I.......E.....
023B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023C00: 6E 6B 65 79 20 50 49 43 54 20 27 21 27 0D 0A 20 nkey PICT '!'..
023C10: 20 20 20 20 20 52 45 41 44 0D 0A 20 20 20 20 20 READ..
023C20: 20 4C 4F 4F 50 0D 0A 20 20 20 20 45 4E 44 49 46 LOOP.. ENDIF
023C30: 20 66 77 20 3E 20 61 76 61 69 6C 0D 0A 20 20 20 fw > avail..
023C40: 20 49 46 20 66 77 20 3D 20 30 0D 0A 20 20 20 20 IF fw = 0..
023C50: 20 20 40 20 32 31 2C 30 20 0D 0A 20 20 20 20 20 @ 21,0 ..
023C60: 20 49 46 20 63 6F 6C 20 3D 20 31 0D 0A 20 20 20 IF col = 1..
023C70: 20 20 20 20 20 40 20 32 31 2C 35 20 53 41 59 20 @ 21,5 SAY
023C80: 27 4E 6F 74 20 65 6E 6F 75 67 68 20 72 65 70 6F 'Not enough repo
023C90: 72 74 20 64 61 74 61 20 65 6E 74 65 72 65 64 2E rt data entered.
023CA0: 20 50 72 65 73 73 20 61 6E 79 20 6B 65 79 20 74 Press any key t
023CB0: 6F 20 63 6F 6E 74 69 6E 75 65 2E 27 0D 0A 20 20 o continue.'..
023CC0: 20 20 20 20 20 20 53 54 4F 52 45 20 27 20 27 20 STORE ' '
023CD0: 54 4F 20 69 6E 6B 65 79 0D 0A 20 20 20 20 20 20 TO inkey..
023CE0: 20 20 40 20 32 31 2C 30 20 47 45 54 20 69 6E 6B @ 21,0 GET ink
023CF0: 65 79 20 50 49 43 54 20 27 21 27 0D 0A 20 20 20 ey PICT '!'..
023D00: 20 20 20 20 20 52 45 41 44 0D 0A 20 20 20 20 20 READ..
023D10: 20 20 20 40 20 32 31 2C 30 0D 0A 20 20 20 20 20 @ 21,0..
023D20: 20 20 20 4C 4F 4F 50 0D 0A 20 20 20 20 20 20 45 LOOP.. E
023D30: 4E 44 49 46 20 63 6F 6C 20 3D 20 31 0D 0A 20 20 NDIF col = 1..
023D40: 20 20 20 20 40 20 32 31 2C 35 20 53 41 59 20 27 @ 21,5 SAY '
023D50: 48 61 76 65 20 79 6F 75 20 63 6F 6D 70 6C 65 74 Have you complet
023D60: 65 64 20 65 6E 74 72 79 20 6F 66 20 72 65 70 6F ed entry of repo
023D70: 72 74 20 66 6F 72 6D 3A 20 26 6D 74 65 73 74 20 rt form: &mtest
023D80: 27 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 20 27 '.. STORE '
023D90: 20 27 20 54 4F 20 69 6E 6B 65 79 0D 0A 20 20 20 ' TO inkey..
023DA0: 20 20 20 44 4F 20 57 48 49 4C 45 20 2E 4E 4F 54 DO WHILE .NOT
023DB0: 2E 20 69 6E 6B 65 79 24 27 59 4E 27 0D 0A 20 20 . inkey$'YN'..
023DC0: 20 20 20 20 20 20 40 20 32 31 2C 30 20 47 45 54 @ 21,0 GET
023DD0: 20 69 6E 6B 65 79 20 50 49 43 54 20 27 21 27 0D inkey PICT '!'.
023DE0: 0A 20 20 20 20 20 20 20 20 52 45 41 44 0D 0A 20 . READ..
023DF0: 20 20 20 20 20 20 20 43 4C 45 41 52 20 47 45 54 CLEAR GET
023E00: 6F 75 6E 74 20 3C 20 32 32 0D 0A 53 54 4F 52 45 ount < 22..STORE
023E10: 20 46 20 54 4F 20 65 6E 64 0D 0A 44 4F 20 57 48 F TO end..DO WH
023E20: 49 4C 45 20 2E 4E 4F 54 2E 20 65 6E 64 0D 0A 20 ILE .NOT. end..
023E30: 20 53 54 4F 52 45 20 27 20 27 20 54 4F 20 69 6E STORE ' ' TO in
023E40: 6B 65 79 0D 0A 20 20 40 20 32 31 2C 30 0D 0A 20 key.. @ 21,0..
023E50: 20 40 20 32 31 2C 35 20 53 41 59 20 27 44 6F 20 @ 21,5 SAY 'Do
023E60: 79 6F 75 20 77 61 6E 74 20 74 6F 20 73 61 76 65 you want to save
023E70: 20 74 68 69 73 20 66 6F 72 6D 20 3F 27 0D 0A 20 this form ?'..
023E80: 20 44 4F 20 57 48 49 4C 45 20 2E 4E 4F 54 2E 20 DO WHILE .NOT.
023E90: 69 6E 6B 65 79 24 27 59 4E 27 0D 0A 20 20 20 20 inkey$'YN'..
023EA0: 40 20 32 31 2C 30 20 47 45 54 20 69 6E 6B 65 79 @ 21,0 GET inkey
023EB0: 20 50 49 43 54 20 27 21 27 0D 0A 20 20 20 20 52 PICT '!'.. R
023EC0: 45 41 44 0D 0A 20 20 20 20 43 4C 45 41 52 20 47 EAD.. CLEAR G
023ED0: 45 54 53 0D 0A 20 20 45 4E 44 44 4F 20 57 48 49 ETS.. ENDDO WHI
023EE0: 4C 45 20 2E 4E 4F 54 2E 20 69 6E 6B 65 79 24 27 LE .NOT. inkey$'
023EF0: 59 4E 27 0D 0A 20 20 40 20 32 31 2C 30 0D 0A 20 YN'.. @ 21,0..
023F00: 20 53 54 4F 52 45 20 69 6E 6B 65 79 20 3D 20 27 STORE inkey = '
023F10: 59 27 20 54 4F 20 77 69 70 65 6F 75 74 0D 0A 20 Y' TO wipeout..
023F20: 20 49 46 20 69 6E 6B 65 79 20 3D 20 27 4E 27 0D IF inkey = 'N'.
023F30: 0A 20 20 20 20 40 20 32 31 2C 35 20 53 41 59 20 . @ 21,5 SAY
023F40: 27 41 72 65 20 79 6F 75 20 73 75 72 65 20 28 59 'Are you sure (Y
023F50: 2F 4E 29 20 3F 27 0D 0A 20 20 20 20 53 54 4F 52 /N) ?'.. STOR
023F60: 45 20 27 20 27 20 54 4F 20 69 6E 6B 65 79 0D 0A E ' ' TO inkey..
023F70: 20 20 20 20 44 4F 20 57 48 49 4C 45 20 2E 4E 4F DO WHILE .NO
023F80: 54 2E 20 69 6E 6B 65 79 24 27 59 4E 27 0D 0A 20 T. inkey$'YN'..
023F90: 20 20 20 20 20 40 20 32 31 2C 30 20 47 45 54 20 @ 21,0 GET
023FA0: 69 6E 6B 65 79 20 50 49 43 54 20 27 21 27 0D 0A inkey PICT '!'..
023FB0: 20 20 20 20 20 20 52 45 41 44 0D 0A 20 20 20 20 READ..
023FC0: 20 20 43 4C 45 41 52 20 47 45 54 53 0D 0A 20 20 CLEAR GETS..
023FD0: 20 20 45 4E 44 44 4F 20 57 48 49 4C 45 20 2E 4E ENDDO WHILE .N
023FE0: 4F 54 2E 20 69 6E 6B 65 79 24 27 59 4E 27 0D 0A OT. inkey$'YN'..
023FF0: 20 20 20 20 49 46 20 69 6E 6B 65 79 20 3D 20 27 IF inkey = '
024000: 53 0D 0A 20 20 20 20 20 20 45 4E 44 44 4F 20 57 S.. ENDDO W
024010: 48 49 4C 45 20 2E 4E 4F 54 2E 20 69 6E 6B 65 79 HILE .NOT. inkey
024020: 24 27 59 4E 27 0D 0A 20 20 20 20 20 20 49 46 20 $'YN'.. IF
024030: 69 6E 6B 65 79 20 3D 20 27 59 27 0D 0A 20 20 20 inkey = 'Y'..
024040: 20 20 20 20 20 53 54 4F 52 45 20 54 20 54 4F 20 STORE T TO
024050: 63 6F 6D 70 6C 65 74 65 0D 0A 20 20 20 20 20 20 complete..
024060: 20 20 53 54 4F 52 45 20 46 20 54 4F 20 72 65 70 STORE F TO rep
024070: 65 61 74 0D 0A 20 20 20 20 20 20 45 4E 44 49 46 eat.. ENDIF
024080: 20 69 6E 6B 65 79 20 3D 20 27 59 27 20 0D 0A 20 inkey = 'Y' ..
024090: 20 20 20 20 20 4C 4F 4F 50 0D 0A 20 20 20 20 45 LOOP.. E
0240A0: 4E 44 49 46 20 66 77 20 3D 20 30 0D 0A 20 20 20 NDIF fw = 0..
0240B0: 20 53 54 4F 52 45 20 53 54 52 28 66 77 2C 33 29 STORE STR(fw,3)
0240C0: 20 54 4F 20 73 70 65 63 0D 0A 20 20 20 20 40 20 TO spec.. @
0240D0: 32 31 2C 30 20 0D 0A 20 20 20 20 40 20 63 6F 75 21,0 .. @ cou
0240E0: 6E 74 2C 37 20 53 41 59 20 73 70 65 63 0D 0A 20 nt,7 SAY spec..
0240F0: 20 20 20 53 54 4F 52 45 20 30 20 54 4F 20 66 6E STORE 0 TO fn
024100: 0D 0A 20 20 20 20 53 45 4C 45 43 54 20 53 45 43 .. SELECT SEC
024110: 4F 4E 44 41 52 59 0D 0A 20 20 20 20 40 20 32 31 ONDARY.. @ 21
024120: 2C 35 20 53 41 59 20 27 45 6E 74 65 72 20 46 69 ,5 SAY 'Enter Fi
024130: 65 6C 64 20 4E 75 6D 62 65 72 27 0D 0A 20 20 20 eld Number'..
024140: 20 44 4F 20 57 48 49 4C 45 20 66 6E 20 3C 20 31 DO WHILE fn < 1
024150: 20 2E 4F 52 2E 20 66 6E 20 3E 20 6E 6F 3A 66 69 .OR. fn > no:fi
024160: 65 6C 64 73 0D 0A 20 20 20 20 20 20 40 20 32 31 elds.. @ 21
024170: 2C 30 20 47 45 54 20 66 6E 20 50 49 43 54 20 27 ,0 GET fn PICT '
024180: 39 39 27 0D 0A 20 20 20 20 20 20 52 45 41 44 0D 99'.. READ.
024190: 0A 20 20 20 20 20 20 43 4C 45 41 52 20 47 45 54 . CLEAR GET
0241A0: 53 0D 0A 20 20 20 20 45 4E 44 44 4F 20 66 6E 20 S.. ENDDO fn
0241B0: 3C 20 31 20 2E 4F 52 2E 20 66 6E 20 3E 20 6E 6F < 1 .OR. fn > no
0241C0: 3A 66 69 65 6C 64 73 0D 0A 20 20 20 20 47 4F 54 :fields.. GOT
0241D0: 4F 20 66 6E 0D 0A 20 20 20 20 49 46 20 66 77 20 O fn.. IF fw
0241E0: 3C 20 66 69 65 6C 64 3A 6C 65 6E 0D 0A 20 20 20 < field:len..
0241F0: 20 20 20 40 20 32 31 2C 30 20 0D 0A 20 20 20 20 @ 21,0 ..
024200: 59 27 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 20 Y'.. STORE
024210: 54 20 54 4F 20 65 6E 64 0D 0A 20 20 20 20 45 4E T TO end.. EN
024220: 44 49 46 0D 0A 20 20 20 20 4C 4F 4F 50 0D 0A 20 DIF.. LOOP..
024230: 20 45 4E 44 49 46 20 69 6E 6B 65 79 20 3D 20 27 ENDIF inkey = '
024240: 4E 27 0D 0A 20 20 40 20 31 31 2C 32 37 20 53 41 N'.. @ 11,27 SA
024250: 59 20 27 57 72 69 74 69 6E 67 20 52 65 70 6F 72 Y 'Writing Repor
024260: 74 20 46 6F 72 6D 20 26 6D 74 65 73 74 2E 2E 46 t Form &mtest..F
024270: 52 4D 20 27 0D 0A 20 20 40 20 32 30 2C 31 0D 0A RM '.. @ 20,1..
024280: 20 20 43 4F 50 59 20 54 4F 20 26 6D 74 65 73 74 COPY TO &mtest
024290: 2E 2E 46 52 4D 20 53 44 46 0D 0A 20 20 53 54 4F ..FRM SDF.. STO
0242A0: 52 45 20 54 20 54 4F 20 65 6E 64 0D 0A 45 4E 44 RE T TO end..END
0242B0: 44 4F 20 2E 4E 4F 54 2E 20 65 6E 64 0D 0A 53 45 DO .NOT. end..SE
0242C0: 4C 45 43 54 20 53 45 43 4F 4E 44 41 52 59 0D 0A LECT SECONDARY..
0242D0: 55 53 45 0D 0A 53 45 4C 45 43 54 20 50 52 49 4D USE..SELECT PRIM
0242E0: 41 52 59 0D 0A 55 53 45 0D 0A 44 45 4C 45 54 45 ARY..USE..DELETE
0242F0: 20 46 49 4C 45 20 46 52 4F 4E 49 46 2E 44 42 57 FILE FRONIF.DBW
024300: 0D 0A 52 45 54 55 52 4E 0D 0A 1A 1A 1A 1A 1A 1A ..RETURN........
024310: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
024320: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
024330: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
024340: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
024350: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
024360: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
024370: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
024380: 20 4D 2E 42 4C 41 4E 4B 32 0D 0A 20 20 40 20 31 M.BLANK2.. @ 1
024390: 31 2C 32 37 20 53 41 59 20 27 52 45 54 55 52 4E 1,27 SAY 'RETURN
0243A0: 49 4E 47 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 ING TO MAIN MENU
0243B0: 27 0D 0A 20 20 40 20 32 30 2C 31 0D 0A 20 20 52 '.. @ 20,1.. R
0243C0: 45 4C 45 41 53 45 20 41 4C 4C 20 45 58 43 45 50 ELEASE ALL EXCEP
0243D0: 54 20 4D 46 49 4C 45 0D 0A 20 20 52 45 54 55 52 T MFILE.. RETUR
0243E0: 4E 0D 0A 45 4E 44 49 46 0D 0A 40 20 32 33 2C 30 N..ENDIF..@ 23,0
0243F0: 20 53 41 59 20 27 2E 20 52 45 50 4F 52 54 20 46 SAY '. REPORT F
024400: 20 20 53 54 4F 52 45 20 66 69 65 6C 64 3A 6C 65 STORE field:le
024410: 6E 20 54 4F 20 66 77 0D 0A 20 20 20 20 20 20 40 n TO fw.. @
024420: 20 32 31 2C 35 20 53 41 59 20 27 46 69 65 6C 64 21,5 SAY 'Field
024430: 20 74 6F 6F 20 6C 6F 6E 67 2E 20 50 72 65 73 73 too long. Press
024440: 20 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 any key to cont
024450: 69 6E 75 65 27 0D 0A 20 20 20 20 20 20 53 54 4F inue'.. STO
024460: 52 45 20 54 20 54 4F 20 64 69 73 70 3A 68 65 6C RE T TO disp:hel
024470: 70 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 20 27 p.. STORE '
024480: 20 27 20 54 4F 20 69 6E 6B 65 79 0D 0A 20 20 20 ' TO inkey..
024490: 20 20 20 40 20 32 31 2C 30 20 47 45 54 20 69 6E @ 21,0 GET in
0244A0: 6B 65 79 20 50 49 43 54 20 27 21 27 0D 0A 20 20 key PICT '!'..
0244B0: 20 20 20 20 52 45 41 44 0D 0A 20 20 20 20 20 20 READ..
0244C0: 4C 4F 4F 50 0D 0A 20 20 20 20 20 45 4C 53 45 0D LOOP.. ELSE.
0244D0: 0A 20 20 20 20 20 20 53 54 4F 52 45 20 73 70 65 . STORE spe
0244E0: 63 2B 27 2C 27 2B 66 69 65 6C 64 3A 6E 61 6D 65 c+','+field:name
0244F0: 20 54 4F 20 73 70 65 63 0D 0A 20 20 20 20 20 20 TO spec..
024500: 40 20 63 6F 75 6E 74 2C 37 20 53 41 59 20 73 70 @ count,7 SAY sp
024510: 65 63 0D 0A 20 20 20 20 45 4E 44 49 46 20 66 77 ec.. ENDIF fw
024520: 20 3E 20 66 69 65 6C 64 3A 6C 65 6E 0D 0A 20 20 > field:len..
024530: 20 20 53 54 4F 52 45 20 46 20 54 4F 20 72 65 70 STORE F TO rep
024540: 65 61 74 0D 0A 20 20 45 4E 44 44 4F 20 57 48 49 eat.. ENDDO WHI
024550: 4C 45 20 72 65 70 65 61 74 0D 0A 20 20 49 46 20 LE repeat.. IF
024560: 63 6F 6D 70 6C 65 74 65 0D 0A 20 20 20 20 4C 4F complete.. LO
024570: 4F 50 0D 0A 20 20 45 4E 44 49 46 20 63 6F 6D 70 OP.. ENDIF comp
024580: 6C 65 74 65 0D 0A 20 20 53 54 4F 52 45 20 63 6F lete.. STORE co
024590: 75 6E 74 2B 31 20 54 4F 20 63 6F 75 6E 74 0D 0A unt+1 TO count..
0245A0: 20 20 53 45 4C 45 43 54 20 50 52 49 4D 41 52 59 SELECT PRIMARY
0245B0: 0D 0A 20 20 41 50 50 45 4E 44 20 42 4C 41 4E 4B .. APPEND BLANK
0245C0: 0D 0A 20 20 52 45 50 4C 41 43 45 20 6C 69 6E 65 .. REPLACE line
0245D0: 20 57 49 54 48 20 73 70 65 63 0D 0A 20 20 40 20 WITH spec.. @
0245E0: 63 6F 75 6E 74 2C 30 20 53 41 59 20 27 45 6E 74 count,0 SAY 'Ent
0245F0: 65 72 20 68 65 61 64 69 6E 67 3A 27 0D 0A 20 20 er heading:'..
024600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0246A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0246B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0246C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0246D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0246E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0246F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0247A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0247B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0247C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0247D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0247E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0247F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024800: 40 20 32 31 2C 30 20 0D 0A 20 20 40 20 32 31 2C @ 21,0 .. @ 21,
024810: 30 20 53 41 59 20 27 48 65 61 64 69 6E 67 3A 27 0 SAY 'Heading:'
024820: 0D 0A 20 20 49 46 20 66 77 20 3C 20 36 30 0D 0A .. IF fw < 60..
024830: 20 20 20 20 53 54 4F 52 45 20 24 28 73 70 61 63 STORE $(spac
024840: 65 2C 31 2C 66 77 29 20 54 4F 20 68 65 61 64 0D e,1,fw) TO head.
024850: 0A 20 20 20 45 4C 53 45 0D 0A 20 20 20 20 53 54 . ELSE.. ST
024860: 4F 52 45 20 73 70 61 63 65 20 54 4F 20 68 65 61 ORE space TO hea
024870: 64 0D 0A 20 20 45 4E 44 49 46 20 66 77 20 3C 20 d.. ENDIF fw <
024880: 36 30 0D 0A 20 20 40 20 32 31 2C 38 20 47 45 54 60.. @ 21,8 GET
024890: 20 68 65 61 64 0D 0A 20 20 52 45 41 44 0D 0A 20 head.. READ..
0248A0: 20 40 20 63 6F 75 6E 74 2C 31 34 20 53 41 59 20 @ count,14 SAY
0248B0: 68 65 61 64 0D 0A 20 20 53 54 4F 52 45 20 63 6F head.. STORE co
0248C0: 75 6E 74 2B 31 20 54 4F 20 63 6F 75 6E 74 0D 0A unt+1 TO count..
0248D0: 20 20 41 50 50 45 4E 44 20 42 4C 41 4E 4B 0D 0A APPEND BLANK..
0248E0: 20 20 52 45 50 4C 41 43 45 20 6C 69 6E 65 20 57 REPLACE line W
0248F0: 49 54 48 20 68 65 61 64 0D 0A 20 20 53 45 4C 45 ITH head.. SELE
024900: 43 54 20 53 45 43 4F 4E 44 41 52 59 0D 0A 20 20 CT SECONDARY..
024910: 49 46 20 66 69 65 6C 64 3A 74 79 70 65 20 3D 20 IF field:type =
024920: 27 4E 27 20 2E 41 4E 44 2E 20 74 6F 74 61 6C 73 'N' .AND. totals
024930: 0D 0A 20 20 20 20 40 20 63 6F 75 6E 74 2C 30 20 .. @ count,0
024940: 53 41 59 20 27 41 72 65 20 74 6F 74 61 6C 73 20 SAY 'Are totals
024950: 72 65 71 75 69 72 65 64 3F 20 28 79 2F 6E 29 27 required? (y/n)'
024960: 0D 0A 20 20 20 20 40 20 32 31 2C 30 20 0D 0A 20 .. @ 21,0 ..
024970: 20 20 20 53 54 4F 52 45 20 27 20 27 20 54 4F 20 STORE ' ' TO
024980: 69 6E 6B 65 79 0D 0A 20 20 20 20 44 4F 20 57 48 inkey.. DO WH
024990: 49 4C 45 20 2E 4E 4F 54 2E 20 69 6E 6B 65 79 24 ILE .NOT. inkey$
0249A0: 27 59 4E 27 0D 0A 20 20 20 20 20 20 40 20 32 31 'YN'.. @ 21
0249B0: 2C 30 20 47 45 54 20 69 6E 6B 65 79 20 50 49 43 ,0 GET inkey PIC
0249C0: 54 20 27 21 27 0D 0A 20 20 20 20 20 20 40 20 32 T '!'.. @ 2
0249D0: 31 2C 35 20 53 41 59 20 27 44 6F 20 79 6F 75 20 1,5 SAY 'Do you
0249E0: 77 61 6E 74 20 74 6F 74 61 6C 73 20 28 59 2F 4E want totals (Y/N
0249F0: 29 20 3F 20 27 0D 0A 20 20 20 20 20 20 52 45 41 ) ? '.. REA
024A00: 02 01 00 01 01 50 51 00 46 49 45 4C 44 3A 4E 41 .....PQ.FIELD:NA
024A10: 4D 45 00 43 0A 01 00 00 46 49 45 4C 44 3A 54 59 ME.C....FIELD:TY
024A20: 50 45 00 43 01 0B 00 00 46 49 45 4C 44 3A 4C 45 PE.C....FIELD:LE
024A30: 4E 00 00 4E 03 0C 00 00 46 49 45 4C 44 3A 44 45 N..N....FIELD:DE
024A40: 43 00 00 4E 03 0F 00 00 0D 00 00 00 00 00 00 00 C..N............
024A50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024B00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024B10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024B20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024B30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024B40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024B50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024C00: 44 0D 0A 20 20 20 20 20 20 43 4C 45 41 52 20 47 D.. CLEAR G
024C10: 45 54 53 0D 0A 20 20 20 20 45 4E 44 44 4F 20 2E ETS.. ENDDO .
024C20: 4E 4F 54 2E 20 69 6E 6B 65 79 24 27 59 4E 27 0D NOT. inkey$'YN'.
024C30: 0A 20 20 20 20 40 20 63 6F 75 6E 74 2C 32 36 20 . @ count,26
024C40: 53 41 59 20 69 6E 6B 65 79 0D 0A 20 20 20 20 53 SAY inkey.. S
024C50: 54 4F 52 45 20 63 6F 75 6E 74 2B 31 20 54 4F 20 TORE count+1 TO
024C60: 63 6F 75 6E 74 0D 0A 20 20 20 20 53 45 4C 45 43 count.. SELEC
024C70: 54 20 50 52 49 4D 41 52 59 0D 0A 20 20 20 20 41 T PRIMARY.. A
024C80: 50 50 45 4E 44 20 42 4C 41 4E 4B 0D 0A 20 20 20 PPEND BLANK..
024C90: 20 52 45 50 4C 41 43 45 20 6C 69 6E 65 20 57 49 REPLACE line WI
024CA0: 54 48 20 69 6E 6B 65 79 0D 0A 20 20 20 45 4C 53 TH inkey.. ELS
024CB0: 45 0D 0A 20 20 20 20 53 45 4C 45 43 54 20 50 52 E.. SELECT PR
024CC0: 49 4D 41 52 59 0D 0A 20 20 45 4E 44 49 46 20 66 IMARY.. ENDIF f
024CD0: 69 65 6C 64 3A 74 79 70 65 20 3D 20 27 4E 27 20 ield:type = 'N'
024CE0: 2E 41 4E 44 2E 20 74 6F 74 61 6C 73 0D 0A 20 20 .AND. totals..
024CF0: 53 54 4F 52 45 20 63 6F 6C 2B 31 20 54 4F 20 63 STORE col+1 TO c
024D00: 6F 6C 0D 0A 20 20 53 54 4F 52 45 20 61 76 61 69 ol.. STORE avai
024D10: 6C 2D 66 77 20 54 4F 20 61 76 61 69 6C 20 0D 0A l-fw TO avail ..
024D20: 20 20 49 46 20 63 6F 6C 20 3E 20 6E 6F 3A 66 69 IF col > no:fi
024D30: 65 6C 64 73 0D 0A 20 20 20 20 53 54 4F 52 45 20 elds.. STORE
024D40: 54 20 54 4F 20 63 6F 6D 70 6C 65 74 65 0D 0A 20 T TO complete..
024D50: 20 45 4E 44 49 46 20 63 6F 6C 20 3E 20 6E 6F 3A ENDIF col > no:
024D60: 66 69 65 6C 64 73 0D 0A 45 4E 44 44 4F 20 57 48 fields..ENDDO WH
024D70: 49 4C 45 20 2E 4E 4F 54 2E 20 63 6F 6D 70 6C 65 ILE .NOT. comple
024D80: 74 65 0D 0A 53 45 4C 45 43 54 20 53 45 43 4F 4E te..SELECT SECON
024D90: 44 41 52 59 0D 0A 55 53 45 0D 0A 53 45 4C 45 43 DARY..USE..SELEC
024DA0: 54 20 50 52 49 4D 41 52 59 0D 0A 53 54 4F 52 45 T PRIMARY..STORE
024DB0: 20 33 20 54 4F 20 63 6F 75 6E 74 0D 0A 44 4F 20 3 TO count..DO
024DC0: 57 48 49 4C 45 20 63 6F 75 6E 74 20 3C 20 32 32 WHILE count < 22
024DD0: 0D 0A 20 20 40 20 63 6F 75 6E 74 2C 30 0D 0A 20 .. @ count,0..
024DE0: 20 53 54 4F 52 45 20 63 6F 75 6E 74 2B 31 20 54 STORE count+1 T
024DF0: 4F 20 63 6F 75 6E 74 0D 0A 45 4E 44 44 4F 20 63 O count..ENDDO c
024E00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
024E10: 1F 00 01 00 02 09 52 E5 1F 00 41 02 00 00 00 02 ......R...A.....
024E20: 1F 00 46 02 00 00 00 02 1F 00 42 02 00 00 00 02 ..F.......B.....
024E30: 1F 00 47 02 00 00 00 02 1F 00 43 02 00 00 00 02 ..G.......C.....
024E40: 1F 00 48 02 00 00 00 02 1F 00 44 02 00 00 00 02 ..H.......D.....
024E50: 1F 00 49 02 00 00 00 02 1F 00 45 02 00 00 00 02 ..I.......E.....
024E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024F00: 00 00 00 00 00 00 00 00 00 20 4C 49 4E 45 20 20 ......... LINE
024F10: 20 20 20 20 43 30 37 30 30 30 30 1A 46 32 20 20 C070000.F2
024F20: 20 20 20 20 20 20 43 30 31 30 30 30 30 20 46 33 C010000 F3
024F30: 20 20 20 20 20 20 20 20 4E 30 30 36 30 30 32 20 N006002
024F40: 46 34 20 20 20 20 20 20 20 20 4C 30 30 31 30 30 F4 L00100
024F50: 30 1A 8B F0 8B 84 24 2F 8B BC 22 2F 8E C0 26 8A 0.....$/.."/..&.
024F60: 1D 30 FF A1 5E 2F 48 A3 5E 2F D1 E0 D1 E0 8B F0 .0..^/H£^/......
024F70: 8B 84 24 2F 8B BC 22 2F 8E C0 26 8A 0D 30 ED 89 ..$/.."/..&..0..
024F80: 4E 22 89 5E 20 85 DB 74 09 85 C9 74 05 33 C0 40 N".^ ..t...t.3.@
024F90: EB 02 33 C0 C4 36 1E 2F 26 88 04 8B 1E 5E 2F FF ..3..6./&....^/.
024FA0: 06 5E 2F D1 E3 D1 E3 8C C1 8B D6 FF 06 1E 2F 89 .^/.........../.
024FB0: 8F 24 2F 89 97 22 2F 89 46 20 E9 3B FE A1 5E 2F .$/.."/.F .;..^/
024FC0: 48 A3 5E 2F D1 E0 D1 E0 8B F0 8B 84 24 2F 8B BC H£^/........$/..
024FD0: 22 2F 8E C0 26 8A 1D 30 FF A1 5E 2F 48 A3 5E 2F "/..&..0..^/H£^/
024FE0: D1 E0 D1 E0 8B F0 8B 84 24 2F 8B BC 22 2F 8E C0 ........$/.."/..
024FF0: 26 8A 0D 30 ED 89 4E 22 89 5E 20 85 DB 75 08 85 &..0..N".^ ..u..
025000: C9 75 04 33 C0 EB 03 33 C0 40 C4 36 1E 2F 26 88 .u.3...3.@.6./&.
025010: 04 8B 1E 5E 2F FF 06 5E 2F D1 E3 D1 E3 8C C1 8B ...^/..^/.......
025020: D6 FF 06 1E 2F 89 8F 24 2F 89 97 22 2F 89 46 20 ..../..$/.."/.F
025030: E9 C5 FD A1 5E 2F D1 E0 D1 E0 8B F0 8B 84 20 2F ....^/........ /
025040: 8B BC 1E 2F 8E C0 26 82 3D 00 74 04 33 DB EB 03 .../..&.=.t.3...
025050: 33 DB 43 8C 46 38 8E C0 26 88 1D 89 7E 36 E9 97 3.C.F8..&...~6..
025060: FD FF 76 28 0E E8 5E 0D 8B E5 E9 8B FD B8 04 00 ..v(..^.........
025070: 50 16 8D 46 56 50 0E E8 7F 29 8B E5 C4 76 56 26 P..FVP...)...vV&
025080: 8A 44 0B 30 E4 E9 05 02 C4 76 56 26 8A 44 10 30 .D.0.....vV&.D.0
025090: E4 1E BB 18 2F 53 16 8D 5E 24 53 50 FF 36 20 2F ..../S..^$SP.6 /
0250A0: FF 36 1E 2F 26 FF 74 0E 26 FF 74 0C 9A 0D 00 EB .6./&.t.&.t.....
0250B0: 1F 8B E5 A1 5E 2F FF 06 5E 2F D1 E0 D1 E0 8B F0 ....^/..^/......
0250C0: A1 20 2F 8B 1E 1E 2F 89 84 24 2F 89 9C 22 2F 83 . /.../..$/.."/.
0250D0: 06 1E 2F 08 E9 CC 01 C4 76 56 26 8A 44 10 30 E4 ../.....vV&.D.0.
0250E0: 50 FF 36 20 2F FF 36 1E 2F 26 FF 74 0E 26 FF 74 P.6 /.6./&.t.&.t
0250F0: 0C 9A 06 00 16 21 8B E5 A1 5E 2F FF 06 5E 2F D1 .....!...^/..^/.
025100: 6D 3D 31 0D 0A 79 0D 0A 43 4F 46 46 45 52 49 44 m=1..y..COFFERID
025110: 47 45 20 48 41 4C 4C 20 4C 49 42 52 41 52 59 0D GE HALL LIBRARY.
025120: 0A 6E 0D 0A 6E 0D 0A 37 2C 72 6F 6F 6D 0D 0A 3C .n..n..7,room..<
025130: 52 4F 4F 4D 3B 3D 3D 3D 3D 0D 0A 37 2C 73 68 65 ROOM;====..7,she
025140: 6C 66 0D 0A 3C 53 48 45 4C 46 3B 3D 3D 3D 3D 3D lf..<SHELF;=====
025150: 0D 0A 32 30 2C 61 75 74 68 6F 72 0D 0A 3C 41 55 ..20,author..<AU
025160: 54 48 4F 52 3B 3D 3D 3D 3D 3D 3D 0D 0A 32 35 2C THOR;======..25,
025170: 74 69 74 6C 65 0D 0A 3C 54 49 54 4C 45 3B 3D 3D title..<TITLE;==
025180: 3D 3D 3D 0D 0A 31 33 2C 73 75 62 6A 65 63 74 0D ===..13,subject.
025190: 0A 3C 53 55 42 4A 45 43 54 3B 3D 3D 3D 3D 3D 3D .<SUBJECT;======
0251A0: 3D 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A =...............
0251B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0251C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0251D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0251E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0251F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
025200: 0D 0A 20 20 20 20 20 20 53 54 4F 52 45 20 66 69 .. STORE fi
025210: 65 6C 64 3A 6E 61 6D 65 20 54 4F 20 6E 61 6D 65 eld:name TO name
025220: 0D 0A 20 20 20 20 20 20 53 45 4C 45 43 54 20 50 .. SELECT P
025230: 52 49 4D 41 52 59 0D 0A 20 20 20 20 20 20 41 50 RIMARY.. AP
025240: 50 45 4E 44 20 42 4C 41 4E 4B 0D 0A 20 20 20 20 PEND BLANK..
025250: 20 20 52 45 50 4C 41 43 45 20 6C 69 6E 65 20 57 REPLACE line W
025260: 49 54 48 20 6E 61 6D 65 0D 0A 20 20 20 20 20 20 ITH name..
025270: 53 54 4F 52 45 20 63 6F 75 6E 74 2B 31 20 54 4F STORE count+1 TO
025280: 20 63 6F 75 6E 74 0D 0A 20 20 20 20 20 20 40 20 count.. @
025290: 32 31 2C 30 20 0D 0A 20 20 20 20 20 20 40 20 63 21,0 .. @ c
0252A0: 6F 75 6E 74 2C 30 20 53 41 59 20 27 53 75 6D 6D ount,0 SAY 'Summ
0252B0: 61 72 79 20 72 65 70 6F 72 74 20 6F 6E 6C 79 3F ary report only?
0252C0: 20 28 79 2F 6E 29 27 0D 0A 20 20 20 20 20 20 53 (y/n)'.. S
0252D0: 54 4F 52 45 20 27 20 27 20 54 4F 20 69 6E 6B 65 TORE ' ' TO inke
0252E0: 79 0D 0A 20 20 20 20 20 20 44 4F 20 57 48 49 4C y.. DO WHIL
0252F0: 45 20 2E 4E 4F 54 2E 20 69 6E 6B 65 79 24 27 59 E .NOT. inkey$'Y
025300: 53 45 54 20 54 41 4C 4B 20 4F 46 46 0D 0A 53 54 SET TALK OFF..ST
025310: 4F 52 45 20 27 20 20 20 20 20 20 20 20 27 20 54 ORE ' ' T
025320: 4F 20 4D 46 49 4C 45 0D 0A 44 4F 20 57 48 49 4C O MFILE..DO WHIL
025330: 45 20 54 0D 0A 20 20 53 45 54 20 43 4F 4C 4F 20 E T.. SET COLO
025340: 4F 46 46 0D 0A 20 20 45 52 41 53 45 0D 0A 20 20 OFF.. ERASE..
025350: 54 45 58 54 0D 0A 0D 0A 57 45 4C 43 4F 4D 45 20 TEXT....WELCOME
025360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
025370: 20 20 20 20 20 20 20 20 20 4D 41 49 4E 20 4D 45 MAIN ME
025380: 4E 55 20 20 20 20 20 20 20 20 20 20 20 20 20 20 NU
025390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 42 dB
0253A0: 41 53 45 20 49 49 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D ASE II..--------
0253B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0253C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0253D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0253E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0253F0: 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A 20 20 20 20 20 -------....
025400: 20 20 20 20 20 20 20 20 20 20 20 20 46 69 6C 65 File
025410: 20 48 61 6E 64 6C 69 6E 67 20 20 20 20 20 20 20 Handling
025420: 20 20 20 20 20 20 20 20 44 61 74 61 20 48 61 6E Data Han
025430: 64 6C 69 6E 67 0D 0A 20 20 20 20 20 20 20 20 20 dling..
025440: 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D --------
025450: 2D 2D 2D 2D 2D 20 20 20 20 20 20 20 20 20 20 20 -----
025460: 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ------------
025470: 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 -..
025480: 41 2E 20 20 43 72 65 61 74 65 20 61 20 46 69 6C A. Create a Fil
025490: 65 2E 20 20 20 20 20 20 20 20 20 20 44 2E 20 20 e. D.
0254A0: 41 64 64 20 44 61 74 61 2E 0D 0A 20 20 20 20 20 Add Data...
0254B0: 20 20 20 20 20 20 20 20 42 2E 20 20 4F 70 65 6E B. Open
0254C0: 2F 43 6C 6F 73 65 20 61 20 46 69 6C 65 2E 20 20 /Close a File.
0254D0: 20 20 20 20 45 2E 20 20 45 64 69 74 20 44 61 74 E. Edit Dat
0254E0: 61 2E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 a...
0254F0: 20 43 2E 20 20 44 65 6C 65 74 65 20 61 20 46 69 C. Delete a Fi
025500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025700: 6C 65 2E 20 20 20 20 20 20 20 20 20 20 46 2E 20 le. F.
025710: 20 44 65 6C 65 74 65 20 44 61 74 61 2E 0D 0A 0D Delete Data....
025720: 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ...
025730: 20 20 20 20 20 20 20 20 20 20 20 20 20 46 69 6C Fil
025740: 65 20 49 6E 74 65 72 72 6F 67 61 74 69 6F 6E 0D e Interrogation.
025750: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
025760: 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D -----
025770: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 -------------..
025780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
025790: 20 20 20 20 20 47 2E 20 20 4C 69 73 74 2F 44 69 G. List/Di
0257A0: 73 70 6C 61 79 20 52 65 63 6F 72 64 73 2E 0D 0A splay Records...
0257B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0257C0: 20 20 20 20 20 20 48 2E 20 20 4C 6F 63 61 74 65 H. Locate
0257D0: 20 49 6E 66 6F 72 6D 61 74 69 6F 6E 2E 0D 0A 20 Information...
0257E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0257F0: 20 20 20 20 20 49 2E 20 20 52 65 70 6F 72 74 69 I. Reporti
025800: 6E 67 2E 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 ng.....
025810: 20 20 51 2E 20 20 51 75 69 74 20 54 6F 20 4F 70 Q. Quit To Op
025820: 2F 73 79 73 74 65 6D 20 20 20 20 20 20 20 58 2E /system X.
025830: 20 20 45 78 69 74 20 74 6F 20 64 42 41 53 45 20 Exit to dBASE
025840: 49 49 0D 0A 0D 0A 0D 0A 0D 0A 2D 2D 2D 2D 2D 2D II........------
025850: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
025860: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
025870: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
025880: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
025890: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A 20 20 45 ---------.... E
0258A0: 4E 44 54 45 58 54 0D 0A 20 20 53 54 4F 52 45 20 NDTEXT.. STORE
0258B0: 27 20 27 20 54 4F 20 52 45 53 50 0D 0A 20 20 53 ' ' TO RESP.. S
0258C0: 54 4F 52 45 20 59 20 20 20 54 4F 20 4D 46 49 52 TORE Y TO MFIR
0258D0: 53 54 0D 0A 20 20 44 4F 20 57 48 49 4C 45 20 2E ST.. DO WHILE .
0258E0: 4E 4F 54 2E 20 4D 2E 52 45 53 50 24 27 41 42 43 NOT. M.RESP$'ABC
0258F0: 44 45 46 47 48 49 51 58 27 0D 0A 20 20 20 20 40 DEFGHIQX'.. @
025900: 00 00 01 00 02 00 0E 10 1F 00 21 28 24 28 72 6F ..........!($(ro
025910: 6F 6D 2C 31 2C 34 29 2B 73 68 65 6C 66 2B 24 28 om,1,4)+shelf+$(
025920: 61 75 74 68 6F 72 2C 31 2C 35 29 29 00 29 00 00 author,1,5)).)..
025930: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025940: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025950: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0259A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0259B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0259C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0259D0: 00 00 00 00 00 00 00 00 00 00 00 00 0D 00 00 15 ................
0259E0: 00 4E 4F 56 45 4C 20 20 20 20 20 4A 4F 59 43 45 .NOVEL JOYCE
0259F0: 20 20 20 20 20 00 00 16 00 4E 4F 56 45 4C 20 20 ....NOVEL
025A00: 20 20 20 4D 41 55 47 48 41 4D 2C 53 4F 00 00 07 MAUGHAM,SO...
025A10: 00 4E 4F 56 45 4C 20 20 20 20 20 54 4F 4C 53 54 .NOVEL TOLST
025A20: 4F 59 20 20 20 00 00 0A 00 4E 4F 56 45 4C 20 20 OY ....NOVEL
025A30: 20 20 20 54 4F 4C 53 54 4F 59 20 20 20 00 00 0C TOLSTOY ...
025A40: 00 50 48 49 4C 4F 53 4F 50 48 59 4B 41 4E 54 20 .PHILOSOPHYKANT
025A50: 20 20 20 20 20 00 00 0E 00 50 4F 45 54 52 59 20 ....POETRY
025A60: 20 20 20 42 59 52 4F 4E 20 20 20 20 20 00 00 0D BYRON ...
025A70: 00 50 4F 45 54 52 59 20 20 20 20 44 41 4E 54 45 .POETRY DANTE
025A80: 20 20 20 20 20 00 00 05 00 50 4F 45 54 52 59 20 ....POETRY
025A90: 20 20 20 4B 45 41 54 53 20 20 20 20 20 00 00 0B KEATS ...
025AA0: 00 50 4F 45 54 52 59 20 20 20 20 57 4F 52 44 53 .POETRY WORDS
025AB0: 57 4F 52 54 48 00 00 17 00 53 43 49 45 4E 43 45 WORTH....SCIENCE
025AC0: 20 46 49 48 45 52 42 45 52 54 2C 46 52 00 00 18 FIHERBERT,FR...
025AD0: 00 53 43 49 45 4E 43 45 20 46 49 48 45 52 42 45 .SCIENCE FIHERBE
025AE0: 52 54 2C 46 52 00 00 04 00 53 4F 43 49 41 4C 20 RT,FR....SOCIAL
025AF0: 48 49 53 43 4C 41 52 4B 45 2C 4D 52 53 00 00 08 HISCLARKE,MRS...
025B00: 20 32 31 2C 30 0D 0A 20 20 20 20 40 20 32 31 2C 21,0.. @ 21,
025B10: 35 20 53 41 59 20 27 5B 20 4F 70 74 69 6F 6E 20 5 SAY '[ Option
025B20: 5D 20 27 20 0D 0A 20 20 20 20 40 20 32 31 2C 30 ] ' .. @ 21,0
025B30: 20 47 45 54 20 4D 2E 52 45 53 50 20 50 49 43 54 GET M.RESP PICT
025B40: 20 27 21 27 0D 0A 20 20 20 20 49 46 20 2E 4E 4F '!'.. IF .NO
025B50: 54 2E 20 4D 2E 4D 46 49 52 53 54 0D 0A 20 20 20 T. M.MFIRST..
025B60: 20 20 20 40 20 32 31 2C 32 30 20 53 41 59 20 27 @ 21,20 SAY '
025B70: 3C 2D 20 53 65 6C 65 63 74 69 6F 6E 20 49 6E 76 <- Selection Inv
025B80: 61 6C 69 64 27 0D 0A 20 20 20 20 45 4C 53 45 0D alid'.. ELSE.
025B90: 0A 20 20 20 20 20 20 53 54 4F 52 45 20 4E 20 54 . STORE N T
025BA0: 4F 20 4D 46 49 52 53 54 0D 0A 20 20 20 20 45 4E O MFIRST.. EN
025BB0: 44 49 46 0D 0A 20 20 20 20 52 45 41 44 0D 0A 20 DIF.. READ..
025BC0: 20 20 20 40 20 32 31 2C 32 30 0D 0A 20 20 45 4E @ 21,20.. EN
025BD0: 44 44 4F 0D 0A 20 20 52 45 4C 45 41 53 45 20 4D DDO.. RELEASE M
025BE0: 46 49 52 53 54 20 0D 0A 20 20 43 4C 45 41 52 20 FIRST .. CLEAR
025BF0: 47 45 54 53 0D 0A 20 20 49 46 20 4D 2E 52 45 53 GETS.. IF M.RES
025C00: 50 24 27 51 58 27 0D 0A 20 20 20 20 52 45 54 55 P$'QX'.. RETU
025C10: 52 4E 0D 0A 20 20 45 4E 44 49 46 20 5B 20 65 78 RN.. ENDIF [ ex
025C20: 69 74 20 74 6F 20 77 65 6C 63 6F 6D 65 2E 70 72 it to welcome.pr
025C30: 67 20 5D 0D 0A 20 20 49 46 20 2E 4E 4F 54 2E 20 g ].. IF .NOT.
025C40: 46 49 4C 45 20 28 20 27 46 52 4F 4E 26 52 45 53 FILE ( 'FRON&RES
025C50: 50 2E 2E 45 4E 44 27 20 29 0D 0A 20 20 20 20 53 P..END' ).. S
025C60: 54 4F 52 45 20 27 20 27 20 54 4F 20 54 45 4D 50 TORE ' ' TO TEMP
025C70: 0D 0A 20 20 20 20 40 20 32 30 2C 35 20 53 41 59 .. @ 20,5 SAY
025C80: 20 27 45 52 52 4F 52 20 2E 2E 2E 20 50 72 6F 67 'ERROR ... Prog
025C90: 72 61 6D 20 22 46 52 4F 4E 26 52 45 53 50 2E 2E ram "FRON&RESP..
025CA0: 45 4E 44 22 20 6E 6F 74 20 66 6F 75 6E 64 2E 27 END" not found.'
025CB0: 0D 0A 20 20 20 20 40 20 32 31 2C 35 20 53 41 59 .. @ 21,5 SAY
025CC0: 20 27 50 6C 65 61 73 65 20 70 72 65 73 73 20 61 'Please press a
025CD0: 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 69 6E ny key to contin
025CE0: 75 65 2E 20 27 20 0D 0A 20 20 20 20 40 20 32 31 ue. ' .. @ 21
025CF0: 2C 30 20 47 45 54 20 4D 2E 54 45 4D 50 0D 0A 20 ,0 GET M.TEMP..
025D00: 1D 00 00 0E 00 4B 49 54 43 41 30 31 42 59 52 4F .....KITCA01BYRO
025D10: 4E 00 00 15 00 4B 49 54 43 41 30 32 4A 4F 59 43 N....KITCA02JOYC
025D20: 45 00 00 17 00 4C 49 42 52 41 30 32 48 45 52 42 E....LIBRA02HERB
025D30: 45 00 00 18 00 4C 49 42 52 41 30 32 48 45 52 42 E....LIBRA02HERB
025D40: 45 00 00 0F 00 4C 49 42 52 41 30 32 49 42 53 45 E....LIBRA02IBSE
025D50: 4E 00 00 14 00 4C 49 42 52 41 30 32 4A 4F 59 43 N....LIBRA02JOYC
025D60: 45 00 00 16 00 4C 49 42 52 41 30 32 4D 41 55 47 E....LIBRA02MAUG
025D70: 48 00 00 11 00 4C 49 42 52 41 30 32 53 48 41 4B H....LIBRA02SHAK
025D80: 45 00 00 12 00 4C 49 42 52 41 30 32 53 48 41 4B E....LIBRA02SHAK
025D90: 45 00 00 13 00 4C 49 42 52 41 30 32 53 48 41 4B E....LIBRA02SHAK
025DA0: 45 00 00 10 00 4C 49 42 52 41 30 33 53 48 41 4B E....LIBRA03SHAK
025DB0: 45 00 00 08 00 4C 49 42 52 41 32 32 47 52 45 59 E....LIBRA22GREY
025DC0: 2C 00 00 04 00 4C 49 42 52 43 30 33 43 4C 41 52 ,....LIBRC03CLAR
025DD0: 4B 00 00 1C 00 4C 49 42 52 44 32 33 57 49 4C 4C K....LIBRD23WILL
025DE0: 49 00 00 06 00 53 54 55 44 41 30 31 20 20 20 20 I....STUDA01
025DF0: 20 00 00 0D 00 53 54 55 44 41 30 31 44 41 4E 54 ....STUDA01DANT
025E00: 45 00 00 0C 00 53 54 55 44 41 30 31 4B 41 4E 54 E....STUDA01KANT
025E10: 20 00 00 0A 00 53 54 55 44 41 30 31 54 4F 4C 53 ....STUDA01TOLS
025E20: 54 00 00 0B 00 53 54 55 44 41 30 31 57 4F 52 44 T....STUDA01WORD
025E30: 53 00 00 19 00 53 54 55 44 41 30 32 44 45 20 50 S....STUDA02DE P
025E40: 41 00 00 09 00 53 54 55 44 41 32 31 43 4F 4E 52 A....STUDA21CONR
025E50: 41 00 00 05 00 53 54 55 44 41 32 31 4B 45 41 54 A....STUDA21KEAT
025E60: 53 00 00 02 00 53 54 55 44 41 32 33 44 49 43 4B S....STUDA23DICK
025E70: 45 00 00 03 00 53 54 55 44 41 32 33 44 49 43 4B E....STUDA23DICK
025E80: 45 00 00 1B 00 53 54 55 44 41 35 36 44 52 20 50 E....STUDA56DR P
025E90: 41 00 00 1A 00 53 54 55 44 42 33 34 4D 52 53 20 A....STUDB34MRS
025EA0: 4E 00 00 01 00 53 54 55 44 43 32 32 53 48 41 4B N....STUDC22SHAK
025EB0: 45 00 00 07 00 53 54 55 44 44 33 32 54 4F 4C 53 E....STUDD32TOLS
025EC0: 54 00 00 1D 00 53 54 55 44 45 33 34 54 48 41 54 T....STUDE34THAT
025ED0: 43 00 00 20 20 20 20 57 4F 52 44 53 57 4F 52 54 C.. WORDSWORT
025EE0: 48 00 00 04 00 53 4F 43 49 41 4C 20 48 49 53 43 H....SOCIAL HISC
025EF0: 4C 41 52 4B 45 2C 4D 52 53 00 00 08 00 57 45 53 LARKE,MRS....WES
025F00: 20 20 20 52 45 41 44 0D 0A 20 20 20 20 43 4C 45 READ.. CLE
025F10: 41 52 20 47 45 54 53 0D 0A 20 20 20 20 40 20 32 AR GETS.. @ 2
025F20: 30 2C 30 0D 0A 20 20 20 20 40 20 32 31 2C 30 0D 0,0.. @ 21,0.
025F30: 0A 20 20 45 4E 44 49 C6 20 DB 20 74 65 73 F4 20 . ENDI. . tes.
025F40: 74 68 61 F4 20 70 72 6F 67 72 61 ED 20 69 F3 20 tha. progra. i.
025F50: 6F EE 20 64 69 73 EB 20 5D 0D 0A 20 20 44 4F 20 o. dis. ].. DO
025F60: 46 52 4F 4E 26 52 45 53 50 2E 2E 45 4E 44 0D 0A FRON&RESP..END..
025F70: 45 4E 44 44 4F 20 5B 20 63 6F 6E 74 20 6C 6F 6F ENDDO [ cont loo
025F80: 70 20 5D 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A p ].............
025F90: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
025FA0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
025FB0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
025FC0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
025FD0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
025FE0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
025FF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
026000: 32 31 2C 35 20 53 41 59 20 27 50 61 67 65 20 77 21,5 SAY 'Page w
026010: 69 64 74 68 20 6E 6F 74 20 77 69 64 65 20 65 6E idth not wide en
026020: 6F 75 67 68 20 74 6F 20 66 69 74 20 64 61 74 61 ough to fit data
026030: 62 61 73 65 2E 20 50 6C 65 61 73 65 20 52 65 2D base. Please Re-
026040: 65 6E 74 65 72 27 0D 0A 20 20 20 20 45 4E 44 49 enter'.. ENDI
026050: 46 20 73 69 7A 65 20 3D 20 30 0D 0A 20 20 20 20 F size = 0..
026060: 49 46 20 77 69 64 74 68 20 3E 20 31 33 32 0D 0A IF width > 132..
026070: 20 20 20 20 20 20 40 20 32 31 2C 35 20 53 41 59 @ 21,5 SAY
026080: 20 27 50 61 67 65 20 77 69 64 74 68 20 6D 75 73 'Page width mus
026090: 74 20 6E 6F 74 20 65 78 63 65 65 64 20 31 33 32 t not exceed 132
0260A0: 2E 20 50 6C 65 61 73 65 20 52 65 2D 65 6E 74 65 . Please Re-ente
0260B0: 72 20 20 20 20 20 20 20 20 20 20 20 20 27 0D 0A r '..
0260C0: 20 20 20 20 45 4E 44 49 46 20 77 69 64 74 68 20 ENDIF width
0260D0: 3E 20 31 33 32 0D 0A 20 20 20 20 43 4C 45 41 52 > 132.. CLEAR
0260E0: 20 47 45 54 53 0D 0A 20 20 45 4E 44 44 4F 20 57 GETS.. ENDDO W
0260F0: 48 49 4C 45 20 73 69 7A 65 20 3D 20 30 0D 0A 20 HILE size = 0..
026100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
026110: 20 00 01 00 02 09 52 E5 20 00 41 02 00 00 00 02 .....R. .A.....
026120: 20 00 46 02 00 00 00 02 20 00 42 02 00 00 00 02 .F..... .B.....
026130: 20 00 47 02 00 00 00 02 20 00 43 02 00 00 00 02 .G..... .C.....
026140: 20 00 48 02 00 00 00 02 20 00 44 02 00 00 00 02 .H..... .D.....
026150: 20 00 49 02 00 00 00 02 20 00 45 02 00 00 00 02 .I..... .E.....
026160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026200: 00 00 03 00 04 00 16 18 15 00 21 28 24 28 73 75 ..........!($(su
026210: 62 6A 65 63 74 2C 31 2C 31 30 29 29 2B 21 28 24 bject,1,10))+!($
026220: 28 61 75 74 68 6F 72 2C 31 2C 31 30 29 29 00 00 (author,1,10))..
026230: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026240: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026250: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0262A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0262B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0262C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0262D0: 00 00 00 00 00 00 00 00 00 00 00 00 01 01 00 14 ................
0262E0: 00 4E 4F 56 45 4C 20 20 20 20 20 4A 4F 59 43 45 .NOVEL JOYCE
0262F0: 20 20 20 20 20 02 00 16 00 4E 4F 56 45 4C 20 20 ....NOVEL
026300: 20 20 20 4D 41 55 47 48 41 4D 2C 53 4F 00 00 07 MAUGHAM,SO...
026310: 00 4E 4F 56 45 4C 20 20 20 20 20 54 4F 4C 53 54 .NOVEL TOLST
026320: 4F 59 20 20 20 00 00 0A 00 4E 4F 56 45 4C 20 20 OY ....NOVEL
026330: 20 20 20 54 4F 4C 53 54 4F 59 20 20 20 00 00 0C TOLSTOY ...
026340: 00 50 48 49 4C 4F 53 4F 50 48 59 4B 41 4E 54 20 .PHILOSOPHYKANT
026350: 20 20 20 20 20 00 00 0E 00 50 4F 45 54 52 59 20 ....POETRY
026360: 20 20 20 42 59 52 4F 4E 20 20 20 20 20 00 00 0D BYRON ...
026370: 00 50 4F 45 54 52 59 20 20 20 20 44 41 4E 54 45 .POETRY DANTE
026380: 20 20 20 20 20 00 00 05 00 50 4F 45 54 52 59 20 ....POETRY
026390: 20 20 20 4B 45 41 54 53 20 20 20 20 20 00 00 0B KEATS ...
0263A0: 00 50 4F 45 54 52 59 20 20 20 20 57 4F 52 44 53 .POETRY WORDS
0263B0: 57 4F 52 54 48 00 00 04 00 53 4F 43 49 41 4C 20 WORTH....SOCIAL
0263C0: 48 49 53 43 4C 41 52 4B 45 2C 4D 52 53 00 00 08 HISCLARKE,MRS...
0263D0: 00 57 45 53 54 45 52 4E 20 20 20 47 52 45 59 2C .WESTERN GREY,
0263E0: 5A 41 4E 45 20 00 00 15 00 4E 4F 56 45 4C 20 20 ZANE ....NOVEL
0263F0: 20 20 20 4A 4F 59 43 45 20 20 20 20 20 00 00 16 JOYCE ...
026400: 1C 00 00 07 00 41 4E 4E 41 20 4B 41 52 45 4E 00 .....ANNA KAREN.
026410: 00 01 00 41 53 20 59 4F 55 20 4C 49 4B 00 00 03 ...AS YOU LIK...
026420: 00 42 4C 45 41 4B 20 48 4F 55 53 00 00 16 00 43 .BLEAK HOUS....C
026430: 41 4B 45 53 20 41 4E 44 20 00 00 0E 00 43 48 49 AKES AND ....CHI
026440: 4C 44 45 20 48 41 52 00 00 05 00 43 4F 4C 4C 45 LDE HAR....COLLE
026450: 43 54 45 44 20 00 00 0C 00 43 52 49 54 49 51 55 CTED ....CRITIQU
026460: 45 20 4F 00 00 0F 00 44 4F 4C 4C 27 53 20 48 4F E O....DOLL'S HO
026470: 55 00 00 02 00 44 4F 4D 42 45 59 20 41 4E 44 00 U....DOMBEY AND.
026480: 00 17 00 44 55 4E 45 20 20 20 20 20 20 00 00 18 ...DUNE ...
026490: 00 44 55 4E 45 20 4D 45 53 53 49 00 00 14 00 46 .DUNE MESSI....F
0264A0: 49 4E 4E 49 47 41 4E 27 53 00 00 1B 00 47 4F 4E INNIGAN'S....GON
0264B0: 45 20 57 49 54 48 20 00 00 10 00 48 45 4E 52 59 E WITH ....HENRY
0264C0: 20 56 20 20 20 00 00 0D 00 49 4E 46 45 52 4E 4F V ....INFERNO
0264D0: 20 20 20 00 00 12 00 4B 49 4E 47 20 4C 45 41 52 ....KING LEAR
0264E0: 20 00 00 09 00 4C 4F 52 44 20 4A 49 4D 20 20 00 ....LORD JIM .
0264F0: 00 0B 00 4D 49 43 48 41 45 4C 20 20 20 00 00 15 ...MICHAEL ...
026500: 00 50 4F 52 54 52 41 49 54 20 4F 00 00 08 00 52 .PORTRAIT O....R
026510: 49 44 45 52 53 20 4F 46 20 00 00 04 00 52 49 56 IDERS OF ....RIV
026520: 41 4C 20 50 52 49 4E 00 00 11 00 52 4F 4D 45 4F AL PRIN....ROMEO
026530: 20 41 4E 44 20 00 00 13 00 54 45 4D 50 45 53 54 AND ....TEMPEST
026540: 20 20 20 00 00 1C 00 54 48 45 20 4C 49 46 45 20 ....THE LIFE
026550: 41 00 00 1A 00 54 48 45 20 4C 4F 53 53 20 4F 00 A....THE LOSS O.
026560: 00 0A 00 57 41 52 20 41 4E 44 20 50 45 00 00 19 ...WAR AND PE...
026570: 00 57 4F 52 4B 49 4E 47 20 57 49 00 00 06 00 57 .WORKING WI....W
026580: 4F 52 4C 44 20 41 54 4C 41 00 00 1D 00 57 48 41 ORLD ATLA....WHA
026590: 54 20 45 43 4F 4E 4F 00 00 19 00 57 4F 52 4B 49 T ECONO....WORKI
0265A0: 4E 47 20 57 49 00 00 06 00 57 4F 52 4C 44 20 41 NG WI....WORLD A
0265B0: 54 4C 41 00 00 65 6D 73 20 20 20 20 20 20 20 20 TLA..ems
0265C0: 20 20 20 20 20 20 20 20 20 20 20 22 20 20 20 20 "
0265D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0265E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0265F0: 20 20 20 20 20 20 20 20 20 00 00 06 00 57 6F 72 ....Wor
026600: 10 00 00 1C 00 41 52 43 48 45 52 59 20 20 20 57 .....ARCHERY W
026610: 49 4C 4C 49 41 4D 20 54 45 00 00 19 00 43 4F 4D ILLIAM TE....COM
026620: 50 55 54 45 52 20 20 44 45 20 50 41 43 45 20 20 PUTER DE PACE
026630: 20 00 00 1D 00 44 49 53 41 53 54 45 52 53 20 54 ....DISASTERS T
026640: 48 41 54 43 48 45 52 20 26 00 00 0F 00 44 52 41 HATCHER &....DRA
026650: 4D 41 20 20 20 20 20 49 42 53 45 4E 20 20 20 20 MA IBSEN
026660: 20 00 00 01 00 44 52 41 4D 41 20 20 20 20 20 53 ....DRAMA S
026670: 48 41 4B 45 53 50 45 41 52 00 00 10 00 44 52 41 HAKESPEAR....DRA
026680: 4D 41 20 20 20 20 20 53 48 41 4B 45 53 50 45 41 MA SHAKESPEA
026690: 52 00 00 11 00 44 52 41 4D 41 20 20 20 20 20 53 R....DRAMA S
0266A0: 48 41 4B 45 53 50 45 41 52 00 00 12 00 44 52 41 HAKESPEAR....DRA
0266B0: 4D 41 20 20 20 20 20 53 48 41 4B 45 53 50 45 41 MA SHAKESPEA
0266C0: 52 00 00 13 00 44 52 41 4D 41 20 20 20 20 20 53 R....DRAMA S
0266D0: 48 41 4B 45 53 50 45 41 52 00 00 1A 00 45 4E 54 HAKESPEAR....ENT
0266E0: 45 52 54 41 49 4E 4D 4D 52 53 20 4E 20 45 20 54 ERTAINMMRS N E T
0266F0: 52 00 00 06 00 47 45 4F 47 52 41 50 48 59 20 20 R....GEOGRAPHY
026700: 20 20 20 20 20 20 20 20 20 00 00 1B 00 4C 45 49 ....LEI
026710: 53 55 52 45 20 20 20 44 52 20 50 41 59 4E 45 20 SURE DR PAYNE
026720: 20 00 00 09 00 4E 4F 56 45 4C 20 20 20 20 20 43 ....NOVEL C
026730: 4F 4E 52 41 44 20 20 20 20 00 00 02 00 4E 4F 56 ONRAD ....NOV
026740: 45 4C 20 20 20 20 20 44 49 43 4B 45 4E 53 20 20 EL DICKENS
026750: 20 00 00 03 00 4E 4F 56 45 4C 20 20 20 20 20 44 ....NOVEL D
026760: 49 43 4B 45 4E 53 20 20 20 00 00 14 00 4E 4F 56 ICKENS ....NOV
026770: 45 4C 20 20 20 20 20 4A 4F 59 43 45 20 20 20 20 EL JOYCE
026780: 20 00 00 0E 00 50 4F 45 54 52 59 20 20 20 20 42 ....POETRY B
026790: 59 52 4F 4E 20 20 20 20 20 00 00 0D 00 50 4F 45 YRON ....POE
0267A0: 54 52 59 20 20 20 20 44 41 4E 54 45 20 20 20 20 TRY DANTE
0267B0: 20 00 00 05 00 50 4F 45 54 52 59 20 20 20 20 4B ....POETRY K
0267C0: 45 41 54 53 20 20 20 20 20 00 00 0B 00 50 4F 45 EATS ....POE
0267D0: 54 52 59 20 20 20 20 57 4F 52 44 53 57 4F 52 54 TRY WORDSWORT
0267E0: 48 00 00 04 00 53 4F 43 49 41 4C 20 48 49 53 43 H....SOCIAL HISC
0267F0: 4C 41 52 4B 45 2C 4D 52 53 00 00 08 00 57 45 53 LARKE,MRS....WES
026800: 04 00 00 0C 00 43 72 69 74 69 71 75 65 20 6F 66 .....Critique of
026810: 20 50 75 72 65 20 52 65 61 73 6F 6E 20 20 20 20 Pure Reason
026820: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026850: 20 20 20 20 20 00 00 0F 00 44 6F 6C 6C 27 73 20 ....Doll's
026860: 48 6F 75 73 65 20 20 20 20 20 20 20 20 20 20 20 House
026870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0268A0: 20 20 20 20 20 20 20 20 20 00 00 02 00 44 6F 6D ....Dom
0268B0: 62 65 79 20 61 6E 64 20 53 6F 6E 20 20 20 20 20 bey and Son
0268C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0268D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0268E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0268F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 17 ...
026900: 00 44 75 6E 65 20 20 20 20 20 20 20 20 20 20 20 .Dune
026910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026950: 20 00 00 14 00 46 69 6E 6E 69 67 61 6E 27 73 20 ....Finnigan's
026960: 57 61 6B 65 20 20 20 20 20 20 20 20 20 20 20 20 Wake
026970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0269A0: 20 20 20 20 20 00 00 10 00 48 65 6E 72 79 20 56 ....Henry V
0269B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0269C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0269D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0269E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0269F0: 20 20 20 20 20 20 20 20 20 00 00 0D 00 49 6E 66 ....Inf
026A00: 0D 00 00 15 00 4E 4F 56 45 4C 20 20 20 20 20 4A .....NOVEL J
026A10: 4F 59 43 45 20 20 20 20 20 00 00 16 00 4E 4F 56 OYCE ....NOV
026A20: 45 4C 20 20 20 20 20 4D 41 55 47 48 41 4D 2C 53 EL MAUGHAM,S
026A30: 4F 00 00 07 00 4E 4F 56 45 4C 20 20 20 20 20 54 O....NOVEL T
026A40: 4F 4C 53 54 4F 59 20 20 20 00 00 0A 00 4E 4F 56 OLSTOY ....NOV
026A50: 45 4C 20 20 20 20 20 54 4F 4C 53 54 4F 59 20 20 EL TOLSTOY
026A60: 20 00 00 0C 00 50 48 49 4C 4F 53 4F 50 48 59 4B ....PHILOSOPHYK
026A70: 41 4E 54 20 20 20 20 20 20 00 00 0E 00 50 4F 45 ANT ....POE
026A80: 54 52 59 20 20 20 20 42 59 52 4F 4E 20 20 20 20 TRY BYRON
026A90: 20 00 00 0D 00 50 4F 45 54 52 59 20 20 20 20 44 ....POETRY D
026AA0: 41 4E 54 45 20 20 20 20 20 00 00 05 00 50 4F 45 ANTE ....POE
026AB0: 54 52 59 20 20 20 20 4B 45 41 54 53 20 20 20 20 TRY KEATS
026AC0: 20 00 00 0B 00 50 4F 45 54 52 59 20 20 20 20 57 ....POETRY W
026AD0: 4F 52 44 53 57 4F 52 54 48 00 00 17 00 53 43 49 ORDSWORTH....SCI
026AE0: 45 4E 43 45 20 46 49 48 45 52 42 45 52 54 2C 46 ENCE FIHERBERT,F
026AF0: 52 00 00 18 00 53 43 49 45 4E 43 45 20 46 49 48 R....SCIENCE FIH
026B00: 45 52 42 45 52 54 2C 46 52 00 00 04 00 53 4F 43 ERBERT,FR....SOC
026B10: 49 41 4C 20 48 49 53 43 4C 41 52 4B 45 2C 4D 52 IAL HISCLARKE,MR
026B20: 53 00 00 08 00 57 45 53 54 45 52 4E 20 20 20 47 S....WESTERN G
026B30: 52 45 59 2C 5A 41 4E 45 20 00 00 07 00 4E 4F 56 REY,ZANE ....NOV
026B40: 45 4C 20 20 20 20 20 54 4F 4C 53 54 4F 59 20 20 EL TOLSTOY
026B50: 20 00 00 0A 00 4E 4F 56 45 4C 20 20 20 20 20 54 ....NOVEL T
026B60: 4F 4C 53 54 4F 59 20 20 20 00 00 0C 00 50 48 49 OLSTOY ....PHI
026B70: 4C 4F 53 4F 50 48 59 4B 41 4E 54 20 20 20 20 20 LOSOPHYKANT
026B80: 20 00 00 0E 00 50 4F 45 54 52 59 20 20 20 20 42 ....POETRY B
026B90: 59 52 4F 4E 20 20 20 20 20 00 00 0D 00 50 4F 45 YRON ....POE
026BA0: 54 52 59 20 20 20 20 44 41 4E 54 45 20 20 20 20 TRY DANTE
026BB0: 20 00 00 05 00 50 4F 45 54 52 59 20 20 20 20 4B ....POETRY K
026BC0: 45 41 54 53 20 20 20 20 20 00 00 0B 00 50 4F 45 EATS ....POE
026BD0: 54 52 59 20 20 20 20 57 4F 52 44 53 57 4F 52 54 TRY WORDSWORT
026BE0: 48 00 00 04 00 53 4F 43 49 41 4C 20 48 49 53 43 H....SOCIAL HISC
026BF0: 4C 41 52 4B 45 2C 4D 52 53 00 00 08 00 57 45 53 LARKE,MRS....WES
026C00: 06 01 00 05 00 43 6F 6C 6C 65 63 74 65 64 20 50 .....Collected P
026C10: 6F 65 6D 73 20 20 20 20 20 20 20 20 20 20 20 20 oems
026C20: 20 20 20 20 20 20 20 22 20 20 20 20 20 20 20 20 "
026C30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026C50: 20 20 20 20 20 02 00 17 00 44 75 6E 65 20 20 20 ....Dune
026C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026C70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026C80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026C90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026CA0: 20 20 20 20 20 20 20 20 20 06 00 0D 00 49 6E 66 ....Inf
026CB0: 65 72 6E 6F 20 20 20 20 20 20 20 20 20 20 20 20 erno
026CC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026CD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026CE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026CF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 05 00 08 ...
026D00: 00 52 69 64 65 72 73 20 6F 66 20 74 68 65 20 50 .Riders of the P
026D10: 75 72 70 6C 65 20 53 61 67 65 20 20 20 20 20 20 urple Sage
026D20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026D30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026D40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026D50: 20 04 00 1C 00 54 48 45 20 4C 4F 53 53 20 4F 46 ....THE LOSS OF
026D60: 20 41 20 53 4F 4E 20 20 20 20 20 20 20 20 20 20 A SON
026D70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026D80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026D90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026DA0: 20 20 20 20 20 08 00 0A 00 57 61 72 20 61 6E 64 ....War and
026DB0: 20 50 65 61 63 65 20 20 20 20 20 20 20 20 20 20 Peace
026DC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026DD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026DE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026DF0: 20 20 20 20 20 20 20 20 20 07 00 06 00 57 6F 72 ....Wor
026E00: 01 01 00 14 00 4E 4F 56 45 4C 20 20 20 20 20 4A .....NOVEL J
026E10: 4F 59 43 45 20 20 20 20 20 02 00 04 00 53 4F 43 OYCE ....SOC
026E20: 49 41 4C 20 48 49 53 43 4C 41 52 4B 45 2C 4D 52 IAL HISCLARKE,MR
026E30: 53 00 00 07 00 4E 4F 56 45 4C 20 20 20 20 20 54 S....NOVEL T
026E40: 4F 4C 53 54 4F 59 20 20 20 00 00 0A 00 4E 4F 56 OLSTOY ....NOV
026E50: 45 4C 20 20 20 20 20 54 4F 4C 53 54 4F 59 20 20 EL TOLSTOY
026E60: 20 00 00 0C 00 50 48 49 4C 4F 53 4F 50 48 59 4B ....PHILOSOPHYK
026E70: 41 4E 54 20 20 20 20 20 20 00 00 0E 00 50 4F 45 ANT ....POE
026E80: 54 52 59 20 20 20 20 42 59 52 4F 4E 20 20 20 20 TRY BYRON
026E90: 20 00 00 0D 00 50 4F 45 54 52 59 20 20 20 20 44 ....POETRY D
026EA0: 41 4E 54 45 20 20 20 20 20 00 00 05 00 50 4F 45 ANTE ....POE
026EB0: 54 52 59 20 20 20 20 4B 45 41 54 53 20 20 20 20 TRY KEATS
026EC0: 20 00 00 0B 00 50 4F 45 54 52 59 20 20 20 20 57 ....POETRY W
026ED0: 4F 52 44 53 57 4F 52 54 48 00 00 04 00 53 4F 43 ORDSWORTH....SOC
026EE0: 49 41 4C 20 48 49 53 43 4C 41 52 4B 45 2C 4D 52 IAL HISCLARKE,MR
026EF0: 53 00 00 08 00 57 45 53 54 45 52 4E 20 20 20 47 S....WESTERN G
026F00: 52 45 59 2C 5A 41 4E 45 20 00 00 15 00 4E 4F 56 REY,ZANE ....NOV
026F10: 45 4C 20 20 20 20 20 4A 4F 59 43 45 20 20 20 20 EL JOYCE
026F20: 20 00 00 16 00 4E 4F 56 45 4C 20 20 20 20 20 4D ....NOVEL M
026F30: 41 55 47 48 41 4D 2C 53 4F 00 00 07 00 4E 4F 56 AUGHAM,SO....NOV
026F40: 45 4C 20 20 20 20 20 54 4F 4C 53 54 4F 59 20 20 EL TOLSTOY
026F50: 20 00 00 0A 00 4E 4F 56 45 4C 20 20 20 20 20 54 ....NOVEL T
026F60: 4F 4C 53 54 4F 59 20 20 20 00 00 0C 00 50 48 49 OLSTOY ....PHI
026F70: 4C 4F 53 4F 50 48 59 4B 41 4E 54 20 20 20 20 20 LOSOPHYKANT
026F80: 20 00 00 0E 00 50 4F 45 54 52 59 20 20 20 20 42 ....POETRY B
026F90: 59 52 4F 4E 20 20 20 20 20 00 00 0D 00 50 4F 45 YRON ....POE
026FA0: 54 52 59 20 20 20 20 44 41 4E 54 45 20 20 20 20 TRY DANTE
026FB0: 20 00 00 05 00 50 4F 45 54 52 59 20 20 20 20 4B ....POETRY K
026FC0: 45 41 54 53 20 20 20 20 20 00 00 0B 00 50 4F 45 EATS ....POE
026FD0: 54 52 59 20 20 20 20 57 4F 52 44 53 57 4F 52 54 TRY WORDSWORT
026FE0: 48 00 00 04 00 53 4F 43 49 41 4C 20 48 49 53 43 H....SOCIAL HISC
026FF0: 4C 41 52 4B 45 2C 4D 52 53 00 00 08 00 57 45 53 LARKE,MRS....WES
027000: 04 00 00 04 00 52 69 76 61 6C 20 50 72 69 6E 63 .....Rival Princ
027010: 65 73 2C 54 68 65 20 20 20 20 20 20 20 20 20 20 es,The
027020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027050: 20 20 20 20 20 00 00 11 00 52 6F 6D 65 6F 20 61 ....Romeo a
027060: 6E 64 20 4A 75 6C 69 65 74 20 20 20 20 20 20 20 nd Juliet
027070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0270A0: 20 20 20 20 20 20 20 20 20 00 00 1B 00 54 48 45 ....THE
0270B0: 20 41 52 54 20 4F 46 20 53 45 4C 46 20 41 42 55 ART OF SELF ABU
0270C0: 53 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 SE
0270D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0270E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0270F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 1C ...
027100: 00 54 48 45 20 4C 4F 53 53 20 4F 46 20 41 20 53 .THE LOSS OF A S
027110: 4F 4E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ON
027120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027150: 20 00 00 13 00 54 65 6D 70 65 73 74 20 20 20 20 ....Tempest
027160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0271A0: 20 20 20 20 20 00 00 1D 00 57 48 41 54 20 45 43 ....WHAT EC
0271B0: 4F 4E 4F 4D 49 43 20 43 52 49 53 49 53 20 21 20 ONOMIC CRISIS !
0271C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0271D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0271E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0271F0: 20 20 20 20 20 20 20 20 20 00 00 0A 00 57 61 72 ....War
027200: 00 00 01 00 02 00 0C 0E 24 00 21 28 24 28 74 69 ........$.!($(ti
027210: 74 6C 65 2C 31 2C 31 30 29 29 00 00 00 00 00 00 tle,1,10))......
027220: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027230: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027240: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027250: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 65 20 ..............e
027270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027280: 75 6E 6C 69 6D 69 74 65 64 0D 0A 2A 45 58 49 54 unlimited..*EXIT
027290: 0D 0A 2A 45 52 52 4F 52 53 0D 0A 42 41 44 20 44 ..*ERRORS..BAD D
0272A0: 45 43 49 4D 41 4C 20 57 49 44 54 48 20 46 49 45 ECIMAL WIDTH FIE
0272B0: 4C 44 20 2D 2D 20 52 65 2D 65 6E 74 65 72 20 64 LD -- Re-enter d
0272C0: 65 63 69 6D 61 6C 20 70 61 72 74 20 6F 66 20 66 ecimal part of f
0272D0: 69 65 6C 64 20 64 65 66 69 6E 2D 0D 1F 00 00 07 ield defin-.....
0272E0: 00 41 4E 4E 41 20 4B 41 52 45 4E 00 00 01 00 41 .ANNA KAREN....A
0272F0: 53 20 59 4F 55 20 4C 49 4B 00 00 03 00 42 4C 45 S YOU LIK....BLE
027300: 41 4B 20 48 4F 55 53 00 00 16 00 43 41 4B 45 53 AK HOUS....CAKES
027310: 20 41 4E 44 20 00 00 0E 00 43 48 49 4C 44 45 20 AND ....CHILDE
027320: 48 41 52 00 00 05 00 43 4F 4C 4C 45 43 54 45 44 HAR....COLLECTED
027330: 20 00 00 0C 00 43 52 49 54 49 51 55 45 20 4F 00 ....CRITIQUE O.
027340: 00 0F 00 44 4F 4C 4C 27 53 20 48 4F 55 00 00 02 ...DOLL'S HOU...
027350: 00 44 4F 4D 42 45 59 20 41 4E 44 00 00 17 00 44 .DOMBEY AND....D
027360: 55 4E 45 20 20 20 20 20 20 00 00 18 00 44 55 4E UNE ....DUN
027370: 45 20 4D 45 53 53 49 00 00 14 00 46 49 4E 4E 49 E MESSI....FINNI
027380: 47 41 4E 27 53 00 00 1E 00 47 4F 4E 45 20 57 49 GAN'S....GONE WI
027390: 54 48 20 00 00 10 00 48 45 4E 52 59 20 56 20 20 TH ....HENRY V
0273A0: 20 00 00 0D 00 49 4E 46 45 52 4E 4F 20 20 20 00 ....INFERNO .
0273B0: 00 12 00 4B 49 4E 47 20 4C 45 41 52 20 00 00 09 ...KING LEAR ...
0273C0: 00 4C 4F 52 44 20 4A 49 4D 20 20 00 00 0B 00 4D .LORD JIM ....M
0273D0: 49 43 48 41 45 4C 20 20 20 00 00 15 00 50 4F 52 ICHAEL ....POR
0273E0: 54 52 41 49 54 20 4F 00 00 08 00 52 49 44 45 52 TRAIT O....RIDER
0273F0: 53 20 4F 46 20 00 00 04 00 52 49 56 41 4C 20 50 S OF ....RIVAL P
027400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
027410: 21 00 01 00 02 09 52 E5 21 00 41 02 00 00 00 02 !.....R.!.A.....
027420: 21 00 46 02 00 00 00 02 21 00 42 02 00 00 00 02 !.F.....!.B.....
027430: 21 00 47 02 00 00 00 02 21 00 43 02 00 00 00 02 !.G.....!.C.....
027440: 21 00 48 02 00 00 00 02 21 00 44 02 00 00 00 02 !.H.....!.D.....
027450: 21 00 49 02 00 00 00 02 21 00 45 02 00 00 00 02 !.I.....!.E.....
027460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027500: 05 00 00 12 00 4B 69 6E 67 20 4C 65 61 72 20 20 .....King Lear
027510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027550: 20 20 20 20 20 00 00 09 00 4C 6F 72 64 20 4A 69 ....Lord Ji
027560: 6D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 m
027570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0275A0: 20 20 20 20 20 20 20 20 20 00 00 0B 00 4D 69 63 ....Mic
0275B0: 68 61 65 6C 20 20 20 20 20 20 20 20 20 20 20 20 hael
0275C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0275D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0275E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0275F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 15 ...
027600: 00 50 6F 72 74 72 61 69 74 20 6F 66 20 74 68 65 .Portrait of the
027610: 20 59 6F 75 6E 67 20 4D 61 6E 20 61 73 20 61 6E Young Man as an
027620: 20 41 72 74 69 73 74 20 20 20 20 20 20 20 20 20 Artist
027630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027650: 20 00 00 08 00 52 69 64 65 72 73 20 6F 66 20 74 ....Riders of t
027660: 68 65 20 50 75 72 70 6C 65 20 53 61 67 65 20 20 he Purple Sage
027670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0276A0: 20 20 20 20 20 00 00 0B 00 4D 69 63 68 61 65 6C ....Michael
0276B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0276C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0276D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0276E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0276F0: 20 20 20 20 20 20 20 20 20 00 00 08 00 52 69 64 ....Rid
027700: 2A 54 68 69 73 20 69 73 20 49 4E 54 52 4F 2E 43 *This is INTRO.C
027710: 4D 44 0D 0A 2A 20 54 68 65 20 73 63 72 65 65 6E MD..* The screen
027720: 20 69 6E 74 72 6F 64 75 63 65 73 20 64 42 41 53 introduces dBAS
027730: 45 20 49 49 20 61 6E 64 20 70 72 6F 76 69 64 65 E II and provide
027740: 73 20 6F 70 74 69 6F 6E 73 0D 0A 2A 20 74 6F 20 s options..* to
027750: 63 68 6F 6F 73 65 20 61 6E 20 61 70 70 6C 69 63 choose an applic
027760: 61 74 69 6F 6E 20 6F 72 20 65 78 69 74 2E 0D 0A ation or exit...
027770: 53 45 54 20 54 41 4C 4B 20 4F 46 46 0D 0A 53 45 SET TALK OFF..SE
027780: 54 20 42 45 4C 4C 20 4F 46 46 0D 0A 44 4F 20 57 T BELL OFF..DO W
027790: 48 49 4C 45 20 54 0D 0A 20 20 45 52 41 53 45 0D HILE T.. ERASE.
0277A0: 0A 53 45 54 20 49 4E 54 45 4E 53 49 54 59 20 4F .SET INTENSITY O
0277B0: 4E 0D 0A 20 20 53 54 4F 52 45 20 22 20 22 20 54 N.. STORE " " T
0277C0: 4F 20 6F 70 74 69 6F 6E 0D 0A 2A 20 54 68 69 73 O option..* This
0277D0: 20 73 65 63 74 69 6F 6E 20 64 72 61 77 73 20 66 section draws f
0277E0: 72 61 6D 65 0D 0A 20 20 40 20 20 31 2C 20 30 20 rame.. @ 1, 0
0277F0: 53 41 59 20 20 22 20 20 20 20 20 20 20 20 20 20 SAY "
027800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027820: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027830: 20 20 20 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 ;..
027840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027850: 20 20 20 20 22 0D 0A 20 20 20 20 53 54 4F 52 45 ".. STORE
027860: 20 31 20 54 4F 20 6C 69 6E 65 0D 0A 20 20 20 20 1 TO line..
027870: 20 20 44 4F 20 57 48 49 4C 45 20 6C 69 6E 65 3C DO WHILE line<
027880: 32 38 0D 0A 20 20 20 20 20 20 20 20 53 54 4F 52 28.. STOR
027890: 45 20 6C 69 6E 65 2B 31 20 54 4F 20 6C 69 6E 65 E line+1 TO line
0278A0: 0D 0A 20 20 20 20 20 20 20 20 40 20 6C 69 6E 65 .. @ line
0278B0: 2C 30 20 20 53 41 59 20 22 20 20 22 0D 0A 20 20 ,0 SAY " "..
0278C0: 20 20 20 20 20 20 40 20 6C 69 6E 65 2C 38 38 20 @ line,88
0278D0: 53 41 59 20 22 20 20 22 0D 0A 20 20 20 20 20 20 SAY " "..
0278E0: 45 4E 44 44 4F 20 57 48 49 4C 45 20 6C 69 6E 65 ENDDO WHILE line
0278F0: 3C 32 38 0D 0A 20 20 40 20 32 38 2C 30 20 20 53 <28.. @ 28,0 S
027900: 04 00 00 18 00 44 75 6E 65 20 4D 65 73 73 69 61 .....Dune Messia
027910: 68 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 h
027920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027950: 20 20 20 20 20 00 00 14 00 46 69 6E 6E 69 67 61 ....Finniga
027960: 6E 27 73 20 57 61 6B 65 20 20 20 20 20 20 20 20 n's Wake
027970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0279A0: 20 20 20 20 20 20 20 20 20 00 00 10 00 48 65 6E ....Hen
0279B0: 72 79 20 56 20 20 20 20 20 20 20 20 20 20 20 20 ry V
0279C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0279D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0279E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0279F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 0D ...
027A00: 00 49 6E 66 65 72 6E 6F 20 20 20 20 20 20 20 20 .Inferno
027A10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027A20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027A30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027A40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027A50: 20 00 00 14 00 46 69 6E 6E 69 67 61 6E 27 73 20 ....Finnigan's
027A60: 57 61 6B 65 20 20 20 20 20 20 20 20 20 20 20 20 Wake
027A70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027A80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027A90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027AA0: 20 20 20 20 20 00 00 10 00 48 65 6E 72 79 20 56 ....Henry V
027AB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027AD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027AE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027AF0: 20 20 20 20 20 20 20 20 20 00 00 0D 00 49 6E 66 ....Inf
027B00: 41 59 20 20 22 20 20 20 20 20 20 20 20 20 20 20 AY "
027B10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027B20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027B30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027B40: 20 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ;..
027B50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027B60: 20 20 22 0D 0A 0D 0A 2A 20 54 68 69 73 20 73 65 "....* This se
027B70: 63 74 69 6F 6E 20 66 6F 72 20 44 42 49 49 20 4C ction for DBII L
027B80: 6F 67 6F 0D 0A 2A 20 62 20 73 74 61 6E 64 73 20 ogo..* b stands
027B90: 66 6F 72 20 62 72 69 63 6B 0D 0A 20 20 53 54 4F for brick.. STO
027BA0: 52 45 20 22 20 20 20 20 22 20 54 4F 20 62 0D 0A RE " " TO b..
027BB0: 20 20 40 20 20 34 2C 32 32 20 53 41 59 20 20 62 @ 4,22 SAY b
027BC0: 2B 62 0D 0A 20 20 40 20 20 34 2C 33 34 20 53 41 +b.. @ 4,34 SA
027BD0: 59 20 20 62 2B 62 0D 0A 20 20 40 20 20 34 2C 35 Y b+b.. @ 4,5
027BE0: 38 20 53 41 59 20 20 62 2B 62 0D 0A 20 20 40 20 8 SAY b+b.. @
027BF0: 20 34 2C 37 30 20 53 41 59 20 20 62 2B 62 0D 0A 4,70 SAY b+b..
027C00: 20 20 20 20 53 54 4F 52 45 20 33 20 54 4F 20 6C STORE 3 TO l
027C10: 69 6E 65 0D 0A 20 20 20 20 20 20 44 4F 20 57 48 ine.. DO WH
027C20: 49 4C 45 20 6C 69 6E 65 3C 31 35 0D 0A 20 20 20 ILE line<15..
027C30: 20 20 20 20 20 53 54 4F 52 45 20 6C 69 6E 65 2B STORE line+
027C40: 31 20 54 4F 20 6C 69 6E 65 0D 0A 20 20 20 20 20 1 TO line..
027C50: 20 20 20 40 20 6C 69 6E 65 2C 32 34 20 53 41 59 @ line,24 SAY
027C60: 20 62 0D 0A 20 20 20 20 20 20 20 20 40 20 6C 69 b.. @ li
027C70: 6E 65 2C 33 36 20 53 41 59 20 62 0D 0A 20 20 20 ne,36 SAY b..
027C80: 20 20 20 20 20 40 20 6C 69 6E 65 2C 36 30 20 53 @ line,60 S
027C90: 41 59 20 62 0D 0A 20 20 20 20 20 20 20 20 40 20 AY b.. @
027CA0: 6C 69 6E 65 2C 37 32 20 53 41 59 20 62 0D 0A 20 line,72 SAY b..
027CB0: 20 20 20 20 20 45 4E 44 44 4F 20 57 48 49 4C 45 ENDDO WHILE
027CC0: 20 6C 69 6E 65 3C 31 35 0D 0A 20 20 40 20 31 35 line<15.. @ 15
027CD0: 2C 31 35 20 53 41 59 20 22 20 20 20 20 20 20 20 ,15 SAY "
027CE0: 20 20 20 20 20 20 20 20 22 0D 0A 20 20 40 20 31 ".. @ 1
027CF0: 35 2C 33 34 20 53 41 59 20 22 20 20 20 20 20 20 5,34 SAY "
027D00: 03 00 00 19 00 57 6F 72 6B 69 6E 67 20 77 69 74 .....Working wit
027D10: 68 20 64 42 61 73 65 20 49 49 20 20 20 20 20 20 h dBase II
027D20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027D30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027D40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027D50: 20 20 20 20 20 00 00 06 00 57 6F 72 6C 64 20 41 ....World A
027D60: 74 6C 61 73 20 20 20 20 20 20 20 20 20 20 20 20 tlas
027D70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027D80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027D90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027DA0: 20 20 20 20 20 20 20 20 20 00 00 1A 00 74 68 65 ....the
027DB0: 20 74 72 69 61 6C 73 20 74 72 69 62 75 6C 61 74 trials tribulat
027DC0: 69 6F 6E 73 20 6F 66 20 61 20 73 65 78 20 6D 61 ions of a sex ma
027DD0: 6E 69 61 63 73 77 69 66 65 20 20 20 20 20 20 20 niacswife
027DE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027DF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 0A ...
027E00: 00 57 61 72 20 61 6E 64 20 50 65 61 63 65 20 20 .War and Peace
027E10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027E20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027E30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027E40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027E50: 20 00 00 19 00 57 6F 72 6B 69 6E 67 20 77 69 74 ....Working wit
027E60: 68 20 64 42 61 73 65 20 49 49 20 20 20 20 20 20 h dBase II
027E70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027E90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027EA0: 20 20 20 20 20 00 00 06 00 57 6F 72 6C 64 20 41 ....World A
027EB0: 74 6C 61 73 20 20 20 20 20 20 20 20 20 20 20 20 tlas
027EC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027ED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027EE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027EF0: 20 20 20 20 20 20 20 20 20 00 00 1A 00 74 68 65 ....the
027F00: 20 20 20 20 20 20 20 20 20 22 0D 0A 20 20 40 20 ".. @
027F10: 31 35 2C 35 38 20 53 41 59 20 62 2B 62 0D 0A 20 15,58 SAY b+b..
027F20: 20 40 20 31 35 2C 37 30 20 53 41 59 20 62 2B 62 @ 15,70 SAY b+b
027F30: 0D 0A 20 20 40 20 31 34 2C 31 33 20 53 41 59 20 .. @ 14,13 SAY
027F40: 62 0D 0A 20 20 40 20 31 33 2C 31 32 20 53 41 59 b.. @ 13,12 SAY
027F50: 20 62 0D 0A 20 20 40 20 31 32 2C 31 31 20 53 41 b.. @ 12,11 SA
027F60: 59 20 62 0D 0A 20 20 40 20 31 31 2C 31 32 20 53 Y b.. @ 11,12 S
027F70: 41 59 20 62 0D 0A 20 20 40 20 31 30 2C 31 33 20 AY b.. @ 10,13
027F80: 53 41 59 20 62 0D 0A 20 20 40 20 20 39 2C 31 35 SAY b.. @ 9,15
027F90: 20 53 41 59 20 62 2B 62 2B 62 0D 0A 20 20 40 20 SAY b+b+b.. @
027FA0: 20 34 2C 34 30 20 53 41 59 20 62 2B 62 0D 0A 20 4,40 SAY b+b..
027FB0: 20 40 20 20 35 2C 34 36 20 53 41 59 20 62 0D 0A @ 5,46 SAY b..
027FC0: 20 20 40 20 20 36 2C 34 37 20 53 41 59 20 62 0D @ 6,47 SAY b.
027FD0: 0A 20 20 40 20 20 37 2C 34 37 20 53 41 59 20 62 . @ 7,47 SAY b
027FE0: 0D 0A 20 20 40 20 20 38 2C 34 36 20 53 41 59 20 .. @ 8,46 SAY
027FF0: 62 0D 0A 20 20 40 20 20 39 2C 34 30 20 53 41 59 b.. @ 9,40 SAY
028000: 20 62 2B 62 2B 22 20 22 0D 0A 20 20 40 20 31 30 b+b+" ".. @ 10
028010: 2C 34 37 20 53 41 59 20 62 0D 0A 20 20 40 20 31 ,47 SAY b.. @ 1
028020: 31 2C 34 38 20 53 41 59 20 62 0D 0A 20 20 40 20 1,48 SAY b.. @
028030: 31 32 2C 34 39 20 53 41 59 20 62 0D 0A 20 20 40 12,49 SAY b.. @
028040: 20 31 33 2C 34 38 20 53 41 59 20 62 0D 0A 20 20 13,48 SAY b..
028050: 40 20 31 34 2C 34 37 20 53 41 59 20 62 0D 0A 20 @ 14,47 SAY b..
028060: 20 20 20 53 45 54 20 49 4E 54 45 4E 53 49 54 59 SET INTENSITY
028070: 20 4F 46 46 0D 0A 2A 20 68 20 73 74 61 6E 64 73 OFF..* h stands
028080: 20 66 6F 72 20 68 6F 72 69 7A 6F 6E 74 61 6C 0D for horizontal.
028090: 0A 20 20 20 20 53 54 4F 52 45 20 43 48 52 28 31 . STORE CHR(1
0280A0: 33 38 29 20 54 4F 20 68 0D 0A 20 20 20 20 40 20 38) TO h.. @
0280B0: 31 34 2C 37 39 20 53 41 59 20 43 48 52 28 31 33 14,79 SAY CHR(13
0280C0: 34 29 2B 68 2B 68 2B 68 2B 68 2B 68 2B 68 2B 43 4)+h+h+h+h+h+h+C
0280D0: 48 52 28 31 34 30 29 0D 0A 20 20 20 20 40 20 31 HR(140).. @ 1
0280E0: 35 2C 37 39 20 53 41 59 20 43 48 52 28 31 33 33 5,79 SAY CHR(133
0280F0: 29 2B 22 76 20 32 2E 34 31 22 2B 43 48 52 28 31 )+"v 2.41"+CHR(1
028100: 03 00 00 13 00 54 65 6D 70 65 73 74 20 20 20 20 .....Tempest
028110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028150: 20 20 20 20 20 00 00 1D 00 57 48 41 54 20 45 43 ....WHAT EC
028160: 4F 4E 4F 4D 49 43 20 43 52 49 53 49 53 20 21 20 ONOMIC CRISIS !
028170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0281A0: 20 20 20 20 20 20 20 20 20 00 00 0A 00 57 61 72 ....War
0281B0: 20 61 6E 64 20 50 65 61 63 65 20 20 20 20 20 20 and Peace
0281C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0281D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0281E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0281F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 1C ...
028200: 00 54 48 45 20 4C 4F 53 53 20 4F 46 20 41 20 53 .THE LOSS OF A S
028210: 4F 4E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ON
028220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028250: 20 00 00 13 00 54 65 6D 70 65 73 74 20 20 20 20 ....Tempest
028260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0282A0: 20 20 20 20 20 00 00 1D 00 57 48 41 54 20 45 43 ....WHAT EC
0282B0: 4F 4E 4F 4D 49 43 20 43 52 49 53 49 53 20 21 20 ONOMIC CRISIS !
0282C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0282D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0282E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0282F0: 20 20 20 20 20 20 20 20 20 00 00 0A 00 57 61 72 ....War
028300: 33 33 29 0D 0A 20 20 20 20 40 20 31 36 2C 37 39 33).. @ 16,79
028310: 20 53 41 59 20 43 48 52 28 31 33 31 29 2B 68 2B SAY CHR(131)+h+
028320: 68 2B 68 2B 68 2B 68 2B 68 2B 43 48 52 28 31 33 h+h+h+h+h+CHR(13
028330: 37 29 0D 0A 20 20 20 20 53 45 54 20 49 4E 54 45 7).. SET INTE
028340: 4E 53 49 54 59 20 4F 4E 0D 0A 2A 20 54 68 69 73 NSITY ON..* This
028350: 20 73 65 63 74 69 6F 6E 20 74 6F 20 67 6F 20 6F section to go o
028360: 6E 20 6F 72 20 67 65 74 20 6F 75 74 2E 0D 0A 20 n or get out...
028370: 20 40 20 31 37 2C 32 36 20 53 41 59 20 20 22 20 @ 17,26 SAY "
028380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0283A0: 20 20 22 0D 0A 20 20 40 20 31 38 2C 32 36 20 53 ".. @ 18,26 S
0283B0: 41 59 20 20 22 20 20 20 20 42 2E 20 20 45 6E 74 AY " B. Ent
0283C0: 65 72 20 20 42 4F 4F 4B 53 20 20 70 72 6F 67 72 er BOOKS progr
0283D0: 61 6D 2E 20 20 20 20 20 22 0D 0A 20 20 40 20 31 am. ".. @ 1
0283E0: 39 2C 32 36 20 53 41 59 20 20 22 20 20 20 20 57 9,26 SAY " W
0283F0: 2E 20 20 44 6F 20 57 45 4C 43 4F 4D 45 20 20 20 . Do WELCOME
028400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 0D ".
028410: 0A 20 20 40 20 32 30 2C 32 36 20 53 41 59 20 20 . @ 20,26 SAY
028420: 22 20 20 20 20 4D 2E 20 20 44 6F 20 4D 45 4E 55 " M. Do MENU
028430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028440: 20 20 20 20 22 0D 0A 20 20 40 20 32 31 2C 32 36 ".. @ 21,26
028450: 20 53 41 59 20 20 22 20 20 20 20 48 2E 20 20 48 SAY " H. H
028460: 65 6C 70 21 20 20 20 20 20 20 20 20 20 20 20 20 elp!
028470: 20 20 20 20 20 20 20 20 20 20 22 0D 0A 20 20 40 ".. @
028480: 20 32 32 2C 32 36 20 53 41 59 20 20 22 20 20 20 22,26 SAY "
028490: 20 58 2E 20 20 45 78 69 74 20 74 6F 20 64 42 41 X. Exit to dBA
0284A0: 53 45 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 SE.
0284B0: 22 0D 0A 20 20 40 20 32 33 2C 32 36 20 53 41 59 ".. @ 23,26 SAY
0284C0: 20 20 22 20 20 20 20 51 2E 20 20 51 75 69 74 20 " Q. Quit
0284D0: 64 42 41 53 45 2E 20 20 20 20 20 20 20 20 20 20 dBASE.
0284E0: 20 20 20 20 20 20 22 0D 0A 20 20 40 20 32 34 2C ".. @ 24,
0284F0: 32 36 20 53 41 59 20 20 22 20 20 20 20 20 20 20 26 SAY "
028500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0285A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0285B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0285C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0285D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0285E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0285F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0286A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0286B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0286C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0286D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0286E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0286F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
028710: 22 00 01 00 02 09 52 E5 22 00 41 02 00 00 00 02 ".....R.".A.....
028720: 22 00 46 02 00 00 00 02 22 00 42 02 00 00 00 02 ".F.....".B.....
028730: 22 00 47 02 00 00 00 02 22 00 43 02 00 00 00 02 ".G.....".C.....
028740: 22 00 48 02 00 00 00 02 22 00 44 02 00 00 00 02 ".H.....".D.....
028750: 22 00 49 02 00 00 00 02 22 00 45 02 00 00 00 02 ".I.....".E.....
028760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028810: 20 20 20 20 20 20 20 20 20 20 20 20 22 0D 0A 20 "..
028820: 20 40 20 32 36 2C 32 39 20 53 41 59 20 20 22 20 @ 26,29 SAY "
028830: 50 6C 65 61 73 65 20 65 6E 74 65 72 20 79 6F 75 Please enter you
028840: 72 20 63 68 6F 69 63 65 20 22 20 47 45 54 20 6F r choice " GET o
028850: 70 74 69 6F 6E 20 50 49 43 54 55 52 45 20 22 21 ption PICTURE "!
028860: 22 0D 0A 2A 20 52 65 61 64 20 6F 70 74 69 6F 6E "..* Read option
028870: 20 70 69 63 74 75 72 65 0D 0A 20 20 52 45 41 44 picture.. READ
028880: 0D 0A 20 20 40 20 32 36 2C 32 39 20 53 41 59 20 .. @ 26,29 SAY
028890: 22 20 50 6C 65 61 73 65 20 77 61 69 74 20 61 20 " Please wait a
0288A0: 6D 6F 6D 65 6E 74 20 2E 2E 2E 2E 2E 20 22 0D 0A moment ..... "..
0288B0: 20 20 53 45 54 20 49 4E 54 45 4E 53 49 54 59 20 SET INTENSITY
0288C0: 4F 46 46 0D 0A 20 20 44 4F 20 43 41 53 45 0D 0A OFF.. DO CASE..
0288D0: 0D 0A 20 20 20 20 43 41 53 45 20 6F 70 74 69 6F .. CASE optio
0288E0: 6E 20 3D 20 22 58 22 0D 0A 20 20 20 20 20 20 43 n = "X".. C
0288F0: 4C 45 41 52 0D 0A 20 20 20 20 20 20 45 52 41 53 LEAR.. ERAS
028900: 45 0D 0A 20 20 20 20 20 20 52 45 54 55 52 4E 0D E.. RETURN.
028910: 0A 0D 0A 20 20 20 20 43 41 53 45 20 6F 70 74 69 ... CASE opti
028920: 6F 6E 20 3D 20 22 51 22 0D 0A 20 20 20 20 20 20 on = "Q"..
028930: 45 52 41 53 45 0D 0A 20 20 20 20 20 20 51 55 49 ERASE.. QUI
028940: 54 0D 0A 0D 0A 20 20 20 20 43 41 53 45 20 6F 70 T.... CASE op
028950: 74 69 6F 6E 20 3D 20 22 42 22 0D 0A 20 20 20 20 tion = "B"..
028960: 20 20 40 20 32 36 2C 31 30 20 53 41 59 20 22 20 @ 26,10 SAY "
028970: 4D 61 6B 65 20 73 75 72 65 20 79 6F 75 72 20 42 Make sure your B
028980: 4F 4F 4B 53 20 64 61 74 61 20 69 73 20 69 6E 20 OOKS data is in
028990: 74 68 65 20 64 65 66 61 75 6C 74 20 64 72 69 76 the default driv
0289A0: 65 20 61 6E 64 20 70 72 65 73 73 20 61 20 6B 65 e and press a ke
0289B0: 79 2E 20 22 0D 0A 20 20 20 20 20 20 57 41 49 54 y. ".. WAIT
0289C0: 0D 0A 20 20 20 20 20 20 44 4F 20 62 6F 6F 6B 73 .. DO books
0289D0: 0D 0A 0D 0A 20 20 20 20 43 41 53 45 20 6F 70 74 .... CASE opt
0289E0: 69 6F 6E 20 3D 20 22 4D 22 0D 0A 20 20 20 20 20 ion = "M"..
0289F0: 20 40 20 32 36 2C 31 30 20 53 41 59 20 22 20 4D @ 26,10 SAY " M
028A00: 20 20 20 22 5E 45 22 20 20 55 70 20 6F 6E 65 20 "^E" Up one
028A10: 66 69 65 6C 64 20 2F 73 63 72 6F 6C 6C 20 66 6D field /scroll fm
028A20: 20 74 6F 70 20 28 4D 6F 64 69 29 20 55 50 20 20 top (Modi) UP
028A30: 20 20 61 72 72 6F 77 0D 0A 20 20 20 20 20 31 34 arrow.. 14
028A40: 20 53 20 20 20 20 22 5E 52 22 20 20 53 61 76 65 S "^R" Save
028A50: 20 26 20 75 70 20 2F 20 73 63 72 6F 6C 6C 20 66 & up / scroll f
028A60: 6D 20 74 6F 70 20 28 4D 6F 64 69 29 20 20 20 64 m top (Modi) d
028A70: 69 74 74 6F 20 2B 20 5B 53 48 49 46 54 5D 0D 0A itto + [SHIFT]..
028A80: 0D 0A 20 20 20 20 20 30 36 20 4E 20 20 20 20 22 .. 06 N "
028A90: 5E 44 22 20 20 52 69 67 68 74 20 6F 6E 65 20 73 ^D" Right one s
028AA0: 70 61 63 65 20 20 20 20 20 20 20 20 20 20 20 20 pace
028AB0: 20 20 20 20 20 20 20 20 52 49 47 48 54 20 61 72 RIGHT ar
028AC0: 72 6F 77 0D 0A 20 20 20 20 20 30 36 20 53 20 20 row.. 06 S
028AD0: 20 20 22 5E 42 22 20 20 52 69 67 68 74 20 6F 6E "^B" Right on
028AE0: 65 20 66 69 65 6C 64 20 28 42 72 6F 77 73 65 29 e field (Browse)
028AF0: 20 20 20 20 20 20 20 20 20 20 20 64 69 74 74 6F ditto
028B00: 20 2B 20 5B 53 48 49 46 54 5D 0D 0A 0D 0A 20 20 + [SHIFT]....
028B10: 20 20 20 37 39 20 4E 20 20 20 20 22 5E 58 22 20 79 N "^X"
028B20: 20 44 6F 77 6E 20 6F 6E 65 20 66 69 65 6C 64 20 Down one field
028B30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028B40: 20 20 20 20 44 4F 57 4E 20 20 61 72 72 6F 77 0D DOWN arrow.
028B50: 0A 20 20 20 20 20 37 39 20 53 20 20 20 20 22 5E . 79 S "^
028B60: 43 22 20 20 53 61 76 65 20 26 20 64 6F 77 6E 20 C" Save & down
028B70: 2F 20 73 63 72 6F 6C 6C 20 64 6F 77 6E 20 28 4D / scroll down (M
028B80: 6F 64 69 29 20 20 20 64 69 74 74 6F 20 2B 20 5B odi) ditto + [
028B90: 53 48 49 46 54 5D 0D 0A 0D 0A 20 20 20 20 20 31 SHIFT].... 1
028BA0: 35 20 4E 20 20 20 20 22 5E 53 22 20 20 4C 65 66 5 N "^S" Lef
028BB0: 74 20 6F 6E 65 20 73 70 61 63 65 20 20 20 20 20 t one space
028BC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028BD0: 4C 45 46 54 20 20 61 72 72 6F 77 0D 0A 20 20 20 LEFT arrow..
028BE0: 20 20 31 35 20 53 20 20 20 20 22 5E 5A 22 20 20 15 S "^Z"
028BF0: 4C 65 66 74 20 6F 6E 65 20 66 69 65 6C 64 20 20 Left one field
028C00: 61 6B 65 20 73 75 72 65 20 79 6F 75 72 20 4D 45 ake sure your ME
028C10: 4E 55 20 64 61 74 61 20 69 73 20 69 6E 20 74 68 NU data is in th
028C20: 65 20 64 65 66 61 75 6C 74 20 64 72 69 76 65 20 e default drive
028C30: 61 6E 64 20 70 72 65 73 73 20 61 20 6B 65 79 2E and press a key.
028C40: 20 22 0D 0A 20 20 20 20 20 20 57 41 49 54 0D 0A ".. WAIT..
028C50: 20 20 20 20 20 20 44 4F 20 6D 65 6E 75 0D 0A 0D DO menu...
028C60: 0A 20 20 20 20 43 41 53 45 20 6F 70 74 69 6F 6E . CASE option
028C70: 20 3D 20 22 57 22 0D 0A 20 20 20 20 20 20 40 20 = "W".. @
028C80: 32 36 2C 31 30 20 53 41 59 20 22 20 45 6E 73 75 26,10 SAY " Ensu
028C90: 72 65 20 79 6F 75 72 20 57 45 4C 43 4F 4D 45 20 re your WELCOME
028CA0: 64 61 74 61 20 69 73 20 69 6E 20 74 68 65 20 64 data is in the d
028CB0: 65 66 61 75 6C 74 20 64 72 69 76 65 20 61 6E 64 efault drive and
028CC0: 20 70 72 65 73 73 20 61 20 6B 65 79 2E 20 22 0D press a key. ".
028CD0: 0A 20 20 20 20 20 20 57 41 49 54 0D 0A 20 20 20 . WAIT..
028CE0: 20 20 20 44 4F 20 77 65 6C 63 6F 6D 65 0D 0A 0D DO welcome...
028CF0: 0A 20 20 20 20 43 41 53 45 20 6F 70 74 69 6F 6E . CASE option
028D00: 20 3D 20 22 48 22 0D 0A 20 20 20 20 20 20 45 52 = "H".. ER
028D10: 41 53 45 0D 0A 20 20 20 20 20 20 68 65 6C 70 0D ASE.. help.
028D20: 0A 20 20 45 4E 44 43 41 53 45 0D 0A 45 4E 44 44 . ENDCASE..ENDD
028D30: 4F 0D 0A 0D 0A 1A 1A 20 20 20 20 20 20 20 20 20 O......
028D40: 20 20 20 20 22 0D 0A 20 20 40 20 32 31 2C 32 36 ".. @ 21,26
028D50: 20 53 41 59 20 20 22 20 20 20 20 48 2E 20 20 48 SAY " H. H
028D60: 65 6C 70 21 20 20 20 20 20 20 20 20 20 20 20 20 elp!
028D70: 20 20 20 20 20 20 20 20 20 20 22 0D 0A 20 20 40 ".. @
028D80: 20 32 32 2C 32 36 20 53 41 59 20 20 22 20 20 20 22,26 SAY "
028D90: 20 58 2E 20 20 45 78 69 74 20 74 6F 20 64 42 41 X. Exit to dBA
028DA0: 53 45 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 SE.
028DB0: 22 0D 0A 20 20 40 20 32 33 2C 32 36 20 53 41 59 ".. @ 23,26 SAY
028DC0: 20 20 22 20 20 20 20 51 2E 20 20 51 75 69 74 20 " Q. Quit
028DD0: 64 42 41 53 45 2E 20 20 20 20 20 20 20 20 20 20 dBASE.
028DE0: 20 20 20 20 20 20 22 0D 0A 20 20 40 20 32 34 2C ".. @ 24,
028DF0: 32 36 20 53 41 59 20 20 22 20 20 20 20 20 20 20 26 SAY "
028E00: 28 42 72 6F 77 73 65 29 20 20 20 20 20 20 20 20 (Browse)
028E10: 20 20 20 64 69 74 74 6F 20 2B 20 5B 53 48 49 46 ditto + [SHIF
028E20: 54 5D 0D 0A 0D 0A 20 20 20 20 20 32 33 20 4E 20 T].... 23 N
028E30: 53 20 20 22 5E 56 22 20 20 54 6F 67 67 6C 65 20 S "^V" Toggle
028E40: 69 6E 73 65 72 74 20 6F 6E 2F 6F 66 66 20 20 20 insert on/off
028E50: 20 20 20 20 20 20 20 20 20 20 20 20 5B 2B 5D 0D [+].
028E60: 0A 20 20 20 20 20 37 36 20 4E 20 53 20 20 22 5E . 76 N S "^
028E70: 55 22 20 20 54 6F 67 67 6C 65 20 72 65 63 6F 72 U" Toggle recor
028E80: 64 20 64 65 6C 20 6D 61 72 6B 20 6F 6E 2F 6F 66 d del mark on/of
028E90: 66 20 20 20 20 20 20 5B 2D 5D 0D 0A 20 20 20 20 f [-]..
028EA0: 20 31 36 20 4E 20 20 20 20 22 5E 47 22 20 20 44 16 N "^G" D
028EB0: 65 6C 65 74 65 20 63 68 72 20 61 74 20 63 75 72 elete chr at cur
028EC0: 73 6F 72 20 20 20 20 20 20 20 20 20 20 20 20 20 sor
028ED0: 20 20 5B 44 45 4C 3E 5D 0D 0A 20 20 20 20 20 31 [DEL>].. 1
028EE0: 36 20 53 20 20 20 20 22 5E 59 22 20 20 49 6E 73 6 S "^Y" Ins
028EF0: 65 72 74 20 62 6C 61 6E 6B 73 20 74 6F 20 65 6E ert blanks to en
028F00: 64 20 6F 66 20 66 69 65 6C 64 20 20 20 20 20 20 d of field
028F10: 5B 44 45 4C 3E 5D 20 2B 20 5B 53 48 49 46 54 5D [DEL>] + [SHIFT]
028F20: 0D 0A 20 20 20 20 20 31 30 20 4E 20 53 20 20 22 .. 10 N S "
028F30: 5E 54 22 20 20 44 65 6C 65 74 65 20 63 75 72 72 ^T" Delete curr
028F40: 65 6E 74 20 6C 69 6E 65 20 20 20 20 20 20 20 20 ent line
028F50: 20 20 20 20 20 20 20 20 5B 43 55 54 5D 0D 0A 20 [CUT]..
028F60: 20 20 20 20 30 33 20 4E 20 53 20 20 22 5E 4E 22 03 N S "^N"
028F70: 20 20 49 6E 73 65 72 74 20 6E 65 77 20 6C 69 6E Insert new lin
028F80: 65 20 61 74 20 63 75 72 73 6F 72 20 20 20 20 20 e at cursor
028F90: 20 20 20 20 20 5B 50 41 53 54 45 5D 0D 0A 20 20 [PASTE]..
028FA0: 20 20 20 31 31 20 4E 20 53 20 20 22 5E 57 22 20 11 N S "^W"
028FB0: 20 53 61 76 65 20 61 6E 64 20 72 65 74 75 72 6E Save and return
028FC0: 20 74 6F 20 64 6F 74 20 20 20 20 20 20 20 20 20 to dot
028FD0: 20 20 20 20 5B 43 4F 50 59 5D 0D 0A 20 20 20 20 [COPY]..
028FE0: 20 37 35 20 4E 20 53 20 20 22 5E 51 22 20 20 49 75 N S "^Q" I
028FF0: 67 6E 6F 72 65 20 63 68 61 6E 67 65 73 20 52 65 gnore changes Re
029000: 20 20 20 20 20 20 20 20 20 64 42 41 53 45 20 49 dBASE I
029010: 49 20 76 20 32 2E 34 31 20 2D 20 55 74 69 6C 69 I v 2.41 - Utili
029020: 74 69 65 73 20 66 6F 72 20 75 73 65 20 77 69 74 ties for use wit
029030: 68 20 74 68 65 20 41 6D 73 74 72 61 64 20 50 43 h the Amstrad PC
029040: 57 0D 0A 20 20 20 20 20 20 20 20 20 3D 3D 3D 3D W.. ====
029050: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
029060: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
029070: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
029080: 3D 3D 3D 3D 0D 0A 0D 0A 0D 0A 0D 0A 20 20 20 55 ====........ U
029090: 73 65 72 2D 64 65 66 69 6E 65 64 20 75 74 69 6C ser-defined util
0290A0: 69 74 69 65 73 20 66 6F 72 20 74 68 65 20 73 74 ities for the st
0290B0: 61 72 74 65 72 20 64 69 73 6B 20 61 72 65 20 6D arter disk are m
0290C0: 61 64 65 20 75 70 20 61 73 20 66 6F 6C 6C 6F 77 ade up as follow
0290D0: 73 20 3A 0D 0A 0D 0A 20 20 20 50 52 4F 46 49 4C s :.... PROFIL
0290E0: 45 2E 53 55 42 20 20 20 28 57 69 74 68 20 53 55 E.SUB (With SU
0290F0: 42 4D 49 54 2E 43 4F 4D 2C 20 69 73 20 74 68 65 BMIT.COM, is the
029100: 20 6D 61 73 74 65 72 20 20 64 42 41 53 45 20 73 master dBASE s
029110: 65 6C 66 2D 73 74 61 72 74 65 72 20 66 69 6C 65 elf-starter file
029120: 20 29 2E 0D 0A 20 20 20 55 4B 45 59 53 2E 44 42 )... UKEYS.DB
029130: 32 20 20 20 20 20 28 57 69 74 68 20 53 45 54 4B 2 (With SETK
029140: 45 59 53 2E 43 4F 4D 2C 20 69 74 20 6D 61 6B 65 EYS.COM, it make
029150: 73 20 67 6F 6F 64 20 75 73 65 20 20 6F 66 20 74 s good use of t
029160: 68 65 20 50 43 57 20 6B 65 79 62 6F 61 72 64 29 he PCW keyboard)
029170: 2E 0D 0A 20 20 20 55 42 4F 4C 44 2E 50 54 52 20 ... UBOLD.PTR
029180: 20 20 20 20 28 57 69 74 68 20 53 45 54 4C 53 54 (With SETLST
029190: 2E 43 4F 4D 2C 20 69 74 20 63 6F 6D 62 69 6E 65 .COM, it combine
0291A0: 73 20 73 70 65 65 64 20 77 69 74 68 20 63 6C 61 s speed with cla
0291B0: 72 69 74 79 20 6F 66 20 70 72 69 6E 74 29 2E 0D rity of print)..
0291C0: 0A 20 20 20 55 44 45 46 41 55 4C 54 2E 43 4D 44 . UDEFAULT.CMD
0291D0: 20 20 28 4C 69 73 74 73 20 20 43 4F 4D 4D 41 4E (Lists COMMAN
0291E0: 44 20 66 69 6C 65 73 20 6F 6E 20 42 3A 20 61 6E D files on B: an
0291F0: 64 20 20 6C 61 75 6E 63 68 65 73 20 79 6F 75 20 d launches you
029200: 74 75 72 6E 20 74 6F 20 64 6F 74 20 20 20 20 20 turn to dot
029210: 20 20 5B 43 41 4E 5D 0D 0A 0D 0A 20 20 20 20 20 [CAN]....
029220: 30 32 20 4E 20 20 20 20 22 5E 27 23 38 31 27 22 02 N "^'#81'"
029230: 20 20 20 20 20 20 20 20 53 45 54 20 44 45 46 41 SET DEFA
029240: 55 4C 54 20 54 4F 20 41 3A 20 20 20 20 20 20 20 ULT TO A:
029250: 20 20 20 20 20 20 5B 66 31 5D 0D 0A 20 20 20 20 [f1]..
029260: 20 30 32 20 53 20 20 20 20 22 5E 27 23 38 32 27 02 S "^'#82'
029270: 22 20 20 20 20 20 20 20 20 53 45 54 20 44 45 46 " SET DEF
029280: 41 55 4C 54 20 54 4F 20 42 3A 20 20 20 20 20 20 AULT TO B:
029290: 20 20 20 20 20 20 20 5B 66 32 5D 0D 0A 20 20 20 [f2]..
0292A0: 20 20 30 30 20 4E 20 53 20 20 22 5E 27 23 38 33 00 N S "^'#83
0292B0: 27 22 20 20 20 20 20 20 20 20 48 45 4C 50 21 20 '" HELP!
0292C0: 28 2B 20 63 6F 6D 6D 61 6E 64 20 6F 70 74 69 6F (+ command optio
0292D0: 6E 61 6C 29 20 20 20 20 5B 66 33 5D 20 5B 66 34 nal) [f3] [f4
0292E0: 5D 0D 0A 20 20 20 20 20 37 33 20 4E 20 20 20 20 ].. 73 N
0292F0: 22 5E 27 23 38 35 27 22 20 20 20 20 20 20 20 20 "^'#85'"
029300: 44 49 53 50 4C 41 59 20 4D 45 4D 4F 52 59 20 76 DISPLAY MEMORY v
029310: 61 72 69 61 62 6C 65 73 20 20 20 20 20 20 5B 66 ariables [f
029320: 35 5D 0D 0A 20 20 20 20 20 37 33 20 53 20 20 20 5].. 73 S
029330: 20 22 5E 27 23 38 36 27 22 20 20 20 20 20 20 20 "^'#86'"
029340: 20 44 49 53 50 4C 41 59 20 53 54 52 55 43 54 55 DISPLAY STRUCTU
029350: 52 45 20 6F 66 20 66 69 6C 65 20 20 20 20 20 5B RE of file [
029360: 66 36 5D 0D 0A 20 20 20 20 20 37 37 20 4E 20 20 f6].. 77 N
029370: 20 20 22 5E 27 23 38 37 27 22 20 20 20 20 20 20 "^'#87'"
029380: 20 20 44 49 53 50 4C 41 59 20 61 6C 6C 20 66 69 DISPLAY all fi
029390: 6C 65 73 20 6F 6E 20 64 65 66 61 75 6C 74 20 20 les on default
0293A0: 5B 66 37 5D 0D 0A 20 20 20 20 20 37 37 20 53 20 [f7].. 77 S
0293B0: 20 20 20 22 5E 27 23 38 38 27 22 20 20 20 20 20 "^'#88'"
0293C0: 20 20 20 4D 4F 44 49 46 59 20 43 4F 4D 4D 41 4E MODIFY COMMAN
0293D0: 44 20 66 69 6C 65 20 20 20 20 20 20 20 20 20 20 D file
0293E0: 20 5B 66 38 5D 0D 0A 20 20 20 20 20 30 37 20 4E [f8].. 07 N
0293F0: 20 20 20 20 22 5E 27 23 39 30 27 22 20 20 20 20 "^'#90'"
029400: 69 6E 74 6F 20 20 64 42 41 53 45 29 2E 0D 0A 0D into dBASE)....
029410: 0A 20 20 20 61 2E 20 46 69 6C 65 73 20 73 68 6F . a. Files sho
029420: 75 6C 64 20 62 65 20 77 72 69 74 74 65 6E 20 61 uld be written a
029430: 73 20 6C 69 73 74 65 64 20 69 66 20 79 6F 75 20 s listed if you
029440: 77 61 6E 74 20 74 68 65 6D 20 74 6F 20 63 6F 6E want them to con
029450: 74 61 69 6E 20 74 68 65 20 73 61 6D 65 0D 0A 20 tain the same..
029460: 20 20 20 20 20 70 61 72 61 6D 65 74 65 72 73 20 parameters
029470: 61 73 20 74 68 6F 73 65 20 63 6F 70 69 65 64 20 as those copied
029480: 74 6F 20 74 68 65 20 53 54 41 52 54 45 52 20 66 to the STARTER f
029490: 72 6F 6D 20 74 68 65 20 57 45 4C 43 4F 4D 45 2F rom the WELCOME/
0294A0: 45 58 41 4D 50 4C 45 53 20 64 69 73 6B 2E 0D 0A EXAMPLES disk...
0294B0: 0D 0A 20 20 20 62 2E 20 53 74 61 72 74 20 62 79 .. b. Start by
0294C0: 20 77 72 69 74 69 6E 67 20 50 52 4F 46 49 4C 45 writing PROFILE
0294D0: 2E 53 55 42 2C 20 75 73 69 6E 67 20 52 50 45 44 .SUB, using RPED
0294E0: 2C 20 45 44 20 6F 72 20 61 6E 79 20 6F 74 68 65 , ED or any othe
0294F0: 72 20 74 65 78 74 20 65 64 69 74 6F 72 2C 0D 0A r text editor,..
029500: 20 20 20 20 20 20 6C 69 6B 65 20 74 68 69 73 3A like this:
029510: 0D 0A 0D 0A 20 20 20 20 20 46 69 6C 65 20 62 65 .... File be
029520: 6C 6F 77 20 74 68 69 73 20 6C 69 6E 65 3A 20 5F low this line: _
029530: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F ________________
029540: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F ________________
029550: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F ________________
029560: 5F 5F 5F 0D 0A 0D 0A 20 20 20 20 20 3B 20 64 42 ___.... ; dB
029570: 41 53 45 20 70 72 6F 67 72 61 6D 20 66 69 6C 65 ASE program file
029580: 73 20 77 69 6C 6C 20 6E 6F 77 20 62 65 20 63 6F s will now be co
029590: 70 69 65 64 20 74 6F 20 44 72 69 76 65 20 4D 3A pied to Drive M:
0295A0: 20 66 6F 72 20 66 61 73 74 20 61 63 63 65 73 73 for fast access
0295B0: 2E 0D 0A 0D 0A 20 20 20 20 20 3B 20 54 68 65 20 ..... ; The
0295C0: 70 72 69 6E 74 65 72 20 77 69 6C 6C 20 62 65 20 printer will be
0295D0: 73 65 74 20 66 6F 72 20 63 6F 6E 74 69 6E 75 6F set for continuo
0295E0: 75 73 20 31 31 22 20 70 61 70 65 72 20 61 6E 64 us 11" paper and
0295F0: 20 62 6F 6C 64 20 70 72 69 6E 74 2E 0D 0A 0D 0A bold print.....
029600: 20 20 20 20 44 4F 20 69 6E 74 72 6F 64 75 63 74 DO introduct
029610: 6F 72 79 20 73 63 72 65 65 6E 20 20 20 20 20 20 ory screen
029620: 20 20 5B 67 72 69 64 5D 20 28 32 29 0D 0A 0D 0A [grid] (2)....
029630: 20 20 20 20 20 45 20 23 38 31 20 20 20 22 53 45 E #81 "SE
029640: 54 20 44 45 46 41 20 54 4F 20 41 20 5E 4D 22 0D T DEFA TO A ^M".
029650: 0A 20 20 20 20 20 45 20 23 38 32 20 20 20 22 53 . E #82 "S
029660: 45 54 20 44 45 46 41 20 54 4F 20 42 20 5E 4D 22 ET DEFA TO B ^M"
029670: 0D 0A 20 20 20 20 20 45 20 23 38 33 20 20 20 22 .. E #83 "
029680: 48 45 4C 50 20 22 0D 0A 20 20 20 20 20 45 20 23 HELP ".. E #
029690: 38 35 20 20 20 22 44 49 53 50 20 4D 45 4D 4F 20 85 "DISP MEMO
0296A0: 5E 4D 22 0D 0A 20 20 20 20 20 45 20 23 38 36 20 ^M".. E #86
0296B0: 20 20 22 4C 49 53 54 20 53 54 52 55 20 5E 4D 22 "LIST STRU ^M"
0296C0: 0D 0A 20 20 20 20 20 45 20 23 38 37 20 20 20 22 .. E #87 "
0296D0: 44 49 53 50 20 46 49 4C 45 20 4C 49 4B 45 20 2A DISP FILE LIKE *
0296E0: 2E 2A 20 5E 4D 22 0D 0A 20 20 20 20 20 45 20 23 .* ^M".. E #
0296F0: 38 38 20 20 20 22 4D 4F 44 49 20 43 4F 4D 4D 20 88 "MODI COMM
029700: 5E 4D 22 0D 0A 20 20 20 20 20 45 20 23 39 30 20 ^M".. E #90
029710: 20 20 22 44 4F 20 49 4E 54 52 4F 20 5E 4D 22 0D "DO INTRO ^M".
029720: 0A 0D 0A 20 20 20 20 20 46 69 6C 65 20 61 62 6F ... File abo
029730: 76 65 20 74 68 69 73 20 6C 69 6E 65 3A 20 2D 2D ve this line: --
029740: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
029750: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
029760: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
029770: 2D 2D 0D 0A 0D 0A 20 20 20 64 2E 20 20 55 42 4F --.... d. UBO
029780: 4C 44 2E 50 54 52 20 69 73 20 6A 75 73 74 20 74 LD.PTR is just t
029790: 77 6F 20 6C 69 6E 65 73 3A 0D 0A 0D 0A 20 20 20 wo lines:....
0297A0: 20 20 46 69 6C 65 20 62 65 6C 6F 77 20 74 68 69 File below thi
0297B0: 73 20 6C 69 6E 65 3A 20 5F 5F 5F 5F 5F 5F 5F 5F s line: ________
0297C0: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F ________________
0297D0: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F ________________
0297E0: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 0D 0A 0D 0A ____________....
0297F0: 20 20 20 20 20 5E 27 65 73 63 27 45 0D 0A 20 20 ^'esc'E..
029800: 20 20 20 20 20 3B 20 4B 65 79 73 20 77 69 6C 6C ; Keys will
029810: 20 62 65 20 73 65 74 20 66 6F 72 20 64 42 41 53 be set for dBAS
029820: 45 20 28 73 65 65 20 27 48 45 4C 50 20 20 4B 45 E (see 'HELP KE
029830: 59 53 27 29 2E 0D 0A 0D 0A 20 20 20 20 20 3B 20 YS')..... ;
029840: 64 42 41 53 45 20 43 6F 6D 6D 61 6E 64 20 28 2E dBASE Command (.
029850: 43 4D 44 29 20 66 69 6C 65 73 20 6F 6E 20 44 72 CMD) files on Dr
029860: 69 76 65 20 42 3A 20 77 69 6C 6C 20 62 65 20 64 ive B: will be d
029870: 69 73 70 6C 61 79 65 64 2E 0D 0A 0D 0A 20 20 20 isplayed.....
029880: 20 20 70 69 70 0D 0A 20 20 20 20 20 3C 6D 3A 3D pip.. <m:=
029890: 44 42 2A 2E 2A 0D 0A 20 20 20 20 20 3C 6D 3A 3D DB*.*.. <m:=
0298A0: 55 44 45 46 41 55 4C 54 2E 43 4D 44 5B 6F 5D 0D UDEFAULT.CMD[o].
0298B0: 0A 20 20 20 20 20 3C 6D 3A 3D 62 3A 44 42 41 53 . <m:=b:DBAS
0298C0: 45 4D 53 47 2E 54 58 54 5B 6F 5D 0D 0A 20 20 20 EMSG.TXT[o]..
0298D0: 20 20 3C 0D 0A 20 20 20 20 20 70 61 70 65 72 20 <.. paper
0298E0: 31 31 0D 0A 20 20 20 20 20 73 65 74 6B 65 79 73 11.. setkeys
0298F0: 20 55 4B 45 59 53 2E 44 42 32 0D 0A 20 20 20 20 UKEYS.DB2..
029900: 20 73 65 74 6C 73 74 20 20 55 42 4F 4C 44 2E 50 setlst UBOLD.P
029910: 54 52 0D 0A 20 20 20 20 20 6D 3A 0D 0A 20 20 20 TR.. m:..
029920: 20 20 64 62 61 73 65 20 75 64 65 66 61 75 6C 74 dbase udefault
029930: 0D 0A 0D 0A 20 20 20 20 20 46 69 6C 65 20 61 62 .... File ab
029940: 6F 76 65 20 74 68 69 73 20 6C 69 6E 65 3A 20 2D ove this line: -
029950: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
029960: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
029970: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
029980: 2D 2D 2D 0D 0A 0D 0A 20 20 20 63 2E 20 55 4B 45 ---.... c. UKE
029990: 59 53 2E 44 42 32 20 66 6F 6C 6C 6F 77 73 3A 0D YS.DB2 follows:.
0299A0: 0A 0D 0A 20 20 20 20 20 46 69 6C 65 20 62 65 6C ... File bel
0299B0: 6F 77 20 74 68 69 73 20 6C 69 6E 65 3A 20 5F 5F ow this line: __
0299C0: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F ________________
0299D0: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F ________________
0299E0: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F ________________
0299F0: 5F 5F 0D 0A 0D 0A 20 20 20 20 20 31 34 20 4E 20 __.... 14 N
029A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
029A10: 23 00 01 00 02 09 52 E5 23 00 41 02 00 00 00 02 #.....R.#.A.....
029A20: 23 00 46 02 00 00 00 02 23 00 42 02 00 00 00 02 #.F.....#.B.....
029A30: 23 00 47 02 00 00 00 02 23 00 43 02 00 00 00 02 #.G.....#.C.....
029A40: 23 00 48 02 00 00 00 02 23 00 44 02 00 00 00 02 #.H.....#.D.....
029A50: 23 00 49 02 00 00 00 02 23 00 45 02 00 00 00 02 #.I.....#.E.....
029A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029B00: 20 20 20 5E 27 65 73 63 27 64 0D 0A 0D 0A 20 20 ^'esc'd....
029B10: 20 20 20 46 69 6C 65 20 61 62 6F 76 65 20 74 68 File above th
029B20: 69 73 20 6C 69 6E 65 3A 20 2D 2D 2D 2D 2D 2D 2D is line: -------
029B30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
029B40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
029B50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D -------------...
029B60: 0A 20 20 20 65 2E 20 20 55 44 45 46 41 55 4C 54 . e. UDEFAULT
029B70: 2E 43 4D 44 20 69 73 20 61 20 73 69 6D 70 6C 65 .CMD is a simple
029B80: 20 64 42 41 53 45 20 43 4F 4D 4D 41 4E 44 20 46 dBASE COMMAND F
029B90: 49 4C 45 20 61 73 20 66 6F 6C 6C 6F 77 73 3A 0D ILE as follows:.
029BA0: 0A 0D 0A 20 20 20 20 20 46 69 6C 65 20 62 65 6C ... File bel
029BB0: 6F 77 20 74 68 69 73 20 6C 69 6E 65 3A 20 5F 5F ow this line: __
029BC0: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F ________________
029BD0: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F ________________
029BE0: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F ________________
029BF0: 5F 5F 0D 0A 0D 0A 20 20 20 20 20 53 45 54 20 44 __.... SET D
029C00: 45 46 41 55 4C 54 20 54 4F 20 42 0D 0A 20 20 20 EFAULT TO B..
029C10: 20 20 53 45 54 20 49 4E 54 45 4E 53 49 54 59 20 SET INTENSITY
029C20: 4F 46 46 0D 0A 20 20 20 20 20 45 52 41 53 45 0D OFF.. ERASE.
029C30: 0A 0D 0A 20 20 20 20 20 54 45 58 54 0D 0A 20 20 ... TEXT..
029C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
029C50: 20 20 20 20 20 20 20 20 50 72 65 73 73 20 61 6E Press an
029C60: 79 20 6B 65 79 20 74 6F 20 64 69 73 70 6C 61 79 y key to display
029C70: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
029C80: 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D ----
029C90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
029CA0: 2D 2D 2D 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 ----..
029CB0: 20 20 20 20 20 64 42 41 53 45 20 43 6F 6D 6D 61 dBASE Comma
029CC0: 6E 64 20 66 69 6C 65 73 20 6F 6E 20 74 68 65 20 nd files on the
029CD0: 64 61 74 61 20 64 69 73 63 20 69 6E 20 44 72 69 data disc in Dri
029CE0: 76 65 20 42 3A 0D 0A 20 20 20 20 20 20 20 20 20 ve B:..
029CF0: 20 20 20 20 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ==========
029D00: 32 20 73 61 79 20 20 22 20 51 2E 20 51 75 69 74 2 say " Q. Quit
029D10: 20 64 42 41 53 45 20 20 20 20 20 20 20 20 20 20 dBASE
029D20: 20 20 20 20 20 20 20 20 20 20 20 22 0D 0A 20 20 "..
029D30: 20 20 20 20 20 40 20 32 30 2C 32 32 20 73 61 79 @ 20,22 say
029D40: 20 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 "
029D50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
029D60: 20 20 20 20 20 20 22 0D 0A 20 20 20 20 20 20 20 "..
029D70: 40 20 32 34 2C 32 35 20 73 61 79 20 20 22 20 50 @ 24,25 say " P
029D80: 6C 65 61 73 65 20 65 6E 74 65 72 20 79 6F 75 72 lease enter your
029D90: 20 63 68 6F 69 63 65 20 22 20 47 45 54 20 6F 70 choice " GET op
029DA0: 74 69 6F 6E 20 50 49 43 54 55 52 45 20 22 21 22 tion PICTURE "!"
029DB0: 0D 0A 20 20 20 20 20 20 20 72 65 61 64 0D 0A 20 .. read..
029DC0: 20 20 20 20 20 20 40 20 32 34 2C 32 35 20 73 61 @ 24,25 sa
029DD0: 79 20 22 20 50 6C 65 61 73 65 20 77 61 69 74 20 y " Please wait
029DE0: 61 20 6D 6F 6D 65 6E 74 20 2E 2E 2E 2E 2E 20 22 a moment ..... "
029DF0: 0D 0A 20 20 20 20 20 20 20 73 65 74 20 69 6E 74 .. set int
029E00: 65 6E 73 69 74 79 20 6F 66 66 0D 0A 20 20 20 20 ensity off..
029E10: 20 20 20 64 6F 20 63 61 73 65 0D 0A 20 20 20 20 do case..
029E20: 20 20 20 20 20 43 41 53 45 20 6F 70 74 69 6F 6E CASE option
029E30: 20 3D 20 22 58 22 0D 0A 20 20 20 20 20 20 20 20 = "X"..
029E40: 20 20 20 43 4C 45 41 52 0D 0A 20 20 20 20 20 20 CLEAR..
029E50: 20 20 20 20 20 45 52 41 53 45 0D 0A 20 20 20 20 ERASE..
029E60: 20 20 20 20 20 20 20 44 4F 20 69 6E 74 72 31 0D DO intr1.
029E70: 0A 20 20 20 20 20 20 20 20 20 63 61 73 65 20 6F . case o
029E80: 70 74 69 6F 6E 20 3D 20 22 51 22 0D 0A 20 20 20 ption = "Q"..
029E90: 20 20 20 20 20 20 20 20 65 72 61 73 65 0D 0A 20 erase..
029EA0: 20 20 20 20 20 20 20 20 20 20 71 75 69 74 0D 0A quit..
029EB0: 20 20 20 20 20 20 20 20 20 63 61 73 65 20 6F 70 case op
029EC0: 74 69 6F 6E 20 3D 20 22 31 22 0D 0A 20 20 20 20 tion = "1"..
029ED0: 20 20 20 20 20 20 20 64 6F 20 62 6F 6F 6B 73 31 do books1
029EE0: 0D 0A 20 20 20 20 20 20 20 20 20 63 61 73 65 20 .. case
029EF0: 6F 70 74 69 6F 6E 20 3D 20 22 32 22 0D 0A 20 20 option = "2"..
029F00: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
029F10: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
029F20: 3D 3D 3D 3D 3D 3D 0D 0A 20 20 20 20 20 45 4E 44 ======.. END
029F30: 54 45 58 54 0D 0A 0D 0A 20 20 20 20 20 57 41 49 TEXT.... WAI
029F40: 54 0D 0A 20 20 20 20 20 44 49 53 50 4C 41 59 20 T.. DISPLAY
029F50: 46 49 4C 45 53 20 4C 49 4B 45 20 2A 2E 43 4D 44 FILES LIKE *.CMD
029F60: 0D 0A 0D 0A 20 20 20 20 20 53 45 54 20 49 4E 54 .... SET INT
029F70: 45 4E 53 49 54 59 20 4F 4E 0D 0A 0D 0A 20 20 20 ENSITY ON....
029F80: 40 20 32 36 2C 37 20 53 41 59 20 22 20 20 20 20 @ 26,7 SAY "
029F90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
029FA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
029FB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
029FC0: 20 20 20 20 20 20 20 20 20 20 20 20 3B 0D 0A 20 ;..
029FD0: 20 20 20 20 20 20 20 20 20 20 22 0D 0A 20 20 20 "..
029FE0: 40 20 32 37 2C 37 20 53 41 59 20 22 20 20 20 20 @ 27,7 SAY "
029FF0: 20 20 20 59 6F 75 20 6D 61 79 20 63 68 6F 6F 73 You may choos
02A000: 65 20 74 6F 20 27 44 4F 27 20 61 6E 79 20 6F 66 e to 'DO' any of
02A010: 20 74 68 65 20 61 62 6F 76 65 20 43 6F 6D 6D 61 the above Comma
02A020: 6E 64 20 66 69 6C 65 73 20 20 20 20 3B 0D 0A 20 nd files ;..
02A030: 20 20 20 20 20 20 20 20 20 20 22 0D 0A 20 20 20 "..
02A040: 40 20 32 38 2C 37 20 53 41 59 20 22 20 6F 72 20 @ 28,7 SAY " or
02A050: 63 68 61 6E 67 65 20 74 6F 20 61 6E 6F 74 68 65 change to anothe
02A060: 72 20 44 41 54 41 20 64 69 73 63 20 61 6E 64 20 r DATA disc and
02A070: 70 72 65 73 73 20 5B 66 37 5D 20 74 6F 20 64 69 press [f7] to di
02A080: 73 70 6C 61 79 20 61 20 64 69 72 65 3B 0D 0A 20 splay a dire;..
02A090: 20 20 63 74 6F 72 79 20 22 0D 0A 20 20 20 40 20 ctory ".. @
02A0A0: 32 39 2C 37 20 53 41 59 20 22 20 6F 72 20 79 6F 29,7 SAY " or yo
02A0B0: 75 20 6D 61 79 20 20 20 63 61 6C 6C 20 66 6F 72 u may call for
02A0C0: 20 48 45 4C 50 2C 20 20 20 75 73 65 20 61 6E 79 HELP, use any
02A0D0: 20 6F 74 68 65 72 20 64 42 41 53 45 20 63 6F 6D other dBASE com
02A0E0: 6D 61 6E 64 20 20 20 6F 72 20 3B 0D 0A 20 20 20 mand or ;..
02A0F0: 51 55 49 54 2E 20 22 0D 0A 20 20 20 40 20 33 30 QUIT. ".. @ 30
02A100: 20 20 20 20 20 20 20 20 20 64 6F 20 62 6F 6F 6B do book
02A110: 73 32 0D 0A 20 20 20 20 20 20 20 20 20 63 61 73 s2.. cas
02A120: 65 20 6F 70 74 69 6F 6E 20 3D 20 22 33 22 0D 0A e option = "3"..
02A130: 20 20 20 20 20 20 20 20 20 20 20 64 6F 20 62 6F do bo
02A140: 6F 6B 73 33 0D 0A 20 20 20 20 20 20 20 20 20 63 oks3.. c
02A150: 61 73 65 20 6F 70 74 69 6F 6E 20 3D 20 22 34 22 ase option = "4"
02A160: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 64 6F 20 .. do
02A170: 62 6F 6F 6B 73 34 0D 0A 20 20 20 20 20 20 20 20 books4..
02A180: 20 63 61 73 65 20 6F 70 74 69 6F 6E 20 3D 20 22 case option = "
02A190: 35 22 0D 0A 20 20 20 20 20 20 20 20 20 20 20 64 5".. d
02A1A0: 6F 20 62 6F 6F 6B 73 35 0D 0A 20 20 20 20 20 20 o books5..
02A1B0: 20 20 20 63 61 73 65 20 6F 70 74 69 6F 6E 20 3D case option =
02A1C0: 20 22 36 22 0D 0A 20 20 20 20 20 20 20 20 20 20 "6"..
02A1D0: 20 64 6F 20 62 6F 6F 6B 73 36 0D 0A 20 20 20 20 do books6..
02A1E0: 20 20 20 20 20 63 61 73 65 20 6F 70 74 69 6F 6E case option
02A1F0: 20 3D 20 22 37 22 0D 0A 20 20 20 20 20 20 20 20 = "7"..
02A200: 20 20 20 64 6F 20 62 6F 6F 6B 73 37 0D 0A 20 20 do books7..
02A210: 20 20 20 20 20 20 20 63 61 73 65 20 6F 70 74 69 case opti
02A220: 6F 6E 20 3D 20 22 38 22 0D 0A 20 20 20 20 20 20 on = "8"..
02A230: 20 20 20 20 20 64 6F 20 62 6F 6F 6B 73 38 0D 0A do books8..
02A240: 20 20 20 20 20 20 20 65 6E 64 63 61 73 65 0D 0A endcase..
02A250: 20 20 20 20 20 65 6E 64 64 6F 0D 0A 0D 0A 0A 0D enddo......
02A260: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 1A ................
02A270: 20 3D 20 22 37 22 0D 0A 20 20 20 20 20 20 20 20 = "7"..
02A280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02A290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02A2A0: 20 20 20 20 20 08 00 0A 00 57 61 72 20 61 6E 64 ....War and
02A2B0: 20 50 65 61 63 65 20 20 20 20 20 20 20 20 20 20 Peace
02A2C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02A2D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02A2E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02A2F0: 20 20 20 20 20 20 20 20 20 07 00 06 00 57 6F 72 ....Wor
02A300: 2C 37 20 53 41 59 20 22 20 20 20 20 20 20 20 20 ,7 SAY "
02A310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02A320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02A330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02A340: 20 20 20 20 20 20 20 20 3B 0D 0A 20 20 20 20 20 ;..
02A350: 20 20 20 20 20 20 22 0D 0A 20 20 20 53 45 54 20 ".. SET
02A360: 49 4E 54 45 4E 53 49 54 59 20 4F 46 46 0D 0A 20 INTENSITY OFF..
02A370: 20 20 3F 0D 0A 20 20 20 3F 0D 0A 20 20 20 43 4C ?.. ?.. CL
02A380: 45 41 52 0D 0A 20 20 20 52 45 54 55 52 4E 0D 0A EAR.. RETURN..
02A390: 0D 0A 20 20 20 20 20 46 69 6C 65 20 61 62 6F 76 .. File abov
02A3A0: 65 20 74 68 69 73 20 6C 69 6E 65 3A 20 2D 2D 2D e this line: ---
02A3B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
02A3C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
02A3D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
02A3E0: 2D 0D 0A 0D 0A 20 20 20 20 20 4E 2E 42 2E 20 20 -.... N.B.
02A3F0: 54 68 65 73 65 20 66 69 6C 65 73 20 68 61 76 65 These files have
02A400: 20 62 65 65 6E 20 66 6F 75 6E 64 20 74 6F 20 67 been found to g
02A410: 69 76 65 20 61 20 71 75 69 74 65 20 61 20 6E 65 ive a quite a ne
02A420: 61 74 20 69 6E 70 6C 65 6D 65 6E 74 61 74 69 6F at inplementatio
02A430: 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 6F 66 n.. of
02A440: 20 64 42 41 53 45 20 6F 6E 20 74 68 65 20 50 43 dBASE on the PC
02A450: 57 2E 20 20 50 6C 65 61 73 65 20 74 61 6B 65 20 W. Please take
02A460: 20 61 20 62 61 63 6B 75 70 20 63 6F 70 79 20 20 a backup copy
02A470: 62 65 66 6F 72 65 20 79 6F 75 20 6D 61 6B 65 0D before you make.
02A480: 0A 20 20 20 20 20 20 20 20 20 20 20 79 6F 75 72 . your
02A490: 20 6F 77 6E 20 69 6D 70 72 6F 76 65 6D 65 6E 74 own improvement
02A4A0: 73 2E 0D 0A 1A 70 6C 65 6D 65 6E 74 61 74 69 6F s....plementatio
02A4B0: 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 6F 66 n.. of
02A4C0: 20 64 42 41 53 45 20 6F 6E 20 74 68 65 20 50 43 dBASE on the PC
02A4D0: 57 2E 20 20 50 6C 65 61 73 65 20 74 61 6B 65 20 W. Please take
02A4E0: 20 61 20 62 61 63 6B 75 70 20 63 6F 70 79 20 20 a backup copy
02A4F0: 62 65 66 6F 72 65 20 79 6F 75 20 6D 61 6B 65 0D before you make.
02A500: 2A 20 54 68 69 73 20 69 73 20 49 4E 54 52 31 2E * This is INTR1.
02A510: 43 4D 44 0D 0A 2A 20 54 68 69 73 20 73 63 72 65 CMD..* This scre
02A520: 65 6E 20 69 73 20 74 68 65 20 6E 6F 72 6D 61 6C en is the normal
02A530: 20 64 42 41 53 45 20 49 49 20 6D 65 6E 75 20 70 dBASE II menu p
02A540: 72 6F 76 69 64 69 6E 67 20 6F 70 74 69 6F 6E 73 roviding options
02A550: 0D 0A 2A 20 74 6F 20 63 68 6F 6F 73 65 20 61 6E ..* to choose an
02A560: 20 61 70 70 6C 69 63 61 74 69 6F 6E 20 6F 72 20 application or
02A570: 65 78 69 74 2E 0D 0A 53 45 54 20 54 41 4C 4B 20 exit...SET TALK
02A580: 4F 46 46 0D 0A 53 45 54 20 42 45 4C 4C 20 4F 46 OFF..SET BELL OF
02A590: 46 0D 0A 44 4F 20 57 48 49 4C 45 20 54 0D 0A 20 F..DO WHILE T..
02A5A0: 20 45 52 41 53 45 0D 0A 53 45 54 20 49 4E 54 45 ERASE..SET INTE
02A5B0: 4E 53 49 54 59 20 4F 46 46 0D 0A 53 54 4F 52 45 NSITY OFF..STORE
02A5C0: 20 22 20 22 20 54 4F 20 6F 70 74 69 6F 6E 0D 0A " " TO option..
02A5D0: 2A 20 68 20 73 74 61 6E 64 73 20 66 6F 72 20 68 * h stands for h
02A5E0: 6F 72 69 7A 6F 6E 74 61 6C 0D 0A 20 20 20 20 53 orizontal.. S
02A5F0: 54 4F 52 45 20 43 48 52 28 31 35 34 29 20 54 4F TORE CHR(154) TO
02A600: 20 68 0D 0A 2A 20 76 20 73 74 61 6E 64 73 20 66 h..* v stands f
02A610: 6F 72 20 76 65 72 74 69 63 61 6C 0D 0A 20 20 20 or vertical..
02A620: 20 53 54 4F 52 45 20 43 48 52 28 31 34 39 29 20 STORE CHR(149)
02A630: 54 4F 20 76 0D 0A 53 54 4F 52 45 20 22 5C 22 20 TO v..STORE "\"
02A640: 54 4F 20 73 0D 0A 2A 20 54 68 69 73 20 73 65 63 TO s..* This sec
02A650: 74 69 6F 6E 20 74 6F 20 67 6F 20 6F 6E 20 6F 72 tion to go on or
02A660: 20 67 65 74 20 6F 75 74 2E 0D 0A 20 20 40 20 31 get out... @ 1
02A670: 30 2C 32 38 20 53 41 59 20 43 48 52 28 31 35 30 0,28 SAY CHR(150
02A680: 29 2B 68 2B 68 2B 68 2B 68 2B 68 2B 68 2B 68 2B )+h+h+h+h+h+h+h+
02A690: 68 2B 68 2B 68 2B 68 2B 68 2B 68 2B 68 2B 68 2B h+h+h+h+h+h+h+h+
02A6A0: 68 2B 68 2B 68 3B 0D 0A 2B 68 2B 68 2B 68 2B 68 h+h+h;..+h+h+h+h
02A6B0: 2B 68 2B 68 2B 68 2B 68 2B 68 2B 68 2B 43 48 52 +h+h+h+h+h+h+CHR
02A6C0: 28 31 35 36 29 0D 0A 20 20 40 20 31 31 2C 32 38 (156).. @ 11,28
02A6D0: 20 53 41 59 20 20 76 2B 22 20 42 2E 20 20 45 6E SAY v+" B. En
02A6E0: 74 65 72 20 20 42 4F 4F 4B 53 20 20 70 72 6F 67 ter BOOKS prog
02A6F0: 72 61 6D 2E 20 22 2B 76 0D 0A 20 20 40 20 31 32 ram. "+v.. @ 12
02A700: 0D 0A 0D 0A 0D 0A 20 20 20 20 20 73 65 74 20 74 ...... set t
02A710: 61 6C 6B 20 6F 66 66 0D 0A 20 20 20 20 20 73 65 alk off.. se
02A720: 74 20 62 65 6C 6C 20 6F 66 66 0D 0A 20 20 20 20 t bell off..
02A730: 20 64 6F 20 77 68 69 6C 65 20 54 0D 0A 20 20 20 do while T..
02A740: 20 20 20 20 65 72 61 73 65 0D 0A 20 20 20 20 20 erase..
02A750: 73 65 74 20 69 6E 74 65 6E 73 69 74 79 20 6F 6E set intensity on
02A760: 0D 0A 20 20 20 20 20 20 20 73 74 6F 72 65 20 22 .. store "
02A770: 20 22 20 74 6F 20 6F 70 74 69 6F 6E 0D 0A 20 20 " to option..
02A780: 20 20 20 20 20 40 20 20 33 2C 32 32 20 73 61 79 @ 3,22 say
02A790: 20 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 "
02A7A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02A7B0: 20 20 20 20 20 20 22 0D 0A 20 20 20 20 20 20 20 "..
02A7C0: 40 20 20 34 2C 32 32 20 73 61 79 20 20 22 20 20 @ 4,22 say "
02A7D0: 20 20 54 48 45 20 43 4F 46 46 45 52 49 44 47 45 THE COFFERIDGE
02A7E0: 20 48 41 4C 4C 20 4C 49 42 52 41 52 59 20 20 20 HALL LIBRARY
02A7F0: 20 22 0D 0A 20 20 20 20 20 20 20 40 20 20 35 2C ".. @ 5,
02A800: 32 32 20 73 61 79 20 20 22 20 20 20 20 7E 7E 7E 22 say " ~~~
02A810: 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E 7E ~~~~~~~~~~~~~~~~
02A820: 7E 7E 7E 7E 7E 7E 7E 7E 20 20 20 20 22 0D 0A 20 ~~~~~~~~ "..
02A830: 20 20 20 20 20 20 40 20 20 37 2C 32 32 20 73 61 @ 7,22 sa
02A840: 79 20 20 22 20 20 20 20 20 20 20 20 20 20 20 20 y "
02A850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02A860: 20 20 20 20 20 20 20 22 0D 0A 20 20 20 20 20 20 "..
02A870: 20 40 20 20 38 2C 32 32 20 73 61 79 20 20 22 20 @ 8,22 say "
02A880: 31 2E 20 41 64 64 20 61 20 42 6F 6F 6B 20 20 20 1. Add a Book
02A890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02A8A0: 20 20 22 0D 0A 20 20 20 20 20 20 20 40 20 20 39 ".. @ 9
02A8B0: 2C 32 32 20 73 61 79 20 20 22 20 32 2E 20 43 68 ,22 say " 2. Ch
02A8C0: 61 6E 67 65 20 64 65 74 61 69 6C 73 20 61 6C 72 ange details alr
02A8D0: 65 61 64 79 20 65 6E 74 65 72 65 64 20 22 0D 0A eady entered "..
02A8E0: 20 20 20 20 20 20 20 40 20 31 30 2C 32 32 20 73 @ 10,22 s
02A8F0: 61 79 20 20 22 20 33 2E 20 44 65 6C 65 74 65 20 ay " 3. Delete
02A900: 2C 32 38 20 53 41 59 20 20 76 2B 22 20 57 2E 20 ,28 SAY v+" W.
02A910: 20 44 6F 20 57 45 4C 43 4F 4D 45 20 20 20 20 20 Do WELCOME
02A920: 20 20 20 20 20 20 20 20 22 2B 76 0D 0A 20 20 40 "+v.. @
02A930: 20 31 33 2C 32 38 20 53 41 59 20 20 76 2B 22 20 13,28 SAY v+"
02A940: 4D 2E 20 20 44 6F 20 4D 45 4E 55 20 20 20 20 20 M. Do MENU
02A950: 20 20 20 20 20 20 20 20 20 20 20 22 2B 76 0D 0A "+v..
02A960: 20 20 40 20 31 34 2C 32 38 20 53 41 59 20 20 76 @ 14,28 SAY v
02A970: 2B 22 20 48 2E 20 20 48 65 6C 70 21 20 20 20 20 +" H. Help!
02A980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2B "+
02A990: 76 0D 0A 20 20 40 20 31 35 2C 32 38 20 53 41 59 v.. @ 15,28 SAY
02A9A0: 20 20 76 2B 22 20 58 2E 20 20 45 78 69 74 20 74 v+" X. Exit t
02A9B0: 6F 20 64 42 41 53 45 2E 20 20 20 20 20 20 20 20 o dBASE.
02A9C0: 20 22 2B 76 0D 0A 20 20 40 20 31 36 2C 32 38 20 "+v.. @ 16,28
02A9D0: 53 41 59 20 20 76 2B 22 20 51 2E 20 20 51 75 69 SAY v+" Q. Qui
02A9E0: 74 20 64 42 41 53 45 2E 20 20 20 20 20 20 20 20 t dBASE.
02A9F0: 20 20 20 20 22 2B 76 0D 0A 20 20 40 20 31 37 2C "+v.. @ 17,
02AA00: 32 38 20 53 41 59 20 43 48 52 28 31 34 37 29 2B 28 SAY CHR(147)+
02AA10: 68 2B 68 2B 68 2B 68 2B 68 2B 68 2B 68 2B 68 2B h+h+h+h+h+h+h+h+
02AA20: 68 2B 68 2B 68 2B 68 2B 68 2B 68 2B 68 2B 68 2B h+h+h+h+h+h+h+h+
02AA30: 68 2B 68 3B 0D 0A 2B 68 2B 68 2B 68 2B 68 2B 68 h+h;..+h+h+h+h+h
02AA40: 2B 68 2B 68 2B 68 2B 68 2B 68 2B 43 48 52 28 31 +h+h+h+h+h+CHR(1
02AA50: 35 33 29 0D 0A 2A 20 41 2D 54 20 4C 6F 67 6F 0D 53)..* A-T Logo.
02AA60: 0A 20 20 40 20 20 33 2C 34 33 20 53 41 59 20 73 . @ 3,43 SAY s
02AA70: 0D 0A 20 20 40 20 20 34 2C 34 32 20 53 41 59 20 .. @ 4,42 SAY
02AA80: 73 2B 22 20 22 2B 73 0D 0A 20 20 40 20 20 35 2C s+" "+s.. @ 5,
02AA90: 34 31 20 53 41 59 20 73 2B 22 20 22 2B 73 2B 73 41 SAY s+" "+s+s
02AAA0: 2B 73 0D 0A 20 20 40 20 20 36 2C 34 30 20 53 41 +s.. @ 6,40 SA
02AAB0: 59 20 73 2B 22 20 22 2B 73 2B 73 2B 73 2B 73 2B Y s+" "+s+s+s+s+
02AAC0: 73 0D 0A 20 20 40 20 20 37 2C 33 39 20 53 41 59 s.. @ 7,39 SAY
02AAD0: 20 73 2B 22 20 22 2B 73 2B 73 2B 73 2B 73 2B 73 s+" "+s+s+s+s+s
02AAE0: 2B 73 2B 73 0D 0A 20 20 40 20 20 38 2C 33 37 20 +s+s.. @ 8,37
02AAF0: 53 41 59 20 22 2E 22 2B 73 2B 22 20 22 2B 73 2B SAY "."+s+" "+s+
02AB00: 61 6E 20 45 6E 74 72 79 20 20 20 20 20 20 20 20 an Entry
02AB10: 20 20 20 20 20 20 20 20 22 0D 0A 20 20 20 20 20 "..
02AB20: 20 20 40 20 31 31 2C 32 32 20 73 61 79 20 20 22 @ 11,22 say "
02AB30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02AB40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02AB50: 20 20 20 22 0D 0A 20 20 20 20 20 20 20 40 20 31 ".. @ 1
02AB60: 32 2C 32 32 20 73 61 79 20 20 22 20 34 2E 20 54 2,22 say " 4. T
02AB70: 69 74 6C 65 20 45 6E 71 75 69 72 79 20 20 20 20 itle Enquiry
02AB80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 0D ".
02AB90: 0A 20 20 20 20 20 20 20 40 20 31 33 2C 32 32 20 . @ 13,22
02ABA0: 73 61 79 20 20 22 20 35 2E 20 4C 69 73 74 20 42 say " 5. List B
02ABB0: 6F 6F 6B 73 20 62 79 20 41 75 74 68 6F 72 20 20 ooks by Author
02ABC0: 20 20 20 20 20 20 20 20 20 22 0D 0A 20 20 20 20 "..
02ABD0: 20 20 20 40 20 31 34 2C 32 32 20 73 61 79 20 20 @ 14,22 say
02ABE0: 22 20 36 2E 20 4C 69 73 74 20 42 6F 6F 6B 73 20 " 6. List Books
02ABF0: 62 79 20 53 75 62 6A 65 63 74 20 20 20 20 20 20 by Subject
02AC00: 20 20 20 20 22 0D 0A 20 20 20 20 20 20 20 40 20 ".. @
02AC10: 31 35 2C 32 32 20 73 61 79 20 20 22 20 37 2E 20 15,22 say " 7.
02AC20: 4C 69 73 74 20 42 6F 6F 6B 73 20 62 79 20 52 6F List Books by Ro
02AC30: 6F 6D 20 6F 72 20 53 68 65 6C 66 20 20 20 20 22 om or Shelf "
02AC40: 0D 0A 20 20 20 20 20 20 20 40 20 31 36 2C 32 32 .. @ 16,22
02AC50: 20 73 61 79 20 20 22 20 38 2E 20 50 72 69 6E 74 say " 8. Print
02AC60: 20 61 20 4C 69 73 74 20 6F 66 20 42 6F 6F 6B 73 a List of Books
02AC70: 20 20 20 20 20 20 20 20 20 20 22 0D 0A 20 20 20 "..
02AC80: 20 20 20 20 40 20 31 37 2C 32 32 20 73 61 79 20 @ 17,22 say
02AC90: 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "
02ACA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02ACB0: 20 20 20 20 20 22 0D 0A 20 20 20 20 20 20 20 40 ".. @
02ACC0: 20 31 38 2C 32 32 20 73 61 79 20 20 22 20 58 2E 18,22 say " X.
02ACD0: 20 45 78 69 74 20 74 6F 20 4D 61 69 6E 20 4D 65 Exit to Main Me
02ACE0: 6E 75 20 20 20 20 20 20 20 20 20 20 20 20 20 20 nu
02ACF0: 22 0D 0A 20 20 20 20 20 20 20 40 20 31 39 2C 32 ".. @ 19,2
02AD00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02AD10: 24 00 01 00 02 09 52 E5 24 00 41 02 00 00 00 02 $.....R.$.A.....
02AD20: 24 00 46 02 00 00 00 02 24 00 42 02 00 00 00 02 $.F.....$.B.....
02AD30: 24 00 47 02 00 00 00 02 24 00 43 02 00 00 00 02 $.G.....$.C.....
02AD40: 24 00 48 02 00 00 00 02 24 00 44 02 00 00 00 02 $.H.....$.D.....
02AD50: 24 00 49 02 00 00 00 02 24 00 45 02 00 00 00 02 $.I.....$.E.....
02AD60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AE00: 73 2B 73 2B 73 2B 73 2B 73 2B 73 2B 73 2B 73 0D s+s+s+s+s+s+s+s.
02AE10: 0A 20 20 40 20 31 39 2C 32 38 20 53 41 59 20 20 . @ 19,28 SAY
02AE20: 22 20 50 6C 65 61 73 65 20 65 6E 74 65 72 20 79 " Please enter y
02AE30: 6F 75 72 20 63 68 6F 69 63 65 20 22 20 47 45 54 our choice " GET
02AE40: 20 6F 70 74 69 6F 6E 20 50 49 43 54 55 52 45 20 option PICTURE
02AE50: 22 21 22 0D 0A 2A 20 52 65 61 64 20 6F 70 74 69 "!"..* Read opti
02AE60: 6F 6E 20 70 69 63 74 75 72 65 0D 0A 20 20 52 45 on picture.. RE
02AE70: 41 44 0D 0A 20 20 40 20 31 39 2C 32 39 20 53 41 AD.. @ 19,29 SA
02AE80: 59 20 22 20 50 6C 65 61 73 65 20 77 61 69 74 20 Y " Please wait
02AE90: 61 20 6D 6F 6D 65 6E 74 20 2E 2E 2E 2E 2E 20 22 a moment ..... "
02AEA0: 0D 0A 20 20 53 45 54 20 49 4E 54 45 4E 53 49 54 .. SET INTENSIT
02AEB0: 59 20 4F 46 46 0D 0A 20 20 44 4F 20 43 41 53 45 Y OFF.. DO CASE
02AEC0: 0D 0A 20 20 20 20 43 41 53 45 20 6F 70 74 69 6F .. CASE optio
02AED0: 6E 20 3D 20 22 58 22 0D 0A 20 20 20 20 20 20 43 n = "X".. C
02AEE0: 4C 45 41 52 0D 0A 20 20 20 20 20 20 45 52 41 53 LEAR.. ERAS
02AEF0: 45 0D 0A 20 20 20 20 20 20 43 41 4E 43 45 4C 0D E.. CANCEL.
02AF00: 0A 20 20 20 20 43 41 53 45 20 6F 70 74 69 6F 6E . CASE option
02AF10: 20 3D 20 22 51 22 0D 0A 20 20 20 20 20 20 45 52 = "Q".. ER
02AF20: 41 53 45 0D 0A 20 20 20 20 20 20 51 55 49 54 0D ASE.. QUIT.
02AF30: 0A 20 20 20 20 43 41 53 45 20 6F 70 74 69 6F 6E . CASE option
02AF40: 20 3D 20 22 42 22 0D 0A 20 20 20 20 20 20 40 20 = "B".. @
02AF50: 31 39 2C 31 34 20 53 41 59 20 22 20 4D 61 6B 65 19,14 SAY " Make
02AF60: 20 73 75 72 65 20 79 6F 75 72 20 42 4F 4F 4B 53 sure your BOOKS
02AF70: 20 64 61 74 61 20 69 73 20 69 6E 20 44 72 69 76 data is in Driv
02AF80: 65 20 42 3A 20 61 6E 64 20 70 72 65 73 73 20 61 e B: and press a
02AF90: 20 6B 65 79 2E 20 22 0D 0A 20 20 20 20 20 20 57 key. ".. W
02AFA0: 41 49 54 0D 0A 20 20 20 20 20 20 44 4F 20 62 6F AIT.. DO bo
02AFB0: 6F 6B 73 0D 0A 20 20 20 20 43 41 53 45 20 6F 70 oks.. CASE op
02AFC0: 74 69 6F 6E 20 3D 20 22 4D 22 0D 0A 20 20 20 20 tion = "M"..
02AFD0: 20 20 40 20 31 39 2C 31 34 20 53 41 59 20 22 20 @ 19,14 SAY "
02AFE0: 4D 61 6B 65 20 73 75 72 65 20 79 6F 75 72 20 4D Make sure your M
02AFF0: 45 4E 55 20 64 61 74 61 20 69 73 20 69 6E 20 44 ENU data is in D
02B000: 4D 44 20 20 20 20 20 33 4B 20 20 20 20 20 20 20 MD 3K
02B010: 20 20 20 20 20 20 53 43 43 48 31 30 30 33 2E 43 SCCH1003.C
02B020: 4D 44 20 20 20 20 20 33 4B 0D 0A 20 20 20 20 20 MD 3K..
02B030: 20 20 20 20 20 20 20 20 20 20 20 53 43 43 48 31 SCCH1
02B040: 30 30 34 2E 43 4D 44 20 20 20 20 20 35 4B 20 20 004.CMD 5K
02B050: 20 20 20 20 20 20 20 20 20 20 20 53 43 43 48 32 SCCH2
02B060: 32 30 30 2E 43 4D 44 20 20 20 20 20 32 4B 0D 0A 200.CMD 2K..
02B070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02B080: 53 43 43 48 32 33 30 30 2E 43 4D 44 20 20 20 20 SCCH2300.CMD
02B090: 20 33 4B 20 20 20 20 20 20 20 20 20 20 20 20 20 3K
02B0A0: 53 43 43 48 32 34 30 30 2E 43 4D 44 20 20 20 20 SCCH2400.CMD
02B0B0: 20 33 4B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 3K..
02B0C0: 20 20 20 20 20 53 43 43 48 32 35 30 30 2E 43 4D SCCH2500.CM
02B0D0: 44 20 20 20 20 20 33 4B 20 20 20 20 20 20 20 20 D 3K
02B0E0: 20 20 20 20 20 53 43 43 48 32 36 30 30 2E 43 4D SCCH2600.CM
02B0F0: 44 20 20 20 20 20 33 4B 0D 0A 20 20 20 20 20 20 D 3K..
02B100: 20 20 20 20 20 20 20 20 20 20 53 43 43 48 32 37 SCCH27
02B110: 30 30 2E 43 4D 44 20 20 20 20 20 35 4B 20 20 20 00.CMD 5K
02B120: 20 20 20 20 20 20 20 20 20 20 53 43 43 48 32 37 SCCH27
02B130: 30 32 2E 43 4D 44 20 20 20 20 20 32 4B 0D 0A 20 02.CMD 2K..
02B140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 S
02B150: 43 43 48 32 37 30 33 2E 43 4D 44 20 20 20 20 20 CCH2703.CMD
02B160: 33 4B 20 20 20 20 20 20 20 20 20 20 20 20 20 53 3K S
02B170: 43 43 48 32 37 30 34 2E 43 4D 44 20 20 20 20 20 CCH2704.CMD
02B180: 35 4B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 5K..
02B190: 20 20 20 20 53 43 43 48 32 37 30 35 2E 43 4D 44 SCCH2705.CMD
02B1A0: 20 20 20 20 20 33 4B 20 20 20 20 20 20 20 20 20 3K
02B1B0: 20 20 20 20 53 43 44 45 58 54 31 20 2E 44 42 46 SCDEXT1 .DBF
02B1C0: 20 20 20 20 20 32 4B 0D 0A 20 20 20 20 20 20 20 2K..
02B1D0: 20 20 20 20 20 20 20 20 20 53 43 44 45 58 54 32 SCDEXT2
02B1E0: 20 2E 44 42 46 20 20 20 20 20 31 4B 20 20 20 20 .DBF 1K
02B1F0: 20 20 20 20 20 20 20 20 20 53 43 44 50 52 4F 46 SCDPROF
02B200: 72 69 76 65 20 42 3A 20 61 6E 64 20 70 72 65 73 rive B: and pres
02B210: 73 20 61 20 6B 65 79 2E 20 22 0D 0A 20 20 20 20 s a key. "..
02B220: 20 20 57 41 49 54 0D 0A 20 20 20 20 20 20 44 4F WAIT.. DO
02B230: 20 6D 65 6E 75 0D 0A 20 20 20 20 43 41 53 45 20 menu.. CASE
02B240: 6F 70 74 69 6F 6E 20 3D 20 22 57 22 0D 0A 20 20 option = "W"..
02B250: 20 20 20 20 40 20 31 39 2C 30 38 20 53 41 59 20 @ 19,08 SAY
02B260: 22 20 4D 61 6B 65 20 73 75 72 65 20 79 6F 75 72 " Make sure your
02B270: 20 57 45 4C 43 4F 4D 45 20 64 61 74 61 20 69 73 WELCOME data is
02B280: 20 69 6E 20 44 72 69 76 65 20 42 3A 20 61 6E 64 in Drive B: and
02B290: 20 70 72 65 73 73 20 61 20 6B 65 79 2E 20 22 0D press a key. ".
02B2A0: 0A 20 20 20 20 20 20 57 41 49 54 0D 0A 20 20 20 . WAIT..
02B2B0: 20 20 20 44 4F 20 77 65 6C 63 6F 6D 65 0D 0A 20 DO welcome..
02B2C0: 20 20 20 43 41 53 45 20 6F 70 74 69 6F 6E 20 3D CASE option =
02B2D0: 20 22 48 22 0D 0A 20 20 20 20 20 20 45 52 41 53 "H".. ERAS
02B2E0: 45 0D 0A 20 20 20 20 20 20 68 65 6C 70 0D 0A 20 E.. help..
02B2F0: 20 45 4E 44 43 41 53 45 0D 0A 45 4E 44 44 4F 0D ENDCASE..ENDDO.
02B300: 0A 0D 0A 1A 1A 6F 70 74 69 6F 6E 20 3D 20 22 57 .....option = "W
02B310: 22 0D 0A 20 20 20 20 20 20 40 20 32 36 2C 31 30 ".. @ 26,10
02B320: 20 53 41 59 20 22 20 4D 61 6B 65 20 73 75 72 65 SAY " Make sure
02B330: 20 79 6F 75 72 20 57 45 4C 43 4F 4D 45 20 64 61 your WELCOME da
02B340: 74 61 20 69 73 20 69 6E 20 44 72 69 76 65 20 42 ta is in Drive B
02B350: 3A 20 61 6E 64 20 70 72 65 73 73 20 61 20 6B 65 : and press a ke
02B360: 79 2E 20 22 0D 0A 20 20 20 20 20 20 57 41 49 54 y. ".. WAIT
02B370: 0D 0A 20 20 20 20 20 20 44 4F 20 77 65 6C 63 6F .. DO welco
02B380: 6D 65 0D 0A 20 20 20 20 43 41 53 45 20 6F 70 74 me.. CASE opt
02B390: 69 6F 6E 20 3D 20 22 48 22 0D 0A 20 20 20 20 20 ion = "H"..
02B3A0: 20 45 52 41 53 45 0D 0A 20 20 20 20 20 20 68 65 ERASE.. he
02B3B0: 6C 70 0D 0A 20 20 45 4E 44 43 41 53 45 0D 0A 45 lp.. ENDCASE..E
02B3C0: 4E 44 44 4F 0D 0A 0D 0A 1A 1A 40 20 32 30 2C 32 NDDO......@ 20,2
02B3D0: 36 20 53 41 59 20 20 22 20 20 20 20 4D 2E 20 20 6 SAY " M.
02B3E0: 44 6F 20 4D 45 4E 55 20 20 20 20 20 20 20 20 20 Do MENU
02B3F0: 20 20 20 20 20 20 20 20 20 20 20 22 0D 0A 20 20 "..
02B400: 20 2E 44 42 46 20 20 20 20 20 32 4B 0D 0A 20 20 .DBF 2K..
02B410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 43 SC
02B420: 44 52 45 50 20 20 2E 44 42 46 20 20 20 20 20 33 DREP .DBF 3
02B430: 4B 20 20 20 20 20 20 20 20 20 20 20 20 20 53 43 K SC
02B440: 49 50 46 49 4E 54 2E 4E 44 58 20 20 20 20 20 31 IPFINT.NDX 1
02B450: 4B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 K..
02B460: 20 20 20 53 43 4D 45 4D 20 20 20 2E 4D 45 4D 20 SCMEM .MEM
02B470: 20 20 20 20 33 4B 0D 0A 0D 0A 0D 0A 20 20 20 20 3K......
02B480: 20 20 20 20 53 69 64 65 20 33 2E 20 54 68 65 20 Side 3. The
02B490: 57 65 6C 63 6F 6D 65 20 61 6E 64 20 42 6F 6F 6B Welcome and Book
02B4A0: 73 20 45 78 61 6D 70 6C 65 73 2C 20 49 6E 74 72 s Examples, Intr
02B4B0: 6F 64 75 63 74 6F 72 79 20 53 63 72 65 65 6E 73 oductory Screens
02B4C0: 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ,..
02B4D0: 20 20 20 54 59 50 45 2D 4D 45 2C 20 55 54 49 4C TYPE-ME, UTIL
02B4E0: 53 2E 54 58 54 20 26 20 44 49 53 43 44 49 52 2E S.TXT & DISCDIR.
02B4F0: 54 58 54 2E 20 28 31 36 35 4B 29 2E 0D 0A 0D 0A TXT. (165K).....
02B500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02B510: 41 55 54 48 4F 52 53 20 2E 4E 44 58 20 20 20 20 AUTHORS .NDX
02B520: 20 32 4B 20 20 20 20 20 20 20 20 20 20 20 20 20 2K
02B530: 42 4F 4F 4B 32 20 20 20 2E 46 52 4D 20 20 20 20 BOOK2 .FRM
02B540: 20 31 4B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 1K..
02B550: 20 20 20 20 20 42 4F 4F 4B 53 20 20 20 2E 43 4D BOOKS .CM
02B560: 44 20 20 20 20 20 32 4B 20 20 20 20 20 20 20 20 D 2K
02B570: 20 20 20 20 20 42 4F 4F 4B 53 20 20 20 2E 44 42 BOOKS .DB
02B580: 46 20 20 20 20 20 36 4B 0D 0A 20 20 20 20 20 20 F 6K..
02B590: 20 20 20 20 20 20 20 20 20 20 42 4F 4F 4B 53 20 BOOKS
02B5A0: 20 20 2E 46 52 4D 20 20 20 20 20 31 4B 20 20 20 .FRM 1K
02B5B0: 20 20 20 20 20 20 20 20 20 20 42 4F 4F 4B 53 31 BOOKS1
02B5C0: 20 20 2E 43 4D 44 20 20 20 20 20 32 4B 0D 0A 20 .CMD 2K..
02B5D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 B
02B5E0: 4F 4F 4B 53 32 20 20 2E 43 4D 44 20 20 20 20 20 OOKS2 .CMD
02B5F0: 34 4B 20 20 20 20 20 20 20 20 20 20 20 20 20 42 4K B
02B600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02B610: 20 20 20 20 20 43 4F 4E 54 45 4E 54 53 20 4F 46 CONTENTS OF
02B620: 20 64 42 41 53 45 20 44 49 53 43 53 2E 0D 0A 0D dBASE DISCS....
02B630: 0A 49 66 20 79 6F 75 20 77 69 73 68 20 74 6F 20 .If you wish to
02B640: 63 68 65 63 6B 20 74 68 61 74 20 79 6F 75 20 68 check that you h
02B650: 61 76 65 20 74 72 61 6E 73 66 65 72 72 65 64 20 ave transferred
02B660: 74 68 65 20 72 65 63 6F 6D 6D 65 6E 64 65 64 20 the recommended
02B670: 66 69 6C 65 73 0D 0A 66 72 6F 6D 20 74 68 65 20 files..from the
02B680: 4D 41 53 54 45 52 20 44 49 53 43 53 20 74 6F 20 MASTER DISCS to
02B690: 79 6F 75 72 20 53 54 41 52 54 45 52 20 61 6E 64 your STARTER and
02B6A0: 20 44 49 53 54 52 49 42 55 54 49 4F 4E 20 44 69 DISTRIBUTION Di
02B6B0: 73 63 73 2C 20 79 6F 75 0D 0A 73 68 6F 75 6C 64 scs, you..should
02B6C0: 20 70 72 69 6E 74 20 73 6F 72 74 65 64 20 64 69 print sorted di
02B6D0: 72 65 63 74 6F 72 69 65 73 20 74 6F 20 63 6F 6D rectories to com
02B6E0: 70 61 72 65 20 77 69 74 68 20 74 68 65 20 66 6F pare with the fo
02B6F0: 6C 6C 6F 77 69 6E 67 20 6C 69 73 74 73 2E 0D 0A llowing lists...
02B700: 0D 0A 4D 41 53 54 45 52 20 44 49 53 43 53 2E 0D ..MASTER DISCS..
02B710: 0A 0D 0A 20 20 20 20 20 20 20 20 53 69 64 65 20 ... Side
02B720: 31 2E 20 64 42 61 73 65 20 50 72 6F 67 72 61 6D 1. dBase Program
02B730: 2C 20 5A 69 70 2C 20 44 73 6F 72 74 20 26 20 55 , Zip, Dsort & U
02B740: 73 65 72 2D 64 65 66 69 6E 65 64 20 46 69 6C 65 ser-defined File
02B750: 73 20 28 31 36 37 4B 29 0D 0A 0D 0A 20 20 20 20 s (167K)....
02B760: 20 20 20 20 20 20 20 20 20 20 20 20 44 42 41 53 DBAS
02B770: 45 2E 43 4F 4D 20 20 20 20 20 20 20 32 30 4B 20 E.COM 20K
02B780: 20 20 20 20 20 20 20 20 20 20 20 20 44 42 41 53 DBAS
02B790: 45 4D 53 47 2E 54 58 54 20 20 20 20 34 38 4B 0D EMSG.TXT 48K.
02B7A0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
02B7B0: 20 44 42 41 53 45 4F 56 52 2E 43 4F 4D 20 20 20 DBASEOVR.COM
02B7C0: 20 34 31 4B 20 20 20 20 20 20 20 20 20 20 20 20 41K
02B7D0: 20 44 47 45 4E 2E 4F 56 4C 20 20 20 20 20 20 20 DGEN.OVL
02B7E0: 20 20 37 4B 0D 0A 20 20 20 20 20 20 20 20 20 20 7K..
02B7F0: 20 20 20 20 20 20 44 53 4F 52 54 2E 43 4F 4D 20 DSORT.COM
02B800: 4F 4F 4B 53 33 20 20 2E 43 4D 44 20 20 20 20 20 OOKS3 .CMD
02B810: 33 4B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 3K..
02B820: 20 20 20 20 42 4F 4F 4B 53 34 20 20 2E 43 4D 44 BOOKS4 .CMD
02B830: 20 20 20 20 20 32 4B 20 20 20 20 20 20 20 20 20 2K
02B840: 20 20 20 20 42 4F 4F 4B 53 35 20 20 2E 43 4D 44 BOOKS5 .CMD
02B850: 20 20 20 20 20 31 4B 0D 0A 20 20 20 20 20 20 20 1K..
02B860: 20 20 20 20 20 20 20 20 20 42 4F 4F 4B 53 36 20 BOOKS6
02B870: 20 2E 43 4D 44 20 20 20 20 20 31 4B 20 20 20 20 .CMD 1K
02B880: 20 20 20 20 20 20 20 20 20 42 4F 4F 4B 53 37 20 BOOKS7
02B890: 20 2E 43 4D 44 20 20 20 20 20 32 4B 0D 0A 20 20 .CMD 2K..
02B8A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 4F BO
02B8B0: 4F 4B 53 38 20 20 2E 43 4D 44 20 20 20 20 20 32 OKS8 .CMD 2
02B8C0: 4B 20 20 20 20 20 20 20 20 20 20 20 20 20 44 49 K DI
02B8D0: 53 43 44 49 52 20 2E 54 58 54 20 20 20 20 20 38 SCDIR .TXT 8
02B8E0: 4B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 K..
02B8F0: 20 20 20 46 52 4F 4E 41 20 20 20 2E 44 46 4C 20 FRONA .DFL
02B900: 20 20 20 20 31 4B 20 20 20 20 20 20 20 20 20 20 1K
02B910: 20 20 20 46 52 4F 4E 41 20 20 20 2E 45 4E 44 20 FRONA .END
02B920: 20 20 20 31 37 4B 0D 0A 20 20 20 20 20 20 20 20 17K..
02B930: 20 20 20 20 20 20 20 20 46 52 4F 4E 42 20 20 20 FRONB
02B940: 2E 45 4E 44 20 20 20 20 20 36 4B 20 20 20 20 20 .END 6K
02B950: 20 20 20 20 20 20 20 20 46 52 4F 4E 43 20 20 20 FRONC
02B960: 2E 45 4E 44 20 20 20 20 20 36 4B 0D 0A 20 20 20 .END 6K..
02B970: 20 20 20 20 20 20 20 20 20 20 20 20 20 46 52 4F FRO
02B980: 4E 44 20 20 20 2E 45 4E 44 20 20 20 20 20 36 4B ND .END 6K
02B990: 20 20 20 20 20 20 20 20 20 20 20 20 20 46 52 4F FRO
02B9A0: 4E 45 20 20 20 2E 45 4E 44 20 20 20 20 20 37 4B NE .END 7K
02B9B0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
02B9C0: 20 20 46 52 4F 4E 46 20 20 20 2E 45 4E 44 20 20 FRONF .END
02B9D0: 20 20 20 37 4B 20 20 20 20 20 20 20 20 20 20 20 7K
02B9E0: 20 20 46 52 4F 4E 47 20 20 20 2E 45 4E 44 20 20 FRONG .END
02B9F0: 20 20 20 37 4B 0D 0A 20 20 20 20 20 20 20 20 20 7K..
02BA00: 20 20 20 20 20 20 31 32 4B 20 20 20 20 20 20 20 12K
02BA10: 20 20 20 20 20 20 50 52 4F 46 49 4C 45 2E 53 55 PROFILE.SU
02BA20: 42 20 20 20 20 20 20 31 4B 0D 0A 20 20 20 20 20 B 1K..
02BA30: 20 20 20 20 20 20 20 20 20 20 20 54 59 50 45 2D TYPE-
02BA40: 4D 45 20 20 20 20 20 20 20 20 20 20 31 4B 20 20 ME 1K
02BA50: 20 20 20 20 20 20 20 20 20 20 20 55 42 4F 4C 44 UBOLD
02BA60: 2E 50 54 52 20 20 20 20 20 20 20 20 31 4B 0D 0A .PTR 1K..
02BA70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02BA80: 55 44 45 46 41 55 4C 54 2E 43 4D 44 20 20 20 20 UDEFAULT.CMD
02BA90: 20 31 4B 20 20 20 20 20 20 20 20 20 20 20 20 20 1K
02BAA0: 55 4B 45 59 53 2E 44 42 32 20 20 20 20 20 20 20 UKEYS.DB2
02BAB0: 20 32 4B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 2K..
02BAC0: 20 20 20 20 20 5A 49 50 2E 43 4F 4D 20 20 20 20 ZIP.COM
02BAD0: 20 20 20 20 20 31 33 4B 20 20 20 20 20 20 20 20 13K
02BAE0: 20 20 20 20 20 5A 53 43 52 4E 2E 4F 56 4C 20 20 ZSCRN.OVL
02BAF0: 20 20 20 20 20 32 30 4B 0D 0A 0D 0A 0D 0A 20 20 20K......
02BB00: 20 20 20 20 20 20 53 69 64 65 20 32 2E 20 4D 45 Side 2. ME
02BB10: 4E 55 2E 43 4D 44 20 26 20 41 73 73 6F 63 69 61 NU.CMD & Associa
02BB20: 74 65 64 20 46 69 6C 65 73 20 28 31 37 30 4B 29 ted Files (170K)
02BB30: 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ....
02BB40: 20 20 20 20 4D 45 4E 55 20 20 20 20 2E 43 4D 44 MENU .CMD
02BB50: 20 20 20 20 31 31 4B 20 20 20 20 20 20 20 20 20 11K
02BB60: 20 20 20 20 4D 45 4E 55 20 20 20 20 2E 48 45 58 MENU .HEX
02BB70: 20 20 20 20 20 31 4B 0D 0A 20 20 20 20 20 20 20 1K..
02BB80: 20 20 20 20 20 20 20 20 20 4D 45 4E 55 49 4E 49 MENUINI
02BB90: 54 2E 43 4D 44 20 20 20 20 20 32 4B 20 20 20 20 T.CMD 2K
02BBA0: 20 20 20 20 20 20 20 20 20 53 43 43 30 30 30 30 SCC0000
02BBB0: 31 2E 43 4D 44 20 20 20 20 20 33 4B 0D 0A 20 20 1.CMD 3K..
02BBC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 43 SC
02BBD0: 43 31 30 30 30 30 2E 43 4D 44 20 20 20 20 31 38 C10000.CMD 18
02BBE0: 4B 20 20 20 20 20 20 20 20 20 20 20 20 20 53 43 K SC
02BBF0: 43 31 30 30 30 31 2E 43 4D 44 20 20 20 20 20 32 C10001.CMD 2
02BC00: 20 20 20 20 20 20 20 46 52 4F 4E 48 20 20 20 2E FRONH .
02BC10: 45 4E 44 20 20 20 20 31 31 4B 20 20 20 20 20 20 END 11K
02BC20: 20 20 20 20 20 20 20 46 52 4F 4E 49 20 20 20 2E FRONI .
02BC30: 45 4E 44 20 20 20 20 31 33 4B 0D 0A 20 20 20 20 END 13K..
02BC40: 20 20 20 20 20 20 20 20 20 20 20 20 46 52 4F 4E FRON
02BC50: 49 32 20 20 2E 45 4E 44 20 20 20 20 31 32 4B 20 I2 .END 12K
02BC60: 20 20 20 20 20 20 20 20 20 20 20 20 46 52 4F 4E FRON
02BC70: 49 58 20 20 2E 44 42 57 20 20 20 20 20 31 4B 0D IX .DBW 1K.
02BC80: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
02BC90: 20 46 52 4F 4E 54 20 20 20 2E 45 4E 44 20 20 20 FRONT .END
02BCA0: 20 20 32 4B 20 20 20 20 20 20 20 20 20 20 20 20 2K
02BCB0: 20 49 4E 54 52 31 20 20 20 2E 43 4D 44 20 20 20 INTR1 .CMD
02BCC0: 20 20 32 4B 0D 0A 20 20 20 20 20 20 20 20 20 20 2K..
02BCD0: 20 20 20 20 20 20 49 4E 54 52 4F 20 20 20 2E 43 INTRO .C
02BCE0: 4D 44 20 20 20 20 20 33 4B 20 20 20 20 20 20 20 MD 3K
02BCF0: 20 20 20 20 20 20 52 4F 4F 4D 53 20 20 20 2E 46 ROOMS .F
02BD00: 52 4D 20 20 20 20 20 31 4B 0D 0A 20 20 20 20 20 RM 1K..
02BD10: 20 20 20 20 20 20 20 20 20 20 20 52 4F 4F 4D 53 ROOMS
02BD20: 20 20 20 2E 4E 44 58 20 20 20 20 20 31 4B 20 20 .NDX 1K
02BD30: 20 20 20 20 20 20 20 20 20 20 20 53 55 42 4A 45 SUBJE
02BD40: 43 54 20 2E 4E 44 58 20 20 20 20 20 32 4B 0D 0A CT .NDX 2K..
02BD50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02BD60: 54 49 54 4C 45 53 20 20 2E 4E 44 58 20 20 20 20 TITLES .NDX
02BD70: 20 35 4B 20 20 20 20 20 20 20 20 20 20 20 20 20 5K
02BD80: 54 59 50 45 2D 4D 45 20 20 20 20 20 20 20 20 20 TYPE-ME
02BD90: 20 38 4B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 8K..
02BDA0: 20 20 20 20 20 55 54 49 4C 53 20 20 20 2E 54 58 UTILS .TX
02BDB0: 54 20 20 20 20 20 35 4B 20 20 20 20 20 20 20 20 T 5K
02BDC0: 20 20 20 20 20 57 45 4C 43 4F 4D 45 20 2E 43 4D WELCOME .CM
02BDD0: 44 20 20 20 20 20 35 4B 0D 0A 0D 0A 57 4F 52 4B D 5K....WORK
02BDE0: 49 4E 47 20 44 49 53 43 53 0D 0A 0D 0A 20 20 20 ING DISCS....
02BDF0: 20 20 20 20 20 64 42 41 53 45 20 53 54 41 52 54 dBASE START
02BE00: 4B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 K..
02BE10: 20 20 20 53 43 43 31 31 30 30 30 2E 43 4D 44 20 SCC11000.CMD
02BE20: 20 20 20 20 33 4B 20 20 20 20 20 20 20 20 20 20 3K
02BE30: 20 20 20 53 43 43 32 30 30 30 30 2E 43 4D 44 20 SCC20000.CMD
02BE40: 20 20 20 31 31 4B 0D 0A 20 20 20 20 20 20 20 20 11K..
02BE50: 20 20 20 20 20 20 20 20 53 43 43 32 30 30 30 31 SCC20001
02BE60: 2E 43 4D 44 20 20 20 20 20 32 4B 20 20 20 20 20 .CMD 2K
02BE70: 20 20 20 20 20 20 20 20 53 43 43 32 30 31 30 30 SCC20100
02BE80: 2E 43 4D 44 20 20 20 20 20 33 4B 0D 0A 20 20 20 .CMD 3K..
02BE90: 20 20 20 20 20 20 20 20 20 20 20 20 20 53 43 43 SCC
02BEA0: 32 32 30 30 30 2E 43 4D 44 20 20 20 20 20 34 4B 22000.CMD 4K
02BEB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 53 43 43 SCC
02BEC0: 32 33 30 30 30 2E 43 4D 44 20 20 20 20 20 33 4B 23000.CMD 3K
02BED0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
02BEE0: 20 20 53 43 43 32 34 30 30 30 2E 43 4D 44 20 20 SCC24000.CMD
02BEF0: 20 20 20 34 4B 20 20 20 20 20 20 20 20 20 20 20 4K
02BF00: 20 20 53 43 43 32 35 30 30 30 2E 43 4D 44 20 20 SCC25000.CMD
02BF10: 20 20 20 37 4B 0D 0A 20 20 20 20 20 20 20 20 20 7K..
02BF20: 20 20 20 20 20 20 20 53 43 43 32 36 30 30 30 2E SCC26000.
02BF30: 43 4D 44 20 20 20 20 20 35 4B 20 20 20 20 20 20 CMD 5K
02BF40: 20 20 20 20 20 20 20 53 43 43 32 37 30 30 30 2E SCC27000.
02BF50: 43 4D 44 20 20 20 20 31 35 4B 0D 0A 20 20 20 20 CMD 15K..
02BF60: 20 20 20 20 20 20 20 20 20 20 20 20 53 43 43 32 SCC2
02BF70: 37 31 30 30 2E 43 4D 44 20 20 20 20 20 34 4B 20 7100.CMD 4K
02BF80: 20 20 20 20 20 20 20 20 20 20 20 20 53 43 43 32 SCC2
02BF90: 37 32 30 30 2E 43 4D 44 20 20 20 20 20 32 4B 0D 7200.CMD 2K.
02BFA0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
02BFB0: 20 53 43 43 39 30 30 30 30 2E 43 4D 44 20 20 20 SCC90000.CMD
02BFC0: 20 20 32 4B 20 20 20 20 20 20 20 20 20 20 20 20 2K
02BFD0: 20 53 43 43 48 30 30 30 31 2E 43 4D 44 20 20 20 SCCH0001.CMD
02BFE0: 20 20 33 4B 0D 0A 20 20 20 20 20 20 20 20 20 20 3K..
02BFF0: 20 20 20 20 20 20 53 43 43 48 30 30 30 32 2E 43 SCCH0002.C
02C000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02C010: 25 00 01 00 02 09 52 E5 25 00 41 02 00 00 00 02 %.....R.%.A.....
02C020: 25 00 46 02 00 00 00 02 25 00 42 02 00 00 00 02 %.F.....%.B.....
02C030: 25 00 47 02 00 00 00 02 25 00 43 02 00 00 00 02 %.G.....%.C.....
02C040: 25 00 48 02 00 00 00 02 25 00 44 02 00 00 00 02 %.H.....%.D.....
02C050: 25 00 49 02 00 00 00 02 25 00 45 02 00 00 00 02 %.I.....%.E.....
02C060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C100: 45 52 2E 20 20 54 68 65 20 53 65 6C 66 2D 73 74 ER. The Self-st
02C110: 61 72 74 65 72 20 74 6F 20 62 6F 6F 74 20 64 42 arter to boot dB
02C120: 41 53 45 20 49 49 2E 20 20 28 31 34 35 4B 29 2E ASE II. (145K).
02C130: 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ....
02C140: 20 20 20 20 44 42 41 53 45 20 20 20 2E 43 4F 4D DBASE .COM
02C150: 20 20 20 20 32 30 4B 20 20 20 20 20 20 20 20 20 20K
02C160: 20 20 20 20 44 42 41 53 45 4F 56 52 2E 43 4F 4D DBASEOVR.COM
02C170: 20 20 20 20 34 31 4B 0D 0A 20 20 20 20 20 20 20 41K..
02C180: 20 20 20 20 20 20 20 20 20 44 49 52 20 20 20 20 DIR
02C190: 20 2E 43 4F 4D 20 20 20 20 31 35 4B 20 20 20 20 .COM 15K
02C1A0: 20 20 20 20 20 20 20 20 20 4A 31 34 43 50 4D 33 J14CPM3
02C1B0: 20 2E 45 4D 53 20 20 20 20 34 30 4B 0D 0A 20 20 .EMS 40K..
02C1C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 41 PA
02C1D0: 50 45 52 20 20 20 2E 43 4F 4D 20 20 20 20 20 32 PER .COM 2
02C1E0: 4B 20 20 20 20 20 20 20 20 20 20 20 20 20 50 49 K PI
02C1F0: 50 20 20 20 20 20 2E 43 4F 4D 20 20 20 20 20 39 P .COM 9
02C200: 4B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 K..
02C210: 20 20 20 50 52 4F 46 49 4C 45 20 2E 53 55 42 20 PROFILE .SUB
02C220: 20 20 20 20 31 4B 20 20 20 20 20 20 20 20 20 20 1K
02C230: 20 20 20 53 45 54 4B 45 59 53 20 2E 43 4F 4D 20 SETKEYS .COM
02C240: 20 20 20 20 32 4B 0D 0A 20 20 20 20 20 20 20 20 2K..
02C250: 20 20 20 20 20 20 20 20 53 45 54 4C 53 54 20 20 SETLST
02C260: 2E 43 4F 4D 20 20 20 20 20 32 4B 20 20 20 20 20 .COM 2K
02C270: 20 20 20 20 20 20 20 20 53 55 42 4D 49 54 20 20 SUBMIT
02C280: 2E 43 4F 4D 20 20 20 20 20 36 4B 0D 0A 20 20 20 .COM 6K..
02C290: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 59 50 TYP
02C2A0: 45 20 20 20 20 2E 43 4F 4D 20 20 20 20 20 33 4B E .COM 3K
02C2B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 55 42 4F UBO
02C2C0: 4C 44 20 20 20 2E 50 54 52 20 20 20 20 20 31 4B LD .PTR 1K
02C2D0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
02C2E0: 20 20 55 44 45 46 41 55 4C 54 2E 43 4D 44 20 20 UDEFAULT.CMD
02C2F0: 20 20 20 31 4B 20 20 20 20 20 20 20 20 20 20 20 1K
02C300: 43 43 32 37 31 30 30 2E 43 4D 44 20 20 20 20 20 CC27100.CMD
02C310: 34 4B 20 20 20 20 20 20 20 20 20 20 20 20 20 53 4K S
02C320: 43 43 32 37 32 30 30 2E 43 4D 44 20 20 20 20 20 CC27200.CMD
02C330: 32 4B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 2K..
02C340: 20 20 20 20 53 43 43 39 30 30 30 30 2E 43 4D 44 SCC90000.CMD
02C350: 20 20 20 20 20 32 4B 20 20 20 20 20 20 20 20 20 2K
02C360: 20 20 20 20 53 43 43 48 30 30 30 31 2E 43 4D 44 SCCH0001.CMD
02C370: 20 20 20 20 20 34 4B 0D 0A 20 20 20 20 20 20 20 4K..
02C380: 20 20 20 20 20 20 20 20 20 53 43 43 48 30 30 30 SCCH000
02C390: 32 2E 43 4D 44 20 20 20 20 20 34 4B 20 20 20 20 2.CMD 4K
02C3A0: 20 20 20 20 20 20 20 20 20 53 43 43 48 31 30 30 SCCH100
02C3B0: 31 2E 43 4D 44 20 20 20 20 20 34 4B 0D 0A 20 20 1.CMD 4K..
02C3C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 43 SC
02C3D0: 43 48 31 30 30 32 2E 43 4D 44 20 20 20 20 20 36 CH1002.CMD 6
02C3E0: 4B 20 20 20 20 20 20 20 20 20 20 20 20 20 53 43 K SC
02C3F0: 43 48 31 30 30 33 2E 43 4D 44 20 20 20 20 20 36 CH1003.CMD 6
02C400: 4B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 K..
02C410: 20 20 20 53 43 43 48 31 30 30 34 2E 43 4D 44 20 SCCH1004.CMD
02C420: 20 20 20 20 36 4B 20 20 20 20 20 20 20 20 20 20 6K
02C430: 20 20 20 53 43 43 48 32 32 30 30 2E 43 4D 44 20 SCCH2200.CMD
02C440: 20 20 20 20 32 4B 0D 0A 20 20 20 20 20 20 20 20 2K..
02C450: 20 20 20 20 20 20 20 20 53 43 43 48 32 33 30 30 SCCH2300
02C460: 2E 43 4D 44 20 20 20 20 20 34 4B 20 20 20 20 20 .CMD 4K
02C470: 20 20 20 20 20 20 20 20 53 43 43 48 32 34 30 30 SCCH2400
02C480: 2E 43 4D 44 20 20 20 20 20 34 4B 0D 0A 20 20 20 .CMD 4K..
02C490: 20 20 20 20 20 20 20 20 20 20 20 20 20 53 43 43 SCC
02C4A0: 48 32 35 30 30 2E 43 4D 44 20 20 20 20 20 34 4B H2500.CMD 4K
02C4B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 53 43 43 SCC
02C4C0: 48 32 36 30 30 2E 43 4D 44 20 20 20 20 20 34 4B H2600.CMD 4K
02C4D0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
02C4E0: 20 20 53 43 43 48 32 37 30 30 2E 43 4D 44 20 20 SCCH2700.CMD
02C4F0: 20 20 20 36 4B 20 20 20 20 20 20 20 20 20 20 20 6K
02C500: 20 20 55 4B 45 59 53 20 20 20 2E 44 42 32 20 20 UKEYS .DB2
02C510: 20 20 20 32 4B 0D 0A 0D 0A 0D 0A 20 20 20 20 20 2K......
02C520: 20 20 20 64 42 41 53 45 20 44 49 53 54 52 49 42 dBASE DISTRIB
02C530: 55 54 49 4F 4E 20 28 50 43 57 38 32 35 36 29 2E UTION (PCW8256).
02C540: 20 20 28 31 30 30 4B 29 2E 0D 0A 0D 0A 20 20 20 (100K).....
02C550: 20 20 20 20 20 20 20 20 20 20 20 20 20 44 42 41 DBA
02C560: 53 45 4D 53 47 2E 54 58 54 20 20 20 20 34 38 4B SEMSG.TXT 48K
02C570: 20 20 20 20 20 20 20 20 20 20 20 20 20 44 47 45 DGE
02C580: 4E 20 20 20 20 2E 4F 56 4C 20 20 20 20 20 37 4B N .OVL 7K
02C590: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
02C5A0: 20 20 44 53 4F 52 54 20 20 20 2E 43 4F 4D 20 20 DSORT .COM
02C5B0: 20 20 31 32 4B 20 20 20 20 20 20 20 20 20 20 20 12K
02C5C0: 20 20 5A 49 50 20 20 20 20 20 2E 43 4F 4D 20 20 ZIP .COM
02C5D0: 20 20 31 33 4B 0D 0A 20 20 20 20 20 20 20 20 20 13K..
02C5E0: 20 20 20 20 20 20 20 5A 53 43 52 4E 20 20 20 2E ZSCRN .
02C5F0: 4F 56 4C 20 20 20 20 32 30 4B 0D 0A 0D 0A 0D 0A OVL 20K......
02C600: 20 20 20 20 20 20 20 20 64 42 41 53 45 20 44 49 dBASE DI
02C610: 53 54 52 49 42 55 54 49 4F 4E 20 28 50 43 57 38 STRIBUTION (PCW8
02C620: 35 31 32 29 2E 20 20 28 34 38 36 4B 29 2E 0D 0A 512). (486K)...
02C630: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
02C640: 20 20 41 55 54 48 4F 52 53 20 2E 4E 44 58 20 20 AUTHORS .NDX
02C650: 20 20 20 32 4B 20 20 20 20 20 20 20 20 20 20 20 2K
02C660: 20 20 42 4F 4F 4B 32 20 20 20 2E 46 52 4D 20 20 BOOK2 .FRM
02C670: 20 20 20 31 4B 0D 0A 20 20 20 20 20 20 20 20 20 1K..
02C680: 20 20 20 20 20 20 20 42 4F 4F 4B 53 20 20 20 2E BOOKS .
02C690: 43 4D 44 20 20 20 20 20 32 4B 20 20 20 20 20 20 CMD 2K
02C6A0: 20 20 20 20 20 20 20 42 4F 4F 4B 53 20 20 20 2E BOOKS .
02C6B0: 44 42 46 20 20 20 20 20 36 4B 0D 0A 20 20 20 20 DBF 6K..
02C6C0: 20 20 20 20 20 20 20 20 20 20 20 20 42 4F 4F 4B BOOK
02C6D0: 53 20 20 20 2E 46 52 4D 20 20 20 20 20 32 4B 20 S .FRM 2K
02C6E0: 20 20 20 20 20 20 20 20 20 20 20 20 42 4F 4F 4B BOOK
02C6F0: 53 31 20 20 2E 43 4D 44 20 20 20 20 20 32 4B 0D S1 .CMD 2K.
02C700: 20 20 53 43 43 48 32 37 30 32 2E 43 4D 44 20 20 SCCH2702.CMD
02C710: 20 20 20 32 4B 0D 0A 20 20 20 20 20 20 20 20 20 2K..
02C720: 20 20 20 20 20 20 20 53 43 43 48 32 37 30 33 2E SCCH2703.
02C730: 43 4D 44 20 20 20 20 20 34 4B 20 20 20 20 20 20 CMD 4K
02C740: 20 20 20 20 20 20 20 53 43 43 48 32 37 30 34 2E SCCH2704.
02C750: 43 4D 44 20 20 20 20 20 36 4B 0D 0A 20 20 20 20 CMD 6K..
02C760: 20 20 20 20 20 20 20 20 20 20 20 20 53 43 43 48 SCCH
02C770: 32 37 30 35 2E 43 4D 44 20 20 20 20 20 34 4B 20 2705.CMD 4K
02C780: 20 20 20 20 20 20 20 20 20 20 20 20 53 43 44 45 SCDE
02C790: 58 54 31 20 2E 44 42 46 20 20 20 20 20 32 4B 0D XT1 .DBF 2K.
02C7A0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
02C7B0: 20 53 43 44 45 58 54 32 20 2E 44 42 46 20 20 20 SCDEXT2 .DBF
02C7C0: 20 20 32 4B 20 20 20 20 20 20 20 20 20 20 20 20 2K
02C7D0: 20 53 43 44 50 52 4F 46 20 2E 44 42 46 20 20 20 SCDPROF .DBF
02C7E0: 20 20 32 4B 0D 0A 20 20 20 20 20 20 20 20 20 20 2K..
02C7F0: 20 20 20 20 20 20 53 43 44 52 45 50 20 20 2E 44 SCDREP .D
02C800: 42 46 20 20 20 20 20 34 4B 20 20 20 20 20 20 20 BF 4K
02C810: 20 20 20 20 20 20 53 43 49 50 46 49 4E 54 2E 4E SCIPFINT.N
02C820: 44 58 20 20 20 20 20 32 4B 0D 0A 20 20 20 20 20 DX 2K..
02C830: 20 20 20 20 20 20 20 20 20 20 20 53 43 4D 45 4D SCMEM
02C840: 20 20 20 2E 4D 45 4D 20 20 20 20 20 34 4B 20 20 .MEM 4K
02C850: 20 20 20 20 20 20 20 20 20 20 20 53 55 42 4A 45 SUBJE
02C860: 43 54 20 2E 4E 44 58 20 20 20 20 20 32 4B 0D 0A CT .NDX 2K..
02C870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02C880: 54 49 54 4C 45 53 20 20 2E 4E 44 58 20 20 20 20 TITLES .NDX
02C890: 20 36 4B 20 20 20 20 20 20 20 20 20 2A 2A 20 20 6K **
02C8A0: 54 59 50 45 2D 4D 45 20 2A 2A 20 20 20 20 20 20 TYPE-ME **
02C8B0: 31 30 4B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 10K..
02C8C0: 20 2A 2A 20 20 55 54 49 4C 53 20 20 20 2E 54 58 ** UTILS .TX
02C8D0: 54 20 2A 2A 20 20 36 4B 20 20 20 20 20 20 20 20 T ** 6K
02C8E0: 20 20 20 20 20 57 45 4C 43 4F 4D 45 20 2E 43 4D WELCOME .CM
02C8F0: 44 20 20 20 20 20 36 4B 0D 0A 20 20 20 20 20 20 D 6K..
02C900: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
02C910: 20 42 4F 4F 4B 53 32 20 20 2E 43 4D 44 20 20 20 BOOKS2 .CMD
02C920: 20 20 34 4B 20 20 20 20 20 20 20 20 20 20 20 20 4K
02C930: 20 42 4F 4F 4B 53 33 20 20 2E 43 4D 44 20 20 20 BOOKS3 .CMD
02C940: 20 20 34 4B 0D 0A 20 20 20 20 20 20 20 20 20 20 4K..
02C950: 20 20 20 20 20 20 42 4F 4F 4B 53 34 20 20 2E 43 BOOKS4 .C
02C960: 4D 44 20 20 20 20 20 32 4B 20 20 20 20 20 20 20 MD 2K
02C970: 20 20 20 20 20 20 42 4F 4F 4B 53 35 20 20 2E 43 BOOKS5 .C
02C980: 4D 44 20 20 20 20 20 32 4B 0D 0A 20 20 20 20 20 MD 2K..
02C990: 20 20 20 20 20 20 20 20 20 20 20 42 4F 4F 4B 53 BOOKS
02C9A0: 36 20 20 2E 43 4D 44 20 20 20 20 20 32 4B 20 20 6 .CMD 2K
02C9B0: 20 20 20 20 20 20 20 20 20 20 20 42 4F 4F 4B 53 BOOKS
02C9C0: 37 20 20 2E 43 4D 44 20 20 20 20 20 32 4B 0D 0A 7 .CMD 2K..
02C9D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02C9E0: 42 4F 4F 4B 53 38 20 20 2E 43 4D 44 20 20 20 20 BOOKS8 .CMD
02C9F0: 20 32 4B 20 20 20 20 20 20 20 20 20 20 20 20 20 2K
02CA00: 44 42 41 53 45 4D 53 47 2E 54 58 54 20 20 20 20 DBASEMSG.TXT
02CA10: 34 38 4B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 48K..
02CA20: 20 20 20 20 20 44 47 45 4E 20 20 20 20 2E 4F 56 DGEN .OV
02CA30: 4C 20 20 20 20 20 38 4B 20 20 20 20 20 20 20 20 L 8K
02CA40: 20 2A 2A 20 20 44 49 53 43 44 49 52 20 2E 54 58 ** DISCDIR .TX
02CA50: 54 20 2A 2A 20 20 38 4B 0D 0A 20 20 20 20 20 20 T ** 8K..
02CA60: 20 20 20 20 20 20 20 20 20 20 44 53 4F 52 54 20 DSORT
02CA70: 20 20 2E 43 4F 4D 20 20 20 20 31 32 4B 20 20 20 .COM 12K
02CA80: 20 20 20 20 20 20 20 20 20 20 46 52 4F 4E 41 20 FRONA
02CA90: 20 20 2E 44 46 4C 20 20 20 20 20 32 4B 0D 0A 20 .DFL 2K..
02CAA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 F
02CAB0: 52 4F 4E 41 20 20 20 2E 45 4E 44 20 20 20 20 31 RONA .END 1
02CAC0: 38 4B 20 20 20 20 20 20 20 20 20 20 20 20 20 46 8K F
02CAD0: 52 4F 4E 42 20 20 20 2E 45 4E 44 20 20 20 20 20 RONB .END
02CAE0: 36 4B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 6K..
02CAF0: 20 20 20 20 46 52 4F 4E 43 20 20 20 2E 45 4E 44 FRONC .END
02CB00: 20 20 20 20 20 20 20 20 20 20 5A 49 50 2E 43 4F ZIP.CO
02CB10: 4D 20 20 20 20 20 20 20 20 20 31 34 4B 20 20 20 M 14K
02CB20: 20 20 20 20 20 20 20 20 20 20 5A 53 43 52 4E 2E ZSCRN.
02CB30: 4F 56 4C 20 20 20 20 20 20 20 32 30 4B 0D 0A 0D OVL 20K...
02CB40: 0A 0D 0A 4E 2E 42 2E 20 20 31 2E 20 20 44 65 6C ...N.B. 1. Del
02CB50: 65 74 65 20 75 6E 77 61 6E 74 65 64 20 66 69 6C ete unwanted fil
02CB60: 65 73 20 6D 61 72 6B 65 64 20 22 2A 2A 20 46 4E es marked "** FN
02CB70: 41 4D 45 2E 45 58 54 20 2A 2A 22 2E 0D 0A 0D 0A AME.EXT **".....
02CB80: 20 20 20 20 20 20 32 2E 20 20 46 69 6C 65 20 73 2. File s
02CB90: 69 7A 65 73 20 61 72 65 20 61 70 70 72 6F 78 69 izes are approxi
02CBA0: 6D 61 74 65 2E 0D 0A 1A 20 20 5A 53 43 52 4E 2E mate.... ZSCRN.
02CBB0: 4F 56 4C 20 20 20 20 20 20 20 32 30 4B 0D 0A 0D OVL 20K...
02CBC0: 0A 0D 0A 4E 2E 42 2E 20 20 31 2E 20 20 44 65 6C ...N.B. 1. Del
02CBD0: 65 74 65 20 75 6E 77 61 6E 74 65 64 20 66 69 6C ete unwanted fil
02CBE0: 65 73 20 6D 61 72 6B 65 64 20 22 2A 2A 20 46 4E es marked "** FN
02CBF0: 41 4D 45 2E 45 58 54 20 2A 2A 22 2E 0D 0A 0D 0A AME.EXT **".....
02CC00: 45 0D 0A 20 20 20 20 20 20 52 45 54 55 52 4E 0D E.. RETURN.
02CC10: 0A 0D 0A 20 20 20 20 43 41 53 45 20 6F 70 74 69 ... CASE opti
02CC20: 6F 6E 20 3D 20 22 51 22 0D 0A 20 20 20 20 20 20 on = "Q"..
02CC30: 45 52 41 53 45 0D 0A 20 20 20 20 20 20 51 55 49 ERASE.. QUI
02CC40: 54 0D 0A 0D 0A 20 20 20 20 43 41 53 45 20 6F 70 T.... CASE op
02CC50: 74 69 6F 6E 20 3D 20 22 42 22 0D 0A 20 20 20 20 tion = "B"..
02CC60: 20 20 40 20 32 36 2C 31 30 20 53 41 59 20 22 20 @ 26,10 SAY "
02CC70: 4D 61 6B 65 20 73 75 72 65 20 79 6F 75 72 20 42 Make sure your B
02CC80: 4F 4F 4B 53 20 64 61 74 61 20 69 73 20 69 6E 20 OOKS data is in
02CC90: 74 68 65 20 64 65 66 61 75 6C 74 20 64 72 69 76 the default driv
02CCA0: 65 20 61 6E 64 20 70 72 65 73 73 20 61 20 6B 65 e and press a ke
02CCB0: 79 2E 20 22 0D 0A 20 20 20 20 20 20 57 41 49 54 y. ".. WAIT
02CCC0: 0D 0A 20 20 20 20 20 20 44 4F 20 62 6F 6F 6B 73 .. DO books
02CCD0: 0D 0A 0D 0A 20 20 20 20 43 41 53 45 20 6F 70 74 .... CASE opt
02CCE0: 69 6F 6E 20 3D 20 22 4D 22 0D 0A 20 20 20 20 20 ion = "M"..
02CCF0: 20 40 20 32 36 2C 31 30 20 53 41 59 20 22 20 4D @ 26,10 SAY " M
02CD00: 20 20 20 20 20 36 4B 20 20 20 20 20 20 20 20 20 6K
02CD10: 20 20 20 20 46 52 4F 4E 44 20 20 20 2E 45 4E 44 FROND .END
02CD20: 20 20 20 20 20 36 4B 0D 0A 20 20 20 20 20 20 20 6K..
02CD30: 20 20 20 20 20 20 20 20 20 46 52 4F 4E 45 20 20 FRONE
02CD40: 20 2E 45 4E 44 20 20 20 20 20 38 4B 20 20 20 20 .END 8K
02CD50: 20 20 20 20 20 20 20 20 20 46 52 4F 4E 46 20 20 FRONF
02CD60: 20 2E 45 4E 44 20 20 20 20 20 38 4B 0D 0A 20 20 .END 8K..
02CD70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 52 FR
02CD80: 4F 4E 47 20 20 20 2E 45 4E 44 20 20 20 20 20 38 ONG .END 8
02CD90: 4B 20 20 20 20 20 20 20 20 20 20 20 20 20 46 52 K FR
02CDA0: 4F 4E 48 20 20 20 2E 45 4E 44 20 20 20 20 31 32 ONH .END 12
02CDB0: 4B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 K..
02CDC0: 20 20 20 46 52 4F 4E 49 20 20 20 2E 45 4E 44 20 FRONI .END
02CDD0: 20 20 20 31 34 4B 20 20 20 20 20 20 20 20 20 20 14K
02CDE0: 20 20 20 46 52 4F 4E 49 32 20 20 2E 45 4E 44 20 FRONI2 .END
02CDF0: 20 20 20 31 32 4B 0D 0A 20 20 20 20 20 20 20 20 12K..
02CE00: 20 20 20 20 20 20 20 20 46 52 4F 4E 49 58 20 20 FRONIX
02CE10: 2E 44 42 57 20 20 20 20 20 32 4B 20 20 20 20 20 .DBW 2K
02CE20: 20 20 20 20 20 20 20 20 46 52 4F 4E 54 20 20 20 FRONT
02CE30: 2E 45 4E 44 20 20 20 20 20 32 4B 0D 0A 20 20 20 .END 2K..
02CE40: 20 20 20 20 20 20 20 20 20 20 20 20 20 49 4E 54 INT
02CE50: 52 31 20 20 20 2E 43 4D 44 20 20 20 20 20 32 4B R1 .CMD 2K
02CE60: 20 20 20 20 20 20 20 20 20 20 20 20 20 49 4E 54 INT
02CE70: 52 4F 20 20 20 2E 43 4D 44 20 20 20 20 20 34 4B RO .CMD 4K
02CE80: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
02CE90: 20 20 4D 45 4E 55 20 20 20 20 2E 43 4D 44 20 20 MENU .CMD
02CEA0: 20 20 31 31 4B 20 20 20 20 20 20 20 20 20 20 20 11K
02CEB0: 20 20 4D 45 4E 55 20 20 20 20 2E 48 45 58 20 20 MENU .HEX
02CEC0: 20 20 20 32 4B 0D 0A 20 20 20 20 20 20 20 20 20 2K..
02CED0: 20 20 20 20 20 20 20 4D 45 4E 55 49 4E 49 54 2E MENUINIT.
02CEE0: 43 4D 44 20 20 20 20 20 32 4B 20 20 20 20 20 20 CMD 2K
02CEF0: 20 20 20 20 20 20 20 52 4F 4F 4D 53 20 20 20 2E ROOMS .
02CF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D100: 46 52 4D 20 20 20 20 20 32 4B 0D 0A 20 20 20 20 FRM 2K..
02D110: 20 20 20 20 20 20 20 20 20 20 20 20 52 4F 4F 4D ROOM
02D120: 53 20 20 20 2E 4E 44 58 20 20 20 20 20 32 4B 20 S .NDX 2K
02D130: 20 20 20 20 20 20 20 20 20 20 20 20 53 43 43 30 SCC0
02D140: 30 30 30 31 2E 43 4D 44 20 20 20 20 20 34 4B 0D 0001.CMD 4K.
02D150: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
02D160: 20 53 43 43 31 30 30 30 30 2E 43 4D 44 20 20 20 SCC10000.CMD
02D170: 20 31 38 4B 20 20 20 20 20 20 20 20 20 20 20 20 18K
02D180: 20 53 43 43 31 30 30 30 31 2E 43 4D 44 20 20 20 SCC10001.CMD
02D190: 20 20 32 4B 0D 0A 20 20 20 20 20 20 20 20 20 20 2K..
02D1A0: 20 20 20 20 20 20 53 43 43 31 31 30 30 30 2E 43 SCC11000.C
02D1B0: 4D 44 20 20 20 20 20 34 4B 20 20 20 20 20 20 20 MD 4K
02D1C0: 20 20 20 20 20 20 53 43 43 32 30 30 30 30 2E 43 SCC20000.C
02D1D0: 4D 44 20 20 20 20 31 32 4B 0D 0A 20 20 20 20 20 MD 12K..
02D1E0: 20 20 20 20 20 20 20 20 20 20 20 53 43 43 32 30 SCC20
02D1F0: 30 30 31 2E 43 4D 44 20 20 20 20 20 32 4B 20 20 001.CMD 2K
02D200: 20 20 20 20 20 20 20 20 20 20 20 53 43 43 32 30 SCC20
02D210: 31 30 30 2E 43 4D 44 20 20 20 20 20 34 4B 0D 0A 100.CMD 4K..
02D220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02D230: 53 43 43 32 32 30 30 30 2E 43 4D 44 20 20 20 20 SCC22000.CMD
02D240: 20 34 4B 20 20 20 20 20 20 20 20 20 20 20 20 20 4K
02D250: 53 43 43 32 33 30 30 30 2E 43 4D 44 20 20 20 20 SCC23000.CMD
02D260: 20 34 4B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 4K..
02D270: 20 20 20 20 20 53 43 43 32 34 30 30 30 2E 43 4D SCC24000.CM
02D280: 44 20 20 20 20 20 34 4B 20 20 20 20 20 20 20 20 D 4K
02D290: 20 20 20 20 20 53 43 43 32 35 30 30 30 2E 43 4D SCC25000.CM
02D2A0: 44 20 20 20 20 20 38 4B 0D 0A 20 20 20 20 20 20 D 8K..
02D2B0: 20 20 20 20 20 20 20 20 20 20 53 43 43 32 36 30 SCC260
02D2C0: 30 30 2E 43 4D 44 20 20 20 20 20 36 4B 20 20 20 00.CMD 6K
02D2D0: 20 20 20 20 20 20 20 20 20 20 53 43 43 32 37 30 SCC270
02D2E0: 30 30 2E 43 4D 44 20 20 20 20 31 36 4B 0D 0A 20 00.CMD 16K..
02D2F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 S
02D300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02D310: 26 00 01 00 02 09 52 E5 26 00 41 02 00 00 00 02 &.....R.&.A.....
02D320: 26 00 46 02 00 00 00 02 26 00 42 02 00 00 00 02 &.F.....&.B.....
02D330: 26 00 47 02 00 00 00 02 26 00 43 02 00 00 00 02 &.G.....&.C.....
02D340: 26 00 48 02 00 00 00 02 26 00 44 02 00 00 00 02 &.H.....&.D.....
02D350: 26 00 49 02 00 00 00 02 26 00 45 02 00 00 00 02 &.I.....&.E.....
02D360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D400: 2A 20 57 45 4C 43 4F 4D 45 20 2D 20 46 52 4F 4E * WELCOME - FRON
02D410: 54 20 45 4E 44 20 20 64 42 41 53 45 49 49 0D 0A T END dBASEII..
02D420: 43 4C 45 41 52 0D 0A 53 45 54 20 54 41 4C 4B 20 CLEAR..SET TALK
02D430: 4F 46 46 0D 0A 53 45 54 20 45 43 48 4F 20 4F 46 OFF..SET ECHO OF
02D440: 46 0D 0A 53 45 54 20 45 53 43 41 50 45 20 4F 46 F..SET ESCAPE OF
02D450: 46 0D 0A 53 45 54 20 42 45 4C 4C 20 4F 46 46 0D F..SET BELL OFF.
02D460: 0A 53 45 54 20 49 4E 54 45 4E 53 49 54 59 20 4F .SET INTENSITY O
02D470: 46 46 0D 0A 45 52 41 53 45 0D 0A 54 45 58 54 0D FF..ERASE..TEXT.
02D480: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 20 20 20 20 20 ...........
02D490: 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A **********
02D4A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02D4B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02D4C0: 2A 2A 2A 2A 2A 0D 0A 20 20 20 20 20 20 20 20 20 *****..
02D4D0: 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A **************
02D4E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02D4F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02D500: 2A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 2A 2A *.. **
02D510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02D520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02D530: 20 20 20 20 20 20 20 20 20 20 20 2A 2A 0D 0A 20 **..
02D540: 20 20 20 20 20 20 20 20 20 20 2A 2A 20 20 20 20 **
02D550: 20 20 20 20 20 20 20 20 57 20 20 45 20 20 4C 20 W E L
02D560: 20 43 20 20 4F 20 20 4D 20 20 45 20 20 20 20 20 C O M E
02D570: 20 20 20 20 20 20 20 2A 2A 0D 0A 20 20 20 20 20 **..
02D580: 20 20 20 20 20 20 2A 2A 20 20 20 20 20 20 20 20 **
02D590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02D5A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02D5B0: 20 20 20 2A 2A 0D 0A 20 20 20 20 20 20 20 20 20 **..
02D5C0: 20 20 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 **
02D5D0: 20 20 20 20 20 20 20 20 54 20 4F 20 20 20 20 20 T O
02D5E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A *
02D5F0: 2A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 2A 2A *.. **
02D600: 54 6F 20 6D 6F 76 65 20 69 6E 74 6F 20 20 74 68 To move into th
02D610: 65 20 77 6F 72 6C 64 20 6F 66 20 6D 69 63 72 6F e world of micro
02D620: 20 64 61 74 61 62 61 73 65 20 64 65 76 65 6C 6F database develo
02D630: 70 6D 65 6E 74 20 61 6C 6C 0D 0A 20 20 20 20 20 pment all..
02D640: 20 79 6F 75 20 6E 65 65 64 20 20 74 6F 20 64 6F you need to do
02D650: 20 69 73 20 70 72 65 73 73 20 79 6F 75 72 20 63 is press your c
02D660: 61 72 72 69 61 67 65 20 72 65 74 75 72 6E 20 6B arriage return k
02D670: 65 79 2E 0D 0A 0D 0A 20 20 20 20 20 20 57 69 73 ey..... Wis
02D680: 68 69 6E 67 20 79 6F 75 20 61 6C 6C 20 74 68 65 hing you all the
02D690: 20 62 65 73 74 2C 20 41 53 48 54 4F 4E 2D 54 41 best, ASHTON-TA
02D6A0: 54 45 20 73 61 79 73 20 74 6F 20 79 6F 75 20 2D TE says to you -
02D6B0: 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ....
02D6C0: 20 20 20 20 20 20 20 2A 2A 2A 20 20 20 57 20 20 *** W
02D6D0: 45 20 20 4C 20 20 43 20 20 4F 20 20 4D 20 20 45 E L C O M E
02D6E0: 20 20 20 2A 2A 2A 0D 0A 45 4E 44 54 45 58 54 0D ***..ENDTEXT.
02D6F0: 0A 53 45 54 20 43 4F 4E 53 4F 4C 45 20 4F 46 46 .SET CONSOLE OFF
02D700: 0D 0A 41 43 43 45 50 54 20 54 4F 20 57 41 49 54 ..ACCEPT TO WAIT
02D710: 45 52 0D 0A 53 45 54 20 43 4F 4E 53 4F 4C 45 20 ER..SET CONSOLE
02D720: 4F 4E 0D 0A 44 4F 20 46 52 4F 4E 54 2E 45 4E 44 ON..DO FRONT.END
02D730: 0D 0A 45 52 41 53 45 0D 0A 54 45 58 54 0D 0A 0D ..ERASE..TEXT...
02D740: 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 2A 2A ... **
02D750: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02D760: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02D770: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0A 20 *************..
02D780: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A ******
02D790: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02D7A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02D7B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0A 20 20 20 20 20 *********..
02D7C0: 20 20 20 20 20 20 2A 2A 20 20 20 20 20 20 20 20 **
02D7D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02D7E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02D7F0: 20 20 20 2A 2A 0D 0A 20 20 20 20 20 20 20 20 20 **..
02D800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02D810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02D820: 20 20 20 20 20 20 20 20 20 20 20 2A 2A 0D 0A 20 **..
02D830: 20 20 20 20 20 20 20 20 20 20 2A 2A 20 20 20 20 **
02D840: 20 20 20 20 20 41 20 53 20 48 20 54 20 4F 20 4E A S H T O N
02D850: 20 2D 20 54 20 41 20 54 20 45 20 27 20 53 20 20 - T A T E ' S
02D860: 20 20 20 20 20 20 20 2A 2A 0D 0A 20 20 20 20 20 **..
02D870: 20 20 20 20 20 20 2A 2A 20 20 20 20 20 20 20 20 **
02D880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02D890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02D8A0: 20 20 20 2A 2A 0D 0A 20 20 20 20 20 20 20 20 20 **..
02D8B0: 20 20 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 **
02D8C0: 20 20 64 20 42 20 41 20 53 20 45 20 20 20 49 20 d B A S E I
02D8D0: 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A I *
02D8E0: 2A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 2A 2A *.. **
02D8F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02D900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02D910: 20 20 20 20 20 20 20 20 20 20 20 2A 2A 0D 0A 20 **..
02D920: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A ******
02D930: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02D940: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02D950: 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0A 20 20 20 20 20 *********..
02D960: 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A **********
02D970: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02D980: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02D990: 2A 2A 2A 2A 2A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D *****...........
02D9A0: 0A 0D 0A 45 4E 44 54 45 58 54 0D 0A 53 54 4F 52 ...ENDTEXT..STOR
02D9B0: 45 20 30 20 54 4F 20 43 4F 55 4E 54 0D 0A 44 4F E 0 TO COUNT..DO
02D9C0: 20 57 48 49 4C 45 20 43 4F 55 4E 54 20 3C 20 35 WHILE COUNT < 5
02D9D0: 30 0D 0A 20 20 53 54 4F 52 45 20 43 4F 55 4E 54 0.. STORE COUNT
02D9E0: 20 2B 31 20 54 4F 20 43 4F 55 4E 54 0D 0A 45 4E +1 TO COUNT..EN
02D9F0: 44 44 4F 0D 0A 45 52 41 53 45 0D 0A 54 45 58 54 DDO..ERASE..TEXT
02DA00: 20 20 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 **
02DA10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02DA20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A *
02DA30: 2A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 2A 2A *.. **
02DA40: 20 20 20 57 45 20 48 4F 50 45 20 59 4F 55 20 48 WE HOPE YOU H
02DA50: 41 56 45 20 46 4F 55 4E 44 20 20 54 48 45 20 57 AVE FOUND THE W
02DA60: 45 4C 43 4F 4D 45 20 20 20 20 20 2A 2A 0D 0A 20 ELCOME **..
02DA70: 20 20 20 20 20 20 20 20 20 20 2A 2A 20 20 20 20 **
02DA80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02DA90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02DAA0: 20 20 20 20 20 20 20 2A 2A 0D 0A 20 20 20 20 20 **..
02DAB0: 20 20 20 20 20 20 2A 2A 20 20 20 50 52 4F 47 52 ** PROGR
02DAC0: 41 4D 20 55 53 45 46 55 4C 2E 20 49 54 20 48 41 AM USEFUL. IT HA
02DAD0: 53 20 4F 4E 4C 59 20 42 52 49 45 46 4C 59 20 20 S ONLY BRIEFLY
02DAE0: 20 20 20 2A 2A 0D 0A 20 20 20 20 20 20 20 20 20 **..
02DAF0: 20 20 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 **
02DB00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02DB10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A *
02DB20: 2A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 2A 2A *.. **
02DB30: 20 20 20 43 4F 56 45 52 45 44 20 41 20 53 4D 41 COVERED A SMA
02DB40: 4C 4C 20 53 55 42 53 45 54 20 4F 46 20 64 42 41 LL SUBSET OF dBA
02DB50: 53 45 20 49 49 2E 20 20 20 20 20 2A 2A 0D 0A 20 SE II. **..
02DB60: 20 20 20 20 20 20 20 20 20 20 2A 2A 20 20 20 20 **
02DB70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02DB80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02DB90: 20 20 20 20 20 20 20 2A 2A 0D 0A 20 20 20 20 20 **..
02DBA0: 20 20 20 20 20 20 2A 2A 20 20 20 20 20 20 20 20 **
02DBB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02DBC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02DBD0: 20 20 20 2A 2A 0D 0A 20 20 20 20 20 20 20 20 20 **..
02DBE0: 20 20 2A 2A 20 20 46 4F 52 20 4D 4F 52 45 20 44 ** FOR MORE D
02DBF0: 45 54 41 49 4C 53 20 54 52 59 20 54 48 45 20 22 ETAILS TRY THE "
02DC00: 0D 0A 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 ......
02DC10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02DC20: 20 20 57 20 45 20 4C 20 43 20 4F 20 4D 20 45 0D W E L C O M E.
02DC30: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
02DC40: 20 20 20 20 20 20 20 20 20 20 20 20 20 3D 3D 3D ===
02DC50: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 20 20 ==========....
02DC60: 20 41 73 20 61 20 6E 65 77 20 75 73 65 72 20 6F As a new user o
02DC70: 66 20 20 64 42 41 53 45 20 49 49 20 20 77 65 20 f dBASE II we
02DC80: 72 65 61 6C 69 73 65 20 20 61 74 20 20 66 69 72 realise at fir
02DC90: 73 74 20 73 69 67 68 74 20 79 6F 75 20 77 69 6C st sight you wil
02DCA0: 6C 0D 0A 20 20 20 66 69 6E 64 20 74 68 69 6E 67 l.. find thing
02DCB0: 73 20 20 61 20 20 6C 69 74 74 6C 65 20 63 6F 6E s a little con
02DCC0: 66 75 73 69 6E 67 2E 20 20 59 6F 75 20 20 6D 61 fusing. You ma
02DCD0: 79 20 65 76 65 6E 20 20 62 65 20 20 75 6E 64 65 y even be unde
02DCE0: 72 20 20 74 68 65 0D 0A 20 20 20 69 6D 70 72 65 r the.. impre
02DCF0: 73 73 69 6F 6E 20 74 68 61 74 20 64 42 41 53 45 ssion that dBASE
02DD00: 49 49 20 20 69 73 20 20 63 6F 6D 70 6C 65 78 20 II is complex
02DD10: 20 74 6F 20 20 75 73 65 2E 20 59 6F 75 20 63 6F to use. You co
02DD20: 75 6C 64 20 20 4E 4F 54 20 62 65 0D 0A 20 20 20 uld NOT be..
02DD30: 66 75 72 74 68 65 72 20 66 72 6F 6D 20 74 68 65 further from the
02DD40: 20 74 72 75 74 68 2E 0D 0A 0D 0A 20 20 20 57 45 truth..... WE
02DD50: 4C 43 4F 4D 45 20 20 68 61 73 20 62 65 65 6E 20 LCOME has been
02DD60: 77 72 69 74 74 65 6E 20 20 74 6F 20 65 6E 61 62 written to enab
02DD70: 6C 65 20 79 6F 75 20 20 74 6F 20 75 6E 64 65 72 le you to under
02DD80: 73 74 61 6E 64 20 6A 75 73 74 20 68 6F 77 0D 0A stand just how..
02DD90: 20 20 20 65 61 73 79 20 69 74 20 69 73 20 74 6F easy it is to
02DDA0: 20 73 74 61 72 74 20 75 73 69 6E 67 20 64 42 41 start using dBA
02DDB0: 53 45 20 49 49 20 20 65 76 65 6E 20 69 66 20 79 SE II even if y
02DDC0: 6F 75 20 68 61 76 65 20 6E 6F 20 70 72 65 76 69 ou have no previ
02DDD0: 6F 75 73 0D 0A 20 20 20 70 72 6F 67 72 61 6D 6D ous.. programm
02DDE0: 69 6E 67 20 65 78 70 65 72 69 65 6E 63 65 2E 0D ing experience..
02DDF0: 0A 0D 0A 20 20 20 57 45 4C 43 4F 4D 45 20 20 77 ... WELCOME w
02DE00: 48 45 4C 50 22 20 43 4F 4D 4D 41 4E 44 20 20 2A HELP" COMMAND *
02DE10: 2A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 2A 2A *.. **
02DE20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02DE30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02DE40: 20 20 20 20 20 20 20 20 20 20 20 2A 2A 0D 0A 20 **..
02DE50: 20 20 20 20 20 20 20 20 20 20 2A 2A 20 20 20 20 **
02DE60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02DE70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02DE80: 20 20 20 20 20 20 20 2A 2A 0D 0A 20 20 20 20 20 **..
02DE90: 20 20 20 20 20 20 2A 2A 20 20 20 20 20 20 20 20 **
02DEA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02DEB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02DEC0: 20 20 20 2A 2A 0D 0A 20 20 20 20 20 20 20 20 20 **..
02DED0: 20 20 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 **
02DEE0: 47 20 20 4F 20 20 4F 20 20 44 20 20 42 20 20 59 G O O D B Y
02DEF0: 20 20 45 20 20 20 20 20 20 20 20 20 20 20 20 2A E *
02DF00: 2A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 2A 2A *.. **
02DF10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02DF20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02DF30: 20 20 20 20 20 20 20 20 20 20 20 2A 2A 0D 0A 20 **..
02DF40: 20 20 20 20 20 20 20 20 20 20 2A 2A 20 20 20 20 **
02DF50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02DF60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02DF70: 20 20 20 20 20 20 20 2A 2A 0D 0A 20 20 20 20 20 **..
02DF80: 20 20 20 20 20 20 2A 2A 20 20 20 20 20 20 20 20 **
02DF90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02DFA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02DFB0: 20 20 20 2A 2A 0D 0A 20 20 20 20 20 20 20 20 20 **..
02DFC0: 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A **************
02DFD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02DFE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02DFF0: 2A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 2A 2A *.. **
02E000: 69 6C 6C 20 74 61 6B 65 20 20 79 6F 75 20 73 74 ill take you st
02E010: 65 70 20 20 62 79 20 20 73 74 65 70 20 74 68 72 ep by step thr
02E020: 6F 75 67 68 20 20 73 6F 6D 65 20 6F 66 20 74 68 ough some of th
02E030: 65 20 6D 61 69 6E 0D 0A 20 20 20 63 6F 6D 6D 61 e main.. comma
02E040: 6E 64 73 20 61 76 61 69 6C 61 62 6C 65 20 74 6F nds available to
02E050: 20 79 6F 75 20 61 6E 64 20 62 75 69 6C 64 20 75 you and build u
02E060: 70 20 79 6F 75 72 20 65 78 70 65 72 74 69 73 65 p your expertise
02E070: 20 75 6E 74 69 6C 20 20 79 6F 75 0D 0A 20 20 20 until you..
02E080: 61 72 65 20 61 62 6C 65 20 74 6F 20 75 73 65 20 are able to use
02E090: 64 42 41 53 45 20 49 49 20 77 69 74 68 20 73 6F dBASE II with so
02E0A0: 6D 65 20 63 6F 6E 66 69 64 65 6E 63 65 2E 0D 0A me confidence...
02E0B0: 0D 0A 20 20 20 57 45 4C 43 4F 4D 45 20 20 2D 20 .. WELCOME -
02E0C0: 69 73 20 77 72 69 74 74 65 6E 20 69 6E 20 64 42 is written in dB
02E0D0: 41 53 45 20 49 49 2E 0D 0A 0D 0A 0D 0A 45 4E 44 ASE II.......END
02E0E0: 54 45 58 54 0D 0A 53 54 4F 52 45 20 27 20 27 20 TEXT..STORE ' '
02E0F0: 54 4F 20 57 41 49 54 45 52 0D 0A 40 20 32 33 2C TO WAITER..@ 23,
02E100: 32 30 20 53 41 59 20 27 50 72 65 73 73 20 79 6F 20 SAY 'Press yo
02E110: 75 72 20 63 61 72 72 69 61 67 65 20 72 65 74 75 ur carriage retu
02E120: 72 6E 20 6B 65 79 20 6E 6F 77 20 27 0D 0A 53 45 rn key now '..SE
02E130: 54 20 43 4F 4E 53 4F 4C 45 20 4F 46 46 0D 0A 41 T CONSOLE OFF..A
02E140: 43 43 45 50 54 20 54 4F 20 57 41 49 54 45 52 0D CCEPT TO WAITER.
02E150: 0A 53 45 54 20 43 4F 4E 53 4F 4C 45 20 4F 4E 0D .SET CONSOLE ON.
02E160: 0A 45 52 41 53 45 0D 0A 54 45 58 54 0D 0A 0D 0A .ERASE..TEXT....
02E170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02E180: 20 20 20 20 20 20 20 20 20 20 20 20 57 20 45 20 W E
02E190: 4C 20 43 20 4F 20 4D 20 45 0D 0A 20 20 20 20 20 L C O M E..
02E1A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02E1B0: 20 20 20 20 20 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D =========
02E1C0: 3D 3D 3D 3D 0D 0A 0D 0A 20 20 20 20 20 20 4F 6E ====.... On
02E1D0: 20 74 68 65 20 66 6F 6C 6C 6F 77 69 6E 67 20 73 the following s
02E1E0: 63 72 65 65 6E 73 20 79 6F 75 20 61 72 65 20 6F creens you are o
02E1F0: 66 66 65 72 65 64 20 76 61 72 69 6F 75 73 20 74 ffered various t
02E200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02E210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02E220: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0A 0D *************...
02E230: 0A 0D 0A 45 4E 44 54 45 58 54 0D 0A 53 54 4F 52 ...ENDTEXT..STOR
02E240: 45 20 31 20 54 4F 20 43 4F 55 4E 54 45 52 0D 0A E 1 TO COUNTER..
02E250: 44 4F 20 57 48 49 4C 45 20 43 4F 55 4E 54 45 52 DO WHILE COUNTER
02E260: 20 3C 20 35 30 0D 0A 20 20 20 53 54 4F 52 45 20 < 50.. STORE
02E270: 43 4F 55 4E 54 45 52 20 2B 20 31 20 54 4F 20 43 COUNTER + 1 TO C
02E280: 4F 55 4E 54 45 52 0D 0A 45 4E 44 44 4F 0D 0A 49 OUNTER..ENDDO..I
02E290: 46 20 52 45 53 50 24 27 51 27 0D 0A 20 20 51 55 F RESP$'Q'.. QU
02E2A0: 49 54 0D 0A 45 4C 53 45 0D 0A 20 20 43 4C 45 41 IT..ELSE.. CLEA
02E2B0: 52 0D 0A 20 20 53 45 54 20 45 53 43 41 50 45 20 R.. SET ESCAPE
02E2C0: 4F 4E 0D 0A 20 20 53 45 54 20 42 45 4C 4C 20 20 ON.. SET BELL
02E2D0: 20 4F 4E 0D 0A 20 20 53 45 54 20 43 4F 4C 4F 4E ON.. SET COLON
02E2E0: 20 20 4F 4E 0D 0A 45 4E 44 49 46 0D 0A 52 45 54 ON..ENDIF..RET
02E2F0: 55 52 4E 0D 0A 1A 1A 2A 2A 2A 2A 2A 2A 2A 2A 2A URN....*********
02E300: 2A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 2A 2A *.. **
02E310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02E320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02E330: 20 20 20 20 20 20 20 20 20 20 20 2A 2A 0D 0A 20 **..
02E340: 20 20 20 20 20 20 20 20 20 20 2A 2A 20 20 20 20 **
02E350: 20 20 20 20 20 20 20 20 57 20 20 45 20 20 4C 20 W E L
02E360: 20 43 20 20 4F 20 20 4D 20 20 45 20 20 20 20 20 C O M E
02E370: 20 20 20 20 20 20 20 2A 2A 0D 0A 20 20 20 20 20 **..
02E380: 20 20 20 20 20 20 2A 2A 20 20 20 20 20 20 20 20 **
02E390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02E3A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02E3B0: 20 20 20 2A 2A 0D 0A 20 20 20 20 20 20 20 20 20 **..
02E3C0: 20 20 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 **
02E3D0: 20 20 20 20 20 20 20 20 54 20 4F 20 20 20 20 20 T O
02E3E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A *
02E3F0: 2A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 2A 2A *.. **
02E400: 65 61 63 68 69 6E 67 0D 0A 20 20 20 20 20 20 61 eaching.. a
02E410: 69 64 73 2E 20 49 74 20 69 73 20 75 70 20 74 6F ids. It is up to
02E420: 20 79 6F 75 20 74 6F 20 6D 61 6B 65 20 79 6F 75 you to make you
02E430: 72 20 73 65 6C 65 63 74 69 6F 6E 20 61 6E 64 20 r selection and
02E440: 62 75 69 6C 64 20 6F 6E 0D 0A 20 20 20 20 20 20 build on..
02E450: 79 6F 75 72 20 6F 77 6E 20 65 78 70 65 72 69 65 your own experie
02E460: 6E 63 65 20 66 72 6F 6D 20 57 45 4C 43 4F 4D 45 nce from WELCOME
02E470: 2E 0D 0A 0D 0A 20 20 20 20 20 20 59 6F 75 20 61 ..... You a
02E480: 72 65 20 72 65 63 6F 6D 6D 65 6E 64 65 64 20 74 re recommended t
02E490: 6F 20 74 72 79 20 6F 75 74 20 65 61 63 68 20 61 o try out each a
02E4A0: 69 64 20 69 6E 20 74 68 65 20 6F 72 64 65 72 20 id in the order
02E4B0: 74 68 65 79 0D 0A 20 20 20 20 20 20 61 70 70 65 they.. appe
02E4C0: 61 72 20 6F 6E 20 74 68 65 20 73 63 72 65 65 6E ar on the screen
02E4D0: 20 75 6E 74 69 6C 20 79 6F 75 20 62 65 63 6F 6D until you becom
02E4E0: 65 20 6D 6F 72 65 20 61 64 65 70 74 2E 0D 0A 0D e more adept....
02E4F0: 0A 20 20 20 20 20 20 41 74 20 76 61 72 69 6F 75 . At variou
02E500: 73 20 73 74 61 67 65 73 20 79 6F 75 20 77 69 6C s stages you wil
02E510: 6C 20 73 65 65 20 63 6F 6D 6D 61 6E 64 73 20 70 l see commands p
02E520: 72 65 63 65 64 65 64 20 62 79 20 61 20 64 6F 74 receded by a dot
02E530: 2C 0D 0A 20 20 20 20 20 20 66 6F 72 20 65 78 61 ,.. for exa
02E540: 6D 70 6C 65 20 3A 0D 0A 20 20 20 20 20 20 20 20 mple :..
02E550: 20 20 20 20 20 20 20 20 20 20 20 20 2E 20 43 52 . CR
02E560: 45 41 54 45 0D 0A 20 20 20 20 20 20 54 68 65 20 EATE.. The
02E570: 64 6F 74 20 69 73 20 74 68 65 20 20 64 42 41 53 dot is the dBAS
02E580: 45 20 49 49 20 20 70 72 6F 6D 70 74 2E 20 54 68 E II prompt. Th
02E590: 65 72 65 66 6F 72 65 20 77 68 65 6E 20 79 6F 75 erefore when you
02E5A0: 20 63 6F 6D 65 0D 0A 20 20 20 20 20 20 74 6F 20 come.. to
02E5B0: 65 6E 74 65 72 69 6E 67 20 20 64 42 41 53 45 20 entering dBASE
02E5C0: 49 49 20 63 6F 6D 6D 61 6E 64 73 20 20 74 68 65 II commands the
02E5D0: 20 64 6F 74 20 73 68 6F 75 6C 64 20 2D 20 4E 4F dot should - NO
02E5E0: 54 20 2D 20 62 65 0D 0A 20 20 20 20 20 20 65 6E T - be.. en
02E5F0: 74 65 72 65 64 2E 0D 0A 0D 0A 20 20 20 20 20 20 tered.....
02E600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02E610: 27 00 01 00 02 09 52 E5 27 00 41 02 00 00 00 02 '.....R.'.A.....
02E620: 27 00 46 02 00 00 00 02 27 00 42 02 00 00 00 02 '.F.....'.B.....
02E630: 27 00 47 02 00 00 00 02 27 00 43 02 00 00 00 02 '.G.....'.C.....
02E640: 27 00 48 02 00 00 00 02 27 00 44 02 00 00 00 02 '.H.....'.D.....
02E650: 27 00 49 02 00 00 00 02 27 00 45 02 00 00 00 02 '.I.....'.E.....
02E660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F900: 4F 66 66 73 65 74 2D 49 6E 66 6F 0D 0A 00 00 85 Offset-Info.....
02F910: 18 BB 00 4B 03 DA 05 6A 08 FB 0A 8B 0D 1C 10 AC ...K...j........
02F920: 12 3C 15 87 18 BA 00 4A 03 DA 05 69 08 F9 0A 8A .<.....J...i....
02F930: 0D 1A 10 AB 12 3C 15 78 18 BB 00 49 03 D7 05 65 .....<.x...I...e
02F940: 08 F3 0A 82 0D 11 10 A1 12 30 15 76 18 BC 00 4C .........0.v...L
02F950: 03 DA 05 68 08 F6 0A 84 0D 11 10 9E 12 2B 15 75 ...h.........+.u
02F960: 18 BC 00 49 03 D8 05 65 08 F4 0A 82 0D 12 10 9F ...I...e........
02F970: 12 2C 15 76 18 BB 00 49 03 D6 05 62 08 F1 0A 7E .,.v...I...b...~
02F980: 0D 0C 10 99 12 29 15 79 18 BB 00 49 03 D7 05 67 .....).y...I...g
02F990: 08 F4 0A 83 0D 10 10 A0 12 2D 15 73 18 BD 00 4A .........-.s...J
02F9A0: 03 D8 05 65 08 F5 0A 83 0D 10 10 9E 12 2B 15 78 ...e.........+.x
02F9B0: 18 BC 00 4A 03 D7 05 65 08 F4 0A 81 0D 0D 10 9D ...J...e........
02F9C0: 12 2C 15 74 18 BC 00 4A 03 D9 05 67 08 F6 0A 84 .,.t...J...g....
02F9D0: 0D 11 10 9F 12 2D 15 75 18 BB 00 49 03 D6 05 66 .....-.u...I...f
02F9E0: 08 F4 0A 81 0D 0E 10 9C 12 2B 15 73 18 BC 00 4B .........+.s...K
02F9F0: 03 D8 05 65 08 F4 0A 82 0D 10 10 9E 12 2B 15 73 ...e.........+.s
02FA00: 18 BD 00 4B 03 D8 05 66 08 F6 0A 85 0D 12 10 9F ...K...f........
02FA10: 12 2D 15 73 18 BC 00 4A 03 D8 05 66 08 F4 0A 81 .-.s...J...f....
02FA20: 0D 0E 10 9B 12 2A 15 71 18 BC 00 4A 03 D9 05 67 .....*.q...J...g
02FA30: 08 F6 0A 84 0D 12 10 9F 12 2C 15 71 18 BD 00 4B .........,.q...K
02FA40: 03 D8 05 66 08 F4 0A 83 0D 11 10 9F 12 2D 15 72 ...f.........-.r
02FA50: 18 BC 00 4A 03 D9 05 67 08 F4 0A 82 0D 0F 10 9C ...J...g........
02FA60: 12 2A 15 70 18 BC 00 4A 03 D9 05 67 08 F6 0A 84 .*.p...J...g....
02FA70: 0D 11 10 9F 12 2C 15 72 18 BD 00 4A 03 D8 05 68 .....,.r...J...h
02FA80: 08 F6 0A 84 0D 10 10 9D 12 2C 15 6F 18 BB 00 4A .........,.o...J
02FA90: 03 D7 05 65 08 F4 0A 82 0D 10 10 9E 12 2C 15 6F ...e.........,.o
02FAA0: 18 BC 00 49 03 D8 05 65 08 F4 0A 82 0D 10 10 9E ...I...e........
02FAB0: 12 2C 15 6F 18 BC 00 4B 03 D8 05 65 08 F4 0A 81 .,.o...K...e....
02FAC0: 0D 0F 10 9D 12 2B 15 6C 18 BC 00 4A 03 D9 05 68 .....+.l...J...h
02FAD0: 08 F7 0A 84 0D 11 10 9E 12 2B 15 6D 18 BC 00 4A .........+.m...J
02FAE0: 03 D7 05 65 08 F4 0A 82 0D 10 10 9C 12 2B 15 6C ...e.........+.l
02FAF0: 18 BC 00 49 03 D8 05 66 08 F4 0A 81 0D 0E 10 9B ...I...f........
02FB00: 12 28 15 6D 18 BC 00 4A 03 D7 05 66 08 F4 0A 84 .(.m...J...f....
02FB10: 0D 12 10 A1 12 2F 15 6A 18 BD 00 4B 03 D8 05 66 ...../.j...K...f
02FB20: 08 F5 0A 83 0D 10 10 9D 12 2A 15 6B 18 BD 00 4C .........*.k...L
02FB30: 03 DB 05 6A 08 F9 0A 86 0D 13 10 A0 12 2E 15 6A ...j...........j
02FB40: 18 BD 00 4B 03 D9 05 67 08 F4 0A 83 0D 11 10 9F ...K...g........
02FB50: 12 2D 15 6B 18 BD 00 4C 03 D9 05 66 08 F4 0A 83 .-.k...L...f....
02FB60: 0D 10 10 9D 12 2C 15 6C 18 BD 00 4A 03 D8 05 66 .....,.l...J...f
02FB70: 08 F6 0A 85 0D 15 10 A3 12 30 15 6B 18 BB 00 4A .......£.0.k...J
02FB80: 03 D7 05 65 08 F5 0A 84 0D 11 10 9F 12 2E 15 6A ...e...........j
02FB90: 18 BD 00 4C 03 DA 05 68 08 F7 0A 85 0D 12 10 9F ...L...h........
02FBA0: 12 2E 15 6B 18 BC 00 4A 03 D8 05 65 08 F4 0A 83 ...k...J...e....
02FBB0: 0D 12 10 A1 12 2E 15 66 18 BC 00 4A 03 D7 05 64 .......f...J...d
02FBC0: 08 F3 0A 82 0D 10 10 9C 12 2A 15 66 18 BC 00 4B .........*.f...K
02FBD0: 03 D9 05 68 08 F6 0A 85 0D 12 10 9F 12 2C 15 66 ...h.........,.f
02FBE0: 18 BD 00 4B 03 D9 05 66 08 F6 0A 83 0D 10 10 9E ...K...f........
02FBF0: 12 2C 15 67 18 BD 00 4C 03 DA 05 68 08 F6 0A 84 .,.g...L...h....
02FC00: 0D 11 10 9E 12 2E 15 64 18 BD 00 4C 03 DA 05 69 .......d...L...i
02FC10: 08 F7 0A 85 0D 13 10 A0 12 2E 15 77 18 BE 00 4E ...........w...N
02FC20: 03 DE 05 6E 08 FE 0A 8E 0D 1E 10 AE 12 3E 15 10 ...n.........>..
02FC30: 17 AD 1B ...
RESULT OF SEARCH :
PRO=40 CHEA=0 COD=0 MUSI=0 COP=25 GRA=17 WRIT=9 198=1 199=0 STARTER=13 KBI=0 CAAV=0 L.TOURNIER=0
EXTENDED CPC DSK File SAMdisk170514* RAFBGCHDIE!04 d(o&0#!*4(!!Fk Discette
read failure Press any key to restart!4 Cannot find ".EMS" file Press any key
to restart#Z 8! " ++( )8gJO.#EMS RAFBGCHDIE RAFBGCHDIEAUTHORS NDXBOOK2 FRMT
YPE-ME BOOKS DBF, BOOKS FRMBOOKS1 CMDBOOKS2 CMDBOOKS3 CMDBOOKS4 CMDB
OOKS5 CMDBOOKS6 CMD BOOKS7 CMD!"BOOKS8 CMD#$FRONA DFL%FRONA END&'()*+,-.
/012345FRONA END6 WORLD ATLAS BYRON CHILDE HAROLCLARKE,MRS MR
IVAL PRINCECONRAD LORD JIM DANTE INFERNO DE PACE WORKING
WITHDICKENS BLEAK HOUSE DICKENS DOMBEY AND SDR PAYNE THE ART OF SGREY
,ZANE RIDERS OF THHERBERT,FRANDUNE HERBERT,FRANDUNE MESSIAHIBSEN
DOLL'S HOUSEJOYCE FINNIGAN'S WJOYCE PORTRAIT OF KANT CRITIQUE
OF TOLSTOY ANNA KARENIN TOLSTOY WAR AND PEACWORFRONB END/789FRONC E
ND.ABFROND END)CDEFGHFRONE END6IJKLMNOFRONF END7PQRSTUVFRONG END7WXYZFRO
NH ENDRabcdefghFRONI ENDgijklmnopqrstuFRONI2 ENDvwxyzFRONIX DBWFRONT END
ROOMS FRMROOMS NDXSUBJECT NDXTITLES NDX$INTRO CMD KEATS COLLECTED P
OMAUGHAM,SOMECAKES AND ALMRS N E TREMTHE TRIALS TSHAKESPEARE AS YOU LIKE SHAKESP
EARE HENRY V SHAKESPEARE KING LEAR SHAKESPEARE ROMEO AND JUSHAKESPEARE TEM
PEST THATCHER & LWHAT ECONOMITOLSTOY ANNA KARENIN TOLSTOY WAR AND PE
ACWILLIAM TELLTHE LOSS OF WORDSWORTH MICHAEL SHAKESPEARE KING LEAR SHAKES
PEARE ROMEO AND JUSHAKESPEARE TEMPEST TOLSTOY ANNA KARENIN TOLSTOY W
AR AND PEACWORUTILS TXT(BOOKS CMDINTR1 CMDDISCDIR TXTWELCOME CMD$£KANT
CRITIQUE OF WILLIAM TELLTHE LOSS OF SHAKESPEARE HENRY V SHAKESPEARE KING
LEAR SHAKESPEARE ROMEO AND JUSHAKESPEARE TEMPEST TOLSTOY ANNA KARENIN
TOLSTOY WAR AND PEACWORDSWORTH MICHAEL KANT CRITIQUE OF KEATS
COLLECTED POSHAKESPEARE AS YOU LIKE SHAKESPEARE HENRY V SHAKESPEARE KIN
G LEAR SHAKESPEARE ROMEO AND JUSHAKESPEARE TEMPEST TOLSTOY ANNA KARENI
N TOLSTOY WAR AND PEACWORmlw TFIELDNAMEC FIELDTYPECFIELDLENNFIELDDECN HELFC
z !($(author,1,12))+!($(title,1,12))KANT CRITIQUE OF SHAKESPEARE AS YOU L
IKE SHAKESPEARE HENRY V SHAKESPEARE KING LEAR SHAKESPEARE ROMEO AND JUSHAK
ESPEARE TEMPEST TOLSTOY ANNA KARENIN TOLSTOY WAR AND PEACWORDSWORTH
MICHAEL KANT CRITIQUE OF KEATS RAFBGCHDIE
*absubmit.comv *abpip.comv
*abpaper.comv *absetkeys.comv
*absetlst.comv *abdir.comv
*abtype.comv f. Replace the CP/M disc in Drive B with your
dBASE WORKING MASTER with side 1 facing left and copy the dBASE ess
entials as follows TYPE-ME 18/08/87
**** Print out this file as soon as you can ****
-------------------------------------- dBASE II v 2.41 - A SELF
-STARTER FOR THE AMSTRAD PCW The PCW 8512 and PCW 8256 can bo
th handle the same self-starting installation of dBASE II, which runs fr
om the RAM Disc (Drive M) and provides data storage space on Drives A
and B. Copyright restri *abdbase.comv
*abdbaseovr.comv and also the user-defined files to be read by the u
tilities *abu*.*ov This will copy the
following files onto the STARTER disk ukeys.db2
Used by SETKEYS.COM ubold.ptr Used by SETLST.
COM udefault.cmd Used by dBASE
And also the profile for CPM when booctions prevent us from providing you
with a ready-made STARTER disc to boot you straight into dBASE but you can e
asily make your own if you follow these instructions with care. The time and
effort you spend on this task will be well rewarded! You must have a wo
rking knowledge of the CP/M utilities (DISCKIT, PIP) **** IF YOU HAVE A S
INGLE DRIVE PCW 8256, GOTO PARA 3, ELSE READ ON. **** 1. LOADING INSTRU
CTIONS FOR THE AMSTRAD PCW 8512 a. You will require your CP/ting the ma
chine *abprofile.subov g. Move the dBASE
WORKING MASTER to Drive A, side 1 still to the left, and place your n
ew dBASE DISTRIBUTION disc in Drive B. Go on
*badbasemsg.txtov *bazip.comv
*bazscrn.ovlov *badsort.comv
*badgen.ovlov h. Turn over the dBASE WORKING MM Plus System
Disc and three blank discs, one labelled 'dBASE WORKING
MASTER' in CF2 format, another labelled 'dBASE STARTER'
also in CF2 format and the third labelled 'dBASE DISTRIBUTION' and
in CF2DD format. b. Keep a few more formatted discs ready to BACK UP y
our work. 2. PREPARATION OF DISCS. Now take the following act
ion a. Use DISCKIT to format discs as above. b. Prepare the dB
ASE WORKING MASTERASTER and continue with *ba*.*ov
i. Insert the EXAMPLES Disc to Drive A. Hold down ALT & press W.
Press RETURN. j. When a * prompt appears after copying the fi
nal file, press RETURN to finish with PIP. k. **** GOTO PARA 5
. **** 3. LOADING INSTRUCTIONS FOR THE AMSTRAD PCW 8256. a. You
will require your CP/M Plus System Disc and three blank discs, all in
CF2 format and labelled by using DISCKIT to copy both sides
of your write-protected original dBASE MASTER to a fresh disc. c. Ex
it DISCKIT and place your CP/M disc in Drive A. Type PIP and press RE
TURN. d. When the * prompt appears, write-protect the CP/M disc and mo
ve it to Drive B and put the blank formatted dBASE STARTER in Drive A
. e. Follow * prompts by typing as below. Press RETURN after each lin
e *abj14cpm3.emsov RAFBGCHDIE (1
) Side 1. 'dBASE WORKING MASTER' Side 2. 'dBASE MEN
U' (2) Side 1. 'dBASE STARTER'
Side 2. 'dBASE DISTRIBUTION' (3) Side 1. 'dBASE WELC
OME and BOOKS'. Side 2. 'dBASE (other data)' b
. You would also be very well advised to keep a few more formatted discs
ready to BACK UP your valuable work. 4. PREPARATION OF DISCS.
Now take the th fit onto the MENU Disc but you would be as well to
copy them from EXAMPLES to dBASE DISTRIBUTION and every DATA Disc. 5
. TEST THE SYSTEM. (1) All files which you need to start with should no
w be on working discs. (2) When you are confident that you know how to 'Q
UIT' dBASE properly, place DBASE STARTER in Drive A and DBASE DISTRIBUT
ION in Drive B - if you have one - then reset the PCW to run dBASE II .
.......... If you want to knfollowing action
a. Use DISCKIT to format three discs as above. b. Check that your
original master discs are write-protected and continue with DISCKIT to
copy them, as appropriate , to the discs mentioned in para 3. a. (1) &
(3) above. c. Exit DISCKIT and place your CP/M disc in Drive A. Type P
IP and press RETURN. d. Write-protect your CP/M disc and put it
back into Drive A then follow * prompts by typing as below, usinow mor
e about the user-defined utilities used, just type the UTILS.TXT file on th
is disk. If you wish to check on the contents of your original discs and
suggested makeup of the dBASE DISTRIBUTION Disc, type the DISCDIR.TXT file.
Good Luck! of your original discs and suggested makeup of the dBAS
E DISTRIBUTION Disc, type the DISCDIR.TXT file. Go*""x!*X*Q22""Xg the dBA
SE STARTER disk for Drive B. Press RETURN after each line and obey the
prompts to swap discs ( an unavoidable chore with a single drive
) *bj14cpm3.emsov *bsubm
it.comv *bpip.comv *bpaper
.comv *bsetkeys.comv *bset
lst.comv *bdir.comv *btype
.comv e. On future prompts for a "disc for A" insert your dBASE WORKING
MASTER with side 1 facing left to copy the dBASE files which are
*bdbase.comv *bdbaseovr.comv
And the user-defined files to be used by the utilities
*bau*.*v And the profile for CPM when booting the mach
ine *baprofile.sub f. From now on, your DB
TITLECPsAUTHORC)tSUBJECTCGtROOMCtSHELFCjt ASE DISTRIBUTION disc is the one for D
rive B Go on *bdbasemsg.txtov
*bazip.comv *bazscrn.ovlov
*badsort.comv *badgen.ovlov g.
When a * prompt appears after copying the final file, press RETURN to
finish with PIP. h. Note that, if you wish to use files like INTR
O.CMD and INTR1.CMD, they will not bo RAFBGCHDIE As You Like It
Shakespeare
Drama Study C22 Dombey and Son
Dickens No
vel Study A23 Bleak House
Dickens Novel
Study A23 Rival Princes,The
Shakespeare
Drama Library A02 Tempest
Shakespeare
Drama Library A02 Finnigan's Wake
Joyce Novel
Library A02 Portrait of the Young Man as an Artist
Jo Clarke,Mrs M A
Social History Library C03 Collected Poems
Keats Poe
try Study A21 World Atlas
Geography
Study A01 Anna Karenina
Tolstoy Novel yce
Novel kitchen A02 Cakes and Ale
Maugham,Somerset
Novel Library A02 Dune
Herbert,Frank Science F
iction Library A02 Dune Messiah
Herbert,Frank Science Fiction
Library A0 Study D32 Riders of the Purple Sage
Grey,Zane West
ern Library A22 Lord Jim
Conrad Novel
Study A21 War and Peace
Tolstoy Novel Study
A01 Michael 2 Working with dBase II
de Pace
Computer Study A02 THE LOSS OF A SON
WILLIAM TELL ARCHERY
LIBRARY D23 the life and times of henry james
wally smith biography l
ibrary a10the life and times of henry james
Wordsworth Poetry
Study A01 Critique of Pure Reason
Kant Philosophy
Study A01 Inferno
Dante Poetry Study
A01 Childe Harold
Byron wally smith b
iography library a10WHAT ECONOMIC CRISIS !
THATCHER & LAWSON DISASTERS
STUDY E34 gone WITH the WIND
MR HIENZ FOOD KITC
HEN TOP the life and times of henry james
wally smith biography Poetry
kitchen A01 Doll's House
Ibsen Drama
Library A02 Henry V
Shakespeare Drama Library
A03 Romeo and Juliet
Shakespeare Drama Library A02 Ki
ng Lear RAFBGCHDIE library a10 D32 Riders of the Purple Sage
Grey,Zane
Western Library A22 Lord Jim
Conrad Novel
Study A21 War and Peace
Tolstoy Novel
Study A01 Michael " 5,0 say "Title
" get titlex1 6,0 say " " get titlex2 7,0 say "Author
" get authorx 8,0 say "Subject " get subjectx 9,0 say "Room " g
et roomx 10,0 say "Shelf " get shelfx text *******************
************ TYPING INSTRUCTIONS ************************** *
* * * To move cursor, h
old CTRL and press * Hold CTRL and press * *
* * * E to move Up
* G to Delete * * X to move Down
* V to Start Insert * * S to move Left
* V to Stop Insert * * D to move Right
* C to Return to Main Menu * *
* * *********************
**********************************m1 y COFFERIDGE HALL LIBRARY n n 7,room
ROOM 7,shelf SHELF 20,author AUTHOR 25,title TITLE 13,subject SUBJECT
*abdir.comv *abtype.comv f. Replace the
CP/M disc in Drive B with your dBASE WORKING MASTER with side 1 fa
cing left and copy the dBASE essentials as follows
*********************** endtext read if titlex1 " " return
else 23,0 say "Please wait for a moment ....." append blank stor
e titlex1+titlex2 to titlex replace title with titlex, author with authorx,
subject with subjectx room with roomx, shelf with shelfx stor
e added +1 to added if added 20 "Database being tidied up."
use books index titles store 0 to added endif endif enddo *
* CASE OPTION 2 CHANGE DETAILS OF A BOOK * * use books index titles er
ase do while T erase 1,0 say "CHANGE DETAILS OF A BOOK" store str(1,
81) to spaces store $(spaces,1,40) to titlex1 5,0 say "Title " get t
itlex1 picture "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 9,0 say "(If
you can't remember the title, try a letter of * * CASE OPTION 1 ADD A BOOK
WITH INDEXING * * use books index titles store 0 to added do while T s
tore str(1,81) to spaces store $(spaces,1,40) to titlex1 store titlex1 to
titlex2 store $(spaces,1,30) to authorx store $(spaces,1,15) to roomx s
tore $(spaces,1,3) to shelfx store $(spaces,1,20) to subjectx erase 1
,0 say "ADD A BOOK RAFBGCHDIEthe alphabet)" 11,0 say "Press Return to Exit"
read if titlex1 " " erase 2,0 say "Please wait for a moment .
...." return else store trim($(titlex1,1,10)) to titlex find &
titlex if #0 13,0 say titlex 14,0 say "Not Found" 1
7,0 say "Press any key to continue" set cons off wait set c
ons on else store "M" to more do while more "M" sto
re $(title,1,40) to titlex1 store $(title,41, * *********
********************************************************************* endtext
read store titlex1+titlex2 to titlex replace title with titlex, author
with authorx, subject with subjectx room with roomx, shelf with shelfx
endif endif endif enddo * V to Stop Inser
t * * D to move Right *
* * *
40) to titlex2 store author to authorx store room to roomx
store shelf to shelfx store subject to subjectx eras
e 1,0 say "CHANGE DETAILS OF A BOOK" 5,0 say "Title "+
titlex1 6,0 say " "+titlex2 7,0 say "Author "+
authorx 8,0 say "Subject "+subjectx 9,0 say "Room "
+roomx 10,0 say "Shelf "+shelfx 20,0 say "Press C to cha
nge the above " 21,0 say " or + to look for more books"
22,0 say " or - to go back one book " 23,0 say " or any other key
to select another book" store " " to next set cons off
wait to next set cons on if next "+" .or. next "-" if
next "+" skip else skip -1 end
if else store "N" to more endif enddo
if next "C" .or. next "c" erase * * CASE OPTION 3 DELET
E A BOOK * * use books index titles erase store 0 to delt do while T e
rase 1,0 say "DELETE A BOOK" store str(1,81) to spaces store $(spaces
,1,40) to titlex1 5,0 say "Title " get titlex1 picture "!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 9,0 say "(If you can't remember the title, t
ry a letter of the a 1,0 say "CHANGE DETAILS OF A BOOK" 5,0 say "T
itle " get titlex1 6,0 say " " get titlex2 7,
0 say "Author " get authorx 8,0 say "Subject " get subjectx
9,0 say "Room " get roomx 10,0 say "Shelf " get shelfx
text ******************************* TYPING INSTRUCTIONS **************
************ * *
* * To move cursor, hold CTRL andlphabet)" 11,0 say "Press Retur
n to Exit" read if titlex1 " " erase 2,0 say "Please wait for
a moment ....." if delt 0 "Now repacking the database to r
emove deleted records" pack endif return else store tri
m($(titlex1,1,10)) to titlex find &titlex if #0 13,0 say title
x 14,0 say "Not Found" 17,0 say "Press any key to continue"
set cons off wait set cons on else sto press *
Hold CTRL and press * * *
* * E to move Up *
G to Delete * * X to move Down *
V to Start Insert * * S to move Left *
V to Stop Insert * * D to move Right *
* * *
RAFBGCHDIEre "M" to more do while more "M"
erase 1,0 say "DELETE A BOOK" if * 3,25 say "Al
ready Marked for Deletion" endif 5,0 say "Title "+$(titl
e,1,40) 6,0 say " "+$(title,41,40) 7,0 say
"Author "+author 8,0 say "Subject "+subject 9,0 say
"Room "+room 10,0 say "Shelf "+shelf 20,0 say "Pres
s D to delete the above " 21,0 say " "Press Return to Exit" read
if titlex1 " " erase return else store trim($(titlex1,1,1
0)) to titlex find &titlex if #0 13,0 say titlex 14,0
say "Not Found" 17,0 say "Press any key to continue" set cons off
wait set cons on else store "M" to more do whi
le more "M" erase 5,0 say "Title "+$(title,1,40)
6,0 say " "+$(title,41,40) 7,0 say "Author or +
to look for more books" 22,0 say " or - to go back one book "
23,0 say " or any other key to select another book" store " " to
next set cons off wait to next set cons on if next
"+" .or. next "-" if next "+" skip else
skip -1 endif else store "N" to more
endif enddo if next "D" .or. next "d" delete
store del "+author 8,0 say "Subject "+subject 9,
0 say "Room "+room 10,0 say "Shelf "+shelf 21,0 say
"Press + to look for more books" 22,0 say " or - to go back one boo
k " 23,0 say " or any other key to select another book" st
ore " " to next set cons off wait to next set cons on
if next "+" .or. next "-" if next "+" skip
else skip -1 t + 1 to delt "Record
Deleted" store 0 to top do while top 30 store top
+ 1 to top enddo endif endif endif enddo se to remove
deleted records" pack endif return else store $(titlex
1,1,10) to titlex find &titlex if #0 13,0 say titlex 1
4,0 say "Not Found" 17,0 say "Press any key to continue" set cons
off wait set cons on else store "M" endif
else store "N" to more endif enddo endif end
if enddo * use books index titles erase store 0 to delt do while T er
ase 1,0 say "DELETE A BOOK" store str(1,81) to spaces store $(spaces,
1,40) to titlex1 5,0 say "Title " get titlex1 picture "!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 9,0 say "(If you can't remember the title, tr
y a letter of the a* * CASE OPTION 5 AUTHOR ENQUIRY * * use books do
while T erase 1,0 say "AUTHOR ENQUIRY" store str(1,81) to spaces s
tore $(spaces,1,30) to authorx 5,0 say "Author " get authorx
picture "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 9,0 say "(If you can't remember
the author, try entering ALL)" 11,0 say "Press Return to Exit" * * CASE O
PTION 4 TITLE ENQUIRY * * use books index titles do while T erase
1,0 say "TITLE ENQUIRY" store str(1,81) to spaces store $(spaces,1,40) t
o titlex1 5,0 say "Title " get titlex1 picture "!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!" 9,0 say "(If you can't remember the title, try a let
ter of the alphabet)" 11,0 say RAFBGCHDIE read if authorx " " e
rase return else store trim(authorx) to authorx1 erase st
ore len(authorx1) to chars if authorx1 "ALL" list $(title,1,33),$(a
uthor,1,15),$(subject,1,10),$(room,1,13),shelf off else disp $(titl
e,1,33),$(author,1,15),$(subject,1,10),$(room,1,13),shelf for authorx1 !
($(author,1,chars)) off endif "Press any key to continue" set co
ns off wait set cons on endif enddo or,1,15),$(subject,1,10),$(ro
om,1,13),shelf for placex !($(room,1,chars)) off else if roo
mx " " disp $(title,1,33),$(author,1,15),$(subject,1,10),$(room,1,13),
shelf for placex !($(shelf,1,chars)) off else disp $(t
itle,1,33),$(author,1,15),$(subject,1,10),$(room,1,13),shelf for roomx
!(room) .and. shelfx !(shelf) off endif endif "Press any key
to continue" set cons off wait set cons on endif enddo* *
CASE OPTION 6 SUBJECT ENQUIRY * * use books do while T erase 1
,0 say "SUBJECT ENQUIRY" store str(1,81) to spaces store $(spaces,1,20) to
subjectx 5,0 say "Subject " get subjectx picture "!!!!!!!!!
!!!!!!!!!!!" 9,0 say "(If you can't remember the subject, try entering ALL)
" 11,0 say "Press Return to Exit" r ,15),$(subject,1,10),$(room,1,13),sh
elf for placex !($(room,1,chars)) off else if roomx " "
disp $(title,1,33),$(author,1,15),$(subject,1,10),$(room,1,13),shelf
for placex !($(shelf,1,chars)) else disp $(title,1,33),$(au
thor,1,15),$(subject,1,10),$(room,1,13),shelf for roomx !(room) .and.
shelfx !(shelf) off endif endif "Press any key to continue"
set cons off wait set cons on endif enddo ead if subjectx
" " erase return else store trim(subjectx) to subjectx e
rase store len(subjectx) to chars if subjectx "ALL" list $(tit
le,1,33),$(author,1,15),$(subject,1,10),$(room,1,13),shelf off else
disp $(title,1,33),$(author,1,15),$(subject,1,10),$(room,1,13),shelf for
subjectx !($(subject,1,chars)) off endif "Press any key to continue
" set cons off wait set cons on endif enddo erase "Please
switch the Printer on" "Press any key when you have done so" wait do wh
ile T erase store " " to option 1,30 say "SELECT TYPE OF PRINT"
9,0 say "1. Title Sequence" 10,0 say "2. Author Sequence" 11,0 say "3
. Subject Sequence" 12,0 say "4. Room/Shelf Sequence" 16,0 say "X. Exi
t" 18,0 say "Please enter your choice" get option picture "!" read 2
3,0 say "Please wait for a moment ....." do case case option "X"
er* * CASE OPTION 7 SHELF ENQUIRY * * use books do while T erase
1,0 say "SHELF ENQUIRY" store str(1,81) to spaces store $(spaces,1,15
) to roomx store $(spaces,1,3) to shelfx 5,0 say "Room " get roomx
picture "!!!!!!!!!!!!!!!" 6,0 say "Shelf " get shelfx picture "!!!"
9,0 say "(If you can't remember the room, try entease return case
option "1" use books index titles report form books to print
case option "2" use books "Indexing on Author" index on
!($(author,1,12))+!($(title,1,12)) to authors report form books to print
case option "3" use books "Indexing on Subject" in
dex on !($(subject,1,10))+!($(author,1,10)) to subject report form books
to print case option "4" use books "Indexing on Room anrin
g ALL)" 11,0 say "Press Return twice to Exit" read if roomx " " .and.
shelfx " " erase return endif if shelfx " " store trim(r
oomx) to placex else if roomx " " store trim(shelfx) to placex
else store roomx+shelfx to placex endif endif erase sto
re len(placex) to chars if placex "ALL" list $(title,1,33),$(author,1,1
5),$(subject,1,10),$(room,1,13),shelf off else if shelfx " " dis
p $(title,1,33),$(auth R A F B G C H D I Ed Shelf" index on !($(room,1,
4)+shelf+$(author,1,5)) to rooms report form books to print endcase e
nddo ect to subjectx erase 1,0 say "CHANGE DETAILS OF A B
OOK" 5,0 say "Title "+titlex1 6,0 say " "+tit
lex2 7,0 say "Author "+authorx 8,0 say "Subject "+sub
jectx 9,0 say "Room "+roomx 10,0 say "Shelf "+shel
fx 20,0 say "Press C to change the above " ase press any ke
y to exit program. ' 21,1 GET M.TEMP READ CLEAR GETS 20,0 21,0
11,27 SAY 'RETURNING TO MAIN MENU' 20,1 STORE 1 TO C DO WHILE C
25 STORE C+1 TO C ENDDO RETURN ENDIF 11,20 SAY 'Please Wait ... now
loading the next Welcome file' 20,1 USE FRONA.DFL COPY TO TEMP.DBF STRU USE
TEMP 11,0 4,0 TEXT You would create a file in dBASE II by typing
. CREATE filename To help you along I have already entered the CRE
ATE - shown below the line. Now chose a name for your file. A dBAS
E II filename should be no more than 8 characters long.The first characte
r should be an Alpha ( A-Z ),with no spaces in the filename. The e
xtension of the filename will automaticaly be (.DBF ). ENDTEXT 23,0
SAY ". CREATE" STORE ' ' TO CFILE STORE F TO VALID DO WHILE .NOT. M.VA
LID 23,9 SAY M.BLANK 17,5 SAY 'Please enter file name. ' GET M.CFILE PIC
T '!!!!!!!!' READ CLEAR GETPFIELDNAMEC FIELDTYPECFIELDLENNFIELDDECN S I
F M.CFILE ' ' ERASE TEXT WELCOME CREATE A D
ATABASE FILE dBASE II --------------------------------------
----------------------------------------- ENDTEXT 22,1 SAY '-----------------
---------------------------------------------' + '---------------'
11,27 SAY 'RETURNING TO MAIN MENU' 20,1 STORE 1 TO C DO WHIL
E C 25 STORE C+1 TO C ENDDO SELE SECO USE SELE PRIM
USE &MFILE READ CLEA GETS ENDDO ERAS 10,24 SAY 'RETURNING TO
MAIN MENU' STORE 0 TO PAUSE DO WHILE PAUSE 50 STORE PAUSE+1 TO PAUSE ENDD
O RELE ALL EXCEPT MFILE RETURN You would delete a file in dBase II by ty
ping.... . DELETE FILE filename dBase II will return with...
..................... . FILE HAS BEEN DELETED ENDTEXT 19,1 SAY '---------
----------------------------------------------- DELETE FILE TEMP.DBF RELEA
SE ALL EXCEPT MFILE RETURN ENDIF Blank file name STORE TRIM(M.CFILE
) TO MTEST STORE ' ' TO ERR1,ERR2 STORE T TO MSG IF .NOT. $(M.MTEST,1,
1)$'ABCDEFGHIJKLMNOPQRSTUVWXYZ' STORE F TO MSG STORE ERR1+'' TO ERR1
STORE ERR2+'!' TO ERR2 ELSE STORE ERR1+' ' TO ERR1 STORE ERR2
+' ' TO ERR2 ENDIF STORE 2 TO C DO WHILE C LEN(M.MTEST) IF .NOT.
$(M.MTEST,C,1)$'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789' STORE ERR1+'SET TAL
K OFF STORE ' ' TO BLANK
ERASE TEXT WELCOME CREATE A DATABASE FILE
dBASE II ---------------------------------------------------------------
---------------- ENDTEXT 22,1 SAY '------------------------------------------
--------------------' + '---------------' IF .NOT. FILE ( 'FRONA.DFL
' ) STORE ' ' TO TEMP 20,5 SAY 'ERROR ... Data File "FRONA.DFL" not foun
d.' 21,5 SAY 'Ple RAFBGCHDIE' TO ERR1 STORE ERR2+'!' TO ERR2
STORE F TO MSG ELSE STORE ERR1+' ' TO ERR1 STORE ERR2+' ' TO
ERR2 ENDIF STORE C+1 TO C ENDDO IF M.MSG 23,9 SAY M.MT
EST ELSE 18,28 SAY ERR1+' ' 19,28 SAY ERR2+'
' 21,5 SAY 'Illegal character in the File Name - press any key to retr
y' STORE ' ' TO TEMP 21,1 GET M.TEMP READ CLEAR GETS S
TORE ' ' TO CFILE 17,0 18,0 19,22 .AND. M.CONT *****
************ MJG - 19/07/84 if reclen 1000 store f to cont 20,5 s
ay 'You have reached the 1000 character limit.' 21,5 say 'I can not theref
ore allow you to add a further field...' STORE 1 TO C DO WHILE C 40
STORE C + 1 TO C ENDDO ERASE TEXT WELCOME
CREATE A DATABASE FILE dBASE II -------------------------
------------------------------------------------------ ENDTEXT 22,1 SAY '----
---0 20,0 21,1 LOOP ENDIF IF FILE('&MTEST') 19,5 SA
Y '**WARNING** You are trying to create a file that already ' + '
exists' 20,5 SAY 'dBase II will NOT check this for you.' STORE ' ' TO
RESP STORE Y TO MFIRST DO WHILE .NOT. M.RESP$'CR' STORE ' ' TO
RESP 21,1 21,5 SAY 'Do you wish to (C)ontinue (R)etry '
21,1 GET M.RESP PICT '!' IF .NOT. M.MFIRST 21,45 SAY '- Sele
ction Invalid ' EL-------------------------------------------------------
' + '---------------' 23,5 SAY 'Your File Has Been Created As
"&CFILE..DBF"' 21,5 SAY 'Please Wait ... Saving Structure.' 20,1
loop endif ***************** IF M.LINE16 STORE '0'+STR((
LINE-7),2) TO FIELDNO ELSE STORE '00'+STR((LINE-7),1) TO FIELDNO END
IF ************** * FIELD NAME * ************** LINE-OFFSET,0 SAY M
.FIELDNO ' ---- the cursor is poSE STORE N TO MFIRST
ENDIF READ 17,0 18,0 19,0 20,0
21,1 ENDDO CLEAR GETS IF M.RESP 'R' STORE ' ' TO
CFILE LOOP ENDIF return to main menu .. termination of create
ENDIF ERASE TEXT WELCOME CREATE A DATABASE FILE
dBASE II ------------------------------------------------------
------------------------- ENDTEXT 22,1 SAY '----------------------sitioned he
re ...' STORE ' ' TO MF STORE F TO CNAME DO WHILE .NOT. M.CNAM
E 16,5 SAY 'You are now expected to give a name for this field.' 17,
5 SAY 'Let me try to help. Enter name ' GET M.MF PICT '!!!!!!!!!!' 17,50 S
AY ' Blank to finish ' READ CLEAR GETS IF M.MF ' '
STORE T TO CNAME LOOP ENDIF STORE TRIM(M.MF) TO FTEST I
F .NOT. $(M.MF,1,1)$'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 20,5 SAY 'The first cha
racter of the ----------------------------------------' + '----------
-----' 23,0 SAY '. CREATE '+M.MTEST 19,5 SAY 'Below the line you will no
w see the complete command' 20,5 SAY 'as you would type it yourself.' ST
ORE ' ' TO TEMP 21,5 SAY 'Press any key to continue ' 21,1 GET M.TEMP
READ CLEAR GETS 19,0 20,0 21,0 STORE T TO VALID ENDDO enter
file name APPEND BLANK ERASE 22,1 SAY '-----------------------------------
---------------------------' name must be alpha (A-Z) ' STORE
' ' TO TEMP 21,5 SAY 'Press any key to retry ' 21,1 GET M.TEMP
READ CLEAR GETS 16,0 17,0 18,0 19,
0 20,0 21,1 STORE ' ' TO MF LOOP END
IF STORE T TO MSG STORE 2 TO C DO WHILE C LEN(M.FTEST) IF
.NOT. $(M.FTEST,C,1)$'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 ' STORE F T
O MSG ENDIF STORE C+1 TO C ENDDO + '---------------'
0,0 TEXT WELCOME CREATE A DATABASE FILE
dBASE II ----------------------------------------------------------------
--------------- ENDTEXT ' dBASE II will return with ............
... ' 'FIELD NAME,TYPE,WIDTH,DECIMAL PLACES' STORE T TO CONT STORE 8
TO LINE STORE 0 TO OFFSET,RECLEN 22,1 SAY '----------------------------------
----------------------------' + '---------------' DO WHILE M.LINE
RAFBGCHDIE IF .NOT. M.MSG 20,5 SAY 'There is an illegal character in
the field name. ' STORE ' ' TO TEMP 21,5 SAY 'Press an
y key to retry ' 21,1 GET M.TEMP READ CLEAR GETS
16,0 17,0 18,0 19,0 20,0 21,1 STO
RE ' ' TO MF LOOP ENDIF IF ' '$M.FTEST 20,5 SA
Y 'Spaces are not allowed but you can use imbedded colons "" ' STORE ' '
TO TEMP 21,5 SAY 'Press dBASE II --------------------------
----------------------------------------------------- ENDTEXT 22,1 SAY '-----
---------------------------------------------------------' + '-------
--------' 23,5 SAY 'Your File Has Been Created As "&CFILE..DBF"'
11,20 SAY 'Please Wait ... Saving Structure.' 20,1 LOOP
ELSE 16,0 17,0 18,0 19,0 20,0
21,0 LOOP ENDIF ENDIF REPLACE FI any key to retry '
21,1 GET M.TEMP READ CLEAR GETS 16,0 17,0
18,0 19,0 20,0 21,1 STORE ' ' TO MF
LOOP ENDIF IF $(M.FTEST,LEN(M.FTEST))$'' 20,5 SAY 'Colons
must be imbedded in the field name ' STORE ' ' TO TEMP
21,5 SAY 'Press any key to retry ' 21,1 GET M.TEMP READ
CLEAR GETS 16,0 17,0 18,0 19,0 ELDNAME WIT
H M.MF ************** * FIELD TYPE * ************** LINE-OFFSET,10
SAY TRIM(FIELDNAME)+',' ' Good ... Now the type either "C","N"
or "L" ...' 16,0 17,0 18,0 19,0 20,0 21,1 19,5 SA
Y '"C" Character ( Anything Names,Addresses,Descriptions etc. )' 20,5 SAY
'"N" Numeric ( For mathematics, amounts and money etc. )' 21,5 SAY
'"L" Logical ( Only allows T/Y(TRUE), F/N(FALSE) input )' DO WHILE .N
OT. F 20,0 21,1 STORE ' ' TO MF LOOP
ENDIF GOTO TOP LOCATE FOR M.MF FIELDNAME IF .NOT. EOF 20
,5 SAY 'You already have a field of this name !! ' STORE ' ' TO TEMP
21,5 SAY 'Press any key to retry ' 21,1 GET M.TEMP READ
CLEAR GETS GOTO BOTT 16,0 17,0 18,0 19
,0 20,0 21,1 STORE ' ' TO MF LOOP EN
DIF STORE T TO CNAMIELDTYPE$'LNC' 17,5 SAY 'Again I shall help you.
Enter Type ' GET FIELDTYPE PICT '!' READ ENDDO CLEAR GETS IF FIELD
TYPE$'CN' LINE-OFFSET,10 SAY TRIM(FIELDNAME)+','+FIELDTYPE+',' ENDIF
do not display if "L" 17,0 18,0 19,0 20,0 21,1 M.LINE-M
.OFFSET,9 SAY ' ' DO CASE ******************** * "C" FIELD LENG
TH * ******************** CASE FIELDTYPE 'C' '
Good ... Now the Length of the field E ENDDO IF TRIM(M.MF)' ' 18,0
19,0 20,0 21,1 STORE ' ' TO TEMP DO WHILE .NOT. M.TE
MP$'YN' 20,5 SAY 'Entering a blank name means you want to finish....'
21,5 SAY 'Do you want to finish ( Y/N ) ' 21,1 GET M.TEMP PICT '!
' READ ENDDO CLEAR GETS IF M.TEMP 'Y' IF M.LINE8
ERASE TEXT WELCOME CREATE A DATABASE FILE
dBASE II -------------------------------------.... '
19,5 SAY 'The length of a "C" field can be between 1-254 ' STORE Y TO
MFIRST DO WHILE FIELDLEN 1 .OR. FIELDLEN 254 17,0
17,5 SAY 'Again I will help. Enter Length ' GET FIELDLEN IF .NOT. M.MFI
RST 17,45 SAY '- Selection Invalid ' ELSE STORE
N TO MFIRST ENDIF READ IF M.RECLEN+FIELDLEN 1000
19,0 20,5 SAY 'The overall length of your record is '+str--
---------------------------------------- ENDTEXT 22,1 SAY '------------------
--------------------------------------------' + '---------------'
11,27 SAY 'RETURNING TO MAIN MENU' 20,1 SELE SECO
USE SELE PRIM USE &MFILE DELETE FILE TEMP.DBF
RELEASE ALL EXCEPT MFILE RETURN ENDIF no fields entered
STORE F TO CONT ERASE TEXT WELCOME CREAT
E A DATABASE FILE R A F B G C H D I E(reclen,4) 21,5 SAY 'W
ith this field length it would be over 1000.' REPLACE FIELDLEN WITH 0
STORE 1 TO C DO WHILE C 30 STORE C+1 TO C
ENDDO ENDIF 16,0 17,0 18,0
19,0 20,0 21,1 ENDDO RELEASE MFIRST
CLEAR GETS DO CASE CASE FIELDLEN 99 STORE STR(FIE
LDLEN,3) TO M.MFIELDLEN CASE FIELDLEN 9 ST 17,0 1
8,0 19,0 20,0 21,1 19,5 SAY 'If you do not want
decimals, enter 0. ' 20,5 SAY 'Otherwise you may have as many as you can
fit into your ' 21,5 SAY 'field, but the decimal point will also occupy
a position.' STORE F TO NUM STORE Y TO MFIRST DO WHILE .N
OT. M.NUM 17,0 17,5 SAY 'Again I will help. Enter Length ' G
ET FIELDDEC IF .NOT. M.MFIRST 17,45 SAY '- Selection Invali
d'ORE STR(FIELDLEN,2) TO M.MFIELDLEN OTHE STORE STR(FIELDLEN
,1) TO M.MFIELDLEN ENDCASE change fieldlen to chr for display
M.LINE-M.OFFSET,10 SAY TRIM(FIELDNAME)+','+FIELDTYPE+','+M.MFIELDLEN STOR
E FIELDLEN+M.RECLEN TO M.RECLEN CASE FIELDTYPE 'N' ****************
**** * "N" FIELD LENGTH * ******************** '
Good ... Now the Length of the field .... ' 19,5 SAY 'The le
ngth of an "N" fie ELSE STORE N TO MFIRST ENDIF
READ IF FIELDDEC (FIELDLEN-2) .AND. FIELDDEC 0 STORE
T TO NUM ENDIF validate Decimal places ENDDO RELEASE M
FIRST CLEAR GETS IF FIELDDEC 9 STORE STR(FIELDDEC,2) TO
M.MFIELDDEC ELSE STORE STR(FIELDDEC,1) TO M.MFIELDDEC EN
DIF change fielddec to chr for display M.LINE-M.OFFSET,10 SAY TRIM(FI
ELDNAME)+','+FIELDTYPE+',' ld including 1 for decimal point and' 20,5 S
AY ' the decimal places. It is also important to remember that ' 21,5 S
AY 'dBASE II is accurate to 10 significant figures ...... ' STORE Y
TO MFIRST DO WHILE FIELDLEN 1 .OR. FIELDLEN 12 17,0
17,5 SAY 'Again I will help. Enter Length ' GET FIELDLEN IF .NOT. M.M
FIRST 17,45 SAY '- Selection Invalid' ELSE STORE
N TO MFIRST ENDIF READ +M.MFIELDLEN+','+M.MFIELD
DEC 16,0 17,0 18,0 19,0 20,0 21,
1 OTHERWISE IF M.RECLEN+1 1000 18,0 19,0
20,0 21,1 20,5 SAY 'The overall length of your record
is '+str(reclen,4) 21,5 SAY 'With this field length it would be over 1
000.' REPLACE FIELDLEN WITH 0,FIELDNAME WITH ' ', FIE
LDTYPE WITH ' ' dele store f to cont IF M.RECLEN+FIEL
DLEN 1000 18,0 19,0 20,0 21,1
20,5 SAY 'The overall length of your record is '+str(reclen,4)
21,5 SAY 'With this field length it would be over 1000.' REPLAC
E FIELDLEN WITH 0 STORE 1 TO C DO WHILE C 25
STORE C+1 TO C ENDDO 16,0 17,0
20,0 21,1 ENDIF ENDDO RELEASE MFIRST
STORE 1 TO C DO WHILE C 25 STORE C+1 TO C ENDDO
loop ELSE STORE M.RECLEN+1 TO M.RECLEN M.LIN
E-M.OFFSET,10 SAY TRIM(FIELDNAME)+','+FIELDTYPE ENDIF ENDCASE
STORE M.LINE+1 TO M.LINE M.LINE-M.OFFSET,0 IF M.LINE14 STORE M.OF
FSET+1 TO M.OFFSET 0,0 1,0 2,0 17,0 18,0 19,
0 20,0 21,1 23,0 SAY M.BLANK 0,0 TEXT
WELCOME CLEAR GETS STORE M.RECLEN+FIELDLEN TO M.RECLEN IF FI
ELDLEN 9 STORE STR(FIELDLEN,2) TO M.MFIELDLEN ELSE ST
ORE STR(FIELDLEN,1) TO M.MFIELDLEN ENDIF change fieldlen to chr for disp
lay M.LINE-M.OFFSET,10 SAY TRIM(FIELDNAME)+','+FIELDTYPE+','+M.MFIELDL
EN+',' ********************** * "N" FIELD DECIMALS * ******
**************** ' Good ... Now the number of decimal place
s .... ' 16,0 RAFBGCHDIE CREATE A DATABASE FIL
E dBASE II -------------------------------------------------
------------------------------ ENDTEXT 1,0 2,0 22,1 SAY '
---------------------------------------------------------' + '----
----------------' 21,1 ENDIF APPEND BLANK ENDDO ****************
** MJG - 19/07/84 if line 22 20,5 say 'dBASE II will allow up to 32 fields
.' 21,5 say 'WELCOME, for the sake of simplicity, will only a1,1 SAY 'WELCOM
E OPEN/CLOSE A FILE' 1,71 SAY 'dBASE II' 2,1 SAY U
NDERLN 22,1 SAY UNDERLN 23,0 SAY '. USE' IF FILE ( 'TEMPSTRU.DBF' )
DELETE FILE TEMPSTRU.DBF ENDIF IF FILE ( 'TEMPSTR1.DBF' ) DELET
E FILE TEMPSTR1.DBF ENDIF IF FILE ( 'TEMP.DBF' ) DELETE FILE TEMP.DB
F ENDIF 4,5 SAY 'Next dBASE II requires the filename, select from the f
ollowing' 5,0 LIST FILES LIKE *.DBF STORE ' ' TO CFILE STORE
F TO VALIllow 14.' endif store 1 to c do while M.c 30 store M.c+1 to M.c
enddo ****************** IF FIELDNAME ' ' DELE PACK ENDI
F remove last record if blank CREATE &CFILE FROM TEMP 17,0 18,0 19,0
20,0 21,0 23,0 M.BLANK 11,27 SAY 'RETURNING TO MAIN MENU' 20,1 RELEASE
ALL EXCEPT MFILE SELE SECO USE SELE PRIM USE &MFILE DELETE FILE TEMP.DBF R
ETURN D DO WHILE .NOT. M.VALID 17,42 SAY 'Blank to finish' 17,5
SAY 'Please enter file name. ' GET M.CFILE PICT '!!!!!!!!' 19,5 SAY 'The .
DBF suffix is not required' READ CLEAR GETS IF M.CFILE '
' ERASE 1,1 SAY 'WELCOME OPEN/CLOSE A FILE'
1,71 SAY 'dBASE II' 2,1 SAY UNDERLN 22,1 SAY UNDERLN
11,27 SAY 'RETURNING TO MAIN MENU' 20,1 STORE 1 TO C
DO WHILE C 25 SSTORE '---------------------------------------' TO UND
ERLN STORE ' ' TO BLANK STORE UND
ERLN+UNDERLN TO UNDERLN ERASE 1,1 SAY 'WELCOME OPEN/CLO
SE A FILE' 1,71 SAY 'dBASE II' 2,1 SAY UNDERLN 8,20 say 'A. Open a file'
10,20 SAY 'B. Close a file' 12,20 SAY 'X. Return to main menu' 22,1 SAY
UNDERLN STORE ' ' TO REPLY STORE Y TO MFIRST DO WHILE .NOT. M.REPLY$'ABX'
21,0 21,5 SAY 'Please enter option - ' TORE C+1 TO C ENDDO
SELE SECO USE SELE PRIM USE &MFILE RELEASE ALL
EXCEPT MFILE RETURN ENDIF Blank file name STORE TRIM(M.CFILE)
TO MTEST STORE ' ' TO ERR1,ERR2 STORE T TO MSG IF .NOT. $(M.MTE
ST,1,1)$'ABCDEFGHIJKLMNOPQRSTUVWXYZ' STORE F TO MSG STORE ERR1+''
TO ERR1 STORE ERR2+'!' TO ERR2 ELSE STORE ERR1+' ' TO ERR1
STORE ERR2+' ' TO ERR2 ENDIF STORE 2 TO C DO WHILE M.C 2
1,1 GET M.REPLY pict '!' IF .NOT. M.MFIRST 21,30 SAY '- Selection Inval
id' ELSE STORE N TO MFIRST ENDIF READ CLEAR GETS ENDDO RELEAS
E MFIRST IF M.REPLY'X' ERASE 1,1 SAY 'WELCOME OPEN
/CLOSE A FILE' 1,71 SAY 'dBASE II' 2,1 SAY UNDERLN 22,1 SAY UNDERLN
11,27 SAY 'RETURNING TO MAIN MENU ' 20,1 store 1 to M.c do while M
.c25 store M.c+1 to c enddo rele c RETURN ENDIF IF !(M.REPLY) '
A' SELE PRIM LEN(MTEST) IF .NOT. $(M.MTEST,C,1)$'ABCDEFGHIJKLMNOPQRST
UVWXYZ0123456789' STORE ERR1+'' TO ERR1 STORE ERR2+'!' TO ERR2
STORE F TO MSG ELSE STORE ERR1+' ' TO ERR1 S
TORE ERR2+' ' TO ERR2 ENDIF STORE M.C+1 TO C ENDDO IF M.
MSG 23,6 SAY M.MTEST ELSE 18,0 19,0 20,
0 21,0 23,6 SAY M.BLANK 18,28 SAY ERR1+' '
19,28 SAY ERR2+' ' USE SELE SECO USE ERASE 1,
1 SAY 'WELCOME OPEN/CLOSE A FILE' 1,71 SAY 'dBASE II'
2,1 SAY UNDERLN 22,1 SAY UNDERLN 4,0 TEXT To OPEN a file you
have to use the USE command by typing . USE filename To help yo
u along I have already entered the USE - shown below the line. ENDTEXT
23,0 SAY '. USE' STORE ' ' TO TEMP 21,5 SAY 'Press any key to continu
e ' 21,1 GET M.TEMP READ CLEAR GETS ERASE RAFBGCHDIE 21,5
SAY 'Illegal character in the File Name - press any key to retry' STOR
E ' ' TO TEMP 21,1 GET M.TEMP READ CLEAR GETS 16,0
17,0 18,0 19,0 20,0 21,0 STORE '
' TO CFILE LOOP ENDIF IF .not. FILE('&MTEST') 1
8,0 19,0 20,0 21,0 23,6 SAY M.BLANK STORE
' ' TO TEMP 21,5 say 'File not found - Press any key to retry '
21,1 ERAS STORE ' ' TO BLANK TEX
T WELCOME DELETE A FILE dBAS
E II --------------------------------------------------------------------------
----- ENDTEXT 4,0 TEXT You would delete a file in dBASE II by typi
ng.... . DELETE FILE filename dBASE II will return wit
h........................ . FILE HAS BEEN DELETED I wi
ll help you along. I have already enGET M.TEMP READ CLEAR GETS
17,0 18,0 19,0 20,0 21,1 STORE '
' TO CFILE loop ENDIF STORE T TO VALID ENDDO enter file
name store M.cfile to mfile ERASE 1,1 SAY 'WELCOME
OPEN/CLOSE A FILE' 1,71 SAY 'dBASE II' 2,1 SAY UNDERLN 22,1 SAY
UNDERLN 23,0 SAY '. USE '+M.MTEST 19,5 SAY 'Below the line you will now
see the complete command' 20,5 SAY 'as you would tered the DELET
E FILE for you - shown below the line. ENDTEXT 22,1 SAY '--------------------
-------------------' + '--------------------------------------' 23,
0 SAY '. DELETE FILE' STORE ' ' TO TEMP 21,5 SAY 'Press any key to continue '
21,1 GET M.TEMP READ CLEAR GETS ERAS TEXT WELCOME
DELETE A FILE dBASE II ---------------------------
---------------------------------------------------- ENDTEXT 22,1 SAY '------
type it yourself.' STORE ' ' TO TEMP 21,5 SAY 'Press any key to continue
' 21,1 GET M.TEMP READ CLEAR GETS sele prim USE &Mtest ELSE
8,5 10,5 11,5 12,5 17,5 21,0 4,5 say 'You can CLOSE
a file in one of three ways. The formats for ' + 'these are' 6,
5 SAY '. USE - closes file in use' 7,5 SAY '. C
LEAR - closes all files/memory areas' 8,5 SAY '. USE data
base file - ---------------------------------' + '-----------------
---------------------' STORE ' ' TO DEL STORE T TO PCONT DO WHILE M.
PCONT 23,0 SAY '. DELETE FILE' 4,5 SAY 'Next dBASE II requires the filen
ame, select from the following' 5,0 LIST FILES LIKE *.DBF STORE F TO
VALID DO WHILE .NOT. M.VALID 19,5 SAY 'You do not need to use the .DBF
suffix.' 17,5 SAY 'Please enter file for deletion ' GET M.DEL PICT '!!!!!
!!!' 17,50 SAY 'Blank to finishcloses file in use and opens another' 1
0,5 SAY 'The last of these commands is covered in the OPEN section.' 11,5 SA
Y 'The USE and CLEAR commands are used as seen above but it must be' 12,5 SA
Y 'REMEMBERED that CLEAR will not only close your files but also' 13,5 SA
Y 'remove all memory areas that you may have set up, therefore, the' 14,5 SA
Y 'USE command only is shown below' 22,1 SAY M.UNDERLN 23,0 SAY '. USE'
STORE ' ' TO TEMP 21,5 SAY 'Press any key to CLOSE yo' READ CLE
A GETS IF M.DEL ' ' ERAS TEXT WELCOME
DELETE A FILE dBASE II -------------------------
------------------------------------------------------ ENDTEXT 22,1 SA
Y '---------------------------------------' + '----------------------
----------------' 11,27 SAY 'RETURNING TO MAIN MENU' 20,1
STORE 1 TO C DO WHILE C 25 STORE C+1 TO C ENDDO
RELE ur file.' 21,1 GET M.TEMP READ CLEAR GETS USE RELEASE S
TORE ' ' TO MFILE ENDIF ERASE 1,1 SAY 'WELCOME
OPEN/CLOSE A FILE' 1,71 SAY 'dBASE II' 2,1 SAY UNDERLN 22,1 SAY UNDERLN
11,27 SAY 'RETURNING TO MAIN MENU ' 20,1 store 1 to c do while M.c 25 s
tore M.c+1 to c enddo rele c RETURN STORE TRIM(M.MF) TO FTEST IF .NOT.
$(M.MF,1,1)$'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 20,5 SAY 'The first character
of the RAFBGCHDIEALL EXCEPT MFILE RETURN ENDIF Blank Filename
DO WHILE $(M.DEL,1,1) ' ' STORE $(M.DEL,2)+ ' ' TO DEL ENDDO
STORE TRIM(M.DEL) TO MTEST STORE ' ' TO ERR1,ERR2 STORE T TO MSG
IF .NOT. $(M.MTEST,1,1)$'ABCDEFGHIJKLMNOPQRSTUVWXYZ' STORE F TO MSG
STORE ERR1+'' TO ERR1 STORE ERR2+'!' TO ERR2 ELSE ST
ORE ERR1+' ' TO ERR1 STORE ERR2+' ' TO ERR2 ENDIF STORE 2 TO C
DO WHILE C LEN(M.MTEST) IF .NOT.mplete command' 20,5 SAY 'as
you would type it yourself.' STORE ' ' TO TEMP 21,5 SAY 'Press any k
ey to continue ' 21,1 GET M.TEMP READ CLEAR GETS 19,0
20,0 21,0 21,5 SAY 'Do you want to delete this file (Y/N).'
21,1 GET M.CHOICE PICT '!' READ 21,0 ENDIF CLEAR GETS IF M.
CHOICE 'Y' DELETE FILE &DEL 4,5 SAY 'The files left are-
' 5,0 LIST FILES LIKE *.DBF STORE F TO PCONT $(M.MTEST,C,1)$
'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789' STORE ERR1+'' TO ERR1 S
TORE ERR2+'!' TO ERR2 STORE F TO MSG ELSE STORE ERR1+'
' TO ERR1 STORE ERR2+' ' TO ERR2 ENDIF STORE C+1 TO C
ENDDO IF M.MSG 23,14 SAY M.MTEST ELSE 18,0
19,0 18,35 SAY ERR1+' ' 19,35 SAY ERR2+' '
21,5 SAY 'Illegal character in the File Name - press any key to retry
' ELSE STORE ' ' TO DEL 21,0 23,14 SAY M.BLANK
LOOP ENDIF STORE ' ' TO CONT 20,5 SAY 'Well done, you have success
fully deleted '+M.DEL 23,0 SAY '. FILE HAS BEEN DELETED' STORE ' ' TO TEM
P 21,5 SAY 'Press any key to continue ' 21,1 GET M.TEMP READ CLEAR
GETS ENDDO ERAS TEXT WELCOME DELETE A FILE
dBASE II ---------------------------------------------------
---------------------------- ENDT STORE ' ' TO TEMP 21,1 GET M.TEMP
READ CLEAR GETS STORE ' ' TO DEL 17,0 1
8,0 19,0 20,0 21,1 23,14 SAY M.BLANK LOOP
ENDIF IF M.DEL M.MFILE 19,0 20,0 21,0
23,14 SAY M.BLANK 20,5 SAY TRIM(M.DEL)+' Is currently open. Please ch
oose again.' STORE ' ' TO DEL STORE ' ' TO TEMP 21,
5 SAY 'Press any key to continue ' 21,1 GETEXT 22,1 SAY '-------------
--------------------------' + '--------------------------------------
' 11,27 SAY 'RETURNING TO MAIN MENU' 20,1 STORE 1 TO C DO WHILE C 25 S
TORE C+1 TO C ENDDO RELE ALL EXCEPT MFILE RETURN REPLACE FIELDLEN WITH 0
STORE 1 TO C DO WHILE C 25 STORE C+1 TO C
ENDDO 16,0 17,0 20,0
21,1 ENDIF ENDDO RELEASE MFIRST M.TEMP RE
AD CLEAR GETS 16,0 17,0 18,0 19,0
20,0 21,0 23,14 SAY M.BLANK LOOP ENDIF IF .NOT
. FILE ( '&DEL' ) 19,0 20,0 21,0 STORE ' ' TO TEM
P 21,5 SAY 'File not found - Press any key to retry ' 21,1 GET
M.TEMP READ CLEAR GETS 16,0 17,0 18,0
19,0 20,0 21,1 STORE ' ' TO DEL 23ERAS
STORE ' ' TO BLANK TEXT WELCOME
ADD DATA TO A FILE dBASE II ----------
------------------------------------------------------------------ T
o add data to a dBASE II file you must first ensure that you have ope
ned a file. ENDTEXT 22,1 SAY '--------------------------------------'
+ '--------------------------------------' IF M.MFILE' ' 20,5 SA
Y 'No file in use please,14 SAY M.BLANK ELSE STORE T TO VALID E
NDIF ENDDO STOR ' ' TO CHOICE IF FILE ( '&DEL' ) ERAS TEXT WEL
COME DELETE A FILE dBASE II --
----------------------------------------------------------------------------- E
NDTEXT 22,1 SAY '---------------------------------------' + '--
------------------------------------' 23,0 SAY '. DELETE FILE '+MTEST
19,5 SAY 'Below the line you will now see the co PAFBGCHDIE OPEN from main
menu' STORE ' ' TO TEMP 21,5 SAY 'Press any key to continue ' 21,1 GE
T M.TEMP READ CLEAR GETS ERAS TEXT WELCOME ADD D
ATA TO A FILE dBASE II ----------------------------------
------------------------------------------ ENDTEXT 22,1 SAY '------------
--------------------------' + '--------------------------------------
' 11,27 SAY 'RETURNING TO MAIN MENU' 20,1 STORE 1 TO C DO WHILE C
25 R T TO CONT DO WHILE M.CONT SELECT PRIMARY LINE,1 S
AY S.FIELDNAME STOR S.FIELDNAME TO APPE1 LINE,11 GET &APPE1
DO CASE CASE FIELDLEN 69 STOR M.LINE+1 TO LINE C
ASE FIELDLEN 68 .AND. FIELDLEN 159 STOR M.LINE+2 TO LINE C
ASE FIELDLEN 158 .AND. FIELDLEN 239 STOR M.LINE+3 TO LINE
CASE FIELDLEN 238 STOR M.LINE+4 TO LINE ENDCASE 21,5
SAY 'Please enter requirSTORE C+1 TO C ENDDO RELEASE ALL EXCEPT MFILE R
ETURN ENDIF 20,5 SAY 'The file presently in use is - '+M.MFILE STORE ' ' TO
REPLY DO WHILE .NOT.!(M.REPLY)$'YN' 21,0 21,5 SAY 'Do you wish to add d
ata to this file Y/N ' 21,1 GET M.REPLY READ CLEAR GETS ENDDO IF !(
M.REPLY)'N' ERAS TEXT WELCOME ADD DATA TO A FILE
dBASE II -----------------------------------------------------
----------------------- ENDTEXT 22,1 SAY 'ed details' SELECT SECON
DARY SKIP DO CASE CASE FIELDLEN 69 STOR 1 TO
NEXTLINE CASE FIELDLEN 68 .AND. FIELDLEN 159 STOR 2 TO NEX
TLINE CASE FIELDLEN 158 .AND. FIELDLEN 239 STOR 3 TO NEXTL
INE CASE FIELDLEN 238 STOR 4 TO NEXTLINE ENDCASE
IF EOF .OR. M.LINE+M.NEXTLINE 17 STOR F TO CONT IF EOF
STOR T TO LASTREC,LOGIC ENDIF ENDIF E------------
--------------------------' + '--------------------------------------
' 11,27 SAY 'RETURNING TO MAIN MENU' 20,1 STORE 1 TO C DO WHILE C
25 STORE C+1 TO C ENDDO RELEASE ALL EXCEPT MFILE RETURN ENDIF E
RAS TEXT WELCOME ADD DATA TO A FILE
dBASE II ---------------------------------------------------------------------
------- ENDTEXT 22,1 SAY '--------------------------------------'
+ '---------NDDO SELECT PRIMARY READ CLEA GETS IF .NOT. M.
LASTREC STOR 5 TO M.LINE DO WHILE M.LINE 18 M.LINE,0
STOR M.LINE + 1 TO LINE ENDDO ELSE STORE T TO NOCONT
ENDIF ENDDO 20,5 SAY 'dBASE II will allow you to APPEND as many re
cords as required.' STORE ' ' TO REPLY DO WHILE .NOT. M.REPLY$'YN' 2
1,0 21,5 SAY 'More Records Y/N ' 21,1 GET M.REPLY pict '!' REA
D CLEAR GETS ENDDO ERAS TE-----------------------------' 4,0 TEXT
You would add data to a file in dBASE II by typing . APPEND
To help you along I have already entered the APPEND - shown below the
line. ENDTEXT 23,0 SAY ". APPEND" STORE ' ' TO TEMP 21,5 SAY 'Press any
key to continue ' 21,1 GET M.TEMP READ CLEAR GETS ERAS TEXT WELCOME
ADD DATA TO A FILE dBASE II ------------
---------------------------------------------------------------- XT WELCOME
ADD DATA TO A FILE dBASE II ----------
------------------------------------------------------------------ ENDTEXT
22,1 SAY '--------------------------------------' + '------------
--------------------------' IF M.REPLY'N' STORE F TO MULTI ELSE
23,0 SAY '. APPEND' SELE SECO GOTO TOP ENDIF ENDDO 23,0 SAY M.
BLANK 11,27 SAY 'RETURNING TO MAIN MENU' 20,1 STORE 1 TO C DO WHILE C 25
STORE C ENDTEXT 22,1 SAY '--------------------------------------'
+ '--------------------------------------' 23,0 SAY '. APPEND' 11,20 SAY
'Please Wait ... now loading the next Welcome file' 20,1 COPY TO TEMP STRUCTU
RE EXTENDED SELECT SECONDARY USE TEMP STOR T TO MULTI DO WHILE M.MULTI 1
1,5 GO TOP SELECT PRIMARY APPEND BLANK 4,1 SAY 'RECORD # ' 4,10
SAY # STORE F TO NOCONT,LASTREC DO WHILE .NOT. M.NOCONT SELECT SECON
DARY STORE 5 TO LINE STO RAFBGCHDIE+1 TO C ENDDO RELEASE ALL EXCEPT
MFILE SELECT SECONDARY USE SELECT PRIMARY USE DELETE FILE TEMP USE &MFILE
RETURN !!!!!!' 19,5 SAY 'The .DBF suffix is not required' READ
CLEAR GETS IF M.CFILE ' ' ERASE 1,1 SAY 'WELCOME
OPEN/CLOSE A FILE' 1,71 SAY 'dBASE II' 2,1
SAY UNDERLN 22,1 SAY UNDERLN 11,27 SAY 'RETURNING TO MAIN MENU'
20,1 STORE 1 TO C DO WHILE C 25 S---------------
---------' + '--------------------------------------' ENDDO IF M.RE
PLY'N' 11,27 SAY 'RETURNING TO MAIN MENU' 20,1 STORE 1 TO C DO WHI
LE C 25 STORE C+1 TO C ENDDO RELEASE ALL EXCEPT MFILE RETURN END
IF 4,0 TEXT You would edit a record in a dBASE II file by typing
. EDIT To help you along I have already entered the EDIT - show
n below the line. ENDTEXT 23,0 SAY ". EDIT" STORE ' ' TO TEMP 21
,5 SAY 'Press any key to continue ' 21,1 GET M.TEMP READ CLEAR GETS ERAS T
EXT WELCOME EDIT DATA FROM A FILE dBASE II
--------------------------------------------------------------------------
-- ENDTEXT 22,1 SAY '--------------------------------------' + '
--------------------------------------' 23,0 SAY '. EDIT' 11,20 SAY 'Please
Wait ... now loading the next Welcome file' 20,1 COPY TO TEMP1 STRUCTURE EXTE
NDED SELECT SECONDARY USE TEMP1 ERAS STORE '
' TO BLANK TEXT WELCOME EDIT DATA FROM A FIL
E dBASE II ------------------------------------------------
---------------------------- To edit a record in a dBASE II file you
must first ensure that you have opened a file. ENDTEXT 22,1 SAY '
--------------------------------------' + '--------------------------
------------' IF M.MFILE' ' 20,5 SAY 'No file in usSTOR T TO MULTI
DO WHILE M.MULTI SELECT SECONDARY 11,5 GO TOP SELECT PRIMARY GO
BOTTOM STOR STR(#,3) TO RECNUM STOR T TO BIGNUM DO WHILE M.BIGNUM
STOR ' ' TO EDIT 19,5 SAY 'You have '+RECNUM+' records in '+M.MFILE
17,5 SAY 'Choose a record number to edit 'GET M.EDIT PICT '999' 17,41 SA
Y 'Blank to finish' READ CLEA GETS IF VAL(M.EDIT) INT(VAL(M.EDIT
)) 20,5 SAY 'Please try a whole number !!' STORE ' ' TO TEMP
2e please OPEN from main menu' STORE ' ' TO TEMP 21,5 SAY 'Press any
key to continue ' 21,1 GET M.TEMP READ CLEAR GETS ERAS TEXT WEL
COME EDIT DATA FROM A FILE dBASE II ----
------------------------------------------------------------------------ ENDT
EXT 22,1 SAY '--------------------------------------' + '--------
------------------------------' 11,27 SAY 'RETURNING TO MAIN MENU' 20,1
STORE 1 TO C DO WHILE C 1,5 SAY 'Press any key to retry ' 21,1 GE
T M.TEMP READ CLEAR GETS 16,0 17,0 18,0
19,0 20,0 21,1 STORE ' ' TO EDIT LOOP
ENDIF IF VAL(M.EDIT) 0 .OR. VAL(M.EDIT) # 20,5 SAY 'Record out
of range. Please choose again.' STORE ' ' TO TEMP 21,5 SAY 'Pres
s any key to retry ' 21,1 GET M.TEMP READ CLEAR GETS
16,0 17,0 18,0 19, 25 STORE C+1 TO C ENDDO
RELEASE ALL EXCEPT MFILE RETURN ENDIF 20,5 SAY 'The file presently in us
e is - '+M.MFILE STORE ' ' TO REPLY DO WHILE .NOT. M.REPLY$'YN' 21,5 SAY '
Do you wish to edit a record in this file Y/N ' 21,1 GET M.REPLY pict '!'
READ CLEAR GETS ERAS TEXT WELCOME EDIT DATA FROM
A FILE dBASE II -------------------------------------------
--------------------------------- ENDTEXT 22,1 SAY '-------------- OAFBG
CHDIE0 20,0 21,1 STORE ' ' TO EDIT LOOP ELS
E STORE F TO BIGNUM 23,7 SAY EDIT ENDIF ENDDO ERAS TE
XT WELCOME EDIT DATA FROM A FILE dBASE II
---------------------------------------------------------------------------
- ENDTEXT 22,1 SAY '--------------------------------------' +
'--------------------------------------' 23,0 SAY '. EDIT '+M.EDIT IF VAL
(M.EDIT) 0 RELEASE ALL Ey records as required.' STORE ' ' TO REPLY
DO WHILE .NOT. M.REPLY$'YN' 21,0 21,5 SAY 'More Records Y/N '
21,1 GET M.REPLY pict '!' READ CLEAR GETS ENDDO ERAS TEXT
WELCOME EDIT DATA FROM A FILE dBASE II -
--------------------------------------------------------------------------- E
NDTEXT 22,1 SAY '--------------------------------------' + '-----
---------------------------------' IF M.REPLY'N' XCEPT MFILE SELECT SE
CONDARY USE SELECT PRIMARY DELETE FILE TEMP1 23,0 SAY M.BLA
NK 11,27 SAY 'RETURNING TO MAIN MENU' 20,1 STOR 0 TO PAUSE
DO WHILE M.PAUSE25 STOR M.PAUSE+1 TO PAUSE ENDDO RETURN END
IF 19,5 SAY 'Below the line you will now see the complete command' 20,5
SAY 'as you would type it yourself.' STORE ' ' TO TEMP 21,5 SAY 'Press a
ny key to continue ' 21,1 GET M.TEMP READ CLEAR GETS 19,0
23,0 SAY M.BLANK STOR F TO MULTI ENDIF ENDDO 11,27 SAY 'RETURNING TO
MAIN MENU' 20,1 STORE 1 TO C DO WHILE C 25 STORE C+1 TO C ENDDO RELEAS
E ALL EXCEPT MFILE SELECT SECONDARY USE SELECT PRIMARY DELETE FILE TEMP1 RE
TURN 22,1 SAY '---------------------------------------' + '---------
-----------------------------' 11,27 SAY 'RETURNING TO MAIN MENU'
20,1 STORE 1 TO C DO WHILE C 25 STORE C+1 TO C
ENDDO RELE 20,0 21,0 GO VAL(M.EDIT) 4,1 SAY 'RECORD # ' 4,
10 SAY # STORE T TO NOCONT STOR F TO LASTREC DO WHILE M.NOCONT ST
ORE 5 TO LINE STOR T TO TCONT DO WHILE M.TCONT T SELECT PRIMAR
Y M.LINE,1 SAY S.FIELDNAME STOR S.FIELDNAME TO APPE1 M.LI
NE,11 GET &APPE1 DO CASE CASE FIELDLEN 69 STOR M.LIN
E+1 TO LINE CASE FIELDLEN 68 .AND. FIELDLEN 159 STOR M.LIN
E+2 TO LINE CASE FIELDLEN ERAS STORE '
' TO BLANK TEXT WELCOME DELETE DATA FROM A FI
LE dBASE II -----------------------------------------------
----------------------------- To delete a record in a dBASE II file yo
u must first ensure that you have opened a file. ENDTEXT 22,1 SAY '-
-------------------------------------' + '---------------------------
-----------' IF M.MFILE' ' 20,5 SAY 'No file in use 158 .AND. FIELDL
EN 239 STOR M.LINE+3 TO LINE CASE FIELDLEN 238
STOR M.LINE+4 TO LINE ENDCASE SELECT SECONDARY SKIP
DO CASE CASE FIELDLEN 69 STOR 1 TO NEXTLINE CASE F
IELDLEN 68 .AND. FIELDLEN 159 STOR 2 TO NEXTLINE CASE FIEL
DLEN 158 .AND. FIELDLEN 239 STOR 3 TO NEXTLINE CASE FIELDL
EN 238 STOR 4 TO NEXTLINE ENDCASE IF EOF .OR. M.LINE p
lease OPEN from main menu' STORE ' ' TO REPLY 21,5 SAY 'Press any key to
return to main menu ' 21,1 GET M.REPLY READ CLEA GETS ERAS TEXT
WELCOME DELETE DATA FROM A FILE dBASE II
----------------------------------------------------------------------------
ENDTEXT 22,1 SAY '--------------------------------------' + '-
-------------------------------------' 11,27 SAY 'RETURNING TO MAIN MENU'
20,1 STORE 1 TO C +M.NEXTLINE 17 STOR F TO TCONT IF EO
F STOR T TO LASTREC STOR T TO LOGIC ENDIF
ENDIF ENDDO SELECT PRIMARY READ GO TOP CLEA GETS
IF .NOT. M.LASTREC STOR 5 TO LINE DO WHILE M.LINE 18 M.L
INE,0 STOR M.LINE + 1 TO LINE ENDDO ELSE STOR F TO
NOCONT ENDIF ENDDO 19,0 20,0 21,0 23,7 SAY M.BLANK
20,5 SAY 'dBASE II will allow you to EDIT as man RAFBGCHDIE DO WHILE C 25
STORE C+1 TO C ENDDO RELEASE ALL EXCEPT MFILE RETURN ENDIF 20,5 SA
Y 'The file presently in use is - '+M.MFILE STORE ' ' TO REPLY DO WHILE .NOT.
M.REPLY$'YN' 21,5 SAY 'Do you wish to delete a record in this file Y/N '
21,1 GET M.REPLY pict '!' READ CLEAR GETS ENDDO ERAS TEXT WELCOME
DELETE DATA FROM A FILE dBASE II -------
--------------------------------------------------------------------- ENDTEXT
22, STORE F TO BIGNUM ENDIF ENDDO ERAS TEXT WELCOME
DELETE DATA FROM A FILE dBASE II -------------------
--------------------------------------------------------- ENDTEXT 22,1 SAY
'--------------------------------------' + '-------------------------
-------------' IF VAL(M.EDIT) 0 RELEASE ALL EXCEPT MFILE SELECT SECOND
ARY USE SELECT PRIMARY DELETE FILE TEMP1 ERAS 11,27 SAY 'RETURNI
NG TO MAIN MENU' 20,1 STOR1 SAY '--------------------------------------'
+ '--------------------------------------' IF M.REPLY'N' 11,27 S
AY 'RETURNING TO MAIN MENU ' 20,1 STORE 1 TO C DO WHILE C 25 STO
RE C+1 TO C ENDDO RELEASE ALL EXCEPT MFILE RETURN ENDIF 4,0 TEXT
You would delete data in dBASE II by typing . DELETE RECORD record
number Or the command . DELETE ALL dBASE II will the
n mark those records for deletion. We will conce 0 TO PAUSE DO WHILE
M.PAUSE25 STOR M.PAUSE+1 TO PAUSE ENDDO RETURN ENDIF 23,0 SAY '. D
ELETE RECORD ' 20,5 SAY 'You have chosen record '+TRIM(M.EDIT) ' for deletion'
STORE ' ' TO REPLY DO WHILE .NOT. M.REPLY$'YN' 21,5 SAY 'Are you sure Y/N
' 21,1 GET M.REPLY PICT "!" READ CLEAR GETS ENDDO 20,0 21,0 IF
M.REPLY'N' 23,0 SAY M.BLANK 11,27 SAY 'RETURNING TO MAIN MENU' 20,1
STORE 1 TO C DO WHILE C 25 STORE C+1 TO C ENDDO RELEASE rn ou
rselves with deleting one record for now. The command is shown below the l
ine. ENDTEXT 23,0 SAY '. DELETE RECORD' STORE ' ' TO TEMP 21,5 SAY 'Pres
s any key to continue ' 21,1 GET M.TEMP READ CLEAR GETS ERAS TEXT WELC
OME DELETE DATA FROM A FILE dBASE II ----
------------------------------------------------------------------------ ENDT
EXT 22,1 SAY '--------------------------------------' + '----------
----------------------ALL EXCEPT MFILE SELECT SECONDARY USE SELECT PRIM
ARY DELETE FILE TEMP1 RETURN ELSE 23,0 SAY '. DELETE RECORD '+M.EDIT
19,5 SAY 'Below the line you will now see the complete command' 20,5 SA
Y 'as you would type it yourself.' STORE ' ' TO TEMP 21,5 SAY 'Press any
key to continue ' 21,1 GET M.TEMP READ CLEAR GETS GO VAL(M.EDIT)
DELETE ENDIF 19,0 20,0 21,0 4,0 TEXT Your record has now b
een marked for deletion. To erase it ------' 23,0 SAY '. DELETE RECORD
' COPY TO TEMP1 STRUCTURE EXTENDED SELECT SECONDARY USE TEMP1 SELECT PRIMARY
GO BOTTOM STOR STR(#,3) TO RECNUM STOR T TO BIGNUM STOR ' ' TO EDIT DO W
HILE M.BIGNUM 19,5 SAY 'You have '+M.RECNUM+' records in '+M.MFILE 17,5
SAY 'Choose a record number to delete 'GET M.EDIT PICT '999' 17,42 SAY 'Blan
k to finish' READ CLEA GETS IF VAL(M.EDIT) INT(VAL(M.EDIT)) 20,5
SAY 'Please try a whole number !!' STORE ' ' TO TEMP 21from your fil
e you use the PACK command. To save your record from deletion you use
the RECALL command. ENDTEXT 22,1 SAY '----------------------
----------------' + '--------------------------------------' STORE '
' TO PACREC STORE Y TO MFIRST DO WHILE .NOT. M.PACREC$'PR' 21,0 21,
5 SAY 'Do you wish to PACK or RECALL (P/R) ' 21,1 GET M.PACREC PICT '!'
IF .NOT. M.MFIRST 21,50 SAY '- Invalid Selection' ELSE STORE N TO
MFIRST E,5 SAY 'Press any key to retry ' 21,1 GET M.TEMP READ
CLEAR GETS 17,0 18,0 19,0 20,0 21,1 STORE '
' TO EDIT LOOP ENDIF IF VAL(M.EDIT) 0 .OR. VAL(M.EDIT) #
20,5 SAY 'Record out of range. Please choose again.' STORE ' ' TO TEMP
21,5 SAY 'Press any key to retry ' 21,1 GET M.TEMP READ CLEA
R GETS 16,0 17,0 18,0 19,0 20,0 21,1 ST
ORE ' ' TO EDIT ELSE OAFBGCHDIENDIF READ ENDDO RELEASE MFIRST CLEAR
GETS ERAS TEXT WELCOME DELETE DATA FROM A FILE
dBASE II ----------------------------------------------------------
------------------ ENDTEXT 22,1 SAY '--------------------------------------
' + '--------------------------------------' IF M.PACREC 'P' 2
3,0 SAY '. PACK' 20,5 SAY 'To PACK your file, you must issue the command bel
ow-' STORE ' ' TO TEMP 21,5 SAY 'Press any key to continMFILE STORE ' '
TO REPLY DO WHILE .NOT. M.REPLY$'YN' 21,0 21,5 SAY 'Do you wish to DISP
LAY this file Y/N ' 21,1 GET M.REPLY pict '!' READ CLEAR GETS ENDDO
ERASE 1,1 SAY 'WELCOME LIST/DISPLAY RECORDS
' + ' dBASE II' 2,1 SAY UNDERLN 22,1 SAY UNDERLN IF M.REPLY'N
' 11,27 SAY 'RETURNING TO MAIN MENU' 20,1 STORE 1 TO C DO WHILE C
25 STORE C+1 TO C ENDDO RELEASE ALL EXCEPT MFILE RETURN ENDIF
4,ue ' 21,1 GET M.TEMP READ CLEAR GETS PACK 20,0 21,0 2
1,5 SAY 'Congratulations, you have successfully deleted record ' + M.EDIT ELS
E 23,0 SAY '. RECALL' 20,5 SAY 'To recall this record, you must issue th
e command below-' STORE ' ' TO TEMP 21,5 SAY 'Press any key to continue '
21,1 GET M.TEMP READ CLEAR GETS RECALL 20,0 21,0 21,5
SAY 'Congratulations, you have successfully recalled record ' + M.EDIT ENDIF
STORE 1 TO C DO WH0 TEXT You would display data in a dBASE II file by
typing . DISPLAY To help you along I have already entered the
DISPLAY - shown below the line. ENDTEXT 23,0 SAY '. DISPLAY' S
TORE ' ' TO TEMP 21,5 SAY 'Press any key to continue ' 21,1 GET M.TEMP READ
CLEAR GETS ERASE 1,1 SAY 'WELCOME LIST/DISPLAY RECORDS
' + ' dBASE II' 2,1 SAY UNDERLN 22,1 SAY UNDERLN
19,5 SAY 'Below the line you will now see ILE C 25 STORE C+1 TO C ENDDO
21,0 23,0 SAY M.BLANK 11,27 SAY 'RETURNING TO MAIN MENU' 20,1 STORE 1 T
O C DO WHILE C 25 STORE C+1 TO C ENDDO RELEASE ALL EXCEPT MFILE SELECT S
ECONDARY USE SELECT PRIMARY DELETE FILE TEMP1 RETURN # ' 4,10 SAY #
STORE F TO NOCONT,LASTREC DO WHILE .NOT. M.NOCONT SELECT SECONDARY
STORE 5 TO LINE STOthe complete command' 20,5 SAY 'to DISPLAY the full f
ile as you would type it yourself.' 23,0 SAY '. DISPLAY ALL' STORE ' ' TO RE
PLY DO WHILE .NOT. M.REPLY$'YN' 21,0 21,5 SAY 'Do you wish to do this Y
/N ' 21,1 GET M.REPLY PICT '!' READ CLEAR GETS ENDDO 19,0 20,0
21,0 23,0 SAY M.BLANK2 IF M.REPLY'Y' ERASE 1,1 SAY 'WELCOME
LIST/DISPLAY RECORDS ' + ' dBASE II' 2,
1 SAY UNDERLN DISPLAY ALL STORE '
' TO BLANK2 STORE '---------------------------------------' TO UNDERLN S
TORE UNDERLN+UNDERLN TO UNDERLN STORE M.BLANK2+M.BLANK2 TO BLANK ERASE 1,1 S
AY 'WELCOME LIST/DISPLAY RECORDS ' +
' dBASE II' 2,1 SAY UNDERLN 22,1 SAY UNDERLN 4,0 TEXT To li
st or display data in a dBASE II file you must ensure that you have fi
rst opened a file ENDTEXT IF M.MFILE' ' 20,5 SAY 'No 0,0
1,1 SAY 'WELCOME LIST/DISPLAY RECORDS '
+ ' dBASE II' 2,1 SAY UNDERLN 22,1 SAY UNDERLN STORE ' ' TO
TEMP 21,5 SAY 'Press any key to continue ' 21,1 GET M.TEMP READ CL
EAR GETS ERASE 1,1 SAY 'WELCOME LIST/DISPLAY RECORDS
' + ' dBASE II' 2,1 SAY UNDERLN 22,1 SAY UNDERL
N 11,27 SAY 'RETURNING TO MAIN MENU' 20,1 STORE 1 TO C DO WHILE C
2 file in use please OPEN from main menu' STORE ' ' TO TEMP 21,5 SAY 'Pr
ess any key to continue ' 21,1 GET M.TEMP READ CLEAR GETS ERASE 1
,1 SAY 'WELCOME LIST/DISPLAY RECORDS '
+ ' dBASE II' 2,1 SAY UNDERLN 22,1 SAY UNDERLN 11,27 SAY 'RETU
RNING TO MAIN MENU' 20,1 STORE 1 TO C DO WHILE C 25 STORE C+1 TO
C ENDDO RELEASE ALL EXCEPT MFILE RETURN ENDIF 20,5 SAY 'The file pr
esently in use is - '+M. RAFBGCHDIE5 STORE C+1 TO C ENDDO RETURN E
NDIF 11,20 SAY 'Please Wait ... now loading the next Welcome file' 20,1 SEL
ECT SECO USE SELECT PRIMARY USE &MFILE COPY TO TEMPSTRU STRU EXTENDED SELEC
T SECONDARY USE TEMPSTRU 11,0 GO BOTTOM STORE # TO FILCNT GO TOP 4,5 SA
Y 'You are now asked to select which fields you wish to DISPLAY. To' 5,5 SAY '
do this just enter the ref. number and press carriage return.' 6,5 SAY 'Wel
come will build the command. WHEN FINISHED LEAVE BLANK.' STOR 23,0 SAY '. '+M.
SELECT SELECT PRIMARY ERASE 1,1 SAY 'WELCOME LIST/DISPLAY
RECORDS ' + ' dBASE II' 2,1 SAY UNDERLN 22,1 SA
Y UNDERLN 23,0 SAY '. '+M.SELECT 19,5 SAY 'Below the line you will now see t
he complete command' 20,5 SAY 'as you would type it yourself.' STORE ' ' TO
TEMP 21,5 SAY 'Press any key to continue ' 21,1 GET M.TEMP READ CLEAR GETS
STORE LEN(M.SELECT)+3 TO COL STORE 22 TO LINE IF M.COL79 STORE 23 TO LINE
E 'DISPLAY ALL FIELDS ' TO SELECT STORE 8 TO LINE STORE 1 TO COUNT STORE 1
1 TO RECCNT STORE 1 TO COL STORE T TO CONT DO WHILE M.CONT DO WHILE M.LINE
15.AND..NOT.EOF M.LINE,M.COL SAY STR(M.COUNT,2) M.LINE,M.COL+3 SAY F
IELDNAME+','+FIELDTYPE+','+STR(FIELDLEN,3)+',' +STR(FIELDDEC,2) STORE
M.LINE+1 TO LINE STORE M.COUNT+1 TO COUNT SKIP ENDDO IF EOF
STORE F TO CONT LOOP ENDIF STORE 8 TO LINE STORE M.COL+26 TO COL
ENDDO STORE T TO CONT S STORE M.COL-79 TO COL ENDIF ERASE 1,1 SAY 'WELC
OME LIST/DISPLAY RECORDS ' + ' dB
ASE II' 2,1 SAY UNDERLN &SELECT 0,0 1,1 SAY 'WELCOME
LIST/DISPLAY RECORDS ' + ' dBASE II' 2,1 S
AY UNDERLN 22,1 SAY UNDERLN STORE ' ' TO TEMP 21,5 SAY 'Press any key to co
ntinue ' 21,1 GET M.TEMP READ CLEAR GETS ERASE 1,1 SAY 'WELCOME
LIST/DISPLAY RECORDS TORE T TO FIRST GO BOTTOM STORE #
TO BOTTOM DO WHILE M.CONT IF LEN(M.SELECT)100 23,0 SAY '. '+M.SELECT
STORE ' ' TO REPLY 21,5 SAY 'Selection is now large enough for de
mo - press any key to continue' 21,1 GET M.REPLY READ CLEAR GETS
STORE F TO CONT LOOP ENDIF 23,0 SAY '. '+M.SELECT STORE '
' TO REF 17,5 SAY 'Enter reference number - ' GET M.REF PICT '99' READ
CLEAR GETS IF VAL(M.REF)0 IF M.FIRST STORE ' ' TO TE '
+ ' dBASE II' 2,1 SAY UNDERLN 22,1 SAY UNDERLN 11,27 SAY 'RETURNING T
O MAIN MENU' 20,1 STORE 1 TO C DO WHILE C 25 STORE C+1 TO C ENDDO RELE
ASE ALL EXCEPT MFILE SELE SECO USE SELE PRIM USE &MFILE DELETE FILE TEMPSTR
U.DBF RETURN lf.' STORE ' ' TO TEMP 21,5 SAY 'Press any key to continu
e ' 21,1 GET M.TEMP READ CLEAR GETS 19,0 MP 21,5 SAY '
You MUST make a selection - Press any key to retry ' 21,1 GET M.TEMP
READ CLEAR GETS 16,0 17,0 18,0 19,
0 20,0 21,1 LOOP ENDIF STORE F TO CONT LO
OP ENDIF IF VAL(M.REF)BOTTOM STORE ' ' TO TEMP 21,5 SAY 'Invali
d selection - Press any key to retry ' 21,1 GET M.TEMP READ CLE
AR GETS 16,0 17,0 18,0 19,0 20,0 21,1STORE '
' TO BLANK2 STORE '---------------------
------------------' TO UNDERLN STORE UNDERLN+UNDERLN TO UNDERLN STORE M.BLANK2
+M.BLANK2 TO BLANK ERASE 1,1 SAY 'WELCOME LOCATE RECORDS
' + ' dBASE II' 2,1 SAY M.UNDERLN 22,1 SAY M.U
NDERLN 4,0 TEXT To locate data in a dBASE II file you must first
ensure that you have opened a file. ENDTEXT IF M.MFILE' ' 20,
5 SAY 'No file in STORE ' ' TO REF LOOP ENDIF IF VAL(M.REF) I
NT(VAL(M.REF)) 20,5 SAY 'Please try whole numbers !!' STORE ' ' TO TE
MP 21,5 SAY 'Press any key to retry ' 21,1 GET M.TEMP READ
CLEAR GETS 16,0 17,0 18,0 19,0 20,0 21,1
STORE ' ' TO REF LOOP ENDIF GO VAL(M.REF) IF M.FIRST ST
ORE F TO FIRST ELSE STORE M.SELECT+',' TO SELECT ENDIF STORE M.SE
LECT+TRIM(FIELDNAME) TO SELECT ENDDO RAFBGCHDIEuse please OPEN from main menu
' STORE ' ' TO TEMP 21,5 SAY 'Press any key to continue ' 21,1 GET M.
TEMP READ CLEAR GETS ERASE 1,1 SAY 'WELCOME LOCAT
E RECORDS ' + ' dBASE II' 2,1 SAY M.UNDERLN
22,1 SAY M.UNDERLN 11,27 SAY 'RETURNING TO MAIN MENU' 20,1 STORE 1
TO C DO WHILE C 25 STORE C+1 TO C ENDDO RELEASE ALL EXCEPT MFILE
RETURN ENDIF 20,5 SAY 'The file presently in use is - '+M.MFILE Ser the r
ef. number and press carriage return.' 6,5 SAY 'Welcome will build the comman
d. ' STORE 'LOCATE FOR ' TO SELECT STORE 8 TO LINE STORE 1 TO COUNT STORE 11
TO RECCNT STORE 1 TO COL STORE T TO CONT DO WHILE M.CONT DO WHILE M.LINE1
5.AND..NOT.EOF M.LINE,M.COL SAY STR(M.COUNT,2) M.LINE,M.COL+3 SAY FI
ELDNAME+','+FIELDTYPE+','+STR(FIELDLEN,3)+',' +STR(FIELDDEC,2) STORE M
.LINE+1 TO LINE STORE M.COUNT+1 TO COUNT SKIP ENDDO IF EOF
STORE F TO CONTORE ' ' TO REPLY DO WHILE .NOT. M.REPLY$'YN' 21,5 SAY 'Do y
ou wish to LOCATE in this file Y/N ' 21,1 GET M.REPLY pict '!' READ C
LEAR GETS ENDD IF M.REPLY'N' ERASE 1,1 SAY 'WELCOME L
OCATE RECORDS ' + ' dBASE II' 2,1 SAY M.UNDERL
N 22,1 SAY M.UNDERLN 11,27 SAY 'RETURNING TO MAIN MENU' 20,1 STOR
E 1 TO C DO WHILE C 25 STORE C+1 TO C ENDDO RELEASE ALL EXCEPT MF
ILE RETURN ENDIF ERASE 1,1 ST LOOP ENDIF STORE 8 TO LINE ST
ORE M.COL+26 TO COL ENDDO STORE T TO CONT,FIRST GO BOTTOM STORE # TO BOTTOM
DO WHILE M.CONT 23,0 SAY '. '+M.SELECT STORE ' ' TO REF 17,5 SAY 'E
nter reference number - ' GET M.REF PICT '99' READ CLEAR GETS IF VAL(M.
REF)0 IF M.FIRST STORE ' ' TO TEMP 21,5 SAY 'You MUST make a
selection - Press any key to retry ' 21,1 GET M.TEMP READ
CLEAR GETS 17,0 18,0 19,0 AY 'WELCOME
LOCATE RECORDS ' + ' dBASE II' 2,1 SA
Y M.UNDERLN 22,1 SAY M.UNDERLN 4,0 TEXT You would locate a record in
a dBASE II file by typing . LOCATE To help you along I have alr
eady entered the LOCATE - shown below the line. There are other co
mmands connected with LOCATE which I shall explain as we meet them.
ENDTEXT 23,0 SAY ". LOCATE" STORE ' ' TO TEMP 21,5 SAY 'Press any key t
o con 20,0 21,0 LOOP ENDIF STORE F TO CONT LOOP
ENDIF IF VAL(M.REF)M.BOTTOM 18,40 SAY 'Invalid selection please retry
' STORE ' ' TO TEMP 21,5 SAY 'Press any key to retry ' 21,1 GE
T M.TEMP READ CLEAR GETS 17,0 18,0 19,0 20,0
21,1 STORE ' ' TO REF LOOP ENDIF IF VAL(M.REF) INT(VAL(M.
REF)) 18,40 SAY 'Please try whole numbers !!' STORE ' ' TO TEMP
21,5 SAY 'Press any ktinue ' 21,1 GET M.TEMP READ CLEAR GETS ERASE 1,1 S
AY 'WELCOME LOCATE RECORDS ' + '
dBASE II' 2,1 SAY M.UNDERLN 22,1 SAY M.UNDERLN 4,0 TEXT Make sur
e you are at the top of your file by typing . GOTO TOP T
o help you along I have already entered the GOTO TOP - shown below the lin
e. ENDTEXT 23,0 SAY ". GOTO TOP " STORE ' ' TO TEMP 21,5 SA
Y 'Press any key to continue ' 21,1 GET M.Tey to retry ' 21,1 GET M.TEM
P READ CLEAR GETS 17,0 18,0 19,0 20,0 21
,1 STORE ' ' TO REF LOOP ENDIF STORE F TO FIRST,CONT ENDDO GO
VAL(M.REF) 23,13 SAY FIELDNAME DO CASE CASE FIELDTYPE 'C' IF FIELDL
EN 20 STORE ' ' TO STRING ELSE STORE $('
',1,FIELDLEN) TO STRING ENDIF STORE F TO TSTR
DO WHILE TRIM(M.STRING) ' ' .OR. .NOT. M.TSTR 17,0 EMP READ CLEAR G
ETS ERASE 1,1 SAY 'WELCOME LOCATE RECORDS
' + ' dBASE II' 2,1 SAY M.UNDERLN 22,1 SAY M.UNDERLN 11,20
SAY 'Please Wait ... now loading the next Welcome file' 20,1 SELE SECO USE
SELECT PRIMARY USE &MFILE COPY TO TEMPSTRU STRU EXTENDED SELECT SECONDARY U
SE TEMPSTRU GO BOTTOM STORE # TO FILCNT 11,5 go top 4,5 SAY 'You are now
asked to select which field you wish to LOCATE on.' 5,5 SAY 'To do this jus
t ent PAFBGCHDIE 18,0 19,0 20,0 21,0 17,5
SAY 'Enter Letter,Word or Words to be searched for ' GET M.STRING PICT '!!!!!!
!!!!!!!!!!!!' READ CLEAR GETS IF "'"$M.STRING 20,
5 SAY " ' Inverted comma's cannot be allowed " STORE F TO TSTR
STORE ' ' TO TEMP 21,5 SAY 'Press any key to retry ' 21,
1 GET M.TEMP READ CLEAR GETS 17,0 18,0
19,0 20,0 E M.COL-79 TO COL ENDIF &SELECT IF EOF
10,27 SAY '********************' 11,27 SAY '* NO RECORDS FOUND *' 12,27
SAY '********************' STORE 1 TO C DO WHILE C 25 STORE C+1 TO C
ENDDO ELSE 10,30 SAY ' ' 11,30 SAY ' RECORD FOU
ND ' 12,30 SAY ' ------------ ' DISP ENDIF DO WHILE .NOT. EO
F STORE ' ' TO RESP DO WHILE .NOT. M.RESP$'YN' 18,0 19,0 20,0
21,0 21,5 SAY 'Do you want to try for another 21,1 ELSE
STORE T TO TSTR ENDIF ENDDO STORE M.SELECT+"'"+TRIM(M.STRING
)+"'"+'$(!('+TRIM(FIELDNAME)+'))' TO SELECT CASE FIELDTYPE 'N' S
TORE M.SELECT+TRIM(FIELDNAME) TO SELECT 23,0 SAY '. ' + M.SELECT 4,0
5,0 6,0 4,10 SAY '"" Greater Than "" Smaller Than '
5,10 SAY '"" Equal To "#" Not Equal To ' 17,0 1
8,0 19,0 20,0 21,0 STORE ' ' TO OPERATOmatch (Y/N) '
21,1 GET M.RESP PICT '!' READ CLEAR GETS ENDDO IF M.RESP 'N
' GOTO BOTT SKIP LOOP ENDIF return to main menu if user does
not wish to CONTINUE the locate ERASE 1,1 SAY 'WELCOME
LOCATE RECORDS ' + ' dBASE II' 2,1 SAY M.UNDE
RLN 22,1 SAY M.UNDERLN 4,0 TEXT You would continue to locate records
in dBASE II by typing . CONTINUE To help you along I have alrea
dy eR DO WHILE .NOT. M.OPERATOR$'#' 17,5 SAY 'Enter mathamatical op
erator ' GET M.OPERATOR PICT '!' READ CLEAR GETS ENDDO S
TORE M.SELECT+' '+M.OPERATOR TO SELECT 23,0 SAY '. ' + M.SELECT STORE
'"'+$('99999999999999999999',1,(FIELDLEN-1)) TO PICT1 IF FIELDDEC 0
STORE M.PICT1+'.'+$('9999999999999999999',1,FIELDDEC) TO PICT1 ENDIF
STORE M.PICT1+'"' TO PICT1 STORE 0 TO MATH 17,0 17,5 SAY 'Ente
r value to be compared agntered the CONTINUE - shown below the line. EN
DTEXT STORE 'CONTINUE' TO SELECT 23,1 SAY '. '+M.SELECT STORE ' ' TO T
EMP 21,5 SAY 'Press any key to continue ' 21,1 GET M.TEMP READ CLE
AR GETS ERASE TEXT WELCOME CREATE A DATABASE FILE
dBASE II ------------------------------------------------------
------------------------- ENDTEXT 22,1 SAY '---------------------------------
-----------------------------' + '-------ainst ' GET M.MATH PICT &PIC
T1 READ CLEAR GETS STORE ' '+STR(M.MATH,FIELDLEN,FIELDDEC) TO MAT
H2 STORE M.SELECT+M.MATH2 TO SELECT OTHERWISE 17,5 STORE ' '
TO LOGIC DO WHILE .NOT. M.LOGIC$'TF' 17,5 SAY 'Locate for field
(T)rue or (F)alse ' GET M.LOGIC PICT '!' READ CLEAR GETS END
DO IF M.LOGIC 'F' STORE M.SELECT+' .NOT.' TO SELECT ENDIF
STORE M.SELECT+' '+TRIM(FIELDNAME) TO SELECT ENDCASE ERASE 1,1 SAY 'W----
----' 19,5 SAY 'Below the line you will now see the complete command' 20
,5 SAY 'as you would type it yourself.' 23,1 SAY '. '+M.SELECT STORE ' '
TO TEMP 21,5 SAY 'Press any key to continue ' 21,1 GET M.TEMP READ
CLEAR GETS STORE LEN(M.SELECT)+3 TO COL STORE 22 TO M.LINE IF M.COL79
STORE 23 TO LINE STORE M.COL-79 TO COL ENDIF &SELECT IF EOF
10,27 SAY '*************************' 11,27 SAY '* NO MORE RECORDS F
OUND *' 12,27ELCOME LOCATE RECORDS '
+ ' dBASE II' 2,1 SAY M.UNDERLN 22,1 SAY M.UNDERLN SELECT PRIM
ARY 23,0 SAY '. '+M.SELECT 19,5 SAY 'Below the line you will now see the com
plete command' 20,5 SAY 'as you would type it yourself.' STORE ' ' TO TEMP
21,5 SAY 'Press any key to continue ' 21,1 GET M.TEMP READ CLEAR GETS 17,
0 18,0 19,0 20,0 21,0 STORE LEN(M.SELECT)+3 TO COL STORE 22 TO LINE I
F M.COL79 STORE 23 TO LINE STOR RAFBGCHDIE SAY '*************************
' STORE 1 TO C DO WHILE C 25 STORE C+1 TO C
ENDDO ELSE 10,27 SAY ' ' 11,27 SAY ' A
NOTHER RECORD FOUND ' 12,27 SAY ' -------------------- ' DISP
ENDIF ENDDO ERASE 1,1 SAY 'WELCOME LOCATE RECORDS
' + ' dBASE II' 2,1 SAY M.UNDERLN 22,1 SAY M.UNDERL
N 11,27 SAY 'RETURNING TO MAIN MENU' 20,1 STORE 1 TO C DO WHILresently in
use is - '+M.MFILE STORE ' ' TO REPLY DO WHILE .NOT.!(M.REPLY)$'YN' 21,0
21,5 SAY 'Do you wish to report on this file Y/N ' 21,1 GET M.REPLY R
EAD CLEAR GETS ENDDO ERASE 1,1 SAY 'WELCOME REPORT CR
EATION ' + ' dBASE II' 2,1 SAY M.UNDERLN 22,1
SAY M.UNDERLN IF !(M.REPLY)'N' 11,27 SAY 'RETURNING TO MAIN MENU' 20,1
STORE 1 TO C DO WHILE C 25 STORE C+1 TO C ENDDO RELEASE ALL EX
CEPT MFIE C 25 STORE C+1 TO C ENDDO RELEASE ALL EXCEPT MFILE SELE SECO U
SE SELE PRIM USE &MFILE DELETE FILE TEMPSTRU.DBF RETURN you sure Y/N '
21,1 GET M.REPLY PICT "!" READ CLEAR GETS ENDDO 20,0 21,0 IF M.REPL
Y'N' 23,0 SAY M.BLANK 11,27 SAY 'RETURNING TO MAIN MENU' 20,1 STO
RE 1 TO C DO WHILE C 25 STORE C+1 TO C ENDDO RELEASE LE RETURN
ENDIF 4,0 TEXT You would create a report or print an existing report
in dBASE II by typing . REPORT FORM filename TO PRINT
By omiting the option TO PRINT your report will be displayed on the sc
reen only. Report is used to prepare reports (either on screen
or on paper) by displaying data from the file in USE in a defined man
ner. REPORTS may have titled columns, totalled numeric fields, and
displayed expressions involving data fields, memory variables,and constan
ts. endtext STORE ' ' TO TEMP 23,0 SAY '. REPORT FORM' 21,5 SAY 'Press any
key to continue ' 21,1 GET M.TEMP READ CLEAR GETS ERASE 1,1 SAY 'WELCOME
REPORT CREATION ' + ' dBASE I
I' 2,1 SAY M.UNDERLN 22,1 SAY M.UNDERLN IF M.RESP 'N' 23,0 SAY M.BLANK
2 11,27 SAY 'RETURNING TO MAIN MENU' 20,1 RELEASE ALL EXCEPT MFILE
RETURN ENDIF 23,0 SAY '. REPORT F STORE '
' TO BLANK2 STORE '---------------------------------------' TO UNDERLN ST
ORE M.UNDERLN+M.UNDERLN TO UNDERLN STORE M.BLANK2+M.BLANK2 TO BLANK ERASE 1,
1 SAY 'WELCOME REPORT CREATION ' +
' dBASE II' 2,1 SAY M.UNDERLN 22,1 SAY M.UNDERLN 4,5 say 'To report o
n a file in dBASE II you must first ensure' 5,5 say 'that you have opened a fi
le.' IF M.MFILE' ' 20,5 SAY 'No file in use pleORM' 4,1 SAY '
The report forms already created are - ' LIST FILE LIKE *.FRM STORE ' ' TO R
ESP DO WHILE .NOT. M.RESP$'YN' 21,5 SAY 'Type Y to use one of these files '
+ '- Type N to create a new report' 21,1 GET M.RESP PICT '!' READ CL
EAR GETS ENDDO 21,0 IF M.RESP 'Y' STORE ' ' TO FFILE STORE F T
O FOUND 21,5 SAY 'Be CAREFUL to choose a Report that uses database ' + M.MFI
LE DO WHILE .NOT. M.FOUND 17,5 SAY 'Please enter file name ' GET M.FFIL
E PIase OPEN from main menu' STORE ' ' TO REPLY STORE ' ' TO TEMP 21,5
SAY 'Press any key to continue ' 21,1 GET M.TEMP READ CLEAR GETS E
RASE 1,1 SAY 'WELCOME REPORT CREATION '
+ ' dBASE II' 2,1 SAY M.UNDERLN 22,1 SAY M.UNDERLN 11,27
SAY 'RETURNING TO MAIN MENU' 20,1 STORE 1 TO C DO WHILE C 25 ST
ORE C+1 TO C ENDDO RELEASE ALL EXCEPT MFILE RETURN ENDIF no file open
20,5 SAY 'The file p RAFBGCHDIECT '!!!!!!!!' 17,47 SAY ' Blank to fin
ish' READ CLEAR GETS IF M.FFILE ' ' ERASE 1,1 SA
Y 'WELCOME REPORT CREATION ' + '
dBASE II' 2,1 SAY M.UNDERLN 22,1 SAY M.UNDERLN 11,27
SAY 'RETURNING TO MAIN MENU' 20,1 RELEASE ALL EXCEPT MFILE
STORE 1 TO C DO WHILE C 25 STORE C+1 TO C ENDDO
RETURN ENDIF 20,0 21,1 STORE TRIM19,0 20,0
21,1 STORE ' ' TO FFILE loop endif do while .not
. eof store f to mjgnogood if (',',fieldname) 0 skip
endif store !(trim($(fieldname,(',',fieldname)+1))) to mjgfield
sele prim locate for !(trim(fieldname)) mjgfield if eof
21,0 20,5 say '** ERROR ** This report does not correspond with you
r database' STORE ' ' TO TEMP 21,5 SAY 'Press any key t(M.FFI
LE) TO TFILE STORE TRIM(M.FFILE) TO MTEST STORE ' ' TO ERR1,ERR2 S
TORE T TO MSG IF .NOT. $(M.MTEST,1,1)$'ABCDEFGHIJKLMNOPQRSTUVWXYZ' STORE
F TO MSG STORE ERR1+'' TO ERR1 STORE ERR2+'!' TO ERR2 ELSE
STORE ERR1+' ' TO ERR1 STORE ERR2+' ' TO ERR2 ENDIF STORE 2 TO C D
O WHILE C LEN(M.MTEST) IF .NOT. $(M.MTEST,C,1)$'ABCDEFGHIJKLMNOPQRSTUVWXYZ
0123456789' STORE ERR1+'' TO ERR1 STORE ERR2+'!' TO ERR2 ST
ORE F TO MSG ELSo retry ' 21,1 GET M.TEMP READ
CLEAR GETS 17,0 18,0 19,0 20,0
21,1 store t to mjgnogood STORE ' ' TO FFILE
loop endif sele seco skip +2 enddo sele seco
use sele prim use delete file tempstru delete file temps
tr1 if mjgnogood loop endif release all like mjg* ***
********************************** STORE E STORE ERR1+' ' TO ERR1
STORE ERR2+' ' TO ERR2 ENDIF STORE C+1 TO C ENDDO IF M.MS
G 23,14 SAY M.MTEST ELSE 18,28 SAY ERR1+' ' 1
9,28 SAY ERR2+' ' 21,5 SAY 'Illegal character in the File Name -
press any key to retry' STORE ' ' TO TEMP 21,1 GET M.TEMP RE
AD CLEAR GETS STORE ' ' TO FFILE 17,0 18,0 19
,0 20,0 21,1 LOOP ENDIF IF .NOT. FILE ( '&T TO FOUND
ENDDO ERASE 1,1 SAY 'WELCOME REPORT PRINTING
' + ' dBASE II' 2,1 SAY M.UNDERLN 22,1 SAY M.
UNDERLN 11,20 SAY 'Please Wait ... now loading the next Welcome file' 20
,1 SELE SECO SELE PRIM USE &MFILE 11,0 STORE ' ' TO RPRINT DO
WHILE .NOT. M.RPRINT$'PS' 21,5 SAY 'Do you want output to Printer or to t
he Screen (P/S) ' 21,1 GET M.RPRINT PICT '!' READ CLEAR GETS
ENDDO TFILE..FRM' ) 21,0 21,5 SAY 'File does not exist - pr
ess any key to retry' STORE ' ' TO TEMP 21,1 GET M.TEMP
READ CLEAR GETS 17,0 18,0 19,0 20,0
21,0 STORE ' ' TO FFILE LOOP ENDIF 21,5 say
'Now checking selected report matches the database in use' ****************
************* MJG - 19/07/84 ** This routine checks the validity of .FRM fi
les against .DBF files. ** I 21,0 IF M.RPRINT 'P' STORE ' ' TO CPR
INTER 21,5 SAY 'Please prepare Printer .... Press any key when ready '
21,1 GET M.CPRINTER READ CLEAR GETS STORE 'REPORT FORM &TFILE
TO PRINT' TO SELECT 21,0 23,0 SAY '. &SELECT' 19,5 SAY 'Below
the line you will now see the complete command' 20,5 SAY 'to print a repo
rt as you would type it yourself.' STORE ' ' TO TEMP 21,5 SAY 'Press
any key to continue ' 21,1 GET M.TEMP READ t is 70 % reliable.
sele prim use &mfile copy to tempstru stru extended use tempstru
copy to tempstr1 stru sele seco use tempstr1 append from &tf
ile..frm sdf locate for ',' $ fieldname .and. #1 if eof 21,0
20,5 say '** ERROR ** This report does not correspond with your database'
STORE ' ' TO TEMP 21,5 SAY 'Press any key to retry ' 21
,1 GET M.TEMP READ CLEAR GETS 17,0 18,0
RAFBGCHDIE CLEAR GETS STORE LEN(M.SELECT)+2 TO COL 23,M.COL+1 SAY
' ' SET CONS OFF &select ELSE 21,0 STORE 'REPORT FORM &
TFILE NEXT 8 PLAIN' TO SELECT 23,1 SAY '. &SELECT' 19,5 SAY 'Below t
he line you will now see the complete command' 20,5 SAY 'as you would type
it yourself.' STORE ' ' TO TEMP 21,5 SAY 'Press any key to continue
' 21,1 GET M.TEMP READ CLEAR GETS STORE LEN(M.SELECT)+2 TO
COL DO WHILE .NOT. EOF CLEAR GETS IF M.CFILE ' ' E
RASE 1,1 SAY 'WELCOME REPORT CREATION '
+ ' dBASE II' 2,1 SAY M.UNDERLN 22,1 SAY M.UNDERLN
11,27 SAY 'RETURNING TO MAIN MENU' 20,1 STORE 1 TO C DO WHILE C
25 STORE C+1 TO C ENDDO SELE SECO USE SELE PRIM
USE &MFILE RELEASE ALL EXCEPT MFILE RETURN ENDIF Blank file name
STORE TRIM(M.CFILE) TO MTEST STORE ' ' TO ERR1,ER 19,0 20,0
21,1 22,0 23,0 &SELECT
0,0 1,1 SAY 'WELCOME REPORT PRINTING
' + ' dBASE II' 2,1 SAY M.UNDERLN 22,1 S
AY M.UNDERLN STORE ' ' TO XRESP 21,5 SAY 'Press RETURN to contin
ue or "X" to Exit ' 21,1 GET M.XRESP PICT '!' READ CLEAR
GETS IF M.XRESP 'X' SELE PRIM USE &MFILE R2 ST
ORE T TO MSG IF .NOT. $(M.MTEST,1,1)$'ABCDEFGHIJKLMNOPQRSTUVWXYZ' STORE
F TO MSG STORE ERR1+'' TO ERR1 STORE ERR2+'!' TO ERR2 ELSE ST
ORE ERR1+' ' TO ERR1 STORE ERR2+' ' TO ERR2 ENDIF STORE 2 TO C DO
WHILE M.C LEN(MTEST) IF .NOT. $(M.MTEST,C,1)$'ABCDEFGHIJKLMNOPQRSTUVWXYZ01
23456789' STORE ERR1+'' TO ERR1 STORE ERR2+'!' TO ERR2 STOR
E F TO MSG ELSE STORE ERR1+' ' TO ERR1 STORE ERR2+' ' TO ERR
2 ENDIF ST RELEASE ALL EXCEPT MFILE ERASE 1,1 SAY 'WEL
COME REPORT PRINTING ' + ' d
BASE II' 2,1 SAY M.UNDERLN 22,1 SAY M.UNDERLN 11,27 SAY 'RETUR
NING TO MAIN MENU' 20,1 STORE 0 TO MCOUNT DO WHILE M
.MCOUNT 25 STORE M.MCOUNT +1 TO MCOUNT ENDDO RELEA
SE MCOUNT RETURN ENDIF SKIP ENDDO end of file E
NDIF printer or screen SET CONS ON ORE M.C+1 TO C ENDDO 20,5 21
,5 IF M.MSG 18,0 19,0 ELSE 18,35 SAY ERR1+' '
19,35 SAY ERR2+' ' 21,5 SAY 'Illegal character in the Fil
e Name - press any key to retry' STORE ' ' TO TEMP 21,1 GET M.TEMP
READ CLEAR GETS 17,0 18,0 19,0 20,0 21,
0 LOOP ENDIF IF FILE('&MTEST..FRM') STORE ' ' TO TEMP 21,5
SAY 'File already exists - Press any key to retry ' SELE PRIM USE &MF
ILE ERASE 1,1 SAY 'WELCOME REPORT PRINTING
' + ' dBASE II' 2,1 SAY UNDERLN 22,1 SAY M.UNDERLN
11,27 SAY 'RETURNING TO MAIN MENU' 20,1 STORE 1 TO C DO WHILE C 2
5 STORE C+1 TO C ENDDO RELEASE ALL EXCEPT MFILE RETURN ENDIF Pri
nt currently set-up report * CREATE NEW REPORT FORM ERASE 1,1 SAY 'WELCOM
E REPORT CREATION ' + ' dBASE
21,1 GET M.TEMP READ CLEAR GETS 17,0 18,0 19,0
20,0 21,1 loop ENDIF STORE T TO VALID ENDDO enter file name
11,0 17,0 23,0 SAY '. REPORT FORM &CFILE' 19,5 SAY 'Below the line you
will now see the complete command' 20,5 SAY 'as you would type it yourself.'
STORE ' ' TO TEMP 21,5 SAY 'Press any key to continue ' 21,1 GET M.TEMP R
EAD CLEAR GETS 19,0 20,0 21,0 11,20 SAY 'Please Wait ... now lo
ading the ne II' 2,1 SAY M.UNDERLN 22,1 SAY M.UNDERLN 11,20 SAY 'Please Wa
it ... now loading the next Welcome file' 20,1 23,0 SAY '. REPORT FORM' SEL
E SECO USE SELECT PRIMARY USE &MFILE COPY TO TEMPSTRU STRU EXTENDED SELECT
SECONDARY USE TEMPSTRU 10,1 SAY M.BLANK GO BOTTOM STORE # TO FILCNT GO TOP
11,0 STORE ' ' TO CFILE store f to valid DO WHILE .NOT. M.VALID
17,47 SAY 'Blank to finish' 17,5 SAY 'Please enter Report file name. ' GET
M.CFILE PICT '!!!!!!!!' READ PAFBGCHDIExt Welcome file' 20,1 STORE MT
EST TO MFILE2 STORE MFILE2 TO MTEST RELEASE MFILE2 * REPORT GENERATOR - FRON
I2.END DO FRONI2.END ERASE 1,1 SAY 'WELCOME REPORT CREAT
ION ' + ' dBASE II' 2,1 SAY M.UNDERLN 22,1 SAY
M.UNDERLN SELE SECO USE SELE PRIM USE &MFILE IF WIPEOUT 19,5 SAY 'If r
eport form &mtest..FRM is not to your liking' 20,5 SAY 'it is possible to d
elete it from dBase II and re-create !' store " " to temp 21,5unt,60 SAY
',L' count,63 SAY lpp STORE 0 TO size 21,0 21,5 SAY 'Page Width'
DO WHILE size 0 .OR. width 132 21,0 GET width PICT '999' READ
GO TOP COUNT FOR fieldlen width TO size IF size 0 21,5 S
AY 'Page width not wide enough to fit database. Please Re-enter' ENDIF size
0 IF width 132 21,5 SAY 'Page width must not exceed 132. Please
Re-enter ' ENDIF width 132 CLEAR GETS ENDDO WHILE size
0 say "Press any key to continue..." 21,1 say get temp read clear
gets ENDIF 19,0 20,0 21,0 11,27 SAY 'RETURNING TO MAIN MENU' 20,1 I
F FILE ( 'TEMPSTRU.DBF' ) DELE FILE TEMPSTRU.DBF ENDIF IF FILE ( 'FRONIF.DB
W' ) DELETE FILE FRONIF.DBW ENDIF RELEASE ALL EXCEPT MFILE RETURN NK
11,27 SAY 'RETURNING TO MAIN MENU' 20,1 STORE 1 TO C DO WHILE C 25
STORE C+1 TO C ENDDO RELEASE SELECT PRIMARY count,65 SAY ',W'
count,68 SAY width GOTO TOP APPEND BLANK REPLACE line WITH 'M'+STR(marg
,2)+',L'+STR(lpp,2)+',W'+STR(width,3) STORE count+1 TO count 21,0 co
unt,0 SAY 'Page heading (y/n)' STORE ' ' TO inkey DO WHILE .NOT. inkey$'YN
' 21,0 GET inkey PICT '!' 21,5 SAY 'Do you want a page heading (Y/N)
' READ CLEAR GETS ENDDO WHILE .NOT. inkey$'YN' count,20 SAY i
nkey APPEND BLANK REPLACE line WITH inkey STORE * REPORT FORM GENERATOR
- WDA 23/07/1984 * PROGRAM FILE FRONI2.END (CALLED FROM FRONI.END) 11,0 SE
LECT PRIMARY CREATE FRONIF.DBW FROM FRONIX.DBW USE FRONIF.DBW SELECT SECONDAR
Y USE TEMPSTRU STORE 0 TO nums COUNT FOR fieldtype 'N' TO nums GO TOP COUN
T FOR fieldlen 133 TO fit IF fit 0 STORE ' ' TO inkey 21,0 GET inkey P
ICT '!' 21,5 SAY 'Database not suitable. Press any key to continue.' READ
SELECT SECONDARY USE SELECT PRIMARY USE DELETE FILE FRONIF.DBW
count+1 TO count IF inkey 'Y' 21,0 STORE '
' TO header STORE header+header TO header count,0 SAY 'Enter
page heading' 21,0 SAY 'Heading' GET header READ count,19 SAY h
eader APPEND BLANK REPLACE line WITH header STORE count+1 TO coun
t ENDIF inkey 'Y' 21,0 count,0 SAY 'Double space report (y/n)' S
TORE ' ' TO inkey DO WHILE .NOT. inkey$'YN' 21,0 GET inkey PICT '!'
21,5 SAY 'Do you STORE F TO wipeout RETURN ENDIF fit 0 GO BOTTOM STOR
E # TO nofields GO TOP 3,0 SAY ' No. Name Type Length Dec.' IF nofi
elds 1 3,40 SAY ' No. Name Type Length Dec.' ENDIF SELECT SECOND
ARY STORE 3 TO ln DO WHILE .NOT. EOF IF (#/2.0) INT(#/2) STORE 40 TO
clm ELSE STORE 0 TO clm STORE ln+1 TO ln ENDIF ln,clm SAY
# ln,clm+7 SAY fieldname ln,clm+20 SAY fieldtype ln,clm+27 SAY field
len IF fielddec 0 ln,c want double spacing (Y/N) ' READ CLE
AR GETS ENDDO WHILE .NOT. inkey$'YN' count,25 SAY inkey APPEND BLANK
REPLACE line WITH inkey STORE count+1 TO count count,0 SAY 'Are totals
required (y/n)' STORE ' ' TO inkey DO WHILE .NOT. inkey$'YN' 21,0
21,0 GET inkey PICT '!' 21,5 SAY 'Do you want totals (Y/N) ' R
EAD IF nums 0 .AND. inkey 'Y' 21,0 STORE ' ' TO inkey
21,0 GET inkey PICT '!' 21,5 SAY 'No nulm+32 SAY fielddec ENDIF f
ielddec 0 SKIP ENDDO WHILE .NOT. EOF STORE F TO ok DO WHILE .NOT. ok S
ELECT SECONDARY STORE INT((nofields+1)/2)+4 TO count count,0 SAY 'Enter
Option, mleft margin, llines/page, wpage width' 21,0 STORE 0 TO marg
STORE 66 TO lpp STORE 80 TO width 21,0 GET marg PICT '99' 21,5 SAY 'L
eft Margin' READ count,55 SAY ' M' count,58 SAY marg 21,0 21
,0 GET lpp PICT '99' 21,5 SAY 'Lines Per Page' READ co RAFBGCHDIEmer
ic fields in database. Press any key to continue' READ CLEAR GETS
ENDIF nums 0 .AND. inkey 'Y' ENDDO .NOT. inkey$'YN' IF inkey 'Y'
STORE T TO totals ELSE STORE F TO totals ENDIF inkey 'Y' co
unt,26 SAY inkey APPEND BLANK REPLACE line WITH inkey STORE count+1 TO
count IF inkey 'Y' 21,0 count,0 SAY 'Subtotals in report (y/n)'
STORE ' ' TO inkey DO WHILE .NOT. inkey$'YN' 21,0 GET inkey
PICT '!' 2F inkey 'Y' 21,0 21,5 SAY 'Are you happy with these
options (Y/N) ' STORE ' ' TO inkey DO WHILE .NOT. inkey$'YN' 21,0 GE
T inkey PICT '!' READ CLEAR GETS ENDDO WHILE .NOT. inkey$'YN' IF
inkey 'N' USE CREATE FRONIF.DBW FROM FRONIX.DBW USE FRONIF.DBW
ELSE STORE T TO ok 21,0 ENDIF inkey 'N' STORE INT((nofiel
ds+1)/2)+4 TO count DO WHILE count 22 count,0 STORE count+1 TO co
unt ENDDO WHILE count 22 CLEAR GE1,5 SAY 'Do you want Subtotals (Y/N) '
READ CLEAR GETS ENDDO WHILE .NOT. inkey$'YN' count,26 SAY
inkey APPEND BLANK REPLACE line WITH inkey STORE count+1 TO coun
t CLEAR GETS IF inkey 'Y' 21,0 count,0 SAY 'Enter su
btotals field ' STORE 0 TO field SELECT SECONDARY DO WHILE
field 1 .OR. field nofields 21,0 GET field PICT '99' 21,5
SAY 'Enter Subtotals Field No. ' READ IF TS ENDDO WHILE .NOT.
ok STORE ((nofields+1)/2)+4 to count count,0 SAY 'Col Width, Contents' S
TORE count+1 TO count STORE width TO avail STORE '
' TO space STORE F TO complete STORE 1 TO col
DO WHILE .NOT. complete IF count 18 STORE INT((nofields+1)/2)+5 TO cou
nt DO WHILE count 22 count,0 STORE count+1 TO count EN
DDO WHILE count 22 STORE INT((nofields+1)/2)+5 TO count count,0 SAY
cofield 0 .AND. field nofields GOTO field IF fieldtype
'N' STORE 0 TO field ENDIF ENDIF CLEA
R GETS ENDDO WHILE field 1 .OR. field nofields count,23 SAY fie
ldname STORE fieldname TO name SELECT PRIMARY APPEND BLANK
REPLACE line WITH name STORE count+1 TO count 21,0
count,0 SAY 'Summary report only (y/n)' STORE ' ' TO inkey DO WH
ILE .NOT. inkey$'Ylm count,7 SAY spec count+1,0 SAY 'Enter heading'+
head STORE count+2 TO count SELECT SECONDARY IF fieldtype 'N' .A
ND. totals count,0 SAY 'Are totals required (y/n)'+inkey STORE co
unt+1 TO count ENDIF SELECT PRIMARY ENDI count 18 IF col 10
STORE '00'+STR(col,1) TO colm ELSE STORE '0'+STR(col,2) TO colm E
NDIF col 10 count,0 SAY colm STORE 0 TO fw STORE F TO disphelp STO
RE T TO repeat DO WHILE repeat N' 21,0 GET inkey PICT '!'
21,5 SAY 'Summary Report Only (Y/N) ' READ CLEAR GETS
ENDDO WHILE .NOT. inkey$'YN' count,26 SAY inkey APPEND BLANK
REPLACE line WITH inkey STORE count+1 TO count 21,0
count,0 SAY 'Eject page after subtotals (y/n)' STORE ' ' TO inkey
DO WHILE .NOT. inkey$'YN' 21,0 GET inkey PICT '!' 21,5 SA
Y 'Eject page after subtotals (Y/N) ' READ 21,0 21,0 G
ET fw PICT '999' 21,5 SAY 'Enter width of column' IF col 1 2
1,28 SAY 'or press RETURN to finish form entry' ENDIF count,26 SAY '-
Cols. available '+STR(avail,3) IF disphelp count,50 SAY ', Recomm
ended Width '+STR(fw,3) STORE F TO disphelp ENDIF disphelp REA
D count,26 IF fw avail 21,0 21,5 SAY 'Form Overflow.
Press any key to continue' STORE ' ' TO inkey 21,0 GET i CLEAR
GETS ENDDO WHILE .NOT. inkey$'YN' count,33 SAY inkey APPE
ND BLANK REPLACE line WITH inkey STORE count+1 TO count 21
,0 count,0 SAY 'Enter subtotals heading' STORE '
' TO header STORE header+header TO header 21,0 SAY 'Subto
tals heading' GET header READ count,24 SAY header APPEND B
LANK REPLACE line WITH header STORE count+1 TO count ENDIF in
key 'Y' ENDI RAFBGCHDIEnkey PICT '!' READ LOOP ENDIF fw
avail IF fw 0 21,0 IF col 1 21,5 SAY 'Not enou
gh report data entered. Press any key to continue.' STORE ' ' TO inkey
21,0 GET inkey PICT '!' READ 21,0 LOOP
ENDIF col 1 21,5 SAY 'Have you completed entry of report form &mtes
t ' STORE ' ' TO inkey DO WHILE .NOT. inkey$'YN' 21,0 GE
T inkey PICT '!' READ CLEAR GETount 22 STORE F TO end DO WH
ILE .NOT. end STORE ' ' TO inkey 21,0 21,5 SAY 'Do you want to save t
his form ' DO WHILE .NOT. inkey$'YN' 21,0 GET inkey PICT '!' READ
CLEAR GETS ENDDO WHILE .NOT. inkey$'YN' 21,0 STORE inkey 'Y' TO
wipeout IF inkey 'N' 21,5 SAY 'Are you sure (Y/N) ' STORE ' ' TO
inkey DO WHILE .NOT. inkey$'YN' 21,0 GET inkey PICT '!' READ
CLEAR GETS ENDDO WHILE .NOT. inkey$'YN' IF inkey 'S EN
DDO WHILE .NOT. inkey$'YN' IF inkey 'Y' STORE T TO complete
STORE F TO repeat ENDIF inkey 'Y' LOOP ENDIF fw 0
STORE STR(fw,3) TO spec 21,0 count,7 SAY spec STORE 0 TO fn
SELECT SECONDARY 21,5 SAY 'Enter Field Number' DO WHILE fn 1 .
OR. fn nofields 21,0 GET fn PICT '99' READ CLEAR GETS
ENDDO fn 1 .OR. fn nofields GOTO fn IF fw fieldlen 21,0
Y' STORE T TO end ENDIF LOOP ENDIF inkey 'N' 11,27
SAY 'Writing Report Form &mtest..FRM ' 20,1 COPY TO &mtest..FRM SDF S
TORE T TO end ENDDO .NOT. end SELECT SECONDARY USE SELECT PRIMARY USE DELE
TE FILE FRONIF.DBW RETURN M.BLANK2 11,27 SAY 'RETURNING TO MAIN MENU'
20,1 RELEASE ALL EXCEPT MFILE RETURN ENDIF 23,0 SAY '. REPORT F STORE
fieldlen TO fw 21,5 SAY 'Field too long. Press any key to continue'
STORE T TO disphelp STORE ' ' TO inkey 21,0 GET inkey PICT '!
' READ LOOP ELSE STORE spec+','+fieldname TO spec
count,7 SAY spec ENDIF fw fieldlen STORE F TO repeat ENDDO WH
ILE repeat IF complete LOOP ENDIF complete STORE count+1 TO count
SELECT PRIMARY APPEND BLANK REPLACE line WITH spec count,0 SAY 'Ent
er heading' 21,0 21,0 SAY 'Heading' IF fw 60 STORE $(space,1,f
w) TO head ELSE STORE space TO head ENDIF fw 60 21,8 GET head
READ count,14 SAY head STORE count+1 TO count APPEND BLANK REPLAC
E line WITH head SELECT SECONDARY IF fieldtype 'N' .AND. totals cou
nt,0 SAY 'Are totals required (y/n)' 21,0 STORE ' ' TO inkey DO
WHILE .NOT. inkey$'YN' 21,0 GET inkey PICT '!' 21,5 SAY 'Do you
want totals (Y/N) ' REAPQFIELDNAMEC FIELDTYPECFIELDLENNFIELDDECN D
CLEAR GETS ENDDO .NOT. inkey$'YN' count,26 SAY inkey STORE co
unt+1 TO count SELECT PRIMARY APPEND BLANK REPLACE line WITH inke
y ELSE SELECT PRIMARY ENDIF fieldtype 'N' .AND. totals STORE col
+1 TO col STORE avail-fw TO avail IF col nofields STORE T TO comple
te ENDIF col nofields ENDDO WHILE .NOT. complete SELECT SECONDARY USE SE
LECT PRIMARY STORE 3 TO count DO WHILE count 22 count,0 STORE count+1
TO count ENDDO c RAFBGCHDIE LINE C070000F2 C010000 F3 N0060
02 F4 L001000$/"/&0/H£/$/"/& 0N" tt336/&///$/"/F /H£/$/"/&0/H£/$/"/& 0N"
uu336/&///$/"/F / //&t33CF8&6v( PFVP)vV&D0vV&D0/S$SP6 /6/&t&t // //$/"//vV&D0P6
/6/&t&t!//m1 y COFFERIDGE HALL LIBRARY n n 7,room ROOM 7,shelf SHELF 20
,author AUTHOR 25,title TITLE 13,subject SUBJECT STORE fieldname T
O name SELECT PRIMARY APPEND BLANK REPLACE line WITH name
STORE count+1 TO count 21,0 count,0 SAY 'Summary report o
nly (y/n)' STORE ' ' TO inkey DO WHILE .NOT. inkey$'YSET TALK OFF
STORE ' ' TO MFILE DO WHILE T SET COLO OFF ERASE TEXT WELCO
ME MAIN MENU dBASE II -----
--------------------------------------------------------------------------
File Handling Data Handling -----
-------- ------------- A. Create a File. D
. Add Data. B. Open/Close a File. E. Edit Data.
C. Delete a File. F. Delete Data.
File Interrogation ------------------
G. List/Display Records. H. Locate Information.
I. Reporting. Q. Quit To Op/system
X. Exit to dBASE II ---------------------------------------------------
---------------------------- ENDTEXT STORE ' ' TO RESP STORE Y TO M
FIRST DO WHILE .NOT. M.RESP$'ABCDEFGHIQX' !($(room,1,4)+shelf+$(author,1
,5))) NOVEL JOYCE NOVEL MAUGHAM,SONOVEL TOLSTOY NOVEL TOL
STOY PHILOSOPHYKANT POETRY BYRON POETRY DANTE POETRY KE
ATS POETRY WORDSWORTHSCIENCE FIHERBERT,FRSCIENCE FIHERBERT,FRSOCIAL HISCL
ARKE,MRS 21,0 21,5 SAY ' Option ' 21,0 GET M.RESP PICT '!' IF
.NOT. M.MFIRST 21,20 SAY '- Selection Invalid' ELSE STORE N
TO MFIRST ENDIF READ 21,20 ENDDO RELEASE MFIRST CLEAR
GETS IF M.RESP$'QX' RETURN ENDIF exit to welcome.prg IF .NOT. F
ILE ( 'FRON&RESP..END' ) STORE ' ' TO TEMP 20,5 SAY 'ERROR ... Progra
m "FRON&RESP..END" not found.' 21,5 SAY 'Please press any key to continue.
' 21,0 GET M.TEMP KITCA01BYRONKITCA02JOYCELIBRA02HERBELIBRA02HERBELIBR
A02IBSENLIBRA02JOYCELIBRA02MAUGHLIBRA02SHAKELIBRA02SHAKELIBRA02SHAKELIBRA03SHAKE
LIBRA22GREY,LIBRC03CLARKLIBRD23WILLISTUDA01 STUDA01DANTESTUDA01KANT STUDA0
1TOLSTSTUDA01WORDSSTUDA02DE PASTUDA21CONRASTUDA21KEATSSTUDA23DICKESTUDA23DICKEST
UDA56DR PASTUDB34MRS NSTUDC22SHAKESTUDD32TOLSTSTUDE34THATC WORDSWORTHSOCIAL H
ISCLARKE,MRSWES READ CLEAR GETS 20,0 21,0 ENDI tes tha pr
ogra i o dis DO FRON&RESP..END ENDDO cont loop 21,5 SAY 'Page width not
wide enough to fit database. Please Re-enter' ENDIF size 0 IF width
132 21,5 SAY 'Page width must not exceed 132. Please Re-enter
' ENDIF width 132 CLEAR GETS ENDDO WHILE size 0 R A F B G C
H D I E!($(subject,1,10))+!($(author,1,10))NOVEL JOYCE NOVEL MAUGHA
M,SONOVEL TOLSTOY NOVEL TOLSTOY PHILOSOPHYKANT POETRY BYRON
POETRY DANTE POETRY KEATS POETRY WORDSWORTHSOCIAL HISCLAR
KE,MRSWESTERN GREY,ZANE NOVEL JOYCE ANNA KARENAS YOU LIKBLEAK HOUSCAKE
S AND CHILDE HARCOLLECTED CRITIQUE ODOLL'S HOUDOMBEY ANDDUNE DUNE MESSIFINN
IGAN'SGONE WITH HENRY V INFERNO KING LEAR LORD JIM MICHAEL PORTRAIT ORID
ERS OF RIVAL PRINROMEO AND TEMPEST THE LIFE ATHE LOSS O WAR AND PEWORKING WIWO
RLD ATLAWHAT ECONOWORKING WIWORLD ATLAems "
WorARCHERY WILLIAM TECOMPUTER DE PACE DISASTERS T
HATCHER &DRAMA IBSEN DRAMA SHAKESPEARDRAMA SHAKESPEARDRAMA S
HAKESPEARDRAMA SHAKESPEARDRAMA SHAKESPEARENTERTAINMMRS N E TRGEOGRAPHY
LEISURE DR PAYNE NOVEL CONRAD NOVEL DICKENS NOVEL D
ICKENS NOVEL JOYCE POETRY BYRON POETRY DANTE POETRY
KEATS POETRY WORDSWORTHSOCIAL HISCLARKE,MRSWESCritique of Pure Reason
Doll's House
Dombey and Son
Dune
Finnigan's Wake
Henry V
Inf NOVEL JOYCE NO
VEL MAUGHAM,SONOVEL TOLSTOY NOVEL TOLSTOY PHILOSOPHYKANT P
OETRY BYRON POETRY DANTE POETRY KEATS POETRY WORDSWORTH
SCIENCE FIHERBERT,FRSCIENCE FIHERBERT,FRSOCIAL HISCLARKE,MRSWESTERN GREY,ZANE
NOVEL TOLSTOY NOVEL TOLSTOY PHILOSOPHYKANT POETRY BYRON
POETRY DANTE POETRY KEATS POETRY WORDSWORTHSOCIAL HISCLARKE,M
RSWESCollected Poems "
Dune
Inferno
Riders of the Purple Sage
THE LOSS OF A SON
War and Peace
WorNOVEL JOYCE SOCIAL HISCLARKE,MRSNOVEL TOLSTOY NOVEL
TOLSTOY PHILOSOPHYKANT POETRY BYRON POETRY DANTE POETRY
KEATS POETRY WORDSWORTHSOCIAL HISCLARKE,MRSWESTERN GREY,ZANE NOVEL
JOYCE NOVEL MAUGHAM,SONOVEL TOLSTOY NOVEL TOLSTOY PHILOSO
PHYKANT POETRY BYRON POETRY DANTE POETRY KEATS POETRY
WORDSWORTHSOCIAL HISCLARKE,MRSWESRival Princes,The
Romeo and Juliet
THE ART OF SELF ABUSE
THE LOSS OF A SON
Tempest
WHAT ECONOMIC CRISIS !
War$!($(title,1,10))e unli
mited *EXIT *ERRORS BAD DECIMAL WIDTH FIELD -- Re-enter decimal part of field
defin- ANNA KARENAS YOU LIKBLEAK HOUSCAKES AND CHILDE HARCOLLECTED CRITIQUE ODO
LL'S HOUDOMBEY ANDDUNE DUNE MESSIFINNIGAN'SGONE WITH HENRY V INFERNO K
ING LEAR LORD JIM MICHAEL PORTRAIT ORIDERS OF RIVAL P !R!A!F!B!G!C!H!D!I!EKi
ng Lear Lo
rd Jim Mi
chael Po
rtrait of the Young Man as an Artist Ri
ders of the Purple Sage Mi
chael Ri
d*This is INTRO.CMD * The screen introduces dBASE II and provides options * to
choose an application or exit. SET TALK OFF SET BELL OFF DO WHILE T ERASE
SET INTENSITY ON STORE " " TO option * This section draws frame 1, 0
SAY "
" STORE 1 TO line DO WHILE line28 STORE
line+1 TO line line,0 SAY " " line,88 SAY " " ENDD
O WHILE line28 28,0 SDune Messiah
Finnigan's Wake
Henry V
Inferno
Finnigan's Wake
Henry V
InfAY "
" * This section for DBII Log
o * b stands for brick STORE " " TO b 4,22 SAY b+b 4,34 SAY b
+b 4,58 SAY b+b 4,70 SAY b+b STORE 3 TO line DO WHILE li
ne15 STORE line+1 TO line line,24 SAY b line,36 SAY
b line,60 SAY b line,72 SAY b ENDDO WHILE line15
15,15 SAY " " 15,34 SAY " Working with dBase II
World Atlas
the trials tribulations of a s
ex maniacswife War and Peace
Working with dBase II
World Atlas
the " 15,58 SAY b
+b 15,70 SAY b+b 14,13 SAY b 13,12 SAY b 12,11 SAY b 11,12 S
AY b 10,13 SAY b 9,15 SAY b+b+b 4,40 SAY b+b 5,46 SAY b
6,47 SAY b 7,47 SAY b 8,46 SAY b 9,40 SAY b+b+" " 10,47 SAY b
11,48 SAY b 12,49 SAY b 13,48 SAY b 14,47 SAY b SET INTENS
ITY OFF * h stands for horizontal STORE CHR(138) TO h 14,79 SAY CHR(
134)+h+h+h+h+h+h+CHR(140) 15,79 SAY CHR(133)+"v 2.41"+CHR(1Tempest
WHAT ECONOMIC C
RISIS ! War and Peace
THE LOSS OF A
SON Tempest
WHAT ECONOMIC
CRISIS ! War33)
16,79 SAY CHR(131)+h+h+h+h+h+h+CHR(137) SET INTENSITY ON * This section to
go on or get out. 17,26 SAY " " 18,2
6 SAY " B. Enter BOOKS program. " 19,26 SAY " W. Do WELCOME
" 20,26 SAY " M. Do MENU " 21,26
SAY " H. Help! " 22,26 SAY " X. Exit to dBAS
E. " 23,26 SAY " Q. Quit dBASE. " 24,26
SAY " "R"A"F"B"G"C"H"D"I"E " 26,29 SAY
" Please enter your choice " GET option PICTURE "!" * Read option picture RE
AD 26,29 SAY " Please wait a moment ..... " SET INTENSITY OFF DO CASE
CASE option "X" CLEAR ERASE RETURN CASE opti
on "Q" ERASE QUIT CASE option "B" 26,10 SAY " Mak
e sure your BOOKS data is in the default drive and press a key. " WAIT
DO books CASE option "M" 26,10 SAY " M "E" Up one field
/scroll fm top (Modi) UP arrow 14 S "R" Save & up / scroll fm top (
Modi) ditto + SHIFT 06 N "D" Right one space RI
GHT arrow 06 S "B" Right one field (Browse) ditto + SHIFT
79 N "X" Down one field DOWN arrow 79 S
"C" Save & down / scroll down (Modi) ditto + SHIFT 15 N "S" Left
one space LEFT arrow 15 S "Z" Left one field ake
sure your MENU data is in the default drive and press a key. " WAIT
DO menu CASE option "W" 26,10 SAY " Ensure your WELCOME data
is in the default drive and press a key. " WAIT DO welcome
CASE option "H" ERASE help ENDCASE ENDDO "
21,26 SAY " H. Help! " 22,26 SAY " X. Exit
to dBASE. " 23,26 SAY " Q. Quit dBASE. "
24,26 SAY " (Browse) ditto + SHIFT 23 N S "V" Toggle
insert on/off + 76 N S "U" Toggle record del mark on/off
- 16 N "G" Delete chr at cursor DEL 16 S "
Y" Insert blanks to end of field DEL + SHIFT 10 N S "T" Delete cur
rent line CUT 03 N S "N" Insert new line at cursor
PASTE 11 N S "W" Save and return to dot COPY 75 N S
"Q" Ignore changes Re dBASE II v 2.41 - Utilities for use with the Am
strad PCW User-defined utilities for the starter disk are m
ade up as follows PROFILE.SUB (With SUBMIT.COM, is the master dBASE se
lf-starter file ). UKEYS.DB2 (With SETKEYS.COM, it makes good use of th
e PCW keyboard). UBOLD.PTR (With SETLST.COM, it combines speed with clar
ity of print). UDEFAULT.CMD (Lists COMMAND files on B and launches you tu
rn to dot CAN 02 N "'#81'" SET DEFAULT TO A
f1 02 S "'#82'" SET DEFAULT TO B f2 00 N S "'
#83'" HELP! (+ command optional) f3 f4 73 N "'#85'" DI
SPLAY MEMORY variables f5 73 S "'#86'" DISPLAY STRUCTURE of
file f6 77 N "'#87'" DISPLAY all files on default f7
77 S "'#88'" MODIFY COMMAND file f8 07 N "'#90'"
into dBASE). a. Files should be written as listed if you want them to c
ontain the same parameters as those copied to the STARTER from the WELCOM
E/EXAMPLES disk. b. Start by writing PROFILE.SUB, using RPED, ED or any ot
her text editor, like this File below this line dBASE p
rogram files will now be copied to Drive M for fast access. The printer
will be set for continuous 11" paper and bold print. DO introductory scr
een grid (2) E #81 "SET DEFA TO A M" E #82 "SET DEFA TO
B M" E #83 "HELP " E #85 "DISP MEMO M" E #86 "LIST STRU
M" E #87 "DISP FILE LIKE *.* M" E #88 "MODI COMM M" E #90
"DO INTRO M" File above this line -----------------------------------
----------------- d. UBOLD.PTR is just two lines File below this
line 'esc'E Keys will be set for dBASE (see 'HELP KEYS').
dBASE Command (.CMD) files on Drive B will be displayed. pip
mDB*.* mUDEFAULT.CMDo mbDBASEMSG.TXTo paper 11 s
etkeys UKEYS.DB2 setlst UBOLD.PTR m dbase udefault Fi
le above this line ---------------------------------------------------- c.
UKEYS.DB2 follows File below this line 14 N #R#A#F#B#G#C#H#D
#I#E 'esc'd File above this line -------------------------------------
--------------- e. UDEFAULT.CMD is a simple dBASE COMMAND FILE as follows
File below this line SET DEFAULT TO B SET INTENSITY OFF
ERASE TEXT Press any key to display
------------------------ dBASE Command f
iles on the data disc in Drive B 2 say " Q. Quit dBASE
" 20,22 say " "
24,25 say " Please enter your choice " GET option PICTURE "!" read
24,25 say " Please wait a moment ..... " set intensity off
do case CASE option "X" CLEAR ERASE
DO intr1 case option "Q" erase quit
case option "1" do books1 case option "2"
ENDTEXT WAIT DISPLAY FILES LIKE *.CMD SET INTENSITY ON
26,7 SAY "
" 27,7 SAY " You may choose to 'DO' any of the above Comm
and files " 28,7 SAY " or change to another DATA disc and p
ress f7 to display a dire ctory " 29,7 SAY " or you may call for HELP
, use any other dBASE command or QUIT. " 30 do books2
case option "3" do books3 case option "4"
do books4 case option "5" do books5 case op
tion "6" do books6 case option "7" do books7
case option "8" do books8 endcase enddo
"7" War and P
eace Wor,7 SAY
" "
SET INTENSITY OFF CLEAR RETURN File above this li
ne ---------------------------------------------------- N.B. These file
s have been found to give a quite a neat inplementation of dBASE on
the PCW. Please take a backup copy before you make your own impro
vements. plementation of dBASE on the PCW. Please take a backup c
opy before you make * This is INTR1.CMD * This screen is the normal dBASE II m
enu providing options * to choose an application or exit. SET TALK OFF SET BE
LL OFF DO WHILE T ERASE SET INTENSITY OFF STORE " " TO option * h stands
for horizontal STORE CHR(154) TO h * v stands for vertical STORE CHR(
149) TO v STORE "" TO s * This section to go on or get out. 10,28 SAY CHR(
150)+h+h+h+h+h+h+h+h+h+h+h+h+h+h+h+h+h+h +h+h+h+h+h+h+h+h+h+h+CHR(156) 11,2
8 SAY v+" B. Enter BOOKS program. "+v 12 set talk off se
t bell off do while T erase set intensity on store "
" to option 3,22 say " "
4,22 say " THE COFFERIDGE HALL LIBRARY " 5,22 say " "
7,22 say " " 8,22 say "
1. Add a Book " 9,22 say " 2. Change details alre
ady entered " 10,22 say " 3. Delete ,28 SAY v+" W. Do WELCOME
"+v 13,28 SAY v+" M. Do MENU "+v 14,28 SAY v+" H
. Help! "+v 15,28 SAY v+" X. Exit to dBASE. "+v
16,28 SAY v+" Q. Quit dBASE. "+v 17,28 SAY CHR(147)+h+h+h+h
+h+h+h+h+h+h+h+h+h+h+h+h+h+h +h+h+h+h+h+h+h+h+h+h+CHR(153) * A-T Logo 3,4
3 SAY s 4,42 SAY s+" "+s 5,41 SAY s+" "+s+s+s 6,40 SAY s+" "+s+s+
s+s+s 7,39 SAY s+" "+s+s+s+s+s+s+s 8,37 SAY "."+s+" "+s+an Entry
" 11,22 say " " 1
2,22 say " 4. Title Enquiry " 13,22 say " 5. List Bo
oks by Author " 14,22 say " 6. List Books by Subject
" 15,22 say " 7. List Books by Room or Shelf " 16,22 say
" 8. Print a List of Books " 17,22 say "
" 18,22 say " X. Exit to Main Menu "
19,2 $R$A$F$B$G$C$H$D$I$Es+s+s+s+s+s+s+s 19,28 SAY " Please enter you
r choice " GET option PICTURE "!" * Read option picture READ 19,29 SAY "
Please wait a moment ..... " SET INTENSITY OFF DO CASE CASE option
"X" CLEAR ERASE CANCEL CASE option "Q" ERASE
QUIT CASE option "B" 19,14 SAY " Make sure your BOOKS data i
s in Drive B and press a key. " WAIT DO books CASE option "M
" 19,14 SAY " Make sure your MENU data is in DMD 3K SCCH
1003.CMD 3K SCCH1004.CMD 5K SCCH2200.CMD
2K SCCH2300.CMD 3K SCCH2400.CMD 3K
SCCH2500.CMD 3K SCCH2600.CMD 3K
SCCH2700.CMD 5K SCCH2702.CMD 2K SCCH2703.CM
D 3K SCCH2704.CMD 5K SCCH2705.CMD 3K
SCDEXT1 .DBF 2K SCDEXT2 .DBF 1K S
CDPROFrive B and press a key. " WAIT DO menu CASE option "W"
19,08 SAY " Make sure your WELCOME data is in Drive B and press a key.
" WAIT DO welcome CASE option "H" ERASE help
ENDCASE ENDDO option "W" 26,10 SAY " Make sure your WELCOME data
is in Drive B and press a key. " WAIT DO welcome CASE option
"H" ERASE help ENDCASE ENDDO 20,26 SAY " M. Do MENU
" .DBF 2K SCDREP .DBF 3K
SCIPFINT.NDX 1K SCMEM .MEM 3K Side
3. The Welcome and Books Examples, Introductory Screens, TYPE-
ME, UTILS.TXT & DISCDIR.TXT. (165K). AUTHORS .NDX 2K
BOOK2 .FRM 1K BOOKS .CMD 2K BOO
KS .DBF 6K BOOKS .FRM 1K BOOKS1 .CMD
2K BOOKS2 .CMD 4K B CON
TENTS OF dBASE DISCS. If you wish to check that you have transferred the reco
mmended files from the MASTER DISCS to your STARTER and DISTRIBUTION Discs, you
should print sorted directories to compare with the following lists. MASTER
DISCS. Side 1. dBase Program, Zip, Dsort & User-defined Files (167K)
DBASE.COM 20K DBASEMSG.TXT 48K
DBASEOVR.COM 41K DGEN.OVL 7K DS
ORT.COM OOKS3 .CMD 3K BOOKS4 .CMD 2K BOOK
S5 .CMD 1K BOOKS6 .CMD 1K BOOKS7 .CMD
2K BOOKS8 .CMD 2K DISCDIR .TXT 8K
FRONA .DFL 1K FRONA .END 17K
FRONB .END 6K FRONC .END 6K FROND .EN
D 6K FRONE .END 7K FRONF .END 7K
FRONG .END 7K 12K PROFILE.SUB 1
K TYPE-ME 1K UBOLD.PTR 1K
UDEFAULT.CMD 1K UKEYS.DB2 2K ZIP
.COM 13K ZSCRN.OVL 20K Side 2. MENU.CMD &
Associated Files (170K) MENU .CMD 11K MENU
.HEX 1K MENUINIT.CMD 2K SCC00001.CMD
3K SCC10000.CMD 18K SCC10001.CMD 2 F
RONH .END 11K FRONI .END 13K FRONI2 .END
12K FRONIX .DBW 1K FRONT .END 2K
INTR1 .CMD 2K INTRO .CMD 3K RO
OMS .FRM 1K ROOMS .NDX 1K SUBJECT .NDX
2K TITLES .NDX 5K TYPE-ME 8K
UTILS .TXT 5K WELCOME .CMD 5K WORKING DISC
S dBASE STARTK SCC11000.CMD 3K SCC20
000.CMD 11K SCC20001.CMD 2K SCC20100.CMD
3K SCC22000.CMD 4K SCC23000.CMD 3K
SCC24000.CMD 4K SCC25000.CMD 7K S
CC26000.CMD 5K SCC27000.CMD 15K SCC27100.CMD
4K SCC27200.CMD 2K SCC90000.CMD 2K
SCCH0001.CMD 3K SCCH0002.C %R%A%F%B%G%C%H%D%I%EER
. The Self-starter to boot dBASE II. (145K). DBASE .COM
20K DBASEOVR.COM 41K DIR .COM 15K
J14CPM3 .EMS 40K PAPER .COM 2K PIP
.COM 9K PROFILE .SUB 1K SETKEYS .COM
2K SETLST .COM 2K SUBMIT .COM 6K
TYPE .COM 3K UBOLD .PTR 1K
UDEFAULT.CMD 1K CC27100.CMD 4K SCC27200.CMD 2K
SCC90000.CMD 2K SCCH0001.CMD 4K
SCCH0002.CMD 4K SCCH1001.CMD 4K SCCH
1002.CMD 6K SCCH1003.CMD 6K SCCH1004.CMD
6K SCCH2200.CMD 2K SCCH2300.CMD 4K
SCCH2400.CMD 4K SCCH2500.CMD 4K SCCH2
600.CMD 4K SCCH2700.CMD 6K UKEYS .DB2
2K dBASE DISTRIBUTION (PCW8256). (100K). DBASE
MSG.TXT 48K DGEN .OVL 7K DSORT .COM
12K ZIP .COM 13K ZSCRN .OVL 20K
dBASE DISTRIBUTION (PCW8512). (486K). AUTHORS .NDX
2K BOOK2 .FRM 1K BOOKS .CMD 2K
BOOKS .DBF 6K BOOKS .FRM 2K BOOKS1
.CMD 2K SCCH2702.CMD 2K SCCH2703.CMD 4K
SCCH2704.CMD 6K SCCH2705.CMD 4K SCDEXT
1 .DBF 2K SCDEXT2 .DBF 2K SCDPROF .DBF
2K SCDREP .DBF 4K SCIPFINT.NDX 2K
SCMEM .MEM 4K SUBJECT .NDX 2K TI
TLES .NDX 6K ** TYPE-ME ** 10K ** UTILS .TXT
** 6K WELCOME .CMD 6K BOOKS2 .CMD
4K BOOKS3 .CMD 4K BOOKS4 .CMD 2K
BOOKS5 .CMD 2K BOOKS6 .CMD 2K BOOKS7
.CMD 2K BOOKS8 .CMD 2K DBASEMSG.TXT 48
K DGEN .OVL 8K ** DISCDIR .TXT ** 8K
DSORT .COM 12K FRONA .DFL 2K FRO
NA .END 18K FRONB .END 6K FRONC .END
ZIP.COM 14K ZSCRN.OVL 20K N.B. 1. Delet
e unwanted files marked "** FNAME.EXT **". 2. File sizes are approxima
te. ZSCRN.OVL 20K N.B. 1. Delete unwanted files marked "** FNAME
.EXT **". E RETURN CASE option "Q" ERASE QUIT
CASE option "B" 26,10 SAY " Make sure your BOOKS data is in the de
fault drive and press a key. " WAIT DO books CASE option "
M" 26,10 SAY " M 6K FROND .END 6K
FRONE .END 8K FRONF .END 8K FRONG .E
ND 8K FRONH .END 12K FRONI .END 14K
FRONI2 .END 12K FRONIX .DBW 2K
FRONT .END 2K INTR1 .CMD 2K INTRO .CM
D 4K MENU .CMD 11K MENU .HEX 2K
MENUINIT.CMD 2K ROOMS .FRM 2K
ROOMS .NDX 2K SCC00001.CMD 4K SCC1000
0.CMD 18K SCC10001.CMD 2K SCC11000.CMD 4
K SCC20000.CMD 12K SCC20001.CMD 2K
SCC20100.CMD 4K SCC22000.CMD 4K SCC23000
.CMD 4K SCC24000.CMD 4K SCC25000.CMD 8K
SCC26000.CMD 6K SCC27000.CMD 16K
S &R&A&F&B&G&C&H&D&I&E* WELCOME - FRONT END dBASEII CLEAR SET TALK OF
F SET ECHO OFF SET ESCAPE OFF SET BELL OFF SET INTENSITY OFF ERASE TEXT
***********************************************
*********************************************** **
** ** W E L C O M E
** ** **
** T O ** **To move into the
world of micro database development all you need to do is press your car
riage return key. Wishing you all the best, ASHTON-TATE says to you -
*** W E L C O M E *** ENDTEXT SET CONSOLE OFF
ACCEPT TO WAITER SET CONSOLE ON DO FRONT.END ERASE TEXT ****
******************************************* ************************
*********************** **
** ** **
A S H T O N - T A T E ' S ** **
** ** d B A S E I I **
** ** ********
*************************************** ****************************
******************* ENDTEXT STORE 0 TO COUNT DO WHILE COUNT 50
STORE COUNT +1 TO COUNT ENDDO ERASE TEXT **
** ** WE HOPE YOU HAVE FOUND THE WELCOME **
** ** ** PROGRAM
USEFUL. IT HAS ONLY BRIEFLY ** **
** ** COVERED A SMALL SUBSET OF dBASE II. **
** ** **
** ** FOR MORE DETAILS TRY THE "
W E L C O M E
As a new user of dBASE II we realise at first sight you will find thing
s a little confusing. You may even be under the impression that dBASE
II is complex to use. You could NOT be further from the truth. WE
LCOME has been written to enable you to understand just how easy it is to
start using dBASE II even if you have no previous programming experience.
WELCOME wHELP" COMMAND ** **
** ** **
** ** **
G O O D B Y E ** **
** ** **
** ** **************
********************************* **ill take you step by step thr
ough some of the main commands available to you and build up your expertise
until you are able to use dBASE II with some confidence. WELCOME -
is written in dBASE II. ENDTEXT STORE ' ' TO WAITER 23,20 SAY 'Press you
r carriage return key now ' SET CONSOLE OFF ACCEPT TO WAITER SET CONSOLE ON
ERASE TEXT W E L C O M E
On the following screens you are offered various t**************
******************************* ENDTEXT STORE 1 TO COUNTER DO WHILE COUNT
ER 50 STORE COUNTER + 1 TO COUNTER ENDDO IF RESP$'Q' QUIT ELSE CLE
AR SET ESCAPE ON SET BELL ON SET COLON ON ENDIF RETURN **********
** ** **
W E L C O M E ** **
** ** T O **
**eaching aids. It is up to you to make your selection and b
uild on your own experience from WELCOME. You are recommended to
try out each aid in the order they appear on the screen until you become
more adept. At various stages you will see commands preceded by a dot,
for example . CREATE The dot is the dBASE
II prompt. Therefore when you come to entering dBASE II commands the d
ot should - NOT - be entered. 'R'A'F'B'G'C'H'D'I'E Kj Ji xI
e 0vLh +uIe ,vIb )yIg -sJe +xJe ,tJg -uIf +sKe +sKf -sJf *qJg ,qKf
-rJg *pJg ,rJh ,oJe ,oIe ,oKe +lJh +mJe +lIf (mJf /jKf *kLj .jKg
-kLf ,lJf £0kJe .jLh .kJe .fJd *fKh ,fKf ,gLh .dLi .wNn