Turbo Tutor (G) (1985) [Original] [UTILITAIRE].dsk
HexaDumpAscii only
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 35 30 37 30 38 00 ..SAMdisk150708.
000030: 2B 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: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0002A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0002B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0002C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0002D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0002E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0002F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0003A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0003B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0003C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0003D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0003E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0003F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
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 49 4E 4C 49 4E 45 20 20 50 41 53 00 00 00 08 .INLINE PAS....
002810: 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002820: 00 41 55 53 53 50 45 49 20 50 41 53 00 00 00 13 .AUSSPEI PAS....
002830: 03 04 05 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002840: 00 42 45 46 4C 45 53 20 20 50 41 53 00 00 00 06 .BEFLES PAS....
002850: 06 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002860: 00 4F 4B 49 39 32 20 20 20 4C 54 50 00 00 00 08 .OKI92 LTP....
002870: 07 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002880: 00 4F 4B 49 39 33 20 20 20 4C 54 50 00 00 00 08 .OKI93 LTP....
002890: 08 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0028A0: 00 50 41 53 53 20 20 20 20 41 53 4D 00 00 00 09 .PASS ASM....
0028B0: 09 0A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0028C0: 00 50 41 53 53 46 55 4E 43 50 41 53 00 00 00 04 .PASSFUNCPAS....
0028D0: 0B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0028E0: 00 50 55 46 46 45 52 20 20 50 41 53 00 00 00 07 .PUFFER PAS....
0028F0: 0C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002900: 00 51 44 4C 20 20 20 20 20 50 41 53 00 00 00 50 .QDL PAS...P
002910: 0D 0E 0F 10 11 12 13 14 15 16 00 00 00 00 00 00 ................
002920: 00 52 45 41 44 20 20 20 20 4D 45 20 00 00 00 19 .READ ME ....
002930: 17 18 19 1A 00 00 00 00 00 00 00 00 00 00 00 00 ................
002940: 00 53 43 41 4C 41 52 45 20 50 41 53 00 00 00 21 .SCALARE PAS...!
002950: 1B 1C 1D 1E 1F 00 00 00 00 00 00 00 00 00 00 00 ................
002960: 00 53 50 49 45 4C 31 20 20 50 41 53 00 00 00 2A .SPIEL1 PAS...*
002970: 20 21 22 23 24 25 00 00 00 00 00 00 00 00 00 00 !"#$%..........
002980: 00 54 42 4F 4D 41 55 53 20 50 41 53 00 00 00 0D .TBOMAUS PAS....
002990: 26 27 00 00 00 00 00 00 00 00 00 00 00 00 00 00 &'..............
0029A0: 00 56 45 52 53 49 4F 4E 20 50 41 53 00 00 00 04 .VERSION PAS....
0029B0: 28 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 (...............
0029C0: 00 5A 55 46 41 4C 4C 20 20 50 41 53 00 00 00 17 .ZUFALL PAS....
0029D0: 29 2A 2B 00 00 00 00 00 00 00 00 00 00 00 00 00 )*+.............
0029E0: 00 43 48 4E 47 44 49 52 20 50 41 53 00 00 00 0B .CHNGDIR PAS....
0029F0: 2C 2D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ,-..............
002A00: 20 20 20 7B 20 49 4E 43 20 20 20 20 20 44 49 20 { INC DI
002A10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7D 0D }.
002A20: 0A 20 20 20 20 20 24 32 36 2F 24 44 30 2F 24 31 . $26/$D0/$1
002A30: 44 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 D);
002A40: 20 7B 20 52 43 52 20 20 20 20 20 45 53 3A 42 59 { RCR ES:BY
002A50: 54 45 20 50 54 52 20 5B 44 49 5D 20 7D 0D 0A 65 TE PTR [DI] }..e
002A60: 6E 64 3B 20 7B 20 64 65 72 20 50 72 6F 7A 65 64 nd; { der Prozed
002A70: 75 72 20 56 49 6E 4C 69 6E 65 20 7D 0D 0A 0D 0A ur VInLine }....
002A80: 62 65 67 69 6E 20 7B 20 48 61 75 70 74 70 72 6F begin { Hauptpro
002A90: 67 72 61 6D 6D 20 76 6F 6E 20 49 6E 4C 69 6E 65 gramm von InLine
002AA0: 42 65 69 73 70 69 65 6C 20 7D 0D 0A 20 20 43 6C Beispiel }.. Cl
002AB0: 72 53 63 72 3B 0D 0A 20 20 72 65 70 65 61 74 0D rScr;.. repeat.
002AC0: 0A 20 20 20 20 57 72 69 74 65 28 27 42 69 74 74 . Write('Bitt
002AD0: 65 20 67 65 62 65 6E 20 53 69 65 20 65 69 6E 65 e geben Sie eine
002AE0: 20 5A 61 68 6C 20 65 69 6E 2C 20 3C 30 3E 20 66 Zahl ein, <0> f
002AF0: 7D 72 20 45 6E 64 65 20 3A 20 27 29 3B 0D 0A 20 }r Ende : ');..
002B00: 20 20 20 52 65 61 64 4C 6E 28 56 61 6C 75 65 29 ReadLn(Value)
002B10: 3B 0D 0A 20 20 20 20 56 49 6E 4C 69 6E 65 28 56 ;.. VInLine(V
002B20: 61 6C 75 65 29 3B 0D 0A 20 20 20 20 57 72 69 74 alue);.. Writ
002B30: 65 4C 6E 28 27 44 61 73 20 45 72 67 65 62 6E 69 eLn('Das Ergebni
002B40: 73 20 69 73 74 20 3A 20 20 20 20 20 20 20 20 20 s ist :
002B50: 20 20 20 27 2C 56 61 6C 75 65 29 3B 0D 0A 20 20 ',Value);..
002B60: 75 6E 74 69 6C 20 56 61 6C 75 65 20 3D 20 30 3B until Value = 0;
002B70: 0D 0A 20 20 43 6C 72 53 63 72 3B 0D 0A 65 6E 64 .. ClrScr;..end
002B80: 2E 20 7B 20 64 65 73 20 50 72 6F 67 72 61 6D 6D . { des Programm
002B90: 73 20 49 6E 4C 69 6E 65 42 65 69 73 70 69 65 6C s InLineBeispiel
002BA0: 20 7D 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A }..............
002BB0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
002BC0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
002BD0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
002BE0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
002BF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
002C00: 00 43 4F 4D 4C 49 42 20 20 50 41 53 00 00 00 34 .COMLIB PAS...4
002C10: 2E 2F 30 31 32 33 34 00 00 00 00 00 00 00 00 00 ./01234.........
002C20: 00 43 50 4D 44 49 52 20 20 50 41 53 00 00 00 09 .CPMDIR PAS....
002C30: 35 36 00 00 00 00 00 00 00 00 00 00 00 00 00 00 56..............
002C40: 00 43 50 4D 53 54 41 54 20 50 41 53 00 00 00 19 .CPMSTAT PAS....
002C50: 37 38 39 3A 00 00 00 00 00 00 00 00 00 00 00 00 789:............
002C60: 00 44 45 46 41 55 4C 54 20 4C 54 50 00 00 00 08 .DEFAULT LTP....
002C70: 3B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ;...............
002C80: 00 44 49 52 45 43 54 52 59 50 41 53 00 00 00 14 .DIRECTRYPAS....
002C90: 3C 3D 3E 00 00 00 00 00 00 00 00 00 00 00 00 00 <=>.............
002CA0: 00 44 49 53 4B 53 54 55 53 50 41 53 00 00 00 1A .DISKSTUSPAS....
002CB0: 3F 40 41 42 00 00 00 00 00 00 00 00 00 00 00 00 ?@AB............
002CC0: 00 45 50 53 4F 4E 31 30 30 4C 54 50 00 00 00 08 .EPSON100LTP....
002CD0: 43 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 C...............
002CE0: 00 45 50 53 4F 4E 38 30 20 4C 54 50 00 00 00 08 .EPSON80 LTP....
002CF0: 44 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 D...............
002D00: 00 46 49 4C 4C 43 48 41 52 50 41 53 00 00 00 09 .FILLCHARPAS....
002D10: 45 46 00 00 00 00 00 00 00 00 00 00 00 00 00 00 EF..............
002D20: 00 46 49 4C 54 45 52 20 20 50 41 53 00 00 00 0D .FILTER PAS....
002D30: 47 48 00 00 00 00 00 00 00 00 00 00 00 00 00 00 GH..............
002D40: 00 46 55 4E 4B 54 41 53 54 50 41 53 00 00 00 07 .FUNKTASTPAS....
002D50: 49 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 I...............
002D60: 00 49 42 4D 49 4E 54 31 30 50 41 53 00 00 00 12 .IBMINT10PAS....
002D70: 4A 4B 4C 00 00 00 00 00 00 00 00 00 00 00 00 00 JKL.............
002D80: 00 49 4F 46 45 48 4C 45 52 50 41 53 00 00 00 17 .IOFEHLERPAS....
002D90: 4D 4E 4F 00 00 00 00 00 00 00 00 00 00 00 00 00 MNO.............
002DA0: 00 4C 49 53 54 54 20 20 20 44 4F 43 00 00 00 36 .LISTT DOC...6
002DB0: 50 51 52 53 54 55 56 00 00 00 00 00 00 00 00 00 PQRSTUV.........
002DC0: 00 4C 49 53 54 54 20 20 20 50 41 53 00 00 00 02 .LISTT PAS....
002DD0: 57 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 W...............
002DE0: 00 4C 49 53 54 54 31 20 20 49 4E 43 00 00 00 2B .LISTT1 INC...+
002DF0: 58 59 5A 5B 5C 5D 00 00 00 00 00 00 00 00 00 00 XYZ[\]..........
002E00: 0D 0A 70 72 6F 67 72 61 6D 20 53 63 72 65 65 6E ..program Screen
002E10: 4D 61 70 3B 0D 0A 0D 0A 20 20 28 2A 20 20 50 72 Map;.... (* Pr
002E20: 6F 67 72 61 6D 6D 20 7A 75 6D 20 64 69 72 65 6B ogramm zum direk
002E30: 74 65 6E 20 73 63 68 72 65 69 62 65 6E 20 61 75 ten schreiben au
002E40: 66 20 64 65 6E 20 42 69 6C 64 73 63 68 69 72 6D f den Bildschirm
002E50: 73 70 65 69 63 68 65 72 20 20 2A 29 0D 0A 0D 0A speicher *)....
002E60: 63 6F 6E 73 74 0D 0A 20 20 46 61 72 62 53 65 67 const.. FarbSeg
002E70: 20 20 20 3D 20 24 42 30 30 30 3B 0D 0A 20 20 46 = $B000;.. F
002E80: 61 72 62 4F 66 73 20 20 20 3D 20 24 38 30 30 30 arbOfs = $8000
002E90: 3B 0D 0A 20 20 42 57 53 65 67 20 20 20 20 20 3D ;.. BWSeg =
002EA0: 20 24 42 30 30 30 3B 0D 0A 20 20 42 57 4F 66 73 $B000;.. BWOfs
002EB0: 20 20 20 20 20 3D 20 24 30 30 30 30 3B 0D 0A 0D = $0000;...
002EC0: 0A 76 61 72 0D 0A 20 20 49 2C 4A 20 20 20 20 20 .var.. I,J
002ED0: 20 20 20 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 20 : Integer;..
002EE0: 20 43 20 20 20 20 20 20 20 20 20 20 3A 20 43 68 C : Ch
002EF0: 61 72 3B 0D 0A 20 20 5A 65 69 6C 65 6E 4E 72 2C ar;.. ZeilenNr,
002F00: 0D 0A 20 20 53 70 61 6C 74 65 6E 4E 72 2C 0D 0A .. SpaltenNr,..
002F10: 20 20 4C 61 65 6E 67 65 2C 0D 0A 20 20 52 69 63 Laenge,.. Ric
002F20: 68 74 75 6E 67 20 20 20 3A 20 49 6E 74 65 67 65 htung : Intege
002F30: 72 3B 0D 0A 20 20 44 69 72 65 63 74 69 6F 6E 20 r;.. Direction
002F40: 20 3A 20 43 68 61 72 3B 0D 0A 0D 0A 70 72 6F 63 : Char;....proc
002F50: 65 64 75 72 65 20 58 28 4A 2C 4B 20 3A 20 49 6E edure X(J,K : In
002F60: 74 65 67 65 72 29 3B 0D 0A 62 65 67 69 6E 0D 0A teger);..begin..
002F70: 20 20 4D 65 6D 5B 42 77 53 65 67 3A 42 77 4F 66 Mem[BwSeg:BwOf
002F80: 73 20 2B 20 4A 5D 20 3A 3D 20 4B 20 20 20 20 28 s + J] := K (
002F90: 2A 20 73 63 68 72 65 69 62 65 6E 20 61 75 66 20 * schreiben auf
002FA0: 64 65 6E 20 42 69 6C 64 73 63 68 69 72 6D 73 70 den Bildschirmsp
002FB0: 65 69 63 68 65 72 20 2A 29 0D 0A 65 6E 64 3B 20 eicher *)..end;
002FC0: 28 2A 20 76 6F 6E 20 50 72 6F 7A 65 64 75 72 20 (* von Prozedur
002FD0: 58 20 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 X *)....procedur
002FE0: 65 20 59 28 52 2C 43 2C 4E 2C 43 68 2C 44 20 3A e Y(R,C,N,Ch,D :
002FF0: 20 49 6E 74 65 67 65 72 29 3B 20 20 20 28 2A 20 Integer); (*
003000: 00 4C 49 53 54 54 32 20 20 49 4E 43 00 00 00 36 .LISTT2 INC...6
003010: 5E 5F 60 61 62 63 64 00 00 00 00 00 00 00 00 00 ^_`abcd.........
003020: 00 4C 49 53 54 54 33 20 20 49 4E 43 00 00 00 35 .LISTT3 INC...5
003030: 65 66 67 68 69 6A 6B 00 00 00 00 00 00 00 00 00 efghijk.........
003040: 00 4C 49 53 54 54 34 20 20 49 4E 43 00 00 00 31 .LISTT4 INC...1
003050: 6C 6D 6E 6F 70 71 72 00 00 00 00 00 00 00 00 00 lmnopqr.........
003060: 00 4C 49 53 54 54 35 20 20 49 4E 43 00 00 00 39 .LISTT5 INC...9
003070: 73 74 75 76 77 78 79 7A 00 00 00 00 00 00 00 00 stuvwxyz........
003080: 00 4D 45 49 4E 4E 41 4D 45 50 41 53 00 00 00 03 .MEINNAMEPAS....
003090: 7B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 {...............
0030A0: 00 4F 4B 49 38 32 20 20 20 4C 54 50 00 00 00 08 .OKI82 LTP....
0030B0: 7C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |...............
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: 72 3D 5A 65 69 6C 65 20 43 3D 53 70 61 6C 74 65 r=Zeile C=Spalte
003210: 20 6E 3D 4C 61 65 6E 67 65 20 63 68 3D 63 68 61 n=Laenge ch=cha
003220: 72 20 2A 29 0D 0A 76 61 72 0D 0A 20 20 49 2C 4A r *)..var.. I,J
003230: 20 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 62 65 67 : Integer;..beg
003240: 69 6E 0D 0A 20 20 4A 20 3A 3D 28 28 52 2D 31 29 in.. J :=((R-1)
003250: 2A 31 36 30 29 20 2B 20 28 28 43 2D 31 29 2A 32 *160) + ((C-1)*2
003260: 29 3B 20 20 20 20 20 20 28 2A 20 42 65 72 65 63 ); (* Berec
003270: 68 6E 65 20 53 74 61 72 74 70 75 6E 6B 74 20 2A hne Startpunkt *
003280: 29 0D 0A 20 20 66 6F 72 20 49 20 3A 3D 20 31 20 ).. for I := 1
003290: 74 6F 20 4E 20 64 6F 20 62 65 67 69 6E 0D 0A 20 to N do begin..
0032A0: 20 20 20 58 28 4A 2C 43 68 29 3B 20 20 20 20 20 X(J,Ch);
0032B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0032C0: 20 20 20 28 2A 20 53 63 68 6C 65 69 66 65 20 4E (* Schleife N
0032D0: 20 6D 61 6C 20 2A 29 0D 0A 20 20 20 20 69 66 20 mal *).. if
0032E0: 44 3D 30 0D 0A 20 20 20 20 20 20 74 68 65 6E 20 D=0.. then
0032F0: 4A 20 3A 3D 20 4A 20 2B 20 31 36 30 0D 0A 20 20 J := J + 160..
003300: 20 20 20 20 65 6C 73 65 20 4A 3A 3D 20 4A 2B 32 else J:= J+2
003310: 3B 0D 0A 20 20 65 6E 64 0D 0A 65 6E 64 3B 20 28 ;.. end..end; (
003320: 2A 20 76 6F 6E 20 50 72 6F 7A 65 64 75 72 20 59 * von Prozedur Y
003330: 20 2A 29 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 20 *)....begin..
003340: 43 6C 72 53 63 72 3B 0D 0A 20 20 47 6F 74 6F 58 ClrScr;.. GotoX
003350: 59 28 32 30 2C 31 30 29 3B 0D 0A 20 20 57 72 69 Y(20,10);.. Wri
003360: 74 65 28 27 57 6F 6C 6C 65 6E 20 53 69 65 20 73 te('Wollen Sie s
003370: 70 69 65 6C 65 6E 20 3C 4A 2F 4E 3E 3F 20 27 29 pielen <J/N>? ')
003380: 3B 0D 0A 20 20 52 65 61 64 28 6B 62 64 2C 43 29 ;.. Read(kbd,C)
003390: 3B 0D 0A 20 20 69 66 20 28 43 20 3D 20 27 6A 27 ;.. if (C = 'j'
0033A0: 29 20 6F 72 20 28 43 20 3D 20 27 4A 27 29 20 74 ) or (C = 'J') t
0033B0: 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 72 hen begin.. r
0033C0: 65 70 65 61 74 0D 0A 20 20 20 20 20 20 43 6C 72 epeat.. Clr
0033D0: 53 63 72 3B 0D 0A 20 20 20 20 20 20 47 6F 74 6F Scr;.. Goto
0033E0: 58 59 28 32 30 2C 31 30 29 3B 0D 0A 20 20 20 20 XY(20,10);..
0033F0: 20 20 57 72 69 74 65 28 27 57 6F 6C 6C 65 6E 20 Write('Wollen
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: 53 69 65 20 65 69 6E 65 20 4C 69 6E 69 65 20 5A Sie eine Linie Z
003610: 65 69 63 68 6E 65 6E 20 3C 4A 2F 4E 3E 20 3F 20 eichnen <J/N> ?
003620: 27 29 3B 0D 0A 20 20 20 20 20 20 52 65 61 64 28 ');.. Read(
003630: 6B 62 64 2C 43 29 3B 0D 0A 20 20 20 20 75 6E 74 kbd,C);.. unt
003640: 69 6C 20 28 43 20 3D 20 27 6A 27 29 20 6F 72 20 il (C = 'j') or
003650: 28 43 20 3D 20 27 4A 27 29 20 6F 72 20 28 43 20 (C = 'J') or (C
003660: 3D 20 27 6E 27 29 20 6F 72 20 28 43 20 3D 20 27 = 'n') or (C = '
003670: 4E 27 29 3B 0D 0A 20 20 20 20 69 66 20 28 43 20 N');.. if (C
003680: 3D 20 27 6A 27 29 20 6F 72 20 28 43 20 3D 20 27 = 'j') or (C = '
003690: 4A 27 29 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A J') then begin..
0036A0: 20 20 20 20 20 20 72 65 70 65 61 74 0D 0A 20 20 repeat..
0036B0: 20 20 20 20 20 20 43 6C 72 53 63 72 3B 0D 0A 20 ClrScr;..
0036C0: 20 20 20 20 20 20 20 59 28 31 2C 31 2C 38 30 2C Y(1,1,80,
0036D0: 33 31 2C 31 29 3B 0D 0A 20 20 20 20 20 20 20 20 31,1);..
0036E0: 59 28 32 2C 31 2C 32 34 2C 31 36 2C 30 29 3B 0D Y(2,1,24,16,0);.
0036F0: 0A 20 20 20 20 20 20 20 20 59 28 32 2C 38 30 2C . Y(2,80,
003700: 32 34 2C 31 37 2C 30 29 3B 0D 0A 20 20 20 20 20 24,17,0);..
003710: 20 20 20 59 28 32 35 2C 32 2C 37 38 2C 33 30 2C Y(25,2,78,30,
003720: 31 29 3B 0D 0A 20 20 20 20 20 20 20 20 47 6F 74 1);.. Got
003730: 6F 58 59 28 32 30 2C 31 30 29 3B 0D 0A 20 20 20 oXY(20,10);..
003740: 20 20 20 20 20 57 72 69 74 65 28 27 20 20 20 20 Write('
003750: 20 20 20 20 20 20 57 65 6C 63 68 65 20 53 74 61 Welche Sta
003760: 72 74 7A 65 69 6C 65 20 3F 20 27 29 3B 0D 0A 20 rtzeile ? ');..
003770: 20 20 20 20 20 20 20 52 65 61 64 28 5A 65 69 6C Read(Zeil
003780: 65 6E 4E 72 29 3B 0D 0A 20 20 20 20 20 20 20 20 enNr);..
003790: 47 6F 74 6F 58 59 28 32 30 2C 31 32 29 3B 0D 0A GotoXY(20,12);..
0037A0: 20 20 20 20 20 20 20 20 57 72 69 74 65 28 27 20 Write('
0037B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 65 We
0037C0: 6C 63 68 65 20 53 70 61 6C 74 65 3F 20 27 29 3B lche Spalte? ');
0037D0: 0D 0A 20 20 20 20 20 20 20 20 52 65 61 64 28 53 .. Read(S
0037E0: 70 61 6C 74 65 6E 4E 72 29 3B 0D 0A 20 20 20 20 paltenNr);..
0037F0: 20 20 20 20 47 6F 74 6F 58 59 28 32 30 2C 31 34 GotoXY(20,14
003800: 0D 0A 70 72 6F 67 72 61 6D 20 49 6E 4C 69 6E 65 ..program InLine
003810: 42 65 69 73 70 69 65 6C 3B 0D 0A 7B 0D 0A 20 20 Beispiel;..{..
003820: 20 20 20 20 20 44 61 73 20 66 6F 6C 67 65 6E 64 Das folgend
003830: 65 20 42 65 69 73 70 69 65 6C 20 74 65 69 6C 74 e Beispiel teilt
003840: 20 67 65 72 61 64 65 20 49 6E 74 65 67 65 72 20 gerade Integer
003850: 64 75 72 63 68 20 7A 77 65 69 2E 0D 0A 20 20 20 durch zwei...
003860: 20 20 20 20 46 75 65 72 20 75 6E 67 65 72 61 64 Fuer ungerad
003870: 65 20 49 6E 74 65 67 65 72 20 75 65 62 65 72 67 e Integer ueberg
003880: 69 62 74 20 64 61 73 20 50 72 6F 67 72 61 6D 6D ibt das Programm
003890: 20 2D 33 32 37 36 38 20 2B 20 64 65 6E 20 57 65 -32768 + den We
0038A0: 72 74 0D 0A 20 20 20 20 20 20 20 67 65 74 65 69 rt.. getei
0038B0: 6C 74 20 64 75 72 63 68 20 7A 77 65 69 2E 20 28 lt durch zwei. (
0038C0: 69 6E 74 65 67 65 72 20 64 69 76 69 73 69 6F 6E integer division
0038D0: 29 0D 0A 7D 0D 0A 76 61 72 0D 0A 20 20 56 61 6C )..}..var.. Val
0038E0: 75 65 20 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 0D ue : Integer;...
0038F0: 0A 70 72 6F 63 65 64 75 72 65 20 56 49 6E 4C 69 .procedure VInLi
003900: 6E 65 28 76 61 72 20 56 61 6C 75 65 3A 49 6E 74 ne(var Value:Int
003910: 65 67 65 72 29 3B 0D 0A 62 65 67 69 6E 0D 0A 20 eger);..begin..
003920: 20 69 6E 6C 69 6E 65 0D 0A 20 20 20 20 28 24 43 inline.. ($C
003930: 34 2F 24 42 45 2F 56 41 4C 55 45 2F 20 20 20 20 4/$BE/VALUE/
003940: 20 20 20 20 20 20 20 20 20 7B 20 4C 45 53 20 20 { LES
003950: 20 20 20 44 49 2C 56 41 4C 55 45 5B 42 50 5D 20 DI,VALUE[BP]
003960: 20 20 20 20 7D 0D 0A 20 20 20 20 20 24 46 38 2F }.. $F8/
003970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003980: 20 20 20 20 20 20 20 7B 20 43 4C 43 20 20 20 20 { CLC
003990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0039A0: 20 20 7D 0D 0A 20 20 20 20 20 24 32 36 2F 24 44 }.. $26/$D
0039B0: 30 2F 24 31 44 2F 20 20 20 20 20 20 20 20 20 20 0/$1D/
0039C0: 20 20 20 20 20 7B 20 52 43 52 20 20 20 20 20 45 { RCR E
0039D0: 53 3A 42 59 54 45 20 50 54 52 20 5B 44 49 5D 20 S:BYTE PTR [DI]
0039E0: 7D 0D 0A 20 20 20 20 20 24 34 37 2F 20 20 20 20 }.. $47/
0039F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
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: 29 3B 0D 0A 20 20 20 20 20 20 20 20 57 72 69 74 );.. Writ
003B10: 65 28 27 20 20 20 20 20 20 20 20 20 20 20 20 20 e('
003B20: 20 20 4C 69 6E 69 65 6E 6C 61 65 6E 67 65 20 3F Linienlaenge ?
003B30: 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 52 65 ');.. Re
003B40: 61 64 28 4C 61 65 6E 67 65 29 3B 0D 0A 20 20 20 ad(Laenge);..
003B50: 20 20 20 20 20 47 6F 74 6F 58 59 28 32 30 2C 31 GotoXY(20,1
003B60: 36 29 3B 0D 0A 20 20 20 20 20 20 20 20 57 72 69 6);.. Wri
003B70: 74 65 28 27 57 65 6C 63 68 65 73 20 5A 65 69 63 te('Welches Zeic
003B80: 68 65 6E 20 7A 75 6D 20 5A 65 69 63 68 6E 65 6E hen zum Zeichnen
003B90: 20 3F 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 ? ');..
003BA0: 52 65 61 64 28 4B 62 64 2C 43 29 3B 20 57 72 69 Read(Kbd,C); Wri
003BB0: 74 65 28 43 29 3B 0D 0A 20 20 20 20 20 20 20 20 te(C);..
003BC0: 72 65 70 65 61 74 0D 0A 20 20 20 20 20 20 20 20 repeat..
003BD0: 20 20 47 6F 74 6F 58 59 28 31 30 2C 31 38 29 3B GotoXY(10,18);
003BE0: 20 57 72 69 74 65 28 27 20 57 65 6C 63 68 65 20 Write(' Welche
003BF0: 52 69 63 68 74 75 6E 67 20 61 29 62 77 61 65 72 Richtung a)bwaer
003C00: 74 73 20 6F 64 65 72 20 72 29 65 63 68 74 73 3F ts oder r)echts?
003C10: 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ');..
003C20: 52 65 61 64 28 44 69 72 65 63 74 69 6F 6E 29 3B Read(Direction);
003C30: 0D 0A 20 20 20 20 20 20 20 20 20 20 44 69 72 65 .. Dire
003C40: 63 74 69 6F 6E 20 3A 3D 20 55 70 63 61 73 65 28 ction := Upcase(
003C50: 44 69 72 65 63 74 69 6F 6E 29 0D 0A 20 20 20 20 Direction)..
003C60: 20 20 20 20 75 6E 74 69 6C 20 28 44 69 72 65 63 until (Direc
003C70: 74 69 6F 6E 3D 27 41 27 29 20 6F 72 20 28 44 69 tion='A') or (Di
003C80: 72 65 63 74 69 6F 6E 3D 27 52 27 29 3B 0D 0A 20 rection='R');..
003C90: 20 20 20 20 20 20 20 69 66 20 44 69 72 65 63 74 if Direct
003CA0: 69 6F 6E 3D 27 52 27 0D 0A 20 20 20 20 20 20 20 ion='R'..
003CB0: 20 20 20 74 68 65 6E 20 52 69 63 68 74 75 6E 67 then Richtung
003CC0: 3A 3D 31 0D 0A 20 20 20 20 20 20 20 20 20 20 65 :=1.. e
003CD0: 6C 73 65 20 52 69 63 68 74 75 6E 67 3A 3D 30 3B lse Richtung:=0;
003CE0: 0D 0A 20 20 20 20 20 20 20 20 43 6C 72 53 63 72 .. ClrScr
003CF0: 3B 0D 0A 20 20 20 20 20 20 20 20 59 28 5A 65 69 ;.. Y(Zei
003D00: 01 00 E8 03 20 01 50 30 DA CA E9 DA 23 FE 2A C2 .... .P0....#.*.
003D10: D9 DA 36 3F C3 DB DA 77 13 05 00 C8 DA CD 30 DA ..6?...w......0.
003D20: CA F0 DA 13 C3 DF DA 23 36 20 05 C2 E9 DA 06 01 .......#6 ......
003D30: 00 01 00 0A 25 46 20 70 61 67 65 20 25 23 00 23 ....%F page %#.#
003D40: 7E FE 3F C2 09 DB 04 0D C2 01 DB 78 B7 C9 44 49 ~.?........x..DI
003D50: 52 20 45 52 41 20 54 59 50 45 53 41 56 45 52 45 R ERA TYPESAVERE
003D60: 4E 20 55 53 45 52 A8 16 00 00 00 84 21 10 DB 0E N USER......!...
003D70: 00 79 FE 06 D0 11 CE DF 06 04 1A BE C2 4F DB 13 .y...........O..
003D80: 23 05 C2 3C DB 1A FE 20 C2 54 DB 79 C9 23 05 C2 #..<... .T.y.#..
003D90: 4F DB 0C C3 33 DB AF 32 07 D8 31 AB DF C5 79 1F O...3..2..1...y.
003DA0: 1F 1F 1F E6 0F 5F CD 15 D9 CD B8 D8 32 AB DF C1 ....._......2...
003DB0: 79 E6 0F 32 EF DF CD BD D8 3A 07 D8 B7 C2 98 DB y..2.....:......
003DC0: 31 AB DF CD 98 D8 CD D0 D9 C6 41 CD 8C D8 3E 3E 1.........A...>>
003DD0: CD 8C D8 CD 39 D9 11 80 00 CD D8 D9 CD D0 D9 32 ....9..........2
003DE0: EF DF CD 5E DA C4 09 DA 3A F0 DF B7 C2 A5 DE CD ...^....:.......
003DF0: 2E DB 21 C1 DB 5F 16 00 19 19 7E 23 16 4C 69 73 ..!.._....~#.Lis
003E00: 74 69 6E 67 20 6F 66 20 25 46 2C 20 70 61 67 65 ting of %F, page
003E10: 20 25 23 21 00 D8 E9 01 DF DB C3 A7 D8 52 45 41 %#!.........REA
003E20: 44 20 45 52 52 4F 52 00 01 F0 DB C3 A7 D8 4E 4F D ERROR.......NO
003E30: 20 46 49 4C 45 00 CD 5E DA 3A F0 DF B7 C2 09 DA FILE..^.:......
003E40: 21 CE DF 01 0B 00 7E FE 20 CA 33 DC 23 D6 30 FE !.....~. .3.#.0.
003E50: 0A D2 09 DA 57 78 E6 E0 C2 09 DA 78 07 07 07 80 ....Wx.....x....
003E60: DA 09 DA 80 DA 09 DA 82 DA 09 DA 47 0D C2 08 DC ...........G....
003E70: C9 7E FE 20 C2 09 DA 23 0D C2 33 DC 78 C9 06 03 .~. ...#..3.x...
003E80: 7E 12 23 13 05 C2 42 DC C9 21 80 00 81 CD 59 DA ~.#...B..!....Y.
003E90: 7E C9 AF 32 CD DF 3A F0 DF B7 C8 3D 21 EF DF BE ~..2..:....=!...
003EA0: C8 C3 BD D8 3A F0 DF B7 C8 3D 21 EF DF BE C8 3A ....:....=!....:
003EB0: EF DF C3 BD D8 CD 5E DA CD 54 DC 21 CE DF 7E FE ......^..T.!..~.
003EC0: 20 C2 8F DC 06 00 00 00 01 01 01 1E DC 1E 00 D5 ...............
003ED0: CD E9 D8 CC EA 01 1D 1B DD 3A EE DF 0F 0F 0F E6 .........:......
003EE0: 02 1B 44 30 CD 4B DC 17 DA 0F DD 02 1B 43 31 E6 ..D0.K.......C1.
003EF0: 03 F5 C2 CC DC CD 83 00 42 00 00 00 00 00 00 00 ........B.......
003F00: 6C 65 6E 4E 72 2C 53 70 61 6C 74 65 6E 4E 72 2C lenNr,SpaltenNr,
003F10: 4C 61 65 6E 67 65 2C 6F 72 64 28 43 29 2C 52 69 Laenge,ord(C),Ri
003F20: 63 68 74 75 6E 67 29 3B 0D 0A 20 20 20 20 20 20 chtung);..
003F30: 20 20 47 6F 74 6F 58 59 28 34 30 2C 32 34 29 3B GotoXY(40,24);
003F40: 0D 0A 20 20 20 20 20 20 20 20 57 72 69 74 65 28 .. Write(
003F50: 27 49 68 72 65 20 5A 65 69 6C 65 2E 20 20 4E 6F 'Ihre Zeile. No
003F60: 63 68 6D 61 6C 20 3F 27 29 3B 0D 0A 20 20 20 20 chmal ?');..
003F70: 20 20 20 20 72 65 70 65 61 74 20 75 6E 74 69 6C repeat until
003F80: 20 4B 65 79 70 72 65 73 73 65 64 3B 0D 0A 20 20 Keypressed;..
003F90: 20 20 20 20 20 20 52 65 61 64 28 4B 42 44 2C 43 Read(KBD,C
003FA0: 29 3B 0D 0A 20 20 20 20 20 20 20 75 6E 74 69 6C );.. until
003FB0: 20 28 43 20 3C 3E 20 27 4A 27 29 20 61 6E 64 20 (C <> 'J') and
003FC0: 28 43 20 3C 3E 20 27 6A 27 29 3B 0D 0A 20 20 20 (C <> 'j');..
003FD0: 20 20 20 20 43 6C 72 53 63 72 0D 0A 20 20 20 20 ClrScr..
003FE0: 65 6E 64 0D 0A 20 20 65 6E 64 0D 0A 20 20 65 6C end.. end.. el
003FF0: 73 65 20 62 65 67 69 6E 0D 0A 20 20 20 20 47 6F se begin.. Go
004000: 74 6F 58 59 28 32 33 2C 31 33 29 3B 0D 0A 20 20 toXY(23,13);..
004010: 20 20 57 72 69 74 65 4C 6E 28 27 2A 2A 2A 2A 2A WriteLn('*****
004020: 2A 2A 2A 20 41 75 66 20 57 69 65 64 65 72 73 65 *** Auf Wiederse
004030: 68 65 6E 20 2A 2A 2A 2A 2A 2A 2A 2A 27 29 0D 0A hen ********')..
004040: 20 20 65 6E 64 0D 0A 65 6E 64 2E 20 28 2A 20 64 end..end. (* d
004050: 65 73 20 50 72 6F 67 72 61 6D 6D 73 20 53 63 72 es Programms Scr
004060: 65 65 6E 6D 61 70 20 2A 29 1A 1A 1A 1A 1A 1A 1A eenmap *).......
004070: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
004080: 72 65 63 74 69 6F 6E 3D 27 52 27 29 3B 0D 0A 20 rection='R');..
004090: 20 20 20 20 20 20 20 69 66 20 44 69 72 65 63 74 if Direct
0040A0: 69 6F 6E 3D 27 52 27 0D 0A 20 20 20 20 20 20 20 ion='R'..
0040B0: 20 20 20 74 68 65 6E 20 52 69 63 68 74 75 6E 67 then Richtung
0040C0: 3A 3D 31 0D 0A 20 20 20 20 20 20 20 20 20 20 65 :=1.. e
0040D0: 6C 73 65 20 52 69 63 68 74 75 6E 67 3A 3D 30 3B lse Richtung:=0;
0040E0: 0D 0A 20 20 20 20 20 20 20 20 43 6C 72 53 63 72 .. ClrScr
0040F0: 3B 0D 0A 20 20 20 20 20 20 20 20 59 28 5A 65 69 ;.. Y(Zei
004100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0041A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0041B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0041C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0041D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0041E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0041F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004200: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004210: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004220: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004230: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004240: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004250: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0042A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0042B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0042C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0042D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0042E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0042F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0043A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0043B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0043C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0043D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0043E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0043F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0044A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0044B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0044C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0044D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0044E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0044F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004500: 01 00 E8 03 20 01 50 30 DA CA E9 DA 23 FE 2A C2 .... .P0....#.*.
004510: D9 DA 36 3F C3 DB DA 77 13 05 00 C8 DA CD 30 DA ..6?...w......0.
004520: CA F0 DA 13 C3 DF DA 23 36 20 05 C2 E9 DA 06 01 .......#6 ......
004530: 00 01 00 0A 25 46 20 70 61 67 65 20 25 23 00 23 ....%F page %#.#
004540: 7E FE 3F C2 09 DB 04 0D C2 01 DB 78 B7 C9 44 49 ~.?........x..DI
004550: 52 20 45 52 41 20 54 59 50 45 53 41 56 45 52 45 R ERA TYPESAVERE
004560: 4E 20 55 53 45 52 A8 16 00 00 00 84 21 10 DB 0E N USER......!...
004570: 00 79 FE 06 D0 11 CE DF 06 04 1A BE C2 4F DB 13 .y...........O..
004580: 23 05 C2 3C DB 1A FE 20 C2 54 DB 79 C9 23 05 C2 #..<... .T.y.#..
004590: 4F DB 0C C3 33 DB AF 32 07 D8 31 AB DF C5 79 1F O...3..2..1...y.
0045A0: 1F 1F 1F E6 0F 5F CD 15 D9 CD B8 D8 32 AB DF C1 ....._......2...
0045B0: 79 E6 0F 32 EF DF CD BD D8 3A 07 D8 B7 C2 98 DB y..2.....:......
0045C0: 31 AB DF CD 98 D8 CD D0 D9 C6 41 CD 8C D8 3E 3E 1.........A...>>
0045D0: CD 8C D8 CD 39 D9 11 80 00 CD D8 D9 CD D0 D9 32 ....9..........2
0045E0: EF DF CD 5E DA C4 09 DA 3A F0 DF B7 C2 A5 DE CD ...^....:.......
0045F0: 2E DB 21 C1 DB 5F 16 00 19 19 7E 23 16 4C 69 73 ..!.._....~#.Lis
004600: 74 69 6E 67 20 6F 66 20 25 46 2C 20 70 61 67 65 ting of %F, page
004610: 20 25 23 21 00 D8 E9 01 DF DB C3 A7 D8 52 45 41 %#!.........REA
004620: 44 20 45 52 52 4F 52 00 01 F0 DB C3 A7 D8 4E 4F D ERROR.......NO
004630: 20 46 49 4C 45 00 CD 5E DA 3A F0 DF B7 C2 09 DA FILE..^.:......
004640: 21 CE DF 01 0B 00 7E FE 20 CA 33 DC 23 D6 30 FE !.....~. .3.#.0.
004650: 0A D2 09 DA 57 78 E6 E0 C2 09 DA 78 07 07 07 80 ....Wx.....x....
004660: DA 09 DA 80 DA 09 DA 82 DA 09 DA 47 0D C2 08 DC ...........G....
004670: C9 7E FE 20 C2 09 DA 23 0D C2 33 DC 78 C9 06 03 .~. ...#..3.x...
004680: 7E 12 23 13 05 C2 42 DC C9 21 80 00 81 CD 59 DA ~.#...B..!....Y.
004690: 7E C9 AF 32 CD DF 3A F0 DF B7 C8 3D 21 EF DF BE ~..2..:....=!...
0046A0: C8 C3 BD D8 3A F0 DF B7 C8 3D 21 EF DF BE C8 3A ....:....=!....:
0046B0: EF DF C3 BD D8 CD 5E DA CD 54 DC 21 CE DF 7E FE ......^..T.!..~.
0046C0: 20 C2 8F DC 06 00 00 00 01 01 00 1E DC 1E 00 D5 ...............
0046D0: CD E9 D8 CC EA 00 1D 1B DD 3A EE DF 0F 0F 0F E6 .........:......
0046E0: 02 1B 44 30 CD 4B DC 17 DA 0F DD 02 1B 43 31 E6 ..D0.K.......C1.
0046F0: 03 F5 C2 CC DC CD 83 00 42 00 00 00 00 00 00 00 ........B.......
004700: 28 2A 20 44 69 65 73 65 73 20 50 72 6F 67 72 61 (* Dieses Progra
004710: 6D 6D 20 64 65 6D 6F 6E 73 74 72 69 65 72 74 20 mm demonstriert
004720: 77 69 65 20 6D 61 6E 20 64 69 65 20 43 6F 6D 6D wie man die Comm
004730: 61 6E 64 6C 69 6E 65 20 6C 69 65 73 74 2E 0D 0A andline liest...
004740: 20 20 20 33 32 20 5A 65 69 63 68 65 6E 20 73 69 32 Zeichen si
004750: 6E 64 20 69 6D 6D 65 72 20 69 6E 20 64 65 72 20 nd immer in der
004760: 43 6F 6D 6D 61 6E 64 6C 69 6E 65 20 67 65 70 75 Commandline gepu
004770: 66 66 65 72 74 2C 20 77 65 6E 6E 20 6D 61 6E 0D ffert, wenn man.
004780: 0A 20 20 20 6A 65 64 6F 63 68 20 61 6C 6C 65 20 . jedoch alle
004790: 31 32 37 20 5A 65 69 63 68 65 6E 20 6C 65 73 65 127 Zeichen lese
0047A0: 6E 20 6D 6F 65 63 68 74 65 2C 20 73 6F 20 6D 75 n moechte, so mu
0047B0: 7E 20 6D 61 6E 20 61 6C 73 20 65 72 73 74 65 20 ~ man als erste
0047C0: 41 6E 77 65 69 73 75 6E 67 0D 0A 20 20 20 69 6D Anweisung.. im
0047D0: 20 50 72 6F 67 72 61 6D 6D 20 64 69 65 20 43 6F Programm die Co
0047E0: 6D 6D 61 6E 64 6F 7A 65 69 6C 65 20 72 65 74 74 mmandozeile rett
0047F0: 65 6E 2C 20 64 61 20 73 69 65 20 64 61 6E 61 63 en, da sie danac
004800: 68 20 64 75 72 63 68 20 44 61 74 65 69 6F 70 65 h durch Dateiope
004810: 72 61 74 69 6F 6E 65 6E 0D 0A 20 20 20 67 65 6B rationen.. gek
004820: 75 65 72 7A 74 20 77 69 72 64 2E 0D 0A 20 20 20 uerzt wird...
004830: 57 65 72 20 6D 69 74 20 54 55 52 42 4F 20 50 61 Wer mit TURBO Pa
004840: 73 63 61 6C 20 33 2E 30 20 61 72 62 65 69 74 65 scal 3.0 arbeite
004850: 74 20 6B 61 6E 6E 20 61 6E 73 74 65 6C 6C 65 20 t kann anstelle
004860: 64 69 65 73 65 72 20 4B 6F 6E 73 74 72 75 6B 74 dieser Konstrukt
004870: 69 6F 6E 0D 0A 20 20 20 64 69 65 20 65 69 6E 67 ion.. die eing
004880: 65 62 61 75 74 65 6E 20 46 75 6E 6B 74 69 6F 6E ebauten Funktion
004890: 65 6E 20 50 61 72 61 6D 43 6F 75 6E 74 20 75 6E en ParamCount un
0048A0: 64 20 50 61 72 61 6D 53 74 72 20 76 65 72 77 65 d ParamStr verwe
0048B0: 6E 64 65 6E 0D 0A 2A 29 0D 0A 0D 0A 70 72 6F 67 nden..*)....prog
0048C0: 72 61 6D 20 43 6F 6D 6D 61 6E 64 4C 69 6E 65 3B ram CommandLine;
0048D0: 0D 0A 74 79 70 65 0D 0A 20 20 43 6F 6D 6D 61 6E ..type.. Comman
0048E0: 64 53 74 72 69 6E 67 20 20 3D 20 73 74 72 69 6E dString = strin
0048F0: 67 5B 31 32 37 5D 3B 0D 0A 0D 0A 76 61 72 0D 0A g[127];....var..
004900: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004910: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004920: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004930: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004940: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004950: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0049A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0049B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0049C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0049D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0049E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0049F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004A00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004A10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004A20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004A30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004A40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004A50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004B00: 20 20 42 75 66 66 65 72 20 20 20 20 20 20 20 20 Buffer
004B10: 20 3A 20 43 6F 6D 6D 61 6E 64 53 74 72 69 6E 67 : CommandString
004B20: 3B 0D 0A 20 20 43 4C 20 20 20 20 20 20 20 20 20 ;.. CL
004B30: 20 20 20 20 3A 20 43 6F 6D 6D 61 6E 64 53 74 72 : CommandStr
004B40: 69 6E 67 20 61 62 73 6F 6C 75 74 65 20 63 73 65 ing absolute cse
004B50: 67 3A 24 38 30 3B 0D 0A 0D 0A 62 65 67 69 6E 0D g:$80;....begin.
004B60: 0A 20 20 43 6C 72 53 63 72 3B 0D 0A 20 20 42 75 . ClrScr;.. Bu
004B70: 66 66 65 72 20 3A 3D 20 43 4C 3B 0D 0A 20 20 47 ffer := CL;.. G
004B80: 6F 74 6F 78 79 28 32 30 2C 31 32 29 3B 0D 0A 20 otoxy(20,12);..
004B90: 20 57 72 69 74 65 4C 6E 28 27 7C 27 2C 42 75 66 WriteLn('|',Buf
004BA0: 66 65 72 2C 20 27 7C 27 29 3B 0D 0A 65 6E 64 2E fer, '|');..end.
004BB0: 20 28 2A 20 64 65 73 20 50 72 6F 67 72 61 6D 6D (* des Programm
004BC0: 73 20 43 6F 6D 6D 61 6E 64 6C 69 6E 65 20 2A 29 s Commandline *)
004BD0: 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
004BE0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
004BF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
004C00: 68 20 64 75 72 63 68 20 44 61 74 65 69 6F 70 65 h durch Dateiope
004C10: 72 61 74 69 6F 6E 65 6E 0D 0A 20 20 20 67 65 6B rationen.. gek
004C20: 75 65 72 7A 74 20 77 69 72 64 2E 0D 0A 20 20 20 uerzt wird...
004C30: 57 65 72 20 6D 69 74 20 54 55 52 42 4F 20 50 61 Wer mit TURBO Pa
004C40: 73 63 61 6C 20 33 2E 30 20 61 72 62 65 69 74 65 scal 3.0 arbeite
004C50: 74 20 6B 61 6E 6E 20 61 6E 73 74 65 6C 6C 65 20 t kann anstelle
004C60: 64 69 65 73 65 72 20 4B 6F 6E 73 74 72 75 6B 74 dieser Konstrukt
004C70: 69 6F 6E 0D 0A 20 20 20 64 69 65 20 65 69 6E 67 ion.. die eing
004C80: 65 62 61 75 74 65 6E 20 46 75 6E 6B 74 69 6F 6E ebauten Funktion
004C90: 65 6E 20 50 61 72 61 6D 43 6F 75 6E 74 20 75 6E en ParamCount un
004CA0: 64 20 50 61 72 61 6D 53 74 72 20 76 65 72 77 65 d ParamStr verwe
004CB0: 6E 64 65 6E 0D 0A 2A 29 0D 0A 0D 0A 70 72 6F 67 nden..*)....prog
004CC0: 72 61 6D 20 43 6F 6D 6D 61 6E 64 4C 69 6E 65 3B ram CommandLine;
004CD0: 0D 0A 74 79 70 65 0D 0A 20 20 43 6F 6D 6D 61 6E ..type.. Comman
004CE0: 64 53 74 72 69 6E 67 20 20 3D 20 73 74 72 69 6E dString = strin
004CF0: 67 5B 31 32 37 5D 3B 0D 0A 0D 0A 76 61 72 0D 0A g[127];....var..
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: 0D 0A 3B 20 2A 20 2A 20 57 41 52 4E 55 4E 47 20 ..; * * WARNUNG
004E10: 2A 20 57 41 52 4E 55 4E 47 20 2A 20 57 41 52 4E * WARNUNG * WARN
004E20: 55 4E 47 20 2A 20 57 41 52 4E 55 4E 47 20 2A 20 UNG * WARNUNG *
004E30: 57 41 52 4E 55 4E 47 20 2A 20 57 41 52 4E 55 4E WARNUNG * WARNUN
004E40: 47 20 2A 20 2A 0D 0A 0D 0A 3B 20 20 42 69 74 74 G * *....; Bitt
004E50: 65 20 61 72 62 65 69 74 65 6E 20 53 69 65 20 6E e arbeiten Sie n
004E60: 69 63 68 74 20 6D 69 74 20 65 78 74 65 72 6E 65 icht mit externe
004E70: 6E 20 53 75 62 72 6F 75 74 69 6E 65 6E 0D 0A 3B n Subroutinen..;
004E80: 20 20 66 61 6C 6C 73 20 53 69 65 20 73 69 63 68 falls Sie sich
004E90: 20 6E 69 63 68 74 20 73 65 68 72 20 67 75 74 20 nicht sehr gut
004EA0: 6D 69 74 20 41 53 53 45 4D 42 4C 45 52 20 61 75 mit ASSEMBLER au
004EB0: 73 6B 65 6E 6E 65 6E 2E 0D 0A 3B 0D 0A 3B 20 20 skennen...;..;
004EC0: 57 49 43 48 54 49 47 3A 20 45 78 74 65 72 6E 61 WICHTIG: Externa
004ED0: 6C 73 20 6D 75 65 73 73 65 6E 20 69 6E 20 41 73 ls muessen in As
004EE0: 73 65 6D 62 6C 65 72 20 67 65 73 63 68 72 69 65 sembler geschrie
004EF0: 62 65 6E 20 77 65 72 64 65 6E 2E 0D 0A 3B 0D 0A ben werden...;..
004F00: 3B 20 20 44 61 73 20 66 6F 6C 67 65 6E 64 65 20 ; Das folgende
004F10: 42 65 69 73 70 69 65 6C 20 61 64 64 69 65 72 74 Beispiel addiert
004F20: 20 7A 77 65 69 20 49 6E 74 65 67 65 72 7A 61 68 zwei Integerzah
004F30: 6C 65 6E 2E 0D 0A 3B 0D 0A 3B 0D 0A 63 6F 64 65 len...;..;..code
004F40: 20 20 20 73 65 67 6D 65 6E 74 0D 0A 20 20 20 20 segment..
004F50: 20 20 20 61 73 73 75 6D 65 20 20 20 63 73 3A 63 assume cs:c
004F60: 6F 64 65 0D 0A 70 61 73 73 20 20 20 70 72 6F 63 ode..pass proc
004F70: 20 20 20 20 20 6E 65 61 72 0D 0A 0D 0A 20 20 20 near....
004F80: 20 20 20 20 70 75 73 68 20 20 20 20 20 62 70 20 push bp
004F90: 20 20 20 20 20 20 20 20 20 20 20 3B 20 55 4D 47 ; UMG
004FA0: 45 42 55 4E 47 20 52 45 54 54 45 4E 0D 0A 20 20 EBUNG RETTEN..
004FB0: 20 20 20 20 20 6D 6F 76 20 20 20 20 20 20 62 70 mov bp
004FC0: 2C 73 70 0D 0A 0D 0A 20 20 20 20 20 20 20 6D 6F ,sp.... mo
004FD0: 76 20 20 20 20 20 20 61 78 2C 5B 62 70 2B 34 5D v ax,[bp+4]
004FE0: 20 20 20 20 20 3B 20 50 41 52 41 4D 45 54 45 52 ; PARAMETER
004FF0: 20 31 20 48 4F 4C 45 4E 0D 0A 20 20 20 20 20 20 1 HOLEN..
005000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0050A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0050B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0050C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0050D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0050E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0050F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0051A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0051B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0051C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0051D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0051E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0051F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005200: 20 61 64 64 20 20 20 20 20 20 61 78 2C 5B 62 70 add ax,[bp
005210: 2B 36 5D 20 20 20 20 20 3B 20 50 41 52 41 4D 45 +6] ; PARAME
005220: 54 45 52 20 32 20 48 4F 4C 45 4E 0D 0A 20 20 20 TER 2 HOLEN..
005230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005240: 20 20 20 20 20 20 20 20 20 20 20 3B 20 52 45 53 ; RES
005250: 55 4C 54 41 54 20 49 4E 20 41 58 0D 0A 20 20 20 ULTAT IN AX..
005260: 20 20 20 20 6D 6F 76 20 20 20 20 20 20 73 70 2C mov sp,
005270: 62 70 20 20 20 20 20 20 20 20 20 3B 20 55 4D 47 bp ; UMG
005280: 45 42 55 4E 47 20 57 49 45 44 45 52 48 45 52 53 EBUNG WIEDERHERS
005290: 54 45 4C 4C 45 4E 0D 0A 20 20 20 20 20 20 20 70 TELLEN.. p
0052A0: 6F 70 20 20 20 20 20 20 62 70 0D 0A 20 20 20 20 op bp..
0052B0: 20 20 20 72 65 74 20 20 20 20 20 20 34 0D 0A 0D ret 4...
0052C0: 0A 70 61 73 73 20 20 20 65 6E 64 70 0D 0A 63 6F .pass endp..co
0052D0: 64 65 20 20 20 65 6E 64 73 0D 0A 20 20 20 20 20 de ends..
0052E0: 20 20 65 6E 64 0D 0A 0D 0A 3B 20 47 65 68 65 6E end....; Gehen
0052F0: 20 53 69 20 7A 75 72 75 65 63 6B 20 7A 75 20 4D Si zurueck zu M
005300: 53 20 44 4F 53 20 75 6E 64 20 67 65 62 65 6E 20 S DOS und geben
005310: 53 69 65 20 66 6F 6C 67 65 6E 64 65 73 20 65 69 Sie folgendes ei
005320: 6E 3A 0D 0A 3B 20 20 20 3E 41 53 4D 20 50 41 53 n:..; >ASM PAS
005330: 53 0D 0A 3B 20 20 20 3E 4C 49 4E 4B 20 50 41 53 S..; >LINK PAS
005340: 53 0D 0A 3B 20 20 20 3E 45 58 45 32 42 49 4E 20 S..; >EXE2BIN
005350: 50 41 53 53 2E 45 58 45 20 50 41 53 53 2E 43 4F PASS.EXE PASS.CO
005360: 4D 0D 0A 3B 0D 0A 3B 20 20 49 67 6E 6F 72 69 65 M..;..; Ignorie
005370: 72 65 6E 20 73 69 65 20 6B 6C 65 69 6E 65 72 65 ren sie kleinere
005380: 20 46 65 68 6C 65 72 20 76 6F 6E 20 41 53 4D 20 Fehler von ASM
005390: 75 6E 64 20 4C 49 4E 4B 0D 0A 3B 20 20 44 69 65 und LINK..; Die
0053A0: 20 6F 62 69 67 65 20 50 72 6F 7A 65 64 75 72 20 obige Prozedur
0053B0: 69 73 74 20 6E 75 72 20 65 69 6E 20 42 65 69 73 ist nur ein Beis
0053C0: 70 69 65 6C 0D 0A 3B 20 20 44 61 73 20 73 65 6C piel..; Das sel
0053D0: 62 65 20 45 72 67 65 62 6E 69 73 73 20 65 72 72 be Ergebniss err
0053E0: 65 69 63 68 74 20 6D 61 6E 20 69 6E 20 54 55 52 eicht man in TUR
0053F0: 42 4F 20 50 61 73 63 61 6C 20 64 75 72 63 68 20 BO Pascal durch
005400: 0D 0A 28 2A 24 55 2D 2C 43 2D 2A 29 0D 0A 70 72 ..(*$U-,C-*)..pr
005410: 6F 67 72 61 6D 20 47 65 70 75 66 66 65 72 74 3B ogram Gepuffert;
005420: 0D 0A 28 2A 0D 0A 20 20 20 20 44 65 72 20 24 43 ..(*.. Der $C
005430: 2D 42 65 66 65 68 6C 20 69 73 74 20 66 75 65 72 -Befehl ist fuer
005440: 20 67 65 70 75 66 66 65 72 74 65 20 45 69 6E 67 gepufferte Eing
005450: 61 62 65 20 6E 6F 74 77 65 6E 64 69 67 2C 20 73 abe notwendig, s
005460: 6F 6E 73 74 20 67 65 68 65 6E 0D 0A 20 20 20 20 onst gehen..
005470: 5A 65 69 63 68 65 6E 20 76 65 72 6C 6F 72 65 6E Zeichen verloren
005480: 2E 20 20 44 61 20 52 65 61 64 28 43 68 29 20 76 . Da Read(Ch) v
005490: 6F 72 20 64 65 72 20 42 65 61 72 62 65 69 74 75 or der Bearbeitu
0054A0: 6E 67 20 65 69 6E 20 65 6E 64 2D 6F 66 2D 0D 0A ng ein end-of-..
0054B0: 20 20 20 20 6C 69 6E 65 20 20 65 72 66 6F 72 64 line erford
0054C0: 65 72 74 2C 20 20 6D 75 65 73 73 65 6E 20 53 69 ert, muessen Si
0054D0: 65 20 52 65 61 64 28 4B 62 64 2C 43 68 29 20 76 e Read(Kbd,Ch) v
0054E0: 65 72 77 65 6E 64 65 6E 2E 20 53 63 68 72 65 69 erwenden. Schrei
0054F0: 62 65 6E 0D 0A 20 20 20 20 53 69 65 20 22 23 22 ben.. Sie "#"
005500: 20 75 6D 20 64 61 73 20 50 72 6F 67 72 61 6D 6D um das Programm
005510: 20 7A 75 20 62 65 65 6E 64 65 6E 2E 0D 0A 2A 29 zu beenden...*)
005520: 0D 0A 76 61 72 0D 0A 20 20 43 68 20 20 20 20 20 ..var.. Ch
005530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 :
005540: 43 68 61 72 3B 0D 0A 20 20 49 6E 64 78 2C 4A 6E Char;.. Indx,Jn
005550: 64 78 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 dx :
005560: 49 6E 74 65 67 65 72 3B 0D 0A 62 65 67 69 6E 0D Integer;..begin.
005570: 0A 20 20 77 72 69 74 65 6C 6E 28 27 42 65 67 69 . writeln('Begi
005580: 6E 6E 65 6E 20 53 69 65 20 6E 75 6E 20 6D 69 74 nnen Sie nun mit
005590: 20 64 65 72 20 45 69 6E 67 61 62 65 20 62 65 6C der Eingabe bel
0055A0: 69 65 62 69 67 65 72 20 5A 65 69 63 68 65 6E 27 iebiger Zeichen'
0055B0: 29 3B 0D 0A 20 20 77 72 69 74 65 6C 6E 28 27 44 );.. writeln('D
0055C0: 69 65 20 45 69 6E 67 61 62 65 20 76 6F 6E 20 22 ie Eingabe von "
0055D0: 23 22 20 62 65 77 69 72 6B 74 20 64 65 6E 20 41 #" bewirkt den A
0055E0: 62 62 72 75 63 68 20 64 65 73 20 50 72 6F 67 72 bbruch des Progr
0055F0: 61 6D 6D 73 27 29 3B 0D 0A 20 20 72 65 70 65 61 amms');.. repea
005600: 3A 0D 0A 3B 0D 0A 3B 20 20 66 75 6E 63 74 69 6F :..;..; functio
005610: 6E 20 70 61 73 73 28 76 61 72 58 2C 20 76 61 72 n pass(varX, var
005620: 59 3A 69 6E 74 65 67 65 72 29 3A 69 6E 74 65 67 Y:integer):integ
005630: 65 72 3B 0D 0A 3B 20 20 62 65 67 69 6E 0D 0A 3B er;..; begin..;
005640: 20 20 20 20 20 70 61 73 73 20 3A 3D 20 76 61 72 pass := var
005650: 58 20 2B 20 76 61 72 59 3B 0D 0A 3B 20 20 65 6E X + varY;..; en
005660: 64 3B 0D 0A 0D 0A 0D 0A 1A 66 66 65 72 74 65 20 d;.......fferte
005670: 54 61 73 74 61 74 75 72 20 45 69 6E 67 61 62 65 Tastatur Eingabe
005680: 45 42 55 4E 47 20 57 49 45 44 45 52 48 45 52 53 EBUNG WIEDERHERS
005690: 54 45 4C 4C 45 4E 0D 0A 20 20 20 20 20 20 20 70 TELLEN.. p
0056A0: 6F 70 20 20 20 20 20 20 62 70 0D 0A 20 20 20 20 op bp..
0056B0: 20 20 20 72 65 74 20 20 20 20 20 20 34 0D 0A 0D ret 4...
0056C0: 0A 70 61 73 73 20 20 20 65 6E 64 70 0D 0A 63 6F .pass endp..co
0056D0: 64 65 20 20 20 65 6E 64 73 0D 0A 20 20 20 20 20 de ends..
0056E0: 20 20 65 6E 64 0D 0A 0D 0A 3B 20 47 65 68 65 6E end....; Gehen
0056F0: 20 53 69 20 7A 75 72 75 65 63 6B 20 7A 75 20 4D Si zurueck zu M
005700: 53 20 44 4F 53 20 75 6E 64 20 67 65 62 65 6E 20 S DOS und geben
005710: 53 69 65 20 66 6F 6C 67 65 6E 64 65 73 20 65 69 Sie folgendes ei
005720: 6E 3A 0D 0A 3B 20 20 20 3E 41 53 4D 20 50 41 53 n:..; >ASM PAS
005730: 53 0D 0A 3B 20 20 20 3E 4C 49 4E 4B 20 50 41 53 S..; >LINK PAS
005740: 53 0D 0A 3B 20 20 20 3E 45 58 45 32 42 49 4E 20 S..; >EXE2BIN
005750: 50 41 53 53 2E 45 58 45 20 50 41 53 53 2E 43 4F PASS.EXE PASS.CO
005760: 4D 0D 0A 3B 0D 0A 3B 20 20 49 67 6E 6F 72 69 65 M..;..; Ignorie
005770: 72 65 6E 20 73 69 65 20 6B 6C 65 69 6E 65 72 65 ren sie kleinere
005780: 20 46 65 68 6C 65 72 20 76 6F 6E 20 41 53 4D 20 Fehler von ASM
005790: 75 6E 64 20 4C 49 4E 4B 0D 0A 3B 20 20 44 69 65 und LINK..; Die
0057A0: 20 6F 62 69 67 65 20 50 72 6F 7A 65 64 75 72 20 obige Prozedur
0057B0: 69 73 74 20 6E 75 72 20 65 69 6E 20 42 65 69 73 ist nur ein Beis
0057C0: 70 69 65 6C 0D 0A 3B 20 20 44 61 73 20 73 65 6C piel..; Das sel
0057D0: 62 65 20 45 72 67 65 62 6E 69 73 73 20 65 72 72 be Ergebniss err
0057E0: 65 69 63 68 74 20 6D 61 6E 20 69 6E 20 54 55 52 eicht man in TUR
0057F0: 42 4F 20 50 61 73 63 61 6C 20 64 75 72 63 68 20 BO Pascal durch
005800: 74 0D 0A 20 20 20 20 66 6F 72 20 49 6E 64 78 20 t.. for Indx
005810: 3A 3D 20 31 20 74 6F 20 31 30 30 30 30 20 64 6F := 1 to 10000 do
005820: 20 20 20 28 2A 20 56 65 72 7A 6F 65 67 65 72 75 (* Verzoegeru
005830: 6E 67 73 73 63 68 6C 65 69 66 65 20 66 75 65 72 ngsschleife fuer
005840: 20 56 6F 72 61 75 73 74 69 70 70 65 6E 20 2A 29 Voraustippen *)
005850: 0D 0A 20 20 20 20 20 20 4A 6E 64 78 20 3A 3D 20 .. Jndx :=
005860: 49 6E 64 78 20 2B 20 49 6E 64 78 3B 0D 0A 20 20 Indx + Indx;..
005870: 20 20 52 65 61 64 28 4B 62 64 2C 43 68 29 3B 20 Read(Kbd,Ch);
005880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2A (*
005890: 20 4E 61 65 63 68 73 74 65 73 20 5A 65 69 63 68 Naechstes Zeich
0058A0: 65 6E 20 61 75 73 20 54 61 73 74 61 74 75 72 70 en aus Tastaturp
0058B0: 75 66 66 65 72 20 68 6F 6C 65 6E 20 2A 29 0D 0A uffer holen *)..
0058C0: 20 20 20 20 57 72 69 74 65 28 43 68 29 20 20 20 Write(Ch)
0058D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0058E0: 28 2A 20 75 6E 64 20 61 75 66 20 64 65 6D 20 42 (* und auf dem B
0058F0: 69 6C 64 73 63 68 69 72 6D 20 61 6E 7A 65 69 67 ildschirm anzeig
005900: 65 6E 20 2A 29 0D 0A 20 20 75 6E 74 69 6C 20 43 en *).. until C
005910: 68 20 3D 20 27 23 27 0D 0A 65 6E 64 2E 20 28 2A h = '#'..end. (*
005920: 20 50 72 6F 67 72 61 6D 6D 20 47 65 70 75 66 66 Programm Gepuff
005930: 65 72 74 20 2A 29 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A ert *)..........
005940: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
005950: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
005960: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
005970: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
005980: 6E 6E 65 6E 20 53 69 65 20 6E 75 6E 20 6D 69 74 nnen Sie nun mit
005990: 20 64 65 72 20 45 69 6E 67 61 62 65 20 62 65 6C der Eingabe bel
0059A0: 69 65 62 69 67 65 72 20 5A 65 69 63 68 65 6E 27 iebiger Zeichen'
0059B0: 29 3B 0D 0A 20 20 77 72 69 74 65 6C 6E 28 27 44 );.. writeln('D
0059C0: 69 65 20 45 69 6E 67 61 62 65 20 76 6F 6E 20 22 ie Eingabe von "
0059D0: 23 22 20 62 65 77 69 72 6B 74 20 64 65 6E 20 41 #" bewirkt den A
0059E0: 62 62 72 75 63 68 20 64 65 73 20 50 72 6F 67 72 bbruch des Progr
0059F0: 61 6D 6D 73 27 29 3B 0D 0A 20 20 72 65 70 65 61 amms');.. repea
005A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005C00: 70 72 6F 67 72 61 6D 20 51 44 4C 3B 0D 0A 0D 0A program QDL;....
005C10: 28 2A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D (*--------------
005C20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
005C30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
005C40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
005C50: 2D 0D 0A 0D 0A 51 44 4C 20 62 65 6E 75 74 7A 74 -....QDL benutzt
005C60: 20 4D 53 20 44 4F 53 2C 20 75 6D 20 65 69 6E 20 MS DOS, um ein
005C70: 56 65 72 7A 65 69 63 68 6E 69 73 20 20 65 69 6E Verzeichnis ein
005C80: 65 72 20 49 42 4D 20 66 6F 72 6D 61 74 69 65 72 er IBM formatier
005C90: 74 65 6E 0D 0A 44 69 73 6B 65 74 74 65 20 7A 75 ten..Diskette zu
005CA0: 20 65 72 68 61 6C 74 65 6E 2E 20 44 65 72 20 46 erhalten. Der F
005CB0: 75 6E 6B 74 69 6F 6E 73 61 6E 72 75 66 2C 20 64 unktionsanruf, d
005CC0: 65 72 20 62 65 6E 75 74 7A 74 20 77 69 72 64 2C er benutzt wird,
005CD0: 20 6B 61 6E 6E 20 69 6E 0D 0A 64 65 6D 20 20 44 kann in..dem D
005CE0: 4F 53 20 20 48 61 6E 64 62 75 63 68 20 67 65 66 OS Handbuch gef
005CF0: 75 6E 64 65 6E 20 77 65 72 64 65 6E 2E 20 20 44 unden werden. D
005D00: 69 65 73 65 73 20 20 50 72 6F 67 72 61 6D 6D 20 ieses Programm
005D10: 20 73 69 63 68 65 72 74 20 20 64 65 6E 0D 0A 67 sichert den..g
005D20: 65 67 65 6E 77 61 65 72 74 69 67 65 20 20 44 61 egenwaertige Da
005D30: 74 65 6E 75 65 62 65 72 74 72 61 67 75 6E 67 62 tenuebertragungb
005D40: 65 72 65 69 63 68 20 28 44 54 41 29 20 69 6E 20 ereich (DTA) in
005D50: 64 65 6E 20 56 61 72 69 61 62 6C 65 6E 20 44 54 den Variablen DT
005D60: 41 73 65 67 0D 0A 75 6E 64 20 20 20 44 54 41 6F Aseg..und DTAo
005D70: 66 73 2E 20 20 44 65 72 20 44 54 41 20 77 69 72 fs. Der DTA wir
005D80: 64 20 64 61 6E 6E 20 7A 75 72 75 65 63 6B 67 65 d dann zurueckge
005D90: 73 74 65 6C 6C 74 20 61 75 66 20 65 69 6E 20 53 stellt auf ein S
005DA0: 65 67 6D 65 6E 74 20 75 6E 64 0D 0A 4F 66 66 73 egment und..Offs
005DB0: 65 74 20 20 20 65 69 6E 65 72 20 50 75 66 66 65 et einer Puffe
005DC0: 72 76 61 72 69 61 62 6C 65 6E 20 27 44 54 41 27 rvariablen 'DTA'
005DD0: 2E 0D 0A 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D .....-----------
005DE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
005DF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
005E00: 0D 0A 70 72 6F 67 72 61 6D 20 50 61 73 73 46 75 ..program PassFu
005E10: 6E 63 3B 0D 0A 28 2A 0D 0A 20 20 20 20 20 20 20 nc;..(*..
005E20: 44 69 65 73 65 20 52 6F 75 74 69 6E 65 20 65 72 Diese Routine er
005E30: 77 61 72 74 65 74 20 64 69 65 20 41 73 73 65 6D wartet die Assem
005E40: 62 6C 65 72 20 52 6F 75 74 69 6E 65 20 76 6F 6E bler Routine von
005E50: 20 50 41 53 53 2E 41 53 4D 0D 0A 20 20 20 20 20 PASS.ASM..
005E60: 20 20 69 6E 20 64 65 6D 20 4D 61 73 63 68 69 6E in dem Maschin
005E70: 65 6E 70 72 6F 67 72 61 6D 6D 20 50 41 53 53 2E enprogramm PASS.
005E80: 43 4F 4D 0D 0A 2A 29 0D 0A 76 61 72 0D 0A 20 20 COM..*)..var..
005E90: 56 61 72 31 2C 20 56 61 72 32 2C 20 56 61 72 33 Var1, Var2, Var3
005EA0: 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 0D 0A 66 75 : Integer;....fu
005EB0: 6E 63 74 69 6F 6E 20 50 61 73 73 28 56 61 72 58 nction Pass(VarX
005EC0: 2C 20 56 61 72 59 3A 20 49 6E 74 65 67 65 72 29 , VarY: Integer)
005ED0: 3A 20 49 6E 74 65 67 65 72 3B 20 65 78 74 65 72 : Integer; exter
005EE0: 6E 61 6C 20 27 50 41 53 53 2E 43 4F 4D 27 3B 0D nal 'PASS.COM';.
005EF0: 0A 0D 0A 0D 0A 62 65 67 69 6E 20 28 2A 20 76 6F .....begin (* vo
005F00: 6E 20 50 61 73 73 46 75 6E 63 20 2A 29 0D 0A 20 n PassFunc *)..
005F10: 72 65 70 65 61 74 0D 0A 20 20 20 20 52 65 61 64 repeat.. Read
005F20: 4C 6E 28 56 61 72 31 29 3B 0D 0A 20 20 20 20 69 Ln(Var1);.. i
005F30: 66 20 56 61 72 31 3C 3E 30 20 74 68 65 6E 20 62 f Var1<>0 then b
005F40: 65 67 69 6E 0D 0A 20 20 20 20 20 20 52 65 61 64 egin.. Read
005F50: 4C 6E 28 56 61 72 32 29 3B 0D 0A 20 20 20 20 20 Ln(Var2);..
005F60: 20 56 61 72 33 20 3A 3D 20 50 61 73 73 28 56 61 Var3 := Pass(Va
005F70: 72 31 2C 56 61 72 32 29 3B 0D 0A 20 20 20 20 20 r1,Var2);..
005F80: 20 57 72 69 74 65 4C 6E 28 56 61 72 31 2C 27 20 WriteLn(Var1,'
005F90: 2B 20 27 2C 56 61 72 32 2C 27 20 3D 20 27 2C 56 + ',Var2,' = ',V
005FA0: 61 72 33 29 3B 0D 0A 20 20 20 20 20 20 57 72 69 ar3);.. Wri
005FB0: 74 65 4C 6E 0D 0A 20 20 20 20 65 6E 64 0D 0A 20 teLn.. end..
005FC0: 75 6E 74 69 6C 20 56 61 72 31 20 3D 20 30 0D 0A until Var1 = 0..
005FD0: 65 6E 64 2E 20 28 2A 20 76 6F 6E 20 20 50 61 73 end. (* von Pas
005FE0: 73 46 75 6E 63 20 2A 29 0D 0A 0D 0A 1A 1A 1A 1A sFunc *)........
005FF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
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: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006110: 2D 2D 2D 2D 2D 2D 2A 29 0D 0A 28 2A 24 49 2D 2C ------*)..(*$I-,
006120: 55 2D 2C 43 2D 2A 29 0D 0A 0D 0A 0D 0A 74 79 70 U-,C-*)......typ
006130: 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e
006140: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 (*
006150: 54 59 50 45 4E 20 64 65 6B 6C 61 72 61 74 69 6F TYPEN deklaratio
006160: 6E 20 2A 29 0D 0A 20 20 52 65 67 69 73 74 65 72 n *).. Register
006170: 73 20 3D 0D 0A 20 20 20 20 72 65 63 6F 72 64 20 s =.. record
006180: 20 20 20 20 20 20 20 20 20 20 28 2A 20 72 65 67 (* reg
006190: 69 73 74 65 72 20 66 75 65 72 20 4D 53 44 6F 73 ister fuer MSDos
0061A0: 20 61 75 66 72 75 66 20 2A 29 0D 0A 20 20 20 20 aufruf *)..
0061B0: 20 20 41 58 2C 20 42 58 2C 20 43 58 2C 20 44 58 AX, BX, CX, DX
0061C0: 2C 20 42 50 2C 20 53 49 2C 20 44 49 2C 20 44 53 , BP, SI, DI, DS
0061D0: 2C 20 45 53 2C 20 46 6C 61 67 73 20 3A 20 49 6E , ES, Flags : In
0061E0: 74 65 67 65 72 3B 0D 0A 20 20 20 20 65 6E 64 3B teger;.. end;
0061F0: 0D 0A 20 20 43 68 61 72 38 30 61 72 72 20 20 20 .. Char80arr
006200: 20 20 3D 20 61 72 72 61 79 20 5B 20 31 2E 2E 38 = array [ 1..8
006210: 30 20 5D 20 6F 66 20 43 68 61 72 3B 0D 0A 20 20 0 ] of Char;..
006220: 53 74 72 69 6E 67 38 30 20 20 20 20 20 20 3D 20 String80 =
006230: 73 74 72 69 6E 67 5B 20 38 30 20 5D 3B 0D 0A 0D string[ 80 ];...
006240: 0A 76 61 72 20 20 20 20 20 20 20 20 20 20 20 20 .var
006250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006260: 20 20 28 2A 20 56 41 52 49 41 42 4C 45 20 64 65 (* VARIABLE de
006270: 6B 6C 61 72 61 74 69 6F 6E 20 2A 29 0D 0A 20 20 klaration *)..
006280: 44 54 41 20 3A 20 61 72 72 61 79 20 5B 20 31 2E DTA : array [ 1.
006290: 2E 34 33 20 5D 20 6F 66 20 42 79 74 65 3B 20 20 .43 ] of Byte;
0062A0: 20 20 20 20 20 28 2A 20 44 61 74 61 20 54 72 61 (* Data Tra
0062B0: 6E 73 66 65 72 20 41 72 65 61 20 50 75 66 66 65 nsfer Area Puffe
0062C0: 72 20 2A 29 0D 0A 20 20 44 54 41 73 65 67 2C 20 r *).. DTAseg,
0062D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0062E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 (*
0062F0: 44 54 41 20 53 65 67 6D 65 6E 74 20 76 6F 72 20 DTA Segment vor
006300: 28 2A 20 46 75 6E 6B 74 69 6F 6E 20 75 6D 20 44 (* Funktion um D
006310: 54 41 20 61 64 72 65 73 73 65 20 66 65 73 74 7A TA adresse festz
006320: 75 73 74 65 6C 6C 65 6E 20 2A 29 0D 0A 20 20 20 ustellen *)..
006330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006340: 20 20 20 20 28 2A 20 24 32 46 30 30 20 77 69 72 (* $2F00 wir
006350: 64 20 61 6E 73 74 65 6C 6C 65 20 76 6F 6E 20 24 d anstelle von $
006360: 32 37 20 73 68 6C 20 38 20 62 65 6E 75 74 7A 74 27 shl 8 benutzt
006370: 20 75 6D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 um..
006380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 d
006390: 72 65 69 20 41 73 73 65 6D 62 6C 65 72 20 42 65 rei Assembler Be
0063A0: 66 65 68 6C 65 20 7A 75 20 73 70 61 72 65 6E 2E fehle zu sparen.
0063B0: 0D 0A 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 45 69 6E 65 Eine
0063D0: 20 4D 6F 65 67 6C 69 63 68 6B 65 69 74 20 7A 75 Moeglichkeit zu
0063E0: 72 20 4F 70 74 69 6D 69 65 72 75 6E 67 20 2A 29 r Optimierung *)
0063F0: 0D 0A 20 20 4D 53 44 6F 73 28 20 52 65 67 73 20 .. MSDos( Regs
006400: 29 3B 20 20 20 20 20 20 20 28 2A 20 4D 53 20 44 ); (* MS D
006410: 4F 53 20 46 75 6E 6B 74 69 6F 6E 73 61 75 66 72 OS Funktionsaufr
006420: 75 66 20 2A 29 0D 0A 20 20 53 65 67 6D 65 6E 74 uf *).. Segment
006430: 20 3A 3D 20 52 65 67 73 2E 45 53 3B 20 20 28 2A := Regs.ES; (*
006440: 20 53 65 67 6D 65 6E 74 20 64 65 72 20 44 54 41 Segment der DTA
006450: 20 76 6F 6E 20 44 4F 53 20 2A 29 0D 0A 20 20 4F von DOS *).. O
006460: 66 66 73 65 74 20 3A 3D 20 52 65 67 73 2E 42 58 ffset := Regs.BX
006470: 3B 20 20 20 28 2A 20 4F 66 66 73 65 74 20 64 65 ; (* Offset de
006480: 72 20 44 54 41 20 20 76 6F 6E 20 44 4F 53 2A 29 r DTA von DOS*)
006490: 0D 0A 20 20 46 65 68 6C 65 72 20 3A 3D 20 52 65 .. Fehler := Re
0064A0: 67 73 2E 41 58 20 61 6E 64 20 24 46 46 3B 0D 0A gs.AX and $FF;..
0064B0: 65 6E 64 3B 20 28 2A 20 64 65 72 20 50 72 6F 7A end; (* der Proz
0064C0: 65 64 75 72 20 47 65 74 43 75 72 72 65 6E 74 44 edur GetCurrentD
0064D0: 54 41 20 2A 29 0D 0A 0D 0A 28 2A 2D 2D 2D 2D 2D TA *)....(*-----
0064E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0064F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006500: 41 75 73 66 75 65 72 75 6E 67 20 2A 29 0D 0A 20 Ausfuerung *)..
006510: 20 44 54 41 6F 66 73 2C 20 20 20 20 20 20 20 20 DTAofs,
006520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006530: 20 20 20 20 20 20 28 2A 20 44 54 41 20 4F 66 66 (* DTA Off
006540: 73 65 74 20 20 20 22 20 20 20 20 20 20 20 22 20 set " "
006550: 20 20 20 20 2A 29 0D 0A 20 20 53 65 74 44 54 41 *).. SetDTA
006560: 73 65 67 2C 20 20 20 20 20 20 20 20 20 20 20 20 seg,
006570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
006580: 2A 20 44 54 41 20 53 65 67 6D 65 6E 74 20 61 6E * DTA Segment an
006590: 64 20 4F 66 66 73 65 74 20 20 2A 29 0D 0A 20 20 d Offset *)..
0065A0: 53 65 74 44 54 41 6F 66 73 2C 20 20 20 20 20 20 SetDTAofs,
0065B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0065C0: 20 20 20 20 20 28 2A 20 6E 61 63 68 20 50 72 6F (* nach Pro
0065D0: 67 72 61 6D 6D 73 74 61 72 74 20 2A 29 0D 0A 20 grammstart *)..
0065E0: 20 46 65 68 6C 65 72 2C 20 20 20 20 20 20 20 20 Fehler,
0065F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006600: 20 20 20 20 20 20 28 2A 20 46 65 68 6C 65 72 20 (* Fehler
006610: 43 6F 64 65 20 2A 29 0D 0A 20 20 49 2C 20 4A 2C Code *).. I, J,
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: 28 2A 20 5A 61 65 68 6C 65 72 20 2A 29 0D 0A 20 (* Zaehler *)..
006650: 20 4F 70 74 69 6F 6E 20 3A 20 49 6E 74 65 67 65 Option : Intege
006660: 72 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 r;
006670: 20 20 20 20 20 20 28 2A 20 66 75 65 72 20 44 61 (* fuer Da
006680: 74 65 69 61 74 74 72 69 62 75 74 65 20 2A 29 0D teiattribute *).
006690: 0A 20 20 52 65 67 73 20 3A 20 72 65 67 69 73 74 . Regs : regist
0066A0: 65 72 73 3B 20 20 20 20 20 20 20 20 20 20 20 20 ers;
0066B0: 20 20 20 20 20 20 20 20 28 2A 20 72 65 67 69 73 (* regis
0066C0: 74 65 72 20 66 75 65 72 20 44 4F 53 20 61 75 66 ter fuer DOS auf
0066D0: 72 75 66 65 20 2A 29 0D 0A 20 20 42 75 66 66 65 rufe *).. Buffe
0066E0: 72 2C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 r,
0066F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006700: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006710: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 41 -------------..A
006720: 75 73 77 61 68 6C 20 20 67 69 62 74 20 64 65 6E uswahl gibt den
006730: 20 43 6F 64 65 20 28 20 44 61 74 65 69 61 74 74 Code ( Dateiatt
006740: 72 69 62 75 74 20 29 61 75 73 2C 20 20 64 65 72 ribut )aus, der
006750: 20 62 65 6E 75 74 7A 74 20 77 75 72 64 65 2C 20 benutzt wurde,
006760: 20 75 6D 0D 0A 64 69 65 20 20 44 61 74 65 69 6E um..die Datein
006770: 61 6D 65 6E 20 20 64 65 72 20 67 65 67 65 6E 77 amen der gegenw
006780: 61 65 72 74 69 67 65 6E 20 44 69 72 65 63 74 6F aertigen Directo
006790: 72 79 20 7A 75 20 66 69 6E 64 65 6E 20 20 28 64 ry zu finden (d
0067A0: 2E 68 2E 20 20 56 65 72 2D 0D 0A 73 74 65 63 6B .h. Ver-..steck
0067B0: 74 2C 20 53 74 61 6E 64 61 72 64 20 6F 64 65 72 t, Standard oder
0067C0: 20 44 69 72 65 63 74 6F 72 79 20 29 0D 0A 2D 2D Directory )..--
0067D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0067E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0067F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006800: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006810: 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 *)....procedure
006820: 41 75 73 77 61 68 6C 28 20 76 61 72 20 4F 70 74 Auswahl( var Opt
006830: 69 6F 6E 20 3A 20 49 6E 74 65 67 65 72 20 29 3B ion : Integer );
006840: 0D 0A 76 61 72 0D 0A 20 20 43 68 20 3A 20 43 68 ..var.. Ch : Ch
006850: 61 72 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 43 68 ar;..begin.. Ch
006860: 20 3A 3D 20 27 3F 27 3B 0D 0A 20 20 4F 70 74 69 := '?';.. Opti
006870: 6F 6E 20 3A 3D 20 31 3B 0D 0A 20 20 77 68 69 6C on := 1;.. whil
006880: 65 20 28 20 43 68 20 3D 20 27 3F 27 20 29 20 64 e ( Ch = '?' ) d
006890: 6F 20 62 65 67 69 6E 0D 0A 20 20 20 20 57 72 69 o begin.. Wri
0068A0: 74 65 28 20 27 44 61 74 65 69 61 75 73 77 61 68 te( 'Dateiauswah
0068B0: 6C 20 2C 20 5B 20 3F 20 5D 20 66 75 65 72 20 49 l , [ ? ] fuer I
0068C0: 6E 66 6F 20 3A 20 27 20 29 3B 0D 0A 20 20 20 20 nfo : ' );..
0068D0: 52 65 61 64 4C 6E 28 20 43 68 20 29 3B 0D 0A 20 ReadLn( Ch );..
0068E0: 20 20 20 57 72 69 74 65 4C 6E 3B 0D 0A 20 20 20 WriteLn;..
0068F0: 20 63 61 73 65 20 28 20 43 68 20 29 20 6F 66 0D case ( Ch ) of.
006900: 28 2A 20 55 6E 69 76 65 72 73 61 6C 70 75 66 66 (* Universalpuff
006910: 65 72 20 2A 29 0D 0A 20 20 4E 61 6D 52 20 3A 20 er *).. NamR :
006920: 53 74 72 69 6E 67 38 30 3B 20 20 20 20 20 20 20 String80;
006930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2A (*
006940: 20 44 61 74 65 69 6E 61 6D 65 20 2A 29 0D 0A 20 Dateiname *)..
006950: 20 4D 61 73 6B 20 3A 20 43 68 61 72 38 30 61 72 Mask : Char80ar
006960: 72 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 r;
006970: 20 20 20 20 20 20 28 2A 20 44 61 74 65 69 6D 61 (* Dateima
006980: 73 6B 65 20 2A 29 0D 0A 0D 0A 28 2A 2D 2D 2D 2D ske *)....(*----
006990: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0069A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0069B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0069C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 -------------..
0069D0: 53 65 74 7A 65 44 54 41 20 73 65 74 7A 74 20 64 SetzeDTA setzt d
0069E0: 69 65 20 67 65 67 65 6E 77 61 65 72 74 69 67 65 ie gegenwaertige
0069F0: 6E 20 44 54 41 20 61 75 66 20 64 69 65 20 6E 65 n DTA auf die ne
006A00: 75 65 20 41 64 72 65 73 73 65 2C 20 20 64 69 65 ue Adresse, die
006A10: 0D 0A 20 64 75 72 63 68 20 64 65 6E 20 50 61 72 .. durch den Par
006A20: 61 6D 65 74 65 72 65 6E 20 27 53 45 47 4D 45 4E ameteren 'SEGMEN
006A30: 54 27 20 75 6E 64 20 27 4F 46 46 53 45 54 27 20 T' und 'OFFSET'
006A40: 73 70 65 7A 69 66 69 7A 69 65 72 74 20 73 69 6E spezifiziert sin
006A50: 64 2E 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D d...------------
006A60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006A70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006A80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006A90: 2D 2D 2D 2D 2D 2A 29 0D 0A 0D 0A 70 72 6F 63 65 -----*)....proce
006AA0: 64 75 72 65 20 53 65 74 7A 65 44 54 41 28 20 53 dure SetzeDTA( S
006AB0: 65 67 6D 65 6E 74 2C 20 4F 66 66 73 65 74 20 3A egment, Offset :
006AC0: 20 49 6E 74 65 67 65 72 3B 20 76 61 72 20 46 65 Integer; var Fe
006AD0: 68 6C 65 72 20 3A 20 49 6E 74 65 67 65 72 20 29 hler : Integer )
006AE0: 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 52 65 67 73 ;..begin.. Regs
006AF0: 2E 41 58 20 3A 3D 20 24 31 41 30 30 3B 20 20 20 .AX := $1A00;
006B00: 0A 20 20 20 20 20 20 27 31 27 20 3A 20 4F 70 74 . '1' : Opt
006B10: 69 6F 6E 20 3A 3D 20 31 3B 20 20 20 20 20 20 20 ion := 1;
006B20: 20 28 2A 20 2D 5C 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 2A 29 0D 0A 20 20 20 20 20 20 27 32 27 *).. '2'
006B50: 20 3A 20 4F 70 74 69 6F 6E 20 3A 3D 20 37 3B 20 : Option := 7;
006B60: 20 20 20 20 20 20 20 28 2A 20 20 20 5C 20 20 20 (* \
006B70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006B80: 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 20 20 20 *)..
006B90: 20 20 20 27 33 27 20 3A 20 4F 70 74 69 6F 6E 20 '3' : Option
006BA0: 3A 3D 20 38 3B 20 20 20 20 20 20 20 20 28 2A 20 := 8; (*
006BB0: 20 20 20 2D 20 4D 6F 65 67 6C 69 63 68 65 20 4F - Moegliche O
006BC0: 70 74 69 6F 6E 65 6E 20 20 20 20 20 20 20 20 2A ptionen *
006BD0: 29 0D 0A 20 20 20 20 20 20 27 34 27 20 3A 20 4F ).. '4' : O
006BE0: 70 74 69 6F 6E 20 3A 3D 20 31 36 3B 20 20 20 20 ption := 16;
006BF0: 20 20 20 28 2A 20 20 20 20 2D 20 45 72 6B 6C 61 (* - Erkla
006C00: 65 72 75 6E 67 20 73 69 65 68 65 20 75 6E 74 65 erung siehe unte
006C10: 6E 20 20 20 20 2A 29 0D 0A 20 20 20 20 20 20 27 n *).. '
006C20: 35 27 20 3A 20 4F 70 74 69 6F 6E 20 3A 3D 20 32 5' : Option := 2
006C30: 32 3B 20 20 20 20 20 20 20 28 2A 20 20 20 2F 20 2; (* /
006C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006C50: 20 20 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 20 *)..
006C60: 20 20 20 20 20 27 36 27 20 3A 20 4F 70 74 69 6F '6' : Optio
006C70: 6E 20 3A 3D 20 33 31 3B 20 20 20 20 20 20 20 28 n := 31; (
006C80: 2A 20 2D 2F 20 20 20 20 20 20 20 20 20 20 20 20 * -/
006C90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006CA0: 20 2A 29 0D 0A 20 20 20 20 20 20 27 3F 27 20 3A *).. '?' :
006CB0: 20 62 65 67 69 6E 20 20 20 20 20 20 20 20 20 20 begin
006CC0: 20 20 20 20 20 28 2A 20 7A 65 69 67 74 20 61 6C (* zeigt al
006CD0: 6C 65 20 4F 70 74 69 6F 6E 65 6E 20 20 20 20 20 le Optionen
006CE0: 20 20 20 20 20 20 20 2A 29 0D 0A 20 20 20 20 20 *)..
006CF0: 20 20 20 20 20 20 20 20 20 57 72 69 74 65 4C 6E WriteLn
006D00: 20 20 20 20 20 20 28 2A 20 46 75 6E 6B 74 69 6F (* Funktio
006D10: 6E 20 75 6D 20 64 69 65 20 44 54 41 20 7A 75 20 n um die DTA zu
006D20: 73 65 74 7A 65 6E 20 2A 29 0D 0A 20 20 52 65 67 setzen *).. Reg
006D30: 73 2E 44 53 20 3A 3D 20 53 65 67 6D 65 6E 74 3B s.DS := Segment;
006D40: 20 20 20 20 20 20 20 28 2A 20 53 70 65 69 63 68 (* Speich
006D50: 65 72 65 20 50 61 72 61 6D 65 74 65 72 20 53 65 ere Parameter Se
006D60: 67 6D 65 6E 74 20 69 6E 20 44 53 20 2A 29 0D 0A gment in DS *)..
006D70: 20 20 52 65 67 73 2E 44 58 20 3A 3D 20 4F 66 66 Regs.DX := Off
006D80: 73 65 74 3B 20 20 20 20 20 20 20 20 28 2A 20 20 set; (*
006D90: 20 22 20 20 20 20 20 20 20 20 20 20 20 22 20 20 " "
006DA0: 20 20 20 4F 66 66 73 65 74 20 69 6E 20 44 58 20 Offset in DX
006DB0: 2A 29 0D 0A 20 20 4D 53 44 6F 73 28 20 52 65 67 *).. MSDos( Reg
006DC0: 73 20 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 s );
006DD0: 28 2A 20 53 65 74 7A 65 20 44 54 41 20 2A 29 0D (* Setze DTA *).
006DE0: 0A 20 20 46 65 68 6C 65 72 20 3A 3D 20 52 65 67 . Fehler := Reg
006DF0: 73 2E 41 58 20 61 6E 64 20 24 46 46 3B 20 28 2A s.AX and $FF; (*
006E00: 20 46 65 68 6C 65 72 63 6F 64 65 20 68 6F 6C 65 Fehlercode hole
006E10: 6E 20 2A 29 0D 0A 65 6E 64 3B 20 28 2A 20 64 65 n *)..end; (* de
006E20: 72 20 50 72 6F 7A 65 64 75 72 20 53 65 74 7A 65 r Prozedur Setze
006E30: 44 54 41 20 2A 29 0D 0A 0D 0A 28 2A 20 2D 2D 2D DTA *)....(* ---
006E40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006E50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006E60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
006E70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 47 -------------..G
006E80: 65 74 43 75 72 72 65 6E 74 44 54 41 20 77 69 72 etCurrentDTA wir
006E90: 64 20 62 65 6E 75 74 7A 74 2C 20 20 75 6D 20 64 d benutzt, um d
006EA0: 69 65 20 41 64 72 65 73 73 65 20 64 65 73 20 67 ie Adresse des g
006EB0: 65 67 65 6E 2D 0D 0A 77 61 65 72 74 69 67 65 6E egen-..waertigen
006EC0: 20 20 44 69 73 6B 65 74 74 65 6E 75 65 62 65 72 Diskettenueber
006ED0: 74 72 61 67 75 6E 67 73 62 65 72 65 69 63 68 73 tragungsbereichs
006EE0: 20 28 20 44 54 41 20 29 20 7A 75 20 20 65 72 68 ( DTA ) zu erh
006EF0: 61 6C 74 65 6E 2E 20 20 45 73 0D 0A 69 73 74 20 alten. Es..ist
006F00: 28 20 27 45 73 20 67 69 62 74 20 66 6F 6C 67 65 ( 'Es gibt folge
006F10: 6E 64 65 20 4F 70 74 69 6F 6E 65 6E 20 3A 20 27 nde Optionen : '
006F20: 20 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 );..
006F30: 20 20 20 57 72 69 74 65 4C 6E 3B 0D 0A 20 20 20 WriteLn;..
006F40: 20 20 20 20 20 20 20 20 20 20 20 57 72 69 74 65 Write
006F50: 4C 6E 28 20 27 20 5B 20 31 20 5D 20 66 75 65 72 Ln( ' [ 1 ] fuer
006F60: 20 53 74 61 6E 64 61 72 64 20 44 61 74 65 69 65 Standard Dateie
006F70: 6E 20 5B 20 64 65 66 61 75 6C 74 20 5D 2E 27 20 n [ default ].'
006F80: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
006F90: 20 20 57 72 69 74 65 28 20 27 20 5B 20 32 20 5D Write( ' [ 2 ]
006FA0: 20 66 75 65 72 20 53 79 73 74 65 6D 64 61 74 65 fuer Systemdate
006FB0: 69 65 6E 2C 20 76 65 72 73 74 65 63 6B 74 65 20 ien, versteckte
006FC0: 44 61 74 65 69 65 6E 20 27 20 29 3B 0D 0A 20 20 Dateien ' );..
006FD0: 20 20 20 20 20 20 20 20 20 20 20 20 57 72 69 74 Writ
006FE0: 65 4C 6E 28 20 27 75 6E 64 20 53 74 61 6E 64 61 eLn( 'und Standa
006FF0: 72 64 20 44 61 74 65 69 65 6E 2E 27 20 29 3B 0D rd Dateien.' );.
007000: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 . W
007010: 72 69 74 65 4C 6E 28 20 27 20 5B 20 33 20 5D 20 riteLn( ' [ 3 ]
007020: 66 75 65 72 20 44 69 73 6B 65 74 74 65 6E 20 4C fuer Disketten L
007030: 61 62 65 6C 2E 27 20 29 3B 0D 0A 20 20 20 20 20 abel.' );..
007040: 20 20 20 20 20 20 20 20 20 57 72 69 74 65 28 20 Write(
007050: 27 20 5B 20 34 20 5D 20 66 75 65 72 20 49 6E 68 ' [ 4 ] fuer Inh
007060: 61 6C 74 73 76 65 72 7A 65 69 63 68 6E 69 73 73 altsverzeichniss
007070: 65 20 27 20 29 3B 0D 0A 20 20 20 20 20 20 20 20 e ' );..
007080: 20 20 20 20 20 20 57 72 69 74 65 4C 6E 28 20 27 WriteLn( '
007090: 75 6E 64 20 53 74 61 6E 64 61 72 64 20 44 61 74 und Standard Dat
0070A0: 65 69 65 6E 2E 27 20 29 3B 0D 0A 20 20 20 20 20 eien.' );..
0070B0: 20 20 20 20 20 20 20 20 20 57 72 69 74 65 4C 6E WriteLn
0070C0: 28 20 27 20 5B 20 35 20 5D 20 66 75 65 72 20 49 ( ' [ 5 ] fuer I
0070D0: 6E 68 61 6C 74 73 76 65 72 7A 65 69 63 68 6E 69 nhaltsverzeichni
0070E0: 73 73 65 2C 20 76 65 72 73 74 65 63 6B 74 65 20 sse, versteckte
0070F0: 6F 64 65 72 20 27 20 29 3B 0D 0A 20 20 20 20 20 oder ' );..
007100: 20 65 69 6E 20 20 46 75 6E 6B 74 69 6F 6E 73 63 ein Funktionsc
007110: 6F 64 65 20 20 76 6F 6E 20 24 32 46 20 20 69 6E ode von $2F in
007120: 20 64 65 6D 20 68 6F 65 68 65 72 65 6E 20 20 42 dem hoeheren B
007130: 79 74 65 20 20 64 65 73 20 20 41 58 0D 0A 52 65 yte des AX..Re
007140: 67 69 73 74 65 72 73 20 67 65 73 70 65 69 63 68 gisters gespeich
007150: 65 72 74 2C 20 20 75 6E 64 20 65 73 20 77 69 72 ert, und es wir
007160: 64 20 65 69 6E 20 41 6E 72 75 66 20 61 6E 20 64 d ein Anruf an d
007170: 69 65 20 20 76 6F 72 64 65 66 69 6E 69 65 72 74 ie vordefiniert
007180: 65 0D 0A 50 72 6F 7A 65 64 75 72 20 20 4D 53 44 e..Prozedur MSD
007190: 4F 53 20 67 65 6D 61 63 68 74 2E 20 20 44 69 65 OS gemacht. Die
0071A0: 73 20 6B 61 6E 6E 20 61 75 63 68 20 64 75 72 63 s kann auch durc
0071B0: 68 20 42 65 6E 75 74 7A 75 6E 67 20 64 65 72 20 h Benutzung der
0071C0: 22 49 6E 74 72 22 0D 0A 50 72 6F 7A 65 64 75 72 "Intr"..Prozedur
0071D0: 2C 20 6D 69 74 20 64 65 6D 73 65 6C 62 65 6E 20 , mit demselben
0071E0: 52 65 67 69 73 74 65 72 72 65 63 6F 72 64 20 75 Registerrecord u
0071F0: 6E 64 20 65 69 6E 65 72 20 24 32 31 20 53 70 65 nd einer $21 Spe
007200: 7A 69 66 69 6B 61 74 69 6F 6E 0D 0A 66 75 65 72 zifikation..fuer
007210: 20 64 65 6E 20 41 62 62 72 75 63 68 2C 20 65 72 den Abbruch, er
007220: 72 65 69 63 68 74 20 77 65 72 64 65 6E 2E 0D 0A reicht werden...
007230: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
007240: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
007250: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
007260: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
007270: 2D 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 -*)....procedure
007280: 20 47 65 74 43 75 72 72 65 6E 74 44 54 41 28 20 GetCurrentDTA(
007290: 76 61 72 20 53 65 67 6D 65 6E 74 2C 20 4F 66 66 var Segment, Off
0072A0: 73 65 74 20 3A 20 49 6E 74 65 67 65 72 3B 0D 0A set : Integer;..
0072B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0072C0: 20 20 20 20 20 20 20 20 20 76 61 72 20 46 65 68 var Feh
0072D0: 6C 65 72 20 3A 20 49 6E 74 65 67 65 72 20 29 3B ler : Integer );
0072E0: 0D 0A 62 65 67 69 6E 0D 0A 20 20 52 65 67 73 2E ..begin.. Regs.
0072F0: 41 58 20 3A 3D 20 24 32 46 30 30 3B 20 20 20 20 AX := $2F00;
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 20 20 20 20 20 20 20 57 72 69 74 65 4C 6E WriteLn
007410: 28 20 27 20 20 20 20 20 20 20 53 79 73 74 65 6D ( ' System
007420: 20 75 6E 64 20 53 74 61 6E 64 61 72 64 20 44 61 und Standard Da
007430: 74 65 69 65 6E 27 20 29 3B 0D 0A 20 20 20 20 20 teien' );..
007440: 20 20 20 20 20 20 20 20 20 57 72 69 74 65 4C 6E WriteLn
007450: 28 20 27 20 5B 20 36 20 5D 20 77 69 65 20 35 20 ( ' [ 6 ] wie 5
007460: 61 62 65 72 20 6D 69 74 20 44 69 73 6B 65 74 74 aber mit Diskett
007470: 65 6E 20 4C 61 62 65 6C 27 20 29 3B 0D 0A 20 20 en Label' );..
007480: 20 20 20 20 20 20 20 20 20 20 20 20 57 72 69 74 Writ
007490: 65 4C 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 eLn;..
0074A0: 20 65 6E 64 3B 0D 0A 20 20 20 20 65 6C 73 65 20 end;.. else
0074B0: 4F 70 74 69 6F 6E 20 3A 3D 20 31 3B 20 28 2A 20 Option := 1; (*
0074C0: 77 65 6E 6E 20 6E 69 63 68 74 73 20 6F 64 65 72 wenn nichts oder
0074D0: 20 65 74 77 61 73 20 66 61 6C 73 63 68 65 73 20 etwas falsches
0074E0: 65 69 6E 67 65 74 69 70 70 74 20 77 75 72 64 65 eingetippt wurde
0074F0: 20 2A 29 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 20 *).. end;..
007500: 20 65 6E 64 0D 0A 65 6E 64 3B 20 28 2A 20 64 65 end..end; (* de
007510: 72 20 50 72 6F 7A 65 64 75 72 20 41 75 73 77 61 r Prozedur Auswa
007520: 68 6C 20 2A 29 0D 0A 0D 0A 28 2A 2D 2D 2D 2D 2D hl *)....(*-----
007530: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
007540: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
007550: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
007560: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 47 -------------..G
007570: 65 74 46 69 72 73 74 20 20 6E 69 6D 6D 74 20 20 etFirst nimmt
007580: 64 69 65 20 65 72 73 74 65 20 44 69 72 65 63 74 die erste Direct
007590: 6F 72 79 2D 45 69 6E 74 72 61 67 75 6E 67 20 65 ory-Eintragung e
0075A0: 69 6E 65 72 20 20 62 65 73 6F 6E 64 65 72 65 6E iner besonderen
0075B0: 0D 0A 44 61 74 65 69 6D 61 73 6B 65 2E 20 44 69 ..Dateimaske. Di
0075C0: 65 20 4D 61 73 6B 65 20 77 69 72 64 20 61 6C 73 e Maske wird als
0075D0: 20 50 61 72 61 6D 65 74 65 72 20 27 4D 61 73 6B Parameter 'Mask
0075E0: 65 27 20 75 65 62 65 72 67 65 62 65 6E 2C 20 75 e' uebergeben, u
0075F0: 6E 64 20 64 69 65 0D 0A 57 61 68 6C 20 20 20 77 nd die..Wahl w
007600: 53 65 67 6D 65 6E 74 20 3A 20 4F 66 66 73 65 74 Segment : Offset
007610: 20 2B 20 32 39 20 2B 20 49 20 5D 20 29 3B 0D 0A + 29 + I ] );..
007620: 20 20 20 20 49 20 3A 3D 20 49 20 2B 20 31 3B 0D I := I + 1;.
007630: 0A 20 20 75 6E 74 69 6C 20 28 20 6E 6F 74 20 28 . until ( not (
007640: 20 4E 61 6D 52 5B 20 49 20 2D 20 31 20 5D 20 69 NamR[ I - 1 ] i
007650: 6E 20 5B 20 27 20 27 2E 2E 27 7E 27 20 5D 20 29 n [ ' '..'~' ] )
007660: 29 3B 0D 0A 20 20 4E 61 6D 52 5B 20 30 20 5D 20 );.. NamR[ 0 ]
007670: 3A 3D 20 43 68 72 28 20 49 20 2D 20 31 20 29 3B := Chr( I - 1 );
007680: 0D 0A 65 6E 64 3B 20 28 2A 20 64 65 72 20 50 72 ..end; (* der Pr
007690: 6F 7A 65 64 75 72 20 47 65 74 4E 65 78 74 45 6E ozedur GetNextEn
0076A0: 74 72 79 20 2A 29 0D 0A 0D 0A 28 2A 0D 0A 20 20 try *)....(*..
0076B0: 20 20 20 20 20 20 20 20 20 20 20 20 48 61 75 70 Haup
0076C0: 74 70 72 6F 67 72 61 6D 6D 20 76 6F 6E 20 51 44 tprogramm von QD
0076D0: 4C 0D 0A 2A 29 0D 0A 0D 0A 62 65 67 69 6E 0D 0A L..*)....begin..
0076E0: 20 20 66 6F 72 20 49 20 3A 3D 20 31 20 74 6F 20 for I := 1 to
0076F0: 32 31 20 64 6F 20 44 54 41 5B 20 49 20 5D 20 3A 21 do DTA[ I ] :
007700: 3D 20 30 3B 20 20 28 2A 20 44 54 41 20 49 6E 69 = 0; (* DTA Ini
007710: 74 69 61 6C 69 73 69 65 72 65 6E 20 2A 29 0D 0A tialisieren *)..
007720: 20 20 20 20 66 6F 72 20 49 20 3A 3D 20 31 20 74 for I := 1 t
007730: 6F 20 38 30 20 64 6F 20 62 65 67 69 6E 20 20 20 o 80 do begin
007740: 28 2A 20 4D 61 73 6B 20 75 6E 64 20 44 61 74 65 (* Mask und Date
007750: 69 6E 61 6D 65 6E 70 75 66 66 65 72 20 69 6E 69 inamenpuffer ini
007760: 74 69 61 6C 69 73 69 65 72 65 6E 20 2A 29 0D 0A tialisieren *)..
007770: 20 20 20 20 20 20 4D 61 73 6B 5B 20 49 20 5D 20 Mask[ I ]
007780: 3A 3D 20 43 68 72 28 20 30 20 29 3B 0D 0A 20 20 := Chr( 0 );..
007790: 20 20 20 20 4E 61 6D 52 5B 20 49 20 5D 20 3A 3D NamR[ I ] :=
0077A0: 20 43 68 72 28 20 30 20 29 3B 0D 0A 20 20 20 20 Chr( 0 );..
0077B0: 65 6E 64 3B 0D 0A 20 20 4E 61 6D 52 5B 20 30 20 end;.. NamR[ 0
0077C0: 5D 20 3A 3D 20 43 68 72 28 20 30 20 29 3B 20 20 ] := Chr( 0 );
0077D0: 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 44 (* D
0077E0: 61 74 65 69 6E 61 6D 65 6E 6C 61 65 6E 67 65 20 ateinamenlaenge
0077F0: 61 75 66 20 30 20 73 65 74 7A 65 6E 20 2A 29 0D auf 0 setzen *).
007800: 75 72 64 65 20 20 76 6F 72 68 65 72 20 20 69 6E urde vorher in
007810: 20 20 50 72 6F 7A 65 64 75 72 20 20 20 53 70 65 Prozedur Spe
007820: 7A 69 66 69 7A 69 65 72 57 61 68 6C 2C 20 20 20 zifizierWahl,
007830: 66 65 73 74 67 65 6C 65 67 74 2E 0D 0A 2D 2D 2D festgelegt...---
007840: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
007850: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
007860: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
007870: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2A ---------------*
007880: 29 0D 0A 70 72 6F 63 65 64 75 72 65 20 47 65 74 )..procedure Get
007890: 46 69 72 73 74 28 20 4D 61 73 6B 20 20 20 20 20 First( Mask
0078A0: 20 20 20 20 20 20 20 3A 20 43 68 61 72 38 30 61 : Char80a
0078B0: 72 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 rr;..
0078C0: 20 20 20 20 20 20 20 20 20 76 61 72 20 4E 61 6D var Nam
0078D0: 52 20 20 20 20 20 20 20 20 3A 20 53 74 72 69 6E R : Strin
0078E0: 67 38 30 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 g80;..
0078F0: 20 20 20 20 20 20 20 20 20 20 53 65 67 6D 65 6E Segmen
007900: 74 2C 20 4F 66 66 73 65 74 20 3A 20 49 6E 74 65 t, Offset : Inte
007910: 67 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ger;..
007920: 20 20 20 20 20 20 20 20 20 20 4F 70 74 69 6F 6E Option
007930: 20 20 20 20 20 20 20 20 20 20 3A 20 49 6E 74 65 : Inte
007940: 67 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ger;..
007950: 20 20 20 20 20 20 20 20 20 20 76 61 72 20 46 65 var Fe
007960: 68 6C 65 72 20 20 20 20 20 20 3A 20 49 6E 74 65 hler : Inte
007970: 67 65 72 20 29 3B 0D 0A 76 61 72 0D 0A 20 20 49 ger );..var.. I
007980: 20 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 62 65 67 : Integer;..beg
007990: 69 6E 0D 0A 20 20 46 65 68 6C 65 72 20 3A 3D 20 in.. Fehler :=
0079A0: 30 3B 0D 0A 20 20 52 65 67 73 2E 41 58 20 3A 3D 0;.. Regs.AX :=
0079B0: 20 24 34 45 30 30 3B 20 20 20 20 20 20 20 20 20 $4E00;
0079C0: 20 28 2A 20 45 72 73 74 65 6E 20 44 69 72 65 63 (* Ersten Direc
0079D0: 74 6F 72 79 20 45 69 6E 74 72 61 67 20 68 6F 6C tory Eintrag hol
0079E0: 65 6E 20 2A 29 0D 0A 20 20 52 65 67 73 2E 44 53 en *).. Regs.DS
0079F0: 20 3A 3D 20 53 65 67 28 20 4D 61 73 6B 20 29 3B := Seg( Mask );
007A00: 0A 20 20 57 72 69 74 65 4C 6E 28 20 27 51 44 4C . WriteLn( 'QDL
007A10: 20 56 65 72 73 69 6F 6E 20 47 45 52 20 32 2E 30 Version GER 2.0
007A20: 30 41 27 20 29 3B 0D 0A 20 20 57 72 69 74 65 4C 0A' );.. WriteL
007A30: 6E 3B 0D 0A 20 20 47 65 74 43 75 72 72 65 6E 74 n;.. GetCurrent
007A40: 44 54 41 28 20 44 54 41 73 65 67 2C 20 44 54 41 DTA( DTAseg, DTA
007A50: 6F 66 73 2C 20 46 65 68 6C 65 72 20 29 3B 20 20 ofs, Fehler );
007A60: 28 2A 20 41 6B 74 75 65 6C 6C 65 20 44 54 41 20 (* Aktuelle DTA
007A70: 41 64 64 72 65 73 73 65 20 68 6F 6C 65 6E 20 2A Addresse holen *
007A80: 29 0D 0A 20 20 69 66 20 28 20 46 65 68 6C 65 72 ).. if ( Fehler
007A90: 20 3C 3E 20 30 20 29 20 74 68 65 6E 20 62 65 67 <> 0 ) then beg
007AA0: 69 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 28 in (
007AB0: 2A 20 46 65 68 6C 65 72 70 72 75 65 66 75 6E 67 * Fehlerpruefung
007AC0: 20 2A 29 0D 0A 20 20 20 20 57 72 69 74 65 4C 6E *).. WriteLn
007AD0: 28 20 27 41 6B 74 75 65 6C 6C 65 20 44 54 41 20 ( 'Aktuelle DTA
007AE0: 6E 69 63 68 74 20 67 65 66 75 6E 64 65 6E 27 20 nicht gefunden'
007AF0: 29 3B 0D 0A 20 20 20 20 57 72 69 74 65 4C 6E 28 );.. WriteLn(
007B00: 20 27 50 72 6F 67 72 61 6D 6D 61 62 62 72 75 63 'Programmabbruc
007B10: 68 2E 27 20 29 3B 20 20 20 20 20 20 20 20 20 20 h.' );
007B20: 28 2A 20 50 72 6F 67 72 61 6D 6D 61 62 62 72 75 (* Programmabbru
007B30: 63 68 2E 20 2A 29 0D 0A 20 20 20 20 48 61 6C 74 ch. *).. Halt
007B40: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
007B50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007B60: 20 20 20 20 28 2A 20 50 72 6F 67 72 61 6D 6D 65 (* Programme
007B70: 6E 64 65 20 2A 29 0D 0A 20 20 65 6E 64 3B 0D 0A nde *).. end;..
007B80: 20 20 53 65 74 44 54 41 73 65 67 20 3A 3D 20 53 SetDTAseg := S
007B90: 65 67 28 20 44 54 41 20 29 3B 0D 0A 20 20 53 65 eg( DTA );.. Se
007BA0: 74 44 54 41 6F 66 73 20 3A 3D 20 4F 66 73 28 20 tDTAofs := Ofs(
007BB0: 44 54 41 20 29 3B 0D 0A 20 20 53 65 74 7A 65 44 DTA );.. SetzeD
007BC0: 54 41 28 20 53 65 74 44 54 41 73 65 67 2C 20 53 TA( SetDTAseg, S
007BD0: 65 74 44 54 41 6F 66 73 2C 20 46 65 68 6C 65 72 etDTAofs, Fehler
007BE0: 20 29 3B 20 28 2A 20 44 54 41 20 41 64 64 72 65 ); (* DTA Addre
007BF0: 73 73 65 20 7A 75 72 75 65 63 6B 73 65 74 7A 65 sse zuruecksetze
007C00: 20 20 20 20 28 2A 20 5A 65 69 67 65 72 20 61 75 (* Zeiger au
007C10: 66 20 44 61 74 65 69 6E 61 6D 65 6E 6D 61 73 6B f Dateinamenmask
007C20: 65 20 2A 29 0D 0A 20 20 52 65 67 73 2E 44 58 20 e *).. Regs.DX
007C30: 3A 3D 20 4F 66 73 28 20 4D 61 73 6B 20 29 3B 0D := Ofs( Mask );.
007C40: 0A 20 20 52 65 67 73 2E 43 58 20 3A 3D 20 4F 70 . Regs.CX := Op
007C50: 74 69 6F 6E 3B 20 20 20 20 20 20 20 20 20 28 2A tion; (*
007C60: 20 41 74 74 72 69 62 75 74 20 3D 20 4F 70 74 69 Attribut = Opti
007C70: 6F 6E 20 2A 29 0D 0A 20 20 4D 53 44 6F 73 28 20 on *).. MSDos(
007C80: 52 65 67 73 20 29 3B 20 20 20 20 20 20 20 20 20 Regs );
007C90: 20 20 20 20 28 2A 20 4D 53 44 6F 73 20 61 75 66 (* MSDos auf
007CA0: 72 75 66 20 2A 29 0D 0A 20 20 46 65 68 6C 65 72 ruf *).. Fehler
007CB0: 20 3A 3D 20 52 65 67 73 2E 41 58 20 61 6E 64 20 := Regs.AX and
007CC0: 24 46 46 3B 20 20 28 2A 20 46 65 68 6C 65 72 63 $FF; (* Fehlerc
007CD0: 6F 64 65 20 68 6F 6C 65 6E 20 2A 29 0D 0A 20 20 ode holen *)..
007CE0: 49 20 3A 3D 20 31 3B 20 20 20 20 20 20 20 20 20 I := 1;
007CF0: 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 49 6E (* In
007D00: 69 74 69 61 6C 69 73 69 65 72 65 20 49 20 66 75 itialisiere I fu
007D10: 65 72 20 64 65 6E 20 65 72 73 74 65 6E 20 42 75 er den ersten Bu
007D20: 63 68 73 74 61 62 65 6E 20 2A 29 0D 0A 20 20 72 chstaben *).. r
007D30: 65 70 65 61 74 20 20 20 20 20 20 20 20 20 20 20 epeat
007D40: 20 20 20 20 20 20 28 2A 20 53 63 68 6C 65 69 66 (* Schleif
007D50: 65 20 7A 75 6D 20 6C 65 73 65 6E 20 64 65 73 20 e zum lesen des
007D60: 65 72 73 74 65 6E 20 45 69 6E 74 72 61 67 73 20 ersten Eintrags
007D70: 76 6F 6E 20 44 54 41 20 2A 29 0D 0A 20 20 20 20 von DTA *)..
007D80: 4E 61 6D 52 5B 20 49 20 5D 20 3A 3D 20 43 68 72 NamR[ I ] := Chr
007D90: 28 20 6D 65 6D 5B 20 53 65 67 6D 65 6E 74 20 3A ( mem[ Segment :
007DA0: 20 4F 66 66 73 65 74 20 2B 20 32 39 20 2B 20 49 Offset + 29 + I
007DB0: 20 5D 20 29 3B 0D 0A 20 20 20 20 49 20 3A 3D 20 ] );.. I :=
007DC0: 49 20 2B 20 31 3B 0D 0A 20 20 75 6E 74 69 6C 20 I + 1;.. until
007DD0: 28 20 6E 6F 74 20 28 20 4E 61 6D 52 5B 20 49 20 ( not ( NamR[ I
007DE0: 2D 20 31 20 5D 20 69 6E 20 5B 20 27 20 27 2E 2E - 1 ] in [ ' '..
007DF0: 27 7E 27 20 5D 20 29 29 3B 0D 0A 20 20 4E 61 6D '~' ] ));.. Nam
007E00: 6E 20 2A 29 0D 0A 20 20 69 66 20 28 20 46 65 68 n *).. if ( Feh
007E10: 6C 65 72 20 3C 3E 20 30 20 29 20 74 68 65 6E 20 ler <> 0 ) then
007E20: 62 65 67 69 6E 20 20 20 20 20 20 20 20 20 20 20 begin
007E30: 20 20 28 2A 20 50 72 75 65 66 75 6E 67 20 61 75 (* Pruefung au
007E40: 66 20 46 65 68 6C 65 72 20 2A 29 0D 0A 20 20 20 f Fehler *)..
007E50: 20 57 72 69 74 65 4C 6E 28 20 27 44 54 41 20 6B WriteLn( 'DTA k
007E60: 61 6E 6E 20 6E 69 63 68 74 20 7A 75 72 01 63 6B ann nicht zur.ck
007E70: 67 65 73 65 74 7A 74 20 77 65 72 64 65 6E 27 20 gesetzt werden'
007E80: 29 3B 20 28 2A 20 46 65 68 6C 65 72 20 4D 65 6C ); (* Fehler Mel
007E90: 64 75 6E 67 20 2A 29 0D 0A 20 20 20 20 57 72 69 dung *).. Wri
007EA0: 74 65 4C 6E 28 20 27 50 72 6F 67 72 61 6D 6D 61 teLn( 'Programma
007EB0: 62 62 72 75 63 68 2E 27 20 29 3B 0D 0A 20 20 20 bbruch.' );..
007EC0: 20 48 61 6C 74 3B 20 20 20 20 20 20 20 20 20 20 Halt;
007ED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007EE0: 20 20 20 20 20 20 20 20 20 28 2A 20 50 72 6F 67 (* Prog
007EF0: 72 61 6D 6D 65 6E 64 65 20 2A 29 0D 0A 20 20 65 rammende *).. e
007F00: 6E 64 3B 0D 0A 20 20 46 65 68 6C 65 72 20 3A 3D nd;.. Fehler :=
007F10: 20 30 3B 0D 0A 20 20 42 75 66 66 65 72 5B 20 30 0;.. Buffer[ 0
007F20: 20 5D 20 3A 3D 20 43 68 72 28 20 30 20 29 3B 20 ] := Chr( 0 );
007F30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007F40: 20 28 2A 20 50 75 66 66 65 72 6C 61 65 6E 67 65 (* Pufferlaenge
007F50: 20 61 75 66 20 30 20 73 65 74 7A 65 6E 20 2A 29 auf 0 setzen *)
007F60: 0D 0A 20 20 41 75 73 77 61 68 6C 28 20 4F 70 74 .. Auswahl( Opt
007F70: 69 6F 6E 20 29 3B 20 20 20 20 20 20 20 20 20 20 ion );
007F80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2A (*
007F90: 20 41 74 74 72 69 62 75 74 20 65 69 6E 6C 65 73 Attribut einles
007FA0: 65 6E 20 2A 29 0D 0A 20 20 69 66 20 28 20 4F 70 en *).. if ( Op
007FB0: 74 69 6F 6E 20 3C 3E 20 38 20 29 20 74 68 65 6E tion <> 8 ) then
007FC0: 20 62 65 67 69 6E 0D 0A 20 20 20 20 57 72 69 74 begin.. Writ
007FD0: 65 28 20 27 44 61 74 65 69 6D 61 73 6B 65 20 3A e( 'Dateimaske :
007FE0: 20 27 20 29 3B 20 20 20 20 20 20 20 20 20 20 20 ' );
007FF0: 20 20 20 20 28 2A 20 46 72 61 67 65 20 2A 29 0D (* Frage *).
008000: 52 5B 20 30 20 5D 20 3A 3D 20 43 68 72 28 20 49 R[ 0 ] := Chr( I
008010: 20 2D 20 31 20 29 3B 20 20 28 2A 20 53 74 72 69 - 1 ); (* Stri
008020: 6E 67 6C 61 65 6E 67 65 20 69 6E 20 64 61 73 20 nglaenge in das
008030: 65 72 73 74 65 20 42 79 74 65 20 73 65 74 7A 65 erste Byte setze
008040: 6E 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 n *)..
008050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008060: 20 20 20 20 28 2A 20 64 61 20 65 73 20 68 69 65 (* da es hie
008070: 72 20 6E 69 63 68 74 20 61 75 74 6F 6D 61 74 69 r nicht automati
008080: 73 63 68 20 67 65 73 63 68 69 65 68 74 20 2A 29 sch geschieht *)
008090: 0D 0A 65 6E 64 3B 20 28 2A 20 64 65 72 20 50 72 ..end; (* der Pr
0080A0: 6F 7A 65 64 75 72 20 47 65 74 46 69 72 73 74 20 ozedur GetFirst
0080B0: 2A 29 0D 0A 0D 0A 28 2A 2D 2D 2D 2D 2D 2D 2D 2D *)....(*--------
0080C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0080D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0080E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0080F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 47 65 74 4E ----------..GetN
008100: 65 78 74 45 6E 74 72 79 20 62 65 6E 75 74 7A 74 extEntry benutzt
008110: 20 64 69 65 20 65 72 73 74 65 6E 20 42 79 74 65 die ersten Byte
008120: 73 20 64 65 73 20 44 54 41 20 66 75 65 72 20 20 s des DTA fuer
008130: 64 69 65 0D 0A 44 61 74 65 69 6D 61 73 6B 65 2C die..Dateimaske,
008140: 20 20 75 6E 64 20 20 67 69 62 74 20 20 64 69 65 und gibt die
008150: 20 6E 61 65 63 68 73 74 65 20 44 61 74 65 69 65 naechste Dateie
008160: 69 6E 74 72 61 67 75 6E 67 20 61 75 66 20 20 20 intragung auf
008170: 44 69 73 6B 65 74 74 65 0D 0A 65 6E 74 73 70 72 Diskette..entspr
008180: 65 63 68 65 6E 64 20 64 65 72 20 44 61 74 65 69 echend der Datei
008190: 6D 61 73 6B 65 20 61 75 73 2E 0D 0A 2D 2D 2D 2D maske aus...----
0081A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0081B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0081C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0081D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2A 29 --------------*)
0081E0: 0D 0A 70 72 6F 63 65 64 75 72 65 20 47 65 74 4E ..procedure GetN
0081F0: 65 78 74 45 6E 74 72 79 28 20 76 61 72 20 4E 61 extEntry( var Na
008200: 0A 20 20 20 20 52 65 61 64 4C 6E 28 20 42 75 66 . ReadLn( Buf
008210: 66 65 72 20 29 3B 0D 0A 20 20 20 20 57 72 69 74 fer );.. Writ
008220: 65 4C 6E 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 20 20 eLn;.. end;..
008230: 69 66 20 28 20 6C 65 6E 67 74 68 28 20 42 75 66 if ( length( Buf
008240: 66 65 72 20 29 20 3D 20 30 20 29 20 74 68 65 6E fer ) = 0 ) then
008250: 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 57 65 (* We
008260: 6E 6E 20 6E 69 63 68 74 73 20 65 69 6E 67 65 67 nn nichts eingeg
008270: 65 62 65 6E 20 2A 29 0D 0A 20 20 20 20 42 75 66 eben *).. Buf
008280: 66 65 72 20 3A 3D 20 27 3F 3F 3F 3F 3F 3F 3F 3F fer := '????????
008290: 2E 3F 3F 3F 27 3B 20 20 20 20 20 20 20 20 20 20 .???';
0082A0: 20 20 20 20 20 20 28 2A 20 77 75 72 64 65 2C 20 (* wurde,
0082B0: 64 61 6E 6E 20 61 6C 6C 65 20 44 61 74 65 69 65 dann alle Dateie
0082C0: 6E 20 2A 29 0D 0A 20 20 66 6F 72 20 49 20 3A 3D n *).. for I :=
0082D0: 20 31 20 74 6F 20 6C 65 6E 67 74 68 28 20 42 75 1 to length( Bu
0082E0: 66 66 65 72 20 29 20 64 6F 20 20 20 20 20 20 20 ffer ) do
0082F0: 20 20 20 28 2A 20 4D 61 73 6B 65 20 76 6F 6E 20 (* Maske von
008300: 42 75 66 66 65 72 20 6C 65 73 65 6E 20 2A 29 0D Buffer lesen *).
008310: 0A 20 20 20 20 4D 61 73 6B 5B 20 49 20 5D 20 3A . Mask[ I ] :
008320: 3D 20 42 75 66 66 65 72 5B 20 49 20 5D 3B 0D 0A = Buffer[ I ];..
008330: 20 20 47 65 74 46 69 72 73 74 28 20 4D 61 73 6B GetFirst( Mask
008340: 2C 20 4E 61 6D 52 2C 20 53 65 74 44 54 41 73 65 , NamR, SetDTAse
008350: 67 2C 20 53 65 74 44 54 41 6F 66 73 2C 20 4F 70 g, SetDTAofs, Op
008360: 74 69 6F 6E 2C 20 46 65 68 6C 65 72 20 29 3B 0D tion, Fehler );.
008370: 0A 20 20 69 66 20 28 20 46 65 68 6C 65 72 20 3D . if ( Fehler =
008380: 20 30 20 29 20 74 68 65 6E 20 62 65 67 69 6E 20 0 ) then begin
008390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2A (*
0083A0: 20 45 72 73 74 65 6E 20 45 69 6E 74 72 61 67 20 Ersten Eintrag
0083B0: 68 6F 6C 65 6E 20 2A 29 0D 0A 20 20 20 20 69 66 holen *).. if
0083C0: 20 28 20 4F 70 74 69 6F 6E 20 3C 3E 20 38 20 29 ( Option <> 8 )
0083D0: 20 74 68 65 6E 20 62 65 67 69 6E 20 20 20 20 20 then begin
0083E0: 20 20 20 20 20 20 20 28 2A 20 57 65 6E 6E 20 6B (* Wenn k
0083F0: 65 69 6E 20 44 69 73 6B 65 74 74 65 6E 6C 61 62 ein Diskettenlab
008400: 6D 52 20 20 20 20 20 20 20 20 3A 20 53 74 72 69 mR : Stri
008410: 6E 67 38 30 3B 0D 0A 20 20 20 20 20 20 20 20 20 ng80;..
008420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 S
008430: 65 67 6D 65 6E 74 2C 20 4F 66 66 73 65 74 20 3A egment, Offset :
008440: 20 49 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 20 Integer;..
008450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008460: 20 20 20 4F 70 74 69 6F 6E 20 20 20 20 20 20 20 Option
008470: 20 20 20 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 20 : Integer;..
008480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008490: 20 20 20 20 20 20 20 76 61 72 20 46 65 68 6C 65 var Fehle
0084A0: 72 20 20 20 20 20 20 3A 20 49 6E 74 65 67 65 72 r : Integer
0084B0: 20 29 3B 0D 0A 76 61 72 0D 0A 20 20 49 20 3A 20 );..var.. I :
0084C0: 49 6E 74 65 67 65 72 3B 0D 0A 62 65 67 69 6E 0D Integer;..begin.
0084D0: 0A 20 20 46 65 68 6C 65 72 20 3A 3D 20 30 3B 0D . Fehler := 0;.
0084E0: 0A 20 20 52 65 67 73 2E 41 58 20 3A 3D 20 24 34 . Regs.AX := $4
0084F0: 46 30 30 3B 20 20 20 20 20 20 20 20 20 20 20 28 F00; (
008500: 2A 20 46 75 6E 6B 74 69 6F 6E 20 75 6D 20 64 65 * Funktion um de
008510: 6E 20 6E 61 65 63 68 73 74 65 6E 20 45 69 6E 74 n naechsten Eint
008520: 72 61 67 20 7A 75 20 68 6F 6C 65 6E 20 2A 29 0D rag zu holen *).
008530: 0A 20 20 52 65 67 73 2E 43 58 20 3A 3D 20 4F 70 . Regs.CX := Op
008540: 74 69 6F 6E 3B 20 20 20 20 20 20 20 20 20 20 28 tion; (
008550: 2A 20 41 74 74 72 69 62 75 74 20 73 65 74 7A 65 * Attribut setze
008560: 6E 20 2A 29 0D 0A 20 20 4D 53 44 6F 73 28 20 52 n *).. MSDos( R
008570: 65 67 73 20 29 3B 20 20 20 20 20 20 20 20 20 20 egs );
008580: 20 20 20 20 28 2A 20 4D 53 44 6F 73 20 61 75 66 (* MSDos auf
008590: 72 75 66 65 6E 20 2A 29 0D 0A 20 20 46 65 68 6C rufen *).. Fehl
0085A0: 65 72 20 3A 3D 20 52 65 67 73 2E 41 58 20 61 6E er := Regs.AX an
0085B0: 64 20 24 46 46 3B 20 20 28 2A 20 46 65 68 6C 65 d $FF; (* Fehle
0085C0: 72 63 6F 64 65 20 68 6F 6C 65 6E 20 2A 29 0D 0A rcode holen *)..
0085D0: 20 20 49 20 3A 3D 20 31 3B 0D 0A 20 20 72 65 70 I := 1;.. rep
0085E0: 65 61 74 0D 0A 20 20 20 20 4E 61 6D 52 5B 20 49 eat.. NamR[ I
0085F0: 20 5D 20 3A 3D 20 43 68 72 28 20 6D 65 6D 5B 20 ] := Chr( mem[
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: 65 6C 20 2A 29 0D 0A 20 20 20 20 20 20 57 72 69 el *).. Wri
008710: 74 65 4C 6E 28 20 27 49 6E 68 61 6C 74 73 76 65 teLn( 'Inhaltsve
008720: 72 7A 65 69 63 68 6E 69 73 73 20 76 6F 6E 20 3A rzeichniss von :
008730: 20 27 2C 20 42 75 66 66 65 72 20 29 3B 20 28 2A ', Buffer ); (*
008740: 20 4C 61 75 66 77 65 72 6B 20 7A 65 69 67 65 6E Laufwerk zeigen
008750: 20 2A 29 0D 0A 20 20 20 20 20 20 57 72 69 74 65 *).. Write
008760: 4C 6E 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 20 Ln;.. end;..
008770: 20 20 20 57 72 69 74 65 4C 6E 28 20 4E 61 6D 52 WriteLn( NamR
008780: 20 29 0D 0A 20 20 65 6E 64 0D 0A 20 20 65 6C 73 ).. end.. els
008790: 65 20 69 66 20 28 20 4F 70 74 69 6F 6E 20 3D 20 e if ( Option =
0087A0: 38 20 29 20 74 68 65 6E 0D 0A 20 20 20 20 57 72 8 ) then.. Wr
0087B0: 69 74 65 4C 6E 28 20 27 44 69 73 6B 65 74 74 65 iteLn( 'Diskette
0087C0: 6E 6C 61 62 65 6C 20 6E 69 63 68 74 20 67 65 66 nlabel nicht gef
0087D0: 75 6E 64 65 6E 2E 27 20 29 0D 0A 20 20 65 6C 73 unden.' ).. els
0087E0: 65 20 57 72 69 74 65 4C 6E 28 20 27 44 61 74 65 e WriteLn( 'Date
0087F0: 69 20 27 27 27 2C 20 42 75 66 66 65 72 2C 20 27 i ''', Buffer, '
008800: 27 27 20 6E 69 63 68 74 20 67 65 66 75 6E 64 65 '' nicht gefunde
008810: 6E 2E 27 20 29 3B 0D 0A 20 20 77 68 69 6C 65 20 n.' );.. while
008820: 28 20 46 65 68 6C 65 72 20 3D 20 30 20 29 20 64 ( Fehler = 0 ) d
008830: 6F 20 62 65 67 69 6E 0D 0A 20 20 20 20 47 65 74 o begin.. Get
008840: 4E 65 78 74 45 6E 74 72 79 28 20 4E 61 6D 52 2C NextEntry( NamR,
008850: 20 53 65 74 44 54 41 73 65 67 2C 20 53 65 74 44 SetDTAseg, SetD
008860: 54 41 6F 66 73 2C 20 4F 70 74 69 6F 6E 2C 20 46 TAofs, Option, F
008870: 65 68 6C 65 72 20 29 3B 0D 0A 20 20 20 20 69 66 ehler );.. if
008880: 20 28 20 46 65 68 6C 65 72 20 3D 20 30 20 29 20 ( Fehler = 0 )
008890: 74 68 65 6E 20 57 72 69 74 65 4C 6E 28 20 4E 61 then WriteLn( Na
0088A0: 6D 52 20 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 20 mR );.. end;..
0088B0: 20 53 65 74 7A 65 44 54 41 28 20 44 54 41 73 65 SetzeDTA( DTAse
0088C0: 67 2C 20 44 54 41 6F 66 73 2C 20 46 65 68 6C 65 g, DTAofs, Fehle
0088D0: 72 20 29 3B 0D 0A 65 6E 64 2E 20 28 2A 20 65 6E r );..end. (* en
0088E0: 64 20 4D 61 69 6E 20 2A 29 0D 0A 0D 0A 0D 0A 1A d Main *).......
0088F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
008900: 72 7A 65 69 63 68 69 73 0D 0A 20 20 20 20 46 49 rzeichis.. FI
008910: 4C 54 45 52 2E 50 41 53 20 20 20 20 45 69 6E 20 LTER.PAS Ein
008920: 4D 53 44 4F 53 20 46 69 6C 74 65 72 0D 0A 0D 0A MSDOS Filter....
008930: 0D 0A 50 72 6F 67 72 61 6D 6D 65 20 7A 75 6D 20 ..Programme zum
008940: 4B 61 70 69 74 65 6C 20 22 43 50 2F 4D 20 52 6F Kapitel "CP/M Ro
008950: 75 74 69 6E 65 6E 22 0D 0A 28 64 2E 68 2E 20 50 utinen"..(d.h. P
008960: 72 6F 67 72 61 6D 6D 65 2C 20 64 69 65 20 6E 75 rogramme, die nu
008970: 72 20 75 6E 74 65 72 20 43 50 2F 4D 20 6C 61 75 r unter CP/M lau
008980: 66 66 7B 68 69 67 20 73 69 6E 64 29 0D 0A 0D 0A ff{hig sind)....
008990: 20 20 20 20 43 50 4D 44 49 52 2E 50 41 53 20 20 CPMDIR.PAS
0089A0: 20 20 4C 65 73 65 6E 20 64 65 73 20 49 6E 68 61 Lesen des Inha
0089B0: 6C 74 73 76 65 72 7A 65 69 63 68 6E 69 73 73 65 ltsverzeichnisse
0089C0: 73 0D 0A 20 20 20 20 43 50 4D 53 54 41 54 2E 50 s.. CPMSTAT.P
0089D0: 41 53 20 20 20 53 79 73 74 65 6D 2D 53 74 61 74 AS System-Stat
0089E0: 75 73 20 68 6F 6C 65 6E 0D 0A 0D 0A 0D 0A 50 72 us holen......Pr
0089F0: 6F 67 72 61 6D 6D 65 20 7A 75 6D 20 4B 61 70 69 ogramme zum Kapi
008A00: 74 65 6C 20 22 50 72 6F 67 72 61 6D 6D 69 65 72 tel "Programmier
008A10: 75 6E 67 20 69 6E 20 41 73 73 65 6D 62 6C 65 72 ung in Assembler
008A20: 22 0D 0A 28 44 69 65 73 65 20 50 72 6F 67 72 61 "..(Diese Progra
008A30: 6D 6D 65 20 73 69 6E 64 20 6E 75 72 20 75 6E 74 mme sind nur unt
008A40: 65 72 20 4D 53 20 44 4F 53 20 62 7A 77 2E 20 50 er MS DOS bzw. P
008A50: 43 20 44 4F 53 0D 0A 6C 61 75 66 66 61 65 68 69 C DOS..lauffaehi
008A60: 67 29 0D 0A 0D 0A 20 20 20 20 49 4E 4C 49 4E 45 g).... INLINE
008A70: 2E 50 41 53 20 20 20 20 42 65 69 73 70 69 65 6C .PAS Beispiel
008A80: 20 66 75 65 72 20 38 30 38 36 20 69 6E 6C 69 6E fuer 8086 inlin
008A90: 65 20 4D 61 73 63 68 69 6E 65 6E 63 6F 64 65 0D e Maschinencode.
008AA0: 0A 20 20 20 20 50 41 53 53 2E 41 53 4D 20 20 20 . PASS.ASM
008AB0: 20 20 20 42 65 69 73 70 69 65 6C 20 66 75 65 72 Beispiel fuer
008AC0: 20 38 30 38 36 20 65 78 74 65 72 6E 61 6C 73 20 8086 externals
008AD0: 69 6E 20 41 73 73 65 6D 62 6C 65 72 0D 0A 20 20 in Assembler..
008AE0: 20 20 50 41 53 53 46 55 4E 43 2E 50 41 53 20 20 PASSFUNC.PAS
008AF0: 50 61 73 63 61 6C 20 52 6F 75 74 69 6E 65 2C 20 Pascal Routine,
008B00: 4D 75 65 6E 63 68 65 6E 20 64 65 6E 20 31 36 2E Muenchen den 16.
008B10: 30 36 2E 38 35 0D 0A 0D 0A 53 65 68 72 20 67 65 06.85....Sehr ge
008B20: 65 68 72 74 65 72 20 54 55 52 42 4F 20 50 61 73 ehrter TURBO Pas
008B30: 63 61 6C 20 4B 75 6E 64 65 2C 0D 0A 0D 0A 44 69 cal Kunde,....Di
008B40: 65 73 65 20 44 69 73 6B 65 74 74 65 20 65 6E 74 ese Diskette ent
008B50: 68 61 65 6C 74 20 20 64 65 6E 20 53 6F 75 72 63 haelt den Sourc
008B60: 65 20 43 6F 64 65 20 64 65 72 20 42 65 69 73 70 e Code der Beisp
008B70: 69 65 6C 65 20 69 6D 0D 0A 54 55 52 42 4F 20 54 iele im..TURBO T
008B80: 75 74 6F 72 2C 20 64 61 6D 69 74 20 53 69 65 20 utor, damit Sie
008B90: 73 69 65 20 6E 69 63 68 74 20 65 78 74 72 61 20 sie nicht extra
008BA0: 61 62 74 69 70 70 65 6E 20 6D 75 65 73 73 65 6E abtippen muessen
008BB0: 2E 0D 0A 0D 0A 45 69 6E 20 6C 65 74 7A 74 65 73 .....Ein letztes
008BC0: 20 42 65 69 73 70 69 65 6C 20 77 75 72 64 65 20 Beispiel wurde
008BD0: 6E 61 63 68 20 64 65 6D 20 44 72 75 63 6B 20 6E nach dem Druck n
008BE0: 6F 63 68 20 68 69 6E 7A 75 67 65 66 75 65 67 74 och hinzugefuegt
008BF0: 2C 0D 0A 46 49 4C 54 45 52 2E 50 41 53 2C 20 64 ,..FILTER.PAS, d
008C00: 61 73 20 7A 75 20 64 65 6E 20 4D 53 20 44 4F 53 as zu den MS DOS
008C10: 20 50 72 6F 67 72 61 6D 6D 65 6E 20 61 6D 20 45 Programmen am E
008C20: 6E 64 65 20 64 65 73 20 42 75 63 68 65 73 0D 0A nde des Buches..
008C30: 67 65 68 6F 65 72 74 2E 20 45 73 20 69 73 74 20 gehoert. Es ist
008C40: 66 75 65 72 20 6A 65 6E 65 20 76 6F 6E 20 49 68 fuer jene von Ih
008C50: 6E 65 6E 2C 20 64 69 65 20 46 69 6C 74 65 72 20 nen, die Filter
008C60: 69 6E 20 54 55 52 42 4F 20 50 61 73 63 61 6C 0D in TURBO Pascal.
008C70: 0A 73 63 68 72 65 69 62 65 6E 20 77 6F 6C 6C 65 .schreiben wolle
008C80: 6E 2E 0D 0A 0D 0A 45 62 65 6E 66 61 6C 6C 73 20 n.....Ebenfalls
008C90: 61 75 66 20 64 65 72 20 44 69 73 6B 65 74 74 65 auf der Diskette
008CA0: 20 69 73 74 20 64 65 72 20 53 6F 75 72 63 65 20 ist der Source
008CB0: 43 6F 64 65 20 76 6F 6E 20 4C 49 53 54 54 2E 50 Code von LISTT.P
008CC0: 41 53 2C 0D 0A 65 69 6E 65 6D 20 54 55 52 42 4F AS,..einem TURBO
008CD0: 20 50 61 73 63 61 6C 20 4C 69 73 74 65 72 2E 0D Pascal Lister..
008CE0: 0A 44 65 72 20 4C 69 73 74 65 72 20 6B 61 6E 6E .Der Lister kann
008CF0: 20 73 6F 20 62 65 73 73 65 72 20 69 6E 64 69 76 so besser indiv
008D00: 64 69 65 20 50 41 53 53 2E 41 53 4D 20 28 61 6C die PASS.ASM (al
008D10: 73 20 50 41 53 53 2E 43 4F 4D 29 20 61 75 66 72 s PASS.COM) aufr
008D20: 75 66 74 0D 0A 0D 0A 0D 0A 7A 75 73 61 65 74 7A uft......zusaetz
008D30: 6C 69 63 68 65 20 50 72 6F 67 72 61 6D 6D 65 0D liche Programme.
008D40: 0A 28 6C 61 75 66 66 61 65 68 69 67 20 75 6E 74 .(lauffaehig unt
008D50: 65 72 20 4D 53 20 44 4F 53 2C 20 50 43 20 44 4F er MS DOS, PC DO
008D60: 53 20 75 6E 64 20 43 50 2F 4D 29 0D 0A 0D 0A 20 S und CP/M)....
008D70: 20 20 20 4C 49 53 54 54 2E 50 41 53 20 20 20 20 LISTT.PAS
008D80: 20 54 75 72 62 6F 20 53 6F 75 72 63 65 2D 50 72 Turbo Source-Pr
008D90: 6F 67 72 61 6D 6D 20 4C 69 73 74 65 72 0D 0A 20 ogramm Lister..
008DA0: 20 20 20 4C 49 53 54 54 2E 44 4F 43 20 20 20 20 LISTT.DOC
008DB0: 20 44 6F 6B 75 6D 65 6E 74 61 74 69 6F 6E 20 66 Dokumentation f
008DC0: 75 65 72 20 4C 49 53 54 54 0D 0A 20 20 20 20 2A uer LISTT.. *
008DD0: 2E 4C 54 50 20 20 20 20 20 20 20 20 20 56 6F 72 .LTP Vor
008DE0: 64 65 66 69 6E 69 65 72 74 65 20 50 61 72 61 6D definierte Param
008DF0: 65 74 65 72 2D 44 61 74 65 69 65 6E 20 66 75 65 eter-Dateien fue
008E00: 72 20 4C 49 53 54 54 0D 0A 0D 0A 0D 0A 57 49 43 r LISTT......WIC
008E10: 48 54 49 47 20 46 55 45 52 20 42 45 4E 55 54 5A HTIG FUER BENUTZ
008E20: 45 52 20 56 4F 4E 20 43 50 2F 4D 3A 0D 0A 0D 0A ER VON CP/M:....
008E30: 20 20 42 45 49 20 44 45 52 20 41 4E 47 41 42 45 BEI DER ANGABE
008E40: 20 44 45 52 20 50 41 52 41 4D 45 54 45 52 20 46 DER PARAMETER F
008E50: 55 45 52 20 44 45 4E 20 44 52 55 43 4B 45 52 20 UER DEN DRUCKER
008E60: 28 4F 70 74 69 6F 6E 20 22 4C 22 20 69 6D 0D 0A (Option "L" im..
008E70: 20 20 4D 65 6E 75 20 64 65 73 20 50 72 6F 67 72 Menu des Progr
008E80: 61 6D 6D 73 20 4C 49 53 54 54 2E 50 41 53 20 75 amms LISTT.PAS u
008E90: 6E 64 20 64 61 72 61 75 66 66 6F 6C 67 65 6E 64 nd darauffolgend
008EA0: 65 20 45 69 6E 67 61 62 65 20 65 69 6E 65 73 0D e Eingabe eines.
008EB0: 0A 20 20 2A 2E 4C 54 50 20 46 69 6C 65 73 29 20 . *.LTP Files)
008EC0: 4D 55 7E 20 44 49 45 20 4C 41 55 46 57 45 52 4B MU~ DIE LAUFWERK
008ED0: 53 42 45 5A 45 49 43 48 4E 55 4E 47 20 4D 49 54 SBEZEICHNUNG MIT
008EE0: 20 41 4E 47 45 47 45 42 45 4E 20 57 45 52 44 45 ANGEGEBEN WERDE
008EF0: 4E 21 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A N!..............
008F00: 69 64 75 65 6C 6C 65 6E 20 57 75 65 6E 73 63 68 iduellen Wuensch
008F10: 65 6E 20 61 6E 67 65 70 61 73 73 74 20 77 65 72 en angepasst wer
008F20: 64 65 6E 2E 0D 0A 45 69 6E 65 20 55 65 62 65 72 den...Eine Ueber
008F30: 73 69 63 68 74 20 64 65 72 20 46 6F 72 6D 61 74 sicht der Format
008F40: 69 65 72 75 6E 67 73 6B 6F 6D 6D 61 6E 64 6F 73 ierungskommandos
008F50: 20 69 73 74 20 69 6E 20 4C 49 53 54 54 2E 44 4F ist in LISTT.DO
008F60: 43 0D 0A 7A 75 20 66 69 6E 64 65 6E 2E 0D 0A 0D C..zu finden....
008F70: 0A 48 69 65 72 20 65 69 6E 65 20 55 65 62 65 72 .Hier eine Ueber
008F80: 73 69 63 68 74 20 75 65 62 65 72 20 64 69 65 20 sicht ueber die
008F90: 44 61 74 65 69 65 6E 20 61 75 66 20 64 65 72 20 Dateien auf der
008FA0: 44 69 73 6B 65 74 74 65 3A 0D 0A 0D 0A 42 65 69 Diskette:....Bei
008FB0: 73 70 69 65 6C 64 61 74 65 69 65 6E 20 66 75 65 spieldateien fue
008FC0: 72 20 54 65 69 6C 20 49 20 64 65 73 20 42 75 63 r Teil I des Buc
008FD0: 68 65 73 3A 0D 0A 28 6C 61 75 66 66 61 65 68 69 hes:..(lauffaehi
008FE0: 67 20 75 6E 74 65 72 20 4D 53 20 44 4F 53 2C 20 g unter MS DOS,
008FF0: 50 43 20 44 4F 53 20 75 6E 64 20 43 50 2F 4D 29 PC DOS und CP/M)
009000: 0D 0A 0D 0A 20 20 20 20 4D 45 49 4E 4E 41 4D 45 .... MEINNAME
009010: 2E 50 41 53 0D 0A 0D 0A 0D 0A 42 65 69 73 70 69 .PAS......Beispi
009020: 65 6C 64 61 74 65 69 65 6E 20 66 75 65 72 20 54 eldateien fuer T
009030: 65 69 6C 20 49 49 20 64 65 73 20 42 75 63 68 65 eil II des Buche
009040: 73 3A 0D 0A 28 6C 61 75 66 66 61 65 68 69 67 20 s:..(lauffaehig
009050: 75 6E 74 65 72 20 4D 53 20 44 4F 53 2C 20 50 43 unter MS DOS, PC
009060: 20 44 4F 53 20 75 6E 64 20 43 50 2F 4D 29 0D 0A DOS und CP/M)..
009070: 0D 0A 20 20 20 20 53 43 41 4C 41 52 45 2E 50 41 .. SCALARE.PA
009080: 53 20 20 20 20 42 65 69 73 70 69 65 6C 65 20 61 S Beispiele a
009090: 75 73 20 64 65 6D 20 4B 61 70 69 74 65 6C 20 75 us dem Kapitel u
0090A0: 65 62 65 72 20 53 63 61 6C 61 72 65 0D 0A 20 20 eber Scalare..
0090B0: 20 20 53 50 49 45 4C 31 2E 50 41 53 20 20 20 20 SPIEL1.PAS
0090C0: 20 45 69 6E 20 65 69 6E 66 61 63 68 65 73 20 53 Ein einfaches S
0090D0: 70 69 65 6C 0D 0A 0D 0A 0D 0A 42 65 69 73 70 69 piel......Beispi
0090E0: 65 6C 64 61 74 65 69 65 6E 20 66 75 65 72 20 54 eldateien fuer T
0090F0: 65 69 6C 20 49 49 49 20 64 65 73 20 42 75 63 68 eil III des Buch
009100: 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
009110: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
009120: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
009130: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
009140: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
009150: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
009160: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
009170: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
009180: 20 54 75 72 62 6F 20 53 6F 75 72 63 65 2D 50 72 Turbo Source-Pr
009190: 6F 67 72 61 6D 6D 20 4C 69 73 74 65 72 0D 0A 20 ogramm Lister..
0091A0: 20 20 20 4C 49 53 54 54 2E 44 4F 43 20 20 20 20 LISTT.DOC
0091B0: 20 44 6F 6B 75 6D 65 6E 74 61 74 69 6F 6E 20 66 Dokumentation f
0091C0: 75 65 72 20 4C 49 53 54 54 0D 0A 20 20 20 20 2A uer LISTT.. *
0091D0: 2E 4C 54 50 20 20 20 20 20 20 20 20 20 56 6F 72 .LTP Vor
0091E0: 64 65 66 69 6E 69 65 72 74 65 20 50 61 72 61 6D definierte Param
0091F0: 65 74 65 72 2D 44 61 74 65 69 65 6E 20 66 75 65 eter-Dateien fue
009200: 72 20 4C 49 53 54 54 0D 0A 0D 0A 0D 0A 57 49 43 r LISTT......WIC
009210: 48 54 49 47 20 46 55 45 52 20 42 45 4E 55 54 5A HTIG FUER BENUTZ
009220: 45 52 20 56 4F 4E 20 43 50 2F 4D 3A 0D 0A 0D 0A ER VON CP/M:....
009230: 20 20 42 45 49 20 44 45 52 20 41 4E 47 41 42 45 BEI DER ANGABE
009240: 20 44 45 52 20 50 41 52 41 4D 45 54 45 52 20 46 DER PARAMETER F
009250: 55 45 52 20 44 45 4E 20 44 52 55 43 4B 45 52 20 UER DEN DRUCKER
009260: 28 4F 70 74 69 6F 6E 20 22 4C 22 20 69 6D 0D 0A (Option "L" im..
009270: 20 20 4D 65 6E 75 20 64 65 73 20 50 72 6F 67 72 Menu des Progr
009280: 61 6D 6D 73 20 4C 49 53 54 54 2E 50 41 53 20 75 amms LISTT.PAS u
009290: 6E 64 20 64 61 72 61 75 66 66 6F 6C 67 65 6E 64 nd darauffolgend
0092A0: 65 20 45 69 6E 67 61 62 65 20 65 69 6E 65 73 0D e Eingabe eines.
0092B0: 0A 20 20 2A 2E 4C 54 50 20 46 69 6C 65 73 29 20 . *.LTP Files)
0092C0: 4D 55 7E 20 44 49 45 20 4C 41 55 46 57 45 52 4B MU~ DIE LAUFWERK
0092D0: 53 42 45 5A 45 49 43 48 4E 55 4E 47 20 4D 49 54 SBEZEICHNUNG MIT
0092E0: 20 41 4E 47 45 47 45 42 45 4E 20 57 45 52 44 45 ANGEGEBEN WERDE
0092F0: 4E 21 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A N!..............
009300: 65 73 3A 0D 0A 28 6C 61 75 66 66 61 65 68 69 67 es:..(lauffaehig
009310: 20 75 6E 74 65 72 20 4D 53 20 44 4F 53 2C 20 50 unter MS DOS, P
009320: 43 20 44 4F 53 20 75 6E 64 20 43 50 2F 4D 29 0D C DOS und CP/M).
009330: 0A 0D 0A 20 20 20 20 46 55 4E 4B 54 41 53 54 2E ... FUNKTAST.
009340: 50 41 53 20 20 20 52 6F 75 74 69 6E 65 20 75 6D PAS Routine um
009350: 20 46 75 6E 6B 74 69 6F 6E 73 74 61 73 74 65 6E Funktionstasten
009360: 20 7A 75 20 6C 65 73 65 6E 20 75 6E 64 20 61 6E zu lesen und an
009370: 7A 75 7A 65 69 67 65 6E 0D 0A 20 20 20 20 49 4F zuzeigen.. IO
009380: 46 45 48 4C 45 52 2E 50 41 53 20 20 20 53 74 61 FEHLER.PAS Sta
009390: 6E 64 61 72 64 20 49 2F 4F 20 46 65 68 6C 65 72 ndard I/O Fehler
0093A0: 20 50 72 75 65 66 75 6E 67 73 72 6F 75 74 69 6E Pruefungsroutin
0093B0: 65 0D 0A 20 20 20 20 50 55 46 46 45 52 2E 50 41 e.. PUFFER.PA
0093C0: 53 20 20 20 20 20 5A 65 69 67 74 20 67 65 70 75 S Zeigt gepu
0093D0: 66 66 65 72 74 65 20 54 61 73 74 61 74 75 72 65 fferte Tastature
0093E0: 69 6E 67 65 62 65 0D 0A 0D 0A 50 72 6F 67 72 61 ingebe....Progra
0093F0: 6D 6D 65 20 7A 75 6D 20 4B 61 70 69 74 65 6C 20 mme zum Kapitel
009400: 22 4D 53 20 44 4F 53 20 52 6F 75 74 69 6E 65 6E "MS DOS Routinen
009410: 22 0D 0A 28 64 2E 68 2E 20 50 72 6F 67 72 61 6D "..(d.h. Program
009420: 6D 65 2C 20 64 69 65 20 6E 75 72 20 75 6E 74 65 me, die nur unte
009430: 72 20 4D 53 20 44 4F 53 20 62 7A 77 2E 20 50 43 r MS DOS bzw. PC
009440: 20 44 4F 53 0D 0A 63 6F 6D 70 69 6C 69 65 72 62 DOS..compilierb
009450: 61 72 20 75 6E 64 20 6C 61 75 66 66 61 65 68 69 ar und lauffaehi
009460: 67 20 73 69 6E 64 29 0D 0A 0D 0A 20 20 20 20 5A g sind).... Z
009470: 55 46 41 4C 4C 2E 50 41 53 20 20 20 20 46 75 6E UFALL.PAS Fun
009480: 6B 74 69 6F 6E 69 65 72 65 6E 64 65 20 52 61 6E ktionierende Ran
009490: 64 6F 6D 69 7A 65 2D 52 6F 75 74 69 6E 65 0D 0A domize-Routine..
0094A0: 20 20 20 20 44 49 52 45 43 54 52 59 2E 50 41 53 DIRECTRY.PAS
0094B0: 20 20 45 69 6E 66 61 63 68 65 20 52 6F 75 74 69 Einfache Routi
0094C0: 6E 65 20 75 6D 20 64 61 73 20 49 6E 68 61 6C 74 ne um das Inhalt
0094D0: 73 76 65 72 7A 65 69 63 68 6E 69 73 20 7A 75 20 sverzeichnis zu
0094E0: 6C 65 73 65 6E 0D 0A 20 20 20 20 51 44 4C 2E 50 lesen.. QDL.P
0094F0: 41 53 20 20 20 20 20 20 20 45 72 77 65 69 74 65 AS Erweite
009500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0095A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0095B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0095C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0095D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0095E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0095F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0096A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0096B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0096C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0096D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0096E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0096F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009700: 72 74 65 20 44 69 72 65 63 74 6F 72 79 20 52 6F rte Directory Ro
009710: 75 74 69 6E 65 0D 0A 20 20 20 20 44 49 53 4B 53 utine.. DISKS
009720: 54 55 53 2E 50 41 53 20 20 4C 65 73 65 6E 20 64 TUS.PAS Lesen d
009730: 65 73 20 44 69 73 6B 65 74 74 65 6E 20 53 74 61 es Disketten Sta
009740: 74 75 73 0D 0A 20 20 20 20 56 45 52 53 49 4F 4E tus.. VERSION
009750: 2E 50 41 53 20 20 20 4C 65 73 65 6E 20 64 65 72 .PAS Lesen der
009760: 20 44 4F 53 20 56 65 72 73 69 6F 6E 73 6E 75 6D DOS Versionsnum
009770: 6D 65 72 0D 0A 20 20 20 20 49 42 4D 49 4E 54 31 mer.. IBMINT1
009780: 30 2E 50 41 53 20 20 44 69 72 65 6B 74 65 73 20 0.PAS Direktes
009790: 61 6E 73 70 72 65 63 68 65 6E 20 64 65 73 20 42 ansprechen des B
0097A0: 69 6C 64 73 63 68 69 72 6D 73 20 75 65 62 65 72 ildschirms ueber
0097B0: 20 49 6E 74 65 72 72 75 70 74 20 31 30 0D 0A 20 Interrupt 10..
0097C0: 20 20 20 41 55 53 53 50 45 49 2E 50 41 53 20 20 AUSSPEI.PAS
0097D0: 20 44 69 72 65 6B 74 65 73 20 61 6E 73 70 72 65 Direktes anspre
0097E0: 63 68 65 6E 20 64 65 73 20 42 69 6C 64 73 63 68 chen des Bildsch
0097F0: 69 6D 73 70 65 69 63 68 65 72 73 0D 0A 20 20 20 imspeichers..
009800: 20 42 45 46 4C 45 53 2E 50 41 53 20 20 20 20 4C BEFLES.PAS L
009810: 65 73 65 6E 20 64 65 72 20 43 6F 6D 6D 61 6E 64 esen der Command
009820: 6C 69 6E 65 0D 0A 20 20 20 20 43 4F 4D 4C 49 42 line.. COMLIB
009830: 2E 50 41 53 20 20 20 20 52 6F 75 74 69 6E 65 6E .PAS Routinen
009840: 20 66 75 65 72 20 43 4F 4D 31 3A 20 75 6E 64 20 fuer COM1: und
009850: 43 4F 4D 32 3A 0D 0A 20 20 20 20 54 42 4F 4D 41 COM2:.. TBOMA
009860: 55 53 2E 50 41 53 20 20 20 4C 69 65 73 74 20 64 US.PAS Liest d
009870: 69 65 20 4D 69 63 72 6F 73 6F 66 74 2D 4D 61 75 ie Microsoft-Mau
009880: 73 20 28 57 6F 20 69 73 74 20 64 69 65 20 4B 61 s (Wo ist die Ka
009890: 74 7A 65 20 3F 29 0D 0A 20 20 20 20 46 49 4C 4C tze ?).. FILL
0098A0: 43 48 41 52 2E 50 41 53 20 20 49 6E 69 74 69 61 CHAR.PAS Initia
0098B0: 6C 69 73 69 65 72 75 6E 67 20 76 6F 6E 20 44 61 lisierung von Da
0098C0: 74 65 6E 73 74 72 75 6B 74 75 72 65 6E 0D 0A 20 tenstrukturen..
0098D0: 20 20 20 43 48 4E 47 44 49 52 2E 50 41 53 20 20 CHNGDIR.PAS
0098E0: 20 57 65 63 68 73 65 6C 74 20 64 61 73 20 61 6B Wechselt das ak
0098F0: 74 75 65 6C 6C 65 20 49 6E 68 61 6C 74 73 76 65 tuelle Inhaltsve
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: 0D 0A 70 72 6F 67 72 61 6D 20 53 63 61 6C 61 72 ..program Scalar
009A10: 65 3B 0D 0A 28 2A 0D 0A 20 20 20 20 20 20 20 44 e;..(*.. D
009A20: 69 65 73 65 73 20 50 72 6F 67 72 61 6D 6D 20 7A ieses Programm z
009A30: 65 69 67 74 20 64 65 6E 20 47 65 62 72 61 75 63 eigt den Gebrauc
009A40: 68 20 76 6F 6E 20 64 65 6B 6C 61 72 69 65 72 74 h von deklariert
009A50: 65 6E 20 53 6B 61 6C 61 72 65 6E 20 54 79 70 65 en Skalaren Type
009A60: 6E 0D 0A 20 20 20 20 20 20 20 28 44 53 54 73 29 n.. (DSTs)
009A70: 20 75 6E 64 20 55 6E 74 65 72 62 65 72 65 69 63 und Unterbereic
009A80: 68 65 6E 2E 20 41 75 63 68 20 53 74 72 69 6E 67 hen. Auch String
009A90: 73 2C 20 41 72 72 61 79 73 20 75 6E 64 20 53 65 s, Arrays und Se
009AA0: 74 73 20 77 65 72 64 65 6E 20 67 65 7A 65 69 67 ts werden gezeig
009AB0: 74 2E 0D 0A 2A 29 0D 0A 63 6F 6E 73 74 0D 0A 20 t...*)..const..
009AC0: 20 58 4D 61 78 20 20 20 20 20 20 20 20 20 20 20 XMax
009AD0: 20 20 20 20 20 20 3D 20 20 38 3B 0D 0A 20 20 59 = 8;.. Y
009AE0: 4D 61 78 20 20 20 20 20 20 20 20 20 20 20 20 20 Max
009AF0: 20 20 20 20 3D 20 31 30 3B 0D 0A 74 79 70 65 0D = 10;..type.
009B00: 0A 20 20 58 52 61 6E 67 65 20 20 20 20 20 20 20 . XRange
009B10: 20 20 20 20 20 20 20 20 3D 20 31 2E 2E 58 4D 61 = 1..XMa
009B20: 78 3B 0D 0A 20 20 59 52 61 6E 67 65 20 20 20 20 x;.. YRange
009B30: 20 20 20 20 20 20 20 20 20 20 20 3D 20 31 2E 2E = 1..
009B40: 59 4D 61 78 3B 0D 0A 20 20 53 68 69 70 54 79 70 YMax;.. ShipTyp
009B50: 65 20 20 20 20 20 20 20 20 20 20 20 20 20 3D 20 e =
009B60: 28 4E 6F 53 68 69 70 2C 43 6F 6E 73 74 69 74 75 (NoShip,Constitu
009B70: 74 69 6F 6E 2C 45 6E 74 65 72 70 72 69 73 65 2C tion,Enterprise,
009B80: 52 65 6C 69 61 6E 74 2C 0D 0A 20 20 20 20 20 20 Reliant,..
009B90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009BA0: 20 20 20 20 4C 6F 6B 6E 61 72 2C 4C 61 72 73 6F Loknar,Larso
009BB0: 6E 2C 43 68 61 6E 64 6C 65 79 2C 45 78 63 65 6C n,Chandley,Excel
009BC0: 73 69 6F 72 2C 42 61 6B 65 72 29 3B 0D 0A 20 20 sior,Baker);..
009BD0: 4E 61 6D 65 73 20 20 20 20 20 20 20 20 20 20 20 Names
009BE0: 20 20 20 20 20 3D 20 73 74 72 69 6E 67 5B 31 32 = string[12
009BF0: 5D 3B 0D 0A 20 20 50 72 6F 6D 70 74 20 20 20 20 ];.. Prompt
009C00: 20 2A 29 0D 0A 20 20 20 20 46 6F 75 6E 64 20 3A *).. Found :
009C10: 3D 20 46 61 6C 73 65 3B 20 20 20 20 20 20 20 20 = False;
009C20: 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 53 (* S
009C30: 63 68 6C 65 69 66 65 20 69 6E 69 74 69 61 6C 69 chleife initiali
009C40: 73 69 65 72 65 6E 20 2A 29 0D 0A 20 20 20 20 66 sieren *).. f
009C50: 6F 72 20 53 6E 64 78 20 3A 3D 20 4E 6F 53 68 69 or Sndx := NoShi
009C60: 70 20 74 6F 20 42 61 6B 65 72 20 64 6F 20 20 20 p to Baker do
009C70: 20 20 28 2A 20 47 69 62 74 20 65 73 20 64 69 65 (* Gibt es die
009C80: 73 65 6E 20 53 63 68 69 66 66 73 74 79 70 20 3F sen Schiffstyp ?
009C90: 20 2A 29 0D 0A 20 20 20 20 20 20 69 66 20 53 68 *).. if Sh
009CA0: 69 70 4E 61 6D 65 5B 53 6E 64 78 5D 20 3D 20 53 ipName[Sndx] = S
009CB0: 4E 61 6D 65 20 74 68 65 6E 20 20 20 28 2A 20 77 Name then (* w
009CC0: 65 6E 6E 20 6A 61 2E 2E 2E 20 2A 29 0D 0A 20 20 enn ja... *)..
009CD0: 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 begin..
009CE0: 20 20 20 46 6F 75 6E 64 20 3A 3D 20 54 72 75 65 Found := True
009CF0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
009D00: 20 20 28 2A 20 46 6C 61 67 20 73 65 74 7A 65 6E (* Flag setzen
009D10: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 53 68 69 *).. Shi
009D20: 70 20 3A 3D 20 53 6E 64 78 3B 20 20 20 20 20 20 p := Sndx;
009D30: 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 75 (* u
009D40: 6E 64 20 53 63 68 69 66 66 20 73 65 74 7A 65 6E nd Schiff setzen
009D50: 20 2A 29 0D 0A 20 20 20 20 20 20 65 6E 64 0D 0A *).. end..
009D60: 20 20 75 6E 74 69 6C 20 46 6F 75 6E 64 20 20 20 until Found
009D70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009D80: 20 20 20 20 20 20 20 28 2A 20 62 69 73 20 65 69 (* bis ei
009D90: 6E 20 67 75 65 6C 74 69 67 65 72 20 4E 61 6D 65 n gueltiger Name
009DA0: 20 65 69 6E 67 65 67 62 65 6E 0D 0A 20 20 20 20 eingegben..
009DB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009DC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009DD0: 20 20 20 20 20 20 77 75 72 64 65 20 2A 29 0D 0A wurde *)..
009DE0: 65 6E 64 3B 20 28 2A 20 6F 66 20 70 72 6F 63 20 end; (* of proc
009DF0: 52 65 61 64 53 68 69 70 20 2A 29 0D 0A 0D 0A 70 ReadShip *)....p
009E00: 20 20 20 20 20 20 20 20 20 20 20 3D 20 73 74 72 = str
009E10: 69 6E 67 5B 38 30 5D 3B 0D 0A 76 61 72 0D 0A 20 ing[80];..var..
009E20: 20 53 68 69 70 4E 61 6D 65 20 20 20 20 20 20 20 ShipName
009E30: 20 20 20 20 20 20 3A 20 61 72 72 61 79 5B 53 68 : array[Sh
009E40: 69 70 54 79 70 65 5D 20 6F 66 20 4E 61 6D 65 73 ipType] of Names
009E50: 3B 0D 0A 20 20 53 65 63 74 6F 72 20 20 20 20 20 ;.. Sector
009E60: 20 20 20 20 20 20 20 20 20 20 3A 20 61 72 72 61 : arra
009E70: 79 5B 58 52 61 6E 67 65 2C 59 52 61 6E 67 65 5D y[XRange,YRange]
009E80: 20 6F 66 20 53 68 69 70 54 79 70 65 3B 0D 0A 20 of ShipType;..
009E90: 20 53 68 69 70 20 20 20 20 20 20 20 20 20 20 20 Ship
009EA0: 20 20 20 20 20 20 3A 20 53 68 69 70 54 79 70 65 : ShipType
009EB0: 3B 0D 0A 20 20 53 58 20 20 20 20 20 20 20 20 20 ;.. SX
009EC0: 20 20 20 20 20 20 20 20 20 20 3A 20 58 52 61 6E : XRan
009ED0: 67 65 3B 0D 0A 20 20 53 59 20 20 20 20 20 20 20 ge;.. SY
009EE0: 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 59 52 : YR
009EF0: 61 6E 67 65 3B 0D 0A 0D 0A 0D 0A 70 72 6F 63 65 ange;......proce
009F00: 64 75 72 65 20 53 68 6F 77 53 65 63 74 6F 72 28 dure ShowSector(
009F10: 53 58 2C 53 59 20 3A 20 49 6E 74 65 67 65 72 29 SX,SY : Integer)
009F20: 3B 0D 0A 28 2A 0D 0A 20 20 20 20 20 20 20 53 63 ;..(*.. Sc
009F30: 68 72 65 69 62 74 20 64 65 6E 20 53 63 68 69 66 hreibt den Schif
009F40: 66 73 74 79 70 20 61 6E 20 64 69 65 20 65 6E 74 fstyp an die ent
009F50: 73 70 72 65 63 68 65 6E 64 65 20 42 69 6C 64 73 sprechende Bilds
009F60: 63 68 69 72 6D 73 74 65 6C 6C 65 0D 0A 2A 29 0D chirmstelle..*).
009F70: 0A 62 65 67 69 6E 0D 0A 20 20 47 6F 74 6F 58 59 .begin.. GotoXY
009F80: 28 34 2A 53 58 2C 31 30 2B 53 59 29 3B 0D 0A 20 (4*SX,10+SY);..
009F90: 20 69 66 20 53 65 63 74 6F 72 5B 53 58 2C 53 59 if Sector[SX,SY
009FA0: 5D 20 3D 20 4E 6F 53 68 69 70 0D 0A 20 20 20 20 ] = NoShip..
009FB0: 74 68 65 6E 20 57 72 69 74 65 28 27 2A 2A 2A 27 then Write('***'
009FC0: 29 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 ) (*
009FD0: 69 66 20 6E 6F 20 73 68 69 70 20 74 68 65 72 65 if no ship there
009FE0: 20 2A 29 0D 0A 20 20 20 20 65 6C 73 65 20 57 72 *).. else Wr
009FF0: 69 74 65 28 43 6F 70 79 28 53 68 69 70 4E 61 6D ite(Copy(ShipNam
00A000: 72 6F 63 65 64 75 72 65 20 52 65 61 64 43 6F 6F rocedure ReadCoo
00A010: 72 64 73 28 4C 69 6E 65 20 3A 20 42 79 74 65 3B rds(Line : Byte;
00A020: 20 4D 73 67 20 3A 20 50 72 6F 6D 70 74 3B 0D 0A Msg : Prompt;..
00A030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00A040: 20 20 20 20 20 76 61 72 20 53 58 20 3A 20 58 52 var SX : XR
00A050: 61 6E 67 65 3B 20 76 61 72 20 53 59 20 3A 20 59 ange; var SY : Y
00A060: 72 61 6E 67 65 29 3B 0D 0A 28 2A 0D 0A 20 20 20 range);..(*..
00A070: 20 20 20 20 46 72 61 67 74 20 53 70 69 65 6C 65 Fragt Spiele
00A080: 72 20 6E 61 63 68 20 53 58 20 75 6E 64 20 53 59 r nach SX und SY
00A090: 20 4B 6F 6F 72 64 69 6E 61 74 65 6E 3B 0D 0A 20 Koordinaten;..
00A0A0: 20 20 20 20 20 20 70 72 75 65 66 74 20 6F 62 20 prueft ob
00A0B0: 62 65 69 64 65 20 57 65 72 74 65 20 69 6D 20 65 beide Werte im e
00A0C0: 72 6C 61 75 62 74 65 6E 20 42 65 72 65 69 63 68 rlaubten Bereich
00A0D0: 3B 0D 0A 20 20 20 20 20 20 20 73 63 68 61 6C 74 ;.. schalt
00A0E0: 65 74 20 49 2F 4F 20 75 6E 64 20 42 65 72 65 69 et I/O und Berei
00A0F0: 63 68 73 75 65 62 65 72 70 72 75 65 66 75 6E 67 chsueberpruefung
00A100: 20 75 6D 20 41 62 73 74 75 65 72 7A 65 20 7A 75 um Abstuerze zu
00A110: 20 76 65 72 6D 65 69 64 65 6E 0D 0A 2A 29 0D 0A vermeiden..*)..
00A120: 62 65 67 69 6E 0D 0A 20 20 28 2A 24 49 2D 2C 52 begin.. (*$I-,R
00A130: 2D 2A 29 0D 0A 20 20 72 65 70 65 61 74 0D 0A 20 -*).. repeat..
00A140: 20 20 20 57 72 69 74 65 50 72 6F 6D 70 74 28 4C WritePrompt(L
00A150: 69 6E 65 2C 4D 73 67 29 3B 0D 0A 20 20 20 20 52 ine,Msg);.. R
00A160: 65 61 64 4C 6E 28 53 58 2C 53 59 29 0D 0A 20 20 eadLn(SX,SY)..
00A170: 75 6E 74 69 6C 20 28 53 58 20 69 6E 20 5B 31 2E until (SX in [1.
00A180: 2E 58 4D 61 78 5D 29 20 61 6E 64 20 28 53 59 20 .XMax]) and (SY
00A190: 69 6E 20 5B 31 2E 2E 59 4D 61 78 5D 29 20 61 6E in [1..YMax]) an
00A1A0: 64 20 28 49 4F 72 65 73 75 6C 74 20 3D 20 30 29 d (IOresult = 0)
00A1B0: 3B 0D 0A 20 20 57 72 69 74 65 50 72 6F 6D 70 74 ;.. WritePrompt
00A1C0: 28 4C 69 6E 65 2C 27 27 29 3B 20 20 20 28 2A 20 (Line,''); (*
00A1D0: 5A 65 69 6C 65 20 6C 6F 65 73 63 68 65 6E 20 77 Zeile loeschen w
00A1E0: 65 6E 6E 20 66 65 72 74 69 67 20 2A 29 0D 0A 20 enn fertig *)..
00A1F0: 20 28 2A 24 49 2B 2C 52 2B 2A 29 0D 0A 65 6E 64 (*$I+,R+*)..end
00A200: 65 5B 53 65 63 74 6F 72 5B 53 58 2C 53 59 5D 5D e[Sector[SX,SY]]
00A210: 2C 31 2C 33 29 29 0D 0A 65 6E 64 3B 0D 0A 0D 0A ,1,3))..end;....
00A220: 70 72 6F 63 65 64 75 72 65 20 49 6E 69 74 69 61 procedure Initia
00A230: 6C 69 7A 65 3B 0D 0A 28 2A 0D 0A 20 20 20 20 20 lize;..(*..
00A240: 20 20 49 6E 69 74 69 61 6C 69 73 69 65 72 74 20 Initialisiert
00A250: 64 69 76 65 72 73 65 73 2C 20 69 6E 73 62 65 73 diverses, insbes
00A260: 6F 6E 64 65 72 65 20 64 65 6E 20 41 72 72 61 79 ondere den Array
00A270: 20 53 68 69 70 4E 61 6D 65 0D 0A 2A 29 0D 0A 62 ShipName..*)..b
00A280: 65 67 69 6E 0D 0A 20 20 28 2A 20 73 65 74 20 65 egin.. (* set e
00A290: 61 63 68 20 65 6C 65 6D 65 6E 74 20 69 6E 20 61 ach element in a
00A2A0: 72 72 61 79 20 74 6F 20 61 70 70 72 6F 70 72 69 rray to appropri
00A2B0: 61 74 65 20 73 74 72 69 6E 67 20 2A 29 0D 0A 20 ate string *)..
00A2C0: 20 53 68 69 70 4E 61 6D 65 5B 4E 6F 53 68 69 70 ShipName[NoShip
00A2D0: 5D 20 20 20 20 20 20 20 3A 3D 20 27 27 3B 20 20 ] := '';
00A2E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2A (*
00A2F0: 20 6E 75 6C 6C 20 73 74 72 69 6E 67 20 2A 29 0D null string *).
00A300: 0A 20 20 53 68 69 70 4E 61 6D 65 5B 43 6F 6E 73 . ShipName[Cons
00A310: 74 69 74 75 74 69 6F 6E 5D 20 3A 3D 20 27 43 6F titution] := 'Co
00A320: 6E 73 74 69 74 75 74 69 6F 6E 27 3B 0D 0A 20 20 nstitution';..
00A330: 53 68 69 70 4E 61 6D 65 5B 45 6E 74 65 72 70 72 ShipName[Enterpr
00A340: 69 73 65 5D 20 20 20 3A 3D 20 27 45 6E 74 65 72 ise] := 'Enter
00A350: 70 72 69 73 65 27 3B 0D 0A 20 20 53 68 69 70 4E prise';.. ShipN
00A360: 61 6D 65 5B 52 65 6C 69 61 6E 74 5D 20 20 20 20 ame[Reliant]
00A370: 20 20 3A 3D 20 27 52 65 6C 69 61 6E 74 27 3B 0D := 'Reliant';.
00A380: 0A 20 20 53 68 69 70 4E 61 6D 65 5B 4C 6F 6B 6E . ShipName[Lokn
00A390: 61 72 5D 20 20 20 20 20 20 20 3A 3D 20 27 4C 6F ar] := 'Lo
00A3A0: 6B 6E 61 72 27 3B 0D 0A 20 20 53 68 69 70 4E 61 knar';.. ShipNa
00A3B0: 6D 65 5B 4C 61 72 73 6F 6E 5D 20 20 20 20 20 20 me[Larson]
00A3C0: 20 3A 3D 20 27 4C 61 72 73 6F 6E 27 3B 0D 0A 20 := 'Larson';..
00A3D0: 20 53 68 69 70 4E 61 6D 65 5B 43 68 61 6E 64 6C ShipName[Chandl
00A3E0: 65 79 5D 20 20 20 20 20 3A 3D 20 27 43 68 61 6E ey] := 'Chan
00A3F0: 64 6C 65 79 27 3B 0D 0A 20 20 53 68 69 70 4E 61 dley';.. ShipNa
00A400: 3B 20 28 2A 20 6F 66 20 70 72 6F 63 20 52 65 61 ; (* of proc Rea
00A410: 64 43 6F 6F 72 64 73 20 2A 29 0D 0A 0D 0A 62 65 dCoords *)....be
00A420: 67 69 6E 20 28 2A 20 48 61 75 70 74 70 72 6F 67 gin (* Hauptprog
00A430: 72 61 6D 6D 20 76 6F 6E 20 53 63 61 6C 61 72 65 ramm von Scalare
00A440: 20 2A 29 0D 0A 20 20 43 6C 72 53 63 72 3B 0D 0A *).. ClrScr;..
00A450: 20 20 49 6E 69 74 69 61 6C 69 7A 65 3B 0D 0A 20 Initialize;..
00A460: 20 57 72 69 74 65 50 72 6F 6D 70 74 28 31 2C 27 WritePrompt(1,'
00A470: 50 6C 61 7A 69 65 72 65 6E 20 53 69 65 20 53 63 Plazieren Sie Sc
00A480: 68 69 66 66 65 20 61 6E 20 53 65 6B 74 6F 72 6B hiffe an Sektork
00A490: 6F 6F 72 64 69 6E 61 74 65 6E 2E 27 29 3B 0D 0A oordinaten.');..
00A4A0: 20 20 57 72 69 74 65 50 72 6F 6D 70 74 28 32 2C WritePrompt(2,
00A4B0: 27 44 72 75 65 63 6B 65 6E 20 73 69 65 20 3C 52 'Druecken sie <R
00A4C0: 45 54 55 52 4E 3E 20 77 65 6E 6E 20 53 69 65 20 ETURN> wenn Sie
00A4D0: 66 65 72 74 69 67 20 73 69 6E 64 2E 27 29 3B 0D fertig sind.');.
00A4E0: 0A 20 20 72 65 70 65 61 74 0D 0A 20 20 20 20 52 . repeat.. R
00A4F0: 65 61 64 53 68 69 70 28 33 2C 27 47 65 62 65 6E eadShip(3,'Geben
00A500: 20 53 69 65 20 65 69 6E 65 6E 20 53 63 68 69 66 Sie einen Schif
00A510: 66 73 6E 61 6D 65 6E 20 65 69 6E 20 3A 20 20 27 fsnamen ein : '
00A520: 2C 53 68 69 70 29 3B 0D 0A 20 20 20 20 69 66 20 ,Ship);.. if
00A530: 53 68 69 70 20 3C 3E 20 4E 6F 53 68 69 70 20 74 Ship <> NoShip t
00A540: 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 hen begin..
00A550: 20 52 65 61 64 43 6F 6F 72 64 73 28 34 2C 27 47 ReadCoords(4,'G
00A560: 65 62 65 6E 20 53 69 65 20 64 69 65 20 53 65 6B eben Sie die Sek
00A570: 74 6F 72 6B 6F 6F 72 64 69 6E 61 74 65 6E 20 65 torkoordinaten e
00A580: 69 6E 20 3A 20 20 27 2C 53 58 2C 53 59 29 3B 0D in : ',SX,SY);.
00A590: 0A 20 20 20 20 20 20 53 65 63 74 6F 72 5B 53 58 . Sector[SX
00A5A0: 2C 53 59 5D 20 3A 3D 20 53 68 69 70 3B 0D 0A 20 ,SY] := Ship;..
00A5B0: 20 20 20 20 20 53 68 6F 77 53 65 63 74 6F 72 28 ShowSector(
00A5C0: 53 58 2C 53 59 29 0D 0A 20 20 20 20 65 6E 64 0D SX,SY).. end.
00A5D0: 0A 20 20 75 6E 74 69 6C 20 53 68 69 70 20 3D 20 . until Ship =
00A5E0: 4E 6F 53 68 69 70 0D 0A 65 6E 64 2E 20 28 2A 20 NoShip..end. (*
00A5F0: 6F 66 20 70 72 6F 67 72 61 6D 20 53 63 61 6C 61 of program Scala
00A600: 6D 65 5B 45 78 63 65 6C 73 69 6F 72 5D 20 20 20 me[Excelsior]
00A610: 20 3A 3D 20 27 45 78 63 65 6C 73 69 6F 72 27 3B := 'Excelsior';
00A620: 0D 0A 20 20 53 68 69 70 4E 61 6D 65 5B 42 61 6B .. ShipName[Bak
00A630: 65 72 5D 20 20 20 20 20 20 20 20 3A 3D 20 27 42 er] := 'B
00A640: 61 6B 65 72 27 3B 0D 0A 20 20 28 2A 20 53 65 6B aker';.. (* Sek
00A650: 74 6F 72 6B 61 72 74 65 20 6D 69 74 20 22 6B 65 torkarte mit "ke
00A660: 69 6E 65 6E 20 53 63 68 69 66 66 65 6E 27 20 66 inen Schiffen' f
00A670: 75 65 6C 6C 65 6E 20 2A 29 0D 0A 20 20 46 69 6C uellen *).. Fil
00A680: 6C 43 68 61 72 28 53 65 63 74 6F 72 2C 53 69 7A lChar(Sector,Siz
00A690: 65 4F 66 28 53 65 63 74 6F 72 29 2C 4F 72 64 28 eOf(Sector),Ord(
00A6A0: 4E 6F 53 68 69 70 29 29 3B 0D 0A 20 20 28 2A 20 NoShip));.. (*
00A6B0: 64 69 73 70 6C 61 79 20 73 65 63 74 6F 72 20 6D display sector m
00A6C0: 61 70 20 6F 6E 20 73 63 72 65 65 6E 20 2A 29 0D ap on screen *).
00A6D0: 0A 20 20 66 6F 72 20 53 58 20 3A 3D 20 31 20 74 . for SX := 1 t
00A6E0: 6F 20 58 4D 61 78 20 64 6F 0D 0A 20 20 20 20 66 o XMax do.. f
00A6F0: 6F 72 20 53 59 20 3A 3D 20 31 20 74 6F 20 59 4D or SY := 1 to YM
00A700: 61 78 20 64 6F 0D 0A 20 20 20 20 20 20 53 68 6F ax do.. Sho
00A710: 77 53 65 63 74 6F 72 28 53 58 2C 53 59 29 0D 0A wSector(SX,SY)..
00A720: 65 6E 64 3B 20 28 2A 20 6F 66 20 70 72 6F 63 20 end; (* of proc
00A730: 49 6E 69 74 69 61 6C 69 7A 65 20 2A 29 0D 0A 0D Initialize *)...
00A740: 0A 70 72 6F 63 65 64 75 72 65 20 57 72 69 74 65 .procedure Write
00A750: 50 72 6F 6D 70 74 28 4C 69 6E 65 20 3A 20 42 79 Prompt(Line : By
00A760: 74 65 3B 20 4D 73 67 20 3A 20 50 72 6F 6D 70 74 te; Msg : Prompt
00A770: 29 3B 0D 0A 28 2A 0D 0A 20 20 20 20 20 20 20 5A );..(*.. Z
00A780: 65 69 67 74 20 65 69 6E 65 20 41 62 66 72 61 67 eigt eine Abfrag
00A790: 65 73 74 72 69 6E 67 20 6E 61 63 68 64 65 6D 20 estring nachdem
00A7A0: 64 69 65 20 5A 65 69 6C 65 20 67 65 6C 6F 65 73 die Zeile geloes
00A7B0: 63 68 74 20 77 75 72 64 65 0D 0A 2A 29 0D 0A 62 cht wurde..*)..b
00A7C0: 65 67 69 6E 0D 0A 20 20 47 6F 74 6F 58 59 28 31 egin.. GotoXY(1
00A7D0: 2C 4C 69 6E 65 29 3B 0D 0A 20 20 43 6C 72 45 6F ,Line);.. ClrEo
00A7E0: 6C 3B 0D 0A 20 20 57 72 69 74 65 28 4D 73 67 29 l;.. Write(Msg)
00A7F0: 0D 0A 65 6E 64 3B 20 28 2A 20 6F 66 20 70 72 6F ..end; (* of pro
00A800: 72 65 20 2A 29 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A re *)...........
00A810: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00A820: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00A830: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00A840: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00A850: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00A860: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00A870: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00A880: 68 69 66 66 65 20 61 6E 20 53 65 6B 74 6F 72 6B hiffe an Sektork
00A890: 6F 6F 72 64 69 6E 61 74 65 6E 2E 27 29 3B 0D 0A oordinaten.');..
00A8A0: 20 20 57 72 69 74 65 50 72 6F 6D 70 74 28 32 2C WritePrompt(2,
00A8B0: 27 44 72 75 65 63 6B 65 6E 20 73 69 65 20 3C 52 'Druecken sie <R
00A8C0: 45 54 55 52 4E 3E 20 77 65 6E 6E 20 53 69 65 20 ETURN> wenn Sie
00A8D0: 66 65 72 74 69 67 20 73 69 6E 64 2E 27 29 3B 0D fertig sind.');.
00A8E0: 0A 20 20 72 65 70 65 61 74 0D 0A 20 20 20 20 52 . repeat.. R
00A8F0: 65 61 64 53 68 69 70 28 33 2C 27 47 65 62 65 6E eadShip(3,'Geben
00A900: 20 53 69 65 20 65 69 6E 65 6E 20 53 63 68 69 66 Sie einen Schif
00A910: 66 73 6E 61 6D 65 6E 20 65 69 6E 20 3A 20 20 27 fsnamen ein : '
00A920: 2C 53 68 69 70 29 3B 0D 0A 20 20 20 20 69 66 20 ,Ship);.. if
00A930: 53 68 69 70 20 3C 3E 20 4E 6F 53 68 69 70 20 74 Ship <> NoShip t
00A940: 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 hen begin..
00A950: 20 52 65 61 64 43 6F 6F 72 64 73 28 34 2C 27 47 ReadCoords(4,'G
00A960: 65 62 65 6E 20 53 69 65 20 64 69 65 20 53 65 6B eben Sie die Sek
00A970: 74 6F 72 6B 6F 6F 72 64 69 6E 61 74 65 6E 20 65 torkoordinaten e
00A980: 69 6E 20 3A 20 20 27 2C 53 58 2C 53 59 29 3B 0D in : ',SX,SY);.
00A990: 0A 20 20 20 20 20 20 53 65 63 74 6F 72 5B 53 58 . Sector[SX
00A9A0: 2C 53 59 5D 20 3A 3D 20 53 68 69 70 3B 0D 0A 20 ,SY] := Ship;..
00A9B0: 20 20 20 20 20 53 68 6F 77 53 65 63 74 6F 72 28 ShowSector(
00A9C0: 53 58 2C 53 59 29 0D 0A 20 20 20 20 65 6E 64 0D SX,SY).. end.
00A9D0: 0A 20 20 75 6E 74 69 6C 20 53 68 69 70 20 3D 20 . until Ship =
00A9E0: 4E 6F 53 68 69 70 0D 0A 65 6E 64 2E 20 28 2A 20 NoShip..end. (*
00A9F0: 6F 66 20 70 72 6F 67 72 61 6D 20 53 63 61 6C 61 of program Scala
00AA00: 63 20 57 72 69 74 65 50 72 6F 6D 70 74 20 2A 29 c WritePrompt *)
00AA10: 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 52 65 ....procedure Re
00AA20: 61 64 53 68 69 70 28 4C 69 6E 65 20 3A 20 42 79 adShip(Line : By
00AA30: 74 65 3B 20 4D 73 67 20 3A 20 70 72 6F 6D 70 74 te; Msg : prompt
00AA40: 3B 20 76 61 72 20 53 68 69 70 20 3A 20 53 68 69 ; var Ship : Shi
00AA50: 70 54 79 70 65 29 3B 0D 0A 28 2A 0D 0A 20 20 20 pType);..(*..
00AA60: 20 20 20 20 46 72 61 67 74 20 64 65 6E 20 53 70 Fragt den Sp
00AA70: 69 65 6C 65 72 20 6E 61 63 68 20 64 65 72 20 53 ieler nach der S
00AA80: 63 68 69 66 66 73 6B 6C 61 73 73 65 3B 20 6C 69 chiffsklasse; li
00AA90: 65 73 74 20 64 69 65 73 65 20 65 69 6E 20 75 6E est diese ein un
00AAA0: 64 0D 0A 20 20 20 20 20 20 20 75 65 62 65 72 70 d.. ueberp
00AAB0: 72 75 65 66 74 20 73 69 65 20 75 6E 64 20 77 69 rueft sie und wi
00AAC0: 65 64 65 72 68 6F 6C 74 20 64 61 73 20 73 6F 6C ederholt das sol
00AAD0: 61 6E 67 65 20 62 69 73 20 65 69 6E 65 20 67 75 ange bis eine gu
00AAE0: 65 6C 74 69 67 65 0D 0A 20 20 20 20 20 20 20 45 eltige.. E
00AAF0: 69 6E 67 61 62 65 20 65 72 66 6F 6C 67 74 0D 0A ingabe erfolgt..
00AB00: 2A 29 0D 0A 76 61 72 0D 0A 20 20 53 4E 61 6D 65 *)..var.. SName
00AB10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00AB20: 3A 20 4E 61 6D 65 73 3B 0D 0A 20 20 53 6E 64 78 : Names;.. Sndx
00AB30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00AB40: 20 3A 20 53 68 69 70 54 79 70 65 3B 0D 0A 20 20 : ShipType;..
00AB50: 46 6F 75 6E 64 20 20 20 20 20 20 20 20 20 20 20 Found
00AB60: 20 20 20 20 20 3A 20 42 6F 6F 6C 65 61 6E 3B 0D : Boolean;.
00AB70: 0A 62 65 67 69 6E 0D 0A 20 20 72 65 70 65 61 74 .begin.. repeat
00AB80: 0D 0A 20 20 20 20 57 72 69 74 65 50 72 6F 6D 70 .. WritePromp
00AB90: 74 28 4C 69 6E 65 2C 4D 73 67 29 3B 20 20 20 20 t(Line,Msg);
00ABA0: 20 20 20 20 20 20 20 20 20 28 2A 20 50 72 6F 6D (* Prom
00ABB0: 70 74 20 73 63 68 72 65 69 62 65 6E 20 2A 29 0D pt schreiben *).
00ABC0: 0A 20 20 20 20 52 65 61 64 4C 6E 28 53 4E 61 6D . ReadLn(SNam
00ABD0: 65 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 e);
00ABE0: 20 20 20 20 20 20 20 20 28 2A 20 53 63 68 69 66 (* Schif
00ABF0: 66 73 6E 61 6D 65 6E 20 65 69 6E 6C 65 73 65 6E fsnamen einlesen
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: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00ADA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00ADB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00ADC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00ADD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00ADE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00ADF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AF00: 67 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ger;..
00AF10: 20 20 20 20 20 20 20 20 20 20 20 20 20 4D 61 78 Max
00AF20: 20 3A 20 49 6E 74 65 67 65 72 29 3B 0D 0A 20 20 : Integer);..
00AF30: 28 2A 0D 0A 20 20 20 20 20 20 5A 77 65 63 6B 20 (*.. Zweck
00AF40: 20 20 20 20 20 20 6B 75 65 6D 6D 65 72 74 20 73 kuemmert s
00AF50: 69 63 68 20 75 6D 20 61 75 74 6F 6D 61 74 69 73 ich um automatis
00AF60: 63 68 65 6E 20 55 6D 62 72 75 63 68 20 66 75 65 chen Umbruch fue
00AF70: 72 20 56 61 6C 0D 0A 20 20 2A 29 0D 0A 20 20 62 r Val.. *).. b
00AF80: 65 67 69 6E 0D 0A 20 20 20 20 69 66 20 56 61 6C egin.. if Val
00AF90: 20 3C 20 4D 69 6E 0D 0A 20 20 20 20 20 20 74 68 < Min.. th
00AFA0: 65 6E 20 56 61 6C 20 3A 3D 20 4D 61 78 0D 0A 20 en Val := Max..
00AFB0: 20 20 20 65 6C 73 65 20 69 66 20 56 61 6C 20 3E else if Val >
00AFC0: 20 4D 61 78 0D 0A 20 20 20 20 20 20 74 68 65 6E Max.. then
00AFD0: 20 56 61 6C 20 3A 3D 20 4D 69 6E 0D 0A 20 20 65 Val := Min.. e
00AFE0: 6E 64 3B 20 28 2A 20 76 6F 6E 20 50 72 6F 7A 65 nd; (* von Proze
00AFF0: 64 75 72 20 57 72 61 70 41 72 6F 75 6E 64 20 2A dur WrapAround *
00B000: 29 0D 0A 0D 0A 62 65 67 69 6E 20 28 2A 20 50 72 )....begin (* Pr
00B010: 6F 7A 65 64 75 72 20 55 70 64 61 74 65 50 6F 73 ozedur UpdatePos
00B020: 69 74 69 6F 6E 20 2A 29 0D 0A 20 20 58 20 3A 3D ition *).. X :=
00B030: 20 58 20 2B 20 44 58 3B 0D 0A 20 20 59 20 3A 3D X + DX;.. Y :=
00B040: 20 59 20 2B 20 44 59 3B 0D 0A 20 20 57 72 61 70 Y + DY;.. Wrap
00B050: 41 72 6F 75 6E 64 28 58 4D 69 6E 2C 58 2C 58 4D Around(XMin,X,XM
00B060: 61 78 29 3B 0D 0A 20 20 57 72 61 70 41 72 6F 75 ax);.. WrapArou
00B070: 6E 64 28 59 6D 69 6E 2C 59 2C 59 4D 61 78 29 0D nd(Ymin,Y,YMax).
00B080: 0A 65 6E 64 3B 20 28 2A 20 76 6F 6E 20 50 72 6F .end; (* von Pro
00B090: 7A 65 64 75 72 20 55 70 64 61 74 65 50 6F 73 69 zedur UpdatePosi
00B0A0: 74 69 6F 6E 20 2A 29 0D 0A 0D 0A 70 72 6F 63 65 tion *)....proce
00B0B0: 64 75 72 65 20 4D 6F 76 65 4F 74 68 65 72 3B 0D dure MoveOther;.
00B0C0: 0A 28 2A 0D 0A 20 20 20 20 20 20 20 5A 77 65 63 .(*.. Zwec
00B0D0: 6B 20 20 20 20 20 20 42 65 77 65 67 74 20 64 65 k Bewegt de
00B0E0: 6E 20 46 65 69 6E 64 0D 0A 2A 29 0D 0A 62 65 67 n Feind..*)..beg
00B0F0: 69 6E 0D 0A 20 20 69 66 20 52 61 6E 64 28 31 2C in.. if Rand(1,
00B100: 0D 0A 70 72 6F 67 72 61 6D 20 53 70 69 65 6C 31 ..program Spiel1
00B110: 3B 0D 0A 28 2A 0D 0A 20 20 20 20 20 20 20 45 69 ;..(*.. Ei
00B120: 6E 20 65 69 6E 66 61 63 68 65 73 20 73 75 63 68 n einfaches such
00B130: 65 6E 20 75 6E 64 20 66 65 75 65 72 6E 20 53 70 en und feuern Sp
00B140: 69 65 6C 0D 0A 2A 29 0D 0A 63 6F 6E 73 74 0D 0A iel..*)..const..
00B150: 20 20 58 4D 69 6E 20 20 20 20 20 20 20 20 20 20 XMin
00B160: 20 20 20 20 20 3D 20 20 31 3B 0D 0A 20 20 58 4D = 1;.. XM
00B170: 61 78 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ax
00B180: 20 3D 20 33 32 3B 0D 0A 20 20 59 4D 69 6E 20 20 = 32;.. YMin
00B190: 20 20 20 20 20 20 20 20 20 20 20 20 20 3D 20 20 =
00B1A0: 31 3B 0D 0A 20 20 59 4D 61 78 20 20 20 20 20 20 1;.. YMax
00B1B0: 20 20 20 20 20 20 20 20 20 3D 20 32 34 3B 0D 0A = 24;..
00B1C0: 0D 0A 74 79 70 65 0D 0A 20 20 58 42 65 72 65 69 ..type.. XBerei
00B1D0: 63 68 20 20 20 20 20 20 20 20 20 20 20 3D 20 58 ch = X
00B1E0: 4D 69 6E 2E 2E 58 4D 61 78 3B 0D 0A 20 20 59 42 Min..XMax;.. YB
00B1F0: 65 72 65 69 63 68 20 20 20 20 20 20 20 20 20 20 ereich
00B200: 20 3D 20 59 4D 69 6E 2E 2E 59 4D 61 78 3B 0D 0A = YMin..YMax;..
00B210: 20 20 5A 65 69 63 68 65 6E 6D 65 6E 67 65 20 20 Zeichenmenge
00B220: 20 20 20 20 20 3D 20 73 65 74 20 6F 66 20 43 68 = set of Ch
00B230: 61 72 3B 0D 0A 20 20 43 6F 6D 6D 61 6E 64 54 79 ar;.. CommandTy
00B240: 70 65 20 20 20 20 20 20 20 20 3D 20 28 51 75 69 pe = (Qui
00B250: 74 2C 4D 6F 76 65 2C 46 69 72 65 2C 53 65 61 72 t,Move,Fire,Sear
00B260: 63 68 29 3B 0D 0A 20 20 46 72 61 67 65 20 20 20 ch);.. Frage
00B270: 20 20 20 20 20 20 20 20 20 20 20 3D 20 73 74 72 = str
00B280: 69 6E 67 5B 38 30 5D 3B 0D 0A 0D 0A 76 61 72 0D ing[80];....var.
00B290: 0A 20 20 58 31 2C 58 32 2C 59 31 2C 59 32 20 20 . X1,X2,Y1,Y2
00B2A0: 20 20 20 20 20 20 3A 20 49 6E 74 65 67 65 72 3B : Integer;
00B2B0: 0D 0A 20 20 43 6F 6D 6D 61 6E 64 20 20 20 20 20 .. Command
00B2C0: 20 20 20 20 20 20 20 3A 20 43 6F 6D 6D 61 6E 64 : Command
00B2D0: 54 79 70 65 3B 0D 0A 0D 0A 66 75 6E 63 74 69 6F Type;....functio
00B2E0: 6E 20 52 61 6E 64 28 4C 6F 77 2C 48 69 67 68 20 n Rand(Low,High
00B2F0: 3A 20 49 6E 74 65 67 65 72 29 20 3A 20 49 6E 74 : Integer) : Int
00B300: 32 29 20 3D 20 31 0D 0A 20 20 20 20 74 68 65 6E 2) = 1.. then
00B310: 20 55 70 64 61 74 65 50 6F 73 69 74 69 6F 6E 28 UpdatePosition(
00B320: 58 32 2C 59 32 2C 52 61 6E 64 28 2D 31 2C 31 29 X2,Y2,Rand(-1,1)
00B330: 2C 52 61 6E 64 28 2D 31 2C 31 29 29 0D 0A 65 6E ,Rand(-1,1))..en
00B340: 64 3B 20 28 2A 20 76 6F 6E 20 50 72 6F 7A 65 64 d; (* von Prozed
00B350: 75 72 20 4D 6F 76 65 4F 74 68 65 72 20 2A 29 0D ur MoveOther *).
00B360: 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 44 6F 4D ...procedure DoM
00B370: 6F 76 65 3B 0D 0A 28 2A 0D 0A 20 20 20 20 20 20 ove;..(*..
00B380: 20 5A 77 65 63 6B 20 20 20 20 20 20 66 75 65 68 Zweck fueh
00B390: 72 74 20 53 70 69 65 6C 65 72 7A 75 65 67 65 20 rt Spielerzuege
00B3A0: 61 75 73 0D 0A 2A 29 0D 0A 76 61 72 0D 0A 20 20 aus..*)..var..
00B3B0: 43 68 20 20 20 20 20 20 20 20 20 20 20 20 20 20 Ch
00B3C0: 20 20 3A 20 43 68 61 72 3B 0D 0A 20 20 44 58 2C : Char;.. DX,
00B3D0: 44 59 20 20 20 20 20 20 20 20 20 20 20 20 20 3A DY :
00B3E0: 20 49 6E 74 65 67 65 72 3B 0D 0A 62 65 67 69 6E Integer;..begin
00B3F0: 0D 0A 20 20 44 58 20 3A 3D 20 30 3B 20 44 59 20 .. DX := 0; DY
00B400: 3A 3D 20 30 3B 0D 0A 20 20 47 65 74 43 68 61 72 := 0;.. GetChar
00B410: 28 43 68 2C 27 4D 4F 56 45 3E 20 55 29 70 2C 20 (Ch,'MOVE> U)p,
00B420: 44 29 6F 77 6E 2C 20 4C 29 65 66 74 2C 20 52 29 D)own, L)eft, R)
00B430: 69 67 68 74 3A 20 27 2C 5B 27 55 27 2C 27 44 27 ight: ',['U','D'
00B440: 2C 27 4C 27 2C 27 52 27 5D 29 3B 0D 0A 20 20 63 ,'L','R']);.. c
00B450: 61 73 65 20 43 68 20 6F 66 0D 0A 20 20 20 20 27 ase Ch of.. '
00B460: 55 27 20 20 20 3A 20 44 59 20 3A 3D 20 20 31 3B U' : DY := 1;
00B470: 0D 0A 20 20 20 20 27 44 27 20 20 20 3A 20 44 59 .. 'D' : DY
00B480: 20 3A 3D 20 2D 31 3B 0D 0A 20 20 20 20 27 4C 27 := -1;.. 'L'
00B490: 20 20 20 3A 20 44 58 20 3A 3D 20 2D 31 3B 0D 0A : DX := -1;..
00B4A0: 20 20 20 20 27 52 27 20 20 20 3A 20 44 58 20 3A 'R' : DX :
00B4B0: 3D 20 20 31 0D 0A 20 20 65 6E 64 3B 0D 0A 20 20 = 1.. end;..
00B4C0: 55 70 64 61 74 65 50 6F 73 69 74 69 6F 6E 28 58 UpdatePosition(X
00B4D0: 31 2C 59 31 2C 44 58 2C 44 59 29 3B 0D 0A 20 20 1,Y1,DX,DY);..
00B4E0: 47 6F 74 6F 58 59 28 31 2C 35 29 3B 20 57 72 69 GotoXY(1,5); Wri
00B4F0: 74 65 28 27 41 6B 74 75 65 6C 6C 65 20 50 6F 73 te('Aktuelle Pos
00B500: 65 67 65 72 3B 0D 0A 28 2A 0D 0A 20 20 20 20 20 eger;..(*..
00B510: 20 20 5A 77 65 63 6B 20 20 20 20 20 20 20 20 20 Zweck
00B520: 75 65 62 65 72 67 69 62 74 20 65 69 6E 65 20 5A uebergibt eine Z
00B530: 75 66 61 6C 6C 73 7A 61 68 6C 20 69 6D 20 42 65 ufallszahl im Be
00B540: 72 65 69 63 68 20 4C 6F 77 2E 2E 48 69 67 68 0D reich Low..High.
00B550: 0A 2A 29 0D 0A 76 61 72 0D 0A 20 20 52 61 6E 67 .*)..var.. Rang
00B560: 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A e :
00B570: 20 49 6E 74 65 67 65 72 3B 0D 0A 62 65 67 69 6E Integer;..begin
00B580: 0D 0A 20 20 52 61 6E 67 65 20 3A 3D 20 28 48 69 .. Range := (Hi
00B590: 67 68 20 2D 20 4C 6F 77 29 20 2B 20 31 3B 0D 0A gh - Low) + 1;..
00B5A0: 20 20 52 61 6E 64 20 20 3A 3D 20 4C 6F 77 20 2B Rand := Low +
00B5B0: 20 54 72 75 6E 63 28 52 61 6E 67 65 2A 52 61 6E Trunc(Range*Ran
00B5C0: 64 6F 6D 29 0D 0A 65 6E 64 3B 20 28 2A 20 76 6F dom)..end; (* vo
00B5D0: 6E 20 50 72 6F 7A 65 64 75 72 20 52 61 6E 64 20 n Prozedur Rand
00B5E0: 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 *)....procedure
00B5F0: 47 72 6F 73 73 28 76 61 72 20 43 68 20 3A 20 43 Gross(var Ch : C
00B600: 68 61 72 29 3B 20 20 28 2A 20 55 6D 77 61 6E 64 har); (* Umwand
00B610: 6C 75 6E 67 20 69 6E 20 47 72 6F 73 73 62 75 63 lung in Grossbuc
00B620: 68 73 74 61 62 65 6E 20 2A 29 0D 0A 62 65 67 69 hstaben *)..begi
00B630: 6E 0D 0A 20 20 69 66 20 43 68 20 69 6E 20 5B 27 n.. if Ch in ['
00B640: 61 27 2E 2E 27 7A 27 5D 0D 0A 20 20 20 20 74 68 a'..'z'].. th
00B650: 65 6E 20 43 68 20 3A 3D 20 43 68 72 28 4F 72 64 en Ch := Chr(Ord
00B660: 28 43 68 29 2D 33 32 29 0D 0A 65 6E 64 3B 20 28 (Ch)-32)..end; (
00B670: 2A 20 76 6F 6E 20 50 72 6F 7A 65 64 75 72 20 47 * von Prozedur G
00B680: 72 6F 73 73 20 2A 29 0D 0A 0D 0A 70 72 6F 63 65 ross *)....proce
00B690: 64 75 72 65 20 47 65 74 43 68 61 72 28 76 61 72 dure GetChar(var
00B6A0: 20 43 68 20 3A 20 43 68 61 72 3B 20 4D 73 67 20 Ch : Char; Msg
00B6B0: 3A 20 46 72 61 67 65 3B 20 4F 4B 53 65 74 20 3A : Frage; OKSet :
00B6C0: 20 5A 65 69 63 68 65 6E 6D 65 6E 67 65 29 3B 0D Zeichenmenge);.
00B6D0: 0A 28 2A 0D 0A 20 20 20 20 20 20 20 5A 77 65 63 .(*.. Zwec
00B6E0: 6B 20 20 20 20 20 20 20 53 63 68 72 65 69 62 74 k Schreibt
00B6F0: 20 46 72 61 67 65 2C 20 4E 69 6D 6D 74 20 5A 65 Frage, Nimmt Ze
00B700: 69 74 69 6F 6E 20 3A 20 20 27 2C 58 31 3A 33 2C ition : ',X1:3,
00B710: 27 2C 27 2C 59 31 3A 33 29 0D 0A 65 6E 64 3B 20 ',',Y1:3)..end;
00B720: 28 2A 20 76 6F 6E 20 50 72 6F 7A 65 64 75 72 20 (* von Prozedur
00B730: 44 6F 4D 6F 76 65 20 2A 29 0D 0A 0D 0A 70 72 6F DoMove *)....pro
00B740: 63 65 64 75 72 65 20 44 6F 53 65 61 72 63 68 3B cedure DoSearch;
00B750: 0D 0A 28 2A 0D 0A 20 20 20 20 20 20 20 5A 77 65 ..(*.. Zwe
00B760: 63 6B 20 20 20 20 20 20 73 75 63 68 74 20 6E 61 ck sucht na
00B770: 63 68 20 64 65 6D 20 46 65 69 6E 64 20 69 6E 20 ch dem Feind in
00B780: 61 6E 67 72 65 6E 7A 65 6E 64 65 6E 20 42 65 72 angrenzenden Ber
00B790: 65 69 63 68 65 6E 0D 0A 2A 29 0D 0A 76 61 72 0D eichen..*)..var.
00B7A0: 0A 20 20 46 6F 75 6E 64 20 20 20 20 20 20 20 20 . Found
00B7B0: 20 20 20 20 20 3A 20 42 6F 6F 6C 65 61 6E 3B 0D : Boolean;.
00B7C0: 0A 20 20 44 58 2C 44 59 2C 54 58 2C 54 59 20 20 . DX,DY,TX,TY
00B7D0: 20 20 20 20 20 3A 20 49 6E 74 65 67 65 72 3B 0D : Integer;.
00B7E0: 0A 62 65 67 69 6E 0D 0A 20 20 46 6F 75 6E 64 20 .begin.. Found
00B7F0: 3A 3D 20 46 61 6C 73 65 3B 0D 0A 20 20 44 58 20 := False;.. DX
00B800: 3A 3D 20 2D 33 3B 0D 0A 20 20 77 68 69 6C 65 20 := -3;.. while
00B810: 6E 6F 74 20 46 6F 75 6E 64 20 61 6E 64 20 28 44 not Found and (D
00B820: 58 20 3C 20 34 29 20 64 6F 20 62 65 67 69 6E 0D X < 4) do begin.
00B830: 0A 20 20 20 20 44 59 20 3A 3D 20 2D 33 3B 0D 0A . DY := -3;..
00B840: 20 20 20 20 77 68 69 6C 65 20 6E 6F 74 20 46 6F while not Fo
00B850: 75 6E 64 20 61 6E 64 20 28 44 59 20 3C 20 34 29 und and (DY < 4)
00B860: 20 64 6F 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 do begin..
00B870: 20 54 58 20 3A 3D 20 58 31 3B 20 54 59 20 3A 3D TX := X1; TY :=
00B880: 20 59 31 3B 0D 0A 20 20 20 20 20 20 55 70 64 61 Y1;.. Upda
00B890: 74 65 50 6F 73 69 74 69 6F 6E 28 54 58 2C 54 59 tePosition(TX,TY
00B8A0: 2C 44 58 2C 44 59 29 3B 0D 0A 20 20 20 20 20 20 ,DX,DY);..
00B8B0: 69 66 20 28 54 58 20 3D 20 58 32 29 20 41 4E 44 if (TX = X2) AND
00B8C0: 20 28 54 59 20 3D 20 59 32 29 0D 0A 20 20 20 20 (TY = Y2)..
00B8D0: 20 20 20 20 74 68 65 6E 20 46 6F 75 6E 64 20 3A then Found :
00B8E0: 3D 20 54 72 75 65 0D 0A 20 20 20 20 20 20 20 20 = True..
00B8F0: 65 6C 73 65 20 44 59 20 3A 3D 20 44 59 20 2B 20 else DY := DY +
00B900: 69 63 68 65 6E 20 61 6E 2C 20 77 65 6E 6E 20 69 ichen an, wenn i
00B910: 6E 20 4F 4B 53 65 74 0D 0A 2A 29 0D 0A 62 65 67 n OKSet..*)..beg
00B920: 69 6E 0D 0A 20 20 72 65 70 65 61 74 0D 0A 20 20 in.. repeat..
00B930: 20 20 47 6F 74 6F 58 59 28 31 2C 31 29 3B 20 43 GotoXY(1,1); C
00B940: 6C 72 45 6F 6C 3B 0D 0A 20 20 20 20 57 72 69 74 lrEol;.. Writ
00B950: 65 28 4D 73 67 29 3B 20 52 65 61 64 28 4B 62 64 e(Msg); Read(Kbd
00B960: 2C 43 68 29 3B 0D 0A 20 20 20 20 47 72 6F 73 73 ,Ch);.. Gross
00B970: 28 43 68 29 0D 0A 20 20 75 6E 74 69 6C 20 43 68 (Ch).. until Ch
00B980: 20 69 6E 20 4F 4B 53 65 74 0D 0A 65 6E 64 3B 20 in OKSet..end;
00B990: 28 2A 20 76 6F 6E 20 50 72 6F 7A 65 64 75 72 20 (* von Prozedur
00B9A0: 47 65 74 43 68 61 72 20 2A 29 0D 0A 0D 0A 70 72 GetChar *)....pr
00B9B0: 6F 63 65 64 75 72 65 20 47 65 74 43 6F 6D 6D 61 ocedure GetComma
00B9C0: 6E 64 28 56 61 72 20 43 6D 64 20 3A 20 43 6F 6D nd(Var Cmd : Com
00B9D0: 6D 61 6E 64 54 79 70 65 29 3B 0D 0A 28 2A 0D 0A mandType);..(*..
00B9E0: 20 20 20 20 20 20 20 5A 77 65 63 6B 20 20 20 20 Zweck
00B9F0: 20 20 45 72 6C 61 75 62 74 20 64 65 6D 20 42 65 Erlaubt dem Be
00BA00: 6E 75 74 7A 65 72 20 65 69 6E 73 20 76 6F 6E 20 nutzer eins von
00BA10: 76 69 65 72 20 4B 6F 6D 6D 61 6E 64 6F 73 20 7A vier Kommandos z
00BA20: 75 20 77 61 65 68 6C 65 6E 0D 0A 2A 29 0D 0A 76 u waehlen..*)..v
00BA30: 61 72 0D 0A 20 20 43 68 20 20 20 20 20 20 20 20 ar.. Ch
00BA40: 20 20 20 20 20 20 20 20 3A 20 43 68 61 72 3B 0D : Char;.
00BA50: 0A 62 65 67 69 6E 0D 0A 20 20 47 65 74 43 68 61 .begin.. GetCha
00BA60: 72 28 43 68 2C 27 43 4D 44 3E 20 4D 29 6F 76 65 r(Ch,'CMD> M)ove
00BA70: 2C 20 46 29 69 72 65 2C 20 53 29 65 61 72 63 68 , F)ire, S)earch
00BA80: 2C 20 51 29 75 69 74 3A 20 27 2C 5B 27 4D 27 2C , Q)uit: ',['M',
00BA90: 27 46 27 2C 27 53 27 2C 27 51 27 5D 29 3B 0D 0A 'F','S','Q']);..
00BAA0: 20 20 63 61 73 65 20 43 68 20 6F 66 0D 0A 20 20 case Ch of..
00BAB0: 20 20 27 4D 27 20 20 20 3A 20 43 6D 64 20 3A 3D 'M' : Cmd :=
00BAC0: 20 4D 6F 76 65 3B 0D 0A 20 20 20 20 27 46 27 20 Move;.. 'F'
00BAD0: 20 20 3A 20 43 6D 64 20 3A 3D 20 46 69 72 65 3B : Cmd := Fire;
00BAE0: 0D 0A 20 20 20 20 27 53 27 20 20 20 3A 20 43 6D .. 'S' : Cm
00BAF0: 64 20 3A 3D 20 53 65 61 72 63 68 3B 0D 0A 20 20 d := Search;..
00BB00: 31 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 1.. end;..
00BB10: 20 69 66 20 6E 6F 74 20 46 6F 75 6E 64 0D 0A 20 if not Found..
00BB20: 20 20 20 20 20 74 68 65 6E 20 44 58 20 3A 3D 20 then DX :=
00BB30: 44 58 20 2B 20 31 0D 0A 20 20 65 6E 64 3B 0D 0A DX + 1.. end;..
00BB40: 20 20 47 6F 74 6F 58 59 28 31 2C 32 29 3B 20 43 GotoXY(1,2); C
00BB50: 6C 72 45 6F 6C 3B 0D 0A 20 20 69 66 20 46 6F 75 lrEol;.. if Fou
00BB60: 6E 64 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A 20 nd then begin..
00BB70: 20 20 20 57 72 69 74 65 28 27 46 65 69 6E 64 20 Write('Feind
00BB80: 67 65 73 69 63 68 74 65 74 20 3A 20 20 41 6B 74 gesichtet : Akt
00BB90: 75 65 6C 6C 65 20 50 6F 73 69 74 69 6F 6E 20 69 uelle Position i
00BBA0: 73 74 20 27 29 3B 0D 0A 20 20 20 20 69 66 20 28 st ');.. if (
00BBB0: 44 58 20 3D 20 30 29 20 61 6E 64 20 28 44 59 20 DX = 0) and (DY
00BBC0: 3D 20 30 29 0D 0A 20 20 20 20 20 20 74 68 65 6E = 0).. then
00BBD0: 20 57 72 69 74 65 28 27 64 69 65 73 65 6C 62 65 Write('dieselbe
00BBE0: 20 77 69 65 20 49 68 72 65 27 29 0D 0A 20 20 20 wie Ihre')..
00BBF0: 20 65 6C 73 65 20 62 65 67 69 6E 0D 0A 20 20 20 else begin..
00BC00: 20 20 20 69 66 20 44 58 20 3C 20 30 0D 0A 20 20 if DX < 0..
00BC10: 20 20 20 20 20 20 74 68 65 6E 20 57 72 69 74 65 then Write
00BC20: 28 27 6C 69 6E 6B 73 20 76 6F 6E 27 29 0D 0A 20 ('links von')..
00BC30: 20 20 20 20 20 65 6C 73 65 20 69 66 20 44 58 20 else if DX
00BC40: 3E 20 30 0D 0A 20 20 20 20 20 20 20 20 74 68 65 > 0.. the
00BC50: 6E 20 57 72 69 74 65 28 27 72 65 63 68 74 73 20 n Write('rechts
00BC60: 76 6F 6E 27 29 3B 0D 0A 20 20 20 20 20 20 69 66 von');.. if
00BC70: 20 28 44 58 20 3C 3E 20 30 29 20 61 6E 64 20 28 (DX <> 0) and (
00BC80: 44 59 20 3C 3E 20 30 29 0D 0A 20 20 20 20 20 20 DY <> 0)..
00BC90: 20 20 74 68 65 6E 20 57 72 69 74 65 28 27 20 75 then Write(' u
00BCA0: 6E 64 20 27 29 3B 0D 0A 20 20 20 20 20 20 69 66 nd ');.. if
00BCB0: 20 44 59 20 3C 20 30 0D 0A 20 20 20 20 20 20 20 DY < 0..
00BCC0: 20 74 68 65 6E 20 57 72 69 74 65 28 27 75 6E 74 then Write('unt
00BCD0: 65 72 27 29 0D 0A 20 20 20 20 20 20 65 6C 73 65 er').. else
00BCE0: 20 69 66 20 44 59 20 3E 20 30 0D 0A 20 20 20 20 if DY > 0..
00BCF0: 20 20 20 20 74 68 65 6E 20 57 72 69 74 65 28 27 then Write('
00BD00: 20 20 27 51 27 20 20 20 3A 20 43 6D 64 20 3A 3D 'Q' : Cmd :=
00BD10: 20 51 75 69 74 0D 0A 20 20 65 6E 64 0D 0A 65 6E Quit.. end..en
00BD20: 64 3B 20 28 2A 20 76 6F 6E 20 50 72 6F 7A 65 64 d; (* von Prozed
00BD30: 75 72 20 47 65 74 43 6F 6D 6D 61 6E 64 20 2A 29 ur GetCommand *)
00BD40: 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 49 6E ....procedure In
00BD50: 69 74 69 61 6C 69 7A 65 3B 0D 0A 28 2A 0D 0A 20 itialize;..(*..
00BD60: 20 20 20 20 20 20 5A 77 65 63 6B 20 20 20 20 20 Zweck
00BD70: 20 49 6E 69 74 69 61 6C 69 73 69 65 72 75 6E 67 Initialisierung
00BD80: 20 76 6F 6E 20 61 6C 6C 65 6D 20 75 6E 64 20 6A von allem und j
00BD90: 65 64 65 6D 0D 0A 2A 29 0D 0A 62 65 67 69 6E 0D edem..*)..begin.
00BDA0: 0A 20 20 43 6C 72 53 63 72 3B 0D 0A 20 20 58 31 . ClrScr;.. X1
00BDB0: 20 3A 3D 20 28 58 4D 69 6E 2B 58 4D 61 78 29 20 := (XMin+XMax)
00BDC0: 64 69 76 20 32 3B 0D 0A 20 20 59 31 20 3A 3D 20 div 2;.. Y1 :=
00BDD0: 59 4D 69 6E 3B 0D 0A 20 20 58 32 20 3A 3D 20 28 YMin;.. X2 := (
00BDE0: 58 4D 69 6E 2B 58 4D 61 78 29 20 64 69 76 20 32 XMin+XMax) div 2
00BDF0: 20 2B 20 52 61 6E 64 28 2D 35 2C 35 29 3B 0D 0A + Rand(-5,5);..
00BE00: 20 20 59 32 20 3A 3D 20 28 59 6D 69 6E 2B 59 6D Y2 := (Ymin+Ym
00BE10: 61 78 29 20 64 69 76 20 32 20 2B 20 52 61 6E 64 ax) div 2 + Rand
00BE20: 28 2D 35 2C 35 29 0D 0A 65 6E 64 3B 20 28 2A 20 (-5,5)..end; (*
00BE30: 76 6F 6E 20 50 72 6F 7A 65 64 75 72 20 49 6E 69 von Prozedur Ini
00BE40: 74 69 61 6C 69 7A 65 20 2A 29 0D 0A 0D 0A 70 72 tialize *)....pr
00BE50: 6F 63 65 64 75 72 65 20 55 70 64 61 74 65 50 6F ocedure UpdatePo
00BE60: 73 69 74 69 6F 6E 28 76 61 72 20 58 2C 59 20 3A sition(var X,Y :
00BE70: 20 49 6E 74 65 67 65 72 3B 20 44 58 2C 44 59 20 Integer; DX,DY
00BE80: 3A 20 49 6E 74 65 67 65 72 29 3B 0D 0A 28 2A 0D : Integer);..(*.
00BE90: 0A 20 20 20 20 20 20 20 5A 77 65 63 6B 20 20 20 . Zweck
00BEA0: 20 20 20 62 72 69 6E 67 74 20 58 2C 59 20 61 75 bringt X,Y au
00BEB0: 66 20 64 65 6E 20 6E 65 75 65 73 74 65 6E 20 53 f den neuesten S
00BEC0: 74 61 6E 64 0D 0A 2A 29 0D 0A 0D 0A 20 20 70 72 tand..*).... pr
00BED0: 6F 63 65 64 75 72 65 20 57 72 61 70 41 72 6F 75 ocedure WrapArou
00BEE0: 6E 64 28 4D 69 6E 20 3A 20 49 6E 74 65 67 65 72 nd(Min : Integer
00BEF0: 3B 20 76 61 72 20 56 61 6C 20 3A 20 49 6E 74 65 ; var Val : Inte
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: 81 62 65 72 27 29 3B 0D 0A 20 20 20 20 20 20 57 .ber');.. W
00C010: 72 69 74 65 28 27 20 49 68 6E 65 6E 27 29 0D 0A rite(' Ihnen')..
00C020: 20 20 20 20 65 6E 64 0D 0A 20 20 65 6E 64 0D 0A end.. end..
00C030: 20 20 65 6C 73 65 20 57 72 69 74 65 28 27 46 65 else Write('Fe
00C040: 69 6E 64 20 6E 69 63 68 74 20 67 65 73 69 63 68 ind nicht gesich
00C050: 74 65 74 27 29 0D 0A 65 6E 64 3B 20 28 2A 20 76 tet')..end; (* v
00C060: 6F 6E 20 50 72 6F 7A 65 64 75 72 20 44 6F 53 65 on Prozedur DoSe
00C070: 61 72 63 68 20 2A 29 0D 0A 0D 0A 70 72 6F 63 65 arch *)....proce
00C080: 64 75 72 65 20 44 6F 46 69 72 65 28 76 61 72 20 dure DoFire(var
00C090: 43 6F 6D 6D 61 6E 64 20 3A 20 43 6F 6D 6D 61 6E Command : Comman
00C0A0: 64 54 79 70 65 29 3B 0D 0A 28 2A 0D 0A 20 20 20 dType);..(*..
00C0B0: 20 20 20 20 5A 77 65 63 6B 20 20 20 20 20 20 45 Zweck E
00C0C0: 72 6C 61 75 62 74 20 64 65 6D 20 53 70 69 65 6C rlaubt dem Spiel
00C0D0: 65 72 20 7A 75 20 73 63 68 69 65 73 73 65 6E 0D er zu schiessen.
00C0E0: 0A 2A 29 0D 0A 76 61 72 0D 0A 20 20 43 68 20 20 .*)..var.. Ch
00C0F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 :
00C100: 43 68 61 72 3B 0D 0A 20 20 44 58 2C 44 59 20 20 Char;.. DX,DY
00C110: 20 20 20 20 20 20 20 20 20 20 20 3A 20 49 6E 74 : Int
00C120: 65 67 65 72 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 eger;..begin..
00C130: 47 65 74 43 68 61 72 28 43 68 2C 27 46 49 52 45 GetChar(Ch,'FIRE
00C140: 3E 20 4C 29 65 66 74 2C 20 52 29 69 67 68 74 2C > L)eft, R)ight,
00C150: 20 55 29 70 2C 20 44 29 6F 77 6E 2C 20 53 29 61 U)p, D)own, S)a
00C160: 6D 65 3A 20 27 2C 0D 0A 20 20 20 20 20 20 20 20 me: ',..
00C170: 20 20 5B 27 4C 27 2C 27 52 27 2C 27 55 27 2C 27 ['L','R','U','
00C180: 44 27 2C 27 53 27 5D 29 3B 0D 0A 20 20 44 58 20 D','S']);.. DX
00C190: 3A 3D 20 30 3B 20 44 59 20 3A 3D 20 30 3B 0D 0A := 0; DY := 0;..
00C1A0: 20 20 63 61 73 65 20 43 68 20 6F 66 0D 0A 20 20 case Ch of..
00C1B0: 20 20 27 4C 27 20 20 20 3A 20 44 58 20 3A 3D 20 'L' : DX :=
00C1C0: 2D 31 3B 0D 0A 20 20 20 20 27 52 27 20 20 20 3A -1;.. 'R' :
00C1D0: 20 44 58 20 3A 3D 20 20 31 3B 0D 0A 20 20 20 20 DX := 1;..
00C1E0: 27 55 27 20 20 20 3A 20 44 59 20 3A 3D 20 20 31 'U' : DY := 1
00C1F0: 3B 0D 0A 20 20 20 20 27 44 27 20 20 20 3A 20 44 ;.. 'D' : D
00C200: 20 3A 20 49 6E 74 65 67 65 72 29 3B 0D 0A 76 61 : Integer);..va
00C210: 72 0D 0A 20 20 52 65 67 73 20 3A 20 52 65 67 50 r.. Regs : RegP
00C220: 61 63 6B 3B 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 ack;....begin..
00C230: 20 77 69 74 68 20 52 65 67 73 20 64 6F 20 62 65 with Regs do be
00C240: 67 69 6E 0D 0A 20 20 20 20 41 58 20 3A 3D 20 4D gin.. AX := M
00C250: 31 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 1;
00C260: 20 20 28 2A 20 61 78 2C 62 78 2C 63 78 2C 64 78 (* ax,bx,cx,dx
00C270: 20 66 75 65 72 20 49 6E 74 65 72 72 75 70 74 20 fuer Interrupt
00C280: 76 6F 72 62 65 72 65 69 74 65 6E 20 2A 29 0D 0A vorbereiten *)..
00C290: 20 20 20 20 42 58 20 3A 3D 20 4D 32 3B 0D 0A 20 BX := M2;..
00C2A0: 20 20 20 43 58 20 3A 3D 20 4D 33 3B 0D 0A 20 20 CX := M3;..
00C2B0: 20 20 44 58 20 3A 3D 20 4D 34 0D 0A 20 20 65 6E DX := M4.. en
00C2C0: 64 3B 0D 0A 20 20 49 6E 74 72 28 35 31 2C 52 65 d;.. Intr(51,Re
00C2D0: 67 73 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 gs);
00C2E0: 20 28 2A 20 49 6E 74 65 72 72 75 70 74 20 35 31 (* Interrupt 51
00C2F0: 20 61 75 66 72 75 66 65 6E 20 2A 29 0D 0A 20 20 aufrufen *)..
00C300: 77 69 74 68 20 52 65 67 73 20 64 6F 20 62 65 67 with Regs do beg
00C310: 69 6E 0D 0A 20 20 20 20 4D 31 20 3A 3D 20 41 58 in.. M1 := AX
00C320: 3B 0D 0A 20 20 20 20 4D 32 20 3A 3D 20 42 58 3B ;.. M2 := BX;
00C330: 0D 0A 20 20 20 20 4D 33 20 3A 3D 20 43 58 3B 0D .. M3 := CX;.
00C340: 0A 20 20 20 20 4D 34 20 3A 3D 20 44 58 0D 0A 20 . M4 := DX..
00C350: 20 65 6E 64 0D 0A 65 6E 64 3B 20 28 2A 20 76 6F end..end; (* vo
00C360: 6E 20 50 72 6F 7A 65 64 75 72 20 4D 61 75 73 20 n Prozedur Maus
00C370: 2A 29 0D 0A 0D 0A 0D 0A 62 65 67 69 6E 20 28 2A *)......begin (*
00C380: 20 48 61 75 70 74 70 72 6F 67 72 61 6D 6D 20 76 Hauptprogramm v
00C390: 6F 6E 20 4D 61 75 73 53 6B 65 74 63 68 20 2A 29 on MausSketch *)
00C3A0: 0D 0A 20 20 4D 31 20 3A 3D 20 30 3B 0D 0A 20 20 .. M1 := 0;..
00C3B0: 4D 32 20 3A 3D 20 30 3B 0D 0A 20 20 4D 33 20 3A M2 := 0;.. M3 :
00C3C0: 3D 20 30 3B 0D 0A 20 20 4D 34 20 3A 3D 20 30 3B = 0;.. M4 := 0;
00C3D0: 0D 0A 20 20 48 69 52 65 73 3B 20 20 20 20 20 20 .. HiRes;
00C3E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
00C3F0: 2A 20 47 72 61 70 68 69 63 73 20 6D 6F 64 65 20 * Graphics mode
00C400: 59 20 3A 3D 20 2D 31 0D 0A 20 20 65 6E 64 3B 0D Y := -1.. end;.
00C410: 0A 20 20 47 6F 74 6F 58 59 28 31 2C 33 29 3B 20 . GotoXY(1,3);
00C420: 43 6C 72 45 6F 6C 3B 0D 0A 20 20 69 66 20 28 43 ClrEol;.. if (C
00C430: 68 20 3D 20 27 53 27 29 20 61 6E 64 20 28 52 61 h = 'S') and (Ra
00C440: 6E 64 28 31 2C 34 29 20 3D 20 31 29 20 74 68 65 nd(1,4) = 1) the
00C450: 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 57 72 69 n begin.. Wri
00C460: 74 65 28 27 48 6F 70 70 6C 61 2E 2E 2E 20 53 69 te('Hoppla... Si
00C470: 65 20 68 61 62 65 6E 20 73 69 63 68 20 73 65 6C e haben sich sel
00C480: 62 73 74 20 65 72 73 63 68 6F 73 73 65 6E 21 20 bst erschossen!
00C490: 20 53 69 65 20 76 65 72 6C 69 65 72 65 6E 21 27 Sie verlieren!'
00C4A0: 29 3B 0D 0A 20 20 20 20 43 6F 6D 6D 61 6E 64 20 );.. Command
00C4B0: 3A 3D 20 51 75 69 74 0D 0A 20 20 65 6E 64 0D 0A := Quit.. end..
00C4C0: 20 20 65 6C 73 65 20 69 66 20 28 58 31 2B 44 58 else if (X1+DX
00C4D0: 20 3D 20 58 32 29 20 61 6E 64 20 28 59 31 2B 44 = X2) and (Y1+D
00C4E0: 59 20 3D 20 59 32 29 20 61 6E 64 20 28 52 61 6E Y = Y2) and (Ran
00C4F0: 64 28 31 2C 44 58 2B 44 59 29 20 3C 20 32 29 20 d(1,DX+DY) < 2)
00C500: 74 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 then begin..
00C510: 57 72 69 74 65 28 27 53 69 65 20 68 61 62 65 6E Write('Sie haben
00C520: 20 49 68 6E 21 20 53 69 65 20 67 65 77 69 6E 6E Ihn! Sie gewinn
00C530: 65 6E 21 27 29 3B 0D 0A 20 20 20 20 43 6F 6D 6D en!');.. Comm
00C540: 61 6E 64 20 3A 3D 20 51 75 69 74 0D 0A 20 20 65 and := Quit.. e
00C550: 6E 64 0D 0A 20 20 65 6C 73 65 20 57 72 69 74 65 nd.. else Write
00C560: 28 27 44 61 6E 65 62 65 6E 2E 20 56 69 65 6C 20 ('Daneben. Viel
00C570: 47 6C 75 65 63 6B 20 66 75 65 72 27 27 73 20 6E Glueck fuer''s n
00C580: 61 65 63 68 73 74 65 20 6D 61 6C 2E 27 29 0D 0A aechste mal.')..
00C590: 65 6E 64 3B 20 28 2A 20 76 6F 6E 20 50 72 6F 7A end; (* von Proz
00C5A0: 65 64 75 72 20 44 6F 46 69 72 65 20 2A 29 0D 0A edur DoFire *)..
00C5B0: 0D 0A 28 2A 20 20 20 20 20 20 20 20 42 65 67 69 ..(* Begi
00C5C0: 6E 6E 20 64 65 73 20 48 61 75 70 74 70 72 6F 67 nn des Hauptprog
00C5D0: 72 61 6D 6D 73 20 20 20 20 20 20 20 20 20 2A 29 ramms *)
00C5E0: 0D 0A 62 65 67 69 6E 0D 0A 20 20 49 6E 69 74 69 ..begin.. Initi
00C5F0: 61 6C 69 7A 65 3B 0D 0A 20 20 72 65 70 65 61 74 alize;.. repeat
00C600: 75 6E 64 20 46 61 72 62 65 20 2A 29 0D 0A 20 20 und Farbe *)..
00C610: 48 69 52 65 73 43 6F 6C 6F 72 28 59 65 6C 6C 6F HiResColor(Yello
00C620: 77 29 3B 0D 0A 20 20 4D 31 20 3A 3D 20 30 3B 20 w);.. M1 := 0;
00C630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00C640: 20 20 28 2A 20 49 6E 69 74 69 61 6C 69 65 72 75 (* Initialieru
00C650: 6E 67 20 64 65 73 20 4D 61 75 73 74 72 65 69 62 ng des Maustreib
00C660: 65 72 73 20 2A 29 0D 0A 20 20 4D 61 75 73 28 4D ers *).. Maus(M
00C670: 31 2C 4D 32 2C 4D 33 2C 4D 34 29 3B 0D 0A 20 20 1,M2,M3,M4);..
00C680: 4D 31 20 3A 3D 20 31 3B 20 20 20 20 20 20 20 20 M1 := 1;
00C690: 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 4D 61 (* Ma
00C6A0: 75 73 20 43 75 72 73 6F 72 20 61 6E 2A 29 0D 0A us Cursor an*)..
00C6B0: 20 20 4D 61 75 73 28 4D 31 2C 4D 32 2C 4D 33 2C Maus(M1,M2,M3,
00C6C0: 4D 34 29 3B 0D 0A 20 20 4D 31 20 3A 3D 20 33 3B M4);.. M1 := 3;
00C6D0: 0D 0A 20 20 4F 6C 64 58 20 3A 3D 20 30 3B 0D 0A .. OldX := 0;..
00C6E0: 20 20 4F 6C 64 59 20 3A 3D 20 30 3B 0D 0A 20 20 OldY := 0;..
00C6F0: 77 68 69 6C 65 20 6E 6F 74 20 4B 65 79 50 72 65 while not KeyPre
00C700: 73 73 65 64 20 64 6F 20 62 65 67 69 6E 20 20 20 ssed do begin
00C710: 28 2A 20 50 72 6F 67 72 61 6D 6D 65 6E 64 65 20 (* Programmende
00C720: 77 65 6E 6E 20 65 69 6E 65 20 54 61 73 74 65 20 wenn eine Taste
00C730: 67 65 64 72 75 65 63 6B 74 0D 0A 20 20 20 20 20 gedrueckt..
00C740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00C750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00C760: 77 69 72 64 2A 29 0D 0A 20 20 20 20 4D 61 75 73 wird*).. Maus
00C770: 28 4D 31 2C 4D 32 2C 4D 33 2C 4D 34 29 3B 0D 0A (M1,M2,M3,M4);..
00C780: 20 20 20 20 69 66 20 4D 32 20 3C 3E 20 30 0D 0A if M2 <> 0..
00C790: 20 20 20 20 20 20 74 68 65 6E 20 44 72 61 77 28 then Draw(
00C7A0: 4F 6C 64 58 2C 4F 6C 64 59 2C 4D 33 2C 4D 34 2C OldX,OldY,M3,M4,
00C7B0: 31 29 3B 20 28 2A 20 5A 65 69 63 68 6E 65 20 77 1); (* Zeichne w
00C7C0: 65 6E 6E 20 64 65 72 20 4D 61 75 73 6B 6E 6F 70 enn der Mausknop
00C7D0: 66 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 f..
00C7E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00C7F0: 20 20 20 20 20 20 20 20 20 20 67 65 64 72 75 65 gedrue
00C800: 0D 0A 20 20 20 20 47 65 74 43 6F 6D 6D 61 6E 64 .. GetCommand
00C810: 28 43 6F 6D 6D 61 6E 64 29 3B 0D 0A 20 20 20 20 (Command);..
00C820: 63 61 73 65 20 43 6F 6D 6D 61 6E 64 20 6F 66 0D case Command of.
00C830: 0A 20 20 20 20 20 20 4D 6F 76 65 20 20 20 20 20 . Move
00C840: 20 20 3A 20 44 6F 4D 6F 76 65 3B 0D 0A 20 20 20 : DoMove;..
00C850: 20 20 20 46 69 72 65 20 20 20 20 20 20 20 3A 20 Fire :
00C860: 44 6F 46 69 72 65 28 43 6F 6D 6D 61 6E 64 29 3B DoFire(Command);
00C870: 0D 0A 20 20 20 20 20 20 53 65 61 72 63 68 20 20 .. Search
00C880: 20 20 20 3A 20 44 6F 53 65 61 72 63 68 0D 0A 20 : DoSearch..
00C890: 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 4D 6F 76 end;.. Mov
00C8A0: 65 4F 74 68 65 72 0D 0A 20 20 75 6E 74 69 6C 20 eOther.. until
00C8B0: 43 6F 6D 6D 61 6E 64 20 3D 20 51 75 69 74 0D 0A Command = Quit..
00C8C0: 65 6E 64 2E 20 28 2A 20 20 64 65 73 20 50 72 6F end. (* des Pro
00C8D0: 67 72 61 6D 6D 73 20 53 70 69 65 6C 31 20 20 2A gramms Spiel1 *
00C8E0: 29 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A )...............
00C8F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00C900: 20 20 20 57 72 69 74 65 28 27 53 69 65 20 68 61 Write('Sie ha
00C910: 62 65 6E 20 49 68 6E 21 20 53 69 65 20 67 65 77 ben Ihn! Sie gew
00C920: 69 6E 6E 65 6E 21 27 29 3B 0D 0A 20 20 20 20 43 innen!');.. C
00C930: 6F 6D 6D 61 6E 64 20 3A 3D 20 51 75 69 74 0D 0A ommand := Quit..
00C940: 20 20 65 6E 64 0D 0A 20 20 65 6C 73 65 20 57 72 end.. else Wr
00C950: 69 74 65 28 27 44 61 6E 65 62 65 6E 2E 20 56 69 ite('Daneben. Vi
00C960: 65 6C 20 47 6C 81 63 6B 20 66 81 72 27 27 73 20 el Gl.ck f.r''s
00C970: 6E 84 63 68 73 74 65 20 6D 61 6C 2E 27 29 0D 0A n.chste mal.')..
00C980: 65 6E 64 3B 20 28 2A 20 76 6F 6E 20 50 72 6F 7A end; (* von Proz
00C990: 65 64 75 72 20 44 6F 46 69 72 65 20 2A 29 0D 0A edur DoFire *)..
00C9A0: 0D 0A 28 2A 20 20 20 20 20 20 20 20 42 65 67 69 ..(* Begi
00C9B0: 6E 6E 20 64 65 73 20 48 61 75 70 74 70 72 6F 67 nn des Hauptprog
00C9C0: 72 61 6D 6D 73 20 20 20 20 20 20 20 20 20 2A 29 ramms *)
00C9D0: 0D 0A 62 65 67 69 6E 0D 0A 20 20 49 6E 69 74 69 ..begin.. Initi
00C9E0: 61 6C 69 7A 65 3B 0D 0A 20 20 72 65 70 65 61 74 alize;.. repeat
00C9F0: 0D 0A 20 20 20 20 47 65 74 43 6F 6D 6D 61 6E 64 .. GetCommand
00CA00: 63 6B 74 20 77 75 72 64 65 20 2A 29 0D 0A 20 20 ckt wurde *)..
00CA10: 20 20 4F 6C 64 58 20 3A 3D 20 4D 33 3B 0D 0A 20 OldX := M3;..
00CA20: 20 20 20 4F 6C 64 59 20 3A 3D 20 4D 34 0D 0A 20 OldY := M4..
00CA30: 20 65 6E 64 0D 0A 65 6E 64 2E 20 28 2A 20 64 65 end..end. (* de
00CA40: 73 20 50 72 6F 67 72 61 6D 6D 73 20 4D 61 75 73 s Programms Maus
00CA50: 53 6B 65 74 63 68 20 2A 29 0D 0A 0D 0A 1A 1A 1A Sketch *).......
00CA60: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00CA70: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00CA80: 4D 31 20 3A 3D 20 31 3B 20 20 20 20 20 20 20 20 M1 := 1;
00CA90: 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 4D 61 (* Ma
00CAA0: 75 73 20 43 75 72 73 6F 72 20 61 6E 2A 29 0D 0A us Cursor an*)..
00CAB0: 20 20 4D 61 75 73 28 4D 31 2C 4D 32 2C 4D 33 2C Maus(M1,M2,M3,
00CAC0: 4D 34 29 3B 0D 0A 20 20 4D 31 20 3A 3D 20 33 3B M4);.. M1 := 3;
00CAD0: 0D 0A 20 20 4F 6C 64 58 20 3A 3D 20 30 3B 0D 0A .. OldX := 0;..
00CAE0: 20 20 4F 6C 64 59 20 3A 3D 20 30 3B 0D 0A 20 20 OldY := 0;..
00CAF0: 77 68 69 6C 65 20 6E 6F 74 20 4B 65 79 50 72 65 while not KeyPre
00CB00: 73 73 65 64 20 64 6F 20 62 65 67 69 6E 20 20 20 ssed do begin
00CB10: 28 2A 20 50 72 6F 67 72 61 6D 6D 65 6E 64 65 20 (* Programmende
00CB20: 77 65 6E 6E 20 65 69 6E 65 20 54 61 73 74 65 20 wenn eine Taste
00CB30: 67 65 64 72 75 65 63 6B 74 0D 0A 20 20 20 20 20 gedrueckt..
00CB40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00CB50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00CB60: 77 69 72 64 2A 29 0D 0A 20 20 20 20 4D 61 75 73 wird*).. Maus
00CB70: 28 4D 31 2C 4D 32 2C 4D 33 2C 4D 34 29 3B 0D 0A (M1,M2,M3,M4);..
00CB80: 20 20 20 20 69 66 20 4D 32 20 3C 3E 20 30 0D 0A if M2 <> 0..
00CB90: 20 20 20 20 20 20 74 68 65 6E 20 44 72 61 77 28 then Draw(
00CBA0: 4F 6C 64 58 2C 4F 6C 64 59 2C 4D 33 2C 4D 34 2C OldX,OldY,M3,M4,
00CBB0: 31 29 3B 20 28 2A 20 5A 65 69 63 68 6E 65 20 77 1); (* Zeichne w
00CBC0: 65 6E 6E 20 64 65 72 20 4D 61 75 73 6B 6E 6F 70 enn der Mausknop
00CBD0: 66 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 f..
00CBE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00CBF0: 20 20 20 20 20 20 20 20 20 20 67 65 64 72 75 65 gedrue
00CC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CCA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CCB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CCC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CCD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CCE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CCF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CE00: 0D 0A 70 72 6F 67 72 61 6D 20 44 6F 73 56 65 72 ..program DosVer
00CE10: 73 69 6F 6E 3B 0D 0A 0D 0A 66 75 6E 63 74 69 6F sion;....functio
00CE20: 6E 20 44 6F 73 56 65 72 20 3A 20 52 65 61 6C 3B n DosVer : Real;
00CE30: 0D 0A 76 61 72 0D 0A 20 20 52 65 67 73 20 20 20 ..var.. Regs
00CE40: 20 3A 20 72 65 63 6F 72 64 0D 0A 20 20 20 20 20 : record..
00CE50: 20 20 20 20 20 20 20 20 20 41 58 2C 42 58 2C 43 AX,BX,C
00CE60: 58 2C 44 58 2C 42 50 2C 53 49 2C 44 49 2C 44 53 X,DX,BP,SI,DI,DS
00CE70: 2C 45 53 2C 46 6C 61 67 73 20 3A 20 49 6E 74 65 ,ES,Flags : Inte
00CE80: 67 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ger;..
00CE90: 20 20 65 6E 64 3B 0D 0A 20 20 41 4C 2C 41 48 20 end;.. AL,AH
00CEA0: 20 20 3A 20 42 79 74 65 3B 0D 0A 0D 0A 20 62 65 : Byte;.... be
00CEB0: 67 69 6E 0D 0A 20 20 20 52 65 67 73 2E 41 58 20 gin.. Regs.AX
00CEC0: 3A 3D 20 24 33 30 30 30 3B 0D 0A 20 20 20 4D 53 := $3000;.. MS
00CED0: 44 6F 73 28 20 52 65 67 73 20 29 3B 0D 0A 20 20 Dos( Regs );..
00CEE0: 20 41 4C 20 3A 3D 20 52 65 67 73 2E 41 58 20 61 AL := Regs.AX a
00CEF0: 6E 64 20 24 46 46 3B 0D 0A 20 20 20 41 48 20 3A nd $FF;.. AH :
00CF00: 3D 20 28 20 52 65 67 73 2E 41 58 20 61 6E 64 20 = ( Regs.AX and
00CF10: 24 46 46 30 30 20 29 20 73 68 72 20 38 3B 0D 0A $FF00 ) shr 8;..
00CF20: 20 20 20 44 6F 73 56 65 72 20 3A 3D 20 41 4C 20 DosVer := AL
00CF30: 2B 20 41 48 2F 31 30 30 3B 0D 0A 20 65 6E 64 3B + AH/100;.. end;
00CF40: 20 7B 20 64 65 72 20 46 75 6E 6B 74 69 6F 6E 20 { der Funktion
00CF50: 44 6F 73 56 65 72 20 7D 0D 0A 0D 0A 62 65 67 69 DosVer }....begi
00CF60: 6E 20 7B 20 48 61 75 70 74 70 72 6F 67 72 61 6D n { Hauptprogram
00CF70: 6D 20 76 6F 6E 20 44 6F 73 56 65 72 73 69 6F 6E m von DosVersion
00CF80: 20 7D 0D 0A 20 20 57 72 69 74 65 4C 6E 3B 0D 0A }.. WriteLn;..
00CF90: 20 20 57 72 69 74 65 4C 6E 3B 0D 0A 20 20 57 72 WriteLn;.. Wr
00CFA0: 69 74 65 4C 6E 28 20 27 4D 53 20 44 4F 53 20 56 iteLn( 'MS DOS V
00CFB0: 65 72 73 69 6F 6E 20 3A 20 27 2C 44 6F 73 56 65 ersion : ',DosVe
00CFC0: 72 3A 34 3A 32 20 29 3B 0D 0A 65 6E 64 2E 20 7B r:4:2 );..end. {
00CFD0: 20 45 6E 64 65 20 76 6F 6E 20 20 44 6F 73 56 65 Ende von DosVe
00CFE0: 72 73 69 6F 6E 20 7D 0D 0A 1A F6 F6 F6 F6 F6 F6 rsion }.........
00CFF0: F6 F6 F6 F6 F6 F6 F6 F6 F6 F6 F6 F6 F6 F6 F6 F6 ................
00D000: 0D 0A 70 72 6F 67 72 61 6D 20 4D 61 75 73 53 6B ..program MausSk
00D010: 65 74 63 68 3B 0D 0A 28 2A 0D 0A 20 20 20 20 20 etch;..(*..
00D020: 20 20 44 69 65 73 65 73 20 50 72 6F 67 72 61 6D Dieses Program
00D030: 6D 20 7A 65 69 67 74 20 77 69 65 20 6D 61 6E 20 m zeigt wie man
00D040: 64 69 65 20 4D 69 63 72 6F 73 6F 66 74 20 4D 61 die Microsoft Ma
00D050: 75 73 20 61 6E 73 70 72 65 63 68 65 6E 20 6B 61 us ansprechen ka
00D060: 6E 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 nn..
00D070: 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 20 57 *** W
00D080: 41 52 4E 55 4E 47 20 2A 2A 2A 0D 0A 20 20 20 20 ARNUNG ***..
00D090: 20 20 20 44 65 72 20 4D 61 75 73 74 72 65 69 62 Der Maustreib
00D0A0: 65 72 20 6D 75 7E 20 75 6E 62 65 64 69 6E 67 74 er mu~ unbedingt
00D0B0: 20 67 65 6C 61 64 65 6E 20 73 65 69 6E 20 62 65 geladen sein be
00D0C0: 76 6F 72 20 64 69 65 73 65 20 50 72 6F 67 72 61 vor diese Progra
00D0D0: 6D 6D 0D 0A 20 20 20 20 20 20 20 61 75 73 67 65 mm.. ausge
00D0E0: 66 75 65 68 72 74 20 77 69 72 64 2E 0D 0A 20 20 fuehrt wird...
00D0F0: 20 20 20 20 20 44 65 72 20 4D 61 75 73 74 72 65 Der Maustre
00D100: 69 62 65 72 20 77 69 72 64 20 64 75 72 63 68 20 iber wird durch
00D110: 4D 61 75 73 2E 43 4F 4D 20 67 65 6C 61 64 65 6E Maus.COM geladen
00D120: 2E 0D 0A 2A 29 0D 0A 0D 0A 74 79 70 65 0D 0A 20 ...*)....type..
00D130: 20 52 65 67 50 61 63 6B 20 3D 0D 0A 20 20 20 20 RegPack =..
00D140: 72 65 63 6F 72 64 0D 0A 20 20 20 20 20 20 41 58 record.. AX
00D150: 2C 42 58 2C 43 58 2C 44 58 2C 42 50 2C 53 49 2C ,BX,CX,DX,BP,SI,
00D160: 44 49 2C 44 53 2C 45 53 2C 46 6C 61 67 73 20 3A DI,DS,ES,Flags :
00D170: 20 49 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 65 Integer;.. e
00D180: 6E 64 3B 0D 0A 0D 0A 76 61 72 0D 0A 20 20 4F 6C nd;....var.. Ol
00D190: 64 58 2C 4F 6C 64 59 2C 58 2C 59 20 3A 20 49 6E dX,OldY,X,Y : In
00D1A0: 74 65 67 65 72 3B 0D 0A 20 20 4D 31 2C 4D 32 2C teger;.. M1,M2,
00D1B0: 4D 33 2C 4D 34 20 3A 20 20 20 49 6E 74 65 67 65 M3,M4 : Intege
00D1C0: 72 3B 0D 0A 20 20 52 65 67 50 61 6B 20 3A 20 20 r;.. RegPak :
00D1D0: 20 20 20 20 20 20 52 65 67 50 61 63 6B 3B 0D 0A RegPack;..
00D1E0: 0D 0A 70 72 6F 63 65 64 75 72 65 20 4D 61 75 73 ..procedure Maus
00D1F0: 28 76 61 72 20 4D 31 2C 4D 32 2C 4D 33 2C 4D 34 (var M1,M2,M3,M4
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: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00D500: 61 6C 69 73 69 65 72 65 6E 20 2A 29 0D 0A 20 20 alisieren *)..
00D510: 20 20 20 20 46 69 6C 6C 43 68 61 72 28 45 72 67 FillChar(Erg
00D520: 65 62 6E 69 73 73 2C 53 69 7A 65 4F 66 28 45 72 ebniss,SizeOf(Er
00D530: 67 65 62 6E 69 73 73 29 2C 30 29 3B 20 28 2A 20 gebniss),0); (*
00D540: 45 72 67 65 62 6E 69 73 2D 61 72 72 61 79 20 6C Ergebnis-array l
00D550: 6F 65 73 63 68 65 6E 20 2A 29 0D 0A 20 20 20 20 oeschen *)..
00D560: 20 20 66 6F 72 20 49 6E 64 65 78 20 3A 3D 20 31 for Index := 1
00D570: 20 74 6F 20 5A 61 65 68 6C 65 72 20 64 6F 20 62 to Zaehler do b
00D580: 65 67 69 6E 20 20 20 20 20 20 20 28 2A 20 5A 61 egin (* Za
00D590: 65 68 6C 65 72 20 73 74 61 72 74 65 6E 20 2A 29 ehler starten *)
00D5A0: 0D 0A 20 20 20 20 20 20 20 20 4A 6E 64 65 78 20 .. Jndex
00D5B0: 3A 3D 20 52 61 6E 64 6F 6D 28 31 30 29 3B 20 20 := Random(10);
00D5C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00D5D0: 20 28 2A 20 42 65 72 65 69 63 68 20 20 30 2E 2E (* Bereich 0..
00D5E0: 39 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 45 72 9 *).. Er
00D5F0: 67 65 62 6E 69 73 73 5B 4A 6E 64 65 78 5D 20 3A gebniss[Jndex] :
00D600: 3D 20 45 72 67 65 62 6E 69 73 73 5B 4A 6E 64 65 = Ergebniss[Jnde
00D610: 78 5D 20 2B 20 31 0D 0A 20 20 20 20 20 20 65 6E x] + 1.. en
00D620: 64 3B 0D 0A 20 20 20 20 20 20 53 75 6D 20 3A 3D d;.. Sum :=
00D630: 20 30 2E 30 3B 20 20 20 20 20 20 20 20 20 20 20 0.0;
00D640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00D650: 20 20 20 28 2A 20 53 75 6D 6D 65 20 66 75 65 72 (* Summe fuer
00D660: 20 43 68 69 5E 32 20 6C 6F 65 73 63 68 65 6E 20 Chi^2 loeschen
00D670: 2A 29 0D 0A 20 20 20 20 20 20 4E 70 20 3A 3D 20 *).. Np :=
00D680: 5A 61 65 68 6C 65 72 2F 31 30 2E 30 3B 0D 0A 20 Zaehler/10.0;..
00D690: 20 20 20 20 20 66 6F 72 20 49 6E 64 65 78 20 3A for Index :
00D6A0: 3D 20 30 20 74 6F 20 39 20 64 6F 20 62 65 67 69 = 0 to 9 do begi
00D6B0: 6E 20 20 20 20 20 28 2A 20 66 75 65 72 20 6A 65 n (* fuer je
00D6C0: 64 65 73 20 6D 6F 65 67 6C 69 63 68 65 20 45 72 des moegliche Er
00D6D0: 67 65 62 6E 69 73 73 20 2A 29 0D 0A 20 20 20 20 gebniss *)..
00D6E0: 20 20 20 20 57 72 69 74 65 28 45 72 67 65 62 6E Write(Ergebn
00D6F0: 69 73 73 5B 49 6E 64 65 78 5D 3A 35 29 3B 20 20 iss[Index]:5);
00D700: 70 72 6F 67 72 61 6D 20 5A 75 66 61 6C 6C 73 7A program Zufallsz
00D710: 61 68 6C 65 6E 54 65 73 74 3B 0D 0A 28 2A 0D 0A ahlenTest;..(*..
00D720: 20 20 20 20 20 20 20 44 69 65 73 65 73 20 50 72 Dieses Pr
00D730: 6F 67 72 61 6D 6D 20 74 65 73 74 65 74 20 64 69 ogramm testet di
00D740: 65 20 52 61 6E 64 6F 6D 69 7A 65 20 20 50 72 6F e Randomize Pro
00D750: 7A 65 64 75 72 2E 0D 0A 20 20 20 20 20 20 20 41 zedur... A
00D760: 75 61 65 72 64 65 6D 20 62 65 72 65 63 68 6E 65 uaerdem berechne
00D770: 74 20 65 73 20 65 69 6E 65 6E 20 43 68 69 2D 51 t es einen Chi-Q
00D780: 75 61 64 72 61 74 77 65 72 74 2C 20 61 6C 73 20 uadratwert, als
00D790: 54 65 73 74 20 64 65 72 0D 0A 20 20 20 20 20 20 Test der..
00D7A0: 20 5A 75 66 61 6C 6C 73 7A 61 68 6C 65 6E 20 73 Zufallszahlen s
00D7B0: 65 6C 62 73 74 2E 20 43 68 69 2D 51 61 64 72 61 elbst. Chi-Qadra
00D7C0: 74 77 65 72 74 65 20 7A 77 69 73 63 68 65 6E 20 twerte zwischen
00D7D0: 33 20 75 6E 64 20 31 36 20 73 69 6E 64 0D 0A 20 3 und 16 sind..
00D7E0: 20 20 20 20 20 20 77 75 65 6E 73 63 68 65 6E 73 wuenschens
00D7F0: 77 65 72 74 2C 20 57 65 72 74 65 20 6E 61 68 65 wert, Werte nahe
00D800: 20 61 6E 20 38 2E 33 20 73 69 6E 64 20 6F 70 74 an 8.3 sind opt
00D810: 69 6D 61 6C 2E 0D 0A 2A 29 0D 0A 76 61 72 0D 0A imal...*)..var..
00D820: 20 20 53 31 2C 53 32 2C 49 6E 64 65 78 2C 4A 6E S1,S2,Index,Jn
00D830: 64 65 78 2C 5A 61 65 68 6C 65 72 20 20 3A 20 49 dex,Zaehler : I
00D840: 6E 74 65 67 65 72 3B 0D 0A 20 20 53 75 6D 2C 54 nteger;.. Sum,T
00D850: 2C 4E 50 20 20 20 20 20 20 20 20 20 20 20 20 20 ,NP
00D860: 20 20 20 20 20 20 3A 20 52 65 61 6C 3B 0D 0A 20 : Real;..
00D870: 20 45 72 67 65 62 6E 69 73 73 20 20 20 20 20 20 Ergebniss
00D880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 :
00D890: 61 72 72 61 79 5B 30 2E 2E 39 5D 20 6F 66 20 49 array[0..9] of I
00D8A0: 6E 74 65 67 65 72 3B 0D 0A 0D 0A 70 72 6F 63 65 nteger;....proce
00D8B0: 64 75 72 65 20 52 61 6E 64 6F 6D 69 7A 65 28 49 dure Randomize(I
00D8C0: 2C 4A 3A 20 49 6E 74 65 67 65 72 29 3B 0D 0A 76 ,J: Integer);..v
00D8D0: 61 72 0D 0A 20 20 52 53 65 74 20 20 20 20 3A 20 ar.. RSet :
00D8E0: 72 65 63 6F 72 64 0D 0A 20 20 20 20 20 20 20 20 record..
00D8F0: 20 20 20 20 20 20 41 58 2C 42 58 2C 43 58 2C 44 AX,BX,CX,D
00D900: 20 20 20 28 2A 20 73 63 68 72 65 69 62 65 20 47 (* schreibe G
00D910: 65 73 61 6D 74 73 75 6D 6D 65 20 64 65 72 20 57 esamtsumme der W
00D920: 65 72 74 65 20 2A 29 0D 0A 20 20 20 20 20 20 20 erte *)..
00D930: 20 53 75 6D 20 3A 3D 20 53 75 6D 20 2B 20 53 71 Sum := Sum + Sq
00D940: 72 28 45 72 67 65 62 6E 69 73 73 5B 49 6E 64 65 r(Ergebniss[Inde
00D950: 78 5D 2D 4E 50 29 2F 4E 50 20 28 2A 20 75 6E 64 x]-NP)/NP (* und
00D960: 20 62 65 72 65 63 68 6E 65 20 43 68 69 5E 32 20 berechne Chi^2
00D970: 2A 29 0D 0A 20 20 20 20 20 20 65 6E 64 3B 0D 0A *).. end;..
00D980: 20 20 20 20 20 20 57 72 69 74 65 4C 6E 3B 0D 0A WriteLn;..
00D990: 20 20 20 20 20 20 57 72 69 74 65 4C 6E 28 27 43 WriteLn('C
00D9A0: 68 69 2D 51 75 61 64 72 61 74 20 28 39 20 46 72 hi-Quadrat (9 Fr
00D9B0: 65 69 68 65 69 74 73 67 72 61 64 65 29 20 3D 20 eiheitsgrade) =
00D9C0: 27 2C 53 75 6D 3A 38 3A 33 29 0D 0A 20 20 20 20 ',Sum:8:3)..
00D9D0: 65 6E 64 0D 0A 20 20 75 6E 74 69 6C 20 5A 61 65 end.. until Zae
00D9E0: 68 6C 65 72 20 3C 3D 20 30 0D 0A 65 6E 64 2E 20 hler <= 0..end.
00D9F0: 28 2A 20 64 65 73 20 50 72 6F 67 72 61 6D 6D 73 (* des Programms
00DA00: 20 5A 75 66 61 6C 6C 20 2A 29 0D 0A 0D 0A 0D 0A Zufall *)......
00DA10: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00DA20: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00DA30: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00DA40: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00DA50: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00DA60: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00DA70: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00DA80: 5A 61 65 68 6C 65 72 2F 31 30 2E 30 3B 0D 0A 20 Zaehler/10.0;..
00DA90: 20 20 20 20 20 66 6F 72 20 49 6E 64 65 78 20 3A for Index :
00DAA0: 3D 20 30 20 74 6F 20 39 20 64 6F 20 62 65 67 69 = 0 to 9 do begi
00DAB0: 6E 20 20 20 20 20 28 2A 20 66 75 65 72 20 6A 65 n (* fuer je
00DAC0: 64 65 73 20 6D 6F 65 67 6C 69 63 68 65 20 45 72 des moegliche Er
00DAD0: 67 65 62 6E 69 73 73 20 2A 29 0D 0A 20 20 20 20 gebniss *)..
00DAE0: 20 20 20 20 57 72 69 74 65 28 45 72 67 65 62 6E Write(Ergebn
00DAF0: 69 73 73 5B 49 6E 64 65 78 5D 3A 35 29 3B 20 20 iss[Index]:5);
00DB00: 58 2C 42 50 2C 53 49 2C 44 49 2C 44 53 2C 45 53 X,BP,SI,DI,DS,ES
00DB10: 2C 46 6C 61 67 73 3A 20 49 6E 74 65 67 65 72 3B ,Flags: Integer;
00DB20: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 65 6E .. en
00DB30: 64 3B 0D 0A 20 20 43 68 20 20 20 20 20 20 3A 20 d;.. Ch :
00DB40: 43 68 61 72 3B 0D 0A 0D 0A 62 65 67 69 6E 0D 0A Char;....begin..
00DB50: 20 20 69 66 20 28 49 3D 30 29 20 61 6E 64 20 28 if (I=0) and (
00DB60: 4A 3D 30 29 20 74 68 65 6E 20 62 65 67 69 6E 20 J=0) then begin
00DB70: 20 20 28 2A 20 42 65 73 74 69 6D 6D 65 20 65 69 (* Bestimme ei
00DB80: 6E 65 20 62 65 6C 69 65 62 69 67 65 20 5A 75 66 ne beliebige Zuf
00DB90: 61 6C 6C 73 7A 61 68 6C 20 2A 29 0D 0A 20 20 20 allszahl *)..
00DBA0: 20 52 53 65 74 2E 41 58 3A 3D 24 32 43 30 30 3B RSet.AX:=$2C00;
00DBB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
00DBC0: 2A 20 44 4F 53 20 5A 65 69 74 20 64 65 73 20 46 * DOS Zeit des F
00DBD0: 75 6E 6B 74 69 6F 6E 73 74 61 67 65 73 20 2A 29 unktionstages *)
00DBE0: 0D 0A 20 20 20 20 4D 53 44 6F 73 28 52 53 65 74 .. MSDos(RSet
00DBF0: 29 3B 0D 0A 20 20 20 20 49 3A 3D 52 53 65 74 2E );.. I:=RSet.
00DC00: 43 58 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 CX;
00DC10: 20 20 20 20 20 20 28 2A 20 53 65 74 7A 65 20 49 (* Setze I
00DC20: 20 75 6E 64 20 4A 20 61 75 66 20 53 79 73 74 65 und J auf Syste
00DC30: 6D 7A 65 69 74 20 2A 29 0D 0A 20 20 20 20 4A 3A mzeit *).. J:
00DC40: 3D 52 53 65 74 2E 44 58 3B 0D 0A 20 20 20 20 44 =RSet.DX;.. D
00DC50: 65 6C 61 79 28 31 30 30 29 3B 20 20 20 20 20 20 elay(100);
00DC60: 20 20 20 28 2A 20 44 69 65 73 65 20 56 65 72 7A (* Diese Verz
00DC70: 6F 65 67 65 72 75 6E 67 20 6B 61 6E 6E 20 66 75 oegerung kann fu
00DC80: 65 72 20 73 63 68 6E 65 6C 6C 65 72 65 20 53 79 er schnellere Sy
00DC90: 73 74 65 6D 65 0D 0A 20 20 20 20 20 20 20 20 20 steme..
00DCA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00DCB0: 20 20 67 65 73 74 65 69 67 65 72 74 20 77 65 72 gesteigert wer
00DCC0: 64 65 6E 20 2A 29 0D 0A 20 20 20 20 4D 53 44 6F den *).. MSDo
00DCD0: 73 28 52 53 65 74 29 3B 0D 0A 20 20 20 20 69 66 s(RSet);.. if
00DCE0: 20 28 49 3D 52 53 65 74 2E 43 58 29 20 61 6E 64 (I=RSet.CX) and
00DCF0: 20 28 4A 3D 52 53 65 74 2E 44 58 29 20 74 68 65 (J=RSet.DX) the
00DD00: 0D 0A 70 72 6F 67 72 61 6D 20 54 65 73 74 43 68 ..program TestCh
00DD10: 61 6E 67 65 44 69 72 65 63 74 6F 72 79 3B 0D 0A angeDirectory;..
00DD20: 7B 0D 0A 20 20 20 20 20 20 20 45 72 6C 61 75 62 {.. Erlaub
00DD30: 74 20 49 68 6E 65 6E 20 64 61 73 20 61 6B 74 75 t Ihnen das aktu
00DD40: 65 6C 6C 65 20 49 6E 68 61 6C 74 73 76 65 72 7A elle Inhaltsverz
00DD50: 65 69 63 68 6E 69 73 73 20 7A 75 20 77 65 63 68 eichniss zu wech
00DD60: 73 65 6C 6E 2E 0D 0A 20 20 20 20 20 20 20 53 69 seln... Si
00DD70: 65 20 6B 6F 65 6E 6E 65 6E 20 64 61 73 20 49 6E e koennen das In
00DD80: 68 61 6C 74 73 76 65 72 7A 65 69 63 68 6E 69 73 haltsverzeichnis
00DD90: 20 69 6E 20 64 65 72 20 43 6F 6D 6D 61 6E 64 6C in der Commandl
00DDA0: 69 6E 65 0D 0A 20 20 20 20 20 20 20 61 6E 67 65 ine.. ange
00DDB0: 62 65 6E 2C 20 61 6E 73 6F 6E 73 74 65 6E 20 66 ben, ansonsten f
00DDC0: 72 61 67 74 20 64 61 73 20 50 72 6F 67 72 61 6D ragt das Program
00DDD0: 6D 20 64 61 6E 61 63 68 2E 0D 0A 7D 0D 0A 0D 0A m danach...}....
00DDE0: 74 79 70 65 0D 0A 20 20 49 6E 74 20 20 20 20 20 type.. Int
00DDF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3D 20 2D = -
00DE00: 33 32 37 36 37 2E 2E 33 32 37 36 37 3B 0D 0A 20 32767..32767;..
00DE10: 20 53 74 72 69 6E 67 38 30 20 20 20 20 20 20 20 String80
00DE20: 20 20 20 20 20 20 3D 20 73 74 72 69 6E 67 5B 20 = string[
00DE30: 38 30 20 5D 3B 0D 0A 20 20 52 65 67 52 65 63 20 80 ];.. RegRec
00DE40: 3D 0D 0A 20 20 20 20 72 65 63 6F 72 64 0D 0A 20 =.. record..
00DE50: 20 20 20 20 20 41 58 2C 42 58 2C 43 58 2C 44 58 AX,BX,CX,DX
00DE60: 2C 42 50 2C 53 49 2C 44 49 2C 44 53 2C 45 53 2C ,BP,SI,DI,DS,ES,
00DE70: 46 6C 61 67 73 20 3A 20 49 6E 74 65 67 65 72 3B Flags : Integer;
00DE80: 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 0D 0A 76 61 .. end;....va
00DE90: 72 0D 0A 20 20 45 72 72 6F 72 20 20 20 20 20 20 r.. Error
00DEA0: 20 20 20 20 20 20 20 20 20 20 3A 20 49 6E 74 3B : Int;
00DEB0: 0D 0A 20 20 42 75 66 66 65 72 20 20 20 20 20 20 .. Buffer
00DEC0: 20 20 20 20 20 20 20 20 20 3A 20 73 74 72 69 6E : strin
00DED0: 67 38 30 3B 0D 0A 20 20 43 6F 6D 6D 61 6E 64 20 g80;.. Command
00DEE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 73 : s
00DEF0: 74 72 69 6E 67 38 30 20 61 62 73 6F 6C 75 74 65 tring80 absolute
00DF00: 6E 20 62 65 67 69 6E 20 28 2A 20 55 68 72 20 6C n begin (* Uhr l
00DF10: 61 65 75 66 74 20 6E 69 63 68 74 20 2A 29 0D 0A aeuft nicht *)..
00DF20: 20 20 20 20 20 20 49 20 3A 3D 20 30 3B 0D 0A 20 I := 0;..
00DF30: 20 20 20 20 20 4A 20 3A 3D 20 30 3B 0D 0A 20 20 J := 0;..
00DF40: 20 20 20 20 77 68 69 6C 65 20 4B 65 79 50 72 65 while KeyPre
00DF50: 73 73 65 64 20 64 6F 0D 0A 20 20 20 20 20 20 20 ssed do..
00DF60: 20 52 65 61 64 28 4B 62 64 2C 43 68 29 3B 20 20 Read(Kbd,Ch);
00DF70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00DF80: 28 2A 20 4C 6F 65 73 63 68 65 20 54 65 72 6D 69 (* Loesche Termi
00DF90: 6E 61 6C 70 75 66 66 65 72 20 2A 29 0D 0A 20 20 nalpuffer *)..
00DFA0: 20 20 20 20 57 72 69 74 65 28 27 44 72 75 65 63 Write('Druec
00DFB0: 6B 65 20 65 69 6E 65 20 54 61 73 74 65 2C 20 75 ke eine Taste, u
00DFC0: 6D 20 64 65 6E 20 5A 75 66 61 6C 6C 73 7A 61 68 m den Zufallszah
00DFD0: 6C 65 6E 67 65 6E 65 72 61 74 6F 72 20 7A 75 20 lengenerator zu
00DFE0: 73 74 61 72 74 65 6E 27 29 3B 0D 0A 20 20 20 20 starten');..
00DFF0: 20 20 72 65 70 65 61 74 0D 0A 20 20 20 20 20 20 repeat..
00E000: 20 20 49 20 3A 3D 20 49 2B 31 33 3B 0D 0A 20 20 I := I+13;..
00E010: 20 20 20 20 20 20 4A 20 3A 3D 20 4A 2B 31 37 0D J := J+17.
00E020: 0A 20 20 20 20 20 20 75 6E 74 69 6C 20 4B 65 79 . until Key
00E030: 70 72 65 73 73 65 64 3B 0D 0A 20 20 20 20 20 20 pressed;..
00E040: 52 65 61 64 28 4B 62 64 2C 43 68 29 3B 20 20 20 Read(Kbd,Ch);
00E050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E060: 20 28 2A 20 5A 65 69 63 68 65 6E 20 6C 65 73 65 (* Zeichen lese
00E070: 6E 20 2A 29 0D 0A 20 20 20 20 20 20 57 72 69 74 n *).. Writ
00E080: 65 4C 6E 0D 0A 20 20 20 20 65 6E 64 0D 0A 20 20 eLn.. end..
00E090: 65 6E 64 3B 0D 0A 20 20 4D 65 6D 57 5B 44 53 65 end;.. MemW[DSe
00E0A0: 67 3A 24 31 32 39 5D 3A 3D 49 3B 20 20 20 20 28 g:$129]:=I; (
00E0B0: 2A 20 44 61 73 20 69 73 74 20 64 65 72 20 4B 65 * Das ist der Ke
00E0C0: 72 6E 20 64 65 72 20 52 6F 75 74 69 6E 65 3A 20 rn der Routine:
00E0D0: 73 70 65 69 63 68 65 72 6E 20 65 69 6E 65 73 20 speichern eines
00E0E0: 2A 29 0D 0A 20 20 4D 65 6D 57 5B 44 53 65 67 3A *).. MemW[DSeg:
00E0F0: 24 31 32 42 5D 3A 3D 4A 3B 20 20 20 20 28 2A 20 $12B]:=J; (*
00E100: 20 63 73 65 67 20 3A 20 24 38 30 3B 0D 0A 0D 0A cseg : $80;....
00E110: 70 72 6F 63 65 64 75 72 65 20 43 68 61 6E 67 65 procedure Change
00E120: 44 69 72 28 53 65 67 6D 65 6E 74 2C 20 4F 66 66 Dir(Segment, Off
00E130: 73 65 74 20 3A 20 49 6E 74 65 67 65 72 3B 0D 0A set : Integer;..
00E140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E150: 20 20 20 20 76 61 72 20 45 72 72 6F 72 20 3A 20 var Error :
00E160: 49 6E 74 20 29 3B 0D 0A 76 61 72 0D 0A 20 52 65 Int );..var.. Re
00E170: 67 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 gs
00E180: 20 20 20 20 3A 20 52 65 67 52 65 63 3B 0D 0A 62 : RegRec;..b
00E190: 65 67 69 6E 0D 0A 20 20 52 65 67 73 2E 44 53 20 egin.. Regs.DS
00E1A0: 3A 3D 20 73 65 67 6D 65 6E 74 3B 0D 0A 20 20 52 := segment;.. R
00E1B0: 65 67 73 2E 44 58 20 3A 3D 20 6F 66 66 73 65 74 egs.DX := offset
00E1C0: 3B 0D 0A 20 20 52 65 67 73 2E 41 58 3A 3D 20 24 ;.. Regs.AX:= $
00E1D0: 33 42 30 30 3B 0D 0A 20 20 4D 53 44 6F 73 28 20 3B00;.. MSDos(
00E1E0: 52 65 67 73 20 29 3B 0D 0A 20 20 45 72 72 6F 72 Regs );.. Error
00E1F0: 20 3A 3D 20 52 65 67 73 2E 41 58 20 61 6E 64 20 := Regs.AX and
00E200: 24 46 46 3B 0D 0A 65 6E 64 3B 20 7B 20 64 65 72 $FF;..end; { der
00E210: 20 50 72 6F 7A 65 64 75 72 20 43 68 61 6E 67 65 Prozedur Change
00E220: 44 69 72 20 7D 0D 0A 0D 0A 7B 20 20 20 20 48 61 Dir }....{ Ha
00E230: 75 70 74 70 72 6F 67 72 61 6D 6D 20 76 6F 6E 20 uptprogramm von
00E240: 54 65 73 74 43 68 61 6E 67 65 44 69 72 20 20 20 TestChangeDir
00E250: 7D 0D 0A 62 65 67 69 6E 0D 0A 20 20 69 66 20 28 }..begin.. if (
00E260: 20 4C 65 6E 67 74 68 28 20 43 6F 6D 6D 61 6E 64 Length( Command
00E270: 20 29 20 3C 3D 20 30 20 29 20 74 68 65 6E 20 62 ) <= 0 ) then b
00E280: 65 67 69 6E 0D 0A 20 20 20 20 47 6F 74 6F 58 59 egin.. GotoXY
00E290: 28 20 31 30 2C 20 31 30 20 29 3B 0D 0A 20 20 20 ( 10, 10 );..
00E2A0: 20 57 72 69 74 65 28 20 27 57 65 6C 63 68 65 73 Write( 'Welches
00E2B0: 20 49 6E 68 61 6C 74 73 76 65 72 7A 65 69 63 68 Inhaltsverzeich
00E2C0: 6E 69 73 20 3A 20 27 20 29 3B 0D 0A 20 20 20 20 nis : ' );..
00E2D0: 52 65 61 64 4C 6E 28 20 42 75 66 66 65 72 20 29 ReadLn( Buffer )
00E2E0: 3B 0D 0A 20 20 65 6E 64 0D 0A 20 20 65 6C 73 65 ;.. end.. else
00E2F0: 20 42 75 66 66 65 72 20 3A 3D 20 43 6F 6D 6D 61 Buffer := Comma
00E300: 33 32 20 42 69 74 20 57 65 72 74 65 73 20 69 6E 32 Bit Wertes in
00E310: 20 44 53 65 67 3A 24 30 31 32 39 2E 2E 2E 44 53 DSeg:$0129...DS
00E320: 65 67 3A 24 30 31 32 43 20 2A 29 0D 0A 65 6E 64 eg:$012C *)..end
00E330: 3B 20 28 2A 20 64 65 72 20 50 72 6F 7A 65 64 75 ; (* der Prozedu
00E340: 72 20 52 61 6E 64 6F 6D 69 7A 65 20 2A 29 0D 0A r Randomize *)..
00E350: 0D 0A 62 65 67 69 6E 20 20 28 2A 20 42 65 67 69 ..begin (* Begi
00E360: 6E 6E 20 64 65 73 20 48 61 75 70 74 70 72 6F 67 nn des Hauptprog
00E370: 72 61 6D 6D 65 73 20 2A 29 0D 0A 20 20 57 72 69 rammes *).. Wri
00E380: 74 65 6C 6E 28 27 42 69 74 74 65 20 5A 61 65 68 teln('Bitte Zaeh
00E390: 6C 65 72 20 65 69 6E 67 65 62 65 6E 20 3C 3D 20 ler eingeben <=
00E3A0: 30 20 66 75 65 72 20 50 72 6F 67 72 61 6D 6D 65 0 fuer Programme
00E3B0: 6E 64 65 20 27 29 3B 0D 0A 20 20 72 65 70 65 61 nde ');.. repea
00E3C0: 74 0D 0A 20 20 20 20 57 72 69 74 65 28 27 20 5A t.. Write(' Z
00E3D0: 61 65 68 6C 65 72 20 3A 20 20 20 20 20 20 20 20 aehler :
00E3E0: 20 20 27 29 3B 20 20 20 20 20 20 20 20 20 20 20 ');
00E3F0: 28 2A 20 41 6E 7A 61 68 6C 20 64 65 72 20 4D 75 (* Anzahl der Mu
00E400: 73 74 65 72 20 2A 29 0D 0A 20 20 20 20 52 65 61 ster *).. Rea
00E410: 64 4C 6E 28 5A 61 65 68 6C 65 72 29 3B 0D 0A 20 dLn(Zaehler);..
00E420: 20 20 20 69 66 20 5A 61 65 68 6C 65 72 20 3E 20 if Zaehler >
00E430: 30 20 74 68 65 6E 20 62 65 67 69 6E 20 20 20 20 0 then begin
00E440: 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 53 (* S
00E450: 74 61 72 74 65 20 54 65 73 74 20 2A 29 0D 0A 20 tarte Test *)..
00E460: 20 20 20 20 20 57 72 69 74 65 28 27 5A 77 65 69 Write('Zwei
00E470: 20 53 74 61 72 74 77 65 72 74 65 20 28 53 31 20 Startwerte (S1
00E480: 53 32 29 3A 20 20 27 29 3B 20 20 20 28 2A 20 45 S2): '); (* E
00E490: 69 6E 6C 65 73 65 6E 20 76 6F 6E 20 32 20 49 6E inlesen von 2 In
00E4A0: 74 65 67 65 72 6E 20 2A 29 0D 0A 20 20 20 20 20 tegern *)..
00E4B0: 20 52 65 61 64 4C 6E 28 53 31 2C 53 32 29 3B 0D ReadLn(S1,S2);.
00E4C0: 0A 20 20 20 20 20 20 52 61 6E 64 6F 6D 69 7A 65 . Randomize
00E4D0: 28 53 31 2C 53 32 29 3B 20 20 20 20 20 20 20 20 (S1,S2);
00E4E0: 20 28 2A 20 5A 75 66 61 6C 6C 73 7A 61 68 6C 65 (* Zufallszahle
00E4F0: 6E 67 65 6E 65 72 61 74 6F 72 20 69 6E 69 74 69 ngenerator initi
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: 6E 64 3B 0D 0A 20 20 69 66 20 28 20 4C 65 6E 67 nd;.. if ( Leng
00E610: 74 68 28 20 42 75 66 66 65 72 20 29 20 3C 20 38 th( Buffer ) < 8
00E620: 30 20 29 0D 0A 20 20 20 20 74 68 65 6E 20 42 75 0 ).. then Bu
00E630: 66 66 65 72 5B 20 4C 65 6E 67 74 68 28 20 42 75 ffer[ Length( Bu
00E640: 66 66 65 72 20 29 20 2B 20 31 20 5D 20 3A 3D 20 ffer ) + 1 ] :=
00E650: 43 68 72 28 20 30 20 29 0D 0A 20 20 20 20 65 6C Chr( 0 ).. el
00E660: 73 65 20 42 75 66 66 65 72 5B 20 38 30 20 5D 20 se Buffer[ 80 ]
00E670: 3A 3D 20 43 68 72 28 20 30 20 29 3B 0D 0A 20 20 := Chr( 0 );..
00E680: 43 68 61 6E 67 65 44 69 72 28 20 44 73 65 67 2C ChangeDir( Dseg,
00E690: 20 4F 66 73 28 20 42 75 66 66 65 72 20 29 20 2B Ofs( Buffer ) +
00E6A0: 20 31 2C 20 45 72 72 6F 72 20 29 3B 0D 0A 20 20 1, Error );..
00E6B0: 69 66 20 28 20 45 72 72 6F 72 20 3C 3E 20 30 20 if ( Error <> 0
00E6C0: 29 0D 0A 20 20 20 20 74 68 65 6E 20 57 72 69 74 ).. then Writ
00E6D0: 65 4C 6E 28 20 27 49 6E 68 61 6C 74 73 76 65 72 eLn( 'Inhaltsver
00E6E0: 7A 65 69 63 68 6E 69 73 20 6E 69 63 68 74 20 67 zeichnis nicht g
00E6F0: 65 66 75 6E 64 65 6E 2E 27 20 29 3B 0D 0A 65 6E efunden.' );..en
00E700: 64 2E 20 7B 20 64 65 73 20 50 72 6F 67 72 61 6D d. { des Program
00E710: 6D 73 20 54 65 73 74 43 68 61 6E 67 65 44 69 72 ms TestChangeDir
00E720: 20 7D 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A }..............
00E730: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00E740: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00E750: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00E760: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00E770: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00E780: 65 67 69 6E 0D 0A 20 20 20 20 47 6F 74 6F 58 59 egin.. GotoXY
00E790: 28 20 31 30 2C 20 31 30 20 29 3B 0D 0A 20 20 20 ( 10, 10 );..
00E7A0: 20 57 72 69 74 65 28 20 27 57 65 6C 63 68 65 73 Write( 'Welches
00E7B0: 20 49 6E 68 61 6C 74 73 76 65 72 7A 65 69 63 68 Inhaltsverzeich
00E7C0: 6E 69 73 20 3A 20 27 20 29 3B 0D 0A 20 20 20 20 nis : ' );..
00E7D0: 52 65 61 64 4C 6E 28 20 42 75 66 66 65 72 20 29 ReadLn( Buffer )
00E7E0: 3B 0D 0A 20 20 65 6E 64 0D 0A 20 20 65 6C 73 65 ;.. end.. else
00E7F0: 20 42 75 66 66 65 72 20 3A 3D 20 43 6F 6D 6D 61 Buffer := Comma
00E800: 20 42 69 74 20 37 20 20 28 31 32 38 29 20 20 20 Bit 7 (128)
00E810: 20 20 20 20 52 65 63 65 69 76 65 64 20 6C 69 6E Received lin
00E820: 65 20 73 69 67 6E 61 6C 20 64 65 74 65 63 74 0D e signal detect.
00E830: 0A 20 20 20 20 20 42 69 74 20 36 20 20 28 36 34 . Bit 6 (64
00E840: 29 20 20 20 20 20 20 20 20 52 69 6E 67 20 69 6E ) Ring in
00E850: 64 69 63 61 74 6F 72 0D 0A 20 20 20 20 20 42 69 dicator.. Bi
00E860: 74 20 35 20 20 28 33 32 29 20 20 20 20 20 20 20 t 5 (32)
00E870: 20 44 61 74 61 20 73 65 74 20 72 65 61 64 79 0D Data set ready.
00E880: 0A 20 20 20 20 20 42 69 74 20 34 20 20 28 31 36 . Bit 4 (16
00E890: 29 20 20 20 20 20 20 20 20 43 6C 65 61 72 20 74 ) Clear t
00E8A0: 6F 20 73 65 6E 64 0D 0A 20 20 20 20 20 42 69 74 o send.. Bit
00E8B0: 20 33 20 20 28 38 29 20 20 20 20 20 20 20 20 20 3 (8)
00E8C0: 44 65 6C 74 61 20 72 65 63 65 69 76 65 20 6C 69 Delta receive li
00E8D0: 6E 65 20 73 69 67 6E 61 6C 20 64 65 74 65 63 74 ne signal detect
00E8E0: 0D 0A 20 20 20 20 20 42 69 74 20 32 20 20 28 34 .. Bit 2 (4
00E8F0: 29 20 20 20 20 20 20 20 20 20 54 72 61 69 6C 69 ) Traili
00E900: 6E 67 20 65 64 67 65 20 72 69 6E 67 20 64 65 74 ng edge ring det
00E910: 65 63 74 6F 72 0D 0A 20 20 20 20 20 42 69 74 20 ector.. Bit
00E920: 31 20 20 28 32 29 20 20 20 20 20 20 20 20 20 44 1 (2) D
00E930: 65 6C 74 61 20 64 61 74 61 20 73 65 74 20 72 65 elta data set re
00E940: 61 64 79 0D 0A 20 20 20 20 20 42 69 74 20 30 20 ady.. Bit 0
00E950: 20 28 31 29 20 20 20 20 20 20 20 20 20 44 65 6C (1) Del
00E960: 74 61 20 63 6C 65 61 72 20 74 6F 20 73 65 6E 64 ta clear to send
00E970: 0D 0A 0D 0A 20 20 42 65 7A 65 69 63 68 6E 65 72 .... Bezeichner
00E980: 20 64 69 65 20 6D 69 74 20 20 22 5F 5F 22 20 62 die mit "__" b
00E990: 65 67 69 6E 6E 65 6E 20 73 6F 6C 6C 74 65 6E 20 eginnen sollten
00E9A0: 76 6F 6E 20 49 68 72 65 6D 20 50 72 6F 67 72 61 von Ihrem Progra
00E9B0: 6D 6D 20 62 65 6E 75 74 7A 74 20 77 65 72 64 65 mm benutzt werde
00E9C0: 6E 2E 0D 0A 2A 29 0D 0A 0D 0A 20 20 54 79 70 65 n...*).... Type
00E9D0: 0D 0A 20 20 20 20 5F 5F 52 65 67 69 73 74 65 72 .. __Register
00E9E0: 53 65 74 3D 52 65 63 6F 72 64 20 63 61 73 65 20 Set=Record case
00E9F0: 49 6E 74 65 67 65 72 20 6F 66 0D 0A 20 20 20 20 Integer of..
00EA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00EC00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 3A 1:
00EC10: 20 28 41 58 2C 42 58 2C 43 58 2C 44 58 2C 42 50 (AX,BX,CX,DX,BP
00EC20: 2C 44 49 2C 53 45 2C 44 53 2C 45 53 2C 46 6C 61 ,DI,SE,DS,ES,Fla
00EC30: 67 73 3A 20 49 6E 74 65 67 65 72 29 3B 0D 0A 20 gs: Integer);..
00EC40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EC50: 20 32 3A 20 28 41 4C 2C 41 48 2C 42 4C 2C 42 48 2: (AL,AH,BL,BH
00EC60: 2C 43 4C 2C 43 48 2C 44 4C 2C 44 48 3A 20 42 79 ,CL,CH,DL,DH: By
00EC70: 74 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 te);..
00EC80: 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 end;..
00EC90: 5F 5F 50 61 72 69 74 79 54 79 70 65 3D 28 4E 6F __ParityType=(No
00ECA0: 6E 65 2C 45 76 65 6E 2C 4F 64 64 29 3B 0D 0A 0D ne,Even,Odd);...
00ECB0: 0A 20 20 76 61 72 0D 0A 20 20 20 20 5F 5F 52 65 . var.. __Re
00ECC0: 67 73 3A 20 5F 5F 52 65 67 69 73 74 65 72 53 65 gs: __RegisterSe
00ECD0: 74 3B 0D 0A 20 20 20 20 49 6E 45 72 72 6F 72 2C t;.. InError,
00ECE0: 4F 75 74 45 72 72 6F 72 3A 20 41 72 72 61 79 20 OutError: Array
00ECF0: 5B 31 2E 2E 32 5D 20 6F 66 20 42 79 74 65 3B 0D [1..2] of Byte;.
00ED00: 0A 0D 0A 20 20 70 72 6F 63 65 64 75 72 65 20 5F ... procedure _
00ED10: 5F 49 6E 74 31 34 28 50 6F 72 74 4E 75 6D 6D 65 _Int14(PortNumme
00ED20: 72 2C 43 6F 6D 6D 61 6E 64 2C 50 61 72 61 6D 65 r,Command,Parame
00ED30: 74 65 72 3A 20 49 6E 74 65 67 65 72 29 3B 0D 0A ter: Integer);..
00ED40: 20 20 28 2A 20 64 6F 20 61 20 42 49 4F 53 20 43 (* do a BIOS C
00ED50: 4F 4D 20 64 72 69 76 65 72 20 69 6E 74 65 72 72 OM driver interr
00ED60: 75 70 74 20 2A 29 0D 0A 0D 0A 20 20 20 20 62 65 upt *).... be
00ED70: 67 69 6E 0D 0A 20 20 20 20 20 20 77 69 74 68 20 gin.. with
00ED80: 5F 5F 52 65 67 73 20 64 6F 0D 0A 20 20 20 20 20 __Regs do..
00ED90: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 begin..
00EDA0: 20 44 58 3A 3D 50 6F 72 74 4E 75 6D 6D 65 72 2D DX:=PortNummer-
00EDB0: 31 3B 0D 0A 20 20 20 20 20 20 20 20 41 48 3A 3D 1;.. AH:=
00EDC0: 43 6F 6D 6D 61 6E 64 3B 0D 0A 20 20 20 20 20 20 Command;..
00EDD0: 20 20 41 4C 3A 3D 50 61 72 61 6D 65 74 65 72 3B AL:=Parameter;
00EDE0: 0D 0A 20 20 20 20 20 20 20 20 46 6C 61 67 73 3A .. Flags:
00EDF0: 3D 30 3B 0D 0A 20 20 20 20 20 20 20 20 49 6E 74 =0;.. Int
00EE00: 0D 0A 28 2A 24 55 2B 2A 29 0D 0A 0D 0A 20 20 76 ..(*$U+*).... v
00EE10: 61 72 0D 0A 20 20 20 20 50 6F 72 74 2C 42 61 75 ar.. Port,Bau
00EE20: 64 2C 53 74 6F 70 42 69 74 73 2C 44 61 74 61 42 d,StopBits,DataB
00EE30: 69 74 73 2C 50 61 72 3A 20 49 6E 74 65 67 65 72 its,Par: Integer
00EE40: 3B 0D 0A 20 20 20 20 4D 65 73 73 61 67 65 3A 20 ;.. Message:
00EE50: 53 74 72 69 6E 67 5B 38 30 5D 3B 0D 0A 0D 0A 20 String[80];....
00EE60: 20 74 79 70 65 0D 0A 20 20 20 20 53 74 72 69 6E type.. Strin
00EE70: 67 31 39 3D 53 74 72 69 6E 67 5B 31 39 5D 3B 0D g19=String[19];.
00EE80: 0A 0D 0A 0D 0A 28 2A 20 45 69 6E 69 67 65 20 52 .....(* Einige R
00EE90: 6F 75 74 69 6E 65 6E 20 75 6D 20 43 4F 4D 31 20 outinen um COM1
00EEA0: 75 6E 64 20 43 4F 4D 32 20 76 6F 6E 20 54 75 72 und COM2 von Tur
00EEB0: 62 6F 20 50 61 73 63 61 6C 20 61 75 73 20 61 6E bo Pascal aus an
00EEC0: 7A 75 73 70 72 65 63 68 65 6E 2E 0D 0A 20 20 20 zusprechen...
00EED0: 44 69 65 20 66 6F 6C 67 65 6E 64 65 6E 20 50 72 Die folgenden Pr
00EEE0: 6F 7A 65 64 75 72 65 6E 20 6B 6F 65 6E 6E 65 6E ozeduren koennen
00EEF0: 20 76 6F 6E 20 49 68 72 65 6E 20 50 72 6F 67 72 von Ihren Progr
00EF00: 61 6D 6D 65 6E 20 62 65 6E 75 74 7A 74 20 77 65 ammen benutzt we
00EF10: 72 64 65 6E 3A 0D 0A 0D 0A 20 20 41 73 73 69 67 rden:.... Assig
00EF20: 6E 41 75 78 28 50 6F 72 74 4E 75 6D 6D 65 72 20 nAux(PortNummer
00EF30: 69 6E 20 5B 31 2C 32 5D 29 20 6C 65 67 74 20 41 in [1,2]) legt A
00EF40: 75 78 20 61 75 66 20 43 4F 4D 31 20 6F 64 65 72 ux auf COM1 oder
00EF50: 20 43 4F 4D 32 0D 0A 20 20 41 73 73 69 67 6E 55 COM2.. AssignU
00EF60: 73 72 28 50 6F 72 74 4E 75 6D 6D 65 72 20 69 6E sr(PortNummer in
00EF70: 20 5B 31 2C 32 5D 29 20 6C 65 67 74 20 55 73 72 [1,2]) legt Usr
00EF80: 20 61 75 66 20 43 4F 4D 31 20 6F 64 65 72 20 43 auf COM1 oder C
00EF90: 4F 4D 32 0D 0A 20 20 53 65 74 53 65 72 69 65 6C OM2.. SetSeriel
00EFA0: 6C 28 50 6F 72 74 4E 75 6D 6D 65 72 20 69 6E 20 l(PortNummer in
00EFB0: 5B 31 2C 32 5D 2C 0D 0A 20 20 20 20 20 20 20 20 [1,2],..
00EFC0: 20 20 20 20 42 61 75 64 52 61 74 65 20 69 6E 20 BaudRate in
00EFD0: 5B 31 31 30 2C 31 35 30 2C 33 30 30 2C 36 30 30 [110,150,300,600
00EFE0: 2C 31 32 30 30 2C 32 34 30 30 2C 34 38 30 30 2C ,1200,2400,4800,
00EFF0: 39 36 30 30 5D 2C 0D 0A 20 20 20 20 20 20 20 20 9600],..
00F000: 72 28 24 31 34 2C 5F 5F 52 65 67 73 29 3B 0D 0A r($14,__Regs);..
00F010: 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 end;..
00F020: 20 65 6E 64 3B 0D 0A 0D 0A 0D 0A 20 20 70 72 6F end;...... pro
00F030: 63 65 64 75 72 65 20 53 65 74 53 65 72 69 65 6C cedure SetSeriel
00F040: 6C 28 50 6F 72 74 4E 75 6D 6D 65 72 2C 42 61 75 l(PortNummer,Bau
00F050: 64 52 61 74 65 2C 53 74 6F 70 42 69 74 73 2C 44 dRate,StopBits,D
00F060: 61 74 61 42 69 74 73 3A 20 49 6E 74 65 67 65 72 ataBits: Integer
00F070: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
00F080: 20 20 20 20 20 20 20 20 20 50 61 72 69 74 79 3A Parity:
00F090: 20 5F 5F 50 61 72 69 74 79 54 79 70 65 29 3B 0D __ParityType);.
00F0A0: 0A 20 20 28 2A 20 53 65 74 20 53 65 72 69 65 6C . (* Set Seriel
00F0B0: 6C 20 70 61 72 61 6D 65 74 65 72 73 20 6F 6E 20 l parameters on
00F0C0: 61 20 43 4F 4D 20 70 6F 72 74 20 2A 29 0D 0A 0D a COM port *)...
00F0D0: 0A 20 20 20 20 76 61 72 0D 0A 20 20 20 20 20 20 . var..
00F0E0: 50 61 72 61 6D 65 74 65 72 3A 20 49 6E 74 65 67 Parameter: Integ
00F0F0: 65 72 3B 0D 0A 0D 0A 20 20 20 20 62 65 67 69 6E er;.... begin
00F100: 0D 0A 20 20 20 20 20 20 63 61 73 65 20 42 61 75 .. case Bau
00F110: 64 52 61 74 65 20 6F 66 0D 0A 20 20 20 20 20 20 dRate of..
00F120: 20 20 31 31 30 3A 20 42 61 75 64 52 61 74 65 3A 110: BaudRate:
00F130: 3D 30 3B 0D 0A 20 20 20 20 20 20 20 20 31 35 30 =0;.. 150
00F140: 3A 20 42 61 75 64 52 61 74 65 3A 3D 31 3B 0D 0A : BaudRate:=1;..
00F150: 20 20 20 20 20 20 20 20 33 30 30 3A 20 42 61 75 300: Bau
00F160: 64 52 61 74 65 3A 3D 32 3B 0D 0A 20 20 20 20 20 dRate:=2;..
00F170: 20 20 20 36 30 30 3A 20 42 61 75 64 52 61 74 65 600: BaudRate
00F180: 3A 3D 33 3B 0D 0A 20 20 20 20 20 20 20 20 31 32 :=3;.. 12
00F190: 30 30 3A 20 42 61 75 64 52 61 74 65 3A 3D 34 3B 00: BaudRate:=4;
00F1A0: 0D 0A 20 20 20 20 20 20 20 20 32 34 30 30 3A 20 .. 2400:
00F1B0: 42 61 75 64 52 61 74 65 3A 3D 35 3B 0D 0A 20 20 BaudRate:=5;..
00F1C0: 20 20 20 20 20 20 34 38 30 30 3A 20 42 61 75 64 4800: Baud
00F1D0: 52 61 74 65 3A 3D 36 3B 0D 0A 20 20 20 20 20 20 Rate:=6;..
00F1E0: 20 20 65 6C 73 65 20 42 61 75 64 52 61 74 65 3A else BaudRate:
00F1F0: 3D 37 3B 20 28 2A 20 53 74 61 6E 64 61 72 64 20 =7; (* Standard
00F200: 20 20 20 20 53 74 6F 70 42 69 74 73 20 69 6E 20 StopBits in
00F210: 5B 31 2C 32 5D 2C 0D 0A 20 20 20 20 20 20 20 20 [1,2],..
00F220: 20 20 20 20 44 61 74 61 42 69 74 73 20 69 6E 20 DataBits in
00F230: 5B 37 2C 38 5D 2C 0D 0A 20 20 20 20 20 20 20 20 [7,8],..
00F240: 20 20 20 20 50 61 72 69 74 79 20 69 6E 20 5B 4E Parity in [N
00F250: 6F 6E 65 2C 45 76 65 6E 2C 4F 64 64 5D 29 20 73 one,Even,Odd]) s
00F260: 65 74 7A 74 20 64 69 65 20 42 61 75 64 72 61 74 etzt die Baudrat
00F270: 65 2C 20 53 74 6F 70 20 42 69 74 73 2C 0D 0A 20 e, Stop Bits,..
00F280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F2A0: 20 20 20 20 20 20 44 61 74 65 6E 62 69 74 73 2C Datenbits,
00F2B0: 20 75 6E 64 20 50 61 72 69 74 61 65 74 20 64 65 und Paritaet de
00F2C0: 72 20 73 65 72 69 65 6C 6C 65 6E 0D 0A 20 20 20 r seriellen..
00F2D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F2E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F2F0: 20 20 20 20 50 6F 72 74 73 2E 0D 0A 0D 0A 0D 0A Ports.......
00F300: 20 20 44 69 65 20 41 72 72 61 79 73 20 49 6E 45 Die Arrays InE
00F310: 72 72 6F 72 20 75 6E 64 20 4F 75 74 45 72 72 6F rror und OutErro
00F320: 72 20 6B 6F 65 6E 6E 65 6E 20 75 6E 74 65 72 73 r koennen unters
00F330: 75 63 68 74 20 77 65 72 64 65 6E 20 75 6D 20 46 ucht werden um F
00F340: 65 68 6C 65 72 0D 0A 20 20 66 65 73 74 7A 75 73 ehler.. festzus
00F350: 74 65 6C 6C 65 6E 2E 20 20 44 69 65 20 42 69 74 tellen. Die Bit
00F360: 73 20 6C 69 65 67 65 6E 20 77 69 65 20 66 6F 6C s liegen wie fol
00F370: 67 74 20 3A 0D 0A 20 20 20 20 20 42 69 74 20 37 gt :.. Bit 7
00F380: 20 28 31 32 38 29 20 20 20 20 20 20 20 20 54 69 (128) Ti
00F390: 6D 65 20 6F 75 74 20 28 20 6B 65 69 6E 20 47 65 me out ( kein Ge
00F3A0: 72 61 65 74 20 61 6E 67 65 73 63 68 6C 6F 73 73 raet angeschloss
00F3B0: 65 6E 20 29 0D 0A 20 20 20 20 20 42 69 74 20 33 en ).. Bit 3
00F3C0: 20 28 38 29 20 20 20 20 20 20 20 20 20 20 46 72 (8) Fr
00F3D0: 61 6D 69 6E 67 20 65 72 72 6F 72 0D 0A 20 20 20 aming error..
00F3E0: 20 20 42 69 74 20 32 20 28 34 29 20 20 20 20 20 Bit 2 (4)
00F3F0: 20 20 20 20 20 50 61 72 69 74 79 20 65 72 72 6F Parity erro
00F400: 3D 20 39 36 30 30 20 42 61 75 64 20 2A 29 0D 0A = 9600 Baud *)..
00F410: 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 end;..
00F420: 20 20 20 69 66 20 53 74 6F 70 42 69 74 73 3D 32 if StopBits=2
00F430: 20 74 68 65 6E 20 53 74 6F 70 42 69 74 73 3A 3D then StopBits:=
00F440: 31 0D 0A 20 20 20 20 20 20 65 6C 73 65 20 53 74 1.. else St
00F450: 6F 70 42 69 74 73 3A 3D 30 3B 20 28 2A 20 53 74 opBits:=0; (* St
00F460: 61 6E 64 61 72 64 20 3D 20 31 20 53 74 6F 70 20 andard = 1 Stop
00F470: 42 69 74 20 2A 29 0D 0A 20 20 20 20 20 20 69 66 Bit *).. if
00F480: 20 44 61 74 61 42 69 74 73 3D 37 20 74 68 65 6E DataBits=7 then
00F490: 20 44 61 74 61 42 69 74 73 3A 3D 32 0D 0A 20 20 DataBits:=2..
00F4A0: 20 20 20 20 65 6C 73 65 20 44 61 74 61 42 69 74 else DataBit
00F4B0: 73 3A 3D 33 3B 20 28 2A 20 53 74 61 6E 64 61 72 s:=3; (* Standar
00F4C0: 64 20 3D 20 38 20 44 61 74 65 6E 62 69 74 73 20 d = 8 Datenbits
00F4D0: 2A 29 0D 0A 20 20 20 20 20 20 50 61 72 61 6D 65 *).. Parame
00F4E0: 74 65 72 3A 3D 28 42 61 75 64 52 61 74 65 20 53 ter:=(BaudRate S
00F4F0: 68 6C 20 35 29 2B 28 53 74 6F 70 42 69 74 73 20 hl 5)+(StopBits
00F500: 53 68 6C 20 32 29 2B 44 61 74 61 42 69 74 73 3B Shl 2)+DataBits;
00F510: 0D 0A 20 20 20 20 20 20 63 61 73 65 20 50 61 72 .. case Par
00F520: 69 74 79 20 6F 66 0D 0A 20 20 20 20 20 20 20 20 ity of..
00F530: 4F 64 64 3A 20 50 61 72 61 6D 65 74 65 72 3A 3D Odd: Parameter:=
00F540: 50 61 72 61 6D 65 74 65 72 2B 38 3B 0D 0A 20 20 Parameter+8;..
00F550: 20 20 20 20 20 20 45 76 65 6E 3A 20 50 61 72 61 Even: Para
00F560: 6D 65 74 65 72 3A 3D 50 61 72 61 6D 65 74 65 72 meter:=Parameter
00F570: 2B 32 34 3B 0D 0A 20 20 20 20 20 20 20 20 65 6C +24;.. el
00F580: 73 65 3B 20 28 2A 20 53 74 61 6E 64 61 72 64 20 se; (* Standard
00F590: 74 6F 20 6E 6F 20 70 61 72 69 74 79 20 2A 29 0D to no parity *).
00F5A0: 0A 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 . end;..
00F5B0: 20 20 20 20 5F 5F 49 6E 74 31 34 28 50 6F 72 74 __Int14(Port
00F5C0: 4E 75 6D 6D 65 72 2C 30 2C 50 61 72 61 6D 65 74 Nummer,0,Paramet
00F5D0: 65 72 29 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A er);.. end;..
00F5E0: 0D 0A 0D 0A 20 20 46 75 6E 63 74 69 6F 6E 20 53 .... Function S
00F5F0: 65 72 69 65 6C 6C 53 74 61 74 75 73 28 50 6F 72 eriellStatus(Por
00F600: 72 0D 0A 20 20 20 20 20 42 69 74 20 31 20 28 32 r.. Bit 1 (2
00F610: 29 20 20 20 20 20 20 20 20 20 20 4F 76 65 72 72 ) Overr
00F620: 75 6E 20 65 72 72 6F 72 0D 0A 0D 0A 20 20 44 69 un error.... Di
00F630: 65 20 46 75 6E 6B 74 69 6F 6E 20 53 65 72 69 65 e Funktion Serie
00F640: 6C 6C 53 74 61 74 75 73 28 50 6F 72 74 4E 75 6D llStatus(PortNum
00F650: 6D 65 72 20 69 6E 20 5B 31 2C 32 5D 29 20 67 69 mer in [1,2]) gi
00F660: 62 74 20 65 69 6E 65 6E 20 67 65 6E 61 75 65 72 bt einen genauer
00F670: 65 6E 0D 0A 20 20 53 74 61 74 75 73 62 65 72 69 en.. Statusberi
00F680: 63 68 74 20 3A 0D 0A 20 20 20 20 20 42 69 74 20 cht :.. Bit
00F690: 31 35 20 28 6E 65 67 61 74 69 76 65 29 20 20 54 15 (negative) T
00F6A0: 69 6D 65 20 6F 75 74 20 28 6B 65 69 6E 20 47 65 ime out (kein Ge
00F6B0: 72 61 65 74 20 61 6E 67 65 73 63 68 6C 6F 73 73 raet angeschloss
00F6C0: 65 6E 20 29 0D 0A 20 20 20 20 20 42 69 74 20 31 en ).. Bit 1
00F6D0: 34 20 28 31 36 33 38 34 29 20 20 20 20 20 54 72 4 (16384) Tr
00F6E0: 61 6E 73 6D 69 73 73 69 6F 6E 20 73 68 69 66 74 ansmission shift
00F6F0: 20 72 65 67 69 73 74 65 72 20 65 6D 70 74 79 0D register empty.
00F700: 0A 20 20 20 20 20 42 69 74 20 31 33 20 28 38 31 . Bit 13 (81
00F710: 39 32 29 20 20 20 20 20 20 54 72 61 6E 73 6D 69 92) Transmi
00F720: 73 73 69 6F 6E 20 68 6F 6C 64 69 6E 67 20 72 65 ssion holding re
00F730: 67 69 73 74 65 72 20 65 6D 70 74 79 0D 0A 20 20 gister empty..
00F740: 20 20 20 42 69 74 20 31 32 20 28 34 30 39 36 29 Bit 12 (4096)
00F750: 20 20 20 20 20 20 42 72 65 61 6B 20 64 65 74 65 Break dete
00F760: 63 74 0D 0A 20 20 20 20 20 42 69 74 20 31 31 20 ct.. Bit 11
00F770: 28 32 30 34 38 29 20 20 20 20 20 20 46 72 61 6D (2048) Fram
00F780: 69 6E 67 20 65 72 72 6F 72 0D 0A 20 20 20 20 20 ing error..
00F790: 42 69 74 20 31 30 20 28 31 30 32 34 29 20 20 20 Bit 10 (1024)
00F7A0: 20 20 20 50 61 72 69 74 79 20 65 72 72 6F 72 0D Parity error.
00F7B0: 0A 20 20 20 20 20 42 69 74 20 39 20 20 28 35 31 . Bit 9 (51
00F7C0: 32 29 20 20 20 20 20 20 20 4F 76 65 72 72 75 6E 2) Overrun
00F7D0: 20 65 72 72 6F 72 0D 0A 20 20 20 20 20 42 69 74 error.. Bit
00F7E0: 20 38 20 20 28 32 35 36 29 20 20 20 20 20 20 20 8 (256)
00F7F0: 44 61 74 61 20 72 65 61 64 79 0D 0A 20 20 20 20 Data ready..
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: 74 4E 75 6D 6D 65 72 3A 20 49 6E 74 65 67 65 72 tNummer: Integer
00F910: 29 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 20 20 28 ): Integer;.. (
00F920: 2A 20 55 65 62 65 72 67 69 62 74 20 64 65 6E 20 * Uebergibt den
00F930: 53 74 61 74 75 73 20 65 69 6E 65 73 20 43 4F 4D Status eines COM
00F940: 20 50 6F 72 74 73 20 2A 29 0D 0A 0D 0A 20 20 20 Ports *)....
00F950: 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 5F 5F begin.. __
00F960: 49 6E 74 31 34 28 50 6F 72 74 4E 75 6D 6D 65 72 Int14(PortNummer
00F970: 2C 33 2C 30 29 3B 0D 0A 20 20 20 20 20 20 53 65 ,3,0);.. Se
00F980: 72 69 65 6C 6C 53 74 61 74 75 73 3A 3D 5F 5F 52 riellStatus:=__R
00F990: 65 67 73 2E 41 58 3B 0D 0A 20 20 20 20 65 6E 64 egs.AX;.. end
00F9A0: 3B 0D 0A 0D 0A 0D 0A 20 20 70 72 6F 63 65 64 75 ;...... procedu
00F9B0: 72 65 20 5F 5F 4F 75 74 50 6F 72 74 31 28 43 3A re __OutPort1(C:
00F9C0: 20 42 79 74 65 29 3B 0D 0A 20 20 28 2A 20 77 69 Byte);.. (* wi
00F9D0: 72 64 20 76 6F 6E 20 57 72 69 74 65 20 61 75 66 rd von Write auf
00F9E0: 67 65 72 75 66 65 6E 2C 20 77 65 6E 6E 20 43 4F gerufen, wenn CO
00F9F0: 4D 31 20 76 65 72 77 65 6E 64 65 74 20 77 69 72 M1 verwendet wir
00FA00: 64 20 2A 29 0D 0A 0D 0A 20 20 20 20 62 65 67 69 d *).... begi
00FA10: 6E 0D 0A 20 20 20 20 20 20 77 68 69 6C 65 20 28 n.. while (
00FA20: 53 65 72 69 65 6C 6C 53 74 61 74 75 73 28 31 29 SeriellStatus(1)
00FA30: 20 61 6E 64 20 24 33 30 29 3D 30 20 64 6F 20 3B and $30)=0 do ;
00FA40: 0D 0A 20 20 20 20 20 20 5F 5F 49 6E 74 31 34 28 .. __Int14(
00FA50: 31 2C 31 2C 43 29 3B 0D 0A 20 20 20 20 20 20 4F 1,1,C);.. O
00FA60: 75 74 45 72 72 6F 72 5B 31 5D 3A 3D 4F 75 74 45 utError[1]:=OutE
00FA70: 72 72 6F 72 5B 31 5D 20 4F 72 20 28 5F 5F 52 65 rror[1] Or (__Re
00FA80: 67 73 2E 41 48 20 61 6E 64 20 24 38 45 29 3B 0D gs.AH and $8E);.
00FA90: 0A 20 20 20 20 65 6E 64 3B 0D 0A 0D 0A 0D 0A 20 . end;......
00FAA0: 20 70 72 6F 63 65 64 75 72 65 20 5F 5F 4F 75 74 procedure __Out
00FAB0: 50 6F 72 74 32 28 43 3A 20 42 79 74 65 29 3B 0D Port2(C: Byte);.
00FAC0: 0A 20 20 28 2A 20 77 69 72 64 20 76 6F 6E 20 57 . (* wird von W
00FAD0: 72 69 74 65 20 61 75 66 67 65 72 75 66 65 6E 2C rite aufgerufen,
00FAE0: 20 77 65 6E 6E 20 43 4F 4D 32 20 76 65 72 77 65 wenn COM2 verwe
00FAF0: 6E 64 65 74 20 77 69 72 64 20 2A 29 0D 0A 0D 0A ndet wird *)....
00FB00: 0D 0A 20 20 20 20 57 72 69 74 65 28 27 42 69 74 .. Write('Bit
00FB10: 74 65 20 44 61 74 65 6E 62 69 74 73 20 65 69 6E te Datenbits ein
00FB20: 67 65 62 65 6E 3A 20 20 20 20 20 20 20 20 20 20 geben:
00FB30: 20 20 20 20 20 20 20 27 29 3B 0D 0A 20 20 20 20 ');..
00FB40: 52 65 61 64 4C 6E 28 44 61 74 61 42 69 74 73 29 ReadLn(DataBits)
00FB50: 3B 0D 0A 20 20 20 20 57 72 69 74 65 28 27 50 61 ;.. Write('Pa
00FB60: 72 69 74 04 74 20 65 69 6E 67 65 62 65 6E 20 28 rit.t eingeben (
00FB70: 30 3D 6E 6F 6E 65 2C 20 31 3D 65 76 65 6E 2C 20 0=none, 1=even,
00FB80: 32 3D 6F 64 64 29 3A 20 27 29 3B 0D 0A 20 20 20 2=odd): ');..
00FB90: 20 52 65 61 64 4C 6E 28 50 61 72 29 3B 0D 0A 20 ReadLn(Par);..
00FBA0: 20 20 20 57 72 69 74 65 28 27 5A 75 20 73 65 6E Write('Zu sen
00FBB0: 64 65 6E 64 65 72 20 54 65 78 74 20 3A 20 20 20 dender Text :
00FBC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00FBD0: 20 20 20 20 27 29 3B 0D 0A 20 20 20 20 52 65 61 ');.. Rea
00FBE0: 64 4C 6E 28 4D 65 73 73 61 67 65 29 3B 0D 0A 20 dLn(Message);..
00FBF0: 20 20 20 53 65 74 53 65 72 69 65 6C 6C 28 31 2C SetSeriell(1,
00FC00: 42 61 75 64 2C 53 74 6F 70 42 69 74 73 2C 44 61 Baud,StopBits,Da
00FC10: 74 61 42 69 74 73 2C 5F 5F 50 61 72 69 74 79 54 taBits,__ParityT
00FC20: 79 70 65 28 50 61 72 29 29 3B 0D 0A 20 20 20 20 ype(Par));..
00FC30: 57 72 69 74 65 4C 6E 28 55 73 72 2C 4D 65 73 73 WriteLn(Usr,Mess
00FC40: 61 67 65 29 3B 0D 0A 20 20 20 20 57 72 69 74 65 age);.. Write
00FC50: 4C 6E 28 27 41 75 73 67 61 62 65 66 65 68 6C 65 Ln('Ausgabefehle
00FC60: 72 5B 27 2C 50 6F 72 74 2C 27 5D 3A 20 27 2C 42 r[',Port,']: ',B
00FC70: 69 6E 61 72 79 28 4F 75 74 45 72 72 6F 72 5B 50 inary(OutError[P
00FC80: 6F 72 74 5D 29 29 3B 0D 0A 20 20 20 20 57 72 69 ort]));.. Wri
00FC90: 74 65 4C 6E 28 27 53 65 72 69 65 6C 6C 53 74 61 teLn('SeriellSta
00FCA0: 74 75 73 28 27 2C 50 6F 72 74 2C 27 29 3A 20 27 tus(',Port,'): '
00FCB0: 2C 42 69 6E 61 72 79 28 53 65 72 69 65 6C 6C 53 ,Binary(SeriellS
00FCC0: 74 61 74 75 73 28 50 6F 72 74 29 29 29 3B 0D 0A tatus(Port)));..
00FCD0: 20 20 65 6E 64 2E 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A end...........
00FCE0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00FCF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00FD00: 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 begin..
00FD10: 20 77 68 69 6C 65 20 28 53 65 72 69 65 6C 6C 53 while (SeriellS
00FD20: 74 61 74 75 53 28 32 29 20 61 6E 64 20 24 33 30 tatuS(2) and $30
00FD30: 29 3D 30 20 64 6F 20 3B 0D 0A 20 20 20 20 20 20 )=0 do ;..
00FD40: 5F 5F 49 6E 74 31 34 28 32 2C 31 2C 43 29 3B 0D __Int14(2,1,C);.
00FD50: 0A 20 20 20 20 20 20 4F 75 74 45 72 72 6F 72 5B . OutError[
00FD60: 32 5D 3A 3D 4F 75 74 45 72 72 6F 72 5B 32 5D 20 2]:=OutError[2]
00FD70: 4F 72 20 28 5F 5F 52 65 67 73 2E 41 48 20 61 6E Or (__Regs.AH an
00FD80: 64 20 24 38 45 29 3B 0D 0A 20 20 20 20 65 6E 64 d $8E);.. end
00FD90: 3B 0D 0A 0D 0A 0D 0A 20 20 46 75 6E 63 74 69 6F ;...... Functio
00FDA0: 6E 20 5F 5F 49 6E 50 6F 72 74 31 3A 20 43 68 61 n __InPort1: Cha
00FDB0: 72 3B 0D 0A 20 20 28 2A 20 77 69 72 64 20 76 6F r;.. (* wird vo
00FDC0: 6E 20 52 65 61 64 20 61 75 66 67 65 72 75 66 65 n Read aufgerufe
00FDD0: 6E 2C 20 77 65 6E 6E 20 43 4F 4D 31 20 76 65 72 n, wenn COM1 ver
00FDE0: 77 65 6E 64 65 74 20 77 69 72 64 20 2A 29 0D 0A wendet wird *)..
00FDF0: 0D 0A 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 .. begin..
00FE00: 20 20 20 5F 5F 49 6E 74 31 34 28 31 2C 32 2C 30 __Int14(1,2,0
00FE10: 29 3B 0D 0A 20 20 20 20 20 20 5F 5F 49 6E 50 6F );.. __InPo
00FE20: 72 74 31 3A 3D 43 68 72 28 5F 5F 52 65 67 73 2E rt1:=Chr(__Regs.
00FE30: 41 4C 29 3B 0D 0A 20 20 20 20 20 20 49 6E 45 72 AL);.. InEr
00FE40: 72 6F 72 5B 31 5D 3A 3D 49 6E 45 72 72 6F 72 5B ror[1]:=InError[
00FE50: 31 5D 20 4F 72 20 28 5F 5F 52 65 67 73 2E 41 48 1] Or (__Regs.AH
00FE60: 20 61 6E 64 20 24 38 45 29 3B 0D 0A 20 20 20 20 and $8E);..
00FE70: 65 6E 64 3B 0D 0A 0D 0A 0D 0A 20 20 46 75 6E 63 end;...... Func
00FE80: 74 69 6F 6E 20 5F 5F 49 6E 50 6F 72 74 32 3A 20 tion __InPort2:
00FE90: 43 68 61 72 3B 0D 0A 20 20 28 2A 20 77 69 72 64 Char;.. (* wird
00FEA0: 20 76 6F 6E 20 52 65 61 64 20 61 75 66 67 65 72 von Read aufger
00FEB0: 75 66 65 6E 2C 20 77 65 6E 6E 20 43 4F 4D 32 20 ufen, wenn COM2
00FEC0: 76 65 72 77 65 6E 64 65 74 20 77 69 72 64 20 2A verwendet wird *
00FED0: 29 0D 0A 0D 0A 20 20 20 20 62 65 67 69 6E 0D 0A ).... begin..
00FEE0: 20 20 20 20 20 20 5F 5F 49 6E 74 31 34 28 32 2C __Int14(2,
00FEF0: 32 2C 30 29 3B 0D 0A 20 20 20 20 20 20 5F 5F 49 2,0);.. __I
00FF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0100A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0100B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0100C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0100D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0100E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0100F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010100: 6E 50 6F 72 74 32 3A 3D 43 68 72 28 5F 5F 52 65 nPort2:=Chr(__Re
010110: 67 73 2E 41 4C 29 3B 0D 0A 20 20 20 20 20 20 49 gs.AL);.. I
010120: 6E 45 72 72 6F 72 5B 32 5D 3A 3D 49 6E 45 72 72 nError[2]:=InErr
010130: 6F 72 5B 32 5D 20 4F 72 20 28 5F 5F 52 65 67 73 or[2] Or (__Regs
010140: 2E 41 48 20 61 6E 64 20 24 38 45 29 3B 0D 0A 20 .AH and $8E);..
010150: 20 20 20 65 6E 64 3B 0D 0A 0D 0A 0D 0A 20 20 70 end;...... p
010160: 72 6F 63 65 64 75 72 65 20 5F 5F 41 73 73 69 67 rocedure __Assig
010170: 6E 50 6F 72 74 28 50 6F 72 74 4E 75 6D 6D 65 72 nPort(PortNummer
010180: 3A 20 49 6E 74 65 67 65 72 3B 20 76 61 72 20 49 : Integer; var I
010190: 6E 50 74 72 2C 4F 75 74 50 74 72 3A 20 49 6E 74 nPtr,OutPtr: Int
0101A0: 65 67 65 72 29 3B 0D 0A 20 20 28 2A 20 6C 65 67 eger);.. (* leg
0101B0: 74 20 20 41 75 78 20 6F 64 65 72 20 55 73 72 20 t Aux oder Usr
0101C0: 65 6E 74 77 65 64 65 72 20 61 75 66 20 43 4F 4D entweder auf COM
0101D0: 31 20 6F 64 65 72 20 43 4F 4D 32 20 2A 29 0D 0A 1 oder COM2 *)..
0101E0: 0D 0A 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 .. begin..
0101F0: 20 20 20 69 66 20 50 6F 72 74 4E 75 6D 6D 65 72 if PortNummer
010200: 3D 32 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 =2 then..
010210: 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 4F begin.. O
010220: 75 74 50 74 72 3A 3D 4F 66 73 28 5F 5F 4F 75 74 utPtr:=Ofs(__Out
010230: 50 6F 72 74 32 29 3B 0D 0A 20 20 20 20 20 20 20 Port2);..
010240: 20 49 6E 50 74 72 3A 3D 4F 66 73 28 5F 5F 49 6E InPtr:=Ofs(__In
010250: 50 6F 72 74 32 29 3B 0D 0A 20 20 20 20 20 20 20 Port2);..
010260: 65 6E 64 0D 0A 20 20 20 20 20 20 65 6C 73 65 20 end.. else
010270: 28 2A 20 53 74 61 6E 64 61 72 64 20 74 6F 20 70 (* Standard to p
010280: 6F 72 74 20 31 20 2A 29 0D 0A 20 20 20 20 20 20 ort 1 *)..
010290: 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 begin..
0102A0: 4F 75 74 50 74 72 3A 3D 4F 66 73 28 5F 5F 4F 75 OutPtr:=Ofs(__Ou
0102B0: 74 50 6F 72 74 31 29 3B 0D 0A 20 20 20 20 20 20 tPort1);..
0102C0: 20 20 49 6E 50 74 72 3A 3D 4F 66 73 28 5F 5F 49 InPtr:=Ofs(__I
0102D0: 6E 50 6F 72 74 31 29 3B 0D 0A 20 20 20 20 20 20 nPort1);..
0102E0: 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 49 6E 45 end;.. InE
0102F0: 72 72 6F 72 5B 50 6F 72 74 4E 75 6D 6D 65 72 5D rror[PortNummer]
010300: 0D 0A 70 72 6F 67 72 61 6D 20 43 50 4D 38 30 44 ..program CPM80D
010310: 69 72 3B 0D 0A 20 20 28 2A 20 44 69 65 73 65 73 ir;.. (* Dieses
010320: 20 50 72 6F 67 72 61 6D 6D 20 7A 65 69 67 74 20 Programm zeigt
010330: 64 61 73 20 49 6E 68 61 6C 74 73 76 65 72 7A 65 das Inhaltsverze
010340: 69 63 68 6E 69 73 20 64 65 73 20 61 6B 74 75 65 ichnis des aktue
010350: 6C 6C 65 6E 20 4C 61 75 66 77 65 72 6B 73 20 2A llen Laufwerks *
010360: 29 0D 0A 63 6F 6E 73 74 0D 0A 20 20 53 65 61 72 )..const.. Sear
010370: 63 68 5F 46 69 72 73 74 20 20 20 20 20 20 20 20 ch_First
010380: 20 3A 20 49 6E 74 65 67 65 72 20 3D 20 24 31 31 : Integer = $11
010390: 3B 0D 0A 20 20 53 65 61 72 63 68 5F 4E 65 78 74 ;.. Search_Next
0103A0: 20 20 20 20 20 20 20 20 20 20 3A 20 49 6E 74 65 : Inte
0103B0: 67 65 72 20 3D 20 24 31 32 3B 0D 0A 20 20 53 65 ger = $12;.. Se
0103C0: 74 5F 44 4D 41 20 20 20 20 20 20 20 20 20 20 20 t_DMA
0103D0: 20 20 20 3A 20 49 6E 74 65 67 65 72 20 3D 20 24 : Integer = $
0103E0: 31 41 3B 0D 0A 76 61 72 0D 0A 20 20 45 72 72 6F 1A;..var.. Erro
0103F0: 72 2C 20 4C 6F 6F 70 2C 20 53 74 61 72 74 20 20 r, Loop, Start
010400: 20 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 20 20 46 : Integer;.. F
010410: 43 42 20 20 20 20 20 20 20 20 20 20 20 20 20 20 CB
010420: 20 20 20 20 3A 20 61 72 72 61 79 5B 30 2E 2E 32 : array[0..2
010430: 35 5D 20 6F 66 20 42 79 74 65 20 61 62 73 6F 6C 5] of Byte absol
010440: 75 74 65 20 24 30 30 35 43 3B 0D 0A 20 20 44 4D ute $005C;.. DM
010450: 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 A
010460: 20 20 20 3A 20 61 72 72 61 79 5B 30 2E 2E 32 35 : array[0..25
010470: 35 5D 20 6F 66 20 42 79 74 65 3B 0D 0A 0D 0A 62 5] of Byte;....b
010480: 65 67 69 6E 0D 0A 20 20 45 72 72 6F 72 20 3A 3D egin.. Error :=
010490: 20 42 44 6F 73 28 53 65 74 5F 44 4D 41 2C 41 64 BDos(Set_DMA,Ad
0104A0: 64 72 28 44 4D 41 29 29 3B 0D 0A 20 20 46 43 42 dr(DMA));.. FCB
0104B0: 5B 30 5D 20 3A 3D 20 30 3B 0D 0A 20 20 66 6F 72 [0] := 0;.. for
0104C0: 20 4C 6F 6F 70 20 3A 3D 20 31 20 74 6F 20 31 31 Loop := 1 to 11
0104D0: 20 64 6F 0D 0A 20 20 20 20 46 43 42 5B 4C 6F 6F do.. FCB[Loo
0104E0: 70 5D 20 3A 3D 20 6F 72 64 28 27 3F 27 29 3B 0D p] := ord('?');.
0104F0: 0A 20 20 45 72 72 6F 72 20 3A 3D 20 42 44 6F 73 . Error := BDos
010500: 3A 3D 30 3B 0D 0A 20 20 20 20 20 20 4F 75 74 45 :=0;.. OutE
010510: 72 72 6F 72 5B 50 6F 72 74 4E 75 6D 6D 65 72 5D rror[PortNummer]
010520: 3A 3D 30 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A :=0;.. end;..
010530: 0D 0A 0D 0A 20 20 70 72 6F 63 65 64 75 72 65 20 .... procedure
010540: 41 73 73 69 67 6E 41 75 78 28 50 6F 72 74 4E 75 AssignAux(PortNu
010550: 6D 6D 65 72 3A 20 49 6E 74 65 67 65 72 29 3B 0D mmer: Integer);.
010560: 0A 20 20 28 2A 20 6C 65 67 74 20 41 75 78 20 65 . (* legt Aux e
010570: 6E 74 77 65 64 65 72 20 61 75 66 20 43 4F 4D 31 ntweder auf COM1
010580: 20 6F 64 65 72 20 43 4F 4D 32 20 2A 29 0D 0A 0D oder COM2 *)...
010590: 0A 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 . begin..
0105A0: 20 20 5F 5F 41 73 73 69 67 6E 50 6F 72 74 28 50 __AssignPort(P
0105B0: 6F 72 74 4E 75 6D 6D 65 72 2C 41 75 78 49 6E 50 ortNummer,AuxInP
0105C0: 74 72 2C 41 75 78 4F 75 74 50 74 72 29 3B 0D 0A tr,AuxOutPtr);..
0105D0: 20 20 20 20 65 6E 64 3B 0D 0A 0D 0A 0D 0A 20 20 end;......
0105E0: 70 72 6F 63 65 64 75 72 65 20 41 73 73 69 67 6E procedure Assign
0105F0: 55 73 72 28 50 6F 72 74 4E 75 6D 6D 65 72 3A 20 Usr(PortNummer:
010600: 49 6E 74 65 67 65 72 29 3B 0D 0A 20 20 28 2A 20 Integer);.. (*
010610: 6C 65 67 74 20 55 73 72 20 65 6E 74 77 65 64 65 legt Usr entwede
010620: 72 20 61 75 66 20 43 4F 4D 31 20 6F 64 65 72 20 r auf COM1 oder
010630: 43 4F 4D 32 20 2A 29 0D 0A 0D 0A 0D 0A 20 20 20 COM2 *)......
010640: 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 5F 5F begin.. __
010650: 41 73 73 69 67 6E 50 6F 72 74 28 50 6F 72 74 4E AssignPort(PortN
010660: 75 6D 6D 65 72 2C 55 73 72 49 6E 50 74 72 2C 55 ummer,UsrInPtr,U
010670: 73 72 4F 75 74 50 74 72 29 3B 0D 0A 20 20 20 20 srOutPtr);..
010680: 65 6E 64 3B 0D 0A 0D 0A 0D 0A 20 20 46 75 6E 63 end;...... Func
010690: 74 69 6F 6E 20 42 69 6E 61 72 79 28 56 3A 20 49 tion Binary(V: I
0106A0: 6E 74 65 67 65 72 29 3A 20 53 74 72 69 6E 67 31 nteger): String1
0106B0: 39 3B 0D 0A 0D 0A 20 20 20 20 76 61 72 0D 0A 20 9;.... var..
0106C0: 20 20 20 20 20 49 3A 20 49 6E 74 65 67 65 72 3B I: Integer;
0106D0: 0D 0A 20 20 20 20 20 20 42 3A 20 41 72 72 61 79 .. B: Array
0106E0: 20 5B 30 2E 2E 33 5D 20 6F 66 20 53 74 72 69 6E [0..3] of Strin
0106F0: 67 5B 34 5D 3B 0D 0A 0D 0A 20 20 20 20 62 65 67 g[4];.... beg
010700: 28 53 65 61 72 63 68 5F 46 69 72 73 74 2C 41 64 (Search_First,Ad
010710: 64 72 28 46 43 42 29 29 3B 0D 0A 20 20 69 66 20 dr(FCB));.. if
010720: 45 72 72 6F 72 20 3C 3E 20 32 35 35 20 74 68 65 Error <> 255 the
010730: 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 53 74 61 n begin.. Sta
010740: 72 74 20 3A 3D 20 45 72 72 6F 72 20 2A 20 33 32 rt := Error * 32
010750: 3B 0D 0A 20 20 20 20 66 6F 72 20 4C 6F 6F 70 3A ;.. for Loop:
010760: 3D 20 53 74 61 72 74 20 74 6F 20 73 74 61 72 74 = Start to start
010770: 2B 38 20 64 6F 0D 0A 20 20 20 20 20 20 57 72 69 +8 do.. Wri
010780: 74 65 28 43 68 61 72 28 4D 65 6D 5B 41 64 64 72 te(Char(Mem[Addr
010790: 28 44 4D 41 29 2B 4C 6F 6F 70 5D 29 29 3B 0D 0A (DMA)+Loop]));..
0107A0: 20 20 20 20 57 72 69 74 65 28 27 20 27 29 3B 0D Write(' ');.
0107B0: 0A 20 20 20 20 66 6F 72 20 4C 6F 6F 70 3A 3D 20 . for Loop:=
0107C0: 53 74 61 72 74 2B 39 20 74 6F 20 53 74 61 72 74 Start+9 to Start
0107D0: 2B 31 31 20 64 6F 0D 0A 20 20 20 20 20 20 57 72 +11 do.. Wr
0107E0: 69 74 65 28 43 68 61 72 28 4D 65 6D 5B 41 64 64 ite(Char(Mem[Add
0107F0: 72 28 44 4D 41 29 2B 4C 6F 6F 70 5D 29 29 3B 0D r(DMA)+Loop]));.
010800: 0A 20 20 20 20 57 72 69 74 65 4C 6E 0D 0A 20 20 . WriteLn..
010810: 65 6E 64 3B 0D 0A 20 20 72 65 70 65 61 74 0D 0A end;.. repeat..
010820: 20 20 20 20 45 72 72 6F 72 20 3A 3D 20 42 44 6F Error := BDo
010830: 73 28 73 65 61 72 63 68 5F 4E 65 78 74 29 3B 0D s(search_Next);.
010840: 0A 20 20 20 20 53 74 61 72 74 20 3A 3D 20 45 72 . Start := Er
010850: 72 6F 72 20 2A 20 33 32 3B 0D 0A 20 20 20 20 69 ror * 32;.. i
010860: 66 20 45 72 72 6F 72 20 3C 3E 20 32 35 35 20 74 f Error <> 255 t
010870: 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 hen begin..
010880: 20 66 6F 72 20 4C 6F 6F 70 3A 3D 20 53 74 61 72 for Loop:= Star
010890: 74 20 74 6F 20 73 74 61 72 74 2B 38 20 64 6F 0D t to start+8 do.
0108A0: 0A 20 20 20 20 20 20 20 20 57 72 69 74 65 28 43 . Write(C
0108B0: 68 61 72 28 4D 65 6D 5B 41 64 64 72 28 44 4D 41 har(Mem[Addr(DMA
0108C0: 29 2B 4C 6F 6F 70 5D 29 29 3B 0D 0A 20 20 20 20 )+Loop]));..
0108D0: 20 20 57 72 69 74 65 28 27 20 27 29 3B 0D 0A 20 Write(' ');..
0108E0: 20 20 20 20 66 6F 72 20 4C 6F 6F 70 3A 3D 20 53 for Loop:= S
0108F0: 74 61 72 74 2B 39 20 74 6F 20 53 74 61 72 74 2B tart+9 to Start+
010900: 69 6E 0D 0A 20 20 20 20 20 20 46 6F 72 20 49 3A in.. For I:
010910: 3D 30 20 54 6F 20 31 35 20 64 6F 0D 0A 20 20 20 =0 To 15 do..
010920: 20 20 20 20 20 69 66 20 28 56 20 61 6E 64 20 28 if (V and (
010930: 31 20 53 68 6C 20 28 31 35 2D 49 29 29 29 3C 3E 1 Shl (15-I)))<>
010940: 30 20 74 68 65 6E 20 42 5B 49 20 44 69 76 20 34 0 then B[I Div 4
010950: 5D 5B 28 49 20 4D 6F 64 20 34 29 2B 31 5D 3A 3D ][(I Mod 4)+1]:=
010960: 27 31 27 0D 0A 20 20 20 20 20 20 20 20 65 6C 73 '1'.. els
010970: 65 20 42 5B 49 20 44 69 76 20 34 5D 5B 28 49 20 e B[I Div 4][(I
010980: 4D 6F 64 20 34 29 2B 31 5D 3A 3D 27 30 27 3B 0D Mod 4)+1]:='0';.
010990: 0A 20 20 20 20 20 20 46 6F 72 20 49 3A 3D 30 20 . For I:=0
0109A0: 54 6F 20 33 20 64 6F 20 42 5B 49 5D 5B 30 5D 3A To 3 do B[I][0]:
0109B0: 3D 43 68 72 28 34 29 3B 0D 0A 20 20 20 20 20 20 =Chr(4);..
0109C0: 42 69 6E 61 72 79 3A 3D 42 5B 30 5D 2B 27 20 27 Binary:=B[0]+' '
0109D0: 2B 42 5B 31 5D 2B 27 20 27 2B 42 5B 32 5D 2B 27 +B[1]+' '+B[2]+'
0109E0: 20 27 2B 42 5B 33 5D 3B 0D 0A 20 20 20 20 65 6E '+B[3];.. en
0109F0: 64 3B 0D 0A 0D 0A 0D 0A 20 20 62 65 67 69 6E 0D d;...... begin.
010A00: 0A 20 20 20 20 57 72 69 74 65 28 27 42 69 74 74 . Write('Bitt
010A10: 65 20 50 6F 72 74 20 4E 75 6D 6D 65 72 20 65 69 e Port Nummer ei
010A20: 6E 67 65 62 65 6E 3A 20 20 20 20 20 20 20 20 20 ngeben:
010A30: 20 20 20 20 20 20 27 29 3B 0D 0A 20 20 20 20 52 ');.. R
010A40: 65 61 64 4C 6E 28 50 6F 72 74 29 3B 0D 0A 20 20 eadLn(Port);..
010A50: 20 20 41 73 73 69 67 6E 55 73 72 28 50 6F 72 74 AssignUsr(Port
010A60: 29 3B 0D 0A 20 20 20 20 57 72 69 74 65 28 27 42 );.. Write('B
010A70: 69 74 74 65 20 42 61 75 64 72 61 74 65 20 65 69 itte Baudrate ei
010A80: 6E 67 65 62 65 6E 3A 20 20 20 20 20 20 20 20 20 ngeben:
010A90: 20 20 20 20 20 20 20 20 20 27 29 3B 0D 0A 20 20 ');..
010AA0: 20 20 52 65 61 64 4C 6E 28 42 61 75 64 29 3B 0D ReadLn(Baud);.
010AB0: 0A 20 20 20 20 57 72 69 74 65 28 27 42 69 74 74 . Write('Bitt
010AC0: 65 20 53 74 6F 70 70 62 69 74 73 20 65 69 6E 67 e Stoppbits eing
010AD0: 65 62 65 6E 3A 20 20 20 20 20 20 20 20 20 20 20 eben:
010AE0: 20 20 20 20 20 20 27 29 3B 0D 0A 20 20 20 20 52 ');.. R
010AF0: 65 61 64 4C 6E 28 53 74 6F 70 42 69 74 73 29 3B eadLn(StopBits);
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: 31 31 20 64 6F 0D 0A 20 20 20 20 20 20 20 57 72 11 do.. Wr
010C10: 69 74 65 28 43 68 61 72 28 4D 65 6D 5B 41 64 64 ite(Char(Mem[Add
010C20: 72 28 44 4D 41 29 2B 4C 6F 6F 70 5D 29 29 3B 0D r(DMA)+Loop]));.
010C30: 0A 20 20 20 20 20 57 72 69 74 65 4C 6E 0D 0A 20 . WriteLn..
010C40: 20 65 6E 64 0D 0A 20 75 6E 74 69 6C 20 45 72 72 end.. until Err
010C50: 6F 72 3D 32 35 35 0D 0A 65 6E 64 2E 20 28 2A 20 or=255..end. (*
010C60: 64 65 73 20 50 72 6F 67 72 61 6D 6D 73 20 43 50 des Programms CP
010C70: 4D 38 30 44 69 72 20 2A 29 0D 0A 1A 1A 1A 1A 1A M80Dir *).......
010C80: 74 65 28 43 68 61 72 28 4D 65 6D 5B 41 64 64 72 te(Char(Mem[Addr
010C90: 28 44 4D 41 29 2B 4C 6F 6F 70 5D 29 29 3B 0D 0A (DMA)+Loop]));..
010CA0: 20 20 20 20 57 72 69 74 65 28 27 20 27 29 3B 0D Write(' ');.
010CB0: 0A 20 20 20 20 66 6F 72 20 4C 6F 6F 70 3A 3D 20 . for Loop:=
010CC0: 53 74 61 72 74 2B 39 20 74 6F 20 53 74 61 72 74 Start+9 to Start
010CD0: 2B 31 31 20 64 6F 0D 0A 20 20 20 20 20 20 57 72 +11 do.. Wr
010CE0: 69 74 65 28 43 68 61 72 28 4D 65 6D 5B 41 64 64 ite(Char(Mem[Add
010CF0: 72 28 44 4D 41 29 2B 4C 6F 6F 70 5D 29 29 3B 0D r(DMA)+Loop]));.
010D00: 0A 20 20 20 20 57 72 69 74 65 4C 6E 0D 0A 20 20 . WriteLn..
010D10: 65 6E 64 3B 0D 0A 20 20 72 65 70 65 61 74 0D 0A end;.. repeat..
010D20: 20 20 20 20 45 72 72 6F 72 20 3A 3D 20 42 44 6F Error := BDo
010D30: 73 28 73 65 61 72 63 68 5F 4E 65 78 74 29 3B 0D s(search_Next);.
010D40: 0A 20 20 20 20 53 74 61 72 74 20 3A 3D 20 45 72 . Start := Er
010D50: 72 6F 72 20 2A 20 33 32 3B 0D 0A 20 20 20 20 69 ror * 32;.. i
010D60: 66 20 45 72 72 6F 72 20 3C 3E 20 32 35 35 20 74 f Error <> 255 t
010D70: 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 hen begin..
010D80: 20 66 6F 72 20 4C 6F 6F 70 3A 3D 20 53 74 61 72 for Loop:= Star
010D90: 74 20 74 6F 20 73 74 61 72 74 2B 38 20 64 6F 0D t to start+8 do.
010DA0: 0A 20 20 20 20 20 20 20 20 57 72 69 74 65 28 43 . Write(C
010DB0: 68 61 72 28 4D 65 6D 5B 41 64 64 72 28 44 4D 41 har(Mem[Addr(DMA
010DC0: 29 2B 4C 6F 6F 70 5D 29 29 3B 0D 0A 20 20 20 20 )+Loop]));..
010DD0: 20 20 57 72 69 74 65 28 27 20 27 29 3B 0D 0A 20 Write(' ');..
010DE0: 20 20 20 20 66 6F 72 20 4C 6F 6F 70 3A 3D 20 53 for Loop:= S
010DF0: 74 61 72 74 2B 39 20 74 6F 20 53 74 61 72 74 2B tart+9 to Start+
010E00: 20 20 4E 75 6D 62 65 72 3A 3D 4E 75 6D 62 65 72 Number:=Number
010E10: 20 73 68 72 20 34 0D 0A 20 20 20 65 6E 64 3B 0D shr 4.. end;.
010E20: 0A 20 20 20 48 65 78 3A 3D 48 0D 0A 65 6E 64 3B . Hex:=H..end;
010E30: 20 28 2A 20 6F 66 20 70 72 6F 63 20 48 65 78 20 (* of proc Hex
010E40: 2A 29 0D 0A 0D 0A 0D 0A 62 65 67 69 6E 20 28 2A *)......begin (*
010E50: 20 64 65 73 20 50 72 6F 67 72 61 6D 6D 73 20 43 des Programms C
010E60: 50 4D 53 74 61 74 75 73 20 2A 29 0D 0A 20 20 20 PMStatus *)..
010E70: 43 6C 72 53 63 72 3B 0D 0A 20 20 20 77 72 69 74 ClrScr;.. writ
010E80: 65 6C 6E 28 0D 0A 27 41 6E 67 65 6D 65 6C 64 65 eln(..'Angemelde
010E90: 74 2D 20 20 2D 2D 2D 2D 20 52 65 63 6F 72 64 73 t- ---- Records
010EA0: 20 2D 2D 2D 2D 20 20 20 2D 20 53 70 75 72 65 6E ---- - Spuren
010EB0: 20 2D 20 20 20 2D 2D 20 4B 61 70 61 7A 69 74 61 - -- Kapazita
010EC0: 65 74 20 2D 2D 20 20 20 2D 2D 2D 20 54 50 41 20 et -- --- TPA
010ED0: 2D 2D 2D 27 29 3B 20 20 77 72 69 74 65 6C 6E 28 ---'); writeln(
010EE0: 0D 0A 27 44 72 69 76 65 20 55 73 65 72 20 20 20 ..'Drive User
010EF0: 42 6C 6F 63 6B 20 54 72 61 63 6B 20 44 72 69 76 Block Track Driv
010F00: 65 20 20 20 53 79 73 2E 20 44 72 69 76 65 20 20 e Sys. Drive
010F10: 20 44 69 72 65 63 74 6F 72 79 20 44 72 69 76 65 Directory Drive
010F20: 20 20 20 20 42 79 74 65 73 20 20 20 20 20 4B 27 Bytes K'
010F30: 29 3B 0D 0A 28 2A 20 20 78 3A 20 20 20 78 78 78 );..(* x: xxx
010F40: 20 20 20 78 78 78 78 78 20 78 78 78 78 78 20 78 xxxxx xxxxx x
010F50: 78 78 78 78 20 20 20 78 78 78 20 20 78 78 78 78 xxxx xxx xxxx
010F60: 78 20 20 20 78 78 78 78 2F 78 78 78 78 20 78 78 x xxxx/xxxx xx
010F70: 78 78 78 4B 20 20 20 78 78 78 78 78 20 20 78 78 xxxK xxxxx xx
010F80: 2E 78 20 2A 29 0D 0A 0D 0A 20 20 20 57 72 69 74 .x *).... Writ
010F90: 65 28 27 20 20 27 2C 20 43 68 72 28 42 64 6F 73 e(' ', Chr(Bdos
010FA0: 28 43 75 72 44 69 73 6B 29 20 2B 20 4F 72 64 28 (CurDisk) + Ord(
010FB0: 27 41 27 29 29 2C 20 27 3A 20 20 20 27 2C 0D 0A 'A')), ': ',..
010FC0: 20 20 20 20 20 20 20 20 20 42 64 6F 73 28 47 65 Bdos(Ge
010FD0: 74 55 73 65 72 2C 24 46 46 46 46 29 3A 33 2C 20 tUser,$FFFF):3,
010FE0: 27 20 20 20 27 29 3B 0D 0A 20 20 20 44 50 42 3A ' ');.. DPB:
010FF0: 3D 50 74 72 28 42 64 6F 73 48 4C 28 44 69 73 6B =Ptr(BdosHL(Disk
011000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0110A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0110B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0110C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0110D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0110E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0110F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0111A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0111B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0111C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0111D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0111E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0111F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011200: 50 61 72 61 6D 29 29 3B 0D 0A 20 20 20 77 69 74 Param));.. wit
011210: 68 20 44 50 42 5E 20 64 6F 20 62 65 67 69 6E 0D h DPB^ do begin.
011220: 0A 20 20 20 20 20 52 65 63 73 50 72 42 6C 6F 63 . RecsPrBloc
011230: 6B 3A 3D 42 4C 4D 2B 31 3B 0D 0A 20 20 20 20 20 k:=BLM+1;..
011240: 57 72 69 74 65 28 52 65 63 73 50 72 42 6C 6F 63 Write(RecsPrBloc
011250: 6B 3A 35 29 3B 0D 0A 20 20 20 20 20 57 72 69 74 k:5);.. Writ
011260: 65 28 53 50 54 3A 36 29 3B 0D 0A 20 20 20 20 20 e(SPT:6);..
011270: 52 65 63 73 50 72 44 72 69 76 65 3A 3D 28 44 53 RecsPrDrive:=(DS
011280: 4D 68 69 2A 32 35 36 2E 30 20 2B 20 44 53 4D 6C Mhi*256.0 + DSMl
011290: 6F 20 2B 20 31 2E 30 29 2A 52 65 63 73 50 72 42 o + 1.0)*RecsPrB
0112A0: 6C 6F 63 6B 3B 0D 0A 20 20 20 20 20 57 72 69 74 lock;.. Writ
0112B0: 65 28 52 65 63 73 50 72 44 72 69 76 65 3A 36 3A e(RecsPrDrive:6:
0112C0: 30 2C 27 20 20 20 27 29 3B 0D 0A 20 20 20 20 20 0,' ');..
0112D0: 57 72 69 74 65 28 4F 46 46 3A 33 29 3B 0D 0A 20 Write(OFF:3);..
0112E0: 20 20 20 20 54 72 6B 73 50 72 44 72 69 76 65 3A TrksPrDrive:
0112F0: 3D 52 65 63 73 50 72 44 72 69 76 65 2F 53 50 54 =RecsPrDrive/SPT
011300: 20 2B 20 4F 46 46 3B 0D 0A 20 20 20 20 20 69 66 + OFF;.. if
011310: 20 54 72 6B 73 50 72 44 72 69 76 65 20 3C 3E 20 TrksPrDrive <>
011320: 54 72 75 6E 63 28 54 72 6B 73 50 72 44 72 69 76 Trunc(TrksPrDriv
011330: 65 29 0D 0A 20 20 20 20 20 20 20 74 68 65 6E 20 e).. then
011340: 54 72 6B 73 50 72 44 72 69 76 65 3A 3D 54 72 6B TrksPrDrive:=Trk
011350: 73 50 72 44 72 69 76 65 2B 31 3B 0D 0A 20 20 20 sPrDrive+1;..
011360: 20 20 57 72 69 74 65 28 54 72 75 6E 63 28 54 72 Write(Trunc(Tr
011370: 6B 73 50 72 44 72 69 76 65 29 3A 37 2C 27 20 20 ksPrDrive):7,'
011380: 20 27 29 3B 0D 0A 20 20 20 20 20 57 72 69 74 65 ');.. Write
011390: 28 44 52 4D 2B 31 3A 34 2C 27 2F 27 2C 43 4B 53 (DRM+1:4,'/',CKS
0113A0: 2A 34 3A 34 2C 54 72 75 6E 63 28 52 65 63 73 50 *4:4,Trunc(RecsP
0113B0: 72 44 72 69 76 65 2F 38 29 3A 36 2C 27 4B 27 29 rDrive/8):6,'K')
0113C0: 3B 0D 0A 20 20 20 65 6E 64 3B 0D 0A 20 20 20 54 ;.. end;.. T
0113D0: 50 41 3A 3D 32 2E 30 2A 28 42 44 4F 53 61 64 64 PA:=2.0*(BDOSadd
0113E0: 72 20 53 48 52 20 31 29 20 2D 20 24 31 30 30 3B r SHR 1) - $100;
0113F0: 0D 0A 20 20 20 57 72 69 74 65 4C 6E 28 54 50 41 .. WriteLn(TPA
011400: 0D 0A 70 72 6F 67 72 61 6D 20 43 50 4D 73 74 61 ..program CPMsta
011410: 74 75 73 3B 0D 0A 28 2A 0D 0A 20 20 20 20 20 20 tus;..(*..
011420: 20 5A 65 69 67 74 20 43 50 2F 4D 20 53 74 61 74 Zeigt CP/M Stat
011430: 75 73 20 49 6E 66 6F 72 6D 61 74 69 6F 6E 65 6E us Informationen
011440: 0D 0A 2A 29 0D 0A 63 6F 6E 73 74 0D 0A 20 20 43 ..*)..const.. C
011450: 50 4D 76 65 72 73 69 6F 6E 20 20 20 20 20 20 20 PMversion
011460: 20 20 20 20 3D 20 20 20 31 32 3B 0D 0A 20 20 43 = 12;.. C
011470: 75 72 44 69 73 6B 20 20 20 20 20 20 20 20 20 20 urDisk
011480: 20 20 20 20 3D 20 20 20 32 35 3B 0D 0A 20 20 41 = 25;.. A
011490: 6C 6C 6F 63 56 65 63 74 6F 72 20 20 20 20 20 20 llocVector
0114A0: 20 20 20 20 3D 20 20 20 32 37 3B 0D 0A 20 20 44 = 27;.. D
0114B0: 69 73 6B 50 61 72 61 6D 20 20 20 20 20 20 20 20 iskParam
0114C0: 20 20 20 20 3D 20 20 20 33 31 3B 0D 0A 20 20 47 = 31;.. G
0114D0: 65 74 55 73 65 72 20 20 20 20 20 20 20 20 20 20 etUser
0114E0: 20 20 20 20 3D 20 20 20 33 32 3B 0D 0A 0D 0A 0D = 32;.....
0114F0: 0A 74 79 70 65 0D 0A 20 20 57 6F 72 64 20 20 20 .type.. Word
011500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3D 20 =
011510: 49 6E 74 65 67 65 72 3B 0D 0A 20 20 48 65 78 53 Integer;.. HexS
011520: 74 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 tr
011530: 20 3D 20 73 74 72 69 6E 67 5B 34 5D 3B 0D 0A 0D = string[4];...
011540: 0A 20 20 44 50 42 52 45 43 20 3D 0D 0A 20 20 20 . DPBREC =..
011550: 20 72 65 63 6F 72 64 0D 0A 20 20 20 20 20 20 53 record.. S
011560: 50 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 PT
011570: 3A 20 49 6E 74 65 67 65 72 3B 20 20 20 20 28 2A : Integer; (*
011580: 20 53 45 43 54 4F 52 45 4E 20 50 45 52 20 54 52 SECTOREN PER TR
011590: 41 43 4B 20 2A 29 0D 0A 20 20 20 20 20 20 42 53 ACK *).. BS
0115A0: 48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A H :
0115B0: 20 42 79 74 65 3B 20 20 20 20 20 20 20 28 2A 20 Byte; (*
0115C0: 44 41 54 41 20 41 4C 4C 4F 43 41 54 49 4F 4E 20 DATA ALLOCATION
0115D0: 42 4C 4F 43 4B 20 53 48 49 46 54 20 46 41 43 54 BLOCK SHIFT FACT
0115E0: 4F 52 20 2A 29 0D 0A 20 20 20 20 20 20 42 4C 4D OR *).. BLM
0115F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 :
011600: 3A 38 3A 30 2C 27 27 2C 54 50 41 2F 31 30 32 34 :8:0,'',TPA/1024
011610: 3A 36 3A 31 29 3B 0D 0A 20 20 20 57 72 69 74 65 :6:1);.. Write
011620: 4C 6E 3B 0D 0A 20 20 20 77 72 69 74 65 6C 6E 28 Ln;.. writeln(
011630: 27 2D 20 20 42 65 74 72 69 65 62 73 73 79 73 74 '- Betriebssyst
011640: 65 6D 20 20 2D 27 29 3B 0D 0A 20 20 20 77 72 69 em -');.. wri
011650: 74 65 6C 6E 28 27 20 56 65 72 73 69 6F 6E 20 20 teln(' Version
011660: 42 44 4F 53 20 20 42 49 4F 53 27 29 3B 0D 0A 20 BDOS BIOS');..
011670: 20 20 20 20 20 20 20 20 20 20 28 2A 78 78 78 78 (*xxxx
011680: 20 78 2E 78 20 20 78 78 78 78 20 20 78 78 78 78 x.x xxxx xxxx
011690: 2A 29 0D 0A 20 20 20 52 65 73 75 6C 74 3A 3D 42 *).. Result:=B
0116A0: 64 6F 73 48 4C 28 43 50 4D 76 65 72 73 69 6F 6E dosHL(CPMversion
0116B0: 29 3B 0D 0A 20 20 20 56 65 72 73 69 6F 6E 3A 3D );.. Version:=
0116C0: 48 69 28 52 65 73 75 6C 74 29 3B 0D 0A 20 20 20 Hi(Result);..
0116D0: 69 66 20 56 65 72 73 69 6F 6E 20 3D 20 30 0D 0A if Version = 0..
0116E0: 20 20 20 20 20 74 68 65 6E 20 57 72 69 74 65 28 then Write(
0116F0: 27 43 50 2F 4D 20 27 29 0D 0A 20 20 20 65 6C 73 'CP/M ').. els
011700: 65 20 69 66 20 56 65 72 73 69 6F 6E 20 3D 20 31 e if Version = 1
011710: 0D 0A 20 20 20 20 20 74 68 65 6E 20 57 72 69 74 .. then Writ
011720: 65 28 27 4D 50 2F 4D 20 27 29 0D 0A 20 20 20 20 e('MP/M ')..
011730: 20 65 6C 73 65 20 57 72 69 74 65 28 27 3F 3F 3F else Write('???
011740: 3F 20 27 29 3B 0D 0A 20 20 20 56 65 72 73 69 6F ? ');.. Versio
011750: 6E 3A 3D 4C 6F 28 52 65 73 75 6C 74 29 3B 0D 0A n:=Lo(Result);..
011760: 20 20 20 69 66 20 56 65 72 73 69 6F 6E 20 3D 20 if Version =
011770: 30 0D 0A 20 20 20 20 20 74 68 65 6E 20 57 72 69 0.. then Wri
011780: 74 65 28 27 31 2E 78 27 29 0D 0A 20 20 20 20 20 te('1.x')..
011790: 65 6C 73 65 20 57 72 69 74 65 28 56 65 72 73 69 else Write(Versi
0117A0: 6F 6E 20 64 69 76 20 24 31 30 2C 20 27 2E 27 2C on div $10, '.',
0117B0: 20 56 65 72 73 69 6F 6E 20 6D 6F 64 20 24 31 30 Version mod $10
0117C0: 29 3B 0D 0A 20 20 20 57 72 69 74 65 4C 6E 28 48 );.. WriteLn(H
0117D0: 65 78 28 42 44 4F 53 61 64 64 72 2C 20 32 29 3A ex(BDOSaddr, 2):
0117E0: 36 2C 20 48 65 78 28 42 49 4F 53 61 64 64 72 2D 6, Hex(BIOSaddr-
0117F0: 33 2C 20 32 29 3A 36 29 3B 0D 0A 65 6E 64 2E 20 3, 2):6);..end.
011800: 42 79 74 65 3B 0D 0A 20 20 20 20 20 20 45 58 4D Byte;.. EXM
011810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 :
011820: 42 79 74 65 3B 0D 0A 28 2A 20 20 20 20 44 53 4D Byte;..(* DSM
011830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 :
011840: 49 6E 74 65 67 65 72 3B 20 20 20 20 7B 20 54 4F Integer; { TO
011850: 54 41 4C 20 53 54 4F 52 41 47 45 20 43 41 50 41 TAL STORAGE CAPA
011860: 43 49 54 59 20 7D 20 2A 29 0D 0A 20 20 20 20 20 CITY } *)..
011870: 20 44 53 4D 6C 6F 20 20 20 20 20 20 20 20 20 20 DSMlo
011880: 20 20 3A 20 42 79 74 65 3B 0D 0A 20 20 20 20 20 : Byte;..
011890: 20 44 53 4D 68 69 20 20 20 20 20 20 20 20 20 20 DSMhi
0118A0: 20 20 3A 20 42 79 74 65 3B 0D 0A 20 20 20 20 20 : Byte;..
0118B0: 20 44 52 4D 20 20 20 20 20 20 20 20 20 20 20 20 DRM
0118C0: 20 20 3A 20 49 6E 74 65 67 65 72 3B 20 20 20 20 : Integer;
0118D0: 28 2A 20 4E 4F 20 6F 66 20 44 49 52 45 43 54 4F (* NO of DIRECTO
0118E0: 52 59 20 45 4E 54 52 49 45 53 20 2A 29 0D 0A 20 RY ENTRIES *)..
0118F0: 20 20 20 20 20 41 4C 30 2C 41 4C 31 20 20 20 20 AL0,AL1
011900: 20 20 20 20 20 20 3A 20 42 79 74 65 3B 0D 0A 20 : Byte;..
011910: 20 20 20 20 20 43 4B 53 20 20 20 20 20 20 20 20 CKS
011920: 20 20 20 20 20 20 3A 20 49 6E 74 65 67 65 72 3B : Integer;
011930: 0D 0A 20 20 20 20 20 20 4F 46 46 20 20 20 20 20 .. OFF
011940: 20 20 20 20 20 20 20 20 20 3A 20 49 6E 74 65 67 : Integ
011950: 65 72 0D 0A 20 20 20 20 65 6E 64 3B 20 28 2A 20 er.. end; (*
011960: 44 50 42 52 45 43 20 2A 29 0D 0A 0D 0A 0D 0A 76 DPBREC *)......v
011970: 61 72 0D 0A 20 20 44 50 42 20 20 20 20 20 20 20 ar.. DPB
011980: 20 20 20 20 20 20 20 20 20 20 20 3A 20 5E 44 50 : ^DP
011990: 42 52 45 43 3B 0D 0A 20 20 52 65 63 73 50 72 42 BREC;.. RecsPrB
0119A0: 6C 6F 63 6B 20 20 20 20 20 20 20 20 20 20 3A 20 lock :
0119B0: 49 6E 74 65 67 65 72 3B 0D 0A 20 20 52 65 63 73 Integer;.. Recs
0119C0: 50 72 44 72 69 76 65 20 20 20 20 20 20 20 20 20 PrDrive
0119D0: 20 3A 20 52 65 61 6C 3B 0D 0A 20 20 54 72 6B 73 : Real;.. Trks
0119E0: 50 72 44 72 69 76 65 20 20 20 20 20 20 20 20 20 PrDrive
0119F0: 20 3A 20 52 65 61 6C 3B 0D 0A 0D 0A 20 20 42 49 : Real;.... BI
011A00: 28 2A 20 64 65 73 20 50 72 6F 67 72 61 6D 6D 73 (* des Programms
011A10: 20 43 50 4D 53 74 61 74 75 73 20 2A 29 0D 0A 0D CPMStatus *)...
011A20: 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
011A30: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
011A40: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
011A50: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
011A60: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
011A70: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
011A80: 20 78 2E 78 20 20 78 78 78 78 20 20 78 78 78 78 x.x xxxx xxxx
011A90: 2A 29 0D 0A 20 20 20 52 65 73 75 6C 74 3A 3D 42 *).. Result:=B
011AA0: 64 6F 73 48 4C 28 43 50 4D 76 65 72 73 69 6F 6E dosHL(CPMversion
011AB0: 29 3B 0D 0A 20 20 20 56 65 72 73 69 6F 6E 3A 3D );.. Version:=
011AC0: 48 69 28 52 65 73 75 6C 74 29 3B 0D 0A 20 20 20 Hi(Result);..
011AD0: 69 66 20 56 65 72 73 69 6F 6E 20 3D 20 30 0D 0A if Version = 0..
011AE0: 20 20 20 20 20 74 68 65 6E 20 57 72 69 74 65 28 then Write(
011AF0: 27 43 50 2F 4D 20 27 29 0D 0A 20 20 20 65 6C 73 'CP/M ').. els
011B00: 65 20 69 66 20 56 65 72 73 69 6F 6E 20 3D 20 31 e if Version = 1
011B10: 0D 0A 20 20 20 20 20 74 68 65 6E 20 57 72 69 74 .. then Writ
011B20: 65 28 27 4D 50 2F 4D 20 27 29 0D 0A 20 20 20 20 e('MP/M ')..
011B30: 20 65 6C 73 65 20 57 72 69 74 65 28 27 3F 3F 3F else Write('???
011B40: 3F 20 27 29 3B 0D 0A 20 20 20 56 65 72 73 69 6F ? ');.. Versio
011B50: 6E 3A 3D 4C 6F 28 52 65 73 75 6C 74 29 3B 0D 0A n:=Lo(Result);..
011B60: 20 20 20 69 66 20 56 65 72 73 69 6F 6E 20 3D 20 if Version =
011B70: 30 0D 0A 20 20 20 20 20 74 68 65 6E 20 57 72 69 0.. then Wri
011B80: 74 65 28 27 31 2E 78 27 29 0D 0A 20 20 20 20 20 te('1.x')..
011B90: 65 6C 73 65 20 57 72 69 74 65 28 56 65 72 73 69 else Write(Versi
011BA0: 6F 6E 20 64 69 76 20 24 31 30 2C 20 27 2E 27 2C on div $10, '.',
011BB0: 20 56 65 72 73 69 6F 6E 20 6D 6F 64 20 24 31 30 Version mod $10
011BC0: 29 3B 0D 0A 20 20 20 57 72 69 74 65 4C 6E 28 48 );.. WriteLn(H
011BD0: 65 78 28 42 44 4F 53 61 64 64 72 2C 20 32 29 3A ex(BDOSaddr, 2):
011BE0: 36 2C 20 48 65 78 28 42 49 4F 53 61 64 64 72 2D 6, Hex(BIOSaddr-
011BF0: 33 2C 20 32 29 3A 36 29 3B 0D 0A 65 6E 64 2E 20 3, 2):6);..end.
011C00: 4F 53 61 64 64 72 20 20 20 20 20 20 20 20 20 20 OSaddr
011C10: 20 20 20 3A 20 49 6E 74 65 67 65 72 20 61 62 73 : Integer abs
011C20: 6F 6C 75 74 65 20 31 3B 0D 0A 20 20 42 44 4F 53 olute 1;.. BDOS
011C30: 61 64 64 72 20 20 20 20 20 20 20 20 20 20 20 20 addr
011C40: 20 3A 20 49 6E 74 65 67 65 72 20 61 62 73 6F 6C : Integer absol
011C50: 75 74 65 20 36 3B 0D 0A 0D 0A 20 20 54 50 41 20 ute 6;.... TPA
011C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011C70: 20 3A 20 52 65 61 6C 3B 0D 0A 20 20 56 65 72 73 : Real;.. Vers
011C80: 69 6F 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 ion
011C90: 20 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 20 20 52 : Integer;.. R
011CA0: 65 73 75 6C 74 20 20 20 20 20 20 20 20 20 20 20 esult
011CB0: 20 20 20 20 3A 20 49 6E 74 65 67 65 72 3B 0D 0A : Integer;..
011CC0: 0D 0A 0D 0A 66 75 6E 63 74 69 6F 6E 20 48 65 78 ....function Hex
011CD0: 28 4E 75 6D 62 65 72 3A 20 49 6E 74 65 67 65 72 (Number: Integer
011CE0: 3B 20 20 42 79 74 65 73 3A 20 49 6E 74 65 67 65 ; Bytes: Intege
011CF0: 72 29 3A 20 48 65 78 53 74 72 3B 0D 0A 63 6F 6E r): HexStr;..con
011D00: 73 74 0D 0A 20 20 54 20 20 20 20 20 20 20 20 20 st.. T
011D10: 20 20 20 20 20 20 20 20 20 20 20 3A 20 61 72 72 : arr
011D20: 61 79 5B 30 2E 2E 31 35 5D 20 6F 66 20 43 68 61 ay[0..15] of Cha
011D30: 72 20 3D 20 27 30 31 32 33 34 35 36 37 38 39 41 r = '0123456789A
011D40: 42 43 44 45 46 27 3B 0D 0A 76 61 72 0D 0A 20 20 BCDEF';..var..
011D50: 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 D
011D60: 20 20 20 20 20 3A 20 49 6E 74 65 67 65 72 3B 0D : Integer;.
011D70: 0A 20 20 48 20 20 20 20 20 20 20 20 20 20 20 20 . H
011D80: 20 20 20 20 20 20 20 20 3A 20 48 65 78 53 74 72 : HexStr
011D90: 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 20 48 5B 30 ;..begin.. H[0
011DA0: 5D 3A 3D 43 68 72 28 42 79 74 65 73 2B 42 79 74 ]:=Chr(Bytes+Byt
011DB0: 65 73 29 3B 0D 0A 20 20 20 66 6F 72 20 44 3A 3D es);.. for D:=
011DC0: 42 79 74 65 73 2B 42 79 74 65 73 20 64 6F 77 6E Bytes+Bytes down
011DD0: 74 6F 20 31 20 64 6F 20 62 65 67 69 6E 0D 0A 20 to 1 do begin..
011DE0: 20 20 20 20 48 5B 44 5D 3A 3D 54 5B 4E 75 6D 62 H[D]:=T[Numb
011DF0: 65 72 20 61 6E 64 20 31 35 5D 3B 0D 0A 20 20 20 er and 15];..
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: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0120A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0120B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0120C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0120D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0120E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0120F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012110: 20 20 20 20 20 20 20 28 2A 20 73 65 74 7A 65 20 (* setze
012120: 44 54 41 20 53 70 65 69 63 68 65 72 73 74 65 6C DTA Speicherstel
012130: 6C 65 20 2A 29 0D 0A 20 20 4D 61 73 6B 20 3A 3D le *).. Mask :=
012140: 20 27 3F 3F 3F 3F 3F 3F 3F 3F 2E 3F 3F 3F 27 3B '????????.???';
012150: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 (*
012160: 62 65 6E 75 74 7A 65 20 67 6C 6F 62 61 6C 65 73 benutze globales
012170: 20 53 75 63 68 65 6E 20 2A 29 0D 0A 20 20 52 65 Suchen *).. Re
012180: 67 73 2E 41 58 20 3A 3D 20 24 34 45 30 30 3B 20 gs.AX := $4E00;
012190: 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 6E 69 (* ni
0121A0: 6D 6D 20 65 72 73 74 65 20 44 69 72 65 63 74 6F mm erste Directo
0121B0: 72 79 65 69 6E 74 72 61 67 75 6E 67 20 2A 29 0D ryeintragung *).
0121C0: 0A 20 20 52 65 67 73 2E 44 53 20 3A 3D 20 53 65 . Regs.DS := Se
0121D0: 67 28 4D 61 73 6B 29 3B 20 20 20 20 20 20 20 20 g(Mask);
0121E0: 20 20 20 20 20 28 2A 20 7A 65 69 67 65 20 61 75 (* zeige au
0121F0: 66 20 64 69 65 20 44 61 74 65 69 20 4D 61 73 6B f die Datei Mask
012200: 65 20 2A 29 0D 0A 20 20 52 65 67 73 2E 44 58 20 e *).. Regs.DX
012210: 3A 3D 20 4F 66 73 28 4D 61 73 6B 29 3B 0D 0A 20 := Ofs(Mask);..
012220: 20 52 65 67 73 2E 43 58 20 3A 3D 20 32 32 3B 20 Regs.CX := 22;
012230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012240: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 (*
012250: 41 74 74 72 69 62 75 74 20 73 65 74 7A 65 6E 20 Attribut setzen
012260: 2A 29 0D 0A 20 20 4D 73 44 6F 73 28 52 65 67 73 *).. MsDos(Regs
012270: 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 );
012280: 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 4D 53 (* MS
012290: 20 44 4F 53 20 46 75 6E 6B 74 69 6F 6E 73 61 75 DOS Funktionsau
0122A0: 66 72 75 66 20 2A 29 0D 0A 20 20 46 65 68 6C 65 fruf *).. Fehle
0122B0: 72 20 3A 3D 20 52 65 67 73 2E 41 58 20 61 6E 64 r := Regs.AX and
0122C0: 20 24 46 46 3B 20 20 20 20 20 20 20 20 20 20 20 $FF;
0122D0: 20 20 20 20 20 20 28 2A 20 46 65 68 6C 65 72 63 (* Fehlerc
0122E0: 6F 64 65 20 68 6F 6C 65 6E 20 2A 29 0D 0A 20 20 ode holen *)..
0122F0: 49 20 3A 3D 20 31 3B 20 20 20 20 20 20 20 20 20 I := 1;
012300: 01 00 E8 03 20 01 50 30 DA CA E9 DA 23 FE 2A C2 .... .P0....#.*.
012310: D9 DA 36 3F C3 DB DA 77 13 05 00 C8 DA CD 30 DA ..6?...w......0.
012320: CA F0 DA 13 C3 DF DA 23 36 20 05 C2 E9 DA 06 01 .......#6 ......
012330: 00 01 00 0A 25 46 20 70 61 67 65 20 25 23 00 23 ....%F page %#.#
012340: 7E FE 3F C2 09 DB 04 0D C2 01 DB 78 B7 C9 44 49 ~.?........x..DI
012350: 52 20 45 52 41 20 54 59 50 45 53 41 56 45 52 45 R ERA TYPESAVERE
012360: 4E 20 55 53 45 52 A8 16 00 00 00 84 21 10 DB 0E N USER......!...
012370: 00 79 FE 06 D0 11 CE DF 06 04 1A BE C2 4F DB 13 .y...........O..
012380: 23 05 C2 3C DB 1A FE 20 C2 54 DB 79 C9 23 05 C2 #..<... .T.y.#..
012390: 4F DB 0C C3 33 DB AF 32 07 D8 31 AB DF C5 79 1F O...3..2..1...y.
0123A0: 1F 1F 1F E6 0F 5F CD 15 D9 CD B8 D8 32 AB DF C1 ....._......2...
0123B0: 79 E6 0F 32 EF DF CD BD D8 3A 07 D8 B7 C2 98 DB y..2.....:......
0123C0: 31 AB DF CD 98 D8 CD D0 D9 C6 41 CD 8C D8 3E 3E 1.........A...>>
0123D0: CD 8C D8 CD 39 D9 11 80 00 CD D8 D9 CD D0 D9 32 ....9..........2
0123E0: EF DF CD 5E DA C4 09 DA 3A F0 DF B7 C2 A5 DE CD ...^....:.......
0123F0: 2E DB 21 C1 DB 5F 16 00 19 19 7E 23 16 4C 69 73 ..!.._....~#.Lis
012400: 74 69 6E 67 20 6F 66 20 25 46 2C 20 70 61 67 65 ting of %F, page
012410: 20 25 23 21 00 D8 E9 01 DF DB C3 A7 D8 52 45 41 %#!.........REA
012420: 44 20 45 52 52 4F 52 00 01 F0 DB C3 A7 D8 4E 4F D ERROR.......NO
012430: 20 46 49 4C 45 00 CD 5E DA 3A F0 DF B7 C2 09 DA FILE..^.:......
012440: 21 CE DF 01 0B 00 7E FE 20 CA 33 DC 23 D6 30 FE !.....~. .3.#.0.
012450: 0A D2 09 DA 57 78 E6 E0 C2 09 DA 78 07 07 07 80 ....Wx.....x....
012460: DA 09 DA 80 DA 09 DA 82 DA 09 DA 47 0D C2 08 DC ...........G....
012470: C9 7E FE 20 C2 09 DA 23 0D C2 33 DC 78 C9 06 03 .~. ...#..3.x...
012480: 7E 12 23 13 05 C2 42 DC C9 21 80 00 81 CD 59 DA ~.#...B..!....Y.
012490: 7E C9 AF 32 CD DF 3A F0 DF B7 C8 3D 21 EF DF BE ~..2..:....=!...
0124A0: C8 C3 BD D8 3A F0 DF B7 C8 3D 21 EF DF BE C8 3A ....:....=!....:
0124B0: EF DF C3 BD D8 CD 5E DA CD 54 DC 21 CE DF 7E FE ......^..T.!..~.
0124C0: 20 C2 8F DC 06 00 00 00 00 00 00 88 DC 1E 00 D5 ...............
0124D0: CD E9 D8 CC EA 00 CA 1B DD 3A EE DF 0F 0F 0F E6 .........:......
0124E0: 00 4F 3E 0A CD 4B DC 17 DA 0F DD 00 7B 1C D5 E6 .O>..K......{...
0124F0: 03 F5 C2 CC DC CD 4F 00 42 00 00 00 00 00 00 00 ......O.B.......
012500: 20 20 20 20 20 20 20 28 2A 20 69 6E 69 74 69 61 (* initia
012510: 6C 69 73 69 65 72 65 20 27 49 27 20 61 6C 73 20 lisiere 'I' als
012520: 65 72 73 74 65 73 20 45 6C 65 6D 65 6E 74 20 2A erstes Element *
012530: 29 0D 0A 20 20 69 66 20 28 46 65 68 6C 65 72 20 ).. if (Fehler
012540: 3D 20 30 29 20 74 68 65 6E 0D 0A 20 20 20 20 72 = 0) then.. r
012550: 65 70 65 61 74 0D 0A 20 20 20 20 20 20 4E 61 6D epeat.. Nam
012560: 52 5B 49 5D 20 3A 3D 20 43 68 72 28 4D 65 6D 5B R[I] := Chr(Mem[
012570: 53 65 67 28 44 54 41 29 3A 4F 66 73 28 44 54 41 Seg(DTA):Ofs(DTA
012580: 29 2B 32 39 2B 49 5D 29 3B 0D 0A 20 20 20 20 20 )+29+I]);..
012590: 20 49 20 3A 3D 20 49 20 2B 20 31 3B 0D 0A 20 20 I := I + 1;..
0125A0: 20 20 75 6E 74 69 6C 20 6E 6F 74 20 28 4E 61 6D until not (Nam
0125B0: 52 5B 49 2D 31 5D 20 69 6E 20 5B 27 20 27 2E 2E R[I-1] in [' '..
0125C0: 27 7E 27 5D 29 20 6F 72 20 28 49 3E 32 30 29 3B '~']) or (I>20);
0125D0: 0D 0A 0D 0A 20 20 4E 61 6D 52 5B 30 5D 20 3A 3D .... NamR[0] :=
0125E0: 20 43 68 72 28 49 2D 31 29 3B 20 20 20 20 20 20 Chr(I-1);
0125F0: 20 20 20 20 28 2A 20 53 74 72 69 6E 67 6C 61 65 (* Stringlae
012600: 6E 67 65 20 65 69 6E 74 72 61 67 65 6E 20 64 61 nge eintragen da
012610: 20 73 69 65 20 64 75 72 63 68 20 2A 29 0D 0A 20 sie durch *)..
012620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
012640: 2A 20 45 69 6E 7A 65 6C 65 69 6E 74 72 61 67 75 * Einzeleintragu
012650: 6E 67 20 76 6F 6E 20 42 75 63 68 73 74 61 62 65 ng von Buchstabe
012660: 6E 20 6E 69 63 68 74 0D 0A 20 20 20 20 20 20 20 n nicht..
012670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012680: 20 20 20 20 20 20 20 20 20 20 20 20 67 65 73 65 gese
012690: 74 7A 74 20 20 77 69 72 64 20 2A 29 0D 0A 20 20 tzt wird *)..
0126A0: 77 68 69 6C 65 20 28 46 65 68 6C 65 72 20 3D 20 while (Fehler =
0126B0: 30 29 20 64 6F 20 62 65 67 69 6E 0D 0A 20 20 20 0) do begin..
0126C0: 20 46 65 68 6C 65 72 20 3A 3D 20 30 3B 0D 0A 20 Fehler := 0;..
0126D0: 20 20 20 52 65 67 73 2E 41 58 20 3A 3D 20 24 34 Regs.AX := $4
0126E0: 46 30 30 3B 20 20 20 20 20 20 20 20 28 2A 20 46 F00; (* F
0126F0: 75 6E 6B 74 69 6F 6E 20 75 6D 20 64 65 6E 20 6E unktion um den n
012700: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012710: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012720: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012730: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012740: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012750: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0127A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0127B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0127C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0127D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0127E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0127F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012800: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012810: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012820: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012830: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012840: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012850: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0128A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0128B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0128C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0128D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0128E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0128F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012900: 61 65 63 68 73 74 65 6E 20 45 69 6E 74 72 61 67 aechsten Eintrag
012910: 20 7A 75 20 66 69 6E 64 65 6E 20 2A 29 0D 0A 20 zu finden *)..
012920: 20 20 20 52 65 67 73 2E 43 58 20 3A 3D 20 32 32 Regs.CX := 22
012930: 3B 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 41 ; (* A
012940: 74 74 72 69 62 75 74 20 73 65 74 7A 65 6E 20 2A ttribut setzen *
012950: 29 0D 0A 20 20 20 20 4D 53 44 6F 73 28 20 52 65 ).. MSDos( Re
012960: 67 73 20 29 3B 20 20 20 20 20 20 20 20 20 20 20 gs );
012970: 28 2A 20 4D 53 44 6F 73 20 46 75 6E 6B 74 69 6F (* MSDos Funktio
012980: 6E 73 61 75 66 72 75 66 20 2A 29 0D 0A 20 20 20 nsaufruf *)..
012990: 20 46 65 68 6C 65 72 20 3A 3D 20 52 65 67 73 2E Fehler := Regs.
0129A0: 41 58 20 61 6E 64 20 24 46 46 3B 28 2A 20 46 65 AX and $FF;(* Fe
0129B0: 68 6C 65 72 63 6F 64 65 20 68 6F 6C 65 6E 20 20 hlercode holen
0129C0: 2A 29 0D 0A 20 20 20 20 49 20 3A 3D 20 31 3B 0D *).. I := 1;.
0129D0: 0A 20 20 20 20 72 65 70 65 61 74 0D 0A 20 20 20 . repeat..
0129E0: 20 20 20 4E 61 6D 52 5B 49 5D 20 3A 3D 20 43 68 NamR[I] := Ch
0129F0: 72 28 4D 65 6D 5B 53 65 67 28 44 54 41 29 3A 4F r(Mem[Seg(DTA):O
012A00: 66 73 28 44 54 41 29 2B 32 39 2B 49 5D 29 3B 0D fs(DTA)+29+I]);.
012A10: 0A 20 20 20 20 20 20 49 20 3A 3D 20 49 20 2B 20 . I := I +
012A20: 31 3B 0D 0A 20 20 20 20 75 6E 74 69 6C 20 6E 6F 1;.. until no
012A30: 74 20 28 4E 61 6D 52 5B 49 2D 31 5D 20 69 6E 20 t (NamR[I-1] in
012A40: 5B 27 20 27 2E 2E 27 7E 27 5D 20 29 20 6F 72 20 [' '..'~'] ) or
012A50: 28 49 20 3E 20 32 30 29 3B 0D 0A 20 20 20 20 4E (I > 20);.. N
012A60: 61 6D 52 5B 30 5D 20 3A 3D 20 43 68 72 28 49 2D amR[0] := Chr(I-
012A70: 31 29 3B 0D 0A 20 20 20 20 69 66 20 28 46 65 68 1);.. if (Feh
012A80: 6C 65 72 20 3D 20 30 29 0D 0A 20 20 20 20 20 20 ler = 0)..
012A90: 74 68 65 6E 20 57 72 69 74 65 4C 6E 28 4E 61 6D then WriteLn(Nam
012AA0: 52 29 0D 0A 20 20 65 6E 64 0D 0A 65 6E 64 2E 20 R).. end..end.
012AB0: 28 2A 20 76 6F 6E 20 20 44 69 72 4C 69 73 74 20 (* von DirList
012AC0: 20 2A 29 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A *).............
012AD0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
012AE0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
012AF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
012B00: 0D 0A 70 72 6F 67 72 61 6D 20 44 69 72 4C 69 73 ..program DirLis
012B10: 74 3B 0D 0A 28 2A 0D 0A 20 20 20 20 20 20 20 44 t;..(*.. D
012B20: 69 65 73 65 73 20 50 72 6F 67 72 61 6D 6D 20 6C ieses Programm l
012B30: 69 73 74 65 74 20 64 61 73 20 49 6E 68 61 6C 74 istet das Inhalt
012B40: 73 76 65 72 7A 65 69 63 68 6E 69 73 20 64 65 73 sverzeichnis des
012B50: 20 61 6B 74 75 65 6C 6C 65 6E 0D 0A 20 20 20 20 aktuellen..
012B60: 20 20 20 4C 61 75 66 77 65 72 6B 73 0D 0A 2A 29 Laufwerks..*)
012B70: 0D 0A 74 79 70 65 0D 0A 20 20 43 68 61 72 31 32 ..type.. Char12
012B80: 61 72 72 20 20 20 20 20 20 20 20 20 20 20 20 3D arr =
012B90: 20 61 72 72 61 79 20 5B 20 31 2E 2E 31 32 20 5D array [ 1..12 ]
012BA0: 20 6F 66 20 43 68 61 72 3B 0D 0A 20 20 53 74 72 of Char;.. Str
012BB0: 69 6E 67 32 30 20 20 20 20 20 20 20 20 20 20 20 ing20
012BC0: 20 20 3D 20 73 74 72 69 6E 67 5B 20 32 30 20 5D = string[ 20 ]
012BD0: 3B 0D 0A 20 20 52 65 67 52 65 63 20 3D 0D 0A 20 ;.. RegRec =..
012BE0: 20 20 20 72 65 63 6F 72 64 0D 0A 20 20 20 20 20 record..
012BF0: 20 41 58 2C 20 42 58 2C 20 43 58 2C 20 44 58 2C AX, BX, CX, DX,
012C00: 20 42 50 2C 20 53 49 2C 20 44 49 2C 20 44 53 2C BP, SI, DI, DS,
012C10: 20 45 53 2C 20 46 6C 61 67 73 20 3A 20 49 6E 74 ES, Flags : Int
012C20: 65 67 65 72 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D eger;.. end;.
012C30: 0A 0D 0A 76 61 72 0D 0A 20 20 52 65 67 73 20 20 ...var.. Regs
012C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A :
012C50: 20 52 65 67 52 65 63 3B 0D 0A 20 20 44 54 41 20 RegRec;.. DTA
012C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012C70: 20 3A 20 61 72 72 61 79 20 5B 20 31 2E 2E 34 33 : array [ 1..43
012C80: 20 5D 20 6F 66 20 42 79 74 65 3B 0D 0A 20 20 4D ] of Byte;.. M
012C90: 61 73 6B 20 20 20 20 20 20 20 20 20 20 20 20 20 ask
012CA0: 20 20 20 20 3A 20 43 68 61 72 31 32 61 72 72 3B : Char12arr;
012CB0: 0D 0A 20 20 4E 61 6D 52 20 20 20 20 20 20 20 20 .. NamR
012CC0: 20 20 20 20 20 20 20 20 20 3A 20 53 74 72 69 6E : Strin
012CD0: 67 32 30 3B 0D 0A 20 20 46 65 68 6C 65 72 2C 20 g20;.. Fehler,
012CE0: 49 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 I :
012CF0: 49 6E 74 65 67 65 72 3B 0D 0A 0D 0A 62 65 67 69 Integer;....begi
012D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
012F00: 6E 20 28 2A 20 48 61 75 70 74 70 72 6F 67 72 61 n (* Hauptprogra
012F10: 6D 6D 20 2A 29 0D 0A 0D 0A 20 20 46 69 6C 6C 43 mm *).... FillC
012F20: 68 61 72 28 44 54 41 2C 53 69 7A 65 4F 66 28 44 har(DTA,SizeOf(D
012F30: 54 41 29 2C 30 29 3B 20 20 20 20 28 2A 20 69 6E TA),0); (* in
012F40: 69 74 69 61 6C 69 73 69 65 72 65 20 44 54 41 20 itialisiere DTA
012F50: 50 75 66 66 65 72 20 2A 29 0D 0A 20 20 46 69 6C Puffer *).. Fil
012F60: 6C 43 68 61 72 28 4D 61 73 6B 2C 53 69 7A 65 4F lChar(Mask,SizeO
012F70: 66 28 4D 61 73 6B 29 2C 30 29 3B 20 20 20 20 20 f(Mask),0);
012F80: 20 20 20 20 28 2A 20 69 6E 69 74 69 61 6C 69 65 (* initialie
012F90: 72 65 20 4D 61 73 6B 65 20 2A 29 0D 0A 20 20 46 re Maske *).. F
012FA0: 69 6C 6C 43 68 61 72 28 4E 61 6D 52 2C 53 69 7A illChar(NamR,Siz
012FB0: 65 4F 66 28 4E 61 6D 52 29 2C 30 29 3B 20 20 28 eOf(NamR),0); (
012FC0: 2A 20 20 69 6E 69 74 69 61 6C 69 73 69 65 72 65 * initialisiere
012FD0: 20 44 61 74 65 69 6E 61 6D 65 20 2A 29 0D 0A 0D Dateiname *)...
012FE0: 0A 20 20 57 72 69 74 65 4C 6E 28 20 27 44 69 72 . WriteLn( 'Dir
012FF0: 65 63 74 6F 72 79 2D 6C 69 73 74 2D 50 72 6F 67 ectory-list-Prog
013000: 72 61 6D 6D 20 66 75 65 72 20 4D 53 2D 44 6F 73 ramm fuer MS-Dos
013010: 2E 27 20 29 3B 0D 0A 20 20 57 72 69 74 65 4C 6E .' );.. WriteLn
013020: 3B 0D 0A 20 20 52 65 67 73 2E 41 58 20 3A 3D 20 ;.. Regs.AX :=
013030: 24 31 41 30 30 3B 20 20 20 20 20 20 20 20 20 28 $1A00; (
013040: 2A 20 62 65 6E 75 74 7A 65 20 46 75 6E 6B 74 69 * benutze Funkti
013050: 6F 6E 20 75 6D 20 44 54 41 20 7A 75 20 73 65 74 on um DTA zu set
013060: 7A 65 6E 20 2A 29 0D 0A 20 20 52 65 67 73 2E 44 zen *).. Regs.D
013070: 53 20 3A 3D 20 53 65 67 28 44 54 41 29 3B 20 20 S := Seg(DTA);
013080: 20 20 20 20 20 28 2A 20 73 70 65 69 63 68 65 72 (* speicher
013090: 65 20 53 65 67 6D 65 6E 74 70 61 72 61 6D 65 74 e Segmentparamet
0130A0: 65 72 20 69 6E 20 44 53 20 2A 29 0D 0A 20 20 52 er in DS *).. R
0130B0: 65 67 73 2E 44 58 20 3A 3D 20 4F 66 73 28 44 54 egs.DX := Ofs(DT
0130C0: 41 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 A);
0130D0: 20 20 20 28 2A 20 73 70 65 69 63 68 65 72 65 20 (* speichere
0130E0: 20 4F 66 66 73 65 74 20 69 6E 20 44 58 20 2A 29 Offset in DX *)
0130F0: 0D 0A 20 20 4D 53 44 6F 73 28 52 65 67 73 29 3B .. MSDos(Regs);
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: 0D 0A 70 72 6F 67 72 61 6D 20 5A 65 69 67 65 44 ..program ZeigeD
013210: 69 73 6B 65 74 74 65 6E 53 74 61 74 75 73 3B 0D iskettenStatus;.
013220: 0A 0D 0A 28 2A 0D 0A 20 20 20 20 20 20 20 5A 65 ...(*.. Ze
013230: 69 67 65 44 69 73 6B 65 74 74 65 6E 53 74 61 74 igeDiskettenStat
013240: 75 73 20 62 65 6E 75 74 7A 74 20 4D 53 44 4F 53 us benutzt MSDOS
013250: 20 46 75 6E 6B 74 69 6F 6E 65 6E 20 75 6D 20 4C Funktionen um L
013260: 61 75 66 77 65 72 6B 73 69 6E 66 6F 72 6D 61 74 aufwerksinformat
013270: 69 6F 6E 65 6E 0D 0A 20 20 20 20 20 20 20 76 6F ionen.. vo
013280: 6D 20 61 6B 74 75 65 6C 6C 65 6E 20 4C 61 75 66 m aktuellen Lauf
013290: 77 65 72 6B 20 6F 64 65 72 20 69 6E 20 64 65 72 werk oder in der
0132A0: 20 43 6F 6D 6D 61 6E 64 6C 69 6E 65 20 61 6E 67 Commandline ang
0132B0: 65 67 65 62 65 6E 65 6E 20 4C 61 75 66 77 65 72 egebenen Laufwer
0132C0: 6B 0D 0A 20 20 20 20 20 20 20 7A 75 20 65 72 68 k.. zu erh
0132D0: 61 6C 74 65 6E 2E 0D 0A 2A 29 0D 0A 28 2A 24 49 alten...*)..(*$I
0132E0: 2D 2C 55 2D 2C 43 2D 2A 29 0D 0A 0D 0A 74 79 70 -,U-,C-*)....typ
0132F0: 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e
013300: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 (*
013310: 54 59 50 45 4E 20 44 65 6B 6C 61 72 69 65 72 75 TYPEN Deklarieru
013320: 6E 67 20 2A 29 0D 0A 20 20 52 65 67 52 65 63 20 ng *).. RegRec
013330: 3D 0D 0A 20 20 20 20 72 65 63 6F 72 64 20 20 20 =.. record
013340: 20 20 20 20 20 20 20 20 28 2A 20 52 65 67 69 73 (* Regis
013350: 74 65 72 20 66 75 65 72 20 4D 53 44 6F 73 20 61 ter fuer MSDos a
013360: 75 66 72 75 66 20 2A 29 0D 0A 20 20 20 20 20 20 ufruf *)..
013370: 41 58 2C 20 42 58 2C 20 43 58 2C 20 44 58 2C 20 AX, BX, CX, DX,
013380: 42 50 2C 20 53 49 2C 20 44 49 2C 20 44 53 2C 20 BP, SI, DI, DS,
013390: 45 53 2C 20 46 6C 61 67 73 20 3A 20 49 6E 74 65 ES, Flags : Inte
0133A0: 67 65 72 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A ger;.. end;..
0133B0: 0D 0A 76 61 72 0D 0A 20 20 53 70 75 72 65 6E 2C ..var.. Spuren,
0133C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0133D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2A (*
0133E0: 20 41 6E 7A 61 68 6C 20 76 65 72 66 75 65 67 62 Anzahl verfuegb
0133F0: 61 72 65 72 20 53 70 75 72 65 6E 20 2A 29 0D 0A arer Spuren *)..
013400: 4C 6E 3B 0D 0A 20 20 57 72 69 74 65 4C 6E 3B 0D Ln;.. WriteLn;.
013410: 0A 20 20 49 66 20 28 20 4C 61 75 66 77 65 72 6B . If ( Laufwerk
013420: 20 3D 20 30 20 29 20 74 68 65 6E 0D 0A 20 20 20 = 0 ) then..
013430: 20 4C 61 75 66 77 65 72 6B 20 3A 3D 20 44 65 66 Laufwerk := Def
013440: 61 75 6C 74 44 72 69 76 65 3B 0D 0A 20 20 57 72 aultDrive;.. Wr
013450: 69 74 65 4C 6E 28 20 27 44 69 73 6B 65 74 74 65 iteLn( 'Diskette
013460: 6E 73 74 61 74 75 73 20 76 6F 6E 20 4C 61 75 66 nstatus von Lauf
013470: 77 65 72 6B 20 27 2C 20 63 68 72 28 20 4C 61 75 werk ', chr( Lau
013480: 66 77 65 72 6B 20 2B 20 24 34 30 20 29 2C 20 27 fwerk + $40 ), '
013490: 3A 27 29 3B 0D 0A 20 20 57 72 69 74 65 4C 6E 3B :');.. WriteLn;
0134A0: 0D 0A 20 20 28 2A 20 44 69 73 6B 65 74 74 65 6E .. (* Disketten
0134B0: 20 49 6E 66 6F 72 6D 61 74 69 6F 6E 20 73 63 68 Information sch
0134C0: 72 65 69 62 65 6E 20 2A 29 0D 0A 20 20 57 72 69 reiben *).. Wri
0134D0: 74 65 4C 6E 28 20 53 70 75 72 65 6E 3A 37 2C 20 teLn( Spuren:7,
0134E0: 27 20 20 53 70 75 72 65 6E 20 66 72 65 69 2E 27 ' Spuren frei.'
0134F0: 20 29 3B 0D 0A 20 20 57 72 69 74 65 4C 6E 28 20 );.. WriteLn(
013500: 47 65 73 61 6D 74 53 70 75 72 65 6E 3A 37 2C 20 GesamtSpuren:7,
013510: 27 20 20 53 70 75 72 65 6E 20 69 6E 73 67 65 73 ' Spuren insges
013520: 61 6D 74 2E 27 20 29 3B 0D 0A 20 20 42 65 6E 75 amt.' );.. Benu
013530: 74 7A 74 20 3A 3D 20 20 28 28 20 47 65 73 61 6D tzt := (( Gesam
013540: 74 53 70 75 72 65 6E 20 2D 20 53 70 75 72 65 6E tSpuren - Spuren
013550: 20 29 20 2F 20 47 65 73 61 6D 74 53 70 75 72 65 ) / GesamtSpure
013560: 6E 20 29 20 2A 20 31 30 30 3B 0D 0A 20 20 57 72 n ) * 100;.. Wr
013570: 69 74 65 4C 6E 28 20 42 65 6E 75 74 7A 74 3A 37 iteLn( Benutzt:7
013580: 3A 32 2C 20 27 25 20 42 65 6E 75 74 7A 74 2E 27 :2, '% Benutzt.'
013590: 20 29 3B 0D 0A 20 20 57 72 69 74 65 4C 6E 28 20 );.. WriteLn(
0135A0: 53 65 6B 74 6F 72 65 6E 3A 37 2C 20 27 20 20 53 Sektoren:7, ' S
0135B0: 65 6B 74 6F 72 65 6E 20 70 72 6F 20 43 6C 75 73 ektoren pro Clus
0135C0: 74 65 72 2E 27 20 29 3B 0D 0A 20 20 57 72 69 74 ter.' );.. Writ
0135D0: 65 4C 6E 28 20 42 79 74 65 73 3A 37 2C 20 27 20 eLn( Bytes:7, '
0135E0: 20 42 79 74 65 73 20 70 72 6F 20 53 65 6B 74 6F Bytes pro Sekto
0135F0: 72 2E 27 20 29 3B 0D 0A 20 20 54 6F 74 61 6C 42 r.' );.. TotalB
013600: 20 20 47 65 73 61 6D 74 53 70 75 72 65 6E 2C 20 GesamtSpuren,
013610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013620: 20 20 20 20 20 20 20 28 2A 20 41 6E 7A 61 68 6C (* Anzahl
013630: 20 61 6C 6C 65 72 20 53 70 75 72 65 6E 20 2A 29 aller Spuren *)
013640: 0D 0A 20 20 4C 61 75 66 77 65 72 6B 2C 20 20 20 .. Laufwerk,
013650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013660: 20 20 20 20 20 20 20 20 20 28 2A 20 4C 61 75 66 (* Lauf
013670: 77 65 72 6B 73 6E 75 6D 6D 65 72 20 2A 29 0D 0A werksnummer *)..
013680: 20 20 42 79 74 65 73 2C 20 20 20 20 20 20 20 20 Bytes,
013690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0136A0: 20 20 20 20 20 20 20 28 2A 20 41 6E 7A 61 68 6C (* Anzahl
0136B0: 20 76 6F 6E 20 42 79 74 65 73 20 70 65 72 20 53 von Bytes per S
0136C0: 65 6B 74 6F 72 20 2A 29 0D 0A 20 20 53 65 6B 74 ektor *).. Sekt
0136D0: 6F 72 65 6E 20 20 20 20 20 20 20 20 20 20 20 20 oren
0136E0: 20 3A 20 49 6E 74 65 67 65 72 3B 20 20 20 20 20 : Integer;
0136F0: 20 28 2A 20 53 65 6B 74 6F 72 65 6E 20 69 6E 73 (* Sektoren ins
013700: 67 65 73 61 6D 74 20 2A 29 0D 0A 20 20 42 65 6E gesamt *).. Ben
013710: 75 74 7A 74 2C 54 6F 74 61 6C 42 79 74 65 73 20 utzt,TotalBytes
013720: 20 20 3A 20 52 65 61 6C 3B 0D 0A 20 20 52 65 67 : Real;.. Reg
013730: 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 s
013740: 20 20 3A 20 52 65 67 52 65 63 3B 0D 0A 0D 0A 0D : RegRec;.....
013750: 0A 70 72 6F 63 65 64 75 72 65 20 44 69 73 6B 53 .procedure DiskS
013760: 74 61 74 75 73 28 20 4C 61 75 66 77 65 72 6B 20 tatus( Laufwerk
013770: 3A 20 69 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 : integer;..
013780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013790: 20 20 76 61 72 20 53 70 75 72 65 6E 2C 20 47 65 var Spuren, Ge
0137A0: 73 61 6D 74 53 70 75 72 65 6E 2C 42 79 74 65 73 samtSpuren,Bytes
0137B0: 2C 20 53 65 6B 74 6F 72 65 6E 20 3A 20 69 6E 74 , Sektoren : int
0137C0: 65 67 65 72 20 29 3B 0D 0A 28 2A 0D 0A 20 20 20 eger );..(*..
0137D0: 20 20 20 20 52 75 66 74 20 4D 53 44 6F 73 20 61 Ruft MSDos a
0137E0: 75 66 20 75 6D 20 64 65 6E 20 4C 61 75 66 77 65 uf um den Laufwe
0137F0: 72 6B 73 74 61 74 75 73 20 7A 75 20 65 72 68 61 rkstatus zu erha
013800: 79 74 65 73 20 3A 3D 20 28 28 20 53 65 6B 74 6F ytes := (( Sekto
013810: 72 65 6E 20 2A 20 42 79 74 65 73 20 2A 20 31 2E ren * Bytes * 1.
013820: 30 20 29 20 2A 20 53 70 75 72 65 6E 20 29 3B 0D 0 ) * Spuren );.
013830: 0A 20 20 57 72 69 74 65 4C 6E 28 20 54 6F 74 61 . WriteLn( Tota
013840: 6C 42 79 74 65 73 3A 37 3A 30 2C 20 27 20 20 42 lBytes:7:0, ' B
013850: 79 74 65 73 20 66 72 65 69 20 61 75 66 20 64 65 ytes frei auf de
013860: 72 20 44 69 73 6B 65 74 74 65 2E 27 20 29 3B 0D r Diskette.' );.
013870: 0A 20 20 57 72 69 74 65 4C 6E 0D 0A 65 6E 64 2E . WriteLn..end.
013880: 20 28 2A 20 64 65 73 20 50 72 6F 67 72 61 6D 6D (* des Programm
013890: 73 20 5A 65 69 67 65 44 69 73 6B 65 74 74 65 6E s ZeigeDisketten
0138A0: 53 74 61 74 75 73 20 2A 29 0D 0A 0D 0A 1A 1A 1A Status *).......
0138B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0138C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0138D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0138E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0138F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
013900: 47 65 73 61 6D 74 53 70 75 72 65 6E 3A 37 2C 20 GesamtSpuren:7,
013910: 27 20 20 53 70 75 72 65 6E 20 69 6E 73 67 65 73 ' Spuren insges
013920: 61 6D 74 2E 27 20 29 3B 0D 0A 20 20 42 65 6E 75 amt.' );.. Benu
013930: 74 7A 74 20 3A 3D 20 20 28 28 20 47 65 73 61 6D tzt := (( Gesam
013940: 74 53 70 75 72 65 6E 20 2D 20 53 70 75 72 65 6E tSpuren - Spuren
013950: 20 29 20 2F 20 47 65 73 61 6D 74 53 70 75 72 65 ) / GesamtSpure
013960: 6E 20 29 20 2A 20 31 30 30 3B 0D 0A 20 20 57 72 n ) * 100;.. Wr
013970: 69 74 65 4C 6E 28 20 42 65 6E 75 74 7A 74 3A 37 iteLn( Benutzt:7
013980: 3A 32 2C 20 27 25 20 42 65 6E 75 74 7A 74 2E 27 :2, '% Benutzt.'
013990: 20 29 3B 0D 0A 20 20 57 72 69 74 65 4C 6E 28 20 );.. WriteLn(
0139A0: 53 65 6B 74 6F 72 65 6E 3A 37 2C 20 27 20 20 53 Sektoren:7, ' S
0139B0: 65 6B 74 6F 72 65 6E 20 70 72 6F 20 43 6C 75 73 ektoren pro Clus
0139C0: 74 65 72 2E 27 20 29 3B 0D 0A 20 20 57 72 69 74 ter.' );.. Writ
0139D0: 65 4C 6E 28 20 42 79 74 65 73 3A 37 2C 20 27 20 eLn( Bytes:7, '
0139E0: 20 42 79 74 65 73 20 70 72 6F 20 53 65 6B 74 6F Bytes pro Sekto
0139F0: 72 2E 27 20 29 3B 0D 0A 20 20 54 6F 74 61 6C 42 r.' );.. TotalB
013A00: 6C 74 65 6E 0D 0A 20 20 20 20 20 20 20 67 69 62 lten.. gib
013A10: 74 20 53 70 75 72 65 6E 2C 20 47 65 73 61 6D 74 t Spuren, Gesamt
013A20: 53 70 75 72 65 6E 2C 20 42 79 74 65 73 2C 20 61 Spuren, Bytes, a
013A30: 6E 64 20 53 65 6B 74 6F 72 65 6E 20 7A 75 72 75 nd Sektoren zuru
013A40: 65 63 6B 2E 0D 0A 2A 29 0D 0A 62 65 67 69 6E 0D eck...*)..begin.
013A50: 0A 20 20 52 65 67 73 2E 41 58 20 3A 3D 20 24 33 . Regs.AX := $3
013A60: 36 30 30 3B 20 20 20 20 20 20 20 20 20 20 20 20 600;
013A70: 20 20 20 28 2A 20 46 72 65 69 65 6E 20 44 69 73 (* Freien Dis
013A80: 6B 65 74 74 65 6E 70 6C 61 74 7A 20 68 6F 6C 65 kettenplatz hole
013A90: 6E 20 2A 29 0D 0A 20 20 52 65 67 73 2E 44 58 20 n *).. Regs.DX
013AA0: 3A 3D 20 4C 61 75 66 77 65 72 6B 3B 20 20 20 20 := Laufwerk;
013AB0: 20 20 20 20 20 20 20 20 28 2A 20 4C 61 75 66 77 (* Laufw
013AC0: 65 72 6B 73 6E 75 6D 6D 65 72 20 2A 29 0D 0A 20 erksnummer *)..
013AD0: 20 4D 53 44 6F 73 28 20 52 65 67 73 20 29 3B 20 MSDos( Regs );
013AE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013AF0: 20 28 2A 20 4D 53 44 6F 73 20 41 75 66 72 75 66 (* MSDos Aufruf
013B00: 20 2A 29 0D 0A 20 20 53 70 75 72 65 6E 20 3A 3D *).. Spuren :=
013B10: 20 52 65 67 73 2E 42 58 3B 20 20 20 20 20 20 20 Regs.BX;
013B20: 20 20 20 20 20 20 20 28 2A 20 41 6E 7A 61 68 6C (* Anzahl
013B30: 20 62 65 6E 75 74 7A 74 65 72 20 53 70 75 72 65 benutzter Spure
013B40: 6E 20 2A 29 0D 0A 20 20 47 65 73 61 6D 74 53 70 n *).. GesamtSp
013B50: 75 72 65 6E 20 3A 3D 20 52 65 67 73 2E 44 58 3B uren := Regs.DX;
013B60: 20 20 20 20 20 20 20 20 28 2A 20 20 22 20 20 20 (* "
013B70: 20 20 20 61 6C 6C 65 72 20 53 70 75 72 65 6E 20 aller Spuren
013B80: 2A 29 0D 0A 20 20 42 79 74 65 73 20 3A 3D 20 52 *).. Bytes := R
013B90: 65 67 73 2E 43 58 3B 20 20 20 20 20 20 20 20 20 egs.CX;
013BA0: 20 20 20 20 20 20 28 2A 20 20 22 20 20 20 20 20 (* "
013BB0: 20 42 79 74 65 73 20 70 65 72 20 53 65 6B 74 6F Bytes per Sekto
013BC0: 72 20 2A 29 0D 0A 20 20 53 65 6B 74 6F 72 65 6E r *).. Sektoren
013BD0: 20 3A 3D 20 52 65 67 73 2E 41 58 20 20 20 20 20 := Regs.AX
013BE0: 20 20 20 20 20 20 20 20 28 2A 20 20 22 20 20 20 (* "
013BF0: 20 20 20 53 65 6B 74 6F 72 65 6E 20 70 72 6F 20 Sektoren pro
013C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013E00: 43 6C 75 73 74 65 72 20 2A 29 0D 0A 45 4E 44 3B Cluster *)..END;
013E10: 20 28 2A 20 76 6F 6E 20 50 72 6F 7A 65 64 75 72 (* von Prozedur
013E20: 20 44 69 73 6B 53 74 61 74 75 73 20 2A 29 0D 0A DiskStatus *)..
013E30: 0D 0A 66 75 6E 63 74 69 6F 6E 20 44 65 66 61 75 ..function Defau
013E40: 6C 74 44 72 69 76 65 20 3A 20 69 6E 74 65 67 65 ltDrive : intege
013E50: 72 3B 0D 0A 28 2A 0D 0A 20 20 20 20 20 20 20 4D r;..(*.. M
013E60: 53 20 44 4F 53 20 41 75 66 72 75 66 20 7A 75 72 S DOS Aufruf zur
013E70: 20 46 65 73 74 73 74 65 6C 6C 75 6E 67 20 64 65 Feststellung de
013E80: 73 20 61 6B 74 75 65 6C 6C 65 6E 20 4C 61 75 66 s aktuellen Lauf
013E90: 77 65 72 6B 73 0D 0A 2A 29 0D 0A 76 61 72 0D 0A werks..*)..var..
013EA0: 20 20 52 65 67 73 20 3A 20 52 65 67 52 65 63 3B Regs : RegRec;
013EB0: 0D 0A 62 65 67 69 6E 0D 0A 20 20 52 65 67 73 2E ..begin.. Regs.
013EC0: 41 58 20 3A 3D 20 24 31 39 30 30 3B 20 20 20 20 AX := $1900;
013ED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013EE0: 20 20 28 2A 20 41 6B 74 75 65 6C 6C 65 20 4C 61 (* Aktuelle La
013EF0: 75 66 77 65 72 6B 73 6E 75 6D 6D 65 72 20 2A 29 ufwerksnummer *)
013F00: 0D 0A 20 20 4D 53 44 6F 73 28 20 52 65 67 73 20 .. MSDos( Regs
013F10: 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 );
013F20: 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 4D 53 (* MS
013F30: 20 44 4F 53 20 41 75 66 72 75 66 20 2A 29 0D 0A DOS Aufruf *)..
013F40: 20 20 44 65 66 61 75 6C 74 44 72 69 76 65 20 3A DefaultDrive :
013F50: 3D 20 28 52 65 67 73 2E 41 58 20 61 6E 64 20 24 = (Regs.AX and $
013F60: 46 46 29 20 2B 20 31 20 20 28 2A 20 4C 61 75 66 FF) + 1 (* Lauf
013F70: 77 65 72 6B 73 6E 75 6D 6D 65 72 20 2A 29 0D 0A werksnummer *)..
013F80: 45 4E 44 3B 20 28 2A 20 6F 66 20 66 75 6E 63 20 END; (* of func
013F90: 44 65 66 61 75 6C 74 44 72 69 76 65 20 2A 29 0D DefaultDrive *).
013FA0: 0A 0D 0A 62 65 67 69 6E 20 28 2A 20 48 61 75 70 ...begin (* Haup
013FB0: 74 62 6C 6F 63 6B 20 64 65 73 20 50 72 6F 67 72 tblock des Progr
013FC0: 61 6D 6D 73 20 5A 65 69 67 65 44 69 73 6B 65 74 amms ZeigeDisket
013FD0: 74 65 6E 53 74 61 74 75 73 20 2A 29 0D 0A 20 20 tenStatus *)..
013FE0: 4C 61 75 66 77 65 72 6B 20 3A 3D 20 30 3B 20 20 Laufwerk := 0;
013FF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014000: 01 00 E8 03 20 01 50 30 DA CA E9 DA 23 FE 2A C2 .... .P0....#.*.
014010: D9 DA 36 3F C3 DB DA 77 13 05 00 C8 DA CD 30 DA ..6?...w......0.
014020: CA F0 DA 13 C3 DF DA 23 36 20 05 C2 E9 DA 06 01 .......#6 ......
014030: 00 01 00 0A 25 46 20 70 61 67 65 20 25 23 00 23 ....%F page %#.#
014040: 7E FE 3F C2 09 DB 04 0D C2 01 DB 78 B7 C9 44 49 ~.?........x..DI
014050: 52 20 45 52 41 20 54 59 50 45 53 41 56 45 52 45 R ERA TYPESAVERE
014060: 4E 20 55 53 45 52 A8 16 00 00 00 84 21 10 DB 0E N USER......!...
014070: 00 79 FE 06 D0 11 CE DF 06 04 1A BE C2 4F DB 13 .y...........O..
014080: 23 05 C2 3C DB 1A FE 20 C2 54 DB 79 C9 23 05 C2 #..<... .T.y.#..
014090: 4F DB 0C C3 33 DB AF 32 07 D8 31 AB DF C5 79 1F O...3..2..1...y.
0140A0: 1F 1F 1F E6 0F 5F CD 15 D9 CD B8 D8 32 AB DF C1 ....._......2...
0140B0: 79 E6 0F 32 EF DF CD BD D8 3A 07 D8 B7 C2 98 DB y..2.....:......
0140C0: 31 AB DF CD 98 D8 CD D0 D9 C6 41 CD 8C D8 3E 3E 1.........A...>>
0140D0: CD 8C D8 CD 39 D9 11 80 00 CD D8 D9 CD D0 D9 32 ....9..........2
0140E0: EF DF CD 5E DA C4 09 DA 3A F0 DF B7 C2 A5 DE CD ...^....:.......
0140F0: 2E DB 21 C1 DB 5F 16 00 19 19 7E 23 16 4C 69 73 ..!.._....~#.Lis
014100: 74 69 6E 67 20 6F 66 20 25 46 2C 20 70 61 67 65 ting of %F, page
014110: 20 25 23 21 00 D8 E9 01 DF DB C3 A7 D8 52 45 41 %#!.........REA
014120: 44 20 45 52 52 4F 52 00 01 F0 DB C3 A7 D8 4E 4F D ERROR.......NO
014130: 20 46 49 4C 45 00 CD 5E DA 3A F0 DF B7 C2 09 DA FILE..^.:......
014140: 21 CE DF 01 0B 00 7E FE 20 CA 33 DC 23 D6 30 FE !.....~. .3.#.0.
014150: 0A D2 09 DA 57 78 E6 E0 C2 09 DA 78 07 07 07 80 ....Wx.....x....
014160: DA 09 DA 80 DA 09 DA 82 DA 09 DA 47 0D C2 08 DC ...........G....
014170: C9 7E FE 20 C2 09 DA 23 0D C2 33 DC 78 C9 06 03 .~. ...#..3.x...
014180: 7E 12 23 13 05 C2 42 DC C9 21 80 00 81 CD 59 DA ~.#...B..!....Y.
014190: 7E C9 AF 32 CD DF 3A F0 DF B7 C8 3D 21 EF DF BE ~..2..:....=!...
0141A0: C8 C3 BD D8 3A F0 DF B7 C8 3D 21 EF DF BE C8 3A ....:....=!....:
0141B0: EF DF C3 BD D8 CD 5E DA CD 54 DC 21 CE DF 7E FE ......^..T.!..~.
0141C0: 20 C2 8F DC 06 00 00 00 01 01 00 12 DC 1E 00 D5 ...............
0141D0: CD E9 D8 CC EA 00 0F 1B DD 3A EE DF 0F 0F 0F E6 .........:......
0141E0: 03 1B 2D 30 CD 4B DC 17 DA 0F DD 03 1B 2D 31 E6 ..-0.K.......-1.
0141F0: 03 F5 C2 CC DC CD 83 00 42 00 00 00 00 00 00 00 ........B.......
014200: 20 20 20 20 20 20 20 28 2A 20 49 6E 69 74 69 61 (* Initia
014210: 6C 69 73 69 65 72 65 20 4C 61 75 66 77 65 72 6B lisiere Laufwerk
014220: 20 2A 29 0D 0A 20 20 49 66 20 28 4D 65 6D 5B 43 *).. If (Mem[C
014230: 73 65 67 3A 24 38 30 5D 29 20 3E 20 30 20 20 20 seg:$80]) > 0
014240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2A (*
014250: 20 43 6F 6D 6D 61 6E 64 20 6C 69 6E 65 20 6C 65 Command line le
014260: 73 65 6E 20 2A 29 0D 0A 20 20 20 20 74 68 65 6E sen *).. then
014270: 20 4C 61 75 66 77 65 72 6B 20 3A 3D 20 4D 65 6D Laufwerk := Mem
014280: 5B 43 73 65 67 3A 24 38 32 5D 20 61 6E 64 20 24 [Cseg:$82] and $
014290: 31 46 3B 0D 0A 20 20 49 66 20 6E 6F 74 20 28 20 1F;.. If not (
0142A0: 4C 61 75 66 77 65 72 6B 20 69 6E 20 5B 20 31 2E Laufwerk in [ 1.
0142B0: 2E 36 20 5D 20 29 20 20 20 20 20 20 20 20 28 2A .6 ] ) (*
0142C0: 20 57 65 6E 6E 20 64 69 65 20 43 6F 6D 6D 61 6E Wenn die Comman
0142D0: 64 6C 69 6E 65 20 6C 65 65 72 20 69 73 74 20 2A dline leer ist *
0142E0: 29 0D 0A 20 20 20 20 74 68 65 6E 20 4C 61 75 66 ).. then Lauf
0142F0: 77 65 72 6B 20 3A 3D 20 30 3B 20 20 20 20 20 20 werk := 0;
014300: 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 6F (* o
014310: 64 65 72 20 65 69 6E 20 66 61 6C 73 63 68 65 73 der ein falsches
014320: 20 4C 61 75 66 77 65 72 6B 20 2A 29 0D 0A 20 20 Laufwerk *)..
014330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014350: 20 20 20 20 20 20 20 28 2A 20 61 6E 67 65 67 65 (* angege
014360: 62 65 6E 20 77 75 72 64 65 2C 20 64 61 6E 6E 20 ben wurde, dann
014370: 64 61 73 0D 0A 20 20 20 20 20 20 20 20 20 20 20 das..
014380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0143A0: 20 61 6B 74 75 65 6C 6C 65 20 4C 61 75 66 77 65 aktuelle Laufwe
0143B0: 72 6B 20 2A 29 0D 0A 20 20 44 69 73 6B 53 74 61 rk *).. DiskSta
0143C0: 74 75 73 28 20 4C 61 75 66 77 65 72 6B 2C 20 53 tus( Laufwerk, S
0143D0: 70 75 72 65 6E 2C 20 47 65 73 61 6D 74 53 70 75 puren, GesamtSpu
0143E0: 72 65 6E 2C 20 42 79 74 65 73 2C 20 53 65 6B 74 ren, Bytes, Sekt
0143F0: 6F 72 65 6E 20 29 3B 0D 0A 20 20 57 72 69 74 65 oren );.. Write
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 52 E5 11 00 41 02 00 00 00 02 ......R...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: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014510: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014520: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014530: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014540: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014550: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0145A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0145B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0145C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0145D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0145E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0145F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014600: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014610: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014620: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014640: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014650: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0146A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0146B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0146C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0146D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0146E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0146F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014700: 20 64 65 73 20 50 72 6F 67 72 61 6D 6D 73 20 46 des Programms F
014710: 69 6C 6C 43 68 61 72 44 65 6D 6F 20 2A 29 0D 0A illCharDemo *)..
014720: 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
014730: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
014740: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
014750: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
014760: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
014770: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
014780: 20 53 70 65 69 63 68 65 72 20 67 65 6C 61 64 65 Speicher gelade
014790: 6E 20 77 69 72 64 3A 20 27 29 3B 0D 0A 20 20 52 n wird: ');.. R
0147A0: 65 61 64 4C 6E 28 56 61 6C 75 65 29 3B 0D 0A 20 eadLn(Value);..
0147B0: 20 57 72 69 74 65 28 27 57 69 65 76 69 65 6C 65 Write('Wieviele
0147C0: 20 57 6F 72 74 65 20 73 6F 6C 6C 65 6E 20 67 65 Worte sollen ge
0147D0: 66 75 65 6C 6C 74 20 77 65 72 64 65 6E 20 27 29 fuellt werden ')
0147E0: 3B 0D 0A 20 20 52 65 61 64 4C 6E 28 4E 75 6D 29 ;.. ReadLn(Num)
0147F0: 3B 0D 0A 20 20 46 69 6C 6C 43 68 61 72 28 56 61 ;.. FillChar(Va
014800: 72 31 2C 4E 75 6D 2C 56 61 6C 75 65 29 3B 0D 0A r1,Num,Value);..
014810: 20 20 43 6C 72 53 63 72 3B 0D 0A 20 20 57 72 69 ClrScr;.. Wri
014820: 74 65 4C 6E 28 27 4A 65 74 7A 74 20 77 69 72 64 teLn('Jetzt wird
014830: 20 64 65 72 20 53 70 65 69 63 68 65 72 20 61 62 der Speicher ab
014840: 20 27 2C 53 65 67 31 2C 27 3A 27 2C 4F 66 73 31 ',Seg1,':',Ofs1
014850: 2C 27 20 61 75 73 67 65 64 72 75 63 6B 74 27 29 ,' ausgedruckt')
014860: 3B 0D 0A 20 20 66 6F 72 20 43 6F 75 6E 74 20 3A ;.. for Count :
014870: 3D 20 31 20 74 6F 20 4E 75 6D 20 64 6F 20 62 65 = 1 to Num do be
014880: 67 69 6E 0D 0A 20 20 20 20 4F 75 74 57 6F 72 64 gin.. OutWord
014890: 20 3A 3D 20 4D 65 6D 5B 53 65 67 31 3A 4F 66 73 := Mem[Seg1:Ofs
0148A0: 31 5D 3B 0D 0A 20 20 20 20 57 72 69 74 65 4C 6E 1];.. WriteLn
0148B0: 28 53 65 67 31 2C 27 3A 27 2C 4F 66 73 31 2C 27 (Seg1,':',Ofs1,'
0148C0: 20 68 61 74 20 64 65 6E 20 57 65 72 74 20 27 2C hat den Wert ',
0148D0: 4F 75 74 57 6F 72 64 29 3B 0D 0A 20 20 20 20 4F OutWord);.. O
0148E0: 66 73 31 20 3A 3D 20 4F 66 73 31 20 2B 20 31 3B fs1 := Ofs1 + 1;
0148F0: 0D 0A 20 20 65 6E 64 0D 0A 65 6E 64 2E 20 28 2A .. end..end. (*
014900: 01 00 E8 03 20 01 50 30 DA CA E9 DA 23 FE 2A C2 .... .P0....#.*.
014910: D9 DA 36 3F C3 DB DA 77 13 05 00 C8 DA CD 30 DA ..6?...w......0.
014920: CA F0 DA 13 C3 DF DA 23 36 20 05 C2 E9 DA 06 01 .......#6 ......
014930: 00 01 00 0A 25 46 20 70 61 67 65 20 25 23 00 23 ....%F page %#.#
014940: 7E FE 3F C2 09 DB 04 0D C2 01 DB 78 B7 C9 44 49 ~.?........x..DI
014950: 52 20 45 52 41 20 54 59 50 45 53 41 56 45 52 45 R ERA TYPESAVERE
014960: 4E 20 55 53 45 52 A8 16 00 00 00 84 21 10 DB 0E N USER......!...
014970: 00 79 FE 06 D0 11 CE DF 06 04 1A BE C2 4F DB 13 .y...........O..
014980: 23 05 C2 3C DB 1A FE 20 C2 54 DB 79 C9 23 05 C2 #..<... .T.y.#..
014990: 4F DB 0C C3 33 DB AF 32 07 D8 31 AB DF C5 79 1F O...3..2..1...y.
0149A0: 1F 1F 1F E6 0F 5F CD 15 D9 CD B8 D8 32 AB DF C1 ....._......2...
0149B0: 79 E6 0F 32 EF DF CD BD D8 3A 07 D8 B7 C2 98 DB y..2.....:......
0149C0: 31 AB DF CD 98 D8 CD D0 D9 C6 41 CD 8C D8 3E 3E 1.........A...>>
0149D0: CD 8C D8 CD 39 D9 11 80 00 CD D8 D9 CD D0 D9 32 ....9..........2
0149E0: EF DF CD 5E DA C4 09 DA 3A F0 DF B7 C2 A5 DE CD ...^....:.......
0149F0: 2E DB 21 C1 DB 5F 16 00 19 19 7E 23 16 4C 69 73 ..!.._....~#.Lis
014A00: 74 69 6E 67 20 6F 66 20 25 46 2C 20 70 61 67 65 ting of %F, page
014A10: 20 25 23 21 00 D8 E9 01 DF DB C3 A7 D8 52 45 41 %#!.........REA
014A20: 44 20 45 52 52 4F 52 00 01 F0 DB C3 A7 D8 4E 4F D ERROR.......NO
014A30: 20 46 49 4C 45 00 CD 5E DA 3A F0 DF B7 C2 09 DA FILE..^.:......
014A40: 21 CE DF 01 0B 00 7E FE 20 CA 33 DC 23 D6 30 FE !.....~. .3.#.0.
014A50: 0A D2 09 DA 57 78 E6 E0 C2 09 DA 78 07 07 07 80 ....Wx.....x....
014A60: DA 09 DA 80 DA 09 DA 82 DA 09 DA 47 0D C2 08 DC ...........G....
014A70: C9 7E FE 20 C2 09 DA 23 0D C2 33 DC 78 C9 06 03 .~. ...#..3.x...
014A80: 7E 12 23 13 05 C2 42 DC C9 21 80 00 81 CD 59 DA ~.#...B..!....Y.
014A90: 7E C9 AF 32 CD DF 3A F0 DF B7 C8 3D 21 EF DF BE ~..2..:....=!...
014AA0: C8 C3 BD D8 3A F0 DF B7 C8 3D 21 EF DF BE C8 3A ....:....=!....:
014AB0: EF DF C3 BD D8 CD 5E DA CD 54 DC 21 CE DF 7E FE ......^..T.!..~.
014AC0: 20 C2 8F DC 06 00 00 00 01 01 01 12 DC 1E 00 D5 ...............
014AD0: CD E9 D8 CC EA 01 0F 1B DD 3A EE DF 0F 0F 0F E6 .........:......
014AE0: 03 1B 2D 30 CD 4B DC 17 DA 0F DD 03 1B 2D 31 E6 ..-0.K.......-1.
014AF0: 03 F5 C2 CC DC CD 83 00 42 00 00 00 00 00 00 00 ........B.......
014B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014D00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014D10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014D20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014D30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014D40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014D50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014DF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014E00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014E10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014E20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014E30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014E40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014E50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014EA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014EE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014F00: 50 72 6F 67 72 61 6D 20 46 69 6C 74 65 72 3B 0D Program Filter;.
014F10: 0A 0D 0A 28 2A 0D 0A 20 20 44 69 65 73 20 69 73 ...(*.. Dies is
014F20: 74 20 65 69 6E 20 42 65 69 73 70 69 65 6C 20 66 t ein Beispiel f
014F30: 75 65 72 20 65 69 6E 66 61 63 68 65 20 46 69 6C uer einfache Fil
014F40: 74 65 72 20 75 6E 74 65 72 20 4D 53 20 44 4F 53 ter unter MS DOS
014F50: 20 69 6E 20 54 55 52 42 4F 20 50 61 73 63 61 6C in TURBO Pascal
014F60: 0D 0A 20 20 44 69 65 73 65 72 20 46 69 6C 74 65 .. Dieser Filte
014F70: 72 20 63 6F 70 69 65 72 74 20 76 6F 6E 20 64 65 r copiert von de
014F80: 72 20 53 74 61 6E 64 61 72 64 65 69 6E 67 61 62 r Standardeingab
014F90: 65 20 6E 61 63 68 20 64 65 72 20 53 74 61 6E 64 e nach der Stand
014FA0: 61 72 64 61 75 73 67 61 62 65 0D 0A 20 20 75 6E ardausgabe.. un
014FB0: 64 20 66 6F 72 6D 74 20 64 61 62 65 69 20 61 6C d formt dabei al
014FC0: 6C 65 20 47 72 6F 7E 62 75 63 68 73 74 61 62 65 le Gro~buchstabe
014FD0: 6E 20 69 6E 20 4B 6C 65 69 6E 62 75 63 68 73 74 n in Kleinbuchst
014FE0: 61 62 65 6E 20 75 6D 2E 0D 0A 0D 0A 20 20 44 69 aben um..... Di
014FF0: 65 20 4D 53 20 44 4F 53 20 4D 6F 65 67 6C 69 63 e MS DOS Moeglic
015000: 68 6B 65 69 74 65 6E 20 64 65 72 20 55 6D 6C 65 hkeiten der Umle
015010: 69 74 75 6E 67 2C 20 50 69 70 69 6E 67 20 75 6E itung, Piping un
015020: 64 20 64 65 73 20 44 72 75 63 6B 70 72 6F 74 6F d des Druckproto
015030: 6B 6F 6C 6C 73 0D 0A 20 20 28 64 75 72 63 68 20 kolls.. (durch
015040: 5E 50 20 6F 64 65 72 20 5E 50 72 74 53 63 72 29 ^P oder ^PrtScr)
015050: 20 66 75 6E 6B 74 69 6F 6E 69 65 72 65 6E 20 62 funktionieren b
015060: 65 69 20 6A 65 64 65 6D 20 50 72 6F 67 72 61 6D ei jedem Program
015070: 6D 20 64 61 73 20 64 69 65 20 62 65 69 64 65 6E m das die beiden
015080: 0D 0A 20 20 50 72 6F 7A 65 64 75 72 65 6E 2F 46 .. Prozeduren/F
015090: 75 6E 6B 74 69 6F 6E 65 6E 20 62 65 6E 75 74 7A unktionen benutz
0150A0: 74 20 75 6E 64 20 64 69 65 20 41 6E 77 65 69 73 t und die Anweis
0150B0: 75 6E 67 65 6E 20 43 6F 6E 49 6E 50 74 72 3A 3D ungen ConInPtr:=
0150C0: 4F 66 73 28 47 65 74 43 29 3B 0D 0A 20 20 43 6F Ofs(GetC);.. Co
0150D0: 6E 4F 75 74 50 74 72 3A 3D 4F 66 73 28 50 75 74 nOutPtr:=Ofs(Put
0150E0: 43 29 3B 20 61 6D 20 41 6E 66 61 6E 67 20 64 65 C); am Anfang de
0150F0: 73 20 50 72 6F 67 72 61 6D 6D 73 20 61 75 73 66 s Programms ausf
015100: 0D 0A 0D 0A 70 72 6F 67 72 61 6D 20 46 69 6C 6C ....program Fill
015110: 43 68 61 72 44 65 6D 6F 3B 0D 0A 28 2A 0D 0A 20 CharDemo;..(*..
015120: 20 20 20 20 20 20 44 69 65 73 65 73 20 50 72 6F Dieses Pro
015130: 67 72 61 6D 6D 20 64 65 6D 6F 6E 73 74 72 69 65 gramm demonstrie
015140: 72 74 20 77 69 65 20 64 69 65 20 65 69 6E 67 65 rt wie die einge
015150: 61 62 61 75 74 65 20 50 72 6F 7A 65 64 75 72 0D abaute Prozedur.
015160: 0A 20 20 20 20 20 20 20 46 69 6C 6C 63 68 61 72 . Fillchar
015170: 20 61 72 62 65 69 74 65 74 0D 0A 2A 29 0D 0A 76 arbeitet..*)..v
015180: 61 72 0D 0A 20 20 53 65 67 31 3A 20 20 20 20 49 ar.. Seg1: I
015190: 6E 74 65 67 65 72 3B 0D 0A 20 20 4F 66 73 31 3A nteger;.. Ofs1:
0151A0: 20 20 20 20 49 6E 74 65 67 65 72 3B 0D 0A 20 20 Integer;..
0151B0: 43 6F 75 6E 74 3A 20 20 20 49 6E 74 65 67 65 72 Count: Integer
0151C0: 3B 0D 0A 20 20 4F 75 74 57 6F 72 64 3A 20 49 6E ;.. OutWord: In
0151D0: 74 65 67 65 72 3B 0D 0A 20 20 4E 75 6D 3A 20 20 teger;.. Num:
0151E0: 20 20 20 49 6E 74 65 67 65 72 3B 0D 0A 20 20 56 Integer;.. V
0151F0: 61 72 31 3A 20 20 20 20 49 6E 74 65 67 65 72 3B ar1: Integer;
015200: 0D 0A 20 20 56 61 6C 75 65 3A 20 20 20 43 68 61 .. Value: Cha
015210: 72 3B 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 20 43 r;....begin.. C
015220: 6C 72 53 63 72 3B 0D 0A 20 20 47 6F 74 6F 58 59 lrScr;.. GotoXY
015230: 28 35 2C 35 29 3B 0D 0A 20 20 57 72 69 74 65 28 (5,5);.. Write(
015240: 27 47 65 62 65 6E 20 53 69 65 20 62 69 74 74 65 'Geben Sie bitte
015250: 20 65 69 6E 65 20 5A 61 68 6C 20 66 75 65 72 20 eine Zahl fuer
015260: 64 69 65 20 53 74 61 72 74 61 64 72 65 73 73 65 die Startadresse
015270: 20 65 69 6E 20 27 29 3B 0D 0A 20 20 52 65 61 64 ein ');.. Read
015280: 4C 6E 28 56 61 72 31 29 3B 0D 0A 20 20 53 65 67 Ln(Var1);.. Seg
015290: 31 20 3A 3D 20 53 65 67 28 56 61 72 31 29 3B 0D 1 := Seg(Var1);.
0152A0: 0A 20 20 4F 66 73 31 20 3A 3D 20 4F 66 73 28 56 . Ofs1 := Ofs(V
0152B0: 61 72 31 29 3B 0D 0A 20 20 57 72 69 74 65 4C 6E ar1);.. WriteLn
0152C0: 3B 0D 0A 20 20 57 72 69 74 65 4C 6E 28 27 44 69 ;.. WriteLn('Di
0152D0: 65 73 65 20 56 61 72 69 61 62 6C 65 20 6C 69 65 ese Variable lie
0152E0: 67 74 20 69 6D 20 53 65 67 6D 65 6E 74 3A 20 27 gt im Segment: '
0152F0: 2C 53 65 67 31 2C 0D 0A 20 20 20 20 20 20 20 20 ,Seg1,..
015300: 75 65 68 72 74 2E 0D 0A 20 20 44 69 65 20 45 69 uehrt... Die Ei
015310: 6E 67 61 62 65 20 65 72 66 6F 6C 67 74 20 75 65 ngabe erfolgt ue
015320: 62 65 72 20 4B 42 44 20 75 6D 20 65 69 6E 20 45 ber KBD um ein E
015330: 63 68 6F 20 61 75 66 20 64 65 6D 20 42 69 6C 64 cho auf dem Bild
015340: 73 63 68 69 72 6D 20 7A 75 20 76 65 72 6D 65 69 schirm zu vermei
015350: 64 65 6E 2E 0D 0A 0D 0A 20 20 41 75 66 72 75 66 den..... Aufruf
015360: 20 3A 20 20 46 49 4C 54 45 52 20 3C 44 61 74 65 : FILTER <Date
015370: 69 2E 45 72 77 20 3E 4E 65 75 64 61 74 65 69 2E i.Erw >Neudatei.
015380: 45 72 77 0D 0A 0D 0A 20 20 44 69 65 20 44 61 74 Erw.... Die Dat
015390: 65 69 20 44 61 74 65 69 2E 45 72 77 20 77 69 72 ei Datei.Erw wir
0153A0: 64 20 61 75 66 20 4E 65 75 64 61 74 65 69 2E 45 d auf Neudatei.E
0153B0: 72 77 20 6B 6F 70 69 65 72 74 20 75 6E 64 20 64 rw kopiert und d
0153C0: 61 62 65 69 20 77 65 72 64 65 6E 20 61 6C 6C 65 abei werden alle
0153D0: 0D 0A 20 20 47 72 6F 7E 62 75 63 68 73 74 61 62 .. Gro~buchstab
0153E0: 65 6E 20 69 6E 20 4B 6C 65 69 6E 62 75 63 68 73 en in Kleinbuchs
0153F0: 74 61 62 65 6E 20 75 6D 67 65 77 61 6E 64 65 6C taben umgewandel
015400: 74 2E 0D 0A 20 2A 29 0D 0A 0D 0A 20 20 54 79 70 t... *).... Typ
015410: 65 0D 0A 20 20 20 20 52 65 67 69 73 74 65 72 53 e.. RegisterS
015420: 65 74 3D 52 65 63 6F 72 64 20 43 61 73 65 20 49 et=Record Case I
015430: 6E 74 65 67 65 72 20 4F 66 0D 0A 20 20 20 20 20 nteger Of..
015440: 20 20 20 20 20 20 20 20 20 20 20 20 20 31 3A 20 1:
015450: 28 41 58 2C 42 58 2C 43 58 2C 44 58 2C 42 50 2C (AX,BX,CX,DX,BP,
015460: 53 49 2C 44 49 2C 44 53 2C 45 53 2C 46 6C 61 67 SI,DI,DS,ES,Flag
015470: 73 3A 20 49 6E 74 65 67 65 72 29 3B 0D 0A 20 20 s: Integer);..
015480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015490: 32 3A 20 28 41 4C 2C 41 48 2C 42 4C 2C 42 48 2C 2: (AL,AH,BL,BH,
0154A0: 43 4C 2C 43 48 2C 44 4C 2C 44 48 3A 20 42 79 74 CL,CH,DL,DH: Byt
0154B0: 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 e);..
0154C0: 20 20 20 20 20 45 6E 64 3B 0D 0A 0D 0A 20 20 56 End;.... V
0154D0: 61 72 0D 0A 20 20 20 20 52 65 67 73 3A 20 52 65 ar.. Regs: Re
0154E0: 67 69 73 74 65 72 53 65 74 3B 0D 0A 0D 0A 0D 0A gisterSet;......
0154F0: 20 20 46 75 6E 63 74 69 6F 6E 20 47 65 74 43 3A Function GetC:
015500: 20 20 20 20 20 20 20 20 20 27 20 6D 69 74 20 65 ' mit e
015510: 69 6E 65 6D 20 4F 66 66 73 65 74 20 76 6F 6E 20 inem Offset von
015520: 3A 20 27 2C 4F 66 73 31 29 3B 0D 0A 20 20 57 72 : ',Ofs1);.. Wr
015530: 69 74 65 4C 6E 3B 0D 0A 20 20 57 72 69 74 65 4C iteLn;.. WriteL
015540: 6E 28 27 4E 75 6E 20 67 65 62 65 6E 20 53 69 65 n('Nun geben Sie
015550: 20 62 69 74 74 65 20 65 69 6E 20 5A 65 69 63 68 bitte ein Zeich
015560: 65 6E 20 65 69 6E 2C 27 29 3B 0D 0A 20 20 57 72 en ein,');.. Wr
015570: 69 74 65 28 27 6D 69 74 20 64 65 6D 20 64 65 72 ite('mit dem der
015580: 20 53 70 65 69 63 68 65 72 20 67 65 6C 61 64 65 Speicher gelade
015590: 6E 20 77 69 72 64 3A 20 27 29 3B 0D 0A 20 20 52 n wird: ');.. R
0155A0: 65 61 64 4C 6E 28 56 61 6C 75 65 29 3B 0D 0A 20 eadLn(Value);..
0155B0: 20 57 72 69 74 65 28 27 57 69 65 76 69 65 6C 65 Write('Wieviele
0155C0: 20 57 6F 72 74 65 20 73 6F 6C 6C 65 6E 20 67 65 Worte sollen ge
0155D0: 66 75 65 6C 6C 74 20 77 65 72 64 65 6E 20 27 29 fuellt werden ')
0155E0: 3B 0D 0A 20 20 52 65 61 64 4C 6E 28 4E 75 6D 29 ;.. ReadLn(Num)
0155F0: 3B 0D 0A 20 20 46 69 6C 6C 43 68 61 72 28 56 61 ;.. FillChar(Va
015600: 72 31 2C 4E 75 6D 2C 56 61 6C 75 65 29 3B 0D 0A r1,Num,Value);..
015610: 20 20 43 6C 72 53 63 72 3B 0D 0A 20 20 57 72 69 ClrScr;.. Wri
015620: 74 65 4C 6E 28 27 4A 65 74 7A 74 20 77 69 72 64 teLn('Jetzt wird
015630: 20 64 65 72 20 53 70 65 69 63 68 65 72 20 61 62 der Speicher ab
015640: 20 27 2C 53 65 67 31 2C 27 3A 27 2C 4F 66 73 31 ',Seg1,':',Ofs1
015650: 2C 27 20 61 75 73 67 65 64 72 75 63 6B 74 27 29 ,' ausgedruckt')
015660: 3B 0D 0A 20 20 66 6F 72 20 43 6F 75 6E 74 20 3A ;.. for Count :
015670: 3D 20 31 20 74 6F 20 4E 75 6D 20 64 6F 20 62 65 = 1 to Num do be
015680: 67 69 6E 0D 0A 20 20 20 20 4F 75 74 57 6F 72 64 gin.. OutWord
015690: 20 3A 3D 20 4D 65 6D 5B 53 65 67 31 3A 4F 66 73 := Mem[Seg1:Ofs
0156A0: 31 5D 3B 0D 0A 20 20 20 20 57 72 69 74 65 4C 6E 1];.. WriteLn
0156B0: 28 53 65 67 31 2C 27 3A 27 2C 4F 66 73 31 2C 27 (Seg1,':',Ofs1,'
0156C0: 20 68 61 74 20 64 65 6E 20 57 65 72 74 20 27 2C hat den Wert ',
0156D0: 4F 75 74 57 6F 72 64 29 3B 0D 0A 20 20 20 20 4F OutWord);.. O
0156E0: 66 73 31 20 3A 3D 20 4F 66 73 31 20 2B 20 31 3B fs1 := Ofs1 + 1;
0156F0: 0D 0A 20 20 65 6E 64 0D 0A 65 6E 64 2E 20 28 2A .. end..end. (*
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: 20 42 79 74 65 3B 0D 0A 0D 0A 20 20 20 20 42 65 Byte;.... Be
015810: 67 69 6E 0D 0A 20 20 20 20 20 20 52 65 67 73 2E gin.. Regs.
015820: 41 48 3A 3D 38 3B 0D 0A 20 20 20 20 20 20 4D 73 AH:=8;.. Ms
015830: 44 6F 73 28 52 65 67 73 29 3B 0D 0A 20 20 20 20 Dos(Regs);..
015840: 20 20 47 65 74 43 3A 3D 52 65 67 73 2E 41 4C 3B GetC:=Regs.AL;
015850: 0D 0A 20 20 20 20 45 6E 64 3B 0D 0A 0D 0A 20 20 .. End;....
015860: 50 72 6F 63 65 64 75 72 65 20 50 75 74 43 28 43 Procedure PutC(C
015870: 3A 20 42 79 74 65 29 3B 0D 0A 0D 0A 20 20 20 20 : Byte);....
015880: 42 65 67 69 6E 0D 0A 20 20 20 20 20 20 52 65 67 Begin.. Reg
015890: 73 2E 41 48 3A 3D 32 3B 0D 0A 20 20 20 20 20 20 s.AH:=2;..
0158A0: 52 65 67 73 2E 44 4C 3A 3D 43 3B 0D 0A 20 20 20 Regs.DL:=C;..
0158B0: 20 20 20 4D 73 44 6F 73 28 52 65 67 73 29 3B 0D MsDos(Regs);.
0158C0: 0A 20 20 20 20 45 6E 64 3B 0D 0A 0D 0A 20 20 56 . End;.... V
0158D0: 61 72 0D 0A 20 20 20 20 53 3A 20 53 74 72 69 6E ar.. S: Strin
0158E0: 67 5B 32 35 35 5D 3B 0D 0A 20 20 20 20 49 3A 20 g[255];.. I:
0158F0: 42 79 74 65 3B 0D 0A 0D 0A 20 20 42 65 67 69 6E Byte;.... Begin
015900: 0D 0A 20 20 20 20 43 6F 6E 49 6E 50 74 72 3A 3D .. ConInPtr:=
015910: 4F 66 73 28 47 65 74 43 29 3B 0D 0A 20 20 20 20 Ofs(GetC);..
015920: 43 6F 6E 4F 75 74 50 74 72 3A 3D 4F 66 73 28 50 ConOutPtr:=Ofs(P
015930: 75 74 43 29 3B 0D 0A 20 20 20 20 57 68 69 6C 65 utC);.. While
015940: 20 4E 6F 74 20 45 6F 66 28 4B 62 64 29 20 44 6F Not Eof(Kbd) Do
015950: 0D 0A 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 .. Begin..
015960: 20 20 20 20 52 65 61 64 4C 6E 28 4B 62 64 2C 53 ReadLn(Kbd,S
015970: 29 3B 0D 0A 20 20 20 20 20 20 46 6F 72 20 49 3A );.. For I:
015980: 3D 31 20 54 6F 20 4C 65 6E 67 74 68 28 53 29 20 =1 To Length(S)
015990: 44 6F 0D 0A 20 20 20 20 20 20 20 20 49 66 20 28 Do.. If (
0159A0: 53 5B 49 5D 3E 3D 27 41 27 29 20 41 6E 64 20 28 S[I]>='A') And (
0159B0: 53 5B 49 5D 3C 3D 27 5A 27 29 20 54 68 65 6E 20 S[I]<='Z') Then
0159C0: 53 5B 49 5D 3A 3D 43 68 72 28 4F 72 64 28 53 5B S[I]:=Chr(Ord(S[
0159D0: 49 5D 29 2B 33 32 29 3B 0D 0A 20 20 20 20 20 20 I])+32);..
0159E0: 57 72 69 74 65 4C 6E 28 53 29 3B 0D 0A 20 20 20 WriteLn(S);..
0159F0: 20 20 45 6E 64 3B 0D 0A 20 20 45 6E 64 2E 0D 0A End;.. End...
015A00: 20 28 2A 20 4D 6F 64 75 73 20 38 30 78 32 35 20 (* Modus 80x25
015A10: 42 2F 57 2C 20 41 6C 70 68 61 6E 75 6D 65 72 69 B/W, Alphanumeri
015A20: 73 63 68 20 2A 29 0D 0A 20 20 56 69 64 65 6F 43 sch *).. VideoC
015A30: 6F 6C 6F 72 38 30 78 32 35 41 20 20 20 20 20 3D olor80x25A =
015A40: 20 20 20 20 33 3B 20 20 28 2A 20 4D 6F 64 75 73 3; (* Modus
015A50: 20 38 30 78 32 35 20 53 70 61 6C 74 65 6F 72 2C 80x25 Spalteor,
015A60: 20 41 6C 70 68 61 6E 75 6D 65 72 69 73 63 68 20 Alphanumerisch
015A70: 2A 29 0D 0A 0D 0A 74 79 70 65 0D 0A 20 20 52 65 *)....type.. Re
015A80: 73 75 6C 74 20 3D 20 20 20 20 20 20 20 20 20 20 sult =
015A90: 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 52 (* R
015AA0: 65 67 69 73 74 65 72 20 70 61 63 6B 20 2A 29 0D egister pack *).
015AB0: 0A 20 20 20 20 72 65 63 6F 72 64 0D 0A 20 20 20 . record..
015AC0: 20 20 20 41 58 2C 42 58 2C 43 58 2C 44 58 2C 42 AX,BX,CX,DX,B
015AD0: 50 2C 53 49 2C 44 49 2C 44 53 2C 45 53 2C 46 6C P,SI,DI,DS,ES,Fl
015AE0: 61 67 73 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 20 ags: Integer;..
015AF0: 20 20 20 65 6E 64 3B 0D 0A 0D 0A 76 61 72 0D 0A end;....var..
015B00: 20 20 52 65 63 20 20 20 20 20 20 20 20 20 20 20 Rec
015B10: 20 20 20 20 20 20 20 3A 20 52 65 73 75 6C 74 3B : Result;
015B20: 0D 0A 20 20 5A 65 69 6C 65 2C 53 70 61 6C 74 65 .. Zeile,Spalte
015B30: 20 20 20 20 20 20 20 20 20 3A 20 49 6E 74 65 67 : Integ
015B40: 65 72 3B 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 20 er;....begin..
015B50: 52 65 63 2E 41 58 20 3A 3D 20 53 65 74 7A 65 56 Rec.AX := SetzeV
015B60: 69 64 65 6F 20 2B 20 56 69 64 65 6F 42 57 38 30 ideo + VideoBW80
015B70: 78 32 35 41 3B 20 28 2A 20 42 57 20 38 30 78 32 x25A; (* BW 80x2
015B80: 35 20 41 6E 7A 65 69 67 65 20 61 6C 73 20 53 74 5 Anzeige als St
015B90: 61 6E 64 61 72 64 20 2A 29 0D 0A 20 20 20 20 20 andard *)..
015BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015BB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015BC0: 20 20 20 28 2A 20 46 75 65 72 20 64 69 65 20 43 (* Fuer die C
015BD0: 6F 6C 6F 72 6B 61 72 74 65 20 6D 75 7E 0D 0A 20 olorkarte mu~..
015BE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015BF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015C00: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
015C10: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
015C20: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
015C30: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
015C40: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
015C50: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
015C60: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
015C70: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
015C80: 42 65 67 69 6E 0D 0A 20 20 20 20 20 20 52 65 67 Begin.. Reg
015C90: 73 2E 41 48 3A 3D 32 3B 0D 0A 20 20 20 20 20 20 s.AH:=2;..
015CA0: 52 65 67 73 2E 44 4C 3A 3D 43 3B 0D 0A 20 20 20 Regs.DL:=C;..
015CB0: 20 20 20 4D 73 44 6F 73 28 52 65 67 73 29 3B 0D MsDos(Regs);.
015CC0: 0A 20 20 20 20 45 6E 64 3B 0D 0A 0D 0A 20 20 56 . End;.... V
015CD0: 61 72 0D 0A 20 20 20 20 53 3A 20 53 74 72 69 6E ar.. S: Strin
015CE0: 67 5B 32 35 35 5D 3B 0D 0A 20 20 20 20 49 3A 20 g[255];.. I:
015CF0: 42 79 74 65 3B 0D 0A 0D 0A 20 20 42 65 67 69 6E Byte;.... Begin
015D00: 0D 0A 20 20 20 20 43 6F 6E 49 6E 50 74 72 3A 3D .. ConInPtr:=
015D10: 4F 66 73 28 47 65 74 43 29 3B 0D 0A 20 20 20 20 Ofs(GetC);..
015D20: 43 6F 6E 4F 75 74 50 74 72 3A 3D 4F 66 73 28 50 ConOutPtr:=Ofs(P
015D30: 75 74 43 29 3B 0D 0A 20 20 20 20 57 68 69 6C 65 utC);.. While
015D40: 20 4E 6F 74 20 45 6F 66 28 4B 62 64 29 20 44 6F Not Eof(Kbd) Do
015D50: 0D 0A 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 .. Begin..
015D60: 20 20 20 20 52 65 61 64 4C 6E 28 4B 62 64 2C 53 ReadLn(Kbd,S
015D70: 29 3B 0D 0A 20 20 20 20 20 20 46 6F 72 20 49 3A );.. For I:
015D80: 3D 31 20 54 6F 20 4C 65 6E 67 74 68 28 53 29 20 =1 To Length(S)
015D90: 44 6F 0D 0A 20 20 20 20 20 20 20 20 49 66 20 28 Do.. If (
015DA0: 53 5B 49 5D 3E 3D 27 41 27 29 20 41 6E 64 20 28 S[I]>='A') And (
015DB0: 53 5B 49 5D 3C 3D 27 5A 27 29 20 54 68 65 6E 20 S[I]<='Z') Then
015DC0: 53 5B 49 5D 3A 3D 43 68 72 28 4F 72 64 28 53 5B S[I]:=Chr(Ord(S[
015DD0: 49 5D 29 2B 33 32 29 3B 0D 0A 20 20 20 20 20 20 I])+32);..
015DE0: 57 72 69 74 65 4C 6E 28 53 29 3B 0D 0A 20 20 20 WriteLn(S);..
015DF0: 20 20 45 6E 64 3B 0D 0A 20 20 45 6E 64 2E 0D 0A End;.. End...
015E00: 20 20 20 20 20 20 20 20 20 20 56 69 64 65 6F 43 VideoC
015E10: 6F 6C 6F 72 38 30 78 32 35 41 20 65 69 6E 67 65 olor80x25A einge
015E20: 73 65 74 7A 74 0D 0A 20 20 20 20 20 20 20 20 20 setzt..
015E30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015E40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015E50: 20 20 77 65 72 64 65 6E 20 2A 29 0D 0A 20 20 52 werden *).. R
015E60: 65 63 2E 42 58 20 3A 3D 20 31 35 3B 0D 0A 20 20 ec.BX := 15;..
015E70: 49 6E 74 72 28 56 69 64 65 6F 2C 52 65 63 29 3B Intr(Video,Rec);
015E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015E90: 20 20 20 20 20 20 28 2A 20 53 65 74 7A 65 20 56 (* Setze V
015EA0: 69 64 65 6F 20 4D 6F 64 75 73 20 2A 29 0D 0A 20 ideo Modus *)..
015EB0: 20 52 65 63 2E 41 58 20 3A 3D 20 53 63 68 72 65 Rec.AX := Schre
015EC0: 69 62 65 43 68 61 72 20 2B 20 4F 72 64 28 27 41 ibeChar + Ord('A
015ED0: 27 29 3B 0D 0A 20 20 49 6E 74 72 28 56 69 64 65 ');.. Intr(Vide
015EE0: 6F 2C 52 65 63 29 3B 20 20 20 20 20 20 20 20 20 o,Rec);
015EF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 (*
015F00: 47 65 62 65 20 27 41 27 20 61 75 73 20 2A 29 0D Gebe 'A' aus *).
015F10: 0A 20 20 52 65 63 2E 41 58 20 3A 3D 20 4C 65 73 . Rec.AX := Les
015F20: 65 43 75 72 73 6F 72 3B 0D 0A 20 20 49 6E 74 72 eCursor;.. Intr
015F30: 28 56 69 64 65 6F 2C 52 65 63 29 3B 20 20 20 20 (Video,Rec);
015F40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015F50: 20 20 28 2A 20 4C 65 73 65 20 64 69 65 20 43 75 (* Lese die Cu
015F60: 72 73 6F 72 20 50 6F 73 69 74 69 6F 6E 20 2A 29 rsor Position *)
015F70: 0D 0A 20 20 5A 65 69 6C 65 20 3A 3D 20 52 65 63 .. Zeile := Rec
015F80: 2E 44 58 20 61 6E 64 20 24 46 46 30 30 20 73 68 .DX and $FF00 sh
015F90: 72 20 38 3B 0D 0A 20 20 53 70 61 6C 74 65 20 3A r 8;.. Spalte :
015FA0: 3D 20 52 65 63 2E 44 58 20 61 6E 64 20 24 46 46 = Rec.DX and $FF
015FB0: 3B 0D 0A 20 20 57 72 69 74 65 28 27 5A 65 69 6C ;.. Write('Zeil
015FC0: 65 20 3D 27 2C 5A 65 69 6C 65 2C 27 20 53 70 61 e =',Zeile,' Spa
015FD0: 6C 74 65 20 3D 20 27 2C 53 70 61 6C 74 65 29 3B lte = ',Spalte);
015FE0: 20 28 2A 20 5A 65 69 67 65 20 5A 65 69 6C 65 20 (* Zeige Zeile
015FF0: 75 6E 64 20 53 70 61 6C 74 65 20 2A 29 0D 0A 20 und Spalte *)..
016000: 70 72 6F 67 72 61 6D 20 4E 69 6D 6D 46 75 6E 6B program NimmFunk
016010: 74 69 6F 6E 73 74 61 73 74 65 6E 44 61 74 65 6E tionstastenDaten
016020: 3B 0D 0A 28 2A 0D 0A 20 20 20 20 20 20 20 20 44 ;..(*.. D
016030: 69 65 73 65 73 20 50 72 6F 67 72 61 6D 6D 20 70 ieses Programm p
016040: 72 81 66 74 20 64 69 65 20 54 61 73 74 61 74 75 r.ft die Tastatu
016050: 72 20 6E 61 63 68 20 54 61 73 74 65 6E 20 64 69 r nach Tasten di
016060: 65 20 65 69 6E 65 6E 0D 0A 20 20 20 20 20 20 20 e einen..
016070: 20 5A 77 65 69 20 5A 65 69 63 68 65 6E 20 43 6F Zwei Zeichen Co
016080: 64 65 20 65 72 7A 65 75 67 65 6E 2E 20 41 75 66 de erzeugen. Auf
016090: 20 64 65 6E 20 6D 65 69 73 74 65 6E 20 54 61 73 den meisten Tas
0160A0: 74 61 74 75 72 65 6E 20 69 73 74 20 64 61 62 65 taturen ist dabe
0160B0: 69 0D 0A 20 20 20 20 20 20 20 20 64 61 73 20 65 i.. das e
0160C0: 72 73 74 65 20 5A 65 69 63 68 65 6E 20 45 53 43 rste Zeichen ESC
0160D0: 20 75 6E 64 20 64 61 73 20 7A 77 65 69 74 65 20 und das zweite
0160E0: 61 6C 70 68 61 6E 75 6D 65 72 69 73 63 68 0D 0A alphanumerisch..
0160F0: 2A 29 0D 0A 76 61 72 0D 0A 20 20 5A 65 69 63 68 *)..var.. Zeich
016100: 65 6E 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 en :
016110: 43 68 61 72 3B 0D 0A 20 20 56 6F 72 68 65 72 20 Char;.. Vorher
016120: 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 42 6F : Bo
016130: 6F 6C 65 61 6E 3B 0D 0A 20 20 5A 61 65 68 6C 65 olean;.. Zaehle
016140: 72 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 49 r : I
016150: 6E 74 65 67 65 72 3B 0D 0A 0D 0A 62 65 67 69 6E nteger;....begin
016160: 0D 0A 20 20 66 6F 72 20 5A 61 65 68 6C 65 72 20 .. for Zaehler
016170: 3A 3D 20 31 20 74 6F 20 32 30 20 64 6F 20 62 65 := 1 to 20 do be
016180: 67 69 6E 0D 0A 20 20 20 20 52 65 61 64 28 4B 62 gin.. Read(Kb
016190: 64 2C 5A 65 69 63 68 65 6E 29 3B 20 20 20 20 20 d,Zeichen);
0161A0: 20 20 20 20 20 20 28 2A 20 45 69 6E 20 5A 65 69 (* Ein Zei
0161B0: 63 68 65 6E 20 6C 65 73 65 6E 2C 20 77 65 6E 6E chen lesen, wenn
0161C0: 20 5A 65 69 63 68 65 6E 3D 45 53 43 20 64 61 6E Zeichen=ESC dan
0161D0: 6E 20 2A 29 0D 0A 20 20 20 20 69 66 20 5A 65 69 n *).. if Zei
0161E0: 63 68 65 6E 20 3D 20 63 68 72 28 32 37 29 20 74 chen = chr(27) t
0161F0: 68 65 6E 20 62 65 67 69 6E 20 20 20 20 28 2A 20 hen begin (*
016200: 20 52 65 63 2E 41 58 20 3A 3D 20 53 65 74 7A 65 Rec.AX := Setze
016210: 43 75 72 50 6F 73 69 74 69 6F 6E 3B 0D 0A 20 20 CurPosition;..
016220: 52 65 63 2E 44 58 20 3A 3D 20 24 30 41 30 41 3B Rec.DX := $0A0A;
016230: 0D 0A 20 20 49 6E 74 72 28 56 69 64 65 6F 2C 52 .. Intr(Video,R
016240: 65 63 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 ec);
016250: 20 20 20 20 20 20 20 20 20 20 28 2A 20 53 65 74 (* Set
016260: 7A 65 20 64 65 6E 20 43 75 72 73 6F 72 20 61 75 ze den Cursor au
016270: 66 20 5A 65 69 6C 65 20 31 30 0D 0A 20 20 20 20 f Zeile 10..
016280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0162A0: 20 20 20 20 20 20 20 75 6E 64 20 53 70 61 6C 74 und Spalt
0162B0: 65 20 31 30 20 2A 29 0D 0A 20 20 52 65 63 2E 41 e 10 *).. Rec.A
0162C0: 58 20 3A 3D 20 53 63 68 72 65 69 62 65 43 68 61 X := SchreibeCha
0162D0: 72 20 2B 20 4F 72 64 28 27 23 27 29 3B 0D 0A 20 r + Ord('#');..
0162E0: 20 49 6E 74 72 28 56 69 64 65 6F 2C 52 65 63 29 Intr(Video,Rec)
0162F0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
016300: 20 20 20 20 20 20 20 28 2A 20 67 69 62 20 20 27 (* gib '
016310: 23 27 20 61 75 73 20 2A 29 0D 0A 20 20 52 65 63 #' aus *).. Rec
016320: 2E 41 58 20 3A 3D 20 4C 65 73 65 43 75 72 73 6F .AX := LeseCurso
016330: 72 3B 0D 0A 20 20 49 6E 74 72 28 56 69 64 65 6F r;.. Intr(Video
016340: 2C 52 65 63 29 3B 20 20 20 20 20 20 20 20 20 20 ,Rec);
016350: 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 4C (* L
016360: 65 73 65 20 64 69 65 20 43 75 72 73 6F 72 20 50 ese die Cursor P
016370: 6F 73 69 74 69 6F 6E 20 2A 29 0D 0A 20 20 5A 65 osition *).. Ze
016380: 69 6C 65 20 3A 3D 20 52 65 63 2E 44 58 20 61 6E ile := Rec.DX an
016390: 64 20 24 46 46 30 30 20 73 68 72 20 38 3B 0D 0A d $FF00 shr 8;..
0163A0: 20 20 53 70 61 6C 74 65 20 3A 3D 20 52 65 63 2E Spalte := Rec.
0163B0: 44 58 20 61 6E 64 20 24 46 46 3B 0D 0A 20 20 57 DX and $FF;.. W
0163C0: 72 69 74 65 28 27 5A 65 69 6C 65 20 3D 27 2C 5A rite('Zeile =',Z
0163D0: 65 69 6C 65 2C 27 20 53 70 61 6C 74 65 75 6D 6E eile,' Spalteumn
0163E0: 20 3D 20 27 2C 53 70 61 6C 74 65 29 3B 20 28 2A = ',Spalte); (*
0163F0: 20 5A 65 69 67 65 20 5A 65 69 6C 65 20 75 6E 64 Zeige Zeile und
016400: 6D 75 E1 20 65 73 20 65 6E 74 77 65 64 65 72 20 mu. es entweder
016410: 64 69 65 20 45 53 43 20 54 61 73 74 65 20 73 65 die ESC Taste se
016420: 69 6E 20 2A 29 0D 0A 20 20 20 20 20 20 56 6F 72 in *).. Vor
016430: 68 65 72 20 3A 3D 20 54 72 75 65 3B 20 20 20 20 her := True;
016440: 20 20 20 20 20 20 20 20 28 2A 20 65 69 6E 65 20 (* eine
016450: 64 69 65 20 65 69 6E 65 6E 20 5A 77 65 69 20 5A die einen Zwei Z
016460: 65 69 63 68 65 6E 20 43 6F 64 65 20 65 72 7A 65 eichen Code erze
016470: 75 67 74 20 2A 29 0D 0A 20 20 20 20 20 20 52 65 ugt *).. Re
016480: 61 64 28 4B 62 64 2C 5A 65 69 63 68 65 6E 29 3B ad(Kbd,Zeichen);
016490: 0D 0A 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 65 .. end.. e
0164A0: 6C 73 65 20 56 6F 72 68 65 72 20 3A 3D 20 46 61 lse Vorher := Fa
0164B0: 6C 73 65 3B 0D 0A 20 20 20 20 69 66 20 56 6F 72 lse;.. if Vor
0164C0: 68 65 72 0D 0A 20 20 20 20 20 20 74 68 65 6E 20 her.. then
0164D0: 57 72 69 74 65 28 27 56 6F 72 68 65 72 20 27 29 Write('Vorher ')
0164E0: 0D 0A 20 20 20 20 20 20 65 6C 73 65 20 57 72 69 .. else Wri
0164F0: 74 65 28 27 45 69 6E 7A 65 6C 6E 65 73 20 5A 65 te('Einzelnes Ze
016500: 69 63 68 65 6E 20 27 29 3B 0D 0A 20 20 20 20 57 ichen ');.. W
016510: 72 69 74 65 4C 6E 28 27 4F 72 64 28 5A 65 69 63 riteLn('Ord(Zeic
016520: 68 65 6E 29 3D 20 27 2C 4F 72 64 28 5A 65 69 63 hen)= ',Ord(Zeic
016530: 68 65 6E 29 29 0D 0A 20 20 65 6E 64 0D 0A 65 6E hen)).. end..en
016540: 64 2E 20 28 2A 20 64 65 73 20 50 72 6F 67 72 61 d. (* des Progra
016550: 6D 6D 73 20 20 4E 69 6D 6D 46 75 6E 6B 74 69 6F mms NimmFunktio
016560: 6E 73 74 61 73 74 65 6E 44 61 74 65 6E 20 2A 29 nstastenDaten *)
016570: 0D 0A 1A 49 6E 74 65 67 65 72 29 3B 0D 0A 20 20 ...Integer);..
016580: 67 69 6E 0D 0A 20 20 20 20 52 65 61 64 28 4B 62 gin.. Read(Kb
016590: 64 2C 5A 65 69 63 68 65 6E 29 3B 20 20 20 20 20 d,Zeichen);
0165A0: 20 20 20 20 20 20 28 2A 20 45 69 6E 20 5A 65 69 (* Ein Zei
0165B0: 63 68 65 6E 20 6C 65 73 65 6E 2C 20 77 65 6E 6E chen lesen, wenn
0165C0: 20 5A 65 69 63 68 65 6E 3D 45 53 43 20 64 61 6E Zeichen=ESC dan
0165D0: 6E 20 2A 29 0D 0A 20 20 20 20 69 66 20 5A 65 69 n *).. if Zei
0165E0: 63 68 65 6E 20 3D 20 63 68 72 28 32 37 29 20 74 chen = chr(27) t
0165F0: 68 65 6E 20 62 65 67 69 6E 20 20 20 20 28 2A 20 hen begin (*
016600: 20 53 70 61 6C 74 65 20 2A 29 0D 0A 20 20 52 65 Spalte *).. Re
016610: 63 2E 41 58 20 3A 3D 20 53 65 74 7A 65 43 75 72 c.AX := SetzeCur
016620: 50 6F 73 69 74 69 6F 6E 3B 0D 0A 20 20 52 65 63 Position;.. Rec
016630: 2E 44 58 20 3A 3D 20 24 31 34 31 34 3B 0D 0A 20 .DX := $1414;..
016640: 20 49 6E 74 72 28 56 69 64 65 6F 2C 52 65 63 29 Intr(Video,Rec)
016650: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
016660: 20 20 20 20 20 20 20 28 2A 20 53 65 74 7A 65 20 (* Setze
016670: 43 75 72 73 6F 72 20 61 75 66 20 5A 65 69 6C 65 Cursor auf Zeile
016680: 20 32 30 20 75 6E 64 0D 0A 20 20 20 20 20 20 20 20 und..
016690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0166A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0166B0: 20 20 20 20 53 70 61 6C 74 65 20 32 30 20 2A 29 Spalte 20 *)
0166C0: 0D 0A 65 6E 64 2E 20 28 2A 20 64 65 73 20 50 72 ..end. (* des Pr
0166D0: 6F 67 72 61 6D 6D 73 20 49 42 4D 70 63 53 63 72 ogramms IBMpcScr
0166E0: 65 65 6E 20 2A 29 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A een *)..........
0166F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
016700: 20 20 20 20 20 20 20 28 2A 20 67 69 62 20 20 27 (* gib '
016710: 23 27 20 61 75 73 20 2A 29 0D 0A 20 20 52 65 63 #' aus *).. Rec
016720: 2E 41 58 20 3A 3D 20 4C 65 73 65 43 75 72 73 6F .AX := LeseCurso
016730: 72 3B 0D 0A 20 20 49 6E 74 72 28 56 69 64 65 6F r;.. Intr(Video
016740: 2C 52 65 63 29 3B 20 20 20 20 20 20 20 20 20 20 ,Rec);
016750: 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 4C (* L
016760: 65 73 65 20 64 69 65 20 43 75 72 73 6F 72 20 50 ese die Cursor P
016770: 6F 73 69 74 69 6F 6E 20 2A 29 0D 0A 20 20 5A 65 osition *).. Ze
016780: 69 6C 65 20 3A 3D 20 52 65 63 2E 44 58 20 61 6E ile := Rec.DX an
016790: 64 20 24 46 46 30 30 20 73 68 72 20 38 3B 0D 0A d $FF00 shr 8;..
0167A0: 20 20 53 70 61 6C 74 65 20 3A 3D 20 52 65 63 2E Spalte := Rec.
0167B0: 44 58 20 61 6E 64 20 24 46 46 3B 0D 0A 20 20 57 DX and $FF;.. W
0167C0: 72 69 74 65 28 27 5A 65 69 6C 65 20 3D 27 2C 5A rite('Zeile =',Z
0167D0: 65 69 6C 65 2C 27 20 53 70 61 6C 74 65 75 6D 6E eile,' Spalteumn
0167E0: 20 3D 20 27 2C 53 70 61 6C 74 65 29 3B 20 28 2A = ',Spalte); (*
0167F0: 20 5A 65 69 67 65 20 5A 65 69 6C 65 20 75 6E 64 Zeige Zeile und
016800: 0D 0A 70 72 6F 67 72 61 6D 20 49 42 4D 70 63 53 ..program IBMpcS
016810: 63 72 65 65 6E 3B 0D 0A 0D 0A 20 20 20 20 28 2A creen;.... (*
016820: 20 44 69 65 73 65 73 20 50 72 6F 67 72 61 6D 6D Dieses Programm
016830: 20 7A 65 69 67 74 20 64 69 72 65 6B 74 65 20 42 zeigt direkte B
016840: 69 6C 64 73 63 68 69 72 6D 61 75 73 67 61 62 65 ildschirmausgabe
016850: 20 75 65 62 65 72 20 64 65 6E 20 2A 29 0D 0A 20 ueber den *)..
016860: 20 20 20 28 2A 20 49 6E 74 65 72 72 75 70 74 20 (* Interrupt
016870: 31 30 20 28 56 69 64 65 6F 20 49 6E 74 65 72 72 10 (Video Interr
016880: 75 70 74 29 20 62 65 69 6D 20 49 42 4D 20 50 43 upt) beim IBM PC
016890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0168A0: 2A 29 0D 0A 0D 0A 63 6F 6E 73 74 0D 0A 20 20 56 *)....const.. V
0168B0: 69 64 65 6F 20 20 20 20 20 20 20 20 20 20 20 20 ideo
0168C0: 20 20 20 20 3D 20 20 24 31 30 3B 20 20 28 2A 20 = $10; (*
0168D0: 53 65 74 7A 65 20 56 69 64 65 6F 20 49 2F 4F 20 Setze Video I/O
0168E0: 49 6E 74 65 72 72 75 70 74 20 2A 29 0D 0A 20 20 Interrupt *)..
0168F0: 53 65 74 7A 65 56 69 64 65 6F 20 20 20 20 20 20 SetzeVideo
016900: 20 20 20 20 20 3D 20 20 20 20 30 3B 20 20 28 2A = 0; (*
016910: 20 53 65 74 7A 65 20 56 69 64 65 6F 20 4D 6F 64 Setze Video Mod
016920: 75 73 20 2A 29 0D 0A 20 20 53 65 74 7A 65 43 75 us *).. SetzeCu
016930: 72 50 6F 73 69 74 69 6F 6E 20 20 20 20 20 3D 20 rPosition =
016940: 24 32 30 30 3B 20 20 28 2A 20 53 65 74 7A 65 20 $200; (* Setze
016950: 43 75 72 73 6F 72 20 50 6F 73 69 74 69 6F 6E 20 Cursor Position
016960: 2A 29 0D 0A 20 20 4C 65 73 65 43 75 72 73 6F 72 *).. LeseCursor
016970: 20 20 20 20 20 20 20 20 20 20 20 3D 20 24 33 30 = $30
016980: 30 3B 20 20 28 2A 20 4C 65 73 65 20 43 75 72 73 0; (* Lese Curs
016990: 6F 72 20 50 6F 73 69 74 69 6F 6E 20 2A 29 0D 0A or Position *)..
0169A0: 20 20 53 63 68 72 65 69 62 65 43 68 61 72 20 20 SchreibeChar
0169B0: 20 20 20 20 20 20 20 3D 20 24 45 30 30 3B 20 20 = $E00;
0169C0: 28 2A 20 53 63 68 72 65 69 62 65 20 5A 65 69 63 (* Schreibe Zeic
0169D0: 68 65 6E 20 74 6F 20 73 63 65 65 6E 20 2A 29 0D hen to sceen *).
0169E0: 0A 20 20 56 69 64 65 6F 42 57 38 30 78 32 35 41 . VideoBW80x25A
0169F0: 20 20 20 20 20 20 20 20 3D 20 20 20 20 32 3B 20 = 2;
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 52 E5 13 00 41 02 00 00 00 02 ......R...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: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
016D00: 6C 65 72 3A 20 20 27 2C 49 4F 57 65 72 74 3A 33 ler: ',IOWert:3
016D10: 29 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 ).. end;..
016D20: 20 52 65 61 64 28 4B 62 64 2C 43 68 29 0D 0A 20 Read(Kbd,Ch)..
016D30: 20 65 6E 64 0D 0A 65 6E 64 3B 20 28 2A 20 76 6F end..end; (* vo
016D40: 6E 20 50 72 6F 7A 65 64 75 72 20 49 4F 50 72 75 n Prozedur IOPru
016D50: 65 66 65 20 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 efe *)....proced
016D60: 75 72 65 20 4E 65 6E 6E 65 5A 65 69 6C 65 6E 6E ure NenneZeilenn
016D70: 75 6D 6D 65 72 28 5A 65 69 6C 65 6E 6E 75 6D 6D ummer(Zeilennumm
016D80: 65 72 20 3A 20 49 6E 74 65 67 65 72 29 3B 0D 0A er : Integer);..
016D90: 28 2A 0D 0A 20 20 20 20 20 20 20 44 69 65 73 65 (*.. Diese
016DA0: 20 20 52 6F 75 74 69 6E 65 20 20 67 69 62 74 20 Routine gibt
016DB0: 49 68 6E 65 6E 20 61 6E 2C 20 20 77 65 6C 63 68 Ihnen an, welch
016DC0: 65 20 20 5A 65 69 6C 65 6E 6E 75 6D 6D 65 72 20 e Zeilennummer
016DD0: 20 67 65 72 61 64 65 0D 0A 20 20 20 20 20 20 20 gerade..
016DE0: 61 75 73 67 65 66 75 65 68 72 74 20 20 77 69 72 ausgefuehrt wir
016DF0: 64 2C 20 20 73 6F 20 64 61 61 20 53 69 65 20 73 d, so daa Sie s
016E00: 65 68 65 6E 20 6B 6F 65 6E 6E 65 6E 20 77 65 6C ehen koennen wel
016E10: 63 68 65 20 20 41 6E 77 65 69 73 75 6E 67 0D 0A che Anweisung..
016E20: 20 20 20 20 20 20 20 77 65 6C 63 68 65 6E 20 46 welchen F
016E30: 65 68 6C 65 72 20 76 65 72 75 72 73 61 63 68 74 ehler verursacht
016E40: 2E 0D 0A 2A 29 0D 0A 62 65 67 69 6E 0D 0A 20 20 ...*)..begin..
016E50: 47 6F 74 6F 58 59 28 31 2C 31 29 3B 20 43 6C 72 GotoXY(1,1); Clr
016E60: 45 6F 6C 3B 0D 0A 20 20 57 72 69 74 65 28 27 41 Eol;.. Write('A
016E70: 75 73 66 75 65 68 72 65 6E 64 65 20 5A 65 69 6C usfuehrende Zeil
016E80: 65 20 23 27 2C 5A 65 69 6C 65 6E 6E 75 6D 6D 65 e #',Zeilennumme
016E90: 72 29 0D 0A 65 6E 64 3B 20 28 2A 20 76 6F 6E 20 r)..end; (* von
016EA0: 50 72 6F 7A 65 64 75 72 20 4E 65 6E 6E 65 5A 65 Prozedur NenneZe
016EB0: 69 6C 65 6E 6E 75 6D 6D 65 72 20 2A 29 0D 0A 0D ilennummer *)...
016EC0: 0A 62 65 67 69 6E 0D 0A 20 20 43 6C 72 53 63 72 .begin.. ClrScr
016ED0: 3B 0D 0A 20 20 28 2A 24 49 2D 2A 29 20 28 2A 20 ;.. (*$I-*) (*
016EE0: 49 2F 4F 20 43 68 65 63 6B 20 61 62 73 63 68 61 I/O Check abscha
016EF0: 6C 74 65 6E 20 2A 29 0D 0A 20 20 4E 65 6E 6E 65 lten *).. Nenne
016F00: 28 2A 20 52 2B 20 2A 29 0D 0A 70 72 6F 67 72 61 (* R+ *)..progra
016F10: 6D 20 54 65 73 74 49 4F 50 72 75 65 66 65 3B 0D m TestIOPruefe;.
016F20: 0A 28 2A 0D 0A 20 20 20 20 20 20 20 44 69 65 20 .(*.. Die
016F30: 20 52 6F 75 74 69 6E 65 20 20 49 4F 50 72 75 65 Routine IOPrue
016F40: 66 65 20 20 73 6F 6C 6C 74 65 20 7A 75 73 61 6D fe sollte zusam
016F50: 6D 65 6E 20 20 6D 69 74 20 20 64 65 6E 20 20 67 men mit den g
016F60: 6C 6F 62 61 6C 65 6E 0D 0A 20 20 20 20 20 20 20 lobalen..
016F70: 44 65 6B 6C 61 72 61 74 69 6F 6E 65 6E 20 20 49 Deklarationen I
016F80: 4F 57 65 72 74 20 75 6E 64 20 49 4F 46 65 68 6C OWert und IOFehl
016F90: 65 72 20 69 6E 20 65 69 6E 65 6D 20 50 72 6F 67 er in einem Prog
016FA0: 72 61 6D 6D 20 20 64 6F 72 74 0D 0A 20 20 20 20 ramm dort..
016FB0: 20 20 20 70 6C 61 7A 69 65 72 74 20 20 77 65 72 plaziert wer
016FC0: 64 65 6E 2C 20 20 77 6F 20 20 53 69 65 20 20 49 den, wo Sie I
016FD0: 68 72 65 20 20 65 69 67 65 6E 65 20 20 49 2F 4F hre eigene I/O
016FE0: 20 20 46 65 68 6C 65 72 70 72 75 65 66 75 6E 67 Fehlerpruefung
016FF0: 0D 0A 20 20 20 20 20 20 20 61 62 77 69 63 6B 65 .. abwicke
017000: 6C 6E 20 6D 6F 65 63 68 74 65 6E 2E 0D 0A 20 20 ln moechten...
017010: 20 20 20 20 20 2A 2A 2A 2A 2A 20 41 43 48 54 55 ***** ACHTU
017020: 4E 47 20 21 21 20 2A 2A 2A 2A 2A 0D 0A 20 20 20 NG !! *****..
017030: 20 20 20 20 7B 20 24 49 2D 20 7D 20 66 75 6E 6B { $I- } funk
017040: 74 69 6F 6E 69 65 72 74 20 6E 69 63 68 74 20 21 tioniert nicht !
017050: 21 21 0D 0A 20 20 20 20 20 20 20 65 73 20 6D 75 !!.. es mu
017060: 7E 20 7B 24 49 2D 7D 20 67 65 73 63 68 72 69 65 ~ {$I-} geschrie
017070: 62 65 6E 20 77 65 72 64 65 6E 2C 20 64 61 20 64 ben werden, da d
017080: 65 72 20 43 6F 6D 70 69 6C 65 72 20 64 61 73 20 er Compiler das
017090: 4C 65 65 72 7A 65 69 63 68 65 6E 0D 0A 20 20 20 Leerzeichen..
0170A0: 20 20 20 20 6E 69 63 68 74 20 6D 61 67 20 21 0D nicht mag !.
0170B0: 0A 2A 29 0D 0A 0D 0A 63 6F 6E 73 74 0D 0A 20 20 .*)....const..
0170C0: 49 4F 57 65 72 74 20 20 20 20 20 20 20 20 20 20 IOWert
0170D0: 20 20 20 20 20 3A 20 49 6E 74 65 67 65 72 20 3D : Integer =
0170E0: 20 30 3B 0D 0A 20 20 49 4F 46 65 68 6C 65 72 20 0;.. IOFehler
0170F0: 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 42 6F : Bo
017100: 5A 65 69 6C 65 6E 6E 75 6D 6D 65 72 28 31 29 3B Zeilennummer(1);
017110: 20 41 73 73 69 67 6E 28 49 6E 44 61 74 65 69 2C Assign(InDatei,
017120: 27 53 63 68 65 69 6E 27 29 3B 20 20 20 20 20 20 'Schein');
017130: 20 49 4F 50 72 75 65 66 65 3B 0D 0A 20 20 4E 65 IOPruefe;.. Ne
017140: 6E 6E 65 5A 65 69 6C 65 6E 6E 75 6D 6D 65 72 28 nneZeilennummer(
017150: 32 29 3B 20 52 65 77 72 69 74 65 28 49 6E 44 61 2); Rewrite(InDa
017160: 74 65 69 29 3B 20 20 20 20 20 20 20 20 20 20 20 tei);
017170: 20 20 20 20 49 4F 50 72 75 65 66 65 3B 0D 0A 20 IOPruefe;..
017180: 20 4E 65 6E 6E 65 5A 65 69 6C 65 6E 6E 75 6D 6D NenneZeilennumm
017190: 65 72 28 33 29 3B 20 52 65 61 64 28 49 6E 44 61 er(3); Read(InDa
0171A0: 74 65 69 2C 5A 65 69 6C 65 29 3B 20 20 20 20 20 tei,Zeile);
0171B0: 20 20 20 20 20 20 20 49 4F 50 72 75 65 66 65 3B IOPruefe;
0171C0: 0D 0A 20 20 4E 65 6E 6E 65 5A 65 69 6C 65 6E 6E .. NenneZeilenn
0171D0: 75 6D 6D 65 72 28 34 29 3B 20 43 6C 6F 73 65 28 ummer(4); Close(
0171E0: 49 6E 44 61 74 65 69 29 3B 20 20 20 20 20 20 20 InDatei);
0171F0: 20 20 20 20 20 20 20 20 20 20 49 4F 50 72 75 65 IOPrue
017200: 66 65 3B 0D 0A 65 6E 64 2E 20 28 2A 20 76 6F 6E fe;..end. (* von
017210: 20 50 72 6F 67 72 61 6D 6D 20 54 65 73 74 49 4F Programm TestIO
017220: 50 72 75 65 66 65 20 2A 29 0D 0A 1A 1A 1A 1A 1A Pruefe *).......
017230: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
017240: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
017250: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
017260: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
017270: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
017280: 65 20 23 27 2C 5A 65 69 6C 65 6E 6E 75 6D 6D 65 e #',Zeilennumme
017290: 72 29 0D 0A 65 6E 64 3B 20 28 2A 20 76 6F 6E 20 r)..end; (* von
0172A0: 50 72 6F 7A 65 64 75 72 20 4E 65 6E 6E 65 5A 65 Prozedur NenneZe
0172B0: 69 6C 65 6E 6E 75 6D 6D 65 72 20 2A 29 0D 0A 0D ilennummer *)...
0172C0: 0A 62 65 67 69 6E 0D 0A 20 20 43 6C 72 53 63 72 .begin.. ClrScr
0172D0: 3B 0D 0A 20 20 28 2A 24 49 2D 2A 29 20 28 2A 20 ;.. (*$I-*) (*
0172E0: 49 2F 4F 20 43 68 65 63 6B 20 61 62 73 63 68 61 I/O Check abscha
0172F0: 6C 74 65 6E 20 2A 29 0D 0A 20 20 4E 65 6E 6E 65 lten *).. Nenne
017300: 6F 6C 65 61 6E 20 3D 20 46 61 6C 73 65 3B 0D 0A olean = False;..
017310: 76 61 72 0D 0A 20 20 49 6E 44 61 74 65 69 20 20 var.. InDatei
017320: 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 54 65 : Te
017330: 78 74 3B 0D 0A 20 20 5A 65 69 6C 65 20 20 20 20 xt;.. Zeile
017340: 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 73 74 : st
017350: 72 69 6E 67 5B 38 30 5D 3B 0D 0A 0D 0A 70 72 6F ring[80];....pro
017360: 63 65 64 75 72 65 20 49 4F 50 72 75 65 66 65 3B cedure IOPruefe;
017370: 0D 0A 28 2A 0D 0A 20 20 20 20 20 20 20 44 69 65 ..(*.. Die
017380: 73 65 20 20 52 6F 75 74 69 6E 65 20 20 73 65 74 se Routine set
017390: 7A 74 20 49 4F 46 65 68 6C 65 72 20 6D 69 74 20 zt IOFehler mit
0173A0: 49 4F 72 65 73 75 6C 74 20 67 6C 65 69 63 68 20 IOresult gleich
0173B0: 75 6E 64 20 20 64 61 6E 6E 0D 0A 20 20 20 20 20 und dann..
0173C0: 20 20 49 4F 57 65 72 74 20 20 20 64 65 6D 65 6E IOWert demen
0173D0: 74 73 70 72 65 63 68 65 6E 64 2E 20 20 20 41 75 tsprechend. Au
0173E0: 7E 65 72 64 65 6D 20 20 64 72 75 63 6B 74 20 20 ~erdem druckt
0173F0: 65 73 20 20 61 75 66 20 20 64 65 6D 0D 0A 20 20 es auf dem..
017400: 20 20 20 20 20 42 69 6C 64 73 63 68 69 72 6D 20 Bildschirm
017410: 69 6E 20 64 65 72 20 32 34 74 65 6E 20 5A 65 69 in der 24ten Zei
017420: 6C 65 20 65 69 6E 65 20 4D 65 6C 64 75 6E 67 20 le eine Meldung
017430: 61 75 73 2C 20 75 6E 64 20 65 72 77 61 72 74 65 aus, und erwarte
017440: 74 0D 0A 20 20 20 20 20 20 20 76 6F 72 20 20 64 t.. vor d
017450: 65 72 20 20 57 65 69 74 65 72 62 65 61 72 62 65 er Weiterbearbe
017460: 69 74 75 6E 67 2C 20 20 64 61 7E 20 64 65 72 20 itung, da~ der
017470: 42 65 6E 75 74 7A 65 72 20 20 65 69 6E 20 20 5A Benutzer ein Z
017480: 65 69 63 68 65 6E 0D 0A 20 20 20 20 20 20 20 65 eichen.. e
017490: 69 6E 67 69 62 74 2E 0D 0A 0D 0A 2A 29 0D 0A 76 ingibt.....*)..v
0174A0: 61 72 0D 0A 20 20 43 68 20 20 20 20 20 20 20 20 ar.. Ch
0174B0: 20 20 20 20 20 20 20 20 20 20 20 3A 20 43 68 61 : Cha
0174C0: 72 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 49 4F 57 r;..begin.. IOW
0174D0: 65 72 74 20 3A 3D 20 49 4F 72 65 73 75 6C 74 3B ert := IOresult;
0174E0: 0D 0A 20 20 49 4F 46 65 68 6C 65 72 20 3A 3D 20 .. IOFehler :=
0174F0: 28 49 4F 57 65 72 74 20 3C 3E 20 30 29 3B 0D 0A (IOWert <> 0);..
017500: 4C 69 73 74 54 20 20 73 74 65 6C 6C 74 20 20 64 ListT stellt d
017510: 65 6E 20 45 72 73 61 74 7A 20 66 75 65 72 20 64 en Ersatz fuer d
017520: 61 73 20 66 72 75 65 68 65 72 65 20 54 75 72 62 as fruehere Turb
017530: 6F 20 20 50 61 73 63 61 6C 20 20 50 72 6F 67 72 o Pascal Progr
017540: 61 6D 6D 0D 0A 27 54 4C 49 53 54 27 20 20 64 61 amm..'TLIST' da
017550: 72 2E 20 20 57 69 72 20 20 68 61 62 65 6E 20 20 r. Wir haben
017560: 76 65 72 73 75 63 68 74 20 20 65 73 20 20 73 6F versucht es so
017570: 20 20 66 6C 65 78 69 62 65 6C 20 20 75 6E 64 20 flexibel und
017580: 20 65 69 6E 66 61 63 68 0D 0A 62 65 6E 75 74 7A einfach..benutz
017590: 62 61 72 20 20 77 69 65 20 20 6D 6F 65 67 6C 69 bar wie moegli
0175A0: 63 68 20 7A 75 20 6D 61 63 68 65 6E 2C 20 20 61 ch zu machen, a
0175B0: 62 65 72 20 66 75 65 72 20 64 65 6E 20 20 46 61 ber fuer den Fa
0175C0: 6C 6C 2C 20 20 64 61 7E 20 53 69 65 0D 0A 56 65 ll, da~ Sie..Ve
0175D0: 72 62 65 73 73 65 72 75 6E 67 65 6E 20 6D 61 63 rbesserungen mac
0175E0: 68 65 6E 20 6D 6F 65 63 68 74 65 6E 2C 20 69 73 hen moechten, is
0175F0: 74 20 61 75 63 68 20 64 65 72 20 51 75 65 6C 6C t auch der Quell
017600: 65 6E 63 6F 64 65 20 65 6E 74 68 61 6C 74 65 6E encode enthalten
017610: 2E 0D 0A 0D 0A 45 73 20 20 67 69 62 74 20 7A 77 .....Es gibt zw
017620: 65 69 20 4D 6F 65 67 6C 69 63 68 6B 65 69 74 65 ei Moeglichkeite
017630: 6E 2C 20 20 4C 69 73 74 54 20 7A 75 20 73 74 61 n, ListT zu sta
017640: 72 74 65 6E 2E 20 20 57 65 6E 6E 20 53 69 65 20 rten. Wenn Sie
017650: 65 73 20 20 6E 75 72 20 64 75 72 63 68 0D 0A 45 es nur durch..E
017660: 69 6E 67 65 62 65 6E 20 76 6F 6E 20 4C 69 73 74 ingeben von List
017670: 54 20 73 74 61 72 74 65 6E 2C 20 77 69 72 64 20 T starten, wird
017680: 49 68 6E 65 6E 20 65 69 6E 20 4D 65 6E 75 65 20 Ihnen ein Menue
017690: 67 65 67 65 62 65 6E 2C 20 64 61 73 20 49 68 6E gegeben, das Ihn
0176A0: 65 6E 0D 0A 65 72 6D 6F 65 67 6C 69 63 68 74 2C en..ermoeglicht,
0176B0: 20 20 76 65 72 73 63 68 69 65 64 65 6E 65 20 20 verschiedene
0176C0: 4C 69 73 74 54 20 20 50 61 72 61 6D 65 74 65 72 ListT Parameter
0176D0: 20 7A 75 20 20 73 65 74 7A 65 6E 2E 20 20 53 69 zu setzen. Si
0176E0: 65 20 20 6D 75 65 73 73 65 6E 0D 0A 6D 69 6E 64 e muessen..mind
0176F0: 65 73 74 65 6E 73 20 20 65 69 6E 65 20 45 69 6E estens eine Ein
017700: 20 20 47 6F 74 6F 58 59 28 31 2C 32 34 29 3B 20 GotoXY(1,24);
017710: 43 6C 72 45 6F 6C 3B 20 20 20 20 20 20 20 20 7B ClrEol; {
017720: 20 5A 65 69 6C 65 20 6C 6F 65 73 63 68 65 6E 20 Zeile loeschen
017730: 7D 0D 0A 20 20 69 66 20 49 4F 46 65 68 6C 65 72 }.. if IOFehler
017740: 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 then begin..
017750: 20 57 72 69 74 65 28 43 68 72 28 37 29 29 3B 0D Write(Chr(7));.
017760: 0A 20 20 20 20 63 61 73 65 20 49 4F 57 65 72 74 . case IOWert
017770: 20 6F 66 0D 0A 20 20 20 20 20 20 20 20 20 20 24 of.. $
017780: 30 31 20 20 20 20 3A 20 57 72 69 74 65 28 27 44 01 : Write('D
017790: 61 74 65 69 20 65 78 69 73 74 69 65 72 74 20 6E atei existiert n
0177A0: 69 63 68 74 27 29 3B 0D 0A 20 20 20 20 20 20 20 icht');..
0177B0: 20 20 20 24 30 32 20 20 20 20 3A 20 57 72 69 74 $02 : Writ
0177C0: 65 28 27 44 61 74 65 69 20 6E 69 63 68 74 20 6F e('Datei nicht o
0177D0: 66 66 65 6E 20 66 75 65 72 20 45 69 6E 67 61 62 ffen fuer Eingab
0177E0: 65 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 e');..
0177F0: 24 30 33 20 20 20 20 3A 20 57 72 69 74 65 28 27 $03 : Write('
017800: 44 61 74 65 69 20 6E 69 63 68 74 20 6F 66 66 65 Datei nicht offe
017810: 6E 20 66 75 65 72 20 41 75 73 67 61 62 65 27 29 n fuer Ausgabe')
017820: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 24 30 34 ;.. $04
017830: 20 20 20 20 3A 20 57 72 69 74 65 28 27 44 61 74 : Write('Dat
017840: 65 69 20 6E 69 63 68 74 20 6F 66 66 65 6E 27 29 ei nicht offen')
017850: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 24 31 30 ;.. $10
017860: 20 20 20 20 3A 20 57 72 69 74 65 28 27 46 65 68 : Write('Feh
017870: 6C 65 72 20 69 6D 20 6E 75 6D 65 72 69 73 63 68 ler im numerisch
017880: 65 6E 20 46 6F 72 6D 61 74 27 29 3B 0D 0A 20 20 en Format');..
017890: 20 20 20 20 20 20 20 20 24 32 30 20 20 20 20 3A $20 :
0178A0: 20 57 72 69 74 65 28 27 4F 70 65 72 61 74 69 6F Write('Operatio
0178B0: 6E 20 61 75 66 20 65 69 6E 65 6D 20 6C 6F 67 69 n auf einem logi
0178C0: 73 63 68 65 6D 20 45 69 6E 68 65 69 74 20 6E 69 schem Einheit ni
0178D0: 63 68 74 20 65 72 6C 61 75 62 74 27 29 3B 0D 0A cht erlaubt');..
0178E0: 20 20 20 20 20 20 20 20 20 20 24 32 31 20 20 20 $21
0178F0: 20 3A 20 57 72 69 74 65 28 27 49 6E 20 44 69 72 : Write('In Dir
017900: 67 61 62 65 64 61 74 65 69 20 75 6E 64 20 65 69 gabedatei und ei
017910: 6E 65 20 41 75 73 67 61 62 65 64 61 74 65 69 20 ne Ausgabedatei
017920: 20 73 70 65 7A 69 66 69 7A 69 65 72 65 6E 2E 0D spezifizieren..
017930: 0A 53 69 65 20 6B 6F 65 6E 6E 65 6E 20 61 75 63 .Sie koennen auc
017940: 68 20 50 61 72 61 6D 65 74 65 72 64 61 74 65 69 h Parameterdatei
017950: 65 6E 20 6C 61 64 65 6E 20 75 6E 64 20 73 69 63 en laden und sic
017960: 68 65 72 6E 2E 20 20 41 6C 6C 65 20 20 45 69 6E hern. Alle Ein
017970: 67 61 62 65 6E 0D 0A 6B 6F 65 6E 6E 65 6E 20 64 gaben..koennen d
017980: 75 72 63 68 20 56 65 72 77 65 6E 64 75 6E 67 20 urch Verwendung
017990: 65 69 6E 65 73 20 53 69 67 6E 61 6C 75 6D 73 65 eines Signalumse
0179A0: 74 7A 65 72 73 20 66 75 65 72 20 53 74 61 6E 64 tzers fuer Stand
0179B0: 61 72 64 20 57 6F 72 64 53 74 61 72 0D 0A 4B 6F ard WordStar..Ko
0179C0: 6E 74 72 6F 6C 6C 7A 65 69 63 68 65 6E 2C 20 65 ntrollzeichen, e
0179D0: 64 69 74 69 65 72 74 20 77 65 72 64 65 6E 2E 0D ditiert werden..
0179E0: 0A 0D 0A 53 69 65 20 20 6B 6F 65 6E 6E 65 6E 20 ...Sie koennen
0179F0: 4C 69 73 74 54 20 61 75 63 68 20 64 75 72 63 68 ListT auch durch
017A00: 20 50 61 72 61 6D 65 74 65 72 20 69 6E 20 64 65 Parameter in de
017A10: 72 20 42 65 66 65 68 6C 73 7A 65 69 6C 65 20 73 r Befehlszeile s
017A20: 74 61 72 74 65 6E 2E 0D 0A 44 65 72 20 20 20 65 tarten...Der e
017A30: 72 73 74 65 20 20 50 61 72 61 6D 65 74 65 72 20 rste Parameter
017A40: 20 69 73 74 20 20 64 69 65 20 20 45 69 6E 67 61 ist die Einga
017A50: 62 65 64 61 74 65 69 2C 20 20 20 64 65 72 20 20 bedatei, der
017A60: 7A 77 65 69 74 65 20 20 20 64 69 65 0D 0A 41 75 zweite die..Au
017A70: 73 67 61 62 65 64 61 74 65 69 20 20 75 6E 64 20 sgabedatei und
017A80: 20 64 65 72 20 64 72 69 74 74 65 20 69 73 74 20 der dritte ist
017A90: 64 69 65 20 20 50 61 72 61 6D 65 74 65 72 64 61 die Parameterda
017AA0: 74 65 69 2E 20 20 57 65 6E 6E 20 20 6B 65 69 6E tei. Wenn kein
017AB0: 65 0D 0A 50 61 72 61 6D 65 74 65 72 64 61 74 65 e..Parameterdate
017AC0: 69 20 20 20 73 70 65 7A 69 66 69 7A 69 65 72 74 i spezifiziert
017AD0: 20 20 20 77 75 72 64 65 2C 20 20 20 20 77 65 72 wurde, wer
017AE0: 64 65 6E 20 20 20 64 69 65 20 56 6F 72 65 69 6E den die Vorein
017AF0: 73 74 65 6C 6C 75 6E 67 65 6E 0D 0A 62 65 6E 75 stellungen..benu
017B00: 65 6B 74 6D 6F 64 75 73 20 6E 69 63 68 74 20 65 ektmodus nicht e
017B10: 72 6C 61 75 62 74 27 29 3B 0D 0A 20 20 20 20 20 rlaubt');..
017B20: 20 20 20 20 20 24 32 32 20 20 20 20 3A 20 57 72 $22 : Wr
017B30: 69 74 65 28 27 5A 75 77 65 69 73 75 6E 67 20 7A ite('Zuweisung z
017B40: 75 20 53 74 61 6E 64 61 72 64 64 61 74 65 69 65 u Standarddateie
017B50: 6E 20 6E 69 63 68 74 20 65 72 6C 61 75 62 74 27 n nicht erlaubt'
017B60: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 24 39 );.. $9
017B70: 30 20 20 20 20 3A 20 57 72 69 74 65 28 27 75 6E 0 : Write('un
017B80: 70 61 73 73 65 6E 64 65 20 52 65 63 6F 72 64 6C passende Recordl
017B90: 61 65 6E 67 65 27 29 3B 0D 0A 20 20 20 20 20 20 aenge');..
017BA0: 20 20 20 20 24 39 31 20 20 20 20 3A 20 57 72 69 $91 : Wri
017BB0: 74 65 28 27 53 75 63 68 65 20 6E 61 63 68 20 44 te('Suche nach D
017BC0: 61 74 65 69 65 6E 64 65 27 29 3B 0D 0A 20 20 20 ateiende');..
017BD0: 20 20 20 20 20 20 20 24 39 39 20 20 20 20 3A 20 $99 :
017BE0: 57 72 69 74 65 28 27 55 6E 65 72 77 61 72 74 65 Write('Unerwarte
017BF0: 74 65 73 20 44 61 74 65 69 65 6E 64 65 27 29 3B tes Dateiende');
017C00: 0D 0A 20 20 20 20 20 20 20 20 20 20 24 46 30 20 .. $F0
017C10: 20 20 20 3A 20 57 72 69 74 65 28 27 44 69 73 6B : Write('Disk
017C20: 65 74 74 65 6E 73 63 68 72 65 69 62 66 65 68 6C ettenschreibfehl
017C30: 65 72 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 er');..
017C40: 20 24 46 31 20 20 20 20 3A 20 57 72 69 74 65 28 $F1 : Write(
017C50: 27 44 69 72 65 63 74 6F 72 79 20 69 73 74 20 76 'Directory ist v
017C60: 6F 6C 6C 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 oll');..
017C70: 20 20 24 46 32 20 20 20 20 3A 20 57 72 69 74 65 $F2 : Write
017C80: 28 27 44 61 74 65 69 67 72 6F 65 7E 65 20 75 65 ('Dateigroe~e ue
017C90: 62 65 72 73 63 68 72 69 74 74 65 6E 27 29 3B 0D berschritten');.
017CA0: 0A 20 20 20 20 20 20 20 20 20 20 24 46 46 20 20 . $FF
017CB0: 20 20 3A 20 57 72 69 74 65 28 27 44 61 74 65 69 : Write('Datei
017CC0: 20 76 65 72 73 63 68 77 75 6E 64 65 6E 27 29 0D verschwunden').
017CD0: 0A 20 20 20 20 20 20 65 6C 73 65 20 20 20 20 20 . else
017CE0: 20 20 20 20 20 20 57 72 69 74 65 28 27 55 6E 62 Write('Unb
017CF0: 65 6B 61 6E 6E 74 65 72 20 49 2F 4F 20 46 65 68 ekannter I/O Feh
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: 74 7A 74 2E 20 20 57 65 6E 6E 20 20 6B 65 69 6E tzt. Wenn kein
017E10: 65 20 20 41 75 73 67 61 62 65 64 61 74 65 69 20 e Ausgabedatei
017E20: 73 70 65 7A 69 66 69 7A 69 65 72 74 20 20 77 75 spezifiziert wu
017E30: 72 64 65 2C 20 20 77 69 72 64 20 20 64 69 65 0D rde, wird die.
017E40: 0A 41 75 73 67 61 62 65 20 7A 75 6D 20 44 72 75 .Ausgabe zum Dru
017E50: 63 6B 65 72 20 67 65 73 65 6E 64 65 74 2E 20 20 cker gesendet.
017E60: 55 6D 20 65 69 6E 65 20 50 61 72 61 6D 65 74 65 Um eine Paramete
017E70: 72 64 61 74 65 69 20 6F 68 6E 65 20 45 69 6E 67 rdatei ohne Eing
017E80: 61 62 65 2D 0D 0A 75 6E 64 20 20 41 75 73 67 61 abe-..und Ausga
017E90: 62 65 2D 20 44 61 74 65 69 6E 61 6D 65 6E 20 20 be- Dateinamen
017EA0: 7A 75 20 73 70 65 7A 69 66 69 7A 69 65 72 65 6E zu spezifizieren
017EB0: 2C 20 20 62 65 6E 75 74 7A 74 20 6D 61 6E 20 20 , benutzt man
017EC0: 64 69 65 20 20 46 6F 72 6D 0D 0A 26 3C 50 61 72 die Form..&<Par
017ED0: 61 6D 65 74 65 72 2D 44 61 74 65 69 3E 2E 20 42 ameter-Datei>. B
017EE0: 65 69 73 70 69 65 6C 65 3A 0D 0A 0D 0A 41 3E 4C eispiele:....A>L
017EF0: 49 53 54 54 20 74 65 73 74 20 73 20 70 61 72 6D ISTT test s parm
017F00: 73 20 20 2D 2D 20 20 6C 69 73 74 65 20 54 45 53 s -- liste TES
017F10: 54 2E 50 41 53 20 61 75 66 20 64 65 6E 20 42 69 T.PAS auf den Bi
017F20: 6C 64 73 63 68 69 72 6D 2C 20 64 75 72 63 68 0D ldschirm, durch.
017F30: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
017F40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017F50: 20 20 20 20 20 20 20 20 20 20 20 56 65 72 77 65 Verwe
017F60: 6E 64 75 6E 67 20 76 6F 6E 20 50 41 52 4D 53 2E ndung von PARMS.
017F70: 4C 54 50 0D 0A 41 3E 4C 49 53 54 54 20 74 65 73 LTP..A>LISTT tes
017F80: 74 2E 69 6E 63 20 20 20 20 20 20 2D 2D 20 20 64 t.inc -- d
017F90: 72 75 63 6B 65 20 54 45 53 54 2E 49 4E 43 20 61 rucke TEST.INC a
017FA0: 75 73 2C 20 64 75 72 63 68 20 56 65 72 77 65 6E us, durch Verwen
017FB0: 64 75 6E 67 0D 0A 20 20 20 20 20 20 20 20 20 20 dung..
017FC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017FD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017FE0: 20 20 20 20 64 65 72 20 56 6F 72 65 69 6E 73 74 der Voreinst
017FF0: 65 6C 6C 75 6E 67 65 6E 0D 0A 41 3E 4C 49 53 54 ellungen..A>LIST
018000: 20 20 76 65 72 61 6E 6C 61 73 73 65 6E 2C 20 20 veranlassen,
018010: 20 55 6E 74 65 72 1F 0D 0A 20 20 20 20 20 20 20 Unter...
018020: 20 20 20 20 20 20 73 74 72 65 69 63 68 75 6E 67 streichung
018030: 20 61 6E 2D 20 75 6E 64 20 61 75 73 7A 75 73 63 an- und auszusc
018040: 68 61 6C 74 65 6E 2E 0D 0A 0D 0A 28 2A 2E 50 52 halten.....(*.PR
018050: 74 65 78 74 2A 29 20 44 72 75 63 6B 65 20 22 54 text*) Drucke "T
018060: 65 78 74 22 2E 20 20 20 44 61 73 20 6B 61 6E 6E ext". Das kann
018070: 20 64 61 7A 75 20 62 65 6E 75 74 7A 74 20 77 65 dazu benutzt we
018080: 72 64 65 6E 2C 20 62 65 73 6F 6E 64 65 72 65 0D rden, besondere.
018090: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 44 72 . Dr
0180A0: 75 63 6B 77 65 69 73 65 6E 20 65 69 6E 7A 75 73 uckweisen einzus
0180B0: 63 68 61 6C 74 65 6E 2C 20 20 77 69 65 20 7A 2E chalten, wie z.
0180C0: 42 2E 20 20 64 65 6E 20 67 65 64 72 61 65 6E 67 B. den gedraeng
0180D0: 74 65 20 31 33 32 0D 0A 20 20 20 20 20 20 20 20 te 132..
0180E0: 20 20 20 20 20 53 70 61 6C 74 65 6E 2D 4D 6F 64 Spalten-Mod
0180F0: 75 73 20 61 75 66 20 38 30 20 53 70 61 6C 74 65 us auf 80 Spalte
018100: 6E 20 28 31 31 22 29 20 44 72 75 63 6B 65 72 6E n (11") Druckern
018110: 2E 0D 0A 28 2A 2E 4C 2D 2A 29 20 20 20 20 20 4C ...(*.L-*) L
018120: 69 73 74 65 20 64 69 65 20 66 6F 6C 67 65 6E 64 iste die folgend
018130: 65 6E 20 5A 65 69 6C 65 6E 20 6E 69 63 68 74 2E en Zeilen nicht.
018140: 0D 0A 28 2A 2E 4C 2B 2A 29 20 20 20 20 20 4C 69 ..(*.L+*) Li
018150: 73 74 65 20 77 69 65 64 65 72 2E 20 44 61 73 20 ste wieder. Das
018160: 69 73 74 20 64 69 65 20 56 6F 72 65 69 6E 73 74 ist die Voreinst
018170: 65 6C 6C 75 6E 67 2E 0D 0A 28 2A 2E 55 2B 2A 29 ellung...(*.U+*)
018180: 20 20 20 20 20 5A 65 69 67 65 20 20 62 65 73 74 Zeige best
018190: 69 6D 6D 74 65 20 20 57 6F 65 72 74 65 72 20 20 immte Woerter
0181A0: 68 65 6C 6C 65 72 20 20 20 28 68 69 6C 69 67 68 heller (hiligh
0181B0: 74 29 2E 20 20 20 44 69 65 73 65 0D 0A 20 20 20 t). Diese..
0181C0: 20 20 20 20 20 20 20 20 20 22 53 63 68 6C 75 65 "Schlue
0181D0: 73 73 65 6C 77 6F 65 72 74 65 72 22 20 20 77 65 sselwoerter" we
0181E0: 72 64 65 6E 20 20 69 6E 20 20 6F 62 69 67 65 20 rden in obige
0181F0: 20 41 72 74 20 20 20 61 6E 67 65 7A 65 69 67 74 Art angezeigt
018200: 54 20 26 70 61 72 6D 73 20 20 20 20 20 20 20 20 T &parms
018210: 2D 2D 20 20 6C 69 65 73 20 50 41 52 4D 53 2E 4C -- lies PARMS.L
018220: 54 50 20 65 69 6E 2C 20 75 6E 64 20 62 65 6E 75 TP ein, und benu
018230: 74 7A 65 20 64 69 65 20 64 61 72 69 6E 0D 0A 20 tze die darin..
018240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018250: 20 20 20 20 20 20 20 20 20 20 20 73 70 65 7A 69 spezi
018260: 66 69 7A 69 65 72 74 65 6E 20 45 69 6E 2D 20 75 fizierten Ein- u
018270: 6E 64 20 41 75 73 67 61 62 65 64 61 74 65 69 65 nd Ausgabedateie
018280: 6E 0D 0A 0D 0A 49 68 72 65 20 50 72 6F 67 72 61 n....Ihre Progra
018290: 6D 6D 64 61 74 65 69 65 6E 20 6B 6F 65 6E 6E 65 mmdateien koenne
0182A0: 6E 20 50 75 6E 6B 74 2D 42 65 66 65 68 6C 65 20 n Punkt-Befehle
0182B0: 65 6E 74 68 61 6C 74 65 6E 2C 20 20 64 69 65 20 enthalten, die
0182C0: 64 69 65 20 57 65 72 74 65 0D 0A 76 6F 6E 20 20 die Werte..von
0182D0: 4C 69 73 74 54 20 20 50 61 72 61 6D 65 74 65 72 ListT Parameter
0182E0: 6E 20 20 76 65 72 61 65 6E 64 65 72 6E 2E 20 20 n veraendern.
0182F0: 44 69 65 73 65 20 20 73 69 6E 64 20 20 73 70 65 Diese sind spe
018300: 7A 69 66 69 7A 69 65 72 74 20 20 64 75 72 63 68 zifiziert durch
018310: 0D 0A 64 61 73 20 50 6C 61 7A 69 65 72 65 6E 20 ..das Plazieren
018320: 76 6F 6E 20 42 65 66 65 68 6C 65 6E 20 64 65 72 von Befehlen der
018330: 20 46 6F 72 6D 20 28 2A 2E 78 78 2A 29 69 6E 20 Form (*.xx*)in
018340: 64 65 6D 20 50 72 6F 67 72 61 6D 6D 74 65 78 74 dem Programmtext
018350: 2E 20 20 44 69 65 0D 0A 42 65 66 65 68 6C 65 20 . Die..Befehle
018360: 73 69 6E 64 3A 0D 0A 0D 0A 28 2A 2E 50 4C 6E 6E sind:....(*.PLnn
018370: 2A 29 20 20 20 53 65 74 7A 65 20 20 64 69 65 20 *) Setze die
018380: 20 53 65 69 74 65 6E 6C 61 65 6E 67 65 20 61 75 Seitenlaenge au
018390: 66 20 6E 6E 20 5A 65 69 6C 65 6E 20 20 70 72 6F f nn Zeilen pro
0183A0: 20 20 53 65 69 74 65 20 20 75 6E 64 0D 0A 20 20 Seite und..
0183B0: 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6E 6E beginn
0183C0: 65 20 65 69 6E 65 20 6E 65 75 65 20 53 65 69 74 e eine neue Seit
0183D0: 65 2E 20 44 69 65 20 56 6F 72 65 69 6E 73 74 65 e. Die Voreinste
0183E0: 6C 6C 75 6E 67 20 69 73 74 20 36 36 2E 0D 0A 28 llung ist 66...(
0183F0: 2A 2E 50 4F 6E 6E 2A 29 20 20 20 45 69 6E 72 75 *.POnn*) Einru
018400: 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 77 ,.. w
018410: 65 6E 6E 20 6B 65 69 6E 65 20 68 69 2F 6C 6F 6C enn keine hi/lol
018420: 69 67 68 74 20 53 69 67 6E 61 6C 65 20 73 70 65 ight Signale spe
018430: 7A 69 66 69 7A 69 65 72 74 20 77 75 72 64 65 6E zifiziert wurden
018440: 2E 0D 0A 28 2A 2E 55 2D 2A 29 20 20 20 20 20 42 ...(*.U-*) B
018450: 65 65 6E 64 65 20 68 69 6C 69 67 68 74 20 66 75 eende hilight fu
018460: 65 72 20 64 69 65 20 22 53 63 68 6C 75 65 73 73 er die "Schluess
018470: 65 6C 77 6F 65 72 74 65 72 22 2E 20 44 61 73 20 elwoerter". Das
018480: 69 73 74 20 64 69 65 0D 0A 20 20 20 20 20 20 20 ist die..
018490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0184A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0184B0: 20 20 20 20 20 20 20 20 56 6F 72 65 69 6E 73 74 Voreinst
0184C0: 65 6C 6C 75 6E 67 2E 0D 0A 28 2A 2E 4E 2B 2A 29 ellung...(*.N+*)
0184D0: 20 20 20 20 20 42 65 67 69 6E 6E 65 20 5A 65 69 Beginne Zei
0184E0: 6C 65 6E 6E 75 6D 6D 65 72 69 65 72 75 6E 67 20 lennummerierung
0184F0: 66 75 65 72 20 64 61 73 20 4C 69 73 74 65 6E 2E fuer das Listen.
018500: 0D 0A 28 2A 2E 4E 2D 2A 29 20 20 20 20 20 42 65 ..(*.N-*) Be
018510: 65 6E 64 65 20 5A 65 69 6C 65 6E 6E 75 6D 6D 65 ende Zeilennumme
018520: 72 69 65 72 75 6E 67 2E 20 44 61 73 20 69 73 74 rierung. Das ist
018530: 20 64 69 65 20 56 6F 72 65 69 6E 73 74 65 6C 6C die Voreinstell
018540: 75 6E 67 2E 0D 0A 28 2A 2E 50 2B 2A 29 20 20 20 ung...(*.P+*)
018550: 20 20 42 65 67 69 6E 6E 65 20 65 69 6E 65 20 6E Beginne eine n
018560: 65 75 65 20 53 65 69 74 65 20 66 75 65 72 20 6A eue Seite fuer j
018570: 65 64 65 20 49 6E 63 6C 75 64 65 2D 44 61 74 65 ede Include-Date
018580: 69 2E 0D 0A 28 2A 2E 50 2D 2A 29 20 20 20 20 20 i...(*.P-*)
018590: 42 65 67 69 6E 6E 65 20 6B 65 69 6E 65 20 6E 65 Beginne keine ne
0185A0: 75 65 20 5A 65 69 6C 65 20 66 75 65 72 20 22 20 ue Zeile fuer "
0185B0: 20 20 20 20 20 20 20 20 20 20 20 20 22 20 20 20 "
0185C0: 20 2E 0D 0A 28 24 49 66 69 6C 65 2A 29 20 20 20 ...($Ifile*)
0185D0: 46 61 73 73 65 20 44 61 74 65 69 20 22 44 61 74 Fasse Datei "Dat
0185E0: 65 69 22 20 69 6E 20 4C 69 73 74 65 20 7A 75 73 ei" in Liste zus
0185F0: 61 6D 6D 65 6E 2E 20 28 77 69 65 20 64 65 72 20 ammen. (wie der
018600: 65 63 6B 75 6E 67 20 75 6D 20 6E 6E 20 5A 65 69 eckung um nn Zei
018610: 63 68 65 6E 2E 20 20 44 69 65 20 56 6F 72 65 69 chen. Die Vorei
018620: 6E 73 74 65 6C 6C 75 6E 67 20 20 69 73 74 20 20 nstellung ist
018630: 30 2E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 0...
018640: 44 69 65 73 20 20 73 6F 6C 6C 74 65 20 20 6E 75 Dies sollte nu
018650: 72 20 62 65 6E 75 74 7A 74 20 77 65 72 64 65 6E r benutzt werden
018660: 2C 20 20 77 65 6E 6E 20 64 65 72 20 44 72 75 63 , wenn der Druc
018670: 6B 65 72 20 20 64 65 6E 0D 0A 20 20 20 20 20 20 ker den..
018680: 20 20 20 20 20 20 6C 69 6E 6B 65 6E 20 52 61 6E linken Ran
018690: 64 20 64 65 73 20 50 61 70 69 65 72 73 20 20 77 d des Papiers w
0186A0: 65 67 6C 61 65 73 73 74 2E 0D 0A 28 2A 2E 4C 57 eglaesst...(*.LW
0186B0: 6E 6E 2A 29 20 20 20 53 65 74 7A 65 20 20 64 69 nn*) Setze di
0186C0: 65 20 20 5A 65 69 6C 65 6E 62 72 65 69 74 65 20 e Zeilenbreite
0186D0: 20 64 65 73 20 20 44 72 75 63 6B 65 72 73 20 20 des Druckers
0186E0: 61 75 66 20 20 6E 6E 2E 20 20 20 44 69 65 0D 0A auf nn. Die..
0186F0: 20 20 20 20 20 20 20 20 20 20 20 20 56 6F 72 65 Vore
018700: 69 6E 73 74 65 6C 6C 75 6E 67 20 20 69 73 74 20 instellung ist
018710: 20 37 39 2C 20 20 64 61 20 65 69 6E 69 67 65 20 79, da einige
018720: 44 72 75 63 6B 65 72 20 20 65 69 6E 65 20 20 6E Drucker eine n
018730: 65 75 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 eue..
018740: 20 5A 65 69 6C 65 20 20 62 65 67 69 6E 6E 65 6E Zeile beginnen
018750: 2C 20 20 77 65 6E 6E 20 20 73 69 65 20 64 61 73 , wenn sie das
018760: 20 38 30 74 65 20 5A 65 69 63 68 65 6E 20 20 69 80te Zeichen i
018770: 6E 20 20 65 69 6E 65 72 0D 0A 20 20 20 20 20 20 n einer..
018780: 20 20 20 20 20 20 5A 65 69 6C 65 20 20 65 72 72 Zeile err
018790: 65 69 63 68 74 20 20 68 61 62 65 6E 2E 20 20 20 eicht haben.
0187A0: 44 61 73 20 20 66 75 65 68 72 74 20 20 64 61 6E Das fuehrt dan
0187B0: 6E 20 20 7A 75 20 20 20 65 69 6E 65 72 0D 0A 20 n zu einer..
0187C0: 20 20 20 20 20 20 20 20 20 20 20 4C 65 65 72 7A Leerz
0187D0: 65 69 6C 65 20 20 20 61 75 66 20 20 20 64 65 72 eile auf der
0187E0: 20 20 20 53 65 69 74 65 20 20 75 6E 64 20 20 20 Seite und
0187F0: 76 65 72 61 6E 6C 61 7E 74 20 20 20 4C 69 73 74 veranla~t List
018800: 43 6F 6D 70 69 6C 65 72 29 0D 0A 0D 0A 4E 69 63 Compiler)....Nic
018810: 68 74 20 20 65 72 6B 61 6E 6E 74 65 20 6F 64 65 ht erkannte ode
018820: 72 20 75 6E 7A 75 6C 61 65 73 73 69 67 65 20 50 r unzulaessige P
018830: 75 6E 6B 74 62 65 66 65 68 6C 65 20 77 65 72 64 unktbefehle werd
018840: 65 6E 20 20 61 75 73 67 65 64 72 75 63 6B 74 2C en ausgedruckt,
018850: 0D 0A 61 62 65 72 20 7A 75 6C 61 65 73 73 69 67 ..aber zulaessig
018860: 65 20 77 65 72 64 65 6E 20 6E 69 63 68 74 20 69 e werden nicht i
018870: 6E 20 64 65 72 20 4C 69 73 74 75 6E 67 20 61 75 n der Listung au
018880: 66 67 65 66 75 65 68 72 74 2C 20 6F 62 77 6F 68 fgefuehrt, obwoh
018890: 6C 20 73 69 65 0D 0A 6E 6F 63 68 20 20 61 6C 73 l sie..noch als
0188A0: 20 20 5A 65 69 6C 65 6E 6E 75 6D 6D 65 72 20 20 Zeilennummer
0188B0: 67 65 7A 61 65 68 6C 74 20 20 77 65 72 64 65 6E gezaehlt werden
0188C0: 2E 20 20 20 50 75 6E 6B 74 62 65 66 65 68 6C 65 . Punktbefehle
0188D0: 20 20 20 73 6F 6C 6C 74 65 6E 0D 0A 67 65 73 63 sollten..gesc
0188E0: 68 6C 6F 73 73 65 6E 20 20 77 65 72 64 65 6E 2C hlossen werden,
0188F0: 20 20 64 2E 68 2E 20 20 77 65 6E 6E 20 20 53 69 d.h. wenn Si
018900: 65 20 20 7A 75 20 65 69 6E 65 6D 20 20 50 75 6E e zu einem Pun
018910: 6B 74 62 65 66 65 68 6C 20 20 65 69 6E 65 6E 0D ktbefehl einen.
018920: 0A 4B 6F 6D 6D 65 6E 74 61 72 20 6D 61 63 68 65 .Kommentar mache
018930: 6E 20 77 6F 6C 6C 65 6E 2C 20 74 75 6E 20 53 69 n wollen, tun Si
018940: 65 20 64 69 65 73 20 66 6F 6C 67 65 6E 64 65 72 e dies folgender
018950: 6D 61 61 65 6E 3A 0D 0A 28 2A 2E 50 41 2A 29 20 maaen:..(*.PA*)
018960: 7B 20 42 65 67 69 6E 6E 65 20 65 69 6E 65 20 6E { Beginne eine n
018970: 65 75 65 20 53 65 69 74 65 20 7D 0D 0A 0D 0A 49 eue Seite }....I
018980: 6E 63 6C 75 64 65 2D 44 61 74 65 69 65 6E 20 20 nclude-Dateien
018990: 6B 6F 65 6E 6E 65 6E 20 20 6E 69 63 68 74 20 69 koennen nicht i
0189A0: 6E 65 69 6E 61 6E 64 65 72 67 65 73 74 65 6C 6C neinandergestell
0189B0: 74 20 20 77 65 72 64 65 6E 2C 20 20 75 6E 64 20 t werden, und
0189C0: 20 65 69 6E 0D 0A 61 6E 64 65 72 65 72 20 20 54 ein..anderer T
0189D0: 65 78 74 20 20 69 6E 20 20 64 65 72 20 5A 65 69 ext in der Zei
0189E0: 6C 65 2C 20 6D 69 74 20 65 69 6E 65 6D 20 20 49 le, mit einem I
0189F0: 6E 63 6C 75 64 65 2D 42 65 66 65 68 6C 2C 20 6B nclude-Befehl, k
018A00: 54 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 61 T.. a
018A10: 6E 7A 75 7A 65 69 67 65 6E 2C 20 77 6F 20 64 69 nzuzeigen, wo di
018A20: 65 20 6E 65 75 65 20 53 65 69 74 65 20 62 65 67 e neue Seite beg
018A30: 69 6E 6E 74 2E 0D 0A 28 2A 2E 50 41 2A 29 20 20 innt...(*.PA*)
018A40: 20 20 20 42 65 67 69 6E 6E 65 20 65 69 6E 65 20 Beginne eine
018A50: 6E 65 75 65 20 53 65 69 74 65 2E 0D 0A 28 2A 2E neue Seite...(*.
018A60: 43 50 6E 6E 2A 29 20 20 20 42 65 67 69 6E 6E 65 CPnn*) Beginne
018A70: 20 65 69 6E 65 20 6E 65 75 65 20 53 65 69 74 65 eine neue Seite
018A80: 2C 20 77 65 6E 6E 20 6E 75 72 20 6E 6F 63 68 20 , wenn nur noch
018A90: 77 65 6E 69 67 65 72 20 61 6C 73 20 6E 6E 0D 0A weniger als nn..
018AA0: 20 20 20 20 20 20 20 20 20 20 20 20 5A 65 69 6C Zeil
018AB0: 65 6E 20 61 75 66 20 64 69 65 73 65 72 20 53 65 en auf dieser Se
018AC0: 69 74 65 20 75 65 62 72 69 67 20 73 69 6E 64 2E ite uebrig sind.
018AD0: 0D 0A 28 2A 2E 48 45 74 65 78 74 2A 29 20 53 65 ..(*.HEtext*) Se
018AE0: 74 7A 65 20 64 69 65 20 4B 6F 70 66 7A 65 69 6C tze die Kopfzeil
018AF0: 65 20 61 6E 20 64 65 6E 20 41 6E 66 61 6E 67 20 e an den Anfang
018B00: 64 65 73 20 54 65 78 74 65 73 2E 20 20 42 65 73 des Textes. Bes
018B10: 6F 6E 64 65 72 65 0D 0A 20 20 20 20 20 20 20 20 ondere..
018B20: 20 20 20 20 25 20 20 46 6F 6C 67 65 6E 20 73 69 % Folgen si
018B30: 6E 64 20 76 6F 72 67 65 73 65 68 65 6E 20 28 73 nd vorgesehen (s
018B40: 69 65 68 65 20 75 6E 74 65 6E 29 2E 0D 0A 20 20 iehe unten)...
018B50: 20 20 20 20 20 20 20 20 20 20 44 69 65 20 56 6F Die Vo
018B60: 72 65 69 6E 73 74 65 6C 6C 75 6E 67 20 69 73 74 reinstellung ist
018B70: 20 22 4C 69 73 74 65 6E 20 76 6F 6E 20 25 46 2C "Listen von %F,
018B80: 20 53 65 69 74 65 20 25 23 20 61 75 66 20 25 54 Seite %# auf %T
018B90: 20 25 44 22 0D 0A 28 2A 2E 46 4F 74 65 78 74 2A %D"..(*.FOtext*
018BA0: 29 20 53 65 74 7A 65 20 46 75 7E 7A 65 69 6C 65 ) Setze Fu~zeile
018BB0: 20 7A 75 6D 20 22 54 65 78 74 22 2E 20 44 69 65 zum "Text". Die
018BC0: 20 56 6F 72 65 69 6E 73 74 65 6C 6C 75 6E 67 20 Voreinstellung
018BD0: 69 73 74 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ist..
018BE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018BF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018C00: 61 6E 6E 20 20 6E 69 63 68 74 0D 0A 6B 6F 72 72 ann nicht..korr
018C10: 65 6B 74 20 61 75 73 67 65 64 72 75 63 6B 74 20 ekt ausgedruckt
018C20: 77 65 72 64 65 6E 2E 0D 0A 0D 0A 44 69 65 20 20 werden.....Die
018C30: 4B 6F 70 66 2D 20 75 6E 64 20 46 75 7E 7A 65 69 Kopf- und Fu~zei
018C40: 6C 65 20 6B 61 6E 6E 20 65 69 6E 65 73 20 64 65 le kann eines de
018C50: 72 20 20 66 6F 6C 67 65 6E 64 65 6E 20 20 5A 65 r folgenden Ze
018C60: 69 63 68 65 6E 0D 0A 65 6E 74 68 61 6C 74 65 6E ichen..enthalten
018C70: 2C 20 20 20 65 69 6E 67 65 6C 65 69 74 65 74 20 , eingeleitet
018C80: 20 64 75 72 63 68 20 20 65 69 6E 20 20 27 25 27 durch ein '%'
018C90: 2C 20 20 20 75 6D 20 20 62 65 73 6F 6E 64 65 72 , um besonder
018CA0: 65 20 20 53 74 72 69 6E 67 73 0D 0A 61 6E 7A 75 e Strings..anzu
018CB0: 67 65 62 65 6E 3A 0D 0A 0D 0A 20 20 23 20 3D 20 geben:.... # =
018CC0: 64 69 65 20 67 65 67 65 6E 77 61 65 72 74 69 67 die gegenwaertig
018CD0: 65 20 53 65 69 74 65 6E 6E 75 6D 6D 65 72 0D 0A e Seitennummer..
018CE0: 20 20 54 20 20 3D 20 20 64 69 65 20 20 61 6B 74 T = die akt
018CF0: 75 65 6C 6C 65 20 53 79 73 74 65 6D 7A 65 69 74 uelle Systemzeit
018D00: 20 28 62 65 69 20 4D 53 2F 50 43 2D 44 4F 53 20 (bei MS/PC-DOS
018D10: 76 6F 6E 20 20 64 65 72 20 20 53 79 73 74 65 6D von der System
018D20: 75 68 72 0D 0A 20 20 20 20 20 20 20 20 20 20 20 uhr..
018D30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018D40: 20 20 20 20 20 20 20 20 67 65 6C 65 73 65 6E 2C gelesen,
018D50: 20 62 65 69 20 43 50 2F 4D 2D 38 30 2F 38 36 20 bei CP/M-80/86
018D60: 6D 61 6E 75 65 6C 6C 0D 0A 20 20 20 20 20 20 20 manuell..
018D70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018D80: 20 20 20 20 20 20 20 20 20 20 20 20 65 69 6E 67 eing
018D90: 65 67 65 62 65 6E 29 0D 0A 20 20 44 20 3D 20 64 egeben).. D = d
018DA0: 61 73 20 61 6B 74 75 65 6C 6C 65 20 53 79 73 74 as aktuelle Syst
018DB0: 65 6D 64 61 74 75 6D 0D 0A 20 20 46 20 3D 20 64 emdatum.. F = d
018DC0: 65 72 20 4E 61 6D 65 20 64 65 72 20 67 65 6C 69 er Name der geli
018DD0: 73 74 65 74 65 6E 20 44 61 74 65 69 20 28 75 6E steten Datei (un
018DE0: 64 20 64 65 72 20 4E 61 6D 65 20 64 65 72 20 6D d der Name der m
018DF0: 6F 6D 65 6E 74 61 6E 65 6E 0D 0A 20 20 20 20 20 omentanen..
018E00: 20 20 20 20 20 20 20 20 20 22 25 46 20 53 65 69 "%F Sei
018E10: 74 65 20 25 23 22 0D 0A 28 2A 2E 48 49 74 65 78 te %#"..(*.HItex
018E20: 74 2A 29 20 53 65 74 7A 65 20 64 69 65 20 22 68 t*) Setze die "h
018E30: 69 6C 69 67 68 74 20 53 65 71 75 65 6E 7A 22 20 ilight Sequenz"
018E40: 64 75 72 63 68 20 22 54 65 78 74 22 2E 20 4B 65 durch "Text". Ke
018E50: 69 6E 65 20 56 6F 72 65 69 6E 73 74 65 6C 6C 75 ine Voreinstellu
018E60: 6E 67 2E 0D 0A 28 2A 2E 4C 4F 74 65 78 74 2A 29 ng...(*.LOtext*)
018E70: 20 53 65 74 7A 65 20 64 69 65 20 22 6C 6F 6C 69 Setze die "loli
018E80: 67 68 74 20 53 65 71 75 65 6E 7A 22 20 64 75 72 ght Sequenz" dur
018E90: 63 68 20 22 54 65 78 74 22 2E 20 4B 65 69 6E 65 ch "Text". Keine
018EA0: 20 56 6F 72 65 69 6E 73 74 65 6C 6C 75 6E 67 2E Voreinstellung.
018EB0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 57 .. W
018EC0: 65 6E 6E 20 20 64 69 65 73 65 20 20 62 65 69 64 enn diese beid
018ED0: 65 6E 20 67 65 73 65 74 7A 74 20 77 65 72 64 65 en gesetzt werde
018EE0: 6E 2C 20 20 75 6E 64 20 20 65 69 6E 65 0D 0A 20 n, und eine..
018EF0: 20 20 20 20 20 20 20 20 20 20 20 20 22 68 69 6C "hil
018F00: 69 67 68 74 20 20 57 69 72 6B 75 6E 67 22 20 66 ight Wirkung" f
018F10: 75 65 72 20 62 65 73 74 69 6D 6D 74 65 20 57 6F uer bestimmte Wo
018F20: 65 72 74 65 72 20 69 73 74 20 62 65 61 62 73 69 erter ist beabsi
018F30: 63 68 74 69 67 74 2C 0D 0A 20 20 20 20 20 20 20 chtigt,..
018F40: 20 20 20 20 20 20 6B 6F 65 6E 6E 65 6E 20 20 64 koennen d
018F50: 75 72 63 68 20 64 69 65 73 65 20 53 65 71 75 65 urch diese Seque
018F60: 6E 7A 20 77 69 63 68 74 69 67 65 20 57 6F 65 72 nz wichtige Woer
018F70: 74 65 72 20 68 65 6C 6C 65 72 20 20 64 61 72 67 ter heller darg
018F80: 65 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 e-..
018F90: 20 73 74 65 6C 6C 74 20 20 77 65 72 64 65 6E 2E stellt werden.
018FA0: 20 20 53 69 65 20 20 6B 6F 65 6E 6E 74 65 6E 20 Sie koennten
018FB0: 62 65 69 73 70 69 65 6C 73 77 65 69 73 65 20 64 beispielsweise d
018FC0: 69 65 20 20 53 65 71 75 65 6E 7A 65 6E 0D 0A 20 ie Sequenzen..
018FD0: 20 20 20 20 20 20 20 20 20 20 20 20 73 70 65 7A spez
018FE0: 69 66 69 7A 69 65 72 65 6E 2C 20 20 20 64 69 65 ifizieren, die
018FF0: 20 20 49 68 72 65 6E 20 20 44 72 75 63 6B 65 72 Ihren Drucker
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 52 E5 15 00 41 02 00 00 00 02 ......R...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: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6E In
019130: 63 6C 75 64 65 2D 44 61 74 65 69 29 0D 0A 20 20 clude-Datei)..
019140: 3C 20 3D 20 4C 69 6E 6B 73 2D 4A 75 73 74 69 65 < = Links-Justie
019150: 72 75 6E 67 20 64 69 65 73 65 72 20 4B 6F 70 66 rung dieser Kopf
019160: 2D 2F 46 75 7E 7A 65 69 6C 65 0D 0A 20 20 3E 20 -/Fu~zeile.. >
019170: 3D 20 52 65 63 68 74 73 2D 4A 75 73 74 69 65 72 = Rechts-Justier
019180: 75 6E 67 20 64 69 65 73 65 72 20 4B 6F 70 66 2D ung dieser Kopf-
019190: 2F 46 75 7E 7A 65 69 6C 65 0D 0A 20 20 5B 20 3D /Fu~zeile.. [ =
0191A0: 20 4C 69 6E 6B 73 2D 4A 75 73 74 69 65 72 75 6E Links-Justierun
0191B0: 67 20 20 62 65 69 20 20 75 6E 67 65 72 61 64 7A g bei ungeradz
0191C0: 61 68 6C 69 67 65 6E 20 20 20 53 65 69 74 65 6E ahligen Seiten
0191D0: 2C 20 20 20 52 65 63 68 74 73 2D 0D 0A 20 20 20 , Rechts-..
0191E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0191F0: 20 20 20 20 20 20 20 20 20 20 20 4A 75 73 74 69 Justi
019200: 65 72 75 6E 67 20 62 65 69 20 67 65 72 61 64 7A erung bei geradz
019210: 61 68 6C 69 67 65 6E 20 53 65 69 74 65 6E 0D 0A ahligen Seiten..
019220: 20 20 5D 20 3D 20 52 65 63 68 74 73 2D 4A 75 73 ] = Rechts-Jus
019230: 74 69 65 72 75 6E 67 20 62 65 69 20 75 6E 67 65 tierung bei unge
019240: 72 61 64 7A 61 68 6C 69 67 65 6E 20 53 65 69 74 radzahligen Seit
019250: 65 6E 2C 20 4C 69 6E 6B 73 2D 0D 0A 20 20 20 20 en, Links-..
019260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019270: 20 20 20 20 20 20 20 20 20 20 4A 75 73 74 69 65 Justie
019280: 72 75 6E 67 20 62 65 69 20 67 65 72 61 64 7A 61 rung bei geradza
019290: 68 6C 69 67 65 6E 20 53 65 69 74 65 6E 0D 0A 20 hligen Seiten..
0192A0: 20 6A 65 64 65 73 20 61 6E 64 65 72 65 20 5A 65 jedes andere Ze
0192B0: 69 63 68 65 6E 20 3D 20 64 61 73 20 5A 65 69 63 ichen = das Zeic
0192C0: 68 65 6E 20 28 7A 2E 42 2E 20 22 25 25 22 20 77 hen (z.B. "%%" w
0192D0: 69 72 64 20 7A 75 20 22 25 22 29 0D 0A 0D 0A 44 ird zu "%")....D
0192E0: 65 6D 67 65 6D 61 65 7E 20 6B 6F 65 6E 6E 74 65 emgemae~ koennte
0192F0: 20 20 28 2A 2E 68 65 25 3C 53 65 69 74 65 20 20 (*.he%<Seite
019300: 0D 0A 20 20 43 6F 6E 73 74 0D 0A 20 20 20 20 43 .. Const.. C
019310: 6F 70 79 72 69 67 68 74 4D 65 73 73 61 67 65 3A opyrightMessage:
019320: 20 41 72 72 61 79 20 5B 31 2E 2E 36 39 5D 20 4F Array [1..69] O
019330: 66 20 43 68 61 72 3D 0D 0A 20 20 20 20 20 20 27 f Char=.. '
019340: 4C 69 73 74 54 20 76 65 72 73 69 6F 6E 20 32 2E ListT version 2.
019350: 30 30 41 20 43 6F 70 79 72 69 67 68 74 20 28 43 00A Copyright (C
019360: 29 20 31 39 38 34 2C 20 42 4F 52 4C 41 4E 44 20 ) 1984, BORLAND
019370: 49 6E 74 65 72 6E 61 74 69 6F 6E 61 6C 2C 20 49 International, I
019380: 6E 63 2E 27 5E 4D 5E 4A 3B 0D 0A 0D 0A 20 20 54 nc.'^M^J;.... T
019390: 79 70 65 0D 0A 20 20 20 20 46 69 6C 65 4E 61 6D ype.. FileNam
0193A0: 65 3D 53 74 72 69 6E 67 5B 32 30 5D 3B 0D 0A 20 e=String[20];..
0193B0: 20 20 20 53 74 72 69 6E 67 33 3D 53 74 72 69 6E String3=Strin
0193C0: 67 5B 33 5D 3B 0D 0A 20 20 20 20 53 74 72 69 6E g[3];.. Strin
0193D0: 67 31 30 3D 53 74 72 69 6E 67 5B 31 30 5D 3B 0D g10=String[10];.
0193E0: 0A 20 20 20 20 42 75 66 66 65 72 3D 53 74 72 69 . Buffer=Stri
0193F0: 6E 67 5B 32 30 30 5D 3B 0D 0A 20 20 20 20 50 61 ng[200];.. Pa
019400: 72 73 65 53 74 61 74 65 73 3D 28 50 72 65 4B 65 rseStates=(PreKe
019410: 79 2C 4B 65 79 57 6F 72 64 2C 43 6F 6D 6D 65 6E y,KeyWord,Commen
019420: 74 2C 43 6F 6D 6D 65 6E 74 32 2C 51 75 6F 74 65 t,Comment2,Quote
019430: 64 29 3B 0D 0A 0D 0A 20 20 43 6F 6E 73 74 0D 0A d);.... Const..
019440: 20 20 20 20 50 61 72 61 6D 65 74 65 72 53 65 74 ParameterSet
019450: 53 69 7A 65 3D 35 30 32 3B 0D 0A 0D 0A 20 20 54 Size=502;.... T
019460: 79 70 65 0D 0A 20 20 20 20 50 61 72 61 6D 65 74 ype.. Paramet
019470: 65 72 53 65 74 3D 41 72 72 61 79 20 5B 31 2E 2E erSet=Array [1..
019480: 50 61 72 61 6D 65 74 65 72 53 65 74 53 69 7A 65 ParameterSetSize
019490: 5D 20 4F 66 20 42 79 74 65 3B 0D 0A 20 20 20 20 ] Of Byte;..
0194A0: 50 61 72 61 6D 65 74 65 72 52 65 63 6F 72 64 3D ParameterRecord=
0194B0: 41 72 72 61 79 20 5B 31 2E 2E 31 30 30 30 5D 20 Array [1..1000]
0194C0: 4F 66 20 42 79 74 65 3B 0D 0A 0D 0A 20 20 43 6F Of Byte;.... Co
0194D0: 6E 73 74 0D 0A 20 20 20 20 4E 6F 4C 69 73 74 3A nst.. NoList:
0194E0: 20 42 6F 6F 6C 65 61 6E 3D 46 61 6C 73 65 3B 0D Boolean=False;.
0194F0: 0A 20 20 20 20 50 61 67 65 53 74 61 72 74 65 64 . PageStarted
019500: 23 25 23 20 20 76 6F 6E 20 20 22 25 46 22 20 20 #%# von "%F"
019510: 75 6D 20 20 20 25 54 2C 20 20 25 44 2A 29 20 64 um %T, %D*) d
019520: 69 65 0D 0A 4B 6F 70 66 7A 65 69 6C 65 20 20 76 ie..Kopfzeile v
019530: 6F 6E 20 53 65 69 74 65 20 23 31 37 20 76 6F 6E on Seite #17 von
019540: 20 22 50 52 4F 47 52 41 4D 4D 2E 50 41 53 22 20 "PROGRAMM.PAS"
019550: 20 75 6D 20 20 30 33 3A 32 37 70 6D 2C 20 20 31 um 03:27pm, 1
019560: 30 2F 30 33 2F 38 34 0D 0A 65 72 7A 65 75 67 65 0/03/84..erzeuge
019570: 6E 2E 0D 0A 0D 0A 20 20 20 46 61 6C 6C 73 20 77 n..... Falls w
019580: 65 64 65 72 20 25 3C 20 6E 6F 63 68 20 25 3E 20 eder %< noch %>
019590: 73 70 65 7A 69 66 69 7A 69 65 72 74 20 69 73 74 spezifiziert ist
0195A0: 2C 20 77 69 72 64 20 64 69 65 20 4B 6F 70 66 2D , wird die Kopf-
0195B0: 2F 46 75 7E 7A 65 69 6C 65 20 7A 65 6E 74 72 69 /Fu~zeile zentri
0195C0: 65 72 74 2E 0D 0A 0D 0A 20 20 20 5A 75 73 61 6D ert..... Zusam
0195D0: 6D 65 6E 66 61 73 73 75 6E 67 20 64 65 72 20 56 menfassung der V
0195E0: 6F 72 65 69 6E 73 74 65 6C 6C 75 6E 67 65 6E 20 oreinstellungen
0195F0: 20 76 6F 6E 20 42 65 66 65 68 6C 65 6E 3A 0D 0A von Befehlen:..
019600: 0D 0A 53 65 69 74 65 6E 6C 61 65 6E 67 65 20 20 ..Seitenlaenge
019610: 20 20 20 20 20 20 20 28 2A 2E 50 4C 36 36 2A 29 (*.PL66*)
019620: 0D 0A 45 69 6E 72 75 65 63 6B 75 6E 67 20 20 20 ..Einrueckung
019630: 20 20 20 20 20 20 20 28 2A 2E 50 4F 30 2A 29 0D (*.PO0*).
019640: 0A 5A 65 69 6C 65 6E 62 72 65 69 74 65 20 20 20 .Zeilenbreite
019650: 20 20 20 20 20 20 28 2A 2E 4C 57 37 39 2A 29 0D (*.LW79*).
019660: 0A 4B 6F 70 66 7A 65 69 6C 65 20 20 20 20 20 20 .Kopfzeile
019670: 20 20 20 20 20 20 28 2A 2E 48 45 4C 69 73 74 69 (*.HEListi
019680: 6E 67 20 76 6F 6E 20 25 46 2C 20 53 65 69 74 65 ng von %F, Seite
019690: 20 25 23 20 75 6D 20 25 54 20 25 44 2A 29 0D 0A %# um %T %D*)..
0196A0: 46 75 7E 7A 65 69 6C 65 20 20 20 20 20 20 20 20 Fu~zeile
0196B0: 20 20 20 20 20 28 2A 2E 46 4F 25 46 20 53 65 69 (*.FO%F Sei
0196C0: 74 65 20 25 23 2A 29 0D 0A 48 69 6C 69 74 65 20 te %#*)..Hilite
0196D0: 53 69 67 6E 61 6C 20 20 20 20 20 20 20 20 28 2A Signal (*
0196E0: 2E 48 49 2A 29 0D 0A 4C 6F 6C 69 74 65 20 53 69 .HI*)..Lolite Si
0196F0: 67 6E 61 6C 20 20 20 20 20 20 20 20 28 2A 2E 4C gnal (*.L
019700: 3A 20 42 6F 6F 6C 65 61 6E 3D 46 61 6C 73 65 3B : Boolean=False;
019710: 0D 0A 20 20 20 20 49 6E 49 6E 63 6C 75 64 65 3A .. InInclude:
019720: 20 42 6F 6F 6C 65 61 6E 3D 46 61 6C 73 65 3B 0D Boolean=False;.
019730: 0A 20 20 20 20 43 6F 6D 6D 61 6E 64 4C 69 6E 65 . CommandLine
019740: 53 74 61 72 74 75 70 3A 20 42 6F 6F 6C 65 61 6E Startup: Boolean
019750: 3D 46 61 6C 73 65 3B 0D 0A 20 20 20 20 50 61 72 =False;.. Par
019760: 73 65 53 74 61 74 65 3A 20 50 61 72 73 65 53 74 seState: ParseSt
019770: 61 74 65 73 3D 50 72 65 4B 65 79 3B 0D 0A 20 20 ates=PreKey;..
019780: 20 20 59 65 73 4E 6F 3A 20 41 72 72 61 79 20 5B YesNo: Array [
019790: 46 61 6C 73 65 2E 2E 54 72 75 65 5D 20 4F 66 20 False..True] Of
0197A0: 53 74 72 69 6E 67 5B 33 5D 3D 28 27 4E 6F 27 2C String[3]=('No',
0197B0: 27 59 65 73 27 29 3B 0D 0A 0D 0A 20 20 56 61 72 'Yes');.... Var
0197C0: 0D 0A 20 20 20 20 50 61 67 65 4C 65 6E 67 74 68 .. PageLength
0197D0: 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 : Integer;..
0197E0: 4C 69 6E 65 57 69 64 74 68 3A 20 49 6E 74 65 67 LineWidth: Integ
0197F0: 65 72 3B 0D 0A 20 20 20 20 48 69 4C 69 74 65 3A er;.. HiLite:
019800: 20 53 74 72 69 6E 67 31 30 3B 0D 0A 20 20 20 20 String10;..
019810: 4C 6F 4C 69 74 65 3A 20 53 74 72 69 6E 67 31 30 LoLite: String10
019820: 3B 0D 0A 20 20 20 20 49 6E 69 74 53 74 72 69 6E ;.. InitStrin
019830: 67 3A 20 53 74 72 69 6E 67 31 30 3B 0D 0A 20 20 g: String10;..
019840: 20 20 45 78 69 74 53 74 72 69 6E 67 3A 20 53 74 ExitString: St
019850: 72 69 6E 67 31 30 3B 0D 0A 20 20 20 20 4C 69 6E ring10;.. Lin
019860: 65 4E 75 6D 62 65 72 73 3A 20 42 6F 6F 6C 65 61 eNumbers: Boolea
019870: 6E 3B 0D 0A 20 20 20 20 55 70 4B 65 79 73 3A 20 n;.. UpKeys:
019880: 42 6F 6F 6C 65 61 6E 3B 0D 0A 20 20 20 20 50 61 Boolean;.. Pa
019890: 67 65 46 6F 72 49 6E 63 6C 75 64 65 73 3A 20 42 geForIncludes: B
0198A0: 6F 6F 6C 65 61 6E 3B 0D 0A 20 20 20 20 49 6E 64 oolean;.. Ind
0198B0: 65 6E 74 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 20 ent: Integer;..
0198C0: 20 20 20 48 65 61 64 69 6E 67 3A 20 42 75 66 66 Heading: Buff
0198D0: 65 72 3B 0D 0A 20 20 20 20 46 6F 6F 74 69 6E 67 er;.. Footing
0198E0: 3A 20 42 75 66 66 65 72 3B 0D 0A 20 20 20 20 43 : Buffer;.. C
0198F0: 75 72 72 65 6E 74 50 61 67 65 4E 75 6D 62 65 72 urrentPageNumber
019900: 4F 2A 29 0D 0A 4C 69 73 74 65 72 20 65 69 6E 2F O*)..Lister ein/
019910: 61 75 73 20 20 20 20 20 20 20 28 2A 2E 4C 2B 2A aus (*.L+*
019920: 29 0D 0A 22 53 63 68 6C 75 65 73 73 65 6C 77 6F ).."Schluesselwo
019930: 72 74 22 20 68 69 6C 69 74 65 20 20 20 28 2A 2E rt" hilite (*.
019940: 55 2D 2A 29 0D 0A 5A 65 69 6C 65 6E 6E 75 6D 6D U-*)..Zeilennumm
019950: 65 72 20 20 20 20 20 20 20 20 20 28 2A 2E 4E 2D er (*.N-
019960: 2A 29 0D 0A 53 65 69 74 65 20 66 75 65 72 20 49 *)..Seite fuer I
019970: 6E 63 6C 75 64 65 73 20 20 28 2A 2E 50 2D 2A 29 ncludes (*.P-*)
019980: 0D 0A 0D 0A 20 20 20 57 69 72 20 20 68 6F 66 66 .... Wir hoff
019990: 65 6E 2C 20 20 64 61 7E 20 64 69 65 73 65 73 20 en, da~ dieses
0199A0: 50 72 6F 67 72 61 6D 6D 20 65 69 6E 65 20 6E 75 Programm eine nu
0199B0: 65 74 7A 6C 69 63 68 65 20 45 72 67 61 65 6E 7A etzliche Ergaenz
0199C0: 75 6E 67 20 20 7A 75 0D 0A 20 20 20 54 75 72 62 ung zu.. Turb
0199D0: 6F 20 50 61 73 63 61 6C 20 69 73 74 2E 0D 0A 1A o Pascal ist....
0199E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0199F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
019A00: 0D 0A 53 65 69 74 65 6E 6C 61 65 6E 67 65 20 20 ..Seitenlaenge
019A10: 20 20 20 20 20 20 20 28 2A 2E 50 4C 36 36 2A 29 (*.PL66*)
019A20: 0D 0A 45 69 6E 72 75 65 63 6B 75 6E 67 20 20 20 ..Einrueckung
019A30: 20 20 20 20 20 20 20 28 2A 2E 50 4F 30 2A 29 0D (*.PO0*).
019A40: 0A 5A 65 69 6C 65 6E 62 72 65 69 74 65 20 20 20 .Zeilenbreite
019A50: 20 20 20 20 20 20 28 2A 2E 4C 57 37 39 2A 29 0D (*.LW79*).
019A60: 0A 4B 6F 70 66 7A 65 69 6C 65 20 20 20 20 20 20 .Kopfzeile
019A70: 20 20 20 20 20 20 28 2A 2E 48 45 4C 69 73 74 69 (*.HEListi
019A80: 6E 67 20 76 6F 6E 20 25 46 2C 20 53 65 69 74 65 ng von %F, Seite
019A90: 20 25 23 20 75 6D 20 25 54 20 25 44 2A 29 0D 0A %# um %T %D*)..
019AA0: 46 75 7E 7A 65 69 6C 65 20 20 20 20 20 20 20 20 Fu~zeile
019AB0: 20 20 20 20 20 28 2A 2E 46 4F 25 46 20 53 65 69 (*.FO%F Sei
019AC0: 74 65 20 25 23 2A 29 0D 0A 48 69 6C 69 74 65 20 te %#*)..Hilite
019AD0: 53 69 67 6E 61 6C 20 20 20 20 20 20 20 20 28 2A Signal (*
019AE0: 2E 48 49 2A 29 0D 0A 4C 6F 6C 69 74 65 20 53 69 .HI*)..Lolite Si
019AF0: 67 6E 61 6C 20 20 20 20 20 20 20 20 28 2A 2E 4C gnal (*.L
019B00: 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 : Integer;..
019B10: 43 75 72 72 65 6E 74 4C 69 6E 65 4E 75 6D 62 65 CurrentLineNumbe
019B20: 72 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 20 20 20 r: Integer;..
019B30: 20 53 61 76 65 64 49 6E 46 69 6C 65 4E 61 6D 65 SavedInFileName
019B40: 3A 20 46 69 6C 65 4E 61 6D 65 3B 0D 0A 20 20 20 : FileName;..
019B50: 20 53 61 76 65 64 4F 75 74 46 69 6C 65 4E 61 6D SavedOutFileNam
019B60: 65 3A 20 46 69 6C 65 4E 61 6D 65 3B 0D 0A 20 20 e: FileName;..
019B70: 20 20 49 6E 63 6C 75 64 65 44 72 69 76 65 3A 20 IncludeDrive:
019B80: 43 68 61 72 3B 0D 0A 0D 0A 20 20 20 20 50 61 72 Char;.... Par
019B90: 6D 73 3A 20 50 61 72 61 6D 65 74 65 72 53 65 74 ms: ParameterSet
019BA0: 20 41 62 73 6F 6C 75 74 65 20 49 6E 63 6C 75 64 Absolute Includ
019BB0: 65 44 72 69 76 65 3B 0D 0A 0D 0A 0D 0A 20 20 20 eDrive;......
019BC0: 20 50 61 72 6D 46 69 6C 65 3A 20 46 69 6C 65 20 ParmFile: File
019BD0: 4F 66 20 50 61 72 61 6D 65 74 65 72 52 65 63 6F Of ParameterReco
019BE0: 72 64 3B 0D 0A 20 20 20 20 50 61 72 6D 46 69 6C rd;.. ParmFil
019BF0: 65 4E 61 6D 65 3A 20 46 69 6C 65 4E 61 6D 65 3B eName: FileName;
019C00: 0D 0A 20 20 20 20 49 6E 46 69 6C 65 4E 61 6D 65 .. InFileName
019C10: 3A 20 46 69 6C 65 4E 61 6D 65 3B 0D 0A 20 20 20 : FileName;..
019C20: 20 4F 75 74 46 69 6C 65 4E 61 6D 65 3A 20 46 69 OutFileName: Fi
019C30: 6C 65 4E 61 6D 65 3B 0D 0A 20 20 20 20 54 69 6D leName;.. Tim
019C40: 65 53 74 72 69 6E 67 3A 20 53 74 72 69 6E 67 31 eString: String1
019C50: 30 3B 0D 0A 20 20 20 20 44 61 74 65 53 74 72 69 0;.. DateStri
019C60: 6E 67 3A 20 53 74 72 69 6E 67 31 30 3B 0D 0A 20 ng: String10;..
019C70: 20 20 20 43 75 72 72 65 6E 74 49 6E 46 69 6C 65 CurrentInFile
019C80: 4E 61 6D 65 3A 20 53 74 72 69 6E 67 5B 36 30 5D Name: String[60]
019C90: 3B 0D 0A 20 20 20 20 49 6E 46 69 6C 65 3A 20 54 ;.. InFile: T
019CA0: 65 78 74 3B 0D 0A 20 20 20 20 4F 75 74 46 69 6C ext;.. OutFil
019CB0: 65 3A 20 54 65 78 74 3B 0D 0A 20 20 20 20 4F 6B e: Text;.. Ok
019CC0: 3A 20 42 6F 6F 6C 65 61 6E 3B 0D 0A 20 20 20 20 : Boolean;..
019CD0: 4F 75 74 49 73 44 65 76 69 63 65 3A 20 42 6F 6F OutIsDevice: Boo
019CE0: 6C 65 61 6E 3B 0D 0A 20 20 20 20 42 6C 61 6E 6B lean;.. Blank
019CF0: 73 3A 20 42 75 66 66 65 72 3B 0D 0A 20 20 20 20 s: Buffer;..
019D00: 28 2A 20 54 75 72 62 6F 20 50 61 73 63 61 6C 20 (* Turbo Pascal
019D10: 50 72 6F 67 72 61 6D 20 4C 69 73 74 65 72 20 76 Program Lister v
019D20: 65 72 73 69 6F 6E 20 32 2E 30 30 41 0D 0A 20 20 ersion 2.00A..
019D30: 20 43 6F 70 79 72 69 67 68 74 20 28 43 29 20 31 Copyright (C) 1
019D40: 39 38 34 2C 20 42 4F 52 4C 41 4E 44 20 49 6E 74 984, BORLAND Int
019D50: 65 72 6E 61 74 69 6F 6E 61 6C 2C 20 49 6E 63 2E ernational, Inc.
019D60: 2A 29 0D 0A 0D 0A 20 7B 24 43 2D 2C 55 2D 2C 52 *).... {$C-,U-,R
019D70: 2D 2C 41 2D 7D 0D 0A 0D 0A 50 72 6F 67 72 61 6D -,A-}....Program
019D80: 20 4C 69 73 74 54 75 72 62 6F 3B 0D 0A 0D 0A 7B ListTurbo;....{
019D90: 24 49 20 6C 69 73 74 74 31 2E 69 6E 63 7D 0D 0A $I listt1.inc}..
019DA0: 7B 24 49 20 6C 69 73 74 74 32 2E 69 6E 63 7D 0D {$I listt2.inc}.
019DB0: 0A 7B 24 49 20 6C 69 73 74 74 33 2E 69 6E 63 7D .{$I listt3.inc}
019DC0: 0D 0A 7B 24 49 20 6C 69 73 74 74 34 2E 69 6E 63 ..{$I listt4.inc
019DD0: 7D 0D 0A 7B 24 49 20 6C 69 73 74 74 35 2E 69 6E }..{$I listt5.in
019DE0: 63 7D 0D 0A 1A 20 20 20 50 41 53 20 00 00 00 00 c}... PAS ....
019DF0: 00 00 00 00 00 00 A5 08 21 00 C7 00 15 0D 00 00 ........!.......
019E00: 00 46 49 4C 4C 43 48 41 52 50 41 53 00 00 00 09 .FILLCHARPAS....
019E10: 45 46 00 00 00 00 00 00 00 00 00 00 00 00 00 00 EF..............
019E20: 00 46 49 4C 54 45 52 20 20 50 41 53 00 00 00 0D .FILTER PAS....
019E30: 47 48 00 00 00 00 00 00 00 00 00 00 00 00 00 00 GH..............
019E40: 00 46 55 4E 4B 54 41 53 54 50 41 53 00 00 00 07 .FUNKTASTPAS....
019E50: 49 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 I...............
019E60: 00 49 42 4D 49 4E 54 31 30 50 41 53 00 00 00 12 .IBMINT10PAS....
019E70: 4A 4B 4C 00 00 00 00 00 00 00 00 00 00 00 00 00 JKL.............
019E80: 00 49 4F 46 45 48 4C 45 52 50 41 53 00 00 00 17 .IOFEHLERPAS....
019E90: 4D 4E 4F 00 00 00 00 00 00 00 00 00 00 00 00 00 MNO.............
019EA0: 00 4C 49 53 54 54 20 20 20 44 4F 43 00 00 00 36 .LISTT DOC...6
019EB0: 50 51 52 53 54 55 56 00 00 00 00 00 00 00 00 00 PQRSTUV.........
019EC0: 00 4C 49 53 54 54 20 20 20 50 41 53 00 00 00 00 .LISTT PAS....
019ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019F00: 43 68 3A 20 43 68 61 72 3B 0D 0A 20 20 20 20 49 Ch: Char;.. I
019F10: 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 : Integer;..
019F20: 4C 69 6E 65 73 4C 65 66 74 3A 20 49 6E 74 65 67 LinesLeft: Integ
019F30: 65 72 3B 0D 0A 0D 0A 0D 0A 20 20 50 72 6F 63 65 er;...... Proce
019F40: 64 75 72 65 20 45 72 72 6F 72 4D 65 73 73 61 67 dure ErrorMessag
019F50: 65 28 4D 65 73 73 61 67 65 3A 20 42 75 66 66 65 e(Message: Buffe
019F60: 72 29 3B 0D 0A 0D 0A 20 20 20 20 56 61 72 0D 0A r);.... Var..
019F70: 20 20 20 20 20 20 43 68 3A 20 43 68 61 72 3B 0D Ch: Char;.
019F80: 0A 0D 0A 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 ... Begin..
019F90: 20 20 20 20 57 72 69 74 65 4C 6E 28 4D 65 73 73 WriteLn(Mess
019FA0: 61 67 65 29 3B 0D 0A 20 20 20 20 20 20 57 68 69 age);.. Whi
019FB0: 6C 65 20 4B 65 79 50 72 65 73 73 65 64 20 44 6F le KeyPressed Do
019FC0: 20 52 65 61 64 28 4B 62 64 2C 43 68 29 3B 20 7B Read(Kbd,Ch); {
019FD0: 20 46 6C 75 73 68 20 69 6E 70 75 74 20 62 75 66 Flush input buf
019FE0: 66 65 72 20 7D 0D 0A 20 20 20 20 20 20 57 72 69 fer }.. Wri
019FF0: 74 65 28 27 48 69 74 20 61 6E 79 20 6B 65 79 20 te('Hit any key
01A000: 74 6F 20 63 6F 6E 74 69 6E 75 65 20 6F 72 20 3C to continue or <
01A010: 45 53 43 3E 20 74 6F 20 61 62 6F 72 74 3A 20 27 ESC> to abort: '
01A020: 29 3B 0D 0A 20 20 20 20 20 20 52 65 61 64 28 4B );.. Read(K
01A030: 62 64 2C 43 68 29 3B 0D 0A 20 20 20 20 20 20 57 bd,Ch);.. W
01A040: 72 69 74 65 4C 6E 3B 0D 0A 20 20 20 20 20 20 49 riteLn;.. I
01A050: 66 20 43 68 3D 5E 5B 20 54 68 65 6E 20 48 61 6C f Ch=^[ Then Hal
01A060: 74 3B 0D 0A 20 20 20 20 45 6E 64 3B 0D 0A 0D 0A t;.. End;....
01A070: 0D 0A 20 20 46 75 6E 63 74 69 6F 6E 20 43 6F 6D .. Function Com
01A080: 6D 61 6E 64 4C 69 6E 65 41 72 67 75 6D 65 6E 74 mandLineArgument
01A090: 28 4E 3A 20 49 6E 74 65 67 65 72 29 3A 20 46 69 (N: Integer): Fi
01A0A0: 6C 65 4E 61 6D 65 3B 0D 0A 0D 0A 20 20 20 20 43 leName;.... C
01A0B0: 6F 6E 73 74 0D 0A 20 20 20 20 20 20 42 75 66 66 onst.. Buff
01A0C0: 65 72 65 64 3A 20 42 6F 6F 6C 65 61 6E 3D 46 61 ered: Boolean=Fa
01A0D0: 6C 73 65 3B 0D 0A 20 20 20 20 20 20 43 6F 6D 6D lse;.. Comm
01A0E0: 61 6E 64 4C 69 6E 65 42 75 66 66 65 72 3A 20 53 andLineBuffer: S
01A0F0: 74 72 69 6E 67 5B 31 32 37 5D 3D 27 27 3B 0D 0A tring[127]='';..
01A100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01A2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
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: 0D 0A 20 20 20 20 56 61 72 0D 0A 20 20 20 20 20 .. Var..
01A410: 20 43 6F 6D 6D 61 6E 64 4C 69 6E 65 3A 20 53 74 CommandLine: St
01A420: 72 69 6E 67 5B 31 32 37 5D 20 41 62 73 6F 6C 75 ring[127] Absolu
01A430: 74 65 20 24 30 30 38 30 3B 0D 0A 20 20 20 20 20 te $0080;..
01A440: 20 43 4C 41 3A 20 46 69 6C 65 4E 61 6D 65 3B 0D CLA: FileName;.
01A450: 0A 20 20 20 20 20 20 49 2C 4A 3A 20 49 6E 74 65 . I,J: Inte
01A460: 67 65 72 3B 0D 0A 0D 0A 20 20 20 20 42 65 67 69 ger;.... Begi
01A470: 6E 0D 0A 20 20 20 20 20 20 49 66 20 4E 6F 74 20 n.. If Not
01A480: 42 75 66 66 65 72 65 64 20 54 68 65 6E 20 43 6F Buffered Then Co
01A490: 6D 6D 61 6E 64 4C 69 6E 65 42 75 66 66 65 72 3A mmandLineBuffer:
01A4A0: 3D 43 6F 6D 6D 61 6E 64 4C 69 6E 65 3B 0D 0A 20 =CommandLine;..
01A4B0: 20 20 20 20 20 42 75 66 66 65 72 65 64 3A 3D 54 Buffered:=T
01A4C0: 72 75 65 3B 0D 0A 20 20 20 20 20 20 4A 3A 3D 31 rue;.. J:=1
01A4D0: 3B 0D 0A 20 20 20 20 20 20 46 6F 72 20 49 3A 3D ;.. For I:=
01A4E0: 31 20 54 6F 20 4E 20 44 6F 0D 0A 20 20 20 20 20 1 To N Do..
01A4F0: 20 20 42 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 Begin..
01A500: 20 43 4C 41 3A 3D 27 27 3B 0D 0A 20 20 20 20 20 CLA:='';..
01A510: 20 20 20 57 68 69 6C 65 20 28 4A 3C 3D 4C 65 6E While (J<=Len
01A520: 67 74 68 28 43 6F 6D 6D 61 6E 64 4C 69 6E 65 29 gth(CommandLine)
01A530: 29 20 41 6E 64 20 28 43 6F 6D 6D 61 6E 64 4C 69 ) And (CommandLi
01A540: 6E 65 5B 4A 5D 3D 27 20 27 29 20 44 6F 20 4A 3A ne[J]=' ') Do J:
01A550: 3D 4A 2B 31 3B 0D 0A 20 20 20 20 20 20 20 20 57 =J+1;.. W
01A560: 68 69 6C 65 20 28 4A 3C 3D 4C 65 6E 67 74 68 28 hile (J<=Length(
01A570: 43 6F 6D 6D 61 6E 64 4C 69 6E 65 29 29 20 41 6E CommandLine)) An
01A580: 64 20 28 43 6F 6D 6D 61 6E 64 4C 69 6E 65 5B 4A d (CommandLine[J
01A590: 5D 3C 3E 27 20 27 29 20 44 6F 0D 0A 20 20 20 20 ]<>' ') Do..
01A5A0: 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 20 20 Begin..
01A5B0: 20 20 20 20 20 20 43 4C 41 3A 3D 43 4C 41 2B 43 CLA:=CLA+C
01A5C0: 6F 6D 6D 61 6E 64 4C 69 6E 65 5B 4A 5D 3B 0D 0A ommandLine[J];..
01A5D0: 20 20 20 20 20 20 20 20 20 20 4A 3A 3D 4A 2B 31 J:=J+1
01A5E0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 45 6E 64 3B ;.. End;
01A5F0: 0D 0A 20 20 20 20 20 20 20 45 6E 64 3B 0D 0A 20 .. End;..
01A600: 20 20 20 27 44 27 3A 20 50 45 3A 3D 50 45 2B 44 'D': PE:=PE+D
01A610: 61 74 65 53 74 72 69 6E 67 3B 0D 0A 20 20 20 20 ateString;..
01A620: 20 20 20 20 20 20 20 20 27 46 27 3A 20 50 45 3A 'F': PE:
01A630: 3D 50 45 2B 43 75 72 72 65 6E 74 49 6E 46 69 6C =PE+CurrentInFil
01A640: 65 4E 61 6D 65 3B 0D 0A 20 20 20 20 20 20 20 20 eName;..
01A650: 20 20 20 20 27 3C 27 3A 20 43 65 6E 74 65 72 3A '<': Center:
01A660: 3D 4C 65 66 74 3B 0D 0A 20 20 20 20 20 20 20 20 =Left;..
01A670: 20 20 20 20 27 3E 27 3A 20 43 65 6E 74 65 72 3A '>': Center:
01A680: 3D 52 69 67 68 74 3B 0D 0A 20 20 20 20 20 20 20 =Right;..
01A690: 20 20 20 20 20 27 5B 27 3A 20 42 65 67 69 6E 0D '[': Begin.
01A6A0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
01A6B0: 20 20 20 20 43 65 6E 74 65 72 3A 3D 52 69 67 68 Center:=Righ
01A6C0: 74 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 t;..
01A6D0: 20 20 20 20 20 20 20 49 66 20 4F 64 64 28 43 75 If Odd(Cu
01A6E0: 72 72 65 6E 74 50 61 67 65 4E 75 6D 62 65 72 29 rrentPageNumber)
01A6F0: 20 54 68 65 6E 20 43 65 6E 74 65 72 3A 3D 4C 65 Then Center:=Le
01A700: 66 74 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ft;..
01A710: 20 20 20 20 20 20 45 6E 64 3B 0D 0A 20 20 20 20 End;..
01A720: 20 20 20 20 20 20 20 20 27 5D 27 3A 20 42 65 67 ']': Beg
01A730: 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 in..
01A740: 20 20 20 20 20 20 20 43 65 6E 74 65 72 3A 3D 4C Center:=L
01A750: 65 66 74 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 eft;..
01A760: 20 20 20 20 20 20 20 20 20 49 66 20 4F 64 64 28 If Odd(
01A770: 43 75 72 72 65 6E 74 50 61 67 65 4E 75 6D 62 65 CurrentPageNumbe
01A780: 72 29 20 54 68 65 6E 20 43 65 6E 74 65 72 3A 3D r) Then Center:=
01A790: 52 69 67 68 74 3B 0D 0A 20 20 20 20 20 20 20 20 Right;..
01A7A0: 20 20 20 20 20 20 20 20 20 45 6E 64 3B 0D 0A 20 End;..
01A7B0: 20 20 20 20 20 20 20 20 20 20 20 45 6C 73 65 20 Else
01A7C0: 50 45 3A 3D 50 45 2B 49 6E 67 5B 49 2B 31 5D 3B PE:=PE+Ing[I+1];
01A7D0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 45 6E 64 .. End
01A7E0: 3B 20 7B 20 43 61 73 65 20 49 6E 67 5B 49 2B 31 ; { Case Ing[I+1
01A7F0: 5D 20 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 49 ] }.. I
01A800: 20 20 20 20 20 43 6F 6D 6D 61 6E 64 4C 69 6E 65 CommandLine
01A810: 41 72 67 75 6D 65 6E 74 3A 3D 43 4C 41 3B 0D 0A Argument:=CLA;..
01A820: 20 20 20 20 45 6E 64 3B 0D 0A 0D 0A 0D 0A 20 20 End;......
01A830: 50 72 6F 63 65 64 75 72 65 20 49 6E 69 74 50 61 Procedure InitPa
01A840: 72 6D 73 3B 0D 0A 0D 0A 0D 0A 20 20 20 20 50 72 rms;...... Pr
01A850: 6F 63 65 64 75 72 65 20 5A 65 72 6F 46 69 6C 6C ocedure ZeroFill
01A860: 28 56 61 72 20 53 3A 20 53 74 72 69 6E 67 31 30 (Var S: String10
01A870: 29 3B 0D 0A 0D 0A 20 20 20 20 20 20 56 61 72 0D );.... Var.
01A880: 0A 20 20 20 20 20 20 20 20 49 3A 20 49 6E 74 65 . I: Inte
01A890: 67 65 72 3B 0D 0A 0D 0A 20 20 20 20 20 20 42 65 ger;.... Be
01A8A0: 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 46 6F 72 gin.. For
01A8B0: 20 49 3A 3D 31 20 54 6F 20 4C 65 6E 67 74 68 28 I:=1 To Length(
01A8C0: 53 29 20 44 6F 20 49 66 20 53 5B 49 5D 3D 27 20 S) Do If S[I]='
01A8D0: 27 20 54 68 65 6E 20 53 5B 49 5D 3A 3D 27 30 27 ' Then S[I]:='0'
01A8E0: 3B 0D 0A 20 20 20 20 20 20 45 6E 64 3B 0D 0A 0D ;.. End;...
01A8F0: 0A 0D 0A 20 20 20 20 56 61 72 0D 0A 20 20 20 20 ... Var..
01A900: 20 20 48 6F 75 72 2C 4D 69 6E 2C 41 4D 5F 50 4D Hour,Min,AM_PM
01A910: 2C 4D 6F 6E 74 68 2C 44 61 79 2C 59 65 61 72 3A ,Month,Day,Year:
01A920: 20 53 74 72 69 6E 67 5B 32 5D 3B 0D 0A 20 20 20 String[2];..
01A930: 20 20 20 49 3A 20 49 6E 74 65 67 65 72 3B 0D 0A I: Integer;..
01A940: 0D 0A 20 20 20 20 42 65 67 69 6E 20 7B 20 49 6E .. Begin { In
01A950: 69 74 50 61 72 6D 73 20 7D 0D 0A 20 20 20 20 20 itParms }..
01A960: 20 50 61 67 65 4C 65 6E 67 74 68 3A 3D 36 36 3B PageLength:=66;
01A970: 0D 0A 20 20 20 20 20 20 4C 69 6E 65 57 69 64 74 .. LineWidt
01A980: 68 3A 3D 37 39 3B 0D 0A 20 20 20 20 20 20 48 69 h:=79;.. Hi
01A990: 4C 69 74 65 3A 3D 27 27 3B 0D 0A 20 20 20 20 20 Lite:='';..
01A9A0: 20 4C 6F 4C 69 74 65 3A 3D 27 27 3B 0D 0A 20 20 LoLite:='';..
01A9B0: 20 20 20 20 49 6E 69 74 53 74 72 69 6E 67 3A 3D InitString:=
01A9C0: 27 27 3B 0D 0A 20 20 20 20 20 20 45 78 69 74 53 '';.. ExitS
01A9D0: 74 72 69 6E 67 3A 3D 27 27 3B 0D 0A 20 20 20 20 tring:='';..
01A9E0: 20 20 4C 69 6E 65 4E 75 6D 62 65 72 73 3A 3D 46 LineNumbers:=F
01A9F0: 61 6C 73 65 3B 0D 0A 20 20 20 20 20 20 55 70 4B alse;.. UpK
01AA00: 3A 3D 49 2B 31 3B 0D 0A 20 20 20 20 20 20 20 20 :=I+1;..
01AA10: 20 45 6E 64 3B 20 7B 20 45 6C 73 65 20 49 6E 67 End; { Else Ing
01AA20: 5B 49 5D 3D 27 25 27 20 7D 0D 0A 20 20 20 20 20 [I]='%' }..
01AA30: 20 20 20 49 3A 3D 49 2B 31 3B 0D 0A 20 20 20 20 I:=I+1;..
01AA40: 20 20 20 45 6E 64 3B 20 7B 20 57 68 69 6C 65 20 End; { While
01AA50: 7D 0D 0A 20 20 20 20 20 20 49 66 20 4C 65 6E 67 }.. If Leng
01AA60: 74 68 28 50 45 29 3E 4C 69 6E 65 57 69 64 74 68 th(PE)>LineWidth
01AA70: 20 54 68 65 6E 20 50 45 5B 30 5D 3A 3D 43 68 72 Then PE[0]:=Chr
01AA80: 28 4C 69 6E 65 57 69 64 74 68 29 3B 0D 0A 20 20 (LineWidth);..
01AA90: 20 20 20 20 49 66 20 43 65 6E 74 65 72 3D 4D 69 If Center=Mi
01AAA0: 64 64 6C 65 20 54 68 65 6E 0D 0A 20 20 20 20 20 ddle Then..
01AAB0: 20 20 20 50 45 3A 3D 43 6F 70 79 28 42 6C 61 6E PE:=Copy(Blan
01AAC0: 6B 73 2C 31 2C 28 4C 69 6E 65 57 69 64 74 68 2D ks,1,(LineWidth-
01AAD0: 4C 65 6E 67 74 68 28 50 45 29 29 20 44 69 76 20 Length(PE)) Div
01AAE0: 32 29 2B 50 45 0D 0A 20 20 20 20 20 20 45 6C 73 2)+PE.. Els
01AAF0: 65 20 49 66 20 43 65 6E 74 65 72 3D 52 69 67 68 e If Center=Righ
01AB00: 74 20 54 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 t Then..
01AB10: 50 45 3A 3D 43 6F 70 79 28 42 6C 61 6E 6B 73 2C PE:=Copy(Blanks,
01AB20: 31 2C 4C 69 6E 65 57 69 64 74 68 2D 4C 65 6E 67 1,LineWidth-Leng
01AB30: 74 68 28 50 45 29 29 2B 50 45 3B 0D 0A 20 20 20 th(PE))+PE;..
01AB40: 20 20 20 50 65 72 63 65 6E 74 45 78 70 61 6E 64 PercentExpand
01AB50: 3A 3D 50 45 3B 0D 0A 20 20 20 20 45 6E 64 3B 20 :=PE;.. End;
01AB60: 7B 20 50 65 72 63 65 6E 74 45 78 70 61 6E 64 20 { PercentExpand
01AB70: 7D 0D 0A 1A 65 6E 74 50 61 67 65 4E 75 6D 62 65 }...entPageNumbe
01AB80: 72 29 20 54 68 65 6E 20 43 65 6E 74 65 72 3A 3D r) Then Center:=
01AB90: 52 69 67 68 74 3B 0D 0A 20 20 20 20 20 20 20 20 Right;..
01ABA0: 20 20 20 20 20 20 20 20 20 45 6E 64 3B 0D 0A 20 End;..
01ABB0: 20 20 20 20 20 20 20 20 20 20 20 45 6C 73 65 20 Else
01ABC0: 50 45 3A 3D 50 45 2B 49 6E 67 5B 49 2B 31 5D 3B PE:=PE+Ing[I+1];
01ABD0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 45 6E 64 .. End
01ABE0: 3B 20 7B 20 43 61 73 65 20 49 6E 67 5B 49 2B 31 ; { Case Ing[I+1
01ABF0: 5D 20 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 49 ] }.. I
01AC00: 65 79 73 3A 3D 46 61 6C 73 65 3B 0D 0A 20 20 20 eys:=False;..
01AC10: 20 20 20 50 61 67 65 46 6F 72 49 6E 63 6C 75 64 PageForInclud
01AC20: 65 73 3A 3D 46 61 6C 73 65 3B 0D 0A 20 20 20 20 es:=False;..
01AC30: 20 20 49 6E 64 65 6E 74 3A 3D 30 3B 0D 0A 20 20 Indent:=0;..
01AC40: 20 20 20 20 48 65 61 64 69 6E 67 3A 3D 27 4C 69 Heading:='Li
01AC50: 73 74 69 6E 67 20 6F 66 20 25 46 2C 20 70 61 67 sting of %F, pag
01AC60: 65 20 25 23 20 61 74 20 25 54 20 25 44 27 3B 0D e %# at %T %D';.
01AC70: 0A 20 20 20 20 20 20 46 6F 6F 74 69 6E 67 3A 3D . Footing:=
01AC80: 27 25 46 20 70 61 67 65 20 25 23 27 3B 0D 0A 20 '%F page %#';..
01AC90: 20 20 20 20 20 43 75 72 72 65 6E 74 50 61 67 65 CurrentPage
01ACA0: 4E 75 6D 62 65 72 3A 3D 31 3B 0D 0A 20 20 20 20 Number:=1;..
01ACB0: 20 20 43 75 72 72 65 6E 74 4C 69 6E 65 4E 75 6D CurrentLineNum
01ACC0: 62 65 72 3A 3D 31 3B 0D 0A 0D 0A 20 20 20 20 20 ber:=1;....
01ACD0: 20 42 6C 61 6E 6B 73 3A 3D 27 27 3B 0D 0A 20 20 Blanks:='';..
01ACE0: 20 20 20 20 46 6F 72 20 49 3A 3D 31 20 54 6F 20 For I:=1 To
01ACF0: 32 30 30 20 44 6F 20 42 6C 61 6E 6B 73 3A 3D 42 200 Do Blanks:=B
01AD00: 6C 61 6E 6B 73 2B 27 20 27 3B 0D 0A 0D 0A 0D 0A lanks+' ';......
01AD10: 20 20 20 20 20 20 54 69 6D 65 53 74 72 69 6E 67 TimeString
01AD20: 3A 3D 27 27 3B 0D 0A 20 20 20 20 20 20 44 61 74 :='';.. Dat
01AD30: 65 53 74 72 69 6E 67 3A 3D 27 27 3B 0D 0A 20 20 eString:='';..
01AD40: 20 20 45 6E 64 3B 0D 0A 0D 0A 0D 0A 20 20 50 72 End;...... Pr
01AD50: 6F 63 65 64 75 72 65 20 46 69 78 53 74 72 69 6E ocedure FixStrin
01AD60: 67 28 56 61 72 20 53 74 3A 20 46 69 6C 65 4E 61 g(Var St: FileNa
01AD70: 6D 65 29 3B 0D 0A 0D 0A 20 20 20 20 56 61 72 0D me);.... Var.
01AD80: 0A 20 20 20 20 20 20 49 3A 20 49 6E 74 65 67 65 . I: Intege
01AD90: 72 3B 0D 0A 0D 0A 20 20 20 20 42 65 67 69 6E 0D r;.... Begin.
01ADA0: 0A 20 20 20 20 20 20 57 68 69 6C 65 20 28 53 74 . While (St
01ADB0: 5B 31 5D 3D 27 20 27 29 20 41 6E 64 20 28 4C 65 [1]=' ') And (Le
01ADC0: 6E 67 74 68 28 53 74 29 3E 30 29 20 44 6F 20 44 ngth(St)>0) Do D
01ADD0: 65 6C 65 74 65 28 53 74 2C 31 2C 31 29 3B 0D 0A elete(St,1,1);..
01ADE0: 20 20 20 20 20 20 49 66 20 50 6F 73 28 27 20 27 If Pos(' '
01ADF0: 2C 53 74 29 3C 3E 30 20 54 68 65 6E 20 53 74 5B ,St)<>0 Then St[
01AE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B000: 30 5D 3A 3D 43 68 72 28 50 6F 73 28 27 20 27 2C 0]:=Chr(Pos(' ',
01B010: 53 74 29 2D 31 29 3B 0D 0A 20 20 20 20 20 20 46 St)-1);.. F
01B020: 6F 72 20 49 3A 3D 31 20 54 6F 20 4C 65 6E 67 74 or I:=1 To Lengt
01B030: 68 28 53 74 29 20 44 6F 20 53 74 5B 49 5D 3A 3D h(St) Do St[I]:=
01B040: 55 70 43 61 73 65 28 53 74 5B 49 5D 29 3B 0D 0A UpCase(St[I]);..
01B050: 20 20 20 20 45 6E 64 3B 0D 0A 0D 0A 0D 0A 20 20 End;......
01B060: 50 72 6F 63 65 64 75 72 65 20 46 69 78 46 69 6C Procedure FixFil
01B070: 65 4E 61 6D 65 28 56 61 72 20 46 4E 3A 20 46 69 eName(Var FN: Fi
01B080: 6C 65 4E 61 6D 65 3B 20 45 78 74 3A 20 53 74 72 leName; Ext: Str
01B090: 69 6E 67 33 29 3B 0D 0A 0D 0A 20 20 20 20 42 65 ing3);.... Be
01B0A0: 67 69 6E 0D 0A 20 20 20 20 20 20 46 69 78 53 74 gin.. FixSt
01B0B0: 72 69 6E 67 28 46 4E 29 3B 0D 0A 20 20 20 20 20 ring(FN);..
01B0C0: 20 49 66 20 50 6F 73 28 27 2E 27 2C 46 4E 29 3D If Pos('.',FN)=
01B0D0: 30 20 54 68 65 6E 20 46 4E 3A 3D 46 4E 2B 27 2E 0 Then FN:=FN+'.
01B0E0: 27 2B 45 78 74 3B 0D 0A 20 20 20 20 45 6E 64 3B '+Ext;.. End;
01B0F0: 0D 0A 0D 0A 0D 0A 20 20 46 75 6E 63 74 69 6F 6E ...... Function
01B100: 20 50 65 72 63 65 6E 74 45 78 70 61 6E 64 28 49 PercentExpand(I
01B110: 6E 67 3A 20 42 75 66 66 65 72 29 3A 20 42 75 66 ng: Buffer): Buf
01B120: 66 65 72 3B 0D 0A 0D 0A 20 20 20 20 56 61 72 0D fer;.... Var.
01B130: 0A 20 20 20 20 20 20 50 45 3A 20 42 75 66 66 65 . PE: Buffe
01B140: 72 3B 0D 0A 20 20 20 20 20 20 49 2C 43 50 4E 3A r;.. I,CPN:
01B150: 20 49 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 20 Integer;..
01B160: 20 50 4E 3A 20 53 74 72 69 6E 67 5B 36 5D 3B 0D PN: String[6];.
01B170: 0A 20 20 20 20 20 20 43 65 6E 74 65 72 3A 20 28 . Center: (
01B180: 4C 65 66 74 2C 4D 69 64 64 6C 65 2C 52 69 67 68 Left,Middle,Righ
01B190: 74 29 3B 0D 0A 0D 0A 20 20 20 20 42 65 67 69 6E t);.... Begin
01B1A0: 0D 0A 20 20 20 20 20 20 43 65 6E 74 65 72 3A 3D .. Center:=
01B1B0: 4D 69 64 64 6C 65 3B 0D 0A 20 20 20 20 20 20 50 Middle;.. P
01B1C0: 45 3A 3D 27 27 3B 0D 0A 20 20 20 20 20 20 49 3A E:='';.. I:
01B1D0: 3D 31 3B 0D 0A 20 20 20 20 20 20 57 68 69 6C 65 =1;.. While
01B1E0: 20 28 49 3C 3D 4C 65 6E 67 74 68 28 49 6E 67 29 (I<=Length(Ing)
01B1F0: 29 20 44 6F 0D 0A 20 20 20 20 20 20 20 42 65 67 ) Do.. Beg
01B200: 0D 0A 20 20 50 72 6F 63 65 64 75 72 65 20 57 4C .. Procedure WL
01B210: 69 6E 65 28 53 3A 20 42 75 66 66 65 72 29 3B 0D ine(S: Buffer);.
01B220: 0A 0D 0A 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 ... Begin..
01B230: 20 20 20 20 49 66 20 4B 65 79 50 72 65 73 73 65 If KeyPresse
01B240: 64 20 54 68 65 6E 0D 0A 20 20 20 20 20 20 20 42 d Then.. B
01B250: 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 52 65 egin.. Re
01B260: 70 65 61 74 0D 0A 20 20 20 20 20 20 20 20 20 20 peat..
01B270: 52 65 61 64 28 4B 62 64 2C 43 68 29 0D 0A 20 20 Read(Kbd,Ch)..
01B280: 20 20 20 20 20 20 55 6E 74 69 6C 20 4E 6F 74 20 Until Not
01B290: 4B 65 79 50 72 65 73 73 65 64 3B 0D 0A 20 20 20 KeyPressed;..
01B2A0: 20 20 20 20 20 57 72 69 74 65 28 5E 4D 2C 27 54 Write(^M,'T
01B2B0: 65 72 6D 69 6E 61 74 65 20 28 59 2F 4E 29 3F 20 erminate (Y/N)?
01B2C0: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 52 65 61 ');.. Rea
01B2D0: 64 28 4B 62 64 2C 43 68 29 3B 0D 0A 20 20 20 20 d(Kbd,Ch);..
01B2E0: 20 20 20 20 49 66 20 55 70 43 61 73 65 28 43 68 If UpCase(Ch
01B2F0: 29 3D 27 59 27 20 54 68 65 6E 0D 0A 20 20 20 20 )='Y' Then..
01B300: 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 20 20 Begin..
01B310: 20 20 20 20 20 20 57 72 69 74 65 4C 6E 28 27 59 WriteLn('Y
01B320: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 ');.. W
01B330: 72 69 74 65 28 4F 75 74 46 69 6C 65 2C 45 78 69 rite(OutFile,Exi
01B340: 74 53 74 72 69 6E 67 29 3B 0D 0A 20 20 20 20 20 tString);..
01B350: 20 20 20 20 20 43 6C 6F 73 65 28 4F 75 74 46 69 Close(OutFi
01B360: 6C 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 le);..
01B370: 48 61 6C 74 3B 0D 0A 20 20 20 20 20 20 20 20 20 Halt;..
01B380: 45 6E 64 0D 0A 20 20 20 20 20 20 20 20 45 6C 73 End.. Els
01B390: 65 20 57 72 69 74 65 28 5E 4D 2C 27 20 20 20 20 e Write(^M,'
01B3A0: 20 20 20 20 20 20 20 20 20 20 20 20 27 2C 5E 4D ',^M
01B3B0: 29 3B 0D 0A 20 20 20 20 20 20 20 45 6E 64 3B 20 );.. End;
01B3C0: 7B 20 49 66 20 4B 65 79 50 72 65 73 73 65 64 20 { If KeyPressed
01B3D0: 7D 0D 0A 20 20 20 20 20 20 49 66 20 4E 6F 74 20 }.. If Not
01B3E0: 50 61 67 65 53 74 61 72 74 65 64 20 54 68 65 6E PageStarted Then
01B3F0: 0D 0A 20 20 20 20 20 20 20 42 65 67 69 6E 0D 0A .. Begin..
01B400: 69 6E 0D 0A 20 20 20 20 20 20 20 20 49 66 20 49 in.. If I
01B410: 6E 67 5B 49 5D 3C 3E 27 25 27 20 54 68 65 6E 20 ng[I]<>'%' Then
01B420: 50 45 3A 3D 50 45 2B 49 6E 67 5B 49 5D 0D 0A 20 PE:=PE+Ing[I]..
01B430: 20 20 20 20 20 20 20 45 6C 73 65 20 49 66 20 49 Else If I
01B440: 3D 4C 65 6E 67 74 68 28 49 6E 67 29 20 54 68 65 =Length(Ing) The
01B450: 6E 20 50 45 3A 3D 50 45 2B 27 25 27 0D 0A 20 20 n PE:=PE+'%'..
01B460: 20 20 20 20 20 20 45 6C 73 65 0D 0A 20 20 20 20 Else..
01B470: 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 20 20 Begin..
01B480: 20 20 20 20 20 20 43 61 73 65 20 55 70 43 61 73 Case UpCas
01B490: 65 28 49 6E 67 5B 49 2B 31 5D 29 20 4F 66 0D 0A e(Ing[I+1]) Of..
01B4A0: 20 20 20 20 20 20 20 20 20 20 20 20 27 23 27 3A '#':
01B4B0: 20 42 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 Begin..
01B4C0: 20 20 20 20 20 20 20 20 20 20 20 50 4E 3A 3D 27 PN:='
01B4D0: 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ';..
01B4E0: 20 20 20 20 20 20 20 43 50 4E 3A 3D 43 75 72 72 CPN:=Curr
01B4F0: 65 6E 74 50 61 67 65 4E 75 6D 62 65 72 3B 0D 0A entPageNumber;..
01B500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B510: 20 20 20 52 65 70 65 61 74 0D 0A 20 20 20 20 20 Repeat..
01B520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B530: 50 4E 3A 3D 43 68 72 28 4F 72 64 28 27 30 27 29 PN:=Chr(Ord('0')
01B540: 2B 28 43 50 4E 20 4D 6F 64 20 31 30 29 29 2B 50 +(CPN Mod 10))+P
01B550: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 N;..
01B560: 20 20 20 20 20 20 20 20 20 43 50 4E 3A 3D 43 50 CPN:=CP
01B570: 4E 20 44 69 76 20 31 30 3B 0D 0A 20 20 20 20 20 N Div 10;..
01B580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 6E Un
01B590: 74 69 6C 20 43 50 4E 3D 30 3B 0D 0A 20 20 20 20 til CPN=0;..
01B5A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 P
01B5B0: 45 3A 3D 50 45 2B 50 4E 3B 0D 0A 20 20 20 20 20 E:=PE+PN;..
01B5C0: 20 20 20 20 20 20 20 20 20 20 20 20 45 6E 64 3B End;
01B5D0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 27 54 .. 'T
01B5E0: 27 3A 20 50 45 3A 3D 50 45 2B 54 69 6D 65 53 74 ': PE:=PE+TimeSt
01B5F0: 72 69 6E 67 3B 0D 0A 20 20 20 20 20 20 20 20 20 ring;..
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: 20 20 20 20 20 20 20 20 57 72 69 74 65 4C 6E 28 WriteLn(
01B710: 4F 75 74 46 69 6C 65 29 3B 0D 0A 20 20 20 20 20 OutFile);..
01B720: 20 20 20 57 72 69 74 65 4C 6E 28 4F 75 74 46 69 WriteLn(OutFi
01B730: 6C 65 2C 50 65 72 63 65 6E 74 45 78 70 61 6E 64 le,PercentExpand
01B740: 28 48 65 61 64 69 6E 67 29 29 3B 0D 0A 20 20 20 (Heading));..
01B750: 20 20 20 20 20 57 72 69 74 65 4C 6E 28 4F 75 74 WriteLn(Out
01B760: 46 69 6C 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 File);..
01B770: 50 61 67 65 53 74 61 72 74 65 64 3A 3D 54 72 75 PageStarted:=Tru
01B780: 65 3B 0D 0A 20 20 20 20 20 20 20 45 6E 64 3B 0D e;.. End;.
01B790: 0A 20 20 20 20 20 20 57 72 69 74 65 28 4F 75 74 . Write(Out
01B7A0: 46 69 6C 65 2C 43 6F 70 79 28 42 6C 61 6E 6B 73 File,Copy(Blanks
01B7B0: 2C 31 2C 49 6E 64 65 6E 74 29 29 3B 0D 0A 20 20 ,1,Indent));..
01B7C0: 20 20 20 20 49 66 20 4C 69 6E 65 4E 75 6D 62 65 If LineNumbe
01B7D0: 72 73 20 54 68 65 6E 0D 0A 20 20 20 20 20 20 20 rs Then..
01B7E0: 42 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 57 Begin.. W
01B7F0: 72 69 74 65 28 4F 75 74 46 69 6C 65 2C 43 75 72 rite(OutFile,Cur
01B800: 72 65 6E 74 4C 69 6E 65 4E 75 6D 62 65 72 3A 35 rentLineNumber:5
01B810: 29 3B 0D 0A 20 20 20 20 20 20 20 20 49 66 20 49 );.. If I
01B820: 6E 49 6E 63 6C 75 64 65 20 54 68 65 6E 20 57 72 nInclude Then Wr
01B830: 69 74 65 28 4F 75 74 46 69 6C 65 2C 27 3E 20 27 ite(OutFile,'> '
01B840: 29 0D 0A 20 20 20 20 20 20 20 20 45 6C 73 65 20 ).. Else
01B850: 57 72 69 74 65 28 4F 75 74 46 69 6C 65 2C 27 3A Write(OutFile,':
01B860: 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 45 6E 64 ');.. End
01B870: 0D 0A 20 20 20 20 20 20 45 6C 73 65 20 49 66 20 .. Else If
01B880: 49 6E 49 6E 63 6C 75 64 65 20 54 68 65 6E 20 57 InInclude Then W
01B890: 72 69 74 65 28 4F 75 74 46 69 6C 65 2C 27 3E 20 rite(OutFile,'>
01B8A0: 27 29 3B 0D 0A 20 20 20 20 20 20 57 72 69 74 65 ');.. Write
01B8B0: 4C 6E 28 4F 75 74 46 69 6C 65 2C 53 29 3B 0D 0A Ln(OutFile,S);..
01B8C0: 20 20 20 20 20 20 49 66 20 28 4F 75 74 46 69 6C If (OutFil
01B8D0: 65 4E 61 6D 65 3C 3E 27 43 4F 4E 3A 27 29 20 41 eName<>'CON:') A
01B8E0: 6E 64 20 28 43 75 72 72 65 6E 74 4C 69 6E 65 4E nd (CurrentLineN
01B8F0: 75 6D 62 65 72 20 4D 6F 64 20 31 36 3D 30 29 20 umber Mod 16=0)
01B900: 3A 3D 43 6F 6D 6D 65 6E 74 3B 0D 0A 20 20 20 20 :=Comment;..
01B910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B920: 20 20 20 20 27 28 27 3A 20 49 66 20 28 4C 69 6E '(': If (Lin
01B930: 65 5B 49 2B 31 5D 3D 27 2A 27 29 20 41 6E 64 20 e[I+1]='*') And
01B940: 28 49 2B 31 3C 4C 4C 29 20 54 68 65 6E 0D 0A 20 (I+1<LL) Then..
01B950: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B960: 20 20 20 20 20 20 20 20 20 20 20 20 20 42 65 67 Beg
01B970: 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 in..
01B980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B990: 20 20 20 50 61 72 73 65 53 74 61 74 65 3A 3D 43 ParseState:=C
01B9A0: 6F 6D 6D 65 6E 74 32 3B 0D 0A 20 20 20 20 20 20 omment2;..
01B9B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B9C0: 20 20 20 20 20 20 20 20 20 49 3A 3D 49 2B 31 3B I:=I+1;
01B9D0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01B9E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B9F0: 45 6E 64 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 End;..
01BA00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 27 ''
01BA10: 27 27 3A 20 50 61 72 73 65 53 74 61 74 65 3A 3D '': ParseState:=
01BA20: 51 75 6F 74 65 64 3B 0D 0A 20 20 20 20 20 20 20 Quoted;..
01BA30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
01BA40: 6E 64 3B 20 7B 20 43 61 73 65 20 4C 69 6E 65 5B nd; { Case Line[
01BA50: 49 5D 20 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 I] }..
01BA60: 20 20 20 20 4B 65 79 57 6F 72 64 3A 20 49 66 20 KeyWord: If
01BA70: 4C 69 6E 65 5B 49 5D 20 49 6E 20 5B 27 41 27 2E Line[I] In ['A'.
01BA80: 2E 27 5A 27 2C 27 61 27 2E 2E 27 7A 27 2C 27 30 .'Z','a'..'z','0
01BA90: 27 2E 2E 27 39 27 2C 27 5F 27 5D 20 54 68 65 6E '..'9','_'] Then
01BAA0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01BAB0: 20 20 20 20 20 20 20 20 20 20 42 65 67 69 6E 0D Begin.
01BAC0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
01BAD0: 20 20 20 20 20 20 20 20 20 20 49 66 20 4C 4B 3C If LK<
01BAE0: 31 30 20 54 68 65 6E 20 4C 4B 3A 3D 4C 4B 2B 31 10 Then LK:=LK+1
01BAF0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
01BB00: 54 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 57 72 Then.. Wr
01BB10: 69 74 65 28 5E 4D 2C 27 4C 69 6E 65 20 27 2C 43 ite(^M,'Line ',C
01BB20: 75 72 72 65 6E 74 4C 69 6E 65 4E 75 6D 62 65 72 urrentLineNumber
01BB30: 29 3B 0D 0A 20 20 20 20 20 20 4C 69 6E 65 73 4C );.. LinesL
01BB40: 65 66 74 3A 3D 4C 69 6E 65 73 4C 65 66 74 2D 31 eft:=LinesLeft-1
01BB50: 3B 0D 0A 20 20 20 20 20 20 49 66 20 4C 69 6E 65 ;.. If Line
01BB60: 73 4C 65 66 74 3D 30 20 54 68 65 6E 0D 0A 20 20 sLeft=0 Then..
01BB70: 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 20 20 Begin..
01BB80: 20 20 20 20 57 72 69 74 65 4C 6E 28 4F 75 74 46 WriteLn(OutF
01BB90: 69 6C 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 57 ile);.. W
01BBA0: 72 69 74 65 4C 6E 28 4F 75 74 46 69 6C 65 2C 50 riteLn(OutFile,P
01BBB0: 65 72 63 65 6E 74 45 78 70 61 6E 64 28 46 6F 6F ercentExpand(Foo
01BBC0: 74 69 6E 67 29 29 3B 0D 0A 20 20 20 20 20 20 20 ting));..
01BBD0: 20 57 72 69 74 65 4C 6E 28 4F 75 74 46 69 6C 65 WriteLn(OutFile
01BBE0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 4C 69 6E 65 );.. Line
01BBF0: 73 4C 65 66 74 3A 3D 50 61 67 65 4C 65 6E 67 74 sLeft:=PageLengt
01BC00: 68 2D 36 3B 0D 0A 20 20 20 20 20 20 20 20 43 75 h-6;.. Cu
01BC10: 72 72 65 6E 74 50 61 67 65 4E 75 6D 62 65 72 3A rrentPageNumber:
01BC20: 3D 43 75 72 72 65 6E 74 50 61 67 65 4E 75 6D 62 =CurrentPageNumb
01BC30: 65 72 2B 31 3B 0D 0A 20 20 20 20 20 20 20 20 50 er+1;.. P
01BC40: 61 67 65 53 74 61 72 74 65 64 3A 3D 46 61 6C 73 ageStarted:=Fals
01BC50: 65 3B 0D 0A 20 20 20 20 20 20 20 45 6E 64 3B 0D e;.. End;.
01BC60: 0A 20 20 20 20 45 6E 64 3B 20 7B 20 57 4C 69 6E . End; { WLin
01BC70: 65 20 7D 0D 0A 0D 0A 0D 0A 20 20 50 72 6F 63 65 e }...... Proce
01BC80: 64 75 72 65 20 4E 65 77 50 61 67 65 3B 0D 0A 0D dure NewPage;...
01BC90: 0A 20 20 20 20 56 61 72 0D 0A 20 20 20 20 20 20 . Var..
01BCA0: 53 61 76 65 4C 69 6E 65 4E 75 6D 62 65 72 73 3A SaveLineNumbers:
01BCB0: 20 42 6F 6F 6C 65 61 6E 3B 0D 0A 0D 0A 20 20 20 Boolean;....
01BCC0: 20 42 65 67 69 6E 0D 0A 20 20 20 20 20 20 53 61 Begin.. Sa
01BCD0: 76 65 4C 69 6E 65 4E 75 6D 62 65 72 73 3A 3D 4C veLineNumbers:=L
01BCE0: 69 6E 65 4E 75 6D 62 65 72 73 3B 0D 0A 20 20 20 ineNumbers;..
01BCF0: 20 20 20 4C 69 6E 65 4E 75 6D 62 65 72 73 3A 3D LineNumbers:=
01BD00: 20 20 20 20 20 20 20 20 20 20 20 45 6E 64 0D 0A End..
01BD10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01BD20: 20 20 20 20 20 20 20 45 6C 73 65 0D 0A 20 20 20 Else..
01BD30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01BD40: 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 20 20 Begin..
01BD50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01BD60: 20 20 20 20 20 50 61 72 73 65 53 74 61 74 65 3A ParseState:
01BD70: 3D 50 72 65 4B 65 79 3B 0D 0A 20 20 20 20 20 20 =PreKey;..
01BD80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01BD90: 20 20 20 49 3A 3D 49 2D 31 3B 0D 0A 20 20 20 20 I:=I-1;..
01BDA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01BDB0: 20 20 20 20 20 50 6F 73 73 69 62 6C 65 4B 65 79 PossibleKey
01BDC0: 5B 30 5D 3A 3D 43 68 72 28 4C 4B 29 3B 0D 0A 20 [0]:=Chr(LK);..
01BDD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01BDE0: 20 20 20 20 20 20 20 20 46 6F 72 20 4A 3A 3D 31 For J:=1
01BDF0: 20 54 6F 20 4C 4B 20 44 6F 0D 0A 20 20 20 20 20 To LK Do..
01BE00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01BE10: 20 20 20 20 20 20 50 6F 73 73 69 62 6C 65 4B 65 PossibleKe
01BE20: 79 5B 4A 5D 3A 3D 55 70 43 61 73 65 28 4C 69 6E y[J]:=UpCase(Lin
01BE30: 65 5B 46 69 72 73 74 2B 4A 2D 31 5D 29 3B 0D 0A e[First+J-1]);..
01BE40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01BE50: 20 20 20 20 20 20 20 20 20 46 6F 75 6E 64 3A 3D Found:=
01BE60: 46 61 6C 73 65 3B 0D 0A 20 20 20 20 20 20 20 20 False;..
01BE70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01BE80: 20 4D 69 6E 3A 3D 31 3B 0D 0A 20 20 20 20 20 20 Min:=1;..
01BE90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01BEA0: 20 20 20 4D 61 78 3A 3D 4E 4B 65 79 57 6F 72 64 Max:=NKeyWord
01BEB0: 73 2B 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 s+1;..
01BEC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 R
01BED0: 65 70 65 61 74 0D 0A 20 20 20 20 20 20 20 20 20 epeat..
01BEE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01BEF0: 20 20 47 75 65 73 73 3A 3D 28 4D 69 6E 2B 4D 61 Guess:=(Min+Ma
01BF00: 46 61 6C 73 65 3B 0D 0A 20 20 20 20 20 20 52 65 False;.. Re
01BF10: 70 65 61 74 0D 0A 20 20 20 20 20 20 20 20 57 4C peat.. WL
01BF20: 69 6E 65 28 27 27 29 3B 0D 0A 20 20 20 20 20 20 ine('');..
01BF30: 55 6E 74 69 6C 20 4E 6F 74 20 50 61 67 65 53 74 Until Not PageSt
01BF40: 61 72 74 65 64 3B 0D 0A 20 20 20 20 20 20 4C 69 arted;.. Li
01BF50: 6E 65 4E 75 6D 62 65 72 73 3A 3D 53 61 76 65 4C neNumbers:=SaveL
01BF60: 69 6E 65 4E 75 6D 62 65 72 73 3B 0D 0A 20 20 20 ineNumbers;..
01BF70: 20 45 6E 64 3B 0D 0A 0D 0A 0D 0A 20 20 50 72 6F End;...... Pro
01BF80: 63 65 64 75 72 65 20 4C 69 73 74 49 74 28 56 61 cedure ListIt(Va
01BF90: 72 20 49 6E 46 3A 20 54 65 78 74 29 3B 0D 0A 0D r InF: Text);...
01BFA0: 0A 20 20 20 20 56 61 72 0D 0A 20 20 20 20 20 20 . Var..
01BFB0: 4C 69 6E 65 2C 20 52 65 6D 61 69 6E 64 65 72 3A Line, Remainder:
01BFC0: 20 42 75 66 66 65 72 3B 0D 0A 20 20 20 20 20 20 Buffer;..
01BFD0: 57 61 73 43 6D 64 3A 20 42 6F 6F 6C 65 61 6E 3B WasCmd: Boolean;
01BFE0: 0D 0A 0D 0A 0D 0A 20 20 20 20 50 72 6F 63 65 64 ...... Proced
01BFF0: 75 72 65 20 55 70 4B 65 79 57 6F 72 64 73 3B 0D ure UpKeyWords;.
01C000: 0A 0D 0A 20 20 20 20 20 20 43 6F 6E 73 74 0D 0A ... Const..
01C010: 20 20 20 20 20 20 20 20 4E 4B 65 79 57 6F 72 64 NKeyWord
01C020: 73 3D 34 35 3B 0D 0A 20 20 20 20 20 20 20 20 4D s=45;.. M
01C030: 61 78 4B 65 79 4C 65 6E 3D 39 3B 0D 0A 20 20 20 axKeyLen=9;..
01C040: 20 20 20 20 20 4D 61 78 4B 65 79 4C 65 6E 50 6C MaxKeyLenPl
01C050: 75 73 31 3D 31 30 3B 0D 0A 20 20 20 20 20 20 20 us1=10;..
01C060: 20 4B 65 79 57 6F 72 64 73 3A 20 41 72 72 61 79 KeyWords: Array
01C070: 20 5B 31 2E 2E 4E 4B 65 79 57 6F 72 64 73 5D 20 [1..NKeyWords]
01C080: 4F 66 20 53 74 72 69 6E 67 5B 4D 61 78 4B 65 79 Of String[MaxKey
01C090: 4C 65 6E 5D 3D 0D 0A 20 20 20 20 20 20 20 20 20 Len]=..
01C0A0: 20 28 27 41 42 53 4F 4C 55 54 45 27 2C 27 41 4E ('ABSOLUTE','AN
01C0B0: 44 27 2C 27 41 52 52 41 59 27 2C 27 42 45 47 49 D','ARRAY','BEGI
01C0C0: 4E 27 2C 27 43 41 53 45 27 2C 27 43 4F 4E 53 54 N','CASE','CONST
01C0D0: 27 2C 27 44 49 56 27 2C 27 44 4F 27 2C 0D 0A 20 ','DIV','DO',..
01C0E0: 20 20 20 20 20 20 20 20 20 20 27 44 4F 57 4E 54 'DOWNT
01C0F0: 4F 27 2C 27 45 4C 53 45 27 2C 27 45 4E 44 27 2C O','ELSE','END',
01C100: 78 29 20 44 69 76 20 32 3B 0D 0A 20 20 20 20 20 x) Div 2;..
01C110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C120: 20 20 20 20 20 20 49 66 20 50 6F 73 73 69 62 6C If Possibl
01C130: 65 4B 65 79 3D 4B 65 79 57 6F 72 64 73 5B 47 75 eKey=KeyWords[Gu
01C140: 65 73 73 5D 20 54 68 65 6E 20 46 6F 75 6E 64 3A ess] Then Found:
01C150: 3D 54 72 75 65 0D 0A 20 20 20 20 20 20 20 20 20 =True..
01C160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C170: 20 20 45 6C 73 65 20 49 66 20 50 6F 73 73 69 62 Else If Possib
01C180: 6C 65 4B 65 79 3C 4B 65 79 57 6F 72 64 73 5B 47 leKey<KeyWords[G
01C190: 75 65 73 73 5D 20 54 68 65 6E 20 4D 61 78 3A 3D uess] Then Max:=
01C1A0: 47 75 65 73 73 0D 0A 20 20 20 20 20 20 20 20 20 Guess..
01C1B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C1C0: 20 20 45 6C 73 65 20 4D 69 6E 3A 3D 47 75 65 73 Else Min:=Gues
01C1D0: 73 2B 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 s+1;..
01C1E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 U
01C1F0: 6E 74 69 6C 20 46 6F 75 6E 64 20 4F 72 20 28 4D ntil Found Or (M
01C200: 69 6E 3D 4D 61 78 29 3B 0D 0A 20 20 20 20 20 20 in=Max);..
01C210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C220: 20 20 20 49 66 20 46 6F 75 6E 64 20 54 68 65 6E If Found Then
01C230: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01C240: 20 20 20 20 20 20 20 20 20 20 20 20 20 49 66 20 If
01C250: 28 4C 6F 4C 69 74 65 3D 27 27 29 20 4F 72 20 28 (LoLite='') Or (
01C260: 48 69 4C 69 74 65 3D 27 27 29 20 54 68 65 6E 0D HiLite='') Then.
01C270: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
01C280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4C 69 Li
01C290: 6E 65 3A 3D 43 6F 70 79 28 4C 69 6E 65 2C 31 2C ne:=Copy(Line,1,
01C2A0: 46 69 72 73 74 2D 31 29 2B 50 6F 73 73 69 62 6C First-1)+Possibl
01C2B0: 65 4B 65 79 2B 0D 0A 20 20 20 20 20 20 20 20 20 eKey+..
01C2C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C2D0: 20 20 20 20 20 20 20 20 20 20 43 6F 70 79 28 4C Copy(L
01C2E0: 69 6E 65 2C 46 69 72 73 74 2B 4C 4B 2C 32 30 30 ine,First+LK,200
01C2F0: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 )..
01C300: 27 45 58 54 45 52 4E 41 4C 27 2C 27 46 49 4C 45 'EXTERNAL','FILE
01C310: 27 2C 27 46 4F 52 27 2C 27 46 4F 52 57 41 52 44 ','FOR','FORWARD
01C320: 27 2C 27 46 55 4E 43 54 49 4F 4E 27 2C 0D 0A 20 ','FUNCTION',..
01C330: 20 20 20 20 20 20 20 20 20 20 27 47 4F 54 4F 27 'GOTO'
01C340: 2C 27 49 46 27 2C 27 49 4E 27 2C 27 49 4E 4C 49 ,'IF','IN','INLI
01C350: 4E 45 27 2C 27 4C 41 42 45 4C 27 2C 27 4D 4F 44 NE','LABEL','MOD
01C360: 27 2C 27 4E 49 4C 27 2C 27 4E 4F 54 27 2C 27 4F ','NIL','NOT','O
01C370: 46 27 2C 27 4F 52 27 2C 0D 0A 20 20 20 20 20 20 F','OR',..
01C380: 20 20 20 20 20 27 4F 56 45 52 4C 41 59 27 2C 27 'OVERLAY','
01C390: 50 41 43 4B 45 44 27 2C 27 50 52 4F 43 45 44 55 PACKED','PROCEDU
01C3A0: 52 45 27 2C 27 50 52 4F 47 52 41 4D 27 2C 27 52 RE','PROGRAM','R
01C3B0: 45 43 4F 52 44 27 2C 27 52 45 50 45 41 54 27 2C ECORD','REPEAT',
01C3C0: 27 53 45 54 27 2C 0D 0A 20 20 20 20 20 20 20 20 'SET',..
01C3D0: 20 20 20 27 53 48 4C 27 2C 27 53 48 52 27 2C 27 'SHL','SHR','
01C3E0: 53 54 52 49 4E 47 27 2C 27 54 48 45 4E 27 2C 27 STRING','THEN','
01C3F0: 54 4F 27 2C 27 54 59 50 45 27 2C 27 55 4E 54 49 TO','TYPE','UNTI
01C400: 4C 27 2C 27 56 41 52 27 2C 27 57 48 49 4C 45 27 L','VAR','WHILE'
01C410: 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 27 57 ,.. 'W
01C420: 49 54 48 27 2C 27 58 4F 52 27 2C 27 27 29 3B 0D ITH','XOR','');.
01C430: 0A 0D 0A 20 20 20 20 20 20 56 61 72 0D 0A 20 20 ... Var..
01C440: 20 20 20 20 20 20 46 69 72 73 74 2C 20 4C 4C 2C First, LL,
01C450: 20 4C 4B 2C 20 49 2C 20 4A 3A 20 49 6E 74 65 67 LK, I, J: Integ
01C460: 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 50 6F 73 er;.. Pos
01C470: 73 69 62 6C 65 4B 65 79 3A 20 53 74 72 69 6E 67 sibleKey: String
01C480: 5B 4D 61 78 4B 65 79 4C 65 6E 50 6C 75 73 31 5D [MaxKeyLenPlus1]
01C490: 3B 0D 0A 20 20 20 20 20 20 20 20 4D 69 6E 2C 20 ;.. Min,
01C4A0: 4D 61 78 2C 20 47 75 65 73 73 3A 20 49 6E 74 65 Max, Guess: Inte
01C4B0: 67 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 46 6F ger;.. Fo
01C4C0: 75 6E 64 3A 20 42 6F 6F 6C 65 61 6E 3B 0D 0A 20 und: Boolean;..
01C4D0: 20 20 20 20 20 20 20 4C 69 6E 65 31 3A 20 42 75 Line1: Bu
01C4E0: 66 66 65 72 3B 0D 0A 0D 0A 0D 0A 20 20 20 20 20 ffer;......
01C4F0: 20 42 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 Begin..
01C500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 6C El
01C510: 73 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 se..
01C520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C530: 42 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 Begin..
01C540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C550: 20 20 20 20 4C 69 6E 65 3A 3D 43 6F 70 79 28 4C Line:=Copy(L
01C560: 69 6E 65 2C 31 2C 46 69 72 73 74 2D 31 29 2B 48 ine,1,First-1)+H
01C570: 69 4C 69 74 65 2B 0D 0A 20 20 20 20 20 20 20 20 iLite+..
01C580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C590: 20 20 20 20 20 20 20 20 20 20 20 43 6F 70 79 28 Copy(
01C5A0: 4C 69 6E 65 2C 46 69 72 73 74 2C 4C 4B 29 2B 4C Line,First,LK)+L
01C5B0: 6F 4C 69 74 65 2B 0D 0A 20 20 20 20 20 20 20 20 oLite+..
01C5C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C5D0: 20 20 20 20 20 20 20 20 20 20 20 43 6F 70 79 28 Copy(
01C5E0: 4C 69 6E 65 2C 46 69 72 73 74 2B 4C 4B 2C 32 30 Line,First+LK,20
01C5F0: 30 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 0);..
01C600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C610: 20 20 4C 4C 3A 3D 4C 65 6E 67 74 68 28 4C 69 6E LL:=Length(Lin
01C620: 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 e);..
01C630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C640: 20 20 49 3A 3D 49 2B 4C 65 6E 67 74 68 28 48 69 I:=I+Length(Hi
01C650: 4C 69 74 65 29 2B 4C 65 6E 67 74 68 28 4C 6F 4C Lite)+Length(LoL
01C660: 69 74 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 ite);..
01C670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C680: 20 20 20 45 6E 64 3B 0D 0A 20 20 20 20 20 20 20 End;..
01C690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C6A0: 20 45 6E 64 3B 20 7B 20 45 6C 73 65 20 4C 69 6E End; { Else Lin
01C6B0: 65 5B 49 5D 20 4E 6F 74 20 49 6E 20 6B 65 79 77 e[I] Not In keyw
01C6C0: 6F 72 64 20 63 68 61 72 61 63 74 65 72 20 73 65 ord character se
01C6D0: 74 20 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 t }..
01C6E0: 20 20 20 43 6F 6D 6D 65 6E 74 3A 20 49 66 20 4C Comment: If L
01C6F0: 69 6E 65 5B 49 5D 3D 27 7D 27 20 54 68 65 6E 20 ine[I]='}' Then
01C700: 49 3A 3D 31 3B 0D 0A 20 20 20 20 20 20 20 20 4C I:=1;.. L
01C710: 4C 3A 3D 4C 65 6E 67 74 68 28 4C 69 6E 65 29 2B L:=Length(Line)+
01C720: 31 3B 0D 0A 20 20 20 20 20 20 20 20 49 66 20 55 1;.. If U
01C730: 70 4B 65 79 73 20 54 68 65 6E 0D 0A 20 20 20 20 pKeys Then..
01C740: 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 20 20 Begin..
01C750: 20 20 20 20 20 20 4C 69 6E 65 5B 4C 65 6E 67 74 Line[Lengt
01C760: 68 28 4C 69 6E 65 29 2B 31 5D 3A 3D 43 68 72 28 h(Line)+1]:=Chr(
01C770: 32 35 34 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 254);..
01C780: 20 4C 69 6E 65 5B 30 5D 3A 3D 53 75 63 63 28 4C Line[0]:=Succ(L
01C790: 69 6E 65 5B 30 5D 29 3B 0D 0A 20 20 20 20 20 20 ine[0]);..
01C7A0: 20 20 20 20 57 68 69 6C 65 20 49 3C 3D 4C 4C 20 While I<=LL
01C7B0: 44 6F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 42 Do.. B
01C7C0: 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 egin..
01C7D0: 20 20 43 61 73 65 20 50 61 72 73 65 53 74 61 74 Case ParseStat
01C7E0: 65 20 4F 66 0D 0A 20 20 20 20 20 20 20 20 20 20 e Of..
01C7F0: 20 20 20 20 50 72 65 4B 65 79 3A 20 43 61 73 65 PreKey: Case
01C800: 20 4C 69 6E 65 5B 49 5D 20 4F 66 0D 0A 20 20 20 Line[I] Of..
01C810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C820: 20 20 20 20 20 27 41 27 2E 2E 27 5A 27 2C 27 61 'A'..'Z','a
01C830: 27 2E 2E 27 7A 27 2C 27 5F 27 3A 20 42 65 67 69 '..'z','_': Begi
01C840: 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 n..
01C850: 20 20 20 20 20 20 20 20 20 20 20 20 20 50 61 72 Par
01C860: 73 65 53 74 61 74 65 3A 3D 4B 65 79 57 6F 72 64 seState:=KeyWord
01C870: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
01C880: 20 20 20 20 20 20 20 20 20 20 20 20 20 46 69 72 Fir
01C890: 73 74 3A 3D 49 3B 0D 0A 20 20 20 20 20 20 20 20 st:=I;..
01C8A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C8B0: 20 20 4C 4B 3A 3D 31 3B 0D 0A 20 20 20 20 20 20 LK:=1;..
01C8C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C8D0: 20 20 20 45 6E 64 3B 0D 0A 20 20 20 20 20 20 20 End;..
01C8E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C8F0: 20 27 7B 27 3A 20 50 61 72 73 65 53 74 61 74 65 '{': ParseState
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 52 E5 18 00 41 02 00 00 00 02 ......R...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: 50 61 72 73 65 53 74 61 74 65 3A 3D 50 72 65 4B ParseState:=PreK
01CA10: 65 79 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ey;..
01CA20: 20 20 20 43 6F 6D 6D 65 6E 74 32 3A 20 49 66 20 Comment2: If
01CA30: 43 6F 70 79 28 4C 69 6E 65 2C 49 2C 32 29 3D 27 Copy(Line,I,2)='
01CA40: 2A 29 27 20 54 68 65 6E 20 50 61 72 73 65 53 74 *)' Then ParseSt
01CA50: 61 74 65 3A 3D 50 72 65 4B 65 79 3B 0D 0A 20 20 ate:=PreKey;..
01CA60: 20 20 20 20 20 20 20 20 20 20 20 20 51 75 6F 74 Quot
01CA70: 65 64 3A 20 49 66 20 4C 69 6E 65 5B 49 5D 3D 27 ed: If Line[I]='
01CA80: 27 27 27 20 54 68 65 6E 20 50 61 72 73 65 53 74 ''' Then ParseSt
01CA90: 61 74 65 3A 3D 50 72 65 4B 65 79 3B 0D 0A 20 20 ate:=PreKey;..
01CAA0: 20 20 20 20 20 20 20 20 20 20 20 45 6E 64 3B 20 End;
01CAB0: 7B 20 43 61 73 65 20 50 61 72 73 65 53 74 61 74 { Case ParseStat
01CAC0: 65 20 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 e }..
01CAD0: 20 49 3A 3D 49 2B 31 3B 0D 0A 20 20 20 20 20 20 I:=I+1;..
01CAE0: 20 20 20 20 20 45 6E 64 3B 20 7B 20 57 68 69 6C End; { Whil
01CAF0: 65 20 49 3C 3D 4C 4C 20 7D 0D 0A 20 20 20 20 20 e I<=LL }..
01CB00: 20 20 20 20 20 49 66 20 4C 69 6E 65 5B 4C 65 6E If Line[Len
01CB10: 67 74 68 28 4C 69 6E 65 29 5D 3D 43 68 72 28 32 gth(Line)]=Chr(2
01CB20: 35 34 29 20 54 68 65 6E 20 4C 69 6E 65 5B 30 5D 54) Then Line[0]
01CB30: 3A 3D 50 72 65 64 28 4C 69 6E 65 5B 30 5D 29 3B :=Pred(Line[0]);
01CB40: 0D 0A 20 20 20 20 20 20 20 20 20 45 6E 64 3B 20 .. End;
01CB50: 7B 20 49 66 20 55 70 4B 65 79 73 20 7D 0D 0A 20 { If UpKeys }..
01CB60: 20 20 20 20 20 20 20 4C 69 6E 65 31 3A 3D 52 65 Line1:=Re
01CB70: 6D 61 69 6E 64 65 72 3B 0D 0A 20 20 20 20 20 20 mainder;..
01CB80: 20 20 49 66 20 55 70 4B 65 79 73 20 41 6E 64 20 If UpKeys And
01CB90: 28 4C 69 6E 65 5B 4C 65 6E 67 74 68 28 4C 69 6E (Line[Length(Lin
01CBA0: 65 29 5D 3D 27 2A 27 29 20 54 68 65 6E 20 4C 69 e)]='*') Then Li
01CBB0: 6E 65 31 3A 3D 27 2A 27 2B 4C 69 6E 65 31 3B 0D ne1:='*'+Line1;.
01CBC0: 0A 20 20 20 20 20 20 20 20 49 66 20 4E 6F 74 20 . If Not
01CBD0: 55 70 4B 65 79 73 20 54 68 65 6E 20 4C 69 6E 65 UpKeys Then Line
01CBE0: 31 3A 3D 4C 69 6E 65 2B 52 65 6D 61 69 6E 64 65 1:=Line+Remainde
01CBF0: 72 3B 0D 0A 20 20 20 20 20 20 20 20 49 3A 3D 31 r;.. I:=1
01CC00: 20 20 20 20 20 20 20 20 20 49 2C 54 65 6D 70 2C I,Temp,
01CC10: 43 6F 64 65 3A 20 49 6E 74 65 67 65 72 3B 0D 0A Code: Integer;..
01CC20: 20 20 20 20 20 20 20 20 20 20 20 20 43 56 3A 20 CV:
01CC30: 46 69 6C 65 4E 61 6D 65 3B 0D 0A 0D 0A 20 20 20 FileName;....
01CC40: 20 20 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 Begin..
01CC50: 20 20 20 20 20 20 20 20 20 20 43 56 3A 3D 43 6D CV:=Cm
01CC60: 64 53 74 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 dStr;..
01CC70: 20 20 20 46 69 78 53 74 72 69 6E 67 28 43 56 29 FixString(CV)
01CC80: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 56 ;.. V
01CC90: 61 6C 28 43 56 2C 54 65 6D 70 2C 43 6F 64 65 29 al(CV,Temp,Code)
01CCA0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 49 ;.. I
01CCB0: 66 20 43 6F 64 65 3D 30 20 54 68 65 6E 20 43 6D f Code=0 Then Cm
01CCC0: 64 56 61 6C 3A 3D 54 65 6D 70 0D 0A 20 20 20 20 dVal:=Temp..
01CCD0: 20 20 20 20 20 20 20 20 45 6C 73 65 0D 0A 20 20 Else..
01CCE0: 20 20 20 20 20 20 20 20 20 20 20 42 65 67 69 6E Begin
01CCF0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01CD00: 43 6D 64 56 61 6C 3A 3D 4F 6C 64 56 61 6C 3B 0D CmdVal:=OldVal;.
01CD10: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 . W
01CD20: 61 73 43 6D 64 3A 3D 46 61 6C 73 65 3B 0D 0A 20 asCmd:=False;..
01CD30: 20 20 20 20 20 20 20 20 20 20 20 20 45 6E 64 3B End;
01CD40: 0D 0A 20 20 20 20 20 20 20 20 20 20 45 6E 64 3B .. End;
01CD50: 0D 0A 0D 0A 0D 0A 20 20 20 20 20 20 20 20 42 65 ...... Be
01CD60: 67 69 6E 20 7B 20 43 68 65 63 6B 44 69 72 65 63 gin { CheckDirec
01CD70: 74 69 76 65 20 7D 0D 0A 20 20 20 20 20 20 20 20 tive }..
01CD80: 20 20 57 61 73 43 6D 64 3A 3D 46 61 6C 73 65 3B WasCmd:=False;
01CD90: 0D 0A 20 20 20 20 20 20 20 20 20 20 49 66 20 4C .. If L
01CDA0: 69 6E 65 5B 57 68 65 72 65 5D 3D 27 2E 27 20 54 ine[Where]='.' T
01CDB0: 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 hen..
01CDC0: 42 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 Begin..
01CDD0: 20 20 20 43 6D 64 3A 3D 43 6F 70 79 28 4C 69 6E Cmd:=Copy(Lin
01CDE0: 65 2C 57 68 65 72 65 2B 31 2C 32 29 3B 0D 0A 20 e,Where+1,2);..
01CDF0: 20 20 20 20 20 20 20 20 20 20 20 46 6F 72 20 49 For I
01CE00: 3B 0D 0A 20 20 20 20 20 20 20 20 4C 4C 3A 3D 4C ;.. LL:=L
01CE10: 65 6E 67 74 68 28 4C 69 6E 65 31 29 2B 31 3B 0D ength(Line1)+1;.
01CE20: 0A 20 20 20 20 20 20 20 20 20 57 68 69 6C 65 20 . While
01CE30: 49 3C 4C 4C 20 44 6F 0D 0A 20 20 20 20 20 20 20 I<LL Do..
01CE40: 20 20 20 42 65 67 69 6E 0D 0A 20 20 20 20 20 20 Begin..
01CE50: 20 20 20 20 20 43 61 73 65 20 4C 69 6E 65 31 5B Case Line1[
01CE60: 49 5D 20 4F 66 0D 0A 20 20 20 20 20 20 20 20 20 I] Of..
01CE70: 20 20 20 20 27 7B 27 3A 20 49 66 20 50 61 72 73 '{': If Pars
01CE80: 65 53 74 61 74 65 3C 3E 51 75 6F 74 65 64 20 54 eState<>Quoted T
01CE90: 68 65 6E 20 50 61 72 73 65 53 74 61 74 65 3A 3D hen ParseState:=
01CEA0: 43 6F 6D 6D 65 6E 74 3B 0D 0A 20 20 20 20 20 20 Comment;..
01CEB0: 20 20 20 20 20 20 20 27 28 27 3A 20 49 66 20 28 '(': If (
01CEC0: 50 61 72 73 65 53 74 61 74 65 3C 3E 51 75 6F 74 ParseState<>Quot
01CED0: 65 64 29 20 41 6E 64 20 28 43 6F 70 79 28 4C 69 ed) And (Copy(Li
01CEE0: 6E 65 31 2C 49 2C 32 29 3D 27 28 2A 27 29 20 54 ne1,I,2)='(*') T
01CEF0: 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 hen..
01CF00: 20 20 20 20 20 20 20 20 20 50 61 72 73 65 53 74 ParseSt
01CF10: 61 74 65 3A 3D 43 6F 6D 6D 65 6E 74 32 3B 0D 0A ate:=Comment2;..
01CF20: 20 20 20 20 20 20 20 20 20 20 20 20 20 27 7D 27 '}'
01CF30: 3A 20 49 66 20 50 61 72 73 65 53 74 61 74 65 3D : If ParseState=
01CF40: 43 6F 6D 6D 65 6E 74 20 54 68 65 6E 20 50 61 72 Comment Then Par
01CF50: 73 65 53 74 61 74 65 3A 3D 50 72 65 4B 65 79 3B seState:=PreKey;
01CF60: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 27 .. '
01CF70: 2A 27 3A 20 49 66 20 28 50 61 72 73 65 53 74 61 *': If (ParseSta
01CF80: 74 65 3D 43 6F 6D 6D 65 6E 74 32 29 20 41 6E 64 te=Comment2) And
01CF90: 20 28 43 6F 70 79 28 4C 69 6E 65 31 2C 49 2C 32 (Copy(Line1,I,2
01CFA0: 29 3D 27 2A 29 27 29 20 54 68 65 6E 0D 0A 20 20 )='*)') Then..
01CFB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01CFC0: 20 20 50 61 72 73 65 53 74 61 74 65 3A 3D 50 72 ParseState:=Pr
01CFD0: 65 4B 65 79 3B 0D 0A 20 20 20 20 20 20 20 20 20 eKey;..
01CFE0: 20 20 20 20 27 27 27 27 3A 20 49 66 20 50 61 72 '''': If Par
01CFF0: 73 65 53 74 61 74 65 3D 51 75 6F 74 65 64 20 54 seState=Quoted T
01D000: 3A 3D 31 20 54 6F 20 32 20 44 6F 20 43 6D 64 5B :=1 To 2 Do Cmd[
01D010: 49 5D 3A 3D 55 70 63 61 73 65 28 43 6D 64 5B 49 I]:=Upcase(Cmd[I
01D020: 5D 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ]);..
01D030: 20 57 61 73 43 6D 64 3A 3D 54 72 75 65 3B 0D 0A WasCmd:=True;..
01D040: 20 20 20 20 20 20 20 20 20 20 20 20 49 66 20 43 If C
01D050: 6D 64 3D 27 50 4C 27 20 54 68 65 6E 0D 0A 20 20 md='PL' Then..
01D060: 20 20 20 20 20 20 20 20 20 20 20 42 65 67 69 6E Begin
01D070: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01D080: 49 66 20 50 61 67 65 53 74 61 72 74 65 64 20 54 If PageStarted T
01D090: 68 65 6E 20 4E 65 77 50 61 67 65 3B 0D 0A 20 20 hen NewPage;..
01D0A0: 20 20 20 20 20 20 20 20 20 20 20 20 50 61 67 65 Page
01D0B0: 4C 65 6E 67 74 68 3A 3D 43 6D 64 56 61 6C 28 50 Length:=CmdVal(P
01D0C0: 61 67 65 4C 65 6E 67 74 68 29 3B 0D 0A 20 20 20 ageLength);..
01D0D0: 20 20 20 20 20 20 20 20 20 20 20 49 66 20 50 61 If Pa
01D0E0: 67 65 4C 65 6E 67 74 68 3C 37 20 54 68 65 6E 20 geLength<7 Then
01D0F0: 50 61 67 65 4C 65 6E 67 74 68 3A 3D 37 3B 0D 0A PageLength:=7;..
01D100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4C 69 Li
01D110: 6E 65 73 4C 65 66 74 3A 3D 50 61 67 65 4C 65 6E nesLeft:=PageLen
01D120: 67 74 68 2D 36 3B 0D 0A 20 20 20 20 20 20 20 20 gth-6;..
01D130: 20 20 20 20 20 45 6E 64 0D 0A 20 20 20 20 20 20 End..
01D140: 20 20 20 20 20 20 45 6C 73 65 20 49 66 20 43 6D Else If Cm
01D150: 64 3D 27 50 41 27 20 54 68 65 6E 20 4E 65 77 50 d='PA' Then NewP
01D160: 61 67 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 age..
01D170: 20 45 6C 73 65 20 49 66 20 43 6D 64 3D 27 43 50 Else If Cmd='CP
01D180: 27 20 54 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 ' Then..
01D190: 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 20 20 Begin..
01D1A0: 20 20 20 20 20 20 20 20 20 20 49 66 20 4C 69 6E If Lin
01D1B0: 65 73 4C 65 66 74 3C 43 6D 64 56 61 6C 28 30 29 esLeft<CmdVal(0)
01D1C0: 20 54 68 65 6E 20 4E 65 77 50 61 67 65 3B 0D 0A Then NewPage;..
01D1D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 6E 64 End
01D1E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 45 6C .. El
01D1F0: 73 65 20 49 66 20 43 6D 64 3D 27 50 4F 27 20 54 se If Cmd='PO' T
01D200: 68 65 6E 20 50 61 72 73 65 53 74 61 74 65 3A 3D hen ParseState:=
01D210: 50 72 65 4B 65 79 0D 0A 20 20 20 20 20 20 20 20 PreKey..
01D220: 20 20 20 20 20 20 20 20 20 20 20 45 6C 73 65 20 Else
01D230: 49 66 20 50 61 72 73 65 53 74 61 74 65 3D 50 72 If ParseState=Pr
01D240: 65 4B 65 79 20 54 68 65 6E 20 50 61 72 73 65 53 eKey Then ParseS
01D250: 74 61 74 65 3A 3D 51 75 6F 74 65 64 3B 0D 0A 20 tate:=Quoted;..
01D260: 20 20 20 20 20 20 20 20 20 20 20 45 6E 64 3B 0D End;.
01D270: 0A 20 20 20 20 20 20 20 20 20 20 20 49 3A 3D 49 . I:=I
01D280: 2B 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 45 +1;.. E
01D290: 6E 64 3B 20 7B 20 57 68 69 6C 65 20 49 3C 4C 4C nd; { While I<LL
01D2A0: 20 7D 0D 0A 20 20 20 20 20 20 20 20 49 66 20 50 }.. If P
01D2B0: 61 72 73 65 53 74 61 74 65 3D 51 75 6F 74 65 64 arseState=Quoted
01D2C0: 20 54 68 65 6E 20 50 61 72 73 65 53 74 61 74 65 Then ParseState
01D2D0: 3A 3D 50 72 65 4B 65 79 3B 0D 0A 20 20 20 20 20 :=PreKey;..
01D2E0: 20 45 6E 64 3B 20 7B 20 55 70 4B 65 79 57 6F 72 End; { UpKeyWor
01D2F0: 64 73 20 7D 0D 0A 0D 0A 0D 0A 20 20 20 20 50 72 ds }...... Pr
01D300: 6F 63 65 64 75 72 65 20 54 72 75 6E 63 61 74 65 ocedure Truncate
01D310: 4C 69 6E 65 3B 0D 0A 0D 0A 20 20 20 20 20 20 56 Line;.... V
01D320: 61 72 0D 0A 20 20 20 20 20 20 20 20 45 78 74 72 ar.. Extr
01D330: 61 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 0D 0A 20 a: Integer;....
01D340: 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 20 20 Begin..
01D350: 20 20 20 20 45 78 74 72 61 3A 3D 49 6E 64 65 6E Extra:=Inden
01D360: 74 3B 0D 0A 20 20 20 20 20 20 20 20 49 66 20 4C t;.. If L
01D370: 69 6E 65 4E 75 6D 62 65 72 73 20 54 68 65 6E 20 ineNumbers Then
01D380: 45 78 74 72 61 3A 3D 45 78 74 72 61 2B 37 0D 0A Extra:=Extra+7..
01D390: 20 20 20 20 20 20 20 20 45 6C 73 65 20 49 66 20 Else If
01D3A0: 49 6E 49 6E 63 6C 75 64 65 20 54 68 65 6E 20 45 InInclude Then E
01D3B0: 78 74 72 61 3A 3D 45 78 74 72 61 2B 32 3B 0D 0A xtra:=Extra+2;..
01D3C0: 20 20 20 20 20 20 20 20 49 66 20 4C 65 6E 67 74 If Lengt
01D3D0: 68 28 4C 69 6E 65 29 2B 45 78 74 72 61 3E 4C 69 h(Line)+Extra>Li
01D3E0: 6E 65 57 69 64 74 68 20 54 68 65 6E 0D 0A 20 20 neWidth Then..
01D3F0: 20 20 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 Begin..
01D400: 68 65 6E 20 49 6E 64 65 6E 74 3A 3D 43 6D 64 56 hen Indent:=CmdV
01D410: 61 6C 28 49 6E 64 65 6E 74 29 0D 0A 20 20 20 20 al(Indent)..
01D420: 20 20 20 20 20 20 20 20 45 6C 73 65 20 49 66 20 Else If
01D430: 43 6D 64 3D 27 48 45 27 20 54 68 65 6E 20 48 65 Cmd='HE' Then He
01D440: 61 64 69 6E 67 3A 3D 43 6D 64 53 74 72 0D 0A 20 ading:=CmdStr..
01D450: 20 20 20 20 20 20 20 20 20 20 20 45 6C 73 65 20 Else
01D460: 49 66 20 43 6D 64 3D 27 46 4F 27 20 54 68 65 6E If Cmd='FO' Then
01D470: 20 46 6F 6F 74 69 6E 67 3A 3D 43 6D 64 53 74 72 Footing:=CmdStr
01D480: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 45 6C .. El
01D490: 73 65 20 49 66 20 43 6D 64 3D 27 48 49 27 20 54 se If Cmd='HI' T
01D4A0: 68 65 6E 20 48 69 4C 69 74 65 3A 3D 43 6D 64 53 hen HiLite:=CmdS
01D4B0: 74 72 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 tr..
01D4C0: 45 6C 73 65 20 49 66 20 43 6D 64 3D 27 4C 4F 27 Else If Cmd='LO'
01D4D0: 20 54 68 65 6E 20 4C 6F 4C 69 74 65 3A 3D 43 6D Then LoLite:=Cm
01D4E0: 64 53 74 72 0D 0A 20 20 20 20 20 20 20 20 20 20 dStr..
01D4F0: 20 20 45 6C 73 65 20 49 66 20 43 6D 64 3D 27 4C Else If Cmd='L
01D500: 2D 27 20 54 68 65 6E 20 4E 6F 4C 69 73 74 3A 3D -' Then NoList:=
01D510: 54 72 75 65 0D 0A 20 20 20 20 20 20 20 20 20 20 True..
01D520: 20 20 45 6C 73 65 20 49 66 20 43 6D 64 3D 27 4C Else If Cmd='L
01D530: 2B 27 20 54 68 65 6E 20 4E 6F 4C 69 73 74 3A 3D +' Then NoList:=
01D540: 46 61 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 False..
01D550: 20 20 20 45 6C 73 65 20 49 66 20 43 6D 64 3D 27 Else If Cmd='
01D560: 55 2D 27 20 54 68 65 6E 20 55 70 4B 65 79 73 3A U-' Then UpKeys:
01D570: 3D 46 61 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 =False..
01D580: 20 20 20 20 45 6C 73 65 20 49 66 20 43 6D 64 3D Else If Cmd=
01D590: 27 55 2B 27 20 54 68 65 6E 20 55 70 4B 65 79 73 'U+' Then UpKeys
01D5A0: 3A 3D 54 72 75 65 0D 0A 20 20 20 20 20 20 20 20 :=True..
01D5B0: 20 20 20 20 45 6C 73 65 20 49 66 20 43 6D 64 3D Else If Cmd=
01D5C0: 27 4E 2D 27 20 54 68 65 6E 20 4C 69 6E 65 4E 75 'N-' Then LineNu
01D5D0: 6D 62 65 72 73 3A 3D 46 61 6C 73 65 0D 0A 20 20 mbers:=False..
01D5E0: 20 20 20 20 20 20 20 20 20 20 45 6C 73 65 20 49 Else I
01D5F0: 66 20 43 6D 64 3D 27 4E 2B 27 20 54 68 65 6E 20 f Cmd='N+' Then
01D600: 20 20 20 20 20 20 20 20 52 65 6D 61 69 6E 64 65 Remainde
01D610: 72 3A 3D 43 6F 70 79 28 4C 69 6E 65 2C 4C 69 6E r:=Copy(Line,Lin
01D620: 65 57 69 64 74 68 2D 45 78 74 72 61 2B 31 2C 32 eWidth-Extra+1,2
01D630: 30 30 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 00);..
01D640: 4C 69 6E 65 3A 3D 43 6F 70 79 28 4C 69 6E 65 2C Line:=Copy(Line,
01D650: 31 2C 4C 69 6E 65 57 69 64 74 68 2D 45 78 74 72 1,LineWidth-Extr
01D660: 61 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 45 6E a);.. En
01D670: 64 0D 0A 20 20 20 20 20 20 20 20 45 6C 73 65 0D d.. Else.
01D680: 0A 20 20 20 20 20 20 20 20 20 20 52 65 6D 61 69 . Remai
01D690: 6E 64 65 72 3A 3D 27 27 3B 0D 0A 20 20 20 20 20 nder:='';..
01D6A0: 20 45 6E 64 3B 0D 0A 0D 0A 1A 20 20 49 66 20 50 End;..... If P
01D6B0: 61 72 73 65 53 74 61 74 65 3D 51 75 6F 74 65 64 arseState=Quoted
01D6C0: 20 54 68 65 6E 20 50 61 72 73 65 53 74 61 74 65 Then ParseState
01D6D0: 3A 3D 50 72 65 4B 65 79 3B 0D 0A 20 20 20 20 20 :=PreKey;..
01D6E0: 20 45 6E 64 3B 20 7B 20 55 70 4B 65 79 57 6F 72 End; { UpKeyWor
01D6F0: 64 73 20 7D 0D 0A 0D 0A 0D 0A 20 20 20 20 50 72 ds }...... Pr
01D700: 6F 63 65 64 75 72 65 20 54 72 75 6E 63 61 74 65 ocedure Truncate
01D710: 4C 69 6E 65 3B 0D 0A 0D 0A 20 20 20 20 20 20 56 Line;.... V
01D720: 61 72 0D 0A 20 20 20 20 20 20 20 20 45 78 74 72 ar.. Extr
01D730: 61 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 0D 0A 20 a: Integer;....
01D740: 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 20 20 Begin..
01D750: 20 20 20 20 45 78 74 72 61 3A 3D 49 6E 64 65 6E Extra:=Inden
01D760: 74 3B 0D 0A 20 20 20 20 20 20 20 20 49 66 20 4C t;.. If L
01D770: 69 6E 65 4E 75 6D 62 65 72 73 20 54 68 65 6E 20 ineNumbers Then
01D780: 45 78 74 72 61 3A 3D 45 78 74 72 61 2B 37 0D 0A Extra:=Extra+7..
01D790: 20 20 20 20 20 20 20 20 45 6C 73 65 20 49 66 20 Else If
01D7A0: 49 6E 49 6E 63 6C 75 64 65 20 54 68 65 6E 20 45 InInclude Then E
01D7B0: 78 74 72 61 3A 3D 45 78 74 72 61 2B 32 3B 0D 0A xtra:=Extra+2;..
01D7C0: 20 20 20 20 20 20 20 20 49 66 20 4C 65 6E 67 74 If Lengt
01D7D0: 68 28 4C 69 6E 65 29 2B 45 78 74 72 61 3E 4C 69 h(Line)+Extra>Li
01D7E0: 6E 65 57 69 64 74 68 20 54 68 65 6E 0D 0A 20 20 neWidth Then..
01D7F0: 20 20 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 Begin..
01D800: 4C 69 6E 65 4E 75 6D 62 65 72 73 3A 3D 54 72 75 LineNumbers:=Tru
01D810: 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 45 e.. E
01D820: 6C 73 65 20 49 66 20 43 6D 64 3D 27 50 2D 27 20 lse If Cmd='P-'
01D830: 54 68 65 6E 20 50 61 67 65 46 6F 72 49 6E 63 6C Then PageForIncl
01D840: 75 64 65 73 3A 3D 46 61 6C 73 65 0D 0A 20 20 20 udes:=False..
01D850: 20 20 20 20 20 20 20 20 20 45 6C 73 65 20 49 66 Else If
01D860: 20 43 6D 64 3D 27 50 2B 27 20 54 68 65 6E 20 50 Cmd='P+' Then P
01D870: 61 67 65 46 6F 72 49 6E 63 6C 75 64 65 73 3A 3D ageForIncludes:=
01D880: 54 72 75 65 0D 0A 20 20 20 20 20 20 20 20 20 20 True..
01D890: 20 20 45 6C 73 65 20 49 66 20 43 6D 64 3D 27 4C Else If Cmd='L
01D8A0: 57 27 20 54 68 65 6E 20 4C 69 6E 65 57 69 64 74 W' Then LineWidt
01D8B0: 68 3A 3D 43 6D 64 56 61 6C 28 4C 69 6E 65 57 69 h:=CmdVal(LineWi
01D8C0: 64 74 68 29 0D 0A 20 20 20 20 20 20 20 20 20 20 dth)..
01D8D0: 20 20 45 6C 73 65 20 49 66 20 43 6D 64 3D 27 50 Else If Cmd='P
01D8E0: 52 27 20 54 68 65 6E 20 57 72 69 74 65 28 4F 75 R' Then Write(Ou
01D8F0: 74 46 69 6C 65 2C 43 6D 64 53 74 72 29 0D 0A 20 tFile,CmdStr)..
01D900: 20 20 20 20 20 20 20 20 20 20 20 45 6C 73 65 20 Else
01D910: 57 61 73 43 6D 64 3A 3D 46 61 6C 73 65 3B 0D 0A WasCmd:=False;..
01D920: 20 20 20 20 20 20 20 20 20 20 20 45 6E 64 20 7B End {
01D930: 20 49 66 20 4C 69 6E 65 5B 57 68 65 72 65 5D 3D If Line[Where]=
01D940: 27 2E 27 20 7D 0D 0A 20 20 20 20 20 20 20 20 20 '.' }..
01D950: 20 45 6C 73 65 20 49 66 20 28 4C 69 6E 65 5B 57 Else If (Line[W
01D960: 68 65 72 65 5D 3D 27 24 27 29 20 41 6E 64 20 28 here]='$') And (
01D970: 55 70 43 61 73 65 28 4C 69 6E 65 5B 57 68 65 72 UpCase(Line[Wher
01D980: 65 2B 31 5D 29 3D 27 49 27 29 20 41 6E 64 0D 0A e+1])='I') And..
01D990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01D9A0: 20 20 4E 6F 74 20 28 4C 69 6E 65 5B 57 68 65 72 Not (Line[Wher
01D9B0: 65 2B 32 5D 20 49 6E 20 5B 27 2D 27 2C 27 2B 27 e+2] In ['-','+'
01D9C0: 5D 29 20 54 68 65 6E 0D 0A 20 20 20 20 20 20 20 ]) Then..
01D9D0: 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 20 20 20 Begin..
01D9E0: 20 20 20 20 20 20 20 49 6E 63 6C 75 64 65 4E 61 IncludeNa
01D9F0: 6D 65 3A 3D 43 6F 70 79 28 4C 69 6E 65 2C 57 68 me:=Copy(Line,Wh
01DA00: 0D 0A 20 20 20 20 50 72 6F 63 65 64 75 72 65 20 .. Procedure
01DA10: 50 72 6F 63 65 73 73 44 69 72 65 63 74 69 76 65 ProcessDirective
01DA20: 73 3B 0D 0A 0D 0A 20 20 20 20 20 20 56 61 72 0D s;.... Var.
01DA30: 0A 20 20 20 20 20 20 20 20 43 6D 64 3A 20 53 74 . Cmd: St
01DA40: 72 69 6E 67 33 3B 0D 0A 20 20 20 20 20 20 20 20 ring3;..
01DA50: 49 6E 63 6C 75 64 65 4E 61 6D 65 3A 20 46 69 6C IncludeName: Fil
01DA60: 65 4E 61 6D 65 3B 0D 0A 20 20 20 20 20 20 20 20 eName;..
01DA70: 49 6E 63 6C 75 64 65 46 69 6C 65 3A 20 54 65 78 IncludeFile: Tex
01DA80: 74 3B 0D 0A 20 20 20 20 20 20 20 20 57 68 65 72 t;.. Wher
01DA90: 65 2C 20 54 65 6D 70 2C 20 4F 66 66 53 65 74 3A e, Temp, OffSet:
01DAA0: 20 49 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 20 Integer;..
01DAB0: 20 20 20 52 69 67 68 74 50 61 72 74 3A 20 42 75 RightPart: Bu
01DAC0: 66 66 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 44 ffer;.. D
01DAD0: 65 6C 69 6D 69 74 65 72 3A 20 53 74 72 69 6E 67 elimiter: String
01DAE0: 5B 32 5D 3B 0D 0A 20 20 20 20 20 20 20 20 57 61 [2];.. Wa
01DAF0: 73 45 6D 70 74 79 3A 20 42 6F 6F 6C 65 61 6E 3B sEmpty: Boolean;
01DB00: 0D 0A 0D 0A 0D 0A 20 20 20 20 20 20 50 72 6F 63 ...... Proc
01DB10: 65 64 75 72 65 20 43 68 65 63 6B 44 69 72 65 63 edure CheckDirec
01DB20: 74 69 76 65 28 57 68 65 72 65 2C 20 4C 65 6E 3A tive(Where, Len:
01DB30: 20 49 6E 74 65 67 65 72 29 3B 0D 0A 0D 0A 0D 0A Integer);......
01DB40: 20 20 20 20 20 20 20 20 46 75 6E 63 74 69 6F 6E Function
01DB50: 20 43 6D 64 53 74 72 3A 20 42 75 66 66 65 72 3B CmdStr: Buffer;
01DB60: 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 42 65 .... Be
01DB70: 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 gin..
01DB80: 20 43 6D 64 53 74 72 3A 3D 43 6F 70 79 28 4C 69 CmdStr:=Copy(Li
01DB90: 6E 65 2C 57 68 65 72 65 2B 33 2C 4C 65 6E 2D 33 ne,Where+3,Len-3
01DBA0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 45 6E );.. En
01DBB0: 64 3B 0D 0A 0D 0A 0D 0A 20 20 20 20 20 20 20 20 d;......
01DBC0: 46 75 6E 63 74 69 6F 6E 20 43 6D 64 56 61 6C 28 Function CmdVal(
01DBD0: 4F 6C 64 56 61 6C 3A 20 49 6E 74 65 67 65 72 29 OldVal: Integer)
01DBE0: 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 0D 0A 20 20 : Integer;....
01DBF0: 20 20 20 20 20 20 20 20 56 61 72 0D 0A 20 20 20 Var..
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: 65 72 65 2B 32 2C 4C 65 6E 2D 32 29 3B 0D 0A 20 ere+2,Len-2);..
01DD10: 20 20 20 20 20 20 20 20 20 20 20 46 69 78 46 69 FixFi
01DD20: 6C 65 4E 61 6D 65 28 49 6E 63 6C 75 64 65 4E 61 leName(IncludeNa
01DD30: 6D 65 2C 27 50 41 53 27 29 3B 0D 0A 20 20 20 20 me,'PAS');..
01DD40: 20 20 20 20 20 20 20 20 49 66 20 28 49 6E 63 6C If (Incl
01DD50: 75 64 65 4E 61 6D 65 5B 32 5D 3C 3E 27 3A 27 29 udeName[2]<>':')
01DD60: 20 41 6E 64 20 28 49 6E 63 6C 75 64 65 44 72 69 And (IncludeDri
01DD70: 76 65 3C 3E 27 20 27 29 20 54 68 65 6E 0D 0A 20 ve<>' ') Then..
01DD80: 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6E 63 Inc
01DD90: 6C 75 64 65 4E 61 6D 65 3A 3D 49 6E 63 6C 75 64 ludeName:=Includ
01DDA0: 65 44 72 69 76 65 2B 27 3A 27 2B 49 6E 63 6C 75 eDrive+':'+Inclu
01DDB0: 64 65 4E 61 6D 65 3B 0D 0A 20 20 20 20 20 20 20 deName;..
01DDC0: 20 20 20 20 20 49 66 20 49 6E 49 6E 63 6C 75 64 If InInclud
01DDD0: 65 20 54 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 e Then..
01DDE0: 20 20 20 20 20 20 4C 69 6E 65 3A 3D 27 2D 2D 20 Line:='--
01DDF0: 49 6C 6C 65 67 61 6C 20 6E 65 73 74 65 64 20 69 Illegal nested i
01DE00: 6E 63 6C 75 64 65 20 6F 66 20 66 69 6C 65 20 27 nclude of file '
01DE10: 2B 49 6E 63 6C 75 64 65 4E 61 6D 65 2B 27 20 2D +IncludeName+' -
01DE20: 2D 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 -'..
01DE30: 45 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 20 Else..
01DE40: 20 20 20 42 65 67 69 6E 0D 0A 20 20 20 20 20 20 Begin..
01DE50: 20 20 20 20 20 20 20 20 41 73 73 69 67 6E 28 49 Assign(I
01DE60: 6E 63 6C 75 64 65 46 69 6C 65 2C 49 6E 63 6C 75 ncludeFile,Inclu
01DE70: 64 65 4E 61 6D 65 29 3B 0D 0A 20 20 20 20 20 20 deName);..
01DE80: 20 20 20 20 20 20 20 20 7B 24 49 2D 7D 20 52 65 {$I-} Re
01DE90: 73 65 74 28 49 6E 63 6C 75 64 65 46 69 6C 65 29 set(IncludeFile)
01DEA0: 3B 20 7B 24 49 2B 7D 0D 0A 20 20 20 20 20 20 20 ; {$I+}..
01DEB0: 20 20 20 20 20 20 20 4F 6B 3A 3D 28 49 4F 52 65 Ok:=(IORe
01DEC0: 73 75 6C 74 3D 30 29 3B 0D 0A 20 20 20 20 20 20 sult=0);..
01DED0: 20 20 20 20 20 20 20 20 49 66 20 4E 6F 74 20 4F If Not O
01DEE0: 6B 20 54 68 65 6E 20 4C 69 6E 65 3A 3D 27 2D 2D k Then Line:='--
01DEF0: 20 49 6E 63 6C 75 64 65 20 66 69 6C 65 20 27 2B Include file '+
01DF00: 20 45 6E 64 3B 0D 0A 20 20 20 20 20 20 20 20 20 End;..
01DF10: 20 20 20 27 28 27 3A 20 42 65 67 69 6E 0D 0A 20 '(': Begin..
01DF20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01DF30: 20 20 54 65 6D 70 3A 3D 50 6F 73 28 27 2A 29 27 Temp:=Pos('*)'
01DF40: 2C 43 6F 70 79 28 4C 69 6E 65 2C 57 68 65 72 65 ,Copy(Line,Where
01DF50: 2B 32 2C 32 30 30 29 29 2D 31 3B 0D 0A 20 20 20 +2,200))-1;..
01DF60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01DF70: 49 66 20 54 65 6D 70 3D 2D 31 20 54 68 65 6E 20 If Temp=-1 Then
01DF80: 54 65 6D 70 3A 3D 4C 65 6E 67 74 68 28 43 6F 70 Temp:=Length(Cop
01DF90: 79 28 4C 69 6E 65 2C 57 68 65 72 65 2B 32 2C 32 y(Line,Where+2,2
01DFA0: 30 30 29 29 2D 31 3B 0D 0A 20 20 20 20 20 20 20 00))-1;..
01DFB0: 20 20 20 20 20 20 20 20 20 20 20 20 43 68 65 63 Chec
01DFC0: 6B 44 69 72 65 63 74 69 76 65 28 57 68 65 72 65 kDirective(Where
01DFD0: 2B 32 2C 54 65 6D 70 29 3B 0D 0A 20 20 20 20 20 +2,Temp);..
01DFE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 66 If
01DFF0: 20 4E 6F 74 20 57 61 73 43 6D 64 20 54 68 65 6E Not WasCmd Then
01E000: 20 57 68 65 72 65 3A 3D 57 68 65 72 65 2B 54 65 Where:=Where+Te
01E010: 6D 70 2B 33 3B 0D 0A 20 20 20 20 20 20 20 20 20 mp+3;..
01E020: 20 20 20 20 20 20 20 20 45 6E 64 3B 0D 0A 20 20 End;..
01E030: 20 20 20 20 20 20 20 20 20 20 20 45 6C 73 65 20 Else
01E040: 57 68 65 72 65 3A 3D 30 3B 0D 0A 20 20 20 20 20 Where:=0;..
01E050: 20 20 20 20 20 20 45 6E 64 3B 20 7B 20 43 61 73 End; { Cas
01E060: 65 20 44 65 6C 69 6D 69 74 65 72 5B 49 5D 20 7D e Delimiter[I] }
01E070: 0D 0A 20 20 20 20 20 20 20 20 20 20 49 66 20 57 .. If W
01E080: 68 65 72 65 3D 32 30 31 20 54 68 65 6E 20 57 68 here=201 Then Wh
01E090: 65 72 65 3A 3D 30 3B 0D 0A 20 20 20 20 20 20 20 ere:=0;..
01E0A0: 20 55 6E 74 69 6C 20 57 68 65 72 65 3D 30 3B 0D Until Where=0;.
01E0B0: 0A 20 20 20 20 20 20 20 20 57 61 73 43 6D 64 3A . WasCmd:
01E0C0: 3D 4E 6F 74 20 57 61 73 45 6D 70 74 79 20 41 6E =Not WasEmpty An
01E0D0: 64 20 28 4C 69 6E 65 3D 27 27 29 3B 0D 0A 20 20 d (Line='');..
01E0E0: 20 20 20 20 45 6E 64 3B 20 7B 20 50 72 6F 63 65 End; { Proce
01E0F0: 73 73 44 69 72 65 63 74 69 76 65 73 20 7D 0D 0A ssDirectives }..
01E100: 49 6E 63 6C 75 64 65 4E 61 6D 65 2B 27 20 6E 6F IncludeName+' no
01E110: 74 20 66 6F 75 6E 64 20 2D 2D 27 0D 0A 20 20 20 t found --'..
01E120: 20 20 20 20 20 20 20 20 20 20 20 45 6C 73 65 0D Else.
01E130: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
01E140: 42 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 Begin..
01E150: 20 20 20 20 20 20 20 49 66 20 50 61 67 65 46 6F If PageFo
01E160: 72 49 6E 63 6C 75 64 65 73 20 41 6E 64 20 50 61 rIncludes And Pa
01E170: 67 65 53 74 61 72 74 65 64 20 54 68 65 6E 20 4E geStarted Then N
01E180: 65 77 50 61 67 65 3B 0D 0A 20 20 20 20 20 20 20 ewPage;..
01E190: 20 20 20 20 20 20 20 20 20 43 75 72 72 65 6E 74 Current
01E1A0: 49 6E 46 69 6C 65 4E 61 6D 65 3A 3D 49 6E 46 69 InFileName:=InFi
01E1B0: 6C 65 4E 61 6D 65 2B 27 2D 69 6E 63 6C 75 64 65 leName+'-include
01E1C0: 20 66 69 6C 65 20 27 2B 49 6E 63 6C 75 64 65 4E file '+IncludeN
01E1D0: 61 6D 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ame;..
01E1E0: 20 20 20 20 20 20 57 4C 69 6E 65 28 4C 69 6E 65 WLine(Line
01E1F0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
01E200: 20 20 20 20 57 61 73 43 6D 64 3A 3D 54 72 75 65 WasCmd:=True
01E210: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
01E220: 20 20 20 49 6E 49 6E 63 6C 75 64 65 3A 3D 54 72 InInclude:=Tr
01E230: 75 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ue;..
01E240: 20 20 20 20 20 43 75 72 72 65 6E 74 4C 69 6E 65 CurrentLine
01E250: 4E 75 6D 62 65 72 3A 3D 43 75 72 72 65 6E 74 4C Number:=CurrentL
01E260: 69 6E 65 4E 75 6D 62 65 72 2B 31 3B 0D 0A 20 20 ineNumber+1;..
01E270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4C 69 Li
01E280: 73 74 49 74 28 49 6E 63 6C 75 64 65 46 69 6C 65 stIt(IncludeFile
01E290: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
01E2A0: 20 20 20 20 43 75 72 72 65 6E 74 4C 69 6E 65 4E CurrentLineN
01E2B0: 75 6D 62 65 72 3A 3D 43 75 72 72 65 6E 74 4C 69 umber:=CurrentLi
01E2C0: 6E 65 4E 75 6D 62 65 72 2D 31 3B 0D 0A 20 20 20 neNumber-1;..
01E2D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6E 49 InI
01E2E0: 6E 63 6C 75 64 65 3A 3D 46 61 6C 73 65 3B 0D 0A nclude:=False;..
01E2F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01E300: 0D 0A 0D 0A 20 20 20 20 42 65 67 69 6E 20 7B 20 .... Begin {
01E310: 4C 69 73 74 49 74 20 7D 0D 0A 20 20 20 20 20 20 ListIt }..
01E320: 57 68 69 6C 65 20 4E 6F 74 20 45 6F 66 28 49 6E While Not Eof(In
01E330: 46 29 20 44 6F 0D 0A 20 20 20 20 20 20 20 42 65 F) Do.. Be
01E340: 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 52 65 61 gin.. Rea
01E350: 64 4C 6E 28 49 6E 46 2C 4C 69 6E 65 29 3B 0D 0A dLn(InF,Line);..
01E360: 20 20 20 20 20 20 20 20 57 61 73 43 6D 64 3A 3D WasCmd:=
01E370: 46 61 6C 73 65 3B 0D 0A 20 20 20 20 20 20 20 20 False;..
01E380: 50 72 6F 63 65 73 73 44 69 72 65 63 74 69 76 65 ProcessDirective
01E390: 73 3B 0D 0A 20 20 20 20 20 20 20 20 54 72 75 6E s;.. Trun
01E3A0: 63 61 74 65 4C 69 6E 65 3B 0D 0A 20 20 20 20 20 cateLine;..
01E3B0: 20 20 20 55 70 4B 65 79 57 6F 72 64 73 3B 0D 0A UpKeyWords;..
01E3C0: 20 20 20 20 20 20 20 20 49 66 20 4E 6F 74 20 28 If Not (
01E3D0: 57 61 73 43 6D 64 20 41 6E 64 20 28 4C 69 6E 65 WasCmd And (Line
01E3E0: 3D 27 27 29 29 20 41 6E 64 20 4E 6F 74 20 4E 6F ='')) And Not No
01E3F0: 4C 69 73 74 20 54 68 65 6E 20 57 4C 69 6E 65 28 List Then WLine(
01E400: 4C 69 6E 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 Line);..
01E410: 43 75 72 72 65 6E 74 4C 69 6E 65 4E 75 6D 62 65 CurrentLineNumbe
01E420: 72 3A 3D 43 75 72 72 65 6E 74 4C 69 6E 65 4E 75 r:=CurrentLineNu
01E430: 6D 62 65 72 2B 31 3B 0D 0A 20 20 20 20 20 20 20 mber+1;..
01E440: 45 6E 64 3B 0D 0A 20 20 20 20 45 6E 64 3B 20 7B End;.. End; {
01E450: 20 4C 69 73 74 49 74 20 7D 0D 0A 0D 0A 0D 0A 20 ListIt }......
01E460: 20 50 72 6F 63 65 64 75 72 65 20 53 61 79 28 53 Procedure Say(S
01E470: 3A 20 42 75 66 66 65 72 29 3B 0D 0A 0D 0A 20 20 : Buffer);....
01E480: 20 20 56 61 72 0D 0A 20 20 20 20 20 20 49 3A 20 Var.. I:
01E490: 49 6E 74 65 67 65 72 3B 0D 0A 0D 0A 20 20 20 20 Integer;....
01E4A0: 42 65 67 69 6E 0D 0A 20 20 20 20 20 20 49 3A 3D Begin.. I:=
01E4B0: 31 3B 0D 0A 20 20 20 20 20 20 57 68 69 6C 65 20 1;.. While
01E4C0: 49 3C 3D 4C 65 6E 67 74 68 28 53 29 20 44 6F 0D I<=Length(S) Do.
01E4D0: 0A 20 20 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 . Begin..
01E4E0: 20 20 20 20 20 20 20 49 66 20 4F 72 64 28 53 5B If Ord(S[
01E4F0: 49 5D 29 3C 33 32 20 54 68 65 6E 20 57 72 69 74 I])<32 Then Writ
01E500: 49 66 20 50 61 67 65 46 6F 72 49 6E 63 6C 75 64 If PageForInclud
01E510: 65 73 20 41 6E 64 20 50 61 67 65 53 74 61 72 74 es And PageStart
01E520: 65 64 20 54 68 65 6E 20 4E 65 77 50 61 67 65 3B ed Then NewPage;
01E530: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01E540: 20 20 43 75 72 72 65 6E 74 49 6E 46 69 6C 65 4E CurrentInFileN
01E550: 61 6D 65 3A 3D 49 6E 46 69 6C 65 4E 61 6D 65 3B ame:=InFileName;
01E560: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01E570: 20 45 6E 64 3B 20 7B 20 45 6C 73 65 20 69 6E 63 End; { Else inc
01E580: 6C 75 64 65 20 66 69 6C 65 20 77 61 73 20 66 6F lude file was fo
01E590: 75 6E 64 20 7D 0D 0A 20 20 20 20 20 20 20 20 20 und }..
01E5A0: 20 20 20 20 45 6E 64 3B 20 7B 20 45 6C 73 65 20 End; { Else
01E5B0: 6E 6F 74 20 63 75 72 72 65 6E 74 6C 79 20 69 6E not currently in
01E5C0: 20 69 6E 63 6C 75 64 65 20 7D 0D 0A 20 20 20 20 include }..
01E5D0: 20 20 20 20 20 20 20 45 6E 64 3B 20 7B 20 49 66 End; { If
01E5E0: 20 69 6E 63 6C 75 64 65 20 64 69 72 65 63 74 69 include directi
01E5F0: 76 65 20 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 ve }..
01E600: 49 66 20 57 61 73 43 6D 64 20 54 68 65 6E 0D 0A If WasCmd Then..
01E610: 20 20 20 20 20 20 20 20 20 20 20 20 44 65 6C 65 Dele
01E620: 74 65 28 4C 69 6E 65 2C 57 68 65 72 65 2D 4C 65 te(Line,Where-Le
01E630: 6E 67 74 68 28 44 65 6C 69 6D 69 74 65 72 29 2C ngth(Delimiter),
01E640: 4C 65 6E 2B 32 2A 4C 65 6E 67 74 68 28 44 65 6C Len+2*Length(Del
01E650: 69 6D 69 74 65 72 29 29 3B 0D 0A 20 20 20 20 20 imiter));..
01E660: 20 20 20 45 6E 64 3B 20 7B 20 43 68 65 63 6B 44 End; { CheckD
01E670: 69 72 65 63 74 69 76 65 20 7D 0D 0A 0D 0A 0D 0A irective }......
01E680: 20 20 20 20 20 20 42 65 67 69 6E 20 7B 20 50 72 Begin { Pr
01E690: 6F 63 65 73 73 44 69 72 65 63 74 69 76 65 73 20 ocessDirectives
01E6A0: 7D 0D 0A 20 20 20 20 20 20 20 20 57 61 73 45 6D }.. WasEm
01E6B0: 70 74 79 3A 3D 28 4C 69 6E 65 3D 27 27 29 3B 0D pty:=(Line='');.
01E6C0: 0A 20 20 20 20 20 20 20 20 57 68 65 72 65 3A 3D . Where:=
01E6D0: 31 3B 0D 0A 20 20 20 20 20 20 20 20 52 65 70 65 1;.. Repe
01E6E0: 61 74 0D 0A 20 20 20 20 20 20 20 20 20 20 44 65 at.. De
01E6F0: 6C 69 6D 69 74 65 72 3A 3D 27 20 20 27 3B 0D 0A limiter:=' ';..
01E700: 65 28 27 5E 27 2C 43 68 72 28 4F 72 64 28 53 5B e('^',Chr(Ord(S[
01E710: 49 5D 29 2B 36 34 29 29 0D 0A 20 20 20 20 20 20 I])+64))..
01E720: 20 20 45 6C 73 65 20 49 66 20 53 5B 49 5D 3C 3E Else If S[I]<>
01E730: 27 25 27 20 54 68 65 6E 20 57 72 69 74 65 28 53 '%' Then Write(S
01E740: 5B 49 5D 29 0D 0A 20 20 20 20 20 20 20 20 45 6C [I]).. El
01E750: 73 65 20 49 66 20 53 5B 49 2B 31 5D 3D 27 40 27 se If S[I+1]='@'
01E760: 20 54 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 20 Then..
01E770: 42 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 Begin..
01E780: 20 57 72 69 74 65 4C 6E 3B 0D 0A 20 20 20 20 20 WriteLn;..
01E790: 20 20 20 20 20 49 3A 3D 49 2B 31 3B 0D 0A 20 20 I:=I+1;..
01E7A0: 20 20 20 20 20 20 20 45 6E 64 0D 0A 20 20 20 20 End..
01E7B0: 20 20 20 20 45 6C 73 65 20 49 66 20 53 5B 49 2B Else If S[I+
01E7C0: 31 5D 3D 27 21 27 20 54 68 65 6E 0D 0A 20 20 20 1]='!' Then..
01E7D0: 20 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 20 Begin..
01E7E0: 20 20 20 20 20 20 20 48 69 67 68 56 69 64 65 6F HighVideo
01E7F0: 3B 20 20 20 20 20 20 20 20 20 7B 20 69 66 20 79 ; { if y
01E800: 6F 75 72 20 63 6F 6D 70 75 74 65 72 20 68 61 73 our computer has
01E810: 20 6E 6F 20 68 69 67 68 2F 6C 6F 77 20 76 69 64 no high/low vid
01E820: 65 6F 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 20 eo }..
01E830: 20 20 20 20 20 57 72 69 74 65 28 53 5B 49 2B 32 Write(S[I+2
01E840: 5D 29 3B 20 20 20 20 20 7B 20 72 65 70 6C 61 63 ]); { replac
01E850: 65 20 74 68 65 73 65 20 33 20 6C 69 6E 65 73 20 e these 3 lines
01E860: 77 69 74 68 3A 20 20 20 20 20 20 20 20 20 20 20 with:
01E870: 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 20 20 20 }..
01E880: 20 20 20 4C 6F 77 56 69 64 65 6F 3B 20 20 20 20 LowVideo;
01E890: 20 20 20 20 20 20 7B 20 20 20 20 20 20 20 57 72 { Wr
01E8A0: 69 74 65 28 53 5B 49 2B 32 5D 2C 27 29 27 29 3B ite(S[I+2],')');
01E8B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01E8C0: 20 20 20 20 7D 0D 0A 20 20 20 20 20 20 20 20 20 }..
01E8D0: 20 49 3A 3D 49 2B 32 3B 0D 0A 20 20 20 20 20 20 I:=I+2;..
01E8E0: 20 20 20 45 6E 64 0D 0A 20 20 20 20 20 20 20 20 End..
01E8F0: 45 6C 73 65 20 57 72 69 74 65 28 27 25 27 29 3B Else Write('%');
01E900: 20 20 20 20 20 20 20 20 20 20 52 69 67 68 74 50 RightP
01E910: 61 72 74 3A 3D 43 6F 70 79 28 4C 69 6E 65 2C 57 art:=Copy(Line,W
01E920: 68 65 72 65 2C 32 30 30 29 3B 0D 0A 20 20 20 20 here,200);..
01E930: 20 20 20 20 20 20 4F 66 66 53 65 74 3A 3D 32 30 OffSet:=20
01E940: 31 2D 57 68 65 72 65 3B 0D 0A 20 20 20 20 20 20 1-Where;..
01E950: 20 20 20 20 54 65 6D 70 3A 3D 50 6F 73 28 27 7B Temp:=Pos('{
01E960: 27 2C 52 69 67 68 74 50 61 72 74 29 3B 0D 0A 20 ',RightPart);..
01E970: 20 20 20 20 20 20 20 20 20 49 66 20 28 54 65 6D If (Tem
01E980: 70 3C 3E 30 29 20 41 6E 64 20 28 54 65 6D 70 3C p<>0) And (Temp<
01E990: 4F 66 66 53 65 74 29 20 54 68 65 6E 0D 0A 20 20 OffSet) Then..
01E9A0: 20 20 20 20 20 20 20 20 20 42 65 67 69 6E 0D 0A Begin..
01E9B0: 20 20 20 20 20 20 20 20 20 20 20 20 4F 66 66 53 OffS
01E9C0: 65 74 3A 3D 54 65 6D 70 3B 0D 0A 20 20 20 20 20 et:=Temp;..
01E9D0: 20 20 20 20 20 20 20 44 65 6C 69 6D 69 74 65 72 Delimiter
01E9E0: 3A 3D 27 7B 27 3B 0D 0A 20 20 20 20 20 20 20 20 :='{';..
01E9F0: 20 20 20 45 6E 64 3B 0D 0A 20 20 20 20 20 20 20 End;..
01EA00: 20 20 20 54 65 6D 70 3A 3D 50 6F 73 28 27 28 2A Temp:=Pos('(*
01EA10: 27 2C 52 69 67 68 74 50 61 72 74 29 3B 0D 0A 20 ',RightPart);..
01EA20: 20 20 20 20 20 20 20 20 20 49 66 20 28 54 65 6D If (Tem
01EA30: 70 3C 3E 30 29 20 41 6E 64 20 28 54 65 6D 70 3C p<>0) And (Temp<
01EA40: 4F 66 66 53 65 74 29 20 54 68 65 6E 0D 0A 20 20 OffSet) Then..
01EA50: 20 20 20 20 20 20 20 20 20 42 65 67 69 6E 0D 0A Begin..
01EA60: 20 20 20 20 20 20 20 20 20 20 20 20 4F 66 66 53 OffS
01EA70: 65 74 3A 3D 54 65 6D 70 3B 0D 0A 20 20 20 20 20 et:=Temp;..
01EA80: 20 20 20 20 20 20 20 44 65 6C 69 6D 69 74 65 72 Delimiter
01EA90: 3A 3D 27 28 2A 27 3B 0D 0A 20 20 20 20 20 20 20 :='(*';..
01EAA0: 20 20 20 20 45 6E 64 3B 0D 0A 20 20 20 20 20 20 End;..
01EAB0: 20 20 20 20 54 65 6D 70 3A 3D 50 6F 73 28 27 27 Temp:=Pos(''
01EAC0: 27 27 2C 52 69 67 68 74 50 61 72 74 29 3B 0D 0A '',RightPart);..
01EAD0: 20 20 20 20 20 20 20 20 20 20 49 66 20 28 54 65 If (Te
01EAE0: 6D 70 3C 3E 30 29 20 41 6E 64 20 28 54 65 6D 70 mp<>0) And (Temp
01EAF0: 3C 4F 66 66 53 65 74 29 20 54 68 65 6E 0D 0A 20 <OffSet) Then..
01EB00: 0D 0A 20 20 20 20 20 20 20 20 49 3A 3D 49 2B 31 .. I:=I+1
01EB10: 3B 0D 0A 20 20 20 20 20 20 20 45 6E 64 3B 20 7B ;.. End; {
01EB20: 20 57 68 69 6C 65 20 49 3C 3D 4C 65 6E 67 74 68 While I<=Length
01EB30: 28 53 29 20 7D 0D 0A 20 20 20 20 45 6E 64 3B 20 (S) }.. End;
01EB40: 7B 20 53 61 79 20 7D 0D 0A 1A 20 20 20 20 45 6C { Say }... El
01EB50: 73 65 20 49 66 20 53 5B 49 2B 31 5D 3D 27 40 27 se If S[I+1]='@'
01EB60: 20 54 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 20 Then..
01EB70: 42 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 Begin..
01EB80: 20 57 72 69 74 65 4C 6E 3B 0D 0A 20 20 20 20 20 WriteLn;..
01EB90: 20 20 20 20 20 49 3A 3D 49 2B 31 3B 0D 0A 20 20 I:=I+1;..
01EBA0: 20 20 20 20 20 20 20 45 6E 64 0D 0A 20 20 20 20 End..
01EBB0: 20 20 20 20 45 6C 73 65 20 49 66 20 53 5B 49 2B Else If S[I+
01EBC0: 31 5D 3D 27 21 27 20 54 68 65 6E 0D 0A 20 20 20 1]='!' Then..
01EBD0: 20 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 20 Begin..
01EBE0: 20 20 20 20 20 20 20 48 69 67 68 56 69 64 65 6F HighVideo
01EBF0: 3B 20 20 20 20 20 20 20 20 20 7B 20 69 66 20 79 ; { if y
01EC00: 6F 75 72 20 63 6F 6D 70 75 74 65 72 20 68 61 73 our computer has
01EC10: 20 6E 6F 20 68 69 67 68 2F 6C 6F 77 20 76 69 64 no high/low vid
01EC20: 65 6F 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 20 eo }..
01EC30: 20 20 20 20 20 57 72 69 74 65 28 53 5B 49 2B 32 Write(S[I+2
01EC40: 5D 29 3B 20 20 20 20 20 7B 20 72 65 70 6C 61 63 ]); { replac
01EC50: 65 20 74 68 65 73 65 20 33 20 6C 69 6E 65 73 20 e these 3 lines
01EC60: 77 69 74 68 3A 20 20 20 20 20 20 20 20 20 20 20 with:
01EC70: 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 20 20 20 }..
01EC80: 20 20 20 4C 6F 77 56 69 64 65 6F 3B 20 20 20 20 LowVideo;
01EC90: 20 20 20 20 20 20 7B 20 20 20 20 20 20 20 57 72 { Wr
01ECA0: 69 74 65 28 53 5B 49 2B 32 5D 2C 27 29 27 29 3B ite(S[I+2],')');
01ECB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01ECC0: 20 20 20 20 7D 0D 0A 20 20 20 20 20 20 20 20 20 }..
01ECD0: 20 49 3A 3D 49 2B 32 3B 0D 0A 20 20 20 20 20 20 I:=I+2;..
01ECE0: 20 20 20 45 6E 64 0D 0A 20 20 20 20 20 20 20 20 End..
01ECF0: 45 6C 73 65 20 57 72 69 74 65 28 27 25 27 29 3B Else Write('%');
01ED00: 20 20 20 20 20 20 20 20 20 20 42 65 67 69 6E 0D Begin.
01ED10: 0A 20 20 20 20 20 20 20 20 20 20 20 20 4F 66 66 . Off
01ED20: 53 65 74 3A 3D 54 65 6D 70 3B 0D 0A 20 20 20 20 Set:=Temp;..
01ED30: 20 20 20 20 20 20 20 20 44 65 6C 69 6D 69 74 65 Delimite
01ED40: 72 3A 3D 27 27 27 27 3B 0D 0A 20 20 20 20 20 20 r:='''';..
01ED50: 20 20 20 20 20 45 6E 64 3B 0D 0A 20 20 20 20 20 End;..
01ED60: 20 20 20 20 20 57 68 65 72 65 3A 3D 57 68 65 72 Where:=Wher
01ED70: 65 2B 4F 66 66 53 65 74 2D 31 3B 0D 0A 20 20 20 e+OffSet-1;..
01ED80: 20 20 20 20 20 20 20 43 61 73 65 20 44 65 6C 69 Case Deli
01ED90: 6D 69 74 65 72 5B 31 5D 20 4F 66 0D 0A 20 20 20 miter[1] Of..
01EDA0: 20 20 20 20 20 20 20 20 20 27 27 27 27 3A 20 57 '''': W
01EDB0: 68 65 72 65 3A 3D 57 68 65 72 65 2B 50 6F 73 28 here:=Where+Pos(
01EDC0: 27 27 27 27 2C 43 6F 70 79 28 4C 69 6E 65 2C 57 '''',Copy(Line,W
01EDD0: 68 65 72 65 2B 31 2C 32 30 30 29 29 2B 31 3B 0D here+1,200))+1;.
01EDE0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 27 7B 27 . '{'
01EDF0: 3A 20 42 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 : Begin..
01EE00: 20 20 20 20 20 20 20 20 20 20 20 20 54 65 6D 70 Temp
01EE10: 3A 3D 50 6F 73 28 27 7D 27 2C 43 6F 70 79 28 4C :=Pos('}',Copy(L
01EE20: 69 6E 65 2C 57 68 65 72 65 2B 31 2C 32 30 30 29 ine,Where+1,200)
01EE30: 29 2D 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 )-1;..
01EE40: 20 20 20 20 20 20 20 20 20 49 66 20 54 65 6D 70 If Temp
01EE50: 3D 2D 31 20 54 68 65 6E 20 54 65 6D 70 3A 3D 4C =-1 Then Temp:=L
01EE60: 65 6E 67 74 68 28 43 6F 70 79 28 4C 69 6E 65 2C ength(Copy(Line,
01EE70: 57 68 65 72 65 2B 31 2C 32 30 30 29 29 2D 31 3B Where+1,200))-1;
01EE80: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01EE90: 20 20 20 20 20 43 68 65 63 6B 44 69 72 65 63 74 CheckDirect
01EEA0: 69 76 65 28 57 68 65 72 65 2B 31 2C 54 65 6D 70 ive(Where+1,Temp
01EEB0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
01EEC0: 20 20 20 20 20 20 20 49 66 20 4E 6F 74 20 57 61 If Not Wa
01EED0: 73 43 6D 64 20 54 68 65 6E 20 57 68 65 72 65 3A sCmd Then Where:
01EEE0: 3D 57 68 65 72 65 2B 54 65 6D 70 2B 31 3B 0D 0A =Where+Temp+1;..
01EEF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
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: 0D 0A 0D 0A 20 20 46 75 6E 63 74 69 6F 6E 20 41 .... Function A
01F010: 73 6B 53 74 72 69 6E 67 28 50 72 6F 6D 70 74 3A skString(Prompt:
01F020: 20 42 75 66 66 65 72 3B 20 50 61 72 61 6D 3A 20 Buffer; Param:
01F030: 42 75 66 66 65 72 29 3A 20 42 75 66 66 65 72 3B Buffer): Buffer;
01F040: 0D 0A 0D 0A 20 20 20 20 56 61 72 0D 0A 20 20 20 .... Var..
01F050: 20 20 20 49 3A 20 49 6E 74 65 67 65 72 3B 0D 0A I: Integer;..
01F060: 20 20 20 20 20 20 53 6B 69 70 3A 20 42 6F 6F 6C Skip: Bool
01F070: 65 61 6E 3B 0D 0A 20 20 20 20 20 20 41 53 3A 20 ean;.. AS:
01F080: 42 75 66 66 65 72 3B 0D 0A 20 20 20 20 20 20 43 Buffer;.. C
01F090: 68 3A 20 43 68 61 72 3B 0D 0A 0D 0A 20 20 20 20 h: Char;....
01F0A0: 42 65 67 69 6E 0D 0A 20 20 20 20 20 20 41 53 3A Begin.. AS:
01F0B0: 3D 50 61 72 61 6D 3B 0D 0A 20 20 20 20 20 20 57 =Param;.. W
01F0C0: 72 69 74 65 4C 6E 3B 0D 0A 20 20 20 20 20 20 53 riteLn;.. S
01F0D0: 61 79 28 50 72 6F 6D 70 74 29 3B 0D 0A 20 20 20 ay(Prompt);..
01F0E0: 20 20 20 49 3A 3D 30 3B 0D 0A 20 20 20 20 20 20 I:=0;..
01F0F0: 52 65 70 65 61 74 0D 0A 20 20 20 20 20 20 20 20 Repeat..
01F100: 53 6B 69 70 3A 3D 46 61 6C 73 65 3B 0D 0A 20 20 Skip:=False;..
01F110: 20 20 20 20 20 20 52 65 61 64 28 4B 62 64 2C 43 Read(Kbd,C
01F120: 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 43 61 73 h);.. Cas
01F130: 65 20 43 68 20 4F 66 0D 0A 20 20 20 20 20 20 20 e Ch Of..
01F140: 20 20 20 5E 48 2C 5E 53 2C 23 31 32 37 3A 0D 0A ^H,^S,#127:..
01F150: 20 20 20 20 20 20 20 20 20 20 20 20 42 65 67 69 Begi
01F160: 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 n..
01F170: 20 53 6B 69 70 3A 3D 54 72 75 65 3B 0D 0A 20 20 Skip:=True;..
01F180: 20 20 20 20 20 20 20 20 20 20 20 20 49 66 20 49 If I
01F190: 3E 30 20 54 68 65 6E 0D 0A 20 20 20 20 20 20 20 >0 Then..
01F1A0: 20 20 20 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 Begin..
01F1B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 W
01F1C0: 72 69 74 65 28 5E 48 2C 27 20 27 2C 5E 48 29 3B rite(^H,' ',^H);
01F1D0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01F1E0: 20 20 49 66 20 4F 72 64 28 41 53 5B 49 5D 29 3C If Ord(AS[I])<
01F1F0: 33 32 20 54 68 65 6E 20 57 72 69 74 65 28 5E 48 32 Then Write(^H
01F200: 20 20 20 53 61 79 28 27 25 21 49 6E 69 74 69 61 Say('%!Initia
01F210: 6C 69 7A 61 74 69 6F 6E 20 73 74 72 69 6E 67 3A lization string:
01F220: 20 22 27 2B 49 6E 69 74 53 74 72 69 6E 67 2B 27 "'+InitString+'
01F230: 22 25 40 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 "%@');..
01F240: 20 20 53 61 79 28 27 25 21 45 78 69 74 20 73 74 Say('%!Exit st
01F250: 72 69 6E 67 3A 20 22 27 2B 45 78 69 74 53 74 72 ring: "'+ExitStr
01F260: 69 6E 67 2B 27 22 25 40 25 40 27 29 3B 0D 0A 20 ing+'"%@%@');..
01F270: 20 20 20 20 20 20 20 20 20 53 61 79 28 27 25 21 Say('%!
01F280: 44 72 69 76 65 20 66 6F 72 20 69 6E 63 6C 75 64 Drive for includ
01F290: 65 20 66 69 6C 65 73 3A 20 27 2B 49 6E 63 6C 75 e files: '+Inclu
01F2A0: 64 65 44 72 69 76 65 29 3B 0D 0A 20 20 20 20 20 deDrive);..
01F2B0: 20 20 20 20 20 49 66 20 49 6E 63 6C 75 64 65 44 If IncludeD
01F2C0: 72 69 76 65 3C 3E 27 20 27 20 54 68 65 6E 20 57 rive<>' ' Then W
01F2D0: 72 69 74 65 28 27 3A 27 29 3B 0D 0A 20 20 20 20 rite(':');..
01F2E0: 20 20 20 20 20 20 53 61 79 28 27 25 40 25 40 25 Say('%@%@%
01F2F0: 21 51 75 69 74 25 40 25 40 3E 27 29 3B 0D 0A 20 !Quit%@%@>');..
01F300: 20 20 20 20 20 20 20 20 45 6E 64 3B 20 7B 20 49 End; { I
01F310: 66 20 52 65 44 72 61 77 20 7D 0D 0A 20 20 20 20 f ReDraw }..
01F320: 20 20 20 20 52 65 61 64 28 4B 62 64 2C 43 6F 6D Read(Kbd,Com
01F330: 6D 61 6E 64 29 3B 0D 0A 20 20 20 20 20 20 20 20 mand);..
01F340: 52 65 44 72 61 77 3A 3D 54 72 75 65 3B 0D 0A 20 ReDraw:=True;..
01F350: 20 20 20 20 20 20 20 43 61 73 65 20 55 70 63 61 Case Upca
01F360: 73 65 28 43 6F 6D 6D 61 6E 64 29 20 4F 66 0D 0A se(Command) Of..
01F370: 20 20 20 20 20 20 20 20 20 20 27 50 27 3A 20 41 'P': A
01F380: 73 6B 49 6E 74 28 27 4E 65 77 20 70 61 67 65 20 skInt('New page
01F390: 6C 65 6E 67 74 68 3A 20 27 2C 50 61 67 65 4C 65 length: ',PageLe
01F3A0: 6E 67 74 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 ngth);..
01F3B0: 20 20 27 57 27 3A 20 41 73 6B 49 6E 74 28 27 4E 'W': AskInt('N
01F3C0: 65 77 20 6C 69 6E 65 20 77 69 64 74 68 3A 20 27 ew line width: '
01F3D0: 2C 4C 69 6E 65 57 69 64 74 68 29 3B 0D 0A 20 20 ,LineWidth);..
01F3E0: 20 20 20 20 20 20 20 20 27 48 27 3A 20 48 69 4C 'H': HiL
01F3F0: 69 74 65 3A 3D 41 73 6B 53 74 72 69 6E 67 28 27 ite:=AskString('
01F400: 2C 27 20 27 2C 5E 48 29 3B 0D 0A 20 20 20 20 20 ,' ',^H);..
01F410: 20 20 20 20 20 20 20 20 20 20 20 49 3A 3D 49 2D I:=I-
01F420: 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 1;..
01F430: 20 20 20 45 6E 64 3B 0D 0A 20 20 20 20 20 20 20 End;..
01F440: 20 20 20 20 20 45 6E 64 3B 0D 0A 20 20 20 20 20 End;..
01F450: 20 20 20 20 20 5E 41 2C 5E 58 3A 0D 0A 20 20 20 ^A,^X:..
01F460: 20 20 20 20 20 20 20 20 20 42 65 67 69 6E 0D 0A Begin..
01F470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 6B Sk
01F480: 69 70 3A 3D 54 72 75 65 3B 0D 0A 20 20 20 20 20 ip:=True;..
01F490: 20 20 20 20 20 20 20 20 20 57 68 69 6C 65 20 49 While I
01F4A0: 3E 30 20 44 6F 0D 0A 20 20 20 20 20 20 20 20 20 >0 Do..
01F4B0: 20 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 20 Begin..
01F4C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 72 69 Wri
01F4D0: 74 65 28 5E 48 2C 27 20 27 2C 5E 48 29 3B 0D 0A te(^H,' ',^H);..
01F4E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F4F0: 49 66 20 4F 72 64 28 41 53 5B 49 5D 29 3C 33 32 If Ord(AS[I])<32
01F500: 20 54 68 65 6E 20 57 72 69 74 65 28 5E 48 27 20 Then Write(^H'
01F510: 27 5E 48 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 '^H);..
01F520: 20 20 20 20 20 20 20 49 3A 3D 49 2D 31 3B 0D 0A I:=I-1;..
01F530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
01F540: 6E 64 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 nd;..
01F550: 20 45 6E 64 3B 0D 0A 20 20 20 20 20 20 20 20 20 End;..
01F560: 20 5E 44 3A 20 49 66 20 4C 65 6E 67 74 68 28 41 ^D: If Length(A
01F570: 53 29 3E 49 20 54 68 65 6E 20 43 68 3A 3D 41 53 S)>I Then Ch:=AS
01F580: 5B 49 2B 31 5D 0D 0A 20 20 20 20 20 20 20 20 20 [I+1]..
01F590: 20 20 20 20 20 45 6C 73 65 20 53 6B 69 70 3A 3D Else Skip:=
01F5A0: 54 72 75 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 True;..
01F5B0: 20 5E 46 2C 5E 52 3A 0D 0A 20 20 20 20 20 20 20 ^F,^R:..
01F5C0: 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 20 20 Begin..
01F5D0: 20 20 20 20 20 20 20 20 20 20 53 6B 69 70 3A 3D Skip:=
01F5E0: 54 72 75 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 True;..
01F5F0: 20 20 20 20 20 57 68 69 6C 65 20 4C 65 6E 67 74 While Lengt
01F600: 4E 65 77 20 68 69 6C 69 74 65 20 73 74 72 69 6E New hilite strin
01F610: 67 3A 20 27 2C 48 69 4C 69 74 65 29 3B 0D 0A 20 g: ',HiLite);..
01F620: 20 20 20 20 20 20 20 20 20 27 4C 27 3A 20 4C 6F 'L': Lo
01F630: 4C 69 74 65 3A 3D 41 73 6B 53 74 72 69 6E 67 28 Lite:=AskString(
01F640: 27 4E 65 77 20 6C 6F 6C 69 74 65 20 73 74 72 69 'New lolite stri
01F650: 6E 67 3A 20 27 2C 4C 6F 4C 69 74 65 29 3B 0D 0A ng: ',LoLite);..
01F660: 20 20 20 20 20 20 20 20 20 20 27 49 27 3A 20 49 'I': I
01F670: 6E 69 74 53 74 72 69 6E 67 3A 3D 41 73 6B 53 74 nitString:=AskSt
01F680: 72 69 6E 67 28 27 4E 65 77 20 70 72 69 6E 74 65 ring('New printe
01F690: 72 20 69 6E 69 74 69 61 6C 69 7A 61 74 69 6F 6E r initialization
01F6A0: 20 73 74 72 69 6E 67 3A 20 27 2C 0D 0A 20 20 20 string: ',..
01F6B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F6C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F6D0: 20 20 49 6E 69 74 53 74 72 69 6E 67 29 3B 0D 0A InitString);..
01F6E0: 20 20 20 20 20 20 20 20 20 20 27 45 27 3A 20 45 'E': E
01F6F0: 78 69 74 53 74 72 69 6E 67 3A 3D 41 73 6B 53 74 xitString:=AskSt
01F700: 72 69 6E 67 28 27 4E 65 77 20 70 72 69 6E 74 65 ring('New printe
01F710: 72 20 65 78 69 74 20 73 74 72 69 6E 67 3A 20 27 r exit string: '
01F720: 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ,..
01F730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F740: 20 20 20 20 20 20 20 20 45 78 69 74 53 74 72 69 ExitStri
01F750: 6E 67 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ng);..
01F760: 27 44 27 3A 20 42 65 67 69 6E 0D 0A 20 20 20 20 'D': Begin..
01F770: 20 20 20 20 20 20 20 20 20 20 20 20 20 53 61 79 Say
01F780: 28 27 25 40 4E 65 77 20 64 72 69 76 65 20 66 6F ('%@New drive fo
01F790: 72 20 69 6E 63 6C 75 64 65 20 66 69 6C 65 73 3A r include files:
01F7A0: 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ');..
01F7B0: 20 20 20 20 20 20 20 52 65 61 64 28 4B 62 64 2C Read(Kbd,
01F7C0: 49 6E 63 6C 75 64 65 44 72 69 76 65 29 3B 0D 0A IncludeDrive);..
01F7D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F7E0: 20 49 66 20 49 6E 63 6C 75 64 65 44 72 69 76 65 If IncludeDrive
01F7F0: 20 49 6E 20 5B 27 41 27 2E 2E 27 5A 27 2C 27 61 In ['A'..'Z','a
01F800: 68 28 41 53 29 3E 49 20 44 6F 0D 0A 20 20 20 20 h(AS)>I Do..
01F810: 20 20 20 20 20 20 20 20 20 20 20 42 65 67 69 6E Begin
01F820: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01F830: 20 20 49 3A 3D 49 2B 31 3B 0D 0A 20 20 20 20 20 I:=I+1;..
01F840: 20 20 20 20 20 20 20 20 20 20 20 49 66 20 4F 72 If Or
01F850: 64 28 41 53 5B 49 5D 29 3E 33 31 20 54 68 65 6E d(AS[I])>31 Then
01F860: 20 57 72 69 74 65 28 41 53 5B 49 5D 29 0D 0A 20 Write(AS[I])..
01F870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
01F880: 6C 73 65 20 57 72 69 74 65 28 27 5E 27 2C 43 68 lse Write('^',Ch
01F890: 72 28 4F 72 64 28 41 53 5B 49 5D 29 2B 36 34 29 r(Ord(AS[I])+64)
01F8A0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
01F8B0: 20 20 20 45 6E 64 3B 0D 0A 20 20 20 20 20 20 20 End;..
01F8C0: 20 20 20 20 20 45 6E 64 3B 0D 0A 20 20 20 20 20 End;..
01F8D0: 20 20 20 20 20 5E 50 3A 20 52 65 61 64 28 4B 62 ^P: Read(Kb
01F8E0: 64 2C 43 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 d,Ch);..
01F8F0: 20 20 5E 4D 3A 20 53 6B 69 70 3A 3D 54 72 75 65 ^M: Skip:=True
01F900: 3B 0D 0A 20 20 20 20 20 20 20 20 20 45 6E 64 3B ;.. End;
01F910: 20 7B 20 43 61 73 65 20 43 68 20 7D 0D 0A 20 20 { Case Ch }..
01F920: 20 20 20 20 20 20 49 66 20 4E 6F 74 20 53 6B 69 If Not Ski
01F930: 70 20 54 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 p Then..
01F940: 20 42 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 Begin..
01F950: 20 20 49 66 20 4F 72 64 28 43 68 29 3E 33 31 20 If Ord(Ch)>31
01F960: 54 68 65 6E 20 57 72 69 74 65 28 43 68 29 0D 0A Then Write(Ch)..
01F970: 20 20 20 20 20 20 20 20 20 20 45 6C 73 65 20 57 Else W
01F980: 72 69 74 65 28 27 5E 27 2C 43 68 72 28 4F 72 64 rite('^',Chr(Ord
01F990: 28 43 68 29 2B 36 34 29 29 3B 0D 0A 20 20 20 20 (Ch)+64));..
01F9A0: 20 20 20 20 20 20 49 3A 3D 49 2B 31 3B 0D 0A 20 I:=I+1;..
01F9B0: 20 20 20 20 20 20 20 20 20 41 53 5B 49 5D 3A 3D AS[I]:=
01F9C0: 43 68 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 49 Ch;.. I
01F9D0: 66 20 49 3E 4C 65 6E 67 74 68 28 41 53 29 20 54 f I>Length(AS) T
01F9E0: 68 65 6E 20 41 53 5B 30 5D 3A 3D 43 68 72 28 49 hen AS[0]:=Chr(I
01F9F0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 45 6E 64 );.. End
01FA00: 27 2E 2E 27 7A 27 5D 20 54 68 65 6E 0D 0A 20 20 '..'z'] Then..
01FA10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01FA20: 20 49 6E 63 6C 75 64 65 44 72 69 76 65 3A 3D 55 IncludeDrive:=U
01FA30: 70 63 61 73 65 28 49 6E 63 6C 75 64 65 44 72 69 pcase(IncludeDri
01FA40: 76 65 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ve)..
01FA50: 20 20 20 20 20 20 45 6C 73 65 20 49 6E 63 6C 75 Else Inclu
01FA60: 64 65 44 72 69 76 65 3A 3D 27 20 27 3B 0D 0A 20 deDrive:=' ';..
01FA70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 6E En
01FA80: 64 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 45 6C d;.. El
01FA90: 73 65 20 52 65 44 72 61 77 3A 3D 46 61 6C 73 65 se ReDraw:=False
01FAA0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 45 6E 64 3B ;.. End;
01FAB0: 20 7B 20 43 61 73 65 20 43 6F 6D 6D 61 6E 64 20 { Case Command
01FAC0: 7D 0D 0A 20 20 20 20 20 20 55 6E 74 69 6C 20 55 }.. Until U
01FAD0: 70 63 61 73 65 28 43 6F 6D 6D 61 6E 64 29 3D 27 pcase(Command)='
01FAE0: 51 27 3B 0D 0A 20 20 20 20 45 6E 64 3B 20 7B 20 Q';.. End; {
01FAF0: 48 61 72 64 77 61 72 65 4D 65 6E 75 20 7D 0D 0A HardwareMenu }..
01FB00: 0D 0A 0D 0A 20 20 50 72 6F 63 65 64 75 72 65 20 .... Procedure
01FB10: 46 6F 72 6D 61 74 4D 65 6E 75 3B 0D 0A 0D 0A 20 FormatMenu;....
01FB20: 20 20 20 56 61 72 0D 0A 20 20 20 20 20 20 43 6F Var.. Co
01FB30: 6D 6D 61 6E 64 3A 20 43 68 61 72 3B 0D 0A 20 20 mmand: Char;..
01FB40: 20 20 20 20 52 65 44 72 61 77 3A 20 42 6F 6F 6C ReDraw: Bool
01FB50: 65 61 6E 3B 0D 0A 20 20 20 20 20 20 54 65 6D 70 ean;.. Temp
01FB60: 42 75 66 3A 20 42 75 66 66 65 72 3B 0D 0A 0D 0A Buf: Buffer;....
01FB70: 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 20 20 20 Begin..
01FB80: 20 52 65 44 72 61 77 3A 3D 54 72 75 65 3B 0D 0A ReDraw:=True;..
01FB90: 20 20 20 20 20 20 52 65 70 65 61 74 0D 0A 20 20 Repeat..
01FBA0: 20 20 20 20 20 20 49 66 20 52 65 44 72 61 77 20 If ReDraw
01FBB0: 54 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 20 42 Then.. B
01FBC0: 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 egin..
01FBD0: 54 69 74 6C 65 3B 0D 0A 20 20 20 20 20 20 20 20 Title;..
01FBE0: 20 20 53 61 79 28 27 25 40 46 6F 72 6D 61 74 74 Say('%@Formatt
01FBF0: 69 6E 67 20 70 61 72 61 6D 65 74 65 72 73 3A 25 ing parameters:%
01FC00: 3B 0D 0A 20 20 20 20 20 20 55 6E 74 69 6C 20 53 ;.. Until S
01FC10: 6B 69 70 20 41 6E 64 20 28 43 68 3D 5E 4D 29 3B kip And (Ch=^M);
01FC20: 0D 0A 20 20 20 20 20 20 41 53 5B 30 5D 3A 3D 43 .. AS[0]:=C
01FC30: 68 72 28 49 29 3B 0D 0A 20 20 20 20 20 20 41 73 hr(I);.. As
01FC40: 6B 53 74 72 69 6E 67 3A 3D 41 53 3B 0D 0A 20 20 kString:=AS;..
01FC50: 20 20 45 6E 64 3B 20 7B 20 41 73 6B 53 74 72 69 End; { AskStri
01FC60: 6E 67 20 7D 0D 0A 0D 0A 0D 0A 20 20 50 72 6F 63 ng }...... Proc
01FC70: 65 64 75 72 65 20 41 73 6B 49 6E 74 28 50 72 6F edure AskInt(Pro
01FC80: 6D 70 74 3A 20 42 75 66 66 65 72 3B 20 56 61 72 mpt: Buffer; Var
01FC90: 20 50 61 72 61 6D 3A 20 49 6E 74 65 67 65 72 29 Param: Integer)
01FCA0: 3B 0D 0A 0D 0A 20 20 20 20 56 61 72 0D 0A 20 20 ;.... Var..
01FCB0: 20 20 20 20 54 65 6D 70 3A 20 42 75 66 66 65 72 Temp: Buffer
01FCC0: 3B 0D 0A 20 20 20 20 20 20 50 2C 4C 65 67 61 6C ;.. P,Legal
01FCD0: 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 0D 0A 20 20 : Integer;....
01FCE0: 20 20 42 65 67 69 6E 0D 0A 20 20 20 20 20 20 53 Begin.. S
01FCF0: 74 72 28 50 61 72 61 6D 2C 54 65 6D 70 29 3B 0D tr(Param,Temp);.
01FD00: 0A 20 20 20 20 20 20 54 65 6D 70 3A 3D 41 73 6B . Temp:=Ask
01FD10: 53 74 72 69 6E 67 28 50 72 6F 6D 70 74 2C 54 65 String(Prompt,Te
01FD20: 6D 70 29 3B 0D 0A 20 20 20 20 20 20 56 61 6C 28 mp);.. Val(
01FD30: 54 65 6D 70 2C 50 2C 4C 65 67 61 6C 29 3B 0D 0A Temp,P,Legal);..
01FD40: 20 20 20 20 20 20 49 66 20 4C 65 67 61 6C 3D 30 If Legal=0
01FD50: 20 54 68 65 6E 20 50 61 72 61 6D 3A 3D 50 3B 0D Then Param:=P;.
01FD60: 0A 20 20 20 20 45 6E 64 3B 0D 0A 0D 0A 0D 0A 20 . End;......
01FD70: 20 50 72 6F 63 65 64 75 72 65 20 54 69 74 6C 65 Procedure Title
01FD80: 3B 0D 0A 0D 0A 20 20 20 20 42 65 67 69 6E 0D 0A ;.... Begin..
01FD90: 20 20 20 20 20 20 43 6C 72 53 63 72 3B 0D 0A 20 ClrScr;..
01FDA0: 20 20 20 20 20 48 69 67 68 56 69 64 65 6F 3B 0D HighVideo;.
01FDB0: 0A 20 20 20 20 20 20 57 72 69 74 65 4C 6E 28 27 . WriteLn('
01FDC0: 54 75 72 62 6F 20 50 61 73 63 61 6C 20 50 72 6F Turbo Pascal Pro
01FDD0: 67 72 61 6D 20 4C 69 73 74 65 72 20 56 65 72 2E gram Lister Ver.
01FDE0: 20 32 2E 30 30 41 20 20 20 43 6F 70 79 72 69 67 2.00A Copyrig
01FDF0: 68 74 20 28 43 29 20 31 39 38 34 20 42 4F 52 4C ht (C) 1984 BORL
01FE00: 40 25 40 50 72 69 6E 74 20 6C 69 6E 65 20 25 21 @%@Print line %!
01FE10: 4E 75 6D 62 65 72 73 3A 20 27 2B 0D 0A 20 20 20 Numbers: '+..
01FE20: 20 20 20 20 20 20 20 20 20 20 20 59 65 73 4E 6F YesNo
01FE30: 5B 4C 69 6E 65 4E 75 6D 62 65 72 73 5D 29 3B 0D [LineNumbers]);.
01FE40: 0A 20 20 20 20 20 20 20 20 20 20 53 61 79 28 27 . Say('
01FE50: 25 40 48 69 6C 69 74 65 20 25 21 52 65 73 65 72 %@Hilite %!Reser
01FE60: 76 65 64 20 77 6F 72 64 73 3A 20 27 2B 59 65 73 ved words: '+Yes
01FE70: 4E 6F 5B 55 70 4B 65 79 73 5D 29 3B 0D 0A 20 20 No[UpKeys]);..
01FE80: 20 20 20 20 20 20 20 20 53 61 79 28 27 25 40 25 Say('%@%
01FE90: 21 53 74 61 72 74 20 61 20 6E 65 77 20 70 61 67 !Start a new pag
01FEA0: 65 20 66 6F 72 20 65 61 63 68 20 69 6E 63 6C 75 e for each inclu
01FEB0: 64 65 20 66 69 6C 65 3A 20 27 2B 0D 0A 20 20 20 de file: '+..
01FEC0: 20 20 20 20 20 20 20 20 20 20 20 59 65 73 4E 6F YesNo
01FED0: 5B 50 61 67 65 46 6F 72 49 6E 63 6C 75 64 65 73 [PageForIncludes
01FEE0: 5D 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 53 ]);.. S
01FEF0: 61 79 28 27 25 40 25 40 25 21 49 6E 64 65 6E 74 ay('%@%@%!Indent
01FF00: 20 6C 69 6E 65 73 20 62 79 3A 20 27 29 3B 0D 0A lines by: ');..
01FF10: 20 20 20 20 20 20 20 20 20 20 57 72 69 74 65 4C WriteL
01FF20: 6E 28 49 6E 64 65 6E 74 29 3B 0D 0A 20 20 20 20 n(Indent);..
01FF30: 20 20 20 20 20 20 53 61 79 28 27 25 40 25 21 48 Say('%@%!H
01FF40: 65 61 64 69 6E 67 3A 20 20 20 22 27 2B 48 65 61 eading: "'+Hea
01FF50: 64 69 6E 67 2B 27 22 25 40 27 29 3B 0D 0A 20 20 ding+'"%@');..
01FF60: 20 20 20 20 20 20 20 20 54 65 6D 70 42 75 66 3A TempBuf:
01FF70: 3D 50 65 72 63 65 6E 74 45 78 70 61 6E 64 28 48 =PercentExpand(H
01FF80: 65 61 64 69 6E 67 29 3B 0D 0A 20 20 20 20 20 20 eading);..
01FF90: 20 20 20 20 53 61 79 28 27 20 20 45 78 61 6D 70 Say(' Examp
01FFA0: 6C 65 3A 20 22 27 2B 54 65 6D 70 42 75 66 2B 27 le: "'+TempBuf+'
01FFB0: 22 25 40 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 "%@');..
01FFC0: 20 20 53 61 79 28 27 25 21 46 6F 6F 74 69 6E 67 Say('%!Footing
01FFD0: 3A 20 20 20 22 27 2B 46 6F 6F 74 69 6E 67 2B 27 : "'+Footing+'
01FFE0: 22 25 40 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 "%@');..
01FFF0: 20 20 54 65 6D 70 42 75 66 3A 3D 50 65 72 63 65 TempBuf:=Perce
020000: 41 4E 44 20 49 6E 74 27 27 6C 20 49 6E 63 2E 27 AND Int''l Inc.'
020010: 29 3B 0D 0A 20 20 20 20 20 20 4C 6F 77 56 69 64 );.. LowVid
020020: 65 6F 3B 0D 0A 20 20 20 20 45 6E 64 3B 0D 0A 0D eo;.. End;...
020030: 0A 0D 0A 20 20 50 72 6F 63 65 64 75 72 65 20 48 ... Procedure H
020040: 61 72 64 77 61 72 65 4D 65 6E 75 3B 0D 0A 0D 0A ardwareMenu;....
020050: 20 20 20 20 56 61 72 0D 0A 20 20 20 20 20 20 43 Var.. C
020060: 6F 6D 6D 61 6E 64 3A 20 43 68 61 72 3B 0D 0A 20 ommand: Char;..
020070: 20 20 20 20 20 52 65 44 72 61 77 3A 20 42 6F 6F ReDraw: Boo
020080: 6C 65 61 6E 3B 0D 0A 0D 0A 20 20 20 20 42 65 67 lean;.... Beg
020090: 69 6E 0D 0A 20 20 20 20 20 20 52 65 44 72 61 77 in.. ReDraw
0200A0: 3A 3D 54 72 75 65 3B 0D 0A 20 20 20 20 20 20 52 :=True;.. R
0200B0: 65 70 65 61 74 0D 0A 20 20 20 20 20 20 20 20 49 epeat.. I
0200C0: 66 20 52 65 44 72 61 77 20 54 68 65 6E 0D 0A 20 f ReDraw Then..
0200D0: 20 20 20 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 Begin..
0200E0: 20 20 20 20 20 20 20 20 20 54 69 74 6C 65 3B 0D Title;.
0200F0: 0A 20 20 20 20 20 20 20 20 20 20 53 61 79 28 27 . Say('
020100: 25 40 48 61 72 64 77 61 72 65 20 70 61 72 61 6D %@Hardware param
020110: 65 74 65 72 73 3A 25 40 25 40 25 21 50 61 67 65 eters:%@%@%!Page
020120: 20 6C 65 6E 67 74 68 3A 20 27 29 3B 0D 0A 20 20 length: ');..
020130: 20 20 20 20 20 20 20 20 57 72 69 74 65 4C 6E 28 WriteLn(
020140: 50 61 67 65 4C 65 6E 67 74 68 29 3B 0D 0A 20 20 PageLength);..
020150: 20 20 20 20 20 20 20 20 53 61 79 28 27 4C 69 6E Say('Lin
020160: 65 20 25 21 57 69 64 74 68 3A 20 27 29 3B 0D 0A e %!Width: ');..
020170: 20 20 20 20 20 20 20 20 20 20 57 72 69 74 65 4C WriteL
020180: 6E 28 4C 69 6E 65 57 69 64 74 68 29 3B 0D 0A 20 n(LineWidth);..
020190: 20 20 20 20 20 20 20 20 20 53 61 79 28 27 25 40 Say('%@
0201A0: 25 21 48 69 6C 69 74 65 20 73 74 72 69 6E 67 3A %!Hilite string:
0201B0: 20 22 27 2B 48 69 4C 69 74 65 2B 27 22 25 40 27 "'+HiLite+'"%@'
0201C0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 53 61 );.. Sa
0201D0: 79 28 27 25 21 4C 6F 6C 69 74 65 20 73 74 72 69 y('%!Lolite stri
0201E0: 6E 67 3A 20 22 27 2B 4C 6F 4C 69 74 65 2B 27 22 ng: "'+LoLite+'"
0201F0: 25 40 25 40 27 29 3B 0D 0A 20 20 20 20 20 20 20 %@%@');..
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: 6E 74 45 78 70 61 6E 64 28 46 6F 6F 74 69 6E 67 ntExpand(Footing
020310: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 53 61 );.. Sa
020320: 79 28 27 20 20 45 78 61 6D 70 6C 65 3A 20 22 27 y(' Example: "'
020330: 2B 54 65 6D 70 42 75 66 2B 27 22 25 40 27 29 3B +TempBuf+'"%@');
020340: 0D 0A 20 20 20 20 20 20 20 20 20 20 53 61 79 28 .. Say(
020350: 27 25 40 53 74 61 72 74 69 6E 67 20 25 21 50 61 '%@Starting %!Pa
020360: 67 65 20 6E 75 6D 62 65 72 3A 20 27 29 3B 0D 0A ge number: ');..
020370: 20 20 20 20 20 20 20 20 20 20 57 72 69 74 65 4C WriteL
020380: 6E 28 43 75 72 72 65 6E 74 50 61 67 65 4E 75 6D n(CurrentPageNum
020390: 62 65 72 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 ber);..
0203A0: 20 53 61 79 28 27 53 74 61 72 74 69 6E 67 20 25 Say('Starting %
0203B0: 21 4C 69 6E 65 20 6E 75 6D 62 65 72 3A 20 27 29 !Line number: ')
0203C0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 72 69 ;.. Wri
0203D0: 74 65 4C 6E 28 43 75 72 72 65 6E 74 4C 69 6E 65 teLn(CurrentLine
0203E0: 4E 75 6D 62 65 72 29 3B 0D 0A 20 20 20 20 20 20 Number);..
0203F0: 20 20 20 20 53 61 79 28 27 25 40 25 21 51 75 69 Say('%@%!Qui
020400: 74 25 40 25 40 3E 27 29 3B 0D 0A 20 20 20 20 20 t%@%@>');..
020410: 20 20 20 20 45 6E 64 3B 20 7B 20 49 66 20 52 65 End; { If Re
020420: 44 72 61 77 20 7D 0D 0A 20 20 20 20 20 20 20 20 Draw }..
020430: 52 65 61 64 28 4B 62 64 2C 43 6F 6D 6D 61 6E 64 Read(Kbd,Command
020440: 29 3B 0D 0A 20 20 20 20 20 20 20 20 52 65 44 72 );.. ReDr
020450: 61 77 3A 3D 54 72 75 65 3B 0D 0A 20 20 20 20 20 aw:=True;..
020460: 20 20 20 43 61 73 65 20 55 70 63 61 73 65 28 43 Case Upcase(C
020470: 6F 6D 6D 61 6E 64 29 20 4F 66 0D 0A 20 20 20 20 ommand) Of..
020480: 20 20 20 20 20 20 27 4E 27 3A 20 4C 69 6E 65 4E 'N': LineN
020490: 75 6D 62 65 72 73 3A 3D 4E 6F 74 20 4C 69 6E 65 umbers:=Not Line
0204A0: 4E 75 6D 62 65 72 73 3B 0D 0A 20 20 20 20 20 20 Numbers;..
0204B0: 20 20 20 20 27 52 27 3A 20 55 70 4B 65 79 73 3A 'R': UpKeys:
0204C0: 3D 4E 6F 74 20 55 70 4B 65 79 73 3B 0D 0A 20 20 =Not UpKeys;..
0204D0: 20 20 20 20 20 20 20 20 27 53 27 3A 20 50 61 67 'S': Pag
0204E0: 65 46 6F 72 49 6E 63 6C 75 64 65 73 3A 3D 4E 6F eForIncludes:=No
0204F0: 74 20 50 61 67 65 46 6F 72 49 6E 63 6C 75 64 65 t PageForInclude
020500: 0D 0A 20 20 50 72 6F 63 65 64 75 72 65 20 4D 61 .. Procedure Ma
020510: 69 6E 4D 65 6E 75 3B 0D 0A 0D 0A 20 20 20 20 56 inMenu;.... V
020520: 61 72 0D 0A 20 20 20 20 20 20 43 6F 6D 6D 61 6E ar.. Comman
020530: 64 3A 20 43 68 61 72 3B 0D 0A 20 20 20 20 20 20 d: Char;..
020540: 52 65 44 72 61 77 3A 20 42 6F 6F 6C 65 61 6E 3B ReDraw: Boolean;
020550: 0D 0A 20 20 20 20 20 20 50 50 3A 20 52 65 63 6F .. PP: Reco
020560: 72 64 20 43 61 73 65 20 49 6E 74 65 67 65 72 20 rd Case Integer
020570: 4F 66 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 Of..
020580: 31 3A 20 28 50 31 30 30 30 3A 20 50 61 72 61 6D 1: (P1000: Param
020590: 65 74 65 72 52 65 63 6F 72 64 29 3B 0D 0A 20 20 eterRecord);..
0205A0: 20 20 20 20 20 20 20 20 20 20 32 3A 20 28 50 61 2: (Pa
0205B0: 72 6D 7A 3A 20 50 61 72 61 6D 65 74 65 72 53 65 rmz: ParameterSe
0205C0: 74 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 45 t);.. E
0205D0: 6E 64 3B 0D 0A 0D 0A 20 20 20 20 42 65 67 69 6E nd;.... Begin
0205E0: 0D 0A 20 20 20 20 20 20 49 66 20 4F 75 74 46 69 .. If OutFi
0205F0: 6C 65 4E 61 6D 65 3D 27 2E 4C 49 53 27 20 54 68 leName='.LIS' Th
020600: 65 6E 20 4F 75 74 46 69 6C 65 4E 61 6D 65 3A 3D en OutFileName:=
020610: 27 50 27 3B 0D 0A 20 20 20 20 20 20 43 75 72 72 'P';.. Curr
020620: 65 6E 74 49 6E 46 69 6C 65 4E 61 6D 65 3A 3D 49 entInFileName:=I
020630: 6E 46 69 6C 65 4E 61 6D 65 3B 0D 0A 20 20 20 20 nFileName;..
020640: 20 20 52 65 44 72 61 77 3A 3D 54 72 75 65 3B 0D ReDraw:=True;.
020650: 0A 20 20 20 20 20 20 52 65 70 65 61 74 0D 0A 20 . Repeat..
020660: 20 20 20 20 20 20 20 49 66 20 52 65 44 72 61 77 If ReDraw
020670: 20 54 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 20 Then..
020680: 42 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 Begin..
020690: 20 54 69 74 6C 65 3B 0D 0A 20 20 20 20 20 20 20 Title;..
0206A0: 20 20 20 53 61 79 28 27 25 40 4D 61 69 6E 20 6D Say('%@Main m
0206B0: 65 6E 75 25 40 25 40 25 21 49 6E 70 75 74 20 66 enu%@%@%!Input f
0206C0: 69 6C 65 3A 20 20 27 29 3B 0D 0A 20 20 20 20 20 ile: ');..
0206D0: 20 20 20 20 20 57 72 69 74 65 28 49 6E 46 69 6C Write(InFil
0206E0: 65 4E 61 6D 65 29 3B 0D 0A 20 20 20 20 20 20 20 eName);..
0206F0: 20 20 20 53 61 79 28 27 25 40 25 21 4F 75 74 70 Say('%@%!Outp
020700: 73 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 27 49 s;.. 'I
020710: 27 3A 20 41 73 6B 49 6E 74 28 27 4E 65 77 20 69 ': AskInt('New i
020720: 6E 64 65 6E 74 3A 20 27 2C 49 6E 64 65 6E 74 29 ndent: ',Indent)
020730: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 27 48 27 ;.. 'H'
020740: 3A 20 48 65 61 64 69 6E 67 3A 3D 41 73 6B 53 74 : Heading:=AskSt
020750: 72 69 6E 67 28 27 4E 65 77 20 68 65 61 64 69 6E ring('New headin
020760: 67 3A 20 27 2C 48 65 61 64 69 6E 67 29 3B 0D 0A g: ',Heading);..
020770: 20 20 20 20 20 20 20 20 20 20 27 46 27 3A 20 46 'F': F
020780: 6F 6F 74 69 6E 67 3A 3D 41 73 6B 53 74 72 69 6E ooting:=AskStrin
020790: 67 28 27 4E 65 77 20 66 6F 6F 74 69 6E 67 3A 20 g('New footing:
0207A0: 27 2C 46 6F 6F 74 69 6E 67 29 3B 0D 0A 20 20 20 ',Footing);..
0207B0: 20 20 20 20 20 20 20 27 50 27 3A 20 41 73 6B 49 'P': AskI
0207C0: 6E 74 28 27 53 74 61 72 74 69 6E 67 20 70 61 67 nt('Starting pag
0207D0: 65 20 6E 75 6D 62 65 72 3A 20 27 2C 43 75 72 72 e number: ',Curr
0207E0: 65 6E 74 50 61 67 65 4E 75 6D 62 65 72 29 3B 0D entPageNumber);.
0207F0: 0A 20 20 20 20 20 20 20 20 20 20 27 4C 27 3A 20 . 'L':
020800: 41 73 6B 49 6E 74 28 27 53 74 61 72 74 69 6E 67 AskInt('Starting
020810: 20 6C 69 6E 65 20 6E 75 6D 62 65 72 3A 20 27 2C line number: ',
020820: 43 75 72 72 65 6E 74 4C 69 6E 65 4E 75 6D 62 65 CurrentLineNumbe
020830: 72 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 45 r);.. E
020840: 6C 73 65 20 52 65 44 72 61 77 3A 3D 46 61 6C 73 lse ReDraw:=Fals
020850: 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 45 6E 64 e;.. End
020860: 3B 0D 0A 20 20 20 20 20 20 55 6E 74 69 6C 20 55 ;.. Until U
020870: 70 63 61 73 65 28 43 6F 6D 6D 61 6E 64 29 3D 27 pcase(Command)='
020880: 51 27 3B 0D 0A 20 20 20 20 45 6E 64 3B 20 7B 20 Q';.. End; {
020890: 46 6F 72 6D 61 74 4D 65 6E 75 20 7D 0D 0A 0D 0A FormatMenu }....
0208A0: 0D 0A 20 20 50 72 6F 63 65 64 75 72 65 20 4C 6F .. Procedure Lo
0208B0: 61 64 50 61 72 6D 73 3B 0D 0A 0D 0A 20 20 20 20 adParms;....
0208C0: 56 61 72 0D 0A 20 20 20 20 20 20 50 50 3A 20 52 Var.. PP: R
0208D0: 65 63 6F 72 64 20 43 61 73 65 20 49 6E 74 65 67 ecord Case Integ
0208E0: 65 72 20 4F 66 0D 0A 20 20 20 20 20 20 20 20 20 er Of..
0208F0: 20 20 20 31 3A 20 28 50 31 30 30 30 3A 20 50 61 1: (P1000: Pa
020900: 75 74 20 66 69 6C 65 3A 20 27 29 3B 0D 0A 20 20 ut file: ');..
020910: 20 20 20 20 20 20 20 20 49 66 20 4F 75 74 46 69 If OutFi
020920: 6C 65 4E 61 6D 65 3D 27 53 27 20 54 68 65 6E 20 leName='S' Then
020930: 57 72 69 74 65 28 27 54 68 65 20 73 63 72 65 65 Write('The scree
020940: 6E 27 29 0D 0A 20 20 20 20 20 20 20 20 20 20 45 n').. E
020950: 6C 73 65 20 49 66 20 4F 75 74 46 69 6C 65 4E 61 lse If OutFileNa
020960: 6D 65 3D 27 50 27 20 54 68 65 6E 20 57 72 69 74 me='P' Then Writ
020970: 65 28 27 54 68 65 20 70 72 69 6E 74 65 72 27 29 e('The printer')
020980: 0D 0A 20 20 20 20 20 20 20 20 20 20 45 6C 73 65 .. Else
020990: 20 57 72 69 74 65 28 4F 75 74 46 69 6C 65 4E 61 Write(OutFileNa
0209A0: 6D 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 me);..
0209B0: 53 61 79 28 27 25 40 25 40 25 21 4C 6F 61 64 20 Say('%@%@%!Load
0209C0: 70 61 72 61 6D 65 74 65 72 20 66 69 6C 65 25 40 parameter file%@
0209D0: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 53 ');.. S
0209E0: 61 79 28 27 25 21 53 61 76 65 20 70 61 72 61 6D ay('%!Save param
0209F0: 65 74 65 72 20 66 69 6C 65 25 40 25 40 27 29 3B eter file%@%@');
020A00: 0D 0A 20 20 20 20 20 20 20 20 20 20 53 61 79 28 .. Say(
020A10: 27 25 21 48 61 72 64 77 61 72 65 20 70 61 72 61 '%!Hardware para
020A20: 6D 65 74 65 72 73 25 40 27 29 3B 0D 0A 20 20 20 meters%@');..
020A30: 20 20 20 20 20 20 20 53 61 79 28 27 25 21 46 6F Say('%!Fo
020A40: 72 6D 61 74 74 69 6E 67 20 70 61 72 61 6D 65 74 rmatting paramet
020A50: 65 72 73 25 40 25 40 27 29 3B 0D 0A 20 20 20 20 ers%@%@');..
020A60: 20 20 20 20 20 20 53 61 79 28 27 25 21 54 69 6D Say('%!Tim
020A70: 65 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 e: ');..
020A80: 20 20 57 72 69 74 65 4C 6E 28 54 69 6D 65 53 74 WriteLn(TimeSt
020A90: 72 69 6E 67 29 3B 0D 0A 20 20 20 20 20 20 20 20 ring);..
020AA0: 20 20 53 61 79 28 27 25 21 44 61 74 65 3A 20 27 Say('%!Date: '
020AB0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 72 );.. Wr
020AC0: 69 74 65 4C 6E 28 44 61 74 65 53 74 72 69 6E 67 iteLn(DateString
020AD0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 53 61 );.. Sa
020AE0: 79 28 27 25 40 25 21 52 65 73 65 74 20 6C 69 6E y('%@%!Reset lin
020AF0: 65 20 61 6E 64 20 70 61 67 65 20 6E 75 6D 62 65 e and page numbe
020B00: 72 61 6D 65 74 65 72 52 65 63 6F 72 64 29 3B 0D rameterRecord);.
020B10: 0A 20 20 20 20 20 20 20 20 20 20 20 20 32 3A 20 . 2:
020B20: 28 50 61 72 6D 7A 3A 20 50 61 72 61 6D 65 74 65 (Parmz: Paramete
020B30: 72 53 65 74 29 3B 0D 0A 20 20 20 20 20 20 20 20 rSet);..
020B40: 20 20 45 6E 64 3B 0D 0A 0D 0A 20 20 20 20 42 65 End;.... Be
020B50: 67 69 6E 0D 0A 20 20 20 20 20 20 41 73 73 69 67 gin.. Assig
020B60: 6E 28 50 61 72 6D 46 69 6C 65 2C 50 61 72 6D 46 n(ParmFile,ParmF
020B70: 69 6C 65 4E 61 6D 65 29 3B 0D 0A 20 20 20 20 20 ileName);..
020B80: 20 7B 24 49 2D 7D 20 52 65 73 65 74 28 50 61 72 {$I-} Reset(Par
020B90: 6D 46 69 6C 65 29 3B 20 7B 24 49 2B 7D 0D 0A 20 mFile); {$I+}..
020BA0: 20 20 20 20 20 49 66 20 49 4F 52 65 73 75 6C 74 If IOResult
020BB0: 3C 3E 30 20 54 68 65 6E 20 45 72 72 6F 72 4D 65 <>0 Then ErrorMe
020BC0: 73 73 61 67 65 28 27 50 61 72 61 6D 65 74 65 72 ssage('Parameter
020BD0: 20 66 69 6C 65 20 6E 6F 74 20 66 6F 75 6E 64 27 file not found'
020BE0: 29 0D 0A 20 20 20 20 20 20 45 6C 73 65 0D 0A 20 ).. Else..
020BF0: 20 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 20 Begin..
020C00: 20 20 20 20 20 52 65 61 64 28 50 61 72 6D 46 69 Read(ParmFi
020C10: 6C 65 2C 50 50 2E 50 31 30 30 30 29 3B 0D 0A 20 le,PP.P1000);..
020C20: 20 20 20 20 20 20 20 50 61 72 6D 73 3A 3D 50 50 Parms:=PP
020C30: 2E 50 61 72 6D 7A 3B 0D 0A 20 20 20 20 20 20 20 .Parmz;..
020C40: 20 43 6C 6F 73 65 28 50 61 72 6D 46 69 6C 65 29 Close(ParmFile)
020C50: 3B 0D 0A 20 20 20 20 20 20 20 20 49 66 20 49 6E ;.. If In
020C60: 46 69 6C 65 4E 61 6D 65 3D 27 27 20 54 68 65 6E FileName='' Then
020C70: 20 49 6E 46 69 6C 65 4E 61 6D 65 3A 3D 53 61 76 InFileName:=Sav
020C80: 65 64 49 6E 46 69 6C 65 4E 61 6D 65 3B 0D 0A 20 edInFileName;..
020C90: 20 20 20 20 20 20 20 49 66 20 28 4F 75 74 46 69 If (OutFi
020CA0: 6C 65 4E 61 6D 65 3D 27 27 29 20 4F 72 20 28 4F leName='') Or (O
020CB0: 75 74 46 69 6C 65 4E 61 6D 65 3D 27 50 27 29 20 utFileName='P')
020CC0: 4F 72 20 28 4F 75 74 46 69 6C 65 4E 61 6D 65 3D Or (OutFileName=
020CD0: 27 53 27 29 20 54 68 65 6E 0D 0A 20 20 20 20 20 'S') Then..
020CE0: 20 20 20 20 20 4F 75 74 46 69 6C 65 4E 61 6D 65 OutFileName
020CF0: 3A 3D 53 61 76 65 64 4F 75 74 46 69 6C 65 4E 61 :=SavedOutFileNa
020D00: 72 73 25 40 25 40 25 21 51 75 69 74 25 40 25 21 rs%@%@%!Quit%@%!
020D10: 47 6F 25 40 25 40 3E 27 29 3B 0D 0A 20 20 20 20 Go%@%@>');..
020D20: 20 20 20 20 20 45 6E 64 3B 20 7B 20 49 66 20 52 End; { If R
020D30: 65 44 72 61 77 20 7D 0D 0A 20 20 20 20 20 20 20 eDraw }..
020D40: 20 52 65 61 64 28 4B 62 64 2C 43 6F 6D 6D 61 6E Read(Kbd,Comman
020D50: 64 29 3B 0D 0A 20 20 20 20 20 20 20 20 43 6F 6D d);.. Com
020D60: 6D 61 6E 64 3A 3D 55 70 63 61 73 65 28 43 6F 6D mand:=Upcase(Com
020D70: 6D 61 6E 64 29 3B 0D 0A 20 20 20 20 20 20 20 20 mand);..
020D80: 52 65 44 72 61 77 3A 3D 54 72 75 65 3B 0D 0A 20 ReDraw:=True;..
020D90: 20 20 20 20 20 20 20 43 61 73 65 20 43 6F 6D 6D Case Comm
020DA0: 61 6E 64 20 4F 66 0D 0A 20 20 20 20 20 20 20 20 and Of..
020DB0: 20 20 27 49 27 3A 20 42 65 67 69 6E 0D 0A 20 20 'I': Begin..
020DC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 I
020DD0: 6E 46 69 6C 65 4E 61 6D 65 3A 3D 41 73 6B 53 74 nFileName:=AskSt
020DE0: 72 69 6E 67 28 27 49 6E 70 75 74 20 66 69 6C 65 ring('Input file
020DF0: 20 6E 61 6D 65 3A 20 27 2C 49 6E 46 69 6C 65 4E name: ',InFileN
020E00: 61 6D 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 ame);..
020E10: 20 20 20 20 20 20 20 20 49 66 20 49 6E 46 69 6C If InFil
020E20: 65 4E 61 6D 65 3C 3E 27 27 20 54 68 65 6E 20 46 eName<>'' Then F
020E30: 69 78 46 69 6C 65 4E 61 6D 65 28 49 6E 46 69 6C ixFileName(InFil
020E40: 65 4E 61 6D 65 2C 27 50 41 53 27 29 3B 0D 0A 20 eName,'PAS');..
020E50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
020E60: 43 75 72 72 65 6E 74 49 6E 46 69 6C 65 4E 61 6D CurrentInFileNam
020E70: 65 3A 3D 49 6E 46 69 6C 65 4E 61 6D 65 3B 0D 0A e:=InFileName;..
020E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
020E90: 20 49 66 20 28 49 6E 63 6C 75 64 65 44 72 69 76 If (IncludeDriv
020EA0: 65 3D 27 20 27 29 20 41 6E 64 20 28 49 6E 46 69 e=' ') And (InFi
020EB0: 6C 65 4E 61 6D 65 5B 32 5D 3D 27 3A 27 29 20 54 leName[2]=':') T
020EC0: 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 hen..
020ED0: 20 20 20 20 20 20 20 20 49 6E 63 6C 75 64 65 44 IncludeD
020EE0: 72 69 76 65 3A 3D 49 6E 46 69 6C 65 4E 61 6D 65 rive:=InFileName
020EF0: 5B 31 5D 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 [1];..
020F00: 6D 65 3B 0D 0A 20 20 20 20 20 20 20 45 6E 64 3B me;.. End;
020F10: 20 7B 20 45 6C 73 65 20 70 61 72 61 6D 65 74 65 { Else paramete
020F20: 72 20 66 69 6C 65 20 77 61 73 20 66 6F 75 6E 64 r file was found
020F30: 20 7D 0D 0A 20 20 20 20 20 45 6E 64 3B 20 7B 20 }.. End; {
020F40: 4C 6F 61 64 50 61 72 6D 73 20 7D 0D 0A 0D 0A 1A LoadParms }.....
020F50: 67 69 6E 0D 0A 20 20 20 20 20 20 41 73 73 69 67 gin.. Assig
020F60: 6E 28 50 61 72 6D 46 69 6C 65 2C 50 61 72 6D 46 n(ParmFile,ParmF
020F70: 69 6C 65 4E 61 6D 65 29 3B 0D 0A 20 20 20 20 20 ileName);..
020F80: 20 7B 24 49 2D 7D 20 52 65 73 65 74 28 50 61 72 {$I-} Reset(Par
020F90: 6D 46 69 6C 65 29 3B 20 7B 24 49 2B 7D 0D 0A 20 mFile); {$I+}..
020FA0: 20 20 20 20 20 49 66 20 49 4F 52 65 73 75 6C 74 If IOResult
020FB0: 3C 3E 30 20 54 68 65 6E 20 45 72 72 6F 72 4D 65 <>0 Then ErrorMe
020FC0: 73 73 61 67 65 28 27 50 61 72 61 6D 65 74 65 72 ssage('Parameter
020FD0: 20 66 69 6C 65 20 6E 6F 74 20 66 6F 75 6E 64 27 file not found'
020FE0: 29 0D 0A 20 20 20 20 20 20 45 6C 73 65 0D 0A 20 ).. Else..
020FF0: 20 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 20 Begin..
021000: 20 20 20 20 20 52 65 61 64 28 50 61 72 6D 46 69 Read(ParmFi
021010: 6C 65 2C 50 50 2E 50 31 30 30 30 29 3B 0D 0A 20 le,PP.P1000);..
021020: 20 20 20 20 20 20 20 50 61 72 6D 73 3A 3D 50 50 Parms:=PP
021030: 2E 50 61 72 6D 7A 3B 0D 0A 20 20 20 20 20 20 20 .Parmz;..
021040: 20 43 6C 6F 73 65 28 50 61 72 6D 46 69 6C 65 29 Close(ParmFile)
021050: 3B 0D 0A 20 20 20 20 20 20 20 20 49 66 20 49 6E ;.. If In
021060: 46 69 6C 65 4E 61 6D 65 3D 27 27 20 54 68 65 6E FileName='' Then
021070: 20 49 6E 46 69 6C 65 4E 61 6D 65 3A 3D 53 61 76 InFileName:=Sav
021080: 65 64 49 6E 46 69 6C 65 4E 61 6D 65 3B 0D 0A 20 edInFileName;..
021090: 20 20 20 20 20 20 20 49 66 20 28 4F 75 74 46 69 If (OutFi
0210A0: 6C 65 4E 61 6D 65 3D 27 27 29 20 4F 72 20 28 4F leName='') Or (O
0210B0: 75 74 46 69 6C 65 4E 61 6D 65 3D 27 50 27 29 20 utFileName='P')
0210C0: 4F 72 20 28 4F 75 74 46 69 6C 65 4E 61 6D 65 3D Or (OutFileName=
0210D0: 27 53 27 29 20 54 68 65 6E 0D 0A 20 20 20 20 20 'S') Then..
0210E0: 20 20 20 20 20 4F 75 74 46 69 6C 65 4E 61 6D 65 OutFileName
0210F0: 3A 3D 53 61 76 65 64 4F 75 74 46 69 6C 65 4E 61 :=SavedOutFileNa
021100: 20 20 20 20 20 45 6E 64 3B 0D 0A 20 20 20 20 20 End;..
021110: 20 20 20 20 20 27 4F 27 3A 20 42 65 67 69 6E 0D 'O': Begin.
021120: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
021130: 20 20 4F 75 74 46 69 6C 65 4E 61 6D 65 3A 3D 41 OutFileName:=A
021140: 73 6B 53 74 72 69 6E 67 28 27 4F 75 74 70 75 74 skString('Output
021150: 20 66 69 6C 65 20 6E 61 6D 65 20 28 6F 72 20 53 file name (or S
021160: 3D 74 68 65 20 73 63 72 65 65 6E 20 6F 72 20 50 =the screen or P
021170: 3D 74 68 65 20 70 72 69 6E 74 65 72 29 3A 20 27 =the printer): '
021180: 2C 4F 75 74 46 69 6C 65 4E 61 6D 65 29 3B 0D 0A ,OutFileName);..
021190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0211A0: 20 46 69 78 53 74 72 69 6E 67 28 4F 75 74 46 69 FixString(OutFi
0211B0: 6C 65 4E 61 6D 65 29 3B 0D 0A 20 20 20 20 20 20 leName);..
0211C0: 20 20 20 20 20 20 20 20 20 20 20 49 66 20 28 4F If (O
0211D0: 75 74 46 69 6C 65 4E 61 6D 65 3C 3E 27 50 27 29 utFileName<>'P')
0211E0: 20 41 6E 64 20 28 4F 75 74 46 69 6C 65 4E 61 6D And (OutFileNam
0211F0: 65 3C 3E 27 53 27 29 20 54 68 65 6E 0D 0A 20 20 e<>'S') Then..
021200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021210: 20 46 69 78 46 69 6C 65 4E 61 6D 65 28 4F 75 74 FixFileName(Out
021220: 46 69 6C 65 4E 61 6D 65 2C 27 4C 49 53 27 29 3B FileName,'LIS');
021230: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
021240: 20 45 6E 64 3B 0D 0A 20 20 20 20 20 20 20 20 20 End;..
021250: 20 27 54 27 3A 20 54 69 6D 65 53 74 72 69 6E 67 'T': TimeString
021260: 3A 3D 41 73 6B 53 74 72 69 6E 67 28 27 43 75 72 :=AskString('Cur
021270: 72 65 6E 74 20 74 69 6D 65 3A 20 27 2C 54 69 6D rent time: ',Tim
021280: 65 53 74 72 69 6E 67 29 3B 0D 0A 20 20 20 20 20 eString);..
021290: 20 20 20 20 20 27 44 27 3A 20 44 61 74 65 53 74 'D': DateSt
0212A0: 72 69 6E 67 3A 3D 41 73 6B 53 74 72 69 6E 67 28 ring:=AskString(
0212B0: 27 43 75 72 72 65 6E 74 20 64 61 74 65 3A 20 27 'Current date: '
0212C0: 2C 44 61 74 65 53 74 72 69 6E 67 29 3B 0D 0A 20 ,DateString);..
0212D0: 20 20 20 20 20 20 20 20 20 27 4C 27 3A 20 42 65 'L': Be
0212E0: 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 gin..
0212F0: 20 20 20 20 20 20 50 61 72 6D 46 69 6C 65 4E 61 ParmFileNa
021300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0213A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0213B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0213C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0213D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0213E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0213F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0214A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0214B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0214C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0214D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0214E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0214F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
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 52 E5 1C 00 41 02 00 00 00 02 ......R...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: 6D 65 3A 3D 41 73 6B 53 74 72 69 6E 67 28 27 50 me:=AskString('P
021610: 61 72 61 6D 65 74 65 72 20 66 69 6C 65 20 6E 61 arameter file na
021620: 6D 65 3A 20 27 2C 50 61 72 6D 46 69 6C 65 4E 61 me: ',ParmFileNa
021630: 6D 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 me);..
021640: 20 20 20 20 20 20 20 46 69 78 46 69 6C 65 4E 61 FixFileNa
021650: 6D 65 28 50 61 72 6D 46 69 6C 65 4E 61 6D 65 2C me(ParmFileName,
021660: 27 4C 54 50 27 29 3B 0D 0A 20 20 20 20 20 20 20 'LTP');..
021670: 20 20 20 20 20 20 20 20 20 20 57 72 69 74 65 4C WriteL
021680: 6E 28 5E 4D 2C 27 50 61 72 61 6D 65 74 65 72 20 n(^M,'Parameter
021690: 66 69 6C 65 20 6E 61 6D 65 3A 20 27 2C 50 61 72 file name: ',Par
0216A0: 6D 46 69 6C 65 4E 61 6D 65 29 3B 0D 0A 20 20 20 mFileName);..
0216B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4C 6F Lo
0216C0: 61 64 50 61 72 6D 73 3B 0D 0A 20 20 20 20 20 20 adParms;..
0216D0: 20 20 20 20 20 20 20 20 20 20 20 44 65 6C 61 79 Delay
0216E0: 28 35 30 30 29 3B 0D 0A 20 20 20 20 20 20 20 20 (500);..
0216F0: 20 20 20 20 20 20 20 45 6E 64 3B 0D 0A 20 20 20 End;..
021700: 20 20 20 20 20 20 20 27 53 27 3A 20 42 65 67 69 'S': Begi
021710: 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 n..
021720: 20 20 20 20 50 61 72 6D 46 69 6C 65 4E 61 6D 65 ParmFileName
021730: 3A 3D 41 73 6B 53 74 72 69 6E 67 28 27 50 61 72 :=AskString('Par
021740: 61 6D 65 74 65 72 20 66 69 6C 65 20 6E 61 6D 65 ameter file name
021750: 3A 20 27 2C 50 61 72 6D 46 69 6C 65 4E 61 6D 65 : ',ParmFileName
021760: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
021770: 20 20 20 20 20 46 69 78 46 69 6C 65 4E 61 6D 65 FixFileName
021780: 28 50 61 72 6D 46 69 6C 65 4E 61 6D 65 2C 27 4C (ParmFileName,'L
021790: 54 50 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 TP');..
0217A0: 20 20 20 20 20 20 20 20 57 72 69 74 65 4C 6E 28 WriteLn(
0217B0: 5E 4D 2C 27 50 61 72 61 6D 65 74 65 72 20 66 69 ^M,'Parameter fi
0217C0: 6C 65 20 6E 61 6D 65 3A 20 27 2C 50 61 72 6D 46 le name: ',ParmF
0217D0: 69 6C 65 4E 61 6D 65 29 3B 0D 0A 20 20 20 20 20 ileName);..
0217E0: 20 20 20 20 20 20 20 20 20 20 20 20 41 73 73 69 Assi
0217F0: 67 6E 28 50 61 72 6D 46 69 6C 65 2C 50 61 72 6D gn(ParmFile,Parm
021800: 20 4F 75 74 46 69 6C 65 4E 61 6D 65 5B 31 5D 3D OutFileName[1]=
021810: 27 26 27 20 54 68 65 6E 0D 0A 20 20 20 20 20 42 '&' Then.. B
021820: 65 67 69 6E 0D 0A 20 20 20 20 20 20 43 75 72 72 egin.. Curr
021830: 65 6E 74 49 6E 46 69 6C 65 4E 61 6D 65 3A 3D 4F entInFileName:=O
021840: 75 74 46 69 6C 65 4E 61 6D 65 3B 20 7B 20 54 65 utFileName; { Te
021850: 6D 70 6F 72 61 72 79 20 7D 0D 0A 20 20 20 20 20 mporary }..
021860: 20 4F 75 74 46 69 6C 65 4E 61 6D 65 3A 3D 50 61 OutFileName:=Pa
021870: 72 6D 46 69 6C 65 4E 61 6D 65 3B 0D 0A 20 20 20 rmFileName;..
021880: 20 20 20 50 61 72 6D 46 69 6C 65 4E 61 6D 65 3A ParmFileName:
021890: 3D 43 6F 70 79 28 43 75 72 72 65 6E 74 49 6E 46 =Copy(CurrentInF
0218A0: 69 6C 65 4E 61 6D 65 2C 32 2C 32 30 29 3B 0D 0A ileName,2,20);..
0218B0: 20 20 20 20 20 45 6E 64 3B 0D 0A 20 20 20 20 49 End;.. I
0218C0: 66 20 50 61 72 6D 46 69 6C 65 4E 61 6D 65 5B 31 f ParmFileName[1
0218D0: 5D 3D 27 26 27 20 54 68 65 6E 20 44 65 6C 65 74 ]='&' Then Delet
0218E0: 65 28 50 61 72 6D 46 69 6C 65 4E 61 6D 65 2C 31 e(ParmFileName,1
0218F0: 2C 31 29 3B 0D 0A 20 20 20 20 46 69 78 46 69 6C ,1);.. FixFil
021900: 65 4E 61 6D 65 28 49 6E 46 69 6C 65 4E 61 6D 65 eName(InFileName
021910: 2C 27 50 41 53 27 29 3B 0D 0A 20 20 20 20 49 66 ,'PAS');.. If
021920: 20 49 6E 46 69 6C 65 4E 61 6D 65 3D 27 2E 50 41 InFileName='.PA
021930: 53 27 20 54 68 65 6E 20 49 6E 46 69 6C 65 4E 61 S' Then InFileNa
021940: 6D 65 3A 3D 27 27 3B 0D 0A 20 20 20 20 49 6E 63 me:='';.. Inc
021950: 6C 75 64 65 44 72 69 76 65 3A 3D 27 20 27 3B 0D ludeDrive:=' ';.
021960: 0A 20 20 20 20 49 66 20 49 6E 46 69 6C 65 4E 61 . If InFileNa
021970: 6D 65 5B 32 5D 3D 27 3A 27 20 54 68 65 6E 20 49 me[2]=':' Then I
021980: 6E 63 6C 75 64 65 44 72 69 76 65 3A 3D 49 6E 46 ncludeDrive:=InF
021990: 69 6C 65 4E 61 6D 65 5B 31 5D 3B 0D 0A 20 20 20 ileName[1];..
0219A0: 20 46 69 78 53 74 72 69 6E 67 28 4F 75 74 46 69 FixString(OutFi
0219B0: 6C 65 4E 61 6D 65 29 3B 0D 0A 20 20 20 20 49 66 leName);.. If
0219C0: 20 28 4F 75 74 46 69 6C 65 4E 61 6D 65 3C 3E 27 (OutFileName<>'
0219D0: 53 27 29 20 41 6E 64 20 28 4F 75 74 46 69 6C 65 S') And (OutFile
0219E0: 4E 61 6D 65 3C 3E 27 50 27 29 20 54 68 65 6E 0D Name<>'P') Then.
0219F0: 0A 20 20 20 20 20 20 46 69 78 46 69 6C 65 4E 61 . FixFileNa
021A00: 46 69 6C 65 4E 61 6D 65 29 3B 0D 0A 20 20 20 20 FileName);..
021A10: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 24 49 {$I
021A20: 2D 7D 20 52 65 73 65 74 28 50 61 72 6D 46 69 6C -} Reset(ParmFil
021A30: 65 29 3B 20 7B 24 49 2B 7D 0D 0A 20 20 20 20 20 e); {$I+}..
021A40: 20 20 20 20 20 20 20 20 20 20 20 20 43 6F 6D 6D Comm
021A50: 61 6E 64 3A 3D 27 59 27 3B 0D 0A 20 20 20 20 20 and:='Y';..
021A60: 20 20 20 20 20 20 20 20 20 20 20 20 49 66 20 49 If I
021A70: 4F 52 65 73 75 6C 74 3D 30 20 54 68 65 6E 0D 0A OResult=0 Then..
021A80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021A90: 20 20 42 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 Begin..
021AA0: 20 20 20 20 20 20 20 20 20 20 20 20 43 6C 6F 73 Clos
021AB0: 65 28 50 61 72 6D 46 69 6C 65 29 3B 0D 0A 20 20 e(ParmFile);..
021AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021AD0: 20 57 72 69 74 65 28 27 4F 76 65 72 77 72 69 74 Write('Overwrit
021AE0: 65 20 28 44 45 53 54 52 4F 59 29 20 6F 6C 64 20 e (DESTROY) old
021AF0: 27 2C 50 61 72 6D 46 69 6C 65 4E 61 6D 65 2C 27 ',ParmFileName,'
021B00: 3F 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 ? ');..
021B10: 20 20 20 20 20 20 20 20 20 20 52 65 61 64 4C 6E ReadLn
021B20: 28 43 6F 6D 6D 61 6E 64 29 3B 0D 0A 20 20 20 20 (Command);..
021B30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 C
021B40: 6F 6D 6D 61 6E 64 3A 3D 55 70 63 61 73 65 28 43 ommand:=Upcase(C
021B50: 6F 6D 6D 61 6E 64 29 3B 0D 0A 20 20 20 20 20 20 ommand);..
021B60: 20 20 20 20 20 20 20 20 20 20 20 20 45 6E 64 3B End;
021B70: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
021B80: 20 20 20 49 66 20 43 6F 6D 6D 61 6E 64 3D 27 59 If Command='Y
021B90: 27 20 54 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 ' Then..
021BA0: 20 20 20 20 20 20 20 20 20 20 42 65 67 69 6E 0D Begin.
021BB0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
021BC0: 20 20 20 20 41 73 73 69 67 6E 28 50 61 72 6D 46 Assign(ParmF
021BD0: 69 6C 65 2C 50 61 72 6D 46 69 6C 65 4E 61 6D 65 ile,ParmFileName
021BE0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
021BF0: 20 20 20 20 20 20 20 7B 24 49 2D 7D 20 52 65 77 {$I-} Rew
021C00: 6D 65 28 4F 75 74 46 69 6C 65 4E 61 6D 65 2C 27 me(OutFileName,'
021C10: 4C 49 53 27 29 3B 0D 0A 20 20 20 20 49 66 20 4F LIS');.. If O
021C20: 75 74 46 69 6C 65 4E 61 6D 65 3D 27 2E 4C 49 53 utFileName='.LIS
021C30: 27 20 54 68 65 6E 20 4F 75 74 46 69 6C 65 4E 61 ' Then OutFileNa
021C40: 6D 65 3A 3D 27 27 3B 0D 0A 20 20 20 20 46 69 78 me:='';.. Fix
021C50: 46 69 6C 65 4E 61 6D 65 28 50 61 72 6D 46 69 6C FileName(ParmFil
021C60: 65 4E 61 6D 65 2C 27 4C 54 50 27 29 3B 0D 0A 20 eName,'LTP');..
021C70: 20 20 20 49 6E 69 74 50 61 72 6D 73 3B 0D 0A 20 InitParms;..
021C80: 20 20 20 49 66 20 50 61 72 6D 46 69 6C 65 4E 61 If ParmFileNa
021C90: 6D 65 3C 3E 27 2E 4C 54 50 27 20 54 68 65 6E 20 me<>'.LTP' Then
021CA0: 4C 6F 61 64 50 61 72 6D 73 3B 0D 0A 20 20 20 20 LoadParms;..
021CB0: 49 66 20 4F 75 74 46 69 6C 65 4E 61 6D 65 3D 27 If OutFileName='
021CC0: 27 20 54 68 65 6E 20 4F 75 74 46 69 6C 65 4E 61 ' Then OutFileNa
021CD0: 6D 65 3A 3D 27 50 27 3B 0D 0A 20 20 20 20 49 66 me:='P';.. If
021CE0: 20 49 6E 46 69 6C 65 4E 61 6D 65 3D 27 27 20 54 InFileName='' T
021CF0: 68 65 6E 20 4D 61 69 6E 4D 65 6E 75 0D 0A 20 20 hen MainMenu..
021D00: 20 20 45 6C 73 65 20 43 6F 6D 6D 61 6E 64 4C 69 Else CommandLi
021D10: 6E 65 53 74 61 72 74 75 70 3A 3D 54 72 75 65 3B neStartup:=True;
021D20: 0D 0A 20 20 20 20 52 65 70 65 61 74 0D 0A 20 20 .. Repeat..
021D30: 20 20 20 20 41 73 73 69 67 6E 28 49 6E 46 69 6C Assign(InFil
021D40: 65 2C 49 6E 46 69 6C 65 4E 61 6D 65 29 3B 0D 0A e,InFileName);..
021D50: 20 20 20 20 20 20 7B 24 49 2D 7D 20 52 65 73 65 {$I-} Rese
021D60: 74 28 49 6E 46 69 6C 65 29 3B 20 7B 24 49 2B 7D t(InFile); {$I+}
021D70: 0D 0A 20 20 20 20 20 20 4F 6B 3A 3D 28 49 4F 52 .. Ok:=(IOR
021D80: 65 73 75 6C 74 3D 30 29 3B 0D 0A 20 20 20 20 20 esult=0);..
021D90: 20 49 66 20 4E 6F 74 20 4F 6B 20 54 68 65 6E 0D If Not Ok Then.
021DA0: 0A 20 20 20 20 20 20 20 20 45 72 72 6F 72 4D 65 . ErrorMe
021DB0: 73 73 61 67 65 28 27 46 69 6C 65 20 27 2B 49 6E ssage('File '+In
021DC0: 46 69 6C 65 4E 61 6D 65 2B 27 20 64 6F 65 73 20 FileName+' does
021DD0: 6E 6F 74 20 65 78 69 73 74 21 27 29 0D 0A 20 20 not exist!')..
021DE0: 20 20 20 20 45 6C 73 65 0D 0A 20 20 20 20 20 20 Else..
021DF0: 20 42 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 Begin..
021E00: 72 69 74 65 28 50 61 72 6D 46 69 6C 65 29 3B 20 rite(ParmFile);
021E10: 7B 24 49 2B 7D 0D 0A 20 20 20 20 20 20 20 20 20 {$I+}..
021E20: 20 20 20 20 20 20 20 20 20 20 49 66 20 49 4F 52 If IOR
021E30: 65 73 75 6C 74 3D 30 20 54 68 65 6E 0D 0A 20 20 esult=0 Then..
021E40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021E50: 20 20 42 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 Begin..
021E60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 61 Sa
021E70: 76 65 64 49 6E 46 69 6C 65 4E 61 6D 65 3A 3D 49 vedInFileName:=I
021E80: 6E 46 69 6C 65 4E 61 6D 65 3B 0D 0A 20 20 20 20 nFileName;..
021E90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021EA0: 20 53 61 76 65 64 4F 75 74 46 69 6C 65 4E 61 6D SavedOutFileNam
021EB0: 65 3A 3D 4F 75 74 46 69 6C 65 4E 61 6D 65 3B 0D e:=OutFileName;.
021EC0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
021ED0: 20 20 20 20 20 20 46 69 6C 6C 43 68 61 72 28 50 FillChar(P
021EE0: 50 2E 50 31 30 30 30 2C 31 30 30 30 2C 30 29 3B P.P1000,1000,0);
021EF0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
021F00: 20 20 20 20 20 20 20 50 50 2E 50 61 72 6D 7A 3A PP.Parmz:
021F10: 3D 50 61 72 6D 73 3B 0D 0A 20 20 20 20 20 20 20 =Parms;..
021F20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 72 Wr
021F30: 69 74 65 28 50 61 72 6D 46 69 6C 65 2C 50 50 2E ite(ParmFile,PP.
021F40: 50 31 30 30 30 29 3B 0D 0A 20 20 20 20 20 20 20 P1000);..
021F50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6C Cl
021F60: 6F 73 65 28 50 61 72 6D 46 69 6C 65 29 3B 0D 0A ose(ParmFile);..
021F70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021F80: 20 20 20 20 45 6E 64 20 7B 20 49 66 20 49 4F 52 End { If IOR
021F90: 65 73 75 6C 74 3D 30 20 7D 0D 0A 20 20 20 20 20 esult=0 }..
021FA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 6C El
021FB0: 73 65 20 45 72 72 6F 72 4D 65 73 73 61 67 65 28 se ErrorMessage(
021FC0: 50 61 72 6D 46 69 6C 65 4E 61 6D 65 2B 27 20 63 ParmFileName+' c
021FD0: 6F 75 6C 64 20 6E 6F 74 20 62 65 20 6F 70 65 6E ould not be open
021FE0: 65 64 2E 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 ed.');..
021FF0: 20 20 20 20 20 20 20 20 20 20 45 6E 64 20 7B 20 End {
022000: 4F 75 74 49 73 44 65 76 69 63 65 3A 3D 46 61 6C OutIsDevice:=Fal
022010: 73 65 3B 0D 0A 20 20 20 20 20 20 20 20 49 66 20 se;.. If
022020: 28 4F 75 74 46 69 6C 65 4E 61 6D 65 3D 27 53 27 (OutFileName='S'
022030: 29 20 4F 72 20 28 4F 75 74 46 69 6C 65 4E 61 6D ) Or (OutFileNam
022040: 65 3D 27 50 27 29 20 54 68 65 6E 0D 0A 20 20 20 e='P') Then..
022050: 20 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 20 Begin..
022060: 20 20 20 20 20 20 20 4F 75 74 49 73 44 65 76 69 OutIsDevi
022070: 63 65 3A 3D 54 72 75 65 3B 0D 0A 20 20 20 20 20 ce:=True;..
022080: 20 20 20 20 20 49 66 20 4F 75 74 46 69 6C 65 4E If OutFileN
022090: 61 6D 65 3D 27 53 27 20 54 68 65 6E 20 4F 75 74 ame='S' Then Out
0220A0: 46 69 6C 65 4E 61 6D 65 3A 3D 27 43 4F 4E 3A 27 FileName:='CON:'
0220B0: 0D 0A 20 20 20 20 20 20 20 20 20 20 45 6C 73 65 .. Else
0220C0: 20 4F 75 74 46 69 6C 65 4E 61 6D 65 3A 3D 27 4C OutFileName:='L
0220D0: 53 54 3A 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 ST:';..
0220E0: 45 6E 64 3B 0D 0A 20 20 20 20 20 20 20 20 41 73 End;.. As
0220F0: 73 69 67 6E 28 4F 75 74 46 69 6C 65 2C 4F 75 74 sign(OutFile,Out
022100: 46 69 6C 65 4E 61 6D 65 29 3B 0D 0A 20 20 20 20 FileName);..
022110: 20 20 20 20 7B 24 49 2D 7D 20 52 65 73 65 74 28 {$I-} Reset(
022120: 4F 75 74 46 69 6C 65 29 3B 0D 0A 20 20 20 20 20 OutFile);..
022130: 20 20 20 4F 6B 3A 3D 28 49 4F 52 65 73 75 6C 74 Ok:=(IOResult
022140: 3C 3E 30 29 20 4F 72 20 4F 75 74 49 73 44 65 76 <>0) Or OutIsDev
022150: 69 63 65 3B 0D 0A 20 20 20 20 20 20 20 20 43 6C ice;.. Cl
022160: 6F 73 65 28 4F 75 74 46 69 6C 65 29 3B 20 7B 24 ose(OutFile); {$
022170: 49 2B 7D 0D 0A 20 20 20 20 20 20 20 20 49 66 20 I+}.. If
022180: 4E 6F 74 20 4F 6B 20 54 68 65 6E 0D 0A 20 20 20 Not Ok Then..
022190: 20 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 20 Begin..
0221A0: 20 20 20 20 20 20 20 57 72 69 74 65 28 27 46 69 Write('Fi
0221B0: 6C 65 20 27 2C 4F 75 74 46 69 6C 65 4E 61 6D 65 le ',OutFileName
0221C0: 2C 27 20 65 78 69 73 74 73 2E 20 20 52 65 70 6C ,' exists. Repl
0221D0: 61 63 65 20 28 44 45 53 54 52 4F 59 29 20 69 74 ace (DESTROY) it
0221E0: 20 28 59 2F 4E 29 3F 20 27 29 3B 0D 0A 20 20 20 (Y/N)? ');..
0221F0: 20 20 20 20 20 20 20 52 65 61 64 4C 6E 28 43 68 ReadLn(Ch
022200: 49 66 20 43 6F 6D 6D 61 6E 64 3D 27 59 27 20 7D If Command='Y' }
022210: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
022220: 20 20 20 45 6C 73 65 20 43 6F 6D 6D 61 6E 64 3A Else Command:
022230: 3D 27 20 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 =' ';..
022240: 20 20 20 20 20 20 20 45 6E 64 3B 0D 0A 20 20 20 End;..
022250: 20 20 20 20 20 20 20 27 48 27 3A 20 48 61 72 64 'H': Hard
022260: 77 61 72 65 4D 65 6E 75 3B 0D 0A 20 20 20 20 20 wareMenu;..
022270: 20 20 20 20 20 27 46 27 3A 20 46 6F 72 6D 61 74 'F': Format
022280: 4D 65 6E 75 3B 0D 0A 20 20 20 20 20 20 20 20 20 Menu;..
022290: 20 27 52 27 3A 20 42 65 67 69 6E 0D 0A 20 20 20 'R': Begin..
0222A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 75 Cu
0222B0: 72 72 65 6E 74 4C 69 6E 65 4E 75 6D 62 65 72 3A rrentLineNumber:
0222C0: 3D 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 =1;..
0222D0: 20 20 20 20 20 20 43 75 72 72 65 6E 74 50 61 67 CurrentPag
0222E0: 65 4E 75 6D 62 65 72 3A 3D 31 3B 0D 0A 20 20 20 eNumber:=1;..
0222F0: 20 20 20 20 20 20 20 20 20 20 20 20 45 6E 64 3B End;
022300: 0D 0A 20 20 20 20 20 20 20 20 20 20 27 47 27 3A .. 'G':
022310: 20 49 66 20 28 49 6E 46 69 6C 65 4E 61 6D 65 3D If (InFileName=
022320: 27 27 29 20 4F 72 20 28 4F 75 74 46 69 6C 65 4E '') Or (OutFileN
022330: 61 6D 65 3D 27 27 29 20 54 68 65 6E 0D 0A 20 20 ame='') Then..
022340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
022350: 72 72 6F 72 4D 65 73 73 61 67 65 28 27 42 6F 74 rrorMessage('Bot
022360: 68 20 69 6E 70 75 74 20 61 6E 64 20 6F 75 74 70 h input and outp
022370: 75 74 20 66 69 6C 65 6E 61 6D 65 73 20 6D 75 73 ut filenames mus
022380: 74 20 62 65 20 73 70 65 63 69 66 69 65 64 21 27 t be specified!'
022390: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 45 6C );.. El
0223A0: 73 65 20 52 65 44 72 61 77 3A 3D 46 61 6C 73 65 se ReDraw:=False
0223B0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 45 6E 64 3B ;.. End;
0223C0: 20 7B 20 43 61 73 65 20 43 6F 6D 6D 61 6E 64 20 { Case Command
0223D0: 7D 0D 0A 20 20 20 20 20 20 55 6E 74 69 6C 20 28 }.. Until (
0223E0: 43 6F 6D 6D 61 6E 64 3D 27 51 27 29 20 4F 72 20 Command='Q') Or
0223F0: 28 43 6F 6D 6D 61 6E 64 3D 27 47 27 29 3B 0D 0A (Command='G');..
022400: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 49 66 );.. If
022410: 20 55 70 43 61 73 65 28 43 68 29 3D 27 59 27 20 UpCase(Ch)='Y'
022420: 54 68 65 6E 20 4F 6B 3A 3D 54 72 75 65 3B 0D 0A Then Ok:=True;..
022430: 20 20 20 20 20 20 20 20 20 45 6E 64 3B 0D 0A 20 End;..
022440: 20 20 20 20 20 20 20 49 66 20 4F 6B 20 54 68 65 If Ok The
022450: 6E 0D 0A 20 20 20 20 20 20 20 20 20 42 65 67 69 n.. Begi
022460: 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 41 73 73 n.. Ass
022470: 69 67 6E 28 4F 75 74 46 69 6C 65 2C 4F 75 74 46 ign(OutFile,OutF
022480: 69 6C 65 4E 61 6D 65 29 3B 0D 0A 20 20 20 20 20 ileName);..
022490: 20 20 20 20 20 7B 24 49 2D 7D 20 52 65 77 72 69 {$I-} Rewri
0224A0: 74 65 28 4F 75 74 46 69 6C 65 29 3B 20 7B 24 49 te(OutFile); {$I
0224B0: 2B 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 4F 6B +}.. Ok
0224C0: 3A 3D 28 49 4F 52 65 73 75 6C 74 3D 30 29 3B 0D :=(IOResult=0);.
0224D0: 0A 20 20 20 20 20 20 20 20 20 20 49 66 20 4E 6F . If No
0224E0: 74 20 4F 6B 20 54 68 65 6E 20 45 72 72 6F 72 4D t Ok Then ErrorM
0224F0: 65 73 73 61 67 65 28 27 46 69 6C 65 20 27 2B 4F essage('File '+O
022500: 75 74 46 69 6C 65 4E 61 6D 65 2B 27 20 63 6F 75 utFileName+' cou
022510: 6C 64 20 6E 6F 74 20 62 65 20 63 72 65 61 74 65 ld not be create
022520: 64 2E 27 29 0D 0A 20 20 20 20 20 20 20 20 20 20 d.')..
022530: 45 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 20 Else..
022540: 20 42 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 Begin..
022550: 20 20 20 20 49 66 20 4F 75 74 46 69 6C 65 4E 61 If OutFileNa
022560: 6D 65 3D 27 4C 53 54 3A 27 20 54 68 65 6E 0D 0A me='LST:' Then..
022570: 20 20 20 20 20 20 20 20 20 20 20 20 20 42 65 67 Beg
022580: 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 in..
022590: 20 20 57 72 69 74 65 28 27 50 6F 73 69 74 69 6F Write('Positio
0225A0: 6E 20 70 72 69 6E 74 65 72 20 61 74 20 74 6F 70 n printer at top
0225B0: 20 6F 66 20 66 6F 72 6D 20 61 6E 64 20 68 69 74 of form and hit
0225C0: 20 72 65 74 75 72 6E 3A 20 27 29 3B 0D 0A 20 20 return: ');..
0225D0: 20 20 20 20 20 20 20 20 20 20 20 20 52 65 61 64 Read
0225E0: 4C 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 Ln;..
0225F0: 20 20 45 6E 64 3B 0D 0A 20 20 20 20 20 20 20 20 End;..
022600: 20 20 20 20 20 20 57 72 69 74 65 4C 6E 3B 0D 0A WriteLn;..
022610: 20 20 20 20 20 20 49 66 20 43 6F 6D 6D 61 6E 64 If Command
022620: 3D 27 51 27 20 54 68 65 6E 0D 0A 20 20 20 20 20 ='Q' Then..
022630: 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 begin..
022640: 6E 6F 72 6D 76 69 64 65 6F 3B 0D 0A 20 20 20 20 normvideo;..
022650: 20 20 20 20 48 61 6C 74 3B 0D 0A 20 20 20 20 20 Halt;..
022660: 20 65 6E 64 3B 0D 0A 20 20 20 20 45 6E 64 3B 20 end;.. End;
022670: 7B 20 4D 61 69 6E 4D 65 6E 75 20 7D 0D 0A 0D 0A { MainMenu }....
022680: 0D 0A 20 20 42 65 67 69 6E 20 7B 20 4C 69 73 74 .. Begin { List
022690: 54 75 72 62 6F 20 7D 0D 0A 20 20 20 20 49 6E 46 Turbo }.. InF
0226A0: 69 6C 65 4E 61 6D 65 3A 3D 43 6F 6D 6D 61 6E 64 ileName:=Command
0226B0: 4C 69 6E 65 41 72 67 75 6D 65 6E 74 28 31 29 3B LineArgument(1);
0226C0: 0D 0A 20 20 20 20 4F 75 74 46 69 6C 65 4E 61 6D .. OutFileNam
0226D0: 65 3A 3D 43 6F 6D 6D 61 6E 64 4C 69 6E 65 41 72 e:=CommandLineAr
0226E0: 67 75 6D 65 6E 74 28 32 29 3B 0D 0A 20 20 20 20 gument(2);..
0226F0: 50 61 72 6D 46 69 6C 65 4E 61 6D 65 3A 3D 43 6F ParmFileName:=Co
022700: 6D 6D 61 6E 64 4C 69 6E 65 41 72 67 75 6D 65 6E mmandLineArgumen
022710: 74 28 33 29 3B 0D 0A 20 20 20 20 49 66 20 49 6E t(3);.. If In
022720: 46 69 6C 65 4E 61 6D 65 5B 31 5D 3D 27 26 27 20 FileName[1]='&'
022730: 54 68 65 6E 0D 0A 20 20 20 20 20 42 65 67 69 6E Then.. Begin
022740: 0D 0A 20 20 20 20 20 20 43 75 72 72 65 6E 74 49 .. CurrentI
022750: 6E 46 69 6C 65 4E 61 6D 65 3A 3D 49 6E 46 69 6C nFileName:=InFil
022760: 65 4E 61 6D 65 3B 20 7B 20 54 65 6D 70 6F 72 61 eName; { Tempora
022770: 72 79 20 7D 0D 0A 20 20 20 20 20 20 49 6E 46 69 ry }.. InFi
022780: 6C 65 4E 61 6D 65 3A 3D 4F 75 74 46 69 6C 65 4E leName:=OutFileN
022790: 61 6D 65 3B 0D 0A 20 20 20 20 20 20 4F 75 74 46 ame;.. OutF
0227A0: 69 6C 65 4E 61 6D 65 3A 3D 50 61 72 6D 46 69 6C ileName:=ParmFil
0227B0: 65 4E 61 6D 65 3B 0D 0A 20 20 20 20 20 20 50 61 eName;.. Pa
0227C0: 72 6D 46 69 6C 65 4E 61 6D 65 3A 3D 43 6F 70 79 rmFileName:=Copy
0227D0: 28 43 75 72 72 65 6E 74 49 6E 46 69 6C 65 4E 61 (CurrentInFileNa
0227E0: 6D 65 2C 32 2C 32 30 29 3B 0D 0A 20 20 20 20 20 me,2,20);..
0227F0: 45 6E 64 0D 0A 20 20 20 20 45 6C 73 65 20 49 66 End.. Else If
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: 20 20 20 20 57 72 69 74 65 28 4F 75 74 46 69 6C Write(OutFil
022910: 65 2C 49 6E 69 74 53 74 72 69 6E 67 29 3B 0D 0A e,InitString);..
022920: 20 20 20 20 20 20 20 20 20 20 20 20 4C 69 6E 65 Line
022930: 73 4C 65 66 74 3A 3D 50 61 67 65 4C 65 6E 67 74 sLeft:=PageLengt
022940: 68 2D 36 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 h-6;..
022950: 20 20 43 75 72 72 65 6E 74 49 6E 46 69 6C 65 4E CurrentInFileN
022960: 61 6D 65 3A 3D 49 6E 46 69 6C 65 4E 61 6D 65 3B ame:=InFileName;
022970: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 4C 69 .. Li
022980: 73 74 49 74 28 49 6E 46 69 6C 65 29 3B 0D 0A 20 stIt(InFile);..
022990: 20 20 20 20 20 20 20 20 20 20 20 49 66 20 50 61 If Pa
0229A0: 67 65 53 74 61 72 74 65 64 20 54 68 65 6E 20 4E geStarted Then N
0229B0: 65 77 50 61 67 65 3B 0D 0A 20 20 20 20 20 20 20 ewPage;..
0229C0: 20 20 20 20 20 57 72 69 74 65 28 4F 75 74 46 69 Write(OutFi
0229D0: 6C 65 2C 45 78 69 74 53 74 72 69 6E 67 29 3B 0D le,ExitString);.
0229E0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 43 6C 6F . Clo
0229F0: 73 65 28 4F 75 74 46 69 6C 65 29 3B 0D 0A 20 20 se(OutFile);..
022A00: 20 20 20 20 20 20 20 20 20 45 6E 64 3B 20 7B 20 End; {
022A10: 45 6C 73 65 20 6F 75 74 70 75 74 20 66 69 6C 65 Else output file
022A20: 20 77 61 73 20 73 75 63 63 65 73 66 75 6C 6C 79 was succesfully
022A30: 20 63 72 65 61 74 65 64 20 7D 0D 0A 20 20 20 20 created }..
022A40: 20 20 20 20 20 45 6E 64 3B 20 7B 20 49 66 20 4F End; { If O
022A50: 6B 20 7D 0D 0A 20 20 20 20 20 20 20 45 6E 64 3B k }.. End;
022A60: 20 7B 20 45 6C 73 65 20 69 6E 70 75 74 20 66 69 { Else input fi
022A70: 6C 65 20 77 61 73 20 66 6F 75 6E 64 20 7D 0D 0A le was found }..
022A80: 20 20 20 20 20 20 49 66 20 4F 75 74 46 69 6C 65 If OutFile
022A90: 4E 61 6D 65 3D 27 4C 53 54 3A 27 20 54 68 65 6E Name='LST:' Then
022AA0: 20 4F 75 74 46 69 6C 65 4E 61 6D 65 3A 3D 27 50 OutFileName:='P
022AB0: 27 0D 0A 20 20 20 20 20 20 45 6C 73 65 20 49 66 '.. Else If
022AC0: 20 4F 75 74 46 69 6C 65 4E 61 6D 65 3D 27 43 4F OutFileName='CO
022AD0: 4E 3A 27 20 54 68 65 6E 20 4F 75 74 46 69 6C 65 N:' Then OutFile
022AE0: 4E 61 6D 65 3A 3D 27 53 27 3B 0D 0A 20 20 20 20 Name:='S';..
022AF0: 20 20 49 66 20 4E 6F 74 20 43 6F 6D 6D 61 6E 64 If Not Command
022B00: 01 00 E8 03 20 01 50 30 DA CA E9 DA 23 FE 2A C2 .... .P0....#.*.
022B10: D9 DA 36 3F C3 DB DA 77 13 05 00 C8 DA CD 30 DA ..6?...w......0.
022B20: CA F0 DA 13 C3 DF DA 23 36 20 05 C2 E9 DA 06 01 .......#6 ......
022B30: 00 01 00 0A 25 46 20 70 61 67 65 20 25 23 00 23 ....%F page %#.#
022B40: 7E FE 3F C2 09 DB 04 0D C2 01 DB 78 B7 C9 44 49 ~.?........x..DI
022B50: 52 20 45 52 41 20 54 59 50 45 53 41 56 45 52 45 R ERA TYPESAVERE
022B60: 4E 20 55 53 45 52 A8 16 00 00 00 84 21 10 DB 0E N USER......!...
022B70: 00 79 FE 06 D0 11 CE DF 06 04 1A BE C2 4F DB 13 .y...........O..
022B80: 23 05 C2 3C DB 1A FE 20 C2 54 DB 79 C9 23 05 C2 #..<... .T.y.#..
022B90: 4F DB 0C C3 33 DB AF 32 07 D8 31 AB DF C5 79 1F O...3..2..1...y.
022BA0: 1F 1F 1F E6 0F 5F CD 15 D9 CD B8 D8 32 AB DF C1 ....._......2...
022BB0: 79 E6 0F 32 EF DF CD BD D8 3A 07 D8 B7 C2 98 DB y..2.....:......
022BC0: 31 AB DF CD 98 D8 CD D0 D9 C6 41 CD 8C D8 3E 3E 1.........A...>>
022BD0: CD 8C D8 CD 39 D9 11 80 00 CD D8 D9 CD D0 D9 32 ....9..........2
022BE0: EF DF CD 5E DA C4 09 DA 3A F0 DF B7 C2 A5 DE CD ...^....:.......
022BF0: 2E DB 21 C1 DB 5F 16 00 19 19 7E 23 16 4C 69 73 ..!.._....~#.Lis
022C00: 74 69 6E 67 20 6F 66 20 25 46 2C 20 70 61 67 65 ting of %F, page
022C10: 20 25 23 21 00 D8 E9 01 DF DB C3 A7 D8 52 45 41 %#!.........REA
022C20: 44 20 45 52 52 4F 52 00 01 F0 DB C3 A7 D8 4E 4F D ERROR.......NO
022C30: 20 46 49 4C 45 00 CD 5E DA 3A F0 DF B7 C2 09 DA FILE..^.:......
022C40: 21 CE DF 01 0B 00 7E FE 20 CA 33 DC 23 D6 30 FE !.....~. .3.#.0.
022C50: 0A D2 09 DA 57 78 E6 E0 C2 09 DA 78 07 07 07 80 ....Wx.....x....
022C60: DA 09 DA 80 DA 09 DA 82 DA 09 DA 47 0D C2 08 DC ...........G....
022C70: C9 7E FE 20 C2 09 DA 23 0D C2 33 DC 78 C9 06 03 .~. ...#..3.x...
022C80: 7E 12 23 13 05 C2 42 DC C9 21 80 00 81 CD 59 DA ~.#...B..!....Y.
022C90: 7E C9 AF 32 CD DF 3A F0 DF B7 C8 3D 21 EF DF BE ~..2..:....=!...
022CA0: C8 C3 BD D8 3A F0 DF B7 C8 3D 21 EF DF BE C8 3A ....:....=!....:
022CB0: EF DF C3 BD D8 CD 5E DA CD 54 DC 21 CE DF 7E FE ......^..T.!..~.
022CC0: 20 C2 8F DC 06 00 00 00 01 01 01 1E DC 1E 00 D5 ...............
022CD0: CD E9 D8 CC EA 01 1D 1B DD 3A EE DF 0F 0F 0F E6 .........:......
022CE0: 00 1E 2D 30 CD 4B DC 17 DA 0F DD 00 1B 2D 31 E6 ..-0.K.......-1.
022CF0: 03 F5 C2 CC DC CD 83 00 42 00 00 00 00 00 00 00 ........B.......
022D00: 4C 69 6E 65 53 74 61 72 74 75 70 20 54 68 65 6E LineStartup Then
022D10: 20 4D 61 69 6E 4D 65 6E 75 3B 0D 0A 20 20 20 20 MainMenu;..
022D20: 55 6E 74 69 6C 20 43 6F 6D 6D 61 6E 64 4C 69 6E Until CommandLin
022D30: 65 53 74 61 72 74 75 70 3B 0D 0A 20 20 45 6E 64 eStartup;.. End
022D40: 2E 20 7B 20 4C 69 73 74 54 75 72 62 6F 20 7D 0D . { ListTurbo }.
022D50: 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
022D60: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
022D70: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
022D80: 73 74 49 74 28 49 6E 46 69 6C 65 29 3B 0D 0A 20 stIt(InFile);..
022D90: 20 20 20 20 20 20 20 20 20 20 20 49 66 20 50 61 If Pa
022DA0: 67 65 53 74 61 72 74 65 64 20 54 68 65 6E 20 4E geStarted Then N
022DB0: 65 77 50 61 67 65 3B 0D 0A 20 20 20 20 20 20 20 ewPage;..
022DC0: 20 20 20 20 20 57 72 69 74 65 28 4F 75 74 46 69 Write(OutFi
022DD0: 6C 65 2C 45 78 69 74 53 74 72 69 6E 67 29 3B 0D le,ExitString);.
022DE0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 43 6C 6F . Clo
022DF0: 73 65 28 4F 75 74 46 69 6C 65 29 3B 0D 0A 20 20 se(OutFile);..
022E00: 20 20 20 20 20 20 20 20 20 45 6E 64 3B 20 7B 20 End; {
022E10: 45 6C 73 65 20 6F 75 74 70 75 74 20 66 69 6C 65 Else output file
022E20: 20 77 61 73 20 73 75 63 63 65 73 66 75 6C 6C 79 was succesfully
022E30: 20 63 72 65 61 74 65 64 20 7D 0D 0A 20 20 20 20 created }..
022E40: 20 20 20 20 20 45 6E 64 3B 20 7B 20 49 66 20 4F End; { If O
022E50: 6B 20 7D 0D 0A 20 20 20 20 20 20 20 45 6E 64 3B k }.. End;
022E60: 20 7B 20 45 6C 73 65 20 69 6E 70 75 74 20 66 69 { Else input fi
022E70: 6C 65 20 77 61 73 20 66 6F 75 6E 64 20 7D 0D 0A le was found }..
022E80: 20 20 20 20 20 20 49 66 20 4F 75 74 46 69 6C 65 If OutFile
022E90: 4E 61 6D 65 3D 27 4C 53 54 3A 27 20 54 68 65 6E Name='LST:' Then
022EA0: 20 4F 75 74 46 69 6C 65 4E 61 6D 65 3A 3D 27 50 OutFileName:='P
022EB0: 27 0D 0A 20 20 20 20 20 20 45 6C 73 65 20 49 66 '.. Else If
022EC0: 20 4F 75 74 46 69 6C 65 4E 61 6D 65 3D 27 43 4F OutFileName='CO
022ED0: 4E 3A 27 20 54 68 65 6E 20 4F 75 74 46 69 6C 65 N:' Then OutFile
022EE0: 4E 61 6D 65 3A 3D 27 53 27 3B 0D 0A 20 20 20 20 Name:='S';..
022EF0: 20 20 49 66 20 4E 6F 74 20 43 6F 6D 6D 61 6E 64 If Not Command
022F00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022F10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022F20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022F30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022F40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022F50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022F60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022F70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022F80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022F90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022FA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022FB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022FC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022FD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022FE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022FF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0230A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0230B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0230C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0230D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0230E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0230F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0231A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0231B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0231C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0231D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0231E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0231F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0232A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0232B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0232C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0232D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0232E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0232F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0233A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0233B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0233C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0233D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0233E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0233F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0234A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0234B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0234C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0234D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0234E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0234F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023500: 50 52 4F 47 52 41 4D 20 4D 65 69 6E 6E 61 6D 65 PROGRAM Meinname
023510: 3B 0D 0A 0D 0A 43 4F 4E 53 54 0D 0A 20 20 53 6F ;....CONST.. So
023520: 76 69 65 6C 6D 61 6C 20 3D 20 32 30 3B 0D 0A 0D vielmal = 20;...
023530: 0A 56 41 52 0D 0A 20 20 4E 61 6D 65 20 20 20 20 .VAR.. Name
023540: 20 20 20 20 20 3A 20 20 53 74 72 69 6E 67 5B 32 : String[2
023550: 35 5D 3B 0D 0A 20 20 5A 65 69 6C 65 6E 61 6E 7A 5];.. Zeilenanz
023560: 61 68 6C 20 3A 20 20 69 6E 74 65 67 65 72 3B 0D ahl : integer;.
023570: 0A 0D 0A 42 45 47 49 4E 0D 0A 20 20 57 52 49 54 ...BEGIN.. WRIT
023580: 45 28 27 47 65 62 65 6E 20 53 69 65 20 62 69 74 E('Geben Sie bit
023590: 74 65 20 68 69 65 72 20 49 68 72 65 6E 20 4E 61 te hier Ihren Na
0235A0: 6D 65 6E 20 65 69 6E 20 3A 20 27 29 3B 0D 0A 20 men ein : ');..
0235B0: 20 52 45 41 44 4C 4E 28 4E 61 6D 65 29 3B 0D 0A READLN(Name);..
0235C0: 20 20 43 4C 52 53 43 52 3B 0D 0A 20 20 46 4F 52 CLRSCR;.. FOR
0235D0: 20 5A 65 69 6C 65 6E 61 6E 7A 61 68 6C 20 3A 3D Zeilenanzahl :=
0235E0: 20 31 20 54 4F 20 53 6F 76 69 65 6C 6D 61 6C 20 1 TO Sovielmal
0235F0: 44 4F 0D 0A 20 20 20 20 42 45 47 49 4E 0D 0A 20 DO.. BEGIN..
023600: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 53 69 WRITELN('Si
023610: 65 20 68 65 69 7E 65 6E 20 3A 20 27 2C 4E 61 6D e hei~en : ',Nam
023620: 65 29 3B 0D 0A 20 20 20 20 45 4E 44 3B 0D 0A 45 e);.. END;..E
023630: 4E 44 2E 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ND..............
023640: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
023650: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
023660: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
023670: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
023680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0236A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0236B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0236C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0236D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0236E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0236F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0237A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0237B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0237C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0237D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0237E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0237F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0238A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0238B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0238C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0238D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0238E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0238F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0239A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0239B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0239C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0239D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0239E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0239F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
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: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0240A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0240B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0240C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0240D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0240E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0240F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0241A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0241B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0241C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0241D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0241E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0241F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0242A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0242B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0242C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0242D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0242E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0242F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0243A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0243B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0243C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0243D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0243E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0243F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0244A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0244B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0244C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0244D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0244E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0244F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0245A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0245B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0245C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0245D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0245E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0245F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
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: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0248A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0248B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0248C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0248D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0248E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0248F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0249A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0249B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0249C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0249D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0249E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0249F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
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: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0250A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0250B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0250C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0250D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0250E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0250F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0251A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0251B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0251C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0251D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0251E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0251F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0252A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0252B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0252C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0252D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0252E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0252F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0253A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0253B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0253C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0253D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0253E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0253F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0254A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0254B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0254C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0254D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0254E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0254F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
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: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0257A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0257B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0257C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0257D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0257E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0257F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0258A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0258B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0258C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0258D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0258E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0258F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0259A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0259B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0259C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0259D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0259E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0259F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0260A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0260B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0260C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0260D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0260E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0260F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
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: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0262A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0262B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0262C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0262D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0262E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0262F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0263A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0263B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0263C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0263D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0263E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0263F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0264A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0264B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0264C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0264D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0264E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0264F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0265A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0265B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0265C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0265D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0265E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0265F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0266A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0266B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0266C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0266D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0266E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0266F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0267A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0267B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0267C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0267D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0267E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0267F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0268A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0268B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0268C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0268D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0268E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0268F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0269A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0269B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0269C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0269D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0269E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0269F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0270A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0270B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0270C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0270D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0270E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0270F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0271A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0271B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0271C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0271D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0271E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0271F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0272A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0272B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0272C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0272D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0272E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0272F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0273A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0273B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0273C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0273D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0273E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0273F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
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: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0275A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0275B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0275C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0275D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0275E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0275F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0276A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0276B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0276C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0276D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0276E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0276F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0277A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0277B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0277C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0277D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0277E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0277F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0278A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0278B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0278C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0278D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0278E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0278F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0279A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0279B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0279C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0279D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0279E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0279F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0280A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0280B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0280C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0280D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0280E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0280F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0281A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0281B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0281C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0281D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0281E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0281F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0282A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0282B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0282C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0282D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0282E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0282F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0283A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0283B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0283C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0283D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0283E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0283F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0284A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0284B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0284C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0284D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0284E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0284F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
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: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0288A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0288B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0288C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0288D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0288E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0288F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0289A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0289B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0289C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0289D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0289E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0289F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0290A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0290B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0290C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0290D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0290E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0290F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0291A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0291B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0291C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0291D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0291E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0291F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0294A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0294B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0294C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0294D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0294E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0294F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0295A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0295B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0295C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0295D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0295E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0295F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0296A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0296B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0296C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0296D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0296E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0296F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0297A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0297B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0297C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0297D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0297E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0297F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0298A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0298B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0298C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0298D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0298E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0298F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0299A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0299B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0299C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0299D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0299E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0299F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
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: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
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: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
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: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
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: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
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: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
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 15 Offset-Info.....
02F910: 18 9F 00 25 03 AC 05 34 08 BC 0A 42 0D DC 0F 4A ...%...4...B...J
02F920: 12 D0 14 0C 18 A0 00 26 03 B0 05 38 08 BE 0A 43 .......&...8...C
02F930: 0D C8 0F 5C 12 DD 14 08 18 9F 00 26 03 AE 05 37 ...\.......&...7
02F940: 08 BE 0A 43 0D C7 0F 49 12 DC 14 04 18 8C 00 12 ...C...I........
02F950: 03 9A 05 22 08 A7 0A 30 0D AD 0F 2F 12 B3 14 05 ..."...0.../....
02F960: 18 A0 00 23 03 AA 05 38 08 B8 0A 3D 0D C1 0F 44 ...#...8...=...D
02F970: 12 C8 14 05 18 A1 00 26 03 AF 05 36 08 BB 0A 41 .......&...6...A
02F980: 0D C4 0F 46 12 CA 14 02 18 A0 00 25 03 AD 05 36 ...F.......%...6
02F990: 08 BC 0A 41 0D C5 0F 46 12 CA 14 04 18 9F 00 25 ...A...F.......%
02F9A0: 03 AC 05 42 08 BB 0A 3E 0D BF 0F 43 12 DD 14 FE ...B...>...C....
02F9B0: 17 9F 00 24 03 B6 05 34 08 B9 0A 3F 0D C2 0F 43 ...$...4...?...C
02F9C0: 12 CC 14 FB 17 A0 00 24 03 B1 05 33 08 B7 0A 43 .......$...3...C
02F9D0: 0D BC 0F 3C 12 C3 14 FB 17 9F 00 23 03 A9 05 2E ...<.......#....
02F9E0: 08 B3 0A 38 0D BB 0F 3D 12 C0 14 01 18 A0 00 27 ...8...=.......'
02F9F0: 03 AE 05 35 08 BB 0A 3F 0D C3 0F 43 12 C7 14 F9 ...5...?...C....
02FA00: 17 A4 00 25 03 AB 05 32 08 B9 0A 3D 0D C0 0F 42 ...%...2...=...B
02FA10: 12 C5 14 F6 17 A0 00 25 03 B5 05 31 08 B6 0A 39 .......%...1...9
02FA20: 0D BA 0F 44 12 C3 14 F6 17 A1 00 22 03 B5 05 30 ...D......."...0
02FA30: 08 B4 0A 35 0D B8 0F 3A 12 C6 14 FB 17 A0 00 24 ...5...:.......$
02FA40: 03 AC 05 32 08 B8 0A 44 0D CB 0F 3B 12 BD 14 F6 ...2...D...;....
02FA50: 17 92 00 14 03 9A 05 27 08 A2 0A 28 0D AB 0F 2C .......'...(...,
02FA60: 12 B1 14 FE 17 A0 00 26 03 AD 05 34 08 B9 0A 3D .......&...4...=
02FA70: 0D BF 0F 3F 12 C4 14 F8 17 A0 00 24 03 AA 05 30 ...?.......$...0
02FA80: 08 B7 0A 3A 0D BD 0F 3D 12 C0 14 FC 17 96 00 1B ...:...=........
02FA90: 03 A2 05 28 08 AD 0A 31 0D C2 0F 34 12 B8 14 F6 ...(...1...4....
02FAA0: 17 9E 00 22 03 B7 05 2B 08 B0 0A 35 0D B7 0F 38 ..."...+...5...8
02FAB0: 12 CC 14 F9 17 A0 00 2D 03 AB 05 40 08 B7 0A 3A .......-...@...:
02FAC0: 0D BA 0F 42 12 C1 14 F7 17 9F 00 22 03 A9 05 30 ...B......."...0
02FAD0: 08 B5 0A 3A 0D BC 0F 3D 12 BE 14 F8 17 8E 00 10 ...:...=........
02FAE0: 03 97 05 1E 08 A2 0A 24 0D A6 0F 28 12 AC 14 F5 .......$...(....
02FAF0: 17 9F 00 24 03 BB 05 30 08 B5 0A 38 0D BA 0F 3E ...$...0...8...>
02FB00: 12 C9 14 F0 17 A0 00 23 03 A9 05 30 08 B4 0A 35 .......#...0...5
02FB10: 0D B5 0F 35 12 B6 14 EF 17 9D 00 1C 03 A1 05 25 ...5...........%
02FB20: 08 A9 0A 2E 0D B4 0F 32 12 B4 14 F8 17 A0 00 24 .......2.......$
02FB30: 03 AA 05 30 08 B5 0A 38 0D BA 0F 3C 12 BF 14 F3 ...0...8...<....
02FB40: 17 9F 00 23 03 A8 05 2C 08 B3 0A 36 0D C0 0F 39 ...#...,...6...9
02FB50: 12 BB 14 0E 18 9E 00 23 03 A8 05 37 08 B2 0A 35 .......#...7...5
02FB60: 0D B5 0F 34 12 B5 14 F0 17 9F 00 22 03 B5 05 2B ...4......."...+
02FB70: 08 B1 0A 31 0D B3 0F 35 12 CA 14 F3 17 9F 00 23 ...1...5.......#
02FB80: 03 A9 05 2E 08 C1 0A 35 0D B6 0F 35 12 B6 14 F0 .......5...5....
02FB90: 17 8F 00 11 03 94 05 1A 08 9D 0A 20 0D A3 0F 23 ........... .£.#
02FBA0: 12 A6 14 F7 17 9F 00 23 03 A9 05 30 08 B4 0A 38 .......#...0...8
02FBB0: 0D B8 0F 39 12 BB 14 DB 17 B6 00 22 03 A9 05 2D ...9......."...-
02FBC0: 08 B2 0A 36 0D C7 0F 38 12 BA 14 EC 17 A0 00 23 ...6...8.......#
02FBD0: 03 A9 05 2E 08 B3 0A 36 0D B7 0F 36 12 B6 14 EE .......6...6....
02FBE0: 17 9F 00 21 03 A4 05 45 08 AB 0A 2D 0D B0 0F 32 ...!...E...-...2
02FBF0: 12 B5 14 F1 17 A0 00 2E 03 A7 05 2C 08 AF 0A 33 ...........,...3
02FC00: 0D B5 0F 42 12 B7 14 EB 17 A0 00 21 03 A6 05 29 ...B.......!...)
02FC10: 08 AC 0A 2E 0D B1 0F 31 12 B3 14 F3 17 9E 00 2E .......1........
02FC20: 03 A7 05 2E 08 B2 0A 36 0D B8 0F 37 12 B9 14 F9 .......6...7....
02FC30: 0B F9 0B F9 0B .....
RESULT OF SEARCH :
PRO=237 CHEA=0 COD=21 MUSI=0 COP=30 GRA=110 WRIT=261 198=3 199=0 STARTER=0 KBI=0 CAAV=0 L.TOURNIER=0
PRO=237 CHEA=0 COD=21 MUSI=0 COP=30 GRA=110 WRIT=261 198=3 199=0 STARTER=0 KBI=0 CAAV=0 L.TOURNIER=0
EXTENDED CPC DSK File SAMdisk150708+ RAFBGCHDIE RAFBGCHDIE RAFBGCHDIEINLIN
E PASAUSSPEI PASBEFLES PASOKI92 LTPOKI93 LTPPASS ASM PASSFUNCPASPUFFER
PASQDL PASP READ ME SCALARE PAS!SPIEL1 PAS* !"#$%TBOMAUS PAS &'VERSION
PAS(ZUFALL PAS)*+CHNGDIR PAS,- INC DI $26/$D0/$1D)
RCR ESBYTE PTR DI end der Prozedur VInLine begin Haupt
programm von InLineBeispiel ClrScr repeat Write('Bitte geben Sie ein
e Zahl ein, 0 fr Ende ') ReadLn(Value) VInLine(Value) WriteLn('D
as Ergebnis ist ',Value) until Value 0 ClrScr end. des Prog
ramms InLineBeispiel COMLIB PAS4./01234CPMDIR PAS56CPMSTAT PAS789DEFAULT L
TPDIRECTRYPASDISKSTUSPASABEPSON100LTPCEPSON80 LTPDFILLCHARPASEFFILTER PAS GHFUN
KTASTPASIIBMINT10PASJKLIOFEHLERPASMNOLISTT DOC6PQRSTUVLISTT PASWLISTT1 INC+
XYZ program ScreenMap (* Programm zum direkten schreiben auf den Bildschi
rmspeicher *) const FarbSeg $B000 FarbOfs $8000 BWSeg $B
000 BWOfs $0000 var I,J Integer C Char Zei
lenNr, SpaltenNr, Laenge, Richtung Integer Direction Char pr
ocedure X(J,K Integer) begin MemBwSegBwOfs + J K (* schreiben auf den B
ildschirmspeicher *) end (* von Prozedur X *) procedure Y(R,C,N,Ch,D Intege
r) (* LISTT2 INC6abcdLISTT3 INC5efghijkLISTT4 INC1lmnopqrLISTT5 INC9stuvwx
yzMEINNAMEPASOKI82 LTPrZeile CSpalte nLaenge chchar *) var I,J Integer b
egin J ((R-1)*160) + ((C-1)*2) (* Berechne Startpunkt *) for I 1 to
N do begin X(J,Ch) (* Schleife N mal *) if D0
then J J + 160 else J J+2 end end (* von Prozedur Y *) begi
n ClrScr GotoXY(20,10) Write('Wollen Sie spielen J/N ') Read(kbd,C)
if (C 'j') or (C 'J') then begin repeat ClrScr GotoXY(20
,10) Write('Wollen Sie eine Linie Zeichnen J/N ') Read(kbd,C)
until (C 'j') or (C 'J') or (C 'n') or (C 'N') if (C 'j') or (C 'J'
) then begin repeat ClrScr Y(1,1,80,31,1) Y(2,
1,24,16,0) Y(2,80,24,17,0) Y(25,2,78,30,1) GotoXY(20,
10) Write(' Welche Startzeile ') Read(ZeilenNr)
GotoXY(20,12) Write(' Welche Spalte ') Read
(SpaltenNr) GotoXY(20,14 program InLineBeispiel Das folgende
Beispiel teilt gerade Integer durch zwei. Fuer ungerade Integer uebergi
bt das Programm -32768 + den Wert geteilt durch zwei. (integer division)
var Value Integer procedure VInLine(var ValueInteger) begin inlin
e ($C4/$BE/VALUE/ LES DI,VALUEBP $F8/
CLC $26/$D0/$1D/ RCR
ESBYTE PTR DI $47/ RAFBGCHDIE) Write('
Linienlaenge ') Read(Laenge) GotoXY(20,16)
Write('Welches Zeichen zum Zeichnen ') Read(Kbd,C) Write(C)
repeat GotoXY(10,18) Write(' Welche Richtung a)bwaerts oder r)echts
') Read(Direction) Direction Upcase(Direction)
until (Direction'A') or (Direction'R') if Direction'R' then
Richtung1 else Richtung0 ClrScr Y(Zei P0#*6w0#6 %F
page %## xDIR ERA TYPESAVEREN USER!yO# Ty#O321y2y21A92.!#Listing of %F, page %#
!READ ERRORNO FILE! 3#0 WxxG # 3x#B!Y2!!T! D0KC1BlenNr,SpaltenNr,Laenge,ord(C),
Richtung) GotoXY(40,24) Write('Ihre Zeile. Nochmal ')
repeat until Keypressed Read(KBD,C) until (C 'J') and (C 'j
') ClrScr end end else begin GotoXY(23,13) WriteLn(
'******** Auf Wiedersehen ********') end end. (* des Programms Screenmap *)r
ection'R') if Direction'R' then Richtung1 else Ri
chtung0 ClrScr Y(Zei P0#*6w0#6 %F page %## xDIR ERA TYPESAVER
EN USER!yO# Ty#O321y2y21A92.!#Listing of %F, page %#!READ ERRORNO FILE! 3#0 WxxG
# 3x#B!Y2!!T! D0KC1B(* Dieses Programm demonstriert wie man die Commandline li
est. 32 Zeichen sind immer in der Commandline gepuffert, wenn man jedoch
alle 127 Zeichen lesen moechte, so mu man als erste Anweisung im Programm d
ie Commandozeile retten, da sie danach durch Dateioperationen gekuerzt wird.
Wer mit TURBO Pascal 3.0 arbeitet kann anstelle dieser Konstruktion die
eingebauten Funktionen ParamCount und ParamStr verwenden *) program Command
Line type CommandString string127 var Buffer CommandString
CL CommandString absolute cseg$80 begin ClrScr Buffer
CL Gotoxy(20,12) WriteLn('',Buffer, '') end. (* des Programms Commandline
*) h durch Dateioperationen gekuerzt wird. Wer mit TURBO Pascal 3.0
arbeitet kann anstelle dieser Konstruktion die eingebauten Funktionen ParamC
ount und ParamStr verwenden *) program CommandLine type CommandString
string127 var RAFBGCHDIE * * WARNUNG * WARNUNG * WARNUNG * WARNUNG * WAR
NUNG * WARNUNG * * Bitte arbeiten Sie nicht mit externen Subroutinen fal
ls Sie sich nicht sehr gut mit ASSEMBLER auskennen. WICHTIG Externals muess
en in Assembler geschrieben werden. Das folgende Beispiel addiert zwei Inte
gerzahlen. code segment assume cscode pass proc near
push bp UMGEBUNG RETTEN mov bp,sp
mov ax,bp+4 PARAMETER 1 HOLEN add ax,bp+6 PARAMETER
2 HOLEN RESULTAT IN AX mov sp,bp
UMGEBUNG WIEDERHERSTELLEN pop bp ret 4 pass
endp code ends end Gehen Si zurueck zu MS DOS und geben Sie fol
gendes ein ASM PASS LINK PASS EXE2BIN PASS.EXE PASS.COM Ignorie
ren sie kleinere Fehler von ASM und LINK Die obige Prozedur ist nur ein Beisp
iel Das selbe Ergebniss erreicht man in TURBO Pascal durch (*$U-,C-*) prog
ram Gepuffert (* Der $C-Befehl ist fuer gepufferte Eingabe notwendig, sons
t gehen Zeichen verloren. Da Read(Ch) vor der Bearbeitung ein end-of-
line erfordert, muessen Sie Read(Kbd,Ch) verwenden. Schreiben Sie "#" um
das Programm zu beenden. *) var Ch Char Indx,Jndx
Integer begin writeln('Beginnen Sie nun mit der Eingabe beliebiger
Zeichen') writeln('Die Eingabe von "#" bewirkt den Abbruch des Programms')
repea function pass(varX, varYinteger)integer begin pass varX +
varY end fferte Tastatur EingabeEBUNG WIEDERHERSTELLEN pop
bp ret 4 pass endp code ends end Gehen Si zuru
eck zu MS DOS und geben Sie folgendes ein ASM PASS LINK PASS EXE2BIN
PASS.EXE PASS.COM Ignorieren sie kleinere Fehler von ASM und LINK Die o
bige Prozedur ist nur ein Beispiel Das selbe Ergebniss erreicht man in TURBO
Pascal durch t for Indx 1 to 10000 do (* Verzoegerungsschleife fuer Vora
ustippen *) Jndx Indx + Indx Read(Kbd,Ch) (* Naechste
s Zeichen aus Tastaturpuffer holen *) Write(Ch) (* und au
f dem Bildschirm anzeigen *) until Ch '#' end. (* Programm Gepuffert *)
nnen Sie nun mit der Eingabe beliebiger Zeichen') writeln('Die Eingabe von "#
" bewirkt den Abbruch des Programms') repeaprogram QDL (*-----------------
---------------------------------------------- QDL benutzt MS DOS, um ein Ver
zeichnis einer IBM formatierten Diskette zu erhalten. Der Funktionsanruf, der
benutzt wird, kann in dem DOS Handbuch gefunden werden. Dieses Programm si
chert den gegenwaertige Datenuebertragungbereich (DTA) in den Variablen DTAse
g und DTAofs. Der DTA wird dann zurueckgestellt auf ein Segment und Offset
einer Puffervariablen 'DTA'. ------------------------------------------- p
rogram PassFunc (* Diese Routine erwartet die Assembler Routine von PAS
S.ASM in dem Maschinenprogramm PASS.COM *) var Var1, Var2, Var3 Int
eger function Pass(VarX, VarY Integer) Integer external 'PASS.COM' begin
(* von PassFunc *) repeat ReadLn(Var1) if Var10 then begin R
eadLn(Var2) Var3 Pass(Var1,Var2) WriteLn(Var1,' + ',Var2,' ',Var
3) WriteLn end until Var1 0 end. (* von PassFunc *) RAFBGC
HDIE----------------------*) (*$I-,U-,C-*) type
(* TYPEN deklaration *) Registers record (* register fuer MS
Dos aufruf *) AX, BX, CX, DX, BP, SI, DI, DS, ES, Flags Integer end
Char80arr array 1..80 of Char String80 string 80 var
(* VARIABLE deklaration *) DTA array 1..43 of By
te (* Data Transfer Area Puffer *) DTAseg,
(* DTA Segment vor (* Funktion um DTA adresse festzustellen *)
(* $2F00 wird anstelle von $27 shl 8 benutzt um
drei Assembler Befehle zu sparen. Eine Moeglichkei
t zur Optimierung *) MSDos( Regs ) (* MS DOS Funktionsaufruf *) Segm
ent Regs.ES (* Segment der DTA von DOS *) Offset Regs.BX (* Offset der D
TA von DOS*) Fehler Regs.AX and $FF end (* der Prozedur GetCurrentDTA *)
(*-------------------------------------Ausfuerung *) DTAofs,
(* DTA Offset " " *) SetDTAseg,
(* DTA Segment and Offset *) SetDTAofs, (*
nach Programmstart *) Fehler, (* Fehler Code *)
I, J, (* Zaehler *) Option Integer
(* fuer Dateiattribute *) Regs registers (*
register fuer DOS aufrufe *) Buffer, -----------
------------------ Auswahl gibt den Code ( Dateiattribut )aus, der benutzt wu
rde, um die Dateinamen der gegenwaertigen Directory zu finden (d.h. Ver-
steckt, Standard oder Directory ) ---------------------------------------------
---------------------*) procedure Auswahl( var Option Integer ) var Ch
Char begin Ch '' Option 1 while ( Ch '' ) do begin Write( 'Dat
eiauswahl , fuer Info ' ) ReadLn( Ch ) WriteLn case ( Ch ) of
(* Universalpuffer *) NamR String80 (* Dateiname *)
Mask Char80arr (* Dateimaske *) (*-----------------------
------------------------------------------ SetzeDTA setzt die gegenwaertigen D
TA auf die neue Adresse, die durch den Parameteren 'SEGMENT' und 'OFFSET' spe
zifiziert sind. ---------------------------------------------------------------
--*) procedure SetzeDTA( Segment, Offset Integer var Fehler Integer ) begi
n Regs.AX $1A00 '1' Option 1 (* -
*) '2' Option 7 (* *) '
3' Option 8 (* - Moegliche Optionen *) '4' Option 16
(* - Erklaerung siehe unten *) '5' Option 22 (* /
*) '6' Option 31 (* -/
*) '' begin (* zeigt alle Optionen
*) WriteLn (* Funktion um die DTA zu setzen *) Regs.DS
Segment (* Speichere Parameter Segment in DS *) Regs.DX Offset
(* " " Offset in DX *) MSDos( Regs ) (* Setze DTA
*) Fehler Regs.AX and $FF (* Fehlercode holen *) end (* der Prozedur SetzeD
TA *) (* ---------------------------------------------------------------- Ge
tCurrentDTA wird benutzt, um die Adresse des gegen- waertigen Diskettenuebert
ragungsbereichs ( DTA ) zu erhalten. Es ist ( 'Es gibt folgende Optionen ' )
WriteLn WriteLn( ' 1 fuer Standard Dateien def
ault .' ) Write( ' 2 fuer Systemdateien, versteckte Dateien ' )
WriteLn( 'und Standard Dateien.' ) WriteLn( ' 3
fuer Disketten Label.' ) Write( ' 4 fuer Inhaltsverzeichnisse
' ) WriteLn( 'und Standard Dateien.' ) WriteLn( '
5 fuer Inhaltsverzeichnisse, versteckte oder ' ) ein Funktionscode vo
n $2F in dem hoeheren Byte des AX Registers gespeichert, und es wird ein A
nruf an die vordefinierte Prozedur MSDOS gemacht. Dies kann auch durch Benut
zung der "Intr" Prozedur, mit demselben Registerrecord und einer $21 Spezifikat
ion fuer den Abbruch, erreicht werden. ---------------------------------------
--------------------------*) procedure GetCurrentDTA( var Segment, Offset In
teger var Fehler Integer ) begin Regs.AX $2F00
RAFBGCHDIE WriteLn( ' System und Standard Dateien' )
WriteLn( ' 6 wie 5 aber mit Disketten Label' ) WriteLn
end else Option 1 (* wenn nichts oder etwas falsches eingetippt
wurde *) end end end (* der Prozedur Auswahl *) (*------------------
------------------------------------------------ GetFirst nimmt die erste Dir
ectory-Eintragung einer besonderen Dateimaske. Die Maske wird als Parameter 'M
aske' uebergeben, und die Wahl wSegment Offset + 29 + I ) I I + 1
until ( not ( NamR I - 1 in ' '..'' )) NamR 0 Chr( I - 1 ) end (* der P
rozedur GetNextEntry *) (* Hauptprogramm von QDL *) begin
for I 1 to 21 do DTA I 0 (* DTA Initialisieren *) for I 1 to 80 do
begin (* Mask und Dateinamenpuffer initialisieren *) Mask I Chr( 0 )
NamR I Chr( 0 ) end NamR 0 Chr( 0 ) (* Dateiname
nlaenge auf 0 setzen *) urde vorher in Prozedur SpezifizierWahl, festgele
gt. ------------------------------------------------------------------*) proce
dure GetFirst( Mask Char80arr var NamR
String80 Segment, Offset Integer Opti
on Integer var Fehler Integer ) var I
Integer begin Fehler 0 Regs.AX $4E00 (* Ersten Directory Eintr
ag holen *) Regs.DS Seg( Mask ) WriteLn( 'QDL Version GER 2.00A' ) Writ
eLn GetCurrentDTA( DTAseg, DTAofs, Fehler ) (* Aktuelle DTA Addresse holen *
) if ( Fehler 0 ) then begin (* Fehlerpruefung *) WriteLn(
'Aktuelle DTA nicht gefunden' ) WriteLn( 'Programmabbruch.' ) (* P
rogrammabbruch. *) Halt (* Programmende *
) end SetDTAseg Seg( DTA ) SetDTAofs Ofs( DTA ) SetzeDTA( SetDTAse
g, SetDTAofs, Fehler ) (* DTA Addresse zuruecksetze (* Zeiger auf Dateinamenm
aske *) Regs.DX Ofs( Mask ) Regs.CX Option (* Attribut Option *
) MSDos( Regs ) (* MSDos aufruf *) Fehler Regs.AX and $FF (*
Fehlercode holen *) I 1 (* Initialisiere I fuer den erst
en Buchstaben *) repeat (* Schleife zum lesen des ersten Eint
rags von DTA *) NamR I Chr( mem Segment Offset + 29 + I ) I I + 1
until ( not ( NamR I - 1 in ' '..'' )) Namn *) if ( Fehler 0 ) the
n begin (* Pruefung auf Fehler *) WriteLn( 'DTA kann nicht zurc
kgesetzt werden' ) (* Fehler Meldung *) WriteLn( 'Programmabbruch.' )
Halt (* Programmende *) end Fehler 0
Buffer 0 Chr( 0 ) (* Pufferlaenge auf 0 setzen *) Auswahl
( Option ) (* Attribut einlesen *) if ( Option 8 ) th
en begin Write( 'Dateimaske ' ) (* Frage *) R 0 Chr( I - 1
) (* Stringlaenge in das erste Byte setzen *) (
* da es hier nicht automatisch geschieht *) end (* der Prozedur GetFirst *)
(*------------------------------------------------------------------ GetNextEnt
ry benutzt die ersten Bytes des DTA fuer die Dateimaske, und gibt die naech
ste Dateieintragung auf Diskette entsprechend der Dateimaske aus. ----------
--------------------------------------------------------*) procedure GetNextEnt
ry( var Na ReadLn( Buffer ) WriteLn end if ( length( Buffer ) 0
) then (* Wenn nichts eingegeben *) Buffer '.' (*
wurde, dann alle Dateien *) for I 1 to length( Buffer ) do (* Mask
e von Buffer lesen *) Mask I Buffer I GetFirst( Mask, NamR, SetDTAseg
, SetDTAofs, Option, Fehler ) if ( Fehler 0 ) then begin (* Er
sten Eintrag holen *) if ( Option 8 ) then begin (* Wenn kein D
iskettenlabmR String80 Segment, Offset Integer
Option Integer var
Fehler Integer ) var I Integer begin Fehler 0 Regs.AX $4F00
(* Funktion um den naechsten Eintrag zu holen *) Regs.CX Option
(* Attribut setzen *) MSDos( Regs ) (* MSDos aufrufen *)
Fehler Regs.AX and $FF (* Fehlercode holen *) I 1 repeat NamR I
Chr( mem RAFBGCHDIEel *) WriteLn( 'Inhaltsverzeichniss von ', Buffe
r ) (* Laufwerk zeigen *) WriteLn end WriteLn( NamR ) end
else if ( Option 8 ) then WriteLn( 'Diskettenlabel nicht gefunden.' )
else WriteLn( 'Datei ''', Buffer, ''' nicht gefunden.' ) while ( Fehler 0 )
do begin GetNextEntry( NamR, SetDTAseg, SetDTAofs, Option, Fehler ) if
( Fehler 0 ) then WriteLn( NamR ) end SetzeDTA( DTAseg, DTAofs, Fehler )
end. (* end Main *) rzeichis FILTER.PAS Ein MSDOS Filter Pro
gramme zum Kapitel "CP/M Routinen" (d.h. Programme, die nur unter CP/M lauffhig
sind) CPMDIR.PAS Lesen des Inhaltsverzeichnisses CPMSTAT.PAS S
ystem-Status holen Programme zum Kapitel "Programmierung in Assembler" (Di
ese Programme sind nur unter MS DOS bzw. PC DOS lauffaehig) INLINE.PAS
Beispiel fuer 8086 inline Maschinencode PASS.ASM Beispiel fuer 8086
externals in Assembler PASSFUNC.PAS Pascal Routine, Muenchen den 16.06.85
Sehr geehrter TURBO Pascal Kunde, Diese Diskette enthaelt den Source Code
der Beispiele im TURBO Tutor, damit Sie sie nicht extra abtippen muessen. E
in letztes Beispiel wurde nach dem Druck noch hinzugefuegt, FILTER.PAS, das zu
den MS DOS Programmen am Ende des Buches gehoert. Es ist fuer jene von Ihnen, d
ie Filter in TURBO Pascal schreiben wollen. Ebenfalls auf der Diskette ist d
er Source Code von LISTT.PAS, einem TURBO Pascal Lister. Der Lister kann so be
sser indivdie PASS.ASM (als PASS.COM) aufruft zusaetzliche Programme (lauf
faehig unter MS DOS, PC DOS und CP/M) LISTT.PAS Turbo Source-Programm
Lister LISTT.DOC Dokumentation fuer LISTT *.LTP Vordefini
erte Parameter-Dateien fuer LISTT WICHTIG FUER BENUTZER VON CP/M BEI D
ER ANGABE DER PARAMETER FUER DEN DRUCKER (Option "L" im Menu des Programms LI
STT.PAS und darauffolgende Eingabe eines *.LTP Files) MU DIE LAUFWERKSBEZEICH
NUNG MIT ANGEGEBEN WERDEN! iduellen Wuenschen angepasst werden. Ei
ne Uebersicht der Formatierungskommandos ist in LISTT.DOC zu finden. Hier ei
ne Uebersicht ueber die Dateien auf der Diskette Beispieldateien fuer Teil I
des Buches (lauffaehig unter MS DOS, PC DOS und CP/M) MEINNAME.PAS
Beispieldateien fuer Teil II des Buches (lauffaehig unter MS DOS, PC DOS und CP
/M) SCALARE.PAS Beispiele aus dem Kapitel ueber Scalare SPIEL1.PA
S Ein einfaches Spiel Beispieldateien fuer Teil III des Buch Turbo So
urce-Programm Lister LISTT.DOC Dokumentation fuer LISTT *.LTP
Vordefinierte Parameter-Dateien fuer LISTT WICHTIG FUER BENUTZER VON CP
/M BEI DER ANGABE DER PARAMETER FUER DEN DRUCKER (Option "L" im Menu des
Programms LISTT.PAS und darauffolgende Eingabe eines *.LTP Files) MU DIE LAU
FWERKSBEZEICHNUNG MIT ANGEGEBEN WERDEN! es (lauffaehig unter MS DO
S, PC DOS und CP/M) FUNKTAST.PAS Routine um Funktionstasten zu lesen un
d anzuzeigen IOFEHLER.PAS Standard I/O Fehler Pruefungsroutine PUFFE
R.PAS Zeigt gepufferte Tastatureingebe Programme zum Kapitel "MS DOS Rout
inen" (d.h. Programme, die nur unter MS DOS bzw. PC DOS compilierbar und lauff
aehig sind) ZUFALL.PAS Funktionierende Randomize-Routine DIRECTRY
.PAS Einfache Routine um das Inhaltsverzeichnis zu lesen QDL.PAS Erw
eiterte Directory Routine DISKSTUS.PAS Lesen des Disketten Status VER
SION.PAS Lesen der DOS Versionsnummer IBMINT10.PAS Direktes ansprechen d
es Bildschirms ueber Interrupt 10 AUSSPEI.PAS Direktes ansprechen des Bil
dschimspeichers BEFLES.PAS Lesen der Commandline COMLIB.PAS Rout
inen fuer COM1 und COM2 TBOMAUS.PAS Liest die Microsoft-Maus (Wo ist die
Katze ) FILLCHAR.PAS Initialisierung von Datenstrukturen CHNGDIR.PAS
Wechselt das aktuelle Inhaltsve RAFBGCHDIE program Scalare (* Diese
s Programm zeigt den Gebrauch von deklarierten Skalaren Typen (DSTs) und
Unterbereichen. Auch Strings, Arrays und Sets werden gezeigt. *) const XMa
x 8 YMax 10 type XRange
1..XMax YRange 1..YMax ShipType (NoShip,Const
itution,Enterprise,Reliant, Loknar,Larson,Chandley,Ex
celsior,Baker) Names string12 Prompt *) Found Fa
lse (* Schleife initialisieren *) for Sndx NoShip to Ba
ker do (* Gibt es diesen Schiffstyp *) if ShipNameSndx SName then
(* wenn ja... *) begin Found True (* Flag setz
en *) Ship Sndx (* und Schiff setzen *) end
until Found (* bis ein gueltiger Name eingegben
wurde *) end (* of proc ReadShip *) p
string80 var ShipName arrayShipType of Names Secto
r arrayXRange,YRange of ShipType Ship ShipTyp
e SX XRange SY YRange procedure
ShowSector(SX,SY Integer) (* Schreibt den Schiffstyp an die entsprech
ende Bildschirmstelle *) begin GotoXY(4*SX,10+SY) if SectorSX,SY NoShip
then Write('***') (* if no ship there *) else Write(Copy(S
hipNamrocedure ReadCoords(Line Byte Msg Prompt var SX X
Range var SY Yrange) (* Fragt Spieler nach SX und SY Koordinaten
prueft ob beide Werte im erlaubten Bereich schaltet I/O und Bereichsu
eberpruefung um Abstuerze zu vermeiden *) begin (*$I-,R-*) repeat W
ritePrompt(Line,Msg) ReadLn(SX,SY) until (SX in 1..XMax) and (SY in 1..Y
Max) and (IOresult 0) WritePrompt(Line,'') (* Zeile loeschen wenn fertig *
) (*$I+,R+*) endeSectorSX,SY,1,3)) end procedure Initialize (*
Initialisiert diverses, insbesondere den Array ShipName *) begin (* set eac
h element in array to appropriate string *) ShipNameNoShip ''
(* null string *) ShipNameConstitution 'Constitution' ShipNameEnte
rprise 'Enterprise' ShipNameReliant 'Reliant' ShipNameLoknar
'Loknar' ShipNameLarson 'Larson' ShipNameChandley 'Chandley
' ShipNa (* of proc ReadCoords *) begin (* Hauptprogramm von Scalare *)
ClrScr Initialize WritePrompt(1,'Plazieren Sie Schiffe an Sektorkoordinat
en.') WritePrompt(2,'Druecken sie RETURN wenn Sie fertig sind.') repeat
ReadShip(3,'Geben Sie einen Schiffsnamen ein ',Ship) if Ship NoShip t
hen begin ReadCoords(4,'Geben Sie die Sektorkoordinaten ein ',SX,SY)
SectorSX,SY Ship ShowSector(SX,SY) end until Ship NoShip
end. (* of program ScalameExcelsior 'Excelsior' ShipNameBaker 'Ba
ker' (* Sektorkarte mit "keinen Schiffen' fuellen *) FillChar(Sector,SizeO
f(Sector),Ord(NoShip)) (* display sector map on screen *) for SX 1 to XMa
x do for SY 1 to YMax do ShowSector(SX,SY) end (* of proc Initiali
ze *) procedure WritePrompt(Line Byte Msg Prompt) (* Zeigt eine Ab
fragestring nachdem die Zeile geloescht wurde *) begin GotoXY(1,Line) Cl
rEol Write(Msg) end (* of prore *) hiffe an Sektorkoordinaten.') WritePr
ompt(2,'Druecken sie RETURN wenn Sie fertig sind.') repeat ReadShip(3,'G
eben Sie einen Schiffsnamen ein ',Ship) if Ship NoShip then begin
ReadCoords(4,'Geben Sie die Sektorkoordinaten ein ',SX,SY) SectorSX,SY
Ship ShowSector(SX,SY) end until Ship NoShip end. (* of progr
am Scalac WritePrompt *) procedure ReadShip(Line Byte Msg prompt var Ship
ShipType) (* Fragt den Spieler nach der Schiffsklasse liest diese ein u
nd ueberprueft sie und wiederholt das solange bis eine gueltige
Eingabe erfolgt *) var SName Names Sndx
ShipType Found Boolean begin repeat WritePrompt(Lin
e,Msg) (* Prompt schreiben *) ReadLn(SName)
(* Schiffsnamen einlesen RAFBGCHDIEger Max Integer)
(* Zweck kuemmert sich um automatischen Umbruch fuer Val *)
begin if Val Min then Val Max else if Val Max then V
al Min end (* von Prozedur WrapAround *) begin (* Prozedur UpdatePosition
*) X X + DX Y Y + DY WrapAround(XMin,X,XMax) WrapAround(Ymin,Y,YM
ax) end (* von Prozedur UpdatePosition *) procedure MoveOther (* Zw
eck Bewegt den Feind *) begin if Rand(1, program Spiel1 (* E
in einfaches suchen und feuern Spiel *) const XMin 1 XMa
x 32 YMin 1 YMax 24 type
XBereich XMin..XMax YBereich YMin..YMax Zeichenme
nge set of Char CommandType (Quit,Move,Fire,Search) Frage
string80 var X1,X2,Y1,Y2 Integer Command
CommandType function Rand(Low,High Integer) Int2) 1 then UpdatePos
ition(X2,Y2,Rand(-1,1),Rand(-1,1)) end (* von Prozedur MoveOther *) procedur
e DoMove (* Zweck fuehrt Spielerzuege aus *) var Ch
Char DX,DY Integer begin DX 0 DY 0 GetChar(Ch,'M
OVE U)p, D)own, L)eft, R)ight ','U','D','L','R') case Ch of 'U' DY
1 'D' DY -1 'L' DX -1 'R' DX 1 end UpdatePosit
ion(X1,Y1,DX,DY) GotoXY(1,5) Write('Aktuelle Poseger (* Zweck
uebergibt eine Zufallszahl im Bereich Low..High *) var Range
Integer begin Range (High - Low) + 1 Rand Low + Trunc(Range*Random)
end (* von Prozedur Rand *) procedure Gross(var Ch Char) (* Umwandlung in
Grossbuchstaben *) begin if Ch in 'a'..'z' then Ch Chr(Ord(Ch)-32) en
d (* von Prozedur Gross *) procedure GetChar(var Ch Char Msg Frage OKSet Z
eichenmenge) (* Zweck Schreibt Frage, Nimmt Zeition ',X13,',',Y
13) end (* von Prozedur DoMove *) procedure DoSearch (* Zweck
sucht nach dem Feind in angrenzenden Bereichen *) var Found Bo
olean DX,DY,TX,TY Integer begin Found False DX -3 while no
t Found and (DX 4) do begin DY -3 while not Found and (DY 4) do beg
in TX X1 TY Y1 UpdatePosition(TX,TY,DX,DY) if (TX X2) AN
D (TY Y2) then Found True else DY DY + ichen an, wenn in OK
Set *) begin repeat GotoXY(1,1) ClrEol Write(Msg) Read(Kbd,Ch)
Gross(Ch) until Ch in OKSet end (* von Prozedur GetChar *) procedure G
etCommand(Var Cmd CommandType) (* Zweck Erlaubt dem Benutzer eins
von vier Kommandos zu waehlen *) var Ch Char begin Get
Char(Ch,'CMD M)ove, F)ire, S)earch, Q)uit ','M','F','S','Q') case Ch of
'M' Cmd Move 'F' Cmd Fire 'S' Cmd Search 1 end
if not Found then DX DX + 1 end GotoXY(1,2) ClrEol if Found t
hen begin Write('Feind gesichtet Aktuelle Position ist ') if (DX 0)
and (DY 0) then Write('dieselbe wie Ihre') else begin if DX
0 then Write('links von') else if DX 0 then Write('r
echts von') if (DX 0) and (DY 0) then Write(' und ') if
DY 0 then Write('unter') else if DY 0 then Write('
'Q' Cmd Quit end end (* von Prozedur GetCommand *) procedure Initiali
ze (* Zweck Initialisierung von allem und jedem *) begin ClrS
cr X1 (XMin+XMax) div 2 Y1 YMin X2 (XMin+XMax) div 2 + Rand(-5,5)
Y2 (Ymin+Ymax) div 2 + Rand(-5,5) end (* von Prozedur Initialize *) proced
ure UpdatePosition(var X,Y Integer DX,DY Integer) (* Zweck bring
t X,Y auf den neuesten Stand *) procedure WrapAround(Min Integer var Val
Inte R A F B G C H D I Eber') Write(' Ihnen') end end else
Write('Feind nicht gesichtet') end (* von Prozedur DoSearch *) procedure DoF
ire(var Command CommandType) (* Zweck Erlaubt dem Spieler zu schi
essen *) var Ch Char DX,DY Integer begin
GetChar(Ch,'FIRE L)eft, R)ight, U)p, D)own, S)ame ', 'L','R','U','D
','S') DX 0 DY 0 case Ch of 'L' DX -1 'R' DX 1 '
U' DY 1 'D' D Integer) var Regs RegPack begin with Regs
do begin AX M1 (* ax,bx,cx,dx fuer Interrupt vorbereiten *
) BX M2 CX M3 DX M4 end Intr(51,Regs) (* Int
errupt 51 aufrufen *) with Regs do begin M1 AX M2 BX M3 CX
M4 DX end end (* von Prozedur Maus *) begin (* Hauptprogramm von
MausSketch *) M1 0 M2 0 M3 0 M4 0 HiRes (
* Graphics mode Y -1 end GotoXY(1,3) ClrEol if (Ch 'S') and (Rand(1,4
) 1) then begin Write('Hoppla... Sie haben sich selbst erschossen! Sie ve
rlieren!') Command Quit end else if (X1+DX X2) and (Y1+DY Y2) and
(Rand(1,DX+DY) 2) then begin Write('Sie haben Ihn! Sie gewinnen!') Co
mmand Quit end else Write('Daneben. Viel Glueck fuer''s naechste mal.')
end (* von Prozedur DoFire *) (* Beginn des Hauptprogramms *)
begin Initialize repeatund Farbe *) HiResColor(Yellow) M1 0
(* Initialierung des Maustreibers *) Maus(M1,M2,M3,M4) M1 1
(* Maus Cursor an*) Maus(M1,M2,M3,M4) M1 3 OldX 0
OldY 0 while not KeyPressed do begin (* Programmende wenn eine Taste gedr
ueckt wird*) Maus(M1,M2,M3,M4) i
f M2 0 then Draw(OldX,OldY,M3,M4,1) (* Zeichne wenn der Mausknopf
gedrue GetCommand(Command) case Comm
and of Move DoMove Fire DoFire(Command) Searc
h DoSearch end MoveOther until Command Quit end. (* des Pro
gramms Spiel1 *) Write('Sie haben Ihn! Sie gewinnen!') Command Quit
end else Write('Daneben. Viel Glck fr''s nchste mal.') end (* von Prozed
ur DoFire *) (* Beginn des Hauptprogramms *) begin Initial
ize repeat GetCommandckt wurde *) OldX M3 OldY M4 end en
d. (* des Programms MausSketch *) M1 1 (* Maus Cursor an*)
Maus(M1,M2,M3,M4) M1 3 OldX 0 OldY 0 while not KeyPressed do
begin (* Programmende wenn eine Taste gedrueckt
wird*) Maus(M1,M2,M3,M4) if M2 0 then Draw(OldX,OldY,M
3,M4,1) (* Zeichne wenn der Mausknopf ge
drue program DosVersion function DosVer Real var Regs record
AX,BX,CX,DX,BP,SI,DI,DS,ES,Flags Integer end AL,AH
Byte begin Regs.AX $3000 MSDos( Regs ) AL Regs.AX and $FF
AH ( Regs.AX and $FF00 ) shr 8 DosVer AL + AH/100 end der Funktion DosV
er begin Hauptprogramm von DosVersion WriteLn WriteLn WriteLn( 'M
S DOS Version ',DosVer42 ) end. Ende von DosVersion program MausSketch
(* Dieses Programm zeigt wie man die Microsoft Maus ansprechen kann
*** WARNUNG *** Der Maustreiber mu unbedingt geladen
sein bevor diese Programm ausgefuehrt wird. Der Maustreiber wir
d durch Maus.COM geladen. *) type RegPack record AX,BX,CX,DX
,BP,SI,DI,DS,ES,Flags Integer end var OldX,OldY,X,Y Integer M1,M
2,M3,M4 Integer RegPak RegPack procedure Maus(var M1,M2,M3,M4
RAFBGCHDIEalisieren *) FillChar(Ergebniss,SizeOf(Ergebniss),0) (* Ergebni
s-array loeschen *) for Index 1 to Zaehler do begin (* Zaehler sta
rten *) Jndex Random(10) (* Bereich 0..9 *)
ErgebnissJndex ErgebnissJndex + 1 end Sum 0.0
(* Summe fuer Chi2 loeschen *) Np Zaehler/10.0 for I
ndex 0 to 9 do begin (* fuer jedes moegliche Ergebniss *) Write(Er
gebnissIndex5) program ZufallszahlenTest (* Dieses Programm testet die
Randomize Prozedur. Auaerdem berechnet es einen Chi-Quadratwert, als T
est der Zufallszahlen selbst. Chi-Qadratwerte zwischen 3 und 16 sind
wuenschenswert, Werte nahe an 8.3 sind optimal. *) var S1,S2,Index,Jnd
ex,Zaehler Integer Sum,T,NP Real Ergebniss
array0..9 of Integer procedure Randomize(I,J Integer) var RSet
record AX,BX,CX,D (* schreibe Gesamtsumme der Werte *)
Sum Sum + Sqr(ErgebnissIndex-NP)/NP (* und berechne Chi2 *) end
WriteLn WriteLn('Chi-Quadrat (9 Freiheitsgrade) ',Sum83) end
until Zaehler 0 end. (* des Programms Zufall *) Zaehler/10.0 for
Index 0 to 9 do begin (* fuer jedes moegliche Ergebniss *) Write(E
rgebnissIndex5) X,BP,SI,DI,DS,ES,Flags Integer end Ch Cha
r begin if (I0) and (J0) then begin (* Bestimme eine beliebige Zufallsza
hl *) RSet.AX$2C00 (* DOS Zeit des Funktionstages *) MSD
os(RSet) IRSet.CX (* Setze I und J auf Systemzeit *)
JRSet.DX Delay(100) (* Diese Verzoegerung kann fuer schnellere Sys
teme gesteigert werden *) MSDos(RSet) if (
IRSet.CX) and (JRSet.DX) the program TestChangeDirectory Erlaubt Ihne
n das aktuelle Inhaltsverzeichniss zu wechseln. Sie koennen das Inhaltsv
erzeichnis in der Commandline angeben, ansonsten fragt das Programm dana
ch. type Int -32767..32767 String80 st
ring 80 RegRec record AX,BX,CX,DX,BP,SI,DI,DS,ES,Flags Integer
end var Error Int Buffer string80
Command string80 absoluten begin (* Uhr laeuft nicht *)
I 0 J 0 while KeyPressed do Read(Kbd,Ch)
(* Loesche Terminalpuffer *) Write('Druecke eine Taste, um den Zufalls
zahlengenerator zu starten') repeat I I+13 J J+17
until Keypressed Read(Kbd,Ch) (* Zeichen lesen *)
WriteLn end end MemWDSeg$129I (* Das ist der Kern der Routi
ne speichern eines *) MemWDSeg$12BJ (* cseg $80 procedure ChangeDir(S
egment, Offset Integer var Error Int ) var Regs
RegRec begin Regs.DS segment Regs.DX offset Regs.AX $3B0
0 MSDos( Regs ) Error Regs.AX and $FF end der Prozedur ChangeDir
Hauptprogramm von TestChangeDir begin if ( Length( Command ) 0 ) then
begin GotoXY( 10, 10 ) Write( 'Welches Inhaltsverzeichnis ' ) Re
adLn( Buffer ) end else Buffer Comma32 Bit Wertes in DSeg$0129...DSeg$012
C *) end (* der Prozedur Randomize *) begin (* Beginn des Hauptprogrammes *
) Writeln('Bitte Zaehler eingeben 0 fuer Programmende ') repeat Writ
e(' Zaehler ') (* Anzahl der Muster *) ReadLn(Zaehler)
if Zaehler 0 then begin (* Starte Test *) Write('Zwe
i Startwerte (S1 S2) ') (* Einlesen von 2 Integern *) ReadLn(S1,S2)
Randomize(S1,S2) (* Zufallszahlengenerator initi RAFBGCHDIEnd i
f ( Length( Buffer ) 80 ) then Buffer Length( Buffer ) + 1 Chr( 0 )
else Buffer 80 Chr( 0 ) ChangeDir( Dseg, Ofs( Buffer ) + 1, Error ) if
( Error 0 ) then WriteLn( 'Inhaltsverzeichnis nicht gefunden.' ) end. de
s Programms TestChangeDir egin GotoXY( 10, 10 ) Write( 'Welches In
haltsverzeichnis ' ) ReadLn( Buffer ) end else Buffer Comma Bit 7
(128) Received line signal detect Bit 6 (64) Ring indicator
Bit 5 (32) Data set ready Bit 4 (16) Clear to send
Bit 3 (8) Delta receive line signal detect Bit 2 (4)
Trailing edge ring detector Bit 1 (2) Delta data set ready
Bit 0 (1) Delta clear to send Bezeichner die mit "" beginnen so
llten von Ihrem Programm benutzt werden. *) Type RegisterSetRecord ca
se Integer of 1 (AX,BX,CX,DX,BP,DI,SE,DS,ES,Flags Integer)
2 (AL,AH,BL,BH,CL,CH,DL,DH Byte) end Pari
tyType(None,Even,Odd) var Regs RegisterSet InError,OutError Array
1..2 of Byte procedure Int14(PortNummer,Command,Parameter Integer) (* d
o a BIOS COM driver interrupt *) begin with Regs do begin
DXPortNummer-1 AHCommand ALParameter Flags0
Int (*$U+*) var Port,Baud,StopBits,DataBits,Par Integer
Message String80 type String19String19 (* Einige Routinen um COM
1 und COM2 von Turbo Pascal aus anzusprechen. Die folgenden Prozeduren koenn
en von Ihren Programmen benutzt werden AssignAux(PortNummer in 1,2) legt Au
x auf COM1 oder COM2 AssignUsr(PortNummer in 1,2) legt Usr auf COM1 oder COM2
SetSeriell(PortNummer in 1,2, BaudRate in 110,150,300,600,1200,
2400,4800,9600, r($14,Regs) end end procedure SetSe
riell(PortNummer,BaudRate,StopBits,DataBits Integer Parit
y ParityType) (* Set Seriell parameters on a COM port *) var Pa
rameter Integer begin case BaudRate of 110 BaudRate0
150 BaudRate1 300 BaudRate2 600 BaudRate3 1200 B
audRate4 2400 BaudRate5 4800 BaudRate6 else BaudRate7
(* Standard StopBits in 1,2, DataBits in 7,8, Par
ity in None,Even,Odd) setzt die Baudrate, Stop Bits,
Datenbits, und Paritaet der seriellen
Ports. Die Arrays InError und OutError koennen untersucht werd
en um Fehler festzustellen. Die Bits liegen wie folgt Bit 7 (128)
Time out ( kein Geraet angeschlossen ) Bit 3 (8) Framing erro
r Bit 2 (4) Parity erro 9600 Baud *) end if StopBi
ts2 then StopBits1 else StopBits0 (* Standard 1 Stop Bit *) if Da
taBits7 then DataBits2 else DataBits3 (* Standard 8 Datenbits *)
Parameter(BaudRate Shl 5)+(StopBits Shl 2)+DataBits case Parity of
Odd ParameterParameter+8 Even ParameterParameter+24 else (*
Standard to no parity *) end Int14(PortNummer,0,Parameter)
end Function SeriellStatus(Porr Bit 1 (2) Overrun error
Die Funktion SeriellStatus(PortNummer in 1,2) gibt einen genaueren Statusb
ericht Bit 15 (negative) Time out (kein Geraet angeschlossen ) Bit
14 (16384) Transmission shift register empty Bit 13 (8192) Trans
mission holding register empty Bit 12 (4096) Break detect Bit 1
1 (2048) Framing error Bit 10 (1024) Parity error Bit 9 (
512) Overrun error Bit 8 (256) Data ready R A F B G C
H D I EtNummer Integer) Integer (* Uebergibt den Status eines COM Ports *)
begin Int14(PortNummer,3,0) SeriellStatusRegs.AX end
procedure OutPort1(C Byte) (* wird von Write aufgerufen, wenn COM1 verwe
ndet wird *) begin while (SeriellStatus(1) and $30)0 do In
t14(1,1,C) OutError1OutError1 Or (Regs.AH and $8E) end proced
ure OutPort2(C Byte) (* wird von Write aufgerufen, wenn COM2 verwendet wird *
) Write('Bitte Datenbits eingeben ') ReadLn(DataBi
ts) Write('Paritt eingeben (0none, 1even, 2odd) ') ReadLn(Par) Wr
ite('Zu sendender Text ') ReadLn(Message) SetSe
riell(1,Baud,StopBits,DataBits,ParityType(Par)) WriteLn(Usr,Message) W
riteLn('Ausgabefehler',Port,' ',Binary(OutErrorPort)) WriteLn('SeriellStatu
s(',Port,') ',Binary(SeriellStatus(Port))) end. begin while (Seri
ellStatuS(2) and $30)0 do Int14(2,1,C) OutError2OutError2 Or (Reg
s.AH and $8E) end Function InPort1 Char (* wird von Read aufgeruf
en, wenn COM1 verwendet wird *) begin Int14(1,2,0) InPort1C
hr(Regs.AL) InError1InError1 Or (Regs.AH and $8E) end Functio
n InPort2 Char (* wird von Read aufgerufen, wenn COM2 verwendet wird *)
begin Int14(2,2,0) InPort2Chr(Regs.AL) InError2InError2 O
r (Regs.AH and $8E) end procedure AssignPort(PortNummer Integer var
InPtr,OutPtr Integer) (* legt Aux oder Usr entweder auf COM1 oder COM2 *)
begin if PortNummer2 then begin OutPtrOfs(OutPort2)
InPtrOfs(InPort2) end else (* Standard to port 1 *)
begin OutPtrOfs(OutPort1) InPtrOfs(InPort1) end
InErrorPortNummer program CPM80Dir (* Dieses Programm zeigt das Inhalt
sverzeichnis des aktuellen Laufwerks *) const SearchFirst Integer
$11 SearchNext Integer $12 SetDMA Integer $1A v
ar Error, Loop, Start Integer FCB array0..25 of Byte
absolute $005C DMA array0..255 of Byte begin Error B
Dos(SetDMA,Addr(DMA)) FCB0 0 for Loop 1 to 11 do FCBLoop ord('')
Error BDos0 OutErrorPortNummer0 end procedure AssignAux(Po
rtNummer Integer) (* legt Aux entweder auf COM1 oder COM2 *) begin
AssignPort(PortNummer,AuxInPtr,AuxOutPtr) end procedure AssignUs
r(PortNummer Integer) (* legt Usr entweder auf COM1 oder COM2 *) beg
in AssignPort(PortNummer,UsrInPtr,UsrOutPtr) end Function Bin
ary(V Integer) String19 var I Integer B Array 0..3 of Strin
g4 beg(SearchFirst,Addr(FCB)) if Error 255 then begin Start Err
or * 32 for Loop Start to start+8 do Write(Char(MemAddr(DMA)+Loop))
Write(' ') for Loop Start+9 to Start+11 do Write(Char(MemAddr(D
MA)+Loop)) WriteLn end repeat Error BDos(searchNext) Start
Error * 32 if Error 255 then begin for Loop Start to start+8 do
Write(Char(MemAddr(DMA)+Loop)) Write(' ') for Loop Start+9
to Start+in For I0 To 15 do if (V and (1 Shl (15-I)))0 then BI D
iv 4(I Mod 4)+1'1' else BI Div 4(I Mod 4)+1'0' For I0 To 3 do BI
0Chr(4) BinaryB0+' '+B1+' '+B2+' '+B3 end begin Write('B
itte Port Nummer eingeben ') ReadLn(Port) AssignUsr(Port
) Write('Bitte Baudrate eingeben ') ReadLn(Baud)
Write('Bitte Stoppbits eingeben ') ReadLn(StopBits) RAFBG
CHDIE11 do Write(Char(MemAddr(DMA)+Loop)) WriteLn end until E
rror255 end. (* des Programms CPM80Dir *) te(Char(MemAddr(DMA)+Loop)) Wri
te(' ') for Loop Start+9 to Start+11 do Write(Char(MemAddr(DMA)+Loop
)) WriteLn end repeat Error BDos(searchNext) Start Error
* 32 if Error 255 then begin for Loop Start to start+8 do
Write(Char(MemAddr(DMA)+Loop)) Write(' ') for Loop Start+9 to Start
+ NumberNumber shr 4 end HexH end (* of proc Hex *) begin (* des
Programms CPMStatus *) ClrScr writeln( 'Angemeldet- ---- Records ----
- Spuren - -- Kapazitaet -- --- TPA ---') writeln( 'Drive User Block T
rack Drive Sys. Drive Directory Drive Bytes K') (* x xxx xxxxx
xxxxx xxxxx xxx xxxxx xxxx/xxxx xxxxxK xxxxx xx.x *) Write(' ', C
hr(Bdos(CurDisk) + Ord('A')), ' ', Bdos(GetUser,$FFFF)3, ' ')
DPBPtr(BdosHL(DiskParam)) with DPB do begin RecsPrBlockBLM+1 Wri
te(RecsPrBlock5) Write(SPT6) RecsPrDrive(DSMhi*256.0 + DSMlo + 1.0)*
RecsPrBlock Write(RecsPrDrive60,' ') Write(OFF3) TrksPrDrive
RecsPrDrive/SPT + OFF if TrksPrDrive Trunc(TrksPrDrive) then Trks
PrDriveTrksPrDrive+1 Write(Trunc(TrksPrDrive)7,' ') Write(DRM+14,'
/',CKS*44,Trunc(RecsPrDrive/8)6,'K') end TPA2.0*(BDOSaddr SHR 1) - $100
WriteLn(TPA program CPMstatus (* Zeigt CP/M Status Informationen
*) const CPMversion 12 CurDisk 25 AllocVe
ctor 27 DiskParam 31 GetUser 32
type Word Integer HexStr string4
DPBREC record SPT Integer (* SECTOREN PER TRACK *
) BSH Byte (* DATA ALLOCATION BLOCK SHIFT FACTOR *)
BLM 80,'',TPA/102461) WriteLn writeln('- Betriebssy
stem -') writeln(' Version BDOS BIOS') (*xxxx x.x xxxx xxxx
*) ResultBdosHL(CPMversion) VersionHi(Result) if Version 0 th
en Write('CP/M ') else if Version 1 then Write('MP/M ') else Wr
ite(' ') VersionLo(Result) if Version 0 then Write('1.x') e
lse Write(Version div $10, '.', Version mod $10) WriteLn(Hex(BDOSaddr, 2)6,
Hex(BIOSaddr-3, 2)6) end. Byte EXM Byte (* DSM
Integer TOTAL STORAGE CAPACITY *) DSMlo Byte
DSMhi Byte DRM Integer (* NO of DIRECTORY
ENTRIES *) AL0,AL1 Byte CKS Integer
OFF Integer end (* DPBREC *) var DPB
DPBREC RecsPrBlock Integer RecsPrDrive Real Trk
sPrDrive Real BI(* des Programms CPMStatus *) x.x xxxx xxxx
*) ResultBdosHL(CPMversion) VersionHi(Result) if Version 0 th
en Write('CP/M ') else if Version 1 then Write('MP/M ') else Wr
ite(' ') VersionLo(Result) if Version 0 then Write('1.x') e
lse Write(Version div $10, '.', Version mod $10) WriteLn(Hex(BDOSaddr, 2)6,
Hex(BIOSaddr-3, 2)6) end. OSaddr Integer absolute 1 BDOSaddr
Integer absolute 6 TPA Real Version
Integer Result Integer function Hex(Number Integer
Bytes Integer) HexStr const T array0..15 of Char '012
3456789ABCDEF' var D Integer H He
xStr begin H0Chr(Bytes+Bytes) for DBytes+Bytes downto 1 do begin
HDTNumber and 15 RAFBGCHDIE (* setze DTA Speicherste
lle *) Mask '.' (* benutze globales Suchen *) Regs.AX $4E00
(* nimm erste Directoryeintragung *) Regs.DS Seg(Mask)
(* zeige auf die Datei Maske *) Regs.DX Ofs(Mask) Regs.CX 22
(* Attribut setzen *) MsDos(Regs)
(* MS DOS Funktionsaufruf *) Fehler Regs.AX and $FF (* Fehl
ercode holen *) I 1 P0#*6w0#6 %F page %## xDIR ERA TYPESAVEREN USE
R!yO# Ty#O321y2y21A92.!#Listing of %F, page %#!READ ERRORNO FILE! 3#0 WxxG # 3x
#B!Y2!!T! O KOB (* initialisiere 'I' als erstes Element *) if (Fehler
0) then repeat NamRI Chr(MemSeg(DTA)Ofs(DTA)+29+I) I I + 1
until not (NamRI-1 in ' '..'') or (I20) NamR0 Chr(I-1) (* St
ringlaenge eintragen da sie durch *) (* Einzele
intragung von Buchstaben nicht gesetzt wird
*) while (Fehler 0) do begin Fehler 0 Regs.AX $4F00 (* F
unktion um den naechsten Eintrag zu finden *) Regs.CX 22 (* Attr
ibut setzen *) MSDos( Regs ) (* MSDos Funktionsaufruf *) Feh
ler Regs.AX and $FF(* Fehlercode holen *) I 1 repeat NamRI
Chr(MemSeg(DTA)Ofs(DTA)+29+I) I I + 1 until not (NamRI-1 in ' '..''
) or (I 20) NamR0 Chr(I-1) if (Fehler 0) then WriteLn(NamR)
end end. (* von DirList *) program DirList (* Dieses Programm
listet das Inhaltsverzeichnis des aktuellen Laufwerks *) type Char
12arr array 1..12 of Char String20 string 20 R
egRec record AX, BX, CX, DX, BP, SI, DI, DS, ES, Flags Integer
end var Regs RegRec DTA array 1..
43 of Byte Mask Char12arr NamR String20
Fehler, I Integer begin (* Hauptprogramm *) FillChar(DT
A,SizeOf(DTA),0) (* initialisiere DTA Puffer *) FillChar(Mask,SizeOf(Mask)
,0) (* initialiere Maske *) FillChar(NamR,SizeOf(NamR),0) (* initia
lisiere Dateiname *) WriteLn( 'Directory-list-Programm fuer MS-Dos.' ) W
riteLn Regs.AX $1A00 (* benutze Funktion um DTA zu setzen *) Regs
.DS Seg(DTA) (* speichere Segmentparameter in DS *) Regs.DX Ofs(DTA)
(* speichere Offset in DX *) MSDos(Regs) RAFBGCHDIE program
ZeigeDiskettenStatus (* ZeigeDiskettenStatus benutzt MSDOS Funktione
n um Laufwerksinformationen vom aktuellen Laufwerk oder in der Commandli
ne angegebenen Laufwerk zu erhalten. *) (*$I-,U-,C-*) type
(* TYPEN Deklarierung *) RegRec record (*
Register fuer MSDos aufruf *) AX, BX, CX, DX, BP, SI, DI, DS, ES, Flags
Integer end var Spuren, (* Anzahl verfue
gbarer Spuren *) Ln WriteLn If ( Laufwerk 0 ) then Laufwerk Defaul
tDrive WriteLn( 'Diskettenstatus von Laufwerk ', chr( Laufwerk + $40 ), '')
WriteLn (* Disketten Information schreiben *) WriteLn( Spuren7, ' Spure
n frei.' ) WriteLn( GesamtSpuren7, ' Spuren insgesamt.' ) Benutzt (( Ge
samtSpuren - Spuren ) / GesamtSpuren ) * 100 WriteLn( Benutzt72, '% Benutzt.'
) WriteLn( Sektoren7, ' Sektoren pro Cluster.' ) WriteLn( Bytes7, ' Byt
es pro Sektor.' ) TotalB GesamtSpuren, (* Anzahl alle
r Spuren *) Laufwerk, (* Laufwerksnummer *) Byt
es, (* Anzahl von Bytes per Sektor *) Sektoren
Integer (* Sektoren insgesamt *) Benutzt,TotalBytes Real
Regs RegRec procedure DiskStatus( Laufwerk integer
var Spuren, GesamtSpuren,Bytes, Sektoren integer ) (*
Ruft MSDos auf um den Laufwerkstatus zu erhaytes (( Sektoren * Bytes * 1.0
) * Spuren ) WriteLn( TotalBytes70, ' Bytes frei auf der Diskette.' ) Wr
iteLn end. (* des Programms ZeigeDiskettenStatus *) GesamtSpuren7, ' Spuren
insgesamt.' ) Benutzt (( GesamtSpuren - Spuren ) / GesamtSpuren ) * 100
WriteLn( Benutzt72, '% Benutzt.' ) WriteLn( Sektoren7, ' Sektoren pro Clust
er.' ) WriteLn( Bytes7, ' Bytes pro Sektor.' ) TotalBlten gibt Sp
uren, GesamtSpuren, Bytes, and Sektoren zurueck. *) begin Regs.AX $3600
(* Freien Diskettenplatz holen *) Regs.DX Laufwerk (*
Laufwerksnummer *) MSDos( Regs ) (* MSDos Aufruf *) Spur
en Regs.BX (* Anzahl benutzter Spuren *) GesamtSpuren Regs.DX
(* " aller Spuren *) Bytes Regs.CX (* " Byt
es per Sektor *) Sektoren Regs.AX (* " Sektoren pro Cluste
r *) END (* von Prozedur DiskStatus *) function DefaultDrive integer (*
MS DOS Aufruf zur Feststellung des aktuellen Laufwerks *) var Regs R
egRec begin Regs.AX $1900 (* Aktuelle Laufwerksnummer
*) MSDos( Regs ) (* MS DOS Aufruf *) DefaultDrive
(Regs.AX and $FF) + 1 (* Laufwerksnummer *) END (* of func DefaultDrive *)
begin (* Hauptblock des Programms ZeigeDiskettenStatus *) Laufwerk 0
P0#*6w0#6 %F page %## xDIR ERA TYPESAVEREN USER!yO# Ty#O321y2y21A92
.!#Listing of %F, page %#!READ ERRORNO FILE! 3#0 WxxG # 3x#B!Y2!!T! -0K-1B
(* Initialisiere Laufwerk *) If (MemCseg$80) 0 (* Command
line lesen *) then Laufwerk MemCseg$82 and $1F If not ( Laufwerk in 1.
.6 ) (* Wenn die Commandline leer ist *) then Laufwerk 0
(* oder ein falsches Laufwerk *)
(* angegeben wurde, dann das akt
uelle Laufwerk *) DiskStatus( Laufwerk, Spuren, GesamtSpuren, Bytes, Sektoren
) Write RAFBGCHDIE des Programms FillCharDemo *) Speicher geladen wird
') ReadLn(Value) Write('Wieviele Worte sollen gefuellt werden ') ReadLn
(Num) FillChar(Var1,Num,Value) ClrScr WriteLn('Jetzt wird der Speicher
ab ',Seg1,'',Ofs1,' ausgedruckt') for Count 1 to Num do begin OutWord
MemSeg1Ofs1 WriteLn(Seg1,'',Ofs1,' hat den Wert ',OutWord) Ofs1 Ofs1
+ 1 end end. (* P0#*6w0#6 %F page %## xDIR ERA TYPESAVEREN USER!yO# Ty#O321
y2y21A92.!#Listing of %F, page %#!READ ERRORNO FILE! 3#0 WxxG # 3x#B!Y2!!T! -0K
-1BProgram Filter (* Dies ist ein Beispiel fuer einfache Filter unter MS D
OS in TURBO Pascal Dieser Filter copiert von der Standardeingabe nach der Sta
ndardausgabe und formt dabei alle Grobuchstaben in Kleinbuchstaben um. D
ie MS DOS Moeglichkeiten der Umleitung, Piping und des Druckprotokolls (durch
P oder PrtScr) funktionieren bei jedem Programm das die beiden Prozeduren/Fu
nktionen benutzt und die Anweisungen ConInPtrOfs(GetC) ConOutPtrOfs(PutC) am
Anfang des Programms ausf program FillCharDemo (* Dieses Programm de
monstriert wie die eingeabaute Prozedur Fillchar arbeitet *) var Se
g1 Integer Ofs1 Integer Count Integer OutWord Integer Num
Integer Var1 Integer Value Char begin ClrScr GotoXY(5,5)
Write('Geben Sie bitte eine Zahl fuer die Startadresse ein ') ReadLn(Var1)
Seg1 Seg(Var1) Ofs1 Ofs(Var1) WriteLn WriteLn('Diese Variable lieg
t im Segment ',Seg1, uehrt. Die Eingabe erfolgt ueber KBD um ein Ech
o auf dem Bildschirm zu vermeiden. Aufruf FILTER Datei.Erw Neudatei.Erw
Die Datei Datei.Erw wird auf Neudatei.Erw kopiert und dabei werden alle G
robuchstaben in Kleinbuchstaben umgewandelt. *) Type RegisterSetReco
rd Case Integer Of 1 (AX,BX,CX,DX,BP,SI,DI,DS,ES,Flags Intege
r) 2 (AL,AH,BL,BH,CL,CH,DL,DH Byte) End
Var Regs RegisterSet Function GetC ' mit einem Offset von
',Ofs1) WriteLn WriteLn('Nun geben Sie bitte ein Zeichen ein,') Write('
mit dem der Speicher geladen wird ') ReadLn(Value) Write('Wieviele Worte s
ollen gefuellt werden ') ReadLn(Num) FillChar(Var1,Num,Value) ClrScr
WriteLn('Jetzt wird der Speicher ab ',Seg1,'',Ofs1,' ausgedruckt') for Count
1 to Num do begin OutWord MemSeg1Ofs1 WriteLn(Seg1,'',Ofs1,' hat de
n Wert ',OutWord) Ofs1 Ofs1 + 1 end end. (* RAFBGCHDIE Byte Be
gin Regs.AH8 MsDos(Regs) GetCRegs.AL End Procedur
e PutC(C Byte) Begin Regs.AH2 Regs.DLC MsDos(Regs)
End Var S String255 I Byte Begin ConInPtrOfs(GetC)
ConOutPtrOfs(PutC) While Not Eof(Kbd) Do Begin ReadLn(Kbd
,S) For I1 To Length(S) Do If (SI'A') And (SI'Z') Then SIChr(Ord
(SI)+32) WriteLn(S) End End. (* Modus 80x25 B/W, Alphanumerisc
h *) VideoColor80x25A 3 (* Modus 80x25 Spalteor, Alphanumerisch *)
type Result (* Register pack *) record AX
,BX,CX,DX,BP,SI,DI,DS,ES,Flags Integer end var Rec
Result Zeile,Spalte Integer begin Rec.AX SetzeVideo + VideoBW
80x25A (* BW 80x25 Anzeige als Standard *)
(* Fuer die Colorkarte mu Begin Reg
s.AH2 Regs.DLC MsDos(Regs) End Var S String255
I Byte Begin ConInPtrOfs(GetC) ConOutPtrOfs(PutC) While Not
Eof(Kbd) Do Begin ReadLn(Kbd,S) For I1 To Length(S) Do
If (SI'A') And (SI'Z') Then SIChr(Ord(SI)+32) WriteLn(S) End
End. VideoColor80x25A eingesetzt
werden *) Rec.BX 15 Intr(Video,Rec) (* Set
ze Video Modus *) Rec.AX SchreibeChar + Ord('A') Intr(Video,Rec)
(* Gebe 'A' aus *) Rec.AX LeseCursor Intr(Video,Rec)
(* Lese die Cursor Position *) Zeile Rec.DX and $FF00 shr 8
Spalte Rec.DX and $FF Write('Zeile ',Zeile,' Spalte ',Spalte) (* Zeige Zei
le und Spalte *) program NimmFunktionstastenDaten (* Dieses Programm
prft die Tastatur nach Tasten die einen Zwei Zeichen Code erzeugen. Au
f den meisten Tastaturen ist dabei das erste Zeichen ESC und das zweite
alphanumerisch *) var Zeichen Char Vorher Bool
ean Zaehler Integer begin for Zaehler 1 to 20 do begin
Read(Kbd,Zeichen) (* Ein Zeichen lesen, wenn ZeichenESC dann *)
if Zeichen chr(27) then begin (* Rec.AX SetzeCurPosition Rec.DX $0A0A
Intr(Video,Rec) (* Setze den Cursor auf Zeile 10
und Spalte 10 *) Rec.AX SchreibeChar +
Ord('#') Intr(Video,Rec) (* gib '#' aus *) Rec.AX
LeseCursor Intr(Video,Rec) (* Lese die Cursor Position *
) Zeile Rec.DX and $FF00 shr 8 Spalte Rec.DX and $FF Write('Zeile ',Z
eile,' Spalteumn ',Spalte) (* Zeige Zeile undmu es entweder die ESC Taste sein
*) Vorher True (* eine die einen Zwei Zeichen Code erzeugt *)
Read(Kbd,Zeichen) end else Vorher False if Vorher
then Write('Vorher ') else Write('Einzelnes Zeichen ') WriteLn('Ord
(Zeichen) ',Ord(Zeichen)) end end. (* des Programms NimmFunktionstastenDate
n *) Integer) gin Read(Kbd,Zeichen) (* Ein Zeichen lesen, wen
n ZeichenESC dann *) if Zeichen chr(27) then begin (* Spalte *) Rec
.AX SetzeCurPosition Rec.DX $1414 Intr(Video,Rec) (
* Setze Cursor auf Zeile 20 und Spal
te 20 *) end. (* des Programms IBMpcScreen *) (* gib '#' aus *) R
ec.AX LeseCursor Intr(Video,Rec) (* Lese die Cursor Pos
ition *) Zeile Rec.DX and $FF00 shr 8 Spalte Rec.DX and $FF Write('Ze
ile ',Zeile,' Spalteumn ',Spalte) (* Zeige Zeile und program IBMpcScreen
(* Dieses Programm zeigt direkte Bildschirmausgabe ueber den *) (* Interr
upt 10 (Video Interrupt) beim IBM PC *) const Video
$10 (* Setze Video I/O Interrupt *) SetzeVideo 0 (*
Setze Video Modus *) SetzeCurPosition $200 (* Setze Cursor Position *)
LeseCursor $300 (* Lese Cursor Position *) SchreibeChar
$E00 (* Schreibe Zeichen to sceen *) VideoBW80x25A 2 RAFBGC
HDIEler ',IOWert3) end Read(Kbd,Ch) end end (* von Prozedur IOPru
efe *) procedure NenneZeilennummer(Zeilennummer Integer) (* Diese
Routine gibt Ihnen an, welche Zeilennummer gerade ausgefuehrt wird,
so daa Sie sehen koennen welche Anweisung welchen Fehler verursacht.
*) begin GotoXY(1,1) ClrEol Write('Ausfuehrende Zeile #',Zeilennummer)
end (* von Prozedur NenneZeilennummer *) begin ClrScr (*$I-*) (* I/O Ch
eck abschalten *) Nenne(* R+ *) program TestIOPruefe (* Die Routin
e IOPruefe sollte zusammen mit den globalen Deklarationen IOWert u
nd IOFehler in einem Programm dort plaziert werden, wo Sie Ihre ei
gene I/O Fehlerpruefung abwickeln moechten. ***** ACHTUNG !! *
**** $I- funktioniert nicht !!! es mu $I- geschrieben werden,
da der Compiler das Leerzeichen nicht mag ! *) const IOWert
Integer 0 IOFehler BoZeilennummer(1) Assign(InDatei,'
Schein') IOPruefe NenneZeilennummer(2) Rewrite(InDatei) I
OPruefe NenneZeilennummer(3) Read(InDatei,Zeile) IOPruefe Nenne
Zeilennummer(4) Close(InDatei) IOPruefe end. (* von Programm Te
stIOPruefe *) e #',Zeilennummer) end (* von Prozedur NenneZeilennummer *) b
egin ClrScr (*$I-*) (* I/O Check abschalten *) Nenneolean False var
InDatei Text Zeile string80 procedure IOPr
uefe (* Diese Routine setzt IOFehler mit IOresult gleich und dann
IOWert dementsprechend. Auerdem druckt es auf dem Bildschi
rm in der 24ten Zeile eine Meldung aus, und erwartet vor der Weiterbea
rbeitung, da der Benutzer ein Zeichen eingibt. *) var Ch
Char begin IOWert IOresult IOFehler (IOWert 0) ListT s
tellt den Ersatz fuer das fruehere Turbo Pascal Programm 'TLIST' dar. Wir
haben versucht es so flexibel und einfach benutzbar wie moeglich zu ma
chen, aber fuer den Fall, da Sie Verbesserungen machen moechten, ist auch de
r Quellencode enthalten. Es gibt zwei Moeglichkeiten, ListT zu starten. We
nn Sie es nur durch Eingeben von ListT starten, wird Ihnen ein Menue gegeben,
das Ihnen ermoeglicht, verschiedene ListT Parameter zu setzen. Sie muesse
n mindestens eine Ein GotoXY(1,24) ClrEol Zeile loeschen if IOFeh
ler then begin Write(Chr(7)) case IOWert of $01 Write('
Datei existiert nicht') $02 Write('Datei nicht offen fuer Eingabe
') $03 Write('Datei nicht offen fuer Ausgabe') $04
Write('Datei nicht offen') $10 Write('Fehler im numerischen Form
at') $20 Write('Operation auf einem logischem Einheit nicht erlau
bt') $21 Write('In Dirgabedatei und eine Ausgabedatei spezifizie
ren. Sie koennen auch Parameterdateien laden und sichern. Alle Eingaben koen
nen durch Verwendung eines Signalumsetzers fuer Standard WordStar Kontrollzeich
en, editiert werden. Sie koennen ListT auch durch Parameter in der Befehlsze
ile starten. Der erste Parameter ist die Eingabedatei, der zweite di
e Ausgabedatei und der dritte ist die Parameterdatei. Wenn keine Paramete
rdatei spezifiziert wurde, werden die Voreinstellungen benuektmodus ni
cht erlaubt') $22 Write('Zuweisung zu Standarddateien nicht erlau
bt') $90 Write('unpassende Recordlaenge') $91 Writ
e('Suche nach Dateiende') $99 Write('Unerwartetes Dateiende')
$F0 Write('Diskettenschreibfehler') $F1 Write('Direct
ory ist voll') $F2 Write('Dateigroee ueberschritten')
$FF Write('Datei verschwunden') else Write('Unbekannter I/O
Feh RAFBGCHDIEtzt. Wenn keine Ausgabedatei spezifiziert wurde, wird die
Ausgabe zum Drucker gesendet. Um eine Parameterdatei ohne Eingabe- und Ausga
be- Dateinamen zu spezifizieren, benutzt man die Form &Parameter-Datei. Bei
spiele ALISTT test s parms -- liste TEST.PAS auf den Bildschirm, durch
Verwendung von PARMS.LTP ALISTT test.inc
-- drucke TEST.INC aus, durch Verwendung
der Voreinstellungen ALIST veranlassen, Unter s
treichung an- und auszuschalten. (*.PRtext*) Drucke "Text". Das kann dazu b
enutzt werden, besondere Druckweisen einzuschalten, wie z.B. den
gedraengte 132 Spalten-Modus auf 80 Spalten (11") Druckern. (*.L
-*) Liste die folgenden Zeilen nicht. (*.L+*) Liste wieder. Das ist die
Voreinstellung. (*.U+*) Zeige bestimmte Woerter heller (hilight). D
iese "Schluesselwoerter" werden in obige Art angezeigtT &parm
s -- lies PARMS.LTP ein, und benutze die darin
spezifizierten Ein- und Ausgabedateien Ihre Programmdateien koennen Punkt
-Befehle enthalten, die die Werte von ListT Parametern veraendern. Diese
sind spezifiziert durch das Plazieren von Befehlen der Form (*.xx*)in dem Pro
grammtext. Die Befehle sind (*.PLnn*) Setze die Seitenlaenge auf nn Zei
len pro Seite und beginne eine neue Seite. Die Voreinstellung is
t 66. (*.POnn*) Einru, wenn keine hi/lolight Signale spezifizier
t wurden. (*.U-*) Beende hilight fuer die "Schluesselwoerter". Das ist die
Voreinstellung. (*.N+*) Beg
inne Zeilennummerierung fuer das Listen. (*.N-*) Beende Zeilennummerierung.
Das ist die Voreinstellung. (*.P+*) Beginne eine neue Seite fuer jede Incl
ude-Datei. (*.P-*) Beginne keine neue Zeile fuer " " . ($If
ile*) Fasse Datei "Datei" in Liste zusammen. (wie der eckung um nn Zeichen. D
ie Voreinstellung ist 0. Dies sollte nur benutzt werden, wenn
der Drucker den linken Rand des Papiers weglaesst. (*.LWnn*) S
etze die Zeilenbreite des Druckers auf nn. Die Voreinstellu
ng ist 79, da einige Drucker eine neue Zeile beginnen, wenn
sie das 80te Zeichen in einer Zeile erreicht haben. Das fue
hrt dann zu einer Leerzeile auf der Seite und veranlat
ListCompiler) Nicht erkannte oder unzulaessige Punktbefehle werden ausge
druckt, aber zulaessige werden nicht in der Listung aufgefuehrt, obwohl sie no
ch als Zeilennummer gezaehlt werden. Punktbefehle sollten geschlossen
werden, d.h. wenn Sie zu einem Punktbefehl einen Kommentar machen wollen,
tun Sie dies folgendermaaen (*.PA*) Beginne eine neue Seite Include-Datei
en koennen nicht ineinandergestellt werden, und ein anderer Text in der
Zeile, mit einem Include-Befehl, kT anzuzeigen, wo die neue Seite
beginnt. (*.PA*) Beginne eine neue Seite. (*.CPnn*) Beginne eine neue S
eite, wenn nur noch weniger als nn Zeilen auf dieser Seite uebrig s
ind. (*.HEtext*) Setze die Kopfzeile an den Anfang des Textes. Besondere
% Folgen sind vorgesehen (siehe unten). Die Voreinstellung
ist "Listen von %F, Seite %# auf %T %D" (*.FOtext*) Setze Fuzeile zum "Text".
Die Voreinstellung ist ann nicht k
orrekt ausgedruckt werden. Die Kopf- und Fuzeile kann eines der folgenden
Zeichen enthalten, eingeleitet durch ein '%', um besondere Strings an
zugeben # die gegenwaertige Seitennummer T die aktuelle Systemzeit
(bei MS/PC-DOS von der Systemuhr gelesen,
bei CP/M-80/86 manuell eingegeben) D das
aktuelle Systemdatum F der Name der gelisteten Datei (und der Name der mome
ntanen "%F Seite %#" (*.HItext*) Setze die "hilight Sequenz" dur
ch "Text". Keine Voreinstellung. (*.LOtext*) Setze die "lolight Sequenz" durch
"Text". Keine Voreinstellung. Wenn diese beiden gesetzt werden,
und eine "hilight Wirkung" fuer bestimmte Woerter ist beabsicht
igt, koennen durch diese Sequenz wichtige Woerter heller darge-
stellt werden. Sie koennten beispielsweise die Sequenzen
spezifizieren, die Ihren Drucker RAFBGCHDIE
Include-Datei) Links-Justierung dieser Kopf-/Fuzeile
Rechts-Justierung dieser Kopf-/Fuzeile Links-Justierung bei ungerad
zahligen Seiten, Rechts- Justierung bei gerad
zahligen Seiten Rechts-Justierung bei ungeradzahligen Seiten, Links-
Justierung bei geradzahligen Seiten jedes andere Zei
chen das Zeichen (z.B. "%%" wird zu "%") Demgemae koennte (*.he%Seite
Const CopyrightMessage Array 1..69 Of Char 'ListT version 2.00A Copy
right (C) 1984, BORLAND International, Inc.'MJ Type FileNameString20
String3String3 String10String10 BufferString200 ParseStates(P
reKey,KeyWord,Comment,Comment2,Quoted) Const ParameterSetSize502
Type ParameterSetArray 1..ParameterSetSize Of Byte ParameterRecordArra
y 1..1000 Of Byte Const NoList BooleanFalse PageStarted#%# von
"%F" um %T, %D*) die Kopfzeile von Seite #17 von "PROGRAMM.PAS" um 0327p
m, 10/03/84 erzeugen. Falls weder % noch % spezifiziert ist, wird die Ko
pf-/Fuzeile zentriert. Zusammenfassung der Voreinstellungen von Befehlen
Seitenlaenge (*.PL66*) Einrueckung (*.PO0*) Zeilenbreite
(*.LW79*) Kopfzeile (*.HEListing von %F, Seite %# um %T %D*)
Fuzeile (*.FO%F Seite %#*) Hilite Signal (*.HI*) Lolite Si
gnal (*.L BooleanFalse InInclude BooleanFalse CommandLineStartu
p BooleanFalse ParseState ParseStatesPreKey YesNo Array False..True Of
String3('No','Yes') Var PageLength Integer LineWidth Integer
HiLite String10 LoLite String10 InitString String10 ExitString
String10 LineNumbers Boolean UpKeys Boolean PageForIncludes Boole
an Indent Integer Heading Buffer Footing Buffer CurrentPageN
umberO*) Lister ein/aus (*.L+*) "Schluesselwort" hilite (*.U-*) Zeile
nnummer (*.N-*) Seite fuer Includes (*.P-*) Wir hoffen, da die
ses Programm eine nuetzliche Ergaenzung zu Turbo Pascal ist. Seitenlaeng
e (*.PL66*) Einrueckung (*.PO0*) Zeilenbreite (*.LW79
*) Kopfzeile (*.HEListing von %F, Seite %# um %T %D*) Fuzeile
(*.FO%F Seite %#*) Hilite Signal (*.HI*) Lolite Signal (*
.L Integer CurrentLineNumber Integer SavedInFileName FileName Sav
edOutFileName FileName IncludeDrive Char Parms ParameterSet Absolute
IncludeDrive ParmFile File Of ParameterRecord ParmFileName FileNa
me InFileName FileName OutFileName FileName TimeString String10
DateString String10 CurrentInFileName String60 InFile Text Ou
tFile Text Ok Boolean OutIsDevice Boolean Blanks Buffer (* T
urbo Pascal Program Lister version 2.00A Copyright (C) 1984, BORLAND Interna
tional, Inc.*) $C-,U-,R-,A- Program ListTurbo $I listt1.inc $I listt2
.inc $I listt3.inc $I listt4.inc $I listt5.inc PAS ! FILLCHARPASEFFILTER
PAS GHFUNKTASTPASIIBMINT10PASJKLIOFEHLERPASMNOLISTT DOC6PQRSTUVLISTT PASCh
Char I Integer LinesLeft Integer Procedure ErrorMessage(Message
Buffer) Var Ch Char Begin WriteLn(Message) W
hile KeyPressed Do Read(Kbd,Ch) Flush input buffer Write('Hit any key t
o continue or ESC to abort ') Read(Kbd,Ch) WriteLn If Ch Th
en Halt End Function CommandLineArgument(N Integer) FileName
Const Buffered BooleanFalse CommandLineBuffer String127'' RAFBG
CHDIE Var CommandLine String127 Absolute $0080 CLA FileName
I,J Integer Begin If Not Buffered Then CommandLineBufferComm
andLine BufferedTrue J1 For I1 To N Do Begin
CLA'' While (JLength(CommandLine)) And (CommandLineJ' ') Do JJ+1
While (JLength(CommandLine)) And (CommandLineJ' ') Do Begin
CLACLA+CommandLineJ JJ+1 End End 'D' PE
PE+DateString 'F' PEPE+CurrentInFileName '' CenterLeft
'' CenterRight '' Begin CenterRig
ht If Odd(CurrentPageNumber) Then CenterLeft
End '' Begin CenterLeft
If Odd(CurrentPageNumber) Then CenterRight End El
se PEPE+IngI+1 End Case IngI+1 I CommandLineArgumen
tCLA End Procedure InitParms Procedure ZeroFill(Var S Strin
g10) Var I Integer Begin For I1 To Length(S)
Do If SI' ' Then SI'0' End Var Hour,Min,AMPM,Month,Day,Y
ear String2 I Integer Begin InitParms PageLength66
LineWidth79 HiLite'' LoLite'' InitString'' ExitStri
ng'' LineNumbersFalse UpKI+1 End Else IngI'%'
II+1 End While If Length(PE)LineWidth Then PE0Chr(LineWidth)
If CenterMiddle Then PECopy(Blanks,1,(LineWidth-Length(PE)) Div 2
)+PE Else If CenterRight Then PECopy(Blanks,1,LineWidth-Length(P
E))+PE PercentExpandPE End PercentExpand entPageNumber) Then Cent
erRight End Else PEPE+IngI+1 End Cas
e IngI+1 IeysFalse PageForIncludesFalse Indent0
Heading'Listing of %F, page %# at %T %D' Footing'%F page %#' Curr
entPageNumber1 CurrentLineNumber1 Blanks'' For I1 To 200
Do BlanksBlanks+' ' TimeString'' DateString'' End
Procedure FixString(Var St FileName) Var I Integer Begin
While (St1' ') And (Length(St)0) Do Delete(St,1,1) If Pos(' ',St)0 T
hen St0Chr(Pos(' ',St)-1) For I1 To Length(St) Do StIUpCase(StI) End
Procedure FixFileName(Var FN FileName Ext String3) Begin F
ixString(FN) If Pos('.',FN)0 Then FNFN+'.'+Ext End Function P
ercentExpand(Ing Buffer) Buffer Var PE Buffer I,CPN Integer
PN String6 Center (Left,Middle,Right) Begin CenterM
iddle PE'' I1 While (ILength(Ing)) Do Beg Proced
ure WLine(S Buffer) Begin If KeyPressed Then Begin
Repeat Read(Kbd,Ch) Until Not KeyPressed Write(M,
'Terminate (Y/N) ') Read(Kbd,Ch) If UpCase(Ch)'Y' Then
Begin WriteLn('Y') Write(OutFile,ExitString)
Close(OutFile) Halt End Else Write(M,'
',M) End If KeyPressed If Not PageStarted Then Beg
in in If IngI'%' Then PEPE+IngI Else If ILength(Ing) Then PEP
E+'%' Else Begin Case UpCase(IngI+1) Of
'#' Begin PN'' CPNCurrentPageNumber
Repeat PNChr(Ord('0')+(CPN Mod 10))+PN
CPNCPN Div 10 Until CPN0
PEPE+PN End 'T' PEPE+TimeString
RAFBGCHDIE WriteLn(OutFile) WriteLn(OutFile,PercentExpand(Head
ing)) WriteLn(OutFile) PageStartedTrue End Writ
e(OutFile,Copy(Blanks,1,Indent)) If LineNumbers Then Begin
Write(OutFile,CurrentLineNumber5) If InInclude Then Write(OutFile,'
') Else Write(OutFile,' ') End Else If InInclude Then Wr
ite(OutFile,' ') WriteLn(OutFile,S) If (OutFileName'CON') And (Cur
rentLineNumber Mod 160) Comment '(' If (LineI+1'*') And
(I+1LL) Then Begin
ParseStateComment2 II+1
End '''' ParseStateQuoted
End Case LineI KeyWord If LineI In 'A'..'Z','a'..'z','0'..'
9','' Then Begin If LK10 Then
LKLK+1 Then Write(M,'Line ',CurrentLineNumber) Li
nesLeftLinesLeft-1 If LinesLeft0 Then Begin WriteLn(OutF
ile) WriteLn(OutFile,PercentExpand(Footing)) WriteLn(OutFile)
LinesLeftPageLength-6 CurrentPageNumberCurrentPageNumber+1
PageStartedFalse End End WLine Procedure NewPage
Var SaveLineNumbers Boolean Begin SaveLineNumbersLineNu
mbers LineNumbers End Else
Begin ParseStatePreKey
II-1 PossibleKey0Chr(LK)
For J1 To LK Do PossibleKeyJUpCase(LineFirst+J-
1) FoundFalse Min1
MaxNKeyWords+1 Repeat
Guess(Min+MaFalse Repeat WLine('') Until Not
PageStarted LineNumbersSaveLineNumbers End Procedure ListIt(
Var InF Text) Var Line, Remainder Buffer WasCmd Boolean
Procedure UpKeyWords Const NKeyWords45 MaxKeyLe
n9 MaxKeyLenPlus110 KeyWords Array 1..NKeyWords Of StringMaxKe
yLen ('ABSOLUTE','AND','ARRAY','BEGIN','CASE','CONST','DIV','DO',
'DOWNTO','ELSE','END',x) Div 2 If PossibleK
eyKeyWordsGuess Then FoundTrue Else If PossibleKeyKe
yWordsGuess Then MaxGuess Else MinGuess+1
Until Found Or (MinMax) If Found Then
If (LoLite'') Or (HiLite'') Then
LineCopy(Line,1,First-1)+PossibleKey+
Copy(Line,First+LK,200) 'EXTERNAL','FILE','FOR','FORWARD','FU
NCTION', 'GOTO','IF','IN','INLINE','LABEL','MOD','NIL','NOT','OF','O
R', 'OVERLAY','PACKED','PROCEDURE','PROGRAM','RECORD','REPEAT','SET'
, 'SHL','SHR','STRING','THEN','TO','TYPE','UNTIL','VAR','WHILE',
'WITH','XOR','') Var First, LL, LK, I, J Integer
PossibleKey StringMaxKeyLenPlus1 Min, Max, Guess Integer
Found Boolean Line1 Buffer Begin Else
Begin LineCopy(Line,
1,First-1)+HiLite+ Copy(Line,First,LK)+LoLit
e+ Copy(Line,First+LK,200)
LLLength(Line) II+Length(HiLite)+Leng
th(LoLite) End End Else L
ineI Not In keyword character set Comment If LineI'' Then I1
LLLength(Line)+1 If UpKeys Then Begin LineLe
ngth(Line)+1Chr(254) Line0Succ(Line0) While ILL Do
Begin Case ParseState Of PreKey Case LineI Of
'A'..'Z','a'..'z','' Begin Pa
rseStateKeyWord FirstI LK1
End '' ParseState RAFBGCHDI
EParseStatePreKey Comment2 If Copy(Line,I,2)'*)' Then ParseStateP
reKey Quoted If LineI'''' Then ParseStatePreKey End
Case ParseState II+1 End While ILL If L
ineLength(Line)Chr(254) Then Line0Pred(Line0) End If UpKeys
Line1Remainder If UpKeys And (LineLength(Line)'*') Then Line1'*'+Line1
If Not UpKeys Then Line1Line+Remainder I1 I,Temp,Code
Integer CV FileName Begin CVCmdStr
FixString(CV) Val(CV,Temp,Code) If Code0 Then
CmdValTemp Else Begin CmdValOldVal
WasCmdFalse End End Begin Che
ckDirective WasCmdFalse If LineWhere'.' Then
Begin CmdCopy(Line,Where+1,2) For I LLLength(
Line1)+1 While ILL Do Begin Case Line1I Of
'' If ParseStateQuoted Then ParseStateComment '(' If (Pa
rseStateQuoted) And (Copy(Line1,I,2)'(*') Then ParseStateCo
mment2 '' If ParseStateComment Then ParseStatePreKey
'*' If (ParseStateComment2) And (Copy(Line1,I,2)'*)') Then
ParseStatePreKey '''' If ParseStateQuoted T1 To 2 Do CmdIUpcase(C
mdI) WasCmdTrue If Cmd'PL' Then Begin
If PageStarted Then NewPage PageLengthCmdVal(PageLen
gth) If PageLength7 Then PageLength7 LinesLeftPage
Length-6 End Else If Cmd'PA' Then NewPage
Else If Cmd'CP' Then Begin If LinesLeftCmdVal(0)
Then NewPage End Else If Cmd'PO' Then ParseStatePreKe
y Else If ParseStatePreKey Then ParseStateQuoted
End II+1 End While ILL If ParseStateQuoted T
hen ParseStatePreKey End UpKeyWords Procedure TruncateLine
Var Extra Integer Begin ExtraIndent If
LineNumbers Then ExtraExtra+7 Else If InInclude Then ExtraExtra+2
If Length(Line)+ExtraLineWidth Then Begin hen IndentCmdVal(Ind
ent) Else If Cmd'HE' Then HeadingCmdStr Else If Cmd'FO
' Then FootingCmdStr Else If Cmd'HI' Then HiLiteCmdStr
Else If Cmd'LO' Then LoLiteCmdStr Else If Cmd'L-' Then NoListTrue
Else If Cmd'L+' Then NoListFalse Else If Cmd'U-' Then
UpKeysFalse Else If Cmd'U+' Then UpKeysTrue Else If Cm
d'N-' Then LineNumbersFalse Else If Cmd'N+' Then RemainderC
opy(Line,LineWidth-Extra+1,200) LineCopy(Line,1,LineWidth-Extra)
End Else Remainder'' End If ParseStateQuot
ed Then ParseStatePreKey End UpKeyWords Procedure TruncateLine
Var Extra Integer Begin ExtraIndent
If LineNumbers Then ExtraExtra+7 Else If InInclude Then ExtraExtra+2
If Length(Line)+ExtraLineWidth Then Begin LineNumbersTrue
Else If Cmd'P-' Then PageForIncludesFalse Else If Cmd'
P+' Then PageForIncludesTrue Else If Cmd'LW' Then LineWidthCmdVal(L
ineWidth) Else If Cmd'PR' Then Write(OutFile,CmdStr) E
lse WasCmdFalse End If LineWhere'.' Else If (LineWhere'
$') And (UpCase(LineWhere+1)'I') And Not (LineWhere+2 In '-',
'+') Then Begin IncludeNameCopy(Line,Wh Procedure
ProcessDirectives Var Cmd String3 IncludeName FileNam
e IncludeFile Text Where, Temp, OffSet Integer RightP
art Buffer Delimiter String2 WasEmpty Boolean Proce
dure CheckDirective(Where, Len Integer) Function CmdStr Buffer
Begin CmdStrCopy(Line,Where+3,Len-3) End
Function CmdVal(OldVal Integer) Integer Var RAFBGCHDIE
ere+2,Len-2) FixFileName(IncludeName,'PAS') If (Includ
eName2'') And (IncludeDrive' ') Then IncludeNameIncludeDrive+''+I
ncludeName If InInclude Then Line'-- Illegal nested
include of file '+IncludeName+' --' Else Begin
Assign(IncludeFile,IncludeName) $I- Reset(IncludeFile) $
I+ Ok(IOResult0) If Not Ok Then Line'-- Include fi
le '+ End '(' Begin TempPos('*)',Copy(Line,Wher
e+2,200))-1 If Temp-1 Then TempLength(Copy(Line,Where+2,200)
)-1 CheckDirective(Where+2,Temp) If Not
WasCmd Then WhereWhere+Temp+3 End Else Where0
End Case DelimiterI If Where201 Then Where0 Unti
l Where0 WasCmdNot WasEmpty And (Line'') End ProcessDirectives
IncludeName+' not found --' Else Begin
If PageForIncludes And PageStarted Then NewPage Curren
tInFileNameInFileName+'-include file '+IncludeName WLine(Line)
WasCmdTrue InIncludeTrue Curr
entLineNumberCurrentLineNumber+1 ListIt(IncludeFile)
CurrentLineNumberCurrentLineNumber-1 InIncludeFalse
Begin ListIt While Not Eof(InF) Do Begin
ReadLn(InF,Line) WasCmdFalse ProcessDirectives
TruncateLine UpKeyWords If Not (WasCmd And (Line'')) And Not
NoList Then WLine(Line) CurrentLineNumberCurrentLineNumber+1 E
nd End ListIt Procedure Say(S Buffer) Var I Integer
Begin I1 While ILength(S) Do Begin If Ord(
SI)32 Then WritIf PageForIncludes And PageStarted Then NewPage
CurrentInFileNameInFileName End Else include file was found
End Else not currently in include End If include dire
ctive If WasCmd Then Delete(Line,Where-Length(Delimiter
),Len+2*Length(Delimiter)) End CheckDirective Begin Proce
ssDirectives WasEmpty(Line'') Where1 Repeat
Delimiter' ' e('',Chr(Ord(SI)+64)) Else If SI'%' Then Write(SI)
Else If SI+1'' Then Begin WriteLn II+1
End Else If SI+1'!' Then Begin HighVideo
if your computer has no high/low video Write(SI+2)
replace these 3 lines with LowVideo
Write(SI+2,')') II+2 End Else
Write('%') RightPartCopy(Line,Where,200) OffSet201-Where
TempPos('',RightPart) If (Temp0) And (TempOffSet) Then
Begin OffSetTemp Delimiter'' End
TempPos('(*',RightPart) If (Temp0) And (TempOffSet) Then
Begin OffSetTemp Delimiter'(*' En
d TempPos('''',RightPart) If (Temp0) And (TempOffSet) Then
II+1 End While ILength(S) End Say Else If SI+
1'' Then Begin WriteLn II+1 End
Else If SI+1'!' Then Begin HighVideo if your co
mputer has no high/low video Write(SI+2) replace these 3 l
ines with LowVideo Write(SI+2,')')
II+2 End Else Write('%')
Begin OffSetTemp Delimiter'''' End
WhereWhere+OffSet-1 Case Delimiter1 Of '''' Where
Where+Pos('''',Copy(Line,Where+1,200))+1 '' Begin
TempPos('',Copy(Line,Where+1,200))-1 If Temp-1 Then TempL
ength(Copy(Line,Where+1,200))-1 CheckDirective(Where+1,Temp)
If Not WasCmd Then WhereWhere+Temp+1 RAF
BGCHDIE Function AskString(Prompt Buffer Param Buffer) Buffer Var
I Integer Skip Boolean AS Buffer Ch Char Begin
ASParam WriteLn Say(Prompt) I0 Repeat
SkipFalse Read(Kbd,Ch) Case Ch Of H,S,#127
Begin SkipTrue If I0 Then B
egin Write(H,' ',H) If Ord(ASI)32 Then Write(H
Say('%!Initialization string "'+InitString+'"%') Say('%!Exit strin
g "'+ExitString+'"%%') Say('%!Drive for include files '+IncludeDrive)
If IncludeDrive' ' Then Write('') Say('%%%!Quit%%')
End If ReDraw Read(Kbd,Command) ReDrawTrue Cas
e Upcase(Command) Of 'P' AskInt('New page length ',PageLength)
'W' AskInt('New line width ',LineWidth) 'H' HiLiteAskString(','
',H) II-1 End End A,X
Begin SkipTrue While I0 Do
Begin Write(H,' ',H) If Ord(ASI)32 Then W
rite(H' 'H) II-1 End End
D If Length(AS)I Then ChASI+1 Else SkipTrue F,R
Begin SkipTrue While LengtNew hilite stri
ng ',HiLite) 'L' LoLiteAskString('New lolite string ',LoLite)
'I' InitStringAskString('New printer initialization string ',
InitString) 'E' ExitStringAskString('New prin
ter exit string ', ExitString)
'D' Begin Say('%New drive for include files ')
Read(Kbd,IncludeDrive) If IncludeDrive In 'A'..'Z','ah(AS)I
Do Begin II+1 If Ord(ASI)31 T
hen Write(ASI) Else Write('',Chr(Ord(ASI)+64))
End End P Read(Kbd,Ch) M SkipTrue E
nd Case Ch If Not Skip Then Begin If Ord(Ch)31 T
hen Write(Ch) Else Write('',Chr(Ord(Ch)+64)) II+1
ASICh If ILength(AS) Then AS0Chr(I) End'..'z' Then
IncludeDriveUpcase(IncludeDrive) Else IncludeDr
ive' ' End Else ReDrawFalse End Case Comma
nd Until Upcase(Command)'Q' End HardwareMenu Procedure For
matMenu Var Command Char ReDraw Boolean TempBuf Buff
er Begin ReDrawTrue Repeat If ReDraw Then
Begin Title Say('%Formatting parameters% Until Sk
ip And (ChM) AS0Chr(I) AskStringAS End AskString Pro
cedure AskInt(Prompt Buffer Var Param Integer) Var Temp Buffer
P,Legal Integer Begin Str(Param,Temp) TempAskString(Pro
mpt,Temp) Val(Temp,P,Legal) If Legal0 Then ParamP End
Procedure Title Begin ClrScr HighVideo WriteLn('Turb
o Pascal Program Lister Ver. 2.00A Copyright (C) 1984 BORL%Print line %!Number
s '+ YesNoLineNumbers) Say('%Hilite %!Reserved words '
+YesNoUpKeys) Say('%%!Start a new page for each include file '+
YesNoPageForIncludes) Say('%%%!Indent lines by ')
WriteLn(Indent) Say('%%!Heading "'+Heading+'"%') TempB
ufPercentExpand(Heading) Say(' Example "'+TempBuf+'"%') S
ay('%!Footing "'+Footing+'"%') TempBufPerceAND Int''l Inc.')
LowVideo End Procedure HardwareMenu Var Command Char
ReDraw Boolean Begin ReDrawTrue Repeat If R
eDraw Then Begin Title Say('%Hardware parameters
%%%!Page length ') WriteLn(PageLength) Say('Line %!Width '
) WriteLn(LineWidth) Say('%%!Hilite string "'+HiLite+'"%')
Say('%!Lolite string "'+LoLite+'"%%') RAFBGCHDIEntExpand(F
ooting) Say(' Example "'+TempBuf+'"%') Say('%Starting %!P
age number ') WriteLn(CurrentPageNumber) Say('Starting %!L
ine number ') WriteLn(CurrentLineNumber) Say('%%!Quit%%')
End If ReDraw Read(Kbd,Command) ReDrawTrue
Case Upcase(Command) Of 'N' LineNumbersNot LineNumbers '
R' UpKeysNot UpKeys 'S' PageForIncludesNot PageForInclude Procedur
e MainMenu Var Command Char ReDraw Boolean PP Record
Case Integer Of 1 (P1000 ParameterRecord) 2 (Parmz Pa
rameterSet) End Begin If OutFileName'.LIS' Then OutFile
Name'P' CurrentInFileNameInFileName ReDrawTrue Repeat
If ReDraw Then Begin Title Say('%Main menu%%
%!Input file ') Write(InFileName) Say('%%!Outps
'I' AskInt('New indent ',Indent) 'H' HeadingAskString('New heading
',Heading) 'F' FootingAskString('New footing ',Footing) 'P
' AskInt('Starting page number ',CurrentPageNumber) 'L' AskInt('Start
ing line number ',CurrentLineNumber) Else ReDrawFalse End
Until Upcase(Command)'Q' End FormatMenu Procedure LoadParms
Var PP Record Case Integer Of 1 (P1000 Paut file ')
If OutFileName'S' Then Write('The screen') Else If OutFileN
ame'P' Then Write('The printer') Else Write(OutFileName) S
ay('%%%!Load parameter file%') Say('%!Save parameter file%%')
Say('%!Hardware parameters%') Say('%!Formatting parameters%%')
Say('%!Time ') WriteLn(TimeString) Say('%!Date ')
WriteLn(DateString) Say('%%!Reset line and page numberame
terRecord) 2 (Parmz ParameterSet) End Begin
Assign(ParmFile,ParmFileName) $I- Reset(ParmFile) $I+ If IOResul
t0 Then ErrorMessage('Parameter file not found') Else Begin
Read(ParmFile,PP.P1000) ParmsPP.Parmz Close(ParmFile)
If InFileName'' Then InFileNameSavedInFileName If (OutFileName'')
Or (OutFileName'P') Or (OutFileName'S') Then OutFileNameSavedOutFileN
ars%%%!Quit%%!Go%%') End If ReDraw Read(Kbd,Command)
CommandUpcase(Command) ReDrawTrue Case Command Of
'I' Begin InFileNameAskString('Input file name ',InFileName)
If InFileName'' Then FixFileName(InFileName,'PAS')
CurrentInFileNameInFileName If (IncludeDrive' ') And (
InFileName2'') Then IncludeDriveInFileName1 me
End Else parameter file was found End LoadParms gin As
sign(ParmFile,ParmFileName) $I- Reset(ParmFile) $I+ If IOResult0 T
hen ErrorMessage('Parameter file not found') Else Begin
Read(ParmFile,PP.P1000) ParmsPP.Parmz Close(ParmFile)
If InFileName'' Then InFileNameSavedInFileName If (OutFileName'') Or (
OutFileName'P') Or (OutFileName'S') Then OutFileNameSavedOutFileNa
End 'O' Begin OutFileNameAskString('Output file n
ame (or Sthe screen or Pthe printer) ',OutFileName) FixString(
OutFileName) If (OutFileName'P') And (OutFileName'S') Then
FixFileName(OutFileName,'LIS') End '
T' TimeStringAskString('Current time ',TimeString) 'D' DateStringAskS
tring('Current date ',DateString) 'L' Begin ParmFil
eNa RAFBGCHDIEmeAskString('Parameter file name ',ParmFileName)
FixFileName(ParmFileName,'LTP') WriteLn(M,'Parameter file na
me ',ParmFileName) LoadParms Delay(500)
End 'S' Begin ParmFileNameAskString('Pa
rameter file name ',ParmFileName) FixFileName(ParmFileName,'LT
P') WriteLn(M,'Parameter file name ',ParmFileName)
Assign(ParmFile,Parm OutFileName1'&' Then Begin CurrentInFil
eNameOutFileName Temporary OutFileNameParmFileName ParmFileNameC
opy(CurrentInFileName,2,20) End If ParmFileName1'&' Then Delete(ParmF
ileName,1,1) FixFileName(InFileName,'PAS') If InFileName'.PAS' Then In
FileName'' IncludeDrive' ' If InFileName2'' Then IncludeDriveInFileNam
e1 FixString(OutFileName) If (OutFileName'S') And (OutFileName'P') The
n FixFileNaFileName) $I- Reset(ParmFile) $I+
Command'Y' If IOResult0 Then Begin
Close(ParmFile) Write('Overwrite (DESTRO
Y) old ',ParmFileName,' ') ReadLn(Command)
CommandUpcase(Command) End If Command'Y'
Then Begin Assign(ParmFile,ParmFileName)
$I- Rewme(OutFileName,'LIS') If OutFileName'.LIS' Then
OutFileName'' FixFileName(ParmFileName,'LTP') InitParms If ParmF
ileName'.LTP' Then LoadParms If OutFileName'' Then OutFileName'P' If I
nFileName'' Then MainMenu Else CommandLineStartupTrue Repeat As
sign(InFile,InFileName) $I- Reset(InFile) $I+ Ok(IOResult0)
If Not Ok Then ErrorMessage('File '+InFileName+' does not exist!')
Else Begin rite(ParmFile) $I+ If IOResu
lt0 Then Begin SavedInFileNameInFileN
ame SavedOutFileNameOutFileName Fill
Char(PP.P1000,1000,0) PP.ParmzParms
Write(ParmFile,PP.P1000) Close(ParmFile)
End If IOResult0 Else ErrorMessage(ParmFileName+' coul
d not be opened.') End OutIsDeviceFalse If (OutFile
Name'S') Or (OutFileName'P') Then Begin OutIsDeviceTrue
If OutFileName'S' Then OutFileName'CON' Else OutFileName'LST'
End Assign(OutFile,OutFileName) $I- Reset(OutFile)
Ok(IOResult0) Or OutIsDevice Close(OutFile) $I+ If No
t Ok Then Begin Write('File ',OutFileName,' exists. Replac
e (DESTROY) it (Y/N) ') ReadLn(ChIf Command'Y' Els
e Command' ' End 'H' HardwareMenu 'F' For
matMenu 'R' Begin CurrentLineNumber1
CurrentPageNumber1 End 'G' If (InFileName'') Or (
OutFileName'') Then ErrorMessage('Both input and output filena
mes must be specified!') Else ReDrawFalse End Case Command
Until (Command'Q') Or (Command'G') ) If UpCase(Ch)'Y' Then
OkTrue End If Ok Then Begin Assign(OutFi
le,OutFileName) $I- Rewrite(OutFile) $I+ Ok(IOResult0)
If Not Ok Then ErrorMessage('File '+OutFileName+' could not be created.'
) Else Begin If OutFileName'LST' Then
Begin Write('Position printer at top of form and hit retu
rn ') ReadLn End WriteLn If C
ommand'Q' Then begin normvideo Halt end End
MainMenu Begin ListTurbo InFileNameCommandLineArgument(1)
OutFileNameCommandLineArgument(2) ParmFileNameCommandLineArgument(3) I
f InFileName1'&' Then Begin CurrentInFileNameInFileName Temporary
InFileNameOutFileName OutFileNameParmFileName ParmFileName
Copy(CurrentInFileName,2,20) End Else If RAFBGCHDIE Write(OutFile
,InitString) LinesLeftPageLength-6 CurrentInFileNameIn
FileName ListIt(InFile) If PageStarted Then NewPage
Write(OutFile,ExitString) Close(OutFile) End
Else output file was succesfully created End If Ok End E
lse input file was found If OutFileName'LST' Then OutFileName'P'
Else If OutFileName'CON' Then OutFileName'S' If Not Command P0#*6w0#6 %F
page %## xDIR ERA TYPESAVEREN USER!yO# Ty#O321y2y21A92.!#Listing of %F, page %#
!READ ERRORNO FILE! 3#0 WxxG # 3x#B!Y2!!T! -0K-1BLineStartup Then MainMenu
Until CommandLineStartup End. ListTurbo stIt(InFile) If Page
Started Then NewPage Write(OutFile,ExitString) Close(O
utFile) End Else output file was succesfully created End
If Ok End Else input file was found If OutFileName'LST' Then
OutFileName'P' Else If OutFileName'CON' Then OutFileName'S' If No
t CommandPROGRAM Meinname CONST Sovielmal 20 VAR Name Str
ing25 Zeilenanzahl integer BEGIN WRITE('Geben Sie bitte hier Ihren Na
men ein ') READLN(Name) CLRSCR FOR Zeilenanzahl 1 TO Sovielmal DO
BEGIN WRITELN('Sie heien ',Name) END END. RAFBGCHDIE RAFBGCH
DIE R A F B G C H D I E !R!A!F!B!G!C!H!D!I!E "R"A"F"B"G"C"H"D"I"E #R#A#F#B#
G#C#H#D#I#E $R$A$F$B$G$C$H$D$I$E %R%A%F%B%G%C%H%D%I%E &R&A&F&B&G&C&H&D&I&E '
R'A'F'B'G'C'H'D'I'E %4 B J&8 C &7 C I" 0 /#8 D&6 A F%6 A F%B C$4 C$3 C #. 8
'5 C%2 B%1 9 D"0 5 $2 D ' ( ,&4 $0 ( 1 4"+ 5 8- B"0 $ ($0 8 #0 5 5% . 2$0
8 #, 6 9#7 5 4"+ 1 5#. 5 5 £##0 8 9"- 6 8#. 6 6!E - 2., 3 B!) . 1.. 6 7Tous droits réservés. Reproduction sans autorisation interdite. © Kukulcan