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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Size : 512 (Real : 512)
000000: 00 49 4E 4C 49 4E 45 20 20 50 41 53 00 00 00 08  .INLINE  PAS....
000010: 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000020: 00 41 55 53 53 50 45 49 20 50 41 53 00 00 00 13  .AUSSPEI PAS....
000030: 03 04 05 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000040: 00 42 45 46 4C 45 53 20 20 50 41 53 00 00 00 06  .BEFLES  PAS....
000050: 06 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000060: 00 4F 4B 49 39 32 20 20 20 4C 54 50 00 00 00 08  .OKI92   LTP....
000070: 07 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000080: 00 4F 4B 49 39 33 20 20 20 4C 54 50 00 00 00 08  .OKI93   LTP....
000090: 08 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000A0: 00 50 41 53 53 20 20 20 20 41 53 4D 00 00 00 09  .PASS    ASM....
0000B0: 09 0A 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000C0: 00 50 41 53 53 46 55 4E 43 50 41 53 00 00 00 04  .PASSFUNCPAS....
0000D0: 0B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000E0: 00 50 55 46 46 45 52 20 20 50 41 53 00 00 00 07  .PUFFER  PAS....
0000F0: 0C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000100: 00 51 44 4C 20 20 20 20 20 50 41 53 00 00 00 50  .QDL     PAS...P
000110: 0D 0E 0F 10 11 12 13 14 15 16 00 00 00 00 00 00  ................
000120: 00 52 45 41 44 20 20 20 20 4D 45 20 00 00 00 19  .READ    ME ....
000130: 17 18 19 1A 00 00 00 00 00 00 00 00 00 00 00 00  ................
000140: 00 53 43 41 4C 41 52 45 20 50 41 53 00 00 00 21  .SCALARE PAS...!
000150: 1B 1C 1D 1E 1F 00 00 00 00 00 00 00 00 00 00 00  ................
000160: 00 53 50 49 45 4C 31 20 20 50 41 53 00 00 00 2A  .SPIEL1  PAS...*
000170: 20 21 22 23 24 25 00 00 00 00 00 00 00 00 00 00   !"#$%..........
000180: 00 54 42 4F 4D 41 55 53 20 50 41 53 00 00 00 0D  .TBOMAUS PAS....
000190: 26 27 00 00 00 00 00 00 00 00 00 00 00 00 00 00  &'..............
0001A0: 00 56 45 52 53 49 4F 4E 20 50 41 53 00 00 00 04  .VERSION PAS....
0001B0: 28 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  (...............
0001C0: 00 5A 55 46 41 4C 4C 20 20 50 41 53 00 00 00 17  .ZUFALL  PAS....
0001D0: 29 2A 2B 00 00 00 00 00 00 00 00 00 00 00 00 00  )*+.............
0001E0: 00 43 48 4E 47 44 49 52 20 50 41 53 00 00 00 0B  .CHNGDIR PAS....
0001F0: 2C 2D 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ,-..............

Size : 512 (Real : 512)
000000: 20 20 20 7B 20 49 4E 43 20 20 20 20 20 44 49 20     { INC     DI 
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7D 0D                }.
000020: 0A 20 20 20 20 20 24 32 36 2F 24 44 30 2F 24 31  .     $26/$D0/$1
000030: 44 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20  D);             
000040: 20 7B 20 52 43 52 20 20 20 20 20 45 53 3A 42 59   { RCR     ES:BY
000050: 54 45 20 50 54 52 20 5B 44 49 5D 20 7D 0D 0A 65  TE PTR [DI] }..e
000060: 6E 64 3B 20 7B 20 64 65 72 20 50 72 6F 7A 65 64  nd; { der Prozed
000070: 75 72 20 56 49 6E 4C 69 6E 65 20 7D 0D 0A 0D 0A  ur VInLine }....
000080: 62 65 67 69 6E 20 7B 20 48 61 75 70 74 70 72 6F  begin { Hauptpro
000090: 67 72 61 6D 6D 20 76 6F 6E 20 49 6E 4C 69 6E 65  gramm von InLine
0000A0: 42 65 69 73 70 69 65 6C 20 7D 0D 0A 20 20 43 6C  Beispiel }..  Cl
0000B0: 72 53 63 72 3B 0D 0A 20 20 72 65 70 65 61 74 0D  rScr;..  repeat.
0000C0: 0A 20 20 20 20 57 72 69 74 65 28 27 42 69 74 74  .    Write('Bitt
0000D0: 65 20 67 65 62 65 6E 20 53 69 65 20 65 69 6E 65  e geben Sie eine
0000E0: 20 5A 61 68 6C 20 65 69 6E 2C 20 3C 30 3E 20 66   Zahl ein, <0> f
0000F0: 7D 72 20 45 6E 64 65 20 3A 20 27 29 3B 0D 0A 20  }r Ende : ');.. 
000100: 20 20 20 52 65 61 64 4C 6E 28 56 61 6C 75 65 29     ReadLn(Value)
000110: 3B 0D 0A 20 20 20 20 56 49 6E 4C 69 6E 65 28 56  ;..    VInLine(V
000120: 61 6C 75 65 29 3B 0D 0A 20 20 20 20 57 72 69 74  alue);..    Writ
000130: 65 4C 6E 28 27 44 61 73 20 45 72 67 65 62 6E 69  eLn('Das Ergebni
000140: 73 20 69 73 74 20 3A 20 20 20 20 20 20 20 20 20  s ist :         
000150: 20 20 20 27 2C 56 61 6C 75 65 29 3B 0D 0A 20 20     ',Value);..  
000160: 75 6E 74 69 6C 20 56 61 6C 75 65 20 3D 20 30 3B  until Value = 0;
000170: 0D 0A 20 20 43 6C 72 53 63 72 3B 0D 0A 65 6E 64  ..  ClrScr;..end
000180: 2E 20 7B 20 64 65 73 20 50 72 6F 67 72 61 6D 6D  . { des Programm
000190: 73 20 49 6E 4C 69 6E 65 42 65 69 73 70 69 65 6C  s InLineBeispiel
0001A0: 20 7D 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A   }..............
0001B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0001C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0001D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0001E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0001F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................

Size : 512 (Real : 512)
000000: 00 43 4F 4D 4C 49 42 20 20 50 41 53 00 00 00 34  .COMLIB  PAS...4
000010: 2E 2F 30 31 32 33 34 00 00 00 00 00 00 00 00 00  ./01234.........
000020: 00 43 50 4D 44 49 52 20 20 50 41 53 00 00 00 09  .CPMDIR  PAS....
000030: 35 36 00 00 00 00 00 00 00 00 00 00 00 00 00 00  56..............
000040: 00 43 50 4D 53 54 41 54 20 50 41 53 00 00 00 19  .CPMSTAT PAS....
000050: 37 38 39 3A 00 00 00 00 00 00 00 00 00 00 00 00  789:............
000060: 00 44 45 46 41 55 4C 54 20 4C 54 50 00 00 00 08  .DEFAULT LTP....
000070: 3B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ;...............
000080: 00 44 49 52 45 43 54 52 59 50 41 53 00 00 00 14  .DIRECTRYPAS....
000090: 3C 3D 3E 00 00 00 00 00 00 00 00 00 00 00 00 00  <=>.............
0000A0: 00 44 49 53 4B 53 54 55 53 50 41 53 00 00 00 1A  .DISKSTUSPAS....
0000B0: 3F 40 41 42 00 00 00 00 00 00 00 00 00 00 00 00  ?@AB............
0000C0: 00 45 50 53 4F 4E 31 30 30 4C 54 50 00 00 00 08  .EPSON100LTP....
0000D0: 43 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  C...............
0000E0: 00 45 50 53 4F 4E 38 30 20 4C 54 50 00 00 00 08  .EPSON80 LTP....
0000F0: 44 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  D...............
000100: 00 46 49 4C 4C 43 48 41 52 50 41 53 00 00 00 09  .FILLCHARPAS....
000110: 45 46 00 00 00 00 00 00 00 00 00 00 00 00 00 00  EF..............
000120: 00 46 49 4C 54 45 52 20 20 50 41 53 00 00 00 0D  .FILTER  PAS....
000130: 47 48 00 00 00 00 00 00 00 00 00 00 00 00 00 00  GH..............
000140: 00 46 55 4E 4B 54 41 53 54 50 41 53 00 00 00 07  .FUNKTASTPAS....
000150: 49 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  I...............
000160: 00 49 42 4D 49 4E 54 31 30 50 41 53 00 00 00 12  .IBMINT10PAS....
000170: 4A 4B 4C 00 00 00 00 00 00 00 00 00 00 00 00 00  JKL.............
000180: 00 49 4F 46 45 48 4C 45 52 50 41 53 00 00 00 17  .IOFEHLERPAS....
000190: 4D 4E 4F 00 00 00 00 00 00 00 00 00 00 00 00 00  MNO.............
0001A0: 00 4C 49 53 54 54 20 20 20 44 4F 43 00 00 00 36  .LISTT   DOC...6
0001B0: 50 51 52 53 54 55 56 00 00 00 00 00 00 00 00 00  PQRSTUV.........
0001C0: 00 4C 49 53 54 54 20 20 20 50 41 53 00 00 00 02  .LISTT   PAS....
0001D0: 57 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  W...............
0001E0: 00 4C 49 53 54 54 31 20 20 49 4E 43 00 00 00 2B  .LISTT1  INC...+
0001F0: 58 59 5A 5B 5C 5D 00 00 00 00 00 00 00 00 00 00  XYZ[\]..........

Size : 512 (Real : 512)
000000: 0D 0A 70 72 6F 67 72 61 6D 20 53 63 72 65 65 6E  ..program Screen
000010: 4D 61 70 3B 0D 0A 0D 0A 20 20 28 2A 20 20 50 72  Map;....  (*  Pr
000020: 6F 67 72 61 6D 6D 20 7A 75 6D 20 64 69 72 65 6B  ogramm zum direk
000030: 74 65 6E 20 73 63 68 72 65 69 62 65 6E 20 61 75  ten schreiben au
000040: 66 20 64 65 6E 20 42 69 6C 64 73 63 68 69 72 6D  f den Bildschirm
000050: 73 70 65 69 63 68 65 72 20 20 2A 29 0D 0A 0D 0A  speicher  *)....
000060: 63 6F 6E 73 74 0D 0A 20 20 46 61 72 62 53 65 67  const..  FarbSeg
000070: 20 20 20 3D 20 24 42 30 30 30 3B 0D 0A 20 20 46     = $B000;..  F
000080: 61 72 62 4F 66 73 20 20 20 3D 20 24 38 30 30 30  arbOfs   = $8000
000090: 3B 0D 0A 20 20 42 57 53 65 67 20 20 20 20 20 3D  ;..  BWSeg     =
0000A0: 20 24 42 30 30 30 3B 0D 0A 20 20 42 57 4F 66 73   $B000;..  BWOfs
0000B0: 20 20 20 20 20 3D 20 24 30 30 30 30 3B 0D 0A 0D       = $0000;...
0000C0: 0A 76 61 72 0D 0A 20 20 49 2C 4A 20 20 20 20 20  .var..  I,J     
0000D0: 20 20 20 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 20     : Integer;.. 
0000E0: 20 43 20 20 20 20 20 20 20 20 20 20 3A 20 43 68   C          : Ch
0000F0: 61 72 3B 0D 0A 20 20 5A 65 69 6C 65 6E 4E 72 2C  ar;..  ZeilenNr,
000100: 0D 0A 20 20 53 70 61 6C 74 65 6E 4E 72 2C 0D 0A  ..  SpaltenNr,..
000110: 20 20 4C 61 65 6E 67 65 2C 0D 0A 20 20 52 69 63    Laenge,..  Ric
000120: 68 74 75 6E 67 20 20 20 3A 20 49 6E 74 65 67 65  htung   : Intege
000130: 72 3B 0D 0A 20 20 44 69 72 65 63 74 69 6F 6E 20  r;..  Direction 
000140: 20 3A 20 43 68 61 72 3B 0D 0A 0D 0A 70 72 6F 63   : Char;....proc
000150: 65 64 75 72 65 20 58 28 4A 2C 4B 20 3A 20 49 6E  edure X(J,K : In
000160: 74 65 67 65 72 29 3B 0D 0A 62 65 67 69 6E 0D 0A  teger);..begin..
000170: 20 20 4D 65 6D 5B 42 77 53 65 67 3A 42 77 4F 66    Mem[BwSeg:BwOf
000180: 73 20 2B 20 4A 5D 20 3A 3D 20 4B 20 20 20 20 28  s + J] := K    (
000190: 2A 20 73 63 68 72 65 69 62 65 6E 20 61 75 66 20  * schreiben auf 
0001A0: 64 65 6E 20 42 69 6C 64 73 63 68 69 72 6D 73 70  den Bildschirmsp
0001B0: 65 69 63 68 65 72 20 2A 29 0D 0A 65 6E 64 3B 20  eicher *)..end; 
0001C0: 28 2A 20 76 6F 6E 20 50 72 6F 7A 65 64 75 72 20  (* von Prozedur 
0001D0: 58 20 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 72  X *)....procedur
0001E0: 65 20 59 28 52 2C 43 2C 4E 2C 43 68 2C 44 20 3A  e Y(R,C,N,Ch,D :
0001F0: 20 49 6E 74 65 67 65 72 29 3B 20 20 20 28 2A 20   Integer);   (* 

Size : 512 (Real : 512)
000000: 00 4C 49 53 54 54 32 20 20 49 4E 43 00 00 00 36  .LISTT2  INC...6
000010: 5E 5F 60 61 62 63 64 00 00 00 00 00 00 00 00 00  ^_`abcd.........
000020: 00 4C 49 53 54 54 33 20 20 49 4E 43 00 00 00 35  .LISTT3  INC...5
000030: 65 66 67 68 69 6A 6B 00 00 00 00 00 00 00 00 00  efghijk.........
000040: 00 4C 49 53 54 54 34 20 20 49 4E 43 00 00 00 31  .LISTT4  INC...1
000050: 6C 6D 6E 6F 70 71 72 00 00 00 00 00 00 00 00 00  lmnopqr.........
000060: 00 4C 49 53 54 54 35 20 20 49 4E 43 00 00 00 39  .LISTT5  INC...9
000070: 73 74 75 76 77 78 79 7A 00 00 00 00 00 00 00 00  stuvwxyz........
000080: 00 4D 45 49 4E 4E 41 4D 45 50 41 53 00 00 00 03  .MEINNAMEPAS....
000090: 7B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  {...............
0000A0: 00 4F 4B 49 38 32 20 20 20 4C 54 50 00 00 00 08  .OKI82   LTP....
0000B0: 7C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  |...............
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: 72 3D 5A 65 69 6C 65 20 43 3D 53 70 61 6C 74 65  r=Zeile C=Spalte
000010: 20 6E 3D 4C 61 65 6E 67 65 20 63 68 3D 63 68 61   n=Laenge ch=cha
000020: 72 20 2A 29 0D 0A 76 61 72 0D 0A 20 20 49 2C 4A  r *)..var..  I,J
000030: 20 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 62 65 67   : Integer;..beg
000040: 69 6E 0D 0A 20 20 4A 20 3A 3D 28 28 52 2D 31 29  in..  J :=((R-1)
000050: 2A 31 36 30 29 20 2B 20 28 28 43 2D 31 29 2A 32  *160) + ((C-1)*2
000060: 29 3B 20 20 20 20 20 20 28 2A 20 42 65 72 65 63  );      (* Berec
000070: 68 6E 65 20 53 74 61 72 74 70 75 6E 6B 74 20 2A  hne Startpunkt *
000080: 29 0D 0A 20 20 66 6F 72 20 49 20 3A 3D 20 31 20  )..  for I := 1 
000090: 74 6F 20 4E 20 64 6F 20 62 65 67 69 6E 0D 0A 20  to N do begin.. 
0000A0: 20 20 20 58 28 4A 2C 43 68 29 3B 20 20 20 20 20     X(J,Ch);     
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000C0: 20 20 20 28 2A 20 53 63 68 6C 65 69 66 65 20 4E     (* Schleife N
0000D0: 20 6D 61 6C 20 2A 29 0D 0A 20 20 20 20 69 66 20   mal *)..    if 
0000E0: 44 3D 30 0D 0A 20 20 20 20 20 20 74 68 65 6E 20  D=0..      then 
0000F0: 4A 20 3A 3D 20 4A 20 2B 20 31 36 30 0D 0A 20 20  J := J + 160..  
000100: 20 20 20 20 65 6C 73 65 20 4A 3A 3D 20 4A 2B 32      else J:= J+2
000110: 3B 0D 0A 20 20 65 6E 64 0D 0A 65 6E 64 3B 20 28  ;..  end..end; (
000120: 2A 20 76 6F 6E 20 50 72 6F 7A 65 64 75 72 20 59  * von Prozedur Y
000130: 20 2A 29 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 20   *)....begin..  
000140: 43 6C 72 53 63 72 3B 0D 0A 20 20 47 6F 74 6F 58  ClrScr;..  GotoX
000150: 59 28 32 30 2C 31 30 29 3B 0D 0A 20 20 57 72 69  Y(20,10);..  Wri
000160: 74 65 28 27 57 6F 6C 6C 65 6E 20 53 69 65 20 73  te('Wollen Sie s
000170: 70 69 65 6C 65 6E 20 3C 4A 2F 4E 3E 3F 20 27 29  pielen <J/N>? ')
000180: 3B 0D 0A 20 20 52 65 61 64 28 6B 62 64 2C 43 29  ;..  Read(kbd,C)
000190: 3B 0D 0A 20 20 69 66 20 28 43 20 3D 20 27 6A 27  ;..  if (C = 'j'
0001A0: 29 20 6F 72 20 28 43 20 3D 20 27 4A 27 29 20 74  ) or (C = 'J') t
0001B0: 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 72  hen begin..    r
0001C0: 65 70 65 61 74 0D 0A 20 20 20 20 20 20 43 6C 72  epeat..      Clr
0001D0: 53 63 72 3B 0D 0A 20 20 20 20 20 20 47 6F 74 6F  Scr;..      Goto
0001E0: 58 59 28 32 30 2C 31 30 29 3B 0D 0A 20 20 20 20  XY(20,10);..    
0001F0: 20 20 57 72 69 74 65 28 27 57 6F 6C 6C 65 6E 20    Write('Wollen 

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

Size : 512 (Real : 512)
000000: 53 69 65 20 65 69 6E 65 20 4C 69 6E 69 65 20 5A  Sie eine Linie Z
000010: 65 69 63 68 6E 65 6E 20 3C 4A 2F 4E 3E 20 3F 20  eichnen <J/N> ? 
000020: 27 29 3B 0D 0A 20 20 20 20 20 20 52 65 61 64 28  ');..      Read(
000030: 6B 62 64 2C 43 29 3B 0D 0A 20 20 20 20 75 6E 74  kbd,C);..    unt
000040: 69 6C 20 28 43 20 3D 20 27 6A 27 29 20 6F 72 20  il (C = 'j') or 
000050: 28 43 20 3D 20 27 4A 27 29 20 6F 72 20 28 43 20  (C = 'J') or (C 
000060: 3D 20 27 6E 27 29 20 6F 72 20 28 43 20 3D 20 27  = 'n') or (C = '
000070: 4E 27 29 3B 0D 0A 20 20 20 20 69 66 20 28 43 20  N');..    if (C 
000080: 3D 20 27 6A 27 29 20 6F 72 20 28 43 20 3D 20 27  = 'j') or (C = '
000090: 4A 27 29 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A  J') then begin..
0000A0: 20 20 20 20 20 20 72 65 70 65 61 74 0D 0A 20 20        repeat..  
0000B0: 20 20 20 20 20 20 43 6C 72 53 63 72 3B 0D 0A 20        ClrScr;.. 
0000C0: 20 20 20 20 20 20 20 59 28 31 2C 31 2C 38 30 2C         Y(1,1,80,
0000D0: 33 31 2C 31 29 3B 0D 0A 20 20 20 20 20 20 20 20  31,1);..        
0000E0: 59 28 32 2C 31 2C 32 34 2C 31 36 2C 30 29 3B 0D  Y(2,1,24,16,0);.
0000F0: 0A 20 20 20 20 20 20 20 20 59 28 32 2C 38 30 2C  .        Y(2,80,
000100: 32 34 2C 31 37 2C 30 29 3B 0D 0A 20 20 20 20 20  24,17,0);..     
000110: 20 20 20 59 28 32 35 2C 32 2C 37 38 2C 33 30 2C     Y(25,2,78,30,
000120: 31 29 3B 0D 0A 20 20 20 20 20 20 20 20 47 6F 74  1);..        Got
000130: 6F 58 59 28 32 30 2C 31 30 29 3B 0D 0A 20 20 20  oXY(20,10);..   
000140: 20 20 20 20 20 57 72 69 74 65 28 27 20 20 20 20       Write('    
000150: 20 20 20 20 20 20 57 65 6C 63 68 65 20 53 74 61        Welche Sta
000160: 72 74 7A 65 69 6C 65 20 3F 20 27 29 3B 0D 0A 20  rtzeile ? ');.. 
000170: 20 20 20 20 20 20 20 52 65 61 64 28 5A 65 69 6C         Read(Zeil
000180: 65 6E 4E 72 29 3B 0D 0A 20 20 20 20 20 20 20 20  enNr);..        
000190: 47 6F 74 6F 58 59 28 32 30 2C 31 32 29 3B 0D 0A  GotoXY(20,12);..
0001A0: 20 20 20 20 20 20 20 20 57 72 69 74 65 28 27 20          Write(' 
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 65                We
0001C0: 6C 63 68 65 20 53 70 61 6C 74 65 3F 20 27 29 3B  lche Spalte? ');
0001D0: 0D 0A 20 20 20 20 20 20 20 20 52 65 61 64 28 53  ..        Read(S
0001E0: 70 61 6C 74 65 6E 4E 72 29 3B 0D 0A 20 20 20 20  paltenNr);..    
0001F0: 20 20 20 20 47 6F 74 6F 58 59 28 32 30 2C 31 34      GotoXY(20,14

Size : 512 (Real : 512)
000000: 0D 0A 70 72 6F 67 72 61 6D 20 49 6E 4C 69 6E 65  ..program InLine
000010: 42 65 69 73 70 69 65 6C 3B 0D 0A 7B 0D 0A 20 20  Beispiel;..{..  
000020: 20 20 20 20 20 44 61 73 20 66 6F 6C 67 65 6E 64       Das folgend
000030: 65 20 42 65 69 73 70 69 65 6C 20 74 65 69 6C 74  e Beispiel teilt
000040: 20 67 65 72 61 64 65 20 49 6E 74 65 67 65 72 20   gerade Integer 
000050: 64 75 72 63 68 20 7A 77 65 69 2E 0D 0A 20 20 20  durch zwei...   
000060: 20 20 20 20 46 75 65 72 20 75 6E 67 65 72 61 64      Fuer ungerad
000070: 65 20 49 6E 74 65 67 65 72 20 75 65 62 65 72 67  e Integer ueberg
000080: 69 62 74 20 64 61 73 20 50 72 6F 67 72 61 6D 6D  ibt das Programm
000090: 20 2D 33 32 37 36 38 20 2B 20 64 65 6E 20 57 65   -32768 + den We
0000A0: 72 74 0D 0A 20 20 20 20 20 20 20 67 65 74 65 69  rt..       getei
0000B0: 6C 74 20 64 75 72 63 68 20 7A 77 65 69 2E 20 28  lt durch zwei. (
0000C0: 69 6E 74 65 67 65 72 20 64 69 76 69 73 69 6F 6E  integer division
0000D0: 29 0D 0A 7D 0D 0A 76 61 72 0D 0A 20 20 56 61 6C  )..}..var..  Val
0000E0: 75 65 20 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 0D  ue : Integer;...
0000F0: 0A 70 72 6F 63 65 64 75 72 65 20 56 49 6E 4C 69  .procedure VInLi
000100: 6E 65 28 76 61 72 20 56 61 6C 75 65 3A 49 6E 74  ne(var Value:Int
000110: 65 67 65 72 29 3B 0D 0A 62 65 67 69 6E 0D 0A 20  eger);..begin.. 
000120: 20 69 6E 6C 69 6E 65 0D 0A 20 20 20 20 28 24 43   inline..    ($C
000130: 34 2F 24 42 45 2F 56 41 4C 55 45 2F 20 20 20 20  4/$BE/VALUE/    
000140: 20 20 20 20 20 20 20 20 20 7B 20 4C 45 53 20 20           { LES  
000150: 20 20 20 44 49 2C 56 41 4C 55 45 5B 42 50 5D 20     DI,VALUE[BP] 
000160: 20 20 20 20 7D 0D 0A 20 20 20 20 20 24 46 38 2F      }..     $F8/
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000180: 20 20 20 20 20 20 20 7B 20 43 4C 43 20 20 20 20         { CLC    
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001A0: 20 20 7D 0D 0A 20 20 20 20 20 24 32 36 2F 24 44    }..     $26/$D
0001B0: 30 2F 24 31 44 2F 20 20 20 20 20 20 20 20 20 20  0/$1D/          
0001C0: 20 20 20 20 20 7B 20 52 43 52 20 20 20 20 20 45       { RCR     E
0001D0: 53 3A 42 59 54 45 20 50 54 52 20 5B 44 49 5D 20  S:BYTE PTR [DI] 
0001E0: 7D 0D 0A 20 20 20 20 20 24 34 37 2F 20 20 20 20  }..     $47/    
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  

Size : 512 (Real : 512)
000000: 29 3B 0D 0A 20 20 20 20 20 20 20 20 57 72 69 74  );..        Writ
000010: 65 28 27 20 20 20 20 20 20 20 20 20 20 20 20 20  e('             
000020: 20 20 4C 69 6E 69 65 6E 6C 61 65 6E 67 65 20 3F    Linienlaenge ?
000030: 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 52 65   ');..        Re
000040: 61 64 28 4C 61 65 6E 67 65 29 3B 0D 0A 20 20 20  ad(Laenge);..   
000050: 20 20 20 20 20 47 6F 74 6F 58 59 28 32 30 2C 31       GotoXY(20,1
000060: 36 29 3B 0D 0A 20 20 20 20 20 20 20 20 57 72 69  6);..        Wri
000070: 74 65 28 27 57 65 6C 63 68 65 73 20 5A 65 69 63  te('Welches Zeic
000080: 68 65 6E 20 7A 75 6D 20 5A 65 69 63 68 6E 65 6E  hen zum Zeichnen
000090: 20 3F 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20   ? ');..        
0000A0: 52 65 61 64 28 4B 62 64 2C 43 29 3B 20 57 72 69  Read(Kbd,C); Wri
0000B0: 74 65 28 43 29 3B 0D 0A 20 20 20 20 20 20 20 20  te(C);..        
0000C0: 72 65 70 65 61 74 0D 0A 20 20 20 20 20 20 20 20  repeat..        
0000D0: 20 20 47 6F 74 6F 58 59 28 31 30 2C 31 38 29 3B    GotoXY(10,18);
0000E0: 20 57 72 69 74 65 28 27 20 57 65 6C 63 68 65 20   Write(' Welche 
0000F0: 52 69 63 68 74 75 6E 67 20 61 29 62 77 61 65 72  Richtung a)bwaer
000100: 74 73 20 6F 64 65 72 20 72 29 65 63 68 74 73 3F  ts oder r)echts?
000110: 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20   ');..          
000120: 52 65 61 64 28 44 69 72 65 63 74 69 6F 6E 29 3B  Read(Direction);
000130: 0D 0A 20 20 20 20 20 20 20 20 20 20 44 69 72 65  ..          Dire
000140: 63 74 69 6F 6E 20 3A 3D 20 55 70 63 61 73 65 28  ction := Upcase(
000150: 44 69 72 65 63 74 69 6F 6E 29 0D 0A 20 20 20 20  Direction)..    
000160: 20 20 20 20 75 6E 74 69 6C 20 28 44 69 72 65 63      until (Direc
000170: 74 69 6F 6E 3D 27 41 27 29 20 6F 72 20 28 44 69  tion='A') or (Di
000180: 72 65 63 74 69 6F 6E 3D 27 52 27 29 3B 0D 0A 20  rection='R');.. 
000190: 20 20 20 20 20 20 20 69 66 20 44 69 72 65 63 74         if Direct
0001A0: 69 6F 6E 3D 27 52 27 0D 0A 20 20 20 20 20 20 20  ion='R'..       
0001B0: 20 20 20 74 68 65 6E 20 52 69 63 68 74 75 6E 67     then Richtung
0001C0: 3A 3D 31 0D 0A 20 20 20 20 20 20 20 20 20 20 65  :=1..          e
0001D0: 6C 73 65 20 52 69 63 68 74 75 6E 67 3A 3D 30 3B  lse Richtung:=0;
0001E0: 0D 0A 20 20 20 20 20 20 20 20 43 6C 72 53 63 72  ..        ClrScr
0001F0: 3B 0D 0A 20 20 20 20 20 20 20 20 59 28 5A 65 69  ;..        Y(Zei

Size : 512 (Real : 512)
000000: 01 00 E8 03 20 01 50 30 DA CA E9 DA 23 FE 2A C2  .... .P0....#.*.
000010: D9 DA 36 3F C3 DB DA 77 13 05 00 C8 DA CD 30 DA  ..6?...w......0.
000020: CA F0 DA 13 C3 DF DA 23 36 20 05 C2 E9 DA 06 01  .......#6 ......
000030: 00 01 00 0A 25 46 20 70 61 67 65 20 25 23 00 23  ....%F page %#.#
000040: 7E FE 3F C2 09 DB 04 0D C2 01 DB 78 B7 C9 44 49  ~.?........x..DI
000050: 52 20 45 52 41 20 54 59 50 45 53 41 56 45 52 45  R ERA TYPESAVERE
000060: 4E 20 55 53 45 52 A8 16 00 00 00 84 21 10 DB 0E  N USER......!...
000070: 00 79 FE 06 D0 11 CE DF 06 04 1A BE C2 4F DB 13  .y...........O..
000080: 23 05 C2 3C DB 1A FE 20 C2 54 DB 79 C9 23 05 C2  #..<... .T.y.#..
000090: 4F DB 0C C3 33 DB AF 32 07 D8 31 AB DF C5 79 1F  O...3..2..1...y.
0000A0: 1F 1F 1F E6 0F 5F CD 15 D9 CD B8 D8 32 AB DF C1  ....._......2...
0000B0: 79 E6 0F 32 EF DF CD BD D8 3A 07 D8 B7 C2 98 DB  y..2.....:......
0000C0: 31 AB DF CD 98 D8 CD D0 D9 C6 41 CD 8C D8 3E 3E  1.........A...>>
0000D0: CD 8C D8 CD 39 D9 11 80 00 CD D8 D9 CD D0 D9 32  ....9..........2
0000E0: EF DF CD 5E DA C4 09 DA 3A F0 DF B7 C2 A5 DE CD  ...^....:.......
0000F0: 2E DB 21 C1 DB 5F 16 00 19 19 7E 23 16 4C 69 73  ..!.._....~#.Lis
000100: 74 69 6E 67 20 6F 66 20 25 46 2C 20 70 61 67 65  ting of %F, page
000110: 20 25 23 21 00 D8 E9 01 DF DB C3 A7 D8 52 45 41   %#!.........REA
000120: 44 20 45 52 52 4F 52 00 01 F0 DB C3 A7 D8 4E 4F  D ERROR.......NO
000130: 20 46 49 4C 45 00 CD 5E DA 3A F0 DF B7 C2 09 DA   FILE..^.:......
000140: 21 CE DF 01 0B 00 7E FE 20 CA 33 DC 23 D6 30 FE  !.....~. .3.#.0.
000150: 0A D2 09 DA 57 78 E6 E0 C2 09 DA 78 07 07 07 80  ....Wx.....x....
000160: DA 09 DA 80 DA 09 DA 82 DA 09 DA 47 0D C2 08 DC  ...........G....
000170: C9 7E FE 20 C2 09 DA 23 0D C2 33 DC 78 C9 06 03  .~. ...#..3.x...
000180: 7E 12 23 13 05 C2 42 DC C9 21 80 00 81 CD 59 DA  ~.#...B..!....Y.
000190: 7E C9 AF 32 CD DF 3A F0 DF B7 C8 3D 21 EF DF BE  ~..2..:....=!...
0001A0: C8 C3 BD D8 3A F0 DF B7 C8 3D 21 EF DF BE C8 3A  ....:....=!....:
0001B0: EF DF C3 BD D8 CD 5E DA CD 54 DC 21 CE DF 7E FE  ......^..T.!..~.
0001C0: 20 C2 8F DC 06 00 00 00 01 01 01 1E DC 1E 00 D5   ...............
0001D0: CD E9 D8 CC EA 01 1D 1B DD 3A EE DF 0F 0F 0F E6  .........:......
0001E0: 02 1B 44 30 CD 4B DC 17 DA 0F DD 02 1B 43 31 E6  ..D0.K.......C1.
0001F0: 03 F5 C2 CC DC CD 83 00 42 00 00 00 00 00 00 00  ........B.......

Size : 512 (Real : 512)
000000: 6C 65 6E 4E 72 2C 53 70 61 6C 74 65 6E 4E 72 2C  lenNr,SpaltenNr,
000010: 4C 61 65 6E 67 65 2C 6F 72 64 28 43 29 2C 52 69  Laenge,ord(C),Ri
000020: 63 68 74 75 6E 67 29 3B 0D 0A 20 20 20 20 20 20  chtung);..      
000030: 20 20 47 6F 74 6F 58 59 28 34 30 2C 32 34 29 3B    GotoXY(40,24);
000040: 0D 0A 20 20 20 20 20 20 20 20 57 72 69 74 65 28  ..        Write(
000050: 27 49 68 72 65 20 5A 65 69 6C 65 2E 20 20 4E 6F  'Ihre Zeile.  No
000060: 63 68 6D 61 6C 20 3F 27 29 3B 0D 0A 20 20 20 20  chmal ?');..    
000070: 20 20 20 20 72 65 70 65 61 74 20 75 6E 74 69 6C      repeat until
000080: 20 4B 65 79 70 72 65 73 73 65 64 3B 0D 0A 20 20   Keypressed;..  
000090: 20 20 20 20 20 20 52 65 61 64 28 4B 42 44 2C 43        Read(KBD,C
0000A0: 29 3B 0D 0A 20 20 20 20 20 20 20 75 6E 74 69 6C  );..       until
0000B0: 20 28 43 20 3C 3E 20 27 4A 27 29 20 61 6E 64 20   (C <> 'J') and 
0000C0: 28 43 20 3C 3E 20 27 6A 27 29 3B 0D 0A 20 20 20  (C <> 'j');..   
0000D0: 20 20 20 20 43 6C 72 53 63 72 0D 0A 20 20 20 20      ClrScr..    
0000E0: 65 6E 64 0D 0A 20 20 65 6E 64 0D 0A 20 20 65 6C  end..  end..  el
0000F0: 73 65 20 62 65 67 69 6E 0D 0A 20 20 20 20 47 6F  se begin..    Go
000100: 74 6F 58 59 28 32 33 2C 31 33 29 3B 0D 0A 20 20  toXY(23,13);..  
000110: 20 20 57 72 69 74 65 4C 6E 28 27 2A 2A 2A 2A 2A    WriteLn('*****
000120: 2A 2A 2A 20 41 75 66 20 57 69 65 64 65 72 73 65  *** Auf Wiederse
000130: 68 65 6E 20 2A 2A 2A 2A 2A 2A 2A 2A 27 29 0D 0A  hen ********')..
000140: 20 20 65 6E 64 0D 0A 65 6E 64 2E 20 28 2A 20 64    end..end. (* d
000150: 65 73 20 50 72 6F 67 72 61 6D 6D 73 20 53 63 72  es Programms Scr
000160: 65 65 6E 6D 61 70 20 2A 29 1A 1A 1A 1A 1A 1A 1A  eenmap *).......
000170: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000180: 72 65 63 74 69 6F 6E 3D 27 52 27 29 3B 0D 0A 20  rection='R');.. 
000190: 20 20 20 20 20 20 20 69 66 20 44 69 72 65 63 74         if Direct
0001A0: 69 6F 6E 3D 27 52 27 0D 0A 20 20 20 20 20 20 20  ion='R'..       
0001B0: 20 20 20 74 68 65 6E 20 52 69 63 68 74 75 6E 67     then Richtung
0001C0: 3A 3D 31 0D 0A 20 20 20 20 20 20 20 20 20 20 65  :=1..          e
0001D0: 6C 73 65 20 52 69 63 68 74 75 6E 67 3A 3D 30 3B  lse Richtung:=0;
0001E0: 0D 0A 20 20 20 20 20 20 20 20 43 6C 72 53 63 72  ..        ClrScr
0001F0: 3B 0D 0A 20 20 20 20 20 20 20 20 59 28 5A 65 69  ;..        Y(Zei

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

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

Size : 512 (Real : 512)
000000: 01 00 E8 03 20 01 50 30 DA CA E9 DA 23 FE 2A C2  .... .P0....#.*.
000010: D9 DA 36 3F C3 DB DA 77 13 05 00 C8 DA CD 30 DA  ..6?...w......0.
000020: CA F0 DA 13 C3 DF DA 23 36 20 05 C2 E9 DA 06 01  .......#6 ......
000030: 00 01 00 0A 25 46 20 70 61 67 65 20 25 23 00 23  ....%F page %#.#
000040: 7E FE 3F C2 09 DB 04 0D C2 01 DB 78 B7 C9 44 49  ~.?........x..DI
000050: 52 20 45 52 41 20 54 59 50 45 53 41 56 45 52 45  R ERA TYPESAVERE
000060: 4E 20 55 53 45 52 A8 16 00 00 00 84 21 10 DB 0E  N USER......!...
000070: 00 79 FE 06 D0 11 CE DF 06 04 1A BE C2 4F DB 13  .y...........O..
000080: 23 05 C2 3C DB 1A FE 20 C2 54 DB 79 C9 23 05 C2  #..<... .T.y.#..
000090: 4F DB 0C C3 33 DB AF 32 07 D8 31 AB DF C5 79 1F  O...3..2..1...y.
0000A0: 1F 1F 1F E6 0F 5F CD 15 D9 CD B8 D8 32 AB DF C1  ....._......2...
0000B0: 79 E6 0F 32 EF DF CD BD D8 3A 07 D8 B7 C2 98 DB  y..2.....:......
0000C0: 31 AB DF CD 98 D8 CD D0 D9 C6 41 CD 8C D8 3E 3E  1.........A...>>
0000D0: CD 8C D8 CD 39 D9 11 80 00 CD D8 D9 CD D0 D9 32  ....9..........2
0000E0: EF DF CD 5E DA C4 09 DA 3A F0 DF B7 C2 A5 DE CD  ...^....:.......
0000F0: 2E DB 21 C1 DB 5F 16 00 19 19 7E 23 16 4C 69 73  ..!.._....~#.Lis
000100: 74 69 6E 67 20 6F 66 20 25 46 2C 20 70 61 67 65  ting of %F, page
000110: 20 25 23 21 00 D8 E9 01 DF DB C3 A7 D8 52 45 41   %#!.........REA
000120: 44 20 45 52 52 4F 52 00 01 F0 DB C3 A7 D8 4E 4F  D ERROR.......NO
000130: 20 46 49 4C 45 00 CD 5E DA 3A F0 DF B7 C2 09 DA   FILE..^.:......
000140: 21 CE DF 01 0B 00 7E FE 20 CA 33 DC 23 D6 30 FE  !.....~. .3.#.0.
000150: 0A D2 09 DA 57 78 E6 E0 C2 09 DA 78 07 07 07 80  ....Wx.....x....
000160: DA 09 DA 80 DA 09 DA 82 DA 09 DA 47 0D C2 08 DC  ...........G....
000170: C9 7E FE 20 C2 09 DA 23 0D C2 33 DC 78 C9 06 03  .~. ...#..3.x...
000180: 7E 12 23 13 05 C2 42 DC C9 21 80 00 81 CD 59 DA  ~.#...B..!....Y.
000190: 7E C9 AF 32 CD DF 3A F0 DF B7 C8 3D 21 EF DF BE  ~..2..:....=!...
0001A0: C8 C3 BD D8 3A F0 DF B7 C8 3D 21 EF DF BE C8 3A  ....:....=!....:
0001B0: EF DF C3 BD D8 CD 5E DA CD 54 DC 21 CE DF 7E FE  ......^..T.!..~.
0001C0: 20 C2 8F DC 06 00 00 00 01 01 00 1E DC 1E 00 D5   ...............
0001D0: CD E9 D8 CC EA 00 1D 1B DD 3A EE DF 0F 0F 0F E6  .........:......
0001E0: 02 1B 44 30 CD 4B DC 17 DA 0F DD 02 1B 43 31 E6  ..D0.K.......C1.
0001F0: 03 F5 C2 CC DC CD 83 00 42 00 00 00 00 00 00 00  ........B.......

Size : 512 (Real : 512)
000000: 28 2A 20 44 69 65 73 65 73 20 50 72 6F 67 72 61  (* Dieses Progra
000010: 6D 6D 20 64 65 6D 6F 6E 73 74 72 69 65 72 74 20  mm demonstriert 
000020: 77 69 65 20 6D 61 6E 20 64 69 65 20 43 6F 6D 6D  wie man die Comm
000030: 61 6E 64 6C 69 6E 65 20 6C 69 65 73 74 2E 0D 0A  andline liest...
000040: 20 20 20 33 32 20 5A 65 69 63 68 65 6E 20 73 69     32 Zeichen si
000050: 6E 64 20 69 6D 6D 65 72 20 69 6E 20 64 65 72 20  nd immer in der 
000060: 43 6F 6D 6D 61 6E 64 6C 69 6E 65 20 67 65 70 75  Commandline gepu
000070: 66 66 65 72 74 2C 20 77 65 6E 6E 20 6D 61 6E 0D  ffert, wenn man.
000080: 0A 20 20 20 6A 65 64 6F 63 68 20 61 6C 6C 65 20  .   jedoch alle 
000090: 31 32 37 20 5A 65 69 63 68 65 6E 20 6C 65 73 65  127 Zeichen lese
0000A0: 6E 20 6D 6F 65 63 68 74 65 2C 20 73 6F 20 6D 75  n moechte, so mu
0000B0: 7E 20 6D 61 6E 20 61 6C 73 20 65 72 73 74 65 20  ~ man als erste 
0000C0: 41 6E 77 65 69 73 75 6E 67 0D 0A 20 20 20 69 6D  Anweisung..   im
0000D0: 20 50 72 6F 67 72 61 6D 6D 20 64 69 65 20 43 6F   Programm die Co
0000E0: 6D 6D 61 6E 64 6F 7A 65 69 6C 65 20 72 65 74 74  mmandozeile rett
0000F0: 65 6E 2C 20 64 61 20 73 69 65 20 64 61 6E 61 63  en, da sie danac
000100: 68 20 64 75 72 63 68 20 44 61 74 65 69 6F 70 65  h durch Dateiope
000110: 72 61 74 69 6F 6E 65 6E 0D 0A 20 20 20 67 65 6B  rationen..   gek
000120: 75 65 72 7A 74 20 77 69 72 64 2E 0D 0A 20 20 20  uerzt wird...   
000130: 57 65 72 20 6D 69 74 20 54 55 52 42 4F 20 50 61  Wer mit TURBO Pa
000140: 73 63 61 6C 20 33 2E 30 20 61 72 62 65 69 74 65  scal 3.0 arbeite
000150: 74 20 6B 61 6E 6E 20 61 6E 73 74 65 6C 6C 65 20  t kann anstelle 
000160: 64 69 65 73 65 72 20 4B 6F 6E 73 74 72 75 6B 74  dieser Konstrukt
000170: 69 6F 6E 0D 0A 20 20 20 64 69 65 20 65 69 6E 67  ion..   die eing
000180: 65 62 61 75 74 65 6E 20 46 75 6E 6B 74 69 6F 6E  ebauten Funktion
000190: 65 6E 20 50 61 72 61 6D 43 6F 75 6E 74 20 75 6E  en ParamCount un
0001A0: 64 20 50 61 72 61 6D 53 74 72 20 76 65 72 77 65  d ParamStr verwe
0001B0: 6E 64 65 6E 0D 0A 2A 29 0D 0A 0D 0A 70 72 6F 67  nden..*)....prog
0001C0: 72 61 6D 20 43 6F 6D 6D 61 6E 64 4C 69 6E 65 3B  ram CommandLine;
0001D0: 0D 0A 74 79 70 65 0D 0A 20 20 43 6F 6D 6D 61 6E  ..type..  Comman
0001E0: 64 53 74 72 69 6E 67 20 20 3D 20 73 74 72 69 6E  dString  = strin
0001F0: 67 5B 31 32 37 5D 3B 0D 0A 0D 0A 76 61 72 0D 0A  g[127];....var..

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

Size : 512 (Real : 512)
000000: 20 20 42 75 66 66 65 72 20 20 20 20 20 20 20 20    Buffer        
000010: 20 3A 20 43 6F 6D 6D 61 6E 64 53 74 72 69 6E 67   : CommandString
000020: 3B 0D 0A 20 20 43 4C 20 20 20 20 20 20 20 20 20  ;..  CL         
000030: 20 20 20 20 3A 20 43 6F 6D 6D 61 6E 64 53 74 72      : CommandStr
000040: 69 6E 67 20 61 62 73 6F 6C 75 74 65 20 63 73 65  ing absolute cse
000050: 67 3A 24 38 30 3B 0D 0A 0D 0A 62 65 67 69 6E 0D  g:$80;....begin.
000060: 0A 20 20 43 6C 72 53 63 72 3B 0D 0A 20 20 42 75  .  ClrScr;..  Bu
000070: 66 66 65 72 20 3A 3D 20 43 4C 3B 0D 0A 20 20 47  ffer := CL;..  G
000080: 6F 74 6F 78 79 28 32 30 2C 31 32 29 3B 0D 0A 20  otoxy(20,12);.. 
000090: 20 57 72 69 74 65 4C 6E 28 27 7C 27 2C 42 75 66   WriteLn('|',Buf
0000A0: 66 65 72 2C 20 27 7C 27 29 3B 0D 0A 65 6E 64 2E  fer, '|');..end.
0000B0: 20 28 2A 20 64 65 73 20 50 72 6F 67 72 61 6D 6D   (* des Programm
0000C0: 73 20 43 6F 6D 6D 61 6E 64 6C 69 6E 65 20 2A 29  s Commandline *)
0000D0: 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0000E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0000F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000100: 68 20 64 75 72 63 68 20 44 61 74 65 69 6F 70 65  h durch Dateiope
000110: 72 61 74 69 6F 6E 65 6E 0D 0A 20 20 20 67 65 6B  rationen..   gek
000120: 75 65 72 7A 74 20 77 69 72 64 2E 0D 0A 20 20 20  uerzt wird...   
000130: 57 65 72 20 6D 69 74 20 54 55 52 42 4F 20 50 61  Wer mit TURBO Pa
000140: 73 63 61 6C 20 33 2E 30 20 61 72 62 65 69 74 65  scal 3.0 arbeite
000150: 74 20 6B 61 6E 6E 20 61 6E 73 74 65 6C 6C 65 20  t kann anstelle 
000160: 64 69 65 73 65 72 20 4B 6F 6E 73 74 72 75 6B 74  dieser Konstrukt
000170: 69 6F 6E 0D 0A 20 20 20 64 69 65 20 65 69 6E 67  ion..   die eing
000180: 65 62 61 75 74 65 6E 20 46 75 6E 6B 74 69 6F 6E  ebauten Funktion
000190: 65 6E 20 50 61 72 61 6D 43 6F 75 6E 74 20 75 6E  en ParamCount un
0001A0: 64 20 50 61 72 61 6D 53 74 72 20 76 65 72 77 65  d ParamStr verwe
0001B0: 6E 64 65 6E 0D 0A 2A 29 0D 0A 0D 0A 70 72 6F 67  nden..*)....prog
0001C0: 72 61 6D 20 43 6F 6D 6D 61 6E 64 4C 69 6E 65 3B  ram CommandLine;
0001D0: 0D 0A 74 79 70 65 0D 0A 20 20 43 6F 6D 6D 61 6E  ..type..  Comman
0001E0: 64 53 74 72 69 6E 67 20 20 3D 20 73 74 72 69 6E  dString  = strin
0001F0: 67 5B 31 32 37 5D 3B 0D 0A 0D 0A 76 61 72 0D 0A  g[127];....var..

Size : 512 (Real : 512)
000000: 0D 0A 3B 20 2A 20 2A 20 57 41 52 4E 55 4E 47 20  ..; * * WARNUNG 
000010: 2A 20 57 41 52 4E 55 4E 47 20 2A 20 57 41 52 4E  * WARNUNG * WARN
000020: 55 4E 47 20 2A 20 57 41 52 4E 55 4E 47 20 2A 20  UNG * WARNUNG * 
000030: 57 41 52 4E 55 4E 47 20 2A 20 57 41 52 4E 55 4E  WARNUNG * WARNUN
000040: 47 20 2A 20 2A 0D 0A 0D 0A 3B 20 20 42 69 74 74  G * *....;  Bitt
000050: 65 20 61 72 62 65 69 74 65 6E 20 53 69 65 20 6E  e arbeiten Sie n
000060: 69 63 68 74 20 6D 69 74 20 65 78 74 65 72 6E 65  icht mit externe
000070: 6E 20 53 75 62 72 6F 75 74 69 6E 65 6E 0D 0A 3B  n Subroutinen..;
000080: 20 20 66 61 6C 6C 73 20 53 69 65 20 73 69 63 68    falls Sie sich
000090: 20 6E 69 63 68 74 20 73 65 68 72 20 67 75 74 20   nicht sehr gut 
0000A0: 6D 69 74 20 41 53 53 45 4D 42 4C 45 52 20 61 75  mit ASSEMBLER au
0000B0: 73 6B 65 6E 6E 65 6E 2E 0D 0A 3B 0D 0A 3B 20 20  skennen...;..;  
0000C0: 57 49 43 48 54 49 47 3A 20 45 78 74 65 72 6E 61  WICHTIG: Externa
0000D0: 6C 73 20 6D 75 65 73 73 65 6E 20 69 6E 20 41 73  ls muessen in As
0000E0: 73 65 6D 62 6C 65 72 20 67 65 73 63 68 72 69 65  sembler geschrie
0000F0: 62 65 6E 20 77 65 72 64 65 6E 2E 0D 0A 3B 0D 0A  ben werden...;..
000100: 3B 20 20 44 61 73 20 66 6F 6C 67 65 6E 64 65 20  ;  Das folgende 
000110: 42 65 69 73 70 69 65 6C 20 61 64 64 69 65 72 74  Beispiel addiert
000120: 20 7A 77 65 69 20 49 6E 74 65 67 65 72 7A 61 68   zwei Integerzah
000130: 6C 65 6E 2E 0D 0A 3B 0D 0A 3B 0D 0A 63 6F 64 65  len...;..;..code
000140: 20 20 20 73 65 67 6D 65 6E 74 0D 0A 20 20 20 20     segment..    
000150: 20 20 20 61 73 73 75 6D 65 20 20 20 63 73 3A 63     assume   cs:c
000160: 6F 64 65 0D 0A 70 61 73 73 20 20 20 70 72 6F 63  ode..pass   proc
000170: 20 20 20 20 20 6E 65 61 72 0D 0A 0D 0A 20 20 20       near....   
000180: 20 20 20 20 70 75 73 68 20 20 20 20 20 62 70 20      push     bp 
000190: 20 20 20 20 20 20 20 20 20 20 20 3B 20 55 4D 47             ; UMG
0001A0: 45 42 55 4E 47 20 52 45 54 54 45 4E 0D 0A 20 20  EBUNG RETTEN..  
0001B0: 20 20 20 20 20 6D 6F 76 20 20 20 20 20 20 62 70       mov      bp
0001C0: 2C 73 70 0D 0A 0D 0A 20 20 20 20 20 20 20 6D 6F  ,sp....       mo
0001D0: 76 20 20 20 20 20 20 61 78 2C 5B 62 70 2B 34 5D  v      ax,[bp+4]
0001E0: 20 20 20 20 20 3B 20 50 41 52 41 4D 45 54 45 52       ; PARAMETER
0001F0: 20 31 20 48 4F 4C 45 4E 0D 0A 20 20 20 20 20 20   1 HOLEN..      

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

Size : 512 (Real : 512)
000000: 20 61 64 64 20 20 20 20 20 20 61 78 2C 5B 62 70   add      ax,[bp
000010: 2B 36 5D 20 20 20 20 20 3B 20 50 41 52 41 4D 45  +6]     ; PARAME
000020: 54 45 52 20 32 20 48 4F 4C 45 4E 0D 0A 20 20 20  TER 2 HOLEN..   
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000040: 20 20 20 20 20 20 20 20 20 20 20 3B 20 52 45 53             ; RES
000050: 55 4C 54 41 54 20 49 4E 20 41 58 0D 0A 20 20 20  ULTAT IN AX..   
000060: 20 20 20 20 6D 6F 76 20 20 20 20 20 20 73 70 2C      mov      sp,
000070: 62 70 20 20 20 20 20 20 20 20 20 3B 20 55 4D 47  bp         ; UMG
000080: 45 42 55 4E 47 20 57 49 45 44 45 52 48 45 52 53  EBUNG WIEDERHERS
000090: 54 45 4C 4C 45 4E 0D 0A 20 20 20 20 20 20 20 70  TELLEN..       p
0000A0: 6F 70 20 20 20 20 20 20 62 70 0D 0A 20 20 20 20  op      bp..    
0000B0: 20 20 20 72 65 74 20 20 20 20 20 20 34 0D 0A 0D     ret      4...
0000C0: 0A 70 61 73 73 20 20 20 65 6E 64 70 0D 0A 63 6F  .pass   endp..co
0000D0: 64 65 20 20 20 65 6E 64 73 0D 0A 20 20 20 20 20  de   ends..     
0000E0: 20 20 65 6E 64 0D 0A 0D 0A 3B 20 47 65 68 65 6E    end....; Gehen
0000F0: 20 53 69 20 7A 75 72 75 65 63 6B 20 7A 75 20 4D   Si zurueck zu M
000100: 53 20 44 4F 53 20 75 6E 64 20 67 65 62 65 6E 20  S DOS und geben 
000110: 53 69 65 20 66 6F 6C 67 65 6E 64 65 73 20 65 69  Sie folgendes ei
000120: 6E 3A 0D 0A 3B 20 20 20 3E 41 53 4D 20 50 41 53  n:..;   >ASM PAS
000130: 53 0D 0A 3B 20 20 20 3E 4C 49 4E 4B 20 50 41 53  S..;   >LINK PAS
000140: 53 0D 0A 3B 20 20 20 3E 45 58 45 32 42 49 4E 20  S..;   >EXE2BIN 
000150: 50 41 53 53 2E 45 58 45 20 50 41 53 53 2E 43 4F  PASS.EXE PASS.CO
000160: 4D 0D 0A 3B 0D 0A 3B 20 20 49 67 6E 6F 72 69 65  M..;..;  Ignorie
000170: 72 65 6E 20 73 69 65 20 6B 6C 65 69 6E 65 72 65  ren sie kleinere
000180: 20 46 65 68 6C 65 72 20 76 6F 6E 20 41 53 4D 20   Fehler von ASM 
000190: 75 6E 64 20 4C 49 4E 4B 0D 0A 3B 20 20 44 69 65  und LINK..;  Die
0001A0: 20 6F 62 69 67 65 20 50 72 6F 7A 65 64 75 72 20   obige Prozedur 
0001B0: 69 73 74 20 6E 75 72 20 65 69 6E 20 42 65 69 73  ist nur ein Beis
0001C0: 70 69 65 6C 0D 0A 3B 20 20 44 61 73 20 73 65 6C  piel..;  Das sel
0001D0: 62 65 20 45 72 67 65 62 6E 69 73 73 20 65 72 72  be Ergebniss err
0001E0: 65 69 63 68 74 20 6D 61 6E 20 69 6E 20 54 55 52  eicht man in TUR
0001F0: 42 4F 20 50 61 73 63 61 6C 20 64 75 72 63 68 20  BO Pascal durch 

Size : 512 (Real : 512)
000000: 0D 0A 28 2A 24 55 2D 2C 43 2D 2A 29 0D 0A 70 72  ..(*$U-,C-*)..pr
000010: 6F 67 72 61 6D 20 47 65 70 75 66 66 65 72 74 3B  ogram Gepuffert;
000020: 0D 0A 28 2A 0D 0A 20 20 20 20 44 65 72 20 24 43  ..(*..    Der $C
000030: 2D 42 65 66 65 68 6C 20 69 73 74 20 66 75 65 72  -Befehl ist fuer
000040: 20 67 65 70 75 66 66 65 72 74 65 20 45 69 6E 67   gepufferte Eing
000050: 61 62 65 20 6E 6F 74 77 65 6E 64 69 67 2C 20 73  abe notwendig, s
000060: 6F 6E 73 74 20 67 65 68 65 6E 0D 0A 20 20 20 20  onst gehen..    
000070: 5A 65 69 63 68 65 6E 20 76 65 72 6C 6F 72 65 6E  Zeichen verloren
000080: 2E 20 20 44 61 20 52 65 61 64 28 43 68 29 20 76  .  Da Read(Ch) v
000090: 6F 72 20 64 65 72 20 42 65 61 72 62 65 69 74 75  or der Bearbeitu
0000A0: 6E 67 20 65 69 6E 20 65 6E 64 2D 6F 66 2D 0D 0A  ng ein end-of-..
0000B0: 20 20 20 20 6C 69 6E 65 20 20 65 72 66 6F 72 64      line  erford
0000C0: 65 72 74 2C 20 20 6D 75 65 73 73 65 6E 20 53 69  ert,  muessen Si
0000D0: 65 20 52 65 61 64 28 4B 62 64 2C 43 68 29 20 76  e Read(Kbd,Ch) v
0000E0: 65 72 77 65 6E 64 65 6E 2E 20 53 63 68 72 65 69  erwenden. Schrei
0000F0: 62 65 6E 0D 0A 20 20 20 20 53 69 65 20 22 23 22  ben..    Sie "#"
000100: 20 75 6D 20 64 61 73 20 50 72 6F 67 72 61 6D 6D   um das Programm
000110: 20 7A 75 20 62 65 65 6E 64 65 6E 2E 0D 0A 2A 29   zu beenden...*)
000120: 0D 0A 76 61 72 0D 0A 20 20 43 68 20 20 20 20 20  ..var..  Ch     
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20                : 
000140: 43 68 61 72 3B 0D 0A 20 20 49 6E 64 78 2C 4A 6E  Char;..  Indx,Jn
000150: 64 78 20 20 20 20 20 20 20 20 20 20 20 20 3A 20  dx            : 
000160: 49 6E 74 65 67 65 72 3B 0D 0A 62 65 67 69 6E 0D  Integer;..begin.
000170: 0A 20 20 77 72 69 74 65 6C 6E 28 27 42 65 67 69  .  writeln('Begi
000180: 6E 6E 65 6E 20 53 69 65 20 6E 75 6E 20 6D 69 74  nnen Sie nun mit
000190: 20 64 65 72 20 45 69 6E 67 61 62 65 20 62 65 6C   der Eingabe bel
0001A0: 69 65 62 69 67 65 72 20 5A 65 69 63 68 65 6E 27  iebiger Zeichen'
0001B0: 29 3B 0D 0A 20 20 77 72 69 74 65 6C 6E 28 27 44  );..  writeln('D
0001C0: 69 65 20 45 69 6E 67 61 62 65 20 76 6F 6E 20 22  ie Eingabe von "
0001D0: 23 22 20 62 65 77 69 72 6B 74 20 64 65 6E 20 41  #" bewirkt den A
0001E0: 62 62 72 75 63 68 20 64 65 73 20 50 72 6F 67 72  bbruch des Progr
0001F0: 61 6D 6D 73 27 29 3B 0D 0A 20 20 72 65 70 65 61  amms');..  repea

Size : 512 (Real : 512)
000000: 3A 0D 0A 3B 0D 0A 3B 20 20 66 75 6E 63 74 69 6F  :..;..;  functio
000010: 6E 20 70 61 73 73 28 76 61 72 58 2C 20 76 61 72  n pass(varX, var
000020: 59 3A 69 6E 74 65 67 65 72 29 3A 69 6E 74 65 67  Y:integer):integ
000030: 65 72 3B 0D 0A 3B 20 20 62 65 67 69 6E 0D 0A 3B  er;..;  begin..;
000040: 20 20 20 20 20 70 61 73 73 20 3A 3D 20 76 61 72       pass := var
000050: 58 20 2B 20 76 61 72 59 3B 0D 0A 3B 20 20 65 6E  X + varY;..;  en
000060: 64 3B 0D 0A 0D 0A 0D 0A 1A 66 66 65 72 74 65 20  d;.......fferte 
000070: 54 61 73 74 61 74 75 72 20 45 69 6E 67 61 62 65  Tastatur Eingabe
000080: 45 42 55 4E 47 20 57 49 45 44 45 52 48 45 52 53  EBUNG WIEDERHERS
000090: 54 45 4C 4C 45 4E 0D 0A 20 20 20 20 20 20 20 70  TELLEN..       p
0000A0: 6F 70 20 20 20 20 20 20 62 70 0D 0A 20 20 20 20  op      bp..    
0000B0: 20 20 20 72 65 74 20 20 20 20 20 20 34 0D 0A 0D     ret      4...
0000C0: 0A 70 61 73 73 20 20 20 65 6E 64 70 0D 0A 63 6F  .pass   endp..co
0000D0: 64 65 20 20 20 65 6E 64 73 0D 0A 20 20 20 20 20  de   ends..     
0000E0: 20 20 65 6E 64 0D 0A 0D 0A 3B 20 47 65 68 65 6E    end....; Gehen
0000F0: 20 53 69 20 7A 75 72 75 65 63 6B 20 7A 75 20 4D   Si zurueck zu M
000100: 53 20 44 4F 53 20 75 6E 64 20 67 65 62 65 6E 20  S DOS und geben 
000110: 53 69 65 20 66 6F 6C 67 65 6E 64 65 73 20 65 69  Sie folgendes ei
000120: 6E 3A 0D 0A 3B 20 20 20 3E 41 53 4D 20 50 41 53  n:..;   >ASM PAS
000130: 53 0D 0A 3B 20 20 20 3E 4C 49 4E 4B 20 50 41 53  S..;   >LINK PAS
000140: 53 0D 0A 3B 20 20 20 3E 45 58 45 32 42 49 4E 20  S..;   >EXE2BIN 
000150: 50 41 53 53 2E 45 58 45 20 50 41 53 53 2E 43 4F  PASS.EXE PASS.CO
000160: 4D 0D 0A 3B 0D 0A 3B 20 20 49 67 6E 6F 72 69 65  M..;..;  Ignorie
000170: 72 65 6E 20 73 69 65 20 6B 6C 65 69 6E 65 72 65  ren sie kleinere
000180: 20 46 65 68 6C 65 72 20 76 6F 6E 20 41 53 4D 20   Fehler von ASM 
000190: 75 6E 64 20 4C 49 4E 4B 0D 0A 3B 20 20 44 69 65  und LINK..;  Die
0001A0: 20 6F 62 69 67 65 20 50 72 6F 7A 65 64 75 72 20   obige Prozedur 
0001B0: 69 73 74 20 6E 75 72 20 65 69 6E 20 42 65 69 73  ist nur ein Beis
0001C0: 70 69 65 6C 0D 0A 3B 20 20 44 61 73 20 73 65 6C  piel..;  Das sel
0001D0: 62 65 20 45 72 67 65 62 6E 69 73 73 20 65 72 72  be Ergebniss err
0001E0: 65 69 63 68 74 20 6D 61 6E 20 69 6E 20 54 55 52  eicht man in TUR
0001F0: 42 4F 20 50 61 73 63 61 6C 20 64 75 72 63 68 20  BO Pascal durch 

Size : 512 (Real : 512)
000000: 74 0D 0A 20 20 20 20 66 6F 72 20 49 6E 64 78 20  t..    for Indx 
000010: 3A 3D 20 31 20 74 6F 20 31 30 30 30 30 20 64 6F  := 1 to 10000 do
000020: 20 20 20 28 2A 20 56 65 72 7A 6F 65 67 65 72 75     (* Verzoegeru
000030: 6E 67 73 73 63 68 6C 65 69 66 65 20 66 75 65 72  ngsschleife fuer
000040: 20 56 6F 72 61 75 73 74 69 70 70 65 6E 20 2A 29   Voraustippen *)
000050: 0D 0A 20 20 20 20 20 20 4A 6E 64 78 20 3A 3D 20  ..      Jndx := 
000060: 49 6E 64 78 20 2B 20 49 6E 64 78 3B 0D 0A 20 20  Indx + Indx;..  
000070: 20 20 52 65 61 64 28 4B 62 64 2C 43 68 29 3B 20    Read(Kbd,Ch); 
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2A                (*
000090: 20 4E 61 65 63 68 73 74 65 73 20 5A 65 69 63 68   Naechstes Zeich
0000A0: 65 6E 20 61 75 73 20 54 61 73 74 61 74 75 72 70  en aus Tastaturp
0000B0: 75 66 66 65 72 20 68 6F 6C 65 6E 20 2A 29 0D 0A  uffer holen *)..
0000C0: 20 20 20 20 57 72 69 74 65 28 43 68 29 20 20 20      Write(Ch)   
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000E0: 28 2A 20 75 6E 64 20 61 75 66 20 64 65 6D 20 42  (* und auf dem B
0000F0: 69 6C 64 73 63 68 69 72 6D 20 61 6E 7A 65 69 67  ildschirm anzeig
000100: 65 6E 20 2A 29 0D 0A 20 20 75 6E 74 69 6C 20 43  en *)..  until C
000110: 68 20 3D 20 27 23 27 0D 0A 65 6E 64 2E 20 28 2A  h = '#'..end. (*
000120: 20 50 72 6F 67 72 61 6D 6D 20 47 65 70 75 66 66   Programm Gepuff
000130: 65 72 74 20 2A 29 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A  ert *)..........
000140: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000150: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000160: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000170: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000180: 6E 6E 65 6E 20 53 69 65 20 6E 75 6E 20 6D 69 74  nnen Sie nun mit
000190: 20 64 65 72 20 45 69 6E 67 61 62 65 20 62 65 6C   der Eingabe bel
0001A0: 69 65 62 69 67 65 72 20 5A 65 69 63 68 65 6E 27  iebiger Zeichen'
0001B0: 29 3B 0D 0A 20 20 77 72 69 74 65 6C 6E 28 27 44  );..  writeln('D
0001C0: 69 65 20 45 69 6E 67 61 62 65 20 76 6F 6E 20 22  ie Eingabe von "
0001D0: 23 22 20 62 65 77 69 72 6B 74 20 64 65 6E 20 41  #" bewirkt den A
0001E0: 62 62 72 75 63 68 20 64 65 73 20 50 72 6F 67 72  bbruch des Progr
0001F0: 61 6D 6D 73 27 29 3B 0D 0A 20 20 72 65 70 65 61  amms');..  repea

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

Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 51 44 4C 3B 0D 0A 0D 0A  program QDL;....
000010: 28 2A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  (*--------------
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000050: 2D 0D 0A 0D 0A 51 44 4C 20 62 65 6E 75 74 7A 74  -....QDL benutzt
000060: 20 4D 53 20 44 4F 53 2C 20 75 6D 20 65 69 6E 20   MS DOS, um ein 
000070: 56 65 72 7A 65 69 63 68 6E 69 73 20 20 65 69 6E  Verzeichnis  ein
000080: 65 72 20 49 42 4D 20 66 6F 72 6D 61 74 69 65 72  er IBM formatier
000090: 74 65 6E 0D 0A 44 69 73 6B 65 74 74 65 20 7A 75  ten..Diskette zu
0000A0: 20 65 72 68 61 6C 74 65 6E 2E 20 44 65 72 20 46   erhalten. Der F
0000B0: 75 6E 6B 74 69 6F 6E 73 61 6E 72 75 66 2C 20 64  unktionsanruf, d
0000C0: 65 72 20 62 65 6E 75 74 7A 74 20 77 69 72 64 2C  er benutzt wird,
0000D0: 20 6B 61 6E 6E 20 69 6E 0D 0A 64 65 6D 20 20 44   kann in..dem  D
0000E0: 4F 53 20 20 48 61 6E 64 62 75 63 68 20 67 65 66  OS  Handbuch gef
0000F0: 75 6E 64 65 6E 20 77 65 72 64 65 6E 2E 20 20 44  unden werden.  D
000100: 69 65 73 65 73 20 20 50 72 6F 67 72 61 6D 6D 20  ieses  Programm 
000110: 20 73 69 63 68 65 72 74 20 20 64 65 6E 0D 0A 67   sichert  den..g
000120: 65 67 65 6E 77 61 65 72 74 69 67 65 20 20 44 61  egenwaertige  Da
000130: 74 65 6E 75 65 62 65 72 74 72 61 67 75 6E 67 62  tenuebertragungb
000140: 65 72 65 69 63 68 20 28 44 54 41 29 20 69 6E 20  ereich (DTA) in 
000150: 64 65 6E 20 56 61 72 69 61 62 6C 65 6E 20 44 54  den Variablen DT
000160: 41 73 65 67 0D 0A 75 6E 64 20 20 20 44 54 41 6F  Aseg..und   DTAo
000170: 66 73 2E 20 20 44 65 72 20 44 54 41 20 77 69 72  fs.  Der DTA wir
000180: 64 20 64 61 6E 6E 20 7A 75 72 75 65 63 6B 67 65  d dann zurueckge
000190: 73 74 65 6C 6C 74 20 61 75 66 20 65 69 6E 20 53  stellt auf ein S
0001A0: 65 67 6D 65 6E 74 20 75 6E 64 0D 0A 4F 66 66 73  egment und..Offs
0001B0: 65 74 20 20 20 65 69 6E 65 72 20 50 75 66 66 65  et   einer Puffe
0001C0: 72 76 61 72 69 61 62 6C 65 6E 20 27 44 54 41 27  rvariablen 'DTA'
0001D0: 2E 0D 0A 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  .....-----------
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------

Size : 512 (Real : 512)
000000: 0D 0A 70 72 6F 67 72 61 6D 20 50 61 73 73 46 75  ..program PassFu
000010: 6E 63 3B 0D 0A 28 2A 0D 0A 20 20 20 20 20 20 20  nc;..(*..       
000020: 44 69 65 73 65 20 52 6F 75 74 69 6E 65 20 65 72  Diese Routine er
000030: 77 61 72 74 65 74 20 64 69 65 20 41 73 73 65 6D  wartet die Assem
000040: 62 6C 65 72 20 52 6F 75 74 69 6E 65 20 76 6F 6E  bler Routine von
000050: 20 50 41 53 53 2E 41 53 4D 0D 0A 20 20 20 20 20   PASS.ASM..     
000060: 20 20 69 6E 20 64 65 6D 20 4D 61 73 63 68 69 6E    in dem Maschin
000070: 65 6E 70 72 6F 67 72 61 6D 6D 20 50 41 53 53 2E  enprogramm PASS.
000080: 43 4F 4D 0D 0A 2A 29 0D 0A 76 61 72 0D 0A 20 20  COM..*)..var..  
000090: 56 61 72 31 2C 20 56 61 72 32 2C 20 56 61 72 33  Var1, Var2, Var3
0000A0: 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 0D 0A 66 75  : Integer;....fu
0000B0: 6E 63 74 69 6F 6E 20 50 61 73 73 28 56 61 72 58  nction Pass(VarX
0000C0: 2C 20 56 61 72 59 3A 20 49 6E 74 65 67 65 72 29  , VarY: Integer)
0000D0: 3A 20 49 6E 74 65 67 65 72 3B 20 65 78 74 65 72  : Integer; exter
0000E0: 6E 61 6C 20 27 50 41 53 53 2E 43 4F 4D 27 3B 0D  nal 'PASS.COM';.
0000F0: 0A 0D 0A 0D 0A 62 65 67 69 6E 20 28 2A 20 76 6F  .....begin (* vo
000100: 6E 20 50 61 73 73 46 75 6E 63 20 2A 29 0D 0A 20  n PassFunc *).. 
000110: 72 65 70 65 61 74 0D 0A 20 20 20 20 52 65 61 64  repeat..    Read
000120: 4C 6E 28 56 61 72 31 29 3B 0D 0A 20 20 20 20 69  Ln(Var1);..    i
000130: 66 20 56 61 72 31 3C 3E 30 20 74 68 65 6E 20 62  f Var1<>0 then b
000140: 65 67 69 6E 0D 0A 20 20 20 20 20 20 52 65 61 64  egin..      Read
000150: 4C 6E 28 56 61 72 32 29 3B 0D 0A 20 20 20 20 20  Ln(Var2);..     
000160: 20 56 61 72 33 20 3A 3D 20 50 61 73 73 28 56 61   Var3 := Pass(Va
000170: 72 31 2C 56 61 72 32 29 3B 0D 0A 20 20 20 20 20  r1,Var2);..     
000180: 20 57 72 69 74 65 4C 6E 28 56 61 72 31 2C 27 20   WriteLn(Var1,' 
000190: 2B 20 27 2C 56 61 72 32 2C 27 20 3D 20 27 2C 56  + ',Var2,' = ',V
0001A0: 61 72 33 29 3B 0D 0A 20 20 20 20 20 20 57 72 69  ar3);..      Wri
0001B0: 74 65 4C 6E 0D 0A 20 20 20 20 65 6E 64 0D 0A 20  teLn..    end.. 
0001C0: 75 6E 74 69 6C 20 56 61 72 31 20 3D 20 30 0D 0A  until Var1 = 0..
0001D0: 65 6E 64 2E 20 28 2A 20 76 6F 6E 20 20 50 61 73  end. (* von  Pas
0001E0: 73 46 75 6E 63 20 2A 29 0D 0A 0D 0A 1A 1A 1A 1A  sFunc *)........
0001F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................

Size : 512 (Real : 512)
000000: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000010: 2D 2D 2D 2D 2D 2D 2A 29 0D 0A 28 2A 24 49 2D 2C  ------*)..(*$I-,
000020: 55 2D 2C 43 2D 2A 29 0D 0A 0D 0A 0D 0A 74 79 70  U-,C-*)......typ
000030: 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  e               
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20               (* 
000050: 54 59 50 45 4E 20 64 65 6B 6C 61 72 61 74 69 6F  TYPEN deklaratio
000060: 6E 20 2A 29 0D 0A 20 20 52 65 67 69 73 74 65 72  n *)..  Register
000070: 73 20 3D 0D 0A 20 20 20 20 72 65 63 6F 72 64 20  s =..    record 
000080: 20 20 20 20 20 20 20 20 20 20 28 2A 20 72 65 67            (* reg
000090: 69 73 74 65 72 20 66 75 65 72 20 4D 53 44 6F 73  ister fuer MSDos
0000A0: 20 61 75 66 72 75 66 20 2A 29 0D 0A 20 20 20 20   aufruf *)..    
0000B0: 20 20 41 58 2C 20 42 58 2C 20 43 58 2C 20 44 58    AX, BX, CX, DX
0000C0: 2C 20 42 50 2C 20 53 49 2C 20 44 49 2C 20 44 53  , BP, SI, DI, DS
0000D0: 2C 20 45 53 2C 20 46 6C 61 67 73 20 3A 20 49 6E  , ES, Flags : In
0000E0: 74 65 67 65 72 3B 0D 0A 20 20 20 20 65 6E 64 3B  teger;..    end;
0000F0: 0D 0A 20 20 43 68 61 72 38 30 61 72 72 20 20 20  ..  Char80arr   
000100: 20 20 3D 20 61 72 72 61 79 20 5B 20 31 2E 2E 38    = array [ 1..8
000110: 30 20 5D 20 6F 66 20 43 68 61 72 3B 0D 0A 20 20  0 ] of Char;..  
000120: 53 74 72 69 6E 67 38 30 20 20 20 20 20 20 3D 20  String80      = 
000130: 73 74 72 69 6E 67 5B 20 38 30 20 5D 3B 0D 0A 0D  string[ 80 ];...
000140: 0A 76 61 72 20 20 20 20 20 20 20 20 20 20 20 20  .var            
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000160: 20 20 28 2A 20 56 41 52 49 41 42 4C 45 20 64 65    (* VARIABLE de
000170: 6B 6C 61 72 61 74 69 6F 6E 20 2A 29 0D 0A 20 20  klaration *)..  
000180: 44 54 41 20 3A 20 61 72 72 61 79 20 5B 20 31 2E  DTA : array [ 1.
000190: 2E 34 33 20 5D 20 6F 66 20 42 79 74 65 3B 20 20  .43 ] of Byte;  
0001A0: 20 20 20 20 20 28 2A 20 44 61 74 61 20 54 72 61       (* Data Tra
0001B0: 6E 73 66 65 72 20 41 72 65 61 20 50 75 66 66 65  nsfer Area Puffe
0001C0: 72 20 2A 29 0D 0A 20 20 44 54 41 73 65 67 2C 20  r *)..  DTAseg, 
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20               (* 
0001F0: 44 54 41 20 53 65 67 6D 65 6E 74 20 76 6F 72 20  DTA Segment vor 

Size : 512 (Real : 512)
000000: 28 2A 20 46 75 6E 6B 74 69 6F 6E 20 75 6D 20 44  (* Funktion um D
000010: 54 41 20 61 64 72 65 73 73 65 20 66 65 73 74 7A  TA adresse festz
000020: 75 73 74 65 6C 6C 65 6E 20 2A 29 0D 0A 20 20 20  ustellen *)..   
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000040: 20 20 20 20 28 2A 20 24 32 46 30 30 20 77 69 72      (* $2F00 wir
000050: 64 20 61 6E 73 74 65 6C 6C 65 20 76 6F 6E 20 24  d anstelle von $
000060: 32 37 20 73 68 6C 20 38 20 62 65 6E 75 74 7A 74  27 shl 8 benutzt
000070: 20 75 6D 0D 0A 20 20 20 20 20 20 20 20 20 20 20   um..           
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64                 d
000090: 72 65 69 20 41 73 73 65 6D 62 6C 65 72 20 42 65  rei Assembler Be
0000A0: 66 65 68 6C 65 20 7A 75 20 73 70 61 72 65 6E 2E  fehle zu sparen.
0000B0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 45 69 6E 65              Eine
0000D0: 20 4D 6F 65 67 6C 69 63 68 6B 65 69 74 20 7A 75   Moeglichkeit zu
0000E0: 72 20 4F 70 74 69 6D 69 65 72 75 6E 67 20 2A 29  r Optimierung *)
0000F0: 0D 0A 20 20 4D 53 44 6F 73 28 20 52 65 67 73 20  ..  MSDos( Regs 
000100: 29 3B 20 20 20 20 20 20 20 28 2A 20 4D 53 20 44  );       (* MS D
000110: 4F 53 20 46 75 6E 6B 74 69 6F 6E 73 61 75 66 72  OS Funktionsaufr
000120: 75 66 20 2A 29 0D 0A 20 20 53 65 67 6D 65 6E 74  uf *)..  Segment
000130: 20 3A 3D 20 52 65 67 73 2E 45 53 3B 20 20 28 2A   := Regs.ES;  (*
000140: 20 53 65 67 6D 65 6E 74 20 64 65 72 20 44 54 41   Segment der DTA
000150: 20 76 6F 6E 20 44 4F 53 20 2A 29 0D 0A 20 20 4F   von DOS *)..  O
000160: 66 66 73 65 74 20 3A 3D 20 52 65 67 73 2E 42 58  ffset := Regs.BX
000170: 3B 20 20 20 28 2A 20 4F 66 66 73 65 74 20 64 65  ;   (* Offset de
000180: 72 20 44 54 41 20 20 76 6F 6E 20 44 4F 53 2A 29  r DTA  von DOS*)
000190: 0D 0A 20 20 46 65 68 6C 65 72 20 3A 3D 20 52 65  ..  Fehler := Re
0001A0: 67 73 2E 41 58 20 61 6E 64 20 24 46 46 3B 0D 0A  gs.AX and $FF;..
0001B0: 65 6E 64 3B 20 28 2A 20 64 65 72 20 50 72 6F 7A  end; (* der Proz
0001C0: 65 64 75 72 20 47 65 74 43 75 72 72 65 6E 74 44  edur GetCurrentD
0001D0: 54 41 20 2A 29 0D 0A 0D 0A 28 2A 2D 2D 2D 2D 2D  TA *)....(*-----
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------

Size : 512 (Real : 512)
000000: 41 75 73 66 75 65 72 75 6E 67 20 2A 29 0D 0A 20  Ausfuerung *).. 
000010: 20 44 54 41 6F 66 73 2C 20 20 20 20 20 20 20 20   DTAofs,        
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000030: 20 20 20 20 20 20 28 2A 20 44 54 41 20 4F 66 66        (* DTA Off
000040: 73 65 74 20 20 20 22 20 20 20 20 20 20 20 22 20  set   "       " 
000050: 20 20 20 20 2A 29 0D 0A 20 20 53 65 74 44 54 41      *)..  SetDTA
000060: 73 65 67 2C 20 20 20 20 20 20 20 20 20 20 20 20  seg,            
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28                 (
000080: 2A 20 44 54 41 20 53 65 67 6D 65 6E 74 20 61 6E  * DTA Segment an
000090: 64 20 4F 66 66 73 65 74 20 20 2A 29 0D 0A 20 20  d Offset  *)..  
0000A0: 53 65 74 44 54 41 6F 66 73 2C 20 20 20 20 20 20  SetDTAofs,      
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000C0: 20 20 20 20 20 28 2A 20 6E 61 63 68 20 50 72 6F       (* nach Pro
0000D0: 67 72 61 6D 6D 73 74 61 72 74 20 2A 29 0D 0A 20  grammstart *).. 
0000E0: 20 46 65 68 6C 65 72 2C 20 20 20 20 20 20 20 20   Fehler,        
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000100: 20 20 20 20 20 20 28 2A 20 46 65 68 6C 65 72 20        (* Fehler 
000110: 43 6F 64 65 20 2A 29 0D 0A 20 20 49 2C 20 4A 2C  Code *)..  I, J,
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000140: 28 2A 20 5A 61 65 68 6C 65 72 20 2A 29 0D 0A 20  (* Zaehler *).. 
000150: 20 4F 70 74 69 6F 6E 20 3A 20 49 6E 74 65 67 65   Option : Intege
000160: 72 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20  r;              
000170: 20 20 20 20 20 20 28 2A 20 66 75 65 72 20 44 61        (* fuer Da
000180: 74 65 69 61 74 74 72 69 62 75 74 65 20 2A 29 0D  teiattribute *).
000190: 0A 20 20 52 65 67 73 20 3A 20 72 65 67 69 73 74  .  Regs : regist
0001A0: 65 72 73 3B 20 20 20 20 20 20 20 20 20 20 20 20  ers;            
0001B0: 20 20 20 20 20 20 20 20 28 2A 20 72 65 67 69 73          (* regis
0001C0: 74 65 72 20 66 75 65 72 20 44 4F 53 20 61 75 66  ter fuer DOS auf
0001D0: 72 75 66 65 20 2A 29 0D 0A 20 20 42 75 66 66 65  rufe *)..  Buffe
0001E0: 72 2C 20 20 20 20 20 20 20 20 20 20 20 20 20 20  r,              
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  

Size : 512 (Real : 512)
000000: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 41  -------------..A
000020: 75 73 77 61 68 6C 20 20 67 69 62 74 20 64 65 6E  uswahl  gibt den
000030: 20 43 6F 64 65 20 28 20 44 61 74 65 69 61 74 74   Code ( Dateiatt
000040: 72 69 62 75 74 20 29 61 75 73 2C 20 20 64 65 72  ribut )aus,  der
000050: 20 62 65 6E 75 74 7A 74 20 77 75 72 64 65 2C 20   benutzt wurde, 
000060: 20 75 6D 0D 0A 64 69 65 20 20 44 61 74 65 69 6E   um..die  Datein
000070: 61 6D 65 6E 20 20 64 65 72 20 67 65 67 65 6E 77  amen  der gegenw
000080: 61 65 72 74 69 67 65 6E 20 44 69 72 65 63 74 6F  aertigen Directo
000090: 72 79 20 7A 75 20 66 69 6E 64 65 6E 20 20 28 64  ry zu finden  (d
0000A0: 2E 68 2E 20 20 56 65 72 2D 0D 0A 73 74 65 63 6B  .h.  Ver-..steck
0000B0: 74 2C 20 53 74 61 6E 64 61 72 64 20 6F 64 65 72  t, Standard oder
0000C0: 20 44 69 72 65 63 74 6F 72 79 20 29 0D 0A 2D 2D   Directory )..--
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000110: 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20  *)....procedure 
000120: 41 75 73 77 61 68 6C 28 20 76 61 72 20 4F 70 74  Auswahl( var Opt
000130: 69 6F 6E 20 3A 20 49 6E 74 65 67 65 72 20 29 3B  ion : Integer );
000140: 0D 0A 76 61 72 0D 0A 20 20 43 68 20 3A 20 43 68  ..var..  Ch : Ch
000150: 61 72 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 43 68  ar;..begin..  Ch
000160: 20 3A 3D 20 27 3F 27 3B 0D 0A 20 20 4F 70 74 69   := '?';..  Opti
000170: 6F 6E 20 3A 3D 20 31 3B 0D 0A 20 20 77 68 69 6C  on := 1;..  whil
000180: 65 20 28 20 43 68 20 3D 20 27 3F 27 20 29 20 64  e ( Ch = '?' ) d
000190: 6F 20 62 65 67 69 6E 0D 0A 20 20 20 20 57 72 69  o begin..    Wri
0001A0: 74 65 28 20 27 44 61 74 65 69 61 75 73 77 61 68  te( 'Dateiauswah
0001B0: 6C 20 2C 20 5B 20 3F 20 5D 20 66 75 65 72 20 49  l , [ ? ] fuer I
0001C0: 6E 66 6F 20 3A 20 27 20 29 3B 0D 0A 20 20 20 20  nfo : ' );..    
0001D0: 52 65 61 64 4C 6E 28 20 43 68 20 29 3B 0D 0A 20  ReadLn( Ch );.. 
0001E0: 20 20 20 57 72 69 74 65 4C 6E 3B 0D 0A 20 20 20     WriteLn;..   
0001F0: 20 63 61 73 65 20 28 20 43 68 20 29 20 6F 66 0D   case ( Ch ) of.

Size : 512 (Real : 512)
000000: 28 2A 20 55 6E 69 76 65 72 73 61 6C 70 75 66 66  (* Universalpuff
000010: 65 72 20 2A 29 0D 0A 20 20 4E 61 6D 52 20 3A 20  er *)..  NamR : 
000020: 53 74 72 69 6E 67 38 30 3B 20 20 20 20 20 20 20  String80;       
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2A                (*
000040: 20 44 61 74 65 69 6E 61 6D 65 20 2A 29 0D 0A 20   Dateiname *).. 
000050: 20 4D 61 73 6B 20 3A 20 43 68 61 72 38 30 61 72   Mask : Char80ar
000060: 72 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20  r;              
000070: 20 20 20 20 20 20 28 2A 20 44 61 74 65 69 6D 61        (* Dateima
000080: 73 6B 65 20 2A 29 0D 0A 0D 0A 28 2A 2D 2D 2D 2D  ske *)....(*----
000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20  -------------.. 
0000D0: 53 65 74 7A 65 44 54 41 20 73 65 74 7A 74 20 64  SetzeDTA setzt d
0000E0: 69 65 20 67 65 67 65 6E 77 61 65 72 74 69 67 65  ie gegenwaertige
0000F0: 6E 20 44 54 41 20 61 75 66 20 64 69 65 20 6E 65  n DTA auf die ne
000100: 75 65 20 41 64 72 65 73 73 65 2C 20 20 64 69 65  ue Adresse,  die
000110: 0D 0A 20 64 75 72 63 68 20 64 65 6E 20 50 61 72  .. durch den Par
000120: 61 6D 65 74 65 72 65 6E 20 27 53 45 47 4D 45 4E  ameteren 'SEGMEN
000130: 54 27 20 75 6E 64 20 27 4F 46 46 53 45 54 27 20  T' und 'OFFSET' 
000140: 73 70 65 7A 69 66 69 7A 69 65 72 74 20 73 69 6E  spezifiziert sin
000150: 64 2E 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  d...------------
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000190: 2D 2D 2D 2D 2D 2A 29 0D 0A 0D 0A 70 72 6F 63 65  -----*)....proce
0001A0: 64 75 72 65 20 53 65 74 7A 65 44 54 41 28 20 53  dure SetzeDTA( S
0001B0: 65 67 6D 65 6E 74 2C 20 4F 66 66 73 65 74 20 3A  egment, Offset :
0001C0: 20 49 6E 74 65 67 65 72 3B 20 76 61 72 20 46 65   Integer; var Fe
0001D0: 68 6C 65 72 20 3A 20 49 6E 74 65 67 65 72 20 29  hler : Integer )
0001E0: 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 52 65 67 73  ;..begin..  Regs
0001F0: 2E 41 58 20 3A 3D 20 24 31 41 30 30 3B 20 20 20  .AX := $1A00;   

Size : 512 (Real : 512)
000000: 0A 20 20 20 20 20 20 27 31 27 20 3A 20 4F 70 74  .      '1' : Opt
000010: 69 6F 6E 20 3A 3D 20 31 3B 20 20 20 20 20 20 20  ion := 1;       
000020: 20 28 2A 20 2D 5C 20 20 20 20 20 20 20 20 20 20   (* -\          
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000040: 20 20 20 2A 29 0D 0A 20 20 20 20 20 20 27 32 27     *)..      '2'
000050: 20 3A 20 4F 70 74 69 6F 6E 20 3A 3D 20 37 3B 20   : Option := 7; 
000060: 20 20 20 20 20 20 20 28 2A 20 20 20 5C 20 20 20         (*   \   
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000080: 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 20 20 20           *)..   
000090: 20 20 20 27 33 27 20 3A 20 4F 70 74 69 6F 6E 20     '3' : Option 
0000A0: 3A 3D 20 38 3B 20 20 20 20 20 20 20 20 28 2A 20  := 8;        (* 
0000B0: 20 20 20 2D 20 4D 6F 65 67 6C 69 63 68 65 20 4F     - Moegliche O
0000C0: 70 74 69 6F 6E 65 6E 20 20 20 20 20 20 20 20 2A  ptionen        *
0000D0: 29 0D 0A 20 20 20 20 20 20 27 34 27 20 3A 20 4F  )..      '4' : O
0000E0: 70 74 69 6F 6E 20 3A 3D 20 31 36 3B 20 20 20 20  ption := 16;    
0000F0: 20 20 20 28 2A 20 20 20 20 2D 20 45 72 6B 6C 61     (*    - Erkla
000100: 65 72 75 6E 67 20 73 69 65 68 65 20 75 6E 74 65  erung siehe unte
000110: 6E 20 20 20 20 2A 29 0D 0A 20 20 20 20 20 20 27  n    *)..      '
000120: 35 27 20 3A 20 4F 70 74 69 6F 6E 20 3A 3D 20 32  5' : Option := 2
000130: 32 3B 20 20 20 20 20 20 20 28 2A 20 20 20 2F 20  2;       (*   / 
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000150: 20 20 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 20             *).. 
000160: 20 20 20 20 20 27 36 27 20 3A 20 4F 70 74 69 6F       '6' : Optio
000170: 6E 20 3A 3D 20 33 31 3B 20 20 20 20 20 20 20 28  n := 31;       (
000180: 2A 20 2D 2F 20 20 20 20 20 20 20 20 20 20 20 20  * -/            
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001A0: 20 2A 29 0D 0A 20 20 20 20 20 20 27 3F 27 20 3A   *)..      '?' :
0001B0: 20 62 65 67 69 6E 20 20 20 20 20 20 20 20 20 20   begin          
0001C0: 20 20 20 20 20 28 2A 20 7A 65 69 67 74 20 61 6C       (* zeigt al
0001D0: 6C 65 20 4F 70 74 69 6F 6E 65 6E 20 20 20 20 20  le Optionen     
0001E0: 20 20 20 20 20 20 20 2A 29 0D 0A 20 20 20 20 20         *)..     
0001F0: 20 20 20 20 20 20 20 20 20 57 72 69 74 65 4C 6E           WriteLn

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 28 2A 20 46 75 6E 6B 74 69 6F        (* Funktio
000010: 6E 20 75 6D 20 64 69 65 20 44 54 41 20 7A 75 20  n um die DTA zu 
000020: 73 65 74 7A 65 6E 20 2A 29 0D 0A 20 20 52 65 67  setzen *)..  Reg
000030: 73 2E 44 53 20 3A 3D 20 53 65 67 6D 65 6E 74 3B  s.DS := Segment;
000040: 20 20 20 20 20 20 20 28 2A 20 53 70 65 69 63 68         (* Speich
000050: 65 72 65 20 50 61 72 61 6D 65 74 65 72 20 53 65  ere Parameter Se
000060: 67 6D 65 6E 74 20 69 6E 20 44 53 20 2A 29 0D 0A  gment in DS *)..
000070: 20 20 52 65 67 73 2E 44 58 20 3A 3D 20 4F 66 66    Regs.DX := Off
000080: 73 65 74 3B 20 20 20 20 20 20 20 20 28 2A 20 20  set;        (*  
000090: 20 22 20 20 20 20 20 20 20 20 20 20 20 22 20 20   "           "  
0000A0: 20 20 20 4F 66 66 73 65 74 20 69 6E 20 44 58 20     Offset in DX 
0000B0: 2A 29 0D 0A 20 20 4D 53 44 6F 73 28 20 52 65 67  *)..  MSDos( Reg
0000C0: 73 20 29 3B 20 20 20 20 20 20 20 20 20 20 20 20  s );            
0000D0: 28 2A 20 53 65 74 7A 65 20 44 54 41 20 2A 29 0D  (* Setze DTA *).
0000E0: 0A 20 20 46 65 68 6C 65 72 20 3A 3D 20 52 65 67  .  Fehler := Reg
0000F0: 73 2E 41 58 20 61 6E 64 20 24 46 46 3B 20 28 2A  s.AX and $FF; (*
000100: 20 46 65 68 6C 65 72 63 6F 64 65 20 68 6F 6C 65   Fehlercode hole
000110: 6E 20 2A 29 0D 0A 65 6E 64 3B 20 28 2A 20 64 65  n *)..end; (* de
000120: 72 20 50 72 6F 7A 65 64 75 72 20 53 65 74 7A 65  r Prozedur Setze
000130: 44 54 41 20 2A 29 0D 0A 0D 0A 28 2A 20 2D 2D 2D  DTA *)....(* ---
000140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 47  -------------..G
000180: 65 74 43 75 72 72 65 6E 74 44 54 41 20 77 69 72  etCurrentDTA wir
000190: 64 20 62 65 6E 75 74 7A 74 2C 20 20 75 6D 20 64  d benutzt,  um d
0001A0: 69 65 20 41 64 72 65 73 73 65 20 64 65 73 20 67  ie Adresse des g
0001B0: 65 67 65 6E 2D 0D 0A 77 61 65 72 74 69 67 65 6E  egen-..waertigen
0001C0: 20 20 44 69 73 6B 65 74 74 65 6E 75 65 62 65 72    Diskettenueber
0001D0: 74 72 61 67 75 6E 67 73 62 65 72 65 69 63 68 73  tragungsbereichs
0001E0: 20 28 20 44 54 41 20 29 20 7A 75 20 20 65 72 68   ( DTA ) zu  erh
0001F0: 61 6C 74 65 6E 2E 20 20 45 73 0D 0A 69 73 74 20  alten.  Es..ist 

Size : 512 (Real : 512)
000000: 28 20 27 45 73 20 67 69 62 74 20 66 6F 6C 67 65  ( 'Es gibt folge
000010: 6E 64 65 20 4F 70 74 69 6F 6E 65 6E 20 3A 20 27  nde Optionen : '
000020: 20 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20   );..           
000030: 20 20 20 57 72 69 74 65 4C 6E 3B 0D 0A 20 20 20     WriteLn;..   
000040: 20 20 20 20 20 20 20 20 20 20 20 57 72 69 74 65             Write
000050: 4C 6E 28 20 27 20 5B 20 31 20 5D 20 66 75 65 72  Ln( ' [ 1 ] fuer
000060: 20 53 74 61 6E 64 61 72 64 20 44 61 74 65 69 65   Standard Dateie
000070: 6E 20 5B 20 64 65 66 61 75 6C 74 20 5D 2E 27 20  n [ default ].' 
000080: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  );..            
000090: 20 20 57 72 69 74 65 28 20 27 20 5B 20 32 20 5D    Write( ' [ 2 ]
0000A0: 20 66 75 65 72 20 53 79 73 74 65 6D 64 61 74 65   fuer Systemdate
0000B0: 69 65 6E 2C 20 76 65 72 73 74 65 63 6B 74 65 20  ien, versteckte 
0000C0: 44 61 74 65 69 65 6E 20 27 20 29 3B 0D 0A 20 20  Dateien ' );..  
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 57 72 69 74              Writ
0000E0: 65 4C 6E 28 20 27 75 6E 64 20 53 74 61 6E 64 61  eLn( 'und Standa
0000F0: 72 64 20 44 61 74 65 69 65 6E 2E 27 20 29 3B 0D  rd Dateien.' );.
000100: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57  .              W
000110: 72 69 74 65 4C 6E 28 20 27 20 5B 20 33 20 5D 20  riteLn( ' [ 3 ] 
000120: 66 75 65 72 20 44 69 73 6B 65 74 74 65 6E 20 4C  fuer Disketten L
000130: 61 62 65 6C 2E 27 20 29 3B 0D 0A 20 20 20 20 20  abel.' );..     
000140: 20 20 20 20 20 20 20 20 20 57 72 69 74 65 28 20           Write( 
000150: 27 20 5B 20 34 20 5D 20 66 75 65 72 20 49 6E 68  ' [ 4 ] fuer Inh
000160: 61 6C 74 73 76 65 72 7A 65 69 63 68 6E 69 73 73  altsverzeichniss
000170: 65 20 27 20 29 3B 0D 0A 20 20 20 20 20 20 20 20  e ' );..        
000180: 20 20 20 20 20 20 57 72 69 74 65 4C 6E 28 20 27        WriteLn( '
000190: 75 6E 64 20 53 74 61 6E 64 61 72 64 20 44 61 74  und Standard Dat
0001A0: 65 69 65 6E 2E 27 20 29 3B 0D 0A 20 20 20 20 20  eien.' );..     
0001B0: 20 20 20 20 20 20 20 20 20 57 72 69 74 65 4C 6E           WriteLn
0001C0: 28 20 27 20 5B 20 35 20 5D 20 66 75 65 72 20 49  ( ' [ 5 ] fuer I
0001D0: 6E 68 61 6C 74 73 76 65 72 7A 65 69 63 68 6E 69  nhaltsverzeichni
0001E0: 73 73 65 2C 20 76 65 72 73 74 65 63 6B 74 65 20  sse, versteckte 
0001F0: 6F 64 65 72 20 27 20 29 3B 0D 0A 20 20 20 20 20  oder ' );..     

Size : 512 (Real : 512)
000000: 20 65 69 6E 20 20 46 75 6E 6B 74 69 6F 6E 73 63   ein  Funktionsc
000010: 6F 64 65 20 20 76 6F 6E 20 24 32 46 20 20 69 6E  ode  von $2F  in
000020: 20 64 65 6D 20 68 6F 65 68 65 72 65 6E 20 20 42   dem hoeheren  B
000030: 79 74 65 20 20 64 65 73 20 20 41 58 0D 0A 52 65  yte  des  AX..Re
000040: 67 69 73 74 65 72 73 20 67 65 73 70 65 69 63 68  gisters gespeich
000050: 65 72 74 2C 20 20 75 6E 64 20 65 73 20 77 69 72  ert,  und es wir
000060: 64 20 65 69 6E 20 41 6E 72 75 66 20 61 6E 20 64  d ein Anruf an d
000070: 69 65 20 20 76 6F 72 64 65 66 69 6E 69 65 72 74  ie  vordefiniert
000080: 65 0D 0A 50 72 6F 7A 65 64 75 72 20 20 4D 53 44  e..Prozedur  MSD
000090: 4F 53 20 67 65 6D 61 63 68 74 2E 20 20 44 69 65  OS gemacht.  Die
0000A0: 73 20 6B 61 6E 6E 20 61 75 63 68 20 64 75 72 63  s kann auch durc
0000B0: 68 20 42 65 6E 75 74 7A 75 6E 67 20 64 65 72 20  h Benutzung der 
0000C0: 22 49 6E 74 72 22 0D 0A 50 72 6F 7A 65 64 75 72  "Intr"..Prozedur
0000D0: 2C 20 6D 69 74 20 64 65 6D 73 65 6C 62 65 6E 20  , mit demselben 
0000E0: 52 65 67 69 73 74 65 72 72 65 63 6F 72 64 20 75  Registerrecord u
0000F0: 6E 64 20 65 69 6E 65 72 20 24 32 31 20 53 70 65  nd einer $21 Spe
000100: 7A 69 66 69 6B 61 74 69 6F 6E 0D 0A 66 75 65 72  zifikation..fuer
000110: 20 64 65 6E 20 41 62 62 72 75 63 68 2C 20 65 72   den Abbruch, er
000120: 72 65 69 63 68 74 20 77 65 72 64 65 6E 2E 0D 0A  reicht werden...
000130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000170: 2D 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65  -*)....procedure
000180: 20 47 65 74 43 75 72 72 65 6E 74 44 54 41 28 20   GetCurrentDTA( 
000190: 76 61 72 20 53 65 67 6D 65 6E 74 2C 20 4F 66 66  var Segment, Off
0001A0: 73 65 74 20 3A 20 49 6E 74 65 67 65 72 3B 0D 0A  set : Integer;..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001C0: 20 20 20 20 20 20 20 20 20 76 61 72 20 46 65 68           var Feh
0001D0: 6C 65 72 20 3A 20 49 6E 74 65 67 65 72 20 29 3B  ler : Integer );
0001E0: 0D 0A 62 65 67 69 6E 0D 0A 20 20 52 65 67 73 2E  ..begin..  Regs.
0001F0: 41 58 20 3A 3D 20 24 32 46 30 30 3B 20 20 20 20  AX := $2F00;    

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 57 72 69 74 65 4C 6E           WriteLn
000010: 28 20 27 20 20 20 20 20 20 20 53 79 73 74 65 6D  ( '       System
000020: 20 75 6E 64 20 53 74 61 6E 64 61 72 64 20 44 61   und Standard Da
000030: 74 65 69 65 6E 27 20 29 3B 0D 0A 20 20 20 20 20  teien' );..     
000040: 20 20 20 20 20 20 20 20 20 57 72 69 74 65 4C 6E           WriteLn
000050: 28 20 27 20 5B 20 36 20 5D 20 77 69 65 20 35 20  ( ' [ 6 ] wie 5 
000060: 61 62 65 72 20 6D 69 74 20 44 69 73 6B 65 74 74  aber mit Diskett
000070: 65 6E 20 4C 61 62 65 6C 27 20 29 3B 0D 0A 20 20  en Label' );..  
000080: 20 20 20 20 20 20 20 20 20 20 20 20 57 72 69 74              Writ
000090: 65 4C 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  eLn;..          
0000A0: 20 65 6E 64 3B 0D 0A 20 20 20 20 65 6C 73 65 20   end;..    else 
0000B0: 4F 70 74 69 6F 6E 20 3A 3D 20 31 3B 20 28 2A 20  Option := 1; (* 
0000C0: 77 65 6E 6E 20 6E 69 63 68 74 73 20 6F 64 65 72  wenn nichts oder
0000D0: 20 65 74 77 61 73 20 66 61 6C 73 63 68 65 73 20   etwas falsches 
0000E0: 65 69 6E 67 65 74 69 70 70 74 20 77 75 72 64 65  eingetippt wurde
0000F0: 20 2A 29 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 20   *)..    end;.. 
000100: 20 65 6E 64 0D 0A 65 6E 64 3B 20 28 2A 20 64 65   end..end; (* de
000110: 72 20 50 72 6F 7A 65 64 75 72 20 41 75 73 77 61  r Prozedur Auswa
000120: 68 6C 20 2A 29 0D 0A 0D 0A 28 2A 2D 2D 2D 2D 2D  hl *)....(*-----
000130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 47  -------------..G
000170: 65 74 46 69 72 73 74 20 20 6E 69 6D 6D 74 20 20  etFirst  nimmt  
000180: 64 69 65 20 65 72 73 74 65 20 44 69 72 65 63 74  die erste Direct
000190: 6F 72 79 2D 45 69 6E 74 72 61 67 75 6E 67 20 65  ory-Eintragung e
0001A0: 69 6E 65 72 20 20 62 65 73 6F 6E 64 65 72 65 6E  iner  besonderen
0001B0: 0D 0A 44 61 74 65 69 6D 61 73 6B 65 2E 20 44 69  ..Dateimaske. Di
0001C0: 65 20 4D 61 73 6B 65 20 77 69 72 64 20 61 6C 73  e Maske wird als
0001D0: 20 50 61 72 61 6D 65 74 65 72 20 27 4D 61 73 6B   Parameter 'Mask
0001E0: 65 27 20 75 65 62 65 72 67 65 62 65 6E 2C 20 75  e' uebergeben, u
0001F0: 6E 64 20 64 69 65 0D 0A 57 61 68 6C 20 20 20 77  nd die..Wahl   w

Size : 512 (Real : 512)
000000: 53 65 67 6D 65 6E 74 20 3A 20 4F 66 66 73 65 74  Segment : Offset
000010: 20 2B 20 32 39 20 2B 20 49 20 5D 20 29 3B 0D 0A   + 29 + I ] );..
000020: 20 20 20 20 49 20 3A 3D 20 49 20 2B 20 31 3B 0D      I := I + 1;.
000030: 0A 20 20 75 6E 74 69 6C 20 28 20 6E 6F 74 20 28  .  until ( not (
000040: 20 4E 61 6D 52 5B 20 49 20 2D 20 31 20 5D 20 69   NamR[ I - 1 ] i
000050: 6E 20 5B 20 27 20 27 2E 2E 27 7E 27 20 5D 20 29  n [ ' '..'~' ] )
000060: 29 3B 0D 0A 20 20 4E 61 6D 52 5B 20 30 20 5D 20  );..  NamR[ 0 ] 
000070: 3A 3D 20 43 68 72 28 20 49 20 2D 20 31 20 29 3B  := Chr( I - 1 );
000080: 0D 0A 65 6E 64 3B 20 28 2A 20 64 65 72 20 50 72  ..end; (* der Pr
000090: 6F 7A 65 64 75 72 20 47 65 74 4E 65 78 74 45 6E  ozedur GetNextEn
0000A0: 74 72 79 20 2A 29 0D 0A 0D 0A 28 2A 0D 0A 20 20  try *)....(*..  
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 48 61 75 70              Haup
0000C0: 74 70 72 6F 67 72 61 6D 6D 20 76 6F 6E 20 51 44  tprogramm von QD
0000D0: 4C 0D 0A 2A 29 0D 0A 0D 0A 62 65 67 69 6E 0D 0A  L..*)....begin..
0000E0: 20 20 66 6F 72 20 49 20 3A 3D 20 31 20 74 6F 20    for I := 1 to 
0000F0: 32 31 20 64 6F 20 44 54 41 5B 20 49 20 5D 20 3A  21 do DTA[ I ] :
000100: 3D 20 30 3B 20 20 28 2A 20 44 54 41 20 49 6E 69  = 0;  (* DTA Ini
000110: 74 69 61 6C 69 73 69 65 72 65 6E 20 2A 29 0D 0A  tialisieren *)..
000120: 20 20 20 20 66 6F 72 20 49 20 3A 3D 20 31 20 74      for I := 1 t
000130: 6F 20 38 30 20 64 6F 20 62 65 67 69 6E 20 20 20  o 80 do begin   
000140: 28 2A 20 4D 61 73 6B 20 75 6E 64 20 44 61 74 65  (* Mask und Date
000150: 69 6E 61 6D 65 6E 70 75 66 66 65 72 20 69 6E 69  inamenpuffer ini
000160: 74 69 61 6C 69 73 69 65 72 65 6E 20 2A 29 0D 0A  tialisieren *)..
000170: 20 20 20 20 20 20 4D 61 73 6B 5B 20 49 20 5D 20        Mask[ I ] 
000180: 3A 3D 20 43 68 72 28 20 30 20 29 3B 0D 0A 20 20  := Chr( 0 );..  
000190: 20 20 20 20 4E 61 6D 52 5B 20 49 20 5D 20 3A 3D      NamR[ I ] :=
0001A0: 20 43 68 72 28 20 30 20 29 3B 0D 0A 20 20 20 20   Chr( 0 );..    
0001B0: 65 6E 64 3B 0D 0A 20 20 4E 61 6D 52 5B 20 30 20  end;..  NamR[ 0 
0001C0: 5D 20 3A 3D 20 43 68 72 28 20 30 20 29 3B 20 20  ] := Chr( 0 );  
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 44              (* D
0001E0: 61 74 65 69 6E 61 6D 65 6E 6C 61 65 6E 67 65 20  ateinamenlaenge 
0001F0: 61 75 66 20 30 20 73 65 74 7A 65 6E 20 2A 29 0D  auf 0 setzen *).

Size : 512 (Real : 512)
000000: 75 72 64 65 20 20 76 6F 72 68 65 72 20 20 69 6E  urde  vorher  in
000010: 20 20 50 72 6F 7A 65 64 75 72 20 20 20 53 70 65    Prozedur   Spe
000020: 7A 69 66 69 7A 69 65 72 57 61 68 6C 2C 20 20 20  zifizierWahl,   
000030: 66 65 73 74 67 65 6C 65 67 74 2E 0D 0A 2D 2D 2D  festgelegt...---
000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2A  ---------------*
000080: 29 0D 0A 70 72 6F 63 65 64 75 72 65 20 47 65 74  )..procedure Get
000090: 46 69 72 73 74 28 20 4D 61 73 6B 20 20 20 20 20  First( Mask     
0000A0: 20 20 20 20 20 20 20 3A 20 43 68 61 72 38 30 61         : Char80a
0000B0: 72 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20  rr;..           
0000C0: 20 20 20 20 20 20 20 20 20 76 61 72 20 4E 61 6D           var Nam
0000D0: 52 20 20 20 20 20 20 20 20 3A 20 53 74 72 69 6E  R        : Strin
0000E0: 67 38 30 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  g80;..          
0000F0: 20 20 20 20 20 20 20 20 20 20 53 65 67 6D 65 6E            Segmen
000100: 74 2C 20 4F 66 66 73 65 74 20 3A 20 49 6E 74 65  t, Offset : Inte
000110: 67 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  ger;..          
000120: 20 20 20 20 20 20 20 20 20 20 4F 70 74 69 6F 6E            Option
000130: 20 20 20 20 20 20 20 20 20 20 3A 20 49 6E 74 65            : Inte
000140: 67 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  ger;..          
000150: 20 20 20 20 20 20 20 20 20 20 76 61 72 20 46 65            var Fe
000160: 68 6C 65 72 20 20 20 20 20 20 3A 20 49 6E 74 65  hler      : Inte
000170: 67 65 72 20 29 3B 0D 0A 76 61 72 0D 0A 20 20 49  ger );..var..  I
000180: 20 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 62 65 67   : Integer;..beg
000190: 69 6E 0D 0A 20 20 46 65 68 6C 65 72 20 3A 3D 20  in..  Fehler := 
0001A0: 30 3B 0D 0A 20 20 52 65 67 73 2E 41 58 20 3A 3D  0;..  Regs.AX :=
0001B0: 20 24 34 45 30 30 3B 20 20 20 20 20 20 20 20 20   $4E00;         
0001C0: 20 28 2A 20 45 72 73 74 65 6E 20 44 69 72 65 63   (* Ersten Direc
0001D0: 74 6F 72 79 20 45 69 6E 74 72 61 67 20 68 6F 6C  tory Eintrag hol
0001E0: 65 6E 20 2A 29 0D 0A 20 20 52 65 67 73 2E 44 53  en *)..  Regs.DS
0001F0: 20 3A 3D 20 53 65 67 28 20 4D 61 73 6B 20 29 3B   := Seg( Mask );

Size : 512 (Real : 512)
000000: 0A 20 20 57 72 69 74 65 4C 6E 28 20 27 51 44 4C  .  WriteLn( 'QDL
000010: 20 56 65 72 73 69 6F 6E 20 47 45 52 20 32 2E 30   Version GER 2.0
000020: 30 41 27 20 29 3B 0D 0A 20 20 57 72 69 74 65 4C  0A' );..  WriteL
000030: 6E 3B 0D 0A 20 20 47 65 74 43 75 72 72 65 6E 74  n;..  GetCurrent
000040: 44 54 41 28 20 44 54 41 73 65 67 2C 20 44 54 41  DTA( DTAseg, DTA
000050: 6F 66 73 2C 20 46 65 68 6C 65 72 20 29 3B 20 20  ofs, Fehler );  
000060: 28 2A 20 41 6B 74 75 65 6C 6C 65 20 44 54 41 20  (* Aktuelle DTA 
000070: 41 64 64 72 65 73 73 65 20 68 6F 6C 65 6E 20 2A  Addresse holen *
000080: 29 0D 0A 20 20 69 66 20 28 20 46 65 68 6C 65 72  )..  if ( Fehler
000090: 20 3C 3E 20 30 20 29 20 74 68 65 6E 20 62 65 67   <> 0 ) then beg
0000A0: 69 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 28  in             (
0000B0: 2A 20 46 65 68 6C 65 72 70 72 75 65 66 75 6E 67  * Fehlerpruefung
0000C0: 20 2A 29 0D 0A 20 20 20 20 57 72 69 74 65 4C 6E   *)..    WriteLn
0000D0: 28 20 27 41 6B 74 75 65 6C 6C 65 20 44 54 41 20  ( 'Aktuelle DTA 
0000E0: 6E 69 63 68 74 20 67 65 66 75 6E 64 65 6E 27 20  nicht gefunden' 
0000F0: 29 3B 0D 0A 20 20 20 20 57 72 69 74 65 4C 6E 28  );..    WriteLn(
000100: 20 27 50 72 6F 67 72 61 6D 6D 61 62 62 72 75 63   'Programmabbruc
000110: 68 2E 27 20 29 3B 20 20 20 20 20 20 20 20 20 20  h.' );          
000120: 28 2A 20 50 72 6F 67 72 61 6D 6D 61 62 62 72 75  (* Programmabbru
000130: 63 68 2E 20 2A 29 0D 0A 20 20 20 20 48 61 6C 74  ch. *)..    Halt
000140: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;               
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000160: 20 20 20 20 28 2A 20 50 72 6F 67 72 61 6D 6D 65      (* Programme
000170: 6E 64 65 20 2A 29 0D 0A 20 20 65 6E 64 3B 0D 0A  nde *)..  end;..
000180: 20 20 53 65 74 44 54 41 73 65 67 20 3A 3D 20 53    SetDTAseg := S
000190: 65 67 28 20 44 54 41 20 29 3B 0D 0A 20 20 53 65  eg( DTA );..  Se
0001A0: 74 44 54 41 6F 66 73 20 3A 3D 20 4F 66 73 28 20  tDTAofs := Ofs( 
0001B0: 44 54 41 20 29 3B 0D 0A 20 20 53 65 74 7A 65 44  DTA );..  SetzeD
0001C0: 54 41 28 20 53 65 74 44 54 41 73 65 67 2C 20 53  TA( SetDTAseg, S
0001D0: 65 74 44 54 41 6F 66 73 2C 20 46 65 68 6C 65 72  etDTAofs, Fehler
0001E0: 20 29 3B 20 28 2A 20 44 54 41 20 41 64 64 72 65   ); (* DTA Addre
0001F0: 73 73 65 20 7A 75 72 75 65 63 6B 73 65 74 7A 65  sse zuruecksetze

Size : 512 (Real : 512)
000000: 20 20 20 20 28 2A 20 5A 65 69 67 65 72 20 61 75      (* Zeiger au
000010: 66 20 44 61 74 65 69 6E 61 6D 65 6E 6D 61 73 6B  f Dateinamenmask
000020: 65 20 2A 29 0D 0A 20 20 52 65 67 73 2E 44 58 20  e *)..  Regs.DX 
000030: 3A 3D 20 4F 66 73 28 20 4D 61 73 6B 20 29 3B 0D  := Ofs( Mask );.
000040: 0A 20 20 52 65 67 73 2E 43 58 20 3A 3D 20 4F 70  .  Regs.CX := Op
000050: 74 69 6F 6E 3B 20 20 20 20 20 20 20 20 20 28 2A  tion;         (*
000060: 20 41 74 74 72 69 62 75 74 20 3D 20 4F 70 74 69   Attribut = Opti
000070: 6F 6E 20 2A 29 0D 0A 20 20 4D 53 44 6F 73 28 20  on *)..  MSDos( 
000080: 52 65 67 73 20 29 3B 20 20 20 20 20 20 20 20 20  Regs );         
000090: 20 20 20 20 28 2A 20 4D 53 44 6F 73 20 61 75 66      (* MSDos auf
0000A0: 72 75 66 20 2A 29 0D 0A 20 20 46 65 68 6C 65 72  ruf *)..  Fehler
0000B0: 20 3A 3D 20 52 65 67 73 2E 41 58 20 61 6E 64 20   := Regs.AX and 
0000C0: 24 46 46 3B 20 20 28 2A 20 46 65 68 6C 65 72 63  $FF;  (* Fehlerc
0000D0: 6F 64 65 20 68 6F 6C 65 6E 20 2A 29 0D 0A 20 20  ode holen *)..  
0000E0: 49 20 3A 3D 20 31 3B 20 20 20 20 20 20 20 20 20  I := 1;         
0000F0: 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 49 6E             (* In
000100: 69 74 69 61 6C 69 73 69 65 72 65 20 49 20 66 75  itialisiere I fu
000110: 65 72 20 64 65 6E 20 65 72 73 74 65 6E 20 42 75  er den ersten Bu
000120: 63 68 73 74 61 62 65 6E 20 2A 29 0D 0A 20 20 72  chstaben *)..  r
000130: 65 70 65 61 74 20 20 20 20 20 20 20 20 20 20 20  epeat           
000140: 20 20 20 20 20 20 28 2A 20 53 63 68 6C 65 69 66        (* Schleif
000150: 65 20 7A 75 6D 20 6C 65 73 65 6E 20 64 65 73 20  e zum lesen des 
000160: 65 72 73 74 65 6E 20 45 69 6E 74 72 61 67 73 20  ersten Eintrags 
000170: 76 6F 6E 20 44 54 41 20 2A 29 0D 0A 20 20 20 20  von DTA *)..    
000180: 4E 61 6D 52 5B 20 49 20 5D 20 3A 3D 20 43 68 72  NamR[ I ] := Chr
000190: 28 20 6D 65 6D 5B 20 53 65 67 6D 65 6E 74 20 3A  ( mem[ Segment :
0001A0: 20 4F 66 66 73 65 74 20 2B 20 32 39 20 2B 20 49   Offset + 29 + I
0001B0: 20 5D 20 29 3B 0D 0A 20 20 20 20 49 20 3A 3D 20   ] );..    I := 
0001C0: 49 20 2B 20 31 3B 0D 0A 20 20 75 6E 74 69 6C 20  I + 1;..  until 
0001D0: 28 20 6E 6F 74 20 28 20 4E 61 6D 52 5B 20 49 20  ( not ( NamR[ I 
0001E0: 2D 20 31 20 5D 20 69 6E 20 5B 20 27 20 27 2E 2E  - 1 ] in [ ' '..
0001F0: 27 7E 27 20 5D 20 29 29 3B 0D 0A 20 20 4E 61 6D  '~' ] ));..  Nam

Size : 512 (Real : 512)
000000: 6E 20 2A 29 0D 0A 20 20 69 66 20 28 20 46 65 68  n *)..  if ( Feh
000010: 6C 65 72 20 3C 3E 20 30 20 29 20 74 68 65 6E 20  ler <> 0 ) then 
000020: 62 65 67 69 6E 20 20 20 20 20 20 20 20 20 20 20  begin           
000030: 20 20 28 2A 20 50 72 75 65 66 75 6E 67 20 61 75    (* Pruefung au
000040: 66 20 46 65 68 6C 65 72 20 2A 29 0D 0A 20 20 20  f Fehler *)..   
000050: 20 57 72 69 74 65 4C 6E 28 20 27 44 54 41 20 6B   WriteLn( 'DTA k
000060: 61 6E 6E 20 6E 69 63 68 74 20 7A 75 72 01 63 6B  ann nicht zur.ck
000070: 67 65 73 65 74 7A 74 20 77 65 72 64 65 6E 27 20  gesetzt werden' 
000080: 29 3B 20 28 2A 20 46 65 68 6C 65 72 20 4D 65 6C  ); (* Fehler Mel
000090: 64 75 6E 67 20 2A 29 0D 0A 20 20 20 20 57 72 69  dung *)..    Wri
0000A0: 74 65 4C 6E 28 20 27 50 72 6F 67 72 61 6D 6D 61  teLn( 'Programma
0000B0: 62 62 72 75 63 68 2E 27 20 29 3B 0D 0A 20 20 20  bbruch.' );..   
0000C0: 20 48 61 6C 74 3B 20 20 20 20 20 20 20 20 20 20   Halt;          
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000E0: 20 20 20 20 20 20 20 20 20 28 2A 20 50 72 6F 67           (* Prog
0000F0: 72 61 6D 6D 65 6E 64 65 20 2A 29 0D 0A 20 20 65  rammende *)..  e
000100: 6E 64 3B 0D 0A 20 20 46 65 68 6C 65 72 20 3A 3D  nd;..  Fehler :=
000110: 20 30 3B 0D 0A 20 20 42 75 66 66 65 72 5B 20 30   0;..  Buffer[ 0
000120: 20 5D 20 3A 3D 20 43 68 72 28 20 30 20 29 3B 20   ] := Chr( 0 ); 
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000140: 20 28 2A 20 50 75 66 66 65 72 6C 61 65 6E 67 65   (* Pufferlaenge
000150: 20 61 75 66 20 30 20 73 65 74 7A 65 6E 20 2A 29   auf 0 setzen *)
000160: 0D 0A 20 20 41 75 73 77 61 68 6C 28 20 4F 70 74  ..  Auswahl( Opt
000170: 69 6F 6E 20 29 3B 20 20 20 20 20 20 20 20 20 20  ion );          
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2A                (*
000190: 20 41 74 74 72 69 62 75 74 20 65 69 6E 6C 65 73   Attribut einles
0001A0: 65 6E 20 2A 29 0D 0A 20 20 69 66 20 28 20 4F 70  en *)..  if ( Op
0001B0: 74 69 6F 6E 20 3C 3E 20 38 20 29 20 74 68 65 6E  tion <> 8 ) then
0001C0: 20 62 65 67 69 6E 0D 0A 20 20 20 20 57 72 69 74   begin..    Writ
0001D0: 65 28 20 27 44 61 74 65 69 6D 61 73 6B 65 20 3A  e( 'Dateimaske :
0001E0: 20 27 20 29 3B 20 20 20 20 20 20 20 20 20 20 20   ' );           
0001F0: 20 20 20 20 28 2A 20 46 72 61 67 65 20 2A 29 0D      (* Frage *).

Size : 512 (Real : 512)
000000: 52 5B 20 30 20 5D 20 3A 3D 20 43 68 72 28 20 49  R[ 0 ] := Chr( I
000010: 20 2D 20 31 20 29 3B 20 20 28 2A 20 53 74 72 69   - 1 );  (* Stri
000020: 6E 67 6C 61 65 6E 67 65 20 69 6E 20 64 61 73 20  nglaenge in das 
000030: 65 72 73 74 65 20 42 79 74 65 20 73 65 74 7A 65  erste Byte setze
000040: 6E 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20  n *)..          
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000060: 20 20 20 20 28 2A 20 64 61 20 65 73 20 68 69 65      (* da es hie
000070: 72 20 6E 69 63 68 74 20 61 75 74 6F 6D 61 74 69  r nicht automati
000080: 73 63 68 20 67 65 73 63 68 69 65 68 74 20 2A 29  sch geschieht *)
000090: 0D 0A 65 6E 64 3B 20 28 2A 20 64 65 72 20 50 72  ..end; (* der Pr
0000A0: 6F 7A 65 64 75 72 20 47 65 74 46 69 72 73 74 20  ozedur GetFirst 
0000B0: 2A 29 0D 0A 0D 0A 28 2A 2D 2D 2D 2D 2D 2D 2D 2D  *)....(*--------
0000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 47 65 74 4E  ----------..GetN
000100: 65 78 74 45 6E 74 72 79 20 62 65 6E 75 74 7A 74  extEntry benutzt
000110: 20 64 69 65 20 65 72 73 74 65 6E 20 42 79 74 65   die ersten Byte
000120: 73 20 64 65 73 20 44 54 41 20 66 75 65 72 20 20  s des DTA fuer  
000130: 64 69 65 0D 0A 44 61 74 65 69 6D 61 73 6B 65 2C  die..Dateimaske,
000140: 20 20 75 6E 64 20 20 67 69 62 74 20 20 64 69 65    und  gibt  die
000150: 20 6E 61 65 63 68 73 74 65 20 44 61 74 65 69 65   naechste Dateie
000160: 69 6E 74 72 61 67 75 6E 67 20 61 75 66 20 20 20  intragung auf   
000170: 44 69 73 6B 65 74 74 65 0D 0A 65 6E 74 73 70 72  Diskette..entspr
000180: 65 63 68 65 6E 64 20 64 65 72 20 44 61 74 65 69  echend der Datei
000190: 6D 61 73 6B 65 20 61 75 73 2E 0D 0A 2D 2D 2D 2D  maske aus...----
0001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2A 29  --------------*)
0001E0: 0D 0A 70 72 6F 63 65 64 75 72 65 20 47 65 74 4E  ..procedure GetN
0001F0: 65 78 74 45 6E 74 72 79 28 20 76 61 72 20 4E 61  extEntry( var Na

Size : 512 (Real : 512)
000000: 0A 20 20 20 20 52 65 61 64 4C 6E 28 20 42 75 66  .    ReadLn( Buf
000010: 66 65 72 20 29 3B 0D 0A 20 20 20 20 57 72 69 74  fer );..    Writ
000020: 65 4C 6E 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 20 20  eLn;..  end;..  
000030: 69 66 20 28 20 6C 65 6E 67 74 68 28 20 42 75 66  if ( length( Buf
000040: 66 65 72 20 29 20 3D 20 30 20 29 20 74 68 65 6E  fer ) = 0 ) then
000050: 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 57 65             (* We
000060: 6E 6E 20 6E 69 63 68 74 73 20 65 69 6E 67 65 67  nn nichts eingeg
000070: 65 62 65 6E 20 2A 29 0D 0A 20 20 20 20 42 75 66  eben *)..    Buf
000080: 66 65 72 20 3A 3D 20 27 3F 3F 3F 3F 3F 3F 3F 3F  fer := '????????
000090: 2E 3F 3F 3F 27 3B 20 20 20 20 20 20 20 20 20 20  .???';          
0000A0: 20 20 20 20 20 20 28 2A 20 77 75 72 64 65 2C 20        (* wurde, 
0000B0: 64 61 6E 6E 20 61 6C 6C 65 20 44 61 74 65 69 65  dann alle Dateie
0000C0: 6E 20 2A 29 0D 0A 20 20 66 6F 72 20 49 20 3A 3D  n *)..  for I :=
0000D0: 20 31 20 74 6F 20 6C 65 6E 67 74 68 28 20 42 75   1 to length( Bu
0000E0: 66 66 65 72 20 29 20 64 6F 20 20 20 20 20 20 20  ffer ) do       
0000F0: 20 20 20 28 2A 20 4D 61 73 6B 65 20 76 6F 6E 20     (* Maske von 
000100: 42 75 66 66 65 72 20 6C 65 73 65 6E 20 2A 29 0D  Buffer lesen *).
000110: 0A 20 20 20 20 4D 61 73 6B 5B 20 49 20 5D 20 3A  .    Mask[ I ] :
000120: 3D 20 42 75 66 66 65 72 5B 20 49 20 5D 3B 0D 0A  = Buffer[ I ];..
000130: 20 20 47 65 74 46 69 72 73 74 28 20 4D 61 73 6B    GetFirst( Mask
000140: 2C 20 4E 61 6D 52 2C 20 53 65 74 44 54 41 73 65  , NamR, SetDTAse
000150: 67 2C 20 53 65 74 44 54 41 6F 66 73 2C 20 4F 70  g, SetDTAofs, Op
000160: 74 69 6F 6E 2C 20 46 65 68 6C 65 72 20 29 3B 0D  tion, Fehler );.
000170: 0A 20 20 69 66 20 28 20 46 65 68 6C 65 72 20 3D  .  if ( Fehler =
000180: 20 30 20 29 20 74 68 65 6E 20 62 65 67 69 6E 20   0 ) then begin 
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2A                (*
0001A0: 20 45 72 73 74 65 6E 20 45 69 6E 74 72 61 67 20   Ersten Eintrag 
0001B0: 68 6F 6C 65 6E 20 2A 29 0D 0A 20 20 20 20 69 66  holen *)..    if
0001C0: 20 28 20 4F 70 74 69 6F 6E 20 3C 3E 20 38 20 29   ( Option <> 8 )
0001D0: 20 74 68 65 6E 20 62 65 67 69 6E 20 20 20 20 20   then begin     
0001E0: 20 20 20 20 20 20 20 28 2A 20 57 65 6E 6E 20 6B         (* Wenn k
0001F0: 65 69 6E 20 44 69 73 6B 65 74 74 65 6E 6C 61 62  ein Diskettenlab

Size : 512 (Real : 512)
000000: 6D 52 20 20 20 20 20 20 20 20 3A 20 53 74 72 69  mR        : Stri
000010: 6E 67 38 30 3B 0D 0A 20 20 20 20 20 20 20 20 20  ng80;..         
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53                 S
000030: 65 67 6D 65 6E 74 2C 20 4F 66 66 73 65 74 20 3A  egment, Offset :
000040: 20 49 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 20   Integer;..     
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000060: 20 20 20 4F 70 74 69 6F 6E 20 20 20 20 20 20 20     Option       
000070: 20 20 20 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 20     : Integer;.. 
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000090: 20 20 20 20 20 20 20 76 61 72 20 46 65 68 6C 65         var Fehle
0000A0: 72 20 20 20 20 20 20 3A 20 49 6E 74 65 67 65 72  r      : Integer
0000B0: 20 29 3B 0D 0A 76 61 72 0D 0A 20 20 49 20 3A 20   );..var..  I : 
0000C0: 49 6E 74 65 67 65 72 3B 0D 0A 62 65 67 69 6E 0D  Integer;..begin.
0000D0: 0A 20 20 46 65 68 6C 65 72 20 3A 3D 20 30 3B 0D  .  Fehler := 0;.
0000E0: 0A 20 20 52 65 67 73 2E 41 58 20 3A 3D 20 24 34  .  Regs.AX := $4
0000F0: 46 30 30 3B 20 20 20 20 20 20 20 20 20 20 20 28  F00;           (
000100: 2A 20 46 75 6E 6B 74 69 6F 6E 20 75 6D 20 64 65  * Funktion um de
000110: 6E 20 6E 61 65 63 68 73 74 65 6E 20 45 69 6E 74  n naechsten Eint
000120: 72 61 67 20 7A 75 20 68 6F 6C 65 6E 20 2A 29 0D  rag zu holen *).
000130: 0A 20 20 52 65 67 73 2E 43 58 20 3A 3D 20 4F 70  .  Regs.CX := Op
000140: 74 69 6F 6E 3B 20 20 20 20 20 20 20 20 20 20 28  tion;          (
000150: 2A 20 41 74 74 72 69 62 75 74 20 73 65 74 7A 65  * Attribut setze
000160: 6E 20 2A 29 0D 0A 20 20 4D 53 44 6F 73 28 20 52  n *)..  MSDos( R
000170: 65 67 73 20 29 3B 20 20 20 20 20 20 20 20 20 20  egs );          
000180: 20 20 20 20 28 2A 20 4D 53 44 6F 73 20 61 75 66      (* MSDos auf
000190: 72 75 66 65 6E 20 2A 29 0D 0A 20 20 46 65 68 6C  rufen *)..  Fehl
0001A0: 65 72 20 3A 3D 20 52 65 67 73 2E 41 58 20 61 6E  er := Regs.AX an
0001B0: 64 20 24 46 46 3B 20 20 28 2A 20 46 65 68 6C 65  d $FF;  (* Fehle
0001C0: 72 63 6F 64 65 20 68 6F 6C 65 6E 20 2A 29 0D 0A  rcode holen *)..
0001D0: 20 20 49 20 3A 3D 20 31 3B 0D 0A 20 20 72 65 70    I := 1;..  rep
0001E0: 65 61 74 0D 0A 20 20 20 20 4E 61 6D 52 5B 20 49  eat..    NamR[ I
0001F0: 20 5D 20 3A 3D 20 43 68 72 28 20 6D 65 6D 5B 20   ] := Chr( mem[ 

Size : 512 (Real : 512)
000000: 65 6C 20 2A 29 0D 0A 20 20 20 20 20 20 57 72 69  el *)..      Wri
000010: 74 65 4C 6E 28 20 27 49 6E 68 61 6C 74 73 76 65  teLn( 'Inhaltsve
000020: 72 7A 65 69 63 68 6E 69 73 73 20 76 6F 6E 20 3A  rzeichniss von :
000030: 20 27 2C 20 42 75 66 66 65 72 20 29 3B 20 28 2A   ', Buffer ); (*
000040: 20 4C 61 75 66 77 65 72 6B 20 7A 65 69 67 65 6E   Laufwerk zeigen
000050: 20 2A 29 0D 0A 20 20 20 20 20 20 57 72 69 74 65   *)..      Write
000060: 4C 6E 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 20  Ln;..    end;.. 
000070: 20 20 20 57 72 69 74 65 4C 6E 28 20 4E 61 6D 52     WriteLn( NamR
000080: 20 29 0D 0A 20 20 65 6E 64 0D 0A 20 20 65 6C 73   )..  end..  els
000090: 65 20 69 66 20 28 20 4F 70 74 69 6F 6E 20 3D 20  e if ( Option = 
0000A0: 38 20 29 20 74 68 65 6E 0D 0A 20 20 20 20 57 72  8 ) then..    Wr
0000B0: 69 74 65 4C 6E 28 20 27 44 69 73 6B 65 74 74 65  iteLn( 'Diskette
0000C0: 6E 6C 61 62 65 6C 20 6E 69 63 68 74 20 67 65 66  nlabel nicht gef
0000D0: 75 6E 64 65 6E 2E 27 20 29 0D 0A 20 20 65 6C 73  unden.' )..  els
0000E0: 65 20 57 72 69 74 65 4C 6E 28 20 27 44 61 74 65  e WriteLn( 'Date
0000F0: 69 20 27 27 27 2C 20 42 75 66 66 65 72 2C 20 27  i ''', Buffer, '
000100: 27 27 20 6E 69 63 68 74 20 67 65 66 75 6E 64 65  '' nicht gefunde
000110: 6E 2E 27 20 29 3B 0D 0A 20 20 77 68 69 6C 65 20  n.' );..  while 
000120: 28 20 46 65 68 6C 65 72 20 3D 20 30 20 29 20 64  ( Fehler = 0 ) d
000130: 6F 20 62 65 67 69 6E 0D 0A 20 20 20 20 47 65 74  o begin..    Get
000140: 4E 65 78 74 45 6E 74 72 79 28 20 4E 61 6D 52 2C  NextEntry( NamR,
000150: 20 53 65 74 44 54 41 73 65 67 2C 20 53 65 74 44   SetDTAseg, SetD
000160: 54 41 6F 66 73 2C 20 4F 70 74 69 6F 6E 2C 20 46  TAofs, Option, F
000170: 65 68 6C 65 72 20 29 3B 0D 0A 20 20 20 20 69 66  ehler );..    if
000180: 20 28 20 46 65 68 6C 65 72 20 3D 20 30 20 29 20   ( Fehler = 0 ) 
000190: 74 68 65 6E 20 57 72 69 74 65 4C 6E 28 20 4E 61  then WriteLn( Na
0001A0: 6D 52 20 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 20  mR );..  end;.. 
0001B0: 20 53 65 74 7A 65 44 54 41 28 20 44 54 41 73 65   SetzeDTA( DTAse
0001C0: 67 2C 20 44 54 41 6F 66 73 2C 20 46 65 68 6C 65  g, DTAofs, Fehle
0001D0: 72 20 29 3B 0D 0A 65 6E 64 2E 20 28 2A 20 65 6E  r );..end. (* en
0001E0: 64 20 4D 61 69 6E 20 2A 29 0D 0A 0D 0A 0D 0A 1A  d Main *).......
0001F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................

Size : 512 (Real : 512)
000000: 72 7A 65 69 63 68 69 73 0D 0A 20 20 20 20 46 49  rzeichis..    FI
000010: 4C 54 45 52 2E 50 41 53 20 20 20 20 45 69 6E 20  LTER.PAS    Ein 
000020: 4D 53 44 4F 53 20 46 69 6C 74 65 72 0D 0A 0D 0A  MSDOS Filter....
000030: 0D 0A 50 72 6F 67 72 61 6D 6D 65 20 7A 75 6D 20  ..Programme zum 
000040: 4B 61 70 69 74 65 6C 20 22 43 50 2F 4D 20 52 6F  Kapitel "CP/M Ro
000050: 75 74 69 6E 65 6E 22 0D 0A 28 64 2E 68 2E 20 50  utinen"..(d.h. P
000060: 72 6F 67 72 61 6D 6D 65 2C 20 64 69 65 20 6E 75  rogramme, die nu
000070: 72 20 75 6E 74 65 72 20 43 50 2F 4D 20 6C 61 75  r unter CP/M lau
000080: 66 66 7B 68 69 67 20 73 69 6E 64 29 0D 0A 0D 0A  ff{hig sind)....
000090: 20 20 20 20 43 50 4D 44 49 52 2E 50 41 53 20 20      CPMDIR.PAS  
0000A0: 20 20 4C 65 73 65 6E 20 64 65 73 20 49 6E 68 61    Lesen des Inha
0000B0: 6C 74 73 76 65 72 7A 65 69 63 68 6E 69 73 73 65  ltsverzeichnisse
0000C0: 73 0D 0A 20 20 20 20 43 50 4D 53 54 41 54 2E 50  s..    CPMSTAT.P
0000D0: 41 53 20 20 20 53 79 73 74 65 6D 2D 53 74 61 74  AS   System-Stat
0000E0: 75 73 20 68 6F 6C 65 6E 0D 0A 0D 0A 0D 0A 50 72  us holen......Pr
0000F0: 6F 67 72 61 6D 6D 65 20 7A 75 6D 20 4B 61 70 69  ogramme zum Kapi
000100: 74 65 6C 20 22 50 72 6F 67 72 61 6D 6D 69 65 72  tel "Programmier
000110: 75 6E 67 20 69 6E 20 41 73 73 65 6D 62 6C 65 72  ung in Assembler
000120: 22 0D 0A 28 44 69 65 73 65 20 50 72 6F 67 72 61  "..(Diese Progra
000130: 6D 6D 65 20 73 69 6E 64 20 6E 75 72 20 75 6E 74  mme sind nur unt
000140: 65 72 20 4D 53 20 44 4F 53 20 62 7A 77 2E 20 50  er MS DOS bzw. P
000150: 43 20 44 4F 53 0D 0A 6C 61 75 66 66 61 65 68 69  C DOS..lauffaehi
000160: 67 29 0D 0A 0D 0A 20 20 20 20 49 4E 4C 49 4E 45  g)....    INLINE
000170: 2E 50 41 53 20 20 20 20 42 65 69 73 70 69 65 6C  .PAS    Beispiel
000180: 20 66 75 65 72 20 38 30 38 36 20 69 6E 6C 69 6E   fuer 8086 inlin
000190: 65 20 4D 61 73 63 68 69 6E 65 6E 63 6F 64 65 0D  e Maschinencode.
0001A0: 0A 20 20 20 20 50 41 53 53 2E 41 53 4D 20 20 20  .    PASS.ASM   
0001B0: 20 20 20 42 65 69 73 70 69 65 6C 20 66 75 65 72     Beispiel fuer
0001C0: 20 38 30 38 36 20 65 78 74 65 72 6E 61 6C 73 20   8086 externals 
0001D0: 69 6E 20 41 73 73 65 6D 62 6C 65 72 0D 0A 20 20  in Assembler..  
0001E0: 20 20 50 41 53 53 46 55 4E 43 2E 50 41 53 20 20    PASSFUNC.PAS  
0001F0: 50 61 73 63 61 6C 20 52 6F 75 74 69 6E 65 2C 20  Pascal Routine, 

Size : 512 (Real : 512)
000000: 4D 75 65 6E 63 68 65 6E 20 64 65 6E 20 31 36 2E  Muenchen den 16.
000010: 30 36 2E 38 35 0D 0A 0D 0A 53 65 68 72 20 67 65  06.85....Sehr ge
000020: 65 68 72 74 65 72 20 54 55 52 42 4F 20 50 61 73  ehrter TURBO Pas
000030: 63 61 6C 20 4B 75 6E 64 65 2C 0D 0A 0D 0A 44 69  cal Kunde,....Di
000040: 65 73 65 20 44 69 73 6B 65 74 74 65 20 65 6E 74  ese Diskette ent
000050: 68 61 65 6C 74 20 20 64 65 6E 20 53 6F 75 72 63  haelt  den Sourc
000060: 65 20 43 6F 64 65 20 64 65 72 20 42 65 69 73 70  e Code der Beisp
000070: 69 65 6C 65 20 69 6D 0D 0A 54 55 52 42 4F 20 54  iele im..TURBO T
000080: 75 74 6F 72 2C 20 64 61 6D 69 74 20 53 69 65 20  utor, damit Sie 
000090: 73 69 65 20 6E 69 63 68 74 20 65 78 74 72 61 20  sie nicht extra 
0000A0: 61 62 74 69 70 70 65 6E 20 6D 75 65 73 73 65 6E  abtippen muessen
0000B0: 2E 0D 0A 0D 0A 45 69 6E 20 6C 65 74 7A 74 65 73  .....Ein letztes
0000C0: 20 42 65 69 73 70 69 65 6C 20 77 75 72 64 65 20   Beispiel wurde 
0000D0: 6E 61 63 68 20 64 65 6D 20 44 72 75 63 6B 20 6E  nach dem Druck n
0000E0: 6F 63 68 20 68 69 6E 7A 75 67 65 66 75 65 67 74  och hinzugefuegt
0000F0: 2C 0D 0A 46 49 4C 54 45 52 2E 50 41 53 2C 20 64  ,..FILTER.PAS, d
000100: 61 73 20 7A 75 20 64 65 6E 20 4D 53 20 44 4F 53  as zu den MS DOS
000110: 20 50 72 6F 67 72 61 6D 6D 65 6E 20 61 6D 20 45   Programmen am E
000120: 6E 64 65 20 64 65 73 20 42 75 63 68 65 73 0D 0A  nde des Buches..
000130: 67 65 68 6F 65 72 74 2E 20 45 73 20 69 73 74 20  gehoert. Es ist 
000140: 66 75 65 72 20 6A 65 6E 65 20 76 6F 6E 20 49 68  fuer jene von Ih
000150: 6E 65 6E 2C 20 64 69 65 20 46 69 6C 74 65 72 20  nen, die Filter 
000160: 69 6E 20 54 55 52 42 4F 20 50 61 73 63 61 6C 0D  in TURBO Pascal.
000170: 0A 73 63 68 72 65 69 62 65 6E 20 77 6F 6C 6C 65  .schreiben wolle
000180: 6E 2E 0D 0A 0D 0A 45 62 65 6E 66 61 6C 6C 73 20  n.....Ebenfalls 
000190: 61 75 66 20 64 65 72 20 44 69 73 6B 65 74 74 65  auf der Diskette
0001A0: 20 69 73 74 20 64 65 72 20 53 6F 75 72 63 65 20   ist der Source 
0001B0: 43 6F 64 65 20 76 6F 6E 20 4C 49 53 54 54 2E 50  Code von LISTT.P
0001C0: 41 53 2C 0D 0A 65 69 6E 65 6D 20 54 55 52 42 4F  AS,..einem TURBO
0001D0: 20 50 61 73 63 61 6C 20 4C 69 73 74 65 72 2E 0D   Pascal Lister..
0001E0: 0A 44 65 72 20 4C 69 73 74 65 72 20 6B 61 6E 6E  .Der Lister kann
0001F0: 20 73 6F 20 62 65 73 73 65 72 20 69 6E 64 69 76   so besser indiv

Size : 512 (Real : 512)
000000: 64 69 65 20 50 41 53 53 2E 41 53 4D 20 28 61 6C  die PASS.ASM (al
000010: 73 20 50 41 53 53 2E 43 4F 4D 29 20 61 75 66 72  s PASS.COM) aufr
000020: 75 66 74 0D 0A 0D 0A 0D 0A 7A 75 73 61 65 74 7A  uft......zusaetz
000030: 6C 69 63 68 65 20 50 72 6F 67 72 61 6D 6D 65 0D  liche Programme.
000040: 0A 28 6C 61 75 66 66 61 65 68 69 67 20 75 6E 74  .(lauffaehig unt
000050: 65 72 20 4D 53 20 44 4F 53 2C 20 50 43 20 44 4F  er MS DOS, PC DO
000060: 53 20 75 6E 64 20 43 50 2F 4D 29 0D 0A 0D 0A 20  S und CP/M).... 
000070: 20 20 20 4C 49 53 54 54 2E 50 41 53 20 20 20 20     LISTT.PAS    
000080: 20 54 75 72 62 6F 20 53 6F 75 72 63 65 2D 50 72   Turbo Source-Pr
000090: 6F 67 72 61 6D 6D 20 4C 69 73 74 65 72 0D 0A 20  ogramm Lister.. 
0000A0: 20 20 20 4C 49 53 54 54 2E 44 4F 43 20 20 20 20     LISTT.DOC    
0000B0: 20 44 6F 6B 75 6D 65 6E 74 61 74 69 6F 6E 20 66   Dokumentation f
0000C0: 75 65 72 20 4C 49 53 54 54 0D 0A 20 20 20 20 2A  uer LISTT..    *
0000D0: 2E 4C 54 50 20 20 20 20 20 20 20 20 20 56 6F 72  .LTP         Vor
0000E0: 64 65 66 69 6E 69 65 72 74 65 20 50 61 72 61 6D  definierte Param
0000F0: 65 74 65 72 2D 44 61 74 65 69 65 6E 20 66 75 65  eter-Dateien fue
000100: 72 20 4C 49 53 54 54 0D 0A 0D 0A 0D 0A 57 49 43  r LISTT......WIC
000110: 48 54 49 47 20 46 55 45 52 20 42 45 4E 55 54 5A  HTIG FUER BENUTZ
000120: 45 52 20 56 4F 4E 20 43 50 2F 4D 3A 0D 0A 0D 0A  ER VON CP/M:....
000130: 20 20 42 45 49 20 44 45 52 20 41 4E 47 41 42 45    BEI DER ANGABE
000140: 20 44 45 52 20 50 41 52 41 4D 45 54 45 52 20 46   DER PARAMETER F
000150: 55 45 52 20 44 45 4E 20 44 52 55 43 4B 45 52 20  UER DEN DRUCKER 
000160: 28 4F 70 74 69 6F 6E 20 22 4C 22 20 69 6D 0D 0A  (Option "L" im..
000170: 20 20 4D 65 6E 75 20 64 65 73 20 50 72 6F 67 72    Menu des Progr
000180: 61 6D 6D 73 20 4C 49 53 54 54 2E 50 41 53 20 75  amms LISTT.PAS u
000190: 6E 64 20 64 61 72 61 75 66 66 6F 6C 67 65 6E 64  nd darauffolgend
0001A0: 65 20 45 69 6E 67 61 62 65 20 65 69 6E 65 73 0D  e Eingabe eines.
0001B0: 0A 20 20 2A 2E 4C 54 50 20 46 69 6C 65 73 29 20  .  *.LTP Files) 
0001C0: 4D 55 7E 20 44 49 45 20 4C 41 55 46 57 45 52 4B  MU~ DIE LAUFWERK
0001D0: 53 42 45 5A 45 49 43 48 4E 55 4E 47 20 4D 49 54  SBEZEICHNUNG MIT
0001E0: 20 41 4E 47 45 47 45 42 45 4E 20 57 45 52 44 45   ANGEGEBEN WERDE
0001F0: 4E 21 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A  N!..............

Size : 512 (Real : 512)
000000: 69 64 75 65 6C 6C 65 6E 20 57 75 65 6E 73 63 68  iduellen Wuensch
000010: 65 6E 20 61 6E 67 65 70 61 73 73 74 20 77 65 72  en angepasst wer
000020: 64 65 6E 2E 0D 0A 45 69 6E 65 20 55 65 62 65 72  den...Eine Ueber
000030: 73 69 63 68 74 20 64 65 72 20 46 6F 72 6D 61 74  sicht der Format
000040: 69 65 72 75 6E 67 73 6B 6F 6D 6D 61 6E 64 6F 73  ierungskommandos
000050: 20 69 73 74 20 69 6E 20 4C 49 53 54 54 2E 44 4F   ist in LISTT.DO
000060: 43 0D 0A 7A 75 20 66 69 6E 64 65 6E 2E 0D 0A 0D  C..zu finden....
000070: 0A 48 69 65 72 20 65 69 6E 65 20 55 65 62 65 72  .Hier eine Ueber
000080: 73 69 63 68 74 20 75 65 62 65 72 20 64 69 65 20  sicht ueber die 
000090: 44 61 74 65 69 65 6E 20 61 75 66 20 64 65 72 20  Dateien auf der 
0000A0: 44 69 73 6B 65 74 74 65 3A 0D 0A 0D 0A 42 65 69  Diskette:....Bei
0000B0: 73 70 69 65 6C 64 61 74 65 69 65 6E 20 66 75 65  spieldateien fue
0000C0: 72 20 54 65 69 6C 20 49 20 64 65 73 20 42 75 63  r Teil I des Buc
0000D0: 68 65 73 3A 0D 0A 28 6C 61 75 66 66 61 65 68 69  hes:..(lauffaehi
0000E0: 67 20 75 6E 74 65 72 20 4D 53 20 44 4F 53 2C 20  g unter MS DOS, 
0000F0: 50 43 20 44 4F 53 20 75 6E 64 20 43 50 2F 4D 29  PC DOS und CP/M)
000100: 0D 0A 0D 0A 20 20 20 20 4D 45 49 4E 4E 41 4D 45  ....    MEINNAME
000110: 2E 50 41 53 0D 0A 0D 0A 0D 0A 42 65 69 73 70 69  .PAS......Beispi
000120: 65 6C 64 61 74 65 69 65 6E 20 66 75 65 72 20 54  eldateien fuer T
000130: 65 69 6C 20 49 49 20 64 65 73 20 42 75 63 68 65  eil II des Buche
000140: 73 3A 0D 0A 28 6C 61 75 66 66 61 65 68 69 67 20  s:..(lauffaehig 
000150: 75 6E 74 65 72 20 4D 53 20 44 4F 53 2C 20 50 43  unter MS DOS, PC
000160: 20 44 4F 53 20 75 6E 64 20 43 50 2F 4D 29 0D 0A   DOS und CP/M)..
000170: 0D 0A 20 20 20 20 53 43 41 4C 41 52 45 2E 50 41  ..    SCALARE.PA
000180: 53 20 20 20 20 42 65 69 73 70 69 65 6C 65 20 61  S    Beispiele a
000190: 75 73 20 64 65 6D 20 4B 61 70 69 74 65 6C 20 75  us dem Kapitel u
0001A0: 65 62 65 72 20 53 63 61 6C 61 72 65 0D 0A 20 20  eber Scalare..  
0001B0: 20 20 53 50 49 45 4C 31 2E 50 41 53 20 20 20 20    SPIEL1.PAS    
0001C0: 20 45 69 6E 20 65 69 6E 66 61 63 68 65 73 20 53   Ein einfaches S
0001D0: 70 69 65 6C 0D 0A 0D 0A 0D 0A 42 65 69 73 70 69  piel......Beispi
0001E0: 65 6C 64 61 74 65 69 65 6E 20 66 75 65 72 20 54  eldateien fuer T
0001F0: 65 69 6C 20 49 49 49 20 64 65 73 20 42 75 63 68  eil III des Buch

Size : 512 (Real : 512)
000000: 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000010: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000020: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000030: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000040: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000050: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000060: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000070: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000080: 20 54 75 72 62 6F 20 53 6F 75 72 63 65 2D 50 72   Turbo Source-Pr
000090: 6F 67 72 61 6D 6D 20 4C 69 73 74 65 72 0D 0A 20  ogramm Lister.. 
0000A0: 20 20 20 4C 49 53 54 54 2E 44 4F 43 20 20 20 20     LISTT.DOC    
0000B0: 20 44 6F 6B 75 6D 65 6E 74 61 74 69 6F 6E 20 66   Dokumentation f
0000C0: 75 65 72 20 4C 49 53 54 54 0D 0A 20 20 20 20 2A  uer LISTT..    *
0000D0: 2E 4C 54 50 20 20 20 20 20 20 20 20 20 56 6F 72  .LTP         Vor
0000E0: 64 65 66 69 6E 69 65 72 74 65 20 50 61 72 61 6D  definierte Param
0000F0: 65 74 65 72 2D 44 61 74 65 69 65 6E 20 66 75 65  eter-Dateien fue
000100: 72 20 4C 49 53 54 54 0D 0A 0D 0A 0D 0A 57 49 43  r LISTT......WIC
000110: 48 54 49 47 20 46 55 45 52 20 42 45 4E 55 54 5A  HTIG FUER BENUTZ
000120: 45 52 20 56 4F 4E 20 43 50 2F 4D 3A 0D 0A 0D 0A  ER VON CP/M:....
000130: 20 20 42 45 49 20 44 45 52 20 41 4E 47 41 42 45    BEI DER ANGABE
000140: 20 44 45 52 20 50 41 52 41 4D 45 54 45 52 20 46   DER PARAMETER F
000150: 55 45 52 20 44 45 4E 20 44 52 55 43 4B 45 52 20  UER DEN DRUCKER 
000160: 28 4F 70 74 69 6F 6E 20 22 4C 22 20 69 6D 0D 0A  (Option "L" im..
000170: 20 20 4D 65 6E 75 20 64 65 73 20 50 72 6F 67 72    Menu des Progr
000180: 61 6D 6D 73 20 4C 49 53 54 54 2E 50 41 53 20 75  amms LISTT.PAS u
000190: 6E 64 20 64 61 72 61 75 66 66 6F 6C 67 65 6E 64  nd darauffolgend
0001A0: 65 20 45 69 6E 67 61 62 65 20 65 69 6E 65 73 0D  e Eingabe eines.
0001B0: 0A 20 20 2A 2E 4C 54 50 20 46 69 6C 65 73 29 20  .  *.LTP Files) 
0001C0: 4D 55 7E 20 44 49 45 20 4C 41 55 46 57 45 52 4B  MU~ DIE LAUFWERK
0001D0: 53 42 45 5A 45 49 43 48 4E 55 4E 47 20 4D 49 54  SBEZEICHNUNG MIT
0001E0: 20 41 4E 47 45 47 45 42 45 4E 20 57 45 52 44 45   ANGEGEBEN WERDE
0001F0: 4E 21 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A  N!..............

Size : 512 (Real : 512)
000000: 65 73 3A 0D 0A 28 6C 61 75 66 66 61 65 68 69 67  es:..(lauffaehig
000010: 20 75 6E 74 65 72 20 4D 53 20 44 4F 53 2C 20 50   unter MS DOS, P
000020: 43 20 44 4F 53 20 75 6E 64 20 43 50 2F 4D 29 0D  C DOS und CP/M).
000030: 0A 0D 0A 20 20 20 20 46 55 4E 4B 54 41 53 54 2E  ...    FUNKTAST.
000040: 50 41 53 20 20 20 52 6F 75 74 69 6E 65 20 75 6D  PAS   Routine um
000050: 20 46 75 6E 6B 74 69 6F 6E 73 74 61 73 74 65 6E   Funktionstasten
000060: 20 7A 75 20 6C 65 73 65 6E 20 75 6E 64 20 61 6E   zu lesen und an
000070: 7A 75 7A 65 69 67 65 6E 0D 0A 20 20 20 20 49 4F  zuzeigen..    IO
000080: 46 45 48 4C 45 52 2E 50 41 53 20 20 20 53 74 61  FEHLER.PAS   Sta
000090: 6E 64 61 72 64 20 49 2F 4F 20 46 65 68 6C 65 72  ndard I/O Fehler
0000A0: 20 50 72 75 65 66 75 6E 67 73 72 6F 75 74 69 6E   Pruefungsroutin
0000B0: 65 0D 0A 20 20 20 20 50 55 46 46 45 52 2E 50 41  e..    PUFFER.PA
0000C0: 53 20 20 20 20 20 5A 65 69 67 74 20 67 65 70 75  S     Zeigt gepu
0000D0: 66 66 65 72 74 65 20 54 61 73 74 61 74 75 72 65  fferte Tastature
0000E0: 69 6E 67 65 62 65 0D 0A 0D 0A 50 72 6F 67 72 61  ingebe....Progra
0000F0: 6D 6D 65 20 7A 75 6D 20 4B 61 70 69 74 65 6C 20  mme zum Kapitel 
000100: 22 4D 53 20 44 4F 53 20 52 6F 75 74 69 6E 65 6E  "MS DOS Routinen
000110: 22 0D 0A 28 64 2E 68 2E 20 50 72 6F 67 72 61 6D  "..(d.h. Program
000120: 6D 65 2C 20 64 69 65 20 6E 75 72 20 75 6E 74 65  me, die nur unte
000130: 72 20 4D 53 20 44 4F 53 20 62 7A 77 2E 20 50 43  r MS DOS bzw. PC
000140: 20 44 4F 53 0D 0A 63 6F 6D 70 69 6C 69 65 72 62   DOS..compilierb
000150: 61 72 20 75 6E 64 20 6C 61 75 66 66 61 65 68 69  ar und lauffaehi
000160: 67 20 73 69 6E 64 29 0D 0A 0D 0A 20 20 20 20 5A  g sind)....    Z
000170: 55 46 41 4C 4C 2E 50 41 53 20 20 20 20 46 75 6E  UFALL.PAS    Fun
000180: 6B 74 69 6F 6E 69 65 72 65 6E 64 65 20 52 61 6E  ktionierende Ran
000190: 64 6F 6D 69 7A 65 2D 52 6F 75 74 69 6E 65 0D 0A  domize-Routine..
0001A0: 20 20 20 20 44 49 52 45 43 54 52 59 2E 50 41 53      DIRECTRY.PAS
0001B0: 20 20 45 69 6E 66 61 63 68 65 20 52 6F 75 74 69    Einfache Routi
0001C0: 6E 65 20 75 6D 20 64 61 73 20 49 6E 68 61 6C 74  ne um das Inhalt
0001D0: 73 76 65 72 7A 65 69 63 68 6E 69 73 20 7A 75 20  sverzeichnis zu 
0001E0: 6C 65 73 65 6E 0D 0A 20 20 20 20 51 44 4C 2E 50  lesen..    QDL.P
0001F0: 41 53 20 20 20 20 20 20 20 45 72 77 65 69 74 65  AS       Erweite

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

Size : 512 (Real : 512)
000000: 72 74 65 20 44 69 72 65 63 74 6F 72 79 20 52 6F  rte Directory Ro
000010: 75 74 69 6E 65 0D 0A 20 20 20 20 44 49 53 4B 53  utine..    DISKS
000020: 54 55 53 2E 50 41 53 20 20 4C 65 73 65 6E 20 64  TUS.PAS  Lesen d
000030: 65 73 20 44 69 73 6B 65 74 74 65 6E 20 53 74 61  es Disketten Sta
000040: 74 75 73 0D 0A 20 20 20 20 56 45 52 53 49 4F 4E  tus..    VERSION
000050: 2E 50 41 53 20 20 20 4C 65 73 65 6E 20 64 65 72  .PAS   Lesen der
000060: 20 44 4F 53 20 56 65 72 73 69 6F 6E 73 6E 75 6D   DOS Versionsnum
000070: 6D 65 72 0D 0A 20 20 20 20 49 42 4D 49 4E 54 31  mer..    IBMINT1
000080: 30 2E 50 41 53 20 20 44 69 72 65 6B 74 65 73 20  0.PAS  Direktes 
000090: 61 6E 73 70 72 65 63 68 65 6E 20 64 65 73 20 42  ansprechen des B
0000A0: 69 6C 64 73 63 68 69 72 6D 73 20 75 65 62 65 72  ildschirms ueber
0000B0: 20 49 6E 74 65 72 72 75 70 74 20 31 30 0D 0A 20   Interrupt 10.. 
0000C0: 20 20 20 41 55 53 53 50 45 49 2E 50 41 53 20 20     AUSSPEI.PAS  
0000D0: 20 44 69 72 65 6B 74 65 73 20 61 6E 73 70 72 65   Direktes anspre
0000E0: 63 68 65 6E 20 64 65 73 20 42 69 6C 64 73 63 68  chen des Bildsch
0000F0: 69 6D 73 70 65 69 63 68 65 72 73 0D 0A 20 20 20  imspeichers..   
000100: 20 42 45 46 4C 45 53 2E 50 41 53 20 20 20 20 4C   BEFLES.PAS    L
000110: 65 73 65 6E 20 64 65 72 20 43 6F 6D 6D 61 6E 64  esen der Command
000120: 6C 69 6E 65 0D 0A 20 20 20 20 43 4F 4D 4C 49 42  line..    COMLIB
000130: 2E 50 41 53 20 20 20 20 52 6F 75 74 69 6E 65 6E  .PAS    Routinen
000140: 20 66 75 65 72 20 43 4F 4D 31 3A 20 75 6E 64 20   fuer COM1: und 
000150: 43 4F 4D 32 3A 0D 0A 20 20 20 20 54 42 4F 4D 41  COM2:..    TBOMA
000160: 55 53 2E 50 41 53 20 20 20 4C 69 65 73 74 20 64  US.PAS   Liest d
000170: 69 65 20 4D 69 63 72 6F 73 6F 66 74 2D 4D 61 75  ie Microsoft-Mau
000180: 73 20 28 57 6F 20 69 73 74 20 64 69 65 20 4B 61  s (Wo ist die Ka
000190: 74 7A 65 20 3F 29 0D 0A 20 20 20 20 46 49 4C 4C  tze ?)..    FILL
0001A0: 43 48 41 52 2E 50 41 53 20 20 49 6E 69 74 69 61  CHAR.PAS  Initia
0001B0: 6C 69 73 69 65 72 75 6E 67 20 76 6F 6E 20 44 61  lisierung von Da
0001C0: 74 65 6E 73 74 72 75 6B 74 75 72 65 6E 0D 0A 20  tenstrukturen.. 
0001D0: 20 20 20 43 48 4E 47 44 49 52 2E 50 41 53 20 20     CHNGDIR.PAS  
0001E0: 20 57 65 63 68 73 65 6C 74 20 64 61 73 20 61 6B   Wechselt das ak
0001F0: 74 75 65 6C 6C 65 20 49 6E 68 61 6C 74 73 76 65  tuelle Inhaltsve

Size : 512 (Real : 512)
000000: 0D 0A 70 72 6F 67 72 61 6D 20 53 63 61 6C 61 72  ..program Scalar
000010: 65 3B 0D 0A 28 2A 0D 0A 20 20 20 20 20 20 20 44  e;..(*..       D
000020: 69 65 73 65 73 20 50 72 6F 67 72 61 6D 6D 20 7A  ieses Programm z
000030: 65 69 67 74 20 64 65 6E 20 47 65 62 72 61 75 63  eigt den Gebrauc
000040: 68 20 76 6F 6E 20 64 65 6B 6C 61 72 69 65 72 74  h von deklariert
000050: 65 6E 20 53 6B 61 6C 61 72 65 6E 20 54 79 70 65  en Skalaren Type
000060: 6E 0D 0A 20 20 20 20 20 20 20 28 44 53 54 73 29  n..       (DSTs)
000070: 20 75 6E 64 20 55 6E 74 65 72 62 65 72 65 69 63   und Unterbereic
000080: 68 65 6E 2E 20 41 75 63 68 20 53 74 72 69 6E 67  hen. Auch String
000090: 73 2C 20 41 72 72 61 79 73 20 75 6E 64 20 53 65  s, Arrays und Se
0000A0: 74 73 20 77 65 72 64 65 6E 20 67 65 7A 65 69 67  ts werden gezeig
0000B0: 74 2E 0D 0A 2A 29 0D 0A 63 6F 6E 73 74 0D 0A 20  t...*)..const.. 
0000C0: 20 58 4D 61 78 20 20 20 20 20 20 20 20 20 20 20   XMax           
0000D0: 20 20 20 20 20 20 3D 20 20 38 3B 0D 0A 20 20 59        =  8;..  Y
0000E0: 4D 61 78 20 20 20 20 20 20 20 20 20 20 20 20 20  Max             
0000F0: 20 20 20 20 3D 20 31 30 3B 0D 0A 74 79 70 65 0D      = 10;..type.
000100: 0A 20 20 58 52 61 6E 67 65 20 20 20 20 20 20 20  .  XRange       
000110: 20 20 20 20 20 20 20 20 3D 20 31 2E 2E 58 4D 61          = 1..XMa
000120: 78 3B 0D 0A 20 20 59 52 61 6E 67 65 20 20 20 20  x;..  YRange    
000130: 20 20 20 20 20 20 20 20 20 20 20 3D 20 31 2E 2E             = 1..
000140: 59 4D 61 78 3B 0D 0A 20 20 53 68 69 70 54 79 70  YMax;..  ShipTyp
000150: 65 20 20 20 20 20 20 20 20 20 20 20 20 20 3D 20  e             = 
000160: 28 4E 6F 53 68 69 70 2C 43 6F 6E 73 74 69 74 75  (NoShip,Constitu
000170: 74 69 6F 6E 2C 45 6E 74 65 72 70 72 69 73 65 2C  tion,Enterprise,
000180: 52 65 6C 69 61 6E 74 2C 0D 0A 20 20 20 20 20 20  Reliant,..      
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001A0: 20 20 20 20 4C 6F 6B 6E 61 72 2C 4C 61 72 73 6F      Loknar,Larso
0001B0: 6E 2C 43 68 61 6E 64 6C 65 79 2C 45 78 63 65 6C  n,Chandley,Excel
0001C0: 73 69 6F 72 2C 42 61 6B 65 72 29 3B 0D 0A 20 20  sior,Baker);..  
0001D0: 4E 61 6D 65 73 20 20 20 20 20 20 20 20 20 20 20  Names           
0001E0: 20 20 20 20 20 3D 20 73 74 72 69 6E 67 5B 31 32       = string[12
0001F0: 5D 3B 0D 0A 20 20 50 72 6F 6D 70 74 20 20 20 20  ];..  Prompt    

Size : 512 (Real : 512)
000000: 20 2A 29 0D 0A 20 20 20 20 46 6F 75 6E 64 20 3A   *)..    Found :
000010: 3D 20 46 61 6C 73 65 3B 20 20 20 20 20 20 20 20  = False;        
000020: 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 53              (* S
000030: 63 68 6C 65 69 66 65 20 69 6E 69 74 69 61 6C 69  chleife initiali
000040: 73 69 65 72 65 6E 20 2A 29 0D 0A 20 20 20 20 66  sieren *)..    f
000050: 6F 72 20 53 6E 64 78 20 3A 3D 20 4E 6F 53 68 69  or Sndx := NoShi
000060: 70 20 74 6F 20 42 61 6B 65 72 20 64 6F 20 20 20  p to Baker do   
000070: 20 20 28 2A 20 47 69 62 74 20 65 73 20 64 69 65    (* Gibt es die
000080: 73 65 6E 20 53 63 68 69 66 66 73 74 79 70 20 3F  sen Schiffstyp ?
000090: 20 2A 29 0D 0A 20 20 20 20 20 20 69 66 20 53 68   *)..      if Sh
0000A0: 69 70 4E 61 6D 65 5B 53 6E 64 78 5D 20 3D 20 53  ipName[Sndx] = S
0000B0: 4E 61 6D 65 20 74 68 65 6E 20 20 20 28 2A 20 77  Name then   (* w
0000C0: 65 6E 6E 20 6A 61 2E 2E 2E 20 2A 29 0D 0A 20 20  enn ja... *)..  
0000D0: 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20      begin..     
0000E0: 20 20 20 46 6F 75 6E 64 20 3A 3D 20 54 72 75 65     Found := True
0000F0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;               
000100: 20 20 28 2A 20 46 6C 61 67 20 73 65 74 7A 65 6E    (* Flag setzen
000110: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 53 68 69   *)..        Shi
000120: 70 20 3A 3D 20 53 6E 64 78 3B 20 20 20 20 20 20  p := Sndx;      
000130: 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 75              (* u
000140: 6E 64 20 53 63 68 69 66 66 20 73 65 74 7A 65 6E  nd Schiff setzen
000150: 20 2A 29 0D 0A 20 20 20 20 20 20 65 6E 64 0D 0A   *)..      end..
000160: 20 20 75 6E 74 69 6C 20 46 6F 75 6E 64 20 20 20    until Found   
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000180: 20 20 20 20 20 20 20 28 2A 20 62 69 73 20 65 69         (* bis ei
000190: 6E 20 67 75 65 6C 74 69 67 65 72 20 4E 61 6D 65  n gueltiger Name
0001A0: 20 65 69 6E 67 65 67 62 65 6E 0D 0A 20 20 20 20   eingegben..    
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001D0: 20 20 20 20 20 20 77 75 72 64 65 20 2A 29 0D 0A        wurde *)..
0001E0: 65 6E 64 3B 20 28 2A 20 6F 66 20 70 72 6F 63 20  end; (* of proc 
0001F0: 52 65 61 64 53 68 69 70 20 2A 29 0D 0A 0D 0A 70  ReadShip *)....p

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 3D 20 73 74 72             = str
000010: 69 6E 67 5B 38 30 5D 3B 0D 0A 76 61 72 0D 0A 20  ing[80];..var.. 
000020: 20 53 68 69 70 4E 61 6D 65 20 20 20 20 20 20 20   ShipName       
000030: 20 20 20 20 20 20 3A 20 61 72 72 61 79 5B 53 68        : array[Sh
000040: 69 70 54 79 70 65 5D 20 6F 66 20 4E 61 6D 65 73  ipType] of Names
000050: 3B 0D 0A 20 20 53 65 63 74 6F 72 20 20 20 20 20  ;..  Sector     
000060: 20 20 20 20 20 20 20 20 20 20 3A 20 61 72 72 61            : arra
000070: 79 5B 58 52 61 6E 67 65 2C 59 52 61 6E 67 65 5D  y[XRange,YRange]
000080: 20 6F 66 20 53 68 69 70 54 79 70 65 3B 0D 0A 20   of ShipType;.. 
000090: 20 53 68 69 70 20 20 20 20 20 20 20 20 20 20 20   Ship           
0000A0: 20 20 20 20 20 20 3A 20 53 68 69 70 54 79 70 65        : ShipType
0000B0: 3B 0D 0A 20 20 53 58 20 20 20 20 20 20 20 20 20  ;..  SX         
0000C0: 20 20 20 20 20 20 20 20 20 20 3A 20 58 52 61 6E            : XRan
0000D0: 67 65 3B 0D 0A 20 20 53 59 20 20 20 20 20 20 20  ge;..  SY       
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 59 52              : YR
0000F0: 61 6E 67 65 3B 0D 0A 0D 0A 0D 0A 70 72 6F 63 65  ange;......proce
000100: 64 75 72 65 20 53 68 6F 77 53 65 63 74 6F 72 28  dure ShowSector(
000110: 53 58 2C 53 59 20 3A 20 49 6E 74 65 67 65 72 29  SX,SY : Integer)
000120: 3B 0D 0A 28 2A 0D 0A 20 20 20 20 20 20 20 53 63  ;..(*..       Sc
000130: 68 72 65 69 62 74 20 64 65 6E 20 53 63 68 69 66  hreibt den Schif
000140: 66 73 74 79 70 20 61 6E 20 64 69 65 20 65 6E 74  fstyp an die ent
000150: 73 70 72 65 63 68 65 6E 64 65 20 42 69 6C 64 73  sprechende Bilds
000160: 63 68 69 72 6D 73 74 65 6C 6C 65 0D 0A 2A 29 0D  chirmstelle..*).
000170: 0A 62 65 67 69 6E 0D 0A 20 20 47 6F 74 6F 58 59  .begin..  GotoXY
000180: 28 34 2A 53 58 2C 31 30 2B 53 59 29 3B 0D 0A 20  (4*SX,10+SY);.. 
000190: 20 69 66 20 53 65 63 74 6F 72 5B 53 58 2C 53 59   if Sector[SX,SY
0001A0: 5D 20 3D 20 4E 6F 53 68 69 70 0D 0A 20 20 20 20  ] = NoShip..    
0001B0: 74 68 65 6E 20 57 72 69 74 65 28 27 2A 2A 2A 27  then Write('***'
0001C0: 29 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20  )            (* 
0001D0: 69 66 20 6E 6F 20 73 68 69 70 20 74 68 65 72 65  if no ship there
0001E0: 20 2A 29 0D 0A 20 20 20 20 65 6C 73 65 20 57 72   *)..    else Wr
0001F0: 69 74 65 28 43 6F 70 79 28 53 68 69 70 4E 61 6D  ite(Copy(ShipNam

Size : 512 (Real : 512)
000000: 72 6F 63 65 64 75 72 65 20 52 65 61 64 43 6F 6F  rocedure ReadCoo
000010: 72 64 73 28 4C 69 6E 65 20 3A 20 42 79 74 65 3B  rds(Line : Byte;
000020: 20 4D 73 67 20 3A 20 50 72 6F 6D 70 74 3B 0D 0A   Msg : Prompt;..
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000040: 20 20 20 20 20 76 61 72 20 53 58 20 3A 20 58 52       var SX : XR
000050: 61 6E 67 65 3B 20 76 61 72 20 53 59 20 3A 20 59  ange; var SY : Y
000060: 72 61 6E 67 65 29 3B 0D 0A 28 2A 0D 0A 20 20 20  range);..(*..   
000070: 20 20 20 20 46 72 61 67 74 20 53 70 69 65 6C 65      Fragt Spiele
000080: 72 20 6E 61 63 68 20 53 58 20 75 6E 64 20 53 59  r nach SX und SY
000090: 20 4B 6F 6F 72 64 69 6E 61 74 65 6E 3B 0D 0A 20   Koordinaten;.. 
0000A0: 20 20 20 20 20 20 70 72 75 65 66 74 20 6F 62 20        prueft ob 
0000B0: 62 65 69 64 65 20 57 65 72 74 65 20 69 6D 20 65  beide Werte im e
0000C0: 72 6C 61 75 62 74 65 6E 20 42 65 72 65 69 63 68  rlaubten Bereich
0000D0: 3B 0D 0A 20 20 20 20 20 20 20 73 63 68 61 6C 74  ;..       schalt
0000E0: 65 74 20 49 2F 4F 20 75 6E 64 20 42 65 72 65 69  et I/O und Berei
0000F0: 63 68 73 75 65 62 65 72 70 72 75 65 66 75 6E 67  chsueberpruefung
000100: 20 75 6D 20 41 62 73 74 75 65 72 7A 65 20 7A 75   um Abstuerze zu
000110: 20 76 65 72 6D 65 69 64 65 6E 0D 0A 2A 29 0D 0A   vermeiden..*)..
000120: 62 65 67 69 6E 0D 0A 20 20 28 2A 24 49 2D 2C 52  begin..  (*$I-,R
000130: 2D 2A 29 0D 0A 20 20 72 65 70 65 61 74 0D 0A 20  -*)..  repeat.. 
000140: 20 20 20 57 72 69 74 65 50 72 6F 6D 70 74 28 4C     WritePrompt(L
000150: 69 6E 65 2C 4D 73 67 29 3B 0D 0A 20 20 20 20 52  ine,Msg);..    R
000160: 65 61 64 4C 6E 28 53 58 2C 53 59 29 0D 0A 20 20  eadLn(SX,SY)..  
000170: 75 6E 74 69 6C 20 28 53 58 20 69 6E 20 5B 31 2E  until (SX in [1.
000180: 2E 58 4D 61 78 5D 29 20 61 6E 64 20 28 53 59 20  .XMax]) and (SY 
000190: 69 6E 20 5B 31 2E 2E 59 4D 61 78 5D 29 20 61 6E  in [1..YMax]) an
0001A0: 64 20 28 49 4F 72 65 73 75 6C 74 20 3D 20 30 29  d (IOresult = 0)
0001B0: 3B 0D 0A 20 20 57 72 69 74 65 50 72 6F 6D 70 74  ;..  WritePrompt
0001C0: 28 4C 69 6E 65 2C 27 27 29 3B 20 20 20 28 2A 20  (Line,'');   (* 
0001D0: 5A 65 69 6C 65 20 6C 6F 65 73 63 68 65 6E 20 77  Zeile loeschen w
0001E0: 65 6E 6E 20 66 65 72 74 69 67 20 2A 29 0D 0A 20  enn fertig *).. 
0001F0: 20 28 2A 24 49 2B 2C 52 2B 2A 29 0D 0A 65 6E 64   (*$I+,R+*)..end

Size : 512 (Real : 512)
000000: 65 5B 53 65 63 74 6F 72 5B 53 58 2C 53 59 5D 5D  e[Sector[SX,SY]]
000010: 2C 31 2C 33 29 29 0D 0A 65 6E 64 3B 0D 0A 0D 0A  ,1,3))..end;....
000020: 70 72 6F 63 65 64 75 72 65 20 49 6E 69 74 69 61  procedure Initia
000030: 6C 69 7A 65 3B 0D 0A 28 2A 0D 0A 20 20 20 20 20  lize;..(*..     
000040: 20 20 49 6E 69 74 69 61 6C 69 73 69 65 72 74 20    Initialisiert 
000050: 64 69 76 65 72 73 65 73 2C 20 69 6E 73 62 65 73  diverses, insbes
000060: 6F 6E 64 65 72 65 20 64 65 6E 20 41 72 72 61 79  ondere den Array
000070: 20 53 68 69 70 4E 61 6D 65 0D 0A 2A 29 0D 0A 62   ShipName..*)..b
000080: 65 67 69 6E 0D 0A 20 20 28 2A 20 73 65 74 20 65  egin..  (* set e
000090: 61 63 68 20 65 6C 65 6D 65 6E 74 20 69 6E 20 61  ach element in a
0000A0: 72 72 61 79 20 74 6F 20 61 70 70 72 6F 70 72 69  rray to appropri
0000B0: 61 74 65 20 73 74 72 69 6E 67 20 2A 29 0D 0A 20  ate string *).. 
0000C0: 20 53 68 69 70 4E 61 6D 65 5B 4E 6F 53 68 69 70   ShipName[NoShip
0000D0: 5D 20 20 20 20 20 20 20 3A 3D 20 27 27 3B 20 20  ]       := '';  
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2A                (*
0000F0: 20 6E 75 6C 6C 20 73 74 72 69 6E 67 20 2A 29 0D   null string *).
000100: 0A 20 20 53 68 69 70 4E 61 6D 65 5B 43 6F 6E 73  .  ShipName[Cons
000110: 74 69 74 75 74 69 6F 6E 5D 20 3A 3D 20 27 43 6F  titution] := 'Co
000120: 6E 73 74 69 74 75 74 69 6F 6E 27 3B 0D 0A 20 20  nstitution';..  
000130: 53 68 69 70 4E 61 6D 65 5B 45 6E 74 65 72 70 72  ShipName[Enterpr
000140: 69 73 65 5D 20 20 20 3A 3D 20 27 45 6E 74 65 72  ise]   := 'Enter
000150: 70 72 69 73 65 27 3B 0D 0A 20 20 53 68 69 70 4E  prise';..  ShipN
000160: 61 6D 65 5B 52 65 6C 69 61 6E 74 5D 20 20 20 20  ame[Reliant]    
000170: 20 20 3A 3D 20 27 52 65 6C 69 61 6E 74 27 3B 0D    := 'Reliant';.
000180: 0A 20 20 53 68 69 70 4E 61 6D 65 5B 4C 6F 6B 6E  .  ShipName[Lokn
000190: 61 72 5D 20 20 20 20 20 20 20 3A 3D 20 27 4C 6F  ar]       := 'Lo
0001A0: 6B 6E 61 72 27 3B 0D 0A 20 20 53 68 69 70 4E 61  knar';..  ShipNa
0001B0: 6D 65 5B 4C 61 72 73 6F 6E 5D 20 20 20 20 20 20  me[Larson]      
0001C0: 20 3A 3D 20 27 4C 61 72 73 6F 6E 27 3B 0D 0A 20   := 'Larson';.. 
0001D0: 20 53 68 69 70 4E 61 6D 65 5B 43 68 61 6E 64 6C   ShipName[Chandl
0001E0: 65 79 5D 20 20 20 20 20 3A 3D 20 27 43 68 61 6E  ey]     := 'Chan
0001F0: 64 6C 65 79 27 3B 0D 0A 20 20 53 68 69 70 4E 61  dley';..  ShipNa

Size : 512 (Real : 512)
000000: 3B 20 28 2A 20 6F 66 20 70 72 6F 63 20 52 65 61  ; (* of proc Rea
000010: 64 43 6F 6F 72 64 73 20 2A 29 0D 0A 0D 0A 62 65  dCoords *)....be
000020: 67 69 6E 20 28 2A 20 48 61 75 70 74 70 72 6F 67  gin (* Hauptprog
000030: 72 61 6D 6D 20 76 6F 6E 20 53 63 61 6C 61 72 65  ramm von Scalare
000040: 20 2A 29 0D 0A 20 20 43 6C 72 53 63 72 3B 0D 0A   *)..  ClrScr;..
000050: 20 20 49 6E 69 74 69 61 6C 69 7A 65 3B 0D 0A 20    Initialize;.. 
000060: 20 57 72 69 74 65 50 72 6F 6D 70 74 28 31 2C 27   WritePrompt(1,'
000070: 50 6C 61 7A 69 65 72 65 6E 20 53 69 65 20 53 63  Plazieren Sie Sc
000080: 68 69 66 66 65 20 61 6E 20 53 65 6B 74 6F 72 6B  hiffe an Sektork
000090: 6F 6F 72 64 69 6E 61 74 65 6E 2E 27 29 3B 0D 0A  oordinaten.');..
0000A0: 20 20 57 72 69 74 65 50 72 6F 6D 70 74 28 32 2C    WritePrompt(2,
0000B0: 27 44 72 75 65 63 6B 65 6E 20 73 69 65 20 3C 52  'Druecken sie <R
0000C0: 45 54 55 52 4E 3E 20 77 65 6E 6E 20 53 69 65 20  ETURN> wenn Sie 
0000D0: 66 65 72 74 69 67 20 73 69 6E 64 2E 27 29 3B 0D  fertig sind.');.
0000E0: 0A 20 20 72 65 70 65 61 74 0D 0A 20 20 20 20 52  .  repeat..    R
0000F0: 65 61 64 53 68 69 70 28 33 2C 27 47 65 62 65 6E  eadShip(3,'Geben
000100: 20 53 69 65 20 65 69 6E 65 6E 20 53 63 68 69 66   Sie einen Schif
000110: 66 73 6E 61 6D 65 6E 20 65 69 6E 20 3A 20 20 27  fsnamen ein :  '
000120: 2C 53 68 69 70 29 3B 0D 0A 20 20 20 20 69 66 20  ,Ship);..    if 
000130: 53 68 69 70 20 3C 3E 20 4E 6F 53 68 69 70 20 74  Ship <> NoShip t
000140: 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20  hen begin..     
000150: 20 52 65 61 64 43 6F 6F 72 64 73 28 34 2C 27 47   ReadCoords(4,'G
000160: 65 62 65 6E 20 53 69 65 20 64 69 65 20 53 65 6B  eben Sie die Sek
000170: 74 6F 72 6B 6F 6F 72 64 69 6E 61 74 65 6E 20 65  torkoordinaten e
000180: 69 6E 20 3A 20 20 27 2C 53 58 2C 53 59 29 3B 0D  in :  ',SX,SY);.
000190: 0A 20 20 20 20 20 20 53 65 63 74 6F 72 5B 53 58  .      Sector[SX
0001A0: 2C 53 59 5D 20 3A 3D 20 53 68 69 70 3B 0D 0A 20  ,SY] := Ship;.. 
0001B0: 20 20 20 20 20 53 68 6F 77 53 65 63 74 6F 72 28       ShowSector(
0001C0: 53 58 2C 53 59 29 0D 0A 20 20 20 20 65 6E 64 0D  SX,SY)..    end.
0001D0: 0A 20 20 75 6E 74 69 6C 20 53 68 69 70 20 3D 20  .  until Ship = 
0001E0: 4E 6F 53 68 69 70 0D 0A 65 6E 64 2E 20 28 2A 20  NoShip..end. (* 
0001F0: 6F 66 20 70 72 6F 67 72 61 6D 20 53 63 61 6C 61  of program Scala

Size : 512 (Real : 512)
000000: 6D 65 5B 45 78 63 65 6C 73 69 6F 72 5D 20 20 20  me[Excelsior]   
000010: 20 3A 3D 20 27 45 78 63 65 6C 73 69 6F 72 27 3B   := 'Excelsior';
000020: 0D 0A 20 20 53 68 69 70 4E 61 6D 65 5B 42 61 6B  ..  ShipName[Bak
000030: 65 72 5D 20 20 20 20 20 20 20 20 3A 3D 20 27 42  er]        := 'B
000040: 61 6B 65 72 27 3B 0D 0A 20 20 28 2A 20 53 65 6B  aker';..  (* Sek
000050: 74 6F 72 6B 61 72 74 65 20 6D 69 74 20 22 6B 65  torkarte mit "ke
000060: 69 6E 65 6E 20 53 63 68 69 66 66 65 6E 27 20 66  inen Schiffen' f
000070: 75 65 6C 6C 65 6E 20 2A 29 0D 0A 20 20 46 69 6C  uellen *)..  Fil
000080: 6C 43 68 61 72 28 53 65 63 74 6F 72 2C 53 69 7A  lChar(Sector,Siz
000090: 65 4F 66 28 53 65 63 74 6F 72 29 2C 4F 72 64 28  eOf(Sector),Ord(
0000A0: 4E 6F 53 68 69 70 29 29 3B 0D 0A 20 20 28 2A 20  NoShip));..  (* 
0000B0: 64 69 73 70 6C 61 79 20 73 65 63 74 6F 72 20 6D  display sector m
0000C0: 61 70 20 6F 6E 20 73 63 72 65 65 6E 20 2A 29 0D  ap on screen *).
0000D0: 0A 20 20 66 6F 72 20 53 58 20 3A 3D 20 31 20 74  .  for SX := 1 t
0000E0: 6F 20 58 4D 61 78 20 64 6F 0D 0A 20 20 20 20 66  o XMax do..    f
0000F0: 6F 72 20 53 59 20 3A 3D 20 31 20 74 6F 20 59 4D  or SY := 1 to YM
000100: 61 78 20 64 6F 0D 0A 20 20 20 20 20 20 53 68 6F  ax do..      Sho
000110: 77 53 65 63 74 6F 72 28 53 58 2C 53 59 29 0D 0A  wSector(SX,SY)..
000120: 65 6E 64 3B 20 28 2A 20 6F 66 20 70 72 6F 63 20  end; (* of proc 
000130: 49 6E 69 74 69 61 6C 69 7A 65 20 2A 29 0D 0A 0D  Initialize *)...
000140: 0A 70 72 6F 63 65 64 75 72 65 20 57 72 69 74 65  .procedure Write
000150: 50 72 6F 6D 70 74 28 4C 69 6E 65 20 3A 20 42 79  Prompt(Line : By
000160: 74 65 3B 20 4D 73 67 20 3A 20 50 72 6F 6D 70 74  te; Msg : Prompt
000170: 29 3B 0D 0A 28 2A 0D 0A 20 20 20 20 20 20 20 5A  );..(*..       Z
000180: 65 69 67 74 20 65 69 6E 65 20 41 62 66 72 61 67  eigt eine Abfrag
000190: 65 73 74 72 69 6E 67 20 6E 61 63 68 64 65 6D 20  estring nachdem 
0001A0: 64 69 65 20 5A 65 69 6C 65 20 67 65 6C 6F 65 73  die Zeile geloes
0001B0: 63 68 74 20 77 75 72 64 65 0D 0A 2A 29 0D 0A 62  cht wurde..*)..b
0001C0: 65 67 69 6E 0D 0A 20 20 47 6F 74 6F 58 59 28 31  egin..  GotoXY(1
0001D0: 2C 4C 69 6E 65 29 3B 0D 0A 20 20 43 6C 72 45 6F  ,Line);..  ClrEo
0001E0: 6C 3B 0D 0A 20 20 57 72 69 74 65 28 4D 73 67 29  l;..  Write(Msg)
0001F0: 0D 0A 65 6E 64 3B 20 28 2A 20 6F 66 20 70 72 6F  ..end; (* of pro

Size : 512 (Real : 512)
000000: 72 65 20 2A 29 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A  re *)...........
000010: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000020: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000030: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000040: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000050: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000060: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000070: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000080: 68 69 66 66 65 20 61 6E 20 53 65 6B 74 6F 72 6B  hiffe an Sektork
000090: 6F 6F 72 64 69 6E 61 74 65 6E 2E 27 29 3B 0D 0A  oordinaten.');..
0000A0: 20 20 57 72 69 74 65 50 72 6F 6D 70 74 28 32 2C    WritePrompt(2,
0000B0: 27 44 72 75 65 63 6B 65 6E 20 73 69 65 20 3C 52  'Druecken sie <R
0000C0: 45 54 55 52 4E 3E 20 77 65 6E 6E 20 53 69 65 20  ETURN> wenn Sie 
0000D0: 66 65 72 74 69 67 20 73 69 6E 64 2E 27 29 3B 0D  fertig sind.');.
0000E0: 0A 20 20 72 65 70 65 61 74 0D 0A 20 20 20 20 52  .  repeat..    R
0000F0: 65 61 64 53 68 69 70 28 33 2C 27 47 65 62 65 6E  eadShip(3,'Geben
000100: 20 53 69 65 20 65 69 6E 65 6E 20 53 63 68 69 66   Sie einen Schif
000110: 66 73 6E 61 6D 65 6E 20 65 69 6E 20 3A 20 20 27  fsnamen ein :  '
000120: 2C 53 68 69 70 29 3B 0D 0A 20 20 20 20 69 66 20  ,Ship);..    if 
000130: 53 68 69 70 20 3C 3E 20 4E 6F 53 68 69 70 20 74  Ship <> NoShip t
000140: 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20  hen begin..     
000150: 20 52 65 61 64 43 6F 6F 72 64 73 28 34 2C 27 47   ReadCoords(4,'G
000160: 65 62 65 6E 20 53 69 65 20 64 69 65 20 53 65 6B  eben Sie die Sek
000170: 74 6F 72 6B 6F 6F 72 64 69 6E 61 74 65 6E 20 65  torkoordinaten e
000180: 69 6E 20 3A 20 20 27 2C 53 58 2C 53 59 29 3B 0D  in :  ',SX,SY);.
000190: 0A 20 20 20 20 20 20 53 65 63 74 6F 72 5B 53 58  .      Sector[SX
0001A0: 2C 53 59 5D 20 3A 3D 20 53 68 69 70 3B 0D 0A 20  ,SY] := Ship;.. 
0001B0: 20 20 20 20 20 53 68 6F 77 53 65 63 74 6F 72 28       ShowSector(
0001C0: 53 58 2C 53 59 29 0D 0A 20 20 20 20 65 6E 64 0D  SX,SY)..    end.
0001D0: 0A 20 20 75 6E 74 69 6C 20 53 68 69 70 20 3D 20  .  until Ship = 
0001E0: 4E 6F 53 68 69 70 0D 0A 65 6E 64 2E 20 28 2A 20  NoShip..end. (* 
0001F0: 6F 66 20 70 72 6F 67 72 61 6D 20 53 63 61 6C 61  of program Scala

Size : 512 (Real : 512)
000000: 63 20 57 72 69 74 65 50 72 6F 6D 70 74 20 2A 29  c WritePrompt *)
000010: 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 52 65  ....procedure Re
000020: 61 64 53 68 69 70 28 4C 69 6E 65 20 3A 20 42 79  adShip(Line : By
000030: 74 65 3B 20 4D 73 67 20 3A 20 70 72 6F 6D 70 74  te; Msg : prompt
000040: 3B 20 76 61 72 20 53 68 69 70 20 3A 20 53 68 69  ; var Ship : Shi
000050: 70 54 79 70 65 29 3B 0D 0A 28 2A 0D 0A 20 20 20  pType);..(*..   
000060: 20 20 20 20 46 72 61 67 74 20 64 65 6E 20 53 70      Fragt den Sp
000070: 69 65 6C 65 72 20 6E 61 63 68 20 64 65 72 20 53  ieler nach der S
000080: 63 68 69 66 66 73 6B 6C 61 73 73 65 3B 20 6C 69  chiffsklasse; li
000090: 65 73 74 20 64 69 65 73 65 20 65 69 6E 20 75 6E  est diese ein un
0000A0: 64 0D 0A 20 20 20 20 20 20 20 75 65 62 65 72 70  d..       ueberp
0000B0: 72 75 65 66 74 20 73 69 65 20 75 6E 64 20 77 69  rueft sie und wi
0000C0: 65 64 65 72 68 6F 6C 74 20 64 61 73 20 73 6F 6C  ederholt das sol
0000D0: 61 6E 67 65 20 62 69 73 20 65 69 6E 65 20 67 75  ange bis eine gu
0000E0: 65 6C 74 69 67 65 0D 0A 20 20 20 20 20 20 20 45  eltige..       E
0000F0: 69 6E 67 61 62 65 20 65 72 66 6F 6C 67 74 0D 0A  ingabe erfolgt..
000100: 2A 29 0D 0A 76 61 72 0D 0A 20 20 53 4E 61 6D 65  *)..var..  SName
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000120: 3A 20 4E 61 6D 65 73 3B 0D 0A 20 20 53 6E 64 78  : Names;..  Sndx
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000140: 20 3A 20 53 68 69 70 54 79 70 65 3B 0D 0A 20 20   : ShipType;..  
000150: 46 6F 75 6E 64 20 20 20 20 20 20 20 20 20 20 20  Found           
000160: 20 20 20 20 20 3A 20 42 6F 6F 6C 65 61 6E 3B 0D       : Boolean;.
000170: 0A 62 65 67 69 6E 0D 0A 20 20 72 65 70 65 61 74  .begin..  repeat
000180: 0D 0A 20 20 20 20 57 72 69 74 65 50 72 6F 6D 70  ..    WritePromp
000190: 74 28 4C 69 6E 65 2C 4D 73 67 29 3B 20 20 20 20  t(Line,Msg);    
0001A0: 20 20 20 20 20 20 20 20 20 28 2A 20 50 72 6F 6D           (* Prom
0001B0: 70 74 20 73 63 68 72 65 69 62 65 6E 20 2A 29 0D  pt schreiben *).
0001C0: 0A 20 20 20 20 52 65 61 64 4C 6E 28 53 4E 61 6D  .    ReadLn(SNam
0001D0: 65 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20  e);             
0001E0: 20 20 20 20 20 20 20 20 28 2A 20 53 63 68 69 66          (* Schif
0001F0: 66 73 6E 61 6D 65 6E 20 65 69 6E 6C 65 73 65 6E  fsnamen einlesen

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

Size : 512 (Real : 512)
000000: 67 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  ger;..          
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 4D 61 78               Max
000020: 20 3A 20 49 6E 74 65 67 65 72 29 3B 0D 0A 20 20   : Integer);..  
000030: 28 2A 0D 0A 20 20 20 20 20 20 5A 77 65 63 6B 20  (*..      Zweck 
000040: 20 20 20 20 20 20 6B 75 65 6D 6D 65 72 74 20 73        kuemmert s
000050: 69 63 68 20 75 6D 20 61 75 74 6F 6D 61 74 69 73  ich um automatis
000060: 63 68 65 6E 20 55 6D 62 72 75 63 68 20 66 75 65  chen Umbruch fue
000070: 72 20 56 61 6C 0D 0A 20 20 2A 29 0D 0A 20 20 62  r Val..  *)..  b
000080: 65 67 69 6E 0D 0A 20 20 20 20 69 66 20 56 61 6C  egin..    if Val
000090: 20 3C 20 4D 69 6E 0D 0A 20 20 20 20 20 20 74 68   < Min..      th
0000A0: 65 6E 20 56 61 6C 20 3A 3D 20 4D 61 78 0D 0A 20  en Val := Max.. 
0000B0: 20 20 20 65 6C 73 65 20 69 66 20 56 61 6C 20 3E     else if Val >
0000C0: 20 4D 61 78 0D 0A 20 20 20 20 20 20 74 68 65 6E   Max..      then
0000D0: 20 56 61 6C 20 3A 3D 20 4D 69 6E 0D 0A 20 20 65   Val := Min..  e
0000E0: 6E 64 3B 20 28 2A 20 76 6F 6E 20 50 72 6F 7A 65  nd; (* von Proze
0000F0: 64 75 72 20 57 72 61 70 41 72 6F 75 6E 64 20 2A  dur WrapAround *
000100: 29 0D 0A 0D 0A 62 65 67 69 6E 20 28 2A 20 50 72  )....begin (* Pr
000110: 6F 7A 65 64 75 72 20 55 70 64 61 74 65 50 6F 73  ozedur UpdatePos
000120: 69 74 69 6F 6E 20 2A 29 0D 0A 20 20 58 20 3A 3D  ition *)..  X :=
000130: 20 58 20 2B 20 44 58 3B 0D 0A 20 20 59 20 3A 3D   X + DX;..  Y :=
000140: 20 59 20 2B 20 44 59 3B 0D 0A 20 20 57 72 61 70   Y + DY;..  Wrap
000150: 41 72 6F 75 6E 64 28 58 4D 69 6E 2C 58 2C 58 4D  Around(XMin,X,XM
000160: 61 78 29 3B 0D 0A 20 20 57 72 61 70 41 72 6F 75  ax);..  WrapArou
000170: 6E 64 28 59 6D 69 6E 2C 59 2C 59 4D 61 78 29 0D  nd(Ymin,Y,YMax).
000180: 0A 65 6E 64 3B 20 28 2A 20 76 6F 6E 20 50 72 6F  .end; (* von Pro
000190: 7A 65 64 75 72 20 55 70 64 61 74 65 50 6F 73 69  zedur UpdatePosi
0001A0: 74 69 6F 6E 20 2A 29 0D 0A 0D 0A 70 72 6F 63 65  tion *)....proce
0001B0: 64 75 72 65 20 4D 6F 76 65 4F 74 68 65 72 3B 0D  dure MoveOther;.
0001C0: 0A 28 2A 0D 0A 20 20 20 20 20 20 20 5A 77 65 63  .(*..       Zwec
0001D0: 6B 20 20 20 20 20 20 42 65 77 65 67 74 20 64 65  k      Bewegt de
0001E0: 6E 20 46 65 69 6E 64 0D 0A 2A 29 0D 0A 62 65 67  n Feind..*)..beg
0001F0: 69 6E 0D 0A 20 20 69 66 20 52 61 6E 64 28 31 2C  in..  if Rand(1,

Size : 512 (Real : 512)
000000: 0D 0A 70 72 6F 67 72 61 6D 20 53 70 69 65 6C 31  ..program Spiel1
000010: 3B 0D 0A 28 2A 0D 0A 20 20 20 20 20 20 20 45 69  ;..(*..       Ei
000020: 6E 20 65 69 6E 66 61 63 68 65 73 20 73 75 63 68  n einfaches such
000030: 65 6E 20 75 6E 64 20 66 65 75 65 72 6E 20 53 70  en und feuern Sp
000040: 69 65 6C 0D 0A 2A 29 0D 0A 63 6F 6E 73 74 0D 0A  iel..*)..const..
000050: 20 20 58 4D 69 6E 20 20 20 20 20 20 20 20 20 20    XMin          
000060: 20 20 20 20 20 3D 20 20 31 3B 0D 0A 20 20 58 4D       =  1;..  XM
000070: 61 78 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ax              
000080: 20 3D 20 33 32 3B 0D 0A 20 20 59 4D 69 6E 20 20   = 32;..  YMin  
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 3D 20 20               =  
0000A0: 31 3B 0D 0A 20 20 59 4D 61 78 20 20 20 20 20 20  1;..  YMax      
0000B0: 20 20 20 20 20 20 20 20 20 3D 20 32 34 3B 0D 0A           = 24;..
0000C0: 0D 0A 74 79 70 65 0D 0A 20 20 58 42 65 72 65 69  ..type..  XBerei
0000D0: 63 68 20 20 20 20 20 20 20 20 20 20 20 3D 20 58  ch           = X
0000E0: 4D 69 6E 2E 2E 58 4D 61 78 3B 0D 0A 20 20 59 42  Min..XMax;..  YB
0000F0: 65 72 65 69 63 68 20 20 20 20 20 20 20 20 20 20  ereich          
000100: 20 3D 20 59 4D 69 6E 2E 2E 59 4D 61 78 3B 0D 0A   = YMin..YMax;..
000110: 20 20 5A 65 69 63 68 65 6E 6D 65 6E 67 65 20 20    Zeichenmenge  
000120: 20 20 20 20 20 3D 20 73 65 74 20 6F 66 20 43 68       = set of Ch
000130: 61 72 3B 0D 0A 20 20 43 6F 6D 6D 61 6E 64 54 79  ar;..  CommandTy
000140: 70 65 20 20 20 20 20 20 20 20 3D 20 28 51 75 69  pe        = (Qui
000150: 74 2C 4D 6F 76 65 2C 46 69 72 65 2C 53 65 61 72  t,Move,Fire,Sear
000160: 63 68 29 3B 0D 0A 20 20 46 72 61 67 65 20 20 20  ch);..  Frage   
000170: 20 20 20 20 20 20 20 20 20 20 20 3D 20 73 74 72             = str
000180: 69 6E 67 5B 38 30 5D 3B 0D 0A 0D 0A 76 61 72 0D  ing[80];....var.
000190: 0A 20 20 58 31 2C 58 32 2C 59 31 2C 59 32 20 20  .  X1,X2,Y1,Y2  
0001A0: 20 20 20 20 20 20 3A 20 49 6E 74 65 67 65 72 3B        : Integer;
0001B0: 0D 0A 20 20 43 6F 6D 6D 61 6E 64 20 20 20 20 20  ..  Command     
0001C0: 20 20 20 20 20 20 20 3A 20 43 6F 6D 6D 61 6E 64         : Command
0001D0: 54 79 70 65 3B 0D 0A 0D 0A 66 75 6E 63 74 69 6F  Type;....functio
0001E0: 6E 20 52 61 6E 64 28 4C 6F 77 2C 48 69 67 68 20  n Rand(Low,High 
0001F0: 3A 20 49 6E 74 65 67 65 72 29 20 3A 20 49 6E 74  : Integer) : Int

Size : 512 (Real : 512)
000000: 32 29 20 3D 20 31 0D 0A 20 20 20 20 74 68 65 6E  2) = 1..    then
000010: 20 55 70 64 61 74 65 50 6F 73 69 74 69 6F 6E 28   UpdatePosition(
000020: 58 32 2C 59 32 2C 52 61 6E 64 28 2D 31 2C 31 29  X2,Y2,Rand(-1,1)
000030: 2C 52 61 6E 64 28 2D 31 2C 31 29 29 0D 0A 65 6E  ,Rand(-1,1))..en
000040: 64 3B 20 28 2A 20 76 6F 6E 20 50 72 6F 7A 65 64  d; (* von Prozed
000050: 75 72 20 4D 6F 76 65 4F 74 68 65 72 20 2A 29 0D  ur MoveOther *).
000060: 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 44 6F 4D  ...procedure DoM
000070: 6F 76 65 3B 0D 0A 28 2A 0D 0A 20 20 20 20 20 20  ove;..(*..      
000080: 20 5A 77 65 63 6B 20 20 20 20 20 20 66 75 65 68   Zweck      fueh
000090: 72 74 20 53 70 69 65 6C 65 72 7A 75 65 67 65 20  rt Spielerzuege 
0000A0: 61 75 73 0D 0A 2A 29 0D 0A 76 61 72 0D 0A 20 20  aus..*)..var..  
0000B0: 43 68 20 20 20 20 20 20 20 20 20 20 20 20 20 20  Ch              
0000C0: 20 20 3A 20 43 68 61 72 3B 0D 0A 20 20 44 58 2C    : Char;..  DX,
0000D0: 44 59 20 20 20 20 20 20 20 20 20 20 20 20 20 3A  DY             :
0000E0: 20 49 6E 74 65 67 65 72 3B 0D 0A 62 65 67 69 6E   Integer;..begin
0000F0: 0D 0A 20 20 44 58 20 3A 3D 20 30 3B 20 44 59 20  ..  DX := 0; DY 
000100: 3A 3D 20 30 3B 0D 0A 20 20 47 65 74 43 68 61 72  := 0;..  GetChar
000110: 28 43 68 2C 27 4D 4F 56 45 3E 20 55 29 70 2C 20  (Ch,'MOVE> U)p, 
000120: 44 29 6F 77 6E 2C 20 4C 29 65 66 74 2C 20 52 29  D)own, L)eft, R)
000130: 69 67 68 74 3A 20 27 2C 5B 27 55 27 2C 27 44 27  ight: ',['U','D'
000140: 2C 27 4C 27 2C 27 52 27 5D 29 3B 0D 0A 20 20 63  ,'L','R']);..  c
000150: 61 73 65 20 43 68 20 6F 66 0D 0A 20 20 20 20 27  ase Ch of..    '
000160: 55 27 20 20 20 3A 20 44 59 20 3A 3D 20 20 31 3B  U'   : DY :=  1;
000170: 0D 0A 20 20 20 20 27 44 27 20 20 20 3A 20 44 59  ..    'D'   : DY
000180: 20 3A 3D 20 2D 31 3B 0D 0A 20 20 20 20 27 4C 27   := -1;..    'L'
000190: 20 20 20 3A 20 44 58 20 3A 3D 20 2D 31 3B 0D 0A     : DX := -1;..
0001A0: 20 20 20 20 27 52 27 20 20 20 3A 20 44 58 20 3A      'R'   : DX :
0001B0: 3D 20 20 31 0D 0A 20 20 65 6E 64 3B 0D 0A 20 20  =  1..  end;..  
0001C0: 55 70 64 61 74 65 50 6F 73 69 74 69 6F 6E 28 58  UpdatePosition(X
0001D0: 31 2C 59 31 2C 44 58 2C 44 59 29 3B 0D 0A 20 20  1,Y1,DX,DY);..  
0001E0: 47 6F 74 6F 58 59 28 31 2C 35 29 3B 20 57 72 69  GotoXY(1,5); Wri
0001F0: 74 65 28 27 41 6B 74 75 65 6C 6C 65 20 50 6F 73  te('Aktuelle Pos

Size : 512 (Real : 512)
000000: 65 67 65 72 3B 0D 0A 28 2A 0D 0A 20 20 20 20 20  eger;..(*..     
000010: 20 20 5A 77 65 63 6B 20 20 20 20 20 20 20 20 20    Zweck         
000020: 75 65 62 65 72 67 69 62 74 20 65 69 6E 65 20 5A  uebergibt eine Z
000030: 75 66 61 6C 6C 73 7A 61 68 6C 20 69 6D 20 42 65  ufallszahl im Be
000040: 72 65 69 63 68 20 4C 6F 77 2E 2E 48 69 67 68 0D  reich Low..High.
000050: 0A 2A 29 0D 0A 76 61 72 0D 0A 20 20 52 61 6E 67  .*)..var..  Rang
000060: 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A  e              :
000070: 20 49 6E 74 65 67 65 72 3B 0D 0A 62 65 67 69 6E   Integer;..begin
000080: 0D 0A 20 20 52 61 6E 67 65 20 3A 3D 20 28 48 69  ..  Range := (Hi
000090: 67 68 20 2D 20 4C 6F 77 29 20 2B 20 31 3B 0D 0A  gh - Low) + 1;..
0000A0: 20 20 52 61 6E 64 20 20 3A 3D 20 4C 6F 77 20 2B    Rand  := Low +
0000B0: 20 54 72 75 6E 63 28 52 61 6E 67 65 2A 52 61 6E   Trunc(Range*Ran
0000C0: 64 6F 6D 29 0D 0A 65 6E 64 3B 20 28 2A 20 76 6F  dom)..end; (* vo
0000D0: 6E 20 50 72 6F 7A 65 64 75 72 20 52 61 6E 64 20  n Prozedur Rand 
0000E0: 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20  *)....procedure 
0000F0: 47 72 6F 73 73 28 76 61 72 20 43 68 20 3A 20 43  Gross(var Ch : C
000100: 68 61 72 29 3B 20 20 28 2A 20 55 6D 77 61 6E 64  har);  (* Umwand
000110: 6C 75 6E 67 20 69 6E 20 47 72 6F 73 73 62 75 63  lung in Grossbuc
000120: 68 73 74 61 62 65 6E 20 2A 29 0D 0A 62 65 67 69  hstaben *)..begi
000130: 6E 0D 0A 20 20 69 66 20 43 68 20 69 6E 20 5B 27  n..  if Ch in ['
000140: 61 27 2E 2E 27 7A 27 5D 0D 0A 20 20 20 20 74 68  a'..'z']..    th
000150: 65 6E 20 43 68 20 3A 3D 20 43 68 72 28 4F 72 64  en Ch := Chr(Ord
000160: 28 43 68 29 2D 33 32 29 0D 0A 65 6E 64 3B 20 28  (Ch)-32)..end; (
000170: 2A 20 76 6F 6E 20 50 72 6F 7A 65 64 75 72 20 47  * von Prozedur G
000180: 72 6F 73 73 20 2A 29 0D 0A 0D 0A 70 72 6F 63 65  ross *)....proce
000190: 64 75 72 65 20 47 65 74 43 68 61 72 28 76 61 72  dure GetChar(var
0001A0: 20 43 68 20 3A 20 43 68 61 72 3B 20 4D 73 67 20   Ch : Char; Msg 
0001B0: 3A 20 46 72 61 67 65 3B 20 4F 4B 53 65 74 20 3A  : Frage; OKSet :
0001C0: 20 5A 65 69 63 68 65 6E 6D 65 6E 67 65 29 3B 0D   Zeichenmenge);.
0001D0: 0A 28 2A 0D 0A 20 20 20 20 20 20 20 5A 77 65 63  .(*..       Zwec
0001E0: 6B 20 20 20 20 20 20 20 53 63 68 72 65 69 62 74  k       Schreibt
0001F0: 20 46 72 61 67 65 2C 20 4E 69 6D 6D 74 20 5A 65   Frage, Nimmt Ze

Size : 512 (Real : 512)
000000: 69 74 69 6F 6E 20 3A 20 20 27 2C 58 31 3A 33 2C  ition :  ',X1:3,
000010: 27 2C 27 2C 59 31 3A 33 29 0D 0A 65 6E 64 3B 20  ',',Y1:3)..end; 
000020: 28 2A 20 76 6F 6E 20 50 72 6F 7A 65 64 75 72 20  (* von Prozedur 
000030: 44 6F 4D 6F 76 65 20 2A 29 0D 0A 0D 0A 70 72 6F  DoMove *)....pro
000040: 63 65 64 75 72 65 20 44 6F 53 65 61 72 63 68 3B  cedure DoSearch;
000050: 0D 0A 28 2A 0D 0A 20 20 20 20 20 20 20 5A 77 65  ..(*..       Zwe
000060: 63 6B 20 20 20 20 20 20 73 75 63 68 74 20 6E 61  ck      sucht na
000070: 63 68 20 64 65 6D 20 46 65 69 6E 64 20 69 6E 20  ch dem Feind in 
000080: 61 6E 67 72 65 6E 7A 65 6E 64 65 6E 20 42 65 72  angrenzenden Ber
000090: 65 69 63 68 65 6E 0D 0A 2A 29 0D 0A 76 61 72 0D  eichen..*)..var.
0000A0: 0A 20 20 46 6F 75 6E 64 20 20 20 20 20 20 20 20  .  Found        
0000B0: 20 20 20 20 20 3A 20 42 6F 6F 6C 65 61 6E 3B 0D       : Boolean;.
0000C0: 0A 20 20 44 58 2C 44 59 2C 54 58 2C 54 59 20 20  .  DX,DY,TX,TY  
0000D0: 20 20 20 20 20 3A 20 49 6E 74 65 67 65 72 3B 0D       : Integer;.
0000E0: 0A 62 65 67 69 6E 0D 0A 20 20 46 6F 75 6E 64 20  .begin..  Found 
0000F0: 3A 3D 20 46 61 6C 73 65 3B 0D 0A 20 20 44 58 20  := False;..  DX 
000100: 3A 3D 20 2D 33 3B 0D 0A 20 20 77 68 69 6C 65 20  := -3;..  while 
000110: 6E 6F 74 20 46 6F 75 6E 64 20 61 6E 64 20 28 44  not Found and (D
000120: 58 20 3C 20 34 29 20 64 6F 20 62 65 67 69 6E 0D  X < 4) do begin.
000130: 0A 20 20 20 20 44 59 20 3A 3D 20 2D 33 3B 0D 0A  .    DY := -3;..
000140: 20 20 20 20 77 68 69 6C 65 20 6E 6F 74 20 46 6F      while not Fo
000150: 75 6E 64 20 61 6E 64 20 28 44 59 20 3C 20 34 29  und and (DY < 4)
000160: 20 64 6F 20 62 65 67 69 6E 0D 0A 20 20 20 20 20   do begin..     
000170: 20 54 58 20 3A 3D 20 58 31 3B 20 54 59 20 3A 3D   TX := X1; TY :=
000180: 20 59 31 3B 0D 0A 20 20 20 20 20 20 55 70 64 61   Y1;..      Upda
000190: 74 65 50 6F 73 69 74 69 6F 6E 28 54 58 2C 54 59  tePosition(TX,TY
0001A0: 2C 44 58 2C 44 59 29 3B 0D 0A 20 20 20 20 20 20  ,DX,DY);..      
0001B0: 69 66 20 28 54 58 20 3D 20 58 32 29 20 41 4E 44  if (TX = X2) AND
0001C0: 20 28 54 59 20 3D 20 59 32 29 0D 0A 20 20 20 20   (TY = Y2)..    
0001D0: 20 20 20 20 74 68 65 6E 20 46 6F 75 6E 64 20 3A      then Found :
0001E0: 3D 20 54 72 75 65 0D 0A 20 20 20 20 20 20 20 20  = True..        
0001F0: 65 6C 73 65 20 44 59 20 3A 3D 20 44 59 20 2B 20  else DY := DY + 

Size : 512 (Real : 512)
000000: 69 63 68 65 6E 20 61 6E 2C 20 77 65 6E 6E 20 69  ichen an, wenn i
000010: 6E 20 4F 4B 53 65 74 0D 0A 2A 29 0D 0A 62 65 67  n OKSet..*)..beg
000020: 69 6E 0D 0A 20 20 72 65 70 65 61 74 0D 0A 20 20  in..  repeat..  
000030: 20 20 47 6F 74 6F 58 59 28 31 2C 31 29 3B 20 43    GotoXY(1,1); C
000040: 6C 72 45 6F 6C 3B 0D 0A 20 20 20 20 57 72 69 74  lrEol;..    Writ
000050: 65 28 4D 73 67 29 3B 20 52 65 61 64 28 4B 62 64  e(Msg); Read(Kbd
000060: 2C 43 68 29 3B 0D 0A 20 20 20 20 47 72 6F 73 73  ,Ch);..    Gross
000070: 28 43 68 29 0D 0A 20 20 75 6E 74 69 6C 20 43 68  (Ch)..  until Ch
000080: 20 69 6E 20 4F 4B 53 65 74 0D 0A 65 6E 64 3B 20   in OKSet..end; 
000090: 28 2A 20 76 6F 6E 20 50 72 6F 7A 65 64 75 72 20  (* von Prozedur 
0000A0: 47 65 74 43 68 61 72 20 2A 29 0D 0A 0D 0A 70 72  GetChar *)....pr
0000B0: 6F 63 65 64 75 72 65 20 47 65 74 43 6F 6D 6D 61  ocedure GetComma
0000C0: 6E 64 28 56 61 72 20 43 6D 64 20 3A 20 43 6F 6D  nd(Var Cmd : Com
0000D0: 6D 61 6E 64 54 79 70 65 29 3B 0D 0A 28 2A 0D 0A  mandType);..(*..
0000E0: 20 20 20 20 20 20 20 5A 77 65 63 6B 20 20 20 20         Zweck    
0000F0: 20 20 45 72 6C 61 75 62 74 20 64 65 6D 20 42 65    Erlaubt dem Be
000100: 6E 75 74 7A 65 72 20 65 69 6E 73 20 76 6F 6E 20  nutzer eins von 
000110: 76 69 65 72 20 4B 6F 6D 6D 61 6E 64 6F 73 20 7A  vier Kommandos z
000120: 75 20 77 61 65 68 6C 65 6E 0D 0A 2A 29 0D 0A 76  u waehlen..*)..v
000130: 61 72 0D 0A 20 20 43 68 20 20 20 20 20 20 20 20  ar..  Ch        
000140: 20 20 20 20 20 20 20 20 3A 20 43 68 61 72 3B 0D          : Char;.
000150: 0A 62 65 67 69 6E 0D 0A 20 20 47 65 74 43 68 61  .begin..  GetCha
000160: 72 28 43 68 2C 27 43 4D 44 3E 20 4D 29 6F 76 65  r(Ch,'CMD> M)ove
000170: 2C 20 46 29 69 72 65 2C 20 53 29 65 61 72 63 68  , F)ire, S)earch
000180: 2C 20 51 29 75 69 74 3A 20 27 2C 5B 27 4D 27 2C  , Q)uit: ',['M',
000190: 27 46 27 2C 27 53 27 2C 27 51 27 5D 29 3B 0D 0A  'F','S','Q']);..
0001A0: 20 20 63 61 73 65 20 43 68 20 6F 66 0D 0A 20 20    case Ch of..  
0001B0: 20 20 27 4D 27 20 20 20 3A 20 43 6D 64 20 3A 3D    'M'   : Cmd :=
0001C0: 20 4D 6F 76 65 3B 0D 0A 20 20 20 20 27 46 27 20   Move;..    'F' 
0001D0: 20 20 3A 20 43 6D 64 20 3A 3D 20 46 69 72 65 3B    : Cmd := Fire;
0001E0: 0D 0A 20 20 20 20 27 53 27 20 20 20 3A 20 43 6D  ..    'S'   : Cm
0001F0: 64 20 3A 3D 20 53 65 61 72 63 68 3B 0D 0A 20 20  d := Search;..  

Size : 512 (Real : 512)
000000: 31 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20  1..    end;..   
000010: 20 69 66 20 6E 6F 74 20 46 6F 75 6E 64 0D 0A 20   if not Found.. 
000020: 20 20 20 20 20 74 68 65 6E 20 44 58 20 3A 3D 20       then DX := 
000030: 44 58 20 2B 20 31 0D 0A 20 20 65 6E 64 3B 0D 0A  DX + 1..  end;..
000040: 20 20 47 6F 74 6F 58 59 28 31 2C 32 29 3B 20 43    GotoXY(1,2); C
000050: 6C 72 45 6F 6C 3B 0D 0A 20 20 69 66 20 46 6F 75  lrEol;..  if Fou
000060: 6E 64 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A 20  nd then begin.. 
000070: 20 20 20 57 72 69 74 65 28 27 46 65 69 6E 64 20     Write('Feind 
000080: 67 65 73 69 63 68 74 65 74 20 3A 20 20 41 6B 74  gesichtet :  Akt
000090: 75 65 6C 6C 65 20 50 6F 73 69 74 69 6F 6E 20 69  uelle Position i
0000A0: 73 74 20 27 29 3B 0D 0A 20 20 20 20 69 66 20 28  st ');..    if (
0000B0: 44 58 20 3D 20 30 29 20 61 6E 64 20 28 44 59 20  DX = 0) and (DY 
0000C0: 3D 20 30 29 0D 0A 20 20 20 20 20 20 74 68 65 6E  = 0)..      then
0000D0: 20 57 72 69 74 65 28 27 64 69 65 73 65 6C 62 65   Write('dieselbe
0000E0: 20 77 69 65 20 49 68 72 65 27 29 0D 0A 20 20 20   wie Ihre')..   
0000F0: 20 65 6C 73 65 20 62 65 67 69 6E 0D 0A 20 20 20   else begin..   
000100: 20 20 20 69 66 20 44 58 20 3C 20 30 0D 0A 20 20     if DX < 0..  
000110: 20 20 20 20 20 20 74 68 65 6E 20 57 72 69 74 65        then Write
000120: 28 27 6C 69 6E 6B 73 20 76 6F 6E 27 29 0D 0A 20  ('links von').. 
000130: 20 20 20 20 20 65 6C 73 65 20 69 66 20 44 58 20       else if DX 
000140: 3E 20 30 0D 0A 20 20 20 20 20 20 20 20 74 68 65  > 0..        the
000150: 6E 20 57 72 69 74 65 28 27 72 65 63 68 74 73 20  n Write('rechts 
000160: 76 6F 6E 27 29 3B 0D 0A 20 20 20 20 20 20 69 66  von');..      if
000170: 20 28 44 58 20 3C 3E 20 30 29 20 61 6E 64 20 28   (DX <> 0) and (
000180: 44 59 20 3C 3E 20 30 29 0D 0A 20 20 20 20 20 20  DY <> 0)..      
000190: 20 20 74 68 65 6E 20 57 72 69 74 65 28 27 20 75    then Write(' u
0001A0: 6E 64 20 27 29 3B 0D 0A 20 20 20 20 20 20 69 66  nd ');..      if
0001B0: 20 44 59 20 3C 20 30 0D 0A 20 20 20 20 20 20 20   DY < 0..       
0001C0: 20 74 68 65 6E 20 57 72 69 74 65 28 27 75 6E 74   then Write('unt
0001D0: 65 72 27 29 0D 0A 20 20 20 20 20 20 65 6C 73 65  er')..      else
0001E0: 20 69 66 20 44 59 20 3E 20 30 0D 0A 20 20 20 20   if DY > 0..    
0001F0: 20 20 20 20 74 68 65 6E 20 57 72 69 74 65 28 27      then Write('

Size : 512 (Real : 512)
000000: 20 20 27 51 27 20 20 20 3A 20 43 6D 64 20 3A 3D    'Q'   : Cmd :=
000010: 20 51 75 69 74 0D 0A 20 20 65 6E 64 0D 0A 65 6E   Quit..  end..en
000020: 64 3B 20 28 2A 20 76 6F 6E 20 50 72 6F 7A 65 64  d; (* von Prozed
000030: 75 72 20 47 65 74 43 6F 6D 6D 61 6E 64 20 2A 29  ur GetCommand *)
000040: 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 49 6E  ....procedure In
000050: 69 74 69 61 6C 69 7A 65 3B 0D 0A 28 2A 0D 0A 20  itialize;..(*.. 
000060: 20 20 20 20 20 20 5A 77 65 63 6B 20 20 20 20 20        Zweck     
000070: 20 49 6E 69 74 69 61 6C 69 73 69 65 72 75 6E 67   Initialisierung
000080: 20 76 6F 6E 20 61 6C 6C 65 6D 20 75 6E 64 20 6A   von allem und j
000090: 65 64 65 6D 0D 0A 2A 29 0D 0A 62 65 67 69 6E 0D  edem..*)..begin.
0000A0: 0A 20 20 43 6C 72 53 63 72 3B 0D 0A 20 20 58 31  .  ClrScr;..  X1
0000B0: 20 3A 3D 20 28 58 4D 69 6E 2B 58 4D 61 78 29 20   := (XMin+XMax) 
0000C0: 64 69 76 20 32 3B 0D 0A 20 20 59 31 20 3A 3D 20  div 2;..  Y1 := 
0000D0: 59 4D 69 6E 3B 0D 0A 20 20 58 32 20 3A 3D 20 28  YMin;..  X2 := (
0000E0: 58 4D 69 6E 2B 58 4D 61 78 29 20 64 69 76 20 32  XMin+XMax) div 2
0000F0: 20 2B 20 52 61 6E 64 28 2D 35 2C 35 29 3B 0D 0A   + Rand(-5,5);..
000100: 20 20 59 32 20 3A 3D 20 28 59 6D 69 6E 2B 59 6D    Y2 := (Ymin+Ym
000110: 61 78 29 20 64 69 76 20 32 20 2B 20 52 61 6E 64  ax) div 2 + Rand
000120: 28 2D 35 2C 35 29 0D 0A 65 6E 64 3B 20 28 2A 20  (-5,5)..end; (* 
000130: 76 6F 6E 20 50 72 6F 7A 65 64 75 72 20 49 6E 69  von Prozedur Ini
000140: 74 69 61 6C 69 7A 65 20 2A 29 0D 0A 0D 0A 70 72  tialize *)....pr
000150: 6F 63 65 64 75 72 65 20 55 70 64 61 74 65 50 6F  ocedure UpdatePo
000160: 73 69 74 69 6F 6E 28 76 61 72 20 58 2C 59 20 3A  sition(var X,Y :
000170: 20 49 6E 74 65 67 65 72 3B 20 44 58 2C 44 59 20   Integer; DX,DY 
000180: 3A 20 49 6E 74 65 67 65 72 29 3B 0D 0A 28 2A 0D  : Integer);..(*.
000190: 0A 20 20 20 20 20 20 20 5A 77 65 63 6B 20 20 20  .       Zweck   
0001A0: 20 20 20 62 72 69 6E 67 74 20 58 2C 59 20 61 75     bringt X,Y au
0001B0: 66 20 64 65 6E 20 6E 65 75 65 73 74 65 6E 20 53  f den neuesten S
0001C0: 74 61 6E 64 0D 0A 2A 29 0D 0A 0D 0A 20 20 70 72  tand..*)....  pr
0001D0: 6F 63 65 64 75 72 65 20 57 72 61 70 41 72 6F 75  ocedure WrapArou
0001E0: 6E 64 28 4D 69 6E 20 3A 20 49 6E 74 65 67 65 72  nd(Min : Integer
0001F0: 3B 20 76 61 72 20 56 61 6C 20 3A 20 49 6E 74 65  ; var Val : Inte

Size : 512 (Real : 512)
000000: 81 62 65 72 27 29 3B 0D 0A 20 20 20 20 20 20 57  .ber');..      W
000010: 72 69 74 65 28 27 20 49 68 6E 65 6E 27 29 0D 0A  rite(' Ihnen')..
000020: 20 20 20 20 65 6E 64 0D 0A 20 20 65 6E 64 0D 0A      end..  end..
000030: 20 20 65 6C 73 65 20 57 72 69 74 65 28 27 46 65    else Write('Fe
000040: 69 6E 64 20 6E 69 63 68 74 20 67 65 73 69 63 68  ind nicht gesich
000050: 74 65 74 27 29 0D 0A 65 6E 64 3B 20 28 2A 20 76  tet')..end; (* v
000060: 6F 6E 20 50 72 6F 7A 65 64 75 72 20 44 6F 53 65  on Prozedur DoSe
000070: 61 72 63 68 20 2A 29 0D 0A 0D 0A 70 72 6F 63 65  arch *)....proce
000080: 64 75 72 65 20 44 6F 46 69 72 65 28 76 61 72 20  dure DoFire(var 
000090: 43 6F 6D 6D 61 6E 64 20 3A 20 43 6F 6D 6D 61 6E  Command : Comman
0000A0: 64 54 79 70 65 29 3B 0D 0A 28 2A 0D 0A 20 20 20  dType);..(*..   
0000B0: 20 20 20 20 5A 77 65 63 6B 20 20 20 20 20 20 45      Zweck      E
0000C0: 72 6C 61 75 62 74 20 64 65 6D 20 53 70 69 65 6C  rlaubt dem Spiel
0000D0: 65 72 20 7A 75 20 73 63 68 69 65 73 73 65 6E 0D  er zu schiessen.
0000E0: 0A 2A 29 0D 0A 76 61 72 0D 0A 20 20 43 68 20 20  .*)..var..  Ch  
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20                : 
000100: 43 68 61 72 3B 0D 0A 20 20 44 58 2C 44 59 20 20  Char;..  DX,DY  
000110: 20 20 20 20 20 20 20 20 20 20 20 3A 20 49 6E 74             : Int
000120: 65 67 65 72 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20  eger;..begin..  
000130: 47 65 74 43 68 61 72 28 43 68 2C 27 46 49 52 45  GetChar(Ch,'FIRE
000140: 3E 20 4C 29 65 66 74 2C 20 52 29 69 67 68 74 2C  > L)eft, R)ight,
000150: 20 55 29 70 2C 20 44 29 6F 77 6E 2C 20 53 29 61   U)p, D)own, S)a
000160: 6D 65 3A 20 27 2C 0D 0A 20 20 20 20 20 20 20 20  me: ',..        
000170: 20 20 5B 27 4C 27 2C 27 52 27 2C 27 55 27 2C 27    ['L','R','U','
000180: 44 27 2C 27 53 27 5D 29 3B 0D 0A 20 20 44 58 20  D','S']);..  DX 
000190: 3A 3D 20 30 3B 20 44 59 20 3A 3D 20 30 3B 0D 0A  := 0; DY := 0;..
0001A0: 20 20 63 61 73 65 20 43 68 20 6F 66 0D 0A 20 20    case Ch of..  
0001B0: 20 20 27 4C 27 20 20 20 3A 20 44 58 20 3A 3D 20    'L'   : DX := 
0001C0: 2D 31 3B 0D 0A 20 20 20 20 27 52 27 20 20 20 3A  -1;..    'R'   :
0001D0: 20 44 58 20 3A 3D 20 20 31 3B 0D 0A 20 20 20 20   DX :=  1;..    
0001E0: 27 55 27 20 20 20 3A 20 44 59 20 3A 3D 20 20 31  'U'   : DY :=  1
0001F0: 3B 0D 0A 20 20 20 20 27 44 27 20 20 20 3A 20 44  ;..    'D'   : D

Size : 512 (Real : 512)
000000: 20 3A 20 49 6E 74 65 67 65 72 29 3B 0D 0A 76 61   : Integer);..va
000010: 72 0D 0A 20 20 52 65 67 73 20 3A 20 52 65 67 50  r..  Regs : RegP
000020: 61 63 6B 3B 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20  ack;....begin.. 
000030: 20 77 69 74 68 20 52 65 67 73 20 64 6F 20 62 65   with Regs do be
000040: 67 69 6E 0D 0A 20 20 20 20 41 58 20 3A 3D 20 4D  gin..    AX := M
000050: 31 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20  1;              
000060: 20 20 28 2A 20 61 78 2C 62 78 2C 63 78 2C 64 78    (* ax,bx,cx,dx
000070: 20 66 75 65 72 20 49 6E 74 65 72 72 75 70 74 20   fuer Interrupt 
000080: 76 6F 72 62 65 72 65 69 74 65 6E 20 2A 29 0D 0A  vorbereiten *)..
000090: 20 20 20 20 42 58 20 3A 3D 20 4D 32 3B 0D 0A 20      BX := M2;.. 
0000A0: 20 20 20 43 58 20 3A 3D 20 4D 33 3B 0D 0A 20 20     CX := M3;..  
0000B0: 20 20 44 58 20 3A 3D 20 4D 34 0D 0A 20 20 65 6E    DX := M4..  en
0000C0: 64 3B 0D 0A 20 20 49 6E 74 72 28 35 31 2C 52 65  d;..  Intr(51,Re
0000D0: 67 73 29 3B 20 20 20 20 20 20 20 20 20 20 20 20  gs);            
0000E0: 20 28 2A 20 49 6E 74 65 72 72 75 70 74 20 35 31   (* Interrupt 51
0000F0: 20 61 75 66 72 75 66 65 6E 20 2A 29 0D 0A 20 20   aufrufen *)..  
000100: 77 69 74 68 20 52 65 67 73 20 64 6F 20 62 65 67  with Regs do beg
000110: 69 6E 0D 0A 20 20 20 20 4D 31 20 3A 3D 20 41 58  in..    M1 := AX
000120: 3B 0D 0A 20 20 20 20 4D 32 20 3A 3D 20 42 58 3B  ;..    M2 := BX;
000130: 0D 0A 20 20 20 20 4D 33 20 3A 3D 20 43 58 3B 0D  ..    M3 := CX;.
000140: 0A 20 20 20 20 4D 34 20 3A 3D 20 44 58 0D 0A 20  .    M4 := DX.. 
000150: 20 65 6E 64 0D 0A 65 6E 64 3B 20 28 2A 20 76 6F   end..end; (* vo
000160: 6E 20 50 72 6F 7A 65 64 75 72 20 4D 61 75 73 20  n Prozedur Maus 
000170: 2A 29 0D 0A 0D 0A 0D 0A 62 65 67 69 6E 20 28 2A  *)......begin (*
000180: 20 48 61 75 70 74 70 72 6F 67 72 61 6D 6D 20 76   Hauptprogramm v
000190: 6F 6E 20 4D 61 75 73 53 6B 65 74 63 68 20 2A 29  on MausSketch *)
0001A0: 0D 0A 20 20 4D 31 20 3A 3D 20 30 3B 0D 0A 20 20  ..  M1 := 0;..  
0001B0: 4D 32 20 3A 3D 20 30 3B 0D 0A 20 20 4D 33 20 3A  M2 := 0;..  M3 :
0001C0: 3D 20 30 3B 0D 0A 20 20 4D 34 20 3A 3D 20 30 3B  = 0;..  M4 := 0;
0001D0: 0D 0A 20 20 48 69 52 65 73 3B 20 20 20 20 20 20  ..  HiRes;      
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28                 (
0001F0: 2A 20 47 72 61 70 68 69 63 73 20 6D 6F 64 65 20  * Graphics mode 

Size : 512 (Real : 512)
000000: 59 20 3A 3D 20 2D 31 0D 0A 20 20 65 6E 64 3B 0D  Y := -1..  end;.
000010: 0A 20 20 47 6F 74 6F 58 59 28 31 2C 33 29 3B 20  .  GotoXY(1,3); 
000020: 43 6C 72 45 6F 6C 3B 0D 0A 20 20 69 66 20 28 43  ClrEol;..  if (C
000030: 68 20 3D 20 27 53 27 29 20 61 6E 64 20 28 52 61  h = 'S') and (Ra
000040: 6E 64 28 31 2C 34 29 20 3D 20 31 29 20 74 68 65  nd(1,4) = 1) the
000050: 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 57 72 69  n begin..    Wri
000060: 74 65 28 27 48 6F 70 70 6C 61 2E 2E 2E 20 53 69  te('Hoppla... Si
000070: 65 20 68 61 62 65 6E 20 73 69 63 68 20 73 65 6C  e haben sich sel
000080: 62 73 74 20 65 72 73 63 68 6F 73 73 65 6E 21 20  bst erschossen! 
000090: 20 53 69 65 20 76 65 72 6C 69 65 72 65 6E 21 27   Sie verlieren!'
0000A0: 29 3B 0D 0A 20 20 20 20 43 6F 6D 6D 61 6E 64 20  );..    Command 
0000B0: 3A 3D 20 51 75 69 74 0D 0A 20 20 65 6E 64 0D 0A  := Quit..  end..
0000C0: 20 20 65 6C 73 65 20 69 66 20 28 58 31 2B 44 58    else if (X1+DX
0000D0: 20 3D 20 58 32 29 20 61 6E 64 20 28 59 31 2B 44   = X2) and (Y1+D
0000E0: 59 20 3D 20 59 32 29 20 61 6E 64 20 28 52 61 6E  Y = Y2) and (Ran
0000F0: 64 28 31 2C 44 58 2B 44 59 29 20 3C 20 32 29 20  d(1,DX+DY) < 2) 
000100: 74 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20  then begin..    
000110: 57 72 69 74 65 28 27 53 69 65 20 68 61 62 65 6E  Write('Sie haben
000120: 20 49 68 6E 21 20 53 69 65 20 67 65 77 69 6E 6E   Ihn! Sie gewinn
000130: 65 6E 21 27 29 3B 0D 0A 20 20 20 20 43 6F 6D 6D  en!');..    Comm
000140: 61 6E 64 20 3A 3D 20 51 75 69 74 0D 0A 20 20 65  and := Quit..  e
000150: 6E 64 0D 0A 20 20 65 6C 73 65 20 57 72 69 74 65  nd..  else Write
000160: 28 27 44 61 6E 65 62 65 6E 2E 20 56 69 65 6C 20  ('Daneben. Viel 
000170: 47 6C 75 65 63 6B 20 66 75 65 72 27 27 73 20 6E  Glueck fuer''s n
000180: 61 65 63 68 73 74 65 20 6D 61 6C 2E 27 29 0D 0A  aechste mal.')..
000190: 65 6E 64 3B 20 28 2A 20 76 6F 6E 20 50 72 6F 7A  end; (* von Proz
0001A0: 65 64 75 72 20 44 6F 46 69 72 65 20 2A 29 0D 0A  edur DoFire *)..
0001B0: 0D 0A 28 2A 20 20 20 20 20 20 20 20 42 65 67 69  ..(*        Begi
0001C0: 6E 6E 20 64 65 73 20 48 61 75 70 74 70 72 6F 67  nn des Hauptprog
0001D0: 72 61 6D 6D 73 20 20 20 20 20 20 20 20 20 2A 29  ramms         *)
0001E0: 0D 0A 62 65 67 69 6E 0D 0A 20 20 49 6E 69 74 69  ..begin..  Initi
0001F0: 61 6C 69 7A 65 3B 0D 0A 20 20 72 65 70 65 61 74  alize;..  repeat

Size : 512 (Real : 512)
000000: 75 6E 64 20 46 61 72 62 65 20 2A 29 0D 0A 20 20  und Farbe *)..  
000010: 48 69 52 65 73 43 6F 6C 6F 72 28 59 65 6C 6C 6F  HiResColor(Yello
000020: 77 29 3B 0D 0A 20 20 4D 31 20 3A 3D 20 30 3B 20  w);..  M1 := 0; 
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000040: 20 20 28 2A 20 49 6E 69 74 69 61 6C 69 65 72 75    (* Initialieru
000050: 6E 67 20 64 65 73 20 4D 61 75 73 74 72 65 69 62  ng des Maustreib
000060: 65 72 73 20 2A 29 0D 0A 20 20 4D 61 75 73 28 4D  ers *)..  Maus(M
000070: 31 2C 4D 32 2C 4D 33 2C 4D 34 29 3B 0D 0A 20 20  1,M2,M3,M4);..  
000080: 4D 31 20 3A 3D 20 31 3B 20 20 20 20 20 20 20 20  M1 := 1;        
000090: 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 4D 61             (* Ma
0000A0: 75 73 20 43 75 72 73 6F 72 20 61 6E 2A 29 0D 0A  us Cursor an*)..
0000B0: 20 20 4D 61 75 73 28 4D 31 2C 4D 32 2C 4D 33 2C    Maus(M1,M2,M3,
0000C0: 4D 34 29 3B 0D 0A 20 20 4D 31 20 3A 3D 20 33 3B  M4);..  M1 := 3;
0000D0: 0D 0A 20 20 4F 6C 64 58 20 3A 3D 20 30 3B 0D 0A  ..  OldX := 0;..
0000E0: 20 20 4F 6C 64 59 20 3A 3D 20 30 3B 0D 0A 20 20    OldY := 0;..  
0000F0: 77 68 69 6C 65 20 6E 6F 74 20 4B 65 79 50 72 65  while not KeyPre
000100: 73 73 65 64 20 64 6F 20 62 65 67 69 6E 20 20 20  ssed do begin   
000110: 28 2A 20 50 72 6F 67 72 61 6D 6D 65 6E 64 65 20  (* Programmende 
000120: 77 65 6E 6E 20 65 69 6E 65 20 54 61 73 74 65 20  wenn eine Taste 
000130: 67 65 64 72 75 65 63 6B 74 0D 0A 20 20 20 20 20  gedrueckt..     
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000160: 77 69 72 64 2A 29 0D 0A 20 20 20 20 4D 61 75 73  wird*)..    Maus
000170: 28 4D 31 2C 4D 32 2C 4D 33 2C 4D 34 29 3B 0D 0A  (M1,M2,M3,M4);..
000180: 20 20 20 20 69 66 20 4D 32 20 3C 3E 20 30 0D 0A      if M2 <> 0..
000190: 20 20 20 20 20 20 74 68 65 6E 20 44 72 61 77 28        then Draw(
0001A0: 4F 6C 64 58 2C 4F 6C 64 59 2C 4D 33 2C 4D 34 2C  OldX,OldY,M3,M4,
0001B0: 31 29 3B 20 28 2A 20 5A 65 69 63 68 6E 65 20 77  1); (* Zeichne w
0001C0: 65 6E 6E 20 64 65 72 20 4D 61 75 73 6B 6E 6F 70  enn der Mausknop
0001D0: 66 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  f..             
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001F0: 20 20 20 20 20 20 20 20 20 20 67 65 64 72 75 65            gedrue

Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 47 65 74 43 6F 6D 6D 61 6E 64  ..    GetCommand
000010: 28 43 6F 6D 6D 61 6E 64 29 3B 0D 0A 20 20 20 20  (Command);..    
000020: 63 61 73 65 20 43 6F 6D 6D 61 6E 64 20 6F 66 0D  case Command of.
000030: 0A 20 20 20 20 20 20 4D 6F 76 65 20 20 20 20 20  .      Move     
000040: 20 20 3A 20 44 6F 4D 6F 76 65 3B 0D 0A 20 20 20    : DoMove;..   
000050: 20 20 20 46 69 72 65 20 20 20 20 20 20 20 3A 20     Fire       : 
000060: 44 6F 46 69 72 65 28 43 6F 6D 6D 61 6E 64 29 3B  DoFire(Command);
000070: 0D 0A 20 20 20 20 20 20 53 65 61 72 63 68 20 20  ..      Search  
000080: 20 20 20 3A 20 44 6F 53 65 61 72 63 68 0D 0A 20     : DoSearch.. 
000090: 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 4D 6F 76     end;..    Mov
0000A0: 65 4F 74 68 65 72 0D 0A 20 20 75 6E 74 69 6C 20  eOther..  until 
0000B0: 43 6F 6D 6D 61 6E 64 20 3D 20 51 75 69 74 0D 0A  Command = Quit..
0000C0: 65 6E 64 2E 20 28 2A 20 20 64 65 73 20 50 72 6F  end. (*  des Pro
0000D0: 67 72 61 6D 6D 73 20 53 70 69 65 6C 31 20 20 2A  gramms Spiel1  *
0000E0: 29 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  )...............
0000F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000100: 20 20 20 57 72 69 74 65 28 27 53 69 65 20 68 61     Write('Sie ha
000110: 62 65 6E 20 49 68 6E 21 20 53 69 65 20 67 65 77  ben Ihn! Sie gew
000120: 69 6E 6E 65 6E 21 27 29 3B 0D 0A 20 20 20 20 43  innen!');..    C
000130: 6F 6D 6D 61 6E 64 20 3A 3D 20 51 75 69 74 0D 0A  ommand := Quit..
000140: 20 20 65 6E 64 0D 0A 20 20 65 6C 73 65 20 57 72    end..  else Wr
000150: 69 74 65 28 27 44 61 6E 65 62 65 6E 2E 20 56 69  ite('Daneben. Vi
000160: 65 6C 20 47 6C 81 63 6B 20 66 81 72 27 27 73 20  el Gl.ck f.r''s 
000170: 6E 84 63 68 73 74 65 20 6D 61 6C 2E 27 29 0D 0A  n.chste mal.')..
000180: 65 6E 64 3B 20 28 2A 20 76 6F 6E 20 50 72 6F 7A  end; (* von Proz
000190: 65 64 75 72 20 44 6F 46 69 72 65 20 2A 29 0D 0A  edur DoFire *)..
0001A0: 0D 0A 28 2A 20 20 20 20 20 20 20 20 42 65 67 69  ..(*        Begi
0001B0: 6E 6E 20 64 65 73 20 48 61 75 70 74 70 72 6F 67  nn des Hauptprog
0001C0: 72 61 6D 6D 73 20 20 20 20 20 20 20 20 20 2A 29  ramms         *)
0001D0: 0D 0A 62 65 67 69 6E 0D 0A 20 20 49 6E 69 74 69  ..begin..  Initi
0001E0: 61 6C 69 7A 65 3B 0D 0A 20 20 72 65 70 65 61 74  alize;..  repeat
0001F0: 0D 0A 20 20 20 20 47 65 74 43 6F 6D 6D 61 6E 64  ..    GetCommand

Size : 512 (Real : 512)
000000: 63 6B 74 20 77 75 72 64 65 20 2A 29 0D 0A 20 20  ckt wurde *)..  
000010: 20 20 4F 6C 64 58 20 3A 3D 20 4D 33 3B 0D 0A 20    OldX := M3;.. 
000020: 20 20 20 4F 6C 64 59 20 3A 3D 20 4D 34 0D 0A 20     OldY := M4.. 
000030: 20 65 6E 64 0D 0A 65 6E 64 2E 20 28 2A 20 64 65   end..end. (* de
000040: 73 20 50 72 6F 67 72 61 6D 6D 73 20 4D 61 75 73  s Programms Maus
000050: 53 6B 65 74 63 68 20 2A 29 0D 0A 0D 0A 1A 1A 1A  Sketch *).......
000060: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000070: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000080: 4D 31 20 3A 3D 20 31 3B 20 20 20 20 20 20 20 20  M1 := 1;        
000090: 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 4D 61             (* Ma
0000A0: 75 73 20 43 75 72 73 6F 72 20 61 6E 2A 29 0D 0A  us Cursor an*)..
0000B0: 20 20 4D 61 75 73 28 4D 31 2C 4D 32 2C 4D 33 2C    Maus(M1,M2,M3,
0000C0: 4D 34 29 3B 0D 0A 20 20 4D 31 20 3A 3D 20 33 3B  M4);..  M1 := 3;
0000D0: 0D 0A 20 20 4F 6C 64 58 20 3A 3D 20 30 3B 0D 0A  ..  OldX := 0;..
0000E0: 20 20 4F 6C 64 59 20 3A 3D 20 30 3B 0D 0A 20 20    OldY := 0;..  
0000F0: 77 68 69 6C 65 20 6E 6F 74 20 4B 65 79 50 72 65  while not KeyPre
000100: 73 73 65 64 20 64 6F 20 62 65 67 69 6E 20 20 20  ssed do begin   
000110: 28 2A 20 50 72 6F 67 72 61 6D 6D 65 6E 64 65 20  (* Programmende 
000120: 77 65 6E 6E 20 65 69 6E 65 20 54 61 73 74 65 20  wenn eine Taste 
000130: 67 65 64 72 75 65 63 6B 74 0D 0A 20 20 20 20 20  gedrueckt..     
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000160: 77 69 72 64 2A 29 0D 0A 20 20 20 20 4D 61 75 73  wird*)..    Maus
000170: 28 4D 31 2C 4D 32 2C 4D 33 2C 4D 34 29 3B 0D 0A  (M1,M2,M3,M4);..
000180: 20 20 20 20 69 66 20 4D 32 20 3C 3E 20 30 0D 0A      if M2 <> 0..
000190: 20 20 20 20 20 20 74 68 65 6E 20 44 72 61 77 28        then Draw(
0001A0: 4F 6C 64 58 2C 4F 6C 64 59 2C 4D 33 2C 4D 34 2C  OldX,OldY,M3,M4,
0001B0: 31 29 3B 20 28 2A 20 5A 65 69 63 68 6E 65 20 77  1); (* Zeichne w
0001C0: 65 6E 6E 20 64 65 72 20 4D 61 75 73 6B 6E 6F 70  enn der Mausknop
0001D0: 66 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  f..             
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001F0: 20 20 20 20 20 20 20 20 20 20 67 65 64 72 75 65            gedrue

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

Size : 512 (Real : 512)
000000: 0D 0A 70 72 6F 67 72 61 6D 20 44 6F 73 56 65 72  ..program DosVer
000010: 73 69 6F 6E 3B 0D 0A 0D 0A 66 75 6E 63 74 69 6F  sion;....functio
000020: 6E 20 44 6F 73 56 65 72 20 3A 20 52 65 61 6C 3B  n DosVer : Real;
000030: 0D 0A 76 61 72 0D 0A 20 20 52 65 67 73 20 20 20  ..var..  Regs   
000040: 20 3A 20 72 65 63 6F 72 64 0D 0A 20 20 20 20 20   : record..     
000050: 20 20 20 20 20 20 20 20 20 41 58 2C 42 58 2C 43           AX,BX,C
000060: 58 2C 44 58 2C 42 50 2C 53 49 2C 44 49 2C 44 53  X,DX,BP,SI,DI,DS
000070: 2C 45 53 2C 46 6C 61 67 73 20 3A 20 49 6E 74 65  ,ES,Flags : Inte
000080: 67 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  ger;..          
000090: 20 20 65 6E 64 3B 0D 0A 20 20 41 4C 2C 41 48 20    end;..  AL,AH 
0000A0: 20 20 3A 20 42 79 74 65 3B 0D 0A 0D 0A 20 62 65    : Byte;.... be
0000B0: 67 69 6E 0D 0A 20 20 20 52 65 67 73 2E 41 58 20  gin..   Regs.AX 
0000C0: 3A 3D 20 24 33 30 30 30 3B 0D 0A 20 20 20 4D 53  := $3000;..   MS
0000D0: 44 6F 73 28 20 52 65 67 73 20 29 3B 0D 0A 20 20  Dos( Regs );..  
0000E0: 20 41 4C 20 3A 3D 20 52 65 67 73 2E 41 58 20 61   AL := Regs.AX a
0000F0: 6E 64 20 24 46 46 3B 0D 0A 20 20 20 41 48 20 3A  nd $FF;..   AH :
000100: 3D 20 28 20 52 65 67 73 2E 41 58 20 61 6E 64 20  = ( Regs.AX and 
000110: 24 46 46 30 30 20 29 20 73 68 72 20 38 3B 0D 0A  $FF00 ) shr 8;..
000120: 20 20 20 44 6F 73 56 65 72 20 3A 3D 20 41 4C 20     DosVer := AL 
000130: 2B 20 41 48 2F 31 30 30 3B 0D 0A 20 65 6E 64 3B  + AH/100;.. end;
000140: 20 7B 20 64 65 72 20 46 75 6E 6B 74 69 6F 6E 20   { der Funktion 
000150: 44 6F 73 56 65 72 20 7D 0D 0A 0D 0A 62 65 67 69  DosVer }....begi
000160: 6E 20 7B 20 48 61 75 70 74 70 72 6F 67 72 61 6D  n { Hauptprogram
000170: 6D 20 76 6F 6E 20 44 6F 73 56 65 72 73 69 6F 6E  m von DosVersion
000180: 20 7D 0D 0A 20 20 57 72 69 74 65 4C 6E 3B 0D 0A   }..  WriteLn;..
000190: 20 20 57 72 69 74 65 4C 6E 3B 0D 0A 20 20 57 72    WriteLn;..  Wr
0001A0: 69 74 65 4C 6E 28 20 27 4D 53 20 44 4F 53 20 56  iteLn( 'MS DOS V
0001B0: 65 72 73 69 6F 6E 20 3A 20 27 2C 44 6F 73 56 65  ersion : ',DosVe
0001C0: 72 3A 34 3A 32 20 29 3B 0D 0A 65 6E 64 2E 20 7B  r:4:2 );..end. {
0001D0: 20 45 6E 64 65 20 76 6F 6E 20 20 44 6F 73 56 65   Ende von  DosVe
0001E0: 72 73 69 6F 6E 20 7D 0D 0A 1A F6 F6 F6 F6 F6 F6  rsion }.........
0001F0: F6 F6 F6 F6 F6 F6 F6 F6 F6 F6 F6 F6 F6 F6 F6 F6  ................

Size : 512 (Real : 512)
000000: 0D 0A 70 72 6F 67 72 61 6D 20 4D 61 75 73 53 6B  ..program MausSk
000010: 65 74 63 68 3B 0D 0A 28 2A 0D 0A 20 20 20 20 20  etch;..(*..     
000020: 20 20 44 69 65 73 65 73 20 50 72 6F 67 72 61 6D    Dieses Program
000030: 6D 20 7A 65 69 67 74 20 77 69 65 20 6D 61 6E 20  m zeigt wie man 
000040: 64 69 65 20 4D 69 63 72 6F 73 6F 66 74 20 4D 61  die Microsoft Ma
000050: 75 73 20 61 6E 73 70 72 65 63 68 65 6E 20 6B 61  us ansprechen ka
000060: 6E 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  nn..            
000070: 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 20 57             *** W
000080: 41 52 4E 55 4E 47 20 2A 2A 2A 0D 0A 20 20 20 20  ARNUNG ***..    
000090: 20 20 20 44 65 72 20 4D 61 75 73 74 72 65 69 62     Der Maustreib
0000A0: 65 72 20 6D 75 7E 20 75 6E 62 65 64 69 6E 67 74  er mu~ unbedingt
0000B0: 20 67 65 6C 61 64 65 6E 20 73 65 69 6E 20 62 65   geladen sein be
0000C0: 76 6F 72 20 64 69 65 73 65 20 50 72 6F 67 72 61  vor diese Progra
0000D0: 6D 6D 0D 0A 20 20 20 20 20 20 20 61 75 73 67 65  mm..       ausge
0000E0: 66 75 65 68 72 74 20 77 69 72 64 2E 0D 0A 20 20  fuehrt wird...  
0000F0: 20 20 20 20 20 44 65 72 20 4D 61 75 73 74 72 65       Der Maustre
000100: 69 62 65 72 20 77 69 72 64 20 64 75 72 63 68 20  iber wird durch 
000110: 4D 61 75 73 2E 43 4F 4D 20 67 65 6C 61 64 65 6E  Maus.COM geladen
000120: 2E 0D 0A 2A 29 0D 0A 0D 0A 74 79 70 65 0D 0A 20  ...*)....type.. 
000130: 20 52 65 67 50 61 63 6B 20 3D 0D 0A 20 20 20 20   RegPack =..    
000140: 72 65 63 6F 72 64 0D 0A 20 20 20 20 20 20 41 58  record..      AX
000150: 2C 42 58 2C 43 58 2C 44 58 2C 42 50 2C 53 49 2C  ,BX,CX,DX,BP,SI,
000160: 44 49 2C 44 53 2C 45 53 2C 46 6C 61 67 73 20 3A  DI,DS,ES,Flags :
000170: 20 49 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 65   Integer;..    e
000180: 6E 64 3B 0D 0A 0D 0A 76 61 72 0D 0A 20 20 4F 6C  nd;....var..  Ol
000190: 64 58 2C 4F 6C 64 59 2C 58 2C 59 20 3A 20 49 6E  dX,OldY,X,Y : In
0001A0: 74 65 67 65 72 3B 0D 0A 20 20 4D 31 2C 4D 32 2C  teger;..  M1,M2,
0001B0: 4D 33 2C 4D 34 20 3A 20 20 20 49 6E 74 65 67 65  M3,M4 :   Intege
0001C0: 72 3B 0D 0A 20 20 52 65 67 50 61 6B 20 3A 20 20  r;..  RegPak :  
0001D0: 20 20 20 20 20 20 52 65 67 50 61 63 6B 3B 0D 0A        RegPack;..
0001E0: 0D 0A 70 72 6F 63 65 64 75 72 65 20 4D 61 75 73  ..procedure Maus
0001F0: 28 76 61 72 20 4D 31 2C 4D 32 2C 4D 33 2C 4D 34  (var M1,M2,M3,M4

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

Size : 512 (Real : 512)
000000: 61 6C 69 73 69 65 72 65 6E 20 2A 29 0D 0A 20 20  alisieren *)..  
000010: 20 20 20 20 46 69 6C 6C 43 68 61 72 28 45 72 67      FillChar(Erg
000020: 65 62 6E 69 73 73 2C 53 69 7A 65 4F 66 28 45 72  ebniss,SizeOf(Er
000030: 67 65 62 6E 69 73 73 29 2C 30 29 3B 20 28 2A 20  gebniss),0); (* 
000040: 45 72 67 65 62 6E 69 73 2D 61 72 72 61 79 20 6C  Ergebnis-array l
000050: 6F 65 73 63 68 65 6E 20 2A 29 0D 0A 20 20 20 20  oeschen *)..    
000060: 20 20 66 6F 72 20 49 6E 64 65 78 20 3A 3D 20 31    for Index := 1
000070: 20 74 6F 20 5A 61 65 68 6C 65 72 20 64 6F 20 62   to Zaehler do b
000080: 65 67 69 6E 20 20 20 20 20 20 20 28 2A 20 5A 61  egin       (* Za
000090: 65 68 6C 65 72 20 73 74 61 72 74 65 6E 20 2A 29  ehler starten *)
0000A0: 0D 0A 20 20 20 20 20 20 20 20 4A 6E 64 65 78 20  ..        Jndex 
0000B0: 3A 3D 20 52 61 6E 64 6F 6D 28 31 30 29 3B 20 20  := Random(10);  
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000D0: 20 28 2A 20 42 65 72 65 69 63 68 20 20 30 2E 2E   (* Bereich  0..
0000E0: 39 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 45 72  9 *)..        Er
0000F0: 67 65 62 6E 69 73 73 5B 4A 6E 64 65 78 5D 20 3A  gebniss[Jndex] :
000100: 3D 20 45 72 67 65 62 6E 69 73 73 5B 4A 6E 64 65  = Ergebniss[Jnde
000110: 78 5D 20 2B 20 31 0D 0A 20 20 20 20 20 20 65 6E  x] + 1..      en
000120: 64 3B 0D 0A 20 20 20 20 20 20 53 75 6D 20 3A 3D  d;..      Sum :=
000130: 20 30 2E 30 3B 20 20 20 20 20 20 20 20 20 20 20   0.0;           
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000150: 20 20 20 28 2A 20 53 75 6D 6D 65 20 66 75 65 72     (* Summe fuer
000160: 20 43 68 69 5E 32 20 6C 6F 65 73 63 68 65 6E 20   Chi^2 loeschen 
000170: 2A 29 0D 0A 20 20 20 20 20 20 4E 70 20 3A 3D 20  *)..      Np := 
000180: 5A 61 65 68 6C 65 72 2F 31 30 2E 30 3B 0D 0A 20  Zaehler/10.0;.. 
000190: 20 20 20 20 20 66 6F 72 20 49 6E 64 65 78 20 3A       for Index :
0001A0: 3D 20 30 20 74 6F 20 39 20 64 6F 20 62 65 67 69  = 0 to 9 do begi
0001B0: 6E 20 20 20 20 20 28 2A 20 66 75 65 72 20 6A 65  n     (* fuer je
0001C0: 64 65 73 20 6D 6F 65 67 6C 69 63 68 65 20 45 72  des moegliche Er
0001D0: 67 65 62 6E 69 73 73 20 2A 29 0D 0A 20 20 20 20  gebniss *)..    
0001E0: 20 20 20 20 57 72 69 74 65 28 45 72 67 65 62 6E      Write(Ergebn
0001F0: 69 73 73 5B 49 6E 64 65 78 5D 3A 35 29 3B 20 20  iss[Index]:5);  

Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 5A 75 66 61 6C 6C 73 7A  program Zufallsz
000010: 61 68 6C 65 6E 54 65 73 74 3B 0D 0A 28 2A 0D 0A  ahlenTest;..(*..
000020: 20 20 20 20 20 20 20 44 69 65 73 65 73 20 50 72         Dieses Pr
000030: 6F 67 72 61 6D 6D 20 74 65 73 74 65 74 20 64 69  ogramm testet di
000040: 65 20 52 61 6E 64 6F 6D 69 7A 65 20 20 50 72 6F  e Randomize  Pro
000050: 7A 65 64 75 72 2E 0D 0A 20 20 20 20 20 20 20 41  zedur...       A
000060: 75 61 65 72 64 65 6D 20 62 65 72 65 63 68 6E 65  uaerdem berechne
000070: 74 20 65 73 20 65 69 6E 65 6E 20 43 68 69 2D 51  t es einen Chi-Q
000080: 75 61 64 72 61 74 77 65 72 74 2C 20 61 6C 73 20  uadratwert, als 
000090: 54 65 73 74 20 64 65 72 0D 0A 20 20 20 20 20 20  Test der..      
0000A0: 20 5A 75 66 61 6C 6C 73 7A 61 68 6C 65 6E 20 73   Zufallszahlen s
0000B0: 65 6C 62 73 74 2E 20 43 68 69 2D 51 61 64 72 61  elbst. Chi-Qadra
0000C0: 74 77 65 72 74 65 20 7A 77 69 73 63 68 65 6E 20  twerte zwischen 
0000D0: 33 20 75 6E 64 20 31 36 20 73 69 6E 64 0D 0A 20  3 und 16 sind.. 
0000E0: 20 20 20 20 20 20 77 75 65 6E 73 63 68 65 6E 73        wuenschens
0000F0: 77 65 72 74 2C 20 57 65 72 74 65 20 6E 61 68 65  wert, Werte nahe
000100: 20 61 6E 20 38 2E 33 20 73 69 6E 64 20 6F 70 74   an 8.3 sind opt
000110: 69 6D 61 6C 2E 0D 0A 2A 29 0D 0A 76 61 72 0D 0A  imal...*)..var..
000120: 20 20 53 31 2C 53 32 2C 49 6E 64 65 78 2C 4A 6E    S1,S2,Index,Jn
000130: 64 65 78 2C 5A 61 65 68 6C 65 72 20 20 3A 20 49  dex,Zaehler  : I
000140: 6E 74 65 67 65 72 3B 0D 0A 20 20 53 75 6D 2C 54  nteger;..  Sum,T
000150: 2C 4E 50 20 20 20 20 20 20 20 20 20 20 20 20 20  ,NP             
000160: 20 20 20 20 20 20 3A 20 52 65 61 6C 3B 0D 0A 20        : Real;.. 
000170: 20 45 72 67 65 62 6E 69 73 73 20 20 20 20 20 20   Ergebniss      
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20                : 
000190: 61 72 72 61 79 5B 30 2E 2E 39 5D 20 6F 66 20 49  array[0..9] of I
0001A0: 6E 74 65 67 65 72 3B 0D 0A 0D 0A 70 72 6F 63 65  nteger;....proce
0001B0: 64 75 72 65 20 52 61 6E 64 6F 6D 69 7A 65 28 49  dure Randomize(I
0001C0: 2C 4A 3A 20 49 6E 74 65 67 65 72 29 3B 0D 0A 76  ,J: Integer);..v
0001D0: 61 72 0D 0A 20 20 52 53 65 74 20 20 20 20 3A 20  ar..  RSet    : 
0001E0: 72 65 63 6F 72 64 0D 0A 20 20 20 20 20 20 20 20  record..        
0001F0: 20 20 20 20 20 20 41 58 2C 42 58 2C 43 58 2C 44        AX,BX,CX,D

Size : 512 (Real : 512)
000000: 20 20 20 28 2A 20 73 63 68 72 65 69 62 65 20 47     (* schreibe G
000010: 65 73 61 6D 74 73 75 6D 6D 65 20 64 65 72 20 57  esamtsumme der W
000020: 65 72 74 65 20 2A 29 0D 0A 20 20 20 20 20 20 20  erte *)..       
000030: 20 53 75 6D 20 3A 3D 20 53 75 6D 20 2B 20 53 71   Sum := Sum + Sq
000040: 72 28 45 72 67 65 62 6E 69 73 73 5B 49 6E 64 65  r(Ergebniss[Inde
000050: 78 5D 2D 4E 50 29 2F 4E 50 20 28 2A 20 75 6E 64  x]-NP)/NP (* und
000060: 20 62 65 72 65 63 68 6E 65 20 43 68 69 5E 32 20   berechne Chi^2 
000070: 2A 29 0D 0A 20 20 20 20 20 20 65 6E 64 3B 0D 0A  *)..      end;..
000080: 20 20 20 20 20 20 57 72 69 74 65 4C 6E 3B 0D 0A        WriteLn;..
000090: 20 20 20 20 20 20 57 72 69 74 65 4C 6E 28 27 43        WriteLn('C
0000A0: 68 69 2D 51 75 61 64 72 61 74 20 28 39 20 46 72  hi-Quadrat (9 Fr
0000B0: 65 69 68 65 69 74 73 67 72 61 64 65 29 20 3D 20  eiheitsgrade) = 
0000C0: 27 2C 53 75 6D 3A 38 3A 33 29 0D 0A 20 20 20 20  ',Sum:8:3)..    
0000D0: 65 6E 64 0D 0A 20 20 75 6E 74 69 6C 20 5A 61 65  end..  until Zae
0000E0: 68 6C 65 72 20 3C 3D 20 30 0D 0A 65 6E 64 2E 20  hler <= 0..end. 
0000F0: 28 2A 20 64 65 73 20 50 72 6F 67 72 61 6D 6D 73  (* des Programms
000100: 20 5A 75 66 61 6C 6C 20 2A 29 0D 0A 0D 0A 0D 0A   Zufall *)......
000110: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000120: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000130: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000140: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000150: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000160: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000170: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000180: 5A 61 65 68 6C 65 72 2F 31 30 2E 30 3B 0D 0A 20  Zaehler/10.0;.. 
000190: 20 20 20 20 20 66 6F 72 20 49 6E 64 65 78 20 3A       for Index :
0001A0: 3D 20 30 20 74 6F 20 39 20 64 6F 20 62 65 67 69  = 0 to 9 do begi
0001B0: 6E 20 20 20 20 20 28 2A 20 66 75 65 72 20 6A 65  n     (* fuer je
0001C0: 64 65 73 20 6D 6F 65 67 6C 69 63 68 65 20 45 72  des moegliche Er
0001D0: 67 65 62 6E 69 73 73 20 2A 29 0D 0A 20 20 20 20  gebniss *)..    
0001E0: 20 20 20 20 57 72 69 74 65 28 45 72 67 65 62 6E      Write(Ergebn
0001F0: 69 73 73 5B 49 6E 64 65 78 5D 3A 35 29 3B 20 20  iss[Index]:5);  

Size : 512 (Real : 512)
000000: 58 2C 42 50 2C 53 49 2C 44 49 2C 44 53 2C 45 53  X,BP,SI,DI,DS,ES
000010: 2C 46 6C 61 67 73 3A 20 49 6E 74 65 67 65 72 3B  ,Flags: Integer;
000020: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 65 6E  ..            en
000030: 64 3B 0D 0A 20 20 43 68 20 20 20 20 20 20 3A 20  d;..  Ch      : 
000040: 43 68 61 72 3B 0D 0A 0D 0A 62 65 67 69 6E 0D 0A  Char;....begin..
000050: 20 20 69 66 20 28 49 3D 30 29 20 61 6E 64 20 28    if (I=0) and (
000060: 4A 3D 30 29 20 74 68 65 6E 20 62 65 67 69 6E 20  J=0) then begin 
000070: 20 20 28 2A 20 42 65 73 74 69 6D 6D 65 20 65 69    (* Bestimme ei
000080: 6E 65 20 62 65 6C 69 65 62 69 67 65 20 5A 75 66  ne beliebige Zuf
000090: 61 6C 6C 73 7A 61 68 6C 20 2A 29 0D 0A 20 20 20  allszahl *)..   
0000A0: 20 52 53 65 74 2E 41 58 3A 3D 24 32 43 30 30 3B   RSet.AX:=$2C00;
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28                 (
0000C0: 2A 20 44 4F 53 20 5A 65 69 74 20 64 65 73 20 46  * DOS Zeit des F
0000D0: 75 6E 6B 74 69 6F 6E 73 74 61 67 65 73 20 2A 29  unktionstages *)
0000E0: 0D 0A 20 20 20 20 4D 53 44 6F 73 28 52 53 65 74  ..    MSDos(RSet
0000F0: 29 3B 0D 0A 20 20 20 20 49 3A 3D 52 53 65 74 2E  );..    I:=RSet.
000100: 43 58 3B 20 20 20 20 20 20 20 20 20 20 20 20 20  CX;             
000110: 20 20 20 20 20 20 28 2A 20 53 65 74 7A 65 20 49        (* Setze I
000120: 20 75 6E 64 20 4A 20 61 75 66 20 53 79 73 74 65   und J auf Syste
000130: 6D 7A 65 69 74 20 2A 29 0D 0A 20 20 20 20 4A 3A  mzeit *)..    J:
000140: 3D 52 53 65 74 2E 44 58 3B 0D 0A 20 20 20 20 44  =RSet.DX;..    D
000150: 65 6C 61 79 28 31 30 30 29 3B 20 20 20 20 20 20  elay(100);      
000160: 20 20 20 28 2A 20 44 69 65 73 65 20 56 65 72 7A     (* Diese Verz
000170: 6F 65 67 65 72 75 6E 67 20 6B 61 6E 6E 20 66 75  oegerung kann fu
000180: 65 72 20 73 63 68 6E 65 6C 6C 65 72 65 20 53 79  er schnellere Sy
000190: 73 74 65 6D 65 0D 0A 20 20 20 20 20 20 20 20 20  steme..         
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001B0: 20 20 67 65 73 74 65 69 67 65 72 74 20 77 65 72    gesteigert wer
0001C0: 64 65 6E 20 2A 29 0D 0A 20 20 20 20 4D 53 44 6F  den *)..    MSDo
0001D0: 73 28 52 53 65 74 29 3B 0D 0A 20 20 20 20 69 66  s(RSet);..    if
0001E0: 20 28 49 3D 52 53 65 74 2E 43 58 29 20 61 6E 64   (I=RSet.CX) and
0001F0: 20 28 4A 3D 52 53 65 74 2E 44 58 29 20 74 68 65   (J=RSet.DX) the

Size : 512 (Real : 512)
000000: 0D 0A 70 72 6F 67 72 61 6D 20 54 65 73 74 43 68  ..program TestCh
000010: 61 6E 67 65 44 69 72 65 63 74 6F 72 79 3B 0D 0A  angeDirectory;..
000020: 7B 0D 0A 20 20 20 20 20 20 20 45 72 6C 61 75 62  {..       Erlaub
000030: 74 20 49 68 6E 65 6E 20 64 61 73 20 61 6B 74 75  t Ihnen das aktu
000040: 65 6C 6C 65 20 49 6E 68 61 6C 74 73 76 65 72 7A  elle Inhaltsverz
000050: 65 69 63 68 6E 69 73 73 20 7A 75 20 77 65 63 68  eichniss zu wech
000060: 73 65 6C 6E 2E 0D 0A 20 20 20 20 20 20 20 53 69  seln...       Si
000070: 65 20 6B 6F 65 6E 6E 65 6E 20 64 61 73 20 49 6E  e koennen das In
000080: 68 61 6C 74 73 76 65 72 7A 65 69 63 68 6E 69 73  haltsverzeichnis
000090: 20 69 6E 20 64 65 72 20 43 6F 6D 6D 61 6E 64 6C   in der Commandl
0000A0: 69 6E 65 0D 0A 20 20 20 20 20 20 20 61 6E 67 65  ine..       ange
0000B0: 62 65 6E 2C 20 61 6E 73 6F 6E 73 74 65 6E 20 66  ben, ansonsten f
0000C0: 72 61 67 74 20 64 61 73 20 50 72 6F 67 72 61 6D  ragt das Program
0000D0: 6D 20 64 61 6E 61 63 68 2E 0D 0A 7D 0D 0A 0D 0A  m danach...}....
0000E0: 74 79 70 65 0D 0A 20 20 49 6E 74 20 20 20 20 20  type..  Int     
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3D 20 2D               = -
000100: 33 32 37 36 37 2E 2E 33 32 37 36 37 3B 0D 0A 20  32767..32767;.. 
000110: 20 53 74 72 69 6E 67 38 30 20 20 20 20 20 20 20   String80       
000120: 20 20 20 20 20 20 3D 20 73 74 72 69 6E 67 5B 20        = string[ 
000130: 38 30 20 5D 3B 0D 0A 20 20 52 65 67 52 65 63 20  80 ];..  RegRec 
000140: 3D 0D 0A 20 20 20 20 72 65 63 6F 72 64 0D 0A 20  =..    record.. 
000150: 20 20 20 20 20 41 58 2C 42 58 2C 43 58 2C 44 58       AX,BX,CX,DX
000160: 2C 42 50 2C 53 49 2C 44 49 2C 44 53 2C 45 53 2C  ,BP,SI,DI,DS,ES,
000170: 46 6C 61 67 73 20 3A 20 49 6E 74 65 67 65 72 3B  Flags : Integer;
000180: 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 0D 0A 76 61  ..    end;....va
000190: 72 0D 0A 20 20 45 72 72 6F 72 20 20 20 20 20 20  r..  Error      
0001A0: 20 20 20 20 20 20 20 20 20 20 3A 20 49 6E 74 3B            : Int;
0001B0: 0D 0A 20 20 42 75 66 66 65 72 20 20 20 20 20 20  ..  Buffer      
0001C0: 20 20 20 20 20 20 20 20 20 3A 20 73 74 72 69 6E           : strin
0001D0: 67 38 30 3B 0D 0A 20 20 43 6F 6D 6D 61 6E 64 20  g80;..  Command 
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 73               : s
0001F0: 74 72 69 6E 67 38 30 20 61 62 73 6F 6C 75 74 65  tring80 absolute

Size : 512 (Real : 512)
000000: 6E 20 62 65 67 69 6E 20 28 2A 20 55 68 72 20 6C  n begin (* Uhr l
000010: 61 65 75 66 74 20 6E 69 63 68 74 20 2A 29 0D 0A  aeuft nicht *)..
000020: 20 20 20 20 20 20 49 20 3A 3D 20 30 3B 0D 0A 20        I := 0;.. 
000030: 20 20 20 20 20 4A 20 3A 3D 20 30 3B 0D 0A 20 20       J := 0;..  
000040: 20 20 20 20 77 68 69 6C 65 20 4B 65 79 50 72 65      while KeyPre
000050: 73 73 65 64 20 64 6F 0D 0A 20 20 20 20 20 20 20  ssed do..       
000060: 20 52 65 61 64 28 4B 62 64 2C 43 68 29 3B 20 20   Read(Kbd,Ch);  
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000080: 28 2A 20 4C 6F 65 73 63 68 65 20 54 65 72 6D 69  (* Loesche Termi
000090: 6E 61 6C 70 75 66 66 65 72 20 2A 29 0D 0A 20 20  nalpuffer *)..  
0000A0: 20 20 20 20 57 72 69 74 65 28 27 44 72 75 65 63      Write('Druec
0000B0: 6B 65 20 65 69 6E 65 20 54 61 73 74 65 2C 20 75  ke eine Taste, u
0000C0: 6D 20 64 65 6E 20 5A 75 66 61 6C 6C 73 7A 61 68  m den Zufallszah
0000D0: 6C 65 6E 67 65 6E 65 72 61 74 6F 72 20 7A 75 20  lengenerator zu 
0000E0: 73 74 61 72 74 65 6E 27 29 3B 0D 0A 20 20 20 20  starten');..    
0000F0: 20 20 72 65 70 65 61 74 0D 0A 20 20 20 20 20 20    repeat..      
000100: 20 20 49 20 3A 3D 20 49 2B 31 33 3B 0D 0A 20 20    I := I+13;..  
000110: 20 20 20 20 20 20 4A 20 3A 3D 20 4A 2B 31 37 0D        J := J+17.
000120: 0A 20 20 20 20 20 20 75 6E 74 69 6C 20 4B 65 79  .      until Key
000130: 70 72 65 73 73 65 64 3B 0D 0A 20 20 20 20 20 20  pressed;..      
000140: 52 65 61 64 28 4B 62 64 2C 43 68 29 3B 20 20 20  Read(Kbd,Ch);   
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000160: 20 28 2A 20 5A 65 69 63 68 65 6E 20 6C 65 73 65   (* Zeichen lese
000170: 6E 20 2A 29 0D 0A 20 20 20 20 20 20 57 72 69 74  n *)..      Writ
000180: 65 4C 6E 0D 0A 20 20 20 20 65 6E 64 0D 0A 20 20  eLn..    end..  
000190: 65 6E 64 3B 0D 0A 20 20 4D 65 6D 57 5B 44 53 65  end;..  MemW[DSe
0001A0: 67 3A 24 31 32 39 5D 3A 3D 49 3B 20 20 20 20 28  g:$129]:=I;    (
0001B0: 2A 20 44 61 73 20 69 73 74 20 64 65 72 20 4B 65  * Das ist der Ke
0001C0: 72 6E 20 64 65 72 20 52 6F 75 74 69 6E 65 3A 20  rn der Routine: 
0001D0: 73 70 65 69 63 68 65 72 6E 20 65 69 6E 65 73 20  speichern eines 
0001E0: 2A 29 0D 0A 20 20 4D 65 6D 57 5B 44 53 65 67 3A  *)..  MemW[DSeg:
0001F0: 24 31 32 42 5D 3A 3D 4A 3B 20 20 20 20 28 2A 20  $12B]:=J;    (* 

Size : 512 (Real : 512)
000000: 20 63 73 65 67 20 3A 20 24 38 30 3B 0D 0A 0D 0A   cseg : $80;....
000010: 70 72 6F 63 65 64 75 72 65 20 43 68 61 6E 67 65  procedure Change
000020: 44 69 72 28 53 65 67 6D 65 6E 74 2C 20 4F 66 66  Dir(Segment, Off
000030: 73 65 74 20 3A 20 49 6E 74 65 67 65 72 3B 0D 0A  set : Integer;..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000050: 20 20 20 20 76 61 72 20 45 72 72 6F 72 20 3A 20      var Error : 
000060: 49 6E 74 20 29 3B 0D 0A 76 61 72 0D 0A 20 52 65  Int );..var.. Re
000070: 67 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20  gs              
000080: 20 20 20 20 3A 20 52 65 67 52 65 63 3B 0D 0A 62      : RegRec;..b
000090: 65 67 69 6E 0D 0A 20 20 52 65 67 73 2E 44 53 20  egin..  Regs.DS 
0000A0: 3A 3D 20 73 65 67 6D 65 6E 74 3B 0D 0A 20 20 52  := segment;..  R
0000B0: 65 67 73 2E 44 58 20 3A 3D 20 6F 66 66 73 65 74  egs.DX := offset
0000C0: 3B 0D 0A 20 20 52 65 67 73 2E 41 58 3A 3D 20 24  ;..  Regs.AX:= $
0000D0: 33 42 30 30 3B 0D 0A 20 20 4D 53 44 6F 73 28 20  3B00;..  MSDos( 
0000E0: 52 65 67 73 20 29 3B 0D 0A 20 20 45 72 72 6F 72  Regs );..  Error
0000F0: 20 3A 3D 20 52 65 67 73 2E 41 58 20 61 6E 64 20   := Regs.AX and 
000100: 24 46 46 3B 0D 0A 65 6E 64 3B 20 7B 20 64 65 72  $FF;..end; { der
000110: 20 50 72 6F 7A 65 64 75 72 20 43 68 61 6E 67 65   Prozedur Change
000120: 44 69 72 20 7D 0D 0A 0D 0A 7B 20 20 20 20 48 61  Dir }....{    Ha
000130: 75 70 74 70 72 6F 67 72 61 6D 6D 20 76 6F 6E 20  uptprogramm von 
000140: 54 65 73 74 43 68 61 6E 67 65 44 69 72 20 20 20  TestChangeDir   
000150: 7D 0D 0A 62 65 67 69 6E 0D 0A 20 20 69 66 20 28  }..begin..  if (
000160: 20 4C 65 6E 67 74 68 28 20 43 6F 6D 6D 61 6E 64   Length( Command
000170: 20 29 20 3C 3D 20 30 20 29 20 74 68 65 6E 20 62   ) <= 0 ) then b
000180: 65 67 69 6E 0D 0A 20 20 20 20 47 6F 74 6F 58 59  egin..    GotoXY
000190: 28 20 31 30 2C 20 31 30 20 29 3B 0D 0A 20 20 20  ( 10, 10 );..   
0001A0: 20 57 72 69 74 65 28 20 27 57 65 6C 63 68 65 73   Write( 'Welches
0001B0: 20 49 6E 68 61 6C 74 73 76 65 72 7A 65 69 63 68   Inhaltsverzeich
0001C0: 6E 69 73 20 3A 20 27 20 29 3B 0D 0A 20 20 20 20  nis : ' );..    
0001D0: 52 65 61 64 4C 6E 28 20 42 75 66 66 65 72 20 29  ReadLn( Buffer )
0001E0: 3B 0D 0A 20 20 65 6E 64 0D 0A 20 20 65 6C 73 65  ;..  end..  else
0001F0: 20 42 75 66 66 65 72 20 3A 3D 20 43 6F 6D 6D 61   Buffer := Comma

Size : 512 (Real : 512)
000000: 33 32 20 42 69 74 20 57 65 72 74 65 73 20 69 6E  32 Bit Wertes in
000010: 20 44 53 65 67 3A 24 30 31 32 39 2E 2E 2E 44 53   DSeg:$0129...DS
000020: 65 67 3A 24 30 31 32 43 20 2A 29 0D 0A 65 6E 64  eg:$012C *)..end
000030: 3B 20 28 2A 20 64 65 72 20 50 72 6F 7A 65 64 75  ; (* der Prozedu
000040: 72 20 52 61 6E 64 6F 6D 69 7A 65 20 2A 29 0D 0A  r Randomize *)..
000050: 0D 0A 62 65 67 69 6E 20 20 28 2A 20 42 65 67 69  ..begin  (* Begi
000060: 6E 6E 20 64 65 73 20 48 61 75 70 74 70 72 6F 67  nn des Hauptprog
000070: 72 61 6D 6D 65 73 20 2A 29 0D 0A 20 20 57 72 69  rammes *)..  Wri
000080: 74 65 6C 6E 28 27 42 69 74 74 65 20 5A 61 65 68  teln('Bitte Zaeh
000090: 6C 65 72 20 65 69 6E 67 65 62 65 6E 20 3C 3D 20  ler eingeben <= 
0000A0: 30 20 66 75 65 72 20 50 72 6F 67 72 61 6D 6D 65  0 fuer Programme
0000B0: 6E 64 65 20 27 29 3B 0D 0A 20 20 72 65 70 65 61  nde ');..  repea
0000C0: 74 0D 0A 20 20 20 20 57 72 69 74 65 28 27 20 5A  t..    Write(' Z
0000D0: 61 65 68 6C 65 72 20 3A 20 20 20 20 20 20 20 20  aehler :        
0000E0: 20 20 27 29 3B 20 20 20 20 20 20 20 20 20 20 20    ');           
0000F0: 28 2A 20 41 6E 7A 61 68 6C 20 64 65 72 20 4D 75  (* Anzahl der Mu
000100: 73 74 65 72 20 2A 29 0D 0A 20 20 20 20 52 65 61  ster *)..    Rea
000110: 64 4C 6E 28 5A 61 65 68 6C 65 72 29 3B 0D 0A 20  dLn(Zaehler);.. 
000120: 20 20 20 69 66 20 5A 61 65 68 6C 65 72 20 3E 20     if Zaehler > 
000130: 30 20 74 68 65 6E 20 62 65 67 69 6E 20 20 20 20  0 then begin    
000140: 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 53              (* S
000150: 74 61 72 74 65 20 54 65 73 74 20 2A 29 0D 0A 20  tarte Test *).. 
000160: 20 20 20 20 20 57 72 69 74 65 28 27 5A 77 65 69       Write('Zwei
000170: 20 53 74 61 72 74 77 65 72 74 65 20 28 53 31 20   Startwerte (S1 
000180: 53 32 29 3A 20 20 27 29 3B 20 20 20 28 2A 20 45  S2):  ');   (* E
000190: 69 6E 6C 65 73 65 6E 20 76 6F 6E 20 32 20 49 6E  inlesen von 2 In
0001A0: 74 65 67 65 72 6E 20 2A 29 0D 0A 20 20 20 20 20  tegern *)..     
0001B0: 20 52 65 61 64 4C 6E 28 53 31 2C 53 32 29 3B 0D   ReadLn(S1,S2);.
0001C0: 0A 20 20 20 20 20 20 52 61 6E 64 6F 6D 69 7A 65  .      Randomize
0001D0: 28 53 31 2C 53 32 29 3B 20 20 20 20 20 20 20 20  (S1,S2);        
0001E0: 20 28 2A 20 5A 75 66 61 6C 6C 73 7A 61 68 6C 65   (* Zufallszahle
0001F0: 6E 67 65 6E 65 72 61 74 6F 72 20 69 6E 69 74 69  ngenerator initi

Size : 512 (Real : 512)
000000: 6E 64 3B 0D 0A 20 20 69 66 20 28 20 4C 65 6E 67  nd;..  if ( Leng
000010: 74 68 28 20 42 75 66 66 65 72 20 29 20 3C 20 38  th( Buffer ) < 8
000020: 30 20 29 0D 0A 20 20 20 20 74 68 65 6E 20 42 75  0 )..    then Bu
000030: 66 66 65 72 5B 20 4C 65 6E 67 74 68 28 20 42 75  ffer[ Length( Bu
000040: 66 66 65 72 20 29 20 2B 20 31 20 5D 20 3A 3D 20  ffer ) + 1 ] := 
000050: 43 68 72 28 20 30 20 29 0D 0A 20 20 20 20 65 6C  Chr( 0 )..    el
000060: 73 65 20 42 75 66 66 65 72 5B 20 38 30 20 5D 20  se Buffer[ 80 ] 
000070: 3A 3D 20 43 68 72 28 20 30 20 29 3B 0D 0A 20 20  := Chr( 0 );..  
000080: 43 68 61 6E 67 65 44 69 72 28 20 44 73 65 67 2C  ChangeDir( Dseg,
000090: 20 4F 66 73 28 20 42 75 66 66 65 72 20 29 20 2B   Ofs( Buffer ) +
0000A0: 20 31 2C 20 45 72 72 6F 72 20 29 3B 0D 0A 20 20   1, Error );..  
0000B0: 69 66 20 28 20 45 72 72 6F 72 20 3C 3E 20 30 20  if ( Error <> 0 
0000C0: 29 0D 0A 20 20 20 20 74 68 65 6E 20 57 72 69 74  )..    then Writ
0000D0: 65 4C 6E 28 20 27 49 6E 68 61 6C 74 73 76 65 72  eLn( 'Inhaltsver
0000E0: 7A 65 69 63 68 6E 69 73 20 6E 69 63 68 74 20 67  zeichnis nicht g
0000F0: 65 66 75 6E 64 65 6E 2E 27 20 29 3B 0D 0A 65 6E  efunden.' );..en
000100: 64 2E 20 7B 20 64 65 73 20 50 72 6F 67 72 61 6D  d. { des Program
000110: 6D 73 20 54 65 73 74 43 68 61 6E 67 65 44 69 72  ms TestChangeDir
000120: 20 7D 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A   }..............
000130: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000140: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000150: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000160: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000170: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000180: 65 67 69 6E 0D 0A 20 20 20 20 47 6F 74 6F 58 59  egin..    GotoXY
000190: 28 20 31 30 2C 20 31 30 20 29 3B 0D 0A 20 20 20  ( 10, 10 );..   
0001A0: 20 57 72 69 74 65 28 20 27 57 65 6C 63 68 65 73   Write( 'Welches
0001B0: 20 49 6E 68 61 6C 74 73 76 65 72 7A 65 69 63 68   Inhaltsverzeich
0001C0: 6E 69 73 20 3A 20 27 20 29 3B 0D 0A 20 20 20 20  nis : ' );..    
0001D0: 52 65 61 64 4C 6E 28 20 42 75 66 66 65 72 20 29  ReadLn( Buffer )
0001E0: 3B 0D 0A 20 20 65 6E 64 0D 0A 20 20 65 6C 73 65  ;..  end..  else
0001F0: 20 42 75 66 66 65 72 20 3A 3D 20 43 6F 6D 6D 61   Buffer := Comma

Size : 512 (Real : 512)
000000: 20 42 69 74 20 37 20 20 28 31 32 38 29 20 20 20   Bit 7  (128)   
000010: 20 20 20 20 52 65 63 65 69 76 65 64 20 6C 69 6E      Received lin
000020: 65 20 73 69 67 6E 61 6C 20 64 65 74 65 63 74 0D  e signal detect.
000030: 0A 20 20 20 20 20 42 69 74 20 36 20 20 28 36 34  .     Bit 6  (64
000040: 29 20 20 20 20 20 20 20 20 52 69 6E 67 20 69 6E  )        Ring in
000050: 64 69 63 61 74 6F 72 0D 0A 20 20 20 20 20 42 69  dicator..     Bi
000060: 74 20 35 20 20 28 33 32 29 20 20 20 20 20 20 20  t 5  (32)       
000070: 20 44 61 74 61 20 73 65 74 20 72 65 61 64 79 0D   Data set ready.
000080: 0A 20 20 20 20 20 42 69 74 20 34 20 20 28 31 36  .     Bit 4  (16
000090: 29 20 20 20 20 20 20 20 20 43 6C 65 61 72 20 74  )        Clear t
0000A0: 6F 20 73 65 6E 64 0D 0A 20 20 20 20 20 42 69 74  o send..     Bit
0000B0: 20 33 20 20 28 38 29 20 20 20 20 20 20 20 20 20   3  (8)         
0000C0: 44 65 6C 74 61 20 72 65 63 65 69 76 65 20 6C 69  Delta receive li
0000D0: 6E 65 20 73 69 67 6E 61 6C 20 64 65 74 65 63 74  ne signal detect
0000E0: 0D 0A 20 20 20 20 20 42 69 74 20 32 20 20 28 34  ..     Bit 2  (4
0000F0: 29 20 20 20 20 20 20 20 20 20 54 72 61 69 6C 69  )         Traili
000100: 6E 67 20 65 64 67 65 20 72 69 6E 67 20 64 65 74  ng edge ring det
000110: 65 63 74 6F 72 0D 0A 20 20 20 20 20 42 69 74 20  ector..     Bit 
000120: 31 20 20 28 32 29 20 20 20 20 20 20 20 20 20 44  1  (2)         D
000130: 65 6C 74 61 20 64 61 74 61 20 73 65 74 20 72 65  elta data set re
000140: 61 64 79 0D 0A 20 20 20 20 20 42 69 74 20 30 20  ady..     Bit 0 
000150: 20 28 31 29 20 20 20 20 20 20 20 20 20 44 65 6C   (1)         Del
000160: 74 61 20 63 6C 65 61 72 20 74 6F 20 73 65 6E 64  ta clear to send
000170: 0D 0A 0D 0A 20 20 42 65 7A 65 69 63 68 6E 65 72  ....  Bezeichner
000180: 20 64 69 65 20 6D 69 74 20 20 22 5F 5F 22 20 62   die mit  "__" b
000190: 65 67 69 6E 6E 65 6E 20 73 6F 6C 6C 74 65 6E 20  eginnen sollten 
0001A0: 76 6F 6E 20 49 68 72 65 6D 20 50 72 6F 67 72 61  von Ihrem Progra
0001B0: 6D 6D 20 62 65 6E 75 74 7A 74 20 77 65 72 64 65  mm benutzt werde
0001C0: 6E 2E 0D 0A 2A 29 0D 0A 0D 0A 20 20 54 79 70 65  n...*)....  Type
0001D0: 0D 0A 20 20 20 20 5F 5F 52 65 67 69 73 74 65 72  ..    __Register
0001E0: 53 65 74 3D 52 65 63 6F 72 64 20 63 61 73 65 20  Set=Record case 
0001F0: 49 6E 74 65 67 65 72 20 6F 66 0D 0A 20 20 20 20  Integer of..    

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

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 3A                1:
000010: 20 28 41 58 2C 42 58 2C 43 58 2C 44 58 2C 42 50   (AX,BX,CX,DX,BP
000020: 2C 44 49 2C 53 45 2C 44 53 2C 45 53 2C 46 6C 61  ,DI,SE,DS,ES,Fla
000030: 67 73 3A 20 49 6E 74 65 67 65 72 29 3B 0D 0A 20  gs: Integer);.. 
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000050: 20 32 3A 20 28 41 4C 2C 41 48 2C 42 4C 2C 42 48   2: (AL,AH,BL,BH
000060: 2C 43 4C 2C 43 48 2C 44 4C 2C 44 48 3A 20 42 79  ,CL,CH,DL,DH: By
000070: 74 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  te);..          
000080: 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20        end;..    
000090: 5F 5F 50 61 72 69 74 79 54 79 70 65 3D 28 4E 6F  __ParityType=(No
0000A0: 6E 65 2C 45 76 65 6E 2C 4F 64 64 29 3B 0D 0A 0D  ne,Even,Odd);...
0000B0: 0A 20 20 76 61 72 0D 0A 20 20 20 20 5F 5F 52 65  .  var..    __Re
0000C0: 67 73 3A 20 5F 5F 52 65 67 69 73 74 65 72 53 65  gs: __RegisterSe
0000D0: 74 3B 0D 0A 20 20 20 20 49 6E 45 72 72 6F 72 2C  t;..    InError,
0000E0: 4F 75 74 45 72 72 6F 72 3A 20 41 72 72 61 79 20  OutError: Array 
0000F0: 5B 31 2E 2E 32 5D 20 6F 66 20 42 79 74 65 3B 0D  [1..2] of Byte;.
000100: 0A 0D 0A 20 20 70 72 6F 63 65 64 75 72 65 20 5F  ...  procedure _
000110: 5F 49 6E 74 31 34 28 50 6F 72 74 4E 75 6D 6D 65  _Int14(PortNumme
000120: 72 2C 43 6F 6D 6D 61 6E 64 2C 50 61 72 61 6D 65  r,Command,Parame
000130: 74 65 72 3A 20 49 6E 74 65 67 65 72 29 3B 0D 0A  ter: Integer);..
000140: 20 20 28 2A 20 64 6F 20 61 20 42 49 4F 53 20 43    (* do a BIOS C
000150: 4F 4D 20 64 72 69 76 65 72 20 69 6E 74 65 72 72  OM driver interr
000160: 75 70 74 20 2A 29 0D 0A 0D 0A 20 20 20 20 62 65  upt *)....    be
000170: 67 69 6E 0D 0A 20 20 20 20 20 20 77 69 74 68 20  gin..      with 
000180: 5F 5F 52 65 67 73 20 64 6F 0D 0A 20 20 20 20 20  __Regs do..     
000190: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20    begin..       
0001A0: 20 44 58 3A 3D 50 6F 72 74 4E 75 6D 6D 65 72 2D   DX:=PortNummer-
0001B0: 31 3B 0D 0A 20 20 20 20 20 20 20 20 41 48 3A 3D  1;..        AH:=
0001C0: 43 6F 6D 6D 61 6E 64 3B 0D 0A 20 20 20 20 20 20  Command;..      
0001D0: 20 20 41 4C 3A 3D 50 61 72 61 6D 65 74 65 72 3B    AL:=Parameter;
0001E0: 0D 0A 20 20 20 20 20 20 20 20 46 6C 61 67 73 3A  ..        Flags:
0001F0: 3D 30 3B 0D 0A 20 20 20 20 20 20 20 20 49 6E 74  =0;..        Int

Size : 512 (Real : 512)
000000: 0D 0A 28 2A 24 55 2B 2A 29 0D 0A 0D 0A 20 20 76  ..(*$U+*)....  v
000010: 61 72 0D 0A 20 20 20 20 50 6F 72 74 2C 42 61 75  ar..    Port,Bau
000020: 64 2C 53 74 6F 70 42 69 74 73 2C 44 61 74 61 42  d,StopBits,DataB
000030: 69 74 73 2C 50 61 72 3A 20 49 6E 74 65 67 65 72  its,Par: Integer
000040: 3B 0D 0A 20 20 20 20 4D 65 73 73 61 67 65 3A 20  ;..    Message: 
000050: 53 74 72 69 6E 67 5B 38 30 5D 3B 0D 0A 0D 0A 20  String[80];.... 
000060: 20 74 79 70 65 0D 0A 20 20 20 20 53 74 72 69 6E   type..    Strin
000070: 67 31 39 3D 53 74 72 69 6E 67 5B 31 39 5D 3B 0D  g19=String[19];.
000080: 0A 0D 0A 0D 0A 28 2A 20 45 69 6E 69 67 65 20 52  .....(* Einige R
000090: 6F 75 74 69 6E 65 6E 20 75 6D 20 43 4F 4D 31 20  outinen um COM1 
0000A0: 75 6E 64 20 43 4F 4D 32 20 76 6F 6E 20 54 75 72  und COM2 von Tur
0000B0: 62 6F 20 50 61 73 63 61 6C 20 61 75 73 20 61 6E  bo Pascal aus an
0000C0: 7A 75 73 70 72 65 63 68 65 6E 2E 0D 0A 20 20 20  zusprechen...   
0000D0: 44 69 65 20 66 6F 6C 67 65 6E 64 65 6E 20 50 72  Die folgenden Pr
0000E0: 6F 7A 65 64 75 72 65 6E 20 6B 6F 65 6E 6E 65 6E  ozeduren koennen
0000F0: 20 76 6F 6E 20 49 68 72 65 6E 20 50 72 6F 67 72   von Ihren Progr
000100: 61 6D 6D 65 6E 20 62 65 6E 75 74 7A 74 20 77 65  ammen benutzt we
000110: 72 64 65 6E 3A 0D 0A 0D 0A 20 20 41 73 73 69 67  rden:....  Assig
000120: 6E 41 75 78 28 50 6F 72 74 4E 75 6D 6D 65 72 20  nAux(PortNummer 
000130: 69 6E 20 5B 31 2C 32 5D 29 20 6C 65 67 74 20 41  in [1,2]) legt A
000140: 75 78 20 61 75 66 20 43 4F 4D 31 20 6F 64 65 72  ux auf COM1 oder
000150: 20 43 4F 4D 32 0D 0A 20 20 41 73 73 69 67 6E 55   COM2..  AssignU
000160: 73 72 28 50 6F 72 74 4E 75 6D 6D 65 72 20 69 6E  sr(PortNummer in
000170: 20 5B 31 2C 32 5D 29 20 6C 65 67 74 20 55 73 72   [1,2]) legt Usr
000180: 20 61 75 66 20 43 4F 4D 31 20 6F 64 65 72 20 43   auf COM1 oder C
000190: 4F 4D 32 0D 0A 20 20 53 65 74 53 65 72 69 65 6C  OM2..  SetSeriel
0001A0: 6C 28 50 6F 72 74 4E 75 6D 6D 65 72 20 69 6E 20  l(PortNummer in 
0001B0: 5B 31 2C 32 5D 2C 0D 0A 20 20 20 20 20 20 20 20  [1,2],..        
0001C0: 20 20 20 20 42 61 75 64 52 61 74 65 20 69 6E 20      BaudRate in 
0001D0: 5B 31 31 30 2C 31 35 30 2C 33 30 30 2C 36 30 30  [110,150,300,600
0001E0: 2C 31 32 30 30 2C 32 34 30 30 2C 34 38 30 30 2C  ,1200,2400,4800,
0001F0: 39 36 30 30 5D 2C 0D 0A 20 20 20 20 20 20 20 20  9600],..        

Size : 512 (Real : 512)
000000: 72 28 24 31 34 2C 5F 5F 52 65 67 73 29 3B 0D 0A  r($14,__Regs);..
000010: 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20         end;..   
000020: 20 65 6E 64 3B 0D 0A 0D 0A 0D 0A 20 20 70 72 6F   end;......  pro
000030: 63 65 64 75 72 65 20 53 65 74 53 65 72 69 65 6C  cedure SetSeriel
000040: 6C 28 50 6F 72 74 4E 75 6D 6D 65 72 2C 42 61 75  l(PortNummer,Bau
000050: 64 52 61 74 65 2C 53 74 6F 70 42 69 74 73 2C 44  dRate,StopBits,D
000060: 61 74 61 42 69 74 73 3A 20 49 6E 74 65 67 65 72  ataBits: Integer
000070: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  ;..             
000080: 20 20 20 20 20 20 20 20 20 50 61 72 69 74 79 3A           Parity:
000090: 20 5F 5F 50 61 72 69 74 79 54 79 70 65 29 3B 0D   __ParityType);.
0000A0: 0A 20 20 28 2A 20 53 65 74 20 53 65 72 69 65 6C  .  (* Set Seriel
0000B0: 6C 20 70 61 72 61 6D 65 74 65 72 73 20 6F 6E 20  l parameters on 
0000C0: 61 20 43 4F 4D 20 70 6F 72 74 20 2A 29 0D 0A 0D  a COM port *)...
0000D0: 0A 20 20 20 20 76 61 72 0D 0A 20 20 20 20 20 20  .    var..      
0000E0: 50 61 72 61 6D 65 74 65 72 3A 20 49 6E 74 65 67  Parameter: Integ
0000F0: 65 72 3B 0D 0A 0D 0A 20 20 20 20 62 65 67 69 6E  er;....    begin
000100: 0D 0A 20 20 20 20 20 20 63 61 73 65 20 42 61 75  ..      case Bau
000110: 64 52 61 74 65 20 6F 66 0D 0A 20 20 20 20 20 20  dRate of..      
000120: 20 20 31 31 30 3A 20 42 61 75 64 52 61 74 65 3A    110: BaudRate:
000130: 3D 30 3B 0D 0A 20 20 20 20 20 20 20 20 31 35 30  =0;..        150
000140: 3A 20 42 61 75 64 52 61 74 65 3A 3D 31 3B 0D 0A  : BaudRate:=1;..
000150: 20 20 20 20 20 20 20 20 33 30 30 3A 20 42 61 75          300: Bau
000160: 64 52 61 74 65 3A 3D 32 3B 0D 0A 20 20 20 20 20  dRate:=2;..     
000170: 20 20 20 36 30 30 3A 20 42 61 75 64 52 61 74 65     600: BaudRate
000180: 3A 3D 33 3B 0D 0A 20 20 20 20 20 20 20 20 31 32  :=3;..        12
000190: 30 30 3A 20 42 61 75 64 52 61 74 65 3A 3D 34 3B  00: BaudRate:=4;
0001A0: 0D 0A 20 20 20 20 20 20 20 20 32 34 30 30 3A 20  ..        2400: 
0001B0: 42 61 75 64 52 61 74 65 3A 3D 35 3B 0D 0A 20 20  BaudRate:=5;..  
0001C0: 20 20 20 20 20 20 34 38 30 30 3A 20 42 61 75 64        4800: Baud
0001D0: 52 61 74 65 3A 3D 36 3B 0D 0A 20 20 20 20 20 20  Rate:=6;..      
0001E0: 20 20 65 6C 73 65 20 42 61 75 64 52 61 74 65 3A    else BaudRate:
0001F0: 3D 37 3B 20 28 2A 20 53 74 61 6E 64 61 72 64 20  =7; (* Standard 

Size : 512 (Real : 512)
000000: 20 20 20 20 53 74 6F 70 42 69 74 73 20 69 6E 20      StopBits in 
000010: 5B 31 2C 32 5D 2C 0D 0A 20 20 20 20 20 20 20 20  [1,2],..        
000020: 20 20 20 20 44 61 74 61 42 69 74 73 20 69 6E 20      DataBits in 
000030: 5B 37 2C 38 5D 2C 0D 0A 20 20 20 20 20 20 20 20  [7,8],..        
000040: 20 20 20 20 50 61 72 69 74 79 20 69 6E 20 5B 4E      Parity in [N
000050: 6F 6E 65 2C 45 76 65 6E 2C 4F 64 64 5D 29 20 73  one,Even,Odd]) s
000060: 65 74 7A 74 20 64 69 65 20 42 61 75 64 72 61 74  etzt die Baudrat
000070: 65 2C 20 53 74 6F 70 20 42 69 74 73 2C 0D 0A 20  e, Stop Bits,.. 
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000A0: 20 20 20 20 20 20 44 61 74 65 6E 62 69 74 73 2C        Datenbits,
0000B0: 20 75 6E 64 20 50 61 72 69 74 61 65 74 20 64 65   und Paritaet de
0000C0: 72 20 73 65 72 69 65 6C 6C 65 6E 0D 0A 20 20 20  r seriellen..   
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000F0: 20 20 20 20 50 6F 72 74 73 2E 0D 0A 0D 0A 0D 0A      Ports.......
000100: 20 20 44 69 65 20 41 72 72 61 79 73 20 49 6E 45    Die Arrays InE
000110: 72 72 6F 72 20 75 6E 64 20 4F 75 74 45 72 72 6F  rror und OutErro
000120: 72 20 6B 6F 65 6E 6E 65 6E 20 75 6E 74 65 72 73  r koennen unters
000130: 75 63 68 74 20 77 65 72 64 65 6E 20 75 6D 20 46  ucht werden um F
000140: 65 68 6C 65 72 0D 0A 20 20 66 65 73 74 7A 75 73  ehler..  festzus
000150: 74 65 6C 6C 65 6E 2E 20 20 44 69 65 20 42 69 74  tellen.  Die Bit
000160: 73 20 6C 69 65 67 65 6E 20 77 69 65 20 66 6F 6C  s liegen wie fol
000170: 67 74 20 3A 0D 0A 20 20 20 20 20 42 69 74 20 37  gt :..     Bit 7
000180: 20 28 31 32 38 29 20 20 20 20 20 20 20 20 54 69   (128)        Ti
000190: 6D 65 20 6F 75 74 20 28 20 6B 65 69 6E 20 47 65  me out ( kein Ge
0001A0: 72 61 65 74 20 61 6E 67 65 73 63 68 6C 6F 73 73  raet angeschloss
0001B0: 65 6E 20 29 0D 0A 20 20 20 20 20 42 69 74 20 33  en )..     Bit 3
0001C0: 20 28 38 29 20 20 20 20 20 20 20 20 20 20 46 72   (8)          Fr
0001D0: 61 6D 69 6E 67 20 65 72 72 6F 72 0D 0A 20 20 20  aming error..   
0001E0: 20 20 42 69 74 20 32 20 28 34 29 20 20 20 20 20    Bit 2 (4)     
0001F0: 20 20 20 20 20 50 61 72 69 74 79 20 65 72 72 6F       Parity erro

Size : 512 (Real : 512)
000000: 3D 20 39 36 30 30 20 42 61 75 64 20 2A 29 0D 0A  = 9600 Baud *)..
000010: 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20         end;..   
000020: 20 20 20 69 66 20 53 74 6F 70 42 69 74 73 3D 32     if StopBits=2
000030: 20 74 68 65 6E 20 53 74 6F 70 42 69 74 73 3A 3D   then StopBits:=
000040: 31 0D 0A 20 20 20 20 20 20 65 6C 73 65 20 53 74  1..      else St
000050: 6F 70 42 69 74 73 3A 3D 30 3B 20 28 2A 20 53 74  opBits:=0; (* St
000060: 61 6E 64 61 72 64 20 3D 20 31 20 53 74 6F 70 20  andard = 1 Stop 
000070: 42 69 74 20 2A 29 0D 0A 20 20 20 20 20 20 69 66  Bit *)..      if
000080: 20 44 61 74 61 42 69 74 73 3D 37 20 74 68 65 6E   DataBits=7 then
000090: 20 44 61 74 61 42 69 74 73 3A 3D 32 0D 0A 20 20   DataBits:=2..  
0000A0: 20 20 20 20 65 6C 73 65 20 44 61 74 61 42 69 74      else DataBit
0000B0: 73 3A 3D 33 3B 20 28 2A 20 53 74 61 6E 64 61 72  s:=3; (* Standar
0000C0: 64 20 3D 20 38 20 44 61 74 65 6E 62 69 74 73 20  d = 8 Datenbits 
0000D0: 2A 29 0D 0A 20 20 20 20 20 20 50 61 72 61 6D 65  *)..      Parame
0000E0: 74 65 72 3A 3D 28 42 61 75 64 52 61 74 65 20 53  ter:=(BaudRate S
0000F0: 68 6C 20 35 29 2B 28 53 74 6F 70 42 69 74 73 20  hl 5)+(StopBits 
000100: 53 68 6C 20 32 29 2B 44 61 74 61 42 69 74 73 3B  Shl 2)+DataBits;
000110: 0D 0A 20 20 20 20 20 20 63 61 73 65 20 50 61 72  ..      case Par
000120: 69 74 79 20 6F 66 0D 0A 20 20 20 20 20 20 20 20  ity of..        
000130: 4F 64 64 3A 20 50 61 72 61 6D 65 74 65 72 3A 3D  Odd: Parameter:=
000140: 50 61 72 61 6D 65 74 65 72 2B 38 3B 0D 0A 20 20  Parameter+8;..  
000150: 20 20 20 20 20 20 45 76 65 6E 3A 20 50 61 72 61        Even: Para
000160: 6D 65 74 65 72 3A 3D 50 61 72 61 6D 65 74 65 72  meter:=Parameter
000170: 2B 32 34 3B 0D 0A 20 20 20 20 20 20 20 20 65 6C  +24;..        el
000180: 73 65 3B 20 28 2A 20 53 74 61 6E 64 61 72 64 20  se; (* Standard 
000190: 74 6F 20 6E 6F 20 70 61 72 69 74 79 20 2A 29 0D  to no parity *).
0001A0: 0A 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20  .       end;..  
0001B0: 20 20 20 20 5F 5F 49 6E 74 31 34 28 50 6F 72 74      __Int14(Port
0001C0: 4E 75 6D 6D 65 72 2C 30 2C 50 61 72 61 6D 65 74  Nummer,0,Paramet
0001D0: 65 72 29 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A  er);..    end;..
0001E0: 0D 0A 0D 0A 20 20 46 75 6E 63 74 69 6F 6E 20 53  ....  Function S
0001F0: 65 72 69 65 6C 6C 53 74 61 74 75 73 28 50 6F 72  eriellStatus(Por

Size : 512 (Real : 512)
000000: 72 0D 0A 20 20 20 20 20 42 69 74 20 31 20 28 32  r..     Bit 1 (2
000010: 29 20 20 20 20 20 20 20 20 20 20 4F 76 65 72 72  )          Overr
000020: 75 6E 20 65 72 72 6F 72 0D 0A 0D 0A 20 20 44 69  un error....  Di
000030: 65 20 46 75 6E 6B 74 69 6F 6E 20 53 65 72 69 65  e Funktion Serie
000040: 6C 6C 53 74 61 74 75 73 28 50 6F 72 74 4E 75 6D  llStatus(PortNum
000050: 6D 65 72 20 69 6E 20 5B 31 2C 32 5D 29 20 67 69  mer in [1,2]) gi
000060: 62 74 20 65 69 6E 65 6E 20 67 65 6E 61 75 65 72  bt einen genauer
000070: 65 6E 0D 0A 20 20 53 74 61 74 75 73 62 65 72 69  en..  Statusberi
000080: 63 68 74 20 3A 0D 0A 20 20 20 20 20 42 69 74 20  cht :..     Bit 
000090: 31 35 20 28 6E 65 67 61 74 69 76 65 29 20 20 54  15 (negative)  T
0000A0: 69 6D 65 20 6F 75 74 20 28 6B 65 69 6E 20 47 65  ime out (kein Ge
0000B0: 72 61 65 74 20 61 6E 67 65 73 63 68 6C 6F 73 73  raet angeschloss
0000C0: 65 6E 20 29 0D 0A 20 20 20 20 20 42 69 74 20 31  en )..     Bit 1
0000D0: 34 20 28 31 36 33 38 34 29 20 20 20 20 20 54 72  4 (16384)     Tr
0000E0: 61 6E 73 6D 69 73 73 69 6F 6E 20 73 68 69 66 74  ansmission shift
0000F0: 20 72 65 67 69 73 74 65 72 20 65 6D 70 74 79 0D   register empty.
000100: 0A 20 20 20 20 20 42 69 74 20 31 33 20 28 38 31  .     Bit 13 (81
000110: 39 32 29 20 20 20 20 20 20 54 72 61 6E 73 6D 69  92)      Transmi
000120: 73 73 69 6F 6E 20 68 6F 6C 64 69 6E 67 20 72 65  ssion holding re
000130: 67 69 73 74 65 72 20 65 6D 70 74 79 0D 0A 20 20  gister empty..  
000140: 20 20 20 42 69 74 20 31 32 20 28 34 30 39 36 29     Bit 12 (4096)
000150: 20 20 20 20 20 20 42 72 65 61 6B 20 64 65 74 65        Break dete
000160: 63 74 0D 0A 20 20 20 20 20 42 69 74 20 31 31 20  ct..     Bit 11 
000170: 28 32 30 34 38 29 20 20 20 20 20 20 46 72 61 6D  (2048)      Fram
000180: 69 6E 67 20 65 72 72 6F 72 0D 0A 20 20 20 20 20  ing error..     
000190: 42 69 74 20 31 30 20 28 31 30 32 34 29 20 20 20  Bit 10 (1024)   
0001A0: 20 20 20 50 61 72 69 74 79 20 65 72 72 6F 72 0D     Parity error.
0001B0: 0A 20 20 20 20 20 42 69 74 20 39 20 20 28 35 31  .     Bit 9  (51
0001C0: 32 29 20 20 20 20 20 20 20 4F 76 65 72 72 75 6E  2)       Overrun
0001D0: 20 65 72 72 6F 72 0D 0A 20 20 20 20 20 42 69 74   error..     Bit
0001E0: 20 38 20 20 28 32 35 36 29 20 20 20 20 20 20 20   8  (256)       
0001F0: 44 61 74 61 20 72 65 61 64 79 0D 0A 20 20 20 20  Data ready..    

Size : 512 (Real : 512)
000000: 74 4E 75 6D 6D 65 72 3A 20 49 6E 74 65 67 65 72  tNummer: Integer
000010: 29 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 20 20 28  ): Integer;..  (
000020: 2A 20 55 65 62 65 72 67 69 62 74 20 64 65 6E 20  * Uebergibt den 
000030: 53 74 61 74 75 73 20 65 69 6E 65 73 20 43 4F 4D  Status eines COM
000040: 20 50 6F 72 74 73 20 2A 29 0D 0A 0D 0A 20 20 20   Ports *)....   
000050: 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 5F 5F   begin..      __
000060: 49 6E 74 31 34 28 50 6F 72 74 4E 75 6D 6D 65 72  Int14(PortNummer
000070: 2C 33 2C 30 29 3B 0D 0A 20 20 20 20 20 20 53 65  ,3,0);..      Se
000080: 72 69 65 6C 6C 53 74 61 74 75 73 3A 3D 5F 5F 52  riellStatus:=__R
000090: 65 67 73 2E 41 58 3B 0D 0A 20 20 20 20 65 6E 64  egs.AX;..    end
0000A0: 3B 0D 0A 0D 0A 0D 0A 20 20 70 72 6F 63 65 64 75  ;......  procedu
0000B0: 72 65 20 5F 5F 4F 75 74 50 6F 72 74 31 28 43 3A  re __OutPort1(C:
0000C0: 20 42 79 74 65 29 3B 0D 0A 20 20 28 2A 20 77 69   Byte);..  (* wi
0000D0: 72 64 20 76 6F 6E 20 57 72 69 74 65 20 61 75 66  rd von Write auf
0000E0: 67 65 72 75 66 65 6E 2C 20 77 65 6E 6E 20 43 4F  gerufen, wenn CO
0000F0: 4D 31 20 76 65 72 77 65 6E 64 65 74 20 77 69 72  M1 verwendet wir
000100: 64 20 2A 29 0D 0A 0D 0A 20 20 20 20 62 65 67 69  d *)....    begi
000110: 6E 0D 0A 20 20 20 20 20 20 77 68 69 6C 65 20 28  n..      while (
000120: 53 65 72 69 65 6C 6C 53 74 61 74 75 73 28 31 29  SeriellStatus(1)
000130: 20 61 6E 64 20 24 33 30 29 3D 30 20 64 6F 20 3B   and $30)=0 do ;
000140: 0D 0A 20 20 20 20 20 20 5F 5F 49 6E 74 31 34 28  ..      __Int14(
000150: 31 2C 31 2C 43 29 3B 0D 0A 20 20 20 20 20 20 4F  1,1,C);..      O
000160: 75 74 45 72 72 6F 72 5B 31 5D 3A 3D 4F 75 74 45  utError[1]:=OutE
000170: 72 72 6F 72 5B 31 5D 20 4F 72 20 28 5F 5F 52 65  rror[1] Or (__Re
000180: 67 73 2E 41 48 20 61 6E 64 20 24 38 45 29 3B 0D  gs.AH and $8E);.
000190: 0A 20 20 20 20 65 6E 64 3B 0D 0A 0D 0A 0D 0A 20  .    end;...... 
0001A0: 20 70 72 6F 63 65 64 75 72 65 20 5F 5F 4F 75 74   procedure __Out
0001B0: 50 6F 72 74 32 28 43 3A 20 42 79 74 65 29 3B 0D  Port2(C: Byte);.
0001C0: 0A 20 20 28 2A 20 77 69 72 64 20 76 6F 6E 20 57  .  (* wird von W
0001D0: 72 69 74 65 20 61 75 66 67 65 72 75 66 65 6E 2C  rite aufgerufen,
0001E0: 20 77 65 6E 6E 20 43 4F 4D 32 20 76 65 72 77 65   wenn COM2 verwe
0001F0: 6E 64 65 74 20 77 69 72 64 20 2A 29 0D 0A 0D 0A  ndet wird *)....

Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 57 72 69 74 65 28 27 42 69 74  ..    Write('Bit
000010: 74 65 20 44 61 74 65 6E 62 69 74 73 20 65 69 6E  te Datenbits ein
000020: 67 65 62 65 6E 3A 20 20 20 20 20 20 20 20 20 20  geben:          
000030: 20 20 20 20 20 20 20 27 29 3B 0D 0A 20 20 20 20         ');..    
000040: 52 65 61 64 4C 6E 28 44 61 74 61 42 69 74 73 29  ReadLn(DataBits)
000050: 3B 0D 0A 20 20 20 20 57 72 69 74 65 28 27 50 61  ;..    Write('Pa
000060: 72 69 74 04 74 20 65 69 6E 67 65 62 65 6E 20 28  rit.t eingeben (
000070: 30 3D 6E 6F 6E 65 2C 20 31 3D 65 76 65 6E 2C 20  0=none, 1=even, 
000080: 32 3D 6F 64 64 29 3A 20 27 29 3B 0D 0A 20 20 20  2=odd): ');..   
000090: 20 52 65 61 64 4C 6E 28 50 61 72 29 3B 0D 0A 20   ReadLn(Par);.. 
0000A0: 20 20 20 57 72 69 74 65 28 27 5A 75 20 73 65 6E     Write('Zu sen
0000B0: 64 65 6E 64 65 72 20 54 65 78 74 20 3A 20 20 20  dender Text :   
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000D0: 20 20 20 20 27 29 3B 0D 0A 20 20 20 20 52 65 61      ');..    Rea
0000E0: 64 4C 6E 28 4D 65 73 73 61 67 65 29 3B 0D 0A 20  dLn(Message);.. 
0000F0: 20 20 20 53 65 74 53 65 72 69 65 6C 6C 28 31 2C     SetSeriell(1,
000100: 42 61 75 64 2C 53 74 6F 70 42 69 74 73 2C 44 61  Baud,StopBits,Da
000110: 74 61 42 69 74 73 2C 5F 5F 50 61 72 69 74 79 54  taBits,__ParityT
000120: 79 70 65 28 50 61 72 29 29 3B 0D 0A 20 20 20 20  ype(Par));..    
000130: 57 72 69 74 65 4C 6E 28 55 73 72 2C 4D 65 73 73  WriteLn(Usr,Mess
000140: 61 67 65 29 3B 0D 0A 20 20 20 20 57 72 69 74 65  age);..    Write
000150: 4C 6E 28 27 41 75 73 67 61 62 65 66 65 68 6C 65  Ln('Ausgabefehle
000160: 72 5B 27 2C 50 6F 72 74 2C 27 5D 3A 20 27 2C 42  r[',Port,']: ',B
000170: 69 6E 61 72 79 28 4F 75 74 45 72 72 6F 72 5B 50  inary(OutError[P
000180: 6F 72 74 5D 29 29 3B 0D 0A 20 20 20 20 57 72 69  ort]));..    Wri
000190: 74 65 4C 6E 28 27 53 65 72 69 65 6C 6C 53 74 61  teLn('SeriellSta
0001A0: 74 75 73 28 27 2C 50 6F 72 74 2C 27 29 3A 20 27  tus(',Port,'): '
0001B0: 2C 42 69 6E 61 72 79 28 53 65 72 69 65 6C 6C 53  ,Binary(SeriellS
0001C0: 74 61 74 75 73 28 50 6F 72 74 29 29 29 3B 0D 0A  tatus(Port)));..
0001D0: 20 20 65 6E 64 2E 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A    end...........
0001E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0001F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................

Size : 512 (Real : 512)
000000: 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20      begin..     
000010: 20 77 68 69 6C 65 20 28 53 65 72 69 65 6C 6C 53   while (SeriellS
000020: 74 61 74 75 53 28 32 29 20 61 6E 64 20 24 33 30  tatuS(2) and $30
000030: 29 3D 30 20 64 6F 20 3B 0D 0A 20 20 20 20 20 20  )=0 do ;..      
000040: 5F 5F 49 6E 74 31 34 28 32 2C 31 2C 43 29 3B 0D  __Int14(2,1,C);.
000050: 0A 20 20 20 20 20 20 4F 75 74 45 72 72 6F 72 5B  .      OutError[
000060: 32 5D 3A 3D 4F 75 74 45 72 72 6F 72 5B 32 5D 20  2]:=OutError[2] 
000070: 4F 72 20 28 5F 5F 52 65 67 73 2E 41 48 20 61 6E  Or (__Regs.AH an
000080: 64 20 24 38 45 29 3B 0D 0A 20 20 20 20 65 6E 64  d $8E);..    end
000090: 3B 0D 0A 0D 0A 0D 0A 20 20 46 75 6E 63 74 69 6F  ;......  Functio
0000A0: 6E 20 5F 5F 49 6E 50 6F 72 74 31 3A 20 43 68 61  n __InPort1: Cha
0000B0: 72 3B 0D 0A 20 20 28 2A 20 77 69 72 64 20 76 6F  r;..  (* wird vo
0000C0: 6E 20 52 65 61 64 20 61 75 66 67 65 72 75 66 65  n Read aufgerufe
0000D0: 6E 2C 20 77 65 6E 6E 20 43 4F 4D 31 20 76 65 72  n, wenn COM1 ver
0000E0: 77 65 6E 64 65 74 20 77 69 72 64 20 2A 29 0D 0A  wendet wird *)..
0000F0: 0D 0A 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20  ..    begin..   
000100: 20 20 20 5F 5F 49 6E 74 31 34 28 31 2C 32 2C 30     __Int14(1,2,0
000110: 29 3B 0D 0A 20 20 20 20 20 20 5F 5F 49 6E 50 6F  );..      __InPo
000120: 72 74 31 3A 3D 43 68 72 28 5F 5F 52 65 67 73 2E  rt1:=Chr(__Regs.
000130: 41 4C 29 3B 0D 0A 20 20 20 20 20 20 49 6E 45 72  AL);..      InEr
000140: 72 6F 72 5B 31 5D 3A 3D 49 6E 45 72 72 6F 72 5B  ror[1]:=InError[
000150: 31 5D 20 4F 72 20 28 5F 5F 52 65 67 73 2E 41 48  1] Or (__Regs.AH
000160: 20 61 6E 64 20 24 38 45 29 3B 0D 0A 20 20 20 20   and $8E);..    
000170: 65 6E 64 3B 0D 0A 0D 0A 0D 0A 20 20 46 75 6E 63  end;......  Func
000180: 74 69 6F 6E 20 5F 5F 49 6E 50 6F 72 74 32 3A 20  tion __InPort2: 
000190: 43 68 61 72 3B 0D 0A 20 20 28 2A 20 77 69 72 64  Char;..  (* wird
0001A0: 20 76 6F 6E 20 52 65 61 64 20 61 75 66 67 65 72   von Read aufger
0001B0: 75 66 65 6E 2C 20 77 65 6E 6E 20 43 4F 4D 32 20  ufen, wenn COM2 
0001C0: 76 65 72 77 65 6E 64 65 74 20 77 69 72 64 20 2A  verwendet wird *
0001D0: 29 0D 0A 0D 0A 20 20 20 20 62 65 67 69 6E 0D 0A  )....    begin..
0001E0: 20 20 20 20 20 20 5F 5F 49 6E 74 31 34 28 32 2C        __Int14(2,
0001F0: 32 2C 30 29 3B 0D 0A 20 20 20 20 20 20 5F 5F 49  2,0);..      __I

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

Size : 512 (Real : 512)
000000: 6E 50 6F 72 74 32 3A 3D 43 68 72 28 5F 5F 52 65  nPort2:=Chr(__Re
000010: 67 73 2E 41 4C 29 3B 0D 0A 20 20 20 20 20 20 49  gs.AL);..      I
000020: 6E 45 72 72 6F 72 5B 32 5D 3A 3D 49 6E 45 72 72  nError[2]:=InErr
000030: 6F 72 5B 32 5D 20 4F 72 20 28 5F 5F 52 65 67 73  or[2] Or (__Regs
000040: 2E 41 48 20 61 6E 64 20 24 38 45 29 3B 0D 0A 20  .AH and $8E);.. 
000050: 20 20 20 65 6E 64 3B 0D 0A 0D 0A 0D 0A 20 20 70     end;......  p
000060: 72 6F 63 65 64 75 72 65 20 5F 5F 41 73 73 69 67  rocedure __Assig
000070: 6E 50 6F 72 74 28 50 6F 72 74 4E 75 6D 6D 65 72  nPort(PortNummer
000080: 3A 20 49 6E 74 65 67 65 72 3B 20 76 61 72 20 49  : Integer; var I
000090: 6E 50 74 72 2C 4F 75 74 50 74 72 3A 20 49 6E 74  nPtr,OutPtr: Int
0000A0: 65 67 65 72 29 3B 0D 0A 20 20 28 2A 20 6C 65 67  eger);..  (* leg
0000B0: 74 20 20 41 75 78 20 6F 64 65 72 20 55 73 72 20  t  Aux oder Usr 
0000C0: 65 6E 74 77 65 64 65 72 20 61 75 66 20 43 4F 4D  entweder auf COM
0000D0: 31 20 6F 64 65 72 20 43 4F 4D 32 20 2A 29 0D 0A  1 oder COM2 *)..
0000E0: 0D 0A 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20  ..    begin..   
0000F0: 20 20 20 69 66 20 50 6F 72 74 4E 75 6D 6D 65 72     if PortNummer
000100: 3D 32 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20  =2 then..       
000110: 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 4F  begin..        O
000120: 75 74 50 74 72 3A 3D 4F 66 73 28 5F 5F 4F 75 74  utPtr:=Ofs(__Out
000130: 50 6F 72 74 32 29 3B 0D 0A 20 20 20 20 20 20 20  Port2);..       
000140: 20 49 6E 50 74 72 3A 3D 4F 66 73 28 5F 5F 49 6E   InPtr:=Ofs(__In
000150: 50 6F 72 74 32 29 3B 0D 0A 20 20 20 20 20 20 20  Port2);..       
000160: 65 6E 64 0D 0A 20 20 20 20 20 20 65 6C 73 65 20  end..      else 
000170: 28 2A 20 53 74 61 6E 64 61 72 64 20 74 6F 20 70  (* Standard to p
000180: 6F 72 74 20 31 20 2A 29 0D 0A 20 20 20 20 20 20  ort 1 *)..      
000190: 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20   begin..        
0001A0: 4F 75 74 50 74 72 3A 3D 4F 66 73 28 5F 5F 4F 75  OutPtr:=Ofs(__Ou
0001B0: 74 50 6F 72 74 31 29 3B 0D 0A 20 20 20 20 20 20  tPort1);..      
0001C0: 20 20 49 6E 50 74 72 3A 3D 4F 66 73 28 5F 5F 49    InPtr:=Ofs(__I
0001D0: 6E 50 6F 72 74 31 29 3B 0D 0A 20 20 20 20 20 20  nPort1);..      
0001E0: 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 49 6E 45   end;..      InE
0001F0: 72 72 6F 72 5B 50 6F 72 74 4E 75 6D 6D 65 72 5D  rror[PortNummer]

Size : 512 (Real : 512)
000000: 0D 0A 70 72 6F 67 72 61 6D 20 43 50 4D 38 30 44  ..program CPM80D
000010: 69 72 3B 0D 0A 20 20 28 2A 20 44 69 65 73 65 73  ir;..  (* Dieses
000020: 20 50 72 6F 67 72 61 6D 6D 20 7A 65 69 67 74 20   Programm zeigt 
000030: 64 61 73 20 49 6E 68 61 6C 74 73 76 65 72 7A 65  das Inhaltsverze
000040: 69 63 68 6E 69 73 20 64 65 73 20 61 6B 74 75 65  ichnis des aktue
000050: 6C 6C 65 6E 20 4C 61 75 66 77 65 72 6B 73 20 2A  llen Laufwerks *
000060: 29 0D 0A 63 6F 6E 73 74 0D 0A 20 20 53 65 61 72  )..const..  Sear
000070: 63 68 5F 46 69 72 73 74 20 20 20 20 20 20 20 20  ch_First        
000080: 20 3A 20 49 6E 74 65 67 65 72 20 3D 20 24 31 31   : Integer = $11
000090: 3B 0D 0A 20 20 53 65 61 72 63 68 5F 4E 65 78 74  ;..  Search_Next
0000A0: 20 20 20 20 20 20 20 20 20 20 3A 20 49 6E 74 65            : Inte
0000B0: 67 65 72 20 3D 20 24 31 32 3B 0D 0A 20 20 53 65  ger = $12;..  Se
0000C0: 74 5F 44 4D 41 20 20 20 20 20 20 20 20 20 20 20  t_DMA           
0000D0: 20 20 20 3A 20 49 6E 74 65 67 65 72 20 3D 20 24     : Integer = $
0000E0: 31 41 3B 0D 0A 76 61 72 0D 0A 20 20 45 72 72 6F  1A;..var..  Erro
0000F0: 72 2C 20 4C 6F 6F 70 2C 20 53 74 61 72 74 20 20  r, Loop, Start  
000100: 20 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 20 20 46   : Integer;..  F
000110: 43 42 20 20 20 20 20 20 20 20 20 20 20 20 20 20  CB              
000120: 20 20 20 20 3A 20 61 72 72 61 79 5B 30 2E 2E 32      : array[0..2
000130: 35 5D 20 6F 66 20 42 79 74 65 20 61 62 73 6F 6C  5] of Byte absol
000140: 75 74 65 20 24 30 30 35 43 3B 0D 0A 20 20 44 4D  ute $005C;..  DM
000150: 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  A               
000160: 20 20 20 3A 20 61 72 72 61 79 5B 30 2E 2E 32 35     : array[0..25
000170: 35 5D 20 6F 66 20 42 79 74 65 3B 0D 0A 0D 0A 62  5] of Byte;....b
000180: 65 67 69 6E 0D 0A 20 20 45 72 72 6F 72 20 3A 3D  egin..  Error :=
000190: 20 42 44 6F 73 28 53 65 74 5F 44 4D 41 2C 41 64   BDos(Set_DMA,Ad
0001A0: 64 72 28 44 4D 41 29 29 3B 0D 0A 20 20 46 43 42  dr(DMA));..  FCB
0001B0: 5B 30 5D 20 3A 3D 20 30 3B 0D 0A 20 20 66 6F 72  [0] := 0;..  for
0001C0: 20 4C 6F 6F 70 20 3A 3D 20 31 20 74 6F 20 31 31   Loop := 1 to 11
0001D0: 20 64 6F 0D 0A 20 20 20 20 46 43 42 5B 4C 6F 6F   do..    FCB[Loo
0001E0: 70 5D 20 3A 3D 20 6F 72 64 28 27 3F 27 29 3B 0D  p] := ord('?');.
0001F0: 0A 20 20 45 72 72 6F 72 20 3A 3D 20 42 44 6F 73  .  Error := BDos

Size : 512 (Real : 512)
000000: 3A 3D 30 3B 0D 0A 20 20 20 20 20 20 4F 75 74 45  :=0;..      OutE
000010: 72 72 6F 72 5B 50 6F 72 74 4E 75 6D 6D 65 72 5D  rror[PortNummer]
000020: 3A 3D 30 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A  :=0;..    end;..
000030: 0D 0A 0D 0A 20 20 70 72 6F 63 65 64 75 72 65 20  ....  procedure 
000040: 41 73 73 69 67 6E 41 75 78 28 50 6F 72 74 4E 75  AssignAux(PortNu
000050: 6D 6D 65 72 3A 20 49 6E 74 65 67 65 72 29 3B 0D  mmer: Integer);.
000060: 0A 20 20 28 2A 20 6C 65 67 74 20 41 75 78 20 65  .  (* legt Aux e
000070: 6E 74 77 65 64 65 72 20 61 75 66 20 43 4F 4D 31  ntweder auf COM1
000080: 20 6F 64 65 72 20 43 4F 4D 32 20 2A 29 0D 0A 0D   oder COM2 *)...
000090: 0A 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20  .    begin..    
0000A0: 20 20 5F 5F 41 73 73 69 67 6E 50 6F 72 74 28 50    __AssignPort(P
0000B0: 6F 72 74 4E 75 6D 6D 65 72 2C 41 75 78 49 6E 50  ortNummer,AuxInP
0000C0: 74 72 2C 41 75 78 4F 75 74 50 74 72 29 3B 0D 0A  tr,AuxOutPtr);..
0000D0: 20 20 20 20 65 6E 64 3B 0D 0A 0D 0A 0D 0A 20 20      end;......  
0000E0: 70 72 6F 63 65 64 75 72 65 20 41 73 73 69 67 6E  procedure Assign
0000F0: 55 73 72 28 50 6F 72 74 4E 75 6D 6D 65 72 3A 20  Usr(PortNummer: 
000100: 49 6E 74 65 67 65 72 29 3B 0D 0A 20 20 28 2A 20  Integer);..  (* 
000110: 6C 65 67 74 20 55 73 72 20 65 6E 74 77 65 64 65  legt Usr entwede
000120: 72 20 61 75 66 20 43 4F 4D 31 20 6F 64 65 72 20  r auf COM1 oder 
000130: 43 4F 4D 32 20 2A 29 0D 0A 0D 0A 0D 0A 20 20 20  COM2 *)......   
000140: 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 5F 5F   begin..      __
000150: 41 73 73 69 67 6E 50 6F 72 74 28 50 6F 72 74 4E  AssignPort(PortN
000160: 75 6D 6D 65 72 2C 55 73 72 49 6E 50 74 72 2C 55  ummer,UsrInPtr,U
000170: 73 72 4F 75 74 50 74 72 29 3B 0D 0A 20 20 20 20  srOutPtr);..    
000180: 65 6E 64 3B 0D 0A 0D 0A 0D 0A 20 20 46 75 6E 63  end;......  Func
000190: 74 69 6F 6E 20 42 69 6E 61 72 79 28 56 3A 20 49  tion Binary(V: I
0001A0: 6E 74 65 67 65 72 29 3A 20 53 74 72 69 6E 67 31  nteger): String1
0001B0: 39 3B 0D 0A 0D 0A 20 20 20 20 76 61 72 0D 0A 20  9;....    var.. 
0001C0: 20 20 20 20 20 49 3A 20 49 6E 74 65 67 65 72 3B       I: Integer;
0001D0: 0D 0A 20 20 20 20 20 20 42 3A 20 41 72 72 61 79  ..      B: Array
0001E0: 20 5B 30 2E 2E 33 5D 20 6F 66 20 53 74 72 69 6E   [0..3] of Strin
0001F0: 67 5B 34 5D 3B 0D 0A 0D 0A 20 20 20 20 62 65 67  g[4];....    beg

Size : 512 (Real : 512)
000000: 28 53 65 61 72 63 68 5F 46 69 72 73 74 2C 41 64  (Search_First,Ad
000010: 64 72 28 46 43 42 29 29 3B 0D 0A 20 20 69 66 20  dr(FCB));..  if 
000020: 45 72 72 6F 72 20 3C 3E 20 32 35 35 20 74 68 65  Error <> 255 the
000030: 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 53 74 61  n begin..    Sta
000040: 72 74 20 3A 3D 20 45 72 72 6F 72 20 2A 20 33 32  rt := Error * 32
000050: 3B 0D 0A 20 20 20 20 66 6F 72 20 4C 6F 6F 70 3A  ;..    for Loop:
000060: 3D 20 53 74 61 72 74 20 74 6F 20 73 74 61 72 74  = Start to start
000070: 2B 38 20 64 6F 0D 0A 20 20 20 20 20 20 57 72 69  +8 do..      Wri
000080: 74 65 28 43 68 61 72 28 4D 65 6D 5B 41 64 64 72  te(Char(Mem[Addr
000090: 28 44 4D 41 29 2B 4C 6F 6F 70 5D 29 29 3B 0D 0A  (DMA)+Loop]));..
0000A0: 20 20 20 20 57 72 69 74 65 28 27 20 27 29 3B 0D      Write(' ');.
0000B0: 0A 20 20 20 20 66 6F 72 20 4C 6F 6F 70 3A 3D 20  .    for Loop:= 
0000C0: 53 74 61 72 74 2B 39 20 74 6F 20 53 74 61 72 74  Start+9 to Start
0000D0: 2B 31 31 20 64 6F 0D 0A 20 20 20 20 20 20 57 72  +11 do..      Wr
0000E0: 69 74 65 28 43 68 61 72 28 4D 65 6D 5B 41 64 64  ite(Char(Mem[Add
0000F0: 72 28 44 4D 41 29 2B 4C 6F 6F 70 5D 29 29 3B 0D  r(DMA)+Loop]));.
000100: 0A 20 20 20 20 57 72 69 74 65 4C 6E 0D 0A 20 20  .    WriteLn..  
000110: 65 6E 64 3B 0D 0A 20 20 72 65 70 65 61 74 0D 0A  end;..  repeat..
000120: 20 20 20 20 45 72 72 6F 72 20 3A 3D 20 42 44 6F      Error := BDo
000130: 73 28 73 65 61 72 63 68 5F 4E 65 78 74 29 3B 0D  s(search_Next);.
000140: 0A 20 20 20 20 53 74 61 72 74 20 3A 3D 20 45 72  .    Start := Er
000150: 72 6F 72 20 2A 20 33 32 3B 0D 0A 20 20 20 20 69  ror * 32;..    i
000160: 66 20 45 72 72 6F 72 20 3C 3E 20 32 35 35 20 74  f Error <> 255 t
000170: 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20  hen begin..     
000180: 20 66 6F 72 20 4C 6F 6F 70 3A 3D 20 53 74 61 72   for Loop:= Star
000190: 74 20 74 6F 20 73 74 61 72 74 2B 38 20 64 6F 0D  t to start+8 do.
0001A0: 0A 20 20 20 20 20 20 20 20 57 72 69 74 65 28 43  .        Write(C
0001B0: 68 61 72 28 4D 65 6D 5B 41 64 64 72 28 44 4D 41  har(Mem[Addr(DMA
0001C0: 29 2B 4C 6F 6F 70 5D 29 29 3B 0D 0A 20 20 20 20  )+Loop]));..    
0001D0: 20 20 57 72 69 74 65 28 27 20 27 29 3B 0D 0A 20    Write(' ');.. 
0001E0: 20 20 20 20 66 6F 72 20 4C 6F 6F 70 3A 3D 20 53      for Loop:= S
0001F0: 74 61 72 74 2B 39 20 74 6F 20 53 74 61 72 74 2B  tart+9 to Start+

Size : 512 (Real : 512)
000000: 69 6E 0D 0A 20 20 20 20 20 20 46 6F 72 20 49 3A  in..      For I:
000010: 3D 30 20 54 6F 20 31 35 20 64 6F 0D 0A 20 20 20  =0 To 15 do..   
000020: 20 20 20 20 20 69 66 20 28 56 20 61 6E 64 20 28       if (V and (
000030: 31 20 53 68 6C 20 28 31 35 2D 49 29 29 29 3C 3E  1 Shl (15-I)))<>
000040: 30 20 74 68 65 6E 20 42 5B 49 20 44 69 76 20 34  0 then B[I Div 4
000050: 5D 5B 28 49 20 4D 6F 64 20 34 29 2B 31 5D 3A 3D  ][(I Mod 4)+1]:=
000060: 27 31 27 0D 0A 20 20 20 20 20 20 20 20 65 6C 73  '1'..        els
000070: 65 20 42 5B 49 20 44 69 76 20 34 5D 5B 28 49 20  e B[I Div 4][(I 
000080: 4D 6F 64 20 34 29 2B 31 5D 3A 3D 27 30 27 3B 0D  Mod 4)+1]:='0';.
000090: 0A 20 20 20 20 20 20 46 6F 72 20 49 3A 3D 30 20  .      For I:=0 
0000A0: 54 6F 20 33 20 64 6F 20 42 5B 49 5D 5B 30 5D 3A  To 3 do B[I][0]:
0000B0: 3D 43 68 72 28 34 29 3B 0D 0A 20 20 20 20 20 20  =Chr(4);..      
0000C0: 42 69 6E 61 72 79 3A 3D 42 5B 30 5D 2B 27 20 27  Binary:=B[0]+' '
0000D0: 2B 42 5B 31 5D 2B 27 20 27 2B 42 5B 32 5D 2B 27  +B[1]+' '+B[2]+'
0000E0: 20 27 2B 42 5B 33 5D 3B 0D 0A 20 20 20 20 65 6E   '+B[3];..    en
0000F0: 64 3B 0D 0A 0D 0A 0D 0A 20 20 62 65 67 69 6E 0D  d;......  begin.
000100: 0A 20 20 20 20 57 72 69 74 65 28 27 42 69 74 74  .    Write('Bitt
000110: 65 20 50 6F 72 74 20 4E 75 6D 6D 65 72 20 65 69  e Port Nummer ei
000120: 6E 67 65 62 65 6E 3A 20 20 20 20 20 20 20 20 20  ngeben:         
000130: 20 20 20 20 20 20 27 29 3B 0D 0A 20 20 20 20 52        ');..    R
000140: 65 61 64 4C 6E 28 50 6F 72 74 29 3B 0D 0A 20 20  eadLn(Port);..  
000150: 20 20 41 73 73 69 67 6E 55 73 72 28 50 6F 72 74    AssignUsr(Port
000160: 29 3B 0D 0A 20 20 20 20 57 72 69 74 65 28 27 42  );..    Write('B
000170: 69 74 74 65 20 42 61 75 64 72 61 74 65 20 65 69  itte Baudrate ei
000180: 6E 67 65 62 65 6E 3A 20 20 20 20 20 20 20 20 20  ngeben:         
000190: 20 20 20 20 20 20 20 20 20 27 29 3B 0D 0A 20 20           ');..  
0001A0: 20 20 52 65 61 64 4C 6E 28 42 61 75 64 29 3B 0D    ReadLn(Baud);.
0001B0: 0A 20 20 20 20 57 72 69 74 65 28 27 42 69 74 74  .    Write('Bitt
0001C0: 65 20 53 74 6F 70 70 62 69 74 73 20 65 69 6E 67  e Stoppbits eing
0001D0: 65 62 65 6E 3A 20 20 20 20 20 20 20 20 20 20 20  eben:           
0001E0: 20 20 20 20 20 20 27 29 3B 0D 0A 20 20 20 20 52        ');..    R
0001F0: 65 61 64 4C 6E 28 53 74 6F 70 42 69 74 73 29 3B  eadLn(StopBits);

Size : 512 (Real : 512)
000000: 31 31 20 64 6F 0D 0A 20 20 20 20 20 20 20 57 72  11 do..       Wr
000010: 69 74 65 28 43 68 61 72 28 4D 65 6D 5B 41 64 64  ite(Char(Mem[Add
000020: 72 28 44 4D 41 29 2B 4C 6F 6F 70 5D 29 29 3B 0D  r(DMA)+Loop]));.
000030: 0A 20 20 20 20 20 57 72 69 74 65 4C 6E 0D 0A 20  .     WriteLn.. 
000040: 20 65 6E 64 0D 0A 20 75 6E 74 69 6C 20 45 72 72   end.. until Err
000050: 6F 72 3D 32 35 35 0D 0A 65 6E 64 2E 20 28 2A 20  or=255..end. (* 
000060: 64 65 73 20 50 72 6F 67 72 61 6D 6D 73 20 43 50  des Programms CP
000070: 4D 38 30 44 69 72 20 2A 29 0D 0A 1A 1A 1A 1A 1A  M80Dir *).......
000080: 74 65 28 43 68 61 72 28 4D 65 6D 5B 41 64 64 72  te(Char(Mem[Addr
000090: 28 44 4D 41 29 2B 4C 6F 6F 70 5D 29 29 3B 0D 0A  (DMA)+Loop]));..
0000A0: 20 20 20 20 57 72 69 74 65 28 27 20 27 29 3B 0D      Write(' ');.
0000B0: 0A 20 20 20 20 66 6F 72 20 4C 6F 6F 70 3A 3D 20  .    for Loop:= 
0000C0: 53 74 61 72 74 2B 39 20 74 6F 20 53 74 61 72 74  Start+9 to Start
0000D0: 2B 31 31 20 64 6F 0D 0A 20 20 20 20 20 20 57 72  +11 do..      Wr
0000E0: 69 74 65 28 43 68 61 72 28 4D 65 6D 5B 41 64 64  ite(Char(Mem[Add
0000F0: 72 28 44 4D 41 29 2B 4C 6F 6F 70 5D 29 29 3B 0D  r(DMA)+Loop]));.
000100: 0A 20 20 20 20 57 72 69 74 65 4C 6E 0D 0A 20 20  .    WriteLn..  
000110: 65 6E 64 3B 0D 0A 20 20 72 65 70 65 61 74 0D 0A  end;..  repeat..
000120: 20 20 20 20 45 72 72 6F 72 20 3A 3D 20 42 44 6F      Error := BDo
000130: 73 28 73 65 61 72 63 68 5F 4E 65 78 74 29 3B 0D  s(search_Next);.
000140: 0A 20 20 20 20 53 74 61 72 74 20 3A 3D 20 45 72  .    Start := Er
000150: 72 6F 72 20 2A 20 33 32 3B 0D 0A 20 20 20 20 69  ror * 32;..    i
000160: 66 20 45 72 72 6F 72 20 3C 3E 20 32 35 35 20 74  f Error <> 255 t
000170: 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20  hen begin..     
000180: 20 66 6F 72 20 4C 6F 6F 70 3A 3D 20 53 74 61 72   for Loop:= Star
000190: 74 20 74 6F 20 73 74 61 72 74 2B 38 20 64 6F 0D  t to start+8 do.
0001A0: 0A 20 20 20 20 20 20 20 20 57 72 69 74 65 28 43  .        Write(C
0001B0: 68 61 72 28 4D 65 6D 5B 41 64 64 72 28 44 4D 41  har(Mem[Addr(DMA
0001C0: 29 2B 4C 6F 6F 70 5D 29 29 3B 0D 0A 20 20 20 20  )+Loop]));..    
0001D0: 20 20 57 72 69 74 65 28 27 20 27 29 3B 0D 0A 20    Write(' ');.. 
0001E0: 20 20 20 20 66 6F 72 20 4C 6F 6F 70 3A 3D 20 53      for Loop:= S
0001F0: 74 61 72 74 2B 39 20 74 6F 20 53 74 61 72 74 2B  tart+9 to Start+

Size : 512 (Real : 512)
000000: 20 20 4E 75 6D 62 65 72 3A 3D 4E 75 6D 62 65 72    Number:=Number
000010: 20 73 68 72 20 34 0D 0A 20 20 20 65 6E 64 3B 0D   shr 4..   end;.
000020: 0A 20 20 20 48 65 78 3A 3D 48 0D 0A 65 6E 64 3B  .   Hex:=H..end;
000030: 20 28 2A 20 6F 66 20 70 72 6F 63 20 48 65 78 20   (* of proc Hex 
000040: 2A 29 0D 0A 0D 0A 0D 0A 62 65 67 69 6E 20 28 2A  *)......begin (*
000050: 20 64 65 73 20 50 72 6F 67 72 61 6D 6D 73 20 43   des Programms C
000060: 50 4D 53 74 61 74 75 73 20 2A 29 0D 0A 20 20 20  PMStatus *)..   
000070: 43 6C 72 53 63 72 3B 0D 0A 20 20 20 77 72 69 74  ClrScr;..   writ
000080: 65 6C 6E 28 0D 0A 27 41 6E 67 65 6D 65 6C 64 65  eln(..'Angemelde
000090: 74 2D 20 20 2D 2D 2D 2D 20 52 65 63 6F 72 64 73  t-  ---- Records
0000A0: 20 2D 2D 2D 2D 20 20 20 2D 20 53 70 75 72 65 6E   ----   - Spuren
0000B0: 20 2D 20 20 20 2D 2D 20 4B 61 70 61 7A 69 74 61   -   -- Kapazita
0000C0: 65 74 20 2D 2D 20 20 20 2D 2D 2D 20 54 50 41 20  et --   --- TPA 
0000D0: 2D 2D 2D 27 29 3B 20 20 77 72 69 74 65 6C 6E 28  ---');  writeln(
0000E0: 0D 0A 27 44 72 69 76 65 20 55 73 65 72 20 20 20  ..'Drive User   
0000F0: 42 6C 6F 63 6B 20 54 72 61 63 6B 20 44 72 69 76  Block Track Driv
000100: 65 20 20 20 53 79 73 2E 20 44 72 69 76 65 20 20  e   Sys. Drive  
000110: 20 44 69 72 65 63 74 6F 72 79 20 44 72 69 76 65   Directory Drive
000120: 20 20 20 20 42 79 74 65 73 20 20 20 20 20 4B 27      Bytes     K'
000130: 29 3B 0D 0A 28 2A 20 20 78 3A 20 20 20 78 78 78  );..(*  x:   xxx
000140: 20 20 20 78 78 78 78 78 20 78 78 78 78 78 20 78     xxxxx xxxxx x
000150: 78 78 78 78 20 20 20 78 78 78 20 20 78 78 78 78  xxxx   xxx  xxxx
000160: 78 20 20 20 78 78 78 78 2F 78 78 78 78 20 78 78  x   xxxx/xxxx xx
000170: 78 78 78 4B 20 20 20 78 78 78 78 78 20 20 78 78  xxxK   xxxxx  xx
000180: 2E 78 20 2A 29 0D 0A 0D 0A 20 20 20 57 72 69 74  .x *)....   Writ
000190: 65 28 27 20 20 27 2C 20 43 68 72 28 42 64 6F 73  e('  ', Chr(Bdos
0001A0: 28 43 75 72 44 69 73 6B 29 20 2B 20 4F 72 64 28  (CurDisk) + Ord(
0001B0: 27 41 27 29 29 2C 20 27 3A 20 20 20 27 2C 0D 0A  'A')), ':   ',..
0001C0: 20 20 20 20 20 20 20 20 20 42 64 6F 73 28 47 65           Bdos(Ge
0001D0: 74 55 73 65 72 2C 24 46 46 46 46 29 3A 33 2C 20  tUser,$FFFF):3, 
0001E0: 27 20 20 20 27 29 3B 0D 0A 20 20 20 44 50 42 3A  '   ');..   DPB:
0001F0: 3D 50 74 72 28 42 64 6F 73 48 4C 28 44 69 73 6B  =Ptr(BdosHL(Disk

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

Size : 512 (Real : 512)
000000: 50 61 72 61 6D 29 29 3B 0D 0A 20 20 20 77 69 74  Param));..   wit
000010: 68 20 44 50 42 5E 20 64 6F 20 62 65 67 69 6E 0D  h DPB^ do begin.
000020: 0A 20 20 20 20 20 52 65 63 73 50 72 42 6C 6F 63  .     RecsPrBloc
000030: 6B 3A 3D 42 4C 4D 2B 31 3B 0D 0A 20 20 20 20 20  k:=BLM+1;..     
000040: 57 72 69 74 65 28 52 65 63 73 50 72 42 6C 6F 63  Write(RecsPrBloc
000050: 6B 3A 35 29 3B 0D 0A 20 20 20 20 20 57 72 69 74  k:5);..     Writ
000060: 65 28 53 50 54 3A 36 29 3B 0D 0A 20 20 20 20 20  e(SPT:6);..     
000070: 52 65 63 73 50 72 44 72 69 76 65 3A 3D 28 44 53  RecsPrDrive:=(DS
000080: 4D 68 69 2A 32 35 36 2E 30 20 2B 20 44 53 4D 6C  Mhi*256.0 + DSMl
000090: 6F 20 2B 20 31 2E 30 29 2A 52 65 63 73 50 72 42  o + 1.0)*RecsPrB
0000A0: 6C 6F 63 6B 3B 0D 0A 20 20 20 20 20 57 72 69 74  lock;..     Writ
0000B0: 65 28 52 65 63 73 50 72 44 72 69 76 65 3A 36 3A  e(RecsPrDrive:6:
0000C0: 30 2C 27 20 20 20 27 29 3B 0D 0A 20 20 20 20 20  0,'   ');..     
0000D0: 57 72 69 74 65 28 4F 46 46 3A 33 29 3B 0D 0A 20  Write(OFF:3);.. 
0000E0: 20 20 20 20 54 72 6B 73 50 72 44 72 69 76 65 3A      TrksPrDrive:
0000F0: 3D 52 65 63 73 50 72 44 72 69 76 65 2F 53 50 54  =RecsPrDrive/SPT
000100: 20 2B 20 4F 46 46 3B 0D 0A 20 20 20 20 20 69 66   + OFF;..     if
000110: 20 54 72 6B 73 50 72 44 72 69 76 65 20 3C 3E 20   TrksPrDrive <> 
000120: 54 72 75 6E 63 28 54 72 6B 73 50 72 44 72 69 76  Trunc(TrksPrDriv
000130: 65 29 0D 0A 20 20 20 20 20 20 20 74 68 65 6E 20  e)..       then 
000140: 54 72 6B 73 50 72 44 72 69 76 65 3A 3D 54 72 6B  TrksPrDrive:=Trk
000150: 73 50 72 44 72 69 76 65 2B 31 3B 0D 0A 20 20 20  sPrDrive+1;..   
000160: 20 20 57 72 69 74 65 28 54 72 75 6E 63 28 54 72    Write(Trunc(Tr
000170: 6B 73 50 72 44 72 69 76 65 29 3A 37 2C 27 20 20  ksPrDrive):7,'  
000180: 20 27 29 3B 0D 0A 20 20 20 20 20 57 72 69 74 65   ');..     Write
000190: 28 44 52 4D 2B 31 3A 34 2C 27 2F 27 2C 43 4B 53  (DRM+1:4,'/',CKS
0001A0: 2A 34 3A 34 2C 54 72 75 6E 63 28 52 65 63 73 50  *4:4,Trunc(RecsP
0001B0: 72 44 72 69 76 65 2F 38 29 3A 36 2C 27 4B 27 29  rDrive/8):6,'K')
0001C0: 3B 0D 0A 20 20 20 65 6E 64 3B 0D 0A 20 20 20 54  ;..   end;..   T
0001D0: 50 41 3A 3D 32 2E 30 2A 28 42 44 4F 53 61 64 64  PA:=2.0*(BDOSadd
0001E0: 72 20 53 48 52 20 31 29 20 2D 20 24 31 30 30 3B  r SHR 1) - $100;
0001F0: 0D 0A 20 20 20 57 72 69 74 65 4C 6E 28 54 50 41  ..   WriteLn(TPA

Size : 512 (Real : 512)
000000: 0D 0A 70 72 6F 67 72 61 6D 20 43 50 4D 73 74 61  ..program CPMsta
000010: 74 75 73 3B 0D 0A 28 2A 0D 0A 20 20 20 20 20 20  tus;..(*..      
000020: 20 5A 65 69 67 74 20 43 50 2F 4D 20 53 74 61 74   Zeigt CP/M Stat
000030: 75 73 20 49 6E 66 6F 72 6D 61 74 69 6F 6E 65 6E  us Informationen
000040: 0D 0A 2A 29 0D 0A 63 6F 6E 73 74 0D 0A 20 20 43  ..*)..const..  C
000050: 50 4D 76 65 72 73 69 6F 6E 20 20 20 20 20 20 20  PMversion       
000060: 20 20 20 20 3D 20 20 20 31 32 3B 0D 0A 20 20 43      =   12;..  C
000070: 75 72 44 69 73 6B 20 20 20 20 20 20 20 20 20 20  urDisk          
000080: 20 20 20 20 3D 20 20 20 32 35 3B 0D 0A 20 20 41      =   25;..  A
000090: 6C 6C 6F 63 56 65 63 74 6F 72 20 20 20 20 20 20  llocVector      
0000A0: 20 20 20 20 3D 20 20 20 32 37 3B 0D 0A 20 20 44      =   27;..  D
0000B0: 69 73 6B 50 61 72 61 6D 20 20 20 20 20 20 20 20  iskParam        
0000C0: 20 20 20 20 3D 20 20 20 33 31 3B 0D 0A 20 20 47      =   31;..  G
0000D0: 65 74 55 73 65 72 20 20 20 20 20 20 20 20 20 20  etUser          
0000E0: 20 20 20 20 3D 20 20 20 33 32 3B 0D 0A 0D 0A 0D      =   32;.....
0000F0: 0A 74 79 70 65 0D 0A 20 20 57 6F 72 64 20 20 20  .type..  Word   
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3D 20                = 
000110: 49 6E 74 65 67 65 72 3B 0D 0A 20 20 48 65 78 53  Integer;..  HexS
000120: 74 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20  tr              
000130: 20 3D 20 73 74 72 69 6E 67 5B 34 5D 3B 0D 0A 0D   = string[4];...
000140: 0A 20 20 44 50 42 52 45 43 20 3D 0D 0A 20 20 20  .  DPBREC =..   
000150: 20 72 65 63 6F 72 64 0D 0A 20 20 20 20 20 20 53   record..      S
000160: 50 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20  PT              
000170: 3A 20 49 6E 74 65 67 65 72 3B 20 20 20 20 28 2A  : Integer;    (*
000180: 20 53 45 43 54 4F 52 45 4E 20 50 45 52 20 54 52   SECTOREN PER TR
000190: 41 43 4B 20 2A 29 0D 0A 20 20 20 20 20 20 42 53  ACK *)..      BS
0001A0: 48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A  H              :
0001B0: 20 42 79 74 65 3B 20 20 20 20 20 20 20 28 2A 20   Byte;       (* 
0001C0: 44 41 54 41 20 41 4C 4C 4F 43 41 54 49 4F 4E 20  DATA ALLOCATION 
0001D0: 42 4C 4F 43 4B 20 53 48 49 46 54 20 46 41 43 54  BLOCK SHIFT FACT
0001E0: 4F 52 20 2A 29 0D 0A 20 20 20 20 20 20 42 4C 4D  OR *)..      BLM
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20                : 

Size : 512 (Real : 512)
000000: 3A 38 3A 30 2C 27 27 2C 54 50 41 2F 31 30 32 34  :8:0,'',TPA/1024
000010: 3A 36 3A 31 29 3B 0D 0A 20 20 20 57 72 69 74 65  :6:1);..   Write
000020: 4C 6E 3B 0D 0A 20 20 20 77 72 69 74 65 6C 6E 28  Ln;..   writeln(
000030: 27 2D 20 20 42 65 74 72 69 65 62 73 73 79 73 74  '-  Betriebssyst
000040: 65 6D 20 20 2D 27 29 3B 0D 0A 20 20 20 77 72 69  em  -');..   wri
000050: 74 65 6C 6E 28 27 20 56 65 72 73 69 6F 6E 20 20  teln(' Version  
000060: 42 44 4F 53 20 20 42 49 4F 53 27 29 3B 0D 0A 20  BDOS  BIOS');.. 
000070: 20 20 20 20 20 20 20 20 20 20 28 2A 78 78 78 78            (*xxxx
000080: 20 78 2E 78 20 20 78 78 78 78 20 20 78 78 78 78   x.x  xxxx  xxxx
000090: 2A 29 0D 0A 20 20 20 52 65 73 75 6C 74 3A 3D 42  *)..   Result:=B
0000A0: 64 6F 73 48 4C 28 43 50 4D 76 65 72 73 69 6F 6E  dosHL(CPMversion
0000B0: 29 3B 0D 0A 20 20 20 56 65 72 73 69 6F 6E 3A 3D  );..   Version:=
0000C0: 48 69 28 52 65 73 75 6C 74 29 3B 0D 0A 20 20 20  Hi(Result);..   
0000D0: 69 66 20 56 65 72 73 69 6F 6E 20 3D 20 30 0D 0A  if Version = 0..
0000E0: 20 20 20 20 20 74 68 65 6E 20 57 72 69 74 65 28       then Write(
0000F0: 27 43 50 2F 4D 20 27 29 0D 0A 20 20 20 65 6C 73  'CP/M ')..   els
000100: 65 20 69 66 20 56 65 72 73 69 6F 6E 20 3D 20 31  e if Version = 1
000110: 0D 0A 20 20 20 20 20 74 68 65 6E 20 57 72 69 74  ..     then Writ
000120: 65 28 27 4D 50 2F 4D 20 27 29 0D 0A 20 20 20 20  e('MP/M ')..    
000130: 20 65 6C 73 65 20 57 72 69 74 65 28 27 3F 3F 3F   else Write('???
000140: 3F 20 27 29 3B 0D 0A 20 20 20 56 65 72 73 69 6F  ? ');..   Versio
000150: 6E 3A 3D 4C 6F 28 52 65 73 75 6C 74 29 3B 0D 0A  n:=Lo(Result);..
000160: 20 20 20 69 66 20 56 65 72 73 69 6F 6E 20 3D 20     if Version = 
000170: 30 0D 0A 20 20 20 20 20 74 68 65 6E 20 57 72 69  0..     then Wri
000180: 74 65 28 27 31 2E 78 27 29 0D 0A 20 20 20 20 20  te('1.x')..     
000190: 65 6C 73 65 20 57 72 69 74 65 28 56 65 72 73 69  else Write(Versi
0001A0: 6F 6E 20 64 69 76 20 24 31 30 2C 20 27 2E 27 2C  on div $10, '.',
0001B0: 20 56 65 72 73 69 6F 6E 20 6D 6F 64 20 24 31 30   Version mod $10
0001C0: 29 3B 0D 0A 20 20 20 57 72 69 74 65 4C 6E 28 48  );..   WriteLn(H
0001D0: 65 78 28 42 44 4F 53 61 64 64 72 2C 20 32 29 3A  ex(BDOSaddr, 2):
0001E0: 36 2C 20 48 65 78 28 42 49 4F 53 61 64 64 72 2D  6, Hex(BIOSaddr-
0001F0: 33 2C 20 32 29 3A 36 29 3B 0D 0A 65 6E 64 2E 20  3, 2):6);..end. 

Size : 512 (Real : 512)
000000: 42 79 74 65 3B 0D 0A 20 20 20 20 20 20 45 58 4D  Byte;..      EXM
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20                : 
000020: 42 79 74 65 3B 0D 0A 28 2A 20 20 20 20 44 53 4D  Byte;..(*    DSM
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20                : 
000040: 49 6E 74 65 67 65 72 3B 20 20 20 20 7B 20 54 4F  Integer;    { TO
000050: 54 41 4C 20 53 54 4F 52 41 47 45 20 43 41 50 41  TAL STORAGE CAPA
000060: 43 49 54 59 20 7D 20 2A 29 0D 0A 20 20 20 20 20  CITY } *)..     
000070: 20 44 53 4D 6C 6F 20 20 20 20 20 20 20 20 20 20   DSMlo          
000080: 20 20 3A 20 42 79 74 65 3B 0D 0A 20 20 20 20 20    : Byte;..     
000090: 20 44 53 4D 68 69 20 20 20 20 20 20 20 20 20 20   DSMhi          
0000A0: 20 20 3A 20 42 79 74 65 3B 0D 0A 20 20 20 20 20    : Byte;..     
0000B0: 20 44 52 4D 20 20 20 20 20 20 20 20 20 20 20 20   DRM            
0000C0: 20 20 3A 20 49 6E 74 65 67 65 72 3B 20 20 20 20    : Integer;    
0000D0: 28 2A 20 4E 4F 20 6F 66 20 44 49 52 45 43 54 4F  (* NO of DIRECTO
0000E0: 52 59 20 45 4E 54 52 49 45 53 20 2A 29 0D 0A 20  RY ENTRIES *).. 
0000F0: 20 20 20 20 20 41 4C 30 2C 41 4C 31 20 20 20 20       AL0,AL1    
000100: 20 20 20 20 20 20 3A 20 42 79 74 65 3B 0D 0A 20        : Byte;.. 
000110: 20 20 20 20 20 43 4B 53 20 20 20 20 20 20 20 20       CKS        
000120: 20 20 20 20 20 20 3A 20 49 6E 74 65 67 65 72 3B        : Integer;
000130: 0D 0A 20 20 20 20 20 20 4F 46 46 20 20 20 20 20  ..      OFF     
000140: 20 20 20 20 20 20 20 20 20 3A 20 49 6E 74 65 67           : Integ
000150: 65 72 0D 0A 20 20 20 20 65 6E 64 3B 20 28 2A 20  er..    end; (* 
000160: 44 50 42 52 45 43 20 2A 29 0D 0A 0D 0A 0D 0A 76  DPBREC *)......v
000170: 61 72 0D 0A 20 20 44 50 42 20 20 20 20 20 20 20  ar..  DPB       
000180: 20 20 20 20 20 20 20 20 20 20 20 3A 20 5E 44 50             : ^DP
000190: 42 52 45 43 3B 0D 0A 20 20 52 65 63 73 50 72 42  BREC;..  RecsPrB
0001A0: 6C 6F 63 6B 20 20 20 20 20 20 20 20 20 20 3A 20  lock          : 
0001B0: 49 6E 74 65 67 65 72 3B 0D 0A 20 20 52 65 63 73  Integer;..  Recs
0001C0: 50 72 44 72 69 76 65 20 20 20 20 20 20 20 20 20  PrDrive         
0001D0: 20 3A 20 52 65 61 6C 3B 0D 0A 20 20 54 72 6B 73   : Real;..  Trks
0001E0: 50 72 44 72 69 76 65 20 20 20 20 20 20 20 20 20  PrDrive         
0001F0: 20 3A 20 52 65 61 6C 3B 0D 0A 0D 0A 20 20 42 49   : Real;....  BI

Size : 512 (Real : 512)
000000: 28 2A 20 64 65 73 20 50 72 6F 67 72 61 6D 6D 73  (* des Programms
000010: 20 43 50 4D 53 74 61 74 75 73 20 2A 29 0D 0A 0D   CPMStatus *)...
000020: 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000030: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000040: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000050: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000060: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000070: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000080: 20 78 2E 78 20 20 78 78 78 78 20 20 78 78 78 78   x.x  xxxx  xxxx
000090: 2A 29 0D 0A 20 20 20 52 65 73 75 6C 74 3A 3D 42  *)..   Result:=B
0000A0: 64 6F 73 48 4C 28 43 50 4D 76 65 72 73 69 6F 6E  dosHL(CPMversion
0000B0: 29 3B 0D 0A 20 20 20 56 65 72 73 69 6F 6E 3A 3D  );..   Version:=
0000C0: 48 69 28 52 65 73 75 6C 74 29 3B 0D 0A 20 20 20  Hi(Result);..   
0000D0: 69 66 20 56 65 72 73 69 6F 6E 20 3D 20 30 0D 0A  if Version = 0..
0000E0: 20 20 20 20 20 74 68 65 6E 20 57 72 69 74 65 28       then Write(
0000F0: 27 43 50 2F 4D 20 27 29 0D 0A 20 20 20 65 6C 73  'CP/M ')..   els
000100: 65 20 69 66 20 56 65 72 73 69 6F 6E 20 3D 20 31  e if Version = 1
000110: 0D 0A 20 20 20 20 20 74 68 65 6E 20 57 72 69 74  ..     then Writ
000120: 65 28 27 4D 50 2F 4D 20 27 29 0D 0A 20 20 20 20  e('MP/M ')..    
000130: 20 65 6C 73 65 20 57 72 69 74 65 28 27 3F 3F 3F   else Write('???
000140: 3F 20 27 29 3B 0D 0A 20 20 20 56 65 72 73 69 6F  ? ');..   Versio
000150: 6E 3A 3D 4C 6F 28 52 65 73 75 6C 74 29 3B 0D 0A  n:=Lo(Result);..
000160: 20 20 20 69 66 20 56 65 72 73 69 6F 6E 20 3D 20     if Version = 
000170: 30 0D 0A 20 20 20 20 20 74 68 65 6E 20 57 72 69  0..     then Wri
000180: 74 65 28 27 31 2E 78 27 29 0D 0A 20 20 20 20 20  te('1.x')..     
000190: 65 6C 73 65 20 57 72 69 74 65 28 56 65 72 73 69  else Write(Versi
0001A0: 6F 6E 20 64 69 76 20 24 31 30 2C 20 27 2E 27 2C  on div $10, '.',
0001B0: 20 56 65 72 73 69 6F 6E 20 6D 6F 64 20 24 31 30   Version mod $10
0001C0: 29 3B 0D 0A 20 20 20 57 72 69 74 65 4C 6E 28 48  );..   WriteLn(H
0001D0: 65 78 28 42 44 4F 53 61 64 64 72 2C 20 32 29 3A  ex(BDOSaddr, 2):
0001E0: 36 2C 20 48 65 78 28 42 49 4F 53 61 64 64 72 2D  6, Hex(BIOSaddr-
0001F0: 33 2C 20 32 29 3A 36 29 3B 0D 0A 65 6E 64 2E 20  3, 2):6);..end. 

Size : 512 (Real : 512)
000000: 4F 53 61 64 64 72 20 20 20 20 20 20 20 20 20 20  OSaddr          
000010: 20 20 20 3A 20 49 6E 74 65 67 65 72 20 61 62 73     : Integer abs
000020: 6F 6C 75 74 65 20 31 3B 0D 0A 20 20 42 44 4F 53  olute 1;..  BDOS
000030: 61 64 64 72 20 20 20 20 20 20 20 20 20 20 20 20  addr            
000040: 20 3A 20 49 6E 74 65 67 65 72 20 61 62 73 6F 6C   : Integer absol
000050: 75 74 65 20 36 3B 0D 0A 0D 0A 20 20 54 50 41 20  ute 6;....  TPA 
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000070: 20 3A 20 52 65 61 6C 3B 0D 0A 20 20 56 65 72 73   : Real;..  Vers
000080: 69 6F 6E 20 20 20 20 20 20 20 20 20 20 20 20 20  ion             
000090: 20 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 20 20 52   : Integer;..  R
0000A0: 65 73 75 6C 74 20 20 20 20 20 20 20 20 20 20 20  esult           
0000B0: 20 20 20 20 3A 20 49 6E 74 65 67 65 72 3B 0D 0A      : Integer;..
0000C0: 0D 0A 0D 0A 66 75 6E 63 74 69 6F 6E 20 48 65 78  ....function Hex
0000D0: 28 4E 75 6D 62 65 72 3A 20 49 6E 74 65 67 65 72  (Number: Integer
0000E0: 3B 20 20 42 79 74 65 73 3A 20 49 6E 74 65 67 65  ;  Bytes: Intege
0000F0: 72 29 3A 20 48 65 78 53 74 72 3B 0D 0A 63 6F 6E  r): HexStr;..con
000100: 73 74 0D 0A 20 20 54 20 20 20 20 20 20 20 20 20  st..  T         
000110: 20 20 20 20 20 20 20 20 20 20 20 3A 20 61 72 72             : arr
000120: 61 79 5B 30 2E 2E 31 35 5D 20 6F 66 20 43 68 61  ay[0..15] of Cha
000130: 72 20 3D 20 27 30 31 32 33 34 35 36 37 38 39 41  r = '0123456789A
000140: 42 43 44 45 46 27 3B 0D 0A 76 61 72 0D 0A 20 20  BCDEF';..var..  
000150: 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  D               
000160: 20 20 20 20 20 3A 20 49 6E 74 65 67 65 72 3B 0D       : Integer;.
000170: 0A 20 20 48 20 20 20 20 20 20 20 20 20 20 20 20  .  H            
000180: 20 20 20 20 20 20 20 20 3A 20 48 65 78 53 74 72          : HexStr
000190: 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 20 48 5B 30  ;..begin..   H[0
0001A0: 5D 3A 3D 43 68 72 28 42 79 74 65 73 2B 42 79 74  ]:=Chr(Bytes+Byt
0001B0: 65 73 29 3B 0D 0A 20 20 20 66 6F 72 20 44 3A 3D  es);..   for D:=
0001C0: 42 79 74 65 73 2B 42 79 74 65 73 20 64 6F 77 6E  Bytes+Bytes down
0001D0: 74 6F 20 31 20 64 6F 20 62 65 67 69 6E 0D 0A 20  to 1 do begin.. 
0001E0: 20 20 20 20 48 5B 44 5D 3A 3D 54 5B 4E 75 6D 62      H[D]:=T[Numb
0001F0: 65 72 20 61 6E 64 20 31 35 5D 3B 0D 0A 20 20 20  er and 15];..   

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

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000010: 20 20 20 20 20 20 20 28 2A 20 73 65 74 7A 65 20         (* setze 
000020: 44 54 41 20 53 70 65 69 63 68 65 72 73 74 65 6C  DTA Speicherstel
000030: 6C 65 20 2A 29 0D 0A 20 20 4D 61 73 6B 20 3A 3D  le *)..  Mask :=
000040: 20 27 3F 3F 3F 3F 3F 3F 3F 3F 2E 3F 3F 3F 27 3B   '????????.???';
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20               (* 
000060: 62 65 6E 75 74 7A 65 20 67 6C 6F 62 61 6C 65 73  benutze globales
000070: 20 53 75 63 68 65 6E 20 2A 29 0D 0A 20 20 52 65   Suchen *)..  Re
000080: 67 73 2E 41 58 20 3A 3D 20 24 34 45 30 30 3B 20  gs.AX := $4E00; 
000090: 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 6E 69             (* ni
0000A0: 6D 6D 20 65 72 73 74 65 20 44 69 72 65 63 74 6F  mm erste Directo
0000B0: 72 79 65 69 6E 74 72 61 67 75 6E 67 20 2A 29 0D  ryeintragung *).
0000C0: 0A 20 20 52 65 67 73 2E 44 53 20 3A 3D 20 53 65  .  Regs.DS := Se
0000D0: 67 28 4D 61 73 6B 29 3B 20 20 20 20 20 20 20 20  g(Mask);        
0000E0: 20 20 20 20 20 28 2A 20 7A 65 69 67 65 20 61 75       (* zeige au
0000F0: 66 20 64 69 65 20 44 61 74 65 69 20 4D 61 73 6B  f die Datei Mask
000100: 65 20 2A 29 0D 0A 20 20 52 65 67 73 2E 44 58 20  e *)..  Regs.DX 
000110: 3A 3D 20 4F 66 73 28 4D 61 73 6B 29 3B 0D 0A 20  := Ofs(Mask);.. 
000120: 20 52 65 67 73 2E 43 58 20 3A 3D 20 32 32 3B 20   Regs.CX := 22; 
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20               (* 
000150: 41 74 74 72 69 62 75 74 20 73 65 74 7A 65 6E 20  Attribut setzen 
000160: 2A 29 0D 0A 20 20 4D 73 44 6F 73 28 52 65 67 73  *)..  MsDos(Regs
000170: 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20  );              
000180: 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 4D 53             (* MS
000190: 20 44 4F 53 20 46 75 6E 6B 74 69 6F 6E 73 61 75   DOS Funktionsau
0001A0: 66 72 75 66 20 2A 29 0D 0A 20 20 46 65 68 6C 65  fruf *)..  Fehle
0001B0: 72 20 3A 3D 20 52 65 67 73 2E 41 58 20 61 6E 64  r := Regs.AX and
0001C0: 20 24 46 46 3B 20 20 20 20 20 20 20 20 20 20 20   $FF;           
0001D0: 20 20 20 20 20 20 28 2A 20 46 65 68 6C 65 72 63        (* Fehlerc
0001E0: 6F 64 65 20 68 6F 6C 65 6E 20 2A 29 0D 0A 20 20  ode holen *)..  
0001F0: 49 20 3A 3D 20 31 3B 20 20 20 20 20 20 20 20 20  I := 1;         

Size : 512 (Real : 512)
000000: 01 00 E8 03 20 01 50 30 DA CA E9 DA 23 FE 2A C2  .... .P0....#.*.
000010: D9 DA 36 3F C3 DB DA 77 13 05 00 C8 DA CD 30 DA  ..6?...w......0.
000020: CA F0 DA 13 C3 DF DA 23 36 20 05 C2 E9 DA 06 01  .......#6 ......
000030: 00 01 00 0A 25 46 20 70 61 67 65 20 25 23 00 23  ....%F page %#.#
000040: 7E FE 3F C2 09 DB 04 0D C2 01 DB 78 B7 C9 44 49  ~.?........x..DI
000050: 52 20 45 52 41 20 54 59 50 45 53 41 56 45 52 45  R ERA TYPESAVERE
000060: 4E 20 55 53 45 52 A8 16 00 00 00 84 21 10 DB 0E  N USER......!...
000070: 00 79 FE 06 D0 11 CE DF 06 04 1A BE C2 4F DB 13  .y...........O..
000080: 23 05 C2 3C DB 1A FE 20 C2 54 DB 79 C9 23 05 C2  #..<... .T.y.#..
000090: 4F DB 0C C3 33 DB AF 32 07 D8 31 AB DF C5 79 1F  O...3..2..1...y.
0000A0: 1F 1F 1F E6 0F 5F CD 15 D9 CD B8 D8 32 AB DF C1  ....._......2...
0000B0: 79 E6 0F 32 EF DF CD BD D8 3A 07 D8 B7 C2 98 DB  y..2.....:......
0000C0: 31 AB DF CD 98 D8 CD D0 D9 C6 41 CD 8C D8 3E 3E  1.........A...>>
0000D0: CD 8C D8 CD 39 D9 11 80 00 CD D8 D9 CD D0 D9 32  ....9..........2
0000E0: EF DF CD 5E DA C4 09 DA 3A F0 DF B7 C2 A5 DE CD  ...^....:.......
0000F0: 2E DB 21 C1 DB 5F 16 00 19 19 7E 23 16 4C 69 73  ..!.._....~#.Lis
000100: 74 69 6E 67 20 6F 66 20 25 46 2C 20 70 61 67 65  ting of %F, page
000110: 20 25 23 21 00 D8 E9 01 DF DB C3 A7 D8 52 45 41   %#!.........REA
000120: 44 20 45 52 52 4F 52 00 01 F0 DB C3 A7 D8 4E 4F  D ERROR.......NO
000130: 20 46 49 4C 45 00 CD 5E DA 3A F0 DF B7 C2 09 DA   FILE..^.:......
000140: 21 CE DF 01 0B 00 7E FE 20 CA 33 DC 23 D6 30 FE  !.....~. .3.#.0.
000150: 0A D2 09 DA 57 78 E6 E0 C2 09 DA 78 07 07 07 80  ....Wx.....x....
000160: DA 09 DA 80 DA 09 DA 82 DA 09 DA 47 0D C2 08 DC  ...........G....
000170: C9 7E FE 20 C2 09 DA 23 0D C2 33 DC 78 C9 06 03  .~. ...#..3.x...
000180: 7E 12 23 13 05 C2 42 DC C9 21 80 00 81 CD 59 DA  ~.#...B..!....Y.
000190: 7E C9 AF 32 CD DF 3A F0 DF B7 C8 3D 21 EF DF BE  ~..2..:....=!...
0001A0: C8 C3 BD D8 3A F0 DF B7 C8 3D 21 EF DF BE C8 3A  ....:....=!....:
0001B0: EF DF C3 BD D8 CD 5E DA CD 54 DC 21 CE DF 7E FE  ......^..T.!..~.
0001C0: 20 C2 8F DC 06 00 00 00 00 00 00 88 DC 1E 00 D5   ...............
0001D0: CD E9 D8 CC EA 00 CA 1B DD 3A EE DF 0F 0F 0F E6  .........:......
0001E0: 00 4F 3E 0A CD 4B DC 17 DA 0F DD 00 7B 1C D5 E6  .O>..K......{...
0001F0: 03 F5 C2 CC DC CD 4F 00 42 00 00 00 00 00 00 00  ......O.B.......

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 28 2A 20 69 6E 69 74 69 61         (* initia
000010: 6C 69 73 69 65 72 65 20 27 49 27 20 61 6C 73 20  lisiere 'I' als 
000020: 65 72 73 74 65 73 20 45 6C 65 6D 65 6E 74 20 2A  erstes Element *
000030: 29 0D 0A 20 20 69 66 20 28 46 65 68 6C 65 72 20  )..  if (Fehler 
000040: 3D 20 30 29 20 74 68 65 6E 0D 0A 20 20 20 20 72  = 0) then..    r
000050: 65 70 65 61 74 0D 0A 20 20 20 20 20 20 4E 61 6D  epeat..      Nam
000060: 52 5B 49 5D 20 3A 3D 20 43 68 72 28 4D 65 6D 5B  R[I] := Chr(Mem[
000070: 53 65 67 28 44 54 41 29 3A 4F 66 73 28 44 54 41  Seg(DTA):Ofs(DTA
000080: 29 2B 32 39 2B 49 5D 29 3B 0D 0A 20 20 20 20 20  )+29+I]);..     
000090: 20 49 20 3A 3D 20 49 20 2B 20 31 3B 0D 0A 20 20   I := I + 1;..  
0000A0: 20 20 75 6E 74 69 6C 20 6E 6F 74 20 28 4E 61 6D    until not (Nam
0000B0: 52 5B 49 2D 31 5D 20 69 6E 20 5B 27 20 27 2E 2E  R[I-1] in [' '..
0000C0: 27 7E 27 5D 29 20 6F 72 20 28 49 3E 32 30 29 3B  '~']) or (I>20);
0000D0: 0D 0A 0D 0A 20 20 4E 61 6D 52 5B 30 5D 20 3A 3D  ....  NamR[0] :=
0000E0: 20 43 68 72 28 49 2D 31 29 3B 20 20 20 20 20 20   Chr(I-1);      
0000F0: 20 20 20 20 28 2A 20 53 74 72 69 6E 67 6C 61 65      (* Stringlae
000100: 6E 67 65 20 65 69 6E 74 72 61 67 65 6E 20 64 61  nge eintragen da
000110: 20 73 69 65 20 64 75 72 63 68 20 2A 29 0D 0A 20   sie durch *).. 
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28                 (
000140: 2A 20 45 69 6E 7A 65 6C 65 69 6E 74 72 61 67 75  * Einzeleintragu
000150: 6E 67 20 76 6F 6E 20 42 75 63 68 73 74 61 62 65  ng von Buchstabe
000160: 6E 20 6E 69 63 68 74 0D 0A 20 20 20 20 20 20 20  n nicht..       
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000180: 20 20 20 20 20 20 20 20 20 20 20 20 67 65 73 65              gese
000190: 74 7A 74 20 20 77 69 72 64 20 2A 29 0D 0A 20 20  tzt  wird *)..  
0001A0: 77 68 69 6C 65 20 28 46 65 68 6C 65 72 20 3D 20  while (Fehler = 
0001B0: 30 29 20 64 6F 20 62 65 67 69 6E 0D 0A 20 20 20  0) do begin..   
0001C0: 20 46 65 68 6C 65 72 20 3A 3D 20 30 3B 0D 0A 20   Fehler := 0;.. 
0001D0: 20 20 20 52 65 67 73 2E 41 58 20 3A 3D 20 24 34     Regs.AX := $4
0001E0: 46 30 30 3B 20 20 20 20 20 20 20 20 28 2A 20 46  F00;        (* F
0001F0: 75 6E 6B 74 69 6F 6E 20 75 6D 20 64 65 6E 20 6E  unktion um den n

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

Size : 512 (Real : 512)
000000: 61 65 63 68 73 74 65 6E 20 45 69 6E 74 72 61 67  aechsten Eintrag
000010: 20 7A 75 20 66 69 6E 64 65 6E 20 2A 29 0D 0A 20   zu finden *).. 
000020: 20 20 20 52 65 67 73 2E 43 58 20 3A 3D 20 32 32     Regs.CX := 22
000030: 3B 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 41  ;           (* A
000040: 74 74 72 69 62 75 74 20 73 65 74 7A 65 6E 20 2A  ttribut setzen *
000050: 29 0D 0A 20 20 20 20 4D 53 44 6F 73 28 20 52 65  )..    MSDos( Re
000060: 67 73 20 29 3B 20 20 20 20 20 20 20 20 20 20 20  gs );           
000070: 28 2A 20 4D 53 44 6F 73 20 46 75 6E 6B 74 69 6F  (* MSDos Funktio
000080: 6E 73 61 75 66 72 75 66 20 2A 29 0D 0A 20 20 20  nsaufruf *)..   
000090: 20 46 65 68 6C 65 72 20 3A 3D 20 52 65 67 73 2E   Fehler := Regs.
0000A0: 41 58 20 61 6E 64 20 24 46 46 3B 28 2A 20 46 65  AX and $FF;(* Fe
0000B0: 68 6C 65 72 63 6F 64 65 20 68 6F 6C 65 6E 20 20  hlercode holen  
0000C0: 2A 29 0D 0A 20 20 20 20 49 20 3A 3D 20 31 3B 0D  *)..    I := 1;.
0000D0: 0A 20 20 20 20 72 65 70 65 61 74 0D 0A 20 20 20  .    repeat..   
0000E0: 20 20 20 4E 61 6D 52 5B 49 5D 20 3A 3D 20 43 68     NamR[I] := Ch
0000F0: 72 28 4D 65 6D 5B 53 65 67 28 44 54 41 29 3A 4F  r(Mem[Seg(DTA):O
000100: 66 73 28 44 54 41 29 2B 32 39 2B 49 5D 29 3B 0D  fs(DTA)+29+I]);.
000110: 0A 20 20 20 20 20 20 49 20 3A 3D 20 49 20 2B 20  .      I := I + 
000120: 31 3B 0D 0A 20 20 20 20 75 6E 74 69 6C 20 6E 6F  1;..    until no
000130: 74 20 28 4E 61 6D 52 5B 49 2D 31 5D 20 69 6E 20  t (NamR[I-1] in 
000140: 5B 27 20 27 2E 2E 27 7E 27 5D 20 29 20 6F 72 20  [' '..'~'] ) or 
000150: 28 49 20 3E 20 32 30 29 3B 0D 0A 20 20 20 20 4E  (I > 20);..    N
000160: 61 6D 52 5B 30 5D 20 3A 3D 20 43 68 72 28 49 2D  amR[0] := Chr(I-
000170: 31 29 3B 0D 0A 20 20 20 20 69 66 20 28 46 65 68  1);..    if (Feh
000180: 6C 65 72 20 3D 20 30 29 0D 0A 20 20 20 20 20 20  ler = 0)..      
000190: 74 68 65 6E 20 57 72 69 74 65 4C 6E 28 4E 61 6D  then WriteLn(Nam
0001A0: 52 29 0D 0A 20 20 65 6E 64 0D 0A 65 6E 64 2E 20  R)..  end..end. 
0001B0: 28 2A 20 76 6F 6E 20 20 44 69 72 4C 69 73 74 20  (* von  DirList 
0001C0: 20 2A 29 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A   *).............
0001D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0001E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0001F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................

Size : 512 (Real : 512)
000000: 0D 0A 70 72 6F 67 72 61 6D 20 44 69 72 4C 69 73  ..program DirLis
000010: 74 3B 0D 0A 28 2A 0D 0A 20 20 20 20 20 20 20 44  t;..(*..       D
000020: 69 65 73 65 73 20 50 72 6F 67 72 61 6D 6D 20 6C  ieses Programm l
000030: 69 73 74 65 74 20 64 61 73 20 49 6E 68 61 6C 74  istet das Inhalt
000040: 73 76 65 72 7A 65 69 63 68 6E 69 73 20 64 65 73  sverzeichnis des
000050: 20 61 6B 74 75 65 6C 6C 65 6E 0D 0A 20 20 20 20   aktuellen..    
000060: 20 20 20 4C 61 75 66 77 65 72 6B 73 0D 0A 2A 29     Laufwerks..*)
000070: 0D 0A 74 79 70 65 0D 0A 20 20 43 68 61 72 31 32  ..type..  Char12
000080: 61 72 72 20 20 20 20 20 20 20 20 20 20 20 20 3D  arr            =
000090: 20 61 72 72 61 79 20 5B 20 31 2E 2E 31 32 20 5D   array [ 1..12 ]
0000A0: 20 6F 66 20 43 68 61 72 3B 0D 0A 20 20 53 74 72   of Char;..  Str
0000B0: 69 6E 67 32 30 20 20 20 20 20 20 20 20 20 20 20  ing20           
0000C0: 20 20 3D 20 73 74 72 69 6E 67 5B 20 32 30 20 5D    = string[ 20 ]
0000D0: 3B 0D 0A 20 20 52 65 67 52 65 63 20 3D 0D 0A 20  ;..  RegRec =.. 
0000E0: 20 20 20 72 65 63 6F 72 64 0D 0A 20 20 20 20 20     record..     
0000F0: 20 41 58 2C 20 42 58 2C 20 43 58 2C 20 44 58 2C   AX, BX, CX, DX,
000100: 20 42 50 2C 20 53 49 2C 20 44 49 2C 20 44 53 2C   BP, SI, DI, DS,
000110: 20 45 53 2C 20 46 6C 61 67 73 20 3A 20 49 6E 74   ES, Flags : Int
000120: 65 67 65 72 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D  eger;..    end;.
000130: 0A 0D 0A 76 61 72 0D 0A 20 20 52 65 67 73 20 20  ...var..  Regs  
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A                 :
000150: 20 52 65 67 52 65 63 3B 0D 0A 20 20 44 54 41 20   RegRec;..  DTA 
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000170: 20 3A 20 61 72 72 61 79 20 5B 20 31 2E 2E 34 33   : array [ 1..43
000180: 20 5D 20 6F 66 20 42 79 74 65 3B 0D 0A 20 20 4D   ] of Byte;..  M
000190: 61 73 6B 20 20 20 20 20 20 20 20 20 20 20 20 20  ask             
0001A0: 20 20 20 20 3A 20 43 68 61 72 31 32 61 72 72 3B      : Char12arr;
0001B0: 0D 0A 20 20 4E 61 6D 52 20 20 20 20 20 20 20 20  ..  NamR        
0001C0: 20 20 20 20 20 20 20 20 20 3A 20 53 74 72 69 6E           : Strin
0001D0: 67 32 30 3B 0D 0A 20 20 46 65 68 6C 65 72 2C 20  g20;..  Fehler, 
0001E0: 49 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20  I             : 
0001F0: 49 6E 74 65 67 65 72 3B 0D 0A 0D 0A 62 65 67 69  Integer;....begi

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

Size : 512 (Real : 512)
000000: 6E 20 28 2A 20 48 61 75 70 74 70 72 6F 67 72 61  n (* Hauptprogra
000010: 6D 6D 20 2A 29 0D 0A 0D 0A 20 20 46 69 6C 6C 43  mm *)....  FillC
000020: 68 61 72 28 44 54 41 2C 53 69 7A 65 4F 66 28 44  har(DTA,SizeOf(D
000030: 54 41 29 2C 30 29 3B 20 20 20 20 28 2A 20 69 6E  TA),0);    (* in
000040: 69 74 69 61 6C 69 73 69 65 72 65 20 44 54 41 20  itialisiere DTA 
000050: 50 75 66 66 65 72 20 2A 29 0D 0A 20 20 46 69 6C  Puffer *)..  Fil
000060: 6C 43 68 61 72 28 4D 61 73 6B 2C 53 69 7A 65 4F  lChar(Mask,SizeO
000070: 66 28 4D 61 73 6B 29 2C 30 29 3B 20 20 20 20 20  f(Mask),0);     
000080: 20 20 20 20 28 2A 20 69 6E 69 74 69 61 6C 69 65      (* initialie
000090: 72 65 20 4D 61 73 6B 65 20 2A 29 0D 0A 20 20 46  re Maske *)..  F
0000A0: 69 6C 6C 43 68 61 72 28 4E 61 6D 52 2C 53 69 7A  illChar(NamR,Siz
0000B0: 65 4F 66 28 4E 61 6D 52 29 2C 30 29 3B 20 20 28  eOf(NamR),0);  (
0000C0: 2A 20 20 69 6E 69 74 69 61 6C 69 73 69 65 72 65  *  initialisiere
0000D0: 20 44 61 74 65 69 6E 61 6D 65 20 2A 29 0D 0A 0D   Dateiname *)...
0000E0: 0A 20 20 57 72 69 74 65 4C 6E 28 20 27 44 69 72  .  WriteLn( 'Dir
0000F0: 65 63 74 6F 72 79 2D 6C 69 73 74 2D 50 72 6F 67  ectory-list-Prog
000100: 72 61 6D 6D 20 66 75 65 72 20 4D 53 2D 44 6F 73  ramm fuer MS-Dos
000110: 2E 27 20 29 3B 0D 0A 20 20 57 72 69 74 65 4C 6E  .' );..  WriteLn
000120: 3B 0D 0A 20 20 52 65 67 73 2E 41 58 20 3A 3D 20  ;..  Regs.AX := 
000130: 24 31 41 30 30 3B 20 20 20 20 20 20 20 20 20 28  $1A00;         (
000140: 2A 20 62 65 6E 75 74 7A 65 20 46 75 6E 6B 74 69  * benutze Funkti
000150: 6F 6E 20 75 6D 20 44 54 41 20 7A 75 20 73 65 74  on um DTA zu set
000160: 7A 65 6E 20 2A 29 0D 0A 20 20 52 65 67 73 2E 44  zen *)..  Regs.D
000170: 53 20 3A 3D 20 53 65 67 28 44 54 41 29 3B 20 20  S := Seg(DTA);  
000180: 20 20 20 20 20 28 2A 20 73 70 65 69 63 68 65 72       (* speicher
000190: 65 20 53 65 67 6D 65 6E 74 70 61 72 61 6D 65 74  e Segmentparamet
0001A0: 65 72 20 69 6E 20 44 53 20 2A 29 0D 0A 20 20 52  er in DS *)..  R
0001B0: 65 67 73 2E 44 58 20 3A 3D 20 4F 66 73 28 44 54  egs.DX := Ofs(DT
0001C0: 41 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20  A);             
0001D0: 20 20 20 28 2A 20 73 70 65 69 63 68 65 72 65 20     (* speichere 
0001E0: 20 4F 66 66 73 65 74 20 69 6E 20 44 58 20 2A 29   Offset in DX *)
0001F0: 0D 0A 20 20 4D 53 44 6F 73 28 52 65 67 73 29 3B  ..  MSDos(Regs);

Size : 512 (Real : 512)
000000: 0D 0A 70 72 6F 67 72 61 6D 20 5A 65 69 67 65 44  ..program ZeigeD
000010: 69 73 6B 65 74 74 65 6E 53 74 61 74 75 73 3B 0D  iskettenStatus;.
000020: 0A 0D 0A 28 2A 0D 0A 20 20 20 20 20 20 20 5A 65  ...(*..       Ze
000030: 69 67 65 44 69 73 6B 65 74 74 65 6E 53 74 61 74  igeDiskettenStat
000040: 75 73 20 62 65 6E 75 74 7A 74 20 4D 53 44 4F 53  us benutzt MSDOS
000050: 20 46 75 6E 6B 74 69 6F 6E 65 6E 20 75 6D 20 4C   Funktionen um L
000060: 61 75 66 77 65 72 6B 73 69 6E 66 6F 72 6D 61 74  aufwerksinformat
000070: 69 6F 6E 65 6E 0D 0A 20 20 20 20 20 20 20 76 6F  ionen..       vo
000080: 6D 20 61 6B 74 75 65 6C 6C 65 6E 20 4C 61 75 66  m aktuellen Lauf
000090: 77 65 72 6B 20 6F 64 65 72 20 69 6E 20 64 65 72  werk oder in der
0000A0: 20 43 6F 6D 6D 61 6E 64 6C 69 6E 65 20 61 6E 67   Commandline ang
0000B0: 65 67 65 62 65 6E 65 6E 20 4C 61 75 66 77 65 72  egebenen Laufwer
0000C0: 6B 0D 0A 20 20 20 20 20 20 20 7A 75 20 65 72 68  k..       zu erh
0000D0: 61 6C 74 65 6E 2E 0D 0A 2A 29 0D 0A 28 2A 24 49  alten...*)..(*$I
0000E0: 2D 2C 55 2D 2C 43 2D 2A 29 0D 0A 0D 0A 74 79 70  -,U-,C-*)....typ
0000F0: 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  e               
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20               (* 
000110: 54 59 50 45 4E 20 44 65 6B 6C 61 72 69 65 72 75  TYPEN Deklarieru
000120: 6E 67 20 2A 29 0D 0A 20 20 52 65 67 52 65 63 20  ng *)..  RegRec 
000130: 3D 0D 0A 20 20 20 20 72 65 63 6F 72 64 20 20 20  =..    record   
000140: 20 20 20 20 20 20 20 20 28 2A 20 52 65 67 69 73          (* Regis
000150: 74 65 72 20 66 75 65 72 20 4D 53 44 6F 73 20 61  ter fuer MSDos a
000160: 75 66 72 75 66 20 2A 29 0D 0A 20 20 20 20 20 20  ufruf *)..      
000170: 41 58 2C 20 42 58 2C 20 43 58 2C 20 44 58 2C 20  AX, BX, CX, DX, 
000180: 42 50 2C 20 53 49 2C 20 44 49 2C 20 44 53 2C 20  BP, SI, DI, DS, 
000190: 45 53 2C 20 46 6C 61 67 73 20 3A 20 49 6E 74 65  ES, Flags : Inte
0001A0: 67 65 72 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A  ger;..    end;..
0001B0: 0D 0A 76 61 72 0D 0A 20 20 53 70 75 72 65 6E 2C  ..var..  Spuren,
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2A                (*
0001E0: 20 41 6E 7A 61 68 6C 20 76 65 72 66 75 65 67 62   Anzahl verfuegb
0001F0: 61 72 65 72 20 53 70 75 72 65 6E 20 2A 29 0D 0A  arer Spuren *)..

Size : 512 (Real : 512)
000000: 4C 6E 3B 0D 0A 20 20 57 72 69 74 65 4C 6E 3B 0D  Ln;..  WriteLn;.
000010: 0A 20 20 49 66 20 28 20 4C 61 75 66 77 65 72 6B  .  If ( Laufwerk
000020: 20 3D 20 30 20 29 20 74 68 65 6E 0D 0A 20 20 20   = 0 ) then..   
000030: 20 4C 61 75 66 77 65 72 6B 20 3A 3D 20 44 65 66   Laufwerk := Def
000040: 61 75 6C 74 44 72 69 76 65 3B 0D 0A 20 20 57 72  aultDrive;..  Wr
000050: 69 74 65 4C 6E 28 20 27 44 69 73 6B 65 74 74 65  iteLn( 'Diskette
000060: 6E 73 74 61 74 75 73 20 76 6F 6E 20 4C 61 75 66  nstatus von Lauf
000070: 77 65 72 6B 20 27 2C 20 63 68 72 28 20 4C 61 75  werk ', chr( Lau
000080: 66 77 65 72 6B 20 2B 20 24 34 30 20 29 2C 20 27  fwerk + $40 ), '
000090: 3A 27 29 3B 0D 0A 20 20 57 72 69 74 65 4C 6E 3B  :');..  WriteLn;
0000A0: 0D 0A 20 20 28 2A 20 44 69 73 6B 65 74 74 65 6E  ..  (* Disketten
0000B0: 20 49 6E 66 6F 72 6D 61 74 69 6F 6E 20 73 63 68   Information sch
0000C0: 72 65 69 62 65 6E 20 2A 29 0D 0A 20 20 57 72 69  reiben *)..  Wri
0000D0: 74 65 4C 6E 28 20 53 70 75 72 65 6E 3A 37 2C 20  teLn( Spuren:7, 
0000E0: 27 20 20 53 70 75 72 65 6E 20 66 72 65 69 2E 27  '  Spuren frei.'
0000F0: 20 29 3B 0D 0A 20 20 57 72 69 74 65 4C 6E 28 20   );..  WriteLn( 
000100: 47 65 73 61 6D 74 53 70 75 72 65 6E 3A 37 2C 20  GesamtSpuren:7, 
000110: 27 20 20 53 70 75 72 65 6E 20 69 6E 73 67 65 73  '  Spuren insges
000120: 61 6D 74 2E 27 20 29 3B 0D 0A 20 20 42 65 6E 75  amt.' );..  Benu
000130: 74 7A 74 20 3A 3D 20 20 28 28 20 47 65 73 61 6D  tzt :=  (( Gesam
000140: 74 53 70 75 72 65 6E 20 2D 20 53 70 75 72 65 6E  tSpuren - Spuren
000150: 20 29 20 2F 20 47 65 73 61 6D 74 53 70 75 72 65   ) / GesamtSpure
000160: 6E 20 29 20 2A 20 31 30 30 3B 0D 0A 20 20 57 72  n ) * 100;..  Wr
000170: 69 74 65 4C 6E 28 20 42 65 6E 75 74 7A 74 3A 37  iteLn( Benutzt:7
000180: 3A 32 2C 20 27 25 20 42 65 6E 75 74 7A 74 2E 27  :2, '% Benutzt.'
000190: 20 29 3B 0D 0A 20 20 57 72 69 74 65 4C 6E 28 20   );..  WriteLn( 
0001A0: 53 65 6B 74 6F 72 65 6E 3A 37 2C 20 27 20 20 53  Sektoren:7, '  S
0001B0: 65 6B 74 6F 72 65 6E 20 70 72 6F 20 43 6C 75 73  ektoren pro Clus
0001C0: 74 65 72 2E 27 20 29 3B 0D 0A 20 20 57 72 69 74  ter.' );..  Writ
0001D0: 65 4C 6E 28 20 42 79 74 65 73 3A 37 2C 20 27 20  eLn( Bytes:7, ' 
0001E0: 20 42 79 74 65 73 20 70 72 6F 20 53 65 6B 74 6F   Bytes pro Sekto
0001F0: 72 2E 27 20 29 3B 0D 0A 20 20 54 6F 74 61 6C 42  r.' );..  TotalB

Size : 512 (Real : 512)
000000: 20 20 47 65 73 61 6D 74 53 70 75 72 65 6E 2C 20    GesamtSpuren, 
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000020: 20 20 20 20 20 20 20 28 2A 20 41 6E 7A 61 68 6C         (* Anzahl
000030: 20 61 6C 6C 65 72 20 53 70 75 72 65 6E 20 2A 29   aller Spuren *)
000040: 0D 0A 20 20 4C 61 75 66 77 65 72 6B 2C 20 20 20  ..  Laufwerk,   
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000060: 20 20 20 20 20 20 20 20 20 28 2A 20 4C 61 75 66           (* Lauf
000070: 77 65 72 6B 73 6E 75 6D 6D 65 72 20 2A 29 0D 0A  werksnummer *)..
000080: 20 20 42 79 74 65 73 2C 20 20 20 20 20 20 20 20    Bytes,        
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000A0: 20 20 20 20 20 20 20 28 2A 20 41 6E 7A 61 68 6C         (* Anzahl
0000B0: 20 76 6F 6E 20 42 79 74 65 73 20 70 65 72 20 53   von Bytes per S
0000C0: 65 6B 74 6F 72 20 2A 29 0D 0A 20 20 53 65 6B 74  ektor *)..  Sekt
0000D0: 6F 72 65 6E 20 20 20 20 20 20 20 20 20 20 20 20  oren            
0000E0: 20 3A 20 49 6E 74 65 67 65 72 3B 20 20 20 20 20   : Integer;     
0000F0: 20 28 2A 20 53 65 6B 74 6F 72 65 6E 20 69 6E 73   (* Sektoren ins
000100: 67 65 73 61 6D 74 20 2A 29 0D 0A 20 20 42 65 6E  gesamt *)..  Ben
000110: 75 74 7A 74 2C 54 6F 74 61 6C 42 79 74 65 73 20  utzt,TotalBytes 
000120: 20 20 3A 20 52 65 61 6C 3B 0D 0A 20 20 52 65 67    : Real;..  Reg
000130: 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  s               
000140: 20 20 3A 20 52 65 67 52 65 63 3B 0D 0A 0D 0A 0D    : RegRec;.....
000150: 0A 70 72 6F 63 65 64 75 72 65 20 44 69 73 6B 53  .procedure DiskS
000160: 74 61 74 75 73 28 20 4C 61 75 66 77 65 72 6B 20  tatus( Laufwerk 
000170: 3A 20 69 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20  : integer;..    
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000190: 20 20 76 61 72 20 53 70 75 72 65 6E 2C 20 47 65    var Spuren, Ge
0001A0: 73 61 6D 74 53 70 75 72 65 6E 2C 42 79 74 65 73  samtSpuren,Bytes
0001B0: 2C 20 53 65 6B 74 6F 72 65 6E 20 3A 20 69 6E 74  , Sektoren : int
0001C0: 65 67 65 72 20 29 3B 0D 0A 28 2A 0D 0A 20 20 20  eger );..(*..   
0001D0: 20 20 20 20 52 75 66 74 20 4D 53 44 6F 73 20 61      Ruft MSDos a
0001E0: 75 66 20 75 6D 20 64 65 6E 20 4C 61 75 66 77 65  uf um den Laufwe
0001F0: 72 6B 73 74 61 74 75 73 20 7A 75 20 65 72 68 61  rkstatus zu erha

Size : 512 (Real : 512)
000000: 79 74 65 73 20 3A 3D 20 28 28 20 53 65 6B 74 6F  ytes := (( Sekto
000010: 72 65 6E 20 2A 20 42 79 74 65 73 20 2A 20 31 2E  ren * Bytes * 1.
000020: 30 20 29 20 2A 20 53 70 75 72 65 6E 20 29 3B 0D  0 ) * Spuren );.
000030: 0A 20 20 57 72 69 74 65 4C 6E 28 20 54 6F 74 61  .  WriteLn( Tota
000040: 6C 42 79 74 65 73 3A 37 3A 30 2C 20 27 20 20 42  lBytes:7:0, '  B
000050: 79 74 65 73 20 66 72 65 69 20 61 75 66 20 64 65  ytes frei auf de
000060: 72 20 44 69 73 6B 65 74 74 65 2E 27 20 29 3B 0D  r Diskette.' );.
000070: 0A 20 20 57 72 69 74 65 4C 6E 0D 0A 65 6E 64 2E  .  WriteLn..end.
000080: 20 28 2A 20 64 65 73 20 50 72 6F 67 72 61 6D 6D   (* des Programm
000090: 73 20 5A 65 69 67 65 44 69 73 6B 65 74 74 65 6E  s ZeigeDisketten
0000A0: 53 74 61 74 75 73 20 2A 29 0D 0A 0D 0A 1A 1A 1A  Status *).......
0000B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0000C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0000D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0000E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0000F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000100: 47 65 73 61 6D 74 53 70 75 72 65 6E 3A 37 2C 20  GesamtSpuren:7, 
000110: 27 20 20 53 70 75 72 65 6E 20 69 6E 73 67 65 73  '  Spuren insges
000120: 61 6D 74 2E 27 20 29 3B 0D 0A 20 20 42 65 6E 75  amt.' );..  Benu
000130: 74 7A 74 20 3A 3D 20 20 28 28 20 47 65 73 61 6D  tzt :=  (( Gesam
000140: 74 53 70 75 72 65 6E 20 2D 20 53 70 75 72 65 6E  tSpuren - Spuren
000150: 20 29 20 2F 20 47 65 73 61 6D 74 53 70 75 72 65   ) / GesamtSpure
000160: 6E 20 29 20 2A 20 31 30 30 3B 0D 0A 20 20 57 72  n ) * 100;..  Wr
000170: 69 74 65 4C 6E 28 20 42 65 6E 75 74 7A 74 3A 37  iteLn( Benutzt:7
000180: 3A 32 2C 20 27 25 20 42 65 6E 75 74 7A 74 2E 27  :2, '% Benutzt.'
000190: 20 29 3B 0D 0A 20 20 57 72 69 74 65 4C 6E 28 20   );..  WriteLn( 
0001A0: 53 65 6B 74 6F 72 65 6E 3A 37 2C 20 27 20 20 53  Sektoren:7, '  S
0001B0: 65 6B 74 6F 72 65 6E 20 70 72 6F 20 43 6C 75 73  ektoren pro Clus
0001C0: 74 65 72 2E 27 20 29 3B 0D 0A 20 20 57 72 69 74  ter.' );..  Writ
0001D0: 65 4C 6E 28 20 42 79 74 65 73 3A 37 2C 20 27 20  eLn( Bytes:7, ' 
0001E0: 20 42 79 74 65 73 20 70 72 6F 20 53 65 6B 74 6F   Bytes pro Sekto
0001F0: 72 2E 27 20 29 3B 0D 0A 20 20 54 6F 74 61 6C 42  r.' );..  TotalB

Size : 512 (Real : 512)
000000: 6C 74 65 6E 0D 0A 20 20 20 20 20 20 20 67 69 62  lten..       gib
000010: 74 20 53 70 75 72 65 6E 2C 20 47 65 73 61 6D 74  t Spuren, Gesamt
000020: 53 70 75 72 65 6E 2C 20 42 79 74 65 73 2C 20 61  Spuren, Bytes, a
000030: 6E 64 20 53 65 6B 74 6F 72 65 6E 20 7A 75 72 75  nd Sektoren zuru
000040: 65 63 6B 2E 0D 0A 2A 29 0D 0A 62 65 67 69 6E 0D  eck...*)..begin.
000050: 0A 20 20 52 65 67 73 2E 41 58 20 3A 3D 20 24 33  .  Regs.AX := $3
000060: 36 30 30 3B 20 20 20 20 20 20 20 20 20 20 20 20  600;            
000070: 20 20 20 28 2A 20 46 72 65 69 65 6E 20 44 69 73     (* Freien Dis
000080: 6B 65 74 74 65 6E 70 6C 61 74 7A 20 68 6F 6C 65  kettenplatz hole
000090: 6E 20 2A 29 0D 0A 20 20 52 65 67 73 2E 44 58 20  n *)..  Regs.DX 
0000A0: 3A 3D 20 4C 61 75 66 77 65 72 6B 3B 20 20 20 20  := Laufwerk;    
0000B0: 20 20 20 20 20 20 20 20 28 2A 20 4C 61 75 66 77          (* Laufw
0000C0: 65 72 6B 73 6E 75 6D 6D 65 72 20 2A 29 0D 0A 20  erksnummer *).. 
0000D0: 20 4D 53 44 6F 73 28 20 52 65 67 73 20 29 3B 20   MSDos( Regs ); 
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000F0: 20 28 2A 20 4D 53 44 6F 73 20 41 75 66 72 75 66   (* MSDos Aufruf
000100: 20 2A 29 0D 0A 20 20 53 70 75 72 65 6E 20 3A 3D   *)..  Spuren :=
000110: 20 52 65 67 73 2E 42 58 3B 20 20 20 20 20 20 20   Regs.BX;       
000120: 20 20 20 20 20 20 20 28 2A 20 41 6E 7A 61 68 6C         (* Anzahl
000130: 20 62 65 6E 75 74 7A 74 65 72 20 53 70 75 72 65   benutzter Spure
000140: 6E 20 2A 29 0D 0A 20 20 47 65 73 61 6D 74 53 70  n *)..  GesamtSp
000150: 75 72 65 6E 20 3A 3D 20 52 65 67 73 2E 44 58 3B  uren := Regs.DX;
000160: 20 20 20 20 20 20 20 20 28 2A 20 20 22 20 20 20          (*  "   
000170: 20 20 20 61 6C 6C 65 72 20 53 70 75 72 65 6E 20     aller Spuren 
000180: 2A 29 0D 0A 20 20 42 79 74 65 73 20 3A 3D 20 52  *)..  Bytes := R
000190: 65 67 73 2E 43 58 3B 20 20 20 20 20 20 20 20 20  egs.CX;         
0001A0: 20 20 20 20 20 20 28 2A 20 20 22 20 20 20 20 20        (*  "     
0001B0: 20 42 79 74 65 73 20 70 65 72 20 53 65 6B 74 6F   Bytes per Sekto
0001C0: 72 20 2A 29 0D 0A 20 20 53 65 6B 74 6F 72 65 6E  r *)..  Sektoren
0001D0: 20 3A 3D 20 52 65 67 73 2E 41 58 20 20 20 20 20   := Regs.AX     
0001E0: 20 20 20 20 20 20 20 20 28 2A 20 20 22 20 20 20          (*  "   
0001F0: 20 20 20 53 65 6B 74 6F 72 65 6E 20 70 72 6F 20     Sektoren pro 

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

Size : 512 (Real : 512)
000000: 43 6C 75 73 74 65 72 20 2A 29 0D 0A 45 4E 44 3B  Cluster *)..END;
000010: 20 28 2A 20 76 6F 6E 20 50 72 6F 7A 65 64 75 72   (* von Prozedur
000020: 20 44 69 73 6B 53 74 61 74 75 73 20 2A 29 0D 0A   DiskStatus *)..
000030: 0D 0A 66 75 6E 63 74 69 6F 6E 20 44 65 66 61 75  ..function Defau
000040: 6C 74 44 72 69 76 65 20 3A 20 69 6E 74 65 67 65  ltDrive : intege
000050: 72 3B 0D 0A 28 2A 0D 0A 20 20 20 20 20 20 20 4D  r;..(*..       M
000060: 53 20 44 4F 53 20 41 75 66 72 75 66 20 7A 75 72  S DOS Aufruf zur
000070: 20 46 65 73 74 73 74 65 6C 6C 75 6E 67 20 64 65   Feststellung de
000080: 73 20 61 6B 74 75 65 6C 6C 65 6E 20 4C 61 75 66  s aktuellen Lauf
000090: 77 65 72 6B 73 0D 0A 2A 29 0D 0A 76 61 72 0D 0A  werks..*)..var..
0000A0: 20 20 52 65 67 73 20 3A 20 52 65 67 52 65 63 3B    Regs : RegRec;
0000B0: 0D 0A 62 65 67 69 6E 0D 0A 20 20 52 65 67 73 2E  ..begin..  Regs.
0000C0: 41 58 20 3A 3D 20 24 31 39 30 30 3B 20 20 20 20  AX := $1900;    
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000E0: 20 20 28 2A 20 41 6B 74 75 65 6C 6C 65 20 4C 61    (* Aktuelle La
0000F0: 75 66 77 65 72 6B 73 6E 75 6D 6D 65 72 20 2A 29  ufwerksnummer *)
000100: 0D 0A 20 20 4D 53 44 6F 73 28 20 52 65 67 73 20  ..  MSDos( Regs 
000110: 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20  );              
000120: 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 4D 53             (* MS
000130: 20 44 4F 53 20 41 75 66 72 75 66 20 2A 29 0D 0A   DOS Aufruf *)..
000140: 20 20 44 65 66 61 75 6C 74 44 72 69 76 65 20 3A    DefaultDrive :
000150: 3D 20 28 52 65 67 73 2E 41 58 20 61 6E 64 20 24  = (Regs.AX and $
000160: 46 46 29 20 2B 20 31 20 20 28 2A 20 4C 61 75 66  FF) + 1  (* Lauf
000170: 77 65 72 6B 73 6E 75 6D 6D 65 72 20 2A 29 0D 0A  werksnummer *)..
000180: 45 4E 44 3B 20 28 2A 20 6F 66 20 66 75 6E 63 20  END; (* of func 
000190: 44 65 66 61 75 6C 74 44 72 69 76 65 20 2A 29 0D  DefaultDrive *).
0001A0: 0A 0D 0A 62 65 67 69 6E 20 28 2A 20 48 61 75 70  ...begin (* Haup
0001B0: 74 62 6C 6F 63 6B 20 64 65 73 20 50 72 6F 67 72  tblock des Progr
0001C0: 61 6D 6D 73 20 5A 65 69 67 65 44 69 73 6B 65 74  amms ZeigeDisket
0001D0: 74 65 6E 53 74 61 74 75 73 20 2A 29 0D 0A 20 20  tenStatus *)..  
0001E0: 4C 61 75 66 77 65 72 6B 20 3A 3D 20 30 3B 20 20  Laufwerk := 0;  
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  

Size : 512 (Real : 512)
000000: 01 00 E8 03 20 01 50 30 DA CA E9 DA 23 FE 2A C2  .... .P0....#.*.
000010: D9 DA 36 3F C3 DB DA 77 13 05 00 C8 DA CD 30 DA  ..6?...w......0.
000020: CA F0 DA 13 C3 DF DA 23 36 20 05 C2 E9 DA 06 01  .......#6 ......
000030: 00 01 00 0A 25 46 20 70 61 67 65 20 25 23 00 23  ....%F page %#.#
000040: 7E FE 3F C2 09 DB 04 0D C2 01 DB 78 B7 C9 44 49  ~.?........x..DI
000050: 52 20 45 52 41 20 54 59 50 45 53 41 56 45 52 45  R ERA TYPESAVERE
000060: 4E 20 55 53 45 52 A8 16 00 00 00 84 21 10 DB 0E  N USER......!...
000070: 00 79 FE 06 D0 11 CE DF 06 04 1A BE C2 4F DB 13  .y...........O..
000080: 23 05 C2 3C DB 1A FE 20 C2 54 DB 79 C9 23 05 C2  #..<... .T.y.#..
000090: 4F DB 0C C3 33 DB AF 32 07 D8 31 AB DF C5 79 1F  O...3..2..1...y.
0000A0: 1F 1F 1F E6 0F 5F CD 15 D9 CD B8 D8 32 AB DF C1  ....._......2...
0000B0: 79 E6 0F 32 EF DF CD BD D8 3A 07 D8 B7 C2 98 DB  y..2.....:......
0000C0: 31 AB DF CD 98 D8 CD D0 D9 C6 41 CD 8C D8 3E 3E  1.........A...>>
0000D0: CD 8C D8 CD 39 D9 11 80 00 CD D8 D9 CD D0 D9 32  ....9..........2
0000E0: EF DF CD 5E DA C4 09 DA 3A F0 DF B7 C2 A5 DE CD  ...^....:.......
0000F0: 2E DB 21 C1 DB 5F 16 00 19 19 7E 23 16 4C 69 73  ..!.._....~#.Lis
000100: 74 69 6E 67 20 6F 66 20 25 46 2C 20 70 61 67 65  ting of %F, page
000110: 20 25 23 21 00 D8 E9 01 DF DB C3 A7 D8 52 45 41   %#!.........REA
000120: 44 20 45 52 52 4F 52 00 01 F0 DB C3 A7 D8 4E 4F  D ERROR.......NO
000130: 20 46 49 4C 45 00 CD 5E DA 3A F0 DF B7 C2 09 DA   FILE..^.:......
000140: 21 CE DF 01 0B 00 7E FE 20 CA 33 DC 23 D6 30 FE  !.....~. .3.#.0.
000150: 0A D2 09 DA 57 78 E6 E0 C2 09 DA 78 07 07 07 80  ....Wx.....x....
000160: DA 09 DA 80 DA 09 DA 82 DA 09 DA 47 0D C2 08 DC  ...........G....
000170: C9 7E FE 20 C2 09 DA 23 0D C2 33 DC 78 C9 06 03  .~. ...#..3.x...
000180: 7E 12 23 13 05 C2 42 DC C9 21 80 00 81 CD 59 DA  ~.#...B..!....Y.
000190: 7E C9 AF 32 CD DF 3A F0 DF B7 C8 3D 21 EF DF BE  ~..2..:....=!...
0001A0: C8 C3 BD D8 3A F0 DF B7 C8 3D 21 EF DF BE C8 3A  ....:....=!....:
0001B0: EF DF C3 BD D8 CD 5E DA CD 54 DC 21 CE DF 7E FE  ......^..T.!..~.
0001C0: 20 C2 8F DC 06 00 00 00 01 01 00 12 DC 1E 00 D5   ...............
0001D0: CD E9 D8 CC EA 00 0F 1B DD 3A EE DF 0F 0F 0F E6  .........:......
0001E0: 03 1B 2D 30 CD 4B DC 17 DA 0F DD 03 1B 2D 31 E6  ..-0.K.......-1.
0001F0: 03 F5 C2 CC DC CD 83 00 42 00 00 00 00 00 00 00  ........B.......

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 28 2A 20 49 6E 69 74 69 61         (* Initia
000010: 6C 69 73 69 65 72 65 20 4C 61 75 66 77 65 72 6B  lisiere Laufwerk
000020: 20 2A 29 0D 0A 20 20 49 66 20 28 4D 65 6D 5B 43   *)..  If (Mem[C
000030: 73 65 67 3A 24 38 30 5D 29 20 3E 20 30 20 20 20  seg:$80]) > 0   
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2A                (*
000050: 20 43 6F 6D 6D 61 6E 64 20 6C 69 6E 65 20 6C 65   Command line le
000060: 73 65 6E 20 2A 29 0D 0A 20 20 20 20 74 68 65 6E  sen *)..    then
000070: 20 4C 61 75 66 77 65 72 6B 20 3A 3D 20 4D 65 6D   Laufwerk := Mem
000080: 5B 43 73 65 67 3A 24 38 32 5D 20 61 6E 64 20 24  [Cseg:$82] and $
000090: 31 46 3B 0D 0A 20 20 49 66 20 6E 6F 74 20 28 20  1F;..  If not ( 
0000A0: 4C 61 75 66 77 65 72 6B 20 69 6E 20 5B 20 31 2E  Laufwerk in [ 1.
0000B0: 2E 36 20 5D 20 29 20 20 20 20 20 20 20 20 28 2A  .6 ] )        (*
0000C0: 20 57 65 6E 6E 20 64 69 65 20 43 6F 6D 6D 61 6E   Wenn die Comman
0000D0: 64 6C 69 6E 65 20 6C 65 65 72 20 69 73 74 20 2A  dline leer ist *
0000E0: 29 0D 0A 20 20 20 20 74 68 65 6E 20 4C 61 75 66  )..    then Lauf
0000F0: 77 65 72 6B 20 3A 3D 20 30 3B 20 20 20 20 20 20  werk := 0;      
000100: 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 6F              (* o
000110: 64 65 72 20 65 69 6E 20 66 61 6C 73 63 68 65 73  der ein falsches
000120: 20 4C 61 75 66 77 65 72 6B 20 2A 29 0D 0A 20 20   Laufwerk *)..  
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000150: 20 20 20 20 20 20 20 28 2A 20 61 6E 67 65 67 65         (* angege
000160: 62 65 6E 20 77 75 72 64 65 2C 20 64 61 6E 6E 20  ben wurde, dann 
000170: 64 61 73 0D 0A 20 20 20 20 20 20 20 20 20 20 20  das..           
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001A0: 20 61 6B 74 75 65 6C 6C 65 20 4C 61 75 66 77 65   aktuelle Laufwe
0001B0: 72 6B 20 2A 29 0D 0A 20 20 44 69 73 6B 53 74 61  rk *)..  DiskSta
0001C0: 74 75 73 28 20 4C 61 75 66 77 65 72 6B 2C 20 53  tus( Laufwerk, S
0001D0: 70 75 72 65 6E 2C 20 47 65 73 61 6D 74 53 70 75  puren, GesamtSpu
0001E0: 72 65 6E 2C 20 42 79 74 65 73 2C 20 53 65 6B 74  ren, Bytes, Sekt
0001F0: 6F 72 65 6E 20 29 3B 0D 0A 20 20 57 72 69 74 65  oren );..  Write

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

Size : 512 (Real : 512)
000000: 20 64 65 73 20 50 72 6F 67 72 61 6D 6D 73 20 46   des Programms F
000010: 69 6C 6C 43 68 61 72 44 65 6D 6F 20 2A 29 0D 0A  illCharDemo *)..
000020: 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000030: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000040: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000050: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000060: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000070: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000080: 20 53 70 65 69 63 68 65 72 20 67 65 6C 61 64 65   Speicher gelade
000090: 6E 20 77 69 72 64 3A 20 27 29 3B 0D 0A 20 20 52  n wird: ');..  R
0000A0: 65 61 64 4C 6E 28 56 61 6C 75 65 29 3B 0D 0A 20  eadLn(Value);.. 
0000B0: 20 57 72 69 74 65 28 27 57 69 65 76 69 65 6C 65   Write('Wieviele
0000C0: 20 57 6F 72 74 65 20 73 6F 6C 6C 65 6E 20 67 65   Worte sollen ge
0000D0: 66 75 65 6C 6C 74 20 77 65 72 64 65 6E 20 27 29  fuellt werden ')
0000E0: 3B 0D 0A 20 20 52 65 61 64 4C 6E 28 4E 75 6D 29  ;..  ReadLn(Num)
0000F0: 3B 0D 0A 20 20 46 69 6C 6C 43 68 61 72 28 56 61  ;..  FillChar(Va
000100: 72 31 2C 4E 75 6D 2C 56 61 6C 75 65 29 3B 0D 0A  r1,Num,Value);..
000110: 20 20 43 6C 72 53 63 72 3B 0D 0A 20 20 57 72 69    ClrScr;..  Wri
000120: 74 65 4C 6E 28 27 4A 65 74 7A 74 20 77 69 72 64  teLn('Jetzt wird
000130: 20 64 65 72 20 53 70 65 69 63 68 65 72 20 61 62   der Speicher ab
000140: 20 27 2C 53 65 67 31 2C 27 3A 27 2C 4F 66 73 31   ',Seg1,':',Ofs1
000150: 2C 27 20 61 75 73 67 65 64 72 75 63 6B 74 27 29  ,' ausgedruckt')
000160: 3B 0D 0A 20 20 66 6F 72 20 43 6F 75 6E 74 20 3A  ;..  for Count :
000170: 3D 20 31 20 74 6F 20 4E 75 6D 20 64 6F 20 62 65  = 1 to Num do be
000180: 67 69 6E 0D 0A 20 20 20 20 4F 75 74 57 6F 72 64  gin..    OutWord
000190: 20 3A 3D 20 4D 65 6D 5B 53 65 67 31 3A 4F 66 73   := Mem[Seg1:Ofs
0001A0: 31 5D 3B 0D 0A 20 20 20 20 57 72 69 74 65 4C 6E  1];..    WriteLn
0001B0: 28 53 65 67 31 2C 27 3A 27 2C 4F 66 73 31 2C 27  (Seg1,':',Ofs1,'
0001C0: 20 68 61 74 20 64 65 6E 20 57 65 72 74 20 27 2C   hat den Wert ',
0001D0: 4F 75 74 57 6F 72 64 29 3B 0D 0A 20 20 20 20 4F  OutWord);..    O
0001E0: 66 73 31 20 3A 3D 20 4F 66 73 31 20 2B 20 31 3B  fs1 := Ofs1 + 1;
0001F0: 0D 0A 20 20 65 6E 64 0D 0A 65 6E 64 2E 20 28 2A  ..  end..end. (*

Size : 512 (Real : 512)
000000: 01 00 E8 03 20 01 50 30 DA CA E9 DA 23 FE 2A C2  .... .P0....#.*.
000010: D9 DA 36 3F C3 DB DA 77 13 05 00 C8 DA CD 30 DA  ..6?...w......0.
000020: CA F0 DA 13 C3 DF DA 23 36 20 05 C2 E9 DA 06 01  .......#6 ......
000030: 00 01 00 0A 25 46 20 70 61 67 65 20 25 23 00 23  ....%F page %#.#
000040: 7E FE 3F C2 09 DB 04 0D C2 01 DB 78 B7 C9 44 49  ~.?........x..DI
000050: 52 20 45 52 41 20 54 59 50 45 53 41 56 45 52 45  R ERA TYPESAVERE
000060: 4E 20 55 53 45 52 A8 16 00 00 00 84 21 10 DB 0E  N USER......!...
000070: 00 79 FE 06 D0 11 CE DF 06 04 1A BE C2 4F DB 13  .y...........O..
000080: 23 05 C2 3C DB 1A FE 20 C2 54 DB 79 C9 23 05 C2  #..<... .T.y.#..
000090: 4F DB 0C C3 33 DB AF 32 07 D8 31 AB DF C5 79 1F  O...3..2..1...y.
0000A0: 1F 1F 1F E6 0F 5F CD 15 D9 CD B8 D8 32 AB DF C1  ....._......2...
0000B0: 79 E6 0F 32 EF DF CD BD D8 3A 07 D8 B7 C2 98 DB  y..2.....:......
0000C0: 31 AB DF CD 98 D8 CD D0 D9 C6 41 CD 8C D8 3E 3E  1.........A...>>
0000D0: CD 8C D8 CD 39 D9 11 80 00 CD D8 D9 CD D0 D9 32  ....9..........2
0000E0: EF DF CD 5E DA C4 09 DA 3A F0 DF B7 C2 A5 DE CD  ...^....:.......
0000F0: 2E DB 21 C1 DB 5F 16 00 19 19 7E 23 16 4C 69 73  ..!.._....~#.Lis
000100: 74 69 6E 67 20 6F 66 20 25 46 2C 20 70 61 67 65  ting of %F, page
000110: 20 25 23 21 00 D8 E9 01 DF DB C3 A7 D8 52 45 41   %#!.........REA
000120: 44 20 45 52 52 4F 52 00 01 F0 DB C3 A7 D8 4E 4F  D ERROR.......NO
000130: 20 46 49 4C 45 00 CD 5E DA 3A F0 DF B7 C2 09 DA   FILE..^.:......
000140: 21 CE DF 01 0B 00 7E FE 20 CA 33 DC 23 D6 30 FE  !.....~. .3.#.0.
000150: 0A D2 09 DA 57 78 E6 E0 C2 09 DA 78 07 07 07 80  ....Wx.....x....
000160: DA 09 DA 80 DA 09 DA 82 DA 09 DA 47 0D C2 08 DC  ...........G....
000170: C9 7E FE 20 C2 09 DA 23 0D C2 33 DC 78 C9 06 03  .~. ...#..3.x...
000180: 7E 12 23 13 05 C2 42 DC C9 21 80 00 81 CD 59 DA  ~.#...B..!....Y.
000190: 7E C9 AF 32 CD DF 3A F0 DF B7 C8 3D 21 EF DF BE  ~..2..:....=!...
0001A0: C8 C3 BD D8 3A F0 DF B7 C8 3D 21 EF DF BE C8 3A  ....:....=!....:
0001B0: EF DF C3 BD D8 CD 5E DA CD 54 DC 21 CE DF 7E FE  ......^..T.!..~.
0001C0: 20 C2 8F DC 06 00 00 00 01 01 01 12 DC 1E 00 D5   ...............
0001D0: CD E9 D8 CC EA 01 0F 1B DD 3A EE DF 0F 0F 0F E6  .........:......
0001E0: 03 1B 2D 30 CD 4B DC 17 DA 0F DD 03 1B 2D 31 E6  ..-0.K.......-1.
0001F0: 03 F5 C2 CC DC CD 83 00 42 00 00 00 00 00 00 00  ........B.......

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

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

Size : 512 (Real : 512)
000000: 50 72 6F 67 72 61 6D 20 46 69 6C 74 65 72 3B 0D  Program Filter;.
000010: 0A 0D 0A 28 2A 0D 0A 20 20 44 69 65 73 20 69 73  ...(*..  Dies is
000020: 74 20 65 69 6E 20 42 65 69 73 70 69 65 6C 20 66  t ein Beispiel f
000030: 75 65 72 20 65 69 6E 66 61 63 68 65 20 46 69 6C  uer einfache Fil
000040: 74 65 72 20 75 6E 74 65 72 20 4D 53 20 44 4F 53  ter unter MS DOS
000050: 20 69 6E 20 54 55 52 42 4F 20 50 61 73 63 61 6C   in TURBO Pascal
000060: 0D 0A 20 20 44 69 65 73 65 72 20 46 69 6C 74 65  ..  Dieser Filte
000070: 72 20 63 6F 70 69 65 72 74 20 76 6F 6E 20 64 65  r copiert von de
000080: 72 20 53 74 61 6E 64 61 72 64 65 69 6E 67 61 62  r Standardeingab
000090: 65 20 6E 61 63 68 20 64 65 72 20 53 74 61 6E 64  e nach der Stand
0000A0: 61 72 64 61 75 73 67 61 62 65 0D 0A 20 20 75 6E  ardausgabe..  un
0000B0: 64 20 66 6F 72 6D 74 20 64 61 62 65 69 20 61 6C  d formt dabei al
0000C0: 6C 65 20 47 72 6F 7E 62 75 63 68 73 74 61 62 65  le Gro~buchstabe
0000D0: 6E 20 69 6E 20 4B 6C 65 69 6E 62 75 63 68 73 74  n in Kleinbuchst
0000E0: 61 62 65 6E 20 75 6D 2E 0D 0A 0D 0A 20 20 44 69  aben um.....  Di
0000F0: 65 20 4D 53 20 44 4F 53 20 4D 6F 65 67 6C 69 63  e MS DOS Moeglic
000100: 68 6B 65 69 74 65 6E 20 64 65 72 20 55 6D 6C 65  hkeiten der Umle
000110: 69 74 75 6E 67 2C 20 50 69 70 69 6E 67 20 75 6E  itung, Piping un
000120: 64 20 64 65 73 20 44 72 75 63 6B 70 72 6F 74 6F  d des Druckproto
000130: 6B 6F 6C 6C 73 0D 0A 20 20 28 64 75 72 63 68 20  kolls..  (durch 
000140: 5E 50 20 6F 64 65 72 20 5E 50 72 74 53 63 72 29  ^P oder ^PrtScr)
000150: 20 66 75 6E 6B 74 69 6F 6E 69 65 72 65 6E 20 62   funktionieren b
000160: 65 69 20 6A 65 64 65 6D 20 50 72 6F 67 72 61 6D  ei jedem Program
000170: 6D 20 64 61 73 20 64 69 65 20 62 65 69 64 65 6E  m das die beiden
000180: 0D 0A 20 20 50 72 6F 7A 65 64 75 72 65 6E 2F 46  ..  Prozeduren/F
000190: 75 6E 6B 74 69 6F 6E 65 6E 20 62 65 6E 75 74 7A  unktionen benutz
0001A0: 74 20 75 6E 64 20 64 69 65 20 41 6E 77 65 69 73  t und die Anweis
0001B0: 75 6E 67 65 6E 20 43 6F 6E 49 6E 50 74 72 3A 3D  ungen ConInPtr:=
0001C0: 4F 66 73 28 47 65 74 43 29 3B 0D 0A 20 20 43 6F  Ofs(GetC);..  Co
0001D0: 6E 4F 75 74 50 74 72 3A 3D 4F 66 73 28 50 75 74  nOutPtr:=Ofs(Put
0001E0: 43 29 3B 20 61 6D 20 41 6E 66 61 6E 67 20 64 65  C); am Anfang de
0001F0: 73 20 50 72 6F 67 72 61 6D 6D 73 20 61 75 73 66  s Programms ausf

Size : 512 (Real : 512)
000000: 0D 0A 0D 0A 70 72 6F 67 72 61 6D 20 46 69 6C 6C  ....program Fill
000010: 43 68 61 72 44 65 6D 6F 3B 0D 0A 28 2A 0D 0A 20  CharDemo;..(*.. 
000020: 20 20 20 20 20 20 44 69 65 73 65 73 20 50 72 6F        Dieses Pro
000030: 67 72 61 6D 6D 20 64 65 6D 6F 6E 73 74 72 69 65  gramm demonstrie
000040: 72 74 20 77 69 65 20 64 69 65 20 65 69 6E 67 65  rt wie die einge
000050: 61 62 61 75 74 65 20 50 72 6F 7A 65 64 75 72 0D  abaute Prozedur.
000060: 0A 20 20 20 20 20 20 20 46 69 6C 6C 63 68 61 72  .       Fillchar
000070: 20 61 72 62 65 69 74 65 74 0D 0A 2A 29 0D 0A 76   arbeitet..*)..v
000080: 61 72 0D 0A 20 20 53 65 67 31 3A 20 20 20 20 49  ar..  Seg1:    I
000090: 6E 74 65 67 65 72 3B 0D 0A 20 20 4F 66 73 31 3A  nteger;..  Ofs1:
0000A0: 20 20 20 20 49 6E 74 65 67 65 72 3B 0D 0A 20 20      Integer;..  
0000B0: 43 6F 75 6E 74 3A 20 20 20 49 6E 74 65 67 65 72  Count:   Integer
0000C0: 3B 0D 0A 20 20 4F 75 74 57 6F 72 64 3A 20 49 6E  ;..  OutWord: In
0000D0: 74 65 67 65 72 3B 0D 0A 20 20 4E 75 6D 3A 20 20  teger;..  Num:  
0000E0: 20 20 20 49 6E 74 65 67 65 72 3B 0D 0A 20 20 56     Integer;..  V
0000F0: 61 72 31 3A 20 20 20 20 49 6E 74 65 67 65 72 3B  ar1:    Integer;
000100: 0D 0A 20 20 56 61 6C 75 65 3A 20 20 20 43 68 61  ..  Value:   Cha
000110: 72 3B 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 20 43  r;....begin..  C
000120: 6C 72 53 63 72 3B 0D 0A 20 20 47 6F 74 6F 58 59  lrScr;..  GotoXY
000130: 28 35 2C 35 29 3B 0D 0A 20 20 57 72 69 74 65 28  (5,5);..  Write(
000140: 27 47 65 62 65 6E 20 53 69 65 20 62 69 74 74 65  'Geben Sie bitte
000150: 20 65 69 6E 65 20 5A 61 68 6C 20 66 75 65 72 20   eine Zahl fuer 
000160: 64 69 65 20 53 74 61 72 74 61 64 72 65 73 73 65  die Startadresse
000170: 20 65 69 6E 20 27 29 3B 0D 0A 20 20 52 65 61 64   ein ');..  Read
000180: 4C 6E 28 56 61 72 31 29 3B 0D 0A 20 20 53 65 67  Ln(Var1);..  Seg
000190: 31 20 3A 3D 20 53 65 67 28 56 61 72 31 29 3B 0D  1 := Seg(Var1);.
0001A0: 0A 20 20 4F 66 73 31 20 3A 3D 20 4F 66 73 28 56  .  Ofs1 := Ofs(V
0001B0: 61 72 31 29 3B 0D 0A 20 20 57 72 69 74 65 4C 6E  ar1);..  WriteLn
0001C0: 3B 0D 0A 20 20 57 72 69 74 65 4C 6E 28 27 44 69  ;..  WriteLn('Di
0001D0: 65 73 65 20 56 61 72 69 61 62 6C 65 20 6C 69 65  ese Variable lie
0001E0: 67 74 20 69 6D 20 53 65 67 6D 65 6E 74 3A 20 27  gt im Segment: '
0001F0: 2C 53 65 67 31 2C 0D 0A 20 20 20 20 20 20 20 20  ,Seg1,..        

Size : 512 (Real : 512)
000000: 75 65 68 72 74 2E 0D 0A 20 20 44 69 65 20 45 69  uehrt...  Die Ei
000010: 6E 67 61 62 65 20 65 72 66 6F 6C 67 74 20 75 65  ngabe erfolgt ue
000020: 62 65 72 20 4B 42 44 20 75 6D 20 65 69 6E 20 45  ber KBD um ein E
000030: 63 68 6F 20 61 75 66 20 64 65 6D 20 42 69 6C 64  cho auf dem Bild
000040: 73 63 68 69 72 6D 20 7A 75 20 76 65 72 6D 65 69  schirm zu vermei
000050: 64 65 6E 2E 0D 0A 0D 0A 20 20 41 75 66 72 75 66  den.....  Aufruf
000060: 20 3A 20 20 46 49 4C 54 45 52 20 3C 44 61 74 65   :  FILTER <Date
000070: 69 2E 45 72 77 20 3E 4E 65 75 64 61 74 65 69 2E  i.Erw >Neudatei.
000080: 45 72 77 0D 0A 0D 0A 20 20 44 69 65 20 44 61 74  Erw....  Die Dat
000090: 65 69 20 44 61 74 65 69 2E 45 72 77 20 77 69 72  ei Datei.Erw wir
0000A0: 64 20 61 75 66 20 4E 65 75 64 61 74 65 69 2E 45  d auf Neudatei.E
0000B0: 72 77 20 6B 6F 70 69 65 72 74 20 75 6E 64 20 64  rw kopiert und d
0000C0: 61 62 65 69 20 77 65 72 64 65 6E 20 61 6C 6C 65  abei werden alle
0000D0: 0D 0A 20 20 47 72 6F 7E 62 75 63 68 73 74 61 62  ..  Gro~buchstab
0000E0: 65 6E 20 69 6E 20 4B 6C 65 69 6E 62 75 63 68 73  en in Kleinbuchs
0000F0: 74 61 62 65 6E 20 75 6D 67 65 77 61 6E 64 65 6C  taben umgewandel
000100: 74 2E 0D 0A 20 2A 29 0D 0A 0D 0A 20 20 54 79 70  t... *)....  Typ
000110: 65 0D 0A 20 20 20 20 52 65 67 69 73 74 65 72 53  e..    RegisterS
000120: 65 74 3D 52 65 63 6F 72 64 20 43 61 73 65 20 49  et=Record Case I
000130: 6E 74 65 67 65 72 20 4F 66 0D 0A 20 20 20 20 20  nteger Of..     
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 31 3A 20               1: 
000150: 28 41 58 2C 42 58 2C 43 58 2C 44 58 2C 42 50 2C  (AX,BX,CX,DX,BP,
000160: 53 49 2C 44 49 2C 44 53 2C 45 53 2C 46 6C 61 67  SI,DI,DS,ES,Flag
000170: 73 3A 20 49 6E 74 65 67 65 72 29 3B 0D 0A 20 20  s: Integer);..  
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000190: 32 3A 20 28 41 4C 2C 41 48 2C 42 4C 2C 42 48 2C  2: (AL,AH,BL,BH,
0001A0: 43 4C 2C 43 48 2C 44 4C 2C 44 48 3A 20 42 79 74  CL,CH,DL,DH: Byt
0001B0: 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20  e);..           
0001C0: 20 20 20 20 20 45 6E 64 3B 0D 0A 0D 0A 20 20 56       End;....  V
0001D0: 61 72 0D 0A 20 20 20 20 52 65 67 73 3A 20 52 65  ar..    Regs: Re
0001E0: 67 69 73 74 65 72 53 65 74 3B 0D 0A 0D 0A 0D 0A  gisterSet;......
0001F0: 20 20 46 75 6E 63 74 69 6F 6E 20 47 65 74 43 3A    Function GetC:

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 27 20 6D 69 74 20 65           ' mit e
000010: 69 6E 65 6D 20 4F 66 66 73 65 74 20 76 6F 6E 20  inem Offset von 
000020: 3A 20 27 2C 4F 66 73 31 29 3B 0D 0A 20 20 57 72  : ',Ofs1);..  Wr
000030: 69 74 65 4C 6E 3B 0D 0A 20 20 57 72 69 74 65 4C  iteLn;..  WriteL
000040: 6E 28 27 4E 75 6E 20 67 65 62 65 6E 20 53 69 65  n('Nun geben Sie
000050: 20 62 69 74 74 65 20 65 69 6E 20 5A 65 69 63 68   bitte ein Zeich
000060: 65 6E 20 65 69 6E 2C 27 29 3B 0D 0A 20 20 57 72  en ein,');..  Wr
000070: 69 74 65 28 27 6D 69 74 20 64 65 6D 20 64 65 72  ite('mit dem der
000080: 20 53 70 65 69 63 68 65 72 20 67 65 6C 61 64 65   Speicher gelade
000090: 6E 20 77 69 72 64 3A 20 27 29 3B 0D 0A 20 20 52  n wird: ');..  R
0000A0: 65 61 64 4C 6E 28 56 61 6C 75 65 29 3B 0D 0A 20  eadLn(Value);.. 
0000B0: 20 57 72 69 74 65 28 27 57 69 65 76 69 65 6C 65   Write('Wieviele
0000C0: 20 57 6F 72 74 65 20 73 6F 6C 6C 65 6E 20 67 65   Worte sollen ge
0000D0: 66 75 65 6C 6C 74 20 77 65 72 64 65 6E 20 27 29  fuellt werden ')
0000E0: 3B 0D 0A 20 20 52 65 61 64 4C 6E 28 4E 75 6D 29  ;..  ReadLn(Num)
0000F0: 3B 0D 0A 20 20 46 69 6C 6C 43 68 61 72 28 56 61  ;..  FillChar(Va
000100: 72 31 2C 4E 75 6D 2C 56 61 6C 75 65 29 3B 0D 0A  r1,Num,Value);..
000110: 20 20 43 6C 72 53 63 72 3B 0D 0A 20 20 57 72 69    ClrScr;..  Wri
000120: 74 65 4C 6E 28 27 4A 65 74 7A 74 20 77 69 72 64  teLn('Jetzt wird
000130: 20 64 65 72 20 53 70 65 69 63 68 65 72 20 61 62   der Speicher ab
000140: 20 27 2C 53 65 67 31 2C 27 3A 27 2C 4F 66 73 31   ',Seg1,':',Ofs1
000150: 2C 27 20 61 75 73 67 65 64 72 75 63 6B 74 27 29  ,' ausgedruckt')
000160: 3B 0D 0A 20 20 66 6F 72 20 43 6F 75 6E 74 20 3A  ;..  for Count :
000170: 3D 20 31 20 74 6F 20 4E 75 6D 20 64 6F 20 62 65  = 1 to Num do be
000180: 67 69 6E 0D 0A 20 20 20 20 4F 75 74 57 6F 72 64  gin..    OutWord
000190: 20 3A 3D 20 4D 65 6D 5B 53 65 67 31 3A 4F 66 73   := Mem[Seg1:Ofs
0001A0: 31 5D 3B 0D 0A 20 20 20 20 57 72 69 74 65 4C 6E  1];..    WriteLn
0001B0: 28 53 65 67 31 2C 27 3A 27 2C 4F 66 73 31 2C 27  (Seg1,':',Ofs1,'
0001C0: 20 68 61 74 20 64 65 6E 20 57 65 72 74 20 27 2C   hat den Wert ',
0001D0: 4F 75 74 57 6F 72 64 29 3B 0D 0A 20 20 20 20 4F  OutWord);..    O
0001E0: 66 73 31 20 3A 3D 20 4F 66 73 31 20 2B 20 31 3B  fs1 := Ofs1 + 1;
0001F0: 0D 0A 20 20 65 6E 64 0D 0A 65 6E 64 2E 20 28 2A  ..  end..end. (*

Size : 512 (Real : 512)
000000: 20 42 79 74 65 3B 0D 0A 0D 0A 20 20 20 20 42 65   Byte;....    Be
000010: 67 69 6E 0D 0A 20 20 20 20 20 20 52 65 67 73 2E  gin..      Regs.
000020: 41 48 3A 3D 38 3B 0D 0A 20 20 20 20 20 20 4D 73  AH:=8;..      Ms
000030: 44 6F 73 28 52 65 67 73 29 3B 0D 0A 20 20 20 20  Dos(Regs);..    
000040: 20 20 47 65 74 43 3A 3D 52 65 67 73 2E 41 4C 3B    GetC:=Regs.AL;
000050: 0D 0A 20 20 20 20 45 6E 64 3B 0D 0A 0D 0A 20 20  ..    End;....  
000060: 50 72 6F 63 65 64 75 72 65 20 50 75 74 43 28 43  Procedure PutC(C
000070: 3A 20 42 79 74 65 29 3B 0D 0A 0D 0A 20 20 20 20  : Byte);....    
000080: 42 65 67 69 6E 0D 0A 20 20 20 20 20 20 52 65 67  Begin..      Reg
000090: 73 2E 41 48 3A 3D 32 3B 0D 0A 20 20 20 20 20 20  s.AH:=2;..      
0000A0: 52 65 67 73 2E 44 4C 3A 3D 43 3B 0D 0A 20 20 20  Regs.DL:=C;..   
0000B0: 20 20 20 4D 73 44 6F 73 28 52 65 67 73 29 3B 0D     MsDos(Regs);.
0000C0: 0A 20 20 20 20 45 6E 64 3B 0D 0A 0D 0A 20 20 56  .    End;....  V
0000D0: 61 72 0D 0A 20 20 20 20 53 3A 20 53 74 72 69 6E  ar..    S: Strin
0000E0: 67 5B 32 35 35 5D 3B 0D 0A 20 20 20 20 49 3A 20  g[255];..    I: 
0000F0: 42 79 74 65 3B 0D 0A 0D 0A 20 20 42 65 67 69 6E  Byte;....  Begin
000100: 0D 0A 20 20 20 20 43 6F 6E 49 6E 50 74 72 3A 3D  ..    ConInPtr:=
000110: 4F 66 73 28 47 65 74 43 29 3B 0D 0A 20 20 20 20  Ofs(GetC);..    
000120: 43 6F 6E 4F 75 74 50 74 72 3A 3D 4F 66 73 28 50  ConOutPtr:=Ofs(P
000130: 75 74 43 29 3B 0D 0A 20 20 20 20 57 68 69 6C 65  utC);..    While
000140: 20 4E 6F 74 20 45 6F 66 28 4B 62 64 29 20 44 6F   Not Eof(Kbd) Do
000150: 0D 0A 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 20  ..     Begin..  
000160: 20 20 20 20 52 65 61 64 4C 6E 28 4B 62 64 2C 53      ReadLn(Kbd,S
000170: 29 3B 0D 0A 20 20 20 20 20 20 46 6F 72 20 49 3A  );..      For I:
000180: 3D 31 20 54 6F 20 4C 65 6E 67 74 68 28 53 29 20  =1 To Length(S) 
000190: 44 6F 0D 0A 20 20 20 20 20 20 20 20 49 66 20 28  Do..        If (
0001A0: 53 5B 49 5D 3E 3D 27 41 27 29 20 41 6E 64 20 28  S[I]>='A') And (
0001B0: 53 5B 49 5D 3C 3D 27 5A 27 29 20 54 68 65 6E 20  S[I]<='Z') Then 
0001C0: 53 5B 49 5D 3A 3D 43 68 72 28 4F 72 64 28 53 5B  S[I]:=Chr(Ord(S[
0001D0: 49 5D 29 2B 33 32 29 3B 0D 0A 20 20 20 20 20 20  I])+32);..      
0001E0: 57 72 69 74 65 4C 6E 28 53 29 3B 0D 0A 20 20 20  WriteLn(S);..   
0001F0: 20 20 45 6E 64 3B 0D 0A 20 20 45 6E 64 2E 0D 0A    End;..  End...

Size : 512 (Real : 512)
000000: 20 28 2A 20 4D 6F 64 75 73 20 38 30 78 32 35 20   (* Modus 80x25 
000010: 42 2F 57 2C 20 41 6C 70 68 61 6E 75 6D 65 72 69  B/W, Alphanumeri
000020: 73 63 68 20 2A 29 0D 0A 20 20 56 69 64 65 6F 43  sch *)..  VideoC
000030: 6F 6C 6F 72 38 30 78 32 35 41 20 20 20 20 20 3D  olor80x25A     =
000040: 20 20 20 20 33 3B 20 20 28 2A 20 4D 6F 64 75 73      3;  (* Modus
000050: 20 38 30 78 32 35 20 53 70 61 6C 74 65 6F 72 2C   80x25 Spalteor,
000060: 20 41 6C 70 68 61 6E 75 6D 65 72 69 73 63 68 20   Alphanumerisch 
000070: 2A 29 0D 0A 0D 0A 74 79 70 65 0D 0A 20 20 52 65  *)....type..  Re
000080: 73 75 6C 74 20 3D 20 20 20 20 20 20 20 20 20 20  sult =          
000090: 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 52              (* R
0000A0: 65 67 69 73 74 65 72 20 70 61 63 6B 20 2A 29 0D  egister pack *).
0000B0: 0A 20 20 20 20 72 65 63 6F 72 64 0D 0A 20 20 20  .    record..   
0000C0: 20 20 20 41 58 2C 42 58 2C 43 58 2C 44 58 2C 42     AX,BX,CX,DX,B
0000D0: 50 2C 53 49 2C 44 49 2C 44 53 2C 45 53 2C 46 6C  P,SI,DI,DS,ES,Fl
0000E0: 61 67 73 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 20  ags: Integer;.. 
0000F0: 20 20 20 65 6E 64 3B 0D 0A 0D 0A 76 61 72 0D 0A     end;....var..
000100: 20 20 52 65 63 20 20 20 20 20 20 20 20 20 20 20    Rec           
000110: 20 20 20 20 20 20 20 3A 20 52 65 73 75 6C 74 3B         : Result;
000120: 0D 0A 20 20 5A 65 69 6C 65 2C 53 70 61 6C 74 65  ..  Zeile,Spalte
000130: 20 20 20 20 20 20 20 20 20 3A 20 49 6E 74 65 67           : Integ
000140: 65 72 3B 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 20  er;....begin..  
000150: 52 65 63 2E 41 58 20 3A 3D 20 53 65 74 7A 65 56  Rec.AX := SetzeV
000160: 69 64 65 6F 20 2B 20 56 69 64 65 6F 42 57 38 30  ideo + VideoBW80
000170: 78 32 35 41 3B 20 28 2A 20 42 57 20 38 30 78 32  x25A; (* BW 80x2
000180: 35 20 41 6E 7A 65 69 67 65 20 61 6C 73 20 53 74  5 Anzeige als St
000190: 61 6E 64 61 72 64 20 2A 29 0D 0A 20 20 20 20 20  andard *)..     
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001C0: 20 20 20 28 2A 20 46 75 65 72 20 64 69 65 20 43     (* Fuer die C
0001D0: 6F 6C 6F 72 6B 61 72 74 65 20 6D 75 7E 0D 0A 20  olorkarte mu~.. 
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  

Size : 512 (Real : 512)
000000: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000010: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000020: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000030: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000040: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000050: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000060: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000070: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000080: 42 65 67 69 6E 0D 0A 20 20 20 20 20 20 52 65 67  Begin..      Reg
000090: 73 2E 41 48 3A 3D 32 3B 0D 0A 20 20 20 20 20 20  s.AH:=2;..      
0000A0: 52 65 67 73 2E 44 4C 3A 3D 43 3B 0D 0A 20 20 20  Regs.DL:=C;..   
0000B0: 20 20 20 4D 73 44 6F 73 28 52 65 67 73 29 3B 0D     MsDos(Regs);.
0000C0: 0A 20 20 20 20 45 6E 64 3B 0D 0A 0D 0A 20 20 56  .    End;....  V
0000D0: 61 72 0D 0A 20 20 20 20 53 3A 20 53 74 72 69 6E  ar..    S: Strin
0000E0: 67 5B 32 35 35 5D 3B 0D 0A 20 20 20 20 49 3A 20  g[255];..    I: 
0000F0: 42 79 74 65 3B 0D 0A 0D 0A 20 20 42 65 67 69 6E  Byte;....  Begin
000100: 0D 0A 20 20 20 20 43 6F 6E 49 6E 50 74 72 3A 3D  ..    ConInPtr:=
000110: 4F 66 73 28 47 65 74 43 29 3B 0D 0A 20 20 20 20  Ofs(GetC);..    
000120: 43 6F 6E 4F 75 74 50 74 72 3A 3D 4F 66 73 28 50  ConOutPtr:=Ofs(P
000130: 75 74 43 29 3B 0D 0A 20 20 20 20 57 68 69 6C 65  utC);..    While
000140: 20 4E 6F 74 20 45 6F 66 28 4B 62 64 29 20 44 6F   Not Eof(Kbd) Do
000150: 0D 0A 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 20  ..     Begin..  
000160: 20 20 20 20 52 65 61 64 4C 6E 28 4B 62 64 2C 53      ReadLn(Kbd,S
000170: 29 3B 0D 0A 20 20 20 20 20 20 46 6F 72 20 49 3A  );..      For I:
000180: 3D 31 20 54 6F 20 4C 65 6E 67 74 68 28 53 29 20  =1 To Length(S) 
000190: 44 6F 0D 0A 20 20 20 20 20 20 20 20 49 66 20 28  Do..        If (
0001A0: 53 5B 49 5D 3E 3D 27 41 27 29 20 41 6E 64 20 28  S[I]>='A') And (
0001B0: 53 5B 49 5D 3C 3D 27 5A 27 29 20 54 68 65 6E 20  S[I]<='Z') Then 
0001C0: 53 5B 49 5D 3A 3D 43 68 72 28 4F 72 64 28 53 5B  S[I]:=Chr(Ord(S[
0001D0: 49 5D 29 2B 33 32 29 3B 0D 0A 20 20 20 20 20 20  I])+32);..      
0001E0: 57 72 69 74 65 4C 6E 28 53 29 3B 0D 0A 20 20 20  WriteLn(S);..   
0001F0: 20 20 45 6E 64 3B 0D 0A 20 20 45 6E 64 2E 0D 0A    End;..  End...

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 56 69 64 65 6F 43            VideoC
000010: 6F 6C 6F 72 38 30 78 32 35 41 20 65 69 6E 67 65  olor80x25A einge
000020: 73 65 74 7A 74 0D 0A 20 20 20 20 20 20 20 20 20  setzt..         
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000050: 20 20 77 65 72 64 65 6E 20 2A 29 0D 0A 20 20 52    werden *)..  R
000060: 65 63 2E 42 58 20 3A 3D 20 31 35 3B 0D 0A 20 20  ec.BX := 15;..  
000070: 49 6E 74 72 28 56 69 64 65 6F 2C 52 65 63 29 3B  Intr(Video,Rec);
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000090: 20 20 20 20 20 20 28 2A 20 53 65 74 7A 65 20 56        (* Setze V
0000A0: 69 64 65 6F 20 4D 6F 64 75 73 20 2A 29 0D 0A 20  ideo Modus *).. 
0000B0: 20 52 65 63 2E 41 58 20 3A 3D 20 53 63 68 72 65   Rec.AX := Schre
0000C0: 69 62 65 43 68 61 72 20 2B 20 4F 72 64 28 27 41  ibeChar + Ord('A
0000D0: 27 29 3B 0D 0A 20 20 49 6E 74 72 28 56 69 64 65  ');..  Intr(Vide
0000E0: 6F 2C 52 65 63 29 3B 20 20 20 20 20 20 20 20 20  o,Rec);         
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20               (* 
000100: 47 65 62 65 20 27 41 27 20 61 75 73 20 2A 29 0D  Gebe 'A' aus *).
000110: 0A 20 20 52 65 63 2E 41 58 20 3A 3D 20 4C 65 73  .  Rec.AX := Les
000120: 65 43 75 72 73 6F 72 3B 0D 0A 20 20 49 6E 74 72  eCursor;..  Intr
000130: 28 56 69 64 65 6F 2C 52 65 63 29 3B 20 20 20 20  (Video,Rec);    
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000150: 20 20 28 2A 20 4C 65 73 65 20 64 69 65 20 43 75    (* Lese die Cu
000160: 72 73 6F 72 20 50 6F 73 69 74 69 6F 6E 20 2A 29  rsor Position *)
000170: 0D 0A 20 20 5A 65 69 6C 65 20 3A 3D 20 52 65 63  ..  Zeile := Rec
000180: 2E 44 58 20 61 6E 64 20 24 46 46 30 30 20 73 68  .DX and $FF00 sh
000190: 72 20 38 3B 0D 0A 20 20 53 70 61 6C 74 65 20 3A  r 8;..  Spalte :
0001A0: 3D 20 52 65 63 2E 44 58 20 61 6E 64 20 24 46 46  = Rec.DX and $FF
0001B0: 3B 0D 0A 20 20 57 72 69 74 65 28 27 5A 65 69 6C  ;..  Write('Zeil
0001C0: 65 20 3D 27 2C 5A 65 69 6C 65 2C 27 20 53 70 61  e =',Zeile,' Spa
0001D0: 6C 74 65 20 3D 20 27 2C 53 70 61 6C 74 65 29 3B  lte = ',Spalte);
0001E0: 20 28 2A 20 5A 65 69 67 65 20 5A 65 69 6C 65 20   (* Zeige Zeile 
0001F0: 75 6E 64 20 53 70 61 6C 74 65 20 2A 29 0D 0A 20  und Spalte *).. 

Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 4E 69 6D 6D 46 75 6E 6B  program NimmFunk
000010: 74 69 6F 6E 73 74 61 73 74 65 6E 44 61 74 65 6E  tionstastenDaten
000020: 3B 0D 0A 28 2A 0D 0A 20 20 20 20 20 20 20 20 44  ;..(*..        D
000030: 69 65 73 65 73 20 50 72 6F 67 72 61 6D 6D 20 70  ieses Programm p
000040: 72 81 66 74 20 64 69 65 20 54 61 73 74 61 74 75  r.ft die Tastatu
000050: 72 20 6E 61 63 68 20 54 61 73 74 65 6E 20 64 69  r nach Tasten di
000060: 65 20 65 69 6E 65 6E 0D 0A 20 20 20 20 20 20 20  e einen..       
000070: 20 5A 77 65 69 20 5A 65 69 63 68 65 6E 20 43 6F   Zwei Zeichen Co
000080: 64 65 20 65 72 7A 65 75 67 65 6E 2E 20 41 75 66  de erzeugen. Auf
000090: 20 64 65 6E 20 6D 65 69 73 74 65 6E 20 54 61 73   den meisten Tas
0000A0: 74 61 74 75 72 65 6E 20 69 73 74 20 64 61 62 65  taturen ist dabe
0000B0: 69 0D 0A 20 20 20 20 20 20 20 20 64 61 73 20 65  i..        das e
0000C0: 72 73 74 65 20 5A 65 69 63 68 65 6E 20 45 53 43  rste Zeichen ESC
0000D0: 20 75 6E 64 20 64 61 73 20 7A 77 65 69 74 65 20   und das zweite 
0000E0: 61 6C 70 68 61 6E 75 6D 65 72 69 73 63 68 0D 0A  alphanumerisch..
0000F0: 2A 29 0D 0A 76 61 72 0D 0A 20 20 5A 65 69 63 68  *)..var..  Zeich
000100: 65 6E 20 20 20 20 20 20 20 20 20 20 20 20 3A 20  en            : 
000110: 43 68 61 72 3B 0D 0A 20 20 56 6F 72 68 65 72 20  Char;..  Vorher 
000120: 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 42 6F              : Bo
000130: 6F 6C 65 61 6E 3B 0D 0A 20 20 5A 61 65 68 6C 65  olean;..  Zaehle
000140: 72 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 49  r            : I
000150: 6E 74 65 67 65 72 3B 0D 0A 0D 0A 62 65 67 69 6E  nteger;....begin
000160: 0D 0A 20 20 66 6F 72 20 5A 61 65 68 6C 65 72 20  ..  for Zaehler 
000170: 3A 3D 20 31 20 74 6F 20 32 30 20 64 6F 20 62 65  := 1 to 20 do be
000180: 67 69 6E 0D 0A 20 20 20 20 52 65 61 64 28 4B 62  gin..    Read(Kb
000190: 64 2C 5A 65 69 63 68 65 6E 29 3B 20 20 20 20 20  d,Zeichen);     
0001A0: 20 20 20 20 20 20 28 2A 20 45 69 6E 20 5A 65 69        (* Ein Zei
0001B0: 63 68 65 6E 20 6C 65 73 65 6E 2C 20 77 65 6E 6E  chen lesen, wenn
0001C0: 20 5A 65 69 63 68 65 6E 3D 45 53 43 20 64 61 6E   Zeichen=ESC dan
0001D0: 6E 20 2A 29 0D 0A 20 20 20 20 69 66 20 5A 65 69  n *)..    if Zei
0001E0: 63 68 65 6E 20 3D 20 63 68 72 28 32 37 29 20 74  chen = chr(27) t
0001F0: 68 65 6E 20 62 65 67 69 6E 20 20 20 20 28 2A 20  hen begin    (* 

Size : 512 (Real : 512)
000000: 20 52 65 63 2E 41 58 20 3A 3D 20 53 65 74 7A 65   Rec.AX := Setze
000010: 43 75 72 50 6F 73 69 74 69 6F 6E 3B 0D 0A 20 20  CurPosition;..  
000020: 52 65 63 2E 44 58 20 3A 3D 20 24 30 41 30 41 3B  Rec.DX := $0A0A;
000030: 0D 0A 20 20 49 6E 74 72 28 56 69 64 65 6F 2C 52  ..  Intr(Video,R
000040: 65 63 29 3B 20 20 20 20 20 20 20 20 20 20 20 20  ec);            
000050: 20 20 20 20 20 20 20 20 20 20 28 2A 20 53 65 74            (* Set
000060: 7A 65 20 64 65 6E 20 43 75 72 73 6F 72 20 61 75  ze den Cursor au
000070: 66 20 5A 65 69 6C 65 20 31 30 0D 0A 20 20 20 20  f Zeile 10..    
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000A0: 20 20 20 20 20 20 20 75 6E 64 20 53 70 61 6C 74         und Spalt
0000B0: 65 20 31 30 20 2A 29 0D 0A 20 20 52 65 63 2E 41  e 10 *)..  Rec.A
0000C0: 58 20 3A 3D 20 53 63 68 72 65 69 62 65 43 68 61  X := SchreibeCha
0000D0: 72 20 2B 20 4F 72 64 28 27 23 27 29 3B 0D 0A 20  r + Ord('#');.. 
0000E0: 20 49 6E 74 72 28 56 69 64 65 6F 2C 52 65 63 29   Intr(Video,Rec)
0000F0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;               
000100: 20 20 20 20 20 20 20 28 2A 20 67 69 62 20 20 27         (* gib  '
000110: 23 27 20 61 75 73 20 2A 29 0D 0A 20 20 52 65 63  #' aus *)..  Rec
000120: 2E 41 58 20 3A 3D 20 4C 65 73 65 43 75 72 73 6F  .AX := LeseCurso
000130: 72 3B 0D 0A 20 20 49 6E 74 72 28 56 69 64 65 6F  r;..  Intr(Video
000140: 2C 52 65 63 29 3B 20 20 20 20 20 20 20 20 20 20  ,Rec);          
000150: 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 4C              (* L
000160: 65 73 65 20 64 69 65 20 43 75 72 73 6F 72 20 50  ese die Cursor P
000170: 6F 73 69 74 69 6F 6E 20 2A 29 0D 0A 20 20 5A 65  osition *)..  Ze
000180: 69 6C 65 20 3A 3D 20 52 65 63 2E 44 58 20 61 6E  ile := Rec.DX an
000190: 64 20 24 46 46 30 30 20 73 68 72 20 38 3B 0D 0A  d $FF00 shr 8;..
0001A0: 20 20 53 70 61 6C 74 65 20 3A 3D 20 52 65 63 2E    Spalte := Rec.
0001B0: 44 58 20 61 6E 64 20 24 46 46 3B 0D 0A 20 20 57  DX and $FF;..  W
0001C0: 72 69 74 65 28 27 5A 65 69 6C 65 20 3D 27 2C 5A  rite('Zeile =',Z
0001D0: 65 69 6C 65 2C 27 20 53 70 61 6C 74 65 75 6D 6E  eile,' Spalteumn
0001E0: 20 3D 20 27 2C 53 70 61 6C 74 65 29 3B 20 28 2A   = ',Spalte); (*
0001F0: 20 5A 65 69 67 65 20 5A 65 69 6C 65 20 75 6E 64   Zeige Zeile und

Size : 512 (Real : 512)
000000: 6D 75 E1 20 65 73 20 65 6E 74 77 65 64 65 72 20  mu. es entweder 
000010: 64 69 65 20 45 53 43 20 54 61 73 74 65 20 73 65  die ESC Taste se
000020: 69 6E 20 2A 29 0D 0A 20 20 20 20 20 20 56 6F 72  in *)..      Vor
000030: 68 65 72 20 3A 3D 20 54 72 75 65 3B 20 20 20 20  her := True;    
000040: 20 20 20 20 20 20 20 20 28 2A 20 65 69 6E 65 20          (* eine 
000050: 64 69 65 20 65 69 6E 65 6E 20 5A 77 65 69 20 5A  die einen Zwei Z
000060: 65 69 63 68 65 6E 20 43 6F 64 65 20 65 72 7A 65  eichen Code erze
000070: 75 67 74 20 2A 29 0D 0A 20 20 20 20 20 20 52 65  ugt *)..      Re
000080: 61 64 28 4B 62 64 2C 5A 65 69 63 68 65 6E 29 3B  ad(Kbd,Zeichen);
000090: 0D 0A 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 65  ..    end..    e
0000A0: 6C 73 65 20 56 6F 72 68 65 72 20 3A 3D 20 46 61  lse Vorher := Fa
0000B0: 6C 73 65 3B 0D 0A 20 20 20 20 69 66 20 56 6F 72  lse;..    if Vor
0000C0: 68 65 72 0D 0A 20 20 20 20 20 20 74 68 65 6E 20  her..      then 
0000D0: 57 72 69 74 65 28 27 56 6F 72 68 65 72 20 27 29  Write('Vorher ')
0000E0: 0D 0A 20 20 20 20 20 20 65 6C 73 65 20 57 72 69  ..      else Wri
0000F0: 74 65 28 27 45 69 6E 7A 65 6C 6E 65 73 20 5A 65  te('Einzelnes Ze
000100: 69 63 68 65 6E 20 27 29 3B 0D 0A 20 20 20 20 57  ichen ');..    W
000110: 72 69 74 65 4C 6E 28 27 4F 72 64 28 5A 65 69 63  riteLn('Ord(Zeic
000120: 68 65 6E 29 3D 20 27 2C 4F 72 64 28 5A 65 69 63  hen)= ',Ord(Zeic
000130: 68 65 6E 29 29 0D 0A 20 20 65 6E 64 0D 0A 65 6E  hen))..  end..en
000140: 64 2E 20 28 2A 20 64 65 73 20 50 72 6F 67 72 61  d. (* des Progra
000150: 6D 6D 73 20 20 4E 69 6D 6D 46 75 6E 6B 74 69 6F  mms  NimmFunktio
000160: 6E 73 74 61 73 74 65 6E 44 61 74 65 6E 20 2A 29  nstastenDaten *)
000170: 0D 0A 1A 49 6E 74 65 67 65 72 29 3B 0D 0A 20 20  ...Integer);..  
000180: 67 69 6E 0D 0A 20 20 20 20 52 65 61 64 28 4B 62  gin..    Read(Kb
000190: 64 2C 5A 65 69 63 68 65 6E 29 3B 20 20 20 20 20  d,Zeichen);     
0001A0: 20 20 20 20 20 20 28 2A 20 45 69 6E 20 5A 65 69        (* Ein Zei
0001B0: 63 68 65 6E 20 6C 65 73 65 6E 2C 20 77 65 6E 6E  chen lesen, wenn
0001C0: 20 5A 65 69 63 68 65 6E 3D 45 53 43 20 64 61 6E   Zeichen=ESC dan
0001D0: 6E 20 2A 29 0D 0A 20 20 20 20 69 66 20 5A 65 69  n *)..    if Zei
0001E0: 63 68 65 6E 20 3D 20 63 68 72 28 32 37 29 20 74  chen = chr(27) t
0001F0: 68 65 6E 20 62 65 67 69 6E 20 20 20 20 28 2A 20  hen begin    (* 

Size : 512 (Real : 512)
000000: 20 53 70 61 6C 74 65 20 2A 29 0D 0A 20 20 52 65   Spalte *)..  Re
000010: 63 2E 41 58 20 3A 3D 20 53 65 74 7A 65 43 75 72  c.AX := SetzeCur
000020: 50 6F 73 69 74 69 6F 6E 3B 0D 0A 20 20 52 65 63  Position;..  Rec
000030: 2E 44 58 20 3A 3D 20 24 31 34 31 34 3B 0D 0A 20  .DX := $1414;.. 
000040: 20 49 6E 74 72 28 56 69 64 65 6F 2C 52 65 63 29   Intr(Video,Rec)
000050: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;               
000060: 20 20 20 20 20 20 20 28 2A 20 53 65 74 7A 65 20         (* Setze 
000070: 43 75 72 73 6F 72 20 61 75 66 20 5A 65 69 6C 65  Cursor auf Zeile
000080: 20 32 30 20 75 6E 64 0D 0A 20 20 20 20 20 20 20   20 und..       
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000B0: 20 20 20 20 53 70 61 6C 74 65 20 32 30 20 2A 29      Spalte 20 *)
0000C0: 0D 0A 65 6E 64 2E 20 28 2A 20 64 65 73 20 50 72  ..end. (* des Pr
0000D0: 6F 67 72 61 6D 6D 73 20 49 42 4D 70 63 53 63 72  ogramms IBMpcScr
0000E0: 65 65 6E 20 2A 29 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A  een *)..........
0000F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000100: 20 20 20 20 20 20 20 28 2A 20 67 69 62 20 20 27         (* gib  '
000110: 23 27 20 61 75 73 20 2A 29 0D 0A 20 20 52 65 63  #' aus *)..  Rec
000120: 2E 41 58 20 3A 3D 20 4C 65 73 65 43 75 72 73 6F  .AX := LeseCurso
000130: 72 3B 0D 0A 20 20 49 6E 74 72 28 56 69 64 65 6F  r;..  Intr(Video
000140: 2C 52 65 63 29 3B 20 20 20 20 20 20 20 20 20 20  ,Rec);          
000150: 20 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 4C              (* L
000160: 65 73 65 20 64 69 65 20 43 75 72 73 6F 72 20 50  ese die Cursor P
000170: 6F 73 69 74 69 6F 6E 20 2A 29 0D 0A 20 20 5A 65  osition *)..  Ze
000180: 69 6C 65 20 3A 3D 20 52 65 63 2E 44 58 20 61 6E  ile := Rec.DX an
000190: 64 20 24 46 46 30 30 20 73 68 72 20 38 3B 0D 0A  d $FF00 shr 8;..
0001A0: 20 20 53 70 61 6C 74 65 20 3A 3D 20 52 65 63 2E    Spalte := Rec.
0001B0: 44 58 20 61 6E 64 20 24 46 46 3B 0D 0A 20 20 57  DX and $FF;..  W
0001C0: 72 69 74 65 28 27 5A 65 69 6C 65 20 3D 27 2C 5A  rite('Zeile =',Z
0001D0: 65 69 6C 65 2C 27 20 53 70 61 6C 74 65 75 6D 6E  eile,' Spalteumn
0001E0: 20 3D 20 27 2C 53 70 61 6C 74 65 29 3B 20 28 2A   = ',Spalte); (*
0001F0: 20 5A 65 69 67 65 20 5A 65 69 6C 65 20 75 6E 64   Zeige Zeile und

Size : 512 (Real : 512)
000000: 0D 0A 70 72 6F 67 72 61 6D 20 49 42 4D 70 63 53  ..program IBMpcS
000010: 63 72 65 65 6E 3B 0D 0A 0D 0A 20 20 20 20 28 2A  creen;....    (*
000020: 20 44 69 65 73 65 73 20 50 72 6F 67 72 61 6D 6D   Dieses Programm
000030: 20 7A 65 69 67 74 20 64 69 72 65 6B 74 65 20 42   zeigt direkte B
000040: 69 6C 64 73 63 68 69 72 6D 61 75 73 67 61 62 65  ildschirmausgabe
000050: 20 75 65 62 65 72 20 64 65 6E 20 2A 29 0D 0A 20   ueber den *).. 
000060: 20 20 20 28 2A 20 49 6E 74 65 72 72 75 70 74 20     (* Interrupt 
000070: 31 30 20 28 56 69 64 65 6F 20 49 6E 74 65 72 72  10 (Video Interr
000080: 75 70 74 29 20 62 65 69 6D 20 49 42 4D 20 50 43  upt) beim IBM PC
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000A0: 2A 29 0D 0A 0D 0A 63 6F 6E 73 74 0D 0A 20 20 56  *)....const..  V
0000B0: 69 64 65 6F 20 20 20 20 20 20 20 20 20 20 20 20  ideo            
0000C0: 20 20 20 20 3D 20 20 24 31 30 3B 20 20 28 2A 20      =  $10;  (* 
0000D0: 53 65 74 7A 65 20 56 69 64 65 6F 20 49 2F 4F 20  Setze Video I/O 
0000E0: 49 6E 74 65 72 72 75 70 74 20 2A 29 0D 0A 20 20  Interrupt *)..  
0000F0: 53 65 74 7A 65 56 69 64 65 6F 20 20 20 20 20 20  SetzeVideo      
000100: 20 20 20 20 20 3D 20 20 20 20 30 3B 20 20 28 2A       =    0;  (*
000110: 20 53 65 74 7A 65 20 56 69 64 65 6F 20 4D 6F 64   Setze Video Mod
000120: 75 73 20 2A 29 0D 0A 20 20 53 65 74 7A 65 43 75  us *)..  SetzeCu
000130: 72 50 6F 73 69 74 69 6F 6E 20 20 20 20 20 3D 20  rPosition     = 
000140: 24 32 30 30 3B 20 20 28 2A 20 53 65 74 7A 65 20  $200;  (* Setze 
000150: 43 75 72 73 6F 72 20 50 6F 73 69 74 69 6F 6E 20  Cursor Position 
000160: 2A 29 0D 0A 20 20 4C 65 73 65 43 75 72 73 6F 72  *)..  LeseCursor
000170: 20 20 20 20 20 20 20 20 20 20 20 3D 20 24 33 30             = $30
000180: 30 3B 20 20 28 2A 20 4C 65 73 65 20 43 75 72 73  0;  (* Lese Curs
000190: 6F 72 20 50 6F 73 69 74 69 6F 6E 20 2A 29 0D 0A  or Position *)..
0001A0: 20 20 53 63 68 72 65 69 62 65 43 68 61 72 20 20    SchreibeChar  
0001B0: 20 20 20 20 20 20 20 3D 20 24 45 30 30 3B 20 20         = $E00;  
0001C0: 28 2A 20 53 63 68 72 65 69 62 65 20 5A 65 69 63  (* Schreibe Zeic
0001D0: 68 65 6E 20 74 6F 20 73 63 65 65 6E 20 2A 29 0D  hen to sceen *).
0001E0: 0A 20 20 56 69 64 65 6F 42 57 38 30 78 32 35 41  .  VideoBW80x25A
0001F0: 20 20 20 20 20 20 20 20 3D 20 20 20 20 32 3B 20          =    2; 

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

Size : 512 (Real : 512)
000000: 6C 65 72 3A 20 20 27 2C 49 4F 57 65 72 74 3A 33  ler:  ',IOWert:3
000010: 29 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20  )..    end;..   
000020: 20 52 65 61 64 28 4B 62 64 2C 43 68 29 0D 0A 20   Read(Kbd,Ch).. 
000030: 20 65 6E 64 0D 0A 65 6E 64 3B 20 28 2A 20 76 6F   end..end; (* vo
000040: 6E 20 50 72 6F 7A 65 64 75 72 20 49 4F 50 72 75  n Prozedur IOPru
000050: 65 66 65 20 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64  efe *)....proced
000060: 75 72 65 20 4E 65 6E 6E 65 5A 65 69 6C 65 6E 6E  ure NenneZeilenn
000070: 75 6D 6D 65 72 28 5A 65 69 6C 65 6E 6E 75 6D 6D  ummer(Zeilennumm
000080: 65 72 20 3A 20 49 6E 74 65 67 65 72 29 3B 0D 0A  er : Integer);..
000090: 28 2A 0D 0A 20 20 20 20 20 20 20 44 69 65 73 65  (*..       Diese
0000A0: 20 20 52 6F 75 74 69 6E 65 20 20 67 69 62 74 20    Routine  gibt 
0000B0: 49 68 6E 65 6E 20 61 6E 2C 20 20 77 65 6C 63 68  Ihnen an,  welch
0000C0: 65 20 20 5A 65 69 6C 65 6E 6E 75 6D 6D 65 72 20  e  Zeilennummer 
0000D0: 20 67 65 72 61 64 65 0D 0A 20 20 20 20 20 20 20   gerade..       
0000E0: 61 75 73 67 65 66 75 65 68 72 74 20 20 77 69 72  ausgefuehrt  wir
0000F0: 64 2C 20 20 73 6F 20 64 61 61 20 53 69 65 20 73  d,  so daa Sie s
000100: 65 68 65 6E 20 6B 6F 65 6E 6E 65 6E 20 77 65 6C  ehen koennen wel
000110: 63 68 65 20 20 41 6E 77 65 69 73 75 6E 67 0D 0A  che  Anweisung..
000120: 20 20 20 20 20 20 20 77 65 6C 63 68 65 6E 20 46         welchen F
000130: 65 68 6C 65 72 20 76 65 72 75 72 73 61 63 68 74  ehler verursacht
000140: 2E 0D 0A 2A 29 0D 0A 62 65 67 69 6E 0D 0A 20 20  ...*)..begin..  
000150: 47 6F 74 6F 58 59 28 31 2C 31 29 3B 20 43 6C 72  GotoXY(1,1); Clr
000160: 45 6F 6C 3B 0D 0A 20 20 57 72 69 74 65 28 27 41  Eol;..  Write('A
000170: 75 73 66 75 65 68 72 65 6E 64 65 20 5A 65 69 6C  usfuehrende Zeil
000180: 65 20 23 27 2C 5A 65 69 6C 65 6E 6E 75 6D 6D 65  e #',Zeilennumme
000190: 72 29 0D 0A 65 6E 64 3B 20 28 2A 20 76 6F 6E 20  r)..end; (* von 
0001A0: 50 72 6F 7A 65 64 75 72 20 4E 65 6E 6E 65 5A 65  Prozedur NenneZe
0001B0: 69 6C 65 6E 6E 75 6D 6D 65 72 20 2A 29 0D 0A 0D  ilennummer *)...
0001C0: 0A 62 65 67 69 6E 0D 0A 20 20 43 6C 72 53 63 72  .begin..  ClrScr
0001D0: 3B 0D 0A 20 20 28 2A 24 49 2D 2A 29 20 28 2A 20  ;..  (*$I-*) (* 
0001E0: 49 2F 4F 20 43 68 65 63 6B 20 61 62 73 63 68 61  I/O Check abscha
0001F0: 6C 74 65 6E 20 2A 29 0D 0A 20 20 4E 65 6E 6E 65  lten *)..  Nenne

Size : 512 (Real : 512)
000000: 28 2A 20 52 2B 20 2A 29 0D 0A 70 72 6F 67 72 61  (* R+ *)..progra
000010: 6D 20 54 65 73 74 49 4F 50 72 75 65 66 65 3B 0D  m TestIOPruefe;.
000020: 0A 28 2A 0D 0A 20 20 20 20 20 20 20 44 69 65 20  .(*..       Die 
000030: 20 52 6F 75 74 69 6E 65 20 20 49 4F 50 72 75 65   Routine  IOPrue
000040: 66 65 20 20 73 6F 6C 6C 74 65 20 7A 75 73 61 6D  fe  sollte zusam
000050: 6D 65 6E 20 20 6D 69 74 20 20 64 65 6E 20 20 67  men  mit  den  g
000060: 6C 6F 62 61 6C 65 6E 0D 0A 20 20 20 20 20 20 20  lobalen..       
000070: 44 65 6B 6C 61 72 61 74 69 6F 6E 65 6E 20 20 49  Deklarationen  I
000080: 4F 57 65 72 74 20 75 6E 64 20 49 4F 46 65 68 6C  OWert und IOFehl
000090: 65 72 20 69 6E 20 65 69 6E 65 6D 20 50 72 6F 67  er in einem Prog
0000A0: 72 61 6D 6D 20 20 64 6F 72 74 0D 0A 20 20 20 20  ramm  dort..    
0000B0: 20 20 20 70 6C 61 7A 69 65 72 74 20 20 77 65 72     plaziert  wer
0000C0: 64 65 6E 2C 20 20 77 6F 20 20 53 69 65 20 20 49  den,  wo  Sie  I
0000D0: 68 72 65 20 20 65 69 67 65 6E 65 20 20 49 2F 4F  hre  eigene  I/O
0000E0: 20 20 46 65 68 6C 65 72 70 72 75 65 66 75 6E 67    Fehlerpruefung
0000F0: 0D 0A 20 20 20 20 20 20 20 61 62 77 69 63 6B 65  ..       abwicke
000100: 6C 6E 20 6D 6F 65 63 68 74 65 6E 2E 0D 0A 20 20  ln moechten...  
000110: 20 20 20 20 20 2A 2A 2A 2A 2A 20 41 43 48 54 55       ***** ACHTU
000120: 4E 47 20 21 21 20 2A 2A 2A 2A 2A 0D 0A 20 20 20  NG !! *****..   
000130: 20 20 20 20 7B 20 24 49 2D 20 7D 20 66 75 6E 6B      { $I- } funk
000140: 74 69 6F 6E 69 65 72 74 20 6E 69 63 68 74 20 21  tioniert nicht !
000150: 21 21 0D 0A 20 20 20 20 20 20 20 65 73 20 6D 75  !!..       es mu
000160: 7E 20 7B 24 49 2D 7D 20 67 65 73 63 68 72 69 65  ~ {$I-} geschrie
000170: 62 65 6E 20 77 65 72 64 65 6E 2C 20 64 61 20 64  ben werden, da d
000180: 65 72 20 43 6F 6D 70 69 6C 65 72 20 64 61 73 20  er Compiler das 
000190: 4C 65 65 72 7A 65 69 63 68 65 6E 0D 0A 20 20 20  Leerzeichen..   
0001A0: 20 20 20 20 6E 69 63 68 74 20 6D 61 67 20 21 0D      nicht mag !.
0001B0: 0A 2A 29 0D 0A 0D 0A 63 6F 6E 73 74 0D 0A 20 20  .*)....const..  
0001C0: 49 4F 57 65 72 74 20 20 20 20 20 20 20 20 20 20  IOWert          
0001D0: 20 20 20 20 20 3A 20 49 6E 74 65 67 65 72 20 3D       : Integer =
0001E0: 20 30 3B 0D 0A 20 20 49 4F 46 65 68 6C 65 72 20   0;..  IOFehler 
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 42 6F              : Bo

Size : 512 (Real : 512)
000000: 5A 65 69 6C 65 6E 6E 75 6D 6D 65 72 28 31 29 3B  Zeilennummer(1);
000010: 20 41 73 73 69 67 6E 28 49 6E 44 61 74 65 69 2C   Assign(InDatei,
000020: 27 53 63 68 65 69 6E 27 29 3B 20 20 20 20 20 20  'Schein');      
000030: 20 49 4F 50 72 75 65 66 65 3B 0D 0A 20 20 4E 65   IOPruefe;..  Ne
000040: 6E 6E 65 5A 65 69 6C 65 6E 6E 75 6D 6D 65 72 28  nneZeilennummer(
000050: 32 29 3B 20 52 65 77 72 69 74 65 28 49 6E 44 61  2); Rewrite(InDa
000060: 74 65 69 29 3B 20 20 20 20 20 20 20 20 20 20 20  tei);           
000070: 20 20 20 20 49 4F 50 72 75 65 66 65 3B 0D 0A 20      IOPruefe;.. 
000080: 20 4E 65 6E 6E 65 5A 65 69 6C 65 6E 6E 75 6D 6D   NenneZeilennumm
000090: 65 72 28 33 29 3B 20 52 65 61 64 28 49 6E 44 61  er(3); Read(InDa
0000A0: 74 65 69 2C 5A 65 69 6C 65 29 3B 20 20 20 20 20  tei,Zeile);     
0000B0: 20 20 20 20 20 20 20 49 4F 50 72 75 65 66 65 3B         IOPruefe;
0000C0: 0D 0A 20 20 4E 65 6E 6E 65 5A 65 69 6C 65 6E 6E  ..  NenneZeilenn
0000D0: 75 6D 6D 65 72 28 34 29 3B 20 43 6C 6F 73 65 28  ummer(4); Close(
0000E0: 49 6E 44 61 74 65 69 29 3B 20 20 20 20 20 20 20  InDatei);       
0000F0: 20 20 20 20 20 20 20 20 20 20 49 4F 50 72 75 65            IOPrue
000100: 66 65 3B 0D 0A 65 6E 64 2E 20 28 2A 20 76 6F 6E  fe;..end. (* von
000110: 20 50 72 6F 67 72 61 6D 6D 20 54 65 73 74 49 4F   Programm TestIO
000120: 50 72 75 65 66 65 20 2A 29 0D 0A 1A 1A 1A 1A 1A  Pruefe *).......
000130: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000140: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000150: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000160: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000170: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000180: 65 20 23 27 2C 5A 65 69 6C 65 6E 6E 75 6D 6D 65  e #',Zeilennumme
000190: 72 29 0D 0A 65 6E 64 3B 20 28 2A 20 76 6F 6E 20  r)..end; (* von 
0001A0: 50 72 6F 7A 65 64 75 72 20 4E 65 6E 6E 65 5A 65  Prozedur NenneZe
0001B0: 69 6C 65 6E 6E 75 6D 6D 65 72 20 2A 29 0D 0A 0D  ilennummer *)...
0001C0: 0A 62 65 67 69 6E 0D 0A 20 20 43 6C 72 53 63 72  .begin..  ClrScr
0001D0: 3B 0D 0A 20 20 28 2A 24 49 2D 2A 29 20 28 2A 20  ;..  (*$I-*) (* 
0001E0: 49 2F 4F 20 43 68 65 63 6B 20 61 62 73 63 68 61  I/O Check abscha
0001F0: 6C 74 65 6E 20 2A 29 0D 0A 20 20 4E 65 6E 6E 65  lten *)..  Nenne

Size : 512 (Real : 512)
000000: 6F 6C 65 61 6E 20 3D 20 46 61 6C 73 65 3B 0D 0A  olean = False;..
000010: 76 61 72 0D 0A 20 20 49 6E 44 61 74 65 69 20 20  var..  InDatei  
000020: 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 54 65              : Te
000030: 78 74 3B 0D 0A 20 20 5A 65 69 6C 65 20 20 20 20  xt;..  Zeile    
000040: 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 73 74              : st
000050: 72 69 6E 67 5B 38 30 5D 3B 0D 0A 0D 0A 70 72 6F  ring[80];....pro
000060: 63 65 64 75 72 65 20 49 4F 50 72 75 65 66 65 3B  cedure IOPruefe;
000070: 0D 0A 28 2A 0D 0A 20 20 20 20 20 20 20 44 69 65  ..(*..       Die
000080: 73 65 20 20 52 6F 75 74 69 6E 65 20 20 73 65 74  se  Routine  set
000090: 7A 74 20 49 4F 46 65 68 6C 65 72 20 6D 69 74 20  zt IOFehler mit 
0000A0: 49 4F 72 65 73 75 6C 74 20 67 6C 65 69 63 68 20  IOresult gleich 
0000B0: 75 6E 64 20 20 64 61 6E 6E 0D 0A 20 20 20 20 20  und  dann..     
0000C0: 20 20 49 4F 57 65 72 74 20 20 20 64 65 6D 65 6E    IOWert   demen
0000D0: 74 73 70 72 65 63 68 65 6E 64 2E 20 20 20 41 75  tsprechend.   Au
0000E0: 7E 65 72 64 65 6D 20 20 64 72 75 63 6B 74 20 20  ~erdem  druckt  
0000F0: 65 73 20 20 61 75 66 20 20 64 65 6D 0D 0A 20 20  es  auf  dem..  
000100: 20 20 20 20 20 42 69 6C 64 73 63 68 69 72 6D 20       Bildschirm 
000110: 69 6E 20 64 65 72 20 32 34 74 65 6E 20 5A 65 69  in der 24ten Zei
000120: 6C 65 20 65 69 6E 65 20 4D 65 6C 64 75 6E 67 20  le eine Meldung 
000130: 61 75 73 2C 20 75 6E 64 20 65 72 77 61 72 74 65  aus, und erwarte
000140: 74 0D 0A 20 20 20 20 20 20 20 76 6F 72 20 20 64  t..       vor  d
000150: 65 72 20 20 57 65 69 74 65 72 62 65 61 72 62 65  er  Weiterbearbe
000160: 69 74 75 6E 67 2C 20 20 64 61 7E 20 64 65 72 20  itung,  da~ der 
000170: 42 65 6E 75 74 7A 65 72 20 20 65 69 6E 20 20 5A  Benutzer  ein  Z
000180: 65 69 63 68 65 6E 0D 0A 20 20 20 20 20 20 20 65  eichen..       e
000190: 69 6E 67 69 62 74 2E 0D 0A 0D 0A 2A 29 0D 0A 76  ingibt.....*)..v
0001A0: 61 72 0D 0A 20 20 43 68 20 20 20 20 20 20 20 20  ar..  Ch        
0001B0: 20 20 20 20 20 20 20 20 20 20 20 3A 20 43 68 61             : Cha
0001C0: 72 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 49 4F 57  r;..begin..  IOW
0001D0: 65 72 74 20 3A 3D 20 49 4F 72 65 73 75 6C 74 3B  ert := IOresult;
0001E0: 0D 0A 20 20 49 4F 46 65 68 6C 65 72 20 3A 3D 20  ..  IOFehler := 
0001F0: 28 49 4F 57 65 72 74 20 3C 3E 20 30 29 3B 0D 0A  (IOWert <> 0);..

Size : 512 (Real : 512)
000000: 4C 69 73 74 54 20 20 73 74 65 6C 6C 74 20 20 64  ListT  stellt  d
000010: 65 6E 20 45 72 73 61 74 7A 20 66 75 65 72 20 64  en Ersatz fuer d
000020: 61 73 20 66 72 75 65 68 65 72 65 20 54 75 72 62  as fruehere Turb
000030: 6F 20 20 50 61 73 63 61 6C 20 20 50 72 6F 67 72  o  Pascal  Progr
000040: 61 6D 6D 0D 0A 27 54 4C 49 53 54 27 20 20 64 61  amm..'TLIST'  da
000050: 72 2E 20 20 57 69 72 20 20 68 61 62 65 6E 20 20  r.  Wir  haben  
000060: 76 65 72 73 75 63 68 74 20 20 65 73 20 20 73 6F  versucht  es  so
000070: 20 20 66 6C 65 78 69 62 65 6C 20 20 75 6E 64 20    flexibel  und 
000080: 20 65 69 6E 66 61 63 68 0D 0A 62 65 6E 75 74 7A   einfach..benutz
000090: 62 61 72 20 20 77 69 65 20 20 6D 6F 65 67 6C 69  bar  wie  moegli
0000A0: 63 68 20 7A 75 20 6D 61 63 68 65 6E 2C 20 20 61  ch zu machen,  a
0000B0: 62 65 72 20 66 75 65 72 20 64 65 6E 20 20 46 61  ber fuer den  Fa
0000C0: 6C 6C 2C 20 20 64 61 7E 20 53 69 65 0D 0A 56 65  ll,  da~ Sie..Ve
0000D0: 72 62 65 73 73 65 72 75 6E 67 65 6E 20 6D 61 63  rbesserungen mac
0000E0: 68 65 6E 20 6D 6F 65 63 68 74 65 6E 2C 20 69 73  hen moechten, is
0000F0: 74 20 61 75 63 68 20 64 65 72 20 51 75 65 6C 6C  t auch der Quell
000100: 65 6E 63 6F 64 65 20 65 6E 74 68 61 6C 74 65 6E  encode enthalten
000110: 2E 0D 0A 0D 0A 45 73 20 20 67 69 62 74 20 7A 77  .....Es  gibt zw
000120: 65 69 20 4D 6F 65 67 6C 69 63 68 6B 65 69 74 65  ei Moeglichkeite
000130: 6E 2C 20 20 4C 69 73 74 54 20 7A 75 20 73 74 61  n,  ListT zu sta
000140: 72 74 65 6E 2E 20 20 57 65 6E 6E 20 53 69 65 20  rten.  Wenn Sie 
000150: 65 73 20 20 6E 75 72 20 64 75 72 63 68 0D 0A 45  es  nur durch..E
000160: 69 6E 67 65 62 65 6E 20 76 6F 6E 20 4C 69 73 74  ingeben von List
000170: 54 20 73 74 61 72 74 65 6E 2C 20 77 69 72 64 20  T starten, wird 
000180: 49 68 6E 65 6E 20 65 69 6E 20 4D 65 6E 75 65 20  Ihnen ein Menue 
000190: 67 65 67 65 62 65 6E 2C 20 64 61 73 20 49 68 6E  gegeben, das Ihn
0001A0: 65 6E 0D 0A 65 72 6D 6F 65 67 6C 69 63 68 74 2C  en..ermoeglicht,
0001B0: 20 20 76 65 72 73 63 68 69 65 64 65 6E 65 20 20    verschiedene  
0001C0: 4C 69 73 74 54 20 20 50 61 72 61 6D 65 74 65 72  ListT  Parameter
0001D0: 20 7A 75 20 20 73 65 74 7A 65 6E 2E 20 20 53 69   zu  setzen.  Si
0001E0: 65 20 20 6D 75 65 73 73 65 6E 0D 0A 6D 69 6E 64  e  muessen..mind
0001F0: 65 73 74 65 6E 73 20 20 65 69 6E 65 20 45 69 6E  estens  eine Ein

Size : 512 (Real : 512)
000000: 20 20 47 6F 74 6F 58 59 28 31 2C 32 34 29 3B 20    GotoXY(1,24); 
000010: 43 6C 72 45 6F 6C 3B 20 20 20 20 20 20 20 20 7B  ClrEol;        {
000020: 20 5A 65 69 6C 65 20 6C 6F 65 73 63 68 65 6E 20   Zeile loeschen 
000030: 7D 0D 0A 20 20 69 66 20 49 4F 46 65 68 6C 65 72  }..  if IOFehler
000040: 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20   then begin..   
000050: 20 57 72 69 74 65 28 43 68 72 28 37 29 29 3B 0D   Write(Chr(7));.
000060: 0A 20 20 20 20 63 61 73 65 20 49 4F 57 65 72 74  .    case IOWert
000070: 20 6F 66 0D 0A 20 20 20 20 20 20 20 20 20 20 24   of..          $
000080: 30 31 20 20 20 20 3A 20 57 72 69 74 65 28 27 44  01    : Write('D
000090: 61 74 65 69 20 65 78 69 73 74 69 65 72 74 20 6E  atei existiert n
0000A0: 69 63 68 74 27 29 3B 0D 0A 20 20 20 20 20 20 20  icht');..       
0000B0: 20 20 20 24 30 32 20 20 20 20 3A 20 57 72 69 74     $02    : Writ
0000C0: 65 28 27 44 61 74 65 69 20 6E 69 63 68 74 20 6F  e('Datei nicht o
0000D0: 66 66 65 6E 20 66 75 65 72 20 45 69 6E 67 61 62  ffen fuer Eingab
0000E0: 65 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  e');..          
0000F0: 24 30 33 20 20 20 20 3A 20 57 72 69 74 65 28 27  $03    : Write('
000100: 44 61 74 65 69 20 6E 69 63 68 74 20 6F 66 66 65  Datei nicht offe
000110: 6E 20 66 75 65 72 20 41 75 73 67 61 62 65 27 29  n fuer Ausgabe')
000120: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 24 30 34  ;..          $04
000130: 20 20 20 20 3A 20 57 72 69 74 65 28 27 44 61 74      : Write('Dat
000140: 65 69 20 6E 69 63 68 74 20 6F 66 66 65 6E 27 29  ei nicht offen')
000150: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 24 31 30  ;..          $10
000160: 20 20 20 20 3A 20 57 72 69 74 65 28 27 46 65 68      : Write('Feh
000170: 6C 65 72 20 69 6D 20 6E 75 6D 65 72 69 73 63 68  ler im numerisch
000180: 65 6E 20 46 6F 72 6D 61 74 27 29 3B 0D 0A 20 20  en Format');..  
000190: 20 20 20 20 20 20 20 20 24 32 30 20 20 20 20 3A          $20    :
0001A0: 20 57 72 69 74 65 28 27 4F 70 65 72 61 74 69 6F   Write('Operatio
0001B0: 6E 20 61 75 66 20 65 69 6E 65 6D 20 6C 6F 67 69  n auf einem logi
0001C0: 73 63 68 65 6D 20 45 69 6E 68 65 69 74 20 6E 69  schem Einheit ni
0001D0: 63 68 74 20 65 72 6C 61 75 62 74 27 29 3B 0D 0A  cht erlaubt');..
0001E0: 20 20 20 20 20 20 20 20 20 20 24 32 31 20 20 20            $21   
0001F0: 20 3A 20 57 72 69 74 65 28 27 49 6E 20 44 69 72   : Write('In Dir

Size : 512 (Real : 512)
000000: 67 61 62 65 64 61 74 65 69 20 75 6E 64 20 65 69  gabedatei und ei
000010: 6E 65 20 41 75 73 67 61 62 65 64 61 74 65 69 20  ne Ausgabedatei 
000020: 20 73 70 65 7A 69 66 69 7A 69 65 72 65 6E 2E 0D   spezifizieren..
000030: 0A 53 69 65 20 6B 6F 65 6E 6E 65 6E 20 61 75 63  .Sie koennen auc
000040: 68 20 50 61 72 61 6D 65 74 65 72 64 61 74 65 69  h Parameterdatei
000050: 65 6E 20 6C 61 64 65 6E 20 75 6E 64 20 73 69 63  en laden und sic
000060: 68 65 72 6E 2E 20 20 41 6C 6C 65 20 20 45 69 6E  hern.  Alle  Ein
000070: 67 61 62 65 6E 0D 0A 6B 6F 65 6E 6E 65 6E 20 64  gaben..koennen d
000080: 75 72 63 68 20 56 65 72 77 65 6E 64 75 6E 67 20  urch Verwendung 
000090: 65 69 6E 65 73 20 53 69 67 6E 61 6C 75 6D 73 65  eines Signalumse
0000A0: 74 7A 65 72 73 20 66 75 65 72 20 53 74 61 6E 64  tzers fuer Stand
0000B0: 61 72 64 20 57 6F 72 64 53 74 61 72 0D 0A 4B 6F  ard WordStar..Ko
0000C0: 6E 74 72 6F 6C 6C 7A 65 69 63 68 65 6E 2C 20 65  ntrollzeichen, e
0000D0: 64 69 74 69 65 72 74 20 77 65 72 64 65 6E 2E 0D  ditiert werden..
0000E0: 0A 0D 0A 53 69 65 20 20 6B 6F 65 6E 6E 65 6E 20  ...Sie  koennen 
0000F0: 4C 69 73 74 54 20 61 75 63 68 20 64 75 72 63 68  ListT auch durch
000100: 20 50 61 72 61 6D 65 74 65 72 20 69 6E 20 64 65   Parameter in de
000110: 72 20 42 65 66 65 68 6C 73 7A 65 69 6C 65 20 73  r Befehlszeile s
000120: 74 61 72 74 65 6E 2E 0D 0A 44 65 72 20 20 20 65  tarten...Der   e
000130: 72 73 74 65 20 20 50 61 72 61 6D 65 74 65 72 20  rste  Parameter 
000140: 20 69 73 74 20 20 64 69 65 20 20 45 69 6E 67 61   ist  die  Einga
000150: 62 65 64 61 74 65 69 2C 20 20 20 64 65 72 20 20  bedatei,   der  
000160: 7A 77 65 69 74 65 20 20 20 64 69 65 0D 0A 41 75  zweite   die..Au
000170: 73 67 61 62 65 64 61 74 65 69 20 20 75 6E 64 20  sgabedatei  und 
000180: 20 64 65 72 20 64 72 69 74 74 65 20 69 73 74 20   der dritte ist 
000190: 64 69 65 20 20 50 61 72 61 6D 65 74 65 72 64 61  die  Parameterda
0001A0: 74 65 69 2E 20 20 57 65 6E 6E 20 20 6B 65 69 6E  tei.  Wenn  kein
0001B0: 65 0D 0A 50 61 72 61 6D 65 74 65 72 64 61 74 65  e..Parameterdate
0001C0: 69 20 20 20 73 70 65 7A 69 66 69 7A 69 65 72 74  i   spezifiziert
0001D0: 20 20 20 77 75 72 64 65 2C 20 20 20 20 77 65 72     wurde,    wer
0001E0: 64 65 6E 20 20 20 64 69 65 20 56 6F 72 65 69 6E  den   die Vorein
0001F0: 73 74 65 6C 6C 75 6E 67 65 6E 0D 0A 62 65 6E 75  stellungen..benu

Size : 512 (Real : 512)
000000: 65 6B 74 6D 6F 64 75 73 20 6E 69 63 68 74 20 65  ektmodus nicht e
000010: 72 6C 61 75 62 74 27 29 3B 0D 0A 20 20 20 20 20  rlaubt');..     
000020: 20 20 20 20 20 24 32 32 20 20 20 20 3A 20 57 72       $22    : Wr
000030: 69 74 65 28 27 5A 75 77 65 69 73 75 6E 67 20 7A  ite('Zuweisung z
000040: 75 20 53 74 61 6E 64 61 72 64 64 61 74 65 69 65  u Standarddateie
000050: 6E 20 6E 69 63 68 74 20 65 72 6C 61 75 62 74 27  n nicht erlaubt'
000060: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 24 39  );..          $9
000070: 30 20 20 20 20 3A 20 57 72 69 74 65 28 27 75 6E  0    : Write('un
000080: 70 61 73 73 65 6E 64 65 20 52 65 63 6F 72 64 6C  passende Recordl
000090: 61 65 6E 67 65 27 29 3B 0D 0A 20 20 20 20 20 20  aenge');..      
0000A0: 20 20 20 20 24 39 31 20 20 20 20 3A 20 57 72 69      $91    : Wri
0000B0: 74 65 28 27 53 75 63 68 65 20 6E 61 63 68 20 44  te('Suche nach D
0000C0: 61 74 65 69 65 6E 64 65 27 29 3B 0D 0A 20 20 20  ateiende');..   
0000D0: 20 20 20 20 20 20 20 24 39 39 20 20 20 20 3A 20         $99    : 
0000E0: 57 72 69 74 65 28 27 55 6E 65 72 77 61 72 74 65  Write('Unerwarte
0000F0: 74 65 73 20 44 61 74 65 69 65 6E 64 65 27 29 3B  tes Dateiende');
000100: 0D 0A 20 20 20 20 20 20 20 20 20 20 24 46 30 20  ..          $F0 
000110: 20 20 20 3A 20 57 72 69 74 65 28 27 44 69 73 6B     : Write('Disk
000120: 65 74 74 65 6E 73 63 68 72 65 69 62 66 65 68 6C  ettenschreibfehl
000130: 65 72 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20  er');..         
000140: 20 24 46 31 20 20 20 20 3A 20 57 72 69 74 65 28   $F1    : Write(
000150: 27 44 69 72 65 63 74 6F 72 79 20 69 73 74 20 76  'Directory ist v
000160: 6F 6C 6C 27 29 3B 0D 0A 20 20 20 20 20 20 20 20  oll');..        
000170: 20 20 24 46 32 20 20 20 20 3A 20 57 72 69 74 65    $F2    : Write
000180: 28 27 44 61 74 65 69 67 72 6F 65 7E 65 20 75 65  ('Dateigroe~e ue
000190: 62 65 72 73 63 68 72 69 74 74 65 6E 27 29 3B 0D  berschritten');.
0001A0: 0A 20 20 20 20 20 20 20 20 20 20 24 46 46 20 20  .          $FF  
0001B0: 20 20 3A 20 57 72 69 74 65 28 27 44 61 74 65 69    : Write('Datei
0001C0: 20 76 65 72 73 63 68 77 75 6E 64 65 6E 27 29 0D   verschwunden').
0001D0: 0A 20 20 20 20 20 20 65 6C 73 65 20 20 20 20 20  .      else     
0001E0: 20 20 20 20 20 20 57 72 69 74 65 28 27 55 6E 62        Write('Unb
0001F0: 65 6B 61 6E 6E 74 65 72 20 49 2F 4F 20 46 65 68  ekannter I/O Feh

Size : 512 (Real : 512)
000000: 74 7A 74 2E 20 20 57 65 6E 6E 20 20 6B 65 69 6E  tzt.  Wenn  kein
000010: 65 20 20 41 75 73 67 61 62 65 64 61 74 65 69 20  e  Ausgabedatei 
000020: 73 70 65 7A 69 66 69 7A 69 65 72 74 20 20 77 75  spezifiziert  wu
000030: 72 64 65 2C 20 20 77 69 72 64 20 20 64 69 65 0D  rde,  wird  die.
000040: 0A 41 75 73 67 61 62 65 20 7A 75 6D 20 44 72 75  .Ausgabe zum Dru
000050: 63 6B 65 72 20 67 65 73 65 6E 64 65 74 2E 20 20  cker gesendet.  
000060: 55 6D 20 65 69 6E 65 20 50 61 72 61 6D 65 74 65  Um eine Paramete
000070: 72 64 61 74 65 69 20 6F 68 6E 65 20 45 69 6E 67  rdatei ohne Eing
000080: 61 62 65 2D 0D 0A 75 6E 64 20 20 41 75 73 67 61  abe-..und  Ausga
000090: 62 65 2D 20 44 61 74 65 69 6E 61 6D 65 6E 20 20  be- Dateinamen  
0000A0: 7A 75 20 73 70 65 7A 69 66 69 7A 69 65 72 65 6E  zu spezifizieren
0000B0: 2C 20 20 62 65 6E 75 74 7A 74 20 6D 61 6E 20 20  ,  benutzt man  
0000C0: 64 69 65 20 20 46 6F 72 6D 0D 0A 26 3C 50 61 72  die  Form..&<Par
0000D0: 61 6D 65 74 65 72 2D 44 61 74 65 69 3E 2E 20 42  ameter-Datei>. B
0000E0: 65 69 73 70 69 65 6C 65 3A 0D 0A 0D 0A 41 3E 4C  eispiele:....A>L
0000F0: 49 53 54 54 20 74 65 73 74 20 73 20 70 61 72 6D  ISTT test s parm
000100: 73 20 20 2D 2D 20 20 6C 69 73 74 65 20 54 45 53  s  --  liste TES
000110: 54 2E 50 41 53 20 61 75 66 20 64 65 6E 20 42 69  T.PAS auf den Bi
000120: 6C 64 73 63 68 69 72 6D 2C 20 64 75 72 63 68 0D  ldschirm, durch.
000130: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000150: 20 20 20 20 20 20 20 20 20 20 20 56 65 72 77 65             Verwe
000160: 6E 64 75 6E 67 20 76 6F 6E 20 50 41 52 4D 53 2E  ndung von PARMS.
000170: 4C 54 50 0D 0A 41 3E 4C 49 53 54 54 20 74 65 73  LTP..A>LISTT tes
000180: 74 2E 69 6E 63 20 20 20 20 20 20 2D 2D 20 20 64  t.inc      --  d
000190: 72 75 63 6B 65 20 54 45 53 54 2E 49 4E 43 20 61  rucke TEST.INC a
0001A0: 75 73 2C 20 64 75 72 63 68 20 56 65 72 77 65 6E  us, durch Verwen
0001B0: 64 75 6E 67 0D 0A 20 20 20 20 20 20 20 20 20 20  dung..          
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001E0: 20 20 20 20 64 65 72 20 56 6F 72 65 69 6E 73 74      der Voreinst
0001F0: 65 6C 6C 75 6E 67 65 6E 0D 0A 41 3E 4C 49 53 54  ellungen..A>LIST

Size : 512 (Real : 512)
000000: 20 20 76 65 72 61 6E 6C 61 73 73 65 6E 2C 20 20    veranlassen,  
000010: 20 55 6E 74 65 72 1F 0D 0A 20 20 20 20 20 20 20   Unter...       
000020: 20 20 20 20 20 20 73 74 72 65 69 63 68 75 6E 67        streichung
000030: 20 61 6E 2D 20 75 6E 64 20 61 75 73 7A 75 73 63   an- und auszusc
000040: 68 61 6C 74 65 6E 2E 0D 0A 0D 0A 28 2A 2E 50 52  halten.....(*.PR
000050: 74 65 78 74 2A 29 20 44 72 75 63 6B 65 20 22 54  text*) Drucke "T
000060: 65 78 74 22 2E 20 20 20 44 61 73 20 6B 61 6E 6E  ext".   Das kann
000070: 20 64 61 7A 75 20 62 65 6E 75 74 7A 74 20 77 65   dazu benutzt we
000080: 72 64 65 6E 2C 20 62 65 73 6F 6E 64 65 72 65 0D  rden, besondere.
000090: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 44 72  .             Dr
0000A0: 75 63 6B 77 65 69 73 65 6E 20 65 69 6E 7A 75 73  uckweisen einzus
0000B0: 63 68 61 6C 74 65 6E 2C 20 20 77 69 65 20 7A 2E  chalten,  wie z.
0000C0: 42 2E 20 20 64 65 6E 20 67 65 64 72 61 65 6E 67  B.  den gedraeng
0000D0: 74 65 20 31 33 32 0D 0A 20 20 20 20 20 20 20 20  te 132..        
0000E0: 20 20 20 20 20 53 70 61 6C 74 65 6E 2D 4D 6F 64       Spalten-Mod
0000F0: 75 73 20 61 75 66 20 38 30 20 53 70 61 6C 74 65  us auf 80 Spalte
000100: 6E 20 28 31 31 22 29 20 44 72 75 63 6B 65 72 6E  n (11") Druckern
000110: 2E 0D 0A 28 2A 2E 4C 2D 2A 29 20 20 20 20 20 4C  ...(*.L-*)     L
000120: 69 73 74 65 20 64 69 65 20 66 6F 6C 67 65 6E 64  iste die folgend
000130: 65 6E 20 5A 65 69 6C 65 6E 20 6E 69 63 68 74 2E  en Zeilen nicht.
000140: 0D 0A 28 2A 2E 4C 2B 2A 29 20 20 20 20 20 4C 69  ..(*.L+*)     Li
000150: 73 74 65 20 77 69 65 64 65 72 2E 20 44 61 73 20  ste wieder. Das 
000160: 69 73 74 20 64 69 65 20 56 6F 72 65 69 6E 73 74  ist die Voreinst
000170: 65 6C 6C 75 6E 67 2E 0D 0A 28 2A 2E 55 2B 2A 29  ellung...(*.U+*)
000180: 20 20 20 20 20 5A 65 69 67 65 20 20 62 65 73 74       Zeige  best
000190: 69 6D 6D 74 65 20 20 57 6F 65 72 74 65 72 20 20  immte  Woerter  
0001A0: 68 65 6C 6C 65 72 20 20 20 28 68 69 6C 69 67 68  heller   (hiligh
0001B0: 74 29 2E 20 20 20 44 69 65 73 65 0D 0A 20 20 20  t).   Diese..   
0001C0: 20 20 20 20 20 20 20 20 20 22 53 63 68 6C 75 65           "Schlue
0001D0: 73 73 65 6C 77 6F 65 72 74 65 72 22 20 20 77 65  sselwoerter"  we
0001E0: 72 64 65 6E 20 20 69 6E 20 20 6F 62 69 67 65 20  rden  in  obige 
0001F0: 20 41 72 74 20 20 20 61 6E 67 65 7A 65 69 67 74   Art   angezeigt

Size : 512 (Real : 512)
000000: 54 20 26 70 61 72 6D 73 20 20 20 20 20 20 20 20  T &parms        
000010: 2D 2D 20 20 6C 69 65 73 20 50 41 52 4D 53 2E 4C  --  lies PARMS.L
000020: 54 50 20 65 69 6E 2C 20 75 6E 64 20 62 65 6E 75  TP ein, und benu
000030: 74 7A 65 20 64 69 65 20 64 61 72 69 6E 0D 0A 20  tze die darin.. 
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000050: 20 20 20 20 20 20 20 20 20 20 20 73 70 65 7A 69             spezi
000060: 66 69 7A 69 65 72 74 65 6E 20 45 69 6E 2D 20 75  fizierten Ein- u
000070: 6E 64 20 41 75 73 67 61 62 65 64 61 74 65 69 65  nd Ausgabedateie
000080: 6E 0D 0A 0D 0A 49 68 72 65 20 50 72 6F 67 72 61  n....Ihre Progra
000090: 6D 6D 64 61 74 65 69 65 6E 20 6B 6F 65 6E 6E 65  mmdateien koenne
0000A0: 6E 20 50 75 6E 6B 74 2D 42 65 66 65 68 6C 65 20  n Punkt-Befehle 
0000B0: 65 6E 74 68 61 6C 74 65 6E 2C 20 20 64 69 65 20  enthalten,  die 
0000C0: 64 69 65 20 57 65 72 74 65 0D 0A 76 6F 6E 20 20  die Werte..von  
0000D0: 4C 69 73 74 54 20 20 50 61 72 61 6D 65 74 65 72  ListT  Parameter
0000E0: 6E 20 20 76 65 72 61 65 6E 64 65 72 6E 2E 20 20  n  veraendern.  
0000F0: 44 69 65 73 65 20 20 73 69 6E 64 20 20 73 70 65  Diese  sind  spe
000100: 7A 69 66 69 7A 69 65 72 74 20 20 64 75 72 63 68  zifiziert  durch
000110: 0D 0A 64 61 73 20 50 6C 61 7A 69 65 72 65 6E 20  ..das Plazieren 
000120: 76 6F 6E 20 42 65 66 65 68 6C 65 6E 20 64 65 72  von Befehlen der
000130: 20 46 6F 72 6D 20 28 2A 2E 78 78 2A 29 69 6E 20   Form (*.xx*)in 
000140: 64 65 6D 20 50 72 6F 67 72 61 6D 6D 74 65 78 74  dem Programmtext
000150: 2E 20 20 44 69 65 0D 0A 42 65 66 65 68 6C 65 20  .  Die..Befehle 
000160: 73 69 6E 64 3A 0D 0A 0D 0A 28 2A 2E 50 4C 6E 6E  sind:....(*.PLnn
000170: 2A 29 20 20 20 53 65 74 7A 65 20 20 64 69 65 20  *)   Setze  die 
000180: 20 53 65 69 74 65 6E 6C 61 65 6E 67 65 20 61 75   Seitenlaenge au
000190: 66 20 6E 6E 20 5A 65 69 6C 65 6E 20 20 70 72 6F  f nn Zeilen  pro
0001A0: 20 20 53 65 69 74 65 20 20 75 6E 64 0D 0A 20 20    Seite  und..  
0001B0: 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6E 6E            beginn
0001C0: 65 20 65 69 6E 65 20 6E 65 75 65 20 53 65 69 74  e eine neue Seit
0001D0: 65 2E 20 44 69 65 20 56 6F 72 65 69 6E 73 74 65  e. Die Voreinste
0001E0: 6C 6C 75 6E 67 20 69 73 74 20 36 36 2E 0D 0A 28  llung ist 66...(
0001F0: 2A 2E 50 4F 6E 6E 2A 29 20 20 20 45 69 6E 72 75  *.POnn*)   Einru

Size : 512 (Real : 512)
000000: 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 77  ,..            w
000010: 65 6E 6E 20 6B 65 69 6E 65 20 68 69 2F 6C 6F 6C  enn keine hi/lol
000020: 69 67 68 74 20 53 69 67 6E 61 6C 65 20 73 70 65  ight Signale spe
000030: 7A 69 66 69 7A 69 65 72 74 20 77 75 72 64 65 6E  zifiziert wurden
000040: 2E 0D 0A 28 2A 2E 55 2D 2A 29 20 20 20 20 20 42  ...(*.U-*)     B
000050: 65 65 6E 64 65 20 68 69 6C 69 67 68 74 20 66 75  eende hilight fu
000060: 65 72 20 64 69 65 20 22 53 63 68 6C 75 65 73 73  er die "Schluess
000070: 65 6C 77 6F 65 72 74 65 72 22 2E 20 44 61 73 20  elwoerter". Das 
000080: 69 73 74 20 64 69 65 0D 0A 20 20 20 20 20 20 20  ist die..       
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000B0: 20 20 20 20 20 20 20 20 56 6F 72 65 69 6E 73 74          Voreinst
0000C0: 65 6C 6C 75 6E 67 2E 0D 0A 28 2A 2E 4E 2B 2A 29  ellung...(*.N+*)
0000D0: 20 20 20 20 20 42 65 67 69 6E 6E 65 20 5A 65 69       Beginne Zei
0000E0: 6C 65 6E 6E 75 6D 6D 65 72 69 65 72 75 6E 67 20  lennummerierung 
0000F0: 66 75 65 72 20 64 61 73 20 4C 69 73 74 65 6E 2E  fuer das Listen.
000100: 0D 0A 28 2A 2E 4E 2D 2A 29 20 20 20 20 20 42 65  ..(*.N-*)     Be
000110: 65 6E 64 65 20 5A 65 69 6C 65 6E 6E 75 6D 6D 65  ende Zeilennumme
000120: 72 69 65 72 75 6E 67 2E 20 44 61 73 20 69 73 74  rierung. Das ist
000130: 20 64 69 65 20 56 6F 72 65 69 6E 73 74 65 6C 6C   die Voreinstell
000140: 75 6E 67 2E 0D 0A 28 2A 2E 50 2B 2A 29 20 20 20  ung...(*.P+*)   
000150: 20 20 42 65 67 69 6E 6E 65 20 65 69 6E 65 20 6E    Beginne eine n
000160: 65 75 65 20 53 65 69 74 65 20 66 75 65 72 20 6A  eue Seite fuer j
000170: 65 64 65 20 49 6E 63 6C 75 64 65 2D 44 61 74 65  ede Include-Date
000180: 69 2E 0D 0A 28 2A 2E 50 2D 2A 29 20 20 20 20 20  i...(*.P-*)     
000190: 42 65 67 69 6E 6E 65 20 6B 65 69 6E 65 20 6E 65  Beginne keine ne
0001A0: 75 65 20 5A 65 69 6C 65 20 66 75 65 72 20 22 20  ue Zeile fuer " 
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 22 20 20 20              "   
0001C0: 20 2E 0D 0A 28 24 49 66 69 6C 65 2A 29 20 20 20   ...($Ifile*)   
0001D0: 46 61 73 73 65 20 44 61 74 65 69 20 22 44 61 74  Fasse Datei "Dat
0001E0: 65 69 22 20 69 6E 20 4C 69 73 74 65 20 7A 75 73  ei" in Liste zus
0001F0: 61 6D 6D 65 6E 2E 20 28 77 69 65 20 64 65 72 20  ammen. (wie der 

Size : 512 (Real : 512)
000000: 65 63 6B 75 6E 67 20 75 6D 20 6E 6E 20 5A 65 69  eckung um nn Zei
000010: 63 68 65 6E 2E 20 20 44 69 65 20 56 6F 72 65 69  chen.  Die Vorei
000020: 6E 73 74 65 6C 6C 75 6E 67 20 20 69 73 74 20 20  nstellung  ist  
000030: 30 2E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  0...            
000040: 44 69 65 73 20 20 73 6F 6C 6C 74 65 20 20 6E 75  Dies  sollte  nu
000050: 72 20 62 65 6E 75 74 7A 74 20 77 65 72 64 65 6E  r benutzt werden
000060: 2C 20 20 77 65 6E 6E 20 64 65 72 20 44 72 75 63  ,  wenn der Druc
000070: 6B 65 72 20 20 64 65 6E 0D 0A 20 20 20 20 20 20  ker  den..      
000080: 20 20 20 20 20 20 6C 69 6E 6B 65 6E 20 52 61 6E        linken Ran
000090: 64 20 64 65 73 20 50 61 70 69 65 72 73 20 20 77  d des Papiers  w
0000A0: 65 67 6C 61 65 73 73 74 2E 0D 0A 28 2A 2E 4C 57  eglaesst...(*.LW
0000B0: 6E 6E 2A 29 20 20 20 53 65 74 7A 65 20 20 64 69  nn*)   Setze  di
0000C0: 65 20 20 5A 65 69 6C 65 6E 62 72 65 69 74 65 20  e  Zeilenbreite 
0000D0: 20 64 65 73 20 20 44 72 75 63 6B 65 72 73 20 20   des  Druckers  
0000E0: 61 75 66 20 20 6E 6E 2E 20 20 20 44 69 65 0D 0A  auf  nn.   Die..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 56 6F 72 65              Vore
000100: 69 6E 73 74 65 6C 6C 75 6E 67 20 20 69 73 74 20  instellung  ist 
000110: 20 37 39 2C 20 20 64 61 20 65 69 6E 69 67 65 20   79,  da einige 
000120: 44 72 75 63 6B 65 72 20 20 65 69 6E 65 20 20 6E  Drucker  eine  n
000130: 65 75 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20  eue..           
000140: 20 5A 65 69 6C 65 20 20 62 65 67 69 6E 6E 65 6E   Zeile  beginnen
000150: 2C 20 20 77 65 6E 6E 20 20 73 69 65 20 64 61 73  ,  wenn  sie das
000160: 20 38 30 74 65 20 5A 65 69 63 68 65 6E 20 20 69   80te Zeichen  i
000170: 6E 20 20 65 69 6E 65 72 0D 0A 20 20 20 20 20 20  n  einer..      
000180: 20 20 20 20 20 20 5A 65 69 6C 65 20 20 65 72 72        Zeile  err
000190: 65 69 63 68 74 20 20 68 61 62 65 6E 2E 20 20 20  eicht  haben.   
0001A0: 44 61 73 20 20 66 75 65 68 72 74 20 20 64 61 6E  Das  fuehrt  dan
0001B0: 6E 20 20 7A 75 20 20 20 65 69 6E 65 72 0D 0A 20  n  zu   einer.. 
0001C0: 20 20 20 20 20 20 20 20 20 20 20 4C 65 65 72 7A             Leerz
0001D0: 65 69 6C 65 20 20 20 61 75 66 20 20 20 64 65 72  eile   auf   der
0001E0: 20 20 20 53 65 69 74 65 20 20 75 6E 64 20 20 20     Seite  und   
0001F0: 76 65 72 61 6E 6C 61 7E 74 20 20 20 4C 69 73 74  veranla~t   List

Size : 512 (Real : 512)
000000: 43 6F 6D 70 69 6C 65 72 29 0D 0A 0D 0A 4E 69 63  Compiler)....Nic
000010: 68 74 20 20 65 72 6B 61 6E 6E 74 65 20 6F 64 65  ht  erkannte ode
000020: 72 20 75 6E 7A 75 6C 61 65 73 73 69 67 65 20 50  r unzulaessige P
000030: 75 6E 6B 74 62 65 66 65 68 6C 65 20 77 65 72 64  unktbefehle werd
000040: 65 6E 20 20 61 75 73 67 65 64 72 75 63 6B 74 2C  en  ausgedruckt,
000050: 0D 0A 61 62 65 72 20 7A 75 6C 61 65 73 73 69 67  ..aber zulaessig
000060: 65 20 77 65 72 64 65 6E 20 6E 69 63 68 74 20 69  e werden nicht i
000070: 6E 20 64 65 72 20 4C 69 73 74 75 6E 67 20 61 75  n der Listung au
000080: 66 67 65 66 75 65 68 72 74 2C 20 6F 62 77 6F 68  fgefuehrt, obwoh
000090: 6C 20 73 69 65 0D 0A 6E 6F 63 68 20 20 61 6C 73  l sie..noch  als
0000A0: 20 20 5A 65 69 6C 65 6E 6E 75 6D 6D 65 72 20 20    Zeilennummer  
0000B0: 67 65 7A 61 65 68 6C 74 20 20 77 65 72 64 65 6E  gezaehlt  werden
0000C0: 2E 20 20 20 50 75 6E 6B 74 62 65 66 65 68 6C 65  .   Punktbefehle
0000D0: 20 20 20 73 6F 6C 6C 74 65 6E 0D 0A 67 65 73 63     sollten..gesc
0000E0: 68 6C 6F 73 73 65 6E 20 20 77 65 72 64 65 6E 2C  hlossen  werden,
0000F0: 20 20 64 2E 68 2E 20 20 77 65 6E 6E 20 20 53 69    d.h.  wenn  Si
000100: 65 20 20 7A 75 20 65 69 6E 65 6D 20 20 50 75 6E  e  zu einem  Pun
000110: 6B 74 62 65 66 65 68 6C 20 20 65 69 6E 65 6E 0D  ktbefehl  einen.
000120: 0A 4B 6F 6D 6D 65 6E 74 61 72 20 6D 61 63 68 65  .Kommentar mache
000130: 6E 20 77 6F 6C 6C 65 6E 2C 20 74 75 6E 20 53 69  n wollen, tun Si
000140: 65 20 64 69 65 73 20 66 6F 6C 67 65 6E 64 65 72  e dies folgender
000150: 6D 61 61 65 6E 3A 0D 0A 28 2A 2E 50 41 2A 29 20  maaen:..(*.PA*) 
000160: 7B 20 42 65 67 69 6E 6E 65 20 65 69 6E 65 20 6E  { Beginne eine n
000170: 65 75 65 20 53 65 69 74 65 20 7D 0D 0A 0D 0A 49  eue Seite }....I
000180: 6E 63 6C 75 64 65 2D 44 61 74 65 69 65 6E 20 20  nclude-Dateien  
000190: 6B 6F 65 6E 6E 65 6E 20 20 6E 69 63 68 74 20 69  koennen  nicht i
0001A0: 6E 65 69 6E 61 6E 64 65 72 67 65 73 74 65 6C 6C  neinandergestell
0001B0: 74 20 20 77 65 72 64 65 6E 2C 20 20 75 6E 64 20  t  werden,  und 
0001C0: 20 65 69 6E 0D 0A 61 6E 64 65 72 65 72 20 20 54   ein..anderer  T
0001D0: 65 78 74 20 20 69 6E 20 20 64 65 72 20 5A 65 69  ext  in  der Zei
0001E0: 6C 65 2C 20 6D 69 74 20 65 69 6E 65 6D 20 20 49  le, mit einem  I
0001F0: 6E 63 6C 75 64 65 2D 42 65 66 65 68 6C 2C 20 6B  nclude-Befehl, k

Size : 512 (Real : 512)
000000: 54 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 61  T..            a
000010: 6E 7A 75 7A 65 69 67 65 6E 2C 20 77 6F 20 64 69  nzuzeigen, wo di
000020: 65 20 6E 65 75 65 20 53 65 69 74 65 20 62 65 67  e neue Seite beg
000030: 69 6E 6E 74 2E 0D 0A 28 2A 2E 50 41 2A 29 20 20  innt...(*.PA*)  
000040: 20 20 20 42 65 67 69 6E 6E 65 20 65 69 6E 65 20     Beginne eine 
000050: 6E 65 75 65 20 53 65 69 74 65 2E 0D 0A 28 2A 2E  neue Seite...(*.
000060: 43 50 6E 6E 2A 29 20 20 20 42 65 67 69 6E 6E 65  CPnn*)   Beginne
000070: 20 65 69 6E 65 20 6E 65 75 65 20 53 65 69 74 65   eine neue Seite
000080: 2C 20 77 65 6E 6E 20 6E 75 72 20 6E 6F 63 68 20  , wenn nur noch 
000090: 77 65 6E 69 67 65 72 20 61 6C 73 20 6E 6E 0D 0A  weniger als nn..
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 5A 65 69 6C              Zeil
0000B0: 65 6E 20 61 75 66 20 64 69 65 73 65 72 20 53 65  en auf dieser Se
0000C0: 69 74 65 20 75 65 62 72 69 67 20 73 69 6E 64 2E  ite uebrig sind.
0000D0: 0D 0A 28 2A 2E 48 45 74 65 78 74 2A 29 20 53 65  ..(*.HEtext*) Se
0000E0: 74 7A 65 20 64 69 65 20 4B 6F 70 66 7A 65 69 6C  tze die Kopfzeil
0000F0: 65 20 61 6E 20 64 65 6E 20 41 6E 66 61 6E 67 20  e an den Anfang 
000100: 64 65 73 20 54 65 78 74 65 73 2E 20 20 42 65 73  des Textes.  Bes
000110: 6F 6E 64 65 72 65 0D 0A 20 20 20 20 20 20 20 20  ondere..        
000120: 20 20 20 20 25 20 20 46 6F 6C 67 65 6E 20 73 69      %  Folgen si
000130: 6E 64 20 76 6F 72 67 65 73 65 68 65 6E 20 28 73  nd vorgesehen (s
000140: 69 65 68 65 20 75 6E 74 65 6E 29 2E 0D 0A 20 20  iehe unten)...  
000150: 20 20 20 20 20 20 20 20 20 20 44 69 65 20 56 6F            Die Vo
000160: 72 65 69 6E 73 74 65 6C 6C 75 6E 67 20 69 73 74  reinstellung ist
000170: 20 22 4C 69 73 74 65 6E 20 76 6F 6E 20 25 46 2C   "Listen von %F,
000180: 20 53 65 69 74 65 20 25 23 20 61 75 66 20 25 54   Seite %# auf %T
000190: 20 25 44 22 0D 0A 28 2A 2E 46 4F 74 65 78 74 2A   %D"..(*.FOtext*
0001A0: 29 20 53 65 74 7A 65 20 46 75 7E 7A 65 69 6C 65  ) Setze Fu~zeile
0001B0: 20 7A 75 6D 20 22 54 65 78 74 22 2E 20 44 69 65   zum "Text". Die
0001C0: 20 56 6F 72 65 69 6E 73 74 65 6C 6C 75 6E 67 20   Voreinstellung 
0001D0: 69 73 74 0D 0A 20 20 20 20 20 20 20 20 20 20 20  ist..           
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  

Size : 512 (Real : 512)
000000: 61 6E 6E 20 20 6E 69 63 68 74 0D 0A 6B 6F 72 72  ann  nicht..korr
000010: 65 6B 74 20 61 75 73 67 65 64 72 75 63 6B 74 20  ekt ausgedruckt 
000020: 77 65 72 64 65 6E 2E 0D 0A 0D 0A 44 69 65 20 20  werden.....Die  
000030: 4B 6F 70 66 2D 20 75 6E 64 20 46 75 7E 7A 65 69  Kopf- und Fu~zei
000040: 6C 65 20 6B 61 6E 6E 20 65 69 6E 65 73 20 64 65  le kann eines de
000050: 72 20 20 66 6F 6C 67 65 6E 64 65 6E 20 20 5A 65  r  folgenden  Ze
000060: 69 63 68 65 6E 0D 0A 65 6E 74 68 61 6C 74 65 6E  ichen..enthalten
000070: 2C 20 20 20 65 69 6E 67 65 6C 65 69 74 65 74 20  ,   eingeleitet 
000080: 20 64 75 72 63 68 20 20 65 69 6E 20 20 27 25 27   durch  ein  '%'
000090: 2C 20 20 20 75 6D 20 20 62 65 73 6F 6E 64 65 72  ,   um  besonder
0000A0: 65 20 20 53 74 72 69 6E 67 73 0D 0A 61 6E 7A 75  e  Strings..anzu
0000B0: 67 65 62 65 6E 3A 0D 0A 0D 0A 20 20 23 20 3D 20  geben:....  # = 
0000C0: 64 69 65 20 67 65 67 65 6E 77 61 65 72 74 69 67  die gegenwaertig
0000D0: 65 20 53 65 69 74 65 6E 6E 75 6D 6D 65 72 0D 0A  e Seitennummer..
0000E0: 20 20 54 20 20 3D 20 20 64 69 65 20 20 61 6B 74    T  =  die  akt
0000F0: 75 65 6C 6C 65 20 53 79 73 74 65 6D 7A 65 69 74  uelle Systemzeit
000100: 20 28 62 65 69 20 4D 53 2F 50 43 2D 44 4F 53 20   (bei MS/PC-DOS 
000110: 76 6F 6E 20 20 64 65 72 20 20 53 79 73 74 65 6D  von  der  System
000120: 75 68 72 0D 0A 20 20 20 20 20 20 20 20 20 20 20  uhr..           
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000140: 20 20 20 20 20 20 20 20 67 65 6C 65 73 65 6E 2C          gelesen,
000150: 20 62 65 69 20 43 50 2F 4D 2D 38 30 2F 38 36 20   bei CP/M-80/86 
000160: 6D 61 6E 75 65 6C 6C 0D 0A 20 20 20 20 20 20 20  manuell..       
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000180: 20 20 20 20 20 20 20 20 20 20 20 20 65 69 6E 67              eing
000190: 65 67 65 62 65 6E 29 0D 0A 20 20 44 20 3D 20 64  egeben)..  D = d
0001A0: 61 73 20 61 6B 74 75 65 6C 6C 65 20 53 79 73 74  as aktuelle Syst
0001B0: 65 6D 64 61 74 75 6D 0D 0A 20 20 46 20 3D 20 64  emdatum..  F = d
0001C0: 65 72 20 4E 61 6D 65 20 64 65 72 20 67 65 6C 69  er Name der geli
0001D0: 73 74 65 74 65 6E 20 44 61 74 65 69 20 28 75 6E  steten Datei (un
0001E0: 64 20 64 65 72 20 4E 61 6D 65 20 64 65 72 20 6D  d der Name der m
0001F0: 6F 6D 65 6E 74 61 6E 65 6E 0D 0A 20 20 20 20 20  omentanen..     

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 22 25 46 20 53 65 69           "%F Sei
000010: 74 65 20 25 23 22 0D 0A 28 2A 2E 48 49 74 65 78  te %#"..(*.HItex
000020: 74 2A 29 20 53 65 74 7A 65 20 64 69 65 20 22 68  t*) Setze die "h
000030: 69 6C 69 67 68 74 20 53 65 71 75 65 6E 7A 22 20  ilight Sequenz" 
000040: 64 75 72 63 68 20 22 54 65 78 74 22 2E 20 4B 65  durch "Text". Ke
000050: 69 6E 65 20 56 6F 72 65 69 6E 73 74 65 6C 6C 75  ine Voreinstellu
000060: 6E 67 2E 0D 0A 28 2A 2E 4C 4F 74 65 78 74 2A 29  ng...(*.LOtext*)
000070: 20 53 65 74 7A 65 20 64 69 65 20 22 6C 6F 6C 69   Setze die "loli
000080: 67 68 74 20 53 65 71 75 65 6E 7A 22 20 64 75 72  ght Sequenz" dur
000090: 63 68 20 22 54 65 78 74 22 2E 20 4B 65 69 6E 65  ch "Text". Keine
0000A0: 20 56 6F 72 65 69 6E 73 74 65 6C 6C 75 6E 67 2E   Voreinstellung.
0000B0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 57  ..             W
0000C0: 65 6E 6E 20 20 64 69 65 73 65 20 20 62 65 69 64  enn  diese  beid
0000D0: 65 6E 20 67 65 73 65 74 7A 74 20 77 65 72 64 65  en gesetzt werde
0000E0: 6E 2C 20 20 75 6E 64 20 20 65 69 6E 65 0D 0A 20  n,  und  eine.. 
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 22 68 69 6C              "hil
000100: 69 67 68 74 20 20 57 69 72 6B 75 6E 67 22 20 66  ight  Wirkung" f
000110: 75 65 72 20 62 65 73 74 69 6D 6D 74 65 20 57 6F  uer bestimmte Wo
000120: 65 72 74 65 72 20 69 73 74 20 62 65 61 62 73 69  erter ist beabsi
000130: 63 68 74 69 67 74 2C 0D 0A 20 20 20 20 20 20 20  chtigt,..       
000140: 20 20 20 20 20 20 6B 6F 65 6E 6E 65 6E 20 20 64        koennen  d
000150: 75 72 63 68 20 64 69 65 73 65 20 53 65 71 75 65  urch diese Seque
000160: 6E 7A 20 77 69 63 68 74 69 67 65 20 57 6F 65 72  nz wichtige Woer
000170: 74 65 72 20 68 65 6C 6C 65 72 20 20 64 61 72 67  ter heller  darg
000180: 65 2D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  e-..            
000190: 20 73 74 65 6C 6C 74 20 20 77 65 72 64 65 6E 2E   stellt  werden.
0001A0: 20 20 53 69 65 20 20 6B 6F 65 6E 6E 74 65 6E 20    Sie  koennten 
0001B0: 62 65 69 73 70 69 65 6C 73 77 65 69 73 65 20 64  beispielsweise d
0001C0: 69 65 20 20 53 65 71 75 65 6E 7A 65 6E 0D 0A 20  ie  Sequenzen.. 
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 73 70 65 7A              spez
0001E0: 69 66 69 7A 69 65 72 65 6E 2C 20 20 20 64 69 65  ifizieren,   die
0001F0: 20 20 49 68 72 65 6E 20 20 44 72 75 63 6B 65 72    Ihren  Drucker

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 6E                In
000030: 63 6C 75 64 65 2D 44 61 74 65 69 29 0D 0A 20 20  clude-Datei)..  
000040: 3C 20 3D 20 4C 69 6E 6B 73 2D 4A 75 73 74 69 65  < = Links-Justie
000050: 72 75 6E 67 20 64 69 65 73 65 72 20 4B 6F 70 66  rung dieser Kopf
000060: 2D 2F 46 75 7E 7A 65 69 6C 65 0D 0A 20 20 3E 20  -/Fu~zeile..  > 
000070: 3D 20 52 65 63 68 74 73 2D 4A 75 73 74 69 65 72  = Rechts-Justier
000080: 75 6E 67 20 64 69 65 73 65 72 20 4B 6F 70 66 2D  ung dieser Kopf-
000090: 2F 46 75 7E 7A 65 69 6C 65 0D 0A 20 20 5B 20 3D  /Fu~zeile..  [ =
0000A0: 20 4C 69 6E 6B 73 2D 4A 75 73 74 69 65 72 75 6E   Links-Justierun
0000B0: 67 20 20 62 65 69 20 20 75 6E 67 65 72 61 64 7A  g  bei  ungeradz
0000C0: 61 68 6C 69 67 65 6E 20 20 20 53 65 69 74 65 6E  ahligen   Seiten
0000D0: 2C 20 20 20 52 65 63 68 74 73 2D 0D 0A 20 20 20  ,   Rechts-..   
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000F0: 20 20 20 20 20 20 20 20 20 20 20 4A 75 73 74 69             Justi
000100: 65 72 75 6E 67 20 62 65 69 20 67 65 72 61 64 7A  erung bei geradz
000110: 61 68 6C 69 67 65 6E 20 53 65 69 74 65 6E 0D 0A  ahligen Seiten..
000120: 20 20 5D 20 3D 20 52 65 63 68 74 73 2D 4A 75 73    ] = Rechts-Jus
000130: 74 69 65 72 75 6E 67 20 62 65 69 20 75 6E 67 65  tierung bei unge
000140: 72 61 64 7A 61 68 6C 69 67 65 6E 20 53 65 69 74  radzahligen Seit
000150: 65 6E 2C 20 4C 69 6E 6B 73 2D 0D 0A 20 20 20 20  en, Links-..    
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000170: 20 20 20 20 20 20 20 20 20 20 4A 75 73 74 69 65            Justie
000180: 72 75 6E 67 20 62 65 69 20 67 65 72 61 64 7A 61  rung bei geradza
000190: 68 6C 69 67 65 6E 20 53 65 69 74 65 6E 0D 0A 20  hligen Seiten.. 
0001A0: 20 6A 65 64 65 73 20 61 6E 64 65 72 65 20 5A 65   jedes andere Ze
0001B0: 69 63 68 65 6E 20 3D 20 64 61 73 20 5A 65 69 63  ichen = das Zeic
0001C0: 68 65 6E 20 28 7A 2E 42 2E 20 22 25 25 22 20 77  hen (z.B. "%%" w
0001D0: 69 72 64 20 7A 75 20 22 25 22 29 0D 0A 0D 0A 44  ird zu "%")....D
0001E0: 65 6D 67 65 6D 61 65 7E 20 6B 6F 65 6E 6E 74 65  emgemae~ koennte
0001F0: 20 20 28 2A 2E 68 65 25 3C 53 65 69 74 65 20 20    (*.he%<Seite  

Size : 512 (Real : 512)
000000: 0D 0A 20 20 43 6F 6E 73 74 0D 0A 20 20 20 20 43  ..  Const..    C
000010: 6F 70 79 72 69 67 68 74 4D 65 73 73 61 67 65 3A  opyrightMessage:
000020: 20 41 72 72 61 79 20 5B 31 2E 2E 36 39 5D 20 4F   Array [1..69] O
000030: 66 20 43 68 61 72 3D 0D 0A 20 20 20 20 20 20 27  f Char=..      '
000040: 4C 69 73 74 54 20 76 65 72 73 69 6F 6E 20 32 2E  ListT version 2.
000050: 30 30 41 20 43 6F 70 79 72 69 67 68 74 20 28 43  00A Copyright (C
000060: 29 20 31 39 38 34 2C 20 42 4F 52 4C 41 4E 44 20  ) 1984, BORLAND 
000070: 49 6E 74 65 72 6E 61 74 69 6F 6E 61 6C 2C 20 49  International, I
000080: 6E 63 2E 27 5E 4D 5E 4A 3B 0D 0A 0D 0A 20 20 54  nc.'^M^J;....  T
000090: 79 70 65 0D 0A 20 20 20 20 46 69 6C 65 4E 61 6D  ype..    FileNam
0000A0: 65 3D 53 74 72 69 6E 67 5B 32 30 5D 3B 0D 0A 20  e=String[20];.. 
0000B0: 20 20 20 53 74 72 69 6E 67 33 3D 53 74 72 69 6E     String3=Strin
0000C0: 67 5B 33 5D 3B 0D 0A 20 20 20 20 53 74 72 69 6E  g[3];..    Strin
0000D0: 67 31 30 3D 53 74 72 69 6E 67 5B 31 30 5D 3B 0D  g10=String[10];.
0000E0: 0A 20 20 20 20 42 75 66 66 65 72 3D 53 74 72 69  .    Buffer=Stri
0000F0: 6E 67 5B 32 30 30 5D 3B 0D 0A 20 20 20 20 50 61  ng[200];..    Pa
000100: 72 73 65 53 74 61 74 65 73 3D 28 50 72 65 4B 65  rseStates=(PreKe
000110: 79 2C 4B 65 79 57 6F 72 64 2C 43 6F 6D 6D 65 6E  y,KeyWord,Commen
000120: 74 2C 43 6F 6D 6D 65 6E 74 32 2C 51 75 6F 74 65  t,Comment2,Quote
000130: 64 29 3B 0D 0A 0D 0A 20 20 43 6F 6E 73 74 0D 0A  d);....  Const..
000140: 20 20 20 20 50 61 72 61 6D 65 74 65 72 53 65 74      ParameterSet
000150: 53 69 7A 65 3D 35 30 32 3B 0D 0A 0D 0A 20 20 54  Size=502;....  T
000160: 79 70 65 0D 0A 20 20 20 20 50 61 72 61 6D 65 74  ype..    Paramet
000170: 65 72 53 65 74 3D 41 72 72 61 79 20 5B 31 2E 2E  erSet=Array [1..
000180: 50 61 72 61 6D 65 74 65 72 53 65 74 53 69 7A 65  ParameterSetSize
000190: 5D 20 4F 66 20 42 79 74 65 3B 0D 0A 20 20 20 20  ] Of Byte;..    
0001A0: 50 61 72 61 6D 65 74 65 72 52 65 63 6F 72 64 3D  ParameterRecord=
0001B0: 41 72 72 61 79 20 5B 31 2E 2E 31 30 30 30 5D 20  Array [1..1000] 
0001C0: 4F 66 20 42 79 74 65 3B 0D 0A 0D 0A 20 20 43 6F  Of Byte;....  Co
0001D0: 6E 73 74 0D 0A 20 20 20 20 4E 6F 4C 69 73 74 3A  nst..    NoList:
0001E0: 20 42 6F 6F 6C 65 61 6E 3D 46 61 6C 73 65 3B 0D   Boolean=False;.
0001F0: 0A 20 20 20 20 50 61 67 65 53 74 61 72 74 65 64  .    PageStarted

Size : 512 (Real : 512)
000000: 23 25 23 20 20 76 6F 6E 20 20 22 25 46 22 20 20  #%#  von  "%F"  
000010: 75 6D 20 20 20 25 54 2C 20 20 25 44 2A 29 20 64  um   %T,  %D*) d
000020: 69 65 0D 0A 4B 6F 70 66 7A 65 69 6C 65 20 20 76  ie..Kopfzeile  v
000030: 6F 6E 20 53 65 69 74 65 20 23 31 37 20 76 6F 6E  on Seite #17 von
000040: 20 22 50 52 4F 47 52 41 4D 4D 2E 50 41 53 22 20   "PROGRAMM.PAS" 
000050: 20 75 6D 20 20 30 33 3A 32 37 70 6D 2C 20 20 31   um  03:27pm,  1
000060: 30 2F 30 33 2F 38 34 0D 0A 65 72 7A 65 75 67 65  0/03/84..erzeuge
000070: 6E 2E 0D 0A 0D 0A 20 20 20 46 61 6C 6C 73 20 77  n.....   Falls w
000080: 65 64 65 72 20 25 3C 20 6E 6F 63 68 20 25 3E 20  eder %< noch %> 
000090: 73 70 65 7A 69 66 69 7A 69 65 72 74 20 69 73 74  spezifiziert ist
0000A0: 2C 20 77 69 72 64 20 64 69 65 20 4B 6F 70 66 2D  , wird die Kopf-
0000B0: 2F 46 75 7E 7A 65 69 6C 65 20 7A 65 6E 74 72 69  /Fu~zeile zentri
0000C0: 65 72 74 2E 0D 0A 0D 0A 20 20 20 5A 75 73 61 6D  ert.....   Zusam
0000D0: 6D 65 6E 66 61 73 73 75 6E 67 20 64 65 72 20 56  menfassung der V
0000E0: 6F 72 65 69 6E 73 74 65 6C 6C 75 6E 67 65 6E 20  oreinstellungen 
0000F0: 20 76 6F 6E 20 42 65 66 65 68 6C 65 6E 3A 0D 0A   von Befehlen:..
000100: 0D 0A 53 65 69 74 65 6E 6C 61 65 6E 67 65 20 20  ..Seitenlaenge  
000110: 20 20 20 20 20 20 20 28 2A 2E 50 4C 36 36 2A 29         (*.PL66*)
000120: 0D 0A 45 69 6E 72 75 65 63 6B 75 6E 67 20 20 20  ..Einrueckung   
000130: 20 20 20 20 20 20 20 28 2A 2E 50 4F 30 2A 29 0D         (*.PO0*).
000140: 0A 5A 65 69 6C 65 6E 62 72 65 69 74 65 20 20 20  .Zeilenbreite   
000150: 20 20 20 20 20 20 28 2A 2E 4C 57 37 39 2A 29 0D        (*.LW79*).
000160: 0A 4B 6F 70 66 7A 65 69 6C 65 20 20 20 20 20 20  .Kopfzeile      
000170: 20 20 20 20 20 20 28 2A 2E 48 45 4C 69 73 74 69        (*.HEListi
000180: 6E 67 20 76 6F 6E 20 25 46 2C 20 53 65 69 74 65  ng von %F, Seite
000190: 20 25 23 20 75 6D 20 25 54 20 25 44 2A 29 0D 0A   %# um %T %D*)..
0001A0: 46 75 7E 7A 65 69 6C 65 20 20 20 20 20 20 20 20  Fu~zeile        
0001B0: 20 20 20 20 20 28 2A 2E 46 4F 25 46 20 53 65 69       (*.FO%F Sei
0001C0: 74 65 20 25 23 2A 29 0D 0A 48 69 6C 69 74 65 20  te %#*)..Hilite 
0001D0: 53 69 67 6E 61 6C 20 20 20 20 20 20 20 20 28 2A  Signal        (*
0001E0: 2E 48 49 2A 29 0D 0A 4C 6F 6C 69 74 65 20 53 69  .HI*)..Lolite Si
0001F0: 67 6E 61 6C 20 20 20 20 20 20 20 20 28 2A 2E 4C  gnal        (*.L

Size : 512 (Real : 512)
000000: 3A 20 42 6F 6F 6C 65 61 6E 3D 46 61 6C 73 65 3B  : Boolean=False;
000010: 0D 0A 20 20 20 20 49 6E 49 6E 63 6C 75 64 65 3A  ..    InInclude:
000020: 20 42 6F 6F 6C 65 61 6E 3D 46 61 6C 73 65 3B 0D   Boolean=False;.
000030: 0A 20 20 20 20 43 6F 6D 6D 61 6E 64 4C 69 6E 65  .    CommandLine
000040: 53 74 61 72 74 75 70 3A 20 42 6F 6F 6C 65 61 6E  Startup: Boolean
000050: 3D 46 61 6C 73 65 3B 0D 0A 20 20 20 20 50 61 72  =False;..    Par
000060: 73 65 53 74 61 74 65 3A 20 50 61 72 73 65 53 74  seState: ParseSt
000070: 61 74 65 73 3D 50 72 65 4B 65 79 3B 0D 0A 20 20  ates=PreKey;..  
000080: 20 20 59 65 73 4E 6F 3A 20 41 72 72 61 79 20 5B    YesNo: Array [
000090: 46 61 6C 73 65 2E 2E 54 72 75 65 5D 20 4F 66 20  False..True] Of 
0000A0: 53 74 72 69 6E 67 5B 33 5D 3D 28 27 4E 6F 27 2C  String[3]=('No',
0000B0: 27 59 65 73 27 29 3B 0D 0A 0D 0A 20 20 56 61 72  'Yes');....  Var
0000C0: 0D 0A 20 20 20 20 50 61 67 65 4C 65 6E 67 74 68  ..    PageLength
0000D0: 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20  : Integer;..    
0000E0: 4C 69 6E 65 57 69 64 74 68 3A 20 49 6E 74 65 67  LineWidth: Integ
0000F0: 65 72 3B 0D 0A 20 20 20 20 48 69 4C 69 74 65 3A  er;..    HiLite:
000100: 20 53 74 72 69 6E 67 31 30 3B 0D 0A 20 20 20 20   String10;..    
000110: 4C 6F 4C 69 74 65 3A 20 53 74 72 69 6E 67 31 30  LoLite: String10
000120: 3B 0D 0A 20 20 20 20 49 6E 69 74 53 74 72 69 6E  ;..    InitStrin
000130: 67 3A 20 53 74 72 69 6E 67 31 30 3B 0D 0A 20 20  g: String10;..  
000140: 20 20 45 78 69 74 53 74 72 69 6E 67 3A 20 53 74    ExitString: St
000150: 72 69 6E 67 31 30 3B 0D 0A 20 20 20 20 4C 69 6E  ring10;..    Lin
000160: 65 4E 75 6D 62 65 72 73 3A 20 42 6F 6F 6C 65 61  eNumbers: Boolea
000170: 6E 3B 0D 0A 20 20 20 20 55 70 4B 65 79 73 3A 20  n;..    UpKeys: 
000180: 42 6F 6F 6C 65 61 6E 3B 0D 0A 20 20 20 20 50 61  Boolean;..    Pa
000190: 67 65 46 6F 72 49 6E 63 6C 75 64 65 73 3A 20 42  geForIncludes: B
0001A0: 6F 6F 6C 65 61 6E 3B 0D 0A 20 20 20 20 49 6E 64  oolean;..    Ind
0001B0: 65 6E 74 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 20  ent: Integer;.. 
0001C0: 20 20 20 48 65 61 64 69 6E 67 3A 20 42 75 66 66     Heading: Buff
0001D0: 65 72 3B 0D 0A 20 20 20 20 46 6F 6F 74 69 6E 67  er;..    Footing
0001E0: 3A 20 42 75 66 66 65 72 3B 0D 0A 20 20 20 20 43  : Buffer;..    C
0001F0: 75 72 72 65 6E 74 50 61 67 65 4E 75 6D 62 65 72  urrentPageNumber

Size : 512 (Real : 512)
000000: 4F 2A 29 0D 0A 4C 69 73 74 65 72 20 65 69 6E 2F  O*)..Lister ein/
000010: 61 75 73 20 20 20 20 20 20 20 28 2A 2E 4C 2B 2A  aus       (*.L+*
000020: 29 0D 0A 22 53 63 68 6C 75 65 73 73 65 6C 77 6F  ).."Schluesselwo
000030: 72 74 22 20 68 69 6C 69 74 65 20 20 20 28 2A 2E  rt" hilite   (*.
000040: 55 2D 2A 29 0D 0A 5A 65 69 6C 65 6E 6E 75 6D 6D  U-*)..Zeilennumm
000050: 65 72 20 20 20 20 20 20 20 20 20 28 2A 2E 4E 2D  er         (*.N-
000060: 2A 29 0D 0A 53 65 69 74 65 20 66 75 65 72 20 49  *)..Seite fuer I
000070: 6E 63 6C 75 64 65 73 20 20 28 2A 2E 50 2D 2A 29  ncludes  (*.P-*)
000080: 0D 0A 0D 0A 20 20 20 57 69 72 20 20 68 6F 66 66  ....   Wir  hoff
000090: 65 6E 2C 20 20 64 61 7E 20 64 69 65 73 65 73 20  en,  da~ dieses 
0000A0: 50 72 6F 67 72 61 6D 6D 20 65 69 6E 65 20 6E 75  Programm eine nu
0000B0: 65 74 7A 6C 69 63 68 65 20 45 72 67 61 65 6E 7A  etzliche Ergaenz
0000C0: 75 6E 67 20 20 7A 75 0D 0A 20 20 20 54 75 72 62  ung  zu..   Turb
0000D0: 6F 20 50 61 73 63 61 6C 20 69 73 74 2E 0D 0A 1A  o Pascal ist....
0000E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0000F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000100: 0D 0A 53 65 69 74 65 6E 6C 61 65 6E 67 65 20 20  ..Seitenlaenge  
000110: 20 20 20 20 20 20 20 28 2A 2E 50 4C 36 36 2A 29         (*.PL66*)
000120: 0D 0A 45 69 6E 72 75 65 63 6B 75 6E 67 20 20 20  ..Einrueckung   
000130: 20 20 20 20 20 20 20 28 2A 2E 50 4F 30 2A 29 0D         (*.PO0*).
000140: 0A 5A 65 69 6C 65 6E 62 72 65 69 74 65 20 20 20  .Zeilenbreite   
000150: 20 20 20 20 20 20 28 2A 2E 4C 57 37 39 2A 29 0D        (*.LW79*).
000160: 0A 4B 6F 70 66 7A 65 69 6C 65 20 20 20 20 20 20  .Kopfzeile      
000170: 20 20 20 20 20 20 28 2A 2E 48 45 4C 69 73 74 69        (*.HEListi
000180: 6E 67 20 76 6F 6E 20 25 46 2C 20 53 65 69 74 65  ng von %F, Seite
000190: 20 25 23 20 75 6D 20 25 54 20 25 44 2A 29 0D 0A   %# um %T %D*)..
0001A0: 46 75 7E 7A 65 69 6C 65 20 20 20 20 20 20 20 20  Fu~zeile        
0001B0: 20 20 20 20 20 28 2A 2E 46 4F 25 46 20 53 65 69       (*.FO%F Sei
0001C0: 74 65 20 25 23 2A 29 0D 0A 48 69 6C 69 74 65 20  te %#*)..Hilite 
0001D0: 53 69 67 6E 61 6C 20 20 20 20 20 20 20 20 28 2A  Signal        (*
0001E0: 2E 48 49 2A 29 0D 0A 4C 6F 6C 69 74 65 20 53 69  .HI*)..Lolite Si
0001F0: 67 6E 61 6C 20 20 20 20 20 20 20 20 28 2A 2E 4C  gnal        (*.L

Size : 512 (Real : 512)
000000: 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20  : Integer;..    
000010: 43 75 72 72 65 6E 74 4C 69 6E 65 4E 75 6D 62 65  CurrentLineNumbe
000020: 72 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 20 20 20  r: Integer;..   
000030: 20 53 61 76 65 64 49 6E 46 69 6C 65 4E 61 6D 65   SavedInFileName
000040: 3A 20 46 69 6C 65 4E 61 6D 65 3B 0D 0A 20 20 20  : FileName;..   
000050: 20 53 61 76 65 64 4F 75 74 46 69 6C 65 4E 61 6D   SavedOutFileNam
000060: 65 3A 20 46 69 6C 65 4E 61 6D 65 3B 0D 0A 20 20  e: FileName;..  
000070: 20 20 49 6E 63 6C 75 64 65 44 72 69 76 65 3A 20    IncludeDrive: 
000080: 43 68 61 72 3B 0D 0A 0D 0A 20 20 20 20 50 61 72  Char;....    Par
000090: 6D 73 3A 20 50 61 72 61 6D 65 74 65 72 53 65 74  ms: ParameterSet
0000A0: 20 41 62 73 6F 6C 75 74 65 20 49 6E 63 6C 75 64   Absolute Includ
0000B0: 65 44 72 69 76 65 3B 0D 0A 0D 0A 0D 0A 20 20 20  eDrive;......   
0000C0: 20 50 61 72 6D 46 69 6C 65 3A 20 46 69 6C 65 20   ParmFile: File 
0000D0: 4F 66 20 50 61 72 61 6D 65 74 65 72 52 65 63 6F  Of ParameterReco
0000E0: 72 64 3B 0D 0A 20 20 20 20 50 61 72 6D 46 69 6C  rd;..    ParmFil
0000F0: 65 4E 61 6D 65 3A 20 46 69 6C 65 4E 61 6D 65 3B  eName: FileName;
000100: 0D 0A 20 20 20 20 49 6E 46 69 6C 65 4E 61 6D 65  ..    InFileName
000110: 3A 20 46 69 6C 65 4E 61 6D 65 3B 0D 0A 20 20 20  : FileName;..   
000120: 20 4F 75 74 46 69 6C 65 4E 61 6D 65 3A 20 46 69   OutFileName: Fi
000130: 6C 65 4E 61 6D 65 3B 0D 0A 20 20 20 20 54 69 6D  leName;..    Tim
000140: 65 53 74 72 69 6E 67 3A 20 53 74 72 69 6E 67 31  eString: String1
000150: 30 3B 0D 0A 20 20 20 20 44 61 74 65 53 74 72 69  0;..    DateStri
000160: 6E 67 3A 20 53 74 72 69 6E 67 31 30 3B 0D 0A 20  ng: String10;.. 
000170: 20 20 20 43 75 72 72 65 6E 74 49 6E 46 69 6C 65     CurrentInFile
000180: 4E 61 6D 65 3A 20 53 74 72 69 6E 67 5B 36 30 5D  Name: String[60]
000190: 3B 0D 0A 20 20 20 20 49 6E 46 69 6C 65 3A 20 54  ;..    InFile: T
0001A0: 65 78 74 3B 0D 0A 20 20 20 20 4F 75 74 46 69 6C  ext;..    OutFil
0001B0: 65 3A 20 54 65 78 74 3B 0D 0A 20 20 20 20 4F 6B  e: Text;..    Ok
0001C0: 3A 20 42 6F 6F 6C 65 61 6E 3B 0D 0A 20 20 20 20  : Boolean;..    
0001D0: 4F 75 74 49 73 44 65 76 69 63 65 3A 20 42 6F 6F  OutIsDevice: Boo
0001E0: 6C 65 61 6E 3B 0D 0A 20 20 20 20 42 6C 61 6E 6B  lean;..    Blank
0001F0: 73 3A 20 42 75 66 66 65 72 3B 0D 0A 20 20 20 20  s: Buffer;..    

Size : 512 (Real : 512)
000000: 28 2A 20 54 75 72 62 6F 20 50 61 73 63 61 6C 20  (* Turbo Pascal 
000010: 50 72 6F 67 72 61 6D 20 4C 69 73 74 65 72 20 76  Program Lister v
000020: 65 72 73 69 6F 6E 20 32 2E 30 30 41 0D 0A 20 20  ersion 2.00A..  
000030: 20 43 6F 70 79 72 69 67 68 74 20 28 43 29 20 31   Copyright (C) 1
000040: 39 38 34 2C 20 42 4F 52 4C 41 4E 44 20 49 6E 74  984, BORLAND Int
000050: 65 72 6E 61 74 69 6F 6E 61 6C 2C 20 49 6E 63 2E  ernational, Inc.
000060: 2A 29 0D 0A 0D 0A 20 7B 24 43 2D 2C 55 2D 2C 52  *).... {$C-,U-,R
000070: 2D 2C 41 2D 7D 0D 0A 0D 0A 50 72 6F 67 72 61 6D  -,A-}....Program
000080: 20 4C 69 73 74 54 75 72 62 6F 3B 0D 0A 0D 0A 7B   ListTurbo;....{
000090: 24 49 20 6C 69 73 74 74 31 2E 69 6E 63 7D 0D 0A  $I listt1.inc}..
0000A0: 7B 24 49 20 6C 69 73 74 74 32 2E 69 6E 63 7D 0D  {$I listt2.inc}.
0000B0: 0A 7B 24 49 20 6C 69 73 74 74 33 2E 69 6E 63 7D  .{$I listt3.inc}
0000C0: 0D 0A 7B 24 49 20 6C 69 73 74 74 34 2E 69 6E 63  ..{$I listt4.inc
0000D0: 7D 0D 0A 7B 24 49 20 6C 69 73 74 74 35 2E 69 6E  }..{$I listt5.in
0000E0: 63 7D 0D 0A 1A 20 20 20 50 41 53 20 00 00 00 00  c}...   PAS ....
0000F0: 00 00 00 00 00 00 A5 08 21 00 C7 00 15 0D 00 00  ........!.......
000100: 00 46 49 4C 4C 43 48 41 52 50 41 53 00 00 00 09  .FILLCHARPAS....
000110: 45 46 00 00 00 00 00 00 00 00 00 00 00 00 00 00  EF..............
000120: 00 46 49 4C 54 45 52 20 20 50 41 53 00 00 00 0D  .FILTER  PAS....
000130: 47 48 00 00 00 00 00 00 00 00 00 00 00 00 00 00  GH..............
000140: 00 46 55 4E 4B 54 41 53 54 50 41 53 00 00 00 07  .FUNKTASTPAS....
000150: 49 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  I...............
000160: 00 49 42 4D 49 4E 54 31 30 50 41 53 00 00 00 12  .IBMINT10PAS....
000170: 4A 4B 4C 00 00 00 00 00 00 00 00 00 00 00 00 00  JKL.............
000180: 00 49 4F 46 45 48 4C 45 52 50 41 53 00 00 00 17  .IOFEHLERPAS....
000190: 4D 4E 4F 00 00 00 00 00 00 00 00 00 00 00 00 00  MNO.............
0001A0: 00 4C 49 53 54 54 20 20 20 44 4F 43 00 00 00 36  .LISTT   DOC...6
0001B0: 50 51 52 53 54 55 56 00 00 00 00 00 00 00 00 00  PQRSTUV.........
0001C0: 00 4C 49 53 54 54 20 20 20 50 41 53 00 00 00 00  .LISTT   PAS....
0001D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5  ................

Size : 512 (Real : 512)
000000: 43 68 3A 20 43 68 61 72 3B 0D 0A 20 20 20 20 49  Ch: Char;..    I
000010: 3A 20 49 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20  : Integer;..    
000020: 4C 69 6E 65 73 4C 65 66 74 3A 20 49 6E 74 65 67  LinesLeft: Integ
000030: 65 72 3B 0D 0A 0D 0A 0D 0A 20 20 50 72 6F 63 65  er;......  Proce
000040: 64 75 72 65 20 45 72 72 6F 72 4D 65 73 73 61 67  dure ErrorMessag
000050: 65 28 4D 65 73 73 61 67 65 3A 20 42 75 66 66 65  e(Message: Buffe
000060: 72 29 3B 0D 0A 0D 0A 20 20 20 20 56 61 72 0D 0A  r);....    Var..
000070: 20 20 20 20 20 20 43 68 3A 20 43 68 61 72 3B 0D        Ch: Char;.
000080: 0A 0D 0A 20 20 20 20 42 65 67 69 6E 0D 0A 20 20  ...    Begin..  
000090: 20 20 20 20 57 72 69 74 65 4C 6E 28 4D 65 73 73      WriteLn(Mess
0000A0: 61 67 65 29 3B 0D 0A 20 20 20 20 20 20 57 68 69  age);..      Whi
0000B0: 6C 65 20 4B 65 79 50 72 65 73 73 65 64 20 44 6F  le KeyPressed Do
0000C0: 20 52 65 61 64 28 4B 62 64 2C 43 68 29 3B 20 7B   Read(Kbd,Ch); {
0000D0: 20 46 6C 75 73 68 20 69 6E 70 75 74 20 62 75 66   Flush input buf
0000E0: 66 65 72 20 7D 0D 0A 20 20 20 20 20 20 57 72 69  fer }..      Wri
0000F0: 74 65 28 27 48 69 74 20 61 6E 79 20 6B 65 79 20  te('Hit any key 
000100: 74 6F 20 63 6F 6E 74 69 6E 75 65 20 6F 72 20 3C  to continue or <
000110: 45 53 43 3E 20 74 6F 20 61 62 6F 72 74 3A 20 27  ESC> to abort: '
000120: 29 3B 0D 0A 20 20 20 20 20 20 52 65 61 64 28 4B  );..      Read(K
000130: 62 64 2C 43 68 29 3B 0D 0A 20 20 20 20 20 20 57  bd,Ch);..      W
000140: 72 69 74 65 4C 6E 3B 0D 0A 20 20 20 20 20 20 49  riteLn;..      I
000150: 66 20 43 68 3D 5E 5B 20 54 68 65 6E 20 48 61 6C  f Ch=^[ Then Hal
000160: 74 3B 0D 0A 20 20 20 20 45 6E 64 3B 0D 0A 0D 0A  t;..    End;....
000170: 0D 0A 20 20 46 75 6E 63 74 69 6F 6E 20 43 6F 6D  ..  Function Com
000180: 6D 61 6E 64 4C 69 6E 65 41 72 67 75 6D 65 6E 74  mandLineArgument
000190: 28 4E 3A 20 49 6E 74 65 67 65 72 29 3A 20 46 69  (N: Integer): Fi
0001A0: 6C 65 4E 61 6D 65 3B 0D 0A 0D 0A 20 20 20 20 43  leName;....    C
0001B0: 6F 6E 73 74 0D 0A 20 20 20 20 20 20 42 75 66 66  onst..      Buff
0001C0: 65 72 65 64 3A 20 42 6F 6F 6C 65 61 6E 3D 46 61  ered: Boolean=Fa
0001D0: 6C 73 65 3B 0D 0A 20 20 20 20 20 20 43 6F 6D 6D  lse;..      Comm
0001E0: 61 6E 64 4C 69 6E 65 42 75 66 66 65 72 3A 20 53  andLineBuffer: S
0001F0: 74 72 69 6E 67 5B 31 32 37 5D 3D 27 27 3B 0D 0A  tring[127]='';..

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

Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 56 61 72 0D 0A 20 20 20 20 20  ..    Var..     
000010: 20 43 6F 6D 6D 61 6E 64 4C 69 6E 65 3A 20 53 74   CommandLine: St
000020: 72 69 6E 67 5B 31 32 37 5D 20 41 62 73 6F 6C 75  ring[127] Absolu
000030: 74 65 20 24 30 30 38 30 3B 0D 0A 20 20 20 20 20  te $0080;..     
000040: 20 43 4C 41 3A 20 46 69 6C 65 4E 61 6D 65 3B 0D   CLA: FileName;.
000050: 0A 20 20 20 20 20 20 49 2C 4A 3A 20 49 6E 74 65  .      I,J: Inte
000060: 67 65 72 3B 0D 0A 0D 0A 20 20 20 20 42 65 67 69  ger;....    Begi
000070: 6E 0D 0A 20 20 20 20 20 20 49 66 20 4E 6F 74 20  n..      If Not 
000080: 42 75 66 66 65 72 65 64 20 54 68 65 6E 20 43 6F  Buffered Then Co
000090: 6D 6D 61 6E 64 4C 69 6E 65 42 75 66 66 65 72 3A  mmandLineBuffer:
0000A0: 3D 43 6F 6D 6D 61 6E 64 4C 69 6E 65 3B 0D 0A 20  =CommandLine;.. 
0000B0: 20 20 20 20 20 42 75 66 66 65 72 65 64 3A 3D 54       Buffered:=T
0000C0: 72 75 65 3B 0D 0A 20 20 20 20 20 20 4A 3A 3D 31  rue;..      J:=1
0000D0: 3B 0D 0A 20 20 20 20 20 20 46 6F 72 20 49 3A 3D  ;..      For I:=
0000E0: 31 20 54 6F 20 4E 20 44 6F 0D 0A 20 20 20 20 20  1 To N Do..     
0000F0: 20 20 42 65 67 69 6E 0D 0A 20 20 20 20 20 20 20    Begin..       
000100: 20 43 4C 41 3A 3D 27 27 3B 0D 0A 20 20 20 20 20   CLA:='';..     
000110: 20 20 20 57 68 69 6C 65 20 28 4A 3C 3D 4C 65 6E     While (J<=Len
000120: 67 74 68 28 43 6F 6D 6D 61 6E 64 4C 69 6E 65 29  gth(CommandLine)
000130: 29 20 41 6E 64 20 28 43 6F 6D 6D 61 6E 64 4C 69  ) And (CommandLi
000140: 6E 65 5B 4A 5D 3D 27 20 27 29 20 44 6F 20 4A 3A  ne[J]=' ') Do J:
000150: 3D 4A 2B 31 3B 0D 0A 20 20 20 20 20 20 20 20 57  =J+1;..        W
000160: 68 69 6C 65 20 28 4A 3C 3D 4C 65 6E 67 74 68 28  hile (J<=Length(
000170: 43 6F 6D 6D 61 6E 64 4C 69 6E 65 29 29 20 41 6E  CommandLine)) An
000180: 64 20 28 43 6F 6D 6D 61 6E 64 4C 69 6E 65 5B 4A  d (CommandLine[J
000190: 5D 3C 3E 27 20 27 29 20 44 6F 0D 0A 20 20 20 20  ]<>' ') Do..    
0001A0: 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 20 20       Begin..    
0001B0: 20 20 20 20 20 20 43 4C 41 3A 3D 43 4C 41 2B 43        CLA:=CLA+C
0001C0: 6F 6D 6D 61 6E 64 4C 69 6E 65 5B 4A 5D 3B 0D 0A  ommandLine[J];..
0001D0: 20 20 20 20 20 20 20 20 20 20 4A 3A 3D 4A 2B 31            J:=J+1
0001E0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 45 6E 64 3B  ;..         End;
0001F0: 0D 0A 20 20 20 20 20 20 20 45 6E 64 3B 0D 0A 20  ..       End;.. 

Size : 512 (Real : 512)
000000: 20 20 20 27 44 27 3A 20 50 45 3A 3D 50 45 2B 44     'D': PE:=PE+D
000010: 61 74 65 53 74 72 69 6E 67 3B 0D 0A 20 20 20 20  ateString;..    
000020: 20 20 20 20 20 20 20 20 27 46 27 3A 20 50 45 3A          'F': PE:
000030: 3D 50 45 2B 43 75 72 72 65 6E 74 49 6E 46 69 6C  =PE+CurrentInFil
000040: 65 4E 61 6D 65 3B 0D 0A 20 20 20 20 20 20 20 20  eName;..        
000050: 20 20 20 20 27 3C 27 3A 20 43 65 6E 74 65 72 3A      '<': Center:
000060: 3D 4C 65 66 74 3B 0D 0A 20 20 20 20 20 20 20 20  =Left;..        
000070: 20 20 20 20 27 3E 27 3A 20 43 65 6E 74 65 72 3A      '>': Center:
000080: 3D 52 69 67 68 74 3B 0D 0A 20 20 20 20 20 20 20  =Right;..       
000090: 20 20 20 20 20 27 5B 27 3A 20 42 65 67 69 6E 0D       '[': Begin.
0000A0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0000B0: 20 20 20 20 43 65 6E 74 65 72 3A 3D 52 69 67 68      Center:=Righ
0000C0: 74 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  t;..            
0000D0: 20 20 20 20 20 20 20 49 66 20 4F 64 64 28 43 75         If Odd(Cu
0000E0: 72 72 65 6E 74 50 61 67 65 4E 75 6D 62 65 72 29  rrentPageNumber)
0000F0: 20 54 68 65 6E 20 43 65 6E 74 65 72 3A 3D 4C 65   Then Center:=Le
000100: 66 74 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20  ft;..           
000110: 20 20 20 20 20 20 45 6E 64 3B 0D 0A 20 20 20 20        End;..    
000120: 20 20 20 20 20 20 20 20 27 5D 27 3A 20 42 65 67          ']': Beg
000130: 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  in..            
000140: 20 20 20 20 20 20 20 43 65 6E 74 65 72 3A 3D 4C         Center:=L
000150: 65 66 74 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  eft;..          
000160: 20 20 20 20 20 20 20 20 20 49 66 20 4F 64 64 28           If Odd(
000170: 43 75 72 72 65 6E 74 50 61 67 65 4E 75 6D 62 65  CurrentPageNumbe
000180: 72 29 20 54 68 65 6E 20 43 65 6E 74 65 72 3A 3D  r) Then Center:=
000190: 52 69 67 68 74 3B 0D 0A 20 20 20 20 20 20 20 20  Right;..        
0001A0: 20 20 20 20 20 20 20 20 20 45 6E 64 3B 0D 0A 20           End;.. 
0001B0: 20 20 20 20 20 20 20 20 20 20 20 45 6C 73 65 20             Else 
0001C0: 50 45 3A 3D 50 45 2B 49 6E 67 5B 49 2B 31 5D 3B  PE:=PE+Ing[I+1];
0001D0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 45 6E 64  ..           End
0001E0: 3B 20 7B 20 43 61 73 65 20 49 6E 67 5B 49 2B 31  ; { Case Ing[I+1
0001F0: 5D 20 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 49  ] }..          I

Size : 512 (Real : 512)
000000: 20 20 20 20 20 43 6F 6D 6D 61 6E 64 4C 69 6E 65       CommandLine
000010: 41 72 67 75 6D 65 6E 74 3A 3D 43 4C 41 3B 0D 0A  Argument:=CLA;..
000020: 20 20 20 20 45 6E 64 3B 0D 0A 0D 0A 0D 0A 20 20      End;......  
000030: 50 72 6F 63 65 64 75 72 65 20 49 6E 69 74 50 61  Procedure InitPa
000040: 72 6D 73 3B 0D 0A 0D 0A 0D 0A 20 20 20 20 50 72  rms;......    Pr
000050: 6F 63 65 64 75 72 65 20 5A 65 72 6F 46 69 6C 6C  ocedure ZeroFill
000060: 28 56 61 72 20 53 3A 20 53 74 72 69 6E 67 31 30  (Var S: String10
000070: 29 3B 0D 0A 0D 0A 20 20 20 20 20 20 56 61 72 0D  );....      Var.
000080: 0A 20 20 20 20 20 20 20 20 49 3A 20 49 6E 74 65  .        I: Inte
000090: 67 65 72 3B 0D 0A 0D 0A 20 20 20 20 20 20 42 65  ger;....      Be
0000A0: 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 46 6F 72  gin..        For
0000B0: 20 49 3A 3D 31 20 54 6F 20 4C 65 6E 67 74 68 28   I:=1 To Length(
0000C0: 53 29 20 44 6F 20 49 66 20 53 5B 49 5D 3D 27 20  S) Do If S[I]=' 
0000D0: 27 20 54 68 65 6E 20 53 5B 49 5D 3A 3D 27 30 27  ' Then S[I]:='0'
0000E0: 3B 0D 0A 20 20 20 20 20 20 45 6E 64 3B 0D 0A 0D  ;..      End;...
0000F0: 0A 0D 0A 20 20 20 20 56 61 72 0D 0A 20 20 20 20  ...    Var..    
000100: 20 20 48 6F 75 72 2C 4D 69 6E 2C 41 4D 5F 50 4D    Hour,Min,AM_PM
000110: 2C 4D 6F 6E 74 68 2C 44 61 79 2C 59 65 61 72 3A  ,Month,Day,Year:
000120: 20 53 74 72 69 6E 67 5B 32 5D 3B 0D 0A 20 20 20   String[2];..   
000130: 20 20 20 49 3A 20 49 6E 74 65 67 65 72 3B 0D 0A     I: Integer;..
000140: 0D 0A 20 20 20 20 42 65 67 69 6E 20 7B 20 49 6E  ..    Begin { In
000150: 69 74 50 61 72 6D 73 20 7D 0D 0A 20 20 20 20 20  itParms }..     
000160: 20 50 61 67 65 4C 65 6E 67 74 68 3A 3D 36 36 3B   PageLength:=66;
000170: 0D 0A 20 20 20 20 20 20 4C 69 6E 65 57 69 64 74  ..      LineWidt
000180: 68 3A 3D 37 39 3B 0D 0A 20 20 20 20 20 20 48 69  h:=79;..      Hi
000190: 4C 69 74 65 3A 3D 27 27 3B 0D 0A 20 20 20 20 20  Lite:='';..     
0001A0: 20 4C 6F 4C 69 74 65 3A 3D 27 27 3B 0D 0A 20 20   LoLite:='';..  
0001B0: 20 20 20 20 49 6E 69 74 53 74 72 69 6E 67 3A 3D      InitString:=
0001C0: 27 27 3B 0D 0A 20 20 20 20 20 20 45 78 69 74 53  '';..      ExitS
0001D0: 74 72 69 6E 67 3A 3D 27 27 3B 0D 0A 20 20 20 20  tring:='';..    
0001E0: 20 20 4C 69 6E 65 4E 75 6D 62 65 72 73 3A 3D 46    LineNumbers:=F
0001F0: 61 6C 73 65 3B 0D 0A 20 20 20 20 20 20 55 70 4B  alse;..      UpK

Size : 512 (Real : 512)
000000: 3A 3D 49 2B 31 3B 0D 0A 20 20 20 20 20 20 20 20  :=I+1;..        
000010: 20 45 6E 64 3B 20 7B 20 45 6C 73 65 20 49 6E 67   End; { Else Ing
000020: 5B 49 5D 3D 27 25 27 20 7D 0D 0A 20 20 20 20 20  [I]='%' }..     
000030: 20 20 20 49 3A 3D 49 2B 31 3B 0D 0A 20 20 20 20     I:=I+1;..    
000040: 20 20 20 45 6E 64 3B 20 7B 20 57 68 69 6C 65 20     End; { While 
000050: 7D 0D 0A 20 20 20 20 20 20 49 66 20 4C 65 6E 67  }..      If Leng
000060: 74 68 28 50 45 29 3E 4C 69 6E 65 57 69 64 74 68  th(PE)>LineWidth
000070: 20 54 68 65 6E 20 50 45 5B 30 5D 3A 3D 43 68 72   Then PE[0]:=Chr
000080: 28 4C 69 6E 65 57 69 64 74 68 29 3B 0D 0A 20 20  (LineWidth);..  
000090: 20 20 20 20 49 66 20 43 65 6E 74 65 72 3D 4D 69      If Center=Mi
0000A0: 64 64 6C 65 20 54 68 65 6E 0D 0A 20 20 20 20 20  ddle Then..     
0000B0: 20 20 20 50 45 3A 3D 43 6F 70 79 28 42 6C 61 6E     PE:=Copy(Blan
0000C0: 6B 73 2C 31 2C 28 4C 69 6E 65 57 69 64 74 68 2D  ks,1,(LineWidth-
0000D0: 4C 65 6E 67 74 68 28 50 45 29 29 20 44 69 76 20  Length(PE)) Div 
0000E0: 32 29 2B 50 45 0D 0A 20 20 20 20 20 20 45 6C 73  2)+PE..      Els
0000F0: 65 20 49 66 20 43 65 6E 74 65 72 3D 52 69 67 68  e If Center=Righ
000100: 74 20 54 68 65 6E 0D 0A 20 20 20 20 20 20 20 20  t Then..        
000110: 50 45 3A 3D 43 6F 70 79 28 42 6C 61 6E 6B 73 2C  PE:=Copy(Blanks,
000120: 31 2C 4C 69 6E 65 57 69 64 74 68 2D 4C 65 6E 67  1,LineWidth-Leng
000130: 74 68 28 50 45 29 29 2B 50 45 3B 0D 0A 20 20 20  th(PE))+PE;..   
000140: 20 20 20 50 65 72 63 65 6E 74 45 78 70 61 6E 64     PercentExpand
000150: 3A 3D 50 45 3B 0D 0A 20 20 20 20 45 6E 64 3B 20  :=PE;..    End; 
000160: 7B 20 50 65 72 63 65 6E 74 45 78 70 61 6E 64 20  { PercentExpand 
000170: 7D 0D 0A 1A 65 6E 74 50 61 67 65 4E 75 6D 62 65  }...entPageNumbe
000180: 72 29 20 54 68 65 6E 20 43 65 6E 74 65 72 3A 3D  r) Then Center:=
000190: 52 69 67 68 74 3B 0D 0A 20 20 20 20 20 20 20 20  Right;..        
0001A0: 20 20 20 20 20 20 20 20 20 45 6E 64 3B 0D 0A 20           End;.. 
0001B0: 20 20 20 20 20 20 20 20 20 20 20 45 6C 73 65 20             Else 
0001C0: 50 45 3A 3D 50 45 2B 49 6E 67 5B 49 2B 31 5D 3B  PE:=PE+Ing[I+1];
0001D0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 45 6E 64  ..           End
0001E0: 3B 20 7B 20 43 61 73 65 20 49 6E 67 5B 49 2B 31  ; { Case Ing[I+1
0001F0: 5D 20 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 49  ] }..          I

Size : 512 (Real : 512)
000000: 65 79 73 3A 3D 46 61 6C 73 65 3B 0D 0A 20 20 20  eys:=False;..   
000010: 20 20 20 50 61 67 65 46 6F 72 49 6E 63 6C 75 64     PageForInclud
000020: 65 73 3A 3D 46 61 6C 73 65 3B 0D 0A 20 20 20 20  es:=False;..    
000030: 20 20 49 6E 64 65 6E 74 3A 3D 30 3B 0D 0A 20 20    Indent:=0;..  
000040: 20 20 20 20 48 65 61 64 69 6E 67 3A 3D 27 4C 69      Heading:='Li
000050: 73 74 69 6E 67 20 6F 66 20 25 46 2C 20 70 61 67  sting of %F, pag
000060: 65 20 25 23 20 61 74 20 25 54 20 25 44 27 3B 0D  e %# at %T %D';.
000070: 0A 20 20 20 20 20 20 46 6F 6F 74 69 6E 67 3A 3D  .      Footing:=
000080: 27 25 46 20 70 61 67 65 20 25 23 27 3B 0D 0A 20  '%F page %#';.. 
000090: 20 20 20 20 20 43 75 72 72 65 6E 74 50 61 67 65       CurrentPage
0000A0: 4E 75 6D 62 65 72 3A 3D 31 3B 0D 0A 20 20 20 20  Number:=1;..    
0000B0: 20 20 43 75 72 72 65 6E 74 4C 69 6E 65 4E 75 6D    CurrentLineNum
0000C0: 62 65 72 3A 3D 31 3B 0D 0A 0D 0A 20 20 20 20 20  ber:=1;....     
0000D0: 20 42 6C 61 6E 6B 73 3A 3D 27 27 3B 0D 0A 20 20   Blanks:='';..  
0000E0: 20 20 20 20 46 6F 72 20 49 3A 3D 31 20 54 6F 20      For I:=1 To 
0000F0: 32 30 30 20 44 6F 20 42 6C 61 6E 6B 73 3A 3D 42  200 Do Blanks:=B
000100: 6C 61 6E 6B 73 2B 27 20 27 3B 0D 0A 0D 0A 0D 0A  lanks+' ';......
000110: 20 20 20 20 20 20 54 69 6D 65 53 74 72 69 6E 67        TimeString
000120: 3A 3D 27 27 3B 0D 0A 20 20 20 20 20 20 44 61 74  :='';..      Dat
000130: 65 53 74 72 69 6E 67 3A 3D 27 27 3B 0D 0A 20 20  eString:='';..  
000140: 20 20 45 6E 64 3B 0D 0A 0D 0A 0D 0A 20 20 50 72    End;......  Pr
000150: 6F 63 65 64 75 72 65 20 46 69 78 53 74 72 69 6E  ocedure FixStrin
000160: 67 28 56 61 72 20 53 74 3A 20 46 69 6C 65 4E 61  g(Var St: FileNa
000170: 6D 65 29 3B 0D 0A 0D 0A 20 20 20 20 56 61 72 0D  me);....    Var.
000180: 0A 20 20 20 20 20 20 49 3A 20 49 6E 74 65 67 65  .      I: Intege
000190: 72 3B 0D 0A 0D 0A 20 20 20 20 42 65 67 69 6E 0D  r;....    Begin.
0001A0: 0A 20 20 20 20 20 20 57 68 69 6C 65 20 28 53 74  .      While (St
0001B0: 5B 31 5D 3D 27 20 27 29 20 41 6E 64 20 28 4C 65  [1]=' ') And (Le
0001C0: 6E 67 74 68 28 53 74 29 3E 30 29 20 44 6F 20 44  ngth(St)>0) Do D
0001D0: 65 6C 65 74 65 28 53 74 2C 31 2C 31 29 3B 0D 0A  elete(St,1,1);..
0001E0: 20 20 20 20 20 20 49 66 20 50 6F 73 28 27 20 27        If Pos(' '
0001F0: 2C 53 74 29 3C 3E 30 20 54 68 65 6E 20 53 74 5B  ,St)<>0 Then St[

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

Size : 512 (Real : 512)
000000: 30 5D 3A 3D 43 68 72 28 50 6F 73 28 27 20 27 2C  0]:=Chr(Pos(' ',
000010: 53 74 29 2D 31 29 3B 0D 0A 20 20 20 20 20 20 46  St)-1);..      F
000020: 6F 72 20 49 3A 3D 31 20 54 6F 20 4C 65 6E 67 74  or I:=1 To Lengt
000030: 68 28 53 74 29 20 44 6F 20 53 74 5B 49 5D 3A 3D  h(St) Do St[I]:=
000040: 55 70 43 61 73 65 28 53 74 5B 49 5D 29 3B 0D 0A  UpCase(St[I]);..
000050: 20 20 20 20 45 6E 64 3B 0D 0A 0D 0A 0D 0A 20 20      End;......  
000060: 50 72 6F 63 65 64 75 72 65 20 46 69 78 46 69 6C  Procedure FixFil
000070: 65 4E 61 6D 65 28 56 61 72 20 46 4E 3A 20 46 69  eName(Var FN: Fi
000080: 6C 65 4E 61 6D 65 3B 20 45 78 74 3A 20 53 74 72  leName; Ext: Str
000090: 69 6E 67 33 29 3B 0D 0A 0D 0A 20 20 20 20 42 65  ing3);....    Be
0000A0: 67 69 6E 0D 0A 20 20 20 20 20 20 46 69 78 53 74  gin..      FixSt
0000B0: 72 69 6E 67 28 46 4E 29 3B 0D 0A 20 20 20 20 20  ring(FN);..     
0000C0: 20 49 66 20 50 6F 73 28 27 2E 27 2C 46 4E 29 3D   If Pos('.',FN)=
0000D0: 30 20 54 68 65 6E 20 46 4E 3A 3D 46 4E 2B 27 2E  0 Then FN:=FN+'.
0000E0: 27 2B 45 78 74 3B 0D 0A 20 20 20 20 45 6E 64 3B  '+Ext;..    End;
0000F0: 0D 0A 0D 0A 0D 0A 20 20 46 75 6E 63 74 69 6F 6E  ......  Function
000100: 20 50 65 72 63 65 6E 74 45 78 70 61 6E 64 28 49   PercentExpand(I
000110: 6E 67 3A 20 42 75 66 66 65 72 29 3A 20 42 75 66  ng: Buffer): Buf
000120: 66 65 72 3B 0D 0A 0D 0A 20 20 20 20 56 61 72 0D  fer;....    Var.
000130: 0A 20 20 20 20 20 20 50 45 3A 20 42 75 66 66 65  .      PE: Buffe
000140: 72 3B 0D 0A 20 20 20 20 20 20 49 2C 43 50 4E 3A  r;..      I,CPN:
000150: 20 49 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 20   Integer;..     
000160: 20 50 4E 3A 20 53 74 72 69 6E 67 5B 36 5D 3B 0D   PN: String[6];.
000170: 0A 20 20 20 20 20 20 43 65 6E 74 65 72 3A 20 28  .      Center: (
000180: 4C 65 66 74 2C 4D 69 64 64 6C 65 2C 52 69 67 68  Left,Middle,Righ
000190: 74 29 3B 0D 0A 0D 0A 20 20 20 20 42 65 67 69 6E  t);....    Begin
0001A0: 0D 0A 20 20 20 20 20 20 43 65 6E 74 65 72 3A 3D  ..      Center:=
0001B0: 4D 69 64 64 6C 65 3B 0D 0A 20 20 20 20 20 20 50  Middle;..      P
0001C0: 45 3A 3D 27 27 3B 0D 0A 20 20 20 20 20 20 49 3A  E:='';..      I:
0001D0: 3D 31 3B 0D 0A 20 20 20 20 20 20 57 68 69 6C 65  =1;..      While
0001E0: 20 28 49 3C 3D 4C 65 6E 67 74 68 28 49 6E 67 29   (I<=Length(Ing)
0001F0: 29 20 44 6F 0D 0A 20 20 20 20 20 20 20 42 65 67  ) Do..       Beg

Size : 512 (Real : 512)
000000: 0D 0A 20 20 50 72 6F 63 65 64 75 72 65 20 57 4C  ..  Procedure WL
000010: 69 6E 65 28 53 3A 20 42 75 66 66 65 72 29 3B 0D  ine(S: Buffer);.
000020: 0A 0D 0A 20 20 20 20 42 65 67 69 6E 0D 0A 20 20  ...    Begin..  
000030: 20 20 20 20 49 66 20 4B 65 79 50 72 65 73 73 65      If KeyPresse
000040: 64 20 54 68 65 6E 0D 0A 20 20 20 20 20 20 20 42  d Then..       B
000050: 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 52 65  egin..        Re
000060: 70 65 61 74 0D 0A 20 20 20 20 20 20 20 20 20 20  peat..          
000070: 52 65 61 64 28 4B 62 64 2C 43 68 29 0D 0A 20 20  Read(Kbd,Ch)..  
000080: 20 20 20 20 20 20 55 6E 74 69 6C 20 4E 6F 74 20        Until Not 
000090: 4B 65 79 50 72 65 73 73 65 64 3B 0D 0A 20 20 20  KeyPressed;..   
0000A0: 20 20 20 20 20 57 72 69 74 65 28 5E 4D 2C 27 54       Write(^M,'T
0000B0: 65 72 6D 69 6E 61 74 65 20 28 59 2F 4E 29 3F 20  erminate (Y/N)? 
0000C0: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 52 65 61  ');..        Rea
0000D0: 64 28 4B 62 64 2C 43 68 29 3B 0D 0A 20 20 20 20  d(Kbd,Ch);..    
0000E0: 20 20 20 20 49 66 20 55 70 43 61 73 65 28 43 68      If UpCase(Ch
0000F0: 29 3D 27 59 27 20 54 68 65 6E 0D 0A 20 20 20 20  )='Y' Then..    
000100: 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 20 20       Begin..    
000110: 20 20 20 20 20 20 57 72 69 74 65 4C 6E 28 27 59        WriteLn('Y
000120: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57  ');..          W
000130: 72 69 74 65 28 4F 75 74 46 69 6C 65 2C 45 78 69  rite(OutFile,Exi
000140: 74 53 74 72 69 6E 67 29 3B 0D 0A 20 20 20 20 20  tString);..     
000150: 20 20 20 20 20 43 6C 6F 73 65 28 4F 75 74 46 69       Close(OutFi
000160: 6C 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  le);..          
000170: 48 61 6C 74 3B 0D 0A 20 20 20 20 20 20 20 20 20  Halt;..         
000180: 45 6E 64 0D 0A 20 20 20 20 20 20 20 20 45 6C 73  End..        Els
000190: 65 20 57 72 69 74 65 28 5E 4D 2C 27 20 20 20 20  e Write(^M,'    
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 27 2C 5E 4D              ',^M
0001B0: 29 3B 0D 0A 20 20 20 20 20 20 20 45 6E 64 3B 20  );..       End; 
0001C0: 7B 20 49 66 20 4B 65 79 50 72 65 73 73 65 64 20  { If KeyPressed 
0001D0: 7D 0D 0A 20 20 20 20 20 20 49 66 20 4E 6F 74 20  }..      If Not 
0001E0: 50 61 67 65 53 74 61 72 74 65 64 20 54 68 65 6E  PageStarted Then
0001F0: 0D 0A 20 20 20 20 20 20 20 42 65 67 69 6E 0D 0A  ..       Begin..

Size : 512 (Real : 512)
000000: 69 6E 0D 0A 20 20 20 20 20 20 20 20 49 66 20 49  in..        If I
000010: 6E 67 5B 49 5D 3C 3E 27 25 27 20 54 68 65 6E 20  ng[I]<>'%' Then 
000020: 50 45 3A 3D 50 45 2B 49 6E 67 5B 49 5D 0D 0A 20  PE:=PE+Ing[I].. 
000030: 20 20 20 20 20 20 20 45 6C 73 65 20 49 66 20 49         Else If I
000040: 3D 4C 65 6E 67 74 68 28 49 6E 67 29 20 54 68 65  =Length(Ing) The
000050: 6E 20 50 45 3A 3D 50 45 2B 27 25 27 0D 0A 20 20  n PE:=PE+'%'..  
000060: 20 20 20 20 20 20 45 6C 73 65 0D 0A 20 20 20 20        Else..    
000070: 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 20 20       Begin..    
000080: 20 20 20 20 20 20 43 61 73 65 20 55 70 43 61 73        Case UpCas
000090: 65 28 49 6E 67 5B 49 2B 31 5D 29 20 4F 66 0D 0A  e(Ing[I+1]) Of..
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 27 23 27 3A              '#':
0000B0: 20 42 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20   Begin..        
0000C0: 20 20 20 20 20 20 20 20 20 20 20 50 4E 3A 3D 27             PN:='
0000D0: 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  ';..            
0000E0: 20 20 20 20 20 20 20 43 50 4E 3A 3D 43 75 72 72         CPN:=Curr
0000F0: 65 6E 74 50 61 67 65 4E 75 6D 62 65 72 3B 0D 0A  entPageNumber;..
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000110: 20 20 20 52 65 70 65 61 74 0D 0A 20 20 20 20 20     Repeat..     
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000130: 50 4E 3A 3D 43 68 72 28 4F 72 64 28 27 30 27 29  PN:=Chr(Ord('0')
000140: 2B 28 43 50 4E 20 4D 6F 64 20 31 30 29 29 2B 50  +(CPN Mod 10))+P
000150: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  N;..            
000160: 20 20 20 20 20 20 20 20 20 43 50 4E 3A 3D 43 50           CPN:=CP
000170: 4E 20 44 69 76 20 31 30 3B 0D 0A 20 20 20 20 20  N Div 10;..     
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 6E                Un
000190: 74 69 6C 20 43 50 4E 3D 30 3B 0D 0A 20 20 20 20  til CPN=0;..    
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50                 P
0001B0: 45 3A 3D 50 45 2B 50 4E 3B 0D 0A 20 20 20 20 20  E:=PE+PN;..     
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 45 6E 64 3B              End;
0001D0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 27 54  ..            'T
0001E0: 27 3A 20 50 45 3A 3D 50 45 2B 54 69 6D 65 53 74  ': PE:=PE+TimeSt
0001F0: 72 69 6E 67 3B 0D 0A 20 20 20 20 20 20 20 20 20  ring;..         

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 57 72 69 74 65 4C 6E 28          WriteLn(
000010: 4F 75 74 46 69 6C 65 29 3B 0D 0A 20 20 20 20 20  OutFile);..     
000020: 20 20 20 57 72 69 74 65 4C 6E 28 4F 75 74 46 69     WriteLn(OutFi
000030: 6C 65 2C 50 65 72 63 65 6E 74 45 78 70 61 6E 64  le,PercentExpand
000040: 28 48 65 61 64 69 6E 67 29 29 3B 0D 0A 20 20 20  (Heading));..   
000050: 20 20 20 20 20 57 72 69 74 65 4C 6E 28 4F 75 74       WriteLn(Out
000060: 46 69 6C 65 29 3B 0D 0A 20 20 20 20 20 20 20 20  File);..        
000070: 50 61 67 65 53 74 61 72 74 65 64 3A 3D 54 72 75  PageStarted:=Tru
000080: 65 3B 0D 0A 20 20 20 20 20 20 20 45 6E 64 3B 0D  e;..       End;.
000090: 0A 20 20 20 20 20 20 57 72 69 74 65 28 4F 75 74  .      Write(Out
0000A0: 46 69 6C 65 2C 43 6F 70 79 28 42 6C 61 6E 6B 73  File,Copy(Blanks
0000B0: 2C 31 2C 49 6E 64 65 6E 74 29 29 3B 0D 0A 20 20  ,1,Indent));..  
0000C0: 20 20 20 20 49 66 20 4C 69 6E 65 4E 75 6D 62 65      If LineNumbe
0000D0: 72 73 20 54 68 65 6E 0D 0A 20 20 20 20 20 20 20  rs Then..       
0000E0: 42 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 57  Begin..        W
0000F0: 72 69 74 65 28 4F 75 74 46 69 6C 65 2C 43 75 72  rite(OutFile,Cur
000100: 72 65 6E 74 4C 69 6E 65 4E 75 6D 62 65 72 3A 35  rentLineNumber:5
000110: 29 3B 0D 0A 20 20 20 20 20 20 20 20 49 66 20 49  );..        If I
000120: 6E 49 6E 63 6C 75 64 65 20 54 68 65 6E 20 57 72  nInclude Then Wr
000130: 69 74 65 28 4F 75 74 46 69 6C 65 2C 27 3E 20 27  ite(OutFile,'> '
000140: 29 0D 0A 20 20 20 20 20 20 20 20 45 6C 73 65 20  )..        Else 
000150: 57 72 69 74 65 28 4F 75 74 46 69 6C 65 2C 27 3A  Write(OutFile,':
000160: 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 45 6E 64   ');..       End
000170: 0D 0A 20 20 20 20 20 20 45 6C 73 65 20 49 66 20  ..      Else If 
000180: 49 6E 49 6E 63 6C 75 64 65 20 54 68 65 6E 20 57  InInclude Then W
000190: 72 69 74 65 28 4F 75 74 46 69 6C 65 2C 27 3E 20  rite(OutFile,'> 
0001A0: 27 29 3B 0D 0A 20 20 20 20 20 20 57 72 69 74 65  ');..      Write
0001B0: 4C 6E 28 4F 75 74 46 69 6C 65 2C 53 29 3B 0D 0A  Ln(OutFile,S);..
0001C0: 20 20 20 20 20 20 49 66 20 28 4F 75 74 46 69 6C        If (OutFil
0001D0: 65 4E 61 6D 65 3C 3E 27 43 4F 4E 3A 27 29 20 41  eName<>'CON:') A
0001E0: 6E 64 20 28 43 75 72 72 65 6E 74 4C 69 6E 65 4E  nd (CurrentLineN
0001F0: 75 6D 62 65 72 20 4D 6F 64 20 31 36 3D 30 29 20  umber Mod 16=0) 

Size : 512 (Real : 512)
000000: 3A 3D 43 6F 6D 6D 65 6E 74 3B 0D 0A 20 20 20 20  :=Comment;..    
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000020: 20 20 20 20 27 28 27 3A 20 49 66 20 28 4C 69 6E      '(': If (Lin
000030: 65 5B 49 2B 31 5D 3D 27 2A 27 29 20 41 6E 64 20  e[I+1]='*') And 
000040: 28 49 2B 31 3C 4C 4C 29 20 54 68 65 6E 0D 0A 20  (I+1<LL) Then.. 
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 42 65 67               Beg
000070: 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  in..            
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000090: 20 20 20 50 61 72 73 65 53 74 61 74 65 3A 3D 43     ParseState:=C
0000A0: 6F 6D 6D 65 6E 74 32 3B 0D 0A 20 20 20 20 20 20  omment2;..      
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000C0: 20 20 20 20 20 20 20 20 20 49 3A 3D 49 2B 31 3B           I:=I+1;
0000D0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000F0: 45 6E 64 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  End;..          
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 27                ''
000110: 27 27 3A 20 50 61 72 73 65 53 74 61 74 65 3A 3D  '': ParseState:=
000120: 51 75 6F 74 65 64 3B 0D 0A 20 20 20 20 20 20 20  Quoted;..       
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45                 E
000140: 6E 64 3B 20 7B 20 43 61 73 65 20 4C 69 6E 65 5B  nd; { Case Line[
000150: 49 5D 20 7D 0D 0A 20 20 20 20 20 20 20 20 20 20  I] }..          
000160: 20 20 20 20 4B 65 79 57 6F 72 64 3A 20 49 66 20      KeyWord: If 
000170: 4C 69 6E 65 5B 49 5D 20 49 6E 20 5B 27 41 27 2E  Line[I] In ['A'.
000180: 2E 27 5A 27 2C 27 61 27 2E 2E 27 7A 27 2C 27 30  .'Z','a'..'z','0
000190: 27 2E 2E 27 39 27 2C 27 5F 27 5D 20 54 68 65 6E  '..'9','_'] Then
0001A0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
0001B0: 20 20 20 20 20 20 20 20 20 20 42 65 67 69 6E 0D            Begin.
0001C0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0001D0: 20 20 20 20 20 20 20 20 20 20 49 66 20 4C 4B 3C            If LK<
0001E0: 31 30 20 54 68 65 6E 20 4C 4B 3A 3D 4C 4B 2B 31  10 Then LK:=LK+1
0001F0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  ;..             

Size : 512 (Real : 512)
000000: 54 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 57 72  Then..        Wr
000010: 69 74 65 28 5E 4D 2C 27 4C 69 6E 65 20 27 2C 43  ite(^M,'Line ',C
000020: 75 72 72 65 6E 74 4C 69 6E 65 4E 75 6D 62 65 72  urrentLineNumber
000030: 29 3B 0D 0A 20 20 20 20 20 20 4C 69 6E 65 73 4C  );..      LinesL
000040: 65 66 74 3A 3D 4C 69 6E 65 73 4C 65 66 74 2D 31  eft:=LinesLeft-1
000050: 3B 0D 0A 20 20 20 20 20 20 49 66 20 4C 69 6E 65  ;..      If Line
000060: 73 4C 65 66 74 3D 30 20 54 68 65 6E 0D 0A 20 20  sLeft=0 Then..  
000070: 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 20 20       Begin..    
000080: 20 20 20 20 57 72 69 74 65 4C 6E 28 4F 75 74 46      WriteLn(OutF
000090: 69 6C 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 57  ile);..        W
0000A0: 72 69 74 65 4C 6E 28 4F 75 74 46 69 6C 65 2C 50  riteLn(OutFile,P
0000B0: 65 72 63 65 6E 74 45 78 70 61 6E 64 28 46 6F 6F  ercentExpand(Foo
0000C0: 74 69 6E 67 29 29 3B 0D 0A 20 20 20 20 20 20 20  ting));..       
0000D0: 20 57 72 69 74 65 4C 6E 28 4F 75 74 46 69 6C 65   WriteLn(OutFile
0000E0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 4C 69 6E 65  );..        Line
0000F0: 73 4C 65 66 74 3A 3D 50 61 67 65 4C 65 6E 67 74  sLeft:=PageLengt
000100: 68 2D 36 3B 0D 0A 20 20 20 20 20 20 20 20 43 75  h-6;..        Cu
000110: 72 72 65 6E 74 50 61 67 65 4E 75 6D 62 65 72 3A  rrentPageNumber:
000120: 3D 43 75 72 72 65 6E 74 50 61 67 65 4E 75 6D 62  =CurrentPageNumb
000130: 65 72 2B 31 3B 0D 0A 20 20 20 20 20 20 20 20 50  er+1;..        P
000140: 61 67 65 53 74 61 72 74 65 64 3A 3D 46 61 6C 73  ageStarted:=Fals
000150: 65 3B 0D 0A 20 20 20 20 20 20 20 45 6E 64 3B 0D  e;..       End;.
000160: 0A 20 20 20 20 45 6E 64 3B 20 7B 20 57 4C 69 6E  .    End; { WLin
000170: 65 20 7D 0D 0A 0D 0A 0D 0A 20 20 50 72 6F 63 65  e }......  Proce
000180: 64 75 72 65 20 4E 65 77 50 61 67 65 3B 0D 0A 0D  dure NewPage;...
000190: 0A 20 20 20 20 56 61 72 0D 0A 20 20 20 20 20 20  .    Var..      
0001A0: 53 61 76 65 4C 69 6E 65 4E 75 6D 62 65 72 73 3A  SaveLineNumbers:
0001B0: 20 42 6F 6F 6C 65 61 6E 3B 0D 0A 0D 0A 20 20 20   Boolean;....   
0001C0: 20 42 65 67 69 6E 0D 0A 20 20 20 20 20 20 53 61   Begin..      Sa
0001D0: 76 65 4C 69 6E 65 4E 75 6D 62 65 72 73 3A 3D 4C  veLineNumbers:=L
0001E0: 69 6E 65 4E 75 6D 62 65 72 73 3B 0D 0A 20 20 20  ineNumbers;..   
0001F0: 20 20 20 4C 69 6E 65 4E 75 6D 62 65 72 73 3A 3D     LineNumbers:=

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 45 6E 64 0D 0A             End..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000020: 20 20 20 20 20 20 20 45 6C 73 65 0D 0A 20 20 20         Else..   
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000040: 20 20 20 20 20 42 65 67 69 6E 0D 0A 20 20 20 20       Begin..    
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000060: 20 20 20 20 20 50 61 72 73 65 53 74 61 74 65 3A       ParseState:
000070: 3D 50 72 65 4B 65 79 3B 0D 0A 20 20 20 20 20 20  =PreKey;..      
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000090: 20 20 20 49 3A 3D 49 2D 31 3B 0D 0A 20 20 20 20     I:=I-1;..    
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000B0: 20 20 20 20 20 50 6F 73 73 69 62 6C 65 4B 65 79       PossibleKey
0000C0: 5B 30 5D 3A 3D 43 68 72 28 4C 4B 29 3B 0D 0A 20  [0]:=Chr(LK);.. 
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000E0: 20 20 20 20 20 20 20 20 46 6F 72 20 4A 3A 3D 31          For J:=1
0000F0: 20 54 6F 20 4C 4B 20 44 6F 0D 0A 20 20 20 20 20   To LK Do..     
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000110: 20 20 20 20 20 20 50 6F 73 73 69 62 6C 65 4B 65        PossibleKe
000120: 79 5B 4A 5D 3A 3D 55 70 43 61 73 65 28 4C 69 6E  y[J]:=UpCase(Lin
000130: 65 5B 46 69 72 73 74 2B 4A 2D 31 5D 29 3B 0D 0A  e[First+J-1]);..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000150: 20 20 20 20 20 20 20 20 20 46 6F 75 6E 64 3A 3D           Found:=
000160: 46 61 6C 73 65 3B 0D 0A 20 20 20 20 20 20 20 20  False;..        
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000180: 20 4D 69 6E 3A 3D 31 3B 0D 0A 20 20 20 20 20 20   Min:=1;..      
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001A0: 20 20 20 4D 61 78 3A 3D 4E 4B 65 79 57 6F 72 64     Max:=NKeyWord
0001B0: 73 2B 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  s+1;..          
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52                 R
0001D0: 65 70 65 61 74 0D 0A 20 20 20 20 20 20 20 20 20  epeat..         
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001F0: 20 20 47 75 65 73 73 3A 3D 28 4D 69 6E 2B 4D 61    Guess:=(Min+Ma

Size : 512 (Real : 512)
000000: 46 61 6C 73 65 3B 0D 0A 20 20 20 20 20 20 52 65  False;..      Re
000010: 70 65 61 74 0D 0A 20 20 20 20 20 20 20 20 57 4C  peat..        WL
000020: 69 6E 65 28 27 27 29 3B 0D 0A 20 20 20 20 20 20  ine('');..      
000030: 55 6E 74 69 6C 20 4E 6F 74 20 50 61 67 65 53 74  Until Not PageSt
000040: 61 72 74 65 64 3B 0D 0A 20 20 20 20 20 20 4C 69  arted;..      Li
000050: 6E 65 4E 75 6D 62 65 72 73 3A 3D 53 61 76 65 4C  neNumbers:=SaveL
000060: 69 6E 65 4E 75 6D 62 65 72 73 3B 0D 0A 20 20 20  ineNumbers;..   
000070: 20 45 6E 64 3B 0D 0A 0D 0A 0D 0A 20 20 50 72 6F   End;......  Pro
000080: 63 65 64 75 72 65 20 4C 69 73 74 49 74 28 56 61  cedure ListIt(Va
000090: 72 20 49 6E 46 3A 20 54 65 78 74 29 3B 0D 0A 0D  r InF: Text);...
0000A0: 0A 20 20 20 20 56 61 72 0D 0A 20 20 20 20 20 20  .    Var..      
0000B0: 4C 69 6E 65 2C 20 52 65 6D 61 69 6E 64 65 72 3A  Line, Remainder:
0000C0: 20 42 75 66 66 65 72 3B 0D 0A 20 20 20 20 20 20   Buffer;..      
0000D0: 57 61 73 43 6D 64 3A 20 42 6F 6F 6C 65 61 6E 3B  WasCmd: Boolean;
0000E0: 0D 0A 0D 0A 0D 0A 20 20 20 20 50 72 6F 63 65 64  ......    Proced
0000F0: 75 72 65 20 55 70 4B 65 79 57 6F 72 64 73 3B 0D  ure UpKeyWords;.
000100: 0A 0D 0A 20 20 20 20 20 20 43 6F 6E 73 74 0D 0A  ...      Const..
000110: 20 20 20 20 20 20 20 20 4E 4B 65 79 57 6F 72 64          NKeyWord
000120: 73 3D 34 35 3B 0D 0A 20 20 20 20 20 20 20 20 4D  s=45;..        M
000130: 61 78 4B 65 79 4C 65 6E 3D 39 3B 0D 0A 20 20 20  axKeyLen=9;..   
000140: 20 20 20 20 20 4D 61 78 4B 65 79 4C 65 6E 50 6C       MaxKeyLenPl
000150: 75 73 31 3D 31 30 3B 0D 0A 20 20 20 20 20 20 20  us1=10;..       
000160: 20 4B 65 79 57 6F 72 64 73 3A 20 41 72 72 61 79   KeyWords: Array
000170: 20 5B 31 2E 2E 4E 4B 65 79 57 6F 72 64 73 5D 20   [1..NKeyWords] 
000180: 4F 66 20 53 74 72 69 6E 67 5B 4D 61 78 4B 65 79  Of String[MaxKey
000190: 4C 65 6E 5D 3D 0D 0A 20 20 20 20 20 20 20 20 20  Len]=..         
0001A0: 20 28 27 41 42 53 4F 4C 55 54 45 27 2C 27 41 4E   ('ABSOLUTE','AN
0001B0: 44 27 2C 27 41 52 52 41 59 27 2C 27 42 45 47 49  D','ARRAY','BEGI
0001C0: 4E 27 2C 27 43 41 53 45 27 2C 27 43 4F 4E 53 54  N','CASE','CONST
0001D0: 27 2C 27 44 49 56 27 2C 27 44 4F 27 2C 0D 0A 20  ','DIV','DO',.. 
0001E0: 20 20 20 20 20 20 20 20 20 20 27 44 4F 57 4E 54            'DOWNT
0001F0: 4F 27 2C 27 45 4C 53 45 27 2C 27 45 4E 44 27 2C  O','ELSE','END',