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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Size : 512 (Real : 512)
000000: 00 42 55 42 42 4C 45 33 20 50 41 53 00 00 00 10  .BUBBLE3 PAS....
000010: 1E 1F 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000020: 00 43 31 30 43 50 4D 33 20 45 4D 53 00 00 00 80  .C10CPM3 EMS....
000030: 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F 10 11  ................
000040: 00 43 31 30 43 50 4D 33 20 45 4D 53 01 00 00 48  .C10CPM3 EMS...H
000050: 12 13 14 15 16 17 18 19 1A 00 00 00 00 00 00 00  ................
000060: 00 43 45 4C 53 49 55 53 20 50 41 53 00 00 00 08  .CELSIUS PAS....
000070: 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ...............
000080: 00 43 48 45 43 4B 31 20 20 50 41 53 00 00 00 10  .CHECK1  PAS....
000090: 21 22 00 00 00 00 00 00 00 00 00 00 00 00 00 00  !"..............
0000A0: 00 43 48 45 43 4B 32 20 20 50 41 53 00 00 00 08  .CHECK2  PAS....
0000B0: 23 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  #...............
0000C0: 00 43 48 45 43 4B 33 20 20 50 41 53 00 00 00 08  .CHECK3  PAS....
0000D0: 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  $...............
0000E0: 00 43 50 52 20 20 20 20 20 50 41 53 00 00 00 20  .CPR     PAS... 
0000F0: 25 26 27 28 00 00 00 00 00 00 00 00 00 00 00 00  %&'(............
000100: 00 43 50 52 44 41 54 4F 20 50 41 53 00 00 00 10  .CPRDATO PAS....
000110: 29 2A 00 00 00 00 00 00 00 00 00 00 00 00 00 00  )*..............
000120: 00 43 50 52 44 41 54 4F 32 50 41 53 00 00 00 10  .CPRDATO2PAS....
000130: 2B 2C 00 00 00 00 00 00 00 00 00 00 00 00 00 00  +,..............
000140: 00 50 45 52 53 4F 4E 20 20 50 41 53 00 00 00 10  .PERSON  PAS....
000150: 2D 2E 00 00 00 00 00 00 00 00 00 00 00 00 00 00  -...............
000160: 00 50 45 52 53 4F 4E 45 52 50 41 53 00 00 00 50  .PERSONERPAS...P
000170: 2F 30 31 32 33 34 35 36 37 38 00 00 00 00 00 00  /012345678......
000180: 00 50 4F 53 54 31 20 20 20 50 41 53 00 00 00 08  .POST1   PAS....
000190: 39 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  9...............
0001A0: 00 50 4F 53 54 4B 4F 50 49 50 41 53 00 00 00 30  .POSTKOPIPAS...0
0001B0: 3A 3B 3C 3D 3E 3F 00 00 00 00 00 00 00 00 00 00  :;<=>?..........
0001C0: 00 50 4F 53 54 5F 41 4E 54 50 41 53 00 00 00 28  .POST_ANTPAS...(
0001D0: 40 41 42 43 44 00 00 00 00 00 00 00 00 00 00 00  @ABCD...........
0001E0: 00 50 52 45 44 45 46 20 20 50 41 53 00 00 00 08  .PREDEF  PAS....
0001F0: 45 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  E...............

Size : 512 (Real : 512)
000000: 41 BE E1 38 02 36 00 CD D7 0A CD BA 0D 9F 32 40  A..8.6........2@
000010: BE CD 00 04 CD 78 01 CD 9A 01 3A 41 BE C9 3E FF  .....x....:A..>.
000020: 32 F3 FF 06 08 3A 41 BE 4F 3A 40 BE 21 E8 FF C9  2....:A.O:@.!...
000030: AF 21 01 02 01 00 01 C9 11 00 01 3E 08 CD 72 05  .!.........>..r.
000040: 3A 40 BE B7 3E 09 28 01 3C CD 72 05 3A 41 BE B7  :@..>.(.<.r.:A..
000050: 3E 0B C4 72 05 3E 0D C3 72 05 01 00 08 11 67 8C  >..r.>..r.....g.
000060: 21 00 8A E5 CD D9 01 2B 70 2B 70 23 23 E5 06 0A  !......+p+p##...
000070: CD D9 01 01 02 17 11 80 50 CD D9 01 2B 70 2B 70  ........P...+p+p
000080: 21 CE 01 11 E8 FF 01 0B 00 ED B0 E1 D1 C9 00 67  !..............g
000090: 8C 69 24 02 80 50 80 2F FF 78 B7 C8 36 FF D5 11  .i$..P./.x..6...
0000A0: 0F 00 19 54 5D 2B 72 2B 73 2B 71 EB E3 EB 2B 72  ...T]+r+s+q...+r
0000B0: 2B 73 E1 14 14 10 E5 C9 FF FF FF FF FF FF FF FF  +s..............
0000C0: 78 B7 CA 06 BB FE 02 CA 29 03 AF C9 04 05 CA 11  x.......).......
0000D0: 04 05 79 CA 31 BD C3 5C 03 04 10 0B CD 09 BB DC  ..y.1..\........
0000E0: 0C BB 9F 32 F3 FF C9 78 EE 01 C4 48 03 9F C9 CD  ...2...x...H....
0000F0: 34 02 9F C9 04 05 37 C8 10 05 CD 2E BD 3F C9 C3  4.....7......?..
000100: 66 03 CD 77 02 CD 00 3D CD 87 02 FE 43 28 12 FE  f..w...=....C(..
000110: 49 37 28 0D FE 52 28 08 CD 45 06 CD 7D 02 18 E5  I7(..R(..E..}...
000120: B7 F5 CD 72 02 F1 C9 CD 8C 06 06 0E CD 77 02 CD  ...r.........w..
000130: 00 3D CD 5A 06 18 06 CD 2E 06 CD B0 0E CD 06 3D  .=.Z...........=
000140: 3C C0 CD 00 3D 18 F6 FE 61 D8 FE 7B D0 C6 E0 C9  <...=...a..{....
000150: CB 42 79 C4 27 BB CB 4A 79 C4 2D BB CB 62 79 C4  .By.'..Jy.-..by.
000160: 33 BB C9 C3 3F BB CD 1B BB 4F 06 00 C9 C9 01 DD  3...?....O......
000170: FA 22 5C BE ED 53 5A BE 32 58 BE 3E 18 ED 79 3E  ."\..SZ.2X.>..y>
000180: 04 ED 79 7B FE 02 38 01 1C 7A 3C 87 87 B3 F6 40  ..y{..8..z<....@
000190: ED 79 3E 05 ED 79 7D CD 0F 03 0F 5F 3A 58 BE 2F  .y>..y}...._:X./
0001A0: E6 80 F6 0A B3 32 59 BE ED 79 3E 03 ED 79 7C CD  .....2Y..y>..y|.
0001B0: 0F 03 F6 01 ED 79 0C 0C 21 A5 02 CD 01 03 D0 2E  .....y..!.......
0001C0: 5A ED 61 ED 69 ED 61 ED 78 AD E6 F8 C0 37 C9 D6  Z.a.i.a.x....7..
0001D0: 05 C8 0F 0F EE C0 C0 3E C0 C9 ED 4B 5E BE ED 5B  .......>...K^..[
0001E0: 5A BE 2A 5C BE 3A 58 BE C9 01 DD FA 3A 58 BE B7  Z.*\.:X.....:X..
0001F0: 28 08 ED 78 1F 38 08 CD 8B 03 ED 78 1F 30 FB 7A  (..x.8.....x.0.z

Size : 512 (Real : 512)
000000: 00 50 52 49 4D 46 4F 52 44 50 41 53 00 00 00 08  .PRIMFORDPAS....
000010: 46 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  F...............
000020: 00 50 52 49 4D 54 41 4C 20 50 41 53 00 00 00 10  .PRIMTAL PAS....
000030: 47 48 00 00 00 00 00 00 00 00 00 00 00 00 00 00  GH..............
000040: 00 50 52 49 4E 54 45 52 20 50 41 53 00 00 00 08  .PRINTER PAS....
000050: 49 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  I...............
000060: 00 50 52 4F 44 55 4B 54 20 50 41 53 00 00 00 08  .PRODUKT PAS....
000070: 4A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  J...............
000080: 00 50 59 54 48 41 47 4F 20 50 41 53 00 00 00 08  .PYTHAGO PAS....
000090: 4B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  K...............
0000A0: 00 51 55 49 43 4B 53 4F 52 50 41 53 00 00 00 10  .QUICKSORPAS....
0000B0: 4C 4D 00 00 00 00 00 00 00 00 00 00 00 00 00 00  LM..............
0000C0: 00 52 45 4E 54 45 20 20 20 50 41 53 00 00 00 08  .RENTE   PAS....
0000D0: 4E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  N...............
0000E0: 00 52 45 4E 54 45 44 41 47 50 41 53 00 00 00 10  .RENTEDAGPAS....
0000F0: 4F 50 00 00 00 00 00 00 00 00 00 00 00 00 00 00  OP..............
000100: 00 52 45 4E 54 45 46 4F 44 50 41 53 00 00 00 08  .RENTEFODPAS....
000110: 51 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  Q...............
000120: 00 52 49 4E 47 20 20 20 20 50 41 53 00 00 00 38  .RING    PAS...8
000130: 52 53 54 55 56 57 58 00 00 00 00 00 00 00 00 00  RSTUVWX.........
000140: 00 52 4E 44 57 41 4C 4B 20 50 41 53 00 00 00 08  .RNDWALK PAS....
000150: 59 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  Y...............
000160: 00 52 55 4D 46 5F 31 20 20 50 41 53 00 00 00 28  .RUMF_1  PAS...(
000170: 5A 5B 5C 5D 5E 00 00 00 00 00 00 00 00 00 00 00  Z[\]^...........
000180: 00 52 55 4D 46 5F 32 20 20 50 41 53 00 00 00 28  .RUMF_2  PAS...(
000190: 5F 60 61 62 63 00 00 00 00 00 00 00 00 00 00 00  _`abc...........
0001A0: 00 53 41 4D 52 45 4E 54 45 50 41 53 00 00 00 08  .SAMRENTEPAS....
0001B0: 64 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  d...............
0001C0: 00 53 43 4F 52 45 20 20 20 50 41 53 00 00 00 18  .SCORE   PAS....
0001D0: 65 66 67 00 00 00 00 00 00 00 00 00 00 00 00 00  efg.............
0001E0: 00 53 46 44 20 20 20 20 20 50 41 53 00 00 00 08  .SFD     PAS....
0001F0: 68 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  h...............

Size : 512 (Real : 512)
000000: B7 C4 87 03 0D ED 78 C9 01 DD FA 3A 58 BE B7 28  ......x....:X..(
000010: 07 ED 78 1F D8 CD 8B 03 ED 78 1F C9 5F CD 66 03  ..x......x.._.f.
000020: 30 FB 0D ED 59 C9 01 DD FA 3E 10 ED 79 3A 58 BE  0...Y....>..y:X.
000030: B7 20 07 ED 78 E6 04 C8 37 C9 ED 78 E6 20 C8 3E  . ..x...7..x. .>
000040: 01 ED 79 ED 78 1F C9 1E 00 18 02 1E 80 3E 05 ED  ..y.x........>..
000050: 79 3A 59 BE E6 7F B3 ED 79 C9 79 D6 02 C0 60 68  y:Y.....y.y...`h
000060: 22 5E BE E5 7D 11 DC 36 CD AF 03 F1 11 DD 76 87  "^..}..6......v.
000070: C6 C4 6F CE 03 95 67 01 DF FB ED 51 4B 04 ED A3  ..o...g....QK...
000080: 7E ED 79 C9 FF FF C4 09 83 06 70 04 A1 03 41 03  ~.y.......p...A.
000090: A1 01 D0 00 68 00 45 00 34 00 23 00 1A 00 11 00  ....h.E.4.#.....
0000A0: 0D 00 07 00 FF FF FF FF FF FF FF FF FF FF FF FF  ................
0000B0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF  ................
0000C0: 32 68 BE CD 2D 05 CD 17 06 CD 4D 07 CD 6C 05 18  2h..-.....M..l..
0000D0: 3D 79 2A 69 BE E9 CD 4B 05 79 FE 20 38 09 2A E5  =y*i...K.y. 8.*.
0000E0: BE CD CF 07 C3 44 05 CD E1 08 79 FE 1B 28 09 21  .....D....y..(.!
0000F0: C8 04 CD 5A 04 C3 44 05 CD 55 04 21 70 04 CD 5A  ...Z..D..U.!p..Z
000100: 04 D8 21 D5 04 CD 5A 04 2A E5 BE D4 CF 07 CD 44  ..!...Z.*......D
000110: 05 21 16 04 E5 E1 22 69 BE C9 46 23 BE 23 30 04  .!...."i..F#.#0.
000120: 23 10 F8 3F C0 5E 23 56 2A E5 BE CD 16 00 37 C9  #..?.^#V*.....7.
000130: 05 63 A8 04 62 9C 04 59 80 04 33 BE 04 32 B4 04  .c..b..Y..3..2..
000140: CD 55 04 D6 20 30 01 AF 32 6B BE CD 55 04 D6 20  .U.. 0..2k..U.. 
000150: 30 01 AF 2A 6A BE 6F CD 4D 08 18 B2 CD 55 04 D6  0..*j.o.M....U..
000160: 20 E6 3F CD FE 08 18 A6 CD 55 04 D6 20 E6 3F CD   .?......U.. .?.
000170: F6 08 18 9A CD 55 04 E6 07 CD 20 0A 18 90 CD 55  .....U.... ....U
000180: 04 E6 03 CD 8B 07 18 86 04 0D 35 08 0A 39 08 08  ..........5..9..
000190: 22 08 07 FD 07 1D 79 81 07 78 84 07 77 06 08 76  ".....y..x..w..v
0001A0: 02 08 75 EC 08 72 EB 08 71 F1 08 70 ED 08 6F 9A  ..u..r..q..p..o.
0001B0: 08 6C 97 08 6B 4A 08 6A 69 08 66 69 05 65 6C 05  .l..kJ.ji.fi.el.
0001C0: 64 6D 08 4E BC 08 4D A3 08 4C 9F 08 4B 93 08 4A  dm.N..M..L..K..J
0001D0: 7B 08 49 19 08 48 45 08 45 72 08 44 0F 08 43 16  {.I..HE.Er.D..C.
0001E0: 08 42 13 08 41 0B 08 31 9D 07 30 9A 07 01 FF 80  .B..A..1..0.....
0001F0: 21 72 BE 11 5C 05 CD EF BC 21 6C BE 11 00 00 42  !r..\....!l....B

Size : 512 (Real : 512)
000000: 00 53 49 4D 50 53 4F 4E 20 50 41 53 00 00 00 10  .SIMPSON PAS....
000010: 69 6A 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ij..............
000020: 00 53 4B 41 45 52 4D 20 20 50 41 53 00 00 00 08  .SKAERM  PAS....
000030: 6B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  k...............
000040: 00 53 4F 45 47 20 20 20 20 50 41 53 00 00 00 10  .SOEG    PAS....
000050: 6C 6D 00 00 00 00 00 00 00 00 00 00 00 00 00 00  lm..............
000060: 00 53 54 41 54 46 49 4C 20 50 41 53 00 00 00 20  .STATFIL PAS... 
000070: 6E 6F 70 71 00 00 00 00 00 00 00 00 00 00 00 00  nopq............
000080: 00 53 54 41 54 49 53 54 49 50 41 53 00 00 00 08  .STATISTIPAS....
000090: 72 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  r...............
0000A0: 00 53 55 4D 42 52 4F 45 4B 50 41 53 00 00 00 10  .SUMBROEKPAS....
0000B0: 73 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00  st..............
0000C0: 00 54 41 42 45 4C 20 20 20 50 41 53 00 00 00 08  .TABEL   PAS....
0000D0: 75 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  u...............
0000E0: 00 54 41 4C 46 4F 45 4C 47 50 41 53 00 00 00 08  .TALFOELGPAS....
0000F0: 76 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  v...............
000100: 00 54 45 47 4E 20 20 20 20 50 41 53 00 00 00 08  .TEGN    PAS....
000110: 77 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  w...............
000120: 00 54 45 52 4E 49 4E 47 32 50 41 53 00 00 00 08  .TERNING2PAS....
000130: 78 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  x...............
000140: 00 54 52 45 43 49 46 52 45 50 41 53 00 00 00 10  .TRECIFREPAS....
000150: 79 7A 00 00 00 00 00 00 00 00 00 00 00 00 00 00  yz..............
000160: 00 54 52 45 47 52 55 50 20 50 41 53 00 00 00 08  .TREGRUP PAS....
000170: 7B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  {...............
000180: 00 54 52 45 4B 41 4E 54 20 50 41 53 00 00 00 10  .TREKANT PAS....
000190: 7C 7D 00 00 00 00 00 00 00 00 00 00 00 00 00 00  |}..............
0001A0: 00 54 52 49 47 4F 4E 4F 4D 50 41 53 00 00 00 08  .TRIGONOMPAS....
0001B0: 7E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ~...............
0001C0: 00 54 59 50 45 20 20 20 20 43 4F 4D 00 00 00 18  .TYPE    COM....
0001D0: 1B 1C 1D 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001E0: 00 55 44 36 20 20 20 20 20 50 41 53 00 00 00 08  .UD6     PAS....
0001F0: 7F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................

Size : 512 (Real : 512)
000000: 4B C3 E9 BC 21 05 00 22 6E BE C9 21 00 00 22 6E  K...!.."n..!.."n
000010: BE 21 7A BE 7E 36 00 B7 C8 C3 84 BB 2A 79 BE 7C  .!z.~6......*y.|
000020: 2F A5 C8 32 7A BE C3 81 BB AF 18 02 3E FF 32 79  /..2z.......>.2y
000030: BE C9 21 03 3D 22 7B BE E6 7F 47 21 00 88 04 18  ..!.="{...G!....
000040: 05 7E 23 3C 20 FB 10 F9 7E 23 FE FF C8 B7 F2 98  .~#< ...~#......
000050: 05 E5 CD 9D 05 E1 18 F0 CD 09 06 18 EB FE FE 28  ...............(
000060: 5B FE FD 28 5C 26 00 6A FE FB 28 0E 6B FE FA 28  [..(\&.j..(.k..(
000070: 09 62 FE F8 28 38 FE F9 20 BE C5 D5 16 00 01 F0  .b..(8.. .......
000080: D8 CD DF 05 01 18 FC CD DF 05 01 9C FF CD DF 05  ................
000090: 01 F6 FF CD DF 05 7D C6 30 CD 09 06 D1 C1 C9 3E  ......}.0......>
0000A0: FF 3C 09 38 FC ED 42 B2 C8 16 30 B2 18 1B C5 06  .<.8..B...0.....
0000B0: 06 7E 23 FE 20 C4 09 06 10 F7 C1 C9 3A 68 BE B7  .~#. .......:h..
0000C0: C8 79 C6 41 CD 09 06 3E 3A C5 D5 E5 4F 2A 7B BE  .y.A...>:...O*{.
0000D0: CD 1E 00 E1 D1 C1 C9 3E FF 32 7D BE 01 FF 80 21  .......>.2}....!
0000E0: 81 BE 11 F2 06 CD EF BC 21 7F BE C3 DA BC CD 91  ........!.......
0000F0: 06 20 0B C5 3E 10 CD 72 05 C1 78 C3 72 05 AF 32  . ..>..r..x.r..2
000100: 8B BE CD 96 06 CD 91 06 0E 07 CA 03 3D AF 32 8A  ............=.2.
000110: BE CD FD 07 3E FF 32 8A BE C9 CD 91 06 3E 10 CA  ....>.2......>..
000120: 72 05 AF 32 8A BE CD E9 06 CD 91 06 C8 3A 68 BE  r..2.........:h.
000130: B7 20 10 3A 7E BE 4F 06 11 3A E3 BE D6 10 CD 96  . .:~.O..:......
000140: 06 18 66 CD 91 06 C8 CD CF 06 18 5D 79 32 7E BE  ..f........]y2~.
000150: C9 3A 7D BE B7 C9 F5 78 21 8C BE 06 05 36 20 23  .:}....x!....6 #
000160: 10 FB 22 DC BE 21 C4 06 CD 75 05 CD CF 06 F1 32  .."..!...u.....2
000170: DE BE 21 8C BE 22 DC BE 7E FE FF C4 34 07 D0 CD  ..!.."..~...4...
000180: 16 07 18 F4 2A DC BE 71 23 36 FF 22 DC BE C9 CD  ....*..q#6."....
000190: 4B 05 CD E1 08 CD 78 BB 22 88 BE 2A E2 BE 2C 26  K.....x."..*..,&
0001A0: 01 CD 75 BB 3E 12 C3 5A BB 2A 88 BE CD 75 BB C3  ..u.>..Z.*...u..
0001B0: 44 05 3A 8A BE B7 C8 CD 34 07 DC 16 07 38 F8 D5  D.:.....4....8..
0001C0: 0E 4F 6B 11 01 00 62 CD B5 09 D1 CD 14 0A 05 21  .Ok...b........!
0001D0: 8B BE 34 7E A0 C0 2A DC BE 7E FE FF 20 04 21 8C  ..4~..*..~.. .!.
0001E0: BE 7E 23 22 DC BE 4F EB 24 2C CD 75 BB EB 79 CD  .~#"..O.$,.u..y.
0001F0: 5A BB 37 C9 ED 5B E2 BE 3A DE BE 14 BA 15 D0 57  Z.7..[..:......W

Size : 512 (Real : 512)
000000: 00 55 50 43 41 53 45 20 20 50 41 53 00 00 00 08  .UPCASE  PAS....
000010: 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000020: 00 56 41 52 45 46 49 4C 20 50 41 53 00 00 00 58  .VAREFIL PAS...X
000030: 81 82 83 84 85 86 87 88 89 8A 8B 00 00 00 00 00  ................
000040: 00 56 41 52 45 50 4F 53 54 50 41 53 00 00 00 10  .VAREPOSTPAS....
000050: 8C 8D 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000060: 00 56 41 52 45 52 31 20 20 50 41 53 00 00 00 08  .VARER1  PAS....
000070: 8E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000080: 00 56 41 52 45 52 32 20 20 50 41 53 00 00 00 08  .VARER2  PAS....
000090: 8F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000A0: 00 56 4F 4B 41 4C 45 52 20 50 41 53 00 00 00 18  .VOKALER PAS....
0000B0: 90 91 92 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: 3C 32 DE BE C9 ED 5B E0 BE 2A E5 BE C9 3E 40 CD  <2....[..*...>@.
000010: 08 BC 3E 02 CD 0E BC CD 02 BC AF 32 EB BE 32 E9  ..>........2..2.
000020: BE 32 EA BE 3E 01 CD F6 08 3E 3F CD FE 08 AF 32  .2..>....>?....2
000030: DF BE 2F 32 E4 BE 21 00 00 22 E5 BE 22 E7 BE 18  ../2..!..".."...
000040: 26 AF 18 02 3E FF 32 DF BE 3E 02 FE 02 28 06 D0  &...>.2..>...(..
000050: 21 DF BE 36 00 CD 0E BC 18 0D AF 18 02 3E FF F5  !..6.........>..
000060: CD 83 06 F1 32 7D BE CD 17 BC ED 43 E2 BE 3A DF  ....2}.....C..:.
000070: BE B7 21 4F 17 20 0C 2A E2 BE 7C 65 6F CD 91 06  ..!O. .*..|eo...
000080: 28 01 25 22 E0 BE 2A E5 BE CD 4D 08 C3 69 06 E5  (.%"..*...M..i..
000090: CD D8 08 79 CD 5D BB E1 2C 22 E5 BE ED 5B E0 BE  ...y.]..,"...[..
0000A0: 7B BD D0 2D 3A E4 BE B7 28 10 2E 00 24 7A BC 30  {..-:...(...$z.0
0000B0: 09 25 E5 CD E1 08 CD 5F 09 E1 C3 4D 08 3E 07 C3  .%....._...M.>..
0000C0: 5A BB 3E FF 18 01 AF 32 E4 BE C9 25 F8 18 4C 2D  Z.>....2...%..L-
0000D0: F8 18 48 24 18 37 2C 18 34 25 F2 5B 08 CD 57 09  ..H$.7,.4%.[..W.
0000E0: 18 3C 2D F2 5B 08 2C 3A E4 BE B7 C8 7C 3D F8 2A  .<-.[.,:....|=.*
0000F0: E0 BE 67 18 26 2E 00 18 22 24 3A E1 BE BC 30 1B  ..g.&..."$:...0.
000100: CD 5F 09 18 19 21 00 00 18 11 2A E7 BE ED 5B E0  ._...!....*...[.
000110: BE 7B BD 30 01 6B 7A BC 30 01 62 22 E5 BE 2A E5  .{.0.kz.0.b"..*.
000120: BE 7C 65 6F 2C 24 C3 75 BB 22 E7 BE C9 3E 13 C3  .|eo,$.u."...>..
000130: 5A BB CD 6C BB CD 69 06 C3 5E 08 E5 CD 99 BB CD  Z..l..i..^......
000140: 2C BC 47 7C 2A E0 BE 55 5C 26 00 6F 2C BB 78 DC  ,.G|*..U\&.o,.x.
000150: 44 BC E1 3E 12 18 05 CD 93 08 3E 11 C3 5A BB 06  D..>......>..Z..
000160: 00 18 02 06 FF 3A E1 BE BC 28 EC 5F 3A E0 BE 57  .....:...(._:..W
000170: 6C 26 00 CD 99 BB CD 2C BC C3 50 BC 7D 6C 67 3A  l&.....,..P.}lg:
000180: E0 BE F5 E5 94 C4 A7 09 E1 F1 67 2C 24 CD 75 BB  ..........g,$.u.
000190: 3E 10 CD 5A BB C3 5E 08 3A E9 BE B7 C8 3E FF 18  >..Z..^.:....>..
0001A0: 01 AF 21 EA BE BE C8 77 C3 9C BB C9 C9 3E FF 18  ..!....w.....>..
0001B0: 01 AF 32 E9 BE C9 1E 00 CD 00 09 C3 38 BC 1E 01  ..2.........8...
0001C0: 4F 47 CD 20 09 C5 7B CD 32 BC C1 C9 E6 0F 3D 28  OG. ..{.2.....=(
0001D0: ED 3C 28 E2 CD 20 09 C3 32 BC CD 20 09 C3 38 BC  .<(.. ..2.. ..8.
0001E0: F5 D5 78 CD 2F 09 47 79 CD 2F 09 4F D1 F1 C9 C5  ..x./.Gy./.O....
0001F0: 07 07 01 00 03 18 05 4F 87 81 4F 7A 07 07 57 E6  .......O..Oz..W.

Size : 512 (Real : 512)
000000: 31 00 C0 CD D5 0C CD 19 BD 3E 10 3D F5 01 01 01  1........>.=....
000010: CD 32 BC F1 20 F5 CD 19 BD 21 80 5F 11 00 C0 01  .2.. ....!._....
000020: 80 0C ED B0 01 C1 7F ED 49 11 00 C0 D5 21 36 0C  ........I....!6.
000030: 01 9F 00 ED B0 C9 21 40 0D 11 80 00 01 80 0E ED  ......!@........
000040: B0 21 C0 1B 11 A0 FF 01 40 00 ED B0 21 00 1C 11  .!......@...!...
000050: 00 88 01 00 02 ED B0 11 00 00 21 00 80 CD AB BB  ..........!.....
000060: 21 00 1E 11 00 80 01 00 08 ED B0 21 00 29 11 00  !..........!.)..
000070: FC 3E 05 CD 95 C0 21 00 2F 11 00 F6 3E 0C CD 95  .>....!./...>...
000080: C0 21 7F 5F 11 FF 7F 01 00 31 ED B8 21 80 52 11  .!._.....1..!.R.
000090: 00 3D 3E 06 CD 95 C0 21 80 80 11 00 0F 3E 5C CD  .=>....!.....>\.
0000A0: 95 C0 AF 21 D0 B0 11 D1 B0 01 2F 00 77 ED B0 21  ...!....../.w..!
0000B0: 40 BE 11 41 BE 01 BF 01 77 ED B0 21 58 FE 11 59  @..A....w..!X..Y
0000C0: FE 01 47 01 77 ED B0 F3 C3 00 FC 25 01 80 00 ED  ..G.w......%....
0000D0: B0 3D 20 F7 C9 0E FF CD 15 B9 11 FF FD 19 7C B5  .= ...........|.
0000E0: C9 21 F6 0C 7E 23 FE FF C4 5A BB 20 F7 CD 09 BB  .!..~#...Z. ....
0000F0: 38 FB CD 06 BB C7 0D 0A 54 68 69 73 20 70 72 6F  8.......This pro
000100: 67 72 61 6D 20 77 69 6C 6C 20 6E 6F 74 20 72 75  gram will not ru
000110: 6E 20 69 6E 20 74 68 69 73 0D 0A 65 6E 76 69 72  n in this..envir
000120: 6F 6E 6D 65 6E 74 2E 20 20 50 72 65 73 73 20 61  onment.  Press a
000130: 6E 79 20 6B 65 79 20 FF FF FF FF FF FF FF FF FF  ny key .........
000140: C3 D7 0A C3 E7 0A C3 A3 0B C3 B1 0B C3 B6 0B C3  ................
000150: C4 0B C3 3F 0C C3 5A 0C C3 C6 0D C3 D2 0B C3 7F  ...?..Z.........
000160: 0C C3 7F 0C C3 6D 0E C3 8F 0E C3 B0 0E C3 09 0E  .....m..........
000170: C3 12 0E C3 DA 0C C3 AE 02 C3 A0 03 C3 1A 03 C3  ................
000180: 45 07 C3 09 04 C3 91 06 C3 9F 07 C3 0C 09 C3 1A  E...............
000190: 09 C3 4B 09 C3 0F BB C3 90 02 C3 A6 02 C3 AD 02  ..K.............
0001A0: C3 A3 02 C3 70 01 C3 63 01 C3 04 01 C3 19 02 C3  ....p..c........
0001B0: 00 02 C3 2F 02 C3 0C 02 C3 9A 03 C3 42 02 C3 67  .../........B..g
0001C0: 02 C3 72 05 E5 D5 11 4F BE D5 21 5E 01 01 05 00  ..r....O..!^....
0001D0: ED B0 0E 03 21 F4 BD ED B0 E1 22 F5 BD FB D1 01  ....!.....".....
0001E0: FF 80 21 48 BE CD EF BC 01 32 00 50 59 21 42 BE  ..!H.....2.PY!B.
0001F0: CD E9 BC 3E FF 11 00 00 21 08 08 CD AE 02 9F 32  ...>....!......2

Size : 512 (Real : 512)
000000: 03 FE 02 38 01 3D 81 10 EE C1 C9 C3 3E BC CD 99  ...8.=......>...
000010: BB CD 2C BC C3 4D BC 06 00 CD 4E 09 C3 69 06 3A  ..,..M....N..i.:
000020: E1 BE FE 18 06 FF 28 E6 CD 99 BB CD 2C BC 4F 21  ......(.....,.O!
000030: 18 00 E5 CD 1A BC E3 2C CD 1A BC E5 21 01 00 CD  .......,....!...
000040: 1A BC CD 19 BD CD 05 BC D1 E1 06 08 C5 D5 E5 06  ................
000050: 50 7E 12 71 1C CC FB 09 2C CC 03 0A 10 F3 E1 D1  P~.q....,.......
000060: CD 0B 0A C1 10 E6 C9 4F CD 14 0A AF 57 58 81 10  .......O....WX..
000070: FD 4F CD 19 BD CD 1A BC EB 7A 19 AC E6 F8 AC 67  .O.......z.....g
000080: 06 08 C5 D5 E5 CD D3 09 AF 12 E1 D1 CD 0B 0A C1  ................
000090: 10 F0 C9 06 00 7D BB 30 01 7B 2F B7 28 0C B9 30  .....}.0.{/.(..0
0000A0: 17 C5 4F ED B0 C1 2F 3C 81 4F 7E 12 1C CC FB 09  ..O.../<.O~.....
0000B0: 2C CC 03 0A 0D 20 DE C9 ED B0 C9 7A 3C AA E6 07  ,.... .....z<...
0000C0: AA 57 C9 7C 3C AC E6 07 AC 67 C9 7A C6 08 57 7C  .W.|<....g.z..W|
0000D0: C6 08 67 C9 CD 11 BC 06 04 D8 06 02 C8 06 01 C9  ..g.............
0000E0: F5 3A EB BE CD 2B 0A F1 32 EB BE 6F 87 87 85 87  .:...+..2..o....
0000F0: 85 6F 26 00 11 62 0A 19 06 0B C5 D5 E5 CD 57 0A  .o&..b........W.
000100: EB CD 57 0A 06 08 4E 1A 77 79 12 13 23 10 F7 E1  ..W...N.wy..#...
000110: D1 C1 13 23 10 E4 C9 6E 26 00 29 29 29 01 00 80  ...#...n&.)))...
000120: 09 C9 23 40 5B 5C 5D 5E 60 7B 7C 7D 7E 23 EA A2  ..#@[\]^`{|}~#..
000130: F5 A6 5E 60 E1 EE EB B2 23 A6 D0 D3 D4 5E 60 F0  ..^`....#....^`.
000140: F3 F4 BA A3 40 5B 5C 5D 5E 60 7B 7C 7D 7E 23 40  ....@[\]^`{|}~#@
000150: D6 D8 D7 5E 60 F6 F8 F7 7E 23 C1 D0 D3 D7 D4 E1  ...^`...~#......
000160: F0 F3 F7 F4 23 40 A2 5C E1 5E EE EA ED EB EC AD  ....#@.\.^......
000170: 40 AF D9 AE 5E 60 B2 F9 7D 7E FF FF FF FF FF FF  @...^`..}~......
000180: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF  ................
000190: 0A 32 AF 1E 0C 0F 03 21 D0 B0 06 30 36 00 23 10  .2.....!...06.#.
0001A0: FB CD B5 0E 21 D0 0A 11 ED B0 01 05 00 ED B0 3A  ....!..........:
0001B0: F1 B0 3D 07 07 07 2F E6 F0 B6 23 66 6F 3E 03 CD  ..=.../...#fo>..
0001C0: 56 0E 7D CD 56 0E 7C C3 56 0E DD 7E 19 E6 40 F6  V.}.V.|.V..~..@.
0001D0: 0D CD 6F 0B DD 6E 0F DD 66 13 22 E6 B0 63 DD 6E  ..o..n..f."..c.n
0001E0: 18 22 E8 B0 3E 06 32 E3 B0 C9 DD 7E 19 F6 06 18  ."..>.2....~....
0001F0: 07 DD 7E 19 E6 C0 F6 05 CD 49 0B 36 FF C9 DD 7E  ..~......I.6...~

Size : 512 (Real : 512)
000000: 7C C6 DE DE DE C0 7C 00 18 3C 66 66 7E 66 66 00  |.....|..<ff~ff.
000010: FC 66 66 7C 66 66 FC 00 3C 66 C0 C0 C0 66 3C 00  .ff|ff..<f...f<.
000020: F8 6C 66 66 66 6C F8 00 FE 62 68 78 68 62 FE 00  .lfffl...bhxhb..
000030: FE 62 68 78 68 60 F0 00 3C 66 C0 C0 CE 66 3E 00  .bhxh`..<f...f>.
000040: 66 66 66 7E 66 66 66 00 7E 18 18 18 18 18 7E 00  fff~fff.~.....~.
000050: 1E 0C 0C 0C CC CC 78 00 E6 66 6C 78 6C 66 E6 00  ......x..flxlf..
000060: F0 60 60 60 62 66 FE 00 C6 EE FE FE D6 C6 C6 00  .```bf..........
000070: C6 E6 F6 DE CE C6 C6 00 7C C6 C6 C6 C6 C6 7C 00  ........|.....|.
000080: FC 66 66 7C 60 60 F0 00 7C C6 C6 C6 DA CC 76 00  .ff|``..|.....v.
000090: FC 66 66 7C 6C 66 E6 00 3C 66 60 3C 06 66 3C 00  .ff|lf..<f`<.f<.
0000A0: 7E 5A 18 18 18 18 3C 00 66 66 66 66 66 66 3C 00  ~Z....<.ffffff<.
0000B0: 66 66 66 66 66 3C 18 00 C6 C6 C6 D6 FE EE C6 00  fffff<..........
0000C0: C6 6C 38 38 6C C6 C6 00 66 66 66 3C 18 18 3C 00  .l88l...fff<..<.
0000D0: FE C6 8C 18 32 66 FE 00 3C 30 30 30 30 30 3C 00  ....2f..<00000<.
0000E0: C0 60 30 18 0C 06 02 00 3C 0C 0C 0C 0C 0C 3C 00  .`0.....<.....<.
0000F0: 18 3C 7E 18 18 18 18 00 00 00 00 00 00 00 00 FF  .<~.............
000100: 30 18 0C 00 00 00 00 00 00 00 78 0C 7C CC 76 00  0.........x.|.v.
000110: E0 60 7C 66 66 66 DC 00 00 00 3C 66 60 66 3C 00  .`|fff....<f`f<.
000120: 1C 0C 7C CC CC CC 76 00 00 00 3C 66 7E 60 3C 00  ..|...v...<f~`<.
000130: 1C 36 30 78 30 30 78 00 00 00 3E 66 66 3E 06 7C  .60x00x...>ff>.|
000140: E0 60 7C 66 66 66 E6 00 18 00 38 18 18 18 3C 00  .`|fff....8...<.
000150: 06 00 0E 06 06 66 66 3C E0 60 66 6C 78 6C E6 00  .....ff<.`flxl..
000160: 38 18 18 18 18 18 3C 00 00 00 6C FE D6 D6 C6 00  8.....<...l.....
000170: 00 00 DC 66 66 66 66 00 00 00 3C 66 66 66 3C 00  ...ffff...<fff<.
000180: 00 00 DC 66 66 7C 60 F0 00 00 76 CC CC 7C 0C 1E  ...ff|`...v..|..
000190: 00 00 DC 76 60 60 F0 00 00 00 3C 60 3C 06 7C 00  ...v``....<`<.|.
0001A0: 30 30 7C 30 30 36 1C 00 00 00 66 66 66 66 3E 00  00|006....ffff>.
0001B0: 00 00 66 66 66 3C 18 00 00 00 C6 D6 D6 FE 6C 00  ..fff<........l.
0001C0: 00 00 C6 6C 38 6C C6 00 00 00 66 66 66 3E 06 7C  ...l8l....fff>.|
0001D0: 00 00 7E 4C 18 32 7E 00 0E 18 18 70 18 18 0E 00  ..~L.2~....p....
0001E0: 18 18 18 18 18 18 18 00 70 18 18 0E 18 18 70 00  ........p.....p.
0001F0: 76 DC 00 00 00 00 00 00 38 6C C6 C6 C6 6C 38 00  v.......8l...l8.

Size : 512 (Real : 512)
000000: 19 F6 11 CD 49 0B 36 01 C9 CD 6F 0B 7B DD 86 14  ....I.6...o.{...
000010: 5F 32 E8 B0 DD 6E 0F 67 22 E9 B0 DD 7E 17 32 EB  _2...n.g"...~.2.
000020: B0 60 6A 22 E6 B0 3E 09 32 E3 B0 21 EC B0 C9 22  .`j"..>.2..!..."
000030: DF B0 6F 78 32 DE B0 CD 7F 0B 61 22 E4 B0 C9 DD  ..ox2.....a"....
000040: 7E 11 06 00 B7 C8 3D 20 08 7A 1F 57 78 17 47 18  ~.....= .z.Wx.G.
000050: 0C 7A DD 96 12 38 06 DD 96 12 2F 57 04 78 87 87  .z...8..../W.x..
000060: B1 4F C9 CD 2A 0B 21 AB 0B 18 40 21 DE B0 C3 09  .O..*.!...@!....
000070: 0E CD 31 0B 18 11 CD 3E 0B CD C7 0B D0 3A E3 FF  ..1....>.....:..
000080: FE 08 37 C9 CD 0A 0B 21 CC 0B 18 1F 21 DE B0 C3  ..7....!....!...
000090: 12 0E CD DD 0B 21 E0 FF D0 3A E6 FF C9 CD 7F 0B  .....!...:......
0000A0: 21 E5 0B 18 06 DD 7E 19 C3 43 0E CD 6D 0E FD E5  !.....~..C..m...
0000B0: CD FB 0B CD 83 0C FD E1 C3 8F 0E C5 79 E6 03 87  ............y...
0000C0: 4F 06 00 FD 21 F2 B0 FD 09 C1 C9 24 00 03 07 00  O...!......$....
0000D0: AA 00 3F 00 C0 00 10 00 02 00 02 03 00 28 09 41  ..?..........(.A
0000E0: 00 02 2A 52 60 24 00 03 07 00 B3 00 3F 00 C0 00  ..*R`$......?...
0000F0: 10 00 00 00 02 03 00 28 09 C1 00 02 2A 52 60 3E  .......(....*R`>
000100: 01 CD 5A 0C 16 00 C5 CD D2 0B C1 D0 E6 C0 1E 01  ..Z.............
000110: FE 40 28 05 1C FE C0 20 26 7B 21 0B 0C 11 2C 00  .@(.... &{!...,.
000120: FE 01 28 0A 21 25 0C 11 2E 00 FE 02 20 11 D5 C5  ..(.!%...... ...
000130: DD E5 D1 01 1A 00 ED B0 C1 D1 21 00 01 37 C9 3E  ..........!..7.>
000140: 06 B7 C9 06 0F C5 CD B0 0C C1 C8 FE 04 20 1D E5  ............. ..
000150: D5 C5 DD 7E 19 CD 43 0E CD 7F 0D C1 D1 E1 20 0C  ...~..C....... .
000160: D0 3A E6 FF DD AE 14 E6 C0 3E 08 C0 10 D7 B7 C9  .:.......>......
000170: 78 E6 07 28 0A FE 04 20 10 FD 36 00 00 18 0A D5  x..(... ..6.....
000180: DD 56 12 15 CD DD 0C D1 D0 CD DD 0C D0 E5 D5 C5  .V..............
000190: CD 1E 00 C1 D1 CD 7F 0D E1 C9 CD FB 0B 06 0A FD  ................
0001A0: 7E 00 B7 20 19 E5 C5 CB A1 DD 46 12 CD 23 0D CD  ~.. ......F..#..
0001B0: 5A 0D C1 E1 30 21 FD 36 01 00 FD 36 00 FF FD 7E  Z...0!.6...6...~
0001C0: 01 BA 37 C8 E5 C5 FD 46 01 CD 2C 0D CD 5A 0D C1  ..7....F..,..Z..
0001D0: E1 30 04 FD 72 01 C9 FD 36 00 00 C8 CD AC 0D 10  .0..r...6.......
0001E0: BE BF C9 05 3E 07 CD 56 0E 79 18 11 7A 90 30 02  ....>..V.y..z.0.
0001F0: 2F 3C 47 3E 0F CD 56 0E 79 CD 56 0E 7A CD 56 0E  /<G>..V.y.V.z.V.

Size : 512 (Real : 512)
000000: 00 00 3C 3C 3C 3C 00 00 18 18 FF 00 00 FF 00 00  ..<<<<..........
000010: 24 24 24 27 27 24 24 24 24 24 27 20 20 3F 00 00  $$$''$$$$$'  ?..
000020: 00 00 FF 00 00 FF 18 18 24 24 24 24 24 24 24 24  ........$$$$$$$$
000030: 00 00 3F 20 20 27 24 24 24 24 27 20 20 27 24 24  ..?  '$$$$'  '$$
000040: 24 24 24 E4 E4 24 24 24 24 24 E4 04 04 FC 00 00  $$$..$$$$$......
000050: 00 00 FF 00 00 FF 00 00 24 24 E7 00 00 FF 00 00  ........$$......
000060: 00 00 FC 04 04 E4 24 24 24 24 E4 04 04 E4 24 24  ......$$$$....$$
000070: 00 00 FF 00 00 E7 24 24 24 24 E7 00 00 E7 24 24  ......$$$$....$$
000080: 00 00 00 18 18 00 00 00 18 18 18 18 18 00 00 00  ................
000090: 00 00 00 1F 1F 00 00 00 18 18 18 1F 0F 00 00 00  ................
0000A0: 00 00 00 18 18 18 18 18 18 18 18 18 18 18 18 18  ................
0000B0: 00 00 00 0F 1F 18 18 18 18 18 18 1F 1F 18 18 18  ................
0000C0: 00 00 00 F8 F8 00 00 00 18 18 18 F8 F0 00 00 00  ................
0000D0: 00 00 00 FF FF 00 00 00 18 18 18 FF FF 00 00 00  ................
0000E0: 00 00 00 F0 F8 18 18 18 18 18 18 F8 F8 18 18 18  ................
0000F0: 00 00 00 FF FF 18 18 18 18 18 18 FF FF 18 18 18  ................
000100: 78 0C 7C CC 76 00 FE 00 3C 66 66 66 3C 00 7E 00  x.|.v...<fff<.~.
000110: 38 44 38 00 00 00 00 00 3C 66 60 F8 60 66 FE 00  8D8.....<f`.`f..
000120: 38 44 BA A2 BA 44 38 00 7E F4 F4 74 34 34 34 00  8D...D8.~..t444.
000130: 1E 30 38 6C 38 18 F0 00 18 18 7E 18 18 18 18 00  .08l8.....~.....
000140: 40 C0 44 4C 54 1E 04 00 40 C0 4C 52 44 08 1E 00  @.DLT...@.LRD...
000150: E0 10 62 16 EA 0F 02 00 00 33 66 CC 66 33 00 00  ..b......3f.f3..
000160: 00 CC 66 33 66 CC 00 00 E0 90 94 EE 84 84 83 00  ..f3f...........
000170: 18 00 18 30 66 66 3C 00 18 00 18 18 18 18 18 00  ...0ff<.........
000180: 1C 36 30 FC 30 30 E0 00 00 18 3C 66 60 66 3C 18  .60.00....<f`f<.
000190: 00 66 00 00 00 00 00 00 0C 18 30 00 00 00 00 00  .f........0.....
0001A0: 10 38 6C C6 00 00 00 00 00 C6 CC 18 20 5B DB 00  .8l......... [..
0001B0: 40 C0 46 49 46 09 06 00 E0 10 66 19 E6 09 06 00  @.FIF.....f.....
0001C0: F0 80 E6 19 E6 09 06 00 F0 10 26 49 86 09 06 00  ..........&I....
0001D0: 38 C6 C6 F8 C6 C6 F8 00 00 38 6C C6 C6 6C 38 00  8........8l..l8.
0001E0: 00 38 7C FE FE 7C 38 00 66 66 3C 18 7E 18 3C 00  .8|..|8.ff<.~.<.
0001F0: 3C 42 B9 A5 B9 A9 66 3C FB 55 51 51 00 00 00 00  <B....f<.UQQ....

Size : 512 (Real : 512)
000000: 3A F1 B0 CD 51 0D 10 F8 3A F0 B0 CD 51 0D C3 DD  :...Q...:...Q...
000010: 0D 2E F8 2D 20 FD 3D 20 F8 C9 79 F6 20 23 BE 37  ...- .= ..y. #.7
000020: C8 7E E6 C0 EE 80 28 14 7E E6 07 B9 28 05 CD DD  .~....(.~...(...
000030: 0D 18 E7 7E E6 08 28 04 3E 00 BF C9 F6 02 C9 23  ...~..(.>......#
000040: 7E B9 37 C8 E6 08 EE 08 3E 00 C8 23 7E FE 80 37  ~.7.....>..#~..7
000050: C8 EE 02 3E 01 C8 7E E6 20 3E 03 C0 7E E6 04 3E  ...>..~. >..~..>
000060: 04 C0 7E E6 01 3E 05 C0 3E 07 B7 C9 E5 F5 CD DD  ..~..>..>.......
000070: 0D E6 C0 FE 80 20 F7 F1 E1 C9 C5 0E 01 CD C6 0D  ..... ..........
000080: C1 E6 60 C8 37 C9 CD 6D 0E CD AC 0D CD D2 0D C3  ..`.7..m........
000090: 8F 0E 3E 04 CD 56 0E 79 CD 56 0E 18 05 3E 08 CD  ..>..V.y.V...>..
0000A0: 56 0E D5 C5 01 7E FB 16 00 21 E1 FF E5 ED 78 87  V....~...!....x.
0000B0: 30 FB F2 02 0E 03 ED 78 0B 77 23 14 E3 E3 E3 E3  0......x.w#.....
0000C0: 18 EB E1 7E 2B 72 C1 D1 C9 CD 24 0E CD A0 FF C3  ...~+r....$.....
0000D0: E2 0D CD 24 0E CD BA FF 3A EF B0 3D 03 03 03 20  ...$....:..=... 
0000E0: FA C3 E2 0D CD AC 0D 7E 3C F6 C0 4F 23 5E 23 56  .......~<..O#^#V
0000F0: 23 23 23 46 23 05 7E 23 CD 56 0E 10 F9 7E EB 06  ###F#.~#.V...~..
000100: 7F F3 C9 F5 CD AC 0D F1 E6 40 F6 0A CD 56 0E 79  .........@...V.y
000110: CD 56 0E C3 E2 0D D5 C5 57 01 7E FB ED 78 87 30  .V......W.~..x.0
000120: FB 87 38 06 03 ED 51 0B E3 E3 C1 D1 C9 E5 D5 C5  ..8...Q.........
000130: F5 CD DC 0E 3A DD B0 B7 20 13 01 7E FA 3E 01 ED  ....:... ..~.>..
000140: 79 2A ED B0 CD CB 0E 3A DD B0 B7 28 FA 18 13 E5  y*.....:...(....
000150: D5 C5 F5 CD DC 0E 3A DD B0 B7 28 06 2A EE B0 CD  ......:...(.*...
000160: CB 0E F1 C1 D1 E1 C9 21 DD B0 7E 2F 77 B7 20 2C  .......!..~/w. ,
000170: CD DC 0E 18 0C 01 FF 80 21 D6 B0 11 A7 0E CD EF  ........!.......
000180: BC 01 7E FA AF ED 79 32 DD B0 C9 26 00 54 5D 29  ..~...y2...&.T])
000190: 29 19 EB 21 D0 B0 01 00 00 C3 E9 BC 21 D0 B0 C3  )..!........!...
0001A0: EC BC FF FF FF FF FF FF FF FF FF FF FF FF FF FF  ................
0001B0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF  ................
0001C0: CD 56 0E ED 49 01 7E FB 18 05 0C ED A2 04 0D ED  .V..I.~.........
0001D0: 78 F2 AF FF E6 20 20 F2 18 18 CD 56 0E ED 49 01  x....  ....V..I.
0001E0: 7E FB 18 05 0C 04 ED A3 0D ED 78 F2 C9 FF E6 20  ~.........x.... 
0001F0: 20 F2 01 C1 7F ED 49 CD 2A B9 FB C9 FF FF FF FF   .....I.*.......

Size : 512 (Real : 512)
000000: 0C 30 18 3C 66 7E 66 00 0C 30 7E 60 7C 60 7E 00  .0.<f~f..0~`|`~.
000010: 0C 30 7E 18 18 18 7E 00 0C 30 3C 66 66 66 3C 00  .0~...~..0<fff<.
000020: 0C 30 66 66 66 66 3C 00 18 66 18 3C 66 7E 66 00  .0ffff<..f.<f~f.
000030: 18 66 7E 60 7C 60 7E 00 18 66 7E 18 18 18 7E 00  .f~`|`~..f~...~.
000040: 18 66 3C 66 66 66 3C 00 18 66 66 66 66 66 3C 00  .f<fff<..fffff<.
000050: 30 0C 18 3C 66 7E 66 00 30 0C 7E 60 7C 60 7E 00  0..<f~f.0.~`|`~.
000060: 30 0C 7E 18 18 18 7E 00 30 0C 3C 66 66 66 3C 00  0.~...~.0.<fff<.
000070: 30 0C 66 66 66 66 3C 00 66 00 66 3C 18 18 18 00  0.ffff<.f.f<....
000080: 66 00 18 3C 66 7E 66 00 66 00 7E 60 7C 60 7E 00  f..<f~f.f.~`|`~.
000090: 66 00 7E 18 18 18 7E 00 66 00 3C 66 66 66 3C 00  f.~...~.f.<fff<.
0000A0: 66 00 66 66 66 66 3C 00 3C 66 C0 C0 66 3C 00 18  f.ffff<.<f..f<..
0000B0: 3E 78 D8 FE D8 D8 DE 00 18 00 18 3C 66 7E 66 00  >x.........<f~f.
0000C0: 7A CC CE D6 E6 66 BC 00 32 4C 00 66 76 6E 66 00  z....f..2L.fvnf.
0000D0: 32 4C 00 3C 66 7E 66 00 32 4C 3C 66 66 66 3C 00  2L.<f~f.2L<fff<.
0000E0: C0 30 0C 30 CC 30 C0 00 06 18 60 18 66 18 06 00  .0.0.0....`.f...
0000F0: 06 0C 7E 18 7E 30 60 00 00 00 32 4C 00 7E 00 00  ..~.~0`...2L.~..
000100: 0C 30 78 0C 7C CC 76 00 0C 30 3C 66 7E 60 3C 00  .0x.|.v..0<f~`<.
000110: 0C 30 00 38 18 18 3C 00 0C 30 00 3C 66 66 3C 00  .0.8..<..0.<ff<.
000120: 0C 30 00 66 66 66 3E 00 18 66 78 0C 7C CC 76 00  .0.fff>..fx.|.v.
000130: 18 66 3C 66 7E 60 3C 00 18 66 00 38 18 18 3C 00  .f<f~`<..f.8..<.
000140: 18 66 00 3C 66 66 3C 00 18 66 00 66 66 66 3C 00  .f.<ff<..f.fff<.
000150: 30 0C 78 0C 7C CC 76 00 30 0C 3C 66 7E 60 3C 00  0.x.|.v.0.<f~`<.
000160: 30 0C 00 38 18 18 3C 00 30 0C 00 3C 66 66 3C 00  0..8..<.0..<ff<.
000170: 30 0C 00 66 66 66 3C 00 66 00 66 66 66 3E 06 7C  0..fff<.f.fff>.|
000180: 66 00 78 0C 7C CC 76 00 66 00 3C 66 7E 60 3C 00  f.x.|.v.f.<f~`<.
000190: 66 00 38 18 18 18 3C 00 66 00 00 3C 66 66 3C 00  f.8...<.f..<ff<.
0001A0: 66 00 00 66 66 66 3E 00 00 00 3C 60 60 3C 00 18  f..fff>...<``<..
0001B0: 00 00 6C 1A 7E D8 6E 00 18 00 78 0C 7C CC 76 00  ..l.~.n...x.|.v.
0001C0: 00 00 7A CC D6 66 BC 00 32 4C 00 DC 66 66 66 00  ..z..f..2L..fff.
0001D0: 32 4C 78 0C 7C CC 76 00 32 4C 00 3C 66 66 3C 00  2Lx.|.v.2L.<ff<.
0001E0: 08 0C FE 07 FE 0C 08 00 10 30 7F E0 7F 30 10 00  .........0...0..
0001F0: 00 24 7E C3 7E 24 00 00 00 7E 00 7E 00 7E 00 00  .$~.~$...~.~.~..

Size : 512 (Real : 512)
000000: FE 92 20 6E 6F 74 20 72 65 61 64 79 9B FF FE 9D  .. not ready....
000010: 20 99 20 77 72 69 74 98 70 72 6F 74 65 63 74 65   . writ.protecte
000020: 64 9B FF 93 20 73 65 65 6B 20 66 61 69 6C 9B FF  d... seek fail..
000030: 9C 9A 9E 9B FF 9C 6E 6F 20 9A 9B FF 9C 6D 99 73  ......no ....m.s
000040: 69 6E 67 20 61 64 64 96 6D 61 72 6B 9B FF FE 20  ing add.mark... 
000050: 62 61 64 20 66 94 6D 61 74 9B FF FE 20 75 6E 6B  bad f.mat... unk
000060: 6E 6F 77 6E 9E 9B FF 0A 43 50 2F 4D 20 50 6C 75  nown....CP/M Plu
000070: 73 20 20 41 6D 73 74 72 61 64 20 43 6F 6E 73 75  s  Amstrad Consu
000080: 6D 65 72 20 45 6C 65 63 74 72 6F 6E 69 63 73 20  mer Electronics 
000090: 70 6C 63 8D 76 20 FB 2E FA 2C 20 36 31 4B 20 54  plc.v ..., 61K T
0000A0: 50 41 97 FF 31 9D 92 FF 32 9D 92 73 FF 97 31 20  PA..1...2..s..1 
0000B0: 73 65 72 69 61 6C 20 70 6F 72 74 FF 97 F9 4B 92  serial port...K.
0000C0: 20 4D 3A FF 90 0A FF 50 6C 65 61 73 98 70 75 74   M:....Pleas.put
0000D0: 95 9D 20 66 94 20 FD 20 69 6E 74 6F 95 92 95 6E  .. f. . into...n
0000E0: 20 70 96 61 6E 79 20 6B 65 79 FF F8 20 6E 6F 74   p.any key.. not
0000F0: 20 72 65 61 64 79 9B FF 0D 0A FF 44 72 69 76 98   ready.....Driv.
000100: 99 20 FD FF 20 64 72 69 76 65 FF FE 20 74 72 61  . .. drive.. tra
000110: 63 6B 20 FB FF 6F 72 FF 20 74 68 65 FF 72 65 73  ck ..or. the.res
000120: 73 20 FF 2C 20 FF 65 20 FF 69 73 FF 64 61 74 61  s ., .e .is.data
000130: FF 20 2D 20 52 65 74 72 79 97 49 67 6E 94 98 94  . - Retry.Ign...
000140: 20 43 61 6E 63 65 6C 3F FF 93 97 73 65 63 74 94   Cancel?...sect.
000150: 20 FA 20 FF 20 64 99 63 FF 20 65 72 72 94 FF FF   . . d.c. err...
000160: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF  ................
000170: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF  ................
000180: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF  ................
000190: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF  ................
0001A0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF  ................
0001B0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF  ................
0001C0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF  ................
0001D0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF  ................
0001E0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF  ................
0001F0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF  ................

Size : 512 (Real : 512)
000000: 2A 3E 21 2F FE C9 CD 1C FD 56 3E CD 1C FD 97 3E  *>!/.....V>....>
000010: CD 1C FD 9C 3E C9 43 52 54 20 20 20 03 00 4C 50  ....>.CRT   ..LP
000020: 54 20 20 20 02 00 53 49 4F 20 20 20 0F 0E 00 94  T   ..SIO   ....
000030: 3F B7 3F 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: 32 AF FD 08 D9 ED 43 E1 FE E1 D1 C1 F1 08 D9 F1  2.....C.........
000090: ED 7B DB FE FB C9 F5 E5 D9 3E C1 ED 79 D9 2A DF  .{.......>..y.*.
0000A0: FE CD AD FD 3A 58 FE CD 04 FD E1 F1 C9 E9 18 FE  ....:X..........
0000B0: CD 1C FD 3F 3E 21 16 FE C9 2A C4 FB 18 08 2A C6  ...?>!...*....*.
0000C0: FB 18 03 2A C0 FB CD 1C FD 6C 3D 2A C4 FB 18 08  ...*.....l=*....
0000D0: 2A C6 FB 18 03 2A C0 FB CD 1C FD C8 3D 2A C2 FB  *....*......=*..
0000E0: 18 0E 2A BE FB 7C EE 80 B5 20 05 3A F3 FF B7 C8  ..*..|... .:....
0000F0: CD 1C FD 19 3E 2A C2 FB 18 03 2A BE FB CD 1C FD  ....>*....*.....
000100: 32 59 FE AF C5 32 58 FE C6 C1 06 7F ED 79 C1 C9  2Y...2X......y..
000110: 22 DD FE E1 E5 23 23 E3 E5 2A DD FE F3 08 D9 E3  "....##..*......
000120: ED 73 DB FE 31 64 FF D5 C5 F5 5E 23 56 3A 58 FE  .s..1d....^#V:X.
000130: F5 CD 03 FD 3E E6 32 AF FD ED 4B E1 FE B7 CD 5D  ....>.2...K....]
000140: FD F3 08 D9 ED 43 E1 FE 3E B2 32 AF FD F1 CD 04  .....C..>.2.....
000150: FD F1 C1 D1 ED 7B DB FE E1 08 D9 FB C9 D5 08 D9  .....{..........
000160: FB C9 ED 73 DB FE 31 64 FF F5 D9 08 F5 C5 D5 E5  ...s..1d........
000170: ED 4B E1 FE B7 D9 08 3E E6 32 AF FD FF F3 3E B2  .K.....>.2....>.
000180: CD 04 FD 3E C3 21 AE FD 32 38 00 22 39 00 21 03  ...>.!..28."9.!.
000190: FC 32 00 00 22 01 00 2A FE FB 32 05 00 22 06 00  .2.."..*..2.."..
0001A0: 2E 00 F9 FB 01 02 01 CD B6 FC 01 80 0C 11 00 40  ...............@
0001B0: 21 00 01 E5 18 0A ED 43 59 FE C9 EB ED B0 EB C9  !......CY.......
0001C0: 3A 59 FE 3C 28 F5 CD 1C FD CB FC EB C5 E3 7D 01  :Y.<(.........}.
0001D0: 80 00 B7 ED 42 30 04 4F 21 00 00 E3 3A 59 FE CD  ....B0.O!...:Y..
0001E0: 04 FD D5 C5 11 5B FE ED B0 C1 D1 3A 5A FE CD 04  .....[.....:Z...
0001F0: FD E5 21 5B FE ED B0 E1 C1 78 B1 20 CF EB 3E FF  ..![.....x. ..>.

Size : 512 (Real : 512)
000000: 00 00 66 DB DB DB 66 00 3C 42 81 99 81 42 3C 00  ..f...f.<B...B<.
000010: FE C6 C0 C0 C0 C0 C0 00 10 38 38 6C 6C C6 FE 00  .........88ll...
000020: 3C 42 A5 99 A5 42 3C 00 00 00 00 24 18 24 00 00  <B...B<....$.$..
000030: 00 00 18 00 7E 00 18 00 00 00 18 18 00 66 66 00  ....~........ff.
000040: FE 6C 6C 6C 6C 6C 6C 00 18 18 18 18 7E 3C 18 00  .llllll.....~<..
000050: FE C6 60 30 60 C6 FE 00 00 20 60 FE FE 60 20 00  ..`0`.... `..` .
000060: 00 08 0C FE FE 0C 08 00 00 18 18 7E 18 18 7E 00  ...........~..~.
000070: 00 24 66 FF FF 66 24 00 7C C6 C6 C6 C6 6C EE 00  .$f..f$.|....l..
000080: 00 00 73 DE CC DE 73 00 7C C6 C6 FC C6 C6 F8 C0  ..s...s.|.......
000090: 66 66 3C 66 66 66 3C 00 3C 60 3C 66 66 66 3C 00  ff<fff<.<`<fff<.
0000A0: 00 00 1E 30 7C 30 1E 00 38 6C C6 FE C6 6C 38 00  ...0|0..8l...l8.
0000B0: 00 C0 60 30 38 6C C6 00 00 00 66 66 66 7C 60 60  ..`08l....fff|``
0000C0: 00 00 FE 6C 6C 6C 6C 00 00 00 3C 66 66 7C 60 60  ...llll...<ff|``
0000D0: 00 00 7E D8 D8 D8 70 00 00 73 CE 18 18 18 0C 00  ..~...p..s......
0000E0: 03 06 3C 66 66 3C 60 C0 00 E6 3C 18 38 6C C7 00  ..<ff<`...<.8l..
0000F0: 03 06 66 66 66 3C 60 C0 00 00 66 C3 DB DB 7E 00  ..fff<`...f...~.
000100: 00 00 00 00 00 00 00 00 18 18 18 18 18 00 18 00  ................
000110: 6C 6C 6C 00 00 00 00 00 6C 6C FE 6C FE 6C 6C 00  lll.....ll.l.ll.
000120: 18 3E 58 3C 1A 7C 18 00 00 C6 CC 18 30 66 C6 00  .>X<.|......0f..
000130: 38 6C 38 76 DC CC 76 00 18 18 18 00 00 00 00 00  8l8v..v.........
000140: 0C 18 30 30 30 18 0C 00 30 18 0C 0C 0C 18 30 00  ..000...0.....0.
000150: 00 66 3C FF 3C 66 00 00 00 18 18 7E 18 18 00 00  .f<.<f.....~....
000160: 00 00 00 00 00 18 18 30 00 00 00 7E 00 00 00 00  .......0...~....
000170: 00 00 00 00 00 18 18 00 06 0C 18 30 60 C0 80 00  ...........0`...
000180: 38 6C CE D6 E6 6C 38 00 18 38 18 18 18 18 7E 00  8l...l8..8....~.
000190: 3C 66 06 3C 60 66 7E 00 3C 66 06 1C 06 66 3C 00  <f.<`f~.<f...f<.
0001A0: 1C 3C 6C CC FE 0C 1E 00 7E 62 60 7C 06 66 3C 00  .<l.....~b`|.f<.
0001B0: 3C 66 60 7C 66 66 3C 00 7E 66 06 0C 18 18 18 00  <f`|ff<.~f......
0001C0: 3C 66 66 3C 66 66 3C 00 3C 66 66 3E 06 66 3C 00  <ff<ff<.<ff>.f<.
0001D0: 00 00 18 18 00 18 18 00 00 00 18 18 00 18 18 30  ...............0
0001E0: 0C 18 30 60 30 18 0C 00 00 00 7E 00 7E 00 00 00  ..0`0.....~.~...
0001F0: 60 30 18 0C 18 30 60 00 3C 66 66 0C 18 00 18 00  `0...0`.<ff.....

Size : 512 (Real : 512)
000000: C3 0C 3D C3 7A FC C3 E2 FD C3 FA FD C3 C3 FD C3  ..=.z...........
000010: BE FD C3 B9 FD C3 F5 FD C3 74 3E C3 06 FE C3 77  .........t>....w
000020: 3E C3 7C 3E C3 81 3E C3 0B FE C3 10 FE C3 D0 FD  >.|>..>.........
000030: C3 8C 3E C3 D5 FD C3 DD FD C3 CB FD C3 B5 FD C3  ..>.............
000040: B0 FD C3 02 FE C3 B4 3E C3 B9 3E C3 C0 FC C3 15  .......>..>.....
000050: FE C3 04 FD C3 88 3E C3 B6 FC C3 10 FD C3 00 00  ......>.........
000060: C3 00 00 D9 ED 43 E1 FE D9 2A 39 00 22 DF FE 21  .....C...*9."..!
000070: AE FD 22 39 00 3E B2 32 AF FD F3 31 64 FF 3E 01  .."9.>.2...1d.>.
000080: C3 0F FC C3 83 F7 00 00 00 00 00 00 00 00 00 00  ................
000090: 00 00 00 00 00 00 00 07 06 F6 00 00 00 00 00 00  ................
0000A0: 00 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00  .1..............
0000B0: 00 00 00 00 00 00 4E 00 17 00 00 00 00 00 00 00  ......N.........
0000C0: 00 00 00 00 00 00 00 00 00 00 00 FF 00 00 00 00  ................
0000D0: 00 6A FA 24 00 00 9C FB 80 00 00 00 00 00 00 00  .j.$............
0000E0: 00 00 00 00 00 00 01 00 00 FF FF FF 00 00 00 00  ................
0000F0: 00 00 00 80 12 07 00 00 00 00 C0 C3 7C 0F 06 F6  ............|...
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 C3 03 FC C3 83 F7 C3 06  ................
000170: FC C3 83 F7 C3 09 FC C3 83 F7 C3 0C FC C3 83 F7  ................
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: DA 97 23 3E FF 32 23 3C C3 97 23 FE 03 C2 1F 1D  ..#>.2#<..#.....
000010: 3A 23 3C 3C C2 1F 1D E1 C3 D6 38 AF 32 23 3C 2A  :#<<......8.2#<*
000020: F0 37 C9 00 21 00 00 22 BA FB 22 B1 FB 2B 2B C9  .7..!..".."..++.
000030: 22 F4 37 D6 03 32 39 3C C9 00 CD 43 3C C3 13 34  ".7..29<...C<..4
000040: CD 77 22 2A 7B 37 7D A4 3C C8 5E 23 56 7A B3 C8  .w"*{7}.<.^#Vz..
000050: 21 AA 37 1A BE C2 63 3C 21 04 00 19 3E FF BE C2  !.7...c<!...>...
000060: 63 3C 12 21 0D 00 19 C3 4A 3C CD 77 22 2A 71 37  c<.!....J<.w"*q7
000070: 7E B7 C0 36 02 C9 CD 39 20 21 17 F6 C9 CD 90 2D  ~..6...9 !.....-
000080: 3D C2 87 3B 2A 87 37 22 12 F6 3A 7F 37 2A 7D 37  =..;*.7"..:.7*}7
000090: CD 0F F6 C2 AE 3B 3A 14 F6 B7 0E 00 C4 3D 22 3A  .....;:......=":
0000A0: DF FB D6 12 C8 3A 9C FB 3C CC 01 22 AF C9 CD F8  .....:..<.."....
0000B0: 21 C0 CD F5 20 C0 3E FF 32 9C FB 2A 69 37 5E 23  !... .>.2..*i7^#
0000C0: 56 EB 2B CD 0D 28 AF C9 CD 64 3B C8 21 B8 37 11  V.+..(...d;.!.7.
0000D0: 9D FB 01 04 00 E5 D5 C5 CD 4B FC 2A 7D 37 E5 CD  .........K.*}7..
0000E0: 40 20 CD E0 3A 2A E1 FB 29 29 D1 19 C1 D1 D5 C5  @ ..:*..))......
0000F0: 3A 7F 37 CD 09 F6 C1 E1 D1 C3 4B FC 3A 8C 37 17  :.7.......K.:.7.
000100: DA 07 3B F1 29 8F F5 1A E6 7F D6 20 1F D2 11 3B  ..;.)...... ...;
000110: 17 4F 06 00 F1 09 CE 00 C1 13 05 C2 F1 3A 22 9E  .O...........:".
000120: FB 21 9D FB E6 03 0F 0F B6 77 E6 20 C2 5B 3B 1A  .!.......w. .[;.
000130: E6 1F 4F 13 13 1A E6 3F 0F 0F 0F 57 E6 07 47 7A  ..O....?...W..Gz
000140: E6 E0 B1 4F 3A 84 37 1F D2 56 3B F5 78 1F 47 79  ...O:.7..V;.x.Gy
000150: 1F 4F F1 C3 47 3B 78 E6 01 0F 0F 0F B6 77 11 03  .O..G;x......w..
000160: 00 19 71 C9 2A 7D 37 7D B4 3C C9 CD 64 3B C8 3A  ..q.*}7}.<..d;.:
000170: 9C FB 3C C8 3A E5 FB B7 C8 2A 69 37 5E 23 56 EB  ..<.:....*i7^#V.
000180: 7C B5 C9 3A EF 37 77 B7 C8 3A 90 37 3C 77 C9 E5  |..:.7w..:.7<w..
000190: D5 CD E0 3A E1 11 9D FB 01 04 00 3A 7F 37 CD 09  ...:.......:.7..
0001A0: F6 22 B1 37 E1 C9 B7 C8 FE 0C DA DC 3A 3E 02 CA  .".7........:>..
0001B0: B4 3A 3E 03 32 9C FB EB CD 64 3B C8 EB 3A DF FB  .:>.2....d;..:..
0001C0: FE 10 CA E0 3A FE 23 CA CF 3A FE 14 D2 E0 3A 3E  ....:.#..:....:>
0001D0: 02 32 9C FB E5 CD 39 26 E1 C2 E0 3A AF 32 9C FB  .2....9&...:.2..
0001E0: 7E 32 9D FB 23 EB 21 00 00 E6 20 C2 1E 3B 01 08  ~2..#.!... ..;..
0001F0: 0B 0D C5 CA 06 3B 0D 0D CA 06 3B 29 8F F5 78 1F  .....;....;)..x.

Size : 512 (Real : 512)
000000: 83 00 00 82 82 42 42 00 00 00 82 82 00 00 00 00  .....BB.........
000010: 08 00 00 02 02 00 03 03 00 83 03 02 12 02 06 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: FB EB E1 2B 22 E1 FB C1 7D E6 03 FE 03 C8 7B E6  ...+"...}.....{.
000090: FC 5F 7D E6 FC 6F CD DD F9 B5 C8 3E FF 32 14 F6  ._}..o.....>.2..
0000A0: AF C9 7E E6 10 CA 37 F9 1A AE E6 0F C2 37 F9 C3  ..~...7......7..
0000B0: B8 F9 7E FE F5 C2 37 F9 EB E1 22 17 F6 C3 39 F9  ..~...7..."...9.
0000C0: 3A 9C FB B7 C8 4F 0F 0F 1F 47 1A AE A0 C0 E5 23  :....O...G.....#
0000D0: 13 CD E4 F9 E1 C9 F5 AF CD 51 FC F1 C9 7B 95 6F  .........Q...{.o
0000E0: 7A 9C 67 C9 1A BE C0 23 13 0D C8 C3 E4 F9 00 00  z.g....#........
0000F0: 00 83 82 22 22 03 82 82 83 03 00 00 00 00 00 00  ...""...........
000100: 21 D6 F9 E5 AF 32 14 F6 2A 25 FA 44 4D 2A 12 F6  !....2..*%.DM*..
000110: EB 2A E1 FB E5 CD DD F9 D1 B5 C8 E5 13 EB E5 2B  .*.............+
000120: 29 29 09 11 04 00 19 11 9D FB 1A AE E6 1F C2 48  )).............H
000130: F9 CD C0 F9 CA 7E F9 EB E1 23 E3 2B 7D B4 E3 E5  .....~...#.+}...
000140: EB C2 23 F9 3C E1 E1 C9 3A 18 F6 3C CA B2 F9 3C  ..#.<...:..<...<
000150: C2 37 F9 D5 CD C0 F9 D1 C2 37 F9 3A 16 F6 3C CA  .7.......7.:..<.
000160: A2 F9 3C CA 6F F9 7E E6 1F C2 37 F9 C3 7E F9 1A  ..<.o.~...7..~..
000170: AE E6 0F C2 37 F9 7E E6 30 FE 30 CA 37 F9 2A E1  ....7.~.0.0.7.*.
000180: C5 D5 22 2C FA 21 2E FA 22 2A FA 01 80 00 CD 4B  ..",.!.."*.....K
000190: FC 36 00 0E 98 11 2A FA CD D5 F8 C1 7D B4 CA B4  .6....*.....}...
0001A0: F8 7D A4 3C CA B4 F8 11 2E FA 7D 93 6F 7C 9A 67  .}.<......}.o|.g
0001B0: 09 22 28 FA E1 D1 01 24 00 C3 4B FC FE 98 CA 74  ."(....$..K....t
0001C0: F8 17 3E 00 DA C8 F8 3D 32 28 FA 2A 66 FB F9 2A  ..>....=2(.*f..*
0001D0: 28 FA 7D 44 C9 AF CD 51 FC CD 06 0F 22 28 FA 3E  (.}D...Q...."(.>
0001E0: 01 C3 51 FC B7 CA 4B FC CD 51 FC CD 4B FC AF C3  ..Q...K..Q..K...
0001F0: 51 FC 3E 01 CD 51 FC C3 EB F8 22 25 FA CD 51 FC  Q.>..Q...."%..Q.

Size : 512 (Real : 512)
000000: EB C3 B0 39 2A F6 37 7D B4 C2 14 3A 2A F8 37 7D  ...9*.7}...:*.7}
000010: B4 CA 17 3A 22 F2 37 2A F2 37 CD 78 3A 22 F0 37  ...:".7*.7.x:".7
000020: CD 78 3A EB CD 6D 3A 2A F4 37 5E 23 56 2A F0 37  .x:..m:*.7^#V*.7
000030: 01 0D 00 09 73 23 72 2A F0 37 EB 2A F4 37 73 23  ....s#r*.7.*.7s#
000040: 72 EB C9 2A F0 37 11 05 00 19 3A EF 37 BE CA 59  r..*.7....:.7..Y
000050: 3A 34 BE CA 59 3A CD 83 3A 2A F0 37 EB 2A F4 37  :4..Y:..:*.7.*.7
000060: 7E 23 6E 67 CD 7F 20 B5 EB C8 C3 17 3A 2A F2 37  ~#ng.. .....:*.7
000070: 01 0D 00 09 73 23 72 C9 01 0D 00 09 5E 23 56 EB  ....s#r.....^#V.
000080: 9E 1D F4 93 1D CD 61 39 23 23 11 FB 37 0E 04 C3  ......a9##..7...
000090: 29 1D CD 30 3C 11 F3 FF 19 22 F2 37 CD 78 3A E5  )..0<....".7.x:.
0000A0: CD 78 3A E1 C8 EB 21 00 00 22 F6 37 22 F8 37 EB  .x:...!..".7".7.
0000B0: 22 F0 37 CD 58 39 CD 1F 1D CA 43 3A 2A F0 37 7E  ".7.X9....C:*.7~
0000C0: 3C C2 CE 39 EB 2A F2 37 22 F6 37 C3 F3 39 3A AA  <..9.*.7".7..9:.
0000D0: 37 BE C2 F4 39 EB 21 05 00 19 3A 90 37 B7 CA F3  7...9.!...:.7...
0000E0: 39 BE C2 F3 39 3A 39 3C B7 00 C2 F3 39 2A F2 37  9...9:9<....9*.7
0000F0: 22 F8 37 EB E5 CD 78 3A D1 CA 04 3A EB 22 F2 37  ".7...x:...:.".7
000100: 38 EB 2A 1B F6 19 F1 FE 03 C2 10 39 22 67 37 C9  8.*........9"g7.
000110: EB 2A D8 FB 01 80 00 FE 01 C2 33 39 3A FA FB 3D  .*........39:..=
000120: BA DA 0C F6 3A FA 37 4F 06 01 CD 69 39 01 80 00  ....:.7O...i9...
000130: C3 0C F6 EB 3A FA FB 3D BC DA 48 39 3A FA 37 47  ....:..=..H9:.7G
000140: 0E 01 CD 69 39 01 80 00 CD 0C F6 CD 61 39 36 FF  ...i9.......a96.
000150: C9 3A 90 37 47 2F 4F C9 2A F0 37 11 AA 37 0E 04  .:.7G/O.*.7..7..
000160: C9 11 04 00 2A F0 37 19 C9 E5 D5 CD 57 FC D1 E1  ....*.7.....W...
000170: C9 F5 CD 0C 1E 3A FA 37 CD 54 FC 0E 01 F1 3D CA  .....:.7.T....=.
000180: F5 FE 04 D2 8D 38 CD 0B 3C CA F2 38 AF CD 61 39  .....8..<..8..a9
000190: FE 05 CA 9A 38 7E B7 CA C2 38 36 00 2A AB 37 E5  ....8~...86.*.7.
0001A0: 3A AD 37 F5 CD 58 39 EB CD 29 1D 21 A9 37 3A AA  :.7..X9..).!.7:.
0001B0: 37 BE C4 54 2D 3E 01 CC 71 39 C1 D1 CD 03 1E CD  7..T->..q9......
0001C0: 6B 2D F1 FE 04 D0 F5 FE 02 C2 D6 38 21 94 37 3A  k-.........8!.7:
0001D0: 93 37 BE D2 E0 38 CD 1B 3C 36 FF 3E 02 C3 E3 38  .7...8..<6.>...8
0001E0: 3C 77 AF CD 71 39 CD 58 39 CD 29 1D 36 00 23 CD  <w..q9.X9.).6.#.
0001F0: 83 3A 3A EF 37 3C 11 80 00 21 80 FF 19 3D C2 FC  .::.7<...!...=..

Size : 512 (Real : 512)
000000: 21 2A FA 01 24 00 CD 4B FC 11 2A FA E1 C1 C5 E5  !*..$..K..*.....
000010: 22 1E F6 CD D5 F8 D1 C1 78 E6 FC C8 21 2A FA EB  ".......x...!*..
000020: 01 21 00 17 DA 40 F8 0E 24 17 DA 40 F8 17 DA 68  .!...@..$..@...h
000030: F8 0E 04 17 DA 4B FC 17 DA 5C F8 0E 06 C3 4B FC  .....K...\....K.
000040: 3A 1D F6 B7 CA 4B FC 01 0E 00 09 EB 09 7E 12 23  :....K.......~.#
000050: 13 7E 12 03 03 03 09 EB 09 1A 77 C9 2A D8 FB 01  .~........w.*...
000060: 03 00 11 4E FA C3 4B FC 2A D8 FB 01 80 00 11 4E  ...N..K.*......N
000070: FA C3 4B FC EB 5E 23 56 23 4E 23 46 21 AF FA E5  ..K..^#V#N#F!...
000080: FC 78 C9 11 8D F7 D5 3E 01 CD 51 FC E9 47 AF CD  .x.....>..Q..G..
000090: 51 FC 78 C9 FE 33 DA B0 F7 FE 62 DA BC F8 FE 71  Q.x..3....b....q
0000A0: D2 BC F8 FE 6F CA 35 F7 FE 70 CA 35 F7 C3 CF F7  ....o.5..p.5....
0000B0: FE 11 CA C7 F7 FE 12 CA CB F7 FE 1A C2 CF F7 EB  ................
0000C0: 22 D8 FB 22 1B F6 C9 EB 22 E3 FB 2A E3 FB EB 21  ".."...."..*...!
0000D0: E2 F9 79 FE 62 DA DB F7 21 B3 F9 06 00 09 7E 47  ..y.b...!.....~G
0000E0: C5 D5 1F DA ED F7 1F DA FC F7 C3 13 F8 2A D8 FB  .............*..
0000F0: EB 21 4E FA 01 10 00 CD 4B FC D1 D5 AF 32 1D F6  .!N.....K....2..
000100: F6 EB 7D B4 C2 10 F7 21 2C FA 22 BA FB 2A D8 FB  ..}....!,."..*..
000110: E5 11 2A FA D5 06 00 4E 03 03 03 EB CD 4B FC 36  ..*....N.....K.6
000120: 00 D1 D5 0E 0A CD D5 F8 3A 2B FA 4F 06 00 03 03  ........:+.O....
000130: D1 E1 C3 4B FC 32 24 FA EB 5E 23 56 23 4E 23 46  ...K.2$..^#V#N#F
000140: EB 78 B1 C8 C5 E5 4E 11 70 F7 D5 3A 24 FA FE 70  .x....N.p..:$..p
000150: CA 0F FC 3A CF FB 47 E6 02 CA 6A F7 78 E6 14 CA  ...:..G...j.x...
000160: 6A F7 E6 10 C2 0C FC C3 0C FC 59 0E 02 C3 D5 F8  j.........Y.....
000170: E1 23 C1 0B C3 41 F7 3E 01 CD 51 FC 46 AF CD 51  .#...A.>..Q.F..Q
000180: 00 00 00 00 00 00 03 FC D5 F8 D5 F8 9E F6 A4 F6  ................
000190: A8 F6 AC F6 E3 F6 E9 F6 EF F6 01 F7 D5 F8 CD 15  ................
0001A0: FC C3 C8 F8 4B C3 12 FC 4B C3 0F FC 7B 3C CA C3  ....K...K...{<..
0001B0: F6 3C CA BD F6 3C CA C8 F6 4B C3 0C FC CD CE F6  .<...<...K......
0001C0: C3 C8 F8 CD CE F6 B7 C8 CD D8 F6 C3 C8 F8 3A 20  ..............: 
0001D0: F6 B7 3E FF C0 C3 06 FC 21 20 F6 7E 36 00 B7 C0  ..>.....! .~6...
0001E0: C3 09 FC CD 36 FC C3 C8 F8 CD 39 FC C3 C8 F8 42  ....6.....9....B
0001F0: 4B 21 D3 FB 0A BE C8 03 C5 4F CD 53 F7 C1 C3 F1  K!.......O.S....

Size : 512 (Real : 512)
000000: 7B 37 FE 04 C2 58 38 5E 23 56 21 FF FF 22 FB 37  {7...X8^#V!..".7
000010: EB 3A AA 37 BE C2 3C 38 EB 21 04 00 19 7E EB 3C  .:.7..<8.!...~.<
000020: C2 3C 38 E5 13 13 EB 5E 23 56 2A FB 37 CD 7F 20  .<8....^#V*.7.. 
000030: E1 D2 3C 38 EB 22 FB 37 EB 22 FD 37 CD 78 3A C2  ..<8.".7.".7.x:.
000040: 11 38 21 FB 37 CD FB 21 C8 2A FD 37 AF 3E 04 CD  .8!.7..!.*.7.>..
000050: 58 38 2A 7B 37 C3 07 38 F5 CD 51 39 3A AB 37 5F  X8*{7..8..Q9:.7_
000060: A0 32 EF 37 7B A1 32 AB 37 F1 F5 C4 92 39 22 F0  .2.7{.2.7....9".
000070: 37 CD 82 21 22 1B F6 CD 58 39 7E 3C CA C2 38 F1  7..!"...X9~<..8.
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 FF FF 00 00 00 00 00  ................
0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000C0: 0F 10 11 13 16 17 1E 23 63 64 66 67 00 14 15 21  .......#cdfg...!
0000D0: 22 28 29 00 10 12 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 2A  ...............*
000100: CD 4E FC 21 F4 FB EB CD 0E 37 1A C3 72 19 0E 04  .N.!.....7..r...
000110: C3 29 1D 21 EE 37 EB 01 08 00 E5 C3 4E 2F 21 00  .).!.7......N/!.
000120: 0F EB 0E 06 C3 29 1D 7A A3 3C 2A AC FB CA 29 33  .....).z.<*...)3
000130: EB 22 AC FB C9 21 FF FF 22 9F 1C 3A DD FB B7 CA  ."...!.."..:....
000140: 58 37 2A DB FB 3A BF 37 77 11 07 00 19 3A B6 37  X7*..:.7w....:.7
000150: B6 77 23 3A B5 37 B6 77 2A 32 12 F9 2A 9F 1C 7D  .w#:.7.w*2..*..}
000160: 44 C9 E5 00 00 00 00 00 00 00 00 00 00 00 00 00  D...............
000170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000180: C8 CD 03 28 CD 10 30 B7 CA E4 36 CD 83 2F C2 A1  ...(..0...6../..
000190: 36 3E FF 32 15 F6 CD F5 23 C8 CD 16 28 C8 CD B1  6>.2....#...(...
0001A0: 2F CD D4 2F C2 DF 2E E5 CD 3F 1F D1 EB 7E B7 C2  /../.....?...~..
0001B0: BE 36 1A E6 01 C2 BE 36 CD 19 36 C3 CA 36 1A E6  .6.....6..6..6..
0001C0: E0 C2 C6 36 3E 80 77 CD 03 36 CD 99 2F 3D 32 E4  ...6>.w..6../=2.
0001D0: 37 CD 9C 1F CD F0 23 C8 CD 10 30 B7 C0 3A E4 37  7.....#...0..:.7
0001E0: 77 C3 9A 21 7E F5 CD 83 2F C1 CA 91 36 70 C3 A1  w..!~.../...6p..
0001F0: 36 21 F4 FB CD 0E 37 36 00 0E FF C3 4E FC 0E 00  6!....76....N...

Size : 512 (Real : 512)
000000: 36 35 34 33 32 31 C3 24 F6 C3 E4 F8 C3 F2 F8 C3  654321.$........
000010: FA F8 00 00 00 00 00 00 00 4E FA 00 00 00 00 00  .........N......
000020: 00 C3 77 F7 79 21 00 00 22 28 FA 39 22 66 FB 31  ..w.y!.."(.9"f.1
000030: 66 FB 21 CB F8 E5 FE 0C D2 94 F7 32 DF FB 21 86  f.!........2..!.
000040: F6 06 00 09 09 7E 23 66 6F E9 43 4F 50 59 52 49  .....~#fo.COPYRI
000050: 47 48 54 20 28 43 29 20 31 39 38 32 2C 20 44 49  GHT (C) 1982, DI
000060: 47 49 54 41 4C 20 52 45 53 45 41 52 43 48 20 31  GITAL RESEARCH 1
000070: 35 31 32 38 32 00 00 00 00 00 00 00 00 00 00 00  51282...........
000080: C9 7D 32 B6 FB 7C 32 B8 FB C9 1C 3F 17 3F D6 3E  .}2..|2....?.?.>
000090: CB 3E 00 00 00 00 00 00 00 00 00 00 00 00 00 00  .>..............
0000A0: 64 FF FF BE 1F BF FB BE FD BE 80 4C 02 1C 3F 17  d..........L..?.
0000B0: 3F D6 3E CB 3E 01 00 00 00 00 00 00 00 00 00 00  ?.>.>...........
0000C0: 00 00 00 7F FF 7A BF 9A BF FB BE FD BE 80 4E 02  .....z........N.
0000D0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF  ................
0000E0: D5 5E 23 56 EB D1 C9 00 00 00 00 00 00 00 00 00  .^#V............
0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000100: 3F E1 D8 EB 20 D0 21 00 00 C9 3A E7 FB FE FF C8  ?... .!...:.....
000110: 3A F0 BE 4F C3 FB 00 21 86 00 18 03 21 89 00 DD  :..O...!....!...
000120: E5 E5 D5 CD 4D 3F 38 10 FE 08 47 C5 3A F2 BE 57  ....M?8...G.:..W
000130: 3A F4 BE 5F C4 0A 3F C1 D1 E1 DD E1 3E 00 D8 20  :.._..?.....>.. 
000140: DE 78 EE 08 28 05 FE 09 3E 02 C8 3D C9 E5 CD 76  .x..(...>..=...v
000150: 3F 2A F0 BE 7C B7 20 0A 4D 21 FA BE 7E B9 71 C4  ?*..|. .M!..~.q.
000160: FE 00 3A F1 BE 4F 3A F4 BE 5F 3A F2 BE 57 3A F9  ..:..O:.._:..W:.
000170: BE 47 2A F6 BE C9 21 0C 00 19 CD E0 3F E5 DD E1  .G*...!.....?...
000180: C9 ED 43 F6 BE 3A 58 FE 32 F9 BE C9 69 60 7A B3  ..C..:X.2...i`z.
000190: C8 EB 09 6E 26 00 C9 11 F8 FF 18 03 11 F6 FF 3A  ...n&..........:
0001A0: F0 BE CD BB 3E E5 19 CD E0 3F D1 1B 1B 1A 32 F1  ....>....?....2.
0001B0: BE 13 13 E9 79 32 F8 BE C9 AF C9 21 2F FE 87 8D  ....y2.....!/...
0001C0: 6F 8C 95 67 C3 E0 3F AF 32 FA BE C9 CD E6 00 B7  o..g..?.2.......
0001D0: C0 11 B5 3F 12 C9 DD E5 D5 CD 4E 3F DD 7E 1A B7  ...?......N?.~..
0001E0: 37 20 13 CD 92 00 30 0E 01 FF FD 09 38 05 EB 01  7 ....0.....8...
0001F0: A4 FF 09 3E 06 3F E1 DD E1 47 11 00 00 E5 D4 0A  ...>.?...G......

Size : 512 (Real : 512)
000000: 37 77 E1 1A E6 01 CA 19 36 11 08 00 CD A7 2F CD  7w......6...../.
000010: 42 2F 70 11 F8 FF CD A7 2F CD C8 3B C3 9A 21 CD  B/p...../..;..!.
000020: 67 2D CD 73 2E C3 72 19 CD 90 2D CD 2D 26 CD 9C  g-.s..r...-.-&..
000030: 1F CD F0 23 C8 CD C4 1E 01 08 00 CD A4 1F E5 0E  ...#............
000040: 00 CD 12 30 B7 C2 53 36 D1 EB 0E 08 CD 29 1D 1A  ...0..S6.....)..
000050: C3 5F 36 E1 01 08 00 CD A4 1F CD 83 2F C8 7E CD  ._6........./.~.
000060: 3F 1F 77 C9 CD 90 2D CD 73 2E 17 D2 C0 24 CD 2D  ?.w...-.s....$.-
000070: 26 CD 3F 1F 46 E5 C5 CD 9C 1F CD F0 23 C1 E1 70  &.?.F.......#..p
000080: 1B 1B 1A 4E CD 86 23 C8 1A BE C9 3C 21 A3 37 34  ...N..#....<!.74
000090: CA 94 35 87 35 CD C4 1E 4F 06 00 09 3E 10 B9 C8  ..5.5...O...>...
0000A0: 70 23 0C C3 9E 35 CD 90 2D 2A DB FB 36 21 0E 01  p#...5..-*..6!..
0000B0: CD F7 23 C2 BF 35 CD 3F 1F 7E E6 70 C2 C0 24 2A  ..#..5.?.~.p..$*
0000C0: DB FB 36 20 0E 01 CD 03 28 CD F7 23 C2 E4 35 3E  ..6 ....(..#..5>
0000D0: FF 32 15 F6 CD 16 28 C8 CD B1 2F 01 18 00 CD 05  .2....(.../.....
0000E0: 30 CD DD 2F 01 1C 00 CD 05 30 CD E2 2F CD D4 2F  0../.....0../../
0000F0: C2 DF 2E 01 00 00 CD B7 2F 1A F6 01 77 E5 2A 6F  ......../...w.*o
000100: 23 CD 71 35 DA 1C 35 F5 0E 00 CD 8B 22 F1 CA 22  #.q5..5.....".."
000110: 35 CD 40 20 36 E5 CD C8 3B CD 9A 21 CD 03 24 C3  5.@ 6...;..!..$.
000120: FE 34 CD 58 1F CD A4 1E CD 8B 35 CD 97 23 BE 77  .4.X......5..#.w
000130: F5 CD 4F 1F 7E 3C 12 F1 EB C4 15 27 3A 9F 37 B7  ..O.~<.....':.7.
000140: CC 15 27 01 0B 00 CD 67 35 EB 7E E6 7F 77 23 13  ..'....g5.~..w#.
000150: 1A 77 23 36 00 23 23 13 13 13 0E 11 CD 29 1D 0E  .w#6.##......)..
000160: 01 CD 8B 22 C3 19 35 CD 40 20 09 EB 2A DB FB 09  ..."..5.@ ..*...
000170: C9 01 0E 00 CD 67 35 7E E6 3F 47 1A B8 C0 2B 2B  .....g5~.?G...++
000180: 21 00 FC 85 6F E3 23 7E E1 E3 C9 3E 01 C3 54 FC  !...o.#~...>..T.
000190: 7D B4 C8 EB 21 0A 00 19 36 00 2A F9 FB CD 7F 20  }...!...6.*.... 
0001A0: EB D0 EB 2A DB FB 23 E5 01 19 00 CD 4B FC E1 C9  ...*..#.....K...
0001B0: 22 9F 1C 47 2A DB FB 7E FE 09 C8 FE 10 C8 FE 14  "..G*..~........
0001C0: C8 FE 16 C8 78 C3 72 19 CD 90 2D CD 2D 26 CD 78  ....x.r...-.-&.x
0001D0: 2E C4 85 2E 0E FF CD E4 2B C2 C0 24 CD 40 20 11  ........+..$.@ .
0001E0: 0F 00 CD CB 2C CD 37 1F CD FE 2C DA C0 24 B2 CA  ....,.7...,..$..
0001F0: C0 24 CD 28 20 CD 9A 21 CD 53 30 CD F5 23 CA 80  .$.( ..!.S0..#..

Size : 512 (Real : 512)
000000: 20 01 77 7E B7 C5 C4 F2 00 C1 E1 B7 C9 C5 E5 CD   .w~............
000010: EC 00 B7 E1 C1 C9 2A BE FB 06 00 AF 29 DC 0D 3E  ......*.....)..>
000020: C0 04 7C B5 20 F5 C9 2A BE FB E5 06 00 AF 29 DC  ..|. ..*......).
000030: 0D 3E 20 05 04 7C B5 20 F4 E1 28 EE C3 EF 00 41  .> ..|. ..(....A
000040: 1E 07 CD 49 3E 46 C3 F8 00 16 00 62 68 29 29 29  ...I>F.....bh)))
000050: 19 11 16 FE 19 C9 79 32 F0 BE CD BB 3E 7C B5 C8  ......y2....>|..
000060: 7B 1F D8 EB 21 FE FF 19 7E 32 F1 BE 21 FA FF 19  {...!...~2..!...
000070: CD E0 3F E9 01 00 00 ED 43 F2 BE C9 ED 43 F4 BE  ..?.....C....C..
000080: 90 3D 20 EE C5 C4 F5 00 C1 E1 04 7C B5 20 DF C9  .= ........|. ..
000090: C5 2A C0 FB E5 21 C2 FB CD B9 3D 1E 00 CD 49 3E  .*...!....=...I>
0000A0: EB 06 0F CD FB 00 E1 C1 20 02 30 04 22 C0 FB C9  ........ .0."...
0000B0: 21 C8 FB CD B9 3D 21 C6 FB C5 04 3E FE 0F 38 01  !....=!....>..8.
0000C0: 2B 10 FA A6 77 C1 AF C9 06 00 37 9F 29 DC D8 3D  +...w.....7.)..=
0000D0: C8 04 7C B5 20 F4 2F C9 E5 1E 06 CD 49 3E 7E 2F  ..|. ./.....I>~/
0000E0: E6 10 20 21 78 C6 D0 6F CE 3F 95 67 CD 0D 3E 28  .. !x..o.?.g..>(
0000F0: 12 C5 E5 CD EF 00 E1 C1 FE 11 20 02 36 FF EE 13  .......... .6...
000100: C3 27 3E C3 69 3D C3 16 3E C3 81 3F 31 64 FF 21  .'>.i=..>..?1d.!
000110: 00 80 22 BE FB 22 C0 FB 26 40 22 C6 FB 21 26 FE  ..".."..&@"..!&.
000120: 11 47 3D CD E9 00 ED 53 FB BE 22 FD BE E6 20 67  .G=....S.."... g
000130: 2E 00 22 C2 FB 22 C4 FB 0E 02 CD 3F 3E CD C7 3E  .."..".....?>..>
000140: CD CC 3E F3 C3 63 FC 21 F9 FB 06 60 CD 60 3D CC  ..>..c.!...`.`=.
000150: 60 3D 06 24 CC 60 3D C0 2A F4 FB 23 22 F4 FB C9  `=.$.`=.*..#"...
000160: 2B 7E 3C 27 77 A8 C0 77 C9 2A C0 FB 06 00 29 30  +~<'w..w.*....)0
000170: 19 E5 21 10 A4 CD D8 3D 20 0A 2B 7C B5 20 F6 CD  ..!....= .+|. ..
000180: C3 39 20 CD 62 20 C3 F0 23 00 00 00 00 00 00 00  .9 .b ..#.......
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: CD 77 22 C3 3A 3C CD 20 34 3A 9E 37 3C C2 13 34  .w".:<. 4:.7<..4
000010: CD 52 21 E1 F1 B7 C2 ED 33 C9 CD 48 FC CD A5 1D  .R!.....3..H....
000020: 3A 90 37 B7 C8 3E 04 C3 FF 37 EB 7E FE 63 D0 EB  :.7..>...7.~.c..
000030: 21 9C FB 85 6F EB 23 7E FE FE D2 45 34 EB 5E 23  !...o.#~...E4.^#
000040: 56 EB C3 29 33 47 23 7E 12 04 C8 23 13 7E 12 C9  V..)3G#~...#.~..
000050: 21 B0 34 E5 EB 7E FE 1B C8 FE 0C C2 62 34 11 8B  !.4..~......b4..
000060: 34 D5 FE 09 C2 6B 34 11 90 34 D5 E5 23 23 4E 23  4....k4..4..##N#
000070: 46 23 5E 23 56 23 7E 23 66 6F E3 7E E5 6F 87 85  F#^#V#~#fo.~.o..
000080: C0 24 FE 81 D2 C0 24 32 E6 FB C9 7B 32 E7 FB C9  .$....$2...{2...
000090: CD 67 2D 2A 77 37 EB CD DE 22 01 00 00 1A B7 CA  .g-*w7..."......
0000A0: AA 33 1F D2 A2 33 03 C3 9E 33 13 2B 7D B4 C2 9D  .3...3...3.+}...
0000B0: 33 2A 85 37 23 7D 91 6F 7C 98 67 3A 82 37 4F AF  3*.7#}.o|.g:.7O.
0000C0: CD F6 1C EB 2A 19 F6 73 23 72 23 77 C9 21 B3 FB  ....*..s#r#w.!..
0000D0: 7E F6 80 77 1C C2 2F 12 7E F6 40 77 C3 2F 12 CD  ~..w../.~.@w./..
0000E0: 2F 2E CD 48 FC CD A5 1D 2A 65 37 3E 10 3D 29 D2  /..H....*e7>.=).
0000F0: 15 34 F5 E5 5F CD 67 2D 3A DF FB FE 30 CA 06 34  .4.._.g-:...0..4
000100: 19 EB 22 D8 FB C3 B6 21 CD 6B 2D 2A 77 37 C3 29  .."....!.k-*w7.)
000110: 33 2A 63 37 C3 29 33 CD 2D 26 CD 7D 3C CD A4 26  3*c7.)3.-&.}<..&
000120: C3 80 23 CD 6B 2D 2A 73 37 22 9F 1C C9 3A 9E 37  ..#.k-*s7"...:.7
000130: FE FF C2 3B 33 3A E0 FB C3 72 19 E6 0F 32 E0 FB  ...;3:...r...2..
000140: C9 CD 9A 2D CD CE 1F C3 B9 2C CD 9A 2D CD CE 1F  ...-.....,..-...
000150: C3 C2 2C CD 9A 2D C3 13 2D EB 7D 2F 5F 7C 2F 2A  ..,..-..-.}/_|/*
000160: 65 37 A4 57 7D A3 5F 2A 63 37 EB 22 65 37 7D A3  e7.W}._*c7."e7}.
000170: 6F 7C A2 67 22 63 37 3E FF 32 A9 37 C9 7B B7 CA  o|.g"c7>.2.7.{..
000180: C2 97 32 3E FF 32 15 F6 CD 16 28 C2 97 32 CD F0  ..2>.2....(..2..
000190: 23 CD 87 25 C3 C0 24 CD B1 2F EB 2A 19 F6 01 08  #..%..$../.*....
0001A0: 00 09 EB 1A E6 E0 C2 AB 32 3E 80 32 E4 37 F5 CD  ........2>.2.7..
0001B0: 99 2F F1 77 CD 42 2F 70 CD 19 36 CD 2B 25 C8 0E  ./.w.B/p..6.+%..
0001C0: 08 CD 12 30 B7 C2 D2 32 3A E4 37 77 CD 9A 21 CD  ...0...2:.7w..!.
0001D0: 41 21 0E 50 CD 7B 31 0E 20 CD 32 30 C0 CD E2 2F  A!.P.{1. .20.../
0001E0: C3 57 2A 3E 08 4F 32 A0 1C CD C0 24 C3 B8 1C CD  .W*>.O2....$....
0001F0: 7D 3C C3 52 26 2A 65 37 C3 29 33 3A A4 37 C3 72  }<.R&*e7.)3:.7.r

Size : 512 (Real : 512)
000000: 3A 83 37 3C 4F 05 CA 0D 2A 81 C3 05 2A C1 41 4F  :.7<O...*...*.AO
000010: 3A 9C 37 B7 CA 1C 2A 78 B9 DA 1D 2A 79 E1 C1 70  :.7...*x...*y..p
000020: C1 21 99 37 56 90 BA D2 2B 2A 57 79 2F A2 32 98  .!.7V...+*Wy/.2.
000030: 37 CA 6F 29 F5 3A 9C 37 B7 CA 42 2A CD 20 34 CD  7.o).:.7..B*. 4.
000040: B6 21 F1 67 CD 9D 1E 7C FE 01 4F C4 45 FC AF C9  .!.g...|..O.E...
000050: CD 4B 20 E6 7F 77 C9 CD 4B 20 E6 40 F5 7E F6 40  .K ..w..K .@.~.@
000060: 77 F1 C9 3E 00 32 9C 37 CD 39 20 3A B6 37 B7 3E  w..>.2.7.9 :.7.>
000070: 03 C2 E5 32 3A B5 37 B7 3E 03 C2 E5 32 2A DB FB  ...2:.7.>...2*..
000080: 86 FE 80 DA 88 29 3E 80 C5 46 36 7F C5 E5 F5 3A  .....)>..F6....:
000090: 83 37 5F 1C 2F A0 47 E1 3A 9C 37 B7 CA A7 29 3A  .7_./.G.:.7...):
0000A0: A5 37 A2 BC DA A8 29 7C 90 4F BB DA 1C 2A C5 CD  .7....)|.O...*..
0000B0: A4 1E 47 3A 9F 37 B8 5F CA FD 29 4F C5 06 00 CD  ..G:.7._..)O....
0000C0: CC 1E E5 03 CD CC 1E D1 13 7A 94 57 7B 95 B2 CA  .........z.W{...
0000D0: C2 29 7C B5 C2 F5 29 3A 9C 37 B7 C2 F5 29 2A 85  .)|...):.7...)*.
0000E0: 37 7D 93 7C 9A DA F5 29 C5 D5 42 4B CD 4E 22 E1  7}.|...)..BK.N".
0000F0: C1 1F D2 C2 29 0D D1 7A B9 DA FD 29 79 93 47 04  ....)..z...)y.G.
000100: 3A A8 37 21 A5 37 BE DA 19 29 FE 80 C2 76 19 CD  :.7!.7...)...v..
000110: 71 28 3A 9F 1C B7 C2 76 19 CD D5 1C CD E0 1E CA  q(:....v........
000120: 76 19 CD F2 1E CD 4D 29 DA 82 1F C2 3F 29 CD B6  v.....M)....?)..
000130: 21 CD 0C 1E 3E 01 CD 54 FC CD 93 1D C3 82 1F 21  !...>..T.......!
000140: 00 00 22 96 37 3E 01 CD FF 37 C3 82 1F 3A 93 37  ..".7>...7...:.7
000150: 47 3A 90 37 4F A0 F5 3A 98 37 FE 02 DA 68 29 3D  G:.7O..:.7...h)=
000160: 32 98 37 F1 37 C0 AF C9 F1 CA 72 29 79 B7 C8 F6  2.7.7.....r)y...
000170: 01 C9 79 2F 57 21 A8 37 3A 99 37 FE 02 DA 6C 29  ..y/W!.7:.7...l)
000180: E5 C5 CD 3D 27 C1 E1 3A 9F 1C 3C C8 3E 1F A1 77  ...='..:..<.>..w
000190: 23 23 7E 32 A7 37 C2 A0 28 34 7E E6 3F CA C9 28  ##~2.7..(4~.?..(
0001A0: CD 03 28 CD 83 3C C2 B9 28 3A 9C 37 3C CA C9 28  ..(..<..(:.7<..(
0001B0: CD 16 28 CA C9 28 C3 BC 28 CD DE 26 CD 41 21 CD  ..(..(..(..&.A!.
0001C0: 58 1F AF 32 A8 37 C3 72 19 CD 4B 20 3A A7 37 77  X..2.7.r..K :.7w
0001D0: 2B 2B 7E 3D E6 1F 77 C3 76 19 34 CD 97 23 4F BE  ++~=..w.v.4..#O.
0001E0: D2 EC 28 35 3A 9C 37 3C CA 76 19 34 CD 2D 27 CD  ..(5:.7<.v.4.-'.
0001F0: FD 26 C3 BC 28 CD EE 21 3E FF 32 9C 37 CD 58 1F  .&..(..!>.2.7.X.

Size : 512 (Real : 512)
000000: 1F C3 F5 28 CD 9A 2D CD CE 1F C3 63 2A CD 18 1F  ...(..-....c*...
000010: 32 B3 37 CD 5A 20 CD 54 20 CD 90 2D CD 2D 26 CD  2.7.Z .T ..-.-&.
000020: 03 28 CD DA 26 CD F8 21 B7 CA 33 32 CD 97 23 BE  .(..&..!..32..#.
000030: D2 E3 32 F5 CD 40 30 CA 59 32 CD 73 2E E6 80 CA  ..2..@0.Y2.s....
000040: 59 32 CD 83 2F CA 59 32 CD D7 2F CA 59 32 CD 85  Y2../.Y2../.Y2..
000050: 2E 3A E4 37 E6 C0 C2 DF 2E F1 D4 16 28 CD F8 21  .:.7........(..!
000060: C8 CD 41 21 CD 73 2E E6 80 CA D2 32 3A B3 37 E6  ..A!.s.....2:.7.
000070: 40 CA D2 32 CD 40 30 C2 D2 32 CD 24 25 CD 83 2F  @..2.@0..2.$%../
000080: 2F 11 90 FB C3 08 20 CD 9A 2D CD 41 21 CD D8 1F  /..... ..-.A!...
000090: CD 3D 27 3A 9F 1C 3C C8 C3 1A 34 EB AF F5 7E FE  .=':..<...4...~.
0000A0: 3F C2 AF 31 CD 6B 2D CD E9 2D 0E 00 C3 C3 31 CD  ?..1.k-..-....1.
0000B0: 3F 1F 7E FE 3F CA BE 31 CD 5A 20 CD 54 20 CD 90  ?.~.?..1.Z .T ..
0000C0: 2D 0E 0F F1 F5 CA DA 31 2A E1 FB E5 3E FC A5 6F  -......1*...>..o
0000D0: 22 E1 FB CD 92 21 E1 22 E1 FB F1 21 C3 21 E5 CA  "....!."...!.!..
0000E0: F7 23 3A E5 FB 4F CD DD 23 C3 03 24 EB 22 A0 37  .#:..O..#..$.".7
0000F0: F6 01 C3 9D 31 CD 7D 3C C3 36 25 CD 9A 2D CD CE  ....1.}<.6%..-..
000100: DB FB 11 0A 00 19 7E E6 80 C2 12 31 32 B5 37 C3  ......~....12.7.
000110: C0 24 CD 41 21 CD 73 2E E6 80 CA 76 31 CD 40 30  .$.A!.s....v1.@0
000120: C2 4E 31 CD 10 30 B7 C2 4E 31 7E E6 C0 CA 76 31  .N1..0..N1~...v1
000130: CD 24 25 CD 83 2F C2 57 31 CD 2B 25 C8 CD 10 30  .$%../.W1.+%...0
000140: B7 C2 76 31 77 CD 1A 20 CC 9A 21 C3 76 31 CD 24  ..v1w.. ..!.v1.$
000150: 25 CD 83 2F CA 72 31 CD 02 2F CA 72 31 CD 85 2E  %../.r1../.r1...
000160: 3A E4 37 E6 C0 CA 72 31 E6 80 C2 DF 2E 3E 80 32  :.7...r1.....>.2
000170: B6 37 CD 2B 25 C8 CD 41 21 0E 40 CD 32 30 CC DD  .7.+%..A!.@.20..
000180: C3 72 19 21 FF FF CD 5A 33 AF 32 DA FB 21 80 00  .r.!...Z3.2..!..
000190: 22 D8 FB C3 B6 21 CD 67 2D 3A A4 37 32 DA FB C9  "....!.g-:.72...
0001A0: CD 54 20 CD 90 2D CD 2D 26 3A E0 FB B7 CA B9 30  .T ..-.-&:.....0
0001B0: 3E FE 32 18 F6 3C 32 BD 37 CD DA 26 CD E7 30 21  >.2..<2.7..&..0!
0001C0: BD 37 BE C8 77 3A 18 F6 FE FE C8 CD 0A 28 3E 80  .7..w:.......(>.
0001D0: 32 B5 37 2A DB FB 36 00 0E 0F CD DD 23 CD 03 24  2.7*..6.....#..$
0001E0: CD DD 26 CD E7 30 C9 CD F8 21 C8 CD 4F 1F 7E 3C  ..&..0...!..O.~<
0001F0: C2 F7 30 1B 1B 1A 77 E1 3A B5 37 17 D2 12 31 2A  ..0...w.:.7...1*

Size : 512 (Real : 512)
000000: C0 04 C9 21 FF FF 22 17 F6 C9 2A 17 F6 3E FC A5  ...!.."...*..>..
000010: 6F 2B 22 E1 FB C9 CD 76 3C CD FB 21 C4 0A 28 2A  o+"....v<..!..(*
000020: DB FB E5 21 62 37 22 DB FB 0E 01 CD DD 23 CD 03  ...!b7"......#..
000030: 24 E1 22 DB FB C8 3A 15 F6 B7 C0 11 0D 00 19 72  $."...:........r
000040: 23 7E F5 E5 E6 3F 77 23 3E 01 0E 11 72 23 0D C2  #~...?w#>...r#..
000050: 4C 28 3D 4A CC 12 30 B7 0E 0A CA 4C 28 CD 76 20  L(=J..0....L(.v 
000060: 0E 00 11 20 00 CD F9 25 E1 F1 77 CD C8 3B C3 62  ... ...%..w..;.b
000070: 20 CD DC 1C CD 3F 1F 7E 4F 0C CD 86 23 CA DA 28   ....?.~O...#..(
000080: B7 1A C2 86 27 77 B7 C2 8C 27 7E 12 BE C2 F2 27  ....'w...'~....'
000090: C3 A8 27 CD 1F 27 EB CD 1F 27 EB 1A BE C2 F2 27  ..'..'...'.....'
0000A0: 13 23 1A BE C2 F2 27 0D 13 23 0D C2 78 27 EB 01  .#....'..#..x'..
0000B0: EC FF 09 E5 CD 97 23 D1 CD F8 27 77 12 C5 01 03  ......#...'w....
0000C0: 00 09 EB 09 C1 05 CA D9 27 05 CA DA 27 1A BE DA  ........'...'...
0000D0: D9 27 B7 C2 DA 27 CD 15 27 EB 1A 77 CD 40 20 11  .'...'..'..w.@ .
0000E0: 0B 00 19 7E E6 7F 77 CD 62 20 0E 01 CD 90 22 C3  ...~..w.b ....".
0000F0: 9A 21 CD DD 21 C3 C0 24 06 01 BE C0 04 EB BE EB  .!..!..$........
000100: 21 03 00 19 1A 91 CA 12 27 78 D2 10 27 3E 80 B6  !.......'x..'>..
000110: 77 C9 7E B7 C0 36 00 3A 9F 37 B7 C8 36 80 C9 7E  w.~..6.:.7..6..~
000120: 23 B6 2B C0 1A 77 13 23 1A 77 1B 2B C9 E5 11 03  #.+..w.#.w.+....
000130: 00 19 7E FE 81 DA 3B 27 E6 7F 77 E1 C9 AF 32 9F  ..~...;'..w...2.
000140: 1C CD 1A 20 C0 CD 4B 20 E6 80 C0 CD E8 21 CA F2  ... ..K .....!..
000150: 27 CD FC 3B 4F 46 C5 71 CD 2D 27 79 B8 DC FD 26  '..;OF.q.-'y...&
000160: CD 6C 27 CD 3F 1F C1 4E 70 C3 FD 26 CD F0 23 C8  .l'.?..Np..&..#.
000170: 01 10 00 CD 67 35 0E 10 3A A3 37 B7 CA 93 27 7E  ....g5..:.7...'~
000180: 24 CD F5 23 C8 CD 28 20 0E 10 1E 0C CD F7 25 CD  $..#..( ......%.
000190: C8 3B CD 03 24 C2 88 26 CD 08 25 CA 80 23 CD 48  .;..$..&..%..#.H
0001A0: 26 C3 88 26 CD 18 1F 32 B3 37 CD 78 2E C4 85 2E  &..&...2.7.x....
0001B0: CD F5 23 C8 0E 00 1E 0C CD 10 26 CD 29 1D 3A B3  ..#.......&.).:.
0001C0: 37 E6 40 CA CE 26 E5 CD 4F 1F 7E E1 23 77 CD 9A  7.@..&..O.~.#w..
0001D0: 21 CD 03 24 CA 80 23 C3 B4 26 CD 83 3C C8 CD 62  !..$..#..&..<..b
0001E0: 20 5F E5 2B 2B 56 D5 CD 40 20 EB 2A DB FB 0E 20   _.++V..@ .*... 
0001F0: CD 29 1D CD 97 23 4F D1 E1 73 2B 2B 72 06 00 EB  .)...#O..s++r...

Size : 512 (Real : 512)
000000: C2 29 1D E1 C9 CD 40 20 09 11 75 19 D5 C3 ED 2F  .)....@ ..u..../
000010: 0E 08 3A E1 FB E6 03 FE 03 C8 47 2A 67 37 11 60  ..:.......G*g7.`
000020: 00 19 7E D6 21 C0 78 87 5F 87 87 83 3C 81 5F 19  ..~.!.x._...<._.
000030: AF C9 CD 40 30 C0 2A 6F 37 79 A6 C2 1A 20 3C C9  ...@0.*o7y... <.
000040: 3A 84 37 F6 E0 2F 47 CD 3F 1F 7E A0 C0 23 23 7E  :.7../G.?.~..##~
000050: E6 3F C9 0E 20 CD 36 30 C0 CD 4B 20 E6 40 C0 CD  .?.. .60..K .@..
000060: 3F 1F 46 36 00 E5 23 23 4E 36 00 C5 CD F0 23 C4  ?.F6..##N6....#.
000070: E2 2F AF 32 9F 1C C1 E1 70 23 23 71 C9 3A A1 FB  ./.2....p##q.:..
000080: 2F 23 C9 2A DB FB 7E F5 F6 10 77 CD F5 23 3E 00  /#.*..~...w..#>.
000090: 32 9F 1C 2A DB FB C1 70 C8 CD 40 20 EB 21 0C 00  2..*...p..@ .!..
0000A0: 19 7E E6 E0 F6 01 C9 E5 2A 19 F6 19 22 19 F6 E1  .~......*..."...
0000B0: C9 CD 76 20 01 14 10 C5 CD 40 20 EB 2A DB FB EB  ..v .....@ .*...
0000C0: 1A B0 77 13 23 0E 0B CD 29 1D C1 0C 0D C8 36 00  ..w.#...).....6.
0000D0: 23 C3 CC 2F CD 99 2F E5 CD 02 2F E1 C9 0E 00 C3  #../../.../.....
0000E0: E4 2F 0E 04 CD 12 30 B7 C0 11 9A 21 D5 11 F4 FB  ./....0....!....
0000F0: E5 D5 0E 00 CD 4E FC 0E 04 CD 1F 1D 0E 04 D1 E1  .....N..........
000100: FB C9 23 46 78 B7 C2 1D 2F 54 5D 23 23 0E 09 23  ..#Fx.../T]##..#
000110: 7E 0D C8 B7 CA 0F 2F FE 20 CA 0F 2F EB 11 0A 00  ~...../. ../....
000120: 19 EB 2A 19 F6 0E 08 1A A8 BE C2 34 2F 1B 23 0D  ..*........4/.#.
000130: C2 27 2F C9 1B 0D C2 34 2F 13 21 E7 37 0E 08 C3  .'/....4/.!.7...
000140: 1F 1D E5 01 08 00 11 0B 00 19 EB 2A 19 F6 AF F5  ...........*....
000150: 7E 12 B7 CA 5E 2F FE 20 CA 5E 2F 33 33 F5 80 47  ~...^/. .^/33..G
000160: 1B 23 0D C2 50 2F F1 B0 E1 C2 76 2F 3A DF FB FE  .#..P/....v/:...
000170: 64 CA 76 2F 36 00 13 0E 08 1A A8 12 13 0D C2 79  d.v/6..........y
000180: 2F C8 C3 02 2F AF 32 18 F6 CD 40 20 EB 0E 0C 21  /.../.2...@ ...!
000190: D7 37 E5 CD 29 1D 1A 23 77 D1 2A DB FB 7E 12 E5  .7..)..#w.*..~..
0001A0: EB 22 DB FB CD F0 23 CA E4 2E CD 10 30 B7 C2 D2  ."....#.....0...
0001B0: 2E EB 21 E4 37 46 1A 77 B7 CA E4 2E A8 E6 E0 CA  ..!.7F.w........
0001C0: D2 2E CD 83 2F CA D2 2E 3A E4 37 77 CD 1A 20 CC  ..../...:.7w.. .
0001D0: 9A 21 E1 22 DB FB 3A DF FB FE 0F C8 FE 16 C8 3E  .!."..:........>
0001E0: 07 C3 E5 32 AF 32 E4 37 CD 1A 20 C2 FD 2E CD 83  ...2.2.7.. .....
0001F0: 2F F5 2A DB FB 7E F6 10 77 F1 C4 87 25 E1 22 DB  /.*..~..w...%.".

Size : 512 (Real : 512)
000000: 21 7E A0 C5 47 1A E6 7F B0 77 C1 23 13 C3 FD 25  !~..G....w.#...%
000010: D5 06 00 2A DB FB 09 23 7E D6 24 CC 25 26 2B EB  ...*...#~.$.%&+.
000020: CD 40 20 C1 C9 11 B3 FB 1A F6 01 12 C9 2A DB FB  .@ ..........*..
000030: CD 39 26 C0 3E 09 C3 E5 32 0E 0B 23 3E 3F 96 E6  .9&.>...2..#>?..
000040: 7F C8 0D C2 3B 26 B7 C9 2A DB FB 7E 01 10 00 09  ....;&..*..~....
000050: 77 C9 CD 2D 26 CD 78 2E C4 85 2E CD FD 24 CD 48  w..-&.x......$.H
000060: 26 22 A0 37 CD 30 26 0E 0C 2A A0 37 CD E3 23 CD  &".7.0&..*.7..#.
000070: FA 23 C2 E3 32 CD 08 25 C4 8A 25 CD 48 26 CD FD  .#..2..%..%.H&..
000080: 24 C3 45 25 CD F5 23 CA 80 23 CD 40 20 7E E6 10  $.E%..#..#.@ ~..
000090: C2 9B 25 3A B3 37 E6 80 C2 9D 25 36 E5 F5 CD 10  ..%:.7....%6....
0000A0: 30 B7 C2 A6 25 77 CD 9A 21 0E 00 F1 CC 8B 22 CD  0...%w..!.....".
0000B0: C8 3B CD 03 24 C3 87 25 50 59 2A 85 37 7B 95 7A  .;..$..%PY*.7{.z
0000C0: 9C D2 EE 25 13 C5 D5 42 4B CD 4E 22 1F D2 E6 25  ...%...BK.N"...%
0000D0: D1 C1 79 B0 CA BA 25 0B D5 C5 CD 4E 22 1F D2 E6  ..y...%....N"...
0000E0: 25 C1 D1 C3 BA 25 17 3C CD 70 22 E1 D1 C9 79 B0  %....%.<.p"...y.
0000F0: C2 D2 25 21 00 00 C9 16 80 CD 10 26 0C 0D CA 9A  ..%!.......&....
000100: 16 F6 3E FE 32 18 F6 C9 3A 18 F6 FE FE C8 CD 0A  ..>.2...:.......
000110: 28 AF CD FF 24 2A A0 37 7E F6 10 77 0E 0C CD E3  (...$*.7~..w....
000120: 23 C3 03 24 2A E1 FB 22 17 F6 C9 CD 0A 28 0E 0F  #..$*..".....(..
000130: CD DD 23 C3 03 24 CD 18 1F 32 B3 37 3E FE CD FF  ..#..$...2.7>...
000140: 24 CD F5 23 C8 CA 84 25 CD 40 20 7E E6 10 C2 6B  $..#...%.@ ~...k
000150: 25 3A B3 37 17 D4 28 20 CD 73 2E 17 DA 7E 25 2A  %:.7..( .s...~%*
000160: DB FB CD 39 26 CA 7E 25 C3 8A 25 CD 73 2E 17 D2  ...9&.~%..%.s...
000170: 7E 25 CD D4 2F CA 7E 25 CD 85 2E C3 3C 25 CD 03  ~%../.~%....<%..
000180: 86 23 47 3A BE 37 3C CA DE 24 AF 32 BD 37 78 C1  .#G:.7<..$.2.7x.
000190: B7 C2 03 24 13 23 04 0D C3 57 24 3A A2 37 3C C2  ...$.#...W$:.7<.
0001A0: AD 24 3A 18 F6 FE FE CC EA 24 C3 03 24 AF 32 9D  .$:......$..$.2.
0001B0: 37 32 9F 1C 47 04 C9 E6 3F C9 CD ED 24 CD 01 22  72..G...?...$.."
0001C0: 3E FF 47 04 C3 72 19 78 B7 C2 03 24 7E B7 C2 03  >.G..r.x...$~...
0001D0: 24 3A BD 37 B7 CA 03 24 32 BE 37 C3 94 24 B0 C1  $:.7...$2.7..$..
0001E0: 01 03 24 C5 C0 23 23 7E B7 C0 CD F5 24 E5 2A 17  ..$..##~....$.*.
0001F0: F6 24 C2 FB 24 2A E1 FB 22 17 F6 E1 C9 3E FF 32  .$..$*.."....>.2

Size : 512 (Real : 512)
000000: FB E5 CD 80 1D CD 01 22 0E 00 CD 0E 22 21 DE FB  ......."...."!..
000010: 7E B7 CA 24 2E 36 00 E1 3A DF FB FE 30 C8 CD 33  ~..$.6..:...0..3
000020: 21 C3 13 21 CD 69 20 DA 08 2E E1 22 E1 FB C9 21  !..!.i ...."...!
000030: F0 FB 7E B7 C8 36 00 2A 65 37 3E 10 3D 29 D2 51  ..~..6.*e7>.=).Q
000040: 2E F5 E5 21 A9 37 CD 51 2D CD 58 2E C4 F5 2D E1  ...!.7.Q-.X...-.
000050: F1 B7 C2 3C 2E C3 6B 2D 2A 7B 37 7D A4 3C C8 5E  ...<..k-*{7}.<.^
000060: 23 56 7B B2 C8 21 04 00 19 7E B7 C0 21 0D 00 19  #V{..!...~..!...
000070: C3 5F 2E 2A 6F 37 7E C9 CD 73 2E E6 80 C8 CD 83  ._.*o7~..s......
000080: 71 37 7E E6 01 F5 86 77 F1 C4 E8 20 CD 05 20 C9  q7~....w... .. .
000090: AF 32 B5 37 32 B6 37 C3 B9 2D 01 7F 80 2A DB FB  .2.72.7..-...*..
0000A0: 11 07 00 EB 19 7E A0 32 B6 37 7E A1 77 23 7E A0  .....~.2.7~.w#~.
0000B0: 32 B5 37 7E A1 77 CD 5A 20 21 00 00 22 15 F6 22  2.7~.w.Z !..".."
0000C0: 17 F6 AF 32 BD 37 3D 32 DD FB 2A DB FB 7E 32 BF  ...2.7=2..*..~2.
0000D0: 37 E6 1F 3D 32 9E 37 FE FF CA DF 2D 32 A4 37 CD  7..=2.7....-2.7.
0000E0: 6B 2D 3A E0 FB 2A DB FB 77 CD F5 20 CC 58 21 CD  k-:..*..w.. .X!.
0000F0: F5 2D C3 2F 2E CD 0C 21 C8 36 00 CD 58 21 2A E1  .-./...!.6..X!*.
000100: 96 57 23 78 9E 23 F5 B2 57 F1 7B 9E C9 73 2B 70  .W#x.#..W.{..s+p
000110: 2B 71 C9 CD 37 1F E5 72 23 72 23 72 CD F5 23 CA  +q..7..r#r#r..#.
000120: 3E 2D CD 40 20 11 0F 00 CD CB 2C E1 E5 CD FE 2C  >-.@ .....,....,
000130: D4 0D 2D CD 03 24 3E 00 32 9F 1C C3 1F 2D E1 C9  ..-..$>.2....-..
000140: EB 11 20 00 CD CB 2C 21 21 00 19 71 23 70 23 77  .. ...,!!..q#p#w
000150: C9 32 AA 37 77 57 2A 65 37 CD 1D 20 5F D5 CD 33  .2.7wW*e7.. _..3
000160: 1D E1 D2 AB 1C 2D C9 21 A4 37 73 3A A4 37 21 A9  .....-.!.7s:.7!.
000170: 37 BE C2 78 2D FE FF C0 CD 51 2D C8 CD E8 22 2A  7..x-....Q-..."*
000180: 26 3A 9F 1C 3C C2 9C 2C D1 E1 C1 C5 E5 D5 2E 04  &:..<..,........
000190: 0C CA A9 2C CD 16 28 2E 05 CA A9 2C C1 C1 CD 41  ...,..(....,...A
0001A0: 21 CD DC 1C C1 AF C3 72 19 D1 E3 72 23 23 73 E1  !......r...r##s.
0001B0: CD DC 1C 3C C1 7D C3 72 19 0E FF CD E4 2B CC F5  ...<.}.r.....+..
0001C0: 28 C9 0E 00 CD E4 2B CC 63 2A C9 EB 19 4E 06 00  (.....+.c*...N..
0001D0: 21 0C 00 19 7E 0F E6 80 81 4F 3E 00 88 47 7E 0F  !...~....O>..G~.
0001E0: E6 0F 80 47 21 0E 00 19 7E 87 87 87 87 B7 80 47  ...G!...~......G
0001F0: F5 7E 1F 1F 1F 1F E6 03 6F F1 3E 00 8D C9 5F 79  .~......o.>..._y

Size : 512 (Real : 512)
000000: CC 80 1D AF 32 BE 37 CD 6B 3B C2 BA 24 0E 00 CD  ....2.7.k;..$...
000010: 08 22 CD F8 21 CA BA 24 2A A0 37 EB 1A FE E5 CA  ."..!..$*.7.....
000020: 2A 24 D5 CD 69 20 D1 D2 BA 24 CD 40 20 3A E5 FB  *$..i ...$.@ :..
000030: 4F 06 00 7E FE E5 CC ED 24 AF 32 A2 37 7E E6 EF  O..~....$.2.7~..
000040: BE CA 57 24 EB BE EB C2 57 24 3A 16 F6 B7 CA 03  ..W$....W$:.....
000050: 24 32 A2 37 C3 94 24 79 B7 CA 9B 24 1A FE 3F CA  $2.7..$y...$..?.
000060: 94 24 78 FE 0D CA 94 24 FE 0C CA 7C 24 FE 0E 1A  .$x....$...|$...
000070: CC B7 24 96 E6 7F C2 C7 24 C3 94 24 1A C5 4E CD  ..$.....$..$..N.
000080: 3A 9D 37 C3 72 19 C5 F5 3A 84 37 2F 47 79 A0 4F  :.7.r...:.7/Gy.O
000090: F1 A0 91 E6 1F C1 C9 CD 4F 1F 0E 10 41 0C C5 C1  ........O...A...
0000A0: 0D AF 2B 05 BE C2 AC 23 0D C2 A2 23 79 32 9F 37  ..+....#...#y2.7
0000B0: 3A A3 37 B7 78 C2 B9 23 1F C5 E5 6F 26 00 3A 82  :.7.x..#...o&.:.
0000C0: 37 57 3E 07 92 4F CD AB 1F 45 3A 84 37 B8 E1 DA  7W>..O...E:.7...
0000D0: 9F 23 CD 3F 1F 4E 2F E6 1F A1 B0 C1 C9 2A DB FB  .#.?.N/......*..
0000E0: 22 A0 37 79 32 E5 FB CD A6 3A 3E FF 32 9D 37 C9  ".7y2....:>.2.7.
0000F0: 0E 0F C3 F7 23 0E 0C CD DD 23 CD 01 22 CD F5 20  ....#....#..".. 
000100: 52 21 CD 58 21 CD DE 22 44 4D 2A 77 37 36 00 23  R!.X!.."DM*w76.#
000110: 0B 78 B1 C2 0D 23 2A 6F 37 77 2A 89 37 EB 2A 77  .x...#*o7w*.7.*w
000120: 37 73 23 72 CD 80 1D 2A 69 37 36 04 23 36 00 CD  7s#r...*i76.#6..
000130: 01 22 2A 7D 37 22 B1 37 0E FF CD 08 22 CD F8 21  ."*}7".7...."..!
000140: CA 6A 3C CD 40 20 EB 2A B1 37 7C A5 3C EB C4 8F  .j<.@ .*.7|.<...
000150: 3A 3E 21 BE CA 38 23 3E E5 BE CA 38 23 3E 20 BE  :>!..8#>...8#> .
000160: CA 74 23 3E 10 A6 C2 6E 23 0E 01 CD A6 22 CD 76  .t#>...n#....".v
000170: 20 C3 38 23 11 0C 00 19 7E 2A 6F 37 77 C3 6E 23   .8#....~*o7w.n#
000180: 54 5D 09 F1 CA 4B FC EB C3 4B FC C5 CD A6 22 C1  T]...K...K....".
000190: C5 CD DE 22 EB 2A 77 37 C1 E5 19 22 77 37 CD A6  ...".*w7..."w7..
0001A0: 22 E1 22 77 37 C9 CD 40 20 11 10 00 19 C5 0E 11  "."w7..@ .......
0001B0: D1 0D C8 D5 3A A3 37 B7 CA C3 22 C5 E5 4E 06 00  ....:.7..."..N..
0001C0: C3 C9 22 0D C5 4E 23 46 E5 79 B0 CA D8 22 2A 85  .."..N#F.y..."*.
0001D0: 37 7D 91 7C 98 D4 68 22 E1 23 C1 C3 B0 22 2A 85  7}.|..h".#..."*.
0001E0: 37 0E 03 CD AB 1F 23 C9 CD 0C 21 36 00 CD EB 1D  7.....#...!6....
0001F0: C2 FF 22 2A 71 37 BE 00 00 CA FF 22 C3 40 3C CD  .."*q7.....".@<.

Size : 512 (Real : 512)
000000: 0F 0F 47 7E E6 FC E1 2E 06 7C C2 B0 2C 21 20 00  ..G~.....|..,! .
000010: 19 77 3A DF FB FE 63 CA 6B 2C D5 CD E8 21 D1 CA  .w:...c.k,...!..
000020: 5B 2C 21 0E 00 19 78 96 E6 3F C2 5B 2C 21 0C 00  [,!...x..?.[,!..
000030: 19 7E B9 CA A4 2C CD 86 23 C2 5B 2C C5 CD 97 23  .~...,..#.[,...#
000040: C1 B9 D2 50 2C D1 D5 1C C2 50 2C 1C D1 C3 76 19  ...P,....P,...v.
000050: 71 4F CD 2D 27 CD FD 26 C3 A1 2C C5 D5 CD 3D 27  qO.-'..&..,...='
000060: D1 C1 2E 03 3A 9F 1C 3C CA B0 2C CD 03 28 21 0C  ....:..<..,..(!.
000070: 00 19 E5 56 71 23 23 7E 5F D5 E6 40 B0 77 CD DA  ...Vq##~_..@.w..
000080: 37 CD B6 21 D1 3A A8 37 57 D5 CD 4D 29 DA BA 2B  7..!.:.7W..M)..+
000090: CA 9B 2B 3E 02 CD FF 37 C3 BA 2B CD B6 21 CD 0C  ..+>...7..+..!..
0000A0: 1E 3E 01 CD 54 FC CD 4A 21 C1 C5 3A AB 37 21 83  .>..T..J!..:.7!.
0000B0: 37 A6 CA B7 2B 0E 00 CD 9E 1D C1 78 21 A5 37 BE  7...+......x!.7.
0000C0: DA C7 2B 77 34 0E 02 0D 0D C2 CF 2B CD 50 2A CD  ..+w4......+.P*.
0000D0: 57 2A C2 DE 2B CD 50 2A CD DC 1C C3 82 1F CD D5  W*..+.P*........
0000E0: 1C C3 82 1F C5 2A DB FB EB 21 21 00 19 7E E6 7F  .....*...!!..~..
0000F0: F5 7E 17 23 7E 17 E6 1F 4F 7E E6 F0 23 B6 0F 0F  .~.#~...O~..#...
000100: CD 46 20 73 C3 0F 2B 4F 06 00 09 09 73 23 72 0E  .F s..+O....s#r.
000110: 02 C5 CD F2 1E 3A DF FB FE 28 C2 84 2B 79 3D 3D  .....:...(..+y==
000120: C2 84 2B C1 F5 2A AB 37 E5 21 90 37 5E 1C 57 D5  ..+..*.7.!.7^.W.
000130: 2A 79 37 5E 23 56 EB E5 CD 78 3A D1 C2 37 2B EB  *y7^#V...x:..7+.
000140: 3D 32 94 37 77 CD BC 21 D1 D5 AF 77 23 14 F2 4B  =2.7w..!...w#..K
000150: 2B 57 1D C2 4B 2B 2A B1 37 0E 02 22 AB 37 C5 CD  +W..K+*.7..".7..
000160: 4A 21 CD 0C 1E AF CD 54 FC C1 CD 9E 1D 2A AB 37  J!.....T.....*.7
000170: D1 D5 19 3A 83 37 A5 0E 00 C2 5B 2B E1 E1 22 AB  ...:.7....[+..".
000180: CD 2B 20 CD EE 21 CD 53 30 CD 58 1F 3A A8 37 FE  .+ ..!.S0.X.:.7.
000190: 80 DA 9C 2A CD 71 28 3A 9F 1C B7 C0 CD E0 1E CA  ...*.q(:........
0001A0: BA 2A 21 AA 37 11 95 37 0E 03 CD 1F 1D CA B5 2A  .*!.7..7.......*
0001B0: 3E FF 32 94 37 0E 00 C3 11 2B CD DC 1C CD A4 1E  >.2.7....+......
0001C0: 32 9F 37 01 00 00 B7 CA D1 2A 4F 0B CD CC 1E 44  2.7......*O....D
0001D0: 4D CD B8 25 7D B4 C2 DE 2A 3E 02 C3 72 19 22 AB  M..%}...*>..r.".
0001E0: 37 22 96 37 AF 32 94 37 3A AA 37 32 95 37 EB 2A  7".7.2.7:.72.7.*
0001F0: DB FB 01 10 00 09 3A A3 37 B7 3A 9F 37 CA 07 2B  ......:.7.:.7..+

Size : 512 (Real : 512)
000000: C9 21 FF FF 22 E1 FB C9 CD 0E 22 C3 40 22 2A 87  .!..".....".@"*.
000010: 37 EB 2A E1 FB 23 22 E1 FB CD 7F 20 DA 01 22 3A  7.*..#".... ..":
000020: E1 FB E6 03 06 05 87 05 C2 26 22 32 B7 37 B7 C0  .........&"2.7..
000030: C5 CD 92 21 C1 3A DE FB B7 C0 C3 88 20 CD 30 22  ...!.:...... .0"
000040: 3A DE FB B7 C8 CD 13 21 CD 2B 21 C3 92 21 79 E6  :......!.+!..!y.
000050: 07 3C 5F 57 60 69 0E 03 CD AB 1F 44 4D 2A 77 37  .<_W`i.....DM*w7
000060: 09 7E 07 1D C2 62 22 C9 D5 CD 4E 22 E6 FE C1 B1  .~...b"...N"....
000070: 0F 15 C2 70 22 77 C9 F5 CD DE 22 44 4D 2A 77 37  ...p"w...."DM*w7
000080: 65 21 D5 11 0A 00 19 5E 23 56 23 7E 32 FA 37 EB  e!.....^#V#~2.7.
000090: D1 C9 CD F5 1D 3E 03 C3 A2 21 CD 39 20 CD 86 20  .....>...!.9 .. 
0000A0: 3E 05 21 00 00 22 96 37 2A 79 37 FE 05 C2 B3 21  >.!..".7*y7....!
0000B0: 2A F0 37 CD 58 38 2A D8 FB C3 BF 21 CD 82 21 22  *.7.X8*....!..!"
0000C0: 1B F6 C9 2A 67 37 EB 2A 19 F6 01 80 00 CD 4B FC  ...*g7.*......K.
0000D0: 21 9F 1C 7E 3C C8 3A E1 FB E6 03 77 C9 CD 62 20  !..~<.:....w..b 
0000E0: 23 23 3E FF 77 23 77 C9 CD C4 1E C3 FB 21 CD E8  ##>.w#w......!..
0000F0: 21 C0 E1 3E 09 C3 72 19 21 E1 FB 7E 23 BE C0 3C  !..>..r.!..~#..<
000100: FB 47 7E B8 C8 23 B7 C2 02 21 3C C9 2A 71 37 23  .G~..#...!<.*q7#
000110: 7E B7 C9 21 3B 37 E5 21 CD 37 CD FE 20 CA F9 1F  ~..!;7.!.7.. ...
000120: 21 D4 37 CD FE 20 CA C0 24 E1 C9 21 DE FB 7E B7  !.7.. ..$..!..~.
000130: C8 36 00 CD 6B 2D 21 00 00 22 E1 FB AF 32 B7 37  .6..k-!.."...2.7
000140: C9 2A 71 37 4E CD 31 1F 71 C9 2A 7B 37 0E 04 C3  .*q7N.1.q.*{7...
000150: 5D 21 2A 7B 37 C3 5B 21 2A 79 37 0E 01 7D A4 3C  ]!*{7.[!*y7..}.<
000160: C8 5E 23 56 EB E5 C5 11 AA 37 CD 1F 1D C1 E1 C2  .^#V.....7......
000170: 74 21 36 FF 11 0D 00 19 5E 23 56 EB 7D B4 C8 C3  t!6.....^#V.}...
000180: 95 6F 7A 9C 67 C9 0E FE 2A 91 37 EB 2A 8B 37 7C  .oz.g...*.7.*.7|
000190: E6 7F 67 CD 7F 20 D0 C5 CD B8 1F 2A 75 37 EB 2A  ..g.. .....*u7.*
0001A0: 91 37 19 C1 0C CA C6 20 0C CA D1 20 BE C8 CD 1A  .7..... ... ....
0001B0: 20 00 CD 52 21 3E FF 32 DE FB 32 9C FB CD E8 20   ..R!>.2..2.... 
0001C0: CD 05 20 C3 5A 33 BE 77 C8 2A 71 37 3E 01 B6 77  .. .Z3.w.*q7>..w
0001D0: C9 77 C9 3A A4 37 11 63 37 CD 0B 20 2A 87 37 23  .w.:.7.c7.. *.7#
0001E0: EB 2A 69 37 73 23 72 C9 2A 90 FB CD 1D 20 C8 11  .*i7s#r.*.... ..
0001F0: 92 FB C3 08 20 3A 8C 37 E6 80 C0 21 C0 37 3A DF  .... :.7...!.7:.

Size : 512 (Real : 512)
000000: 3E 17 32 2B 1C 32 2A 1C C3 01 16 C5 CD 6A 14 C1  >.2+.2*......j..
000010: E1 E5 C5 78 B7 CA 2E 18 23 4E 05 D1 D5 7A 90 57  ...x....#N...z.W
000020: C5 E5 3A BE 19 BA DC 13 14 E1 C1 C3 13 18 E5 3A  ..:............:
000030: BC 19 B7 CA 01 16 21 B7 FB 96 32 BC 19 CD 57 14  ......!...2...W.
000040: 21 BC 19 35 C2 3D 18 CD 5E 15 C3 01 16 F5 78 B9  !..5.=..^.....x.
000050: DA 5E 18 F1 C5 E5 0E 07 CD 7A FB C3 01 16 3A BF  .^.......z....:.
000060: 19 FE 07 CA 6D 18 3A 2A 1C B7 C4 3B 15 F1 23 77  ....m.:*...;..#w
000070: 04 C5 E5 4F CD 14 15 CD 13 14 E1 C1 3A BF 19 FE  ...O........:...
000080: 1C B7 C4 1B 15 CD 82 14 CD 5E 15 AF 32 BD 19 C3  .........^..2...
000090: 01 16 FE 10 C2 A2 17 E5 C5 AF CD A0 13 C1 E1 C3  ................
0000A0: FF 15 FE 18 C2 C4 17 E1 3A BD 19 21 B7 FB BE DA  ........:..!....
0000B0: BD 17 2A 28 1C 7E B7 C2 DD 15 C3 D7 15 35 CD 57  ..*(.~.......5.W
0000C0: 14 C3 A8 17 FE 15 C2 D5 17 E3 CD D8 14 E3 CD 6A  ...............j
0000D0: 14 E1 C3 D7 15 FE 12 C2 4D 18 AF 32 BE 19 EB CD  ........M..2....
0000E0: A8 15 EB 78 B7 CA CE 17 EB 2A 28 1C 04 05 CA F8  ...x.....*(.....
0000F0: 17 2B 1A 77 1B C3 ED 17 22 28 1C C5 D5 CD 6A 14  .+.w...."(....j.
000100: CA 01 16 0E 08 CD CD 13 C3 F8 16 FE 0B C2 1E 17  ................
000110: EB 21 25 1C 22 28 1C EB CD 5E 15 C3 FF 15 FE 07  .!%."(...^......
000120: C2 2D 17 3A 2A 1C B7 CA FF 15 C3 24 16 FE 08 C2  .-.:*......$....
000130: 50 17 3A CA FB 3C CA 5C 17 3A BD 19 57 3A B7 FB  P.:..<.\.:..W:..
000140: BA CA FF 15 32 BC 19 78 B7 CA 4D 17 05 C3 0B 18  ....2..x..M.....
000150: FE 7F C2 73 17 3A CB FB 3C CA 39 17 3E 7F 32 BF  ...s.:..<.9.>.2.
000160: 19 3A 2A 1C B7 C2 39 17 78 B7 CA FF 15 7E 05 2B  .:*...9.x....~.+
000170: C3 71 18 FE 05 C2 92 17 C5 78 32 BE 19 E5 3A 2A  .q.......x2...:*
000180: B3 15 2A 26 1C 7E B7 32 2B 1C CA 6F 16 23 22 26  ..*&.~.2+..o.#"&
000190: 1C 21 2B 1C 36 17 EB C3 4D 18 FE 01 C2 C5 16 3A  .!+.6...M......:
0001A0: BD 19 57 3A B7 FB BA CA FF 15 32 BC 19 78 B7 CA  ..W:......2..x..
0001B0: 0B 18 05 E5 CD BA 15 D1 2A 28 1C 2B 22 28 1C 1A  ........*(.+"(..
0001C0: 77 EB C3 0B 18 FE 02 C2 0B 17 3A BE 19 B8 C2 DC  w.........:.....
0001D0: 16 3E 17 32 2A 1C 32 BF 19 C3 3A 16 EB 2A 28 1C  .>.2*.2...:..*(.
0001E0: 04 05 3A BE 19 B8 CA F0 16 2B 1A 77 1B C3 E1 16  ..:......+.w....
0001F0: 22 28 1C C5 D5 CD BA 15 3A B7 FB 47 3A BD 19 B8  "(......:..G:...

Size : 512 (Real : 512)
000000: C8 29 C3 FF 1F 11 65 37 3A A9 37 4F 21 01 00 CD  .)....e7:.7O!...
000010: FE 1F 1A B5 12 13 1A B4 12 C9 2A 63 37 3A A9 37  ..........*c7:.7
000020: 4F CD AB 1F 7D E6 01 C9 CD 40 20 CD 32 20 D0 C3  O...}....@ .2 ..
000030: A6 1C 11 09 00 19 7E 17 C9 CD 1A 20 C8 C3 A1 1C  ......~.... ....
000040: 2A 67 37 3A B7 37 85 6F D0 24 C9 2A DB FB 11 0E  *g7:.7.o.$.*....
000050: 00 19 7E C9 CD 4B 20 36 00 C9 CD 3F 1F 7E E6 1F  ..~..K 6...?.~..
000060: 77 C9 CD 4B 20 F6 80 77 C9 2A E1 FB EB 2A 69 37  w..K ..w.*...*i7
000070: 7B 96 23 7A 9E C9 CD 69 20 D8 13 72 2B 73 C9 7B  {.#z...i ..r+s.{
000080: 37 C9 CD 4F 1F 3A A8 37 77 3A DF FB FE 16 D2 92  7..O.:.7w:......
000090: 1F 34 EB 7E FE 80 D0 3A A5 37 77 C9 CD 3F 1F 72  .4.~...:.7w..?.r
0000A0: 23 23 72 C9 70 23 0D C8 C3 A4 1F 0C 0D C8 7C B7  ##r.p#........|.
0000B0: 1F 67 7D 1F 6F C3 AC 1F 2A 67 37 01 04 00 16 20  .g}.o...*g7.... 
0000C0: AF 86 23 15 C2 C1 1F A8 47 0D C2 BE 1F C9 CD 31  ..#.....G......1
0000D0: 1F 2A 71 37 BE C4 E3 1F 3A B5 37 B7 C8 2A DB FB  .*q7....:.7..*..
0000E0: AF 77 C9 2A 1E F6 EB 2A FE FB CD 7F 20 D2 F7 1F  .w.*...*.... ...
0000F0: 2A 92 FB CD 1D 20 C8 E1 E1 3E 0A C3 72 19 0C 0D  *.... ...>..r...
000100: 32 AD 37 22 B1 37 3A 83 37 4F 3A A8 37 A1 47 32  2.7".7:.7O:.7.G2
000110: 93 37 21 AB 37 B6 77 C9 2A DB FB 11 08 00 19 0E  .7!.7.w.*.......
000120: 04 7E 87 F5 7A 1F 57 F1 0F 77 2B 0D C2 21 1F 7A  .~..z.W..w+..!.z
000130: C9 CD 3F 1F 23 7E C9 2A DB FB 11 21 00 19 C9 2A  ..?.#~.*...!...*
000140: DB FB 11 0C 00 19 C9 2A DB FB 11 0F 00 19 C9 CD  .......*........
000150: 47 1F EB 21 11 00 19 C9 CD 4F 1F 7E 32 A8 37 EB  G..!.....O.~2.7.
000160: 7E B7 C2 6D 1F CD 97 23 4F CD FD 26 7E FE 81 DA  ~..m...#O..&~...
000170: 74 1F 3E 80 32 A5 37 CD 3F 1F 3A 84 37 A6 32 A6  t.>.2.7.?.:.7.2.
000180: 67 CD 9D 1E 44 4D 2A 9A 37 EB CD 30 FC 4D 44 22  g...DM*.7..0.MD"
000190: FD 37 CD 21 FC 2A 1B F6 4D 44 C3 24 FC 3A 8F 37  .7.!.*..MD.$.:.7
0001A0: 4F C3 AB 1F 21 82 37 4E 3A A8 37 B7 1F 0D C2 AB  O...!.7N:.7.....
0001B0: 1E 47 3E 08 96 4F 3A A6 37 0D CA C2 1E B7 17 C3  .G>..O:.7.......
0001C0: B9 1E 80 C9 2A DB FB 11 10 00 19 C9 CD C4 1E 09  ....*...........
0001D0: 3A A3 37 B7 CA DA 1E 6E 60 C9 09 7E 23 66 6F C9  :.7....n`..~#fo.
0001E0: CD A4 1E 32 9F 37 4F 06 00 CD CC 1E 22 AB 37 7D  ...2.7O.....".7}
0001F0: B4 C9 3A 82 37 4F 2A AB 37 AF CD F6 1C 22 AB 37  ..:.7O*.7....".7

Size : 512 (Real : 512)
000000: E5 3A 2B 1C B7 CC 9C 14 32 BF 19 E1 C1 FE 0D CA  .:+.....2.......
000010: E7 18 FE 0A CA E7 18 FE 06 C2 35 16 CD C0 14 1D  ..........5.....
000020: BB D2 FF 15 EB 2A 28 1C 7E B7 CA 6F 16 23 22 28  .....*(.~..o.#"(
000030: 1C EB C3 4D 18 FE 17 C2 9A 16 EB 2A 28 1C 7E B7  ...M.......*(.~.
000040: CA 60 16 EB CD C0 14 1D BB EB DA 55 16 EB CD 6F  .`.........U...o
000050: 15 EB C3 6A 16 2A 28 1C 7E 23 22 28 1C C3 91 16  ...j.*(.~#"(....
000060: 21 2A 1C 7E 36 00 B7 CA 73 16 21 2B 1C 36 00 EB  !*.~6...s.!+.6..
000070: C3 FF 15 3A 2B 1C B7 C2 82 16 78 B7 C2 6F 16 CD  ...:+.....x..o..
000080: DA 8A 15 7B 32 B7 FB C3 93 15 E5 CD 13 14 E1 23  ...{2..........#
000090: C3 77 15 3A B7 FB 32 2E 1C CD 1B 15 CD 2B 15 3A  .w.:..2......+.:
0000A0: 2E 1C 32 2D 1C C1 E1 C9 21 25 1C 22 28 1C AF 32  ..2-....!%."(..2
0000B0: 2A 1C C9 21 C2 1A 22 26 1C C9 21 2A 1C 7E B7 C0  *..!.."&..!*.~..
0000C0: 34 3A B7 FB 32 2D 1C C9 CD C0 14 D4 82 14 3A C0  4:..2-........:.
0000D0: 19 47 0E 00 CD EE 14 CD B3 15 CD A8 15 CD 5E 15  .G............^.
0000E0: AF 32 2B 1C 3E 01 32 DF FB 3A B7 FB 32 BD 19 2A  .2+.>.2..:..2..*
0000F0: DB FB 4E 23 E5 AF 47 32 BE 19 B9 C2 FF 15 0C C5  ..N#..G2........
000100: C8 32 C0 19 D5 01 0F 15 C5 47 04 48 C3 29 1D E1  .2.......G.H.)..
000110: 2B 36 00 C9 3A B7 FB 32 2C 1C C9 3A B7 FB 21 2D  +6..:..2,..:..!-
000120: 1C BE D0 0E 20 CD CD 13 C3 1B 15 3A 2C 1C 21 B7  .... ......:,.!.
000130: FB BE D0 0E 08 CD CD 13 C3 2B 15 C5 E5 2A 28 1C  .........+...*(.
000140: 1E 00 7E B7 CA 4C 15 1C 23 C3 42 15 78 83 B9 F5  ..~..L..#.B.x...
000150: 0E 07 D4 7A FB F1 E1 C1 D8 D1 D1 C3 FF 15 3A 2A  ...z..........:*
000160: 1C B7 C8 3A BF 19 FE 01 C8 FE 06 C8 FE 17 C8 E5  ...:............
000170: C5 CD 14 15 2A 28 1C 7E B7 CA 93 15 4F CD C0 14  ....*(.~....O...
000180: 72 14 0E 0D CD CD 13 0E 0A C3 CD 13 21 D3 FB 0A  r...........!...
000190: BE C8 03 C5 4F CD 28 14 C1 C3 8C 14 2A 28 1C 7E  ....O.(.....*(.~
0001A0: 32 2A 1C 2A BA FB 7D B4 CA B7 12 CD 21 F6 23 B7  2*.*..}.....!.#.
0001B0: C2 B6 14 21 00 00 22 BA FB 22 BC FB C0 C3 B7 12  ...!..".."......
0001C0: 3A B6 FB 5F 3A B7 FB BB C9 EB 2A 28 1C EB 1A B7  :.._:.....*(....
0001D0: C8 13 23 77 04 C3 CE 14 78 B7 C8 C5 48 E5 EB 13  ..#w....x...H...
0001E0: 21 C2 1A CD 29 1D 36 00 22 26 1C E1 C1 C9 3A B4  !...).6."&....:.
0001F0: FB 17 D0 21 C2 1A 11 C1 19 0C C2 0A 15 EB 78 B7  ...!..........x.

Size : 512 (Real : 512)
000000: 06 00 EB 21 AB 37 73 23 72 23 70 C9 2A 6B 37 4E  ...!.7s#r#p.*k7N
000010: 23 46 C5 2A 6D 37 5E 23 56 23 46 2A AB 37 3A AD  #F.*m7^#V#F*.7:.
000020: 37 4F 7D 93 7C 9A 79 98 E5 D2 39 1E 2A 80 37 CD  7O}.|.y...9.*.7.
000030: E4 1C E1 E3 2B E3 C3 22 1E 2A 80 37 CD ED 1C E1  ....+..".*.7....
000040: 7D 93 7C 9A 79 98 DA 50 1E E3 23 E3 E5 C3 39 1E  }.|.y..P..#...9.
000050: E3 E5 2A 80 37 CD E4 1C E1 D5 C5 E5 EB 2A 8D 37  ..*.7........*.7
000060: 19 44 4D 22 FB 37 CD 1E FC D1 2A 6B 37 73 23 72  .DM".7....*k7s#r
000070: C1 D1 2A 6D 37 73 23 72 23 70 C1 79 93 6F 78 9A  ..*m7s#r#p.y.ox.
000080: CD 18 FC AF 2A 6B 37 77 23 77 2A 6D 37 77 23 77  ....*k7w#w*m7w#w
000090: 23 77 C9 3E 01 32 B4 37 CD 27 FC C3 A5 1D AF 32  #w.>.2.7.'.....2
0000A0: B4 37 CD 2A FC B7 C8 4F CD B6 1D 79 FE 03 DA B2  .7.*...O...y....
0000B0: 1C 0E 01 C3 B2 1C 3C C0 CD EB 1D C8 2A 65 37 CD  ......<.....*e7.
0000C0: 1D 20 0E 01 C8 CD B2 20 E1 3A DF FB FE 30 C8 21  . ..... .:...0.!
0000D0: AA 37 3A A4 37 BE C2 E6 1D CD 13 21 3A B4 37 B7  .7:.7......!:.7.
0000E0: C0 0E 02 C3 B2 1C AF 32 DE FB C9 2A 8B 37 3E 80  .......2...*.7>.
0000F0: BC C0 AF BD C9 2A E1 FB 0E 02 CD AB 1F 22 91 37  .....*.......".7
000100: 1F 34 C0 23 34 C0 23 34 C9 CD 12 1D EB 0E 03 C3  .4.#4.#4........
000110: 29 1D CD 37 1F 11 AE 37 C9 CD 12 1D C3 0D 1D 1A  )..7...7........
000120: BE C0 23 13 0D C8 C3 1F 1D 0C 0D C8 1A 77 13 23  ..#..........w.#
000130: C3 2A 1D 4A CD 1B FC 7C B5 C8 5E 23 56 23 22 69  .*.J...|..^#V#"i
000140: 37 23 23 22 6B 37 23 23 22 6D 37 23 23 23 22 6F  7##"k7##"m7###"o
000150: 37 23 22 71 37 23 23 EB 22 9A 37 21 73 37 0E 0D  7#"q7##.".7!s7..
000160: CD 29 1D 2A 73 37 EB 21 80 37 0E 11 CD 29 1D 2A  .).*s7.!.7...).*
000170: 85 37 7C 21 A3 37 36 FF B7 CA 7E 1D 36 00 37 C9  .7|!.76...~.6.7.
000180: 72 72 6F 72 00 46 69 6C 65 20 45 78 69 73 74 73  rror.File Exists
000190: 00 3F 20 69 6E 20 46 69 6C 65 6E 61 6D 65 00 00  .? in Filename..
0001A0: 00 0E 02 C3 B2 1C 0E 03 C3 B2 1C 0E 04 3E FF 32  .............>.2
0001B0: A9 37 61 2E FF 22 9F 1C 3A AA 37 32 ED FB 3A E7  .7a.."..:.72..:.
0001C0: FB 3C C4 FB FB 3A DF FB FE 1B CA 35 37 FE 1F CA  .<...:.....57...
0001D0: 35 37 C3 3B 37 3A BC 37 32 1D F6 C9 AF 32 BC 37  57.;7:.72....2.7
0001E0: 32 1D F6 C9 7B 95 5F 7A 9C 57 D0 05 C9 7B 85 5F  2...{._z.W...{._
0001F0: 7A 8C 57 D0 04 C9 0C 0D C8 29 8F C3 F7 1C CD 37  z.W......).....7

Size : 512 (Real : 512)
000000: D0 35 7E B7 C8 79 FE 08 C2 0D 14 35 C9 FE 0D C0  .5~..y.....5....
000010: 36 00 C9 79 CD F0 12 D2 28 14 F5 0E 5E CD CD 13  6..y....(...^...
000020: F1 F6 40 4F CD C0 14 C8 3A DF FB 3D CA 37 14 3A  ..@O....:..=.7.:
000030: CF FB E6 14 C2 CD 13 79 FE 09 C2 CD 13 3A DF FB  .......y.....:..
000040: FE 01 C2 49 14 CD C0 14 C8 0E 20 CD CD 13 3A B7  ...I...... ...:.
000050: FB E6 07 C2 3D 14 C9 CD 65 14 3A BF 19 FE 01 C8  ....=...e.:.....
000060: 0E 20 CD 7A FB 0E 08 C3 7A FB 0E 23 CD CD 13 CD  . .z....z..#....
000070: 82 14 3A B7 FB 21 BD 19 BE D0 0E 20 CD CD 13 C3  ..:..!..... ....
000080: 20 F6 47 3A CF FB 1F D2 8E 13 3E 03 BE C8 78 FE   .G:......>...x.
000090: 11 CA 9D 13 FE 10 CA 9D 13 77 3E 01 C9 AF 77 C9  .........w>...w.
0000A0: CC A9 13 0E 07 C4 7A FB C9 3A CF FB E6 14 C2 BB  ......z..:......
0000B0: 13 21 D4 FB 3E 01 AE E6 01 77 C9 AF C9 3A DF FB  .!..>....w...:..
0000C0: 3D CA 7A FB 78 E6 10 C2 7A FB C3 7A FB 3A BC 19  =.z.x...z..z.:..
0000D0: B7 C2 F6 13 3A CF FB E6 14 47 C5 3A DF FB 3D C4  ....:....G.:..=.
0000E0: 2F 13 C1 C5 CD BD 13 C1 78 B7 C2 F6 13 C5 3A D4  /.......x.....:.
0000F0: FB B7 C4 80 FB C1 79 21 B7 FB FE 7F C8 34 FE 20  ......y!.....4. 
000100: 20 F6 B7 C2 9A 13 CD 6E FB E6 01 C9 21 D5 FB 36   ......n....!..6
000110: 40 E3 E9 47 3A CF FB E6 02 78 C9 CD 13 13 C2 FF  @..G:....x......
000120: 12 3A 20 F6 B7 C2 50 13 3A CC FB 3C CA FF 12 CD  .: ...P.:..<....
000130: 13 13 C0 3A 20 F6 FE 13 CA 50 13 CD 0C 13 CD 6E  ...: ....P.....n
000140: FB E1 36 00 E6 01 C8 CD 0C 13 CD 74 FB E1 36 00  ..6........t..6.
000150: FE 13 C2 7F 13 21 20 F6 BE C2 5E 13 36 00 CD 0C  .....! ...^.6...
000160: 13 CD 74 FB E1 36 00 FE 03 C2 75 13 3A CF FB E6  ..t..6....u.:...
000170: 08 CA 29 12 AF D6 11 C8 3C CD A0 13 C3 5E 13 21  ..).....<....^.!
000180: D8 FB 11 80 00 19 C3 93 12 2A D8 FB 22 72 12 C9  .........*.."r..
000190: 2A 72 12 22 D8 FB C3 BF 21 C1 3C C8 3A E6 FB 90  *r."....!.<.:...
0001A0: 67 C9 E5 3A DF FB FE 21 D4 19 1D CD 90 12 D1 2A  g..:...!.......*
0001B0: 66 12 F9 EB 7D 44 C9 21 20 F6 7E 36 00 B7 C0 C3  f...}D.! .~6....
0001C0: 74 FB 21 72 19 E5 CD B7 12 CD F0 12 DA D6 12 F5  t.!r............
0001D0: 4F CD 28 14 F1 C9 CD 13 13 C0 FE 13 C2 E5 12 CD  O.(.............
0001E0: 5E 13 C3 C6 12 FE 11 CA C6 12 FE 10 CA C6 12 C9  ^...............
0001F0: FE 0D C8 FE 0A C8 FE 09 C8 FE 08 C8 FE 20 C9 3A  ............. .:

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 43  ...............C
000030: 50 2F 4D 20 45 72 72 6F 72 20 4F 6E 20 20 3A 20  P/M Error On  : 
000040: 00 44 69 73 6B 20 49 2F 4F 00 49 6E 76 61 6C 69  .Disk I/O.Invali
000050: 64 20 44 72 69 76 65 00 52 65 61 64 2F 4F 6E 6C  d Drive.Read/Onl
000060: 79 20 46 69 6C 65 00 52 65 61 64 2F 4F 6E 6C 79  y File.Read/Only
000070: 20 44 69 73 6B 00 50 61 73 73 77 6F 72 64 20 45   Disk.Password E
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: 46 75 6E 63 74 69 6F 6E 20 3D 20 20 20 20 20 46  Function =     F
000010: 69 6C 65 20 3D 20 00 00 00 00 00 00 00 00 00 00  ile = ..........
000020: 00 00 00 21 FD FF C3 2C 12 CD 24 3C 22 AC FB C3  ...!...,..$<"...
000030: 68 FB 00 00 21 00 00 39 22 66 12 21 A2 12 E5 CD  h...!..9"f.!....
000040: 09 1D CD 89 12 3A E6 FB F5 32 99 37 CD 74 12 B7  .....:...2.7.t..
000050: C2 99 12 3A DF FB FE 21 D4 FE 1C CD 7F 12 F1 3D  ...:...!.......=
000060: C2 48 12 67 6F C9 00 00 C7 C7 C7 C7 C7 C7 C7 C7  .H.go...........
000070: C7 C7 00 00 3A DF FB 4F 2A DB FB EB C3 3B 0F 2A  ....:..O*....;.*
000080: E5 CD 82 14 3A AA 37 C6 41 32 3D 1C 01 2F 1C CD  ....:.7.A2=../..
000090: EE 11 C1 3A F3 FB 17 D2 EE 11 CD EE 11 3A DF FB  ...:.........:..
0000A0: 06 30 21 0B 12 FE 64 DA AF 11 36 31 23 D6 64 D6  .0!...d...61#.d.
0000B0: 0A DA B8 11 04 C3 AF 11 70 23 C6 3A 77 23 36 20  ........p#.:w#6 
0000C0: 21 0E 12 36 00 3A DD FB B7 CA E5 11 36 20 D5 2A  !..6.:......6 .*
0000D0: DB FB 23 EB 21 16 12 0E 08 CD 29 1D 36 2E 23 0E  ..#.!.....).6.#.
0000E0: 03 CD 29 1D D1 CD 82 14 01 FB 11 C3 EE 11 0A B7  ..).............
0000F0: C8 C5 4F CD 28 14 C1 03 C3 EE 11 42 44 4F 53 20  ..O.(......BDOS 
000100: 00 09 01 01 07 CD 19 11 C2 05 11 3E 07 90 E1 E5  ...........>....
000110: 01 1A 00 09 77 1A C3 E0 10 CD 4D 11 C8 FE 20 13  ....w.....M... .
000120: DA F5 10 04 05 FA F5 10 0C 0D C2 32 11 FE 2A CA  ...........2..*.
000130: 37 11 77 23 05 B7 C9 36 3F 23 05 F2 37 11 C9 0D  7.w#...6?#..7...
000140: 09 20 2E 2C 3A 3B 5B 5D 3D 3C 3E 7C 00 1A E5 21  . .,:;[]=<>|...!
000150: 3F 11 BE CA 5D 11 34 35 23 C2 52 11 B7 E1 C8 FE  ?...].45#.R.....
000160: 61 D8 FE 7B D2 69 11 E6 5F E6 7F C9 70 23 0D C2  a..{.i.._...p#..
000170: 6C 11 C9 1A 13 FE 20 CA 73 11 FE 09 CA 73 11 C9  l..... .s....s..
000180: 01 08 20 CD 6C 11 01 0C 00 CD 6C 11 CD 73 11 1A  .. .l.....l..s..
000190: FE 3A 1B E1 E5 C2 AC 10 CD 4D 11 CA E0 10 D6 41  .:.......M.....A
0001A0: DA F6 10 FE 10 D2 F6 10 13 13 3C 77 23 CD 4D 11  ..........<w#.M.
0001B0: CA E0 10 01 00 07 1A FE 2E CA CA 10 FE 3B CA FB  .............;..
0001C0: 10 CD 19 11 C2 B6 10 C3 E0 10 13 E1 E5 01 09 00  ................
0001D0: 09 01 00 02 1A FE 3B CA FB 10 CD 19 11 C2 D4 10  ......;.........
0001E0: C1 D5 CD 73 11 1B CD 4D 11 E1 C0 21 00 00 B7 C8  ...s...M...!....
0001F0: FE 0D C8 EB C9 C1 C1 21 FF FF C9 13 E1 E5 01 10  .......!........

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: FB CA 29 33 EB 22 CF FB C9 21 D3 FB 7A A3 3C 7E  ..)3."...!..z.<~
000090: CA 72 19 73 C9 EB 5E 23 56 23 4E 23 46 EB 78 B1  .r.s..^#V#N#F.x.
0000A0: C8 C5 E5 4E 3A DF FB FE 6F CA B2 19 CD 80 FB C3  ...N:...o.......
0000B0: B5 19 CD 28 14 E1 23 C1 0B C3 9E 19 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: 13 CD 15 FC C3 72 19 79 3C CA 20 19 3C CA 17 19  .....r.y<. .<...
000110: 3C CA 25 19 C3 7A FB CD FF 12 C2 C0 24 C3 72 19  <.%..z......$.r.
000120: CD FF 12 B7 C8 CD B7 12 C3 72 19 CD 36 FC C3 72  .........r..6..r
000130: 19 CD 39 FC C3 72 19 EB 4D 44 C3 8C 14 3A CF FB  ..9..r..MD...:..
000140: 1F D2 6F 19 21 D5 FB 36 80 E5 21 68 19 E5 3A 20  ..o.!..6..!h..: 
000150: F6 FE 03 CA 9A 13 CD 6E FB B7 C8 CD 74 FB FE 03  .......n....t...
000160: CA 7F 13 32 20 F6 AF C9 CD 72 19 E1 36 00 C9 CD  ...2 ....r..6...
000170: 1B 13 32 9F 1C C9 3E 01 C3 72 19 7A A3 3C 2A CF  ..2...>..r.z.<*.
000180: 07 CA 39 17 FE 7F CA 8C 18 CD 5E 15 3A CF FB E6  ..9.......^.:...
000190: 08 C2 97 18 7E FE 03 78 C2 A0 18 FE 01 CA 29 12  ....~..x......).
0001A0: B9 D2 E0 18 C5 E5 CD C0 14 DA 01 16 3A 2A 1C B7  ............:*..
0001B0: CA C0 18 3A BF 19 FE 17 CA C5 18 FE 06 CA C5 18  ...:............
0001C0: 3E 05 C3 08 16 E1 C1 05 EB 2A 28 1C 2B 22 28 1C  >........*(.+"(.
0001D0: 1A 77 EB 2B C5 E5 CD 2B 15 AF 32 2B 1C C3 01 16  .w.+...+..2+....
0001E0: AF 32 2B 1C C3 FF 15 CD C9 14 E1 70 C5 CD D8 14  .2+........p....
0001F0: C1 0E FF CD EE 14 21 00 00 22 BA FB 0E 0D C3 CD  ......!.."......

Size : 512 (Real : 512)
000000: 11 33 17 33 23 33 2D 33 41 33 4A 33 53 33 40 2D  .3.3#3-3A3J3S3@-
000010: 59 33 75 19 75 19 4A 33 C0 24 75 19 75 19 7D 33  Y3u.u.J3.$u.u.}3
000020: 8B 33 90 33 CD 33 DF 33 2A 34 50 34 E8 33 C8 34  .3.3.3.3*4P4.3.4
000030: A6 35 1F 36 28 36 64 36 F1 36 FE 36 13 37 1E 37  .5.6(6d6.6.6.7.7
000040: 27 37 7B 19 89 19 95 19 95 19 41 1C 67 1C 58 1C  '7{.......A.g.X.
000050: 4A 1C 00 00 00 00 76 1C 85 1C 91 1C FE 98 C0 21  J.....v........!
000060: 29 33 E5 2A DB FB 5E 23 56 D5 23 5E 23 56 E1 EB  )3.*..^#V.#^#V..
000070: E5 AF 77 23 01 0B 20 CD 6C 11 01 04 00 CD 6C 11  ..w#.. .l.....l.
000080: 21 4A 10 09 09 5E 23 56 EB CD 80 11 C1 3A E7 FB  !J...^#V.....:..
000090: B7 C0 C3 23 12 14 15 21 22 28 00 43 4F 50 59 52  ...#...!"(.COPYR
0000A0: 49 47 48 54 20 28 43 29 20 31 39 38 32 2C 20 44  IGHT (C) 1982, D
0000B0: 49 47 49 54 41 4C 20 52 45 53 45 41 52 43 48 20  IGITAL RESEARCH 
0000C0: 31 35 31 32 38 32 2F 12 C2 12 28 14 01 19 12 FC  151282/...(.....
0000D0: 80 FB 07 19 2B 19 31 19 37 19 C8 15 3D 19 7D 30  ....+.1.7...=.}0
0000E0: 83 30 96 30 A0 30 87 31 9B 31 EC 31 F5 31 FB 31  .0.0.0.1.1.1.1.1
0000F0: 04 32 0D 32 EF 32 F5 32 FB 32 01 33 08 33 D3 20  .2.2.2.2.2.3.3. 
000100: 36 35 34 33 32 31 EB 22 DB FB EB 79 32 DF FB FE  654321."...y2...
000110: 0E DA 3B 0F 21 00 00 22 98 37 3A DA FB 32 A4 37  ..;.!..".7:..2.7
000120: 3D 32 BC 37 3A E6 FB 3D CA 3B 0F 21 95 0F 7E B7  =2.7:..=.;.!..~.
000130: CA 3B 0F B9 CA 34 12 23 C3 2E 0F 7B 32 9E 37 21  .;...4.#...{2.7!
000140: 00 00 22 9F 1C 22 DD FB 39 22 32 12 21 3B 37 E5  ..".."..9"2.!;7.
000150: 79 FE 33 D2 5D 0F 4B 21 C6 0F C3 6F 0F FE 80 D2  y.3.].K!...o....
000160: 5C 10 D6 62 DA C0 24 FE 0F D2 C0 24 21 2C 10 5F  \..b..$....$!,._
000170: 16 00 19 19 5E 23 56 2A DB FB EB E9 06 00 C5 0D  ....^#V*........
000180: C3 1A 04 00 00 00 C3 1B 01 C3 06 00 07 00 00 00  ................
000190: 4C 4F 41 44 45 52 20 20 FF 00 00 79 FE 3B C2 09  LOADER  ...y.;..
0001A0: 01 C1 C5 21 00 00 39 31 BE 03 22 9A 03 C5 EB 22  ...!..91.."...."
0001B0: 98 03 7C B5 F5 CC 00 02 F1 C4 30 02 D1 21 00 01  ..|.......0..!..
0001C0: 7E FE C9 CA 9E 01 7A 3D B3 C2 5F 01 3A 0D 01 B7  ~.....z=.._.:...
0001D0: C2 5F 01 2A 0A 01 22 06 00 22 94 03 CD F8 01 2A  ._.*.."..".....*
0001E0: 9A 03 F9 AF 6F 67 C9 11 FE 00 2A 9A 03 F9 E1 E5  ....og....*.....
0001F0: 25 7C B5 EB 7D 44 C0 0E 09 11 53 03 CD 05 00 C3  %|..}D....S.....

Size : 512 (Real : 512)
000000: 5F 0E 0E C3 05 00 06 E0 C3 F9 0B 01 0F 00 11 AD  _...............
000010: 0D 21 20 00 19 36 00 C5 D5 1A A0 3D F4 80 09 11  .! ..6.....=....
000020: A2 0D CD 7B 09 D1 C1 D5 2A 8D 03 2E E7 70 E5 CD  ...{....*....p..
000030: 05 00 D1 AF 12 3A 72 0D 1E DA 12 E5 CD 78 09 E1  .....:r......x..
000040: 2C D1 C9 0E 11 C3 CA 09 0E 12 11 5C 00 CD 05 00  ,..........\....
000050: 3C C8 3D 87 87 87 87 87 21 80 00 CD B0 0C EB AF  <.=.....!.......
000060: 3D C9 AF 32 9F 0D 0E 14 11 5C 00 CD 05 00 B7 C9  =..2.....\......
000070: 11 73 0D C3 EB 09 CD EE 0B EB AF 32 A1 0D 21 F6  .s.........2..!.
000080: 0D CD 44 0A EB FE 3B C8 FE 21 CA 1C 0A FE 3A C2  ..D...;..!....:.
000090: 1D 0A 2E AC 34 34 CA 1C 0A 23 34 C8 13 EB 22 6C  ....44...#4..."l
0000A0: 0D 7E FE 5B C2 2A 0A 32 A1 0D FE 61 DA 37 0A FE  .~.[.*.2...a.7..
0000B0: 7B D2 37 0A D6 20 77 FE 21 CC 59 0A 23 B7 C2 21  {.7.. w.!.Y.#..!
0000C0: 0A 2A 6C 0D 22 6C 0D 22 9B 0D 7E B7 C8 FE 20 CA  .*l."l."..~... .
0000D0: 55 0A FE 09 C0 23 C3 44 0A 5D 54 13 1A FE 21 F5  U....#.D.]T...!.
0000E0: E5 CC B7 0B E1 F1 C8 36 00 EB 2A 06 00 25 2E 18  .......6..*..%..
0000F0: 77 E5 23 13 1A 77 FE 21 C2 7D 0A 36 0D B7 C2 72  w.#..w.!.}.6...r
000100: 0A 36 0D 23 77 2E 06 36 C3 23 36 09 23 74 23 36  .6.#w..6.#6.#t#6
000110: C3 2E 0E 77 6F EB CD D0 01 2A 8D 03 2E B1 D1 13  ...wo....*......
000120: 73 23 72 2E AE 72 AF C9 11 B1 BA CD A7 0B B7 11  s#r..r..........
000130: B1 BC CC A7 0B E5 CD 6D 09 E1 2E B1 C2 CB 0A 5E  .......m.......^
000140: 23 56 34 35 2B CA CB 0A 1A B7 C0 AF 77 23 77 2E  #V45+.......w#w.
000150: AE 66 2E 0E 35 C3 00 02 11 5C 00 CD 41 0A F5 CD  .f..5....\..A...
000160: E4 0A F1 C9 22 6C 0D 22 9B 0D D5 11 6C 0D 0E 98  ...."l."....l...
000170: CD 05 00 D1 7C B5 46 23 C2 FE 0A 21 28 0B 7C B5  ....|.F#...!(.|.
000180: C2 09 0B 21 28 0B CD 3A 0C 78 FE 2E C2 10 0B 2B  ...!(..:.x.....+
000190: 22 6C 0D 0E 10 21 D0 0D D5 CD AE 0B 11 A2 0D 0E  "l...!..........
0001A0: 0A CD AE 0B D1 7E 21 00 00 B7 47 CA 38 0B 2A 9B  .....~!...G.8.*.
0001B0: 0D 7E FE 3B 23 C2 31 0B C9 D5 AF 12 13 12 13 CD  .~.;#.1.........
0001C0: 41 0A 2A 6C 0D D1 D5 06 04 7E FE 3A CA 67 0B B7  A.*l.....~.:.g..
0001D0: C3 0A 04 05 23 C2 49 0B D1 AF 12 2A 6C 0D 13 1A  ....#.I....*l...
0001E0: F5 CD E4 0A F1 12 C9 2A 6C 0D 7E FE 30 DA 85 0B  .......*l.~.0...
0001F0: FE 3A D2 85 0B CD 71 0C D1 D5 1A B7 C2 58 0B 78  .:....q......X.x

Size : 512 (Real : 512)
000000: 00 00 23 4E 23 46 3A 8F 03 B7 CA 92 01 23 34 CA  ..#N#F:......#4.
000010: 9D 01 D5 CD 0F 03 E1 CD CA 02 CD D0 01 E1 11 10  ................
000020: 00 19 E5 5E 23 56 7B B2 C2 82 01 CD 03 01 3A 00  ...^#V{.......:.
000030: 02 FE C9 C2 BF 01 2A 8D 03 2E B3 7E F6 02 77 2A  ......*....~..w*
000040: 01 01 44 4D 21 00 02 11 00 01 CD 26 03 C3 5F 01  ..DM!......&.._.
000050: 2A 06 00 2E 00 01 06 00 CD 26 03 1E 18 12 1E 0D  *........&......
000060: 12 1B 3E 07 12 6B 1E 0B 73 23 72 EB 72 2B 36 06  ..>..k..s#r.r+6.
000070: 2E 06 22 06 00 22 94 03 11 92 03 0E 31 C3 05 00  ..".."......1...
000080: 2A 06 00 44 60 2E 18 34 35 C0 2E 0B 46 2E 0E 7E  *..D`..45...F..~
000090: B7 CA 04 02 2E 0C 5E 23 56 78 12 1B 3E 06 12 13  ......^#Vx..>...
0000A0: 60 2E 0C 73 23 72 7A B7 C5 CC F0 01 C1 C3 04 02  `..s#rz.........
0000B0: E5 11 90 03 CD FB 01 EB E1 E5 01 20 00 09 36 00  ........... ..6.
0000C0: 23 4E 23 66 69 25 24 CA 67 01 E5 D5 E5 CD 31 03  #N#fi%$.g.....1.
0000D0: E1 F5 1E 80 3A 07 00 3D 94 DA FA 02 3C FE 40 D2  ....:..=....<.@.
0000E0: 76 02 07 5F 7D B7 CA 76 02 06 02 3D FA 70 02 05  v.._}..v...=.p..
0000F0: 7B 90 CA FA 02 5F D5 E5 CD 33 03 E1 E5 CD 3B 03  {...._...3....;.
000100: E1 D1 F5 7B 3C 1F 84 67 22 96 03 F1 CA 54 02 C1  ...{<..g"....T..
000110: 3D 58 CD 33 03 0E 1A D1 F5 CD 05 00 F1 2A 9C 03  =X.3.........*..
000120: EB C2 6A 01 D1 E1 01 09 00 09 7E E6 7F FE 50 C0  ..j.......~...P.
000130: 23 7E E6 7F FE 52 C0 23 7E E6 7F D6 4C C0 7B B7  #~...R.#~...L.{.
000140: C2 67 01 62 6B 23 4E 23 46 6B 24 D5 C5 CD 26 03  .g.bk#N#Fk$...&.
000150: C1 D1 D5 5A 1D E5 63 1E 00 78 B1 CA F7 02 0B 7B  ...Z..c..x.....{
000160: E6 07 C2 EA 02 E3 7E 23 E3 6F 7D 17 6F D2 F3 02  ......~#.o}.o...
000170: 1A 84 12 13 C3 D9 02 D1 D1 C9 CD 31 03 21 80 00  ...........1.!..
000180: CD 3B 03 C2 8F 02 21 FE 00 22 9C 03 C3 8F 02 3A  .;....!..".....:
000190: 07 00 3D 0B 90 03 FE 0F DA 77 01 2A 96 03 BC DA  ..=......w.*....
0001A0: 77 01 57 1E 00 C9 78 B1 C8 0B 7E 12 13 23 C3 26  w.W...x...~..#.&
0001B0: 03 1E 01 2A 8D 03 2E E6 7E 73 C9 EB 0E 1A E5 CD  ...*....~s......
0001C0: 05 00 0E 14 2A 98 03 EB CD 05 00 22 9C 03 D1 B7  ....*......"....
0001D0: C8 5C C9 0D 0A 43 61 6E 6E 6F 74 20 6C 6F 61 64  .\...Cannot load
0001E0: 20 50 72 6F 67 72 61 6D 24 32 32 31 32 38 32 20   Program$221282 
0001F0: 20 43 4F 50 59 52 20 27 38 32 20 44 52 49 20 00   COPYR '82 DRI .

Size : 512 (Real : 512)
000000: 3C 12 C3 9C 0B FE 41 DA 58 0B FE 51 D2 58 0B D1  <.....A.X..Q.X..
000010: D5 13 1A B7 C2 58 0B 7E D6 40 12 23 7E FE 3A C2  .....X.~.@.#~.:.
000020: 6B 0B 23 D1 C3 5E 0B 2A 8D 03 6A 54 0E 02 7E 12  k.#..^.*..jT..~.
000030: 23 13 0D C2 AE 0B C9 0E 00 1A 77 B7 79 C8 23 13  #.........w.y.#.
000040: 03 C3 B9 0B AF 21 9F 0D 34 FC E2 09 B7 C0 3A 9F  .....!..4.....:.
000050: 0D 21 80 00 CD B0 0C AF 7E C9 01 40 B4 2A 8D 03  .!......~..@.*..
000060: 68 7E A1 C9 01 A0 B4 CD DD 0B 79 B6 77 C9 01 A0  h~........y.w...
000070: B4 CD DD 0B 79 2F A6 77 C9 2A 8D 03 68 77 C9 2A  ....y/.w.*..hw.*
000080: 8D 03 68 7E C9 CD 49 09 45 3E 0D CD A6 0C 3E 0A  ..h~..I.E>....>.
000090: C3 A6 0C D6 0A DA 25 0C 1E 30 1C D6 0A D2 1A 0C  ......%..0......
0000A0: F5 CD 3C 09 F1 C6 3A C3 16 09 7E B7 C8 B9 C8 CD  ..<...:...~.....
0000B0: A6 0C 23 C3 2A 0C CD 41 0A C8 21 67 0D 7E B7 36  ..#.*..A..!g.~.6
0000C0: 00 C0 2A 9B 0D 0E 20 CD 2A 0C 3E 3F CD 16 09 C3  ..*... .*.>?....
0000D0: 06 05 CD 41 0A 2A 6C 0D 22 9B 0D C8 7E FE 30 DA  ...A.*l."...~.0.
0000E0: 3A 0C FE 3A D2 3A 0C CD 71 0C 22 6C 0D F6 01 78  :..:.:..q."l...x
0000F0: C9 06 00 7E D6 30 D8 FE 0A D0 F5 78 87 87 80 87  ...~.0.....x....
000100: 47 F1 23 80 47 FE 10 DA 73 0C C3 3A 0C 13 26 08  G.#.G...s..:..&.
000110: CD 98 0C CD A4 0C 26 03 1A E6 7F CD A6 0C 13 25  ......&........%
000120: C2 98 0C C9 3E 20 C5 D5 E5 CD 16 09 E1 D1 C1 C9  ....> ..........
000130: 85 6F D0 24 C9 3E 3F 12 13 05 C2 B7 0C B7 C9 01  .o.$.>?.........
000140: FF 00 D5 E5 1A E6 7F FE 21 DA D0 0C BE C2 E0 0C  ........!.......
000150: 13 0C 3E 20 BE 23 C2 C4 0C E1 D1 CD AE 0B 78 C9  ..> .#........x.
000160: 3E 20 BE 23 C2 E2 0C D1 D1 04 0E FF 7E D6 01 D2  > .#........~...
000170: C2 0C C9 45 6E 74 65 72 20 55 73 65 72 20 23 3A  ...Enter User #:
000180: 20 24 4E 6F 20 46 69 6C 65 24 20 72 65 71 75 69   $No File$ requi
000190: 72 65 64 24 45 52 41 53 45 20 24 20 28 59 2F 4E  red$ERASE $ (Y/N
0001A0: 29 3F 20 24 0D 0A 0D 0A 50 72 65 73 73 20 52 45  )? $....Press RE
0001B0: 54 55 52 4E 20 74 6F 20 43 6F 6E 74 69 6E 75 65  TURN to Continue
0001C0: 20 24 20 20 28 55 73 65 72 20 30 29 24 00 4E 4F   $  (User 0)$.NO
0001D0: 4E 2D 53 59 53 54 45 4D 20 46 49 4C 45 28 53 29  N-SYSTEM FILE(S)
0001E0: 20 45 58 49 53 54 24 00 00 00 3A 00 00 00 D0 0D   EXIST$...:.....
0001F0: 00 00 00 01 24 24 24 20 20 20 20 20 53 55 42 00  ....$$$     SUB.

Size : 512 (Real : 512)
000000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000010: 3C 00 62 FE 00 80 00 00 80 48 41 10 04 12 24 12  <.b......HA...$.
000020: 40 08 00 10 00 88 44 48 00 20 04 80 00 09 00 20  @.....DH. ..... 
000030: 00 00 01 20 00 00 10 00 00 11 12 00 00 41 00 10  ... .........A..
000040: 40 82 08 21 00 22 08 01 10 00 00 00 20 01 00 04  @..!."...... ...
000050: 08 01 02 08 24 12 00 24 40 00 84 00 02 04 00 00  ....$..$@.......
000060: 00 00 00 00 00 00 00 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: 00 00 00 AF 32 4D 0D C3 99 06 CA 58 0B FE 20 CA  ....2M.....X.. .
000090: 58 0B FE 09 CA 58 0B C3 53 0B 31 2D 0F 21 0C 05  X....X..S.1-.!..
0000A0: E5 11 6A 0D 0E 31 CD 05 00 22 8D 03 2E FA 7E 32  ..j..1..."....~2
0000B0: 8F 03 2E 99 7E 32 A0 0D 3A 07 00 96 C2 58 04 01  ....~2..:....X..
0000C0: 94 02 CD 0F 03 63 6B CD CA 02 2A 06 00 6B 0E 06  .....ck...*..k..
0000D0: CD AE 0B 1E 0B CD EB 01 0E 62 CD 05 00 06 B6 CD  .........b......
0000E0: FF 0B 3C 0F 0F 0F 0F E6 0F 11 97 0D 12 2E B8 7E  ..<............~
0000F0: 3D 13 12 AF 13 12 3E 24 13 12 2E D3 77 2E E6 36  =.....>$....w..6
000100: 01 23 AF 77 2E CF 36 01 23 77 2E A1 36 31 2E B4  .#.w..6.#w..61..
000110: 7E E6 20 0E 0D E5 C4 05 00 E1 2E B3 7E E6 02 E5  ~. .........~...
000120: CC 00 02 E1 7E E6 FD 77 E6 40 E5 2E B0 01 70 0D  ....~..w.@....p.
000130: 54 1E E0 1A 02 7E C2 BA 04 02 12 03 1E DA 1A C2  T....~..........
000140: C4 04 3E FF 02 2B 03 7E 02 12 2E EC 03 7E 02 E1  ..>..+.~.....~..
000150: 7E E6 80 CA E7 04 21 80 00 11 F5 0D 0E 7F 79 12  ~.....!.......y.
000160: 13 CD AE 0B C3 8B 05 2E B5 7E E6 02 C2 06 05 7E  .........~.....~
000170: F6 02 77 32 67 0D 21 FC 04 C3 D9 04 50 52 4F 46  ..w2g.!.....PROF
000180: 49 4C 45 2E 53 00 CD E4 0B CD 09 0C 21 2B 0F F9  ILE.S.......!+..
000190: AF 32 99 0D 21 0C 05 E5 CD E4 0B 2B 7E E6 01 CA  .2..!......+~...
0001A0: 64 05 11 F5 0D CD 7B 09 0E 0F CD F0 09 0E 0B CC  d.....{.........
0001B0: F0 09 C2 4F 05 21 96 0D 77 2B 77 2B E5 3A 82 0D  ...O.!..w+w+.:..
0001C0: 3D 77 0E 21 F4 F0 09 E1 35 0E 13 FC F0 09 B7 F5  =w.!....5.......
0001D0: 0E 63 CD F0 09 F1 CA 8B 05 01 01 B3 CD F1 0B 0E  .c..............
0001E0: 13 CD F0 09 3A 70 0D B7 C4 13 0C CD 6D 06 3E 3E  ....:p......m.>>
0001F0: CD 16 09 11 BA B1 CD A7 0B B7 F5 01 80 B4 C4 F1  ................

Size : 512 (Real : 512)
000000: 1A 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: 0B CD 4E 09 CD EE 0B F1 C4 A8 0A CD DA 0B C2 96  ..N.............
000010: 05 2E C9 7E 2B 77 2E C8 7E 32 9A 0D CD F6 09 C8  ...~+w..~2......
000020: 11 AC 0D CD 39 0B 3A B6 0D FE 20 C2 04 06 21 AC  ....9.:... ...!.
000030: 0D 7E 23 B6 23 7E C2 0A 06 21 37 06 11 AE 0D 3A  .~#.#~...!7....:
000040: B0 0D FE 21 D4 BF 0C C2 E8 05 3A A1 0D B7 78 2A  ...!......:...x*
000050: 6C 0D 22 9D 0D 21 5A 06 CA 58 08 FE 04 DA 86 07  l."..!Z..X......
000060: 21 B1 0D C2 E8 05 36 20 01 18 B4 CD DD 0B CA 04  !.....6 ........
000070: 06 06 08 90 CA F9 05 06 00 C5 CD 7A 08 CD E4 07  ...........z....
000080: F1 CD 7A 08 CD E4 07 C3 3A 0C FE 20 C2 E8 05 CD  ..z.....:.. ....
000090: 36 0C 3A AC 0D D6 01 DA 25 06 32 70 0D 06 B0 CD  6.:.....%.2p....
0000A0: F9 0B CD 86 09 3A AD 0D 3D F8 F5 CD 80 09 F1 32  .....:..=......2
0000B0: 72 0D 06 AF C3 F9 0B 44 49 52 20 54 59 50 45 20  r......DIR TYPE 
0000C0: 45 52 41 53 45 20 52 45 4E 41 4D 45 20 44 49 52  ERASE RENAME DIR
0000D0: 53 59 53 20 55 53 45 52 20 00 75 06 F4 06 22 07  SYS USER .u...".
0000E0: 51 07 7D 06 15 07 3A 5C 00 3D F2 70 06 3A 72 0D  Q.}...:\.=.p.:r.
0000F0: C6 41 C3 A6 0C 0E 00 11 52 0D C3 82 06 0E 80 11  .A......R.......
000100: 4E 0D D5 CD 03 04 D1 CA B8 07 7D B8 D4 09 0C 21  N.........}....!
000110: 4D 0D 35 34 C8 35 C3 05 0C C5 CD 78 09 CD D8 0A  M.54.5.....x....
000120: 11 5D 00 1A FE 20 06 0B CC B5 0C CD 36 0C CD C3  .]... ......6...
000130: 09 C1 C8 3A 97 0D 6F 47 04 E5 21 0A 00 19 7E E1  ...:..oG..!...~.
000140: E6 80 B9 CA CE 06 3E 01 32 4D 0D C3 E5 06 05 CC  ......>.2M......
000150: 08 0C 78 BD CC 66 06 3E 3A CD A6 0C CD A4 0C CD  ..x..f.>:.......
000160: 8D 0C CD A4 0C C5 E5 CD 66 09 CD C8 09 E1 C1 C2  ........f.......
000170: B9 06 3C C9 21 06 05 E5 CD D8 0A 3E 7F 32 9F 0D  ..<.!......>.2..
000180: 0E 0F CD 6C 07 CD 66 09 CD C4 0B C0 FE 1A C8 CD  ...l..f.........
000190: 16 09 C3 05 07 11 F3 0C CD AB 07 CD 52 0C C8 C3  ............R...
0001A0: 1A 06 CD D8 0A CA 4C 07 CD 9E 07 C2 4C 07 11 14  ......L.....L...
0001B0: 0D CD 49 09 2A 9B 0D 0E 20 CD 2A 0C 11 1B 0D CD  ..I.*... .*.....
0001C0: 41 09 CD 09 0C 7D E6 5F FE 59 C0 B7 0E 13 C3 6C  A....}._.Y.....l
0001D0: 07 CD D8 0A F5 21 10 00 19 EB D5 E5 0E 10 CD AE  .....!..........
0001E0: 0B CD D8 0A E1 D1 CD 92 07 0E 17 F1 F5 C4 36 0C  ..............6.
0001F0: F1 11 5C 00 06 FF 26 01 C4 91 09 C0 25 FA B8 07  ..\...&.....%...

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: 2A 9D 0D 22 6C 0D CD E4 07 CD 8D 0C 11 0A 0D C3  *.."l...........
000010: BB 07 1A BE C8 B7 C8 34 35 C2 3A 0C 77 C9 06 0B  .......45.:.w...
000020: 13 1A FE 3F C8 05 C2 A0 07 05 C9 CD 41 0A C0 CD  ...?........A...
000030: 49 09 CD 4E 09 C3 F6 09 11 02 0D CD 05 0C C3 0C  I..N............
000040: 05 00 53 55 42 4D 49 54 20 20 43 4F 4D 1A 06 AB  ..SUBMIT  COM...
000050: CD F9 0B 21 C1 07 0E 0C CD AE 0B 21 F5 0D 36 20  ...!.......!..6 
000060: 23 22 6C 0D 11 B6 0D 21 63 08 CD BF 0C C0 11 AC  #"l....!c.......
000070: 0D 1A B7 C0 13 1A 4F C5 0E 00 B7 C2 21 08 01 04  ......O.....!...
000080: E7 3A 72 0D 3C 67 2E 01 04 0D 79 E5 F4 FF 0B E1  .:r.<g....y.....
000090: B7 FA 76 08 CA 1B 08 BC C2 20 08 7C 2D FA 08 08  ..v...... .|-...
0000A0: 12 C5 E5 CD 8B 09 E1 C1 CA 08 08 01 03 B4 CD DD  ................
0000B0: 0B CA 54 08 1A CD 69 06 3E 3A CD A6 0C D5 CD 8D  ..T...i.>:......
0000C0: 0C D1 D5 21 08 00 19 7E E6 80 11 42 0D C4 49 09  ...!...~...B..I.
0000D0: CD 09 0C D1 F1 21 70 08 87 CD B0 0C D5 5E 23 56  .....!p......^#V
0000E0: EB D1 E9 43 4F 4D 20 53 55 42 20 50 52 4C 20 00  ...COM SUB PRL .
0000F0: 89 08 CD 07 89 08 C1 79 12 C9 0F 21 63 08 CD B0  .......y...!c...
000100: 0C 11 B6 0D 0E 03 C3 AE 0B 21 00 01 22 CE 0D 2A  .........!.."..*
000110: 9F 0D 25 2E C0 E5 1A 32 50 00 EB 0E 23 CD AE 0B  ..%....2P...#...
000120: 21 67 0D 34 2A 6C 0D 2B 11 81 00 EB 22 6C 0D CD  !g.4*l.+...."l..
000130: B7 0B 32 80 00 CD D8 0A 22 51 00 78 32 53 00 11  ..2....."Q.x2S..
000140: 6C 00 CD DB 0A 22 54 00 78 32 56 00 21 71 0D 7E  l...."T.x2V.!q.~
000150: B7 F4 80 09 3A 70 0D CD 86 09 87 87 87 87 2E DA  ....:p..........
000160: B6 32 04 00 D1 2A 9F 0D AF 6F F9 67 E5 24 E5 32  .2...*...o.g.$.2
000170: 7C 00 06 CF CD F9 0B 2E 90 77 23 77 23 77 23 77  |........w#w#w#w
000180: 2E B3 7E E6 80 C2 0D 09 2E AC 77 23 77 7E E6 3F  ..~.......w#w~.?
000190: 77 0E 3B C3 05 00 FE 0A C2 3B 09 21 98 0D 7E 23  w.;......;.!..~#
0001A0: 34 96 C2 39 09 77 23 7E B7 11 24 0D CC 41 09 FE  4..9.w#~..$..A..
0001B0: 03 CA 06 05 1E 0D CD 3C 09 3E 0A 5F 0E 02 C3 05  .......<.>._....
0001C0: 00 CD 49 09 0E 01 C3 05 00 0E 09 C3 05 00 21 F4  ..I...........!.
0001D0: 0D 36 E7 EB 0E 0A CD 05 00 21 F5 0D 7E 23 CD B0  .6.......!..~#..
0001E0: 0C 36 00 C3 09 0C CD 6D 09 C8 C3 06 05 0E 0B CD  .6.....m........
0001F0: EB 09 C8 0E 01 C3 EB 09 11 80 00 0E 1A C3 05 00  ................

Size : 512 (Real : 512)
000000: 31 D2 0C C3 8A 02 00 00 00 00 00 00 00 00 00 00  1...............
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: 43 50 2F 4D 20 56 65 72 73 69 6F 6E 20 33 2E 30  CP/M Version 3.0
000050: 43 4F 50 59 52 49 47 48 54 20 31 39 38 32 2C 20  COPYRIGHT 1982, 
000060: 44 49 47 49 54 41 4C 20 52 45 53 45 41 52 43 48  DIGITAL RESEARCH
000070: 31 35 31 32 38 32 00 00 00 00 36 35 34 33 32 31  151282....654321
000080: 0D 0A 0D 0A 50 72 65 73 73 20 52 45 54 55 52 4E  ....Press RETURN
000090: 20 74 6F 20 43 6F 6E 74 69 6E 75 65 20 24 0D 0A   to Continue $..
0000A0: 45 52 52 4F 52 3A 20 4E 6F 74 20 74 79 70 65 64  ERROR: Not typed
0000B0: 3A 20 24 50 61 73 73 77 6F 72 64 3A 20 24 4E 6F  : $Password: $No
0000C0: 20 46 69 6C 65 24 0D 0A 42 44 4F 53 20 42 61 64   File$..BDOS Bad
0000D0: 20 53 65 63 74 6F 72 24 0D 0A 49 6E 76 61 6C 69   Sector$..Invali
0000E0: 64 20 44 72 69 76 65 24 43 75 72 72 65 6E 74 6C  d Drive$Currentl
0000F0: 79 20 4F 70 65 6E 65 64 24 50 61 73 73 77 6F 72  y Opened$Passwor
000100: 64 20 45 72 72 6F 72 24 45 52 52 4F 52 3A 20 24  d Error$ERROR: $
000110: 49 6E 76 61 6C 69 64 20 6F 72 20 6D 69 73 73 69  Invalid or missi
000120: 6E 67 20 64 65 6C 69 6D 69 74 65 72 28 73 29 20  ng delimiter(s) 
000130: 24 54 72 79 20 27 50 41 47 45 27 20 6F 72 20 27  $Try 'PAGE' or '
000140: 4E 4F 20 50 41 47 45 27 20 24 52 65 71 75 69 72  NO PAGE' $Requir
000150: 65 73 20 43 50 2F 4D 20 33 2E 30 24 45 6E 74 65  es CP/M 3.0$Ente
000160: 72 20 66 69 6C 65 3A 20 24 0D 0A 24 45 52 52 4F  r file: $..$ERRO
000170: 52 3A 20 49 6E 76 61 6C 69 64 20 66 69 6C 65 20  R: Invalid file 
000180: 6E 61 6D 65 2E 20 24 31 D2 0C 31 D2 0C CD 75 05  name. $1..1...u.
000190: 22 D8 0C 2A D8 0C 7D D6 30 9F 2A D8 0C F5 7C D6  "..*..}.0.*...|.
0001A0: 01 D6 01 9F C1 48 B1 1F D2 B4 02 01 4A 02 CD 3E  .....H......J..>
0001B0: 05 CD D7 05 CD 4F 06 01 81 00 CD 18 08 2F 1F D2  .....O......./..
0001C0: 34 03 01 5C 02 CD 3E 05 1E 28 01 80 00 CD 4E 05  4..\..>..(....N.
0001D0: 32 E0 0C 01 69 02 CD 3E 05 21 81 00 36 20 E5 2A  2...i..>.!..6 .*
0001E0: E0 0C 26 00 C1 03 09 36 00 21 D3 0C 36 02 3A E0  ..&....6.!..6.:.
0001F0: 0C 3C 21 D3 0C BE DA 34 03 2A D3 0C 26 00 01 80  .<!....4.*..&...

Size : 512 (Real : 512)
000000: E5 E5 60 69 5E 23 56 23 7E 23 66 6F CD 3A 0C CD  ..`i^#V#~#fo.:..
000010: F8 0B C2 1E 0B 79 B7 C2 A0 0B 77 C3 4F 0B 47 13  .....y....w.O.G.
000020: 1A FE 3A C2 4C 0B 78 D6 41 DA A0 0B FE 10 D2 A0  ..:.L.x.A.......
000030: 0B 3C 77 13 CD F8 0B C2 4F 0B FE 2E CA A0 0B FE  .<w.....O.......
000040: 3A CA A0 0B FE 3B CA A0 0B C3 4F 0B 1B 36 00 06  :....;....O..6..
000050: 08 CD A6 0B 06 03 FE 2E CA 61 0B CD F0 0B C3 65  .........a.....e
000060: 0B 13 CD A6 0B 06 04 23 36 00 05 C2 67 0B 06 08  .......#6...g...
000070: FE 3B CA 7B 0B CD F0 0B C3 7F 0B 13 CD C9 0B D5  .;.{............
000080: CD 3A 0C CD F8 0B C2 8E 0B 33 33 C3 8F 0B D1 79  .:.......33....y
000090: B7 C1 79 C1 23 71 23 70 23 77 EB C0 21 00 00 C9  ..y.#q#p#w..!...
0000A0: E1 E1 21 FF FF C9 CD F8 0B CA F0 0B 23 FE 2A C2  ..!.........#.*.
0000B0: BB 0B 36 3F 05 C2 A6 0B C3 BD 0B 77 05 13 C2 A6  ..6?.......w....
0000C0: 0B CD F8 0B C8 E1 C3 A0 0B CD F8 0B CA F0 0B 33  ...............3
0000D0: 33 33 33 33 33 D5 E5 2E 00 E3 3B 3B 33 33 E3 2C  33333.....;;33.,
0000E0: E3 3B 3B 23 77 13 05 CA C1 0B CD F8 0B C2 DC 0B  .;;#w...........
0000F0: 23 36 20 05 C2 F0 0B C9 1A 4F B7 C8 0E 00 FE 0D  #6 ......O......
000100: C8 4F FE 09 C8 FE 20 DA 36 0C C8 FE 2E C8 FE 3A  .O.... .6......:
000110: C8 FE 3B C8 FE 3D C8 FE 2C C8 FE 2F C8 FE 5B C8  ..;..=..,../..[.
000120: FE 5D C8 FE 3C C8 FE 3E C8 FE 61 D8 FE 7B D2 33  .]..<..>..a..{.3
000130: 0C E6 5F E6 7F C9 E1 C3 A0 0B 1A FE 20 CA 46 0C  .._......... .F.
000140: FE 09 CA 46 0C C9 13 C3 3A 0C 69 60 4E 23 46 1A  ...F....:.i`N#F.
000150: 91 6F 13 1A 98 67 C9 6F 26 00 1A 95 6F 13 1A 9C  .o...g.o&...o...
000160: 67 C9 5F 16 00 7B 96 5F 7A 23 9E 57 EB C9 00 00  g._..{._z#.W....
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 FF 00 00 00  ................
0001E0: 00 00 00 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 09 7E FE 61 DA 2A 03 2A D3 0C 26 00 01 80 00  ..~.a.*.*..&....
000010: 09 7E FE 7D D2 2A 03 2A D3 0C 26 00 01 80 00 09  .~.}.*.*..&.....
000020: 7E D6 20 2A D3 0C 26 00 09 77 3A D3 0C 3C 32 D3  ~. *..&..w:..<2.
000030: 0C C2 EE 02 21 D6 0C 36 00 2B 36 00 21 81 00 22  ....!..6.+6.!.."
000040: 1E 0D 21 5C 00 22 20 0D 01 1E 0D CD FD 0A 22 DE  ..!\." .......".
000050: 0C 01 FF FF 11 DE 0C CD 4F 0C B5 C2 67 03 01 6C  ........O...g..l
000060: 02 CD 3E 05 CD D7 05 0E 2C CD F9 05 FE 00 CA 76  ..>.....,......v
000070: 03 21 DC 0C 36 00 3E 00 11 DE 0C CD 57 0C B5 CA  .!..6.>.....W...
000080: B9 04 CD D8 0A 2A DE 0C 7E FE 00 C2 91 03 C3 B9  .....*..~.......
000090: 04 2A DE 0C 7E FE 5B CA 9F 03 0E 00 CD EE 07 2A  .*..~.[........*
0000A0: DE 0C 23 22 DE 0C CD D8 0A 2A DE 0C 7E FE 4E C2  ..#".....*..~.N.
0000B0: EA 03 2A DE 0C 23 22 DE 0C 2A DE 0C 7E D6 4F D6  ..*..#"..*..~.O.
0000C0: 01 9F 2A DE 0C F5 7E D6 20 D6 01 9F C1 48 B1 1F  ..*...~. ....H..
0000D0: D2 E2 03 2A DE 0C 23 22 DE 0C 21 DD 0C 36 FF C3  ...*..#"..!..6..
0000E0: E7 03 0E 01 CD EE 07 CD D8 0A 2A DE 0C 7E FE 50  ..........*..~.P
0000F0: C2 FB 03 21 DC 0C 36 FF C3 00 04 0E 01 CD EE 07  ...!..6.........
000100: 2A DE 0C 23 22 DE 0C 2A DE 0C 7E D6 5D D6 01 9F  *..#"..*..~.]...
000110: 2A DE 0C F5 7E D6 00 D6 01 9F C1 48 B1 1F D2 24  *...~......H...$
000120: 04 C3 B9 04 2A DE 0C 7E FE 41 CA 30 04 C3 97 04  ....*..~.A.0....
000130: 2A DE 0C 23 22 DE 0C 2A DE 0C 7E D6 5D D6 01 9F  *..#"..*..~.]...
000140: 2A DE 0C F5 7E D6 00 D6 01 9F C1 48 B1 1F D2 54  *...~......H...T
000150: 04 C3 B9 04 2A DE 0C 7E FE 47 CA 60 04 C3 97 04  ....*..~.G.`....
000160: 2A DE 0C 23 22 DE 0C 2A DE 0C 7E D6 5D D6 01 9F  *..#"..*..~.]...
000170: 2A DE 0C F5 7E D6 00 D6 01 9F C1 48 B1 1F D2 84  *...~......H....
000180: 04 C3 B9 04 2A DE 0C 7E FE 45 CA 90 04 C3 97 04  ....*..~.E......
000190: 2A DE 0C 23 22 DE 0C CD D8 0A 2A DE 0C 7E D6 5D  *..#".....*..~.]
0001A0: C6 FF 9F 2A DE 0C F5 7E D6 00 C6 FF 9F C1 48 A1  ...*...~......H.
0001B0: 1F D2 B9 04 0E 01 CD EE 07 3A DD 0C 1F D2 C7 04  .........:......
0001C0: 3A DC 0C 2F 32 DC 0C 3A DC 0C 1F D2 E8 04 0E 1C  :../2..:........
0001D0: CD F9 05 3D 3D 32 D5 0C 3A D5 0C FE 00 C2 E5 04  ...==2..:.......
0001E0: 21 D5 0C 36 16 C3 ED 04 21 D5 0C 36 00 01 5C 00  !..6....!..6..\.
0001F0: CD 4F 08 32 E2 0C 3A E2 0C FE FF C2 04 05 CD DB  .O.2..:.........

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 62 75        PROGRAM bu
000010: 62 62 6C 65 33 3B 0D 0A 20 20 20 20 20 20 20 20  bble3;..        
000020: 0D 0A 20 20 20 20 20 20 20 20 28 2A 20 50 72 6F  ..        (* Pro
000030: 67 72 61 6D 6D 65 74 20 73 6F 72 74 65 72 65 72  grammet sorterer
000040: 20 65 6E 20 72 7B 6B 6B 65 20 74 61 6C 20 76 65   en r{kke tal ve
000050: 64 20 62 75 62 62 6C 65 73 6F 72 74 2D 6D 65 74  d bubblesort-met
000060: 6F 64 65 6E 20 2A 29 0D 0A 20 20 20 20 20 20 20  oden *)..       
000070: 20 28 2A 20 42 75 62 62 6C 65 73 6F 72 74 20 6D   (* Bubblesort m
000080: 65 64 20 66 6C 61 67 20 20 20 20 20 20 20 20 20  ed flag         
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 2A 29 0D 0A              *)..
0000B0: 20 20 20 20 20 20 20 20 28 2A 20 55 64 73 6B 72          (* Udskr
0000C0: 69 66 74 65 6E 20 6B 6F 6D 6D 65 72 20 70 7D 20  iften kommer p} 
0000D0: 73 6B 7B 72 6D 65 6E 20 20 20 20 20 20 20 20 20  sk{rmen         
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000F0: 20 20 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 0D     *)..        .
000100: 0A 20 20 20 20 20 20 20 20 43 4F 4E 53 54 0D 0A  .        CONST..
000110: 20 20 20 20 20 20 20 20 20 20 6D 61 78 20 3D 20            max = 
000120: 31 30 30 3B 0D 0A 20 20 20 20 20 20 20 20 0D 0A  100;..        ..
000130: 20 20 20 20 20 20 20 20 54 59 50 45 0D 0A 20 20          TYPE..  
000140: 20 20 20 20 20 20 20 20 76 65 6B 74 6F 72 20 3D          vektor =
000150: 20 41 52 52 41 59 28 2E 31 20 2E 2E 20 6D 61 78   ARRAY(.1 .. max
000160: 2E 29 20 4F 46 20 49 4E 54 45 47 45 52 3B 0D 0A  .) OF INTEGER;..
000170: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20          ..      
000180: 20 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 20    VAR..         
000190: 20 76 20 3A 20 76 65 6B 74 6F 72 3B 0D 0A 20 20   v : vektor;..  
0001A0: 20 20 20 20 20 20 20 20 69 2C 20 6A 2C 20 62 79          i, j, by
0001B0: 74 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20  t : INTEGER;..  
0001C0: 20 20 20 20 20 20 20 20 73 6C 75 74 20 3A 20 42          slut : B
0001D0: 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 20 20 20 20 20  OOLEAN;..       
0001E0: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 42 45 47     ..        BEG
0001F0: 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 52 41  IN..          RA

Size : 512 (Real : 512)
000000: 09 C3 17 05 2E 10 11 E3 0C 01 5C 00 0A 12 03 13  ..........\.....
000010: 2D C2 0C 05 CD CA 08 CD D7 05 FB 76 11 00 00 0E  -..........v....
000020: 01 CD 05 00 C9 21 04 0D 71 2A 04 0D 26 00 EB 0E  .....!..q*..&...
000030: 02 CD 05 00 C9 11 FD 00 0E 06 CD 05 00 C9 21 06  ..............!.
000040: 0D 70 2B 71 2A 05 0D EB 0E 09 CD 05 00 C9 21 09  .p+q*.........!.
000050: 0D 73 2B 70 2B 71 2A 07 0D 3A 09 0D 77 23 36 00  .s+p+q*..:..w#6.
000060: 2A 07 0D EB 0E 0A CD 05 00 2A 07 0D 23 22 07 0D  *........*..#"..
000070: 4E 23 46 79 C9 11 00 00 0E 0C CD 05 00 C9 11 00  N#Fy............
000080: 00 0E 0B CD 05 00 C9 21 0B 0D 70 2B 71 2A 0A 0D  .......!..p+q*..
000090: EB 0E 0F CD 05 00 C9 21 0D 0D 70 2B 71 2A 0C 0D  .......!..p+q*..
0000A0: EB 0E 10 CD 05 00 C9 21 0F 0D 70 2B 71 2A 0E 0D  .......!..p+q*..
0000B0: EB 0E 14 CD 05 00 C9 21 11 0D 70 2B 71 2A 10 0D  .......!..p+q*..
0000C0: EB 0E 1A CD 05 00 C9 21 12 0D 71 2A 12 0D 26 00  .......!..q*..&.
0000D0: EB 0E 2D CD 05 00 C9 11 00 00 0E 00 CD 05 00 C9  ..-.............
0000E0: 21 14 0D 70 2B 71 2A 13 0D EB 0E 11 CD 05 00 C9  !..p+q*.........
0000F0: 11 00 00 0E 12 CD 05 00 C9 21 19 0D 71 3A 19 0D  .........!..q:..
000100: 32 15 0D 21 16 0D 36 00 11 15 0D 0E 31 CD 05 00  2..!..6.....1...
000110: C9 21 1A 0D 71 3A 1A 0D 32 15 0D 21 16 0D 36 00  .!..q:..2..!..6.
000120: 11 15 0D 0E 31 CD 05 00 C9 21 1D 0D 72 2B 73 2B  ....1....!..r+s+
000130: 71 3A 1B 0D 32 15 0D 21 16 0D 36 FE E5 2A 1C 0D  q:..2..!..6..*..
000140: EB E1 23 73 23 72 11 15 0D 0E 31 CD 05 00 C9 11  ..#s#r....1.....
000150: 01 00 0E 6D CD 05 00 C9 0E 0D CD 25 05 0E 0A CD  ...m.......%....
000160: 25 05 C9 21 25 0D 73 2B 71 2B D1 C1 70 2B 71 D5  %..!%.s+q+..p+q.
000170: 3A 25 0D 3D 32 25 0D FE FF CA 8D 06 2A 22 0D 3A  :%.=2%......*".:
000180: 24 0D 77 2A 22 0D 23 22 22 0D C3 70 06 C9 CD 35  $.w*".#""..p...5
000190: 05 32 26 0D FE 61 DA A7 06 3A 26 0D FE 7B D2 A7  .2&..a...:&..{..
0001A0: 06 3A 26 0D D6 20 C9 3A 26 0D C9 CD 58 06 CD 58  .:&.. .:&...X..X
0001B0: 06 01 B3 01 CD 3E 05 01 6C 00 C5 1E 08 0E 20 CD  .....>..l..... .
0001C0: 63 06 21 27 0D 36 00 3E 07 21 27 0D BE DA 36 07  c.!'.6.>.!'...6.
0001D0: CD 8E 06 32 28 0D FE 20 DA E8 06 2A 27 0D 26 00  ...2(.. ...*'.&.
0001E0: 01 6C 00 09 3A 28 0D 77 3A 28 0D FE 0D C2 F3 06  .l..:(.w:(......
0001F0: C3 36 07 3A 28 0D FE 18 C2 FE 06 C3 B7 06 3A 28  .6.:(.........:(

Size : 512 (Real : 512)
000000: 4E 44 4F 4D 49 5A 45 3B 0D 0A 20 20 20 20 20 20  NDOMIZE;..      
000010: 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 54      FOR i := 1 T
000020: 4F 20 6D 61 78 20 44 4F 20 20 28 2A 20 56 69 20  O max DO  (* Vi 
000030: 66 69 6E 64 65 72 20 66 7C 72 73 74 20 6E 6F 67  finder f|rst nog
000040: 6C 65 20 74 61 6C 20 2A 29 0D 0A 20 20 20 20 20  le tal *)..     
000050: 20 20 20 20 20 20 20 76 28 2E 69 2E 29 20 3A 3D         v(.i.) :=
000060: 20 52 41 4E 44 4F 4D 28 32 30 30 29 3B 0D 0A 20   RANDOM(200);.. 
000070: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E           WRITELN
000080: 28 43 4C 52 48 4F 4D 2C 20 27 44 65 20 75 73 6F  (CLRHOM, 'De uso
000090: 72 74 65 72 65 64 65 20 74 61 6C 20 65 72 3A 27  rterede tal er:'
0000A0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 46 4F  );..          FO
0000B0: 52 20 69 20 3A 3D 20 31 20 54 4F 20 6D 61 78 20  R i := 1 TO max 
0000C0: 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  DO..            
0000D0: 57 52 49 54 45 28 76 28 2E 69 2E 29 20 3A 20 34  WRITE(v(.i.) : 4
0000E0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52  );..          WR
0000F0: 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20  ITELN;..        
000100: 20 20 69 20 3A 3D 20 6D 61 78 3B 0D 0A 20 20 20    i := max;..   
000110: 20 20 20 20 20 20 20 52 45 50 45 41 54 0D 0A 20         REPEAT.. 
000120: 20 20 20 20 20 20 20 20 20 20 20 69 20 3A 3D 20             i := 
000130: 69 20 2D 20 31 3B 0D 0A 20 20 20 20 20 20 20 20  i - 1;..        
000140: 20 20 20 20 73 6C 75 74 20 3A 3D 20 54 52 55 45      slut := TRUE
000150: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 46  ;..            F
000160: 4F 52 20 6A 20 3A 3D 20 31 20 54 4F 20 69 20 44  OR j := 1 TO i D
000170: 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  O..             
000180: 20 49 46 20 76 28 2E 6A 2E 29 20 3E 20 76 28 2E   IF v(.j.) > v(.
000190: 6A 20 2B 20 31 2E 29 0D 0A 20 20 20 20 20 20 20  j + 1.)..       
0001A0: 20 20 20 20 20 20 20 20 20 54 48 45 4E 0D 0A 20           THEN.. 
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001C0: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20   BEGIN..        
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 73 6C 75 74              slut
0001E0: 20 3A 3D 20 46 41 4C 53 45 3B 0D 0A 20 20 20 20   := FALSE;..    
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  

Size : 512 (Real : 512)
000000: 0D FE 08 C2 24 07 3A 27 0D FE 01 D2 11 07 C3 B7  ....$.:'........
000010: 06 3A 27 0D 3D 32 27 0D 4F 06 00 21 6C 00 09 36  .:'.=2'.O..!l..6
000020: 20 C3 D0 06 3A 28 0D FE 03 C2 2F 07 CD D7 05 21   ...:(..../....!
000030: 27 0D 34 C2 C7 06 CD 7E 05 32 28 0D C9 21 29 0D  '.4....~.2(..!).
000040: 71 3A 29 0D FE 00 C2 52 07 01 BE 01 CD 3E 05 CD  q:)....R.....>..
000050: D7 05 3A 29 0D FE 01 C2 63 07 01 C6 01 CD 3E 05  ..:)....c.....>.
000060: CD D7 05 3A 29 0D FE 04 C2 74 07 01 D8 01 CD 3E  ...:)....t.....>
000070: 05 CD D7 05 3A 29 0D FE 05 C2 82 07 01 E8 01 CD  ....:)..........
000080: 3E 05 3A 29 0D FE 07 C2 90 07 01 F9 01 CD 3E 05  >.:)..........>.
000090: C9 21 2B 0D 70 2B 71 2A 2A 0D 7E FE 00 CA AF 07  .!+.p+q**.~.....
0000A0: 2A 2A 0D 3E 40 86 4F CD 25 05 0E 3A CD 25 05 21  **.>@.O.%..:.%.!
0000B0: 2C 0D 36 01 3E 0B 21 2C 0D BE DA ED 07 3A 2C 0D  ,.6.>.!,.....:,.
0000C0: FE 09 C2 CA 07 0E 2E CD 25 05 2A 2C 0D 26 00 EB  ........%.*,.&..
0000D0: 2A 2A 0D 19 3E 7F A6 32 2D 0D FE 20 CA E6 07 2A  **..>..2-.. ...*
0000E0: 2D 0D 4D CD 25 05 21 2C 0D 34 C2 B4 07 C9 21 2E  -.M.%.!,.4....!.
0000F0: 0D 71 01 08 02 CD 3E 05 3A 2E 0D FE 00 C2 06 08  .q....>.:.......
000100: 01 10 02 CD 3E 05 3A 2E 0D FE 01 C2 14 08 01 31  ....>.:........1
000110: 02 CD 3E 05 CD D7 05 C9 21 30 0D 70 2B 71 2A 2F  ..>.....!0.p+q*/
000120: 0D 7E D6 20 D6 01 9F F5 7E D6 09 D6 01 9F C1 48  .~. ....~......H
000130: B1 1F D2 3F 08 2A 2F 0D 23 22 2F 0D C3 1E 08 2A  ...?.*/.#"/....*
000140: 2F 0D 7E FE 00 C2 4B 08 3E 00 C9 3E FF C9 C9 21  /.~...K.>..>...!
000150: 32 0D 70 2B 71 21 33 0D 36 00 23 36 00 3A 33 0D  2.p+q!3.6.#6.:3.
000160: FE 0B D2 81 08 2A 31 0D 7E FE 3F C2 73 08 21 34  .....*1.~.?.s.!4
000170: 0D 36 FF 21 33 0D 34 2A 31 0D 23 22 31 0D C3 5D  .6.!3.4*1.#"1..]
000180: 08 3A 34 0D C9 3A D5 0C FE 00 CA C9 08 3A D6 0C  .:4..:.......:..
000190: 3C 32 D6 0C 21 D5 0C BE DA C9 08 01 80 01 CD 3E  <2..!..........>
0001A0: 05 CD 35 05 32 D6 0C 0E 0D CD 25 05 3A D6 0C FE  ..5.2.....%.:...
0001B0: 03 C2 B7 08 CD D7 05 3A D6 0C FE 0F C2 C4 08 21  .......:.......!
0001C0: D2 0C 36 FF 21 D6 0C 36 FF C9 0E FF CD C7 05 01  ..6.!..6........
0001D0: 6C 00 CD B7 05 3A E9 0C F6 80 32 E9 0C 21 EF 0C  l....:....2..!..
0001E0: 36 00 01 E3 0C CD 87 05 22 DA 0C 2A DA 0C 7D FE  6......."..*..}.
0001F0: FF C2 3D 09 2A DA 0C 7C 32 D7 0C FE 07 C2 25 09  ..=.*..|2.....%.

Size : 512 (Real : 512)
000000: 62 79 74 20 3A 3D 20 76 28 2E 6A 2E 29 3B 0D 0A  byt := v(.j.);..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000020: 20 20 20 20 76 28 2E 6A 2E 29 20 3A 3D 20 76 28      v(.j.) := v(
000030: 2E 6A 20 2B 20 31 2E 29 3B 0D 0A 20 20 20 20 20  .j + 1.);..     
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76                 v
000050: 28 2E 6A 20 2B 20 31 2E 29 20 3A 3D 20 62 79 74  (.j + 1.) := byt
000060: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  ;..             
000070: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20       END;..     
000080: 20 20 20 20 20 55 4E 54 49 4C 20 28 69 20 3D 20       UNTIL (i = 
000090: 31 29 20 4F 52 20 73 6C 75 74 3B 0D 0A 20 20 20  1) OR slut;..   
0000A0: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D         WRITELN;.
0000B0: 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45  .          WRITE
0000C0: 4C 4E 28 27 44 65 20 73 6F 72 74 65 72 65 64 65  LN('De sorterede
0000D0: 20 74 61 6C 20 65 72 3A 27 29 3B 0D 0A 20 20 20   tal er:');..   
0000E0: 20 20 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20         FOR i := 
0000F0: 31 20 54 4F 20 6D 61 78 20 44 4F 0D 0A 20 20 20  1 TO max DO..   
000100: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 76           WRITE(v
000110: 28 2E 69 2E 29 20 3A 20 34 29 3B 0D 0A 20 20 20  (.i.) : 4);..   
000120: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D         WRITELN;.
000130: 0A 20 20 20 20 20 20 20 20 45 4E 44 2E 0D 0A 1A  .        END....
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: 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: CD AB 06 CD 58 06 01 6C 00 CD B7 05 3A E9 0C F6  ....X..l....:...
000010: 80 32 E9 0C 0E 00 CD C7 05 01 E3 0C CD 87 05 22  .2............."
000020: DA 0C C3 3D 09 01 9E 01 CD 3E 05 01 E3 0C CD 91  ...=.....>......
000030: 07 0E 20 CD 25 05 2A D7 0C 4D CD 3D 07 2A DA 0C  .. .%.*..M.=.*..
000040: 7D FE FF CA D5 09 0E 00 CD C7 05 01 80 00 CD B7  }...............
000050: 05 21 03 0D 36 00 21 D2 0C 36 00 3A D2 0C 2F F5  .!..6.!..6.:../.
000060: 01 E3 0C CD A7 05 D6 00 D6 01 9F C1 48 A1 1F D2  ............H...
000070: D2 09 21 D3 0C 36 00 3E 7F 21 D3 0C BE DA CF 09  ..!..6.>.!......
000080: 2A D3 0C 26 00 01 80 00 09 7E 32 D4 0C FE 1A C2  *..&.....~2.....
000090: 97 09 21 D2 0C 36 FF 3A D2 0C 1F DA C8 09 CD 7E  ..!..6.:.......~
0000A0: 05 1F D2 AE 09 CD 35 05 32 D6 0C CD D7 05 3A D5  ......5.2.....:.
0000B0: 0C FE 00 CA C1 09 3A D4 0C FE 0A C2 C1 09 CD 85  ......:.........
0000C0: 08 2A D4 0C 4D CD 25 05 21 D3 0C 34 C2 77 09 C3  .*..M.%.!..4.w..
0000D0: 5B 09 C3 DA 09 0E 00 CD 3D 07 C9 01 80 00 CD B7  [.......=.......
0000E0: 05 01 5C 00 CD E0 05 32 36 0D FE FF C2 F4 09 0E  ..\....26.......
0000F0: 00 CD 3D 07 3A 36 0D FE FF CA D7 0A 3A 36 0D 87  ..=.:6......:6..
000100: 87 87 87 87 6F 26 00 11 80 00 19 22 37 0D 0E 45  ....o&....."7..E
000110: CD 11 06 22 39 0D 0E 47 CD 11 06 22 3B 0D 0E 49  ..."9..G...";..I
000120: CD 11 06 22 3D 0D 0E 00 CD 11 06 22 3F 0D 0E 02  ..."=......"?...
000130: CD 11 06 22 41 0D 0E 04 CD 11 06 22 43 0D 2E 10  ..."A......"C...
000140: E5 2A 37 0D 44 4D 11 E3 0C E1 0A 12 03 13 2D C2  .*7.DM........-.
000150: 4A 0A 3A 5C 00 32 E3 0C CD 85 08 CD 58 06 01 E3  J.:\.2......X...
000160: 0C CD 91 07 0E 3A CD 25 05 CD 85 08 CD 58 06 CD  .....:.%.....X..
000170: CA 08 01 80 00 CD B7 05 2A 39 0D EB 0E 45 CD 29  ........*9...E.)
000180: 06 2A 3B 0D EB 0E 47 CD 29 06 2A 3D 0D EB 0E 49  .*;...G.).*=...I
000190: CD 29 06 2A 3F 0D EB 0E 00 CD 29 06 2A 41 0D EB  .).*?.....).*A..
0001A0: 0E 02 CD 29 06 2A 43 0D EB 0E 04 CD 29 06 21 3B  ...).*C.....).!;
0001B0: 0D 11 5C 00 CD 65 0C B5 CA CE 0A 2E 10 E5 2A 3B  ..\..e........*;
0001C0: 0D EB 01 5C 00 E1 0A 12 03 13 2D C2 C6 0A CD F0  ...\......-.....
0001D0: 05 32 36 0D C3 F4 09 C9 2A DE 0C 7E D6 20 D6 01  .26.....*..~. ..
0001E0: 9F 2A DE 0C F5 7E D6 09 D6 01 9F C1 48 B1 1F D2  .*...~......H...
0001F0: FC 0A 2A DE 0C 23 22 DE 0C C3 D8 0A C9 21 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: 20 70 6F 73 69 74 69 6F 6E 20 3A 3D 20 69 3B 0D   position := i;.
000010: 0A 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20  .            IF 
000020: 70 6F 73 69 74 69 6F 6E 20 3E 20 30 20 20 20 20  position > 0    
000030: 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 46 65             (* Fe
000040: 6A 6C 61 67 74 69 67 74 20 74 65 67 6E 20 66 75  jlagtigt tegn fu
000050: 6E 64 65 74 20 2A 29 0D 0A 20 20 20 20 20 20 20  ndet *)..       
000060: 20 20 20 20 20 20 20 54 48 45 4E 20 0D 0A 20 20         THEN ..  
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45                BE
000080: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20  GIN..           
000090: 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 32 37         GOTOXY(27
0000A0: 20 2B 20 70 6F 73 69 74 69 6F 6E 2C 20 38 29 3B   + position, 8);
0000B0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
0000C0: 20 20 20 20 57 52 49 54 45 28 27 5E 27 29 3B 0D      WRITE('^');.
0000D0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0000E0: 20 20 20 47 4F 54 4F 58 59 28 32 37 20 2B 20 70     GOTOXY(27 + p
0000F0: 6F 73 69 74 69 6F 6E 2C 20 39 29 3B 0D 0A 20 20  osition, 9);..  
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000110: 57 52 49 54 45 28 27 46 65 6A 6C 61 67 74 69 67  WRITE('Fejlagtig
000120: 74 20 74 65 67 6E 20 2D 20 54 61 73 74 20 3C 52  t tegn - Tast <R
000130: 45 54 55 52 4E 3E 27 29 3B 0D 0A 20 20 20 20 20  ETURN>');..     
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41               REA
000150: 44 4C 4E 28 72 65 74 75 72 29 3B 0D 0A 20 20 20  DLN(retur);..   
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44               END
000170: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 55 4E 54  ;..          UNT
000180: 49 4C 20 70 6F 73 69 74 69 6F 6E 20 3D 20 30 3B  IL position = 0;
000190: 0D 0A 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F  ..          GOTO
0001A0: 58 59 28 31 30 2C 20 39 29 3B 0D 0A 20 20 20 20  XY(10, 9);..    
0001B0: 20 20 20 20 20 20 57 52 49 54 45 28 27 43 69 66        WRITE('Cif
0001C0: 72 65 6E 65 20 65 72 3A 20 27 29 3B 0D 0A 20 20  rene er: ');..  
0001D0: 20 20 20 20 20 20 20 20 46 4F 52 20 69 20 3A 3D          FOR i :=
0001E0: 20 31 20 54 4F 20 6D 61 78 74 65 67 6E 20 44 4F   1 TO maxtegn DO
0001F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 45  ..            BE

Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 63 65 6C 73 69 75 73 3B  PROGRAM celsius;
000010: 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 63  ....  VAR..    c
000020: 65 6C 73 69 75 73 2C 20 66 61 68 72 65 6E 68 65  elsius, fahrenhe
000030: 69 74 2C 20 72 65 61 6D 75 72 20 3A 20 52 45 41  it, reamur : REA
000040: 4C 3B 0D 0A 20 20 0D 0A 20 20 42 45 47 49 4E 0D  L;..  ..  BEGIN.
000050: 0A 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F  .    WRITE(CLRHO
000060: 4D 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E  M);..    WRITELN
000070: 28 27 50 72 6F 67 72 61 6D 6D 65 74 20 75 64 73  ('Programmet uds
000080: 6B 72 69 76 65 72 20 52 45 41 4D 55 52 2D 20 6F  kriver REAMUR- o
000090: 67 20 46 41 48 52 45 4E 48 45 49 54 2D 67 72 61  g FAHRENHEIT-gra
0000A0: 64 74 61 6C 6C 65 6E 65 2C 27 29 3B 0D 0A 20 20  dtallene,');..  
0000B0: 20 20 57 52 49 54 45 4C 4E 28 27 6E 7D 72 20 6D    WRITELN('n}r m
0000C0: 61 6E 20 69 6E 64 74 61 73 74 65 72 20 67 72 61  an indtaster gra
0000D0: 64 74 61 6C 6C 65 74 20 66 6F 72 20 43 45 4C 53  dtallet for CELS
0000E0: 49 55 53 27 29 3B 0D 0A 20 20 20 20 57 52 49 54  IUS');..    WRIT
0000F0: 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 28  ELN;..    WRITE(
000100: 27 49 6E 64 74 61 73 74 20 43 45 4C 53 49 55 53  'Indtast CELSIUS
000110: 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 63 65 6C  : '); READLN(cel
000120: 73 69 75 73 29 3B 0D 0A 20 20 20 20 72 65 61 6D  sius);..    ream
000130: 75 72 20 3A 3D 20 63 65 6C 73 69 75 73 20 2A 20  ur := celsius * 
000140: 30 2E 38 3B 0D 0A 20 20 20 20 66 61 68 72 65 6E  0.8;..    fahren
000150: 68 65 69 74 20 3A 3D 20 63 65 6C 73 69 75 73 20  heit := celsius 
000160: 2A 20 31 2E 38 20 2B 20 33 32 3B 0D 0A 20 20 20  * 1.8 + 32;..   
000170: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 57   WRITELN;..    W
000180: 52 49 54 45 4C 4E 28 27 43 65 6C 73 69 75 73 3A  RITELN('Celsius:
000190: 20 20 20 20 27 2C 20 63 65 6C 73 69 75 73 20 3A      ', celsius :
0001A0: 20 37 20 3A 20 32 29 3B 0D 0A 20 20 20 20 57 52   7 : 2);..    WR
0001B0: 49 54 45 4C 4E 28 27 52 65 61 6D 75 72 3A 20 20  ITELN('Reamur:  
0001C0: 20 20 20 27 2C 20 72 65 61 6D 75 72 20 3A 20 37     ', reamur : 7
0001D0: 20 3A 20 32 29 3B 0D 0A 20 20 20 20 57 52 49 54   : 2);..    WRIT
0001E0: 45 4C 4E 28 27 46 61 68 72 65 6E 68 65 69 74 3A  ELN('Fahrenheit:
0001F0: 20 27 2C 20 66 61 68 72 65 6E 68 65 69 74 20 3A   ', fahrenheit :

Size : 512 (Real : 512)
000000: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20  GIN..           
000010: 20 20 20 76 28 2E 69 2E 29 20 3A 3D 20 4F 52 44     v(.i.) := ORD
000020: 28 63 73 74 72 65 6E 67 28 2E 69 2E 29 29 20 2D  (cstreng(.i.)) -
000030: 20 4F 52 44 28 27 30 27 29 3B 0D 0A 20 20 20 20   ORD('0');..    
000040: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28            WRITE(
000050: 76 28 2E 69 2E 29 20 3A 20 32 29 3B 0D 0A 20 20  v(.i.) : 2);..  
000060: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A            END;..
000070: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C            WRITEL
000080: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E 44 2E  N;..        END.
000090: 0D 0A 1A 76 28 2E 69 2E 29 20 3A 3D 20 4F 52 44  ...v(.i.) := ORD
0000A0: 28 63 73 74 72 65 6E 67 28 2E 69 2E 29 29 20 2D  (cstreng(.i.)) -
0000B0: 20 4F 52 44 28 27 30 27 29 3B 0D 0A 20 20 20 20   ORD('0');..    
0000C0: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28            WRITE(
0000D0: 76 28 2E 69 2E 29 20 3A 20 32 29 3B 0D 0A 20 20  v(.i.) : 2);..  
0000E0: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A            END;..
0000F0: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C            WRITEL
000100: D7 B6 E7 BB BD D7 1C 60 2E F5 41 FC AE 49 C1 5C  .......`..A..I.\
000110: A6 E9 0F FB 4C 24 1C 40 11 59 D7 88 B9 56 25 09  ....L$.@.Y...V%.
000120: 6A 20 36 F0 61 0C 1B D3 D0 23 6F C4 93 E6 77 4B  j 6.a....#o...wK
000130: F7 D0 11 96 C9 68 25 C5 67 46 06 6C 56 16 CE 1E  .....h%.gF.lV...
000140: EA B5 3D 47 22 17 16 A4 48 A1 7E 82 DA C3 1A 1A  ..=G"...H.~.....
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: 76 FD 52 45 4E 54 45 44 41 47 2E 50 41 53 5B 32  v.RENTEDAG.PAS[2
000190: 38 2F 30 31 2F 31 39 39 31 5D 00 11 10 00 05 ED  8/01/1991]......
0001A0: 77 3B 3D 1C 3E 5F 5F 55 FC F7 FE 3F D7 9E EF 5F  w;=.>__U...?..._
0001B0: C7 8B 97 CA 5A DA 6C B6 97 DD DB 8F BD D7 DB E7  ....Z.l.........
0001C0: 6F 56 A5 80 3D DD 6B 99 6F 6A FF 41 68 D3 96 A2  oV..=.k.oj.Ah...
0001D0: 28 6B AB E2 DE EE A7 BE 8A 67 A2 0B A4 CF 34 14  (k.......g....4.
0001E0: 7F EA 47 E6 2C A8 F1 9F 65 B3 AF 0F 1F 0E F7 8F  ..G.,...e.......
0001F0: 13 9F 14 07 84 1B 3C CE FA 1C 74 B1 89 77 D3 EC  ......<...t..w..

Size : 512 (Real : 512)
000000: 20 37 20 3A 20 32 29 3B 0D 0A 20 20 20 20 57 52   7 : 2);..    WR
000010: 49 54 45 4C 4E 3B 0D 0A 20 20 45 4E 44 2E 0D 0A  ITELN;..  END...
000020: 1A 37 20 3A 20 32 29 3B 0D 0A 20 20 20 20 57 52  .7 : 2);..    WR
000030: 49 54 45 4C 4E 28 27 52 65 61 6D 75 72 3A 20 20  ITELN('Reamur:  
000040: 20 20 20 27 2C 20 72 65 61 6D 75 72 20 3A 20 37     ', reamur : 7
000050: 20 3A 20 32 29 3B 0D 0A 20 20 20 20 57 52 49 54   : 2);..    WRIT
000060: 45 4C 4E 28 27 46 61 68 72 65 6E 68 65 69 74 3A  ELN('Fahrenheit:
000070: 20 27 2C 20 66 61 68 72 65 6E 68 65 69 74 20 3A   ', fahrenheit :
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 52 4F 47 52 41 4D 20 63 68 65 63 6B 32 3B 0D  PROGRAM check2;.
000010: 0A 20 20 0D 0A 20 20 46 55 4E 43 54 49 4F 4E 20  .  ..  FUNCTION 
000020: 6C 61 65 73 74 61 6C 28 6D 69 6E 2C 20 6D 61 78  laestal(min, max
000030: 20 3A 20 49 4E 54 45 47 45 52 29 20 3A 20 49 4E   : INTEGER) : IN
000040: 54 45 47 45 52 3B 0D 0A 20 20 0D 0A 20 20 20 20  TEGER;..  ..    
000050: 54 59 50 45 0D 0A 20 20 20 20 20 20 73 74 72 35  TYPE..      str5
000060: 20 3D 20 53 54 52 49 4E 47 28 2E 35 2E 29 3B 0D   = STRING(.5.);.
000070: 0A 20 20 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A  .    ..    VAR..
000080: 20 20 20 20 20 20 73 74 72 65 6E 67 20 3A 20 73        streng : s
000090: 74 72 35 3B 0D 0A 20 20 20 20 20 20 6F 6B 20 3A  tr5;..      ok :
0000A0: 20 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 20 20 20   BOOLEAN;..     
0000B0: 20 68 65 6C 74 61 6C 2C 20 74 65 73 74 2C 20 69   heltal, test, i
0000C0: 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20   : INTEGER;..   
0000D0: 20 0D 0A 20 20 20 20 42 45 47 49 4E 20 28 2A 20   ..    BEGIN (* 
0000E0: 6C 61 65 73 74 61 6C 20 2A 29 0D 0A 20 20 20 20  laestal *)..    
0000F0: 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20    REPEAT..      
000100: 20 20 42 55 46 4C 45 4E 20 3A 3D 20 35 3B 0D 0A    BUFLEN := 5;..
000110: 20 20 20 20 20 20 20 20 52 45 41 44 28 73 74 72          READ(str
000120: 65 6E 67 29 3B 0D 0A 20 20 20 20 20 20 20 20 56  eng);..        V
000130: 41 4C 28 73 74 72 65 6E 67 2C 20 68 65 6C 74 61  AL(streng, helta
000140: 6C 2C 20 74 65 73 74 29 3B 0D 0A 20 20 20 20 20  l, test);..     
000150: 20 20 20 6F 6B 20 3A 3D 20 28 74 65 73 74 20 3D     ok := (test =
000160: 20 30 29 20 41 4E 44 20 28 6D 69 6E 20 3C 3D 20   0) AND (min <= 
000170: 68 65 6C 74 61 6C 29 20 41 4E 44 20 28 68 65 6C  heltal) AND (hel
000180: 74 61 6C 20 3C 3D 20 6D 61 78 29 3B 0D 0A 20 20  tal <= max);..  
000190: 20 20 20 20 20 20 49 46 20 4E 4F 54 20 6F 6B 20        IF NOT ok 
0001A0: 28 2A 20 73 6C 65 74 20 73 76 61 72 65 74 20 2A  (* slet svaret *
0001B0: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 54 48 45  )..          THE
0001C0: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 46  N..            F
0001D0: 4F 52 20 69 20 3A 3D 20 31 20 54 4F 20 4C 45 4E  OR i := 1 TO LEN
0001E0: 28 73 74 72 65 6E 67 29 20 44 4F 0D 0A 20 20 20  (streng) DO..   
0001F0: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45             WRITE

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 63 68        PROGRAM ch
000010: 65 63 6B 31 3B 0D 0A 20 20 20 20 20 20 20 20 0D  eck1;..        .
000020: 0A 20 20 20 20 20 20 20 20 43 4F 4E 53 54 0D 0A  .        CONST..
000030: 20 20 20 20 20 20 20 20 20 20 6D 61 78 74 65 67            maxteg
000040: 6E 20 3D 20 31 30 3B 0D 0A 20 20 20 20 20 20 20  n = 10;..       
000050: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 54 59 50     ..        TYP
000060: 45 0D 0A 20 20 20 20 20 20 20 20 20 20 63 69 66  E..          cif
000070: 72 65 20 3D 20 30 20 2E 2E 20 39 3B 0D 0A 20 20  re = 0 .. 9;..  
000080: 20 20 20 20 20 20 20 20 76 65 6B 74 6F 72 20 3D          vektor =
000090: 20 41 52 52 41 59 28 2E 31 20 2E 2E 20 6D 61 78   ARRAY(.1 .. max
0000A0: 74 65 67 6E 2E 29 20 4F 46 20 63 69 66 72 65 3B  tegn.) OF cifre;
0000B0: 0D 0A 20 20 20 20 20 20 20 20 20 20 63 69 66 66  ..          ciff
0000C0: 65 72 73 74 72 65 6E 67 20 3D 20 53 54 52 49 4E  erstreng = STRIN
0000D0: 47 28 2E 6D 61 78 74 65 67 6E 2E 29 3B 0D 0A 20  G(.maxtegn.);.. 
0000E0: 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20         ..       
0000F0: 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 20 20   VAR..          
000100: 69 2C 20 70 6F 73 69 74 69 6F 6E 20 3A 20 49 4E  i, position : IN
000110: 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 20 20  TEGER;..        
000120: 20 20 76 20 3A 20 76 65 6B 74 6F 72 3B 0D 0A 20    v : vektor;.. 
000130: 20 20 20 20 20 20 20 20 20 63 73 74 72 65 6E 67           cstreng
000140: 20 3A 20 63 69 66 66 65 72 73 74 72 65 6E 67 3B   : cifferstreng;
000150: 0D 0A 20 20 20 20 20 20 20 20 20 20 72 65 74 75  ..          retu
000160: 72 20 3A 20 43 48 41 52 3B 0D 0A 20 20 20 20 20  r : CHAR;..     
000170: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 42       ..        B
000180: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20  EGIN..          
000190: 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20  REPEAT..        
0001A0: 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F 4D      WRITE(CLRHOM
0001B0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  );..            
0001C0: 47 4F 54 4F 58 59 28 31 30 2C 20 35 29 3B 0D 0A  GOTOXY(10, 5);..
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54              WRIT
0001E0: 45 28 27 49 6E 64 74 61 73 74 20 65 74 20 68 65  E('Indtast et he
0001F0: 6C 74 20 74 61 6C 20 70 7D 20 27 2C 20 6D 61 78  lt tal p} ', max

Size : 512 (Real : 512)
000000: 28 43 48 52 28 38 29 2C 20 27 20 27 2C 20 43 48  (CHR(8), ' ', CH
000010: 52 28 38 29 29 3B 0D 0A 20 20 20 20 20 20 55 4E  R(8));..      UN
000020: 54 49 4C 20 6F 6B 3B 0D 0A 20 20 20 20 20 20 57  TIL ok;..      W
000030: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 6C  RITELN;..      l
000040: 61 65 73 74 61 6C 20 3A 3D 20 68 65 6C 74 61 6C  aestal := heltal
000050: 3B 0D 0A 20 20 20 20 45 4E 44 3B 20 28 2A 20 6C  ;..    END; (* l
000060: 61 65 73 74 61 6C 20 2A 29 0D 0A 20 20 20 0D 0A  aestal *)..   ..
000070: 20 20 42 45 47 49 4E 20 28 2A 20 63 68 65 63 6B    BEGIN (* check
000080: 32 20 2A 29 0D 0A 20 20 20 20 57 52 49 54 45 28  2 *)..    WRITE(
000090: 27 54 61 73 74 20 65 74 20 74 61 6C 20 66 72 61  'Tast et tal fra
0000A0: 20 31 30 20 74 69 6C 20 35 30 30 3A 20 27 29 3B   10 til 500: ');
0000B0: 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 6C 61  ..    WRITELN(la
0000C0: 65 73 74 61 6C 28 31 30 2C 20 35 30 30 29 29 3B  estal(10, 500));
0000D0: 0D 0A 20 20 45 4E 44 2E 20 28 2A 20 63 68 65 63  ..  END. (* chec
0000E0: 6B 32 20 2A 29 0D 0A 1A 29 0D 0A 20 20 20 0D 0A  k2 *)...)..   ..
0000F0: 20 20 42 45 47 49 4E 20 28 2A 20 63 68 65 63 6B    BEGIN (* check
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 24 00 03 07 00 AA 00 3F 00 C0 00 10 00 02 00  .$......?.......
000180: 41 09 2A 52 E5 02 04 08 FF 00 00 00 05 05 05 05  A.*R............
000190: 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05  ................
0001A0: 05 05 05 05 05 05 F4 40 8B 00 00 00 00 D8 E4 53  .......@.......S
0001B0: 6F 24 00 03 07 00 AA 00 3F 00 C0 00 10 00 02 00  o$......?.......
0001C0: 41 09 2A 52 E5 02 04 00 00 00 1A 1A 1A 1A 1A 1A  A.*R............
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 09 C0  ................
0001F0: 07 00 00 FE BF 0D 1A A9 9F 78 AE D8 AD F1 AD 01  .........x......

Size : 512 (Real : 512)
000000: 74 65 67 6E 2C 20 27 20 63 69 66 72 65 2E 27 29  tegn, ' cifre.')
000010: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 47  ;..            G
000020: 4F 54 4F 58 59 28 31 30 2C 20 37 29 3B 0D 0A 20  OTOXY(10, 7);.. 
000030: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45             WRITE
000040: 28 27 54 61 73 74 20 74 61 6C 6C 65 74 20 68 65  ('Tast tallet he
000050: 72 3A 20 3C 27 29 3B 0D 0A 20 20 20 20 20 20 20  r: <');..       
000060: 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20       FOR i := 1 
000070: 54 4F 20 6D 61 78 74 65 67 6E 20 44 4F 0D 0A 20  TO maxtegn DO.. 
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49               WRI
000090: 54 45 28 27 20 27 29 3B 0D 0A 20 20 20 20 20 20  TE(' ');..      
0000A0: 20 20 20 20 20 20 57 52 49 54 45 28 27 3E 27 29        WRITE('>')
0000B0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42  ;..            B
0000C0: 55 46 4C 45 4E 20 3A 3D 20 6D 61 78 74 65 67 6E  UFLEN := maxtegn
0000D0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 47  ;..            G
0000E0: 4F 54 4F 58 59 28 32 38 2C 20 37 29 3B 0D 0A 20  OTOXY(28, 7);.. 
0000F0: 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 4C             READL
000100: 4E 28 63 73 74 72 65 6E 67 29 3B 0D 0A 20 20 20  N(cstreng);..   
000110: 20 20 20 20 20 20 20 20 20 70 6F 73 69 74 69 6F           positio
000120: 6E 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 20 20 20  n := 0;..       
000130: 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 4C 45       FOR i := LE
000140: 4E 28 63 73 74 72 65 6E 67 29 20 54 4F 20 6D 61  N(cstreng) TO ma
000150: 78 74 65 67 6E 20 44 4F 0D 0A 20 20 20 20 20 20  xtegn DO..      
000160: 20 20 20 20 20 20 20 20 63 73 74 72 65 6E 67 20          cstreng 
000170: 3A 3D 20 63 73 74 72 65 6E 67 20 2B 20 27 20 27  := cstreng + ' '
000180: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 46  ;..            F
000190: 4F 52 20 69 20 3A 3D 20 6D 61 78 74 65 67 6E 20  OR i := maxtegn 
0001A0: 44 4F 57 4E 54 4F 20 31 20 44 4F 0D 0A 20 20 20  DOWNTO 1 DO..   
0001B0: 20 20 20 20 20 20 20 20 20 20 20 49 46 20 28 63             IF (c
0001C0: 73 74 72 65 6E 67 28 2E 69 2E 29 20 3C 20 27 30  streng(.i.) < '0
0001D0: 27 29 20 4F 52 20 28 63 73 74 72 65 6E 67 28 2E  ') OR (cstreng(.
0001E0: 69 2E 29 20 3E 20 27 39 27 29 0D 0A 20 20 20 20  i.) > '9')..    
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E              THEN

Size : 512 (Real : 512)
000000: 20 50 52 4F 47 52 41 4D 20 63 68 65 63 6B 33 3B   PROGRAM check3;
000010: 0D 0A 20 20 0D 0A 20 20 54 59 50 45 0D 0A 20 20  ..  ..  TYPE..  
000020: 20 20 73 74 72 34 30 20 3D 20 53 54 52 49 4E 47    str40 = STRING
000030: 28 2E 34 30 2E 29 3B 0D 0A 20 20 20 20 63 68 61  (.40.);..    cha
000040: 72 73 65 74 20 3D 20 53 45 54 20 4F 46 20 43 48  rset = SET OF CH
000050: 41 52 3B 0D 0A 20 20 20 20 0D 0A 20 20 46 55 4E  AR;..    ..  FUN
000060: 43 54 49 4F 4E 20 6C 61 65 73 74 65 67 6E 28 6C  CTION laestegn(l
000070: 65 64 65 74 65 6B 73 74 20 3A 20 73 74 72 34 30  edetekst : str40
000080: 3B 20 67 79 6C 64 69 67 74 65 67 6E 20 3A 20 63  ; gyldigtegn : c
000090: 68 61 72 73 65 74 29 20 3A 20 43 48 41 52 3B 0D  harset) : CHAR;.
0000A0: 0A 20 20 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A  .    ..    VAR..
0000B0: 20 20 20 20 20 20 63 68 20 3A 20 43 48 41 52 3B        ch : CHAR;
0000C0: 0D 0A 20 20 20 20 0D 0A 20 20 20 20 42 45 47 49  ..    ..    BEGI
0000D0: 4E 20 28 2A 20 6C 61 65 73 74 65 67 6E 20 2A 29  N (* laestegn *)
0000E0: 0D 0A 20 20 20 20 20 20 57 52 49 54 45 28 6C 65  ..      WRITE(le
0000F0: 64 65 74 65 6B 73 74 29 3B 0D 0A 20 20 20 20 20  detekst);..     
000100: 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20   REPEAT..       
000110: 20 52 45 41 44 28 4B 42 44 2C 20 63 68 29 3B 0D   READ(KBD, ch);.
000120: 0A 20 20 20 20 20 20 55 4E 54 49 4C 20 63 68 20  .      UNTIL ch 
000130: 49 4E 20 67 79 6C 64 69 67 74 65 67 6E 3B 0D 0A  IN gyldigtegn;..
000140: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 63 68        WRITELN(ch
000150: 29 3B 0D 0A 20 20 20 20 20 20 6C 61 65 73 74 65  );..      laeste
000160: 67 6E 20 3A 3D 20 63 68 3B 0D 0A 20 20 20 20 45  gn := ch;..    E
000170: 4E 44 3B 20 28 2A 20 6C 61 65 73 74 65 67 6E 20  ND; (* laestegn 
000180: 2A 29 0D 0A 20 20 20 20 0D 0A 20 20 42 45 47 49  *)..    ..  BEGI
000190: 4E 20 28 2A 20 63 68 65 63 6B 33 20 2A 29 0D 0A  N (* check3 *)..
0001A0: 20 20 20 20 57 52 49 54 45 4C 4E 28 6C 61 65 73      WRITELN(laes
0001B0: 74 65 67 6E 28 27 56 7B 6C 67 20 65 74 20 61 66  tegn('V{lg et af
0001C0: 20 66 7C 6C 67 65 6E 64 65 20 74 65 67 6E 20 28   f|lgende tegn (
0001D0: 34 20 5E 20 6D 20 6B 29 3A 20 27 2C 0D 0A 20 20  4 ^ m k): ',..  
0001E0: 20 20 20 20 20 20 20 20 20 20 28 2E 27 34 27 2C            (.'4',
0001F0: 20 27 5E 27 2C 20 27 6D 27 2C 20 27 6B 27 2E 29   '^', 'm', 'k'.)

Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
000010: 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A  WRITE(CLRHOM);..
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6C                sl
000030: 75 74 20 3A 3D 20 46 41 4C 53 45 3B 0D 0A 20 20  ut := FALSE;..  
000040: 20 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F              GOTO
000050: 58 59 28 31 30 2C 20 33 29 3B 0D 0A 20 20 20 20  XY(10, 3);..    
000060: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28            WRITE(
000070: 27 50 72 6F 67 72 61 6D 6D 65 74 20 61 66 62 72  'Programmet afbr
000080: 79 64 65 73 20 76 65 64 20 61 74 20 74 61 73 74  ydes ved at tast
000090: 65 20 30 27 29 3B 0D 0A 20 20 20 20 20 20 20 20  e 0');..        
0000A0: 20 20 20 20 20 20 47 4F 54 4F 58 59 28 31 30 2C        GOTOXY(10,
0000B0: 20 35 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20   5);..          
0000C0: 20 20 20 20 57 52 49 54 45 28 27 45 74 20 43 50      WRITE('Et CP
0000D0: 52 2D 6E 75 6D 6D 65 72 20 61 6E 67 69 76 65 73  R-nummer angives
0000E0: 20 70 7D 20 66 6F 72 6D 65 6E 20 64 64 6D 6D 61   p} formen ddmma
0000F0: 61 78 78 78 78 27 29 3B 0D 0A 20 20 20 20 20 20  axxxx');..      
000100: 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 31          GOTOXY(1
000110: 30 2C 20 37 29 3B 0D 0A 20 20 20 20 20 20 20 20  0, 7);..        
000120: 20 20 20 20 20 20 57 52 49 54 45 28 27 54 61 73        WRITE('Tas
000130: 74 20 43 50 52 2D 6E 75 6D 6D 65 72 3A 20 3C 20  t CPR-nummer: < 
000140: 20 20 20 20 20 20 20 20 20 3E 27 29 3B 0D 0A 20           >');.. 
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 42 55 46               BUF
000160: 4C 45 4E 20 3A 3D 20 6D 61 78 74 65 67 6E 3B 0D  LEN := maxtegn;.
000170: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47  .              G
000180: 4F 54 4F 58 59 28 32 38 2C 20 37 29 3B 0D 0A 20  OTOXY(28, 7);.. 
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41               REA
0001A0: 44 4C 4E 28 63 70 72 73 74 29 3B 0D 0A 20 20 20  DLN(cprst);..   
0001B0: 20 20 20 20 20 20 20 20 20 20 20 49 46 20 63 70             IF cp
0001C0: 72 73 74 20 3D 20 27 30 27 0D 0A 20 20 20 20 20  rst = '0'..     
0001D0: 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20             THEN 
0001E0: 73 6C 75 74 20 3A 3D 20 54 52 55 45 3B 0D 0A 20  slut := TRUE;.. 
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20               IF 

Size : 512 (Real : 512)
000000: 29 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E  ));..    WRITELN
000010: 28 6C 61 65 73 74 65 67 6E 28 27 53 6C 75 74 20  (laestegn('Slut 
000020: 28 6A 2F 6E 29 3F 20 27 2C 20 28 2E 27 4A 27 2C  (j/n)? ', (.'J',
000030: 20 27 6A 27 2C 20 27 4E 27 2C 20 27 6E 27 2E 29   'j', 'N', 'n'.)
000040: 29 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E  ));..    WRITELN
000050: 28 6C 61 65 73 74 65 67 6E 28 27 54 61 73 74 20  (laestegn('Tast 
000060: 65 74 20 63 69 66 66 65 72 3A 20 27 2C 20 28 2E  et ciffer: ', (.
000070: 27 30 27 20 2E 2E 20 27 39 27 2E 29 29 29 3B 0D  '0' .. '9'.)));.
000080: 0A 20 20 45 4E 44 2E 20 28 2A 20 63 68 65 63 6B  .  END. (* check
000090: 33 20 2A 29 0D 0A 1A 67 6E 28 27 53 6C 75 74 20  3 *)...gn('Slut 
0000A0: 28 6A 2F 6E 29 3F 20 27 2C 20 28 2E 27 4A 27 2C  (j/n)? ', (.'J',
0000B0: 20 27 6A 27 2C 20 27 4E 27 2C 20 27 6E 27 2E 29   'j', 'N', 'n'.)
0000C0: 29 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E  ));..    WRITELN
0000D0: 28 6C 61 65 73 74 65 67 6E 28 27 54 61 73 74 20  (laestegn('Tast 
0000E0: 65 74 20 63 69 66 66 65 72 3A 20 27 2C 20 28 2E  et ciffer: ', (.
0000F0: 27 30 27 20 2E 2E 20 27 39 27 2E 29 29 29 3B 0D  '0' .. '9'.)));.
000100: 67 76 9E DD EE 80 43 02 A7 76 1E FF 4C B8 61 E3  gv....C..v..L.a.
000110: 9C 98 24 F9 28 2F 54 84 A4 5F CD 38 88 78 C0 42  ..$.(/T.._.8.x.B
000120: 67 2F 20 19 07 58 AD BE 4B 4B B2 97 0C 6D A9 93  g/ ..X..KK...m..
000130: 07 1A 1C A4 5D C5 BA 5F 8D FE C6 79 9E 39 17 15  ....].._...y.9..
000140: 48 0F EF AD 45 50 8A 03 E4 AD 1B A0 9A 7F FE 01  H...EP..........
000150: 2F 16 B6 8D C7 01 7E D7 30 C4 1A 1A 1A 1A 1A 1A  /.....~.0.......
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: 76 FD 52 49 4E 47 2E 50 41 53 5B 32 38 2F 30 31  v.RING.PAS[28/01
000190: 2F 31 39 39 31 5D 00 11 10 00 00 90 00 76 BB 00  /1991].......v..
0001A0: 00 01 84 01 FF AA FE 7C FF 1F 1E 2E 5F 29 88 17  .......|...._)..
0001B0: 92 04 DE 00 00 78 F0 F9 F2 00 08 26 C9 FD D7 9B  .....x.....&....
0001C0: ED D5 3C 7A BB 00 08 26 C9 FD 0D 96 E2 B2 9E 57  ..<z...&.......W
0001D0: 67 00 08 26 C9 FD 6B BB AF AD D4 43 E8 AB F5 F9  g..&..k....C....
0001E0: AE AD AC 00 02 26 C9 FD DA 56 1C DC 17 39 D5 81  .....&...V...9..
0001F0: B5 E4 7F F0 85 00 04 26 C9 FD 24 DF B3 D7 73 1A  .......&..$...s.

Size : 512 (Real : 512)
000000: 4E 4F 54 20 73 6C 75 74 0D 0A 20 20 20 20 20 20  NOT slut..      
000010: 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 0D 0A            THEN..
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000030: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20    BEGIN..       
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6F 73               pos
000050: 69 74 69 6F 6E 20 3A 3D 20 30 3B 0D 0A 20 20 20  ition := 0;..   
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000070: 20 46 4F 52 20 69 20 3A 3D 20 4C 45 4E 28 63 70   FOR i := LEN(cp
000080: 72 73 74 29 20 54 4F 20 6D 61 78 74 65 67 6E 20  rst) TO maxtegn 
000090: 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  DO..            
0000A0: 20 20 20 20 20 20 20 20 20 20 63 70 72 73 74 20            cprst 
0000B0: 3A 3D 20 63 70 72 73 74 20 2B 20 27 20 27 3B 0D  := cprst + ' ';.
0000C0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0000D0: 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 6D 61       FOR i := ma
0000E0: 78 74 65 67 6E 20 44 4F 57 4E 54 4F 20 31 20 44  xtegn DOWNTO 1 D
0000F0: 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  O..             
000100: 20 20 20 20 20 20 20 20 20 49 46 20 28 63 70 72           IF (cpr
000110: 73 74 28 2E 69 2E 29 20 3C 20 27 30 27 29 20 4F  st(.i.) < '0') O
000120: 52 20 28 63 70 72 73 74 28 2E 69 2E 29 20 3E 20  R (cprst(.i.) > 
000130: 27 39 27 29 0D 0A 20 20 20 20 20 20 20 20 20 20  '9')..          
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48                TH
000150: 45 4E 20 70 6F 73 69 74 69 6F 6E 20 3A 3D 20 69  EN position := i
000160: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  ;..             
000170: 20 20 20 20 20 20 20 49 46 20 70 6F 73 69 74 69         IF positi
000180: 6F 6E 20 3E 20 30 20 20 28 2A 20 46 65 6A 6C 61  on > 0  (* Fejla
000190: 67 74 69 67 74 20 74 65 67 6E 20 66 75 6E 64 65  gtigt tegn funde
0001A0: 74 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20  t *)..          
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E              THEN
0001C0: 20 0D 0A 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 42 45 47 49 4E             BEGIN
0001E0: 0D 0A 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 47 4F 54 4F              GOTO

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 63 70        PROGRAM cp
000010: 72 3B 0D 0A 20 20 20 20 20 20 20 20 0D 0A 20 20  r;..        ..  
000020: 20 20 20 20 20 20 43 4F 4E 53 54 0D 0A 20 20 20        CONST..   
000030: 20 20 20 20 20 20 20 6D 61 78 74 65 67 6E 20 3D         maxtegn =
000040: 20 31 30 3B 0D 0A 20 20 20 20 20 20 20 20 20 20   10;..          
000050: 0D 0A 20 20 20 20 20 20 20 20 54 59 50 45 0D 0A  ..        TYPE..
000060: 20 20 20 20 20 20 20 20 20 20 63 69 66 72 65 20            cifre 
000070: 3D 20 30 20 2E 2E 20 39 3B 0D 0A 20 20 20 20 20  = 0 .. 9;..     
000080: 20 20 20 20 20 63 70 72 63 69 66 72 65 20 3D 20       cprcifre = 
000090: 41 52 52 41 59 28 2E 31 20 2E 2E 20 6D 61 78 74  ARRAY(.1 .. maxt
0000A0: 65 67 6E 2E 29 20 4F 46 20 63 69 66 72 65 3B 0D  egn.) OF cifre;.
0000B0: 0A 20 20 20 20 20 20 20 20 20 20 63 70 72 73 74  .          cprst
0000C0: 72 65 6E 67 20 3D 20 53 54 52 49 4E 47 28 2E 6D  reng = STRING(.m
0000D0: 61 78 74 65 67 6E 2E 29 3B 0D 0A 20 20 20 20 20  axtegn.);..     
0000E0: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 56 41 52     ..        VAR
0000F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 69 2C 20 70  ..          i, p
000100: 6F 73 69 74 69 6F 6E 20 3A 20 49 4E 54 45 47 45  osition : INTEGE
000110: 52 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 63 70  R;..          cp
000120: 72 73 74 20 3A 20 63 70 72 73 74 72 65 6E 67 3B  rst : cprstreng;
000130: 0D 0A 20 20 20 20 20 20 20 20 20 20 63 69 66 66  ..          ciff
000140: 65 72 20 3A 20 63 70 72 63 69 66 72 65 3B 0D 0A  er : cprcifre;..
000150: 20 20 20 20 20 20 20 20 20 20 63 68 20 3A 20 43            ch : C
000160: 48 41 52 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  HAR;..          
000170: 73 6C 75 74 20 3A 20 42 4F 4F 4C 45 41 4E 3B 0D  slut : BOOLEAN;.
000180: 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20  .          ..   
000190: 20 20 20 20 20 46 55 4E 43 54 49 4F 4E 20 63 70       FUNCTION cp
0001A0: 72 5F 6F 6B 28 6E 75 6D 6D 65 72 20 3A 20 63 70  r_ok(nummer : cp
0001B0: 72 63 69 66 72 65 29 20 3A 20 42 4F 4F 4C 45 41  rcifre) : BOOLEA
0001C0: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 0D 0A 20 20  N;..        ..  
0001D0: 20 20 20 20 20 20 20 20 56 41 52 0D 0A 20 20 20          VAR..   
0001E0: 20 20 20 20 20 20 20 20 20 73 75 6D 2C 20 64 61           sum, da
0001F0: 67 2C 20 6D 61 61 6E 65 64 2C 20 61 61 72 2C 20  g, maaned, aar, 

Size : 512 (Real : 512)
000000: 58 59 28 32 37 20 2B 20 70 6F 73 69 74 69 6F 6E  XY(27 + position
000010: 2C 20 38 29 3B 0D 0A 20 20 20 20 20 20 20 20 20  , 8);..         
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000030: 20 57 52 49 54 45 28 27 5E 20 46 65 6A 6C 61 67   WRITE('^ Fejlag
000040: 74 69 67 74 20 74 65 67 6E 20 2D 20 54 61 73 74  tigt tegn - Tast
000050: 20 3C 52 45 54 55 52 4E 3E 27 29 3B 0D 0A 20 20   <RETURN>');..  
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000070: 20 20 20 20 20 20 20 20 52 45 41 44 4C 4E 28 63          READLN(c
000080: 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20  h);..           
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44               END
0000A0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  ;..             
0000B0: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20       END;..     
0000C0: 20 20 20 20 20 20 20 55 4E 54 49 4C 20 28 70 6F         UNTIL (po
0000D0: 73 69 74 69 6F 6E 20 3D 20 30 29 20 4F 52 20 73  sition = 0) OR s
0000E0: 6C 75 74 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  lut;..          
0000F0: 20 20 49 46 20 4E 4F 54 20 73 6C 75 74 0D 0A 20    IF NOT slut.. 
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45               THE
000110: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  N..             
000120: 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20     BEGIN..      
000130: 20 20 20 20 20 20 20 20 20 20 20 20 46 4F 52 20              FOR 
000140: 69 20 3A 3D 20 31 20 54 4F 20 6D 61 78 74 65 67  i := 1 TO maxteg
000150: 6E 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20  n DO..          
000160: 20 20 20 20 20 20 20 20 20 20 63 69 66 66 65 72            ciffer
000170: 28 2E 69 2E 29 20 3A 3D 20 4F 52 44 28 63 70 72  (.i.) := ORD(cpr
000180: 73 74 28 2E 69 2E 29 29 20 2D 20 4F 52 44 28 27  st(.i.)) - ORD('
000190: 30 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  0');..          
0001A0: 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 31          GOTOXY(1
0001B0: 30 2C 20 31 31 29 3B 20 57 52 49 54 45 28 63 70  0, 11); WRITE(cp
0001C0: 72 73 74 29 3B 0D 0A 20 20 20 20 20 20 20 20 20  rst);..         
0001D0: 20 20 20 20 20 20 20 20 20 49 46 20 63 70 72 5F           IF cpr_
0001E0: 6F 6B 28 63 69 66 66 65 72 29 0D 0A 20 20 20 20  ok(ciffer)..    
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  

Size : 512 (Real : 512)
000000: 69 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20  i : INTEGER;..  
000010: 20 20 20 20 20 20 20 20 20 20 74 65 73 74 20 3A            test :
000020: 20 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 20 20 20   BOOLEAN;..     
000030: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20       ..         
000040: 20 42 45 47 49 4E 20 28 2A 20 63 70 72 5F 6F 6B   BEGIN (* cpr_ok
000050: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20   *)..           
000060: 20 73 75 6D 20 3A 3D 20 30 3B 0D 0A 20 20 20 20   sum := 0;..    
000070: 20 20 20 20 20 20 20 20 74 65 73 74 20 3A 3D 20          test := 
000080: 54 52 55 45 3B 0D 0A 20 20 20 20 20 20 20 20 20  TRUE;..         
000090: 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F     FOR i := 1 TO
0000A0: 20 37 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20   7 DO..         
0000B0: 20 20 20 20 20 73 75 6D 20 3A 3D 20 73 75 6D 20       sum := sum 
0000C0: 2B 20 6E 75 6D 6D 65 72 28 2E 31 31 20 2D 20 69  + nummer(.11 - i
0000D0: 2E 29 20 2A 20 69 3B 0D 0A 20 20 20 20 20 20 20  .) * i;..       
0000E0: 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 32 20       FOR i := 2 
0000F0: 54 4F 20 34 20 44 4F 0D 0A 20 20 20 20 20 20 20  TO 4 DO..       
000100: 20 20 20 20 20 20 20 73 75 6D 20 3A 3D 20 73 75         sum := su
000110: 6D 20 2B 20 6E 75 6D 6D 65 72 28 2E 35 20 2D 20  m + nummer(.5 - 
000120: 69 2E 29 20 2A 20 69 3B 0D 0A 20 20 20 20 20 20  i.) * i;..      
000130: 20 20 20 20 20 20 49 46 20 73 75 6D 20 4D 4F 44        IF sum MOD
000140: 20 31 31 20 3C 3E 20 30 0D 0A 20 20 20 20 20 20   11 <> 0..      
000150: 20 20 20 20 20 20 20 20 54 48 45 4E 20 74 65 73          THEN tes
000160: 74 20 3A 3D 20 46 41 4C 53 45 3B 0D 0A 20 20 20  t := FALSE;..   
000170: 20 20 20 20 20 20 20 20 20 64 61 67 20 3A 3D 20           dag := 
000180: 6E 75 6D 6D 65 72 28 2E 31 2E 29 20 2A 20 31 30  nummer(.1.) * 10
000190: 2B 20 6E 75 6D 6D 65 72 28 2E 32 2E 29 3B 0D 0A  + nummer(.2.);..
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 6D 61 61 6E              maan
0001B0: 65 64 20 3A 3D 20 6E 75 6D 6D 65 72 28 2E 33 2E  ed := nummer(.3.
0001C0: 29 20 2A 20 31 30 20 2B 20 6E 75 6D 6D 65 72 28  ) * 10 + nummer(
0001D0: 2E 34 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20  .4.);..         
0001E0: 20 20 20 61 61 72 20 3A 3D 20 6E 75 6D 6D 65 72     aar := nummer
0001F0: 28 2E 35 2E 29 20 2A 20 31 30 20 2B 20 6E 75 6D  (.5.) * 10 + num

Size : 512 (Real : 512)
000000: 54 48 45 4E 20 57 52 49 54 45 28 27 20 65 72 20  THEN WRITE(' er 
000010: 4F 4B 2E 27 29 0D 0A 20 20 20 20 20 20 20 20 20  OK.')..         
000020: 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 20             ELSE 
000030: 57 52 49 54 45 28 27 20 65 72 20 69 6B 6B 65 20  WRITE(' er ikke 
000040: 69 20 6F 72 64 65 6E 2E 27 29 3B 0D 0A 20 20 20  i orden.');..   
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57                 W
000060: 52 49 54 45 28 27 20 20 20 54 61 73 74 20 3C 52  RITE('   Tast <R
000070: 45 54 55 52 4E 3E 3A 20 27 29 3B 20 52 45 41 44  ETURN>: '); READ
000080: 4C 4E 28 63 68 29 3B 0D 0A 20 20 20 20 20 20 20  LN(ch);..       
000090: 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20           END;.. 
0000A0: 20 20 20 20 20 20 20 20 20 55 4E 54 49 4C 20 73           UNTIL s
0000B0: 6C 75 74 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E  lut;..        EN
0000C0: 44 2E 20 28 2A 20 63 70 72 20 2A 29 0D 0A 1A 20  D. (* cpr *)... 
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57                 W
0000E0: 52 49 54 45 28 27 20 20 20 54 61 73 74 20 3C 52  RITE('   Tast <R
0000F0: 45 54 55 52 4E 3E 3A 20 27 29 3B 20 52 45 41 44  ETURN>: '); READ
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: 0D 00 68 00 00 00 00 00 00 00 00 00 00 00 33 00  ..h...........3.
000170: EE BF 04 00 00 00 00 00 00 30 00 00 48 97 CD 73  .........0..H..s
000180: DE 00 00 AD 30 54 BA 44 0B 9F F0 F5 6F 57 69 8D  ....0T.D....oWi.
000190: 55 D7 0B B7 AA C5 8A C5 3F 15 C3 BE F3 39 42 BD  U.......?....9B.
0001A0: D6 F3 60 D5 DF 94 88 5E 54 FE E0 D8 53 4E 37 4A  ..`....^T...SN7J
0001B0: 1A 9B 93 88 EB 7E 8E 3C A6 57 6A FB AF 5A BE 0A  .....~.<.Wj..Z..
0001C0: 16 AA CD A2 BB 16 98 DA 08 C9 A8 6E FD F6 B8 A3  ...........n....
0001D0: 1F 70 01 AA 8D 14 CC C5 39 15 D4 5C EF 5E D9 33  .p......9..\.^.3
0001E0: 98 E1 67 5D 77 00 D7 8E 37 2B 37 F4 5F 6F 8C 4D  ..g]w...7+7._o.M
0001F0: D4 75 AD 29 0A D8 60 C2 0E 70 62 D9 2E 18 3E 7C  .u.)..`..pb...>|

Size : 512 (Real : 512)
000000: 6D 65 72 28 2E 36 2E 29 3B 0D 0A 20 20 20 20 20  mer(.6.);..     
000010: 20 20 20 20 20 20 20 49 46 20 28 64 61 67 20 3D         IF (dag =
000020: 20 30 29 20 4F 52 20 28 64 61 67 20 3E 20 33 31   0) OR (dag > 31
000030: 29 20 4F 52 20 28 6D 61 61 6E 65 64 20 3D 20 30  ) OR (maaned = 0
000040: 29 20 4F 52 20 28 6D 61 61 6E 65 64 20 3E 20 31  ) OR (maaned > 1
000050: 32 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  2)..            
000060: 20 20 54 48 45 4E 20 74 65 73 74 20 3A 3D 20 46    THEN test := F
000070: 41 4C 53 45 3B 0D 0A 20 20 20 20 20 20 20 20 20  ALSE;..         
000080: 20 20 20 49 46 20 28 28 6D 61 61 6E 65 64 20 3D     IF ((maaned =
000090: 20 34 29 20 4F 52 20 28 6D 61 61 6E 65 64 20 3D   4) OR (maaned =
0000A0: 20 36 29 20 4F 52 0D 0A 20 20 20 20 20 20 20 20   6) OR..        
0000B0: 20 20 20 20 20 20 20 20 28 6D 61 61 6E 65 64 20          (maaned 
0000C0: 3D 20 39 29 20 4F 52 20 28 6D 61 61 6E 65 64 20  = 9) OR (maaned 
0000D0: 3D 20 31 31 29 29 20 41 4E 44 20 28 64 61 67 20  = 11)) AND (dag 
0000E0: 3D 20 33 31 29 0D 0A 20 20 20 20 20 20 20 20 20  = 31)..         
0000F0: 20 20 20 20 20 54 48 45 4E 20 74 65 73 74 20 3A       THEN test :
000100: 3D 20 46 41 4C 53 45 3B 0D 0A 20 20 20 20 20 20  = FALSE;..      
000110: 20 20 20 20 20 20 49 46 20 28 6D 61 61 6E 65 64        IF (maaned
000120: 20 3D 20 32 29 20 41 4E 44 20 28 64 61 67 3D 20   = 2) AND (dag= 
000130: 32 39 29 20 41 4E 44 20 28 28 61 61 72 20 4D 4F  29) AND ((aar MO
000140: 44 20 34 20 3C 3E 30 29 20 4F 52 20 28 61 61 72  D 4 <>0) OR (aar
000150: 20 3D 20 30 29 29 0D 0A 20 20 20 20 20 20 20 20   = 0))..        
000160: 20 20 20 20 20 20 54 48 45 4E 20 74 65 73 74 20        THEN test 
000170: 3A 3D 20 66 61 6C 73 65 3B 0D 0A 20 20 20 20 20  := false;..     
000180: 20 20 20 20 20 20 20 63 70 72 5F 6F 6B 20 3A 3D         cpr_ok :=
000190: 20 74 65 73 74 3B 0D 0A 20 20 20 20 20 20 20 20   test;..        
0001A0: 20 20 45 4E 44 3B 20 28 2A 20 63 70 72 5F 6F 6B    END; (* cpr_ok
0001B0: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20   *)..           
0001C0: 20 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49 4E   ..        BEGIN
0001D0: 20 28 2A 20 63 70 72 20 2A 29 0D 0A 20 20 20 20   (* cpr *)..    
0001E0: 20 20 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20        REPEAT..  
0001F0: 20 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54            REPEAT

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 52 4F 47 52 41 4D 20 63 70 72 64 61 74 6F 32  PROGRAM cprdato2
000010: 3B 0D 0A 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20  ;....  TYPE..   
000020: 20 73 74 72 36 20 3D 20 53 54 52 49 4E 47 28 2E   str6 = STRING(.
000030: 36 2E 29 3B 0D 0A 20 20 20 20 61 72 72 20 3D 20  6.);..    arr = 
000040: 41 52 52 41 59 28 2E 31 20 2E 2E 20 36 2E 29 20  ARRAY(.1 .. 6.) 
000050: 4F 46 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20  OF INTEGER;..   
000060: 20 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 73 74   ..  VAR..    st
000070: 72 20 3A 20 73 74 72 36 3B 0D 0A 20 20 20 20 63  r : str6;..    c
000080: 69 66 20 3A 20 61 72 72 3B 0D 0A 20 20 20 20 67  if : arr;..    g
000090: 2C 20 68 2C 20 69 2C 20 64 61 74 6F 73 75 6D 2C  , h, i, datosum,
0000A0: 20 67 73 75 6D 2C 20 68 73 75 6D 2C 20 69 73 75   gsum, hsum, isu
0000B0: 6D 2C 20 63 68 65 63 6B 2C 20 6A 20 3A 20 49 4E  m, check, j : IN
0000C0: 54 45 47 45 52 3B 0D 0A 20 20 20 20 64 61 67 2C  TEGER;..    dag,
0000D0: 20 6D 61 61 6E 65 64 2C 20 61 61 72 20 3A 20 49   maaned, aar : I
0000E0: 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 6F 6B 20  NTEGER;..    ok 
0000F0: 3A 20 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 20 20  : BOOLEAN;..    
000100: 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 57  ..  BEGIN..    W
000110: 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20  RITE(CLRHOM);.. 
000120: 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20     REPEAT..     
000130: 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20   REPEAT..       
000140: 20 47 4F 54 4F 58 59 28 31 30 2C 20 35 29 3B 0D   GOTOXY(10, 5);.
000150: 0A 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27  .        WRITE('
000160: 49 6E 64 74 61 73 74 20 65 6E 20 64 61 74 6F 20  Indtast en dato 
000170: 73 7D 6C 65 64 65 73 3A 20 44 44 4D 4D 5D 5D 27  s}ledes: DDMM]]'
000180: 29 3B 0D 0A 20 20 20 20 20 20 20 20 47 4F 54 4F  );..        GOTO
000190: 58 59 28 33 35 2C 20 36 29 3B 0D 0A 20 20 20 20  XY(35, 6);..    
0001A0: 20 20 20 20 57 52 49 54 45 28 43 4C 52 45 4F 4C      WRITE(CLREOL
0001B0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 42 55 46 4C  );..        BUFL
0001C0: 45 4E 20 3A 3D 20 36 3B 0D 0A 20 20 20 20 20 20  EN := 6;..      
0001D0: 20 20 52 45 41 44 4C 4E 28 73 74 72 29 3B 0D 0A    READLN(str);..
0001E0: 20 20 20 20 20 20 20 20 6F 6B 20 3A 3D 20 54 52          ok := TR
0001F0: 55 45 3B 0D 0A 20 20 20 20 20 20 20 20 49 46 20  UE;..        IF 

Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 63 70 72 64 61 74 6F 3B  PROGRAM cprdato;
000010: 0D 0A 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 20  ....  TYPE..    
000020: 73 74 72 36 20 3D 20 53 54 52 49 4E 47 28 2E 36  str6 = STRING(.6
000030: 2E 29 3B 0D 0A 20 20 20 20 61 72 72 20 3D 20 41  .);..    arr = A
000040: 52 52 41 59 28 2E 31 20 2E 2E 20 36 2E 29 20 4F  RRAY(.1 .. 6.) O
000050: 46 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20  F INTEGER;..    
000060: 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 73 74 72  ..  VAR..    str
000070: 20 3A 20 73 74 72 36 3B 0D 0A 20 20 20 20 63 69   : str6;..    ci
000080: 66 20 3A 20 61 72 72 3B 0D 0A 20 20 20 20 67 2C  f : arr;..    g,
000090: 20 68 2C 20 69 2C 20 64 61 74 6F 73 75 6D 2C 20   h, i, datosum, 
0000A0: 67 73 75 6D 2C 20 68 73 75 6D 2C 20 69 73 75 6D  gsum, hsum, isum
0000B0: 2C 20 63 68 65 63 6B 2C 20 6A 20 3A 20 49 4E 54  , check, j : INT
0000C0: 45 47 45 52 3B 0D 0A 20 20 20 20 6F 6B 20 3A 20  EGER;..    ok : 
0000D0: 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 20 20 0D 0A  BOOLEAN;..    ..
0000E0: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 57 52 49    BEGIN..    WRI
0000F0: 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20  TE(CLRHOM);..   
000100: 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 47   REPEAT..      G
000110: 4F 54 4F 58 59 28 31 30 2C 20 35 29 3B 0D 0A 20  OTOXY(10, 5);.. 
000120: 20 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 74       WRITE('Indt
000130: 61 73 74 20 65 6E 20 64 61 74 6F 20 73 7D 6C 65  ast en dato s}le
000140: 64 65 73 3A 20 44 44 4D 4D 5D 5D 27 29 3B 0D 0A  des: DDMM]]');..
000150: 20 20 20 20 20 20 47 4F 54 4F 58 59 28 33 35 2C        GOTOXY(35,
000160: 20 36 29 3B 0D 0A 20 20 20 20 20 20 57 52 49 54   6);..      WRIT
000170: 45 28 43 4C 52 45 4F 4C 29 3B 0D 0A 20 20 20 20  E(CLREOL);..    
000180: 20 20 42 55 46 4C 45 4E 20 3A 3D 20 36 3B 0D 0A    BUFLEN := 6;..
000190: 20 20 20 20 20 20 52 45 41 44 4C 4E 28 73 74 72        READLN(str
0001A0: 29 3B 0D 0A 20 20 20 20 20 20 6F 6B 20 3A 3D 20  );..      ok := 
0001B0: 54 52 55 45 3B 0D 0A 20 20 20 20 20 20 49 46 20  TRUE;..      IF 
0001C0: 4C 45 4E 28 73 74 72 29 20 3C 20 36 0D 0A 20 20  LEN(str) < 6..  
0001D0: 20 20 20 20 20 20 54 48 45 4E 20 6F 6B 20 3A 3D        THEN ok :=
0001E0: 20 46 41 4C 53 45 0D 0A 20 20 20 20 20 20 20 20   FALSE..        
0001F0: 45 4C 53 45 0D 0A 20 20 20 20 20 20 20 20 20 20  ELSE..          

Size : 512 (Real : 512)
000000: 4C 45 4E 28 73 74 72 29 20 3C 20 36 0D 0A 20 20  LEN(str) < 6..  
000010: 20 20 20 20 20 20 20 20 54 48 45 4E 20 6F 6B 20          THEN ok 
000020: 3A 3D 20 46 41 4C 53 45 0D 0A 20 20 20 20 20 20  := FALSE..      
000030: 20 20 20 20 45 4C 53 45 0D 0A 20 20 20 20 20 20      ELSE..      
000040: 20 20 20 20 20 20 46 4F 52 20 6A 20 3A 3D 20 31        FOR j := 1
000050: 20 54 4F 20 36 20 44 4F 0D 0A 20 20 20 20 20 20   TO 6 DO..      
000060: 20 20 20 20 20 20 20 20 49 46 20 28 73 74 72 28          IF (str(
000070: 2E 6A 2E 29 20 3C 20 27 30 27 29 20 4F 52 20 28  .j.) < '0') OR (
000080: 27 39 27 20 3C 20 73 74 72 28 2E 6A 2E 29 29 0D  '9' < str(.j.)).
000090: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0000A0: 20 54 48 45 4E 20 6F 6B 20 3A 3D 20 46 41 4C 53   THEN ok := FALS
0000B0: 45 3B 0D 0A 20 20 20 20 20 20 55 4E 54 49 4C 20  E;..      UNTIL 
0000C0: 6F 6B 3B 0D 0A 20 20 20 20 20 20 46 4F 52 20 6A  ok;..      FOR j
0000D0: 20 3A 3D 20 31 20 54 4F 20 36 20 44 4F 0D 0A 20   := 1 TO 6 DO.. 
0000E0: 20 20 20 20 20 20 20 63 69 66 28 2E 6A 2E 29 20         cif(.j.) 
0000F0: 3A 3D 20 4F 52 44 28 73 74 72 28 2E 6A 2E 29 29  := ORD(str(.j.))
000100: 20 2D 20 4F 52 44 28 27 30 27 29 3B 0D 0A 20 20   - ORD('0');..  
000110: 20 20 20 20 64 61 67 20 3A 3D 20 63 69 66 28 2E      dag := cif(.
000120: 31 2E 29 20 2A 20 31 30 20 2B 20 63 69 66 28 2E  1.) * 10 + cif(.
000130: 32 2E 29 3B 0D 0A 20 20 20 20 20 20 6D 61 61 6E  2.);..      maan
000140: 65 64 20 3A 3D 20 63 69 66 28 2E 33 2E 29 20 2A  ed := cif(.3.) *
000150: 20 31 30 20 2B 20 63 69 66 28 2E 34 2E 29 3B 0D   10 + cif(.4.);.
000160: 0A 20 20 20 20 20 20 61 61 72 20 3A 3D 20 63 69  .      aar := ci
000170: 66 28 2E 35 2E 29 20 2A 20 31 30 20 2B 20 63 69  f(.5.) * 10 + ci
000180: 66 28 2E 36 2E 29 3B 0D 0A 20 20 20 20 20 20 49  f(.6.);..      I
000190: 46 20 28 64 61 67 20 3D 20 30 29 20 4F 52 20 28  F (dag = 0) OR (
0001A0: 64 61 67 20 3E 20 33 31 29 20 4F 52 20 28 6D 61  dag > 31) OR (ma
0001B0: 61 6E 65 64 20 3D 20 30 29 20 4F 52 20 28 6D 61  aned = 0) OR (ma
0001C0: 61 6E 65 64 20 3E 20 31 32 29 0D 0A 20 20 20 20  aned > 12)..    
0001D0: 20 20 20 20 54 48 45 4E 20 20 6F 6B 20 3A 3D 20      THEN  ok := 
0001E0: 46 41 4C 53 45 3B 0D 0A 20 20 20 20 20 20 49 46  FALSE;..      IF
0001F0: 20 28 28 6D 61 61 6E 65 64 20 3D 20 34 29 20 4F   ((maaned = 4) O

Size : 512 (Real : 512)
000000: 46 4F 52 20 6A 20 3A 3D 20 31 20 54 4F 20 36 20  FOR j := 1 TO 6 
000010: 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  DO..            
000020: 49 46 20 28 73 74 72 28 2E 6A 2E 29 20 3C 20 27  IF (str(.j.) < '
000030: 30 27 29 20 4F 52 20 28 27 39 27 20 3C 20 73 74  0') OR ('9' < st
000040: 72 28 2E 6A 2E 29 29 0D 0A 20 20 20 20 20 20 20  r(.j.))..       
000050: 20 20 20 20 20 20 20 54 48 45 4E 20 6F 6B 20 3A         THEN ok :
000060: 3D 20 46 41 4C 53 45 3B 0D 0A 20 20 20 20 55 4E  = FALSE;..    UN
000070: 54 49 4C 20 6F 6B 3B 0D 0A 20 20 20 20 46 4F 52  TIL ok;..    FOR
000080: 20 6A 20 3A 3D 20 31 20 54 4F 20 36 20 44 4F 0D   j := 1 TO 6 DO.
000090: 0A 20 20 20 20 20 20 63 69 66 28 2E 6A 2E 29 20  .      cif(.j.) 
0000A0: 3A 3D 20 4F 52 44 28 73 74 72 28 2E 6A 2E 29 29  := ORD(str(.j.))
0000B0: 20 2D 20 4F 52 44 28 27 30 27 29 3B 0D 0A 20 20   - ORD('0');..  
0000C0: 20 20 64 61 74 6F 73 75 6D 20 3A 3D 20 63 69 66    datosum := cif
0000D0: 28 2E 31 2E 29 20 2A 20 34 20 2B 20 63 69 66 28  (.1.) * 4 + cif(
0000E0: 2E 32 2E 29 20 2A 20 33 20 2B 20 63 69 66 28 2E  .2.) * 3 + cif(.
0000F0: 33 2E 29 20 2A 20 32 20 0D 0A 20 20 20 20 20 20  3.) * 2 ..      
000100: 20 20 20 20 20 20 20 2B 20 63 69 66 28 2E 34 2E         + cif(.4.
000110: 29 20 2A 20 37 20 2B 20 63 69 66 28 2E 35 2E 29  ) * 7 + cif(.5.)
000120: 20 2A 20 36 20 2B 20 63 69 66 28 2E 36 2E 29 20   * 6 + cif(.6.) 
000130: 2A 20 35 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C  * 5;..    WRITEL
000140: 4E 3B 0D 0A 20 20 20 20 46 4F 52 20 67 20 3A 3D  N;..    FOR g :=
000150: 20 30 20 54 4F 20 39 20 44 4F 0D 0A 20 20 20 20   0 TO 9 DO..    
000160: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20    BEGIN..       
000170: 20 67 73 75 6D 20 3A 3D 20 64 61 74 6F 73 75 6D   gsum := datosum
000180: 20 2B 20 67 20 2A 20 34 3B 0D 0A 20 20 20 20 20   + g * 4;..     
000190: 20 20 20 46 4F 52 20 68 20 3A 3D 20 30 20 54 4F     FOR h := 0 TO
0001A0: 20 39 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20   9 DO..         
0001B0: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20   BEGIN..        
0001C0: 20 20 20 20 68 73 75 6D 20 3A 3D 20 67 73 75 6D      hsum := gsum
0001D0: 20 2B 20 68 20 2A 20 33 3B 0D 0A 20 20 20 20 20   + h * 3;..     
0001E0: 20 20 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20         FOR i := 
0001F0: 30 20 54 4F 20 39 20 44 4F 0D 0A 20 20 20 20 20  0 TO 9 DO..     

Size : 512 (Real : 512)
000000: 52 20 28 6D 61 61 6E 65 64 20 3D 20 36 29 20 4F  R (maaned = 6) O
000010: 52 20 28 6D 61 61 6E 65 64 20 3D 20 39 29 20 4F  R (maaned = 9) O
000020: 52 20 28 6D 61 61 6E 65 64 20 3D 20 31 31 29 29  R (maaned = 11))
000030: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
000040: 20 20 20 20 20 20 20 20 20 41 4E 44 20 28 64 61           AND (da
000050: 67 20 3D 20 33 31 29 0D 0A 20 20 20 20 20 20 20  g = 31)..       
000060: 20 54 48 45 4E 20 6F 6B 20 3A 3D 20 46 41 4C 53   THEN ok := FALS
000070: 45 3B 0D 0A 20 20 20 20 20 20 49 46 20 28 64 61  E;..      IF (da
000080: 67 20 3D 20 32 39 29 20 41 4E 44 20 28 6D 61 61  g = 29) AND (maa
000090: 6E 65 64 20 3D 20 32 29 20 41 4E 44 20 28 28 61  ned = 2) AND ((a
0000A0: 61 72 20 4D 4F 44 20 34 20 3C 3E 20 30 29 20 4F  ar MOD 4 <> 0) O
0000B0: 52 20 28 61 61 72 20 3D 20 30 29 29 0D 0A 20 20  R (aar = 0))..  
0000C0: 20 20 20 20 20 20 54 48 45 4E 20 6F 6B 20 3A 3D        THEN ok :=
0000D0: 20 46 41 4C 53 45 0D 0A 20 20 20 20 55 4E 54 49   FALSE..    UNTI
0000E0: 4C 20 6F 6B 3B 20 20 20 20 20 20 0D 0A 20 20 20  L ok;      ..   
0000F0: 20 64 61 74 6F 73 75 6D 20 3A 3D 20 63 69 66 28   datosum := cif(
000100: 2E 31 2E 29 20 2A 20 34 20 2B 20 63 69 66 28 2E  .1.) * 4 + cif(.
000110: 32 2E 29 20 2A 20 33 20 2B 20 63 69 66 28 2E 33  2.) * 3 + cif(.3
000120: 2E 29 20 2A 20 32 20 0D 0A 20 20 20 20 20 20 20  .) * 2 ..       
000130: 20 20 20 20 20 20 2B 20 63 69 66 28 2E 34 2E 29        + cif(.4.)
000140: 20 2A 20 37 20 2B 20 63 69 66 28 2E 35 2E 29 20   * 7 + cif(.5.) 
000150: 2A 20 36 20 2B 20 63 69 66 28 2E 36 2E 29 20 2A  * 6 + cif(.6.) *
000160: 20 35 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E   5;..    WRITELN
000170: 3B 0D 0A 20 20 20 20 46 4F 52 20 67 20 3A 3D 20  ;..    FOR g := 
000180: 30 20 54 4F 20 39 20 44 4F 0D 0A 20 20 20 20 20  0 TO 9 DO..     
000190: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20   BEGIN..        
0001A0: 67 73 75 6D 20 3A 3D 20 64 61 74 6F 73 75 6D 20  gsum := datosum 
0001B0: 2B 20 67 20 2A 20 34 3B 0D 0A 20 20 20 20 20 20  + g * 4;..      
0001C0: 20 20 46 4F 52 20 68 20 3A 3D 20 30 20 54 4F 20    FOR h := 0 TO 
0001D0: 39 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20  9 DO..          
0001E0: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20  BEGIN..         
0001F0: 20 20 20 68 73 75 6D 20 3A 3D 20 67 73 75 6D 20     hsum := gsum 

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A           BEGIN..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000020: 69 73 75 6D 20 3A 3D 20 68 73 75 6D 20 2B 20 69  isum := hsum + i
000030: 20 2A 20 32 3B 0D 0A 20 20 20 20 20 20 20 20 20   * 2;..         
000040: 20 20 20 20 20 20 20 46 4F 52 20 63 68 65 63 6B         FOR check
000050: 20 3A 3D 20 30 20 54 4F 20 39 20 44 4F 0D 0A 20   := 0 TO 9 DO.. 
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000070: 20 49 46 20 28 69 73 75 6D 20 2B 20 63 68 65 63   IF (isum + chec
000080: 6B 29 20 4D 4F 44 20 31 31 20 3D 20 30 0D 0A 20  k) MOD 11 = 0.. 
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000A0: 20 20 20 54 48 45 4E 20 57 52 49 54 45 28 73 74     THEN WRITE(st
0000B0: 72 2C 20 27 2D 27 2C 20 67 2C 20 68 2C 20 69 2C  r, '-', g, h, i,
0000C0: 20 63 68 65 63 6B 2C 20 27 20 20 20 20 20 27 29   check, '     ')
0000D0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  ;..             
0000E0: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20   END;..         
0000F0: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 45 4E 44   END;..      END
000100: 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D  ;..    WRITELN;.
000110: 0A 20 20 45 4E 44 2E 0D 0A 1A 20 20 20 20 20 20  .  END....      
000120: 20 20 20 54 48 45 4E 20 57 52 49 54 45 28 73 74     THEN WRITE(st
000130: 72 2C 20 27 2D 27 2C 20 67 2C 20 68 2C 20 69 2C  r, '-', g, h, i,
000140: 20 63 68 65 63 6B 2C 20 27 20 20 20 20 20 27 29   check, '     ')
000150: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  ;..             
000160: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20   END;..         
000170: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 45 4E 44   END;..      END
000180: 00 00 00 FC 00 01 00 01 00 01 52 55 4E 22 44 49  ..........RUN"DI
000190: 53 43 0D C5 89 68 B4 D6 2E 24 3C CC 23 0A 5B 81  SC...h...$<.#.[.
0001A0: 28 8F 37 DE 4E F2 95 17 D4 1E C4 1E FB AE B5 4F  (.7.N..........O
0001B0: F0 BB F1 4A B9 49 62 34 75 EC EE 35 5B 9F 5B 6F  ...J.Ib4u..5[.[o
0001C0: 2F 4C 12 C1 60 C1 BE 10 7B E8 74 CB 23 01 73 24  /L..`...{.t.#.s$
0001D0: 2A 23 44 3F 79 DD AD D1 9C A6 0C 90 BF 5C 3D E6  *#D?y........\=.
0001E0: 5F 2B FC E0 FD 86 26 63 C0 CA E3 CB 04 71 95 03  _+....&c.....q..
0001F0: 56 C7 12 CA 29 AB 90 A2 BC 04 04 B5 A0 80 1C 45  V...)..........E

Size : 512 (Real : 512)
000000: 2B 20 68 20 2A 20 33 3B 0D 0A 20 20 20 20 20 20  + h * 3;..      
000010: 20 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 30        FOR i := 0
000020: 20 54 4F 20 39 20 44 4F 0D 0A 20 20 20 20 20 20   TO 9 DO..      
000030: 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20          BEGIN.. 
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69                 i
000050: 73 75 6D 20 3A 3D 20 68 73 75 6D 20 2B 20 69 20  sum := hsum + i 
000060: 2A 20 32 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  * 2;..          
000070: 20 20 20 20 20 20 46 4F 52 20 63 68 65 63 6B 20        FOR check 
000080: 3A 3D 20 30 20 54 4F 20 39 20 44 4F 0D 0A 20 20  := 0 TO 9 DO..  
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000A0: 49 46 20 28 69 73 75 6D 20 2B 20 63 68 65 63 6B  IF (isum + check
0000B0: 29 20 4D 4F 44 20 31 31 20 3D 20 30 0D 0A 20 20  ) MOD 11 = 0..  
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000D0: 20 20 54 48 45 4E 20 57 52 49 54 45 28 73 74 72    THEN WRITE(str
0000E0: 2C 20 27 2D 27 2C 20 67 2C 20 68 2C 20 69 2C 20  , '-', g, h, i, 
0000F0: 63 68 65 63 6B 2C 20 27 20 20 20 20 20 27 29 3B  check, '     ');
000100: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
000110: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  END;..          
000120: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 45 4E 44 3B  END;..      END;
000130: 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A  ..    WRITELN;..
000140: 20 20 45 4E 44 2E 0D 0A 1A 20 20 20 20 20 20 20    END....       
000150: 20 20 54 48 45 4E 20 57 52 49 54 45 28 73 74 72    THEN WRITE(str
000160: 2C 20 27 2D 27 2C 20 67 2C 20 68 2C 20 69 2C 20  , '-', g, h, i, 
000170: 63 68 65 63 6B 2C 20 27 20 20 20 20 20 27 29 3B  check, '     ');
000180: 76 FD 52 4E 44 57 41 4C 4B 2E 20 20 20 5B 32 38  v.RNDWALK.   [28
000190: 2F 30 31 2F 31 39 39 31 5D 00 11 10 00 05 ED 77  /01/1991]......w
0001A0: 3B 3D 1C 3E 5F 5F 55 FC FC 7B 80 7D 7F 6F AF 17  ;=.>__U..{.}.o..
0001B0: 2F 94 B5 B4 BE AD E0 C0 AD 18 06 B3 4D ED CD DF  /...........M...
0001C0: CF FF FD DB 47 81 F7 95 54 D0 BC FF 51 B8 97 45  ....G...T...Q..E
0001D0: 5D 67 DE 95 15 B0 BC 0A 27 81 D9 C3 B2 A4 BF 89  ]g......'.......
0001E0: 0E 9F 63 BD CF C1 86 B1 2E 41 46 35 C3 DE 63 97  ..c......AF5..c.
0001F0: 52 B2 95 A2 1B C2 C3 59 39 1B 2E 6F 59 9E 96 15  R......Y9..oY...

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 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20          PROGRAM 
000010: 70 65 72 73 6F 6E 5F 6E 72 3B 0D 0A 20 20 20 20  person_nr;..    
000020: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 56 41      ..        VA
000030: 52 20 20 20 20 20 6E 72 20 20 20 20 20 20 20 20  R     nr        
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000050: 20 20 20 20 20 20 20 20 20 20 20 20 3A 53 54 52              :STR
000060: 49 4E 47 5B 31 31 5D 3B 0D 0A 20 20 20 20 20 20  ING[11];..      
000070: 20 20 20 20 20 20 20 20 20 20 69 31 2C 69 32 2C            i1,i2,
000080: 69 33 2C 74 61 6C 2C 74 61 6C 31 2C 74 61 6C 32  i3,tal,tal1,tal2
000090: 2C 74 61 6C 33 20 20 20 20 20 20 20 20 20 20 20  ,tal3           
0000A0: 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 20  :integer;..     
0000B0: 20 20 20 20 20 20 20 20 20 20 20 7A 20 20 20 20             z    
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000E0: 20 3A 72 65 61 6C 3B 20 20 20 20 20 0D 0A 20 20   :real;     ..  
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 2C                p,
000100: 71 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  q               
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000120: 20 20 20 20 3A 69 6E 74 65 67 65 72 3B 20 20 20      :integer;   
000130: 20 20 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49    ..        BEGI
000140: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  N..             
000150: 20 20 20 77 72 69 74 65 6C 6E 28 27 74 61 73 74     writeln('tast
000160: 20 70 65 72 73 6F 6E 6E 75 6D 6D 65 72 27 29 3B   personnummer');
000170: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
000180: 20 20 72 65 61 64 6C 6E 28 20 6E 72 20 29 3B 0D    readln( nr );.
000190: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0001A0: 20 74 61 6C 31 20 3A 3D 20 30 20 3B 20 74 61 6C   tal1 := 0 ; tal
0001B0: 32 20 3A 3D 20 30 20 3B 20 74 61 6C 33 20 3A 3D  2 := 0 ; tal3 :=
0001C0: 20 30 3B 20 7A 20 3A 3D 20 30 3B 20 74 61 6C 20   0; z := 0; tal 
0001D0: 3A 3D 20 30 3B 20 20 20 0D 0A 20 20 20 20 20 20  := 0;   ..      
0001E0: 20 20 20 20 20 20 20 20 20 20 70 20 3A 3D 20 6F            p := o
0001F0: 72 64 28 6E 72 5B 37 5D 29 20 20 3B 20 71 20 3A  rd(nr[7])  ; q :

Size : 512 (Real : 512)
000000: 61 72 76 65 74 79 70 65 3B 0D 0A 20 20 20 20 20  arvetype;..     
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6F 65                oe
000020: 6A 65 6E 66 61 72 76 65 20 3A 20 6F 65 6A 65 6E  jenfarve : oejen
000030: 66 61 72 76 65 74 79 70 65 3B 0D 0A 20 20 20 20  farvetype;..    
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44               END
000050: 3B 0D 0A 20 20 20 20 70 65 72 73 6F 6E 72 65 67  ;..    personreg
000060: 69 73 74 65 72 20 3D 20 41 52 52 41 59 28 2E 31  ister = ARRAY(.1
000070: 20 2E 2E 20 6D 61 78 2E 29 20 4F 46 20 70 65 72   .. max.) OF per
000080: 73 6F 6E 70 6F 73 74 3B 0D 0A 20 20 0D 0A 20 20  sonpost;..  ..  
000090: 56 41 52 0D 0A 20 20 20 20 70 65 72 73 6F 6E 20  VAR..    person 
0000A0: 3A 20 70 65 72 73 6F 6E 72 65 67 69 73 74 65 72  : personregister
0000B0: 3B 0D 0A 20 20 20 20 61 6E 74 61 6C 20 3A 20 49  ;..    antal : I
0000C0: 4E 54 45 47 45 52 3B 0D 0A 20 20 0D 0A 20 20 50  NTEGER;..  ..  P
0000D0: 52 4F 43 45 44 55 52 45 20 72 65 74 75 72 3B 0D  ROCEDURE retur;.
0000E0: 0A 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A 20 20  .  ..    VAR..  
0000F0: 20 20 20 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A      ch : CHAR;..
000100: 20 20 20 20 0D 0A 20 20 20 20 42 45 47 49 4E 20      ..    BEGIN 
000110: 28 2A 20 72 65 74 75 72 20 2A 29 20 20 0D 0A 20  (* retur *)  .. 
000120: 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20       WRITELN;.. 
000130: 20 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74       WRITE('Tast
000140: 20 3C 52 45 54 55 52 4E 3E 3A 20 27 29 3B 0D 0A   <RETURN>: ');..
000150: 20 20 20 20 20 20 42 55 46 4C 45 4E 20 3A 3D 20        BUFLEN := 
000160: 30 3B 0D 0A 20 20 20 20 20 20 52 45 41 44 4C 4E  0;..      READLN
000170: 3B 0D 0A 20 20 20 20 45 4E 44 3B 20 28 2A 20 72  ;..    END; (* r
000180: 65 74 75 72 20 2A 29 0D 0A 20 20 20 20 20 20 20  etur *)..       
000190: 0D 0A 20 20 50 52 4F 43 45 44 55 52 45 20 73 6F  ..  PROCEDURE so
0001A0: 65 67 6B 6F 65 6E 3B 0D 0A 20 20 0D 0A 20 20 20  egkoen;..  ..   
0001B0: 20 56 41 52 0D 0A 20 20 20 20 20 20 69 20 3A 20   VAR..      i : 
0001C0: 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 20  INTEGER;..      
0001D0: 73 6F 65 67 5F 6B 6F 65 6E 20 3A 20 6B 6F 65 6E  soeg_koen : koen
0001E0: 74 79 70 65 3B 0D 0A 20 20 20 20 20 20 63 68 20  type;..      ch 
0001F0: 3A 20 43 48 41 52 3B 0D 0A 20 20 20 20 20 20 66  : CHAR;..      f

Size : 512 (Real : 512)
000000: 3D 20 6C 65 6E 28 6E 72 29 20 3B 20 20 0D 0A 20  = len(nr) ;  .. 
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49                 I
000020: 46 20 28 70 20 3D 20 34 35 29 20 41 4E 44 20 28  F (p = 45) AND (
000030: 71 20 3D 20 31 31 29 20 20 54 48 45 4E 0D 0A 20  q = 11)  THEN.. 
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42                 B
000050: 45 47 49 4E 20 20 20 20 20 20 20 0D 0A 20 20 20  EGIN       ..   
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000070: 20 20 20 20 20 46 4F 52 20 69 31 20 3A 3D 20 31       FOR i1 := 1
000080: 20 54 4F 20 33 20 44 4F 0D 0A 20 20 20 20 20 20   TO 3 DO..      
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 0D 0A 20 20 20 20 20           ..     
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000C0: 20 20 20 74 61 6C 31 20 3A 3D 20 74 61 6C 31 20     tal1 := tal1 
0000D0: 2B 20 28 28 6F 72 64 28 6E 72 5B 69 31 5D 29 20  + ((ord(nr[i1]) 
0000E0: 2D 20 34 38 29 20 2A 20 28 35 20 2D 69 31 29 29  - 48) * (5 -i1))
0000F0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  ;..             
000100: 20 20 20 45 4E 44 3B 20 20 20 20 20 20 20 20 20     END;         
000110: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20     ..           
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A 20               .. 
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42                 B
000150: 45 47 49 4E 20 0D 0A 20 20 20 20 20 20 20 20 20  EGIN ..         
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46                 F
000170: 4F 52 20 69 32 20 3A 3D 20 34 20 54 4F 20 36 20  OR i2 := 4 TO 6 
000180: 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  DO..            
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001A0: 20 20 20 20 0D 0A 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 74 61                ta
0001C0: 6C 32 20 3A 3D 20 74 61 6C 32 20 2B 20 28 28 6F  l2 := tal2 + ((o
0001D0: 72 64 28 6E 72 5B 69 32 5D 29 20 2D 20 34 38 29  rd(nr[i2]) - 48)
0001E0: 20 2A 20 28 31 31 20 2D 20 69 32 29 29 3B 0D 0A   * (11 - i2));..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  

Size : 512 (Real : 512)
000000: 75 6E 64 65 74 20 3A 20 42 4F 4F 4C 45 41 4E 3B  undet : BOOLEAN;
000010: 0D 0A 20 20 20 20 20 20 0D 0A 20 20 20 20 42 45  ..      ..    BE
000020: 47 49 4E 20 28 2A 20 73 6F 65 67 6B 6F 65 6E 20  GIN (* soegkoen 
000030: 2A 29 0D 0A 20 20 20 20 20 20 52 45 50 45 41 54  *)..      REPEAT
000040: 0D 0A 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59  ..        GOTOXY
000050: 28 30 2C 20 32 30 29 3B 0D 0A 20 20 20 20 20 20  (0, 20);..      
000060: 20 20 57 52 49 54 45 28 27 54 61 73 74 20 6B 7C    WRITE('Tast k|
000070: 6E 20 28 6D 2F 6B 29 3A 20 20 27 29 3B 0D 0A 20  n (m/k):  ');.. 
000080: 20 20 20 20 20 20 20 57 52 49 54 45 28 43 48 52         WRITE(CHR
000090: 28 38 29 29 3B 0D 0A 20 20 20 20 20 20 20 20 42  (8));..        B
0000A0: 55 46 4C 45 4E 20 3A 3D 20 31 3B 0D 0A 20 20 20  UFLEN := 1;..   
0000B0: 20 20 20 20 20 52 45 41 44 28 63 68 29 3B 0D 0A       READ(ch);..
0000C0: 20 20 20 20 20 20 55 4E 54 49 4C 20 28 63 68 20        UNTIL (ch 
0000D0: 3D 20 27 6D 27 29 20 4F 52 20 28 63 68 20 3D 20  = 'm') OR (ch = 
0000E0: 27 6B 27 29 3B 0D 0A 20 20 20 20 20 20 49 46 20  'k');..      IF 
0000F0: 63 68 20 3D 20 27 6D 27 0D 0A 20 20 20 20 20 20  ch = 'm'..      
000100: 20 20 54 48 45 4E 20 73 6F 65 67 5F 6B 6F 65 6E    THEN soeg_koen
000110: 20 3A 3D 20 6D 61 6E 64 0D 0A 20 20 20 20 20 20   := mand..      
000120: 20 20 45 4C 53 45 20 73 6F 65 67 5F 6B 6F 65 6E    ELSE soeg_koen
000130: 20 3A 3D 20 6B 76 69 6E 64 65 3B 0D 0A 20 20 20   := kvinde;..   
000140: 20 20 20 47 4F 54 4F 58 59 28 30 2C 20 32 32 29     GOTOXY(0, 22)
000150: 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 45 4C 4E  ;..      WRITELN
000160: 28 27 46 7C 6C 67 65 6E 64 65 20 70 65 72 73 6F  ('F|lgende perso
000170: 6E 65 72 20 65 72 20 61 66 20 64 65 74 20 73 7C  ner er af det s|
000180: 67 74 65 20 6B 7C 6E 3A 27 29 3B 0D 0A 20 20 20  gte k|n:');..   
000190: 20 20 20 66 75 6E 64 65 74 20 3A 3D 20 46 41 4C     fundet := FAL
0001A0: 53 45 3B 0D 0A 20 20 20 20 20 20 46 4F 52 20 69  SE;..      FOR i
0001B0: 20 3A 3D 20 31 20 54 4F 20 61 6E 74 61 6C 20 44   := 1 TO antal D
0001C0: 4F 0D 0A 20 20 20 20 20 20 20 20 49 46 20 70 65  O..        IF pe
0001D0: 72 73 6F 6E 28 2E 69 2E 29 2E 6B 6F 65 6E 20 3D  rson(.i.).koen =
0001E0: 20 73 6F 65 67 5F 6B 6F 65 6E 0D 0A 20 20 20 20   soeg_koen..    
0001F0: 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20        THEN..    

Size : 512 (Real : 512)
000000: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  END;..          
000010: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20        BEGIN..   
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000030: 20 20 20 20 20 46 4F 52 20 69 33 3A 3D 20 38 20       FOR i3:= 8 
000040: 54 4F 20 31 31 20 44 4F 0D 0A 20 20 20 20 20 20  TO 11 DO..      
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 0D 0A 20 20 20 20            ..    
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000080: 20 20 20 20 74 61 6C 33 20 3A 3D 20 74 61 6C 33      tal3 := tal3
000090: 20 2B 20 28 28 6F 72 64 28 6E 72 5B 69 33 5D 29   + ((ord(nr[i3])
0000A0: 20 2D 20 34 38 29 20 2A 20 28 31 32 20 2D 20 69   - 48) * (12 - i
0000B0: 33 29 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  3));..          
0000C0: 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20        END;..    
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20              ..  
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 61                ta
0000F0: 6C 20 20 3A 3D 20 74 61 6C 31 20 2B 20 74 61 6C  l  := tal1 + tal
000100: 32 20 2B 74 61 6C 33 20 3B 0D 0A 20 20 20 20 20  2 +tal3 ;..     
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000120: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20   ..             
000130: 20 20 20 7A 20 3A 3D 20 74 61 6C 20 4D 4F 44 20     z := tal MOD 
000140: 31 31 3B 20 0D 0A 20 20 0D 0A 20 20 20 20 20 20  11; ..  ..      
000150: 20 20 20 20 20 20 20 20 20 20 49 46 20 7A 20 3D            IF z =
000160: 20 30 20 54 48 45 4E 20 20 20 20 20 20 20 20 20   0 THEN         
000170: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20       ..         
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000190: 20 77 72 69 74 65 6C 6E 28 27 50 65 72 73 6F 6E   writeln('Person
0001A0: 6E 75 6D 6D 65 72 65 74 20 65 72 20 6B 6F 72 72  nummeret er korr
0001B0: 65 6B 74 20 3A 20 27 20 2C 20 6E 72 20 29 0D 0A  ekt : ' , nr )..
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 45 4C 53 45 20 0D            ELSE .
0001E0: 0A 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 77 72 69 74 65             write

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20          BEGIN.. 
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49               WRI
000020: 54 45 4C 4E 28 70 65 72 73 6F 6E 28 2E 69 2E 29  TELN(person(.i.)
000030: 2E 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 20 20 20  .navn);..       
000040: 20 20 20 20 20 20 20 66 75 6E 64 65 74 20 3A 3D         fundet :=
000050: 20 54 52 55 45 3B 0D 0A 20 20 20 20 20 20 20 20   TRUE;..        
000060: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20      END;..      
000070: 49 46 20 4E 4F 54 20 66 75 6E 64 65 74 0D 0A 20  IF NOT fundet.. 
000080: 20 20 20 20 20 20 20 54 48 45 4E 20 57 52 49 54         THEN WRIT
000090: 45 4C 4E 28 27 44 65 72 20 65 72 20 69 6E 67 65  ELN('Der er inge
0000A0: 6E 20 70 65 72 73 6F 6E 65 72 20 61 66 20 64 65  n personer af de
0000B0: 74 20 73 7C 67 74 65 20 6B 7C 6E 27 29 3B 0D 0A  t s|gte k|n');..
0000C0: 20 20 20 20 20 20 20 20 72 65 74 75 72 3B 0D 0A          retur;..
0000D0: 20 20 20 20 45 4E 44 3B 20 28 2A 20 73 6F 65 67      END; (* soeg
0000E0: 6B 6F 65 6E 20 2A 29 0D 0A 20 20 20 20 0D 0A 20  koen *)..    .. 
0000F0: 20 50 52 4F 43 45 44 55 52 45 20 73 6F 65 67 68   PROCEDURE soegh
000100: 6F 65 6A 64 65 3B 0D 0A 20 20 20 20 0D 0A 20 20  oejde;..    ..  
000110: 20 20 56 41 52 0D 0A 20 20 20 20 20 20 69 2C 20    VAR..      i, 
000120: 73 6F 65 67 5F 68 6F 65 6A 64 65 2C 20 74 65 73  soeg_hoejde, tes
000130: 74 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20  t : INTEGER;..  
000140: 20 20 20 20 66 75 6E 64 65 74 20 3A 20 42 4F 4F      fundet : BOO
000150: 4C 45 41 4E 3B 0D 0A 20 20 20 20 20 20 73 74 72  LEAN;..      str
000160: 20 3A 20 73 74 72 33 3B 0D 0A 20 20 20 20 20 20   : str3;..      
000170: 0D 0A 20 20 20 20 42 45 47 49 4E 20 28 2A 20 73  ..    BEGIN (* s
000180: 6F 65 67 68 6F 65 6A 64 65 20 2A 29 0D 0A 20 20  oeghoejde *)..  
000190: 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20      REPEAT..    
0001A0: 20 20 20 20 47 4F 54 4F 58 59 28 30 2C 20 32 30      GOTOXY(0, 20
0001B0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 57 52 49 54  );..        WRIT
0001C0: 45 28 27 54 61 73 74 20 68 7C 6A 64 65 3A 20 27  E('Tast h|jde: '
0001D0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 42 55 46 4C  );..        BUFL
0001E0: 45 4E 20 3A 3D 20 33 3B 0D 0A 20 20 20 20 20 20  EN := 3;..      
0001F0: 20 20 52 45 41 44 4C 4E 28 73 74 72 29 3B 0D 0A    READLN(str);..

Size : 512 (Real : 512)
000000: 6C 6E 28 27 44 65 74 74 65 20 65 72 20 65 74 20  ln('Dette er et 
000010: 66 6F 72 6B 65 72 74 20 70 65 72 73 6F 6E 6E 72  forkert personnr
000020: 20 3A 20 27 2C 6E 72 29 3B 0D 0A 20 20 20 20 20   : ',nr);..     
000030: 20 20 20 45 4E 44 2E 20 20 20 20 20 20 20 20 20     END.         
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 0D 0A 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: 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A  ..    WRITELN;..
000090: 20 20 45 4E 44 2E 0D 0A 78 0D 0A 1A 1A 1A 1A 1A    END...x.......
0000A0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0000B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0000C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0000D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0000E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
0000F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A  ................
000100: 64 6F 77 6E 0D 0A 33 20 20 4E 09 22 39 22 09 09  down..3  N."9"..
000110: 7C 0D 0A 34 20 20 4E 09 22 36 22 09 09 7C 20 4E  |..4  N."6"..| N
000120: 75 6D 65 72 69 63 0D 0A 35 20 20 4E 09 22 33 22  umeric..5  N."3"
000130: 09 09 7C 20 20 20 4B 65 79 70 61 64 0D 0A 36 20  ..|   Keypad..6 
000140: 20 4E 09 22 5E 4D 22 09 09 45 4E 54 45 52 20 6B   N."^M"..ENTER k
000150: 65 79 0D 0A 37 20 20 4E 09 22 5E 27 23 43 41 27  ey..7  N."^'#CA'
000160: 22 09 4E 75 6D 65 72 69 63 20 4B 65 79 70 61 64  ".Numeric Keypad
000170: 0D 0A 38 20 20 4E 09 22 5E 41 22 09 09 43 43 50  ..8  N."^A"..CCP
000180: 20 63 75 72 73 6F 72 20 6C 65 66 74 0D 0A 38 20   cursor left..8 
000190: 20 20 53 09 22 5E 53 22 09 09 45 38 30 20 77 6F    S."^S"..E80 wo
0001A0: 72 64 20 6C 65 66 74 0D 0A 38 20 20 20 20 43 09  rd left..8    C.
0001B0: 22 5E 27 23 39 45 27 22 09 43 43 50 20 73 74 61  "^'#9E'".CCP sta
0001C0: 72 74 20 6F 66 20 6C 69 6E 65 0D 0A 39 20 20 4E  rt of line..9  N
0001D0: 09 22 5E 27 23 38 30 27 22 20 09 45 38 30 20 63  ."^'#80'" .E80 c
0001E0: 6F 70 79 20 62 6C 6F 63 6B 0D 0A 39 20 20 20 53  opy block..9   S
0001F0: 09 22 5E 27 23 38 31 27 22 09 45 38 30 20 6D 6F  ."^'#81'".E80 mo

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 56 41 4C 28 73 74 72 2C          VAL(str,
000010: 20 73 6F 65 67 5F 68 6F 65 6A 64 65 2C 20 74 65   soeg_hoejde, te
000020: 73 74 29 3B 0D 0A 20 20 20 20 20 20 55 4E 54 49  st);..      UNTI
000030: 4C 20 28 74 65 73 74 20 3D 20 30 29 20 41 4E 44  L (test = 0) AND
000040: 20 28 31 30 30 20 3C 3D 20 73 6F 65 67 5F 68 6F   (100 <= soeg_ho
000050: 65 6A 64 65 29 20 41 4E 44 20 28 73 6F 65 67 5F  ejde) AND (soeg_
000060: 68 6F 65 6A 64 65 20 3C 3D 20 32 32 30 29 3B 0D  hoejde <= 220);.
000070: 0A 20 20 20 20 20 20 47 4F 54 4F 58 59 28 30 2C  .      GOTOXY(0,
000080: 20 32 32 29 3B 0D 0A 20 20 20 20 20 20 57 52 49   22);..      WRI
000090: 54 45 4C 4E 28 27 46 7C 6C 67 65 6E 64 65 20 70  TELN('F|lgende p
0000A0: 65 72 73 6F 6E 65 72 20 68 61 72 20 68 7C 6A 64  ersoner har h|jd
0000B0: 65 6E 20 27 2C 20 73 6F 65 67 5F 68 6F 65 6A 64  en ', soeg_hoejd
0000C0: 65 2C 20 27 3A 27 29 3B 0D 0A 20 20 20 20 20 20  e, ':');..      
0000D0: 66 75 6E 64 65 74 20 3A 3D 20 46 41 4C 53 45 3B  fundet := FALSE;
0000E0: 0D 0A 20 20 20 20 20 20 46 4F 52 20 69 20 3A 3D  ..      FOR i :=
0000F0: 20 31 20 54 4F 20 61 6E 74 61 6C 20 44 4F 0D 0A   1 TO antal DO..
000100: 20 20 20 20 20 20 20 20 49 46 20 70 65 72 73 6F          IF perso
000110: 6E 28 2E 69 2E 29 2E 68 6F 65 6A 64 65 20 3D 20  n(.i.).hoejde = 
000120: 73 6F 65 67 5F 68 6F 65 6A 64 65 0D 0A 20 20 20  soeg_hoejde..   
000130: 20 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20         THEN..   
000140: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A           BEGIN..
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52                WR
000160: 49 54 45 4C 4E 28 70 65 72 73 6F 6E 28 2E 69 2E  ITELN(person(.i.
000170: 29 2E 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 20 20  ).navn);..      
000180: 20 20 20 20 20 20 20 20 66 75 6E 64 65 74 20 3A          fundet :
000190: 3D 20 54 52 55 45 3B 0D 0A 20 20 20 20 20 20 20  = TRUE;..       
0001A0: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20       END;..     
0001B0: 20 49 46 20 4E 4F 54 20 66 75 6E 64 65 74 0D 0A   IF NOT fundet..
0001C0: 20 20 20 20 20 20 20 20 54 48 45 4E 20 57 52 49          THEN WRI
0001D0: 54 45 4C 4E 28 27 44 65 72 20 65 72 20 69 6E 67  TELN('Der er ing
0001E0: 65 6E 20 70 65 72 73 6F 6E 65 72 20 6D 65 64 20  en personer med 
0001F0: 64 65 6E 6E 65 20 68 7C 6A 64 65 27 29 3B 0D 0A  denne h|jde');..

Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 70 65 72 73 6F 6E 65 72  PROGRAM personer
000010: 3B 0D 0A 0D 0A 20 20 43 4F 4E 53 54 0D 0A 20 20  ;....  CONST..  
000020: 20 20 6D 61 78 20 3D 20 31 30 30 3B 0D 0A 20 20    max = 100;..  
000030: 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 20 73 74  ..  TYPE..    st
000040: 72 33 30 20 3D 20 53 54 52 49 4E 47 28 2E 33 30  r30 = STRING(.30
000050: 2E 29 3B 0D 0A 20 20 20 20 73 74 72 33 20 3D 20  .);..    str3 = 
000060: 53 54 52 49 4E 47 28 2E 33 2E 29 3B 0D 0A 20 20  STRING(.3.);..  
000070: 20 20 6B 6F 65 6E 74 79 70 65 20 3D 20 28 6D 61    koentype = (ma
000080: 6E 64 2C 20 6B 76 69 6E 64 65 29 3B 0D 0A 20 20  nd, kvinde);..  
000090: 20 20 68 61 61 72 66 61 72 76 65 74 79 70 65 20    haarfarvetype 
0000A0: 3D 20 28 6C 79 73 62 6C 6F 6E 64 2C 20 6D 6F 65  = (lysblond, moe
0000B0: 72 6B 65 62 6C 6F 6E 64 2C 20 68 76 69 64 74 2C  rkeblond, hvidt,
0000C0: 20 62 72 75 6E 74 2C 20 73 6F 72 74 2C 20 72 6F   brunt, sort, ro
0000D0: 65 64 74 2C 0D 0A 20 20 20 20 20 20 20 20 20 20  edt,..          
0000E0: 20 20 20 20 20 20 20 20 20 20 20 67 72 61 61 74             graat
0000F0: 2C 20 73 6B 61 6C 64 65 74 29 3B 0D 0A 20 20 20  , skaldet);..   
000100: 20 6F 65 6A 65 6E 66 61 72 76 65 74 79 70 65 20   oejenfarvetype 
000110: 3D 20 28 62 6C 61 61 2C 20 67 72 61 61 2C 20 62  = (blaa, graa, b
000120: 72 75 6E 65 2C 20 67 72 6F 65 6E 6E 65 29 3B 0D  rune, groenne);.
000130: 0A 20 20 20 20 70 65 72 73 6F 6E 70 6F 73 74 20  .    personpost 
000140: 3D 20 52 45 43 4F 52 44 0D 0A 20 20 20 20 20 20  = RECORD..      
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 6E 61 76               nav
000160: 6E 20 3A 20 73 74 72 33 30 3B 0D 0A 20 20 20 20  n : str30;..    
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6B                 k
000180: 6F 65 6E 20 3A 20 6B 6F 65 6E 74 79 70 65 3B 0D  oen : koentype;.
000190: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0001A0: 20 20 20 20 68 6F 65 6A 64 65 20 3A 20 49 4E 54      hoejde : INT
0001B0: 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 20 20 20  EGER;..         
0001C0: 20 20 20 20 20 20 20 20 20 20 76 61 65 67 74 20            vaegt 
0001D0: 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20  : INTEGER;..    
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68                 h
0001F0: 61 61 72 66 61 72 76 65 20 3A 20 68 61 61 72 66  aarfarve : haarf

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 72 65 74 75 72 3B 0D 0A 20 20        retur;..  
000010: 20 20 45 4E 44 3B 20 28 2A 20 73 6F 65 67 68 6F    END; (* soegho
000020: 65 6A 64 65 20 2A 29 0D 0A 20 20 0D 0A 20 20 50  ejde *)..  ..  P
000030: 52 4F 43 45 44 55 52 45 20 73 6F 65 67 76 61 65  ROCEDURE soegvae
000040: 67 74 3B 0D 0A 20 20 20 20 20 0D 0A 20 20 20 20  gt;..     ..    
000050: 56 41 52 0D 0A 20 20 20 20 20 20 69 2C 20 73 6F  VAR..      i, so
000060: 65 67 5F 76 61 65 67 74 2C 20 74 65 73 74 20 3A  eg_vaegt, test :
000070: 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20   INTEGER;..     
000080: 20 66 75 6E 64 65 74 20 3A 20 42 4F 4F 4C 45 41   fundet : BOOLEA
000090: 4E 3B 0D 0A 20 20 20 20 20 20 73 74 72 20 3A 20  N;..      str : 
0000A0: 73 74 72 33 3B 0D 0A 20 20 20 20 20 20 0D 0A 20  str3;..      .. 
0000B0: 20 20 20 42 45 47 49 4E 20 28 2A 20 73 6F 65 67     BEGIN (* soeg
0000C0: 76 61 65 67 74 20 2A 29 0D 0A 20 20 20 20 20 20  vaegt *)..      
0000D0: 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20  REPEAT..        
0000E0: 47 4F 54 4F 58 59 28 30 2C 20 32 30 29 3B 0D 0A  GOTOXY(0, 20);..
0000F0: 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 54          WRITE('T
000100: 61 73 74 20 76 61 65 67 74 3A 20 27 29 3B 0D 0A  ast vaegt: ');..
000110: 20 20 20 20 20 20 20 20 42 55 46 4C 45 4E 20 3A          BUFLEN :
000120: 3D 20 33 3B 0D 0A 20 20 20 20 20 20 20 20 52 45  = 3;..        RE
000130: 41 44 4C 4E 28 73 74 72 29 3B 0D 0A 20 20 20 20  ADLN(str);..    
000140: 20 20 20 20 56 41 4C 28 73 74 72 2C 20 73 6F 65      VAL(str, soe
000150: 67 5F 76 61 65 67 74 2C 20 74 65 73 74 29 3B 0D  g_vaegt, test);.
000160: 0A 20 20 20 20 20 20 55 4E 54 49 4C 20 28 74 65  .      UNTIL (te
000170: 73 74 20 3D 20 30 29 20 41 4E 44 20 28 33 30 20  st = 0) AND (30 
000180: 3C 3D 20 73 6F 65 67 5F 76 61 65 67 74 29 20 41  <= soeg_vaegt) A
000190: 4E 44 20 28 73 6F 65 67 5F 76 61 65 67 74 20 3C  ND (soeg_vaegt <
0001A0: 3D 20 32 30 30 29 3B 0D 0A 20 20 20 20 20 20 47  = 200);..      G
0001B0: 4F 54 4F 58 59 28 30 2C 20 32 32 29 3B 0D 0A 20  OTOXY(0, 22);.. 
0001C0: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 46 7C       WRITELN('F|
0001D0: 6C 67 65 6E 64 65 20 70 65 72 73 6F 6E 65 72 20  lgende personer 
0001E0: 68 61 72 20 76 7B 67 74 65 6E 20 27 2C 20 73 6F  har v{gten ', so
0001F0: 65 67 5F 76 61 65 67 74 2C 20 27 3A 27 29 3B 0D  eg_vaegt, ':');.

Size : 512 (Real : 512)
000000: 20 20 20 20 20 27 31 27 20 3A 20 73 6F 65 67 5F       '1' : soeg_
000010: 6F 65 6A 65 6E 66 61 72 76 65 20 3A 3D 20 62 6C  oejenfarve := bl
000020: 61 61 3B 0D 0A 20 20 20 20 20 20 20 20 27 32 27  aa;..        '2'
000030: 20 3A 20 73 6F 65 67 5F 6F 65 6A 65 6E 66 61 72   : soeg_oejenfar
000040: 76 65 20 3A 3D 20 67 72 61 61 3B 0D 0A 20 20 20  ve := graa;..   
000050: 20 20 20 20 20 27 33 27 20 3A 20 73 6F 65 67 5F       '3' : soeg_
000060: 6F 65 6A 65 6E 66 61 72 76 65 20 3A 3D 20 62 72  oejenfarve := br
000070: 75 6E 65 3B 0D 0A 20 20 20 20 20 20 20 20 27 34  une;..        '4
000080: 27 20 3A 20 73 6F 65 67 5F 6F 65 6A 65 6E 66 61  ' : soeg_oejenfa
000090: 72 76 65 20 3A 3D 20 67 72 6F 65 6E 6E 65 3B 0D  rve := groenne;.
0000A0: 0A 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20  .      END;..   
0000B0: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20     WRITELN;..   
0000C0: 20 20 20 57 52 49 54 45 4C 4E 28 27 46 7C 6C 67     WRITELN('F|lg
0000D0: 65 6E 64 65 20 70 65 72 73 6F 6E 65 72 20 68 61  ende personer ha
0000E0: 72 20 64 65 6E 6E 65 20 7C 6A 65 6E 66 61 72 76  r denne |jenfarv
0000F0: 65 3A 27 29 3B 0D 0A 20 20 20 20 20 20 66 75 6E  e:');..      fun
000100: 64 65 74 20 3A 3D 20 46 41 4C 53 45 3B 0D 0A 20  det := FALSE;.. 
000110: 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20       FOR i := 1 
000120: 54 4F 20 61 6E 74 61 6C 20 44 4F 0D 0A 20 20 20  TO antal DO..   
000130: 20 20 20 20 20 49 46 20 70 65 72 73 6F 6E 28 2E       IF person(.
000140: 69 2E 29 2E 6F 65 6A 65 6E 66 61 72 76 65 20 3D  i.).oejenfarve =
000150: 20 73 6F 65 67 5F 6F 65 6A 65 6E 66 61 72 76 65   soeg_oejenfarve
000160: 0D 0A 20 20 20 20 20 20 20 20 20 20 54 48 45 4E  ..          THEN
000170: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 45  ..            BE
000180: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20  GIN..           
000190: 20 20 20 57 52 49 54 45 4C 4E 28 70 65 72 73 6F     WRITELN(perso
0001A0: 6E 28 2E 69 2E 29 2E 6E 61 76 6E 29 3B 0D 0A 20  n(.i.).navn);.. 
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 66 75 6E               fun
0001C0: 64 65 74 20 3A 3D 20 54 52 55 45 3B 0D 0A 20 20  det := TRUE;..  
0001D0: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A            END;..
0001E0: 20 20 20 20 20 20 49 46 20 4E 4F 54 20 66 75 6E        IF NOT fun
0001F0: 64 65 74 0D 0A 20 20 20 20 20 20 20 20 54 48 45  det..        THE

Size : 512 (Real : 512)
000000: 0A 20 20 20 20 20 20 66 75 6E 64 65 74 20 3A 3D  .      fundet :=
000010: 20 46 41 4C 53 45 3B 0D 0A 20 20 20 20 20 20 46   FALSE;..      F
000020: 4F 52 20 69 20 3A 3D 20 31 20 54 4F 20 61 6E 74  OR i := 1 TO ant
000030: 61 6C 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 49  al DO..        I
000040: 46 20 70 65 72 73 6F 6E 28 2E 69 2E 29 2E 76 61  F person(.i.).va
000050: 65 67 74 20 3D 20 73 6F 65 67 5F 76 61 65 67 74  egt = soeg_vaegt
000060: 0D 0A 20 20 20 20 20 20 20 20 20 20 54 48 45 4E  ..          THEN
000070: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 45  ..            BE
000080: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20  GIN..           
000090: 20 20 20 57 52 49 54 45 4C 4E 28 70 65 72 73 6F     WRITELN(perso
0000A0: 6E 28 2E 69 2E 29 2E 6E 61 76 6E 29 3B 0D 0A 20  n(.i.).navn);.. 
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 66 75 6E               fun
0000C0: 64 65 74 20 3A 3D 20 54 52 55 45 3B 0D 0A 20 20  det := TRUE;..  
0000D0: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A            END;..
0000E0: 20 20 20 20 20 20 49 46 20 4E 4F 54 20 66 75 6E        IF NOT fun
0000F0: 64 65 74 0D 0A 20 20 20 20 20 20 20 20 54 48 45  det..        THE
000100: 4E 20 57 52 49 54 45 4C 4E 28 27 44 65 72 20 65  N WRITELN('Der e
000110: 72 20 69 6E 67 65 6E 20 70 65 72 73 6F 6E 65 72  r ingen personer
000120: 20 6D 65 64 20 64 65 6E 6E 65 20 76 7B 67 74 27   med denne v{gt'
000130: 29 3B 0D 0A 20 20 20 20 20 20 72 65 74 75 72 3B  );..      retur;
000140: 0D 0A 20 20 20 20 45 4E 44 3B 20 28 2A 20 73 6F  ..    END; (* so
000150: 65 67 76 61 65 67 74 20 2A 29 0D 0A 20 20 0D 0A  egvaegt *)..  ..
000160: 20 20 50 52 4F 43 45 44 55 52 45 20 73 6F 65 67    PROCEDURE soeg
000170: 68 61 61 72 66 61 72 76 65 3B 0D 0A 20 20 0D 0A  haarfarve;..  ..
000180: 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 69      VAR..      i
000190: 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20   : INTEGER;..   
0001A0: 20 20 20 73 6F 65 67 5F 68 61 61 72 66 61 72 76     soeg_haarfarv
0001B0: 65 20 3A 20 68 61 61 72 66 61 72 76 65 74 79 70  e : haarfarvetyp
0001C0: 65 3B 0D 0A 20 20 20 20 20 20 63 68 20 3A 20 43  e;..      ch : C
0001D0: 48 41 52 3B 0D 0A 20 20 20 20 20 20 66 75 6E 64  HAR;..      fund
0001E0: 65 74 20 3A 20 42 4F 4F 4C 45 41 4E 3B 0D 0A 20  et : BOOLEAN;.. 
0001F0: 20 20 20 0D 0A 20 20 20 20 42 45 47 49 4E 20 28     ..    BEGIN (

Size : 512 (Real : 512)
000000: 4E 20 57 52 49 54 45 4C 4E 28 27 44 65 72 20 65  N WRITELN('Der e
000010: 72 20 69 6E 67 65 6E 20 70 65 72 73 6F 6E 65 72  r ingen personer
000020: 20 6D 65 64 20 64 65 6E 6E 65 20 7C 6A 65 6E 66   med denne |jenf
000030: 61 72 76 65 27 29 3B 0D 0A 20 20 20 20 20 20 72  arve');..      r
000040: 65 74 75 72 3B 0D 0A 20 20 20 20 45 4E 44 3B 20  etur;..    END; 
000050: 28 2A 20 73 6F 65 67 6F 65 6A 65 6E 66 61 72 76  (* soegoejenfarv
000060: 65 20 2A 29 0D 0A 20 20 0D 0A 20 20 50 52 4F 43  e *)..  ..  PROC
000070: 45 44 55 52 45 20 69 6E 64 6C 61 65 73 3B 0D 0A  EDURE indlaes;..
000080: 20 20 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A 20      ..    VAR.. 
000090: 20 20 20 20 20 69 2C 20 74 65 73 74 20 3A 20 49       i, test : I
0000A0: 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 73  NTEGER;..      s
0000B0: 74 72 20 3A 20 73 74 72 33 3B 0D 0A 20 20 20 20  tr : str3;..    
0000C0: 20 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A 20 20    ch : CHAR;..  
0000D0: 20 20 0D 0A 20 20 20 20 42 45 47 49 4E 20 28 2A    ..    BEGIN (*
0000E0: 20 69 6E 64 6C 61 65 73 20 2A 29 0D 0A 20 20 20   indlaes *)..   
0000F0: 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F 4D 29     WRITE(CLRHOM)
000100: 3B 0D 0A 20 20 20 20 20 20 69 20 3A 3D 20 30 3B  ;..      i := 0;
000110: 0D 0A 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28  ..      WRITELN(
000120: 27 49 6E 64 74 61 73 74 6E 69 6E 67 20 61 66 20  'Indtastning af 
000130: 6F 70 6C 79 73 6E 69 6E 67 65 72 20 74 69 6C 20  oplysninger til 
000140: 70 65 72 73 6F 6E 6B 61 72 74 6F 74 65 6B 3A 27  personkartotek:'
000150: 29 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 45 4C  );..      WRITEL
000160: 4E 3B 0D 0A 20 20 20 20 20 20 52 45 50 45 41 54  N;..      REPEAT
000170: 0D 0A 20 20 20 20 20 20 20 20 69 20 3A 3D 20 69  ..        i := i
000180: 20 2B 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 57   + 1;..        W
000190: 49 54 48 20 70 65 72 73 6F 6E 28 2E 69 2E 29 20  ITH person(.i.) 
0001A0: 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 42 45  DO..          BE
0001B0: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20  GIN..           
0001C0: 20 57 52 49 54 45 28 27 49 6E 64 74 61 73 74 20   WRITE('Indtast 
0001D0: 6E 61 76 6E 20 28 5E 20 73 74 6F 70 70 65 72 29  navn (^ stopper)
0001E0: 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20  : ');..         
0001F0: 20 20 20 42 55 46 4C 45 4E 20 3A 3D 20 33 30 3B     BUFLEN := 30;

Size : 512 (Real : 512)
000000: 2A 20 73 6F 65 67 68 61 61 72 66 61 72 76 65 20  * soeghaarfarve 
000010: 2A 29 0D 0A 20 20 20 20 20 20 52 45 50 45 41 54  *)..      REPEAT
000020: 0D 0A 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59  ..        GOTOXY
000030: 28 30 2C 20 32 30 29 3B 0D 0A 20 20 20 20 20 20  (0, 20);..      
000040: 20 20 57 52 49 54 45 4C 4E 28 27 54 61 73 74 20    WRITELN('Tast 
000050: 68 7D 72 66 61 72 76 65 3A 20 31 2E 20 4C 79 73  h}rfarve: 1. Lys
000060: 62 6C 6F 6E 64 20 20 32 2E 20 4D 7C 72 6B 65 62  blond  2. M|rkeb
000070: 6C 6F 6E 64 20 20 33 2E 20 48 76 69 64 74 20 20  lond  3. Hvidt  
000080: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 57 52 49  ');..        WRI
000090: 54 45 28 27 34 2E 20 42 72 75 6E 74 20 20 35 2E  TE('4. Brunt  5.
0000A0: 20 53 6F 72 74 20 20 36 2E 20 52 7C 64 74 20 20   Sort  6. R|dt  
0000B0: 37 2E 20 47 72 7D 74 20 20 38 2E 20 53 6B 61 6C  7. Gr}t  8. Skal
0000C0: 64 65 74 3A 20 20 27 29 3B 0D 0A 20 20 20 20 20  det:  ');..     
0000D0: 20 20 20 42 55 46 4C 45 4E 20 3A 3D 20 31 3B 0D     BUFLEN := 1;.
0000E0: 0A 20 20 20 20 20 20 20 20 57 52 49 54 45 28 43  .        WRITE(C
0000F0: 48 52 28 38 29 29 3B 0D 0A 20 20 20 20 20 20 20  HR(8));..       
000100: 20 52 45 41 44 28 63 68 29 3B 0D 0A 20 20 20 20   READ(ch);..    
000110: 20 20 55 4E 54 49 4C 20 28 27 31 27 20 3C 3D 20    UNTIL ('1' <= 
000120: 63 68 29 20 41 4E 44 20 28 63 68 20 3C 3D 20 27  ch) AND (ch <= '
000130: 38 27 29 3B 0D 0A 20 20 20 20 20 20 43 41 53 45  8');..      CASE
000140: 20 63 68 20 4F 46 0D 0A 20 20 20 20 20 20 20 20   ch OF..        
000150: 27 31 27 20 3A 20 73 6F 65 67 5F 68 61 61 72 66  '1' : soeg_haarf
000160: 61 72 76 65 20 3A 3D 20 6C 79 73 62 6C 6F 6E 64  arve := lysblond
000170: 3B 0D 0A 20 20 20 20 20 20 20 20 27 32 27 20 3A  ;..        '2' :
000180: 20 73 6F 65 67 5F 68 61 61 72 66 61 72 76 65 20   soeg_haarfarve 
000190: 3A 3D 20 6D 6F 65 72 6B 65 62 6C 6F 6E 64 3B 0D  := moerkeblond;.
0001A0: 0A 20 20 20 20 20 20 20 20 27 33 27 20 3A 20 73  .        '3' : s
0001B0: 6F 65 67 5F 68 61 61 72 66 61 72 76 65 20 3A 3D  oeg_haarfarve :=
0001C0: 20 68 76 69 64 74 3B 0D 0A 20 20 20 20 20 20 20   hvidt;..       
0001D0: 20 27 34 27 20 3A 20 73 6F 65 67 5F 68 61 61 72   '4' : soeg_haar
0001E0: 66 61 72 76 65 20 3A 3D 20 62 72 75 6E 74 3B 0D  farve := brunt;.
0001F0: 0A 20 20 20 20 20 20 20 20 27 35 27 20 3A 20 73  .        '5' : s

Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 52 45  ..            RE
000010: 41 44 4C 4E 28 6E 61 76 6E 29 3B 0D 0A 20 20 20  ADLN(navn);..   
000020: 20 20 20 20 20 20 20 20 20 49 46 20 6E 61 76 6E           IF navn
000030: 20 3C 3E 20 27 5E 27 0D 0A 20 20 20 20 20 20 20   <> '^'..       
000040: 20 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20         THEN..   
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47               BEG
000060: 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  IN..            
000070: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A        WRITELN;..
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000090: 20 20 57 52 49 54 45 28 27 54 61 73 74 20 6B 7C    WRITE('Tast k|
0000A0: 6E 20 28 6D 2F 6B 29 3A 20 20 27 29 3B 0D 0A 20  n (m/k):  ');.. 
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000C0: 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20   REPEAT..       
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49               WRI
0000E0: 54 45 28 43 48 52 28 38 29 29 3B 0D 0A 20 20 20  TE(CHR(8));..   
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000100: 20 42 55 46 4C 45 4E 20 3A 3D 20 31 3B 0D 0A 20   BUFLEN := 1;.. 
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000120: 20 20 20 52 45 41 44 28 63 68 29 3B 0D 0A 20 20     READ(ch);..  
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000140: 55 4E 54 49 4C 20 28 63 68 20 3D 20 27 6D 27 29  UNTIL (ch = 'm')
000150: 20 4F 52 20 28 63 68 20 3D 20 27 6B 27 29 3B 0D   OR (ch = 'k');.
000160: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
000170: 20 20 20 49 46 20 63 68 20 3D 20 27 6D 27 20 20     IF ch = 'm'  
000180: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
000190: 20 20 20 20 20 20 54 48 45 4E 20 6B 6F 65 6E 20        THEN koen 
0001A0: 3A 3D 20 6D 61 6E 64 0D 0A 20 20 20 20 20 20 20  := mand..       
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4C 53               ELS
0001C0: 45 20 6B 6F 65 6E 20 3A 3D 20 6B 76 69 6E 64 65  E koen := kvinde
0001D0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  ;..             
0001E0: 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20       WRITELN;.. 
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  

Size : 512 (Real : 512)
000000: 6F 65 67 5F 68 61 61 72 66 61 72 76 65 20 3A 3D  oeg_haarfarve :=
000010: 20 73 6F 72 74 3B 0D 0A 20 20 20 20 20 20 20 20   sort;..        
000020: 27 36 27 20 3A 20 73 6F 65 67 5F 68 61 61 72 66  '6' : soeg_haarf
000030: 61 72 76 65 20 3A 3D 20 72 6F 65 64 74 3B 0D 0A  arve := roedt;..
000040: 20 20 20 20 20 20 20 20 27 37 27 20 3A 20 73 6F          '7' : so
000050: 65 67 5F 68 61 61 72 66 61 72 76 65 20 3A 3D 20  eg_haarfarve := 
000060: 67 72 61 61 74 3B 0D 0A 20 20 20 20 20 20 20 20  graat;..        
000070: 27 38 27 20 3A 20 73 6F 65 67 5F 68 61 61 72 66  '8' : soeg_haarf
000080: 61 72 76 65 20 3A 3D 20 73 6B 61 6C 64 65 74 3B  arve := skaldet;
000090: 0D 0A 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20  ..      END;..  
0000A0: 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20      WRITELN;..  
0000B0: 20 20 20 20 57 52 49 54 45 4C 4E 28 27 46 7C 6C      WRITELN('F|l
0000C0: 67 65 6E 64 65 20 70 65 72 73 6F 6E 65 72 20 68  gende personer h
0000D0: 61 72 20 64 65 6E 6E 65 20 68 7D 72 66 61 72 76  ar denne h}rfarv
0000E0: 65 3A 27 29 3B 0D 0A 20 20 20 20 20 20 66 75 6E  e:');..      fun
0000F0: 64 65 74 20 3A 3D 20 46 41 4C 53 45 3B 0D 0A 20  det := FALSE;.. 
000100: 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20       FOR i := 1 
000110: 54 4F 20 61 6E 74 61 6C 20 44 4F 0D 0A 20 20 20  TO antal DO..   
000120: 20 20 20 20 20 49 46 20 70 65 72 73 6F 6E 28 2E       IF person(.
000130: 69 2E 29 2E 68 61 61 72 66 61 72 76 65 20 3D 20  i.).haarfarve = 
000140: 73 6F 65 67 5F 68 61 61 72 66 61 72 76 65 0D 0A  soeg_haarfarve..
000150: 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 0D 0A            THEN..
000160: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49              BEGI
000170: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  N..             
000180: 20 57 52 49 54 45 4C 4E 28 70 65 72 73 6F 6E 28   WRITELN(person(
000190: 2E 69 2E 29 2E 6E 61 76 6E 29 3B 0D 0A 20 20 20  .i.).navn);..   
0001A0: 20 20 20 20 20 20 20 20 20 20 20 66 75 6E 64 65             funde
0001B0: 74 20 3A 3D 20 54 52 55 45 3B 0D 0A 20 20 20 20  t := TRUE;..    
0001C0: 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20          END;..  
0001D0: 20 20 20 20 49 46 20 4E 4F 54 20 66 75 6E 64 65      IF NOT funde
0001E0: 74 0D 0A 20 20 20 20 20 20 20 20 54 48 45 4E 20  t..        THEN 
0001F0: 57 52 49 54 45 4C 4E 28 27 44 65 72 20 65 72 20  WRITELN('Der er 

Size : 512 (Real : 512)
000000: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20   WRITELN;..     
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50               REP
000020: 45 41 54 0D 0A 20 20 20 20 20 20 20 20 20 20 20  EAT..           
000030: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27           WRITE('
000040: 54 61 73 74 20 68 7C 6A 64 65 3A 20 27 29 3B 0D  Tast h|jde: ');.
000050: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
000060: 20 20 20 20 20 42 55 46 4C 45 4E 20 3A 3D 20 33       BUFLEN := 3
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 52 45 41 44 4C 4E 28 73 74         READLN(st
000090: 72 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20  r);..           
0000A0: 20 20 20 20 20 20 20 20 20 56 41 4C 28 73 74 72           VAL(str
0000B0: 2C 20 68 6F 65 6A 64 65 2C 20 74 65 73 74 29 3B  , hoejde, test);
0000C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
0000D0: 20 20 20 20 55 4E 54 49 4C 20 28 74 65 73 74 20      UNTIL (test 
0000E0: 3D 20 30 29 20 41 4E 44 20 28 31 30 30 20 3C 3D  = 0) AND (100 <=
0000F0: 20 68 6F 65 6A 64 65 29 20 41 4E 44 20 28 68 6F   hoejde) AND (ho
000100: 65 6A 64 65 20 3C 3D 20 32 32 30 29 3B 0D 0A 20  ejde <= 220);.. 
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000120: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20   WRITELN;..     
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50               REP
000140: 45 41 54 0D 0A 20 20 20 20 20 20 20 20 20 20 20  EAT..           
000150: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27           WRITE('
000160: 54 61 73 74 20 76 61 65 67 74 3A 20 27 29 3B 0D  Tast vaegt: ');.
000170: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
000180: 20 20 20 20 20 42 55 46 4C 45 4E 20 3A 3D 20 33       BUFLEN := 3
000190: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  ;..             
0001A0: 20 20 20 20 20 20 20 52 45 41 44 4C 4E 28 73 74         READLN(st
0001B0: 72 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20  r);..           
0001C0: 20 20 20 20 20 20 20 20 20 56 41 4C 28 73 74 72           VAL(str
0001D0: 2C 20 76 61 65 67 74 2C 20 74 65 73 74 29 3B 0D  , vaegt, test);.
0001E0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0001F0: 20 20 20 55 4E 54 49 4C 20 28 74 65 73 74 20 3D     UNTIL (test =

Size : 512 (Real : 512)
000000: 69 6E 67 65 6E 20 70 65 72 73 6F 6E 65 72 20 6D  ingen personer m
000010: 65 64 20 64 65 6E 6E 65 20 68 7D 72 66 61 72 76  ed denne h}rfarv
000020: 65 27 29 3B 0D 0A 20 20 20 20 20 20 72 65 74 75  e');..      retu
000030: 72 3B 0D 0A 20 20 20 20 45 4E 44 3B 20 28 2A 20  r;..    END; (* 
000040: 73 6F 65 67 68 61 61 72 66 61 72 76 65 20 2A 29  soeghaarfarve *)
000050: 0D 0A 20 20 0D 0A 20 20 50 52 4F 43 45 44 55 52  ..  ..  PROCEDUR
000060: 45 20 73 6F 65 67 6F 65 6A 65 6E 66 61 72 76 65  E soegoejenfarve
000070: 3B 0D 0A 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A  ;..  ..    VAR..
000080: 20 20 20 20 20 20 69 20 3A 20 49 4E 54 45 47 45        i : INTEGE
000090: 52 3B 0D 0A 20 20 20 20 20 20 73 6F 65 67 5F 6F  R;..      soeg_o
0000A0: 65 6A 65 6E 66 61 72 76 65 20 3A 20 6F 65 6A 65  ejenfarve : oeje
0000B0: 6E 66 61 72 76 65 74 79 70 65 3B 0D 0A 20 20 20  nfarvetype;..   
0000C0: 20 20 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A 20     ch : CHAR;.. 
0000D0: 20 20 20 20 20 66 75 6E 64 65 74 20 3A 20 42 4F       fundet : BO
0000E0: 4F 4C 45 41 4E 3B 0D 0A 20 20 20 20 0D 0A 20 20  OLEAN;..    ..  
0000F0: 20 20 42 45 47 49 4E 20 28 2A 20 73 6F 65 67 6F    BEGIN (* soego
000100: 65 6A 65 6E 66 61 72 76 65 20 2A 29 0D 0A 20 20  ejenfarve *)..  
000110: 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20      REPEAT..    
000120: 20 20 20 20 47 4F 54 4F 58 59 28 30 2C 20 32 30      GOTOXY(0, 20
000130: 29 3B 0D 0A 20 20 20 20 20 20 20 20 57 52 49 54  );..        WRIT
000140: 45 28 27 54 61 73 74 20 7C 6A 65 6E 66 61 72 76  E('Tast |jenfarv
000150: 65 3A 20 31 2E 20 42 6C 7D 20 20 32 2E 20 47 72  e: 1. Bl}  2. Gr
000160: 7D 20 20 33 2E 20 42 72 75 6E 65 20 20 34 2E 20  }  3. Brune  4. 
000170: 47 72 7C 6E 6E 65 3A 20 20 27 29 3B 0D 0A 20 20  Gr|nne:  ');..  
000180: 20 20 20 20 20 20 42 55 46 4C 45 4E 20 3A 3D 20        BUFLEN := 
000190: 31 3B 0D 0A 20 20 20 20 20 20 20 20 57 52 49 54  1;..        WRIT
0001A0: 45 28 43 48 52 28 38 29 29 3B 0D 0A 20 20 20 20  E(CHR(8));..    
0001B0: 20 20 20 20 52 45 41 44 4C 4E 28 63 68 29 3B 0D      READLN(ch);.
0001C0: 0A 20 20 20 20 20 20 55 4E 54 49 4C 20 28 27 31  .      UNTIL ('1
0001D0: 27 20 3C 3D 20 63 68 29 20 41 4E 44 20 28 63 68  ' <= ch) AND (ch
0001E0: 20 3C 3D 20 27 34 27 29 3B 0D 0A 20 20 20 20 20   <= '4');..     
0001F0: 20 43 41 53 45 20 63 68 20 4F 46 0D 0A 20 20 20   CASE ch OF..   

Size : 512 (Real : 512)
000000: 20 30 29 20 41 4E 44 20 28 33 30 20 3C 3D 20 76   0) AND (30 <= v
000010: 61 65 67 74 29 20 41 4E 44 20 28 76 61 65 67 74  aegt) AND (vaegt
000020: 20 3C 3D 20 32 30 30 29 3B 0D 0A 20 20 20 20 20   <= 200);..     
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49               WRI
000040: 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20  TELN;..         
000050: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E           WRITELN
000060: 28 27 54 61 73 74 20 68 7D 72 66 61 72 76 65 3A  ('Tast h}rfarve:
000070: 20 31 2E 20 4C 79 73 62 6C 6F 6E 64 20 20 32 2E   1. Lysblond  2.
000080: 20 4D 7C 72 6B 65 62 6C 6F 6E 64 20 20 27 2C 0D   M|rkeblond  ',.
000090: 0A 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 27 33 2E 20 48             '3. H
0000B0: 76 69 64 74 20 20 27 29 3B 0D 0A 20 20 20 20 20  vidt  ');..     
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49               WRI
0000D0: 54 45 28 27 34 2E 20 42 72 75 6E 74 20 20 35 2E  TE('4. Brunt  5.
0000E0: 20 53 6F 72 74 20 20 36 2E 20 52 7C 64 74 20 20   Sort  6. R|dt  
0000F0: 37 2E 20 47 72 7D 74 20 20 38 2E 20 53 6B 61 6C  7. Gr}t  8. Skal
000100: 64 65 74 3A 20 20 27 29 3B 0D 0A 20 20 20 20 20  det:  ');..     
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50               REP
000120: 45 41 54 0D 0A 20 20 20 20 20 20 20 20 20 20 20  EAT..           
000130: 20 20 20 20 20 20 20 20 20 42 55 46 4C 45 4E 20           BUFLEN 
000140: 3A 3D 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 20  := 1;..         
000150: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45             WRITE
000160: 28 43 48 52 28 38 29 29 3B 0D 0A 20 20 20 20 20  (CHR(8));..     
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52                 R
000180: 45 41 44 28 63 68 29 3B 0D 0A 20 20 20 20 20 20  EAD(ch);..      
000190: 20 20 20 20 20 20 20 20 20 20 20 20 55 4E 54 49              UNTI
0001A0: 4C 20 28 27 31 27 20 3C 3D 20 63 68 29 20 41 4E  L ('1' <= ch) AN
0001B0: 44 20 28 63 68 20 3C 3D 20 27 38 27 29 3B 0D 0A  D (ch <= '8');..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001D0: 20 20 43 41 53 45 20 63 68 20 4F 46 0D 0A 20 20    CASE ch OF..  
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001F0: 20 20 27 31 27 20 3A 20 68 61 61 72 66 61 72 76    '1' : haarfarv

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 27 35 27 20 3A 20            '5' : 
000010: 73 6F 65 67 6F 65 6A 65 6E 66 61 72 76 65 3B 0D  soegoejenfarve;.
000020: 0A 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20  .        END;.. 
000030: 20 20 20 20 20 55 4E 54 49 4C 20 63 68 20 3D 20       UNTIL ch = 
000040: 27 36 27 3B 0D 0A 20 20 20 20 20 20 57 52 49 54  '6';..      WRIT
000050: 45 4C 4E 3B 0D 0A 20 20 20 20 45 4E 44 3B 20 28  ELN;..    END; (
000060: 2A 20 6D 65 6E 75 20 2A 29 0D 0A 20 20 0D 0A 20  * menu *)..  .. 
000070: 20 42 45 47 49 4E 20 28 2A 20 70 65 72 73 6F 6E   BEGIN (* person
000080: 65 72 20 2A 29 0D 0A 20 20 20 20 69 6E 64 6C 61  er *)..    indla
000090: 65 73 3B 0D 0A 20 20 20 20 6D 65 6E 75 3B 0D 0A  es;..    menu;..
0000A0: 20 20 45 4E 44 2E 20 28 2A 20 70 65 72 73 6F 6E    END. (* person
0000B0: 65 72 20 2A 29 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A  er *)...........
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: 22 34 22 09 09 4E 75 6D 65 72 69 63 20 6B 65 79  "4"..Numeric key
000110: 70 61 64 0D 0A 36 36 20 4E 20 20 53 09 22 5E 27  pad..66 N  S."^'
000120: 32 37 27 22 09 09 43 43 50 20 65 73 63 0D 0A 36  27'"..CCP esc..6
000130: 36 20 20 20 43 09 22 5E 43 22 09 09 43 43 50 20  6   C."^C"..CCP 
000140: 61 62 6F 72 74 0D 0A 36 38 20 20 53 09 22 5E 27  abort..68  S."^'
000150: 23 38 34 27 22 09 45 38 30 20 74 6F 67 67 6C 65  #84'".E80 toggle
000160: 20 41 75 74 6F 20 49 6E 64 65 6E 74 0D 0A 36 38   Auto Indent..68
000170: 20 20 20 43 09 22 5E 56 22 09 09 45 38 30 20 4F     C."^V"..E80 O
000180: 76 65 72 77 72 69 74 65 2F 49 6E 73 65 72 74 0D  verwrite/Insert.
000190: 0A 37 39 20 20 53 09 22 5E 27 23 38 33 27 22 09  .79  S."^'#83'".
0001A0: 45 38 30 20 44 65 6C 20 57 6F 72 64 20 4C 65 66  E80 Del Word Lef
0001B0: 74 0D 0A 37 39 20 20 20 43 09 22 5E 27 23 38 35  t..79   C."^'#85
0001C0: 27 22 20 09 45 38 30 20 44 65 6C 20 74 6F 20 53  '" .E80 Del to S
0001D0: 74 61 72 74 20 6F 66 20 6C 69 6E 65 0D 0A 0D 0A  tart of line....
0001E0: 45 20 23 38 30 20 22 5E 4B 43 22 09 63 6F 70 79  E #80 "^KC".copy
0001F0: 20 62 6C 6F 63 6B 0D 0A 45 20 23 38 31 20 22 5E   block..E #81 "^

Size : 512 (Real : 512)
000000: 65 20 3A 3D 20 6C 79 73 62 6C 6F 6E 64 3B 0D 0A  e := lysblond;..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000020: 20 20 20 20 27 32 27 20 3A 20 68 61 61 72 66 61      '2' : haarfa
000030: 72 76 65 20 3A 3D 20 6D 6F 65 72 6B 65 62 6C 6F  rve := moerkeblo
000040: 6E 64 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20  nd;..           
000050: 20 20 20 20 20 20 20 20 20 27 33 27 20 3A 20 68           '3' : h
000060: 61 61 72 66 61 72 76 65 20 3A 3D 20 68 76 69 64  aarfarve := hvid
000070: 74 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  t;..            
000080: 20 20 20 20 20 20 20 20 27 34 27 20 3A 20 68 61          '4' : ha
000090: 61 72 66 61 72 76 65 20 3A 3D 20 62 72 75 6E 74  arfarve := brunt
0000A0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  ;..             
0000B0: 20 20 20 20 20 20 20 27 35 27 20 3A 20 68 61 61         '5' : haa
0000C0: 72 66 61 72 76 65 20 3A 3D 20 73 6F 72 74 3B 0D  rfarve := sort;.
0000D0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0000E0: 20 20 20 20 20 27 36 27 20 3A 20 68 61 61 72 66       '6' : haarf
0000F0: 61 72 76 65 20 3A 3D 20 72 6F 65 64 74 3B 0D 0A  arve := roedt;..
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000110: 20 20 20 20 27 37 27 20 3A 20 68 61 61 72 66 61      '7' : haarfa
000120: 72 76 65 20 3A 3D 20 67 72 61 61 74 3B 0D 0A 20  rve := graat;.. 
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000140: 20 20 20 27 38 27 20 3A 20 68 61 61 72 66 61 72     '8' : haarfar
000150: 76 65 20 3A 3D 20 73 6B 61 6C 64 65 74 3B 0D 0A  ve := skaldet;..
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000170: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20    END;..        
000180: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C            WRITEL
000190: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  N;..            
0001A0: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A        WRITELN;..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001C0: 20 20 57 52 49 54 45 28 27 54 61 73 74 20 7C 6A    WRITE('Tast |j
0001D0: 65 6E 66 61 72 76 65 3A 20 31 2E 20 42 6C 7D 20  enfarve: 1. Bl} 
0001E0: 20 32 2E 20 47 72 7D 20 20 33 2E 20 42 72 75 6E   2. Gr}  3. Brun
0001F0: 65 20 20 27 2C 0D 0A 20 20 20 20 20 20 20 20 20  e  ',..         

Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 70 6F 73 74 31 3B 0D 0A  PROGRAM post1;..
000010: 20 20 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 76    ..  VAR..    v
000020: 61 65 67 74 20 3A 20 49 4E 54 45 47 45 52 3B 0D  aegt : INTEGER;.
000030: 0A 20 20 20 20 70 6F 72 74 6F 20 3A 20 52 45 41  .    porto : REA
000040: 4C 3B 0D 0A 20 20 0D 0A 20 20 42 45 47 49 4E 0D  L;..  ..  BEGIN.
000050: 0A 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F  .    WRITE(CLRHO
000060: 4D 29 3B 0D 0A 20 20 20 20 47 4F 54 4F 58 59 28  M);..    GOTOXY(
000070: 30 2C 20 32 29 3B 0D 0A 20 20 20 20 57 52 49 54  0, 2);..    WRIT
000080: 45 4C 4E 28 27 20 20 50 20 6F 20 73 20 74 20 74  ELN('  P o s t t
000090: 20 61 20 6B 20 73 20 74 20 65 20 72 20 20 20 69   a k s t e r   i
0000A0: 20 20 20 44 20 61 20 6E 20 6D 20 61 20 72 20 6B     D a n m a r k
0000B0: 20 20 20 70 20 72 20 3A 27 2C 0D 0A 20 20 20 20     p r :',..    
0000C0: 20 20 20 20 20 20 27 20 20 31 20 2E 20 20 20 6A        '  1 .   j
0000D0: 20 75 20 6E 20 69 20 20 20 31 20 39 20 38 20 34   u n i   1 9 8 4
0000E0: 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 28 27  ');..    WRITE('
0000F0: 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D    --------------
000100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000120: 2D 2D 2D 27 2C 0D 0A 20 20 20 20 20 20 20 20 20  ---',..         
000130: 20 27 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 27 29 3B 0D 0A  -----------');..
000150: 20 20 20 20 47 4F 54 4F 58 59 28 30 2C 20 35 29      GOTOXY(0, 5)
000160: 3B 0D 0A 20 20 20 20 57 52 49 54 45 28 27 20 20  ;..    WRITE('  
000170: 49 6E 64 74 61 73 74 20 62 72 65 76 65 74 73 20  Indtast brevets 
000180: 76 7B 67 74 20 69 20 67 72 61 6D 3A 20 27 29 3B  v{gt i gram: ');
000190: 20 52 45 41 44 4C 4E 28 76 61 65 67 74 29 3B 0D   READLN(vaegt);.
0001A0: 0A 20 20 20 20 43 41 53 45 20 76 61 65 67 74 20  .    CASE vaegt 
0001B0: 4F 46 0D 0A 20 20 20 20 20 20 30 20 2E 2E 20 32  OF..      0 .. 2
0001C0: 30 20 20 20 20 20 3A 20 70 6F 72 74 6F 20 3A 3D  0     : porto :=
0001D0: 20 32 37 30 3B 0D 0A 20 20 20 20 20 20 32 31 20   270;..      21 
0001E0: 2E 2E 20 31 30 30 20 20 20 3A 20 70 6F 72 74 6F  .. 100   : porto
0001F0: 20 3A 3D 20 33 37 30 3B 0D 0A 20 20 20 20 20 20   := 370;..      

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27                 '
000010: 34 2E 20 47 72 7C 6E 6E 65 3A 20 20 27 29 3B 0D  4. Gr|nne:  ');.
000020: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
000030: 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20     REPEAT..     
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42                 B
000050: 55 46 4C 45 4E 20 3A 3D 20 31 3B 0D 0A 20 20 20  UFLEN := 1;..   
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000070: 20 57 52 49 54 45 28 43 48 52 28 38 29 29 3B 0D   WRITE(CHR(8));.
000080: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
000090: 20 20 20 20 20 52 45 41 44 28 63 68 29 3B 0D 0A       READ(ch);..
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000B0: 20 20 55 4E 54 49 4C 20 28 27 31 27 20 3C 3D 20    UNTIL ('1' <= 
0000C0: 63 68 29 20 41 4E 44 20 28 63 68 20 3C 3D 20 27  ch) AND (ch <= '
0000D0: 34 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  4');..          
0000E0: 20 20 20 20 20 20 20 20 43 41 53 45 20 63 68 20          CASE ch 
0000F0: 4F 46 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  OF..            
000100: 20 20 20 20 20 20 20 20 27 31 27 20 3A 20 6F 65          '1' : oe
000110: 6A 65 6E 66 61 72 76 65 20 3A 3D 20 62 6C 61 61  jenfarve := blaa
000120: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  ;..             
000130: 20 20 20 20 20 20 20 27 32 27 20 3A 20 6F 65 6A         '2' : oej
000140: 65 6E 66 61 72 76 65 20 3A 3D 20 67 72 61 61 3B  enfarve := graa;
000150: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
000160: 20 20 20 20 20 20 27 33 27 20 3A 20 6F 65 6A 65        '3' : oeje
000170: 6E 66 61 72 76 65 20 3A 3D 20 62 72 75 6E 65 3B  nfarve := brune;
000180: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
000190: 20 20 20 20 20 20 27 34 27 20 3A 20 6F 65 6A 65        '4' : oeje
0001A0: 6E 66 61 72 76 65 20 3A 3D 20 67 72 6F 65 6E 6E  nfarve := groenn
0001B0: 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  e;..            
0001C0: 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20        END;..    
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52                WR
0001E0: 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20  ITELN;..        
0001F0: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C            WRITEL

Size : 512 (Real : 512)
000000: 31 30 31 20 2E 2E 20 32 35 30 20 20 3A 20 70 6F  101 .. 250  : po
000010: 72 74 6F 20 3A 3D 20 35 35 30 3B 0D 0A 20 20 20  rto := 550;..   
000020: 20 20 20 32 35 31 20 2E 2E 20 35 30 30 20 20 3A     251 .. 500  :
000030: 20 70 6F 72 74 6F 20 3A 3D 20 39 30 30 3B 0D 0A   porto := 900;..
000040: 20 20 20 20 20 20 35 30 31 20 2E 2E 20 31 30 30        501 .. 100
000050: 30 20 3A 20 70 6F 72 74 6F 20 3A 3D 20 31 33 30  0 : porto := 130
000060: 30 3B 0D 0A 20 20 20 20 45 4E 44 3B 0D 0A 20 20  0;..    END;..  
000070: 20 20 47 4F 54 4F 58 59 28 30 2C 20 31 30 29 3B    GOTOXY(0, 10);
000080: 0D 0A 20 20 20 20 49 46 20 28 30 20 3C 3D 20 76  ..    IF (0 <= v
000090: 61 65 67 74 29 20 41 4E 44 20 28 76 61 65 67 74  aegt) AND (vaegt
0000A0: 20 3C 3D 20 31 30 30 30 29 0D 0A 20 20 20 20 20   <= 1000)..     
0000B0: 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 42   THEN..        B
0000C0: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20  EGIN..          
0000D0: 57 52 49 54 45 28 27 20 20 42 72 65 76 65 74 73  WRITE('  Brevets
0000E0: 20 76 7B 67 74 3A 20 27 2C 20 76 61 65 67 74 20   v{gt: ', vaegt 
0000F0: 3A 20 34 2C 20 27 20 67 72 27 29 3B 0D 0A 20 20  : 4, ' gr');..  
000100: 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 30          GOTOXY(0
000110: 2C 20 31 32 29 3B 0D 0A 20 20 20 20 20 20 20 20  , 12);..        
000120: 20 20 57 52 49 54 45 28 27 20 20 50 6F 72 74 6F    WRITE('  Porto
000130: 3A 20 20 20 20 20 20 20 20 27 2C 20 70 6F 72 74  :        ', port
000140: 6F 20 2F 20 31 30 30 20 3A 20 35 20 3A 20 32 2C  o / 100 : 5 : 2,
000150: 20 27 20 6B 72 27 29 3B 0D 0A 20 20 20 20 20 20   ' kr');..      
000160: 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 45 4C 53    END..      ELS
000170: 45 20 0D 0A 20 20 20 20 20 20 20 20 57 52 49 54  E ..        WRIT
000180: 45 28 27 20 20 55 6C 6F 76 6C 69 67 20 62 72 65  E('  Ulovlig bre
000190: 76 76 7B 67 74 21 27 29 3B 0D 0A 20 20 20 20 47  vv{gt!');..    G
0001A0: 4F 54 4F 58 59 28 30 2C 20 32 30 29 3B 0D 0A 20  OTOXY(0, 20);.. 
0001B0: 20 45 4E 44 2E 0D 0A 1A 20 27 2C 20 70 6F 72 74   END.... ', port
0001C0: 6F 20 2F 20 31 30 30 20 3A 20 35 20 3A 20 32 2C  o / 100 : 5 : 2,
0001D0: 20 27 20 6B 72 27 29 3B 0D 0A 20 20 20 20 20 20   ' kr');..      
0001E0: 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 45 4C 53    END..      ELS
0001F0: 45 20 0D 0A 20 20 20 20 20 20 20 20 57 52 49 54  E ..        WRIT

Size : 512 (Real : 512)
000000: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  N;..            
000010: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20      END;..      
000020: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20      END;..      
000030: 55 4E 54 49 4C 20 28 70 65 72 73 6F 6E 28 2E 69  UNTIL (person(.i
000040: 2E 29 2E 6E 61 76 6E 20 3D 20 27 5E 27 29 20 4F  .).navn = '^') O
000050: 52 20 28 69 20 3D 20 6D 61 78 29 3B 0D 0A 20 20  R (i = max);..  
000060: 20 20 20 20 49 46 20 70 65 72 73 6F 6E 28 2E 69      IF person(.i
000070: 2E 29 2E 6E 61 76 6E 20 3D 20 27 5E 27 0D 0A 20  .).navn = '^'.. 
000080: 20 20 20 20 20 20 20 54 48 45 4E 20 61 6E 74 61         THEN anta
000090: 6C 20 3A 3D 20 69 20 2D 20 31 0D 0A 20 20 20 20  l := i - 1..    
0000A0: 20 20 20 20 45 4C 53 45 20 61 6E 74 61 6C 20 3A      ELSE antal :
0000B0: 3D 20 6D 61 78 3B 0D 0A 20 20 20 20 45 4E 44 3B  = max;..    END;
0000C0: 20 28 2A 20 69 6E 64 6C 61 65 73 20 2A 29 0D 0A   (* indlaes *)..
0000D0: 20 20 0D 0A 20 20 50 52 4F 43 45 44 55 52 45 20    ..  PROCEDURE 
0000E0: 6D 65 6E 75 3B 0D 0A 20 20 0D 0A 20 20 20 20 56  menu;..  ..    V
0000F0: 41 52 0D 0A 20 20 20 20 20 20 63 68 20 3A 20 43  AR..      ch : C
000100: 48 41 52 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20  HAR;..    ..    
000110: 42 45 47 49 4E 20 28 2A 20 6D 65 6E 75 20 2A 29  BEGIN (* menu *)
000120: 0D 0A 20 20 20 20 20 20 52 45 50 45 41 54 0D 0A  ..      REPEAT..
000130: 20 20 20 20 20 20 20 20 57 52 49 54 45 28 43 4C          WRITE(CL
000140: 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 20 20 20 20  RHOM);..        
000150: 47 4F 54 4F 58 59 28 35 2C 20 32 29 3B 20 57 52  GOTOXY(5, 2); WR
000160: 49 54 45 28 27 48 76 61 64 20 7C 6E 73 6B 65 72  ITE('Hvad |nsker
000170: 20 64 75 20 61 74 20 73 7C 67 65 20 65 66 74 65   du at s|ge efte
000180: 72 3A 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 47  r:');..        G
000190: 4F 54 4F 58 59 28 35 2C 20 35 29 3B 20 57 52 49  OTOXY(5, 5); WRI
0001A0: 54 45 28 27 31 2E 20 4B 7C 6E 27 29 3B 0D 0A 20  TE('1. K|n');.. 
0001B0: 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 35 2C         GOTOXY(5,
0001C0: 20 37 29 3B 20 57 52 49 54 45 28 27 32 2E 20 48   7); WRITE('2. H
0001D0: 7C 6A 64 65 27 29 3B 0D 0A 20 20 20 20 20 20 20  |jde');..       
0001E0: 20 47 4F 54 4F 58 59 28 35 2C 20 39 29 3B 20 57   GOTOXY(5, 9); W
0001F0: 52 49 54 45 28 27 33 2E 20 56 7B 67 74 27 29 3B  RITE('3. V{gt');

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20          PROGRAM 
000010: 70 6F 73 74 6B 6F 70 69 3B 0D 0A 20 20 20 20 20  postkopi;..     
000020: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 54     ..          T
000030: 59 50 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20  YPE..           
000040: 20 73 74 72 34 30 20 3D 20 53 54 52 49 4E 47 28   str40 = STRING(
000050: 2E 34 30 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20  .40.);..        
000060: 20 20 20 20 6C 69 6E 6B 20 3D 20 5E 20 70 6F 73      link = ^ pos
000070: 74 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  t;..            
000080: 70 6F 73 74 20 3D 20 52 45 43 4F 52 44 0D 0A 20  post = RECORD.. 
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000A0: 20 20 20 20 6E 61 65 73 74 65 20 3A 20 6C 69 6E      naeste : lin
0000B0: 6B 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  k;..            
0000C0: 20 20 20 20 20 20 20 20 20 6E 61 76 6E 20 3A 20           navn : 
0000D0: 73 74 72 34 30 3B 0D 0A 20 20 20 20 20 20 20 20  str40;..        
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 61 64 72               adr
0000F0: 65 73 73 65 20 3A 20 73 74 72 34 30 3B 0D 0A 20  esse : str40;.. 
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000110: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20    END;..        
000120: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 56 41    ..          VA
000130: 52 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 75  R..            u
000140: 64 2C 20 74 6F 70 2C 20 74 6F 70 6B 6F 70 69 2C  d, top, topkopi,
000150: 20 70 70 20 3A 20 6C 69 6E 6B 3B 0D 0A 20 20 20   pp : link;..   
000160: 20 20 20 20 20 20 20 20 20 63 68 20 3A 20 43 48           ch : CH
000170: 41 52 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20  AR;..           
000180: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 50 52 4F   ..          PRO
000190: 43 45 44 55 52 45 20 72 65 74 75 72 6E 3B 0D 0A  CEDURE return;..
0001A0: 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20            ..    
0001B0: 20 20 20 20 20 20 20 20 56 41 52 0D 0A 20 20 20          VAR..   
0001C0: 20 20 20 20 20 20 20 20 20 20 20 63 68 20 3A 20             ch : 
0001D0: 43 48 41 52 3B 0D 0A 20 20 20 20 20 20 20 20 20  CHAR;..         
0001E0: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20     ..           
0001F0: 20 42 45 47 49 4E 20 28 2A 20 72 65 74 75 72 6E   BEGIN (* return

Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59  ..        GOTOXY
000010: 28 35 2C 20 31 31 29 3B 20 57 52 49 54 45 28 27  (5, 11); WRITE('
000020: 34 2E 20 48 7D 72 66 61 72 76 65 27 29 3B 0D 0A  4. H}rfarve');..
000030: 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 35          GOTOXY(5
000040: 2C 20 31 33 29 3B 20 57 52 49 54 45 28 27 35 2E  , 13); WRITE('5.
000050: 20 5C 6A 65 6E 66 61 72 76 65 27 29 3B 0D 0A 20   \jenfarve');.. 
000060: 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 35 2C         GOTOXY(5,
000070: 20 31 35 29 3B 20 57 52 49 54 45 28 27 36 2E 20   15); WRITE('6. 
000080: 41 66 73 6C 75 74 74 65 20 70 72 6F 67 72 61 6D  Afslutte program
000090: 6D 65 74 27 29 3B 0D 0A 20 20 20 20 20 20 20 20  met');..        
0000A0: 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20  REPEAT..        
0000B0: 20 20 47 4F 54 4F 58 59 28 35 2C 20 31 38 29 3B    GOTOXY(5, 18);
0000C0: 20 57 52 49 54 45 28 27 54 61 73 74 20 6E 75 6D   WRITE('Tast num
0000D0: 6D 65 72 65 74 20 70 7D 20 64 65 6E 20 7C 6E 73  meret p} den |ns
0000E0: 6B 65 64 65 20 66 75 6E 6B 74 69 6F 6E 3A 20 20  kede funktion:  
0000F0: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57  ');..          W
000100: 52 49 54 45 28 43 48 52 28 38 29 29 3B 20 28 2A  RITE(CHR(8)); (*
000110: 20 42 61 63 6B 73 70 61 63 65 20 2A 29 0D 0A 20   Backspace *).. 
000120: 20 20 20 20 20 20 20 20 20 42 55 46 4C 45 4E 20           BUFLEN 
000130: 3A 3D 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 20  := 1;..         
000140: 20 52 45 41 44 28 63 68 29 3B 0D 0A 20 20 20 20   READ(ch);..    
000150: 20 20 20 20 55 4E 54 49 4C 20 28 27 31 27 20 3C      UNTIL ('1' <
000160: 3D 20 63 68 29 20 41 4E 44 20 28 63 68 20 3C 3D  = ch) AND (ch <=
000170: 20 27 36 27 29 3B 0D 0A 20 20 20 20 20 20 20 20   '6');..        
000180: 43 41 53 45 20 63 68 20 4F 46 0D 0A 20 20 20 20  CASE ch OF..    
000190: 20 20 20 20 20 20 27 31 27 20 3A 20 73 6F 65 67        '1' : soeg
0001A0: 6B 6F 65 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20  koen;..         
0001B0: 20 27 32 27 20 3A 20 73 6F 65 67 68 6F 65 6A 64   '2' : soeghoejd
0001C0: 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 27 33  e;..          '3
0001D0: 27 20 3A 20 73 6F 65 67 76 61 65 67 74 3B 0D 0A  ' : soegvaegt;..
0001E0: 20 20 20 20 20 20 20 20 20 20 27 34 27 20 3A 20            '4' : 
0001F0: 73 6F 65 67 68 61 61 72 66 61 72 76 65 3B 0D 0A  soeghaarfarve;..

Size : 512 (Real : 512)
000000: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20   *)..           
000010: 20 20 20 57 52 49 54 45 28 27 54 61 73 74 20 3C     WRITE('Tast <
000020: 52 45 54 55 52 4E 3E 3A 20 27 29 3B 0D 0A 20 20  RETURN>: ');..  
000030: 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 45              REPE
000040: 41 54 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  AT..            
000050: 20 20 20 20 52 45 41 44 28 4B 42 44 2C 20 63 68      READ(KBD, ch
000060: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  );..            
000070: 20 20 55 4E 54 49 4C 20 63 68 20 3D 20 43 48 52    UNTIL ch = CHR
000080: 28 31 33 29 3B 0D 0A 20 20 20 20 20 20 20 20 20  (13);..         
000090: 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20       WRITELN;.. 
0000A0: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 20             END; 
0000B0: 28 2A 20 72 65 74 75 72 6E 20 2A 29 0D 0A 20 20  (* return *)..  
0000C0: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20          ..      
0000D0: 20 20 20 20 46 55 4E 43 54 49 4F 4E 20 70 6F 73      FUNCTION pos
0000E0: 74 61 6E 74 61 6C 28 66 6F 65 72 73 74 65 20 3A  tantal(foerste :
0000F0: 20 6C 69 6E 6B 29 20 3A 20 49 4E 54 45 47 45 52   link) : INTEGER
000100: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20  ;..          .. 
000110: 20 20 20 20 20 20 20 20 20 20 20 56 41 52 0D 0A             VAR..
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 74 61 65               tae
000130: 6C 6C 65 72 20 3A 20 49 4E 54 45 47 45 52 3B 0D  ller : INTEGER;.
000140: 0A 20 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20  .           ..  
000150: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 20 28           BEGIN (
000160: 2A 20 70 6F 73 74 61 6E 74 61 6C 20 2A 29 0D 0A  * postantal *)..
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20               IF 
000180: 66 6F 65 72 73 74 65 20 3D 20 4E 49 4C 0D 0A 20  foerste = NIL.. 
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48                TH
0001A0: 45 4E 20 70 6F 73 74 61 6E 74 61 6C 20 3A 3D 20  EN postantal := 
0001B0: 30 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  0..             
0001C0: 20 20 45 4C 53 45 0D 0A 20 20 20 20 20 20 20 20    ELSE..        
0001D0: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A           BEGIN..
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001F0: 20 20 20 74 61 65 6C 6C 65 72 20 3A 3D 20 31 3B     taeller := 1;

Size : 512 (Real : 512)
000000: 20 3C 3E 20 4E 49 4C 20 44 4F 0D 0A 20 20 20 20   <> NIL DO..    
000010: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49              BEGI
000020: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  N..             
000030: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 70 70 5E       WRITELN(pp^
000040: 2E 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 20 20 20  .navn);..       
000050: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45             WRITE
000060: 4C 4E 28 70 70 5E 2E 61 64 72 65 73 73 65 29 3B  LN(pp^.adresse);
000070: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
000080: 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20      WRITELN;..  
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000A0: 70 70 20 3A 3D 20 70 70 5E 2E 6E 61 65 73 74 65  pp := pp^.naeste
0000B0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  ;..             
0000C0: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20     END;..       
0000D0: 20 20 20 20 20 20 20 72 65 74 75 72 6E 3B 0D 0A         return;..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B              END;
0000F0: 20 28 2A 20 75 64 73 6B 72 69 76 20 2A 29 0D 0A   (* udskriv *)..
000100: 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20            ..    
000110: 20 20 20 20 20 20 50 52 4F 43 45 44 55 52 45 20        PROCEDURE 
000120: 6B 6F 70 69 28 74 6F 70 31 20 3A 20 6C 69 6E 6B  kopi(top1 : link
000130: 3B 20 56 41 52 20 74 6F 70 32 20 3A 20 6C 69 6E  ; VAR top2 : lin
000140: 6B 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D  k);..          .
000150: 0A 20 20 20 20 20 20 20 20 20 20 20 20 56 41 52  .            VAR
000160: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
000170: 70 2C 20 62 75 6E 64 20 3A 20 6C 69 6E 6B 3B 0D  p, bund : link;.
000180: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69  .              i
000190: 2C 20 61 6E 74 61 6C 20 3A 20 49 4E 54 45 47 45  , antal : INTEGE
0001A0: 52 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  R;..            
0001B0: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20    ..            
0001C0: 42 45 47 49 4E 20 28 2A 20 6B 6F 70 69 20 2A 29  BEGIN (* kopi *)
0001D0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
0001E0: 49 46 20 74 6F 70 31 20 3D 20 4E 49 4C 0D 0A 20  IF top1 = NIL.. 
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54                 T

Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
000010: 20 20 20 20 20 57 48 49 4C 45 20 66 6F 65 72 73       WHILE foers
000020: 74 65 5E 2E 6E 61 65 73 74 65 20 3C 3E 20 4E 49  te^.naeste <> NI
000030: 4C 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20  L DO..          
000040: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E             BEGIN
000050: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
000060: 20 20 20 20 20 20 20 20 20 74 61 65 6C 6C 65 72           taeller
000070: 20 3A 3D 20 74 61 65 6C 6C 65 72 20 2B 20 31 3B   := taeller + 1;
000080: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
000090: 20 20 20 20 20 20 20 20 20 66 6F 65 72 73 74 65           foerste
0000A0: 20 3A 3D 20 66 6F 65 72 73 74 65 5E 2E 6E 61 65   := foerste^.nae
0000B0: 73 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  ste;..          
0000C0: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D             END;.
0000D0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0000E0: 20 20 20 20 70 6F 73 74 61 6E 74 61 6C 20 3A 3D      postantal :=
0000F0: 20 74 61 65 6C 6C 65 72 3B 0D 0A 20 20 20 20 20   taeller;..     
000100: 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B              END;
000110: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 45 4E 44  ..           END
000120: 3B 20 28 2A 20 70 6F 73 74 61 6E 74 61 6C 20 2A  ; (* postantal *
000130: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20  )..          .. 
000140: 20 20 20 20 20 20 20 20 20 50 52 4F 43 45 44 55           PROCEDU
000150: 52 45 20 69 6E 64 73 61 65 74 28 56 41 52 20 66  RE indsaet(VAR f
000160: 6F 65 72 73 74 65 20 3A 20 6C 69 6E 6B 3B 20 6E  oerste : link; n
000170: 79 70 6F 73 74 20 3A 20 6C 69 6E 6B 29 3B 0D 0A  ypost : link);..
000180: 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20              ..  
000190: 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 20            BEGIN 
0001A0: 28 2A 20 69 6E 64 73 61 65 74 20 2A 29 0D 0A 20  (* indsaet *).. 
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20               IF 
0001C0: 66 6F 65 72 73 74 65 20 3D 20 4E 49 4C 20 28 2A  foerste = NIL (*
0001D0: 20 6B 7B 64 65 6E 20 65 72 20 74 6F 6D 20 2A 29   k{den er tom *)
0001E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
0001F0: 20 20 54 48 45 4E 20 66 6F 65 72 73 74 65 20 3A    THEN foerste :

Size : 512 (Real : 512)
000000: 48 45 4E 20 74 6F 70 32 20 3A 3D 20 4E 49 4C 0D  HEN top2 := NIL.
000010: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45  .              E
000020: 4C 53 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20  LSE..           
000030: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20       BEGIN..    
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4E 45                NE
000050: 57 28 74 6F 70 32 29 3B 0D 0A 20 20 20 20 20 20  W(top2);..      
000060: 20 20 20 20 20 20 20 20 20 20 20 20 74 6F 70 32              top2
000070: 5E 20 3A 3D 20 74 6F 70 31 5E 3B 0D 0A 20 20 20  ^ := top1^;..   
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62                 b
000090: 75 6E 64 20 3A 3D 20 74 6F 70 32 3B 0D 0A 20 20  und := top2;..  
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000B0: 61 6E 74 61 6C 20 3A 3D 20 70 6F 73 74 61 6E 74  antal := postant
0000C0: 61 6C 28 74 6F 70 31 29 3B 0D 0A 20 20 20 20 20  al(top1);..     
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 46 4F 52               FOR
0000E0: 20 69 20 3A 3D 20 32 20 54 4F 20 61 6E 74 61 6C   i := 2 TO antal
0000F0: 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20   DO..           
000100: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A           BEGIN..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000120: 20 20 20 20 20 20 4E 45 57 28 70 29 3B 0D 0A 20        NEW(p);.. 
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000140: 20 20 20 20 20 74 6F 70 31 20 3A 3D 20 74 6F 70       top1 := top
000150: 31 5E 2E 6E 61 65 73 74 65 3B 0D 0A 20 20 20 20  1^.naeste;..    
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000170: 20 20 70 5E 20 3A 3D 20 74 6F 70 31 5E 3B 0D 0A    p^ := top1^;..
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000190: 20 20 20 20 20 20 62 75 6E 64 5E 2E 6E 61 65 73        bund^.naes
0001A0: 74 65 20 3A 3D 20 70 3B 0D 0A 20 20 20 20 20 20  te := p;..      
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001C0: 62 75 6E 64 20 3A 3D 70 3B 0D 0A 20 20 20 20 20  bund :=p;..     
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45                 E
0001E0: 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20  ND;..           
0001F0: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20       END;..     

Size : 512 (Real : 512)
000000: 3D 20 6E 79 70 6F 73 74 0D 0A 20 20 20 20 20 20  = nypost..      
000010: 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 20          ELSE IF 
000020: 6E 79 70 6F 73 74 5E 2E 6E 61 76 6E 20 3C 20 66  nypost^.navn < f
000030: 6F 65 72 73 74 65 5E 2E 6E 61 76 6E 20 28 2A 20  oerste^.navn (* 
000040: 66 7C 72 20 66 7C 72 73 74 65 20 70 6F 73 74 20  f|r f|rste post 
000050: 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  *)..            
000060: 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 20      THEN..      
000070: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49              BEGI
000080: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  N..             
000090: 20 20 20 20 20 20 20 6E 79 70 6F 73 74 5E 2E 6E         nypost^.n
0000A0: 61 65 73 74 65 20 3A 3D 66 6F 65 72 73 74 65 3B  aeste :=foerste;
0000B0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
0000C0: 20 20 20 20 20 20 66 6F 65 72 73 74 65 20 3A 3D        foerste :=
0000D0: 6E 79 70 6F 73 74 3B 0D 0A 20 20 20 20 20 20 20  nypost;..       
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49               WRI
0000F0: 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20  TELN;..         
000100: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45             WRITE
000110: 28 6E 79 70 6F 73 74 5E 2E 6E 61 76 6E 2C 20 27  (nypost^.navn, '
000120: 20 65 72 20 6E 75 20 69 6E 64 73 61 74 20 69 20   er nu indsat i 
000130: 6B 7B 64 65 6E 2E 20 27 29 3B 0D 0A 20 20 20 20  k{den. ');..    
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000150: 72 65 74 75 72 6E 3B 0D 0A 20 20 20 20 20 20 20  return;..       
000160: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 0D 0A             END..
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4C                EL
000180: 53 45 20 28 2A 20 66 69 6E 64 20 72 69 67 74 69  SE (* find rigti
000190: 67 20 70 6C 61 64 73 20 74 69 6C 20 6E 79 70 6F  g plads til nypo
0001A0: 73 74 20 76 69 61 20 72 65 6B 75 72 73 69 76 74  st via rekursivt
0001B0: 20 6B 61 6C 64 20 2A 29 0D 0A 20 20 20 20 20 20   kald *)..      
0001C0: 20 20 20 20 20 20 20 20 20 20 69 6E 64 73 61 65            indsae
0001D0: 74 28 66 6F 65 72 73 74 65 5E 2E 6E 61 65 73 74  t(foerste^.naest
0001E0: 65 2C 20 6E 79 70 6F 73 74 29 3B 0D 0A 20 20 20  e, nypost);..   
0001F0: 20 20 20 20 20 20 20 20 20 45 4E 44 3B 20 28 2A           END; (*

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 45 4E 44 3B 20 28 2A 20 6B         END; (* k
000010: 6F 70 69 20 2A 29 0D 0A 20 20 20 20 20 20 20 20  opi *)..        
000020: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 42 45    ..          BE
000030: 47 49 4E 20 28 2A 20 70 6F 73 74 6B 6F 70 69 20  GIN (* postkopi 
000040: 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  *)..            
000050: 74 6F 70 20 3A 3D 20 4E 49 4C 3B 0D 0A 20 20 20  top := NIL;..   
000060: 20 20 20 20 20 20 20 20 20 4E 45 57 28 75 64 29           NEW(ud)
000070: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 52  ;..            R
000080: 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20 20  EPEAT..         
000090: 20 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F       WRITE(CLRHO
0000A0: 4D 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20  M);..           
0000B0: 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 20 34 29     GOTOXY(10, 4)
0000C0: 3B 20 57 52 49 54 45 28 27 53 4F 52 54 45 52 45  ; WRITE('SORTERE
0000D0: 54 20 4B 5B 44 45 27 29 3B 0D 0A 20 20 20 20 20  T K[DE');..     
0000E0: 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28           GOTOXY(
0000F0: 31 30 2C 20 37 29 3B 20 57 52 49 54 45 28 27 49  10, 7); WRITE('I
000100: 2E 20 49 6E 64 73 7B 74 20 70 65 72 73 6F 6E 20  . Inds{t person 
000110: 69 20 6B 7B 64 65 6E 2E 27 29 3B 0D 0A 20 20 20  i k{den.');..   
000120: 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58             GOTOX
000130: 59 28 31 30 2C 20 39 29 3B 20 57 52 49 54 45 28  Y(10, 9); WRITE(
000140: 27 46 2E 20 46 6A 65 72 6E 65 20 70 65 72 73 6F  'F. Fjerne perso
000150: 6E 20 66 72 61 20 6B 7B 64 65 6E 2E 27 29 3B 0D  n fra k{den.');.
000160: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47  .              G
000170: 4F 54 4F 58 59 28 31 30 2C 20 31 31 29 3B 20 57  OTOXY(10, 11); W
000180: 52 49 54 45 28 27 55 2E 20 55 64 73 6B 72 69 76  RITE('U. Udskriv
000190: 65 20 6B 7B 64 65 6E 2E 27 29 3B 0D 0A 20 20 20  e k{den.');..   
0001A0: 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58             GOTOX
0001B0: 59 28 31 30 2C 20 31 33 29 3B 20 57 52 49 54 45  Y(10, 13); WRITE
0001C0: 28 27 41 2E 20 41 66 73 6C 75 74 74 65 20 70 72  ('A. Afslutte pr
0001D0: 6F 67 72 61 6D 6D 65 74 2E 27 29 3B 0D 0A 20 20  ogrammet.');..  
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F              GOTO
0001F0: 58 59 28 31 30 2C 20 31 35 29 3B 20 57 52 49 54  XY(10, 15); WRIT

Size : 512 (Real : 512)
000000: 20 69 6E 64 73 61 65 74 20 2A 29 0D 0A 20 20 20   indsaet *)..   
000010: 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20         ..       
000020: 20 20 20 50 52 4F 43 45 44 55 52 45 20 66 6A 65     PROCEDURE fje
000030: 72 6E 28 56 41 52 20 66 6F 65 72 73 74 65 20 3A  rn(VAR foerste :
000040: 20 6C 69 6E 6B 3B 20 67 6C 70 6F 73 74 20 3A 20   link; glpost : 
000050: 6C 69 6E 6B 29 3B 0D 0A 20 20 20 20 20 20 20 20  link);..        
000060: 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20        ..        
000070: 20 20 20 20 42 45 47 49 4E 20 28 2A 20 66 6A 65      BEGIN (* fje
000080: 72 6E 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20  rn *)..         
000090: 20 20 20 20 20 49 46 20 66 6F 65 72 73 74 65 20       IF foerste 
0000A0: 3D 20 4E 49 4C 20 28 2A 20 6B 7B 64 65 6E 20 74  = NIL (* k{den t
0000B0: 6F 6D 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20  om *)..         
0000C0: 20 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20         THEN..   
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57                 W
0000E0: 52 49 54 45 4C 4E 28 67 6C 70 6F 73 74 5E 2E 6E  RITELN(glpost^.n
0000F0: 61 76 6E 2C 20 27 20 66 69 6E 64 65 73 20 69 6B  avn, ' findes ik
000100: 6B 65 20 69 20 6B 7B 64 65 6E 27 29 0D 0A 20 20  ke i k{den')..  
000110: 20 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 45              ELSE
000120: 20 49 46 20 66 6F 65 72 73 74 65 5E 2E 6E 61 76   IF foerste^.nav
000130: 6E 20 3D 20 67 6C 70 6F 73 74 5E 2E 6E 61 76 6E  n = glpost^.navn
000140: 20 28 2A 20 66 6A 65 72 6E 20 70 6F 73 74 20 31   (* fjern post 1
000150: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20   *)..           
000160: 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 20       THEN..     
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47               BEG
000180: 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  IN..            
000190: 20 20 20 20 20 20 20 20 66 6F 65 72 73 74 65 20          foerste 
0001A0: 3A 3D 20 66 6F 65 72 73 74 65 5E 2E 6E 61 65 73  := foerste^.naes
0001B0: 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20  te;..           
0001C0: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 67           WRITE(g
0001D0: 6C 70 6F 73 74 5E 2E 6E 61 76 6E 2C 20 27 20 65  lpost^.navn, ' e
0001E0: 72 20 73 6C 65 74 74 65 74 20 66 72 61 20 6B 7B  r slettet fra k{
0001F0: 64 65 6E 2E 20 27 29 3B 0D 0A 20 20 20 20 20 20  den. ');..      

Size : 512 (Real : 512)
000000: 45 20 28 27 50 2E 20 55 64 73 6B 72 69 76 65 20  E ('P. Udskrive 
000010: 70 6F 73 74 61 6E 74 61 6C 2E 27 29 3B 0D 0A 20  postantal.');.. 
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4F 54               GOT
000030: 4F 58 59 28 31 30 2C 20 31 37 29 3B 20 57 52 49  OXY(10, 17); WRI
000040: 54 45 28 27 4B 2E 20 4B 6F 70 69 65 72 20 6B 7B  TE('K. Kopier k{
000050: 64 65 6E 2E 27 29 3B 0D 0A 20 20 20 20 20 20 20  den.');..       
000060: 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 31 30         GOTOXY(10
000070: 2C 20 31 39 29 3B 20 57 52 49 54 45 28 27 54 61  , 19); WRITE('Ta
000080: 73 74 20 6B 6F 6D 6D 61 6E 64 6F 3A 20 27 29 3B  st kommando: ');
000090: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
0000A0: 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20  REPEAT..        
0000B0: 20 20 20 20 20 20 20 20 52 45 41 44 28 4B 42 44          READ(KBD
0000C0: 2C 20 63 68 29 3B 0D 0A 20 20 20 20 20 20 20 20  , ch);..        
0000D0: 20 20 20 20 20 20 55 4E 54 49 4C 20 63 68 20 49        UNTIL ch I
0000E0: 4E 20 28 2E 27 49 27 2C 20 27 69 27 2C 20 27 46  N (.'I', 'i', 'F
0000F0: 27 2C 20 27 66 27 2C 20 27 55 27 2C 20 27 75 27  ', 'f', 'U', 'u'
000100: 2C 20 27 50 27 2C 20 27 70 27 2C 0D 0A 20 20 20  , 'P', 'p',..   
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000120: 20 20 20 20 20 20 20 20 20 27 4B 27 2C 20 27 6B           'K', 'k
000130: 27 2C 20 27 41 27 2C 20 27 61 27 2E 29 3B 0D 0A  ', 'A', 'a'.);..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52                WR
000150: 49 54 45 4C 4E 28 63 68 29 3B 0D 0A 20 20 20 20  ITELN(ch);..    
000160: 20 20 20 20 20 20 20 20 20 20 43 41 53 45 20 63            CASE c
000170: 68 20 4F 46 0D 0A 20 20 20 20 20 20 20 20 20 20  h OF..          
000180: 20 20 20 20 20 20 27 49 27 2C 20 27 69 27 20 3A        'I', 'i' :
000190: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20   BEGIN..        
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001B0: 20 20 20 20 20 4E 45 57 28 70 70 29 3B 0D 0A 20       NEW(pp);.. 
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 57 52 49 54              WRIT
0001E0: 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  ELN;..          
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65                re
000010: 74 75 72 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20  turn;..         
000020: 20 20 20 20 20 20 20 20 20 45 4E 44 0D 0A 20 20           END..  
000030: 20 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 45              ELSE
000040: 20 28 2A 20 53 7C 67 20 65 66 74 65 72 20 6E 61   (* S|g efter na
000050: 76 6E 65 74 20 76 69 61 20 72 65 6B 75 72 73 69  vnet via rekursi
000060: 76 74 20 6B 61 6C 64 20 2A 29 0D 0A 20 20 20 20  vt kald *)..    
000070: 20 20 20 20 20 20 20 20 20 20 20 20 66 6A 65 72              fjer
000080: 6E 28 66 6F 65 72 73 74 65 5E 2E 6E 61 65 73 74  n(foerste^.naest
000090: 65 2C 20 67 6C 70 6F 73 74 29 3B 0D 0A 20 20 20  e, glpost);..   
0000A0: 20 20 20 20 20 20 20 20 20 45 4E 44 3B 20 28 2A           END; (*
0000B0: 20 66 6A 65 72 6E 20 2A 29 0D 0A 20 20 20 20 20   fjern *)..     
0000C0: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20       ..         
0000D0: 20 50 52 4F 43 45 44 55 52 45 20 75 64 73 6B 72   PROCEDURE udskr
0000E0: 69 76 28 66 6F 65 72 73 74 65 20 3A 20 6C 69 6E  iv(foerste : lin
0000F0: 6B 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D  k);..          .
000100: 0A 20 20 20 20 20 20 20 20 20 20 20 20 56 41 52  .            VAR
000110: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
000120: 70 70 20 3A 20 6C 69 6E 6B 3B 0D 0A 20 20 20 20  pp : link;..    
000130: 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20            ..    
000140: 20 20 20 20 20 20 20 20 42 45 47 49 4E 20 28 2A          BEGIN (*
000150: 20 75 64 73 6B 72 69 76 20 2A 29 0D 0A 20 20 20   udskriv *)..   
000160: 20 20 20 20 20 20 20 20 20 20 20 70 70 20 3A 3D             pp :=
000170: 20 66 6F 65 72 73 74 65 3B 0D 0A 20 20 20 20 20   foerste;..     
000180: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E           WRITELN
000190: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  ;..             
0001A0: 20 57 52 49 54 45 4C 4E 28 27 4B 7B 64 65 6E 20   WRITELN('K{den 
0001B0: 69 6E 64 65 68 6F 6C 64 65 72 20 66 7C 6C 67 65  indeholder f|lge
0001C0: 6E 64 65 20 70 65 72 73 6F 6E 65 72 3A 27 29 3B  nde personer:');
0001D0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
0001E0: 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20  WRITELN;..      
0001F0: 20 20 20 20 20 20 20 20 57 48 49 4C 45 20 70 70          WHILE pp

Size : 512 (Real : 512)
000000: 20 20 20 57 52 49 54 45 28 27 4E 61 76 6E 3A 20     WRITE('Navn: 
000010: 27 29 3B 20 52 45 41 44 4C 4E 28 70 70 5E 2E 6E  '); READLN(pp^.n
000020: 61 76 6E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20  avn);..         
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000040: 20 20 20 20 57 52 49 54 45 28 27 41 64 72 65 73      WRITE('Adres
000050: 73 65 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 70  se: '); READLN(p
000060: 70 5E 2E 61 64 72 65 73 73 65 29 3B 0D 0A 20 20  p^.adresse);..  
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000080: 20 20 20 20 20 20 20 20 20 20 20 70 70 5E 2E 6E             pp^.n
000090: 61 65 73 74 65 20 3A 3D 20 4E 49 4C 3B 0D 0A 20  aeste := NIL;.. 
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 69 6E 64 73              inds
0000C0: 61 65 74 28 74 6F 70 2C 20 70 70 29 3B 0D 0A 20  aet(top, pp);.. 
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 45 4E 44 3B 0D 0A            END;..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000100: 27 46 27 2C 20 27 66 27 20 3A 20 42 45 47 49 4E  'F', 'f' : BEGIN
000110: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57                 W
000130: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20  RITELN;..       
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000150: 20 20 20 20 20 20 57 52 49 54 45 28 27 48 76 65        WRITE('Hve
000160: 6D 20 73 6B 61 6C 20 66 6A 65 72 6E 65 73 3A 20  m skal fjernes: 
000170: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20  ');..           
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000190: 20 20 52 45 41 44 4C 4E 28 75 64 5E 2E 6E 61 76    READLN(ud^.nav
0001A0: 6E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20  n);..           
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001C0: 20 20 66 6A 65 72 6E 28 74 6F 70 2C 20 75 64 29    fjern(top, ud)
0001D0: 3B 0D 0A 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 20 45 4E                EN
0001F0: 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  D;..            

Size : 512 (Real : 512)
000000: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45  .              E
000010: 4C 53 45 20 49 46 20 6E 79 70 6F 73 74 5E 2E 6E  LSE IF nypost^.n
000020: 61 76 6E 20 3C 20 66 6F 65 72 73 74 65 5E 2E 6E  avn < foerste^.n
000030: 61 76 6E 20 28 2A 20 66 7C 72 20 66 7C 72 73 74  avn (* f|r f|rst
000040: 65 20 70 6F 73 74 20 2A 29 0D 0A 20 20 20 20 20  e post *)..     
000050: 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 0D             THEN.
000060: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
000070: 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20     BEGIN..      
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6E 79                ny
000090: 70 6F 73 74 5E 2E 6E 61 65 73 74 65 20 3A 3D 66  post^.naeste :=f
0000A0: 6F 65 72 73 74 65 3B 0D 0A 20 20 20 20 20 20 20  oerste;..       
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6F 65               foe
0000C0: 72 73 74 65 20 3A 3D 6E 79 70 6F 73 74 3B 0D 0A  rste :=nypost;..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000E0: 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20      WRITELN;..  
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000100: 20 20 57 52 49 54 45 28 6E 79 70 6F 73 74 5E 2E    WRITE(nypost^.
000110: 6E 61 76 6E 2C 20 27 20 65 72 20 6E 75 20 69 6E  navn, ' er nu in
000120: 64 73 61 74 20 69 20 6B 7B 64 65 6E 2E 20 27 29  dsat i k{den. ')
000130: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  ;..             
000140: 20 20 20 20 20 20 20 72 65 74 75 72 6E 3B 0D 0A         return;..
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000160: 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 20 20 20    END..         
000170: 20 20 20 20 20 45 4C 53 45 20 28 2A 20 66 69 6E       ELSE (* fin
000180: 64 20 72 69 67 74 69 67 20 70 6C 61 64 73 20 74  d rigtig plads t
000190: 69 6C 20 6E 79 70 6F 73 74 20 76 69 61 20 72 65  il nypost via re
0001A0: 6B 75 72 73 69 76 74 20 6B 61 6C 64 20 2A 29 0D  kursivt kald *).
0001B0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0001C0: 20 69 6E 64 73 61 65 74 28 66 6F 65 72 73 74 65   indsaet(foerste
0001D0: 5E 2E 6E 61 65 73 74 65 2C 20 6E 79 70 6F 73 74  ^.naeste, nypost
0001E0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  );..            
0001F0: 45 4E 44 3B 20 28 2A 20 69 6E 64 73 61 65 74 20  END; (* indsaet 

Size : 512 (Real : 512)
000000: 20 20 20 20 27 55 27 2C 20 27 75 27 20 3A 20 75      'U', 'u' : u
000010: 64 73 6B 72 69 76 28 74 6F 70 29 3B 0D 0A 20 20  dskriv(top);..  
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 50                'P
000030: 27 2C 20 27 70 27 20 3A 20 42 45 47 49 4E 0D 0A  ', 'p' : BEGIN..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49               WRI
000060: 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20  TELN;..         
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000080: 20 20 20 20 57 52 49 54 45 28 27 41 6E 74 61 6C      WRITE('Antal
000090: 20 70 6F 73 74 65 72 3A 20 27 2C 20 70 6F 73 74   poster: ', post
0000A0: 61 6E 74 61 6C 28 74 6F 70 29 2C 20 27 20 27 29  antal(top), ' ')
0000B0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  ;..             
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000D0: 72 65 74 75 72 6E 3B 0D 0A 20 20 20 20 20 20 20  return;..       
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000F0: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20      END;..      
000100: 20 20 20 20 20 20 20 20 20 20 27 4B 27 2C 20 27            'K', '
000110: 6B 27 20 3A 20 42 45 47 49 4E 0D 0A 20 20 20 20  k' : BEGIN..    
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 6B 6F 70 69 28 74 6F           kopi(to
000140: 70 2C 20 74 6F 70 6B 6F 70 69 29 3B 0D 0A 20 20  p, topkopi);..  
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000160: 20 20 20 20 20 20 20 20 20 20 20 75 64 73 6B 72             udskr
000170: 69 76 28 74 6F 70 6B 6F 70 69 29 3B 0D 0A 20 20  iv(topkopi);..  
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 45 4E 44 3B 0D 0A 20           END;.. 
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44               END
0001B0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 55  ;..            U
0001C0: 4E 54 49 4C 20 63 68 20 49 4E 20 28 2E 27 41 27  NTIL ch IN (.'A'
0001D0: 2C 20 27 61 27 2E 29 3B 0D 0A 20 20 20 20 20 20  , 'a'.);..      
0001E0: 20 20 20 20 45 4E 44 2E 20 28 2A 20 70 6F 73 74      END. (* post
0001F0: 6B 6F 70 69 20 2A 29 0D 0A 1A 29 3B 0D 0A 20 20  kopi *)...);..  

Size : 512 (Real : 512)
000000: 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A  *)..          ..
000010: 20 20 20 20 20 20 20 20 20 20 50 52 4F 43 45 44            PROCED
000020: 55 52 45 20 66 6A 65 72 6E 28 56 41 52 20 66 6F  URE fjern(VAR fo
000030: 65 72 73 74 65 20 3A 20 6C 69 6E 6B 3B 20 67 6C  erste : link; gl
000040: 70 6F 73 74 20 3A 20 6C 69 6E 6B 29 3B 0D 0A 20  post : link);.. 
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A 20               .. 
000060: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E             BEGIN
000070: 20 28 2A 20 66 6A 65 72 6E 20 2A 29 0D 0A 20 20   (* fjern *)..  
000080: 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 66              IF f
000090: 6F 65 72 73 74 65 20 3D 20 4E 49 4C 20 28 2A 20  oerste = NIL (* 
0000A0: 6B 7B 64 65 6E 20 74 6F 6D 20 2A 29 0D 0A 20 20  k{den tom *)..  
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48                TH
0000C0: 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  EN..            
0000D0: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 67 6C        WRITELN(gl
0000E0: 70 6F 73 74 5E 2E 6E 61 76 6E 2C 20 27 20 66 69  post^.navn, ' fi
0000F0: 6E 64 65 73 20 69 6B 6B 65 20 69 20 6B 7B 64 65  ndes ikke i k{de
000100: 6E 27 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20  n')..           
000110: 20 20 20 45 4C 53 45 20 49 46 20 66 6F 65 72 73     ELSE IF foers
000120: 74 65 5E 2E 6E 61 76 6E 20 3D 20 67 6C 70 6F 73  te^.navn = glpos
000130: 74 5E 2E 6E 61 76 6E 20 28 2A 20 66 6A 65 72 6E  t^.navn (* fjern
000140: 20 70 6F 73 74 20 31 20 2A 29 0D 0A 20 20 20 20   post 1 *)..    
000150: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E              THEN
000160: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
000170: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20      BEGIN..     
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66                 f
000190: 6F 65 72 73 74 65 20 3A 3D 20 66 6F 65 72 73 74  oerste := foerst
0001A0: 65 5E 2E 6E 61 65 73 74 65 3B 0D 0A 20 20 20 20  e^.naeste;..    
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001C0: 57 52 49 54 45 28 67 6C 70 6F 73 74 5E 2E 6E 61  WRITE(glpost^.na
0001D0: 76 6E 2C 20 27 20 65 72 20 73 6C 65 74 74 65 74  vn, ' er slettet
0001E0: 20 66 72 61 20 6B 7B 64 65 6E 2E 20 27 29 3B 0D   fra k{den. ');.
0001F0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20          PROGRAM 
000010: 70 6F 73 74 5F 61 6E 74 3B 0D 0A 20 20 20 20 20  post_ant;..     
000020: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 54     ..          T
000030: 59 50 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20  YPE..           
000040: 20 73 74 72 34 30 20 3D 20 53 54 52 49 4E 47 28   str40 = STRING(
000050: 2E 34 30 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20  .40.);..        
000060: 20 20 20 20 6C 69 6E 6B 20 3D 20 5E 20 70 6F 73      link = ^ pos
000070: 74 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  t;..            
000080: 70 6F 73 74 20 3D 20 52 45 43 4F 52 44 0D 0A 20  post = RECORD.. 
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000A0: 20 20 20 20 6E 61 65 73 74 65 20 3A 20 6C 69 6E      naeste : lin
0000B0: 6B 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  k;..            
0000C0: 20 20 20 20 20 20 20 20 20 6E 61 76 6E 20 3A 20           navn : 
0000D0: 73 74 72 34 30 3B 0D 0A 20 20 20 20 20 20 20 20  str40;..        
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 61 64 72               adr
0000F0: 65 73 73 65 20 3A 20 73 74 72 34 30 3B 0D 0A 20  esse : str40;.. 
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000110: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20    END;..        
000120: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 56 41    ..          VA
000130: 52 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 75  R..            u
000140: 64 2C 20 74 6F 70 2C 20 70 70 20 3A 20 6C 69 6E  d, top, pp : lin
000150: 6B 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  k;..            
000160: 63 68 20 3A 20 43 48 41 52 3B 0D 0A 20 20 20 20  ch : CHAR;..    
000170: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20          ..      
000180: 20 20 20 20 50 52 4F 43 45 44 55 52 45 20 72 65      PROCEDURE re
000190: 74 75 72 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20  turn;..         
0001A0: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 56   ..            V
0001B0: 41 52 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  AR..            
0001C0: 20 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A 20 20    ch : CHAR;..  
0001D0: 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20            ..    
0001E0: 20 20 20 20 20 20 20 20 42 45 47 49 4E 20 28 2A          BEGIN (*
0001F0: 20 72 65 74 75 72 6E 20 2A 29 0D 0A 20 20 20 20   return *)..    

Size : 512 (Real : 512)
000000: 20 20 20 20 20 72 65 74 75 72 6E 3B 0D 0A 20 20       return;..  
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000020: 45 4E 44 0D 0A 20 20 20 20 20 20 20 20 20 20 20  END..           
000030: 20 20 20 45 4C 53 45 20 28 2A 20 53 7C 67 20 65     ELSE (* S|g e
000040: 66 74 65 72 20 6E 61 76 6E 65 74 20 76 69 61 20  fter navnet via 
000050: 72 65 6B 75 72 73 69 76 74 20 6B 61 6C 64 20 2A  rekursivt kald *
000060: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  )..             
000070: 20 20 20 66 6A 65 72 6E 28 66 6F 65 72 73 74 65     fjern(foerste
000080: 5E 2E 6E 61 65 73 74 65 2C 20 67 6C 70 6F 73 74  ^.naeste, glpost
000090: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  );..            
0000A0: 45 4E 44 3B 20 28 2A 20 66 6A 65 72 6E 20 2A 29  END; (* fjern *)
0000B0: 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20  ..          ..  
0000C0: 20 20 20 20 20 20 20 20 50 52 4F 43 45 44 55 52          PROCEDUR
0000D0: 45 20 75 64 73 6B 72 69 76 28 66 6F 65 72 73 74  E udskriv(foerst
0000E0: 65 20 3A 20 6C 69 6E 6B 29 3B 0D 0A 20 20 20 20  e : link);..    
0000F0: 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20        ..        
000100: 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 20      VAR..       
000110: 20 20 20 20 20 20 20 70 70 20 3A 20 6C 69 6E 6B         pp : link
000120: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  ;..             
000130: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42   ..            B
000140: 45 47 49 4E 20 28 2A 20 75 64 73 6B 72 69 76 20  EGIN (* udskriv 
000150: 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  *)..            
000160: 20 20 70 70 20 3A 3D 20 66 6F 65 72 73 74 65 3B    pp := foerste;
000170: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
000180: 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20  WRITELN;..      
000190: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28          WRITELN(
0001A0: 27 4B 7B 64 65 6E 20 69 6E 64 65 68 6F 6C 64 65  'K{den indeholde
0001B0: 72 20 66 7C 6C 67 65 6E 64 65 20 70 65 72 73 6F  r f|lgende perso
0001C0: 6E 65 72 3A 27 29 3B 0D 0A 20 20 20 20 20 20 20  ner:');..       
0001D0: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D         WRITELN;.
0001E0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57  .              W
0001F0: 48 49 4C 45 20 70 70 20 3C 3E 20 4E 49 4C 20 44  HILE pp <> NIL D

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28            WRITE(
000010: 27 54 61 73 74 20 3C 52 45 54 55 52 4E 3E 3A 20  'Tast <RETURN>: 
000020: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20  ');..           
000030: 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20     REPEAT..     
000040: 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 28             READ(
000050: 4B 42 44 2C 20 63 68 29 3B 0D 0A 20 20 20 20 20  KBD, ch);..     
000060: 20 20 20 20 20 20 20 20 20 55 4E 54 49 4C 20 63           UNTIL c
000070: 68 20 3D 20 43 48 52 28 31 33 29 3B 0D 0A 20 20  h = CHR(13);..  
000080: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54              WRIT
000090: 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  ELN;..          
0000A0: 20 20 45 4E 44 3B 20 28 2A 20 72 65 74 75 72 6E    END; (* return
0000B0: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 0D   *)..          .
0000C0: 0A 20 20 20 20 20 20 20 20 20 20 46 55 4E 43 54  .          FUNCT
0000D0: 49 4F 4E 20 70 6F 73 74 61 6E 74 61 6C 28 66 6F  ION postantal(fo
0000E0: 65 72 73 74 65 20 3A 20 6C 69 6E 6B 29 20 3A 20  erste : link) : 
0000F0: 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 20  INTEGER;..      
000100: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20      ..          
000110: 20 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 20    VAR..         
000120: 20 20 20 20 74 61 65 6C 6C 65 72 20 3A 20 49 4E      taeller : IN
000130: 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 20 20  TEGER;..        
000140: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20     ..           
000150: 42 45 47 49 4E 20 28 2A 20 70 6F 73 74 61 6E 74  BEGIN (* postant
000160: 61 6C 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20  al *)..         
000170: 20 20 20 20 49 46 20 66 6F 65 72 73 74 65 20 3D      IF foerste =
000180: 20 4E 49 4C 0D 0A 20 20 20 20 20 20 20 20 20 20   NIL..          
000190: 20 20 20 20 20 54 48 45 4E 20 70 6F 73 74 61 6E       THEN postan
0001A0: 74 61 6C 20 3A 3D 20 30 0D 0A 20 20 20 20 20 20  tal := 0..      
0001B0: 20 20 20 20 20 20 20 20 20 45 4C 53 45 0D 0A 20           ELSE.. 
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001D0: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20  BEGIN..         
0001E0: 20 20 20 20 20 20 20 20 20 20 74 61 65 6C 6C 65            taelle
0001F0: 72 20 3A 3D 20 31 3B 0D 0A 20 20 20 20 20 20 20  r := 1;..       

Size : 512 (Real : 512)
000000: 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  O..             
000010: 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20     BEGIN..      
000020: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54              WRIT
000030: 45 4C 4E 28 70 70 5E 2E 6E 61 76 6E 29 3B 0D 0A  ELN(pp^.navn);..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000050: 20 20 57 52 49 54 45 4C 4E 28 70 70 5E 2E 61 64    WRITELN(pp^.ad
000060: 72 65 73 73 65 29 3B 0D 0A 20 20 20 20 20 20 20  resse);..       
000070: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45             WRITE
000080: 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20  LN;..           
000090: 20 20 20 20 20 20 20 70 70 20 3A 3D 20 70 70 5E         pp := pp^
0000A0: 2E 6E 61 65 73 74 65 3B 0D 0A 20 20 20 20 20 20  .naeste;..      
0000B0: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A            END;..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65                re
0000D0: 74 75 72 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20  turn;..         
0000E0: 20 20 20 45 4E 44 3B 20 28 2A 20 75 64 73 6B 72     END; (* udskr
0000F0: 69 76 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20  iv *)..         
000100: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 42 45 47   ..          BEG
000110: 49 4E 20 28 2A 20 70 6F 73 74 5F 61 6E 74 20 2A  IN (* post_ant *
000120: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 74  )..            t
000130: 6F 70 20 3A 3D 20 4E 49 4C 3B 0D 0A 20 20 20 20  op := NIL;..    
000140: 20 20 20 20 20 20 20 20 4E 45 57 28 75 64 29 3B          NEW(ud);
000150: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 52 45  ..            RE
000160: 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20 20 20  PEAT..          
000170: 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F 4D      WRITE(CLRHOM
000180: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  );..            
000190: 20 20 47 4F 54 4F 58 59 28 31 30 2C 20 34 29 3B    GOTOXY(10, 4);
0001A0: 20 57 52 49 54 45 28 27 53 4F 52 54 45 52 45 54   WRITE('SORTERET
0001B0: 20 4B 5B 44 45 27 29 3B 0D 0A 20 20 20 20 20 20   K[DE');..      
0001C0: 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 31          GOTOXY(1
0001D0: 30 2C 20 37 29 3B 20 57 52 49 54 45 28 27 49 2E  0, 7); WRITE('I.
0001E0: 20 49 6E 64 73 7B 74 20 70 65 72 73 6F 6E 20 69   Inds{t person i
0001F0: 20 6B 7B 64 65 6E 2E 27 29 3B 0D 0A 20 20 20 20   k{den.');..    

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 57 48 49 4C              WHIL
000010: 45 20 66 6F 65 72 73 74 65 5E 2E 6E 61 65 73 74  E foerste^.naest
000020: 65 20 3C 3E 20 4E 49 4C 20 44 4F 0D 0A 20 20 20  e <> NIL DO..   
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000040: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20    BEGIN..       
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000060: 74 61 65 6C 6C 65 72 20 3A 3D 20 74 61 65 6C 6C  taeller := taell
000070: 65 72 20 2B 20 31 3B 0D 0A 20 20 20 20 20 20 20  er + 1;..       
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000090: 66 6F 65 72 73 74 65 20 3A 3D 20 66 6F 65 72 73  foerste := foers
0000A0: 74 65 5E 2E 6E 61 65 73 74 65 3B 0D 0A 20 20 20  te^.naeste;..   
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000C0: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20    END;..        
0000D0: 20 20 20 20 20 20 20 20 20 20 20 70 6F 73 74 61             posta
0000E0: 6E 74 61 6C 20 3A 3D 20 74 61 65 6C 6C 65 72 3B  ntal := taeller;
0000F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
000100: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20     END;..       
000110: 20 20 20 20 45 4E 44 3B 20 28 2A 20 70 6F 73 74      END; (* post
000120: 61 6E 74 61 6C 20 2A 29 0D 0A 20 20 20 20 20 20  antal *)..      
000130: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20      ..          
000140: 50 52 4F 43 45 44 55 52 45 20 69 6E 64 73 61 65  PROCEDURE indsae
000150: 74 28 56 41 52 20 66 6F 65 72 73 74 65 20 3A 20  t(VAR foerste : 
000160: 6C 69 6E 6B 3B 20 6E 79 70 6F 73 74 20 3A 20 6C  link; nypost : l
000170: 69 6E 6B 29 3B 0D 0A 20 20 20 20 20 20 20 20 20  ink);..         
000180: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20     ..           
000190: 20 42 45 47 49 4E 20 28 2A 20 69 6E 64 73 61 65   BEGIN (* indsae
0001A0: 74 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20  t *)..          
0001B0: 20 20 20 20 49 46 20 66 6F 65 72 73 74 65 20 3D      IF foerste =
0001C0: 20 4E 49 4C 20 28 2A 20 6B 7B 64 65 6E 20 65 72   NIL (* k{den er
0001D0: 20 74 6F 6D 20 2A 29 0D 0A 20 20 20 20 20 20 20   tom *)..       
0001E0: 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 66 6F           THEN fo
0001F0: 65 72 73 74 65 20 3A 3D 20 6E 79 70 6F 73 74 0D  erste := nypost.

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59            GOTOXY
000010: 28 31 30 2C 20 39 29 3B 20 57 52 49 54 45 28 27  (10, 9); WRITE('
000020: 46 2E 20 46 6A 65 72 6E 65 20 70 65 72 73 6F 6E  F. Fjerne person
000030: 20 66 72 61 20 6B 7B 64 65 6E 2E 27 29 3B 0D 0A   fra k{den.');..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4F                GO
000050: 54 4F 58 59 28 31 30 2C 20 31 31 29 3B 20 57 52  TOXY(10, 11); WR
000060: 49 54 45 28 27 55 2E 20 55 64 73 6B 72 69 76 65  ITE('U. Udskrive
000070: 20 6B 7B 64 65 6E 2E 27 29 3B 0D 0A 20 20 20 20   k{den.');..    
000080: 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59            GOTOXY
000090: 28 31 30 2C 20 31 33 29 3B 20 57 52 49 54 45 28  (10, 13); WRITE(
0000A0: 27 41 2E 20 41 66 73 6C 75 74 74 65 20 70 72 6F  'A. Afslutte pro
0000B0: 67 72 61 6D 6D 65 74 2E 27 29 3B 0D 0A 20 20 20  grammet.');..   
0000C0: 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58             GOTOX
0000D0: 59 28 31 30 2C 20 31 35 29 3B 20 57 52 49 54 45  Y(10, 15); WRITE
0000E0: 20 28 27 50 2E 20 55 64 73 6B 72 69 76 65 20 70   ('P. Udskrive p
0000F0: 6F 73 74 61 6E 74 61 6C 2E 27 29 3B 0D 0A 20 20  ostantal.');..  
000100: 20 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F              GOTO
000110: 58 59 28 31 30 2C 20 31 37 29 3B 20 57 52 49 54  XY(10, 17); WRIT
000120: 45 28 27 54 61 73 74 20 6B 6F 6D 6D 61 6E 64 6F  E('Tast kommando
000130: 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20  : ');..         
000140: 20 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20       REPEAT..   
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41               REA
000160: 44 28 4B 42 44 2C 20 63 68 29 3B 0D 0A 20 20 20  D(KBD, ch);..   
000170: 20 20 20 20 20 20 20 20 20 20 20 55 4E 54 49 4C             UNTIL
000180: 20 63 68 20 49 4E 20 28 2E 27 49 27 2C 20 27 69   ch IN (.'I', 'i
000190: 27 2C 20 27 46 27 2C 20 27 66 27 2C 20 27 55 27  ', 'F', 'f', 'U'
0001A0: 2C 20 27 75 27 2C 20 27 50 27 2C 20 27 70 27 2C  , 'u', 'P', 'p',
0001B0: 0D 0A 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 27 41                'A
0001D0: 27 2C 20 27 61 27 2E 29 3B 0D 0A 20 20 20 20 20  ', 'a'.);..     
0001E0: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E           WRITELN
0001F0: 28 63 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 20  (ch);..         

Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 70 72 69 6D 66 6F 72 64  PROGRAM primford
000010: 3B 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20  ;....  VAR..    
000020: 69 2C 20 61 6E 74 61 6C 20 3A 20 49 4E 54 45 47  i, antal : INTEG
000030: 45 52 3B 0D 0A 20 20 0D 0A 20 20 46 55 4E 43 54  ER;..  ..  FUNCT
000040: 49 4F 4E 20 70 72 69 6D 28 6E 20 3A 20 49 4E 54  ION prim(n : INT
000050: 45 47 45 52 29 20 3A 20 42 4F 4F 4C 45 41 4E 3B  EGER) : BOOLEAN;
000060: 0D 0A 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A 20  ..  ..    VAR.. 
000070: 20 20 20 20 20 69 20 3A 20 49 4E 54 45 47 45 52       i : INTEGER
000080: 3B 0D 0A 20 20 20 20 20 20 70 72 69 6D 74 61 6C  ;..      primtal
000090: 20 3A 20 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 20   : BOOLEAN;..   
0000A0: 20 0D 0A 20 20 20 20 42 45 47 49 4E 0D 0A 20 20   ..    BEGIN..  
0000B0: 20 20 20 20 70 72 69 6D 74 61 6C 20 3A 3D 20 54      primtal := T
0000C0: 52 55 45 3B 0D 0A 20 20 20 20 20 20 69 20 3A 3D  RUE;..      i :=
0000D0: 20 31 3B 0D 0A 20 20 20 20 20 20 57 48 49 4C 45   1;..      WHILE
0000E0: 20 28 69 20 3C 20 52 4F 55 4E 44 28 53 51 52 54   (i < ROUND(SQRT
0000F0: 28 6E 29 29 29 20 41 4E 44 20 70 72 69 6D 74 61  (n))) AND primta
000100: 6C 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 42 45  l DO..        BE
000110: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 69  GIN..          i
000120: 20 3A 3D 20 69 20 2B 20 31 3B 0D 0A 20 20 20 20   := i + 1;..    
000130: 20 20 20 20 20 20 49 46 20 6E 20 4D 4F 44 20 69        IF n MOD i
000140: 20 3D 20 30 0D 0A 20 20 20 20 20 20 20 20 20 20   = 0..          
000150: 20 20 54 48 45 4E 20 70 72 69 6D 74 61 6C 20 3A    THEN primtal :
000160: 3D 20 46 41 4C 53 45 3B 0D 0A 20 20 20 20 20 20  = FALSE;..      
000170: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 70 72    END;..      pr
000180: 69 6D 20 3A 3D 20 70 72 69 6D 74 61 6C 3B 0D 0A  im := primtal;..
000190: 20 20 20 20 20 20 49 46 20 6E 20 3D 20 31 0D 0A        IF n = 1..
0001A0: 20 20 20 20 20 20 20 20 54 48 45 4E 20 70 72 69          THEN pri
0001B0: 6D 20 3A 3D 20 46 41 4C 53 45 3B 0D 0A 20 20 20  m := FALSE;..   
0001C0: 20 45 4E 44 3B 0D 0A 20 20 20 20 0D 0A 20 20 42   END;..    ..  B
0001D0: 45 47 49 4E 0D 0A 20 20 20 20 57 52 49 54 45 28  EGIN..    WRITE(
0001E0: 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 57 52  CLRHOM);..    WR
0001F0: 49 54 45 28 27 54 61 73 74 20 61 6E 74 61 6C 3A  ITE('Tast antal:

Size : 512 (Real : 512)
000000: 20 20 20 20 20 43 41 53 45 20 63 68 20 4F 46 0D       CASE ch OF.
000010: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
000020: 20 27 49 27 2C 20 27 69 27 20 3A 20 42 45 47 49   'I', 'i' : BEGI
000030: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  N..             
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000050: 4E 45 57 28 70 70 29 3B 0D 0A 20 20 20 20 20 20  NEW(pp);..      
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000070: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D         WRITELN;.
000080: 0A 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 57 52                WR
0000A0: 49 54 45 28 27 4E 61 76 6E 3A 20 27 29 3B 20 52  ITE('Navn: '); R
0000B0: 45 41 44 4C 4E 28 70 70 5E 2E 6E 61 76 6E 29 3B  EADLN(pp^.navn);
0000C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57                 W
0000E0: 52 49 54 45 28 27 41 64 72 65 73 73 65 3A 20 27  RITE('Adresse: '
0000F0: 29 3B 20 52 45 41 44 4C 4E 28 70 70 5E 2E 61 64  ); READLN(pp^.ad
000100: 72 65 73 73 65 29 3B 0D 0A 20 20 20 20 20 20 20  resse);..       
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000120: 20 20 20 20 20 20 70 70 5E 2E 6E 61 65 73 74 65        pp^.naeste
000130: 20 3A 3D 20 4E 49 4C 3B 0D 0A 20 20 20 20 20 20   := NIL;..      
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 69 6E 64 73 61 65 74 28 74         indsaet(t
000160: 6F 70 2C 20 70 70 29 3B 0D 0A 20 20 20 20 20 20  op, pp);..      
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000180: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20       END;..     
000190: 20 20 20 20 20 20 20 20 20 20 20 27 46 27 2C 20             'F', 
0001A0: 27 66 27 20 3A 20 42 45 47 49 4E 0D 0A 20 20 20  'f' : BEGIN..   
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 57 52 49 54 45 4C            WRITEL
0001D0: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  N;..            
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001F0: 20 57 52 49 54 45 28 27 48 76 65 6D 20 73 6B 61   WRITE('Hvem ska

Size : 512 (Real : 512)
000000: 20 27 29 3B 20 52 45 41 44 4C 4E 28 61 6E 74 61   '); READLN(anta
000010: 6C 29 3B 0D 0A 20 20 20 20 46 4F 52 20 69 20 3A  l);..    FOR i :
000020: 3D 20 31 20 54 4F 20 61 6E 74 61 6C 20 44 4F 0D  = 1 TO antal DO.
000030: 0A 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20  .      BEGIN..  
000040: 20 20 20 20 20 20 49 46 20 69 20 4D 4F 44 20 35        IF i MOD 5
000050: 30 20 3D 20 31 20 0D 0A 20 20 20 20 20 20 20 20  0 = 1 ..        
000060: 20 20 54 48 45 4E 20 0D 0A 20 20 20 20 20 20 20    THEN ..       
000070: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20       BEGIN..    
000080: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C            WRITEL
000090: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  N;..            
0000A0: 20 20 57 52 49 54 45 28 69 20 3A 20 34 2C 20 27    WRITE(i : 4, '
0000B0: 20 20 20 20 27 29 3B 0D 0A 20 20 20 20 20 20 20      ');..       
0000C0: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20       END;..     
0000D0: 20 20 20 49 46 20 70 72 69 6D 28 69 29 0D 0A 20     IF prim(i).. 
0000E0: 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 57 52           THEN WR
0000F0: 49 54 45 28 27 50 27 29 0D 0A 20 20 20 20 20 20  ITE('P')..      
000100: 20 20 20 20 45 4C 53 45 20 57 52 49 54 45 28 27      ELSE WRITE('
000110: 2E 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 49 46  .');..        IF
000120: 20 69 20 4D 4F 44 20 31 30 20 3D 20 30 0D 0A 20   i MOD 10 = 0.. 
000130: 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 57 52           THEN WR
000140: 49 54 45 28 27 20 27 29 3B 0D 0A 20 20 20 20 20  ITE(' ');..     
000150: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 57 52 49   END;..      WRI
000160: 54 45 4C 4E 3B 0D 0A 20 20 45 4E 44 2E 0D 0A 1A  TELN;..  END....
000170: 49 54 45 28 27 50 27 29 0D 0A 20 20 20 20 20 20  ITE('P')..      
000180: 0E 02 00 38 38 92 7C 10 28 28 28 38 38 10 FE 10  ...88.|.(((88...
000190: 28 44 82 38 38 12 7C 90 28 24 22 38 38 90 7C 12  (D.88.|.($"88.|.
0001A0: 28 48 88 00 3C 18 3C 3C 3C 18 00 3C FF FF 18 0C  (H..<.<<<..<....
0001B0: 18 30 18 18 3C 7E 18 18 7E 3C 18 00 24 66 FF 66  .0..<~..~<..$f.f
0001C0: 24 00 00 E5 A0 01 00 00 FC 1A 0B 16 F6 41 BC 70  $............A.p
0001D0: 7B ED EB 8F 57 F1 F7 4D DB 53 EC BD 86 62 B8 0F  {...W..M.S...b..
0001E0: F2 AD 8B E9 04 0F 1C 8E 9C 8D 33 68 38 72 2C DE  ..........3h8r,.
0001F0: F5 C5 3A 1C AD 4F CD 0F B9 79 32 15 AD C1 F1 ED  ..:..O...y2.....

Size : 512 (Real : 512)
000000: 6C 20 66 6A 65 72 6E 65 73 3A 20 27 29 3B 0D 0A  l fjernes: ');..
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 52 45 41               REA
000030: 44 4C 4E 28 75 64 5E 2E 6E 61 76 6E 29 3B 0D 0A  DLN(ud^.navn);..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6A 65               fje
000060: 72 6E 28 74 6F 70 2C 20 75 64 29 3B 0D 0A 20 20  rn(top, ud);..  
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 45 4E 44 3B 0D 0A 20           END;.. 
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27                 '
0000A0: 55 27 2C 20 27 75 27 20 3A 20 75 64 73 6B 72 69  U', 'u' : udskri
0000B0: 76 28 74 6F 70 29 3B 0D 0A 20 20 20 20 20 20 20  v(top);..       
0000C0: 20 20 20 20 20 20 20 20 20 27 50 27 2C 20 27 70           'P', 'p
0000D0: 27 20 3A 20 42 45 47 49 4E 0D 0A 20 20 20 20 20  ' : BEGIN..     
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 57 52 49 54 45 4C 4E 3B          WRITELN;
000100: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57                 W
000120: 52 49 54 45 28 27 41 6E 74 61 6C 20 70 6F 73 74  RITE('Antal post
000130: 65 72 3A 20 27 2C 20 70 6F 73 74 61 6E 74 61 6C  er: ', postantal
000140: 28 74 6F 70 29 2C 20 27 20 27 29 3B 0D 0A 20 20  (top), ' ');..  
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000160: 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72             retur
000170: 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  n;..            
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45                 E
000190: 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20  ND;..           
0001A0: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20     END;..       
0001B0: 20 20 20 20 20 55 4E 54 49 4C 20 63 68 20 49 4E       UNTIL ch IN
0001C0: 20 28 2E 27 41 27 2C 20 27 61 27 2E 29 3B 0D 0A   (.'A', 'a'.);..
0001D0: 20 20 20 20 20 20 20 20 20 20 45 4E 44 2E 20 28            END. (
0001E0: 2A 20 70 6F 73 74 5F 61 6E 74 20 2A 29 0D 0A 1A  * post_ant *)...
0001F0: 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  n;..            

Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 70 72 69 6D 74 61 6C 3B  PROGRAM primtal;
000010: 0D 0A 0D 0A 20 20 28 2A 20 50 72 6F 67 72 61 6D  ....  (* Program
000020: 6D 65 74 20 75 6E 64 65 72 73 7C 67 65 72 2C 20  met unders|ger, 
000030: 6F 6D 20 65 74 20 6F 70 67 69 76 65 74 20 74 61  om et opgivet ta
000040: 6C 20 65 72 20 65 74 20 70 72 69 6D 74 61 6C 20  l er et primtal 
000050: 2A 29 0D 0A 20 20 0D 0A 20 20 56 41 52 0D 0A 20  *)..  ..  VAR.. 
000060: 20 20 20 74 61 6C 20 2C 20 67 72 61 65 6E 73 65     tal , graense
000070: 2C 20 64 69 76 69 73 6F 72 20 3A 20 49 4E 54 45  , divisor : INTE
000080: 47 45 52 3B 0D 0A 20 20 20 20 70 72 69 6D 74 61  GER;..    primta
000090: 6C 20 3A 20 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 20  l : BOOLEAN;..  
0000A0: 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 57  ..  BEGIN..    W
0000B0: 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20  RITE(CLRHOM);.. 
0000C0: 20 20 20 57 52 49 54 45 28 27 48 76 69 6C 6B 65     WRITE('Hvilke
0000D0: 74 20 68 65 6C 74 61 6C 20 73 6B 61 6C 20 75 6E  t heltal skal un
0000E0: 64 65 72 73 7C 67 65 73 3A 20 27 29 3B 20 52 45  ders|ges: '); RE
0000F0: 41 44 4C 4E 28 74 61 6C 29 3B 0D 0A 20 20 20 20  ADLN(tal);..    
000100: 70 72 69 6D 74 61 6C 20 3A 3D 20 46 41 4C 53 45  primtal := FALSE
000110: 3B 0D 0A 20 20 20 20 49 46 20 74 61 6C 20 3E 20  ;..    IF tal > 
000120: 31 0D 0A 20 20 20 20 20 20 54 48 45 4E 0D 0A 20  1..      THEN.. 
000130: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20         BEGIN..  
000140: 20 20 20 20 20 20 20 20 70 72 69 6D 74 61 6C 20          primtal 
000150: 3A 3D 20 54 52 55 45 3B 0D 0A 20 20 20 20 20 20  := TRUE;..      
000160: 20 20 20 20 67 72 61 65 6E 73 65 20 3A 3D 20 54      graense := T
000170: 52 55 4E 43 28 53 51 52 54 28 74 61 6C 29 2B 31  RUNC(SQRT(tal)+1
000180: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 49 46  );..          IF
000190: 20 28 74 61 6C 20 4D 4F 44 20 32 20 3D 20 30 29   (tal MOD 2 = 0)
0001A0: 20 41 4E 44 20 28 74 61 6C 20 3E 20 32 29 0D 0A   AND (tal > 2)..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E              THEN
0001C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
0001D0: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20  BEGIN..         
0001E0: 20 20 20 20 20 20 20 70 72 69 6D 74 61 6C 20 3A         primtal :
0001F0: 3D 20 46 41 4C 53 45 3B 0D 0A 20 20 20 20 20 20  = FALSE;..      

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20          PROGRAM 
000010: 70 72 65 64 65 66 3B 0D 0A 20 20 20 20 20 20 20  predef;..       
000020: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 42 45 47   ..          BEG
000030: 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  IN..            
000040: 49 46 20 43 4C 52 48 4F 4D 20 3D 20 27 27 0D 0A  IF CLRHOM = ''..
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48                TH
000060: 45 4E 20 57 52 49 54 45 4C 4E 28 27 41 4B 27 29  EN WRITELN('AK')
000070: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
000080: 45 4C 53 45 20 57 52 49 54 45 4C 4E 28 27 4F 4B  ELSE WRITELN('OK
000090: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20  ');..           
0000A0: 20 49 46 20 43 4C 52 45 4F 53 20 3D 20 27 27 0D   IF CLREOS = ''.
0000B0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54  .              T
0000C0: 48 45 4E 20 57 52 49 54 45 4C 4E 28 27 41 4B 27  HEN WRITELN('AK'
0000D0: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  )..             
0000E0: 20 45 4C 53 45 20 57 52 49 54 45 4C 4E 28 27 4F   ELSE WRITELN('O
0000F0: 4B 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  K');..          
000100: 20 20 49 46 20 43 4C 52 45 4F 4C 20 3D 20 27 27    IF CLREOL = ''
000110: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
000120: 54 48 45 4E 20 57 52 49 54 45 4C 4E 28 27 41 4B  THEN WRITELN('AK
000130: 27 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  ')..            
000140: 20 20 45 4C 53 45 20 57 52 49 54 45 4C 4E 28 27    ELSE WRITELN('
000150: 4F 4B 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20  OK');..         
000160: 20 20 20 49 46 20 49 4E 53 4C 49 4E 20 3D 20 27     IF INSLIN = '
000170: 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  '..             
000180: 20 54 48 45 4E 20 57 52 49 54 45 4C 4E 28 27 41   THEN WRITELN('A
000190: 4B 27 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20  K')..           
0001A0: 20 20 20 45 4C 53 45 20 57 52 49 54 45 4C 4E 28     ELSE WRITELN(
0001B0: 27 4F 4B 27 29 3B 0D 0A 20 20 20 20 20 20 20 20  'OK');..        
0001C0: 20 20 20 20 49 46 20 44 45 4C 4C 49 4E 20 3D 20      IF DELLIN = 
0001D0: 27 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  ''..            
0001E0: 20 20 54 48 45 4E 20 57 52 49 54 45 4C 4E 28 27    THEN WRITELN('
0001F0: 41 4B 27 29 0D 0A 20 20 20 20 20 20 20 20 20 20  AK')..          

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C            WRITEL
000010: 4E 28 74 61 6C 2C 20 27 20 65 72 20 65 74 20 6C  N(tal, ' er et l
000020: 69 67 65 20 74 61 6C 27 29 3B 0D 0A 20 20 20 20  ige tal');..    
000030: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A            END;..
000040: 20 20 20 20 20 20 20 20 20 20 64 69 76 69 73 6F            diviso
000050: 72 20 3A 3D 20 31 3B 0D 0A 20 20 20 20 20 20 20  r := 1;..       
000060: 20 20 20 49 46 20 28 74 61 6C 20 3C 3E 20 33 29     IF (tal <> 3)
000070: 20 41 4E 44 20 28 74 61 6C 20 3E 20 32 29 0D 0A   AND (tal > 2)..
000080: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E              THEN
000090: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
0000A0: 57 48 49 4C 45 20 70 72 69 6D 74 61 6C 20 41 4E  WHILE primtal AN
0000B0: 44 20 28 64 69 76 69 73 6F 72 20 3C 3D 20 67 72  D (divisor <= gr
0000C0: 61 65 6E 73 65 29 20 44 4F 0D 0A 20 20 20 20 20  aense) DO..     
0000D0: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E             BEGIN
0000E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
0000F0: 20 20 20 20 64 69 76 69 73 6F 72 20 3A 3D 20 64      divisor := d
000100: 69 76 69 73 6F 72 20 2B 31 3B 0D 0A 20 20 20 20  ivisor +1;..    
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46                IF
000120: 20 28 74 61 6C 20 4D 4F 44 20 64 69 76 69 73 6F   (tal MOD diviso
000130: 72 29 20 3D 20 30 0D 0A 20 20 20 20 20 20 20 20  r) = 0..        
000140: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E              THEN
000150: 20 70 72 69 6D 74 61 6C 20 3A 3D 20 46 41 4C 53   primtal := FALS
000160: 45 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  E;..            
000170: 20 20 20 20 20 20 49 46 20 4E 4F 54 20 70 72 69        IF NOT pri
000180: 6D 74 61 6C 0D 0A 20 20 20 20 20 20 20 20 20 20  mtal..          
000190: 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 57            THEN W
0001A0: 52 49 54 45 4C 4E 28 74 61 6C 2C 20 27 20 68 61  RITELN(tal, ' ha
0001B0: 72 20 27 2C 20 64 69 76 69 73 6F 72 2C 20 27 20  r ', divisor, ' 
0001C0: 73 6F 6D 20 64 69 76 69 73 6F 72 27 29 3B 0D 0A  som divisor');..
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001E0: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E  END;..        EN
0001F0: 44 3B 0D 0A 20 20 20 20 49 46 20 70 72 69 6D 74  D;..    IF primt

Size : 512 (Real : 512)
000000: 20 20 20 20 45 4C 53 45 20 57 52 49 54 45 4C 4E      ELSE WRITELN
000010: 28 27 4F 4B 27 29 3B 0D 0A 20 20 20 20 20 20 20  ('OK');..       
000020: 20 20 20 20 20 49 46 20 52 56 53 4F 4E 20 3D 20       IF RVSON = 
000030: 27 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  ''..            
000040: 20 20 54 48 45 4E 20 57 52 49 54 45 4C 4E 28 27    THEN WRITELN('
000050: 41 4B 27 29 0D 0A 20 20 20 20 20 20 20 20 20 20  AK')..          
000060: 20 20 20 20 45 4C 53 45 20 57 52 49 54 45 4C 4E      ELSE WRITELN
000070: 28 27 4F 4B 27 29 3B 0D 0A 20 20 20 20 20 20 20  ('OK');..       
000080: 20 20 20 20 20 49 46 20 52 56 53 4F 46 46 20 3D       IF RVSOFF =
000090: 20 27 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20   ''..           
0000A0: 20 20 20 54 48 45 4E 20 57 52 49 54 45 4C 4E 28     THEN WRITELN(
0000B0: 27 41 4B 27 29 0D 0A 20 20 20 20 20 20 20 20 20  'AK')..         
0000C0: 20 20 20 20 20 45 4C 53 45 20 57 52 49 54 45 4C       ELSE WRITEL
0000D0: 4E 28 27 4F 4B 27 29 3B 0D 0A 20 20 20 20 20 20  N('OK');..      
0000E0: 20 20 20 20 45 4E 44 2E 0D 0A 0D 0A 1A 45 4C 4E      END......ELN
0000F0: 28 27 4F 4B 27 29 3B 0D 0A 20 20 20 20 20 20 20  ('OK');..       
000100: 20 68 61 72 20 76 75 6E 64 65 74 20 27 2C 0D 0A   har vundet ',..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 62 73 65 6A              bsej
000120: 72 20 2F 20 61 6E 74 61 6C 20 2A 20 31 30 30 20  r / antal * 100 
000130: 3A 20 35 20 3A 20 32 2C 20 27 20 25 27 29 3B 0D  : 5 : 2, ' %');.
000140: 0A 20 20 45 4E 44 2E 0D 0A 1A 20 27 2C 0D 0A 20  .  END.... ',.. 
000150: 20 20 20 20 20 20 20 20 20 20 20 61 73 65 6A 72             asejr
000160: 20 2F 20 61 6E 74 61 6C 20 2A 20 31 30 30 20 3A   / antal * 100 :
000170: 20 35 20 3A 20 32 2C 20 27 20 25 20 6F 67 20 42   5 : 2, ' % og B
000180: A0 00 00 DE 1E E5 AA 3B F9 34 BB 5E 54 07 DB 4F  .......;.4.^T..O
000190: B1 A6 76 9A 58 33 4B 40 95 69 71 EF 55 B7 F1 34  ..v.X3K@.iq.U..4
0001A0: B0 9C E8 97 B9 F3 E7 DA 4E D0 7C D2 AB 18 71 8D  ........N.|...q.
0001B0: A7 B2 83 A8 EB 77 55 39 EB 71 64 14 A5 92 E0 D4  .....wU9.qd.....
0001C0: FD 0E B2 85 7D D2 13 CD 44 92 1C 2B 4E 9B CE 38  ....}...D..+N..8
0001D0: C4 7C 45 52 41 2C 22 2A 2E 42 41 4B 22 0D 31 2C  .|ERA,"*.BAK".1,
0001E0: 30 3A 42 4F 52 44 45 52 20 31 30 0D 1C 7C E2 D5  0:BORDER 10..|..
0001F0: 55 8E 52 C6 0D 38 4C 53 64 F9 A5 91 63 4C B3 95  U.R..8LSd...cL..

Size : 512 (Real : 512)
000000: 61 6C 0D 0A 20 20 20 20 20 20 54 48 45 4E 20 57  al..      THEN W
000010: 52 49 54 45 4C 4E 28 74 61 6C 2C 20 27 20 65 72  RITELN(tal, ' er
000020: 20 65 74 20 70 72 69 6D 74 61 6C 27 29 0D 0A 20   et primtal').. 
000030: 20 20 20 20 20 45 4C 53 45 20 57 52 49 54 45 4C       ELSE WRITEL
000040: 4E 28 74 61 6C 2C 20 27 20 65 72 20 69 6B 6B 65  N(tal, ' er ikke
000050: 20 65 74 20 70 72 69 6D 74 61 6C 27 29 3B 0D 0A   et primtal');..
000060: 20 20 45 4E 44 2E 0D 0A 1A 20 20 20 20 20 45 4E    END....     EN
000070: 44 3B 0D 0A 20 20 20 20 49 46 20 70 72 69 6D 74  D;..    IF primt
000080: 65 20 3E 3D 20 36 0D 0A 20 20 20 20 20 20 54 48  e >= 6..      TH
000090: 45 4E 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49  EN..        BEGI
0000A0: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 47 4F 54  N..          GOT
0000B0: 4F 58 59 28 33 38 2C 20 31 32 29 3B 20 57 52 49  OXY(38, 12); WRI
0000C0: 54 45 28 27 53 4C 55 54 27 29 3B 0D 0A 20 20 20  TE('SLUT');..   
0000D0: 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 30 2C         GOTOXY(0,
0000E0: 20 32 30 29 3B 0D 0A 20 20 20 20 20 20 20 20 45   20);..        E
0000F0: 4E 44 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 57  ND;..    ..    W
000100: 52 49 54 45 4C 4E 3B 0D 0A 20 20 45 4E 44 2E 0D  RITELN;..  END..
000110: 0A 1A 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49  ....        BEGI
000120: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 47 4F 54  N..          GOT
000130: 4F 58 59 28 33 38 2C 20 31 32 29 3B 20 57 52 49  OXY(38, 12); WRI
000140: 54 45 28 27 53 4C 55 54 27 29 3B 0D 0A 20 20 20  TE('SLUT');..   
000150: 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 30 2C         GOTOXY(0,
000160: 20 32 30 29 3B 0D 0A 20 20 20 20 20 20 20 20 45   20);..        E
000170: 4E 44 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 57  ND;..    ..    W
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: 91 96 8B DF 96 91 DF 8B 97 9A DF 9B 90 92 9A D2  ................
000010: 8C 97 9E 8F 9A 9B DF 97 9E 02 93 8C D1 DF AB 97  ................
000020: 9A DF 8A 91 96 8B DF 9E 02 8F B7 9A 9E 8D 8C DF  ................
000030: 8B 90 DF 9D 9A 92 9E 9B 9A DF 90 99 DF 8C 90 92  ................
000040: 9A DF 94 96 91 9B DF 90 99 DF 96 91 9B 9A 8C 8B  ................
000050: 8D 8A 9C 8B 9E 9D 93 9A EB 92 9E 8B 9A 8D 96 9E  ................
000060: 93 D1 02 EB 95 BA 87 96 8B 8C C1 EB B1 90 8D 8B  ................
000070: 97 C1 BB 90 92 9A 9B DF B7 9E 02 93 C6 FF A6 90  ................
000080: 8A DF 9E 8D 9A DF 9E 8B DF 8B 97 9A DF 8C 9A 9C  ................
000090: 8A 8D 96 8B 86 DF 9C 97 9A 9C 94 8F 90 96 91 8B  ................
0000A0: D1 EB AB 97 8D 90 8A 98 97 DF 8B 88 90 DF 97 8A  ................
0000B0: 98 9A DF 98 9E 8B 9A 8C D3 DF 86 90 8A DF 9C 9E  ................
0000C0: 91 DF 8C 02 9A CD DF 8B 97 9A EB 9A 9B 98 9A DF  ................
0000D0: 90 99 DF 8B 97 9A DF 9C 96 8B 86 D1 EB AC 90 92  ................
0000E0: 9A DF 8C 8B 9E 96 8D 8C DF 93 9A 9E 9B DF 8A 8F  ................
0000F0: D1 DF AB 97 9A 8D 9A DF 96 8C DF 9E 93 8C 90 DF  ................
000100: 9E EB 98 8A 9E 8D 9B D8 8C DF 97 8A 8B DF 97 9A  ................
000110: 8D 9A D1 02 EB 8F BA 87 96 8B 8C C1 EB B1 90 8D  ................
000120: 8B 97 C1 AB 8A 02 91 A1 9A 93 DF A8 9E 93 94 EB  ................
000130: BA 9E 8C 8B DF C1 B8 9E 8B 9A 8C DF 9E 91 9B DF  ................
000140: 9D 9A 86 90 91 9B EB AA 8F 03 DF 98 C1 AA 91 94  ................
000150: 91 90 88 91 FF A6 90 8A DF 9E 8D 9A DF 96 91 DF  ................
000160: 9E DF 9D 9E 02 8D AC 9A 91 DF 88 9E 8C 8B 9A 93  ................
000170: 9E 91 9B D1 DF AB 97 9A EB 98 8D 90 8A 91 9B DF  ................
000180: 96 8C DF 98 8D 9A 86 DF 9A 9E 8D 8B 97 D3 DF 8B  ................
000190: 90 8B 9E 02 93 B2 86 DF 96 91 99 9A 8D 8B 96 93  ................
0001A0: 9A D1 AB 97 9A DF 93 9E 91 9B 8C 9C 9E 8F 9A DF  ................
0001B0: 96 8C DF 8B 97 9E 8B DF 90 99 DF 93 90 88 DF 9B  ................
0001C0: 8D 9A 9E 8D 86 EB 97 96 02 93 82 8C D1 02 EB FF  ................
0001D0: BA 87 96 8B 8C C1 EB B1 90 8D 8B 97 C1 AA 91 94  ................
0001E0: 91 90 88 91 EB AC 90 8A 8B 97 C1 AA 91 94 91 90  ................
0001F0: 88 91 EB BA 9E 8C 8B DF C1 AA 91 94 91 90 88 91  ................

Size : 512 (Real : 512)
000000: 8B 96 91 98 DF 96 8C DF EB 9E 93 8C 90 DF 92 9E  ................
000010: 9B 9A DF 90 99 DF 8B 97 96 8C DF 99 93 90 9E 8B  ................
000020: 96 91 98 DF 98 93 9E 02 8C 89 D1 DF AB 97 9A D1  ................
000030: EB 99 93 02 90 96 8D DF 96 8C DF 8F 93 8A 8C 97  ................
000040: 93 86 DF 9C 9E 8D 8F 9A 8B 9A 9B D1 02 EB 91 BA  ................
000050: 87 96 8B 8C C1 EB BA 9E 8C 8B DF C1 DF B8 93 9E  ................
000060: 02 8C 84 DF AC 8B 8D 02 9A 9D 8B EB FF A6 90 8A  ................
000070: DF 9E 8D 9A DF 90 91 DF 9E DF 8C 8F 9E 8D 94 93  ................
000080: 96 91 98 DF 98 93 9E 02 8C 84 DF 8C 8B 8D 02 9A  ................
000090: 97 8B 88 9E 86 D1 DF BE 93 8B 97 90 8A 98 97 DF  ................
0000A0: 96 8B DF 96 8C DF 8C 92 02 90 8B 8B 97 D3 DF 8B  ................
0000B0: 97 9A DF 98 93 9E 02 8C 84 EB 98 93 96 02 8B 9E  ................
0000C0: 9A 8D 8C DF 93 96 94 9A DF 9C 8D 86 8C 8B 9E 93  ................
0000D0: D1 DF BE DF 99 8D 96 9A 91 9B 93 86 DF 99 02 90  ................
0000E0: 96 9B EB 9B 96 8C 8F 9A 91 8C 9A 8D DF 8C 9E 86  ................
0000F0: 8C D3 EB DF DD B7 9A 02 93 D2 90 D1 DF B6 8B DF  ................
000100: 96 8C DF 92 86 DF 8F 93 9A 9E 8C 8A 8D 9A DF 9E  ................
000110: 91 9B DF 97 90 91 90 8A 8D DF 8B 90 DF 8F 8D 90  ................
000120: 89 96 9B 9A DF 86 90 8A DF 88 96 8B 97 DF 9C 90  ................
000130: 91 8C 8A 92 9E 9D 93 9A 8C D1 DD EB AC 90 92 9A  ................
000140: DF 8C 8B 9A 8F 8C DF 93 9A 9E 9B D1 02 EB AB BA  ................
000150: 87 96 8B 8C C1 EB B1 90 8D 8B 97 C1 DF B2 9E 96  ................
000160: 91 DF AC 8F 9E 9C 9A 8F 90 8D 8B DF BE 8D 9A 9E  ................
000170: EB AC 90 8A 8B 97 C1 DF AB 8A 02 91 A2 9A 93 88  ................
000180: 9E 93 94 EB BA 9E 8C 8B DF C1 DF B2 9A 8B 9E 93  ................
000190: 90 91 DF BD 9E 8D EB A8 9A 8C 8B DF C1 DF B9 02  ................
0001A0: 90 AB 9B DF BC 90 91 8C 8A 92 8F 8B 96 90 91 DF  ................
0001B0: BE 8D 9A 9E EB BB 90 88 91 DF C1 DF BB 90 92 9A  ................
0001C0: DF BE 8D 9A 9E FF A6 90 8A DF 9E 8D 9A 02 DF E0  ................
0001D0: 96 91 DF 8B 97 9A DF B2 9A 8B 9E 93 90 91 DF BD  ................
0001E0: 9E 8D D1 DF AB 97 96 8C DF 96 8C DF 9E DF EB DD  ................
0001F0: 8C 97 9E 9B 86 DD DF 9E 8D 9A 9E DF 99 8D 9A 8E  ................

Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 70 79 74 68 61 67 6F 3B  PROGRAM pythago;
000010: 0D 0A 0D 0A 20 20 28 2A 20 50 79 74 68 61 67 6F  ....  (* Pythago
000020: 72 7B 69 73 6B 65 20 74 61 6C 73 7B 74 20 2A 29  r{iske tals{t *)
000030: 0D 0A 20 20 0D 0A 20 20 56 41 52 0D 0A 20 20 20  ..  ..  VAR..   
000040: 20 6D 61 78 2C 20 61 2C 20 62 2C 20 63 20 3A 20   max, a, b, c : 
000050: 49 4E 54 45 47 45 52 3B 0D 0A 20 20 0D 0A 20 20  INTEGER;..  ..  
000060: 42 45 47 49 4E 0D 0A 20 20 20 20 57 52 49 54 45  BEGIN..    WRITE
000070: 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 57  (CLRHOM);..    W
000080: 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 7C 76  RITE('Indtast |v
000090: 65 72 73 74 65 20 67 72 7B 6E 73 65 20 66 6F 72  erste gr{nse for
0000A0: 20 74 61 6C 6C 65 6E 65 3A 20 27 29 3B 20 52 45   tallene: '); RE
0000B0: 41 44 4C 4E 28 6D 61 78 29 3B 0D 0A 20 20 20 20  ADLN(max);..    
0000C0: 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 57 52  WRITELN;..    WR
0000D0: 49 54 45 4C 4E 28 27 20 20 20 41 20 20 20 20 20  ITELN('   A     
0000E0: 20 42 20 20 20 20 20 20 20 43 27 29 3B 0D 0A 20   B       C');.. 
0000F0: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20     WRITELN;..   
000100: 20 46 4F 52 20 63 20 3A 3D 20 31 20 54 4F 20 6D   FOR c := 1 TO m
000110: 61 78 20 44 4F 0D 0A 20 20 20 20 20 20 46 4F 52  ax DO..      FOR
000120: 20 62 20 3A 3D 20 31 20 54 4F 20 63 20 44 4F 0D   b := 1 TO c DO.
000130: 0A 20 20 20 20 20 20 20 20 46 4F 52 20 61 20 3A  .        FOR a :
000140: 3D 20 31 20 54 4F 20 62 20 44 4F 0D 0A 20 20 20  = 1 TO b DO..   
000150: 20 20 20 20 20 20 20 49 46 20 61 20 2A 20 61 20         IF a * a 
000160: 2B 20 62 20 2A 20 62 20 3D 20 63 20 2A 20 63 0D  + b * b = c * c.
000170: 0A 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45  .            THE
000180: 4E 20 57 52 49 54 45 4C 4E 28 61 20 3A 20 34 2C  N WRITELN(a : 4,
000190: 20 62 20 3A 20 37 2C 20 63 20 3A 20 38 29 3B 0D   b : 7, c : 8);.
0001A0: 0A 20 20 45 4E 44 2E 0D 0A 1A 20 63 20 44 4F 0D  .  END.... c DO.
0001B0: 0A 20 20 20 20 20 20 20 20 46 4F 52 20 61 20 3A  .        FOR a :
0001C0: 3D 20 31 20 54 4F 20 62 20 44 4F 0D 0A 20 20 20  = 1 TO b DO..   
0001D0: 20 20 20 20 20 20 20 49 46 20 61 20 2A 20 61 20         IF a * a 
0001E0: 2B 20 62 20 2A 20 62 20 3D 20 63 20 2A 20 63 0D  + b * b = c * c.
0001F0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45  .            THE

Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 70 72 69 6E 74 65 72 3B  PROGRAM printer;
000010: 0D 0A 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20  ....  BEGIN..   
000020: 20 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D   WRITE(CLRHOM);.
000030: 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 4C 53 54  .    WRITELN(LST
000040: 2C 20 27 20 20 20 20 20 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 27 2C 0D 0A 20 20 20 20  --------',..    
000080: 20 20 20 20 20 20 20 20 27 2D 2D 2D 2D 2D 2D 2D          '-------
000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 29 3B  -------------');
0000A0: 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 4C 53  ..    WRITELN(LS
0000B0: 54 2C 20 27 20 20 20 20 20 66 6F 72 6C 61 67 65  T, '     forlage
0000C0: 74 20 73 79 73 74 69 6D 65 20 61 2F 73 20 20 20  t systime a/s   
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 27 2C 0D 0A 20 20 20 20          ',..    
0000F0: 20 20 20 20 20 20 20 20 27 66 6F 72 6C 61 67 65          'forlage
000100: 74 20 73 79 73 74 69 6D 65 20 20 61 2F 73 27 29  t systime  a/s')
000110: 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 4C  ;..    WRITELN(L
000120: 53 54 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C  ST);..    WRITEL
000130: 4E 28 4C 53 54 29 3B 0D 0A 20 20 20 20 57 52 49  N(LST);..    WRI
000140: 54 45 4C 4E 28 4C 53 54 2C 20 27 20 20 20 20 20  TELN(LST, '     
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000160: 20 20 20 20 20 20 20 20 20 20 20 20 50 20 41 20              P A 
000170: 53 20 43 20 41 20 4C 20 20 20 20 20 20 20 20 27  S C A L        '
000180: 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28  );..    WRITELN(
000190: 4C 53 54 29 3B 0D 0A 20 20 20 20 57 52 49 54 45  LST);..    WRITE
0001A0: 4C 4E 28 4C 53 54 2C 20 27 20 20 20 20 20 20 20  LN(LST, '       
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001C0: 20 45 6E 20 67 72 75 6E 64 6C 7B 67 67 65 6E 64   En grundl{ggend
0001D0: 65 20 69 6E 64 66 7C 72 69 6E 67 20 69 27 29 3B  e indf|ring i');
0001E0: 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 4C 53  ..    WRITELN(LS
0001F0: 54 2C 20 27 20 20 20 20 20 20 20 20 20 20 20 20  T, '            

Size : 512 (Real : 512)
000000: 02 93 DC D1 EB B6 8B DF 8C 9E 86 8C D3 EB DD B7  ................
000010: 96 DF 8B 97 9A 8D 9A D1 DF B6 8B DF 96 8C DF 92  ................
000020: 86 DF 98 8D 9A 9E 8B DF 97 90 91 90 8A 8D DF 9E  ................
000030: 91 9B EB DF 8F 93 9A 9E 8C 8A 8D 9A DF 8B 90 DF  ................
000040: 8F 8D 90 89 96 9B 9A DF 86 90 8A DF 88 96 8B 97  ................
000050: EB DF 9C 90 91 8C 8A 92 9E 9D 93 9A 8C D1 DD 02  ................
000060: EB 8F BA 87 96 8B 8C C1 EB AC 90 8A 8B 97 C1 AC  ................
000070: 93 02 9A 97 8F DF BE 8D 9A 9E EB BA 9E 8C 8B DF  ................
000080: C1 BC 90 92 8F 8A 8B 9A 8D DF AD 02 90 8A 92 EB  ................
000090: A8 9A 8C 8B DF C1 B5 9E 02 9C A1 8A 85 96 FF A6  ................
0000A0: 90 8A DF 9E 8D 9A DF 96 91 DF 9E DF 9B 8A 8C 8B  ................
0000B0: 86 DF 9C 90 92 8F 8A 8B 9A 8D DF 8D 02 90 9D 92  ................
0000C0: D1 DF B0 91 9A DF 90 99 8B 97 9A DF 8B 9A 8D 92  ................
0000D0: 96 91 9E 93 8C DF 96 8C DF 8C 8B 96 02 93 9B DF  ................
0000E0: 88 90 8D 94 96 91 98 DF 9E 91 9B DF 9A 92 96 8B  ................
0000F0: 8C 9E DF 8C 90 99 8B DF 97 8A 02 92 8F 96 91 98  ................
000100: DF 91 90 96 8C 9A D1 DF B6 8B DF 93 02 90 AF 94  ................
000110: 8C DF 93 96 94 9A DF 9E 91 EB 90 93 9B DF AC 96  ................
000120: 91 96 8B 8D 9E 91 DF 92 90 9B 9A 93 DF 88 96 8B  ................
000130: 97 DF 9E DF 91 9A 88 DF 8D 9A 8F 93 9E 9C 02 9A  ................
000140: 9F 91 8B 94 9A 86 9D 90 9E 8D 9B D1 EB AB 90 DF  ................
000150: 8B 97 9A DF 9A 9E 8C 8B DF 96 8C DF 9E DF 92 9E  ................
000160: 02 8C 99 96 89 9A DF AC 9A 9C 8A D2 A9 9E 8A 93  ................
000170: 8B EB 9D 9A 97 96 91 9B DF 9E DF 9B 02 90 82 8D  ................
000180: D1 02 EB F6 BA 87 96 8B 8C C1 EB B1 90 8D 8B 97  ................
000190: C1 AA 91 94 91 90 88 91 EB BA 9E 8C 8B DF C1 A9  ................
0001A0: 9E 8A 93 8B EB A8 9A 8C 8B DF C1 B3 96 89 96 91  ................
0001B0: 98 DF AE 8A 9E 8D 8B 9A 8D 8C FF A6 90 8A DF 9E  ................
0001C0: 8D 9A DF 96 91 DF 8B 97 9A DF 8C 9A 9C 8A 8D 96  ................
0001D0: 8B 86 DF 89 9E 8A 93 8B D1 DF AB 97 9A 8D 9A DF  ................
0001E0: 96 8C DF 9E DF 92 9A 8B 9E 93 DF 8B 9E 9D 93 9A  ................
0001F0: DF 96 91 DF 8B 97 9A DF 92 96 02 9B 8C 93 9A DF  ................

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000010: 70 72 6F 67 72 61 6D 6D 65 72 69 6E 67 73 73 70  programmeringssp
000020: 72 6F 67 65 74 20 20 20 27 29 3B 0D 0A 20 20 20  roget   ');..   
000030: 20 57 52 49 54 45 4C 4E 28 4C 53 54 29 3B 0D 0A   WRITELN(LST);..
000040: 20 20 20 20 57 52 49 54 45 4C 4E 28 4C 53 54 2C      WRITELN(LST,
000050: 20 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20   '              
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50                 P
000070: 20 6F 20 6C 20 79 20 50 20 61 20 73 20 63 20 61   o l y P a s c a
000080: 20 6C 20 20 20 20 27 29 3B 0D 0A 20 20 20 20 57   l    ');..    W
000090: 52 49 54 45 4C 4E 28 4C 53 54 29 3B 0D 0A 20 20  RITELN(LST);..  
0000A0: 20 20 57 52 49 54 45 4C 4E 28 4C 53 54 29 3B 0D    WRITELN(LST);.
0000B0: 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 4C 53 54  .    WRITELN(LST
0000C0: 2C 20 27 20 20 20 20 20 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 27 2C 0D 0A 20 20 20 20  --------',..    
000100: 20 20 20 20 20 20 20 20 27 2D 2D 2D 2D 2D 2D 2D          '-------
000110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 29 3B  -------------');
000120: 0D 0A 20 20 45 4E 44 2E 0D 0A 1A 53 54 29 3B 0D  ..  END....ST);.
000130: 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 4C 53 54  .    WRITELN(LST
000140: 2C 20 27 20 20 20 20 20 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 27 2C 0D 0A 20 20 20 20  --------',..    
000180: 03 01 50 09 41 00 02 2A 52 60 58 44 44 4F 53 20  ..P.A..*R`XDDOS 
000190: 43 50 2F 4D 20 20 20 20 20 20 20 20 20 20 20 20  CP/M            
0001A0: 24 00 05 1F 03 B3 00 7F 00 80 00 20 00 00 00 02  $.......... ....
0001B0: 03 01 50 09 C1 00 02 2A 52 60 58 44 44 4F 53 20  ..P....*R`XDDOS 
0001C0: 44 41 54 41 20 20 20 20 20 34 A4 04 00 5E 34 A3  DATA     4...^4.
0001D0: 00 01 C9 00 00 C9 00 00 C3 BB F2 C9 00 00 C3 72  ...............r
0001E0: 9E C3 85 9E C3 7E 9E C9 00 00 C9 00 00 00 00 00  .....~..........
0001F0: 00 00 FC 00 01 00 01 00 01 52 55 4E 22 44 49 53  .........RUN"DIS

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20          PROGRAM 
000010: 71 75 69 63 6B 73 6F 72 3B 0D 0A 20 20 20 20 20  quicksor;..     
000020: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 43 4F 4E     ..        CON
000030: 53 54 0D 0A 20 20 20 20 20 20 20 20 20 20 61 6E  ST..          an
000040: 74 61 6C 20 3D 20 31 30 30 30 3B 0D 0A 20 20 20  tal = 1000;..   
000050: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 54       ..        T
000060: 59 50 45 0D 0A 20 20 20 20 20 20 20 20 20 20 74  YPE..          t
000070: 61 62 65 6C 74 79 70 65 20 3D 20 41 52 52 41 59  abeltype = ARRAY
000080: 28 2E 31 20 2E 2E 20 61 6E 74 61 6C 2E 29 20 4F  (.1 .. antal.) O
000090: 46 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20  F INTEGER;..    
0000A0: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 56 41      ..        VA
0000B0: 52 0D 0A 20 20 20 20 20 20 20 20 20 20 6E 2C 20  R..          n, 
0000C0: 6D 61 78 2C 20 69 20 3A 20 49 4E 54 45 47 45 52  max, i : INTEGER
0000D0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 74 61 62  ;..          tab
0000E0: 65 6C 20 3A 20 74 61 62 65 6C 74 79 70 65 3B 0D  el : tabeltype;.
0000F0: 0A 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20  .        ..     
000100: 20 20 20 50 52 4F 43 45 44 55 52 45 20 73 6F 72     PROCEDURE sor
000110: 74 65 72 28 76 65 6E 73 74 72 65 2C 20 68 6F 65  ter(venstre, hoe
000120: 6A 72 65 3A 20 49 4E 54 45 47 45 52 3B 20 56 41  jre: INTEGER; VA
000130: 52 20 76 65 6B 74 6F 72 20 3A 20 74 61 62 65 6C  R vektor : tabel
000140: 74 79 70 65 29 3B 0D 0A 20 20 20 20 20 20 20 20  type);..        
000150: 0D 0A 20 20 20 20 20 20 20 20 20 20 56 41 52 0D  ..          VAR.
000160: 0A 20 20 20 20 20 20 20 20 20 20 20 20 76 2C 20  .            v, 
000170: 68 2C 20 6D 69 64 74 2C 20 62 79 74 20 3A 20 49  h, midt, byt : I
000180: 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 20  NTEGER;..       
000190: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 42 45 47   ..          BEG
0001A0: 49 4E 20 28 2A 20 73 6F 72 74 65 72 20 2A 29 0D  IN (* sorter *).
0001B0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 76 20 3A  .            v :
0001C0: 3D 20 76 65 6E 73 74 72 65 3B 0D 0A 20 20 20 20  = venstre;..    
0001D0: 20 20 20 20 20 20 20 20 68 20 3A 3D 20 68 6F 65          h := hoe
0001E0: 6A 72 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  jre;..          
0001F0: 20 20 6D 69 64 74 20 3A 3D 20 76 65 6B 74 6F 72    midt := vektor

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20          PROGRAM 
000010: 70 72 6F 64 75 6B 74 3B 0D 0A 20 20 20 20 20 20  produkt;..      
000020: 20 20 0D 0A 20 20 20 20 20 20 20 20 56 41 52 0D    ..        VAR.
000030: 0A 20 20 20 20 20 20 20 20 20 20 69 2C 20 6A 20  .          i, j 
000040: 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20  : INTEGER;..    
000050: 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20        ..        
000060: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20  BEGIN..         
000070: 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F 20 31   FOR i := 1 TO 1
000080: 30 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20  0 DO..          
000090: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20    BEGIN..       
0000A0: 20 20 20 20 20 20 20 46 4F 52 20 6A 20 3A 3D 20         FOR j := 
0000B0: 31 20 54 4F 20 31 30 20 44 4F 0D 0A 20 20 20 20  1 TO 10 DO..    
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54              WRIT
0000D0: 45 28 69 20 2A 20 6A 20 3A 20 34 29 3B 0D 0A 20  E(i * j : 4);.. 
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49               WRI
0000F0: 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20  TELN;..         
000100: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20     END;..       
000110: 20 45 4E 44 2E 0D 0A 1A 0A 20 20 20 20 20 20 20   END.....       
000120: 20 20 20 20 20 20 20 46 4F 52 20 6A 20 3A 3D 20         FOR j := 
000130: 31 20 54 4F 20 31 30 20 44 4F 0D 0A 20 20 20 20  1 TO 10 DO..    
000140: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54              WRIT
000150: 45 28 69 20 2A 20 6A 20 3A 20 34 29 3B 0D 0A 20  E(i * j : 4);.. 
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49               WRI
000170: 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20  TELN;..         
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: 28 2E 28 76 20 2B 20 68 29 20 44 49 56 20 32 2E  (.(v + h) DIV 2.
000010: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  );..            
000020: 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20  REPEAT..        
000030: 20 20 20 20 20 20 57 48 49 4C 45 20 76 65 6B 74        WHILE vekt
000040: 6F 72 28 2E 76 2E 29 20 3C 20 6D 69 64 74 20 44  or(.v.) < midt D
000050: 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  O..             
000060: 20 20 20 76 20 3A 3D 20 76 20 2B 20 31 3B 0D 0A     v := v + 1;..
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 48                WH
000080: 49 4C 45 20 6D 69 64 74 20 3C 20 76 65 6B 74 6F  ILE midt < vekto
000090: 72 28 2E 68 2E 29 20 44 4F 0D 0A 20 20 20 20 20  r(.h.) DO..     
0000A0: 20 20 20 20 20 20 20 20 20 20 20 68 20 3A 3D 20             h := 
0000B0: 68 20 2D 20 31 3B 0D 0A 20 20 20 20 20 20 20 20  h - 1;..        
0000C0: 20 20 20 20 20 20 49 46 20 76 20 3C 3D 20 68 0D        IF v <= h.
0000D0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0000E0: 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 20   THEN..         
0000F0: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A           BEGIN..
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000110: 20 20 20 20 62 79 74 20 3A 3D 20 76 65 6B 74 6F      byt := vekto
000120: 72 28 2E 76 2E 29 3B 0D 0A 20 20 20 20 20 20 20  r(.v.);..       
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 76 65 6B               vek
000140: 74 6F 72 28 2E 76 2E 29 20 3A 3D 20 76 65 6B 74  tor(.v.) := vekt
000150: 6F 72 28 2E 68 2E 29 3B 0D 0A 20 20 20 20 20 20  or(.h.);..      
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 65                ve
000170: 6B 74 6F 72 28 2E 68 2E 29 20 3A 3D 20 62 79 74  ktor(.h.) := byt
000180: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  ;..             
000190: 20 20 20 20 20 20 20 76 20 3A 3D 20 76 20 2B 20         v := v + 
0001A0: 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  1;..            
0001B0: 20 20 20 20 20 20 20 20 68 20 3A 3D 20 68 20 2D          h := h -
0001C0: 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20   1;..           
0001D0: 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20         END;..   
0001E0: 20 20 20 20 20 20 20 20 20 55 4E 54 49 4C 20 76           UNTIL v
0001F0: 20 3E 20 68 3B 0D 0A 20 20 20 20 20 20 20 20 20   > h;..         

Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 72 65 6E 74 65 64 61 67  PROGRAM rentedag
000010: 3B 0D 0A 0D 0A 28 2A 20 53 61 6D 74 6C 69 67 65  ;....(* Samtlige
000020: 20 6D 7D 6E 65 64 65 72 20 73 7B 74 74 65 73 20   m}neder s{ttes 
000030: 74 69 6C 20 33 30 20 64 61 67 65 20 69 20 64 65  til 30 dage i de
000040: 74 74 65 20 70 72 6F 67 72 61 6D 20 2A 29 0D 0A  tte program *)..
000050: 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 20 73 74  ..  TYPE..    st
000060: 72 34 20 3D 20 53 54 52 49 4E 47 28 2E 34 2E 29  r4 = STRING(.4.)
000070: 3B 0D 0A 20 20 20 20 64 61 74 6F 70 6F 73 74 20  ;..    datopost 
000080: 3D 20 52 45 43 4F 52 44 0D 0A 20 20 20 20 20 20  = RECORD..      
000090: 20 20 20 20 20 20 20 20 20 20 20 64 61 67 20 2C             dag ,
0000A0: 20 6D 61 61 6E 65 64 20 2C 20 61 61 72 20 3A 20   maaned , aar : 
0000B0: 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 20  INTEGER;..      
0000C0: 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20           END;.. 
0000D0: 20 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 73 74   ..  VAR..    st
0000E0: 72 65 6E 67 20 3A 20 73 74 72 34 3B 0D 0A 20 20  reng : str4;..  
0000F0: 20 20 64 61 74 6F 20 3A 20 64 61 74 6F 70 6F 73    dato : datopos
000100: 74 3B 0D 0A 20 20 20 20 74 65 73 74 2C 20 64 61  t;..    test, da
000110: 74 6F 6E 75 6D 6D 65 72 2C 20 72 65 6E 74 65 64  tonummer, rented
000120: 61 67 65 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A  age : INTEGER;..
000130: 20 20 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20    ..  BEGIN..   
000140: 20 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D   WRITE(CLRHOM);.
000150: 0A 20 20 20 20 57 49 54 48 20 64 61 74 6F 20 44  .    WITH dato D
000160: 4F 0D 0A 20 20 20 20 20 20 42 45 47 49 4E 0D 0A  O..      BEGIN..
000170: 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0D 0A          REPEAT..
000180: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28            WRITE(
000190: 27 54 61 73 74 20 64 61 74 6F 20 28 31 20 2D 20  'Tast dato (1 - 
0001A0: 33 31 29 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20  31): ');..      
0001B0: 20 20 20 20 42 55 46 4C 45 4E 20 3A 3D 20 32 3B      BUFLEN := 2;
0001C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 52 45 41 44  ..          READ
0001D0: 4C 4E 28 73 74 72 65 6E 67 29 3B 0D 0A 20 20 20  LN(streng);..   
0001E0: 20 20 20 20 20 20 20 56 41 4C 28 73 74 72 65 6E         VAL(stren
0001F0: 67 2C 20 64 61 67 2C 20 74 65 73 74 29 3B 0D 0A  g, dag, test);..

Size : 512 (Real : 512)
000000: 20 20 20 49 46 20 76 65 6E 73 74 72 65 20 3C 20     IF venstre < 
000010: 68 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  h..             
000020: 20 54 48 45 4E 20 73 6F 72 74 65 72 28 76 65 6E   THEN sorter(ven
000030: 73 74 72 65 2C 20 68 2C 20 76 65 6B 74 6F 72 29  stre, h, vektor)
000040: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 49  ;..            I
000050: 46 20 76 20 3C 20 68 6F 65 6A 72 65 0D 0A 20 20  F v < hoejre..  
000060: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E              THEN
000070: 20 73 6F 72 74 65 72 28 76 2C 20 68 6F 65 6A 72   sorter(v, hoejr
000080: 65 2C 20 76 65 6B 74 6F 72 29 3B 0D 0A 20 20 20  e, vektor);..   
000090: 20 20 20 20 20 20 20 45 4E 44 3B 20 28 2A 20 73         END; (* s
0000A0: 6F 72 74 65 72 20 2A 29 0D 0A 20 20 20 20 20 20  orter *)..      
0000B0: 20 20 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49    ..        BEGI
0000C0: 4E 20 28 2A 20 71 75 69 63 6B 73 6F 72 20 2A 29  N (* quicksor *)
0000D0: 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54  ..          WRIT
0000E0: 45 28 43 48 52 28 31 32 29 29 3B 0D 0A 20 20 20  E(CHR(12));..   
0000F0: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27         WRITELN('
000100: 50 72 6F 67 72 61 6D 6D 65 74 20 66 69 6E 64 65  Programmet finde
000110: 72 20 6E 20 74 69 6C 66 7B 6C 64 69 67 65 20 68  r n tilf{ldige h
000120: 65 6C 65 20 74 61 6C 20 66 72 61 20 31 27 2C 0D  ele tal fra 1',.
000130: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
000140: 20 20 20 27 20 74 69 6C 20 6D 61 78 20 6F 67 20     ' til max og 
000150: 73 6F 72 74 65 72 65 72 20 64 65 6D 2E 27 29 3B  sorterer dem.');
000160: 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54  ..          WRIT
000170: 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  ELN;..          
000180: 57 52 49 54 45 28 27 54 61 73 74 20 61 6E 74 61  WRITE('Tast anta
000190: 6C 6C 65 74 20 6E 20 28 6D 61 78 20 31 30 30 30  llet n (max 1000
0001A0: 29 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 6E 29  ): '); READLN(n)
0001B0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49  ;..          WRI
0001C0: 54 45 28 27 54 61 73 74 20 64 65 6E 20 7C 76 72  TE('Tast den |vr
0001D0: 65 20 67 72 7B 6E 73 65 20 6D 61 78 3A 20 27 29  e gr{nse max: ')
0001E0: 3B 20 52 45 41 44 4C 4E 28 6D 61 78 29 3B 0D 0A  ; READLN(max);..
0001F0: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C            WRITEL

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 55 4E 54 49 4C 20 28 74          UNTIL (t
000010: 65 73 74 20 3D 20 30 29 20 41 4E 44 20 28 31 20  est = 0) AND (1 
000020: 3C 3D 20 64 61 67 29 20 41 4E 44 20 28 64 61 67  <= dag) AND (dag
000030: 20 3C 3D 20 33 31 29 3B 20 20 0D 0A 20 20 20 20   <= 31);  ..    
000040: 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20      REPEAT..    
000050: 20 20 20 20 20 20 57 52 49 54 45 28 27 54 61 73        WRITE('Tas
000060: 74 20 6D 7D 6E 65 64 20 28 31 20 2D 20 31 32 29  t m}ned (1 - 12)
000070: 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20  : ');..         
000080: 20 42 55 46 4C 45 4E 20 3A 3D 20 32 3B 0D 0A 20   BUFLEN := 2;.. 
000090: 20 20 20 20 20 20 20 20 20 52 45 41 44 4C 4E 28           READLN(
0000A0: 73 74 72 65 6E 67 29 3B 0D 0A 20 20 20 20 20 20  streng);..      
0000B0: 20 20 20 20 56 41 4C 28 73 74 72 65 6E 67 2C 20      VAL(streng, 
0000C0: 6D 61 61 6E 65 64 2C 20 74 65 73 74 29 3B 0D 0A  maaned, test);..
0000D0: 20 20 20 20 20 20 20 20 55 4E 54 49 4C 20 28 74          UNTIL (t
0000E0: 65 73 74 20 3D 20 30 29 20 41 4E 44 20 28 31 20  est = 0) AND (1 
0000F0: 3C 3D 20 6D 61 61 6E 65 64 29 20 41 4E 44 20 28  <= maaned) AND (
000100: 6D 61 61 6E 65 64 20 3C 3D 20 31 32 29 3B 0D 0A  maaned <= 12);..
000110: 20 20 20 20 20 20 20 20 52 45 50 45 41 54 20 0D          REPEAT .
000120: 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45  .          WRITE
000130: 28 27 54 61 73 74 20 7D 72 20 28 31 39 30 30 20  ('Tast }r (1900 
000140: 2D 20 32 31 30 30 29 3A 20 27 29 3B 0D 0A 20 20  - 2100): ');..  
000150: 20 20 20 20 20 20 20 20 42 55 46 4C 45 4E 20 3A          BUFLEN :
000160: 3D 20 34 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  = 4;..          
000170: 52 45 41 44 4C 4E 28 73 74 72 65 6E 67 29 3B 0D  READLN(streng);.
000180: 0A 20 20 20 20 20 20 20 20 20 20 56 41 4C 28 73  .          VAL(s
000190: 74 72 65 6E 67 2C 20 61 61 72 2C 20 74 65 73 74  treng, aar, test
0001A0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 55 4E 54 49  );..        UNTI
0001B0: 4C 20 28 74 65 73 74 20 3D 20 30 29 20 41 4E 44  L (test = 0) AND
0001C0: 20 28 31 39 30 30 20 3C 3D 20 61 61 72 29 20 41   (1900 <= aar) A
0001D0: 4E 44 20 28 61 61 72 20 3C 3D 20 32 31 30 30 29  ND (aar <= 2100)
0001E0: 3B 0D 0A 20 20 20 20 20 20 20 20 49 46 20 64 61  ;..        IF da
0001F0: 67 20 3D 20 33 31 0D 0A 20 20 20 20 20 20 20 20  g = 31..        

Size : 512 (Real : 512)
000000: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52  N;..          WR
000010: 49 54 45 4C 4E 28 27 46 7C 6C 67 65 6E 64 65 20  ITELN('F|lgende 
000020: 74 61 6C 20 76 69 6C 20 62 6C 69 76 65 20 73 6F  tal vil blive so
000030: 72 74 65 72 65 74 3A 27 29 3B 0D 0A 20 20 20 20  rteret:');..    
000040: 20 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 31        FOR i := 1
000050: 20 54 4F 20 6E 20 44 4F 0D 0A 20 20 20 20 20 20   TO n DO..      
000060: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20        BEGIN..   
000070: 20 20 20 20 20 20 20 20 20 20 20 74 61 62 65 6C             tabel
000080: 28 2E 69 2E 29 20 3A 3D 20 52 41 4E 44 4F 4D 28  (.i.) := RANDOM(
000090: 6D 61 78 29 20 2B 20 31 3B 0D 0A 20 20 20 20 20  max) + 1;..     
0000A0: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 74           WRITE(t
0000B0: 61 62 65 6C 28 2E 69 2E 29 3A 35 29 3B 0D 0A 20  abel(.i.):5);.. 
0000C0: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D             END;.
0000D0: 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45  .          WRITE
0000E0: 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57  LN;..          W
0000F0: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20  RITELN;..       
000100: 20 20 20 73 6F 72 74 65 72 28 31 2C 20 6E 2C 20     sorter(1, n, 
000110: 74 61 62 65 6C 29 3B 0D 0A 20 20 20 20 20 20 20  tabel);..       
000120: 20 20 20 57 52 49 54 45 4C 4E 28 27 48 65 72 20     WRITELN('Her 
000130: 65 72 20 74 61 6C 6C 65 6E 65 20 73 6F 72 74 65  er tallene sorte
000140: 72 65 74 3A 27 29 3B 0D 0A 20 20 20 20 20 20 20  ret:');..       
000150: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20     WRITELN;..   
000160: 20 20 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20         FOR i := 
000170: 31 20 54 4F 20 6E 20 44 4F 0D 0A 20 20 20 20 20  1 TO n DO..     
000180: 20 20 20 20 20 20 20 57 52 49 54 45 28 74 61 62         WRITE(tab
000190: 65 6C 28 2E 69 2E 29 3A 35 29 3B 0D 0A 20 20 20  el(.i.):5);..   
0001A0: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D         WRITELN;.
0001B0: 0A 20 20 20 20 20 20 20 20 45 4E 44 2E 20 28 2A  .        END. (*
0001C0: 20 71 75 69 63 6B 73 6F 72 20 2A 29 0D 0A 1A 20   quicksor *)... 
0001D0: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20     WRITELN;..   
0001E0: 20 20 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20         FOR i := 
0001F0: 31 20 54 4F 20 6E 20 44 4F 0D 0A 20 20 20 20 20  1 TO n DO..     

Size : 512 (Real : 512)
000000: 20 20 54 48 45 4E 20 64 61 67 20 3A 3D 20 33 30    THEN dag := 30
000010: 3B 0D 0A 20 20 20 20 20 20 20 20 49 46 20 28 6D  ;..        IF (m
000020: 61 61 6E 65 64 20 3D 20 31 32 29 20 41 4E 44 20  aaned = 12) AND 
000030: 28 64 61 67 20 3E 3D 20 31 32 29 0D 0A 20 20 20  (dag >= 12)..   
000040: 20 20 20 20 20 20 20 54 48 45 4E 20 64 61 74 6F         THEN dato
000050: 6E 75 6D 6D 65 72 20 3A 3D 20 64 61 67 20 2D 20  nummer := dag - 
000060: 33 30 0D 0A 20 20 20 20 20 20 20 20 20 20 45 4C  30..          EL
000070: 53 45 20 64 61 74 6F 6E 75 6D 6D 65 72 20 3A 3D  SE datonummer :=
000080: 20 33 30 20 2A 20 28 6D 61 61 6E 65 64 20 2D 20   30 * (maaned - 
000090: 31 29 20 2B 20 64 61 67 3B 0D 0A 20 20 20 20 20  1) + dag;..     
0000A0: 20 45 4E 44 3B 0D 0A 20 20 20 20 49 46 20 64 61   END;..    IF da
0000B0: 74 6F 6E 75 6D 6D 65 72 20 3C 3D 20 31 36 31 0D  tonummer <= 161.
0000C0: 0A 20 20 20 20 20 20 54 48 45 4E 20 72 65 6E 74  .      THEN rent
0000D0: 65 64 61 67 65 20 3A 3D 20 31 36 31 20 2D 20 64  edage := 161 - d
0000E0: 61 74 6F 6E 75 6D 6D 65 72 0D 0A 20 20 20 20 20  atonummer..     
0000F0: 20 45 4C 53 45 20 72 65 6E 74 65 64 61 67 65 20   ELSE rentedage 
000100: 3A 3D 20 33 34 31 20 2D 20 64 61 74 6F 6E 75 6D  := 341 - datonum
000110: 6D 65 72 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C  mer;..    WRITEL
000120: 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28  N;..    WRITELN(
000130: 27 44 65 72 20 65 72 20 27 2C 20 72 65 6E 74 65  'Der er ', rente
000140: 64 61 67 65 2C 20 27 20 64 61 67 65 20 74 69 6C  dage, ' dage til
000150: 20 74 65 72 6D 69 6E 73 64 61 67 65 6E 27 29 3B   terminsdagen');
000160: 0D 0A 20 20 45 4E 44 2E 0D 0A 1A 20 20 20 20 20  ..  END....     
000170: 20 45 4C 53 45 20 72 65 6E 74 65 64 61 67 65 20   ELSE rentedage 
000180: 76 65 72 77 72 69 74 65 2F 49 6E 73 65 72 74 0D  verwrite/Insert.
000190: 0A 37 39 20 20 53 09 22 5E 27 23 38 33 27 22 09  .79  S."^'#83'".
0001A0: 45 38 30 20 44 65 6C 20 57 6F 72 64 20 4C 65 66  E80 Del Word Lef
0001B0: 74 0D 0A 37 39 20 20 20 43 09 22 5E 27 23 38 35  t..79   C."^'#85
0001C0: 27 22 20 09 45 38 30 20 44 65 6C 20 74 6F 20 53  '" .E80 Del to S
0001D0: 74 61 72 74 20 6F 66 20 6C 69 6E 65 0D 0A 0D 0A  tart of line....
0001E0: 45 20 23 38 30 20 22 5E 4B 43 22 09 63 6F 70 79  E #80 "^KC".copy
0001F0: 20 62 6C 6F 63 6B 0D 0A 45 20 23 38 31 20 22 5E   block..E #81 "^

Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 72 65 6E 74 65 3B 0D 0A  PROGRAM rente;..
000010: 20 20 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 72    ..  VAR..    r
000020: 65 6E 74 65 2C 20 72 65 6E 74 65 66 6F 64 2C 20  ente, rentefod, 
000030: 6B 61 70 69 74 61 6C 20 3A 20 52 45 41 4C 3B 0D  kapital : REAL;.
000040: 0A 20 20 20 20 64 61 67 61 6E 74 61 6C 20 3A 20  .    dagantal : 
000050: 49 4E 54 45 47 45 52 3B 0D 0A 20 20 0D 0A 20 20  INTEGER;..  ..  
000060: 42 45 47 49 4E 0D 0A 20 20 20 20 57 52 49 54 45  BEGIN..    WRITE
000070: 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 57  (CLRHOM);..    W
000080: 52 49 54 45 4C 4E 28 27 50 72 6F 67 72 61 6D 6D  RITELN('Programm
000090: 65 74 20 62 65 72 65 67 6E 65 72 20 72 65 6E 74  et beregner rent
0000A0: 65 6E 2C 20 6E 7D 72 20 6D 61 6E 20 69 6E 64 74  en, n}r man indt
0000B0: 61 73 74 65 72 20 4B 41 50 49 54 41 4C 2C 27 29  aster KAPITAL,')
0000C0: 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27  ;..    WRITELN('
0000D0: 52 45 4E 54 45 46 4F 44 20 6F 67 20 61 6E 74 61  RENTEFOD og anta
0000E0: 6C 20 44 41 47 45 27 29 3B 0D 0A 20 20 20 20 57  l DAGE');..    W
0000F0: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 49  RITELN;..    WRI
000100: 54 45 28 27 49 6E 64 74 61 73 74 20 4B 41 50 49  TE('Indtast KAPI
000110: 54 41 4C 3A 20 20 20 20 27 29 3B 20 52 45 41 44  TAL:    '); READ
000120: 4C 4E 28 6B 61 70 69 74 61 6C 29 3B 0D 0A 20 20  LN(kapital);..  
000130: 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 73 74    WRITE('Indtast
000140: 20 52 45 4E 54 45 46 4F 44 3A 20 20 20 27 29 3B   RENTEFOD:   ');
000150: 20 52 45 41 44 4C 4E 28 72 65 6E 74 65 66 6F 64   READLN(rentefod
000160: 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 28 27 49  );..    WRITE('I
000170: 6E 64 74 61 73 74 20 41 4E 54 41 4C 20 44 41 47  ndtast ANTAL DAG
000180: 45 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 64 61  E: '); READLN(da
000190: 67 61 6E 74 61 6C 29 3B 0D 0A 20 20 20 20 72 65  gantal);..    re
0001A0: 6E 74 65 20 3A 3D 20 6B 61 70 69 74 61 6C 20 2A  nte := kapital *
0001B0: 20 72 65 6E 74 65 66 6F 64 20 2A 20 64 61 67 61   rentefod * daga
0001C0: 6E 74 61 6C 20 2F 20 31 30 30 20 2F 20 33 36 30  ntal / 100 / 360
0001D0: 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D  ;..    WRITELN;.
0001E0: 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4B 41  .    WRITELN('KA
0001F0: 50 49 54 41 4C 3A 20 20 20 20 27 2C 20 6B 61 70  PITAL:    ', kap

Size : 512 (Real : 512)
000000: 91 8B 9E 96 91 D1 DF BE 91 EB 8A 91 9C 93 96 92  ................
000010: 9E 9D 93 9A DF 9C 93 96 02 99 C2 DF 9D 93 90 9C  ................
000020: 94 8C DF 86 90 8A 8D DF 88 9E 86 DF 8A 8F DF 9E  ................
000030: 91 9B DF 9E DF 88 96 91 9B 96 91 98 DF 8F 9E 8B  ................
000040: 97 DF 93 9A 9E 9B 8C DF 9D 9E 9C 94 DF 9B 90 88  ................
000050: 91 DF 99 8D 90 92 DF EB 97 9A 8D 9A D1 02 EB 8F  ................
000060: BA 87 96 8B 8C C1 EB BB 90 88 91 DF C1 DF B9 02  ................
000070: 90 A8 8B DF 90 99 DF 92 90 8A 91 8B 9E 96 91 EB  ................
000080: FF A6 90 8A DF 9E 8D 9A DF 8C 8B 9E 91 9B 96 91  ................
000090: 98 DF 9E 8B DF 8B 97 9A DF 99 02 90 DF 8B DF 90  ................
0000A0: 99 DF 9E DF 97 96 98 97 EB 92 90 8A 91 8B 9E 96  ................
0000B0: 91 DF 96 91 DF 8B 97 9A DF 88 8D 9A 9C 94 9E 98  ................
0000C0: 9A DF 90 99 DF 9E 91 DF 90 93 9B DF 9C 9E 8D 98  ................
0000D0: 90 8C 97 96 8F D1 DF BE DF 88 96 91 9B 96 91 98  ................
0000E0: DF 8F 9E 8B 97 DF 93 9A 9E 9B 8C DF 8A 8F DF 8B  ................
0000F0: 97 9A EB 92 90 8A 91 8B 9E 96 91 D1 02 EB 95 BA  ................
000100: 87 96 8B 8C C1 EB B1 90 8D 8B 97 C1 DF A8 9E 8B  ................
000110: 9A 8D 99 9E 02 93 BF EB AC 90 8A 8B 97 C1 DF AA  ................
000120: 91 94 91 90 88 91 EB A8 9A 8C 8B DF C1 DF AA 8F  ................
000130: DF 8B 97 9A DF 92 90 8A 91 8B 9E 96 91 FF A6 90  ................
000140: 8A DF 9E 8D 9A DF 96 91 DF 9E DF 97 90 8B DF 9B  ................
000150: 9A 8C 9A 8D 8B D1 02 EB 8F BA 87 96 8B 8C C1 EB  ................
000160: B1 90 8D 8B 97 C1 DF B9 02 90 CF 8B DF 90 99 DF  ................
000170: 92 90 8A 91 8B 9E 96 91 FF A6 90 8A DF 9E 8D 9A  ................
000180: DF 8C 8B 9E 91 9B 96 91 98 DF 96 91 DF 9E DF 8D  ................
000190: 90 9C 94 86 DF 9C 9E 91 86 90 91 D1 DF AC 9E 91  ................
0001A0: 9B 93 96 9A 8C DF 9D 93 90 88 91 DF 9E 98 9E 96  ................
0001B0: 91 8C 8B DF 8B 97 9A DF 8C 97 02 9A 85 8D DF 9C  ................
0001C0: 93 96 02 99 84 DF EB 88 9E 02 93 A6 8C D1 DF AB  ................
0001D0: 97 9A 8D 9A DF 96 8C DF 9E DF 9C 9E 89 9A DF 92  ................
0001E0: 90 8A 8B 97 DF 8B 90 DF 8B 97 9A EB 8C 90 8A 8B  ................
0001F0: 97 D1 02 EB CE BA 87 96 8B 8C C1 EB AC 90 8A 8B  ................

Size : 512 (Real : 512)
000000: 69 74 61 6C 20 3A 20 31 30 20 3A 20 32 2C 20 27  ital : 10 : 2, '
000010: 20 6B 72 27 29 3B 0D 0A 20 20 20 20 57 52 49 54   kr');..    WRIT
000020: 45 4C 4E 28 27 52 45 4E 54 45 46 4F 44 20 20 20  ELN('RENTEFOD   
000030: 20 27 2C 20 72 65 6E 74 65 66 6F 64 20 3A 20 31   ', rentefod : 1
000040: 30 20 3A 20 32 2C 20 27 20 25 27 29 3B 0D 0A 20  0 : 2, ' %');.. 
000050: 20 20 20 57 52 49 54 45 4C 4E 28 27 41 4E 54 41     WRITELN('ANTA
000060: 4C 20 44 41 47 45 3A 20 27 2C 20 64 61 67 61 6E  L DAGE: ', dagan
000070: 74 61 6C 20 3A 20 31 30 2C 20 27 20 64 61 67 65  tal : 10, ' dage
000080: 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E  ');..    WRITELN
000090: 28 27 52 45 4E 54 45 3A 20 20 20 20 20 20 27 2C  ('RENTE:      ',
0000A0: 20 72 65 6E 74 65 20 3A 20 31 30 20 3A 20 32 2C   rente : 10 : 2,
0000B0: 20 27 20 6B 72 27 29 3B 0D 0A 20 20 20 20 57 52   ' kr');..    WR
0000C0: 49 54 45 4C 4E 3B 0D 0A 20 20 45 4E 44 2E 0D 0A  ITELN;..  END...
0000D0: 1A 20 20 57 52 49 54 45 4C 4E 28 27 41 4E 54 41  .  WRITELN('ANTA
0000E0: 4C 20 44 41 47 45 3A 20 27 2C 20 64 61 67 61 6E  L DAGE: ', dagan
0000F0: 74 61 6C 20 3A 20 31 30 2C 20 27 20 64 61 67 65  tal : 10, ' dage
000100: 64 6F 77 6E 0D 0A 33 20 20 4E 09 22 39 22 09 09  down..3  N."9"..
000110: 7C 0D 0A 34 20 20 4E 09 22 36 22 09 09 7C 20 4E  |..4  N."6"..| N
000120: 75 6D 65 72 69 63 0D 0A 35 20 20 4E 09 22 33 22  umeric..5  N."3"
000130: 09 09 7C 20 20 20 4B 65 79 70 61 64 0D 0A 36 20  ..|   Keypad..6 
000140: 20 4E 09 22 5E 4D 22 09 09 45 4E 54 45 52 20 6B   N."^M"..ENTER k
000150: 65 79 0D 0A 37 20 20 4E 09 22 5E 27 23 43 41 27  ey..7  N."^'#CA'
000160: 22 09 4E 75 6D 65 72 69 63 20 4B 65 79 70 61 64  ".Numeric Keypad
000170: 0D 0A 38 20 20 4E 09 22 5E 41 22 09 09 43 43 50  ..8  N."^A"..CCP
000180: 20 63 75 72 73 6F 72 20 6C 65 66 74 0D 0A 38 20   cursor left..8 
000190: 20 20 53 09 22 5E 53 22 09 09 45 38 30 20 77 6F    S."^S"..E80 wo
0001A0: 72 64 20 6C 65 66 74 0D 0A 38 20 20 20 20 43 09  rd left..8    C.
0001B0: 22 5E 27 23 39 45 27 22 09 43 43 50 20 73 74 61  "^'#9E'".CCP sta
0001C0: 72 74 20 6F 66 20 6C 69 6E 65 0D 0A 39 20 20 4E  rt of line..9  N
0001D0: 09 22 5E 27 23 38 30 27 22 20 09 45 38 30 20 63  ."^'#80'" .E80 c
0001E0: 6F 70 79 20 62 6C 6F 63 6B 0D 0A 39 20 20 20 53  opy block..9   S
0001F0: 09 22 5E 27 23 38 31 27 22 09 45 38 30 20 6D 6F  ."^'#81'".E80 mo

Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 72 65 6E 74 65 66 6F 64  PROGRAM rentefod
000010: 3B 0D 0A 20 20 0D 0A 20 20 56 41 52 0D 0A 20 20  ;..  ..  VAR..  
000020: 20 20 72 65 6E 74 65 2C 20 72 65 6E 74 65 66 6F    rente, rentefo
000030: 64 2C 20 6B 61 70 69 74 61 6C 20 3A 20 52 45 41  d, kapital : REA
000040: 4C 3B 0D 0A 20 20 20 20 64 61 67 61 6E 74 61 6C  L;..    dagantal
000050: 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 0D   : INTEGER;..  .
000060: 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 57 52  .  BEGIN..    WR
000070: 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20  ITE(CLRHOM);..  
000080: 20 20 57 52 49 54 45 4C 4E 28 27 50 72 6F 67 72    WRITELN('Progr
000090: 61 6D 6D 65 74 20 62 65 72 65 67 6E 65 72 20 72  ammet beregner r
0000A0: 65 6E 74 65 66 6F 64 65 6E 2C 20 6E 7D 72 20 6D  entefoden, n}r m
0000B0: 61 6E 20 69 6E 64 74 61 73 74 65 72 27 29 3B 0D  an indtaster');.
0000C0: 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4B 41  .    WRITELN('KA
0000D0: 50 49 54 41 4C 2C 20 52 45 4E 54 45 20 6F 67 20  PITAL, RENTE og 
0000E0: 61 6E 74 61 6C 20 44 41 47 45 27 29 3B 0D 0A 20  antal DAGE');.. 
0000F0: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20     WRITELN;..   
000100: 20 57 52 49 54 45 28 27 49 6E 64 74 61 73 74 20   WRITE('Indtast 
000110: 4B 41 50 49 54 41 4C 3A 20 20 20 20 27 29 3B 20  KAPITAL:    '); 
000120: 52 45 41 44 4C 4E 28 6B 61 70 69 74 61 6C 29 3B  READLN(kapital);
000130: 0D 0A 20 20 20 20 57 52 49 54 45 28 27 49 6E 64  ..    WRITE('Ind
000140: 74 61 73 74 20 52 45 4E 54 45 20 28 69 20 6B 72  tast RENTE (i kr
000150: 29 3A 20 20 20 27 29 3B 20 52 45 41 44 4C 4E 28  ):   '); READLN(
000160: 72 65 6E 74 65 29 3B 0D 0A 20 20 20 20 57 52 49  rente);..    WRI
000170: 54 45 28 27 49 6E 64 74 61 73 74 20 41 4E 54 41  TE('Indtast ANTA
000180: 4C 20 44 41 47 45 3A 20 27 29 3B 20 52 45 41 44  L DAGE: '); READ
000190: 4C 4E 28 64 61 67 61 6E 74 61 6C 29 3B 0D 0A 20  LN(dagantal);.. 
0001A0: 20 20 20 72 65 6E 74 65 66 6F 64 20 3A 3D 20 72     rentefod := r
0001B0: 65 6E 74 65 20 2A 20 31 30 30 20 2A 20 33 36 30  ente * 100 * 360
0001C0: 20 2F 20 6B 61 70 69 74 61 6C 20 2F 20 64 61 67   / kapital / dag
0001D0: 61 6E 74 61 6C 3B 0D 0A 20 20 20 20 57 52 49 54  antal;..    WRIT
0001E0: 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C  ELN;..    WRITEL
0001F0: 4E 28 27 4B 41 50 49 54 41 4C 3A 20 20 20 20 27  N('KAPITAL:    '

Size : 512 (Real : 512)
000000: 20 20 20 20 20 28 6E 79 70 6F 73 74 5E 2E 6E 61       (nypost^.na
000010: 76 6E 20 3C 3D 20 66 6F 65 72 73 74 65 5E 2E 6E  vn <= foerste^.n
000020: 61 76 6E 29 0D 0A 20 20 20 20 20 20 20 20 20 20  avn)..          
000030: 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 28            THEN (
000040: 2A 20 69 6E 64 73 7B 74 20 66 7C 72 20 66 6F 65  * inds{t f|r foe
000050: 72 73 74 65 20 2A 29 0D 0A 20 20 20 20 20 20 20  rste *)..       
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42                 B
000070: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20  EGIN..          
000080: 20 20 20 20 20 20 20 20 20 20 20 20 6E 79 70 6F              nypo
000090: 73 74 5E 2E 66 72 65 6D 20 3A 3D 20 66 6F 65 72  st^.frem := foer
0000A0: 73 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  ste;..          
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 6E 79 70 6F              nypo
0000C0: 73 74 5E 2E 74 69 6C 62 61 67 65 20 3A 3D 20 66  st^.tilbage := f
0000D0: 6F 65 72 73 74 65 5E 2E 74 69 6C 62 61 67 65 3B  oerste^.tilbage;
0000E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
0000F0: 20 20 20 20 20 20 20 20 66 6F 65 72 73 74 65 5E          foerste^
000100: 2E 74 69 6C 62 61 67 65 5E 2E 66 72 65 6D 20 3A  .tilbage^.frem :
000110: 3D 20 6E 79 70 6F 73 74 3B 0D 0A 20 20 20 20 20  = nypost;..     
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000130: 20 66 6F 65 72 73 74 65 5E 2E 74 69 6C 62 61 67   foerste^.tilbag
000140: 65 20 3A 3D 20 6E 79 70 6F 73 74 3B 0D 0A 20 20  e := nypost;..  
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000160: 20 20 20 20 66 6F 65 72 73 74 65 20 3A 3D 20 73      foerste := s
000170: 74 61 72 74 3B 0D 0A 20 20 20 20 20 20 20 20 20  tart;..         
000180: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 0D 0A             END..
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001A0: 20 20 45 4C 53 45 20 28 2A 20 69 6E 64 73 7B 74    ELSE (* inds{t
0001B0: 20 65 66 74 65 72 20 66 6F 65 72 73 74 65 20 2A   efter foerste *
0001C0: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  )..             
0001D0: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20         BEGIN..  
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001F0: 20 20 20 20 6E 79 70 6F 73 74 5E 2E 66 72 65 6D      nypost^.frem

Size : 512 (Real : 512)
000000: 2C 20 6B 61 70 69 74 61 6C 20 3A 20 31 30 20 3A  , kapital : 10 :
000010: 20 32 2C 20 27 20 6B 72 27 29 3B 0D 0A 20 20 20   2, ' kr');..   
000020: 20 57 52 49 54 45 4C 4E 28 27 52 45 4E 54 45 3A   WRITELN('RENTE:
000030: 20 20 20 20 20 20 27 2C 20 72 65 6E 74 65 20 3A        ', rente :
000040: 20 31 30 20 3A 20 32 2C 20 27 20 6B 72 27 29 3B   10 : 2, ' kr');
000050: 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 41  ..    WRITELN('A
000060: 4E 54 41 4C 20 44 41 47 45 3A 20 27 2C 20 64 61  NTAL DAGE: ', da
000070: 67 61 6E 74 61 6C 20 3A 20 31 30 2C 20 27 20 64  gantal : 10, ' d
000080: 61 67 65 27 29 3B 0D 0A 20 20 20 20 57 52 49 54  age');..    WRIT
000090: 45 4C 4E 28 27 52 45 4E 54 45 46 4F 44 20 20 20  ELN('RENTEFOD   
0000A0: 20 27 2C 20 72 65 6E 74 65 66 6F 64 20 3A 20 31   ', rentefod : 1
0000B0: 30 20 3A 20 32 2C 20 27 20 25 27 29 3B 0D 0A 20  0 : 2, ' %');.. 
0000C0: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 45     WRITELN;..  E
0000D0: 4E 44 2E 0D 0A 1A 57 52 49 54 45 4C 4E 28 27 41  ND....WRITELN('A
0000E0: 4E 54 41 4C 20 44 41 47 45 3A 20 27 2C 20 64 61  NTAL DAGE: ', da
0000F0: 67 61 6E 74 61 6C 20 3A 20 31 30 2C 20 27 20 64  gantal : 10, ' d
000100: 00 42 49 4E 4F 4D 32 20 20 50 59 53 3F 00 03 00  .BINOM2  PYS?...
000110: C3 3C 00 00 00 00 00 00 00 00 00 00 00 00 00 00  .<..............
000120: 00 42 49 4E 4F 4D 33 20 20 50 59 53 42 00 03 00  .BINOM3  PYSB...
000130: 26 BF 00 00 00 00 00 00 00 00 00 00 00 00 00 00  &...............
000140: 00 42 49 4E 4F 4D 34 20 20 50 59 53 45 00 03 00  .BINOM4  PYSE...
000150: 19 F9 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000160: 00 42 49 4E 54 45 52 4E 20 50 59 53 48 00 04 00  .BINTERN PYSH...
000170: 36 F9 00 00 00 00 00 00 00 00 00 00 00 00 00 00  6...............
000180: 00 42 49 4E 54 52 41 45 31 50 59 53 4C 00 08 00  .BINTRAE1PYSL...
000190: 27 D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00  '...............
0001A0: 00 42 49 4E 54 52 41 45 32 50 59 53 54 00 08 00  .BINTRAE2PYST...
0001B0: F2 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001C0: 00 42 49 53 45 43 20 20 20 50 59 53 5C 00 07 00  .BISEC   PYS\...
0001D0: A4 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00  .t..............
0001E0: 00 42 4F 4C 44 53 50 49 4C 50 59 53 63 00 04 00  .BOLDSPILPYSc...
0001F0: 78 A6 00 00 00 00 00 00 00 00 00 00 00 00 00 00  x...............

Size : 512 (Real : 512)
000000: 20 3A 3D 20 66 6F 65 72 73 74 65 5E 2E 66 72 65   := foerste^.fre
000010: 6D 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  m;..            
000020: 20 20 20 20 20 20 20 20 20 20 6E 79 70 6F 73 74            nypost
000030: 5E 2E 74 69 6C 62 61 67 65 20 3A 3D 20 66 6F 65  ^.tilbage := foe
000040: 72 73 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20  rste;..         
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6F 65               foe
000060: 72 73 74 65 5E 2E 66 72 65 6D 5E 2E 74 69 6C 62  rste^.frem^.tilb
000070: 61 67 65 20 3A 3D 20 6E 79 70 6F 73 74 3B 0D 0A  age := nypost;..
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000090: 20 20 20 20 20 20 66 6F 65 72 73 74 65 5E 2E 66        foerste^.f
0000A0: 72 65 6D 20 3A 3D 20 6E 79 70 6F 73 74 3B 0D 0A  rem := nypost;..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000C0: 20 20 20 20 20 20 66 6F 65 72 73 74 65 20 3A 3D        foerste :=
0000D0: 20 73 74 61 72 74 3B 0D 0A 20 20 20 20 20 20 20   start;..       
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44               END
0000F0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  ;..             
000100: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20     END;..       
000110: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D         WRITELN;.
000120: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57  .              W
000130: 52 49 54 45 28 6E 79 70 6F 73 74 5E 2E 6E 61 76  RITE(nypost^.nav
000140: 6E 2C 20 27 20 65 72 20 6E 75 20 69 6E 64 73 61  n, ' er nu indsa
000150: 74 20 69 20 6B 7B 64 65 6E 2E 20 54 61 73 74 20  t i k{den. Tast 
000160: 3C 52 45 54 55 52 4E 3E 20 27 29 3B 0D 0A 20 20  <RETURN> ');..  
000170: 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44              READ
000180: 4C 4E 28 63 68 29 3B 0D 0A 20 20 20 20 20 20 20  LN(ch);..       
000190: 20 20 20 20 20 45 4E 44 3B 20 28 2A 20 69 6E 64       END; (* ind
0001A0: 73 61 65 74 20 2A 29 0D 0A 20 20 20 20 20 20 20  saet *)..       
0001B0: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 50     ..          P
0001C0: 52 4F 43 45 44 55 52 45 20 66 6A 65 72 6E 28 56  ROCEDURE fjern(V
0001D0: 41 52 20 66 6F 65 72 73 74 65 20 3A 20 6C 69 6E  AR foerste : lin
0001E0: 6B 3B 20 67 6C 70 6F 73 74 20 3A 20 6C 69 6E 6B  k; glpost : link
0001F0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  );..            

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20          PROGRAM 
000010: 72 69 6E 67 3B 0D 0A 20 20 20 20 20 20 20 20 0D  ring;..        .
000020: 0A 20 20 20 20 20 20 20 20 20 20 54 59 50 45 0D  .          TYPE.
000030: 0A 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72  .            str
000040: 34 30 20 3D 20 53 54 52 49 4E 47 28 2E 34 30 2E  40 = STRING(.40.
000050: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  );..            
000060: 6C 69 6E 6B 20 3D 20 5E 20 70 6F 73 74 3B 0D 0A  link = ^ post;..
000070: 20 20 20 20 20 20 20 20 20 20 20 20 70 6F 73 74              post
000080: 20 3D 20 52 45 43 4F 52 44 0D 0A 20 20 20 20 20   = RECORD..     
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000A0: 66 72 65 6D 2C 20 74 69 6C 62 61 67 65 20 3A 20  frem, tilbage : 
0000B0: 6C 69 6E 6B 3B 0D 0A 20 20 20 20 20 20 20 20 20  link;..         
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 6E 61 76 6E              navn
0000D0: 20 3A 20 73 74 72 34 30 3B 0D 0A 20 20 20 20 20   : str40;..     
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E                EN
0000F0: 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A  D;..          ..
000100: 20 20 20 20 20 20 20 20 20 20 56 41 52 0D 0A 20            VAR.. 
000110: 20 20 20 20 20 20 20 20 20 20 20 74 6F 70 2C 20             top, 
000120: 70 70 2C 20 75 64 20 3A 20 6C 69 6E 6B 3B 0D 0A  pp, ud : link;..
000130: 20 20 20 20 20 20 20 20 20 20 20 20 63 68 20 3A              ch :
000140: 20 43 48 41 52 3B 0D 0A 20 20 20 20 20 20 20 20   CHAR;..        
000150: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20      ..          
000160: 50 52 4F 43 45 44 55 52 45 20 69 6E 64 73 61 65  PROCEDURE indsae
000170: 74 28 56 41 52 20 66 6F 65 72 73 74 65 20 3A 20  t(VAR foerste : 
000180: 6C 69 6E 6B 3B 20 6E 79 70 6F 73 74 20 3A 20 6C  link; nypost : l
000190: 69 6E 6B 29 3B 0D 0A 20 20 20 20 20 20 20 20 20  ink);..         
0001A0: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20     ..           
0001B0: 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 20 20   VAR..          
0001C0: 20 20 20 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A      ch : CHAR;..
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74                st
0001E0: 61 72 74 20 3A 20 6C 69 6E 6B 3B 0D 0A 20 20 20  art : link;..   
0001F0: 20 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20             ..   

Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 56 41  ..            VA
000010: 52 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  R..             
000020: 20 66 75 6E 64 65 74 20 3A 20 42 4F 4F 4C 45 41   fundet : BOOLEA
000030: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  N;..            
000040: 20 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A 20 20    ch : CHAR;..  
000050: 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 72              star
000060: 74 20 3A 20 6C 69 6E 6B 3B 0D 0A 20 20 20 20 20  t : link;..     
000070: 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20           ..     
000080: 20 20 20 20 20 20 20 42 45 47 49 4E 20 28 2A 20         BEGIN (* 
000090: 66 6A 65 72 6E 20 2A 29 0D 0A 20 20 20 20 20 20  fjern *)..      
0000A0: 20 20 20 20 20 20 20 20 73 74 61 72 74 20 3A 3D          start :=
0000B0: 20 66 6F 65 72 73 74 65 3B 0D 0A 20 20 20 20 20   foerste;..     
0000C0: 20 20 20 20 20 20 20 20 20 49 46 20 66 6F 65 72           IF foer
0000D0: 73 74 65 20 3D 20 4E 49 4C 20 28 2A 20 6B 7B 64  ste = NIL (* k{d
0000E0: 65 6E 20 74 6F 6D 20 2A 29 0D 0A 20 20 20 20 20  en tom *)..     
0000F0: 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20             THEN 
000100: 66 75 6E 64 65 74 20 3A 3D 20 46 41 4C 53 45 0D  fundet := FALSE.
000110: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
000120: 20 45 4C 53 45 0D 0A 20 20 20 20 20 20 20 20 20   ELSE..         
000130: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A           BEGIN..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000150: 20 20 20 20 57 48 49 4C 45 20 28 67 6C 70 6F 73      WHILE (glpos
000160: 74 5E 2E 6E 61 76 6E 20 3E 20 66 6F 65 72 73 74  t^.navn > foerst
000170: 65 5E 2E 6E 61 76 6E 29 20 41 4E 44 20 0D 0A 20  e^.navn) AND .. 
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 28 66 6F 65 72 73 74           (foerst
0001A0: 65 5E 2E 66 72 65 6D 20 3C 3E 20 73 74 61 72 74  e^.frem <> start
0001B0: 29 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20  ) DO..          
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 66 6F 65 72              foer
0001D0: 73 74 65 20 3A 3D 20 66 6F 65 72 73 74 65 5E 2E  ste := foerste^.
0001E0: 66 72 65 6D 3B 0D 0A 20 20 20 20 20 20 20 20 20  frem;..         
0001F0: 20 20 20 20 20 20 20 20 20 20 20 49 46 20 67 6C             IF gl

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 20 28           BEGIN (
000010: 2A 20 69 6E 64 73 61 65 74 20 2A 29 0D 0A 20 20  * indsaet *)..  
000020: 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 72              star
000030: 74 20 3A 3D 20 66 6F 65 72 73 74 65 3B 0D 0A 20  t := foerste;.. 
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20               IF 
000050: 66 6F 65 72 73 74 65 20 3D 20 4E 49 4C 20 28 2A  foerste = NIL (*
000060: 20 6B 7B 64 65 6E 20 65 72 20 74 6F 6D 20 2A 29   k{den er tom *)
000070: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
000080: 20 20 54 48 45 4E 20 0D 0A 20 20 20 20 20 20 20    THEN ..       
000090: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E             BEGIN
0000A0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
0000B0: 20 20 20 20 20 20 66 6F 65 72 73 74 65 20 3A 3D        foerste :=
0000C0: 20 6E 79 70 6F 73 74 3B 0D 0A 20 20 20 20 20 20   nypost;..      
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6F                fo
0000E0: 65 72 73 74 65 5E 2E 66 72 65 6D 20 3A 3D 20 66  erste^.frem := f
0000F0: 6F 65 72 73 74 65 3B 0D 0A 20 20 20 20 20 20 20  oerste;..       
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6F 65               foe
000110: 72 73 74 65 5E 2E 74 69 6C 62 61 67 65 20 3A 3D  rste^.tilbage :=
000120: 20 66 6F 65 72 73 74 65 3B 0D 0A 20 20 20 20 20   foerste;..     
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44               END
000140: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
000150: 45 4C 53 45 20 49 46 20 6E 79 70 6F 73 74 5E 2E  ELSE IF nypost^.
000160: 6E 61 76 6E 20 3C 3D 20 66 6F 65 72 73 74 65 5E  navn <= foerste^
000170: 2E 6E 61 76 6E 20 28 2A 20 66 7C 72 20 66 7C 72  .navn (* f|r f|r
000180: 73 74 65 20 70 6F 73 74 20 2A 29 0D 0A 20 20 20  ste post *)..   
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45               THE
0001A0: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  N..             
0001B0: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20       BEGIN..    
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001D0: 6E 79 70 6F 73 74 5E 2E 66 72 65 6D 20 3A 3D 66  nypost^.frem :=f
0001E0: 6F 65 72 73 74 65 3B 0D 0A 20 20 20 20 20 20 20  oerste;..       
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 6E 79 70               nyp

Size : 512 (Real : 512)
000000: 70 6F 73 74 5E 2E 6E 61 76 6E 20 3D 20 66 6F 65  post^.navn = foe
000010: 72 73 74 65 5E 2E 6E 61 76 6E 0D 0A 20 20 20 20  rste^.navn..    
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000030: 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20    THEN..        
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000050: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20  BEGIN..         
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000070: 20 66 75 6E 64 65 74 20 3A 3D 20 54 52 55 45 3B   fundet := TRUE;
000080: 0D 0A 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 49 46 20 73              IF s
0000A0: 74 61 72 74 5E 2E 66 72 65 6D 20 3D 20 73 74 61  tart^.frem = sta
0000B0: 72 74 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  rt..            
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000D0: 54 48 45 4E 20 66 6F 65 72 73 74 65 20 3A 3D 20  THEN foerste := 
0000E0: 4E 49 4C 0D 0A 20 20 20 20 20 20 20 20 20 20 20  NIL..           
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000100: 20 45 4C 53 45 0D 0A 20 20 20 20 20 20 20 20 20   ELSE..         
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000120: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20       BEGIN..    
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 49 46 20 66              IF f
000150: 6F 65 72 73 74 65 20 3D 20 73 74 61 72 74 0D 0A  oerste = start..
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000180: 20 20 54 48 45 4E 20 73 74 61 72 74 20 3A 3D 20    THEN start := 
000190: 73 74 61 72 74 5E 2E 66 72 65 6D 3B 0D 0A 20 20  start^.frem;..  
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 66 6F                fo
0001C0: 65 72 73 74 65 5E 2E 74 69 6C 62 61 67 65 5E 2E  erste^.tilbage^.
0001D0: 66 72 65 6D 20 3A 3D 20 66 6F 65 72 73 74 65 5E  frem := foerste^
0001E0: 2E 66 72 65 6D 3B 0D 0A 20 20 20 20 20 20 20 20  .frem;..        
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  

Size : 512 (Real : 512)
000000: 6F 73 74 5E 2E 74 69 6C 62 61 67 65 20 3A 3D 66  ost^.tilbage :=f
000010: 6F 65 72 73 74 65 5E 2E 74 69 6C 62 61 67 65 3B  oerste^.tilbage;
000020: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
000030: 20 20 20 20 20 20 66 6F 65 72 73 74 65 5E 2E 74        foerste^.t
000040: 69 6C 62 61 67 65 5E 2E 66 72 65 6D 20 3A 3D 20  ilbage^.frem := 
000050: 6E 79 70 6F 73 74 3B 0D 0A 20 20 20 20 20 20 20  nypost;..       
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6F 65               foe
000070: 72 73 74 65 5E 2E 74 69 6C 62 61 67 65 20 3A 3D  rste^.tilbage :=
000080: 20 6E 79 70 6F 73 74 3B 0D 0A 20 20 20 20 20 20   nypost;..      
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6F                fo
0000A0: 65 72 73 74 65 20 3A 3D 6E 79 70 6F 73 74 3B 0D  erste :=nypost;.
0000B0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0000C0: 20 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 20 20     END..        
0000D0: 20 20 20 20 20 20 45 4C 53 45 20 28 2A 20 73 7C        ELSE (* s|
0000E0: 67 20 66 72 65 6D 20 74 69 6C 20 72 69 67 74 69  g frem til rigti
0000F0: 67 20 70 6C 61 64 73 20 74 69 6C 20 6E 79 70 6F  g plads til nypo
000100: 73 74 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20  st *)..         
000110: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20         BEGIN..  
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000130: 57 48 49 4C 45 20 28 6E 79 70 6F 73 74 5E 2E 6E  WHILE (nypost^.n
000140: 61 76 6E 20 3E 20 66 6F 65 72 73 74 65 5E 2E 6E  avn > foerste^.n
000150: 61 76 6E 29 20 41 4E 44 0D 0A 20 20 20 20 20 20  avn) AND..      
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000170: 20 20 28 66 6F 65 72 73 74 65 5E 2E 66 72 65 6D    (foerste^.frem
000180: 20 3C 3E 20 73 74 61 72 74 29 20 44 4F 0D 0A 20   <> start) DO.. 
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001A0: 20 20 20 66 6F 65 72 73 74 65 20 3A 3D 20 66 6F     foerste := fo
0001B0: 65 72 73 74 65 5E 2E 66 72 65 6D 3B 0D 0A 20 20  erste^.frem;..  
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001D0: 49 46 20 28 66 6F 65 72 73 74 65 5E 2E 66 72 65  IF (foerste^.fre
0001E0: 6D 20 3C 3E 20 73 74 61 72 74 29 20 4F 52 0D 0A  m <> start) OR..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 66 6F 65 72 73 74 65 5E          foerste^
000010: 2E 66 72 65 6D 5E 2E 74 69 6C 62 61 67 65 20 3A  .frem^.tilbage :
000020: 3D 20 66 6F 65 72 73 74 65 5E 2E 74 69 6C 62 61  = foerste^.tilba
000030: 67 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20  ge;..           
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000050: 20 20 20 20 20 66 6F 65 72 73 74 65 20 3A 3D 20       foerste := 
000060: 73 74 61 72 74 3B 0D 0A 20 20 20 20 20 20 20 20  start;..        
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000080: 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20        END;..    
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000A0: 20 20 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 20      END..       
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45                 E
0000C0: 4C 53 45 20 66 75 6E 64 65 74 20 3A 3D 20 46 41  LSE fundet := FA
0000D0: 4C 53 45 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  LSE;..          
0000E0: 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20          END;..  
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 66              IF f
000100: 75 6E 64 65 74 0D 0A 20 20 20 20 20 20 20 20 20  undet..         
000110: 20 20 20 20 20 20 20 54 48 45 4E 20 57 52 49 54         THEN WRIT
000120: 45 4C 4E 28 67 6C 70 6F 73 74 5E 2E 6E 61 76 6E  ELN(glpost^.navn
000130: 2C 20 27 20 65 72 20 73 6C 65 74 74 65 74 20 66  , ' er slettet f
000140: 72 61 20 6B 7B 64 65 6E 27 29 0D 0A 20 20 20 20  ra k{den')..    
000150: 20 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 45              ELSE
000160: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20   ..             
000170: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20       BEGIN..    
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000190: 57 52 49 54 45 4C 4E 28 67 6C 70 6F 73 74 5E 2E  WRITELN(glpost^.
0001A0: 6E 61 76 6E 2C 20 27 20 66 69 6E 64 65 73 20 69  navn, ' findes i
0001B0: 6B 6B 65 20 69 20 6B 7B 64 65 6E 27 29 3B 0D 0A  kke i k{den');..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001D0: 20 20 20 20 66 6F 65 72 73 74 65 20 3A 3D 20 73      foerste := s
0001E0: 74 61 72 74 3B 0D 0A 20 20 20 20 20 20 20 20 20  tart;..         
0001F0: 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20           END;.. 

Size : 512 (Real : 512)
000000: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  ;..             
000010: 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20   REPEAT..       
000020: 20 20 20 20 20 20 20 20 20 52 45 41 44 28 4B 42           READ(KB
000030: 44 2C 20 63 68 29 3B 0D 0A 20 20 20 20 20 20 20  D, ch);..       
000040: 20 20 20 20 20 20 20 55 4E 54 49 4C 20 63 68 20         UNTIL ch 
000050: 49 4E 20 28 2E 27 49 27 2C 20 27 69 27 2C 20 27  IN (.'I', 'i', '
000060: 46 27 2C 20 27 66 27 2C 20 27 55 27 2C 20 27 75  F', 'f', 'U', 'u
000070: 27 2C 20 27 42 27 2C 20 27 62 27 2C 0D 0A 20 20  ', 'B', 'b',..  
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 27 41 27 2C 20 27            'A', '
0000A0: 61 27 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20  a'.);..         
0000B0: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 63 68 29       WRITELN(ch)
0000C0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  ;..             
0000D0: 20 43 41 53 45 20 63 68 20 4F 46 0D 0A 20 20 20   CASE ch OF..   
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 27 49 27               'I'
0000F0: 2C 20 27 69 27 20 3A 20 42 45 47 49 4E 0D 0A 20  , 'i' : BEGIN.. 
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000110: 20 20 20 20 20 20 20 20 20 20 20 20 4E 45 57 28              NEW(
000120: 70 70 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  pp);..          
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000140: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20     WRITELN;..   
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000160: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28            WRITE(
000170: 27 4E 61 76 6E 3A 20 27 29 3B 20 52 45 41 44 4C  'Navn: '); READL
000180: 4E 28 70 70 5E 2E 6E 61 76 6E 29 3B 0D 0A 20 20  N(pp^.navn);..  
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0001A0: 20 20 20 20 20 20 20 20 20 20 20 70 70 5E 2E 66             pp^.f
0001B0: 72 65 6D 20 3A 3D 20 4E 49 4C 3B 0D 0A 20 20 20  rem := NIL;..   
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 70 70 5E 2E 74 69            pp^.ti
0001E0: 6C 62 61 67 65 20 3A 3D 20 4E 49 4C 3B 0D 0A 20  lbage := NIL;.. 
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49               WRI
000010: 54 45 28 27 54 61 73 74 20 3C 52 45 54 55 52 4E  TE('Tast <RETURN
000020: 3E 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20  >: ');..        
000030: 20 20 20 20 20 20 52 45 41 44 4C 4E 28 63 68 29        READLN(ch)
000040: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 45  ;..            E
000050: 4E 44 3B 20 28 2A 20 66 6A 65 72 6E 20 2A 29 0D  ND; (* fjern *).
000060: 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20  .          ..   
000070: 20 20 20 20 20 20 20 50 52 4F 43 45 44 55 52 45         PROCEDURE
000080: 20 66 72 65 6D 28 66 6F 65 72 73 74 65 20 3A 20   frem(foerste : 
000090: 6C 69 6E 6B 29 3B 0D 0A 20 20 20 20 20 20 20 20  link);..        
0000A0: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20    ..            
0000B0: 56 41 52 0D 0A 20 20 20 20 20 20 20 20 20 20 20  VAR..           
0000C0: 20 20 20 70 70 20 3A 20 6C 69 6E 6B 3B 0D 0A 20     pp : link;.. 
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 63 68 20               ch 
0000E0: 3A 20 43 48 41 52 3B 0D 0A 20 20 20 20 20 20 20  : CHAR;..       
0000F0: 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20         ..       
000100: 20 20 20 20 20 42 45 47 49 4E 20 28 2A 20 66 72       BEGIN (* fr
000110: 65 6D 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20  em *)..         
000120: 20 20 20 20 20 70 70 20 3A 3D 20 66 6F 65 72 73       pp := foers
000130: 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20  te;..           
000140: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20     WRITELN;..   
000150: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45             WRITE
000160: 4C 4E 28 27 4B 7B 64 65 6E 20 69 6E 64 65 68 6F  LN('K{den indeho
000170: 6C 64 65 72 20 66 7C 6C 67 65 6E 64 65 20 70 65  lder f|lgende pe
000180: 72 73 6F 6E 65 72 3A 27 29 3B 0D 0A 20 20 20 20  rsoner:');..    
000190: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C            WRITEL
0001A0: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  N;..            
0001B0: 20 20 49 46 20 66 6F 65 72 73 74 65 20 3C 3E 20    IF foerste <> 
0001C0: 4E 49 4C 0D 0A 20 20 20 20 20 20 20 20 20 20 20  NIL..           
0001D0: 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 20       THEN..     
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50               REP
0001F0: 45 41 54 0D 0A 20 20 20 20 20 20 20 20 20 20 20  EAT..           

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 69 6E 64 73              inds
000010: 61 65 74 28 74 6F 70 2C 20 70 70 29 3B 0D 0A 20  aet(top, pp);.. 
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000030: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A            END;..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000050: 27 46 27 2C 20 27 66 27 20 3A 20 42 45 47 49 4E  'F', 'f' : BEGIN
000060: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57                 W
000080: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20  RITELN;..       
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000A0: 20 20 20 20 20 20 57 52 49 54 45 28 27 48 76 65        WRITE('Hve
0000B0: 6D 20 73 6B 61 6C 20 66 6A 65 72 6E 65 73 3A 20  m skal fjernes: 
0000C0: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20  ');..           
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000E0: 20 20 52 45 41 44 4C 4E 28 75 64 5E 2E 6E 61 76    READLN(ud^.nav
0000F0: 6E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20  n);..           
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000110: 20 20 66 6A 65 72 6E 28 74 6F 70 2C 20 75 64 29    fjern(top, ud)
000120: 3B 0D 0A 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 45 4E                EN
000140: 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20  D;..            
000150: 20 20 20 20 27 55 27 2C 20 27 75 27 20 3A 20 66      'U', 'u' : f
000160: 72 65 6D 28 74 6F 70 29 3B 0D 0A 20 20 20 20 20  rem(top);..     
000170: 20 20 20 20 20 20 20 20 20 20 20 27 42 27 2C 20             'B', 
000180: 27 62 27 20 3A 20 74 69 6C 62 61 67 65 28 74 6F  'b' : tilbage(to
000190: 70 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20  p);..           
0001A0: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20     END;..       
0001B0: 20 20 20 20 20 55 4E 54 49 4C 20 63 68 20 49 4E       UNTIL ch IN
0001C0: 20 28 2E 27 41 27 2C 20 27 61 27 2E 29 3B 0D 0A   (.'A', 'a'.);..
0001D0: 20 20 20 20 20 20 20 20 20 20 45 4E 44 2E 20 28            END. (
0001E0: 2A 20 72 69 6E 67 20 2A 29 0D 0A 1A 20 20 20 20  * ring *)...    
0001F0: 20 20 20 20 20 20 20 20 20 20 20 27 42 27 2C 20             'B', 

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E           WRITELN
000010: 28 70 70 5E 2E 6E 61 76 6E 29 3B 0D 0A 20 20 20  (pp^.navn);..   
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000030: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20   WRITELN;..     
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70                 p
000050: 70 20 3A 3D 20 70 70 5E 2E 66 72 65 6D 3B 0D 0A  p := pp^.frem;..
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000070: 20 20 55 4E 54 49 4C 20 70 70 20 3D 20 66 6F 65    UNTIL pp = foe
000080: 72 73 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20  rste;..         
000090: 20 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74       WRITE('Tast
0000A0: 20 3C 52 45 54 55 52 4E 3E 3A 20 27 29 3B 0D 0A   <RETURN>: ');..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45                RE
0000C0: 41 44 4C 4E 28 63 68 29 3B 0D 0A 20 20 20 20 20  ADLN(ch);..     
0000D0: 20 20 20 20 20 20 20 45 4E 44 3B 20 28 2A 20 66         END; (* f
0000E0: 72 65 6D 20 2A 29 0D 0A 20 0D 0A 20 20 20 20 20  rem *).. ..     
0000F0: 20 20 20 20 20 50 52 4F 43 45 44 55 52 45 20 74       PROCEDURE t
000100: 69 6C 62 61 67 65 28 66 6F 65 72 73 74 65 20 3A  ilbage(foerste :
000110: 20 6C 69 6E 6B 29 3B 0D 0A 20 20 20 20 20 20 20   link);..       
000120: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20     ..           
000130: 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 20 20   VAR..          
000140: 20 20 20 20 70 70 20 3A 20 6C 69 6E 6B 3B 0D 0A      pp : link;..
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 68                ch
000160: 20 3A 20 43 48 41 52 3B 0D 0A 20 20 20 20 20 20   : CHAR;..      
000170: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20          ..      
000180: 20 20 20 20 20 20 42 45 47 49 4E 20 28 2A 20 74        BEGIN (* t
000190: 69 6C 62 61 67 65 20 2A 29 0D 0A 20 20 20 20 20  ilbage *)..     
0001A0: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E           WRITELN
0001B0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20  ;..             
0001C0: 20 57 52 49 54 45 4C 4E 28 27 4B 7B 64 65 6E 20   WRITELN('K{den 
0001D0: 69 6E 64 65 68 6F 6C 64 65 72 20 66 7C 6C 67 65  indeholder f|lge
0001E0: 6E 64 65 20 70 65 72 73 6F 6E 65 72 3A 27 29 3B  nde personer:');
0001F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              

Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 72 6E 64 77 61 6C 6B 3B  PROGRAM rndwalk;
000010: 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 72  ....  VAR..    r
000020: 61 64 69 75 73 2C 20 72 61 64 69 75 73 32 2C 20  adius, radius2, 
000030: 61 6E 74 61 6C 2C 20 73 75 6D 2C 20 69 2C 20 78  antal, sum, i, x
000040: 2C 20 79 2C 20 72 6E 64 20 3A 20 49 4E 54 45 47  , y, rnd : INTEG
000050: 45 52 3B 0D 0A 20 20 0D 0A 20 20 42 45 47 49 4E  ER;..  ..  BEGIN
000060: 0D 0A 20 20 20 20 57 52 49 54 45 28 43 4C 52 48  ..    WRITE(CLRH
000070: 4F 4D 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C  OM);..    WRITEL
000080: 4E 28 27 52 41 4E 44 4F 4D 20 57 41 4C 4B 27 29  N('RANDOM WALK')
000090: 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D  ;..    WRITELN;.
0000A0: 0A 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74  .    WRITE('Tast
0000B0: 20 61 6E 74 61 6C 20 66 6F 72 73 7C 67 20 70 72   antal fors|g pr
0000C0: 2E 20 72 61 64 69 75 73 3A 20 27 29 3B 0D 0A 20  . radius: ');.. 
0000D0: 20 20 20 52 45 41 44 4C 4E 28 61 6E 74 61 6C 29     READLN(antal)
0000E0: 3B 0D 0A 20 20 20 20 52 41 4E 44 4F 4D 49 5A 45  ;..    RANDOMIZE
0000F0: 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D  ;..    WRITELN;.
000100: 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 52 41  .    WRITELN('RA
000110: 44 49 55 53 27 2C 20 27 47 45 4E 4E 45 4D 53 4E  DIUS', 'GENNEMSN
000120: 49 54 4C 49 47 20 54 49 44 27 20 3A 20 33 30 29  ITLIG TID' : 30)
000130: 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D  ;..    WRITELN;.
000140: 0A 20 20 20 20 46 4F 52 20 72 61 64 69 75 73 20  .    FOR radius 
000150: 3A 3D 20 32 20 54 4F 20 31 30 20 44 4F 0D 0A 20  := 2 TO 10 DO.. 
000160: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20       BEGIN..    
000170: 20 20 20 20 72 61 64 69 75 73 32 3A 3D 20 53 51      radius2:= SQ
000180: 52 28 72 61 64 69 75 73 29 3B 0D 0A 20 20 20 20  R(radius);..    
000190: 20 20 20 20 73 75 6D 20 3A 3D 20 30 3B 0D 0A 20      sum := 0;.. 
0001A0: 20 20 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20         FOR i := 
0001B0: 31 20 54 4F 20 61 6E 74 61 6C 20 44 4F 0D 0A 20  1 TO antal DO.. 
0001C0: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A           BEGIN..
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 78 20 3A 3D              x :=
0001E0: 20 30 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20   0;..           
0001F0: 20 79 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 20 20   y := 0;..      

Size : 512 (Real : 512)
000000: 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20  WRITELN;..      
000010: 20 20 20 20 20 20 20 20 49 46 20 66 6F 65 72 73          IF foers
000020: 74 65 20 3C 3E 20 4E 49 4C 0D 0A 20 20 20 20 20  te <> NIL..     
000030: 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 0D             THEN.
000040: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
000050: 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20     BEGIN..      
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6F                fo
000070: 65 72 73 74 65 20 3A 3D 20 66 6F 65 72 73 74 65  erste := foerste
000080: 5E 2E 74 69 6C 62 61 67 65 3B 0D 0A 20 20 20 20  ^.tilbage;..    
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000A0: 70 70 20 3A 3D 20 66 6F 65 72 73 74 65 3B 0D 0A  pp := foerste;..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000C0: 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20      REPEAT..    
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0000E0: 20 20 57 52 49 54 45 4C 4E 28 70 70 5E 2E 6E 61    WRITELN(pp^.na
0000F0: 76 6E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  vn);..          
000100: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54              WRIT
000110: 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  ELN;..          
000120: 20 20 20 20 20 20 20 20 20 20 20 20 70 70 20 3A              pp :
000130: 3D 20 70 70 5E 2E 74 69 6C 62 61 67 65 3B 0D 0A  = pp^.tilbage;..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
000150: 20 20 20 20 55 4E 54 49 4C 20 70 70 20 3D 20 66      UNTIL pp = f
000160: 6F 65 72 73 74 65 3B 0D 0A 20 20 20 20 20 20 20  oerste;..       
000170: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D             END;.
000180: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57  .              W
000190: 52 49 54 45 28 27 54 61 73 74 20 3C 52 45 54 55  RITE('Tast <RETU
0001A0: 52 4E 3E 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20  RN>: ');..      
0001B0: 20 20 20 20 20 20 20 20 52 45 41 44 4C 4E 28 63          READLN(c
0001C0: 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20  h);..           
0001D0: 20 45 4E 44 3B 20 28 2A 20 74 69 6C 62 61 67 65   END; (* tilbage
0001E0: 20 2A 29 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20   *)....         
0001F0: 20 42 45 47 49 4E 20 28 2A 20 72 69 6E 67 20 2A   BEGIN (* ring *

Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20        REPEAT..  
000010: 20 20 20 20 20 20 20 20 20 20 20 20 73 75 6D 20              sum 
000020: 3A 3D 20 73 75 6D 20 2B 20 31 3B 0D 0A 20 20 20  := sum + 1;..   
000030: 20 20 20 20 20 20 20 20 20 20 20 72 6E 64 20 3A             rnd :
000040: 3D 20 52 41 4E 44 4F 4D 28 34 29 3B 0D 0A 20 20  = RANDOM(4);..  
000050: 20 20 20 20 20 20 20 20 20 20 20 20 43 41 53 45              CASE
000060: 20 72 6E 64 20 4F 46 0D 0A 20 20 20 20 20 20 20   rnd OF..       
000070: 20 20 20 20 20 20 20 20 20 30 20 3A 20 78 20 3A           0 : x :
000080: 3D 20 78 20 2B 20 31 3B 0D 0A 20 20 20 20 20 20  = x + 1;..      
000090: 20 20 20 20 20 20 20 20 20 20 31 20 3A 20 79 20            1 : y 
0000A0: 3A 3D 20 79 20 2B 20 31 3B 0D 0A 20 20 20 20 20  := y + 1;..     
0000B0: 20 20 20 20 20 20 20 20 20 20 20 32 20 3A 20 78             2 : x
0000C0: 20 3A 3D 20 78 20 2D 20 31 3B 0D 0A 20 20 20 20   := x - 1;..    
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 33 20 3A 20              3 : 
0000E0: 79 20 3A 3D 20 79 20 2D 20 31 3B 0D 0A 20 20 20  y := y - 1;..   
0000F0: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D             END;.
000100: 0A 20 20 20 20 20 20 20 20 20 20 20 20 55 4E 54  .            UNT
000110: 49 4C 20 53 51 52 28 78 29 20 2B 20 53 51 52 28  IL SQR(x) + SQR(
000120: 79 29 20 3E 3D 20 72 61 64 69 75 73 32 3B 0D 0A  y) >= radius2;..
000130: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A            END;..
000140: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28          WRITELN(
000150: 72 61 64 69 75 73 20 3A 20 34 2C 20 73 75 6D 20  radius : 4, sum 
000160: 2F 20 61 6E 74 61 6C 20 3A 20 32 35 20 3A 20 32  / antal : 25 : 2
000170: 29 3B 0D 0A 20 20 20 20 20 20 45 4E 44 3B 0D 0A  );..      END;..
000180: 20 20 45 4E 44 2E 0D 0A 20 20 0D 0A 1A 55 4E 54    END...  ...UNT
000190: 49 4C 20 53 51 52 28 78 29 20 2B 20 53 51 52 28  IL SQR(x) + SQR(
0001A0: 79 29 20 3E 3D 20 72 61 64 69 75 73 32 3B 0D 0A  y) >= radius2;..
0001B0: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A            END;..
0001C0: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28          WRITELN(
0001D0: 72 61 64 69 75 73 20 3A 20 34 2C 20 73 75 6D 20  radius : 4, sum 
0001E0: 2F 20 61 6E 74 61 6C 20 3A 20 32 35 20 3A 20 32  / antal : 25 : 2
0001F0: 29 3B 0D 0A 20 20 20 20 20 20 45 4E 44 3B 0D 0A  );..      END;..

Size : 512 (Real : 512)
000000: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 74  )..            t
000010: 6F 70 20 3A 3D 20 4E 49 4C 3B 0D 0A 20 20 20 20  op := NIL;..    
000020: 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0D 0A          REPEAT..
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52                WR
000040: 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20  ITE(CLRHOM);..  
000050: 20 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F              GOTO
000060: 58 59 28 31 30 2C 31 29 3B 20 57 52 49 54 45 28  XY(10,1); WRITE(
000070: 27 53 4F 52 54 45 52 45 54 20 44 4F 42 42 45 4C  'SORTERET DOBBEL
000080: 54 2D 52 49 4E 47 27 29 3B 0D 0A 20 20 20 20 20  T-RING');..     
000090: 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28           GOTOXY(
0000A0: 31 30 2C 34 29 3B 20 57 52 49 54 45 28 27 49 2E  10,4); WRITE('I.
0000B0: 20 49 6E 64 73 7B 74 20 70 65 72 73 6F 6E 20 69   Inds{t person i
0000C0: 20 6B 7B 64 65 6E 2E 27 29 3B 0D 0A 20 20 20 20   k{den.');..    
0000D0: 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59            GOTOXY
0000E0: 28 31 30 2C 36 29 3B 20 57 52 49 54 45 28 27 46  (10,6); WRITE('F
0000F0: 2E 20 46 6A 65 72 6E 65 20 70 65 72 73 6F 6E 20  . Fjerne person 
000100: 66 72 61 20 6B 7B 64 65 6E 2E 27 29 3B 0D 0A 20  fra k{den.');.. 
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4F 54               GOT
000120: 4F 58 59 28 31 30 2C 38 29 3B 20 57 52 49 54 45  OXY(10,8); WRITE
000130: 28 27 55 2E 20 55 64 73 6B 72 69 76 65 20 6B 7B  ('U. Udskrive k{
000140: 64 65 6E 2E 27 29 3B 0D 0A 20 20 20 20 20 20 20  den.');..       
000150: 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 31 30         GOTOXY(10
000160: 2C 31 30 29 3B 20 57 52 49 54 45 28 27 42 2E 20  ,10); WRITE('B. 
000170: 55 64 73 6B 72 69 76 65 20 6B 7B 64 65 6E 20 62  Udskrive k{den b
000180: 61 67 66 72 61 2E 27 29 3B 0D 0A 20 20 20 20 20  agfra.');..     
000190: 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28           GOTOXY(
0001A0: 31 30 2C 31 32 29 3B 20 57 52 49 54 45 28 27 41  10,12); WRITE('A
0001B0: 2E 20 41 66 73 6C 75 74 74 65 20 70 72 6F 67 72  . Afslutte progr
0001C0: 61 6D 6D 65 74 2E 27 29 3B 0D 0A 20 20 20 20 20  ammet.');..     
0001D0: 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28           GOTOXY(
0001E0: 31 30 2C 31 34 29 3B 20 57 52 49 54 45 28 27 54  10,14); WRITE('T
0001F0: 61 73 74 20 6B 6F 6D 6D 61 6E 64 6F 3A 20 27 29  ast kommando: ')

Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 72 75 6D 66 5F 31 3B 0D  PROGRAM rumf_1;.
000010: 0A 20 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 6F  . ..  VAR..    o
000020: 65 6E 73 6B 65 20 3A 20 49 4E 54 45 47 45 52 3B  enske : INTEGER;
000030: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 6C 61          ..    la
000040: 65 6E 67 64 65 2C 20 62 72 65 64 64 65 2C 20 68  engde, bredde, h
000050: 6F 65 6A 64 65 2C 20 72 75 6D 66 61 6E 67 20 3A  oejde, rumfang :
000060: 20 52 45 41 4C 3B 0D 0A 20 20 20 20 72 61 64 69   REAL;..    radi
000070: 75 73 2C 20 72 31 2C 20 72 32 2C 20 62 31 2C 20  us, r1, r2, b1, 
000080: 62 32 2C 20 6C 31 2C 20 6C 32 2C 20 68 20 3A 20  b2, l1, l2, h : 
000090: 52 45 41 4C 3B 0D 0A 20 20 20 20 0D 0A 20 20 42  REAL;..    ..  B
0000A0: 45 47 49 4E 0D 0A 20 20 20 20 57 52 49 54 45 28  EGIN..    WRITE(
0000B0: 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 57 52  CLRHOM);..    WR
0000C0: 49 54 45 4C 4E 28 27 52 20 55 20 4D 20 46 20 41  ITELN('R U M F A
0000D0: 20 4E 20 47 20 20 20 41 20 46 20 3A 27 29 3B 0D   N G   A F :');.
0000E0: 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 2D 2D  .    WRITELN('--
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000100: 2D 2D 2D 27 29 3B 0D 0A 20 20 20 20 57 52 49 54  ---');..    WRIT
000110: 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C  ELN;..    WRITEL
000120: 4E 28 27 4B 41 53 53 45 20 2E 2E 2E 2E 2E 2E 2E  N('KASSE .......
000130: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 74  .............. t
000140: 61 73 74 20 31 27 29 3B 0D 0A 20 20 20 20 57 52  ast 1');..    WR
000150: 49 54 45 4C 4E 28 27 43 59 4C 49 4E 44 45 52 20  ITELN('CYLINDER 
000160: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E  ................
000170: 2E 2E 20 74 61 73 74 20 32 27 29 3B 0D 0A 20 20  .. tast 2');..  
000180: 20 20 57 52 49 54 45 4C 4E 28 27 50 59 52 41 4D    WRITELN('PYRAM
000190: 49 44 45 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E  IDE ............
0001A0: 2E 2E 2E 2E 2E 2E 20 74 61 73 74 20 33 27 29 3B  ...... tast 3');
0001B0: 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 50  ..    WRITELN('P
0001C0: 59 52 41 4D 49 44 45 53 54 55 42 20 2E 2E 2E 2E  YRAMIDESTUB ....
0001D0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 74 61 73 74 20  .......... tast 
0001E0: 34 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C  4');..    WRITEL
0001F0: 4E 28 27 4B 45 47 4C 45 20 2E 2E 2E 2E 2E 2E 2E  N('KEGLE .......

Size : 512 (Real : 512)
000000: 20 66 6C 61 64 65 3A 20 20 27 29 3B 20 52 45 41   flade:  '); REA
000010: 44 4C 4E 28 6C 31 29 3B 0D 0A 20 20 20 20 20 20  DLN(l1);..      
000020: 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 61      WRITE('Indta
000030: 73 74 20 70 79 72 61 6D 69 64 65 73 74 75 62 62  st pyramidestubb
000040: 65 6E 73 20 68 7C 6A 64 65 3A 20 20 20 20 20 20  ens h|jde:      
000050: 27 29 3B 20 52 45 41 44 4C 4E 28 68 29 3B 20 0D  '); READLN(h); .
000060: 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45  .          WRITE
000070: 28 27 49 6E 64 74 61 73 74 20 62 72 65 64 64 65  ('Indtast bredde
000080: 20 69 20 64 65 6E 20 6E 65 64 65 72 73 74 65 20   i den nederste 
000090: 66 6C 61 64 65 3A 20 27 29 3B 20 52 45 41 44 4C  flade: '); READL
0000A0: 4E 28 62 32 29 3B 0D 0A 20 20 20 20 20 20 20 20  N(b2);..        
0000B0: 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 73 74    WRITE('Indtast
0000C0: 20 6C 7B 6E 67 64 65 20 69 20 64 65 6E 20 6E 65   l{ngde i den ne
0000D0: 64 65 72 73 74 65 20 66 6C 61 64 65 3A 20 27 29  derste flade: ')
0000E0: 3B 20 52 45 41 44 4C 4E 28 6C 32 29 3B 0D 0A 20  ; READLN(l2);.. 
0000F0: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E           WRITELN
000100: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 72 75 6D  ;..          rum
000110: 66 61 6E 67 20 3A 3D 20 28 6C 31 20 2A 20 62 31  fang := (l1 * b1
000120: 20 2B 20 6C 32 20 2A 20 62 32 20 2B 20 53 51 52   + l2 * b2 + SQR
000130: 54 28 6C 31 20 2A 20 62 31 20 2A 20 6C 32 20 2A  T(l1 * b1 * l2 *
000140: 20 62 32 29 29 20 2A 20 68 20 2F 20 33 3B 0D 0A   b2)) * h / 3;..
000150: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C            WRITEL
000160: 4E 28 27 50 79 72 61 6D 69 64 65 73 74 75 62 62  N('Pyramidestubb
000170: 65 6E 73 20 72 75 6D 66 61 6E 67 3A 20 27 2C 20  ens rumfang: ', 
000180: 72 75 6D 66 61 6E 67 20 3A 20 31 30 20 3A 20 32  rumfang : 10 : 2
000190: 2C 20 27 20 63 6D 33 27 29 3B 0D 0A 20 20 20 20  , ' cm3');..    
0001A0: 20 20 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 20      END..       
0001B0: 20 20 20 0D 0A 20 20 20 20 45 4C 53 45 20 49 46     ..    ELSE IF
0001C0: 20 6F 65 6E 73 6B 65 20 3D 20 35 0D 0A 20 20 20   oenske = 5..   
0001D0: 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20     THEN..       
0001E0: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20   BEGIN..        
0001F0: 20 20 57 52 49 54 45 4C 4E 28 27 52 55 4D 46 41    WRITELN('RUMFA

Size : 512 (Real : 512)
000000: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 74  .............. t
000010: 61 73 74 20 35 27 29 3B 0D 0A 20 20 20 20 57 52  ast 5');..    WR
000020: 49 54 45 4C 4E 28 27 4B 45 47 4C 45 53 54 55 42  ITELN('KEGLESTUB
000030: 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E   ...............
000040: 2E 2E 20 74 61 73 74 20 36 27 29 3B 0D 0A 20 20  .. tast 6');..  
000050: 20 20 57 52 49 54 45 4C 4E 28 27 4B 55 47 4C 45    WRITELN('KUGLE
000060: 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E   ...............
000070: 2E 2E 2E 2E 2E 2E 20 74 61 73 74 20 37 27 29 3B  ...... tast 7');
000080: 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 53  ..    WRITELN('S
000090: 4C 55 54 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E  LUT ............
0000A0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 74 61 73 74 20  .......... tast 
0000B0: 38 27 29 3B 20 20 20 20 20 20 20 0D 0A 20 20 20  8');       ..   
0000C0: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 57   WRITELN;..    W
0000D0: 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 7C 6E  RITE('Indtast |n
0000E0: 73 6B 65 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28  ske: '); READLN(
0000F0: 6F 65 6E 73 6B 65 29 3B 0D 0A 20 20 20 20 57 52  oenske);..    WR
000100: 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20  ITE(CLRHOM);..  
000110: 20 20 0D 0A 20 20 20 20 49 46 20 6F 65 6E 73 6B    ..    IF oensk
000120: 65 20 3D 20 31 0D 0A 20 20 20 20 20 20 54 48 45  e = 1..      THE
000130: 4E 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49 4E  N..        BEGIN
000140: 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54  ..          WRIT
000150: 45 4C 4E 28 27 52 55 4D 46 41 4E 47 20 41 46 20  ELN('RUMFANG AF 
000160: 45 4E 20 4B 41 53 53 45 3A 27 29 3B 0D 0A 20 20  EN KASSE:');..  
000170: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28          WRITELN(
000180: 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  '---------------
000190: 2D 2D 2D 2D 2D 27 29 3B 0D 0A 20 20 20 20 20 20  -----');..      
0001A0: 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20      WRITELN;..  
0001B0: 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49          WRITE('I
0001C0: 6E 64 74 61 73 74 20 6B 61 73 73 65 6E 73 20 62  ndtast kassens b
0001D0: 72 65 64 64 65 3A 20 27 29 3B 20 52 45 41 44 4C  redde: '); READL
0001E0: 4E 28 62 72 65 64 64 65 29 3B 0D 0A 20 20 20 20  N(bredde);..    
0001F0: 20 20 20 20 20 20 57 52 49 54 45 28 27 49 6E 64        WRITE('Ind

Size : 512 (Real : 512)
000000: 4E 47 20 41 46 20 45 4E 20 4B 45 47 4C 45 3A 27  NG AF EN KEGLE:'
000010: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52  );..          WR
000020: 49 54 45 4C 4E 28 27 2D 2D 2D 2D 2D 2D 2D 2D 2D  ITELN('---------
000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 29 3B 0D 0A  -----------');..
000040: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C            WRITEL
000050: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52  N;..          WR
000060: 49 54 45 28 27 49 6E 64 74 61 73 74 20 6B 65 67  ITE('Indtast keg
000070: 6C 65 6E 73 20 68 7C 6A 64 65 3A 20 27 29 3B 20  lens h|jde: '); 
000080: 52 45 41 44 4C 4E 28 68 6F 65 6A 64 65 29 3B 0D  READLN(hoejde);.
000090: 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45  .          WRITE
0000A0: 28 27 49 6E 64 74 61 73 74 20 72 61 64 69 75 73  ('Indtast radius
0000B0: 3A 20 20 20 20 20 20 20 20 27 29 3B 20 52 45 41  :        '); REA
0000C0: 44 4C 4E 28 72 61 64 69 75 73 29 3B 0D 0A 20 20  DLN(radius);..  
0000D0: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B          WRITELN;
0000E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 72 75 6D 66  ..          rumf
0000F0: 61 6E 67 20 3A 3D 20 50 49 20 2A 20 53 51 52 28  ang := PI * SQR(
000100: 72 61 64 69 75 73 29 20 2A 20 68 6F 65 6A 64 65  radius) * hoejde
000110: 20 2F 20 33 20 3B 20 0D 0A 20 20 20 20 20 20 20   / 3 ; ..       
000120: 20 20 20 57 52 49 54 45 4C 4E 28 27 4B 65 67 6C     WRITELN('Kegl
000130: 65 6E 73 20 72 75 6D 66 61 6E 67 3A 20 27 2C 20  ens rumfang: ', 
000140: 72 75 6D 66 61 6E 67 20 3A 20 31 30 20 3A 20 32  rumfang : 10 : 2
000150: 2C 20 27 20 63 6D 33 27 29 3B 0D 0A 20 20 20 20  , ' cm3');..    
000160: 20 20 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 20      END..       
000170: 20 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20             ..   
000180: 20 45 4C 53 45 20 49 46 20 6F 65 6E 73 6B 65 20   ELSE IF oenske 
000190: 3D 20 36 0D 0A 20 20 20 20 20 20 54 48 45 4E 0D  = 6..      THEN.
0001A0: 0A 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A  .        BEGIN..
0001B0: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C            WRITEL
0001C0: 4E 28 27 52 55 4D 46 41 4E 47 20 41 46 20 45 4E  N('RUMFANG AF EN
0001D0: 20 4B 45 47 4C 45 53 54 55 42 3A 27 29 3B 0D 0A   KEGLESTUB:');..
0001E0: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C            WRITEL
0001F0: 4E 28 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  N('-------------

Size : 512 (Real : 512)
000000: 74 61 73 74 20 6B 61 73 73 65 6E 73 20 6C 7B 6E  tast kassens l{n
000010: 67 64 65 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28  gde: '); READLN(
000020: 6C 61 65 6E 67 64 65 29 3B 0D 0A 20 20 20 20 20  laengde);..     
000030: 20 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 74       WRITE('Indt
000040: 61 73 74 20 6B 61 73 73 65 6E 73 20 68 6F 65 6A  ast kassens hoej
000050: 64 65 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 68  de: '); READLN(h
000060: 6F 65 6A 64 65 29 3B 20 0D 0A 20 20 20 20 20 20  oejde); ..      
000070: 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20      WRITELN;..  
000080: 20 20 20 20 20 20 20 20 72 75 6D 66 61 6E 67 20          rumfang 
000090: 3A 3D 20 6C 61 65 6E 67 64 65 20 2A 20 62 72 65  := laengde * bre
0000A0: 64 64 65 20 2A 20 68 6F 65 6A 64 65 3B 20 0D 0A  dde * hoejde; ..
0000B0: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C            WRITEL
0000C0: 4E 28 27 4B 61 73 73 65 6E 73 20 72 75 6D 66 61  N('Kassens rumfa
0000D0: 6E 67 20 65 72 3A 20 27 2C 20 72 75 6D 66 61 6E  ng er: ', rumfan
0000E0: 67 20 3A 20 31 30 20 3A 20 32 2C 20 27 20 63 6D  g : 10 : 2, ' cm
0000F0: 33 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E  3');..        EN
000100: 44 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20  D..          .. 
000110: 20 20 20 45 4C 53 45 20 49 46 20 6F 65 6E 73 6B     ELSE IF oensk
000120: 65 20 3D 20 32 0D 0A 20 20 20 20 20 20 54 48 45  e = 2..      THE
000130: 4E 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49 4E  N..        BEGIN
000140: 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54  ..          WRIT
000150: 45 4C 4E 28 27 52 55 4D 46 41 4E 47 20 41 46 20  ELN('RUMFANG AF 
000160: 45 4E 20 43 59 4C 49 4E 44 45 52 3A 27 29 3B 0D  EN CYLINDER:');.
000170: 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45  .          WRITE
000180: 4C 4E 28 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  LN('------------
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 29 3B 0D 0A  -----------');..
0001A0: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C            WRITEL
0001B0: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52  N;..          WR
0001C0: 49 54 45 28 27 49 6E 64 74 61 73 74 20 63 79 6C  ITE('Indtast cyl
0001D0: 69 6E 64 65 72 65 6E 73 20 68 7C 6A 64 65 3A 20  inderens h|jde: 
0001E0: 27 29 3B 20 52 45 41 44 4C 4E 28 68 6F 65 6A 64  '); READLN(hoejd
0001F0: 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57  e);..          W

Size : 512 (Real : 512)
000000: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 29 3B 0D 0A  -----------');..
000010: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C            WRITEL
000020: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52  N;..          WR
000030: 49 54 45 28 27 49 6E 64 74 61 73 74 20 6B 65 67  ITE('Indtast keg
000040: 6C 65 73 74 75 62 62 65 6E 73 20 68 7C 6A 64 65  lestubbens h|jde
000050: 3A 20 20 20 20 20 20 27 29 3B 20 52 45 41 44 4C  :      '); READL
000060: 4E 28 68 6F 65 6A 64 65 29 3B 0D 0A 20 20 20 20  N(hoejde);..    
000070: 20 20 20 20 20 20 57 52 49 54 45 28 27 49 6E 64        WRITE('Ind
000080: 74 61 73 74 20 72 61 64 69 75 73 20 69 20 7C 76  tast radius i |v
000090: 65 72 73 74 65 20 63 69 72 6B 65 6C 3A 20 20 27  erste cirkel:  '
0000A0: 29 3B 20 52 45 41 44 4C 4E 28 72 31 29 3B 0D 0A  ); READLN(r1);..
0000B0: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28            WRITE(
0000C0: 27 49 6E 64 74 61 73 74 20 72 61 64 69 75 73 20  'Indtast radius 
0000D0: 69 20 6E 65 64 65 72 73 74 65 20 63 69 72 6B 65  i nederste cirke
0000E0: 6C 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 72 32  l: '); READLN(r2
0000F0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52  );..          WR
000100: 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20  ITELN;..        
000110: 20 20 72 75 6D 66 61 6E 67 20 3A 3D 20 50 49 20    rumfang := PI 
000120: 2A 20 68 6F 65 6A 64 65 20 2A 20 28 53 51 52 28  * hoejde * (SQR(
000130: 72 31 29 20 2B 20 53 51 52 28 72 32 29 20 2B 20  r1) + SQR(r2) + 
000140: 72 31 20 2A 20 72 32 29 20 2F 20 33 20 3B 20 0D  r1 * r2) / 3 ; .
000150: 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45  .          WRITE
000160: 4C 4E 28 27 4B 65 67 6C 65 73 74 75 62 62 65 6E  LN('Keglestubben
000170: 73 20 72 75 6D 66 61 6E 67 3A 20 27 2C 20 72 75  s rumfang: ', ru
000180: 6D 66 61 6E 67 20 3A 20 31 30 20 3A 20 32 2C 20  mfang : 10 : 2, 
000190: 27 20 63 6D 33 27 29 3B 0D 0A 20 20 20 20 20 20  ' cm3');..      
0001A0: 20 20 45 4E 44 0D 0A 20 20 20 20 0D 0A 20 20 20    END..    ..   
0001B0: 20 45 4C 53 45 20 49 46 20 6F 65 6E 73 6B 65 20   ELSE IF oenske 
0001C0: 3D 20 37 20 0D 0A 20 20 20 20 20 20 54 48 45 4E  = 7 ..      THEN
0001D0: 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D  ..        BEGIN.
0001E0: 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45  .          WRITE
0001F0: 4C 4E 28 27 52 55 4D 46 41 4E 47 20 41 46 20 45  LN('RUMFANG AF E

Size : 512 (Real : 512)
000000: 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 72 61  RITE('Indtast ra
000010: 64 69 75 73 3A 20 20 20 20 20 20 20 20 20 20 20  dius:           
000020: 20 27 29 3B 20 52 45 41 44 4C 4E 28 72 61 64 69   '); READLN(radi
000030: 75 73 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20  us);..          
000040: 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20  WRITELN;..      
000050: 20 20 20 20 72 75 6D 66 61 6E 67 20 3A 3D 20 50      rumfang := P
000060: 49 20 2A 20 53 51 52 28 72 61 64 69 75 73 29 20  I * SQR(radius) 
000070: 2A 20 68 6F 65 6A 64 65 3B 20 0D 0A 20 20 20 20  * hoejde; ..    
000080: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 43        WRITELN('C
000090: 79 6C 69 6E 64 65 72 65 6E 73 20 72 75 6D 66 61  ylinderens rumfa
0000A0: 6E 67 3A 20 27 2C 72 75 6D 66 61 6E 67 20 3A 20  ng: ',rumfang : 
0000B0: 31 30 20 3A 20 32 2C 20 27 20 63 6D 33 27 29 3B  10 : 2, ' cm3');
0000C0: 0D 0A 20 20 20 20 20 20 20 20 45 4E 44 0D 0A 20  ..        END.. 
0000D0: 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 45           ..    E
0000E0: 4C 53 45 20 49 46 20 6F 65 6E 73 6B 65 20 3D 20  LSE IF oenske = 
0000F0: 33 0D 0A 20 20 20 20 20 20 54 48 45 4E 0D 0A 20  3..      THEN.. 
000100: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20         BEGIN..  
000110: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28          WRITELN(
000120: 27 52 55 4D 46 41 4E 47 20 41 46 20 45 4E 20 50  'RUMFANG AF EN P
000130: 59 52 41 4D 49 44 45 3A 27 29 3B 0D 0A 20 20 20  YRAMIDE:');..   
000140: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27         WRITELN('
000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000160: 2D 2D 2D 2D 2D 2D 2D 27 29 3B 0D 0A 20 20 20 20  -------');..    
000170: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A        WRITELN;..
000180: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28            WRITE(
000190: 27 49 6E 64 74 61 73 74 20 70 79 72 61 6D 69 64  'Indtast pyramid
0001A0: 65 6E 73 20 68 7C 6A 64 65 3A 20 20 20 20 20 20  ens h|jde:      
0001B0: 27 29 3B 20 52 45 41 44 4C 4E 28 68 6F 65 6A 64  '); READLN(hoejd
0001C0: 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57  e);..          W
0001D0: 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 62 72  RITE('Indtast br
0001E0: 65 64 64 65 6E 20 69 20 67 72 75 6E 64 66 6C 61  edden i grundfla
0001F0: 64 65 6E 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28  den: '); READLN(

Size : 512 (Real : 512)
000000: 4E 20 4B 55 47 4C 45 3A 27 29 3B 0D 0A 20 20 20  N KUGLE:');..   
000010: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27         WRITELN('
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000030: 2D 2D 2D 2D 27 29 3B 0D 0A 20 20 20 20 20 20 20  ----');..       
000040: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20     WRITELN;..   
000050: 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49 6E         WRITE('In
000060: 64 74 61 73 74 20 6B 75 67 6C 65 6E 73 20 72 61  dtast kuglens ra
000070: 64 69 75 73 3A 20 27 29 3B 20 52 45 41 44 4C 4E  dius: '); READLN
000080: 28 72 61 64 69 75 73 29 3B 0D 0A 20 20 20 20 20  (radius);..     
000090: 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20       WRITELN;.. 
0000A0: 20 20 20 20 20 20 20 20 20 72 75 6D 66 61 6E 67           rumfang
0000B0: 20 3A 3D 20 34 20 2A 20 50 49 20 2A 20 72 61 64   := 4 * PI * rad
0000C0: 69 75 73 20 2A 20 72 61 64 69 75 73 20 2A 20 72  ius * radius * r
0000D0: 61 64 69 75 73 20 2F 20 33 3B 0D 0A 20 20 20 20  adius / 3;..    
0000E0: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4B        WRITELN('K
0000F0: 75 67 6C 65 6E 73 20 72 75 6D 66 61 6E 67 3A 20  uglens rumfang: 
000100: 27 2C 20 72 75 6D 66 61 6E 67 20 3A 20 31 30 20  ', rumfang : 10 
000110: 3A 20 32 2C 20 27 20 63 6D 33 27 29 3B 0D 0A 20  : 2, ' cm3');.. 
000120: 20 20 20 20 20 20 20 45 4E 44 0D 0A 20 20 20 20         END..    
000130: 0D 0A 20 20 20 20 45 4C 53 45 20 49 46 20 6F 65  ..    ELSE IF oe
000140: 6E 73 6B 65 20 3D 20 38 0D 0A 20 20 20 20 20 20  nske = 8..      
000150: 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 42 45  THEN..        BE
000160: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 47  GIN..          G
000170: 4F 54 4F 58 59 28 32 30 2C 20 31 32 29 3B 0D 0A  OTOXY(20, 12);..
000180: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28            WRITE(
000190: 27 53 7D 20 73 6C 75 74 74 65 72 20 76 69 20 66  'S} slutter vi f
0001A0: 6F 72 20 69 20 64 61 67 21 27 29 3B 0D 0A 20 20  or i dag!');..  
0001B0: 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 32          GOTOXY(2
0001C0: 30 2C 20 31 33 29 3B 0D 0A 20 20 20 20 20 20 20  0, 13);..       
0001D0: 20 20 20 57 52 49 54 45 28 27 2D 2D 2D 2D 2D 2D     WRITE('------
0001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
0001F0: 2D 2D 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20  --');..         

Size : 512 (Real : 512)
000000: 62 72 65 64 64 65 29 3B 0D 0A 20 20 20 20 20 20  bredde);..      
000010: 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 61      WRITE('Indta
000020: 73 74 20 6C 7B 6E 67 64 65 6E 20 69 20 67 72 75  st l{ngden i gru
000030: 6E 64 66 6C 61 64 65 6E 3A 20 27 29 3B 20 52 45  ndfladen: '); RE
000040: 41 44 4C 4E 28 6C 61 65 6E 67 64 65 29 3B 0D 0A  ADLN(laengde);..
000050: 20 20 20 20 20 20 20 20 20 20 72 75 6D 66 61 6E            rumfan
000060: 67 20 3A 3D 20 68 6F 65 6A 64 65 20 2A 20 6C 61  g := hoejde * la
000070: 65 6E 67 64 65 20 2A 20 62 72 65 64 64 65 20 2F  engde * bredde /
000080: 20 33 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 20   3 ;..          
000090: 57 52 49 54 45 4C 4E 28 27 50 79 72 61 6D 69 64  WRITELN('Pyramid
0000A0: 65 6E 73 20 72 75 6D 66 61 6E 67 3A 20 27 2C 20  ens rumfang: ', 
0000B0: 72 75 6D 66 61 6E 67 20 3A 20 31 30 20 3A 20 32  rumfang : 10 : 2
0000C0: 2C 20 27 20 63 6D 33 27 29 3B 0D 0A 20 20 20 20  , ' cm3');..    
0000D0: 20 20 20 20 45 4E 44 0D 0A 20 20 20 20 0D 0A 20      END..    .. 
0000E0: 20 20 20 45 4C 53 45 20 49 46 20 6F 65 6E 73 6B     ELSE IF oensk
0000F0: 65 20 3D 20 34 0D 0A 20 20 20 20 20 20 54 48 45  e = 4..      THE
000100: 4E 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49 4E  N..        BEGIN
000110: 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54  ..          WRIT
000120: 45 4C 4E 28 27 52 55 4D 46 41 4E 47 20 41 46 20  ELN('RUMFANG AF 
000130: 45 4E 20 50 59 52 41 4D 49 44 45 53 54 55 42 3A  EN PYRAMIDESTUB:
000140: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57  ');..          W
000150: 52 49 54 45 4C 4E 28 27 2D 2D 2D 2D 2D 2D 2D 2D  RITELN('--------
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000170: 2D 2D 2D 27 29 3B 0D 0A 20 20 20 20 20 20 20 20  ---');..        
000180: 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20    WRITELN;..    
000190: 20 20 20 20 20 20 57 52 49 54 45 28 27 49 6E 64        WRITE('Ind
0001A0: 74 61 73 74 20 62 72 65 64 64 65 20 69 20 64 65  tast bredde i de
0001B0: 6E 20 7C 76 65 72 73 74 65 20 66 6C 61 64 65 3A  n |verste flade:
0001C0: 20 20 27 29 3B 20 52 45 41 44 4C 4E 28 62 31 29    '); READLN(b1)
0001D0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49  ;..          WRI
0001E0: 54 45 28 27 49 6E 64 74 61 73 74 20 6C 7B 6E 67  TE('Indtast l{ng
0001F0: 64 65 20 69 20 64 65 6E 20 7C 76 65 72 73 74 65  de i den |verste

Size : 512 (Real : 512)
000000: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20   WRITELN;..     
000010: 20 20 20 45 4E 44 20 0D 0A 0D 0A 20 20 20 20 45     END ....    E
000020: 4C 53 45 0D 0A 20 20 20 20 20 20 57 52 49 54 45  LSE..      WRITE
000030: 4C 4E 28 27 44 75 20 68 61 72 20 74 61 73 74 65  LN('Du har taste
000040: 74 20 66 6F 72 6B 65 72 74 21 20 50 72 7C 76 20  t forkert! Pr|v 
000050: 69 67 65 6E 21 27 29 3B 0D 0A 20 20 20 20 0D 0A  igen!');..    ..
000060: 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20      WRITELN;..  
000070: 45 4E 44 2E 0D 0A 1A 20 20 20 20 20 20 20 20 20  END....         
000080: 00 42 55 42 42 4C 45 33 20 50 59 53 7F 00 05 00  .BUBBLE3 PYS....
000090: B0 F8 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000A0: 00 43 45 4C 53 49 55 53 20 50 59 53 84 00 03 00  .CELSIUS PYS....
0000B0: 14 F6 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0000C0: 00 43 48 45 43 4B 31 20 20 50 59 53 87 00 05 00  .CHECK1  PYS....
0000D0: 8F 4D 00 00 00 00 00 00 00 00 00 00 00 00 00 00  .M..............
0000E0: 00 43 48 45 43 4B 32 20 20 50 59 53 8C 00 04 00  .CHECK2  PYS....
0000F0: 7B B8 00 00 00 00 00 00 00 00 00 00 00 00 00 00  {...............
000100: 00 43 48 45 43 4B 33 20 20 50 59 53 90 00 03 00  .CHECK3  PYS....
000110: 72 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00  r...............
000120: 00 43 50 52 20 20 20 20 20 50 59 53 93 00 08 00  .CPR     PYS....
000130: 0C FA 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000140: 00 43 50 52 44 41 54 4F 20 50 59 53 9B 00 05 00  .CPRDATO PYS....
000150: 01 65 00 00 00 00 00 00 00 00 00 00 00 00 00 00  .e..............
000160: 00 43 50 52 44 41 54 4F 32 50 59 53 A0 00 06 00  .CPRDATO2PYS....
000170: 0F DF 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
000180: 00 43 50 52 4E 55 4D 52 45 50 59 53 A6 00 04 00  .CPRNUMREPYS....
000190: 40 EA 00 00 00 00 00 00 00 00 00 00 00 00 00 00  @...............
0001A0: 00 43 52 41 50 53 32 20 20 50 59 53 AA 00 05 00  .CRAPS2  PYS....
0001B0: 86 3F 00 00 00 00 00 00 00 00 00 00 00 00 00 00  .?..............
0001C0: 00 44 45 4D 4F 4C 45 4E 20 50 59 53 AF 00 02 00  .DEMOLEN PYS....
0001D0: FA 90 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
0001E0: 00 44 45 4D 4F 5F 53 54 52 50 59 53 B1 00 02 00  .DEMO_STRPYS....
0001F0: 86 10 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................

Size : 512 (Real : 512)
000000: 61 64 65 6E 3A 20 27 29 3B 20 52 45 41 44 4C 4E  aden: '); READLN
000010: 28 6C 61 65 6E 67 64 65 29 3B 0D 0A 20 20 20 20  (laengde);..    
000020: 20 20 20 20 20 20 20 72 75 6D 66 61 6E 67 20 3A         rumfang :
000030: 3D 20 68 6F 65 6A 64 65 20 2A 20 6C 61 65 6E 67  = hoejde * laeng
000040: 64 65 20 2A 20 62 72 65 64 64 65 20 2F 20 33 20  de * bredde / 3 
000050: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57 52  ;..           WR
000060: 49 54 45 4C 4E 28 27 50 79 72 61 6D 69 64 65 6E  ITELN('Pyramiden
000070: 73 20 72 75 6D 66 61 6E 67 3A 20 27 2C 20 72 75  s rumfang: ', ru
000080: 6D 66 61 6E 67 20 3A 20 31 30 20 3A 20 32 2C 20  mfang : 10 : 2, 
000090: 27 20 63 6D 33 27 29 3B 0D 0A 20 20 20 20 20 20  ' cm3');..      
0000A0: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 0D 0A     END;..     ..
0000B0: 20 20 20 20 20 20 34 3A 20 42 45 47 49 4E 0D 0A        4: BEGIN..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45             WRITE
0000D0: 4C 4E 28 27 52 55 4D 46 41 4E 47 20 41 46 20 45  LN('RUMFANG AF E
0000E0: 4E 20 50 59 52 41 4D 49 44 45 53 54 55 42 3A 27  N PYRAMIDESTUB:'
0000F0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57  );..           W
000100: 52 49 54 45 4C 4E 28 27 2D 2D 2D 2D 2D 2D 2D 2D  RITELN('--------
000110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000120: 2D 2D 2D 27 29 3B 0D 0A 20 20 20 20 20 20 20 20  ---');..        
000130: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20     WRITELN;..   
000140: 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49          WRITE('I
000150: 6E 64 74 61 73 74 20 62 72 65 64 64 65 20 69 20  ndtast bredde i 
000160: 64 65 6E 20 7C 76 65 72 73 74 65 20 66 6C 61 64  den |verste flad
000170: 65 3A 20 20 27 29 3B 20 52 45 41 44 4C 4E 28 62  e:  '); READLN(b
000180: 31 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20  1);..           
000190: 57 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 6C  WRITE('Indtast l
0001A0: 7B 6E 67 64 65 20 69 20 64 65 6E 20 7C 76 65 72  {ngde i den |ver
0001B0: 73 74 65 20 66 6C 61 64 65 3A 20 20 27 29 3B 20  ste flade:  '); 
0001C0: 52 45 41 44 4C 4E 28 6C 31 29 3B 0D 0A 20 20 20  READLN(l1);..   
0001D0: 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49          WRITE('I
0001E0: 6E 64 74 61 73 74 20 70 79 72 61 6D 69 64 65 73  ndtast pyramides
0001F0: 74 75 62 62 65 6E 73 20 68 7C 6A 64 65 3A 20 20  tubbens h|jde:  

Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 72 75 6D 66 5F 32 3B 0D  PROGRAM rumf_2;.
000010: 0A 20 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 6F  . ..  VAR..    o
000020: 65 6E 73 6B 65 20 3A 20 49 4E 54 45 47 45 52 3B  enske : INTEGER;
000030: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 6C 61          ..    la
000040: 65 6E 67 64 65 2C 20 62 72 65 64 64 65 2C 20 68  engde, bredde, h
000050: 6F 65 6A 64 65 2C 20 72 75 6D 66 61 6E 67 20 3A  oejde, rumfang :
000060: 20 52 45 41 4C 3B 0D 0A 20 20 20 20 72 61 64 69   REAL;..    radi
000070: 75 73 2C 20 72 31 2C 20 72 32 2C 20 62 31 2C 20  us, r1, r2, b1, 
000080: 62 32 2C 20 6C 31 2C 20 6C 32 2C 20 68 20 3A 20  b2, l1, l2, h : 
000090: 52 45 41 4C 3B 0D 0A 20 20 20 20 0D 0A 20 20 42  REAL;..    ..  B
0000A0: 45 47 49 4E 0D 0A 20 20 20 20 57 52 49 54 45 28  EGIN..    WRITE(
0000B0: 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 57 52  CLRHOM);..    WR
0000C0: 49 54 45 4C 4E 28 27 52 20 55 20 4D 20 46 20 41  ITELN('R U M F A
0000D0: 20 4E 20 47 20 20 20 41 20 46 20 3A 27 29 3B 0D   N G   A F :');.
0000E0: 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 2D 2D  .    WRITELN('--
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ----------------
000100: 2D 2D 2D 27 29 3B 0D 0A 20 20 20 20 57 52 49 54  ---');..    WRIT
000110: 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C  ELN;..    WRITEL
000120: 4E 28 27 4B 41 53 53 45 20 2E 2E 2E 2E 2E 2E 2E  N('KASSE .......
000130: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 74  .............. t
000140: 61 73 74 20 31 27 29 3B 0D 0A 20 20 20 20 57 52  ast 1');..    WR
000150: 49 54 45 4C 4E 28 27 43 59 4C 49 4E 44 45 52 20  ITELN('CYLINDER 
000160: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E  ................
000170: 2E 2E 20 74 61 73 74 20 32 27 29 3B 0D 0A 20 20  .. tast 2');..  
000180: 20 20 57 52 49 54 45 4C 4E 28 27 50 59 52 41 4D    WRITELN('PYRAM
000190: 49 44 45 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E  IDE ............
0001A0: 2E 2E 2E 2E 2E 2E 20 74 61 73 74 20 33 27 29 3B  ...... tast 3');
0001B0: 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 50  ..    WRITELN('P
0001C0: 59 52 41 4D 49 44 45 53 54 55 42 20 2E 2E 2E 2E  YRAMIDESTUB ....
0001D0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 74 61 73 74 20  .......... tast 
0001E0: 34 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C  4');..    WRITEL
0001F0: 4E 28 27 4B 45 47 4C 45 20 2E 2E 2E 2E 2E 2E 2E  N('KEGLE .......

Size : 512 (Real : 512)
000000: 20 20 20 20 27 29 3B 20 52 45 41 44 4C 4E 28 68      '); READLN(h
000010: 29 3B 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20  ); ..           
000020: 57 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 62  WRITE('Indtast b
000030: 72 65 64 64 65 20 69 20 64 65 6E 20 6E 65 64 65  redde i den nede
000040: 72 73 74 65 20 66 6C 61 64 65 3A 20 27 29 3B 20  rste flade: '); 
000050: 52 45 41 44 4C 4E 28 62 32 29 3B 0D 0A 20 20 20  READLN(b2);..   
000060: 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49          WRITE('I
000070: 6E 64 74 61 73 74 20 6C 7B 6E 67 64 65 20 69 20  ndtast l{ngde i 
000080: 64 65 6E 20 6E 65 64 65 72 73 74 65 20 66 6C 61  den nederste fla
000090: 64 65 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 6C  de: '); READLN(l
0000A0: 32 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20  2);..           
0000B0: 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20  WRITELN;..      
0000C0: 20 20 20 20 20 72 75 6D 66 61 6E 67 20 3A 3D 20       rumfang := 
0000D0: 28 6C 31 20 2A 20 62 31 20 2B 20 6C 32 20 2A 20  (l1 * b1 + l2 * 
0000E0: 62 32 20 2B 20 53 51 52 54 28 6C 31 20 2A 20 62  b2 + SQRT(l1 * b
0000F0: 31 20 2A 20 6C 32 20 2A 20 62 32 29 29 20 2A 20  1 * l2 * b2)) * 
000100: 68 20 2F 20 33 3B 0D 0A 20 20 20 20 20 20 20 20  h / 3;..        
000110: 20 20 20 57 52 49 54 45 4C 4E 28 27 50 79 72 61     WRITELN('Pyra
000120: 6D 69 64 65 73 74 75 62 62 65 6E 73 20 72 75 6D  midestubbens rum
000130: 66 61 6E 67 3A 20 27 2C 20 72 75 6D 66 61 6E 67  fang: ', rumfang
000140: 20 3A 20 31 30 20 3A 20 32 2C 20 27 20 63 6D 33   : 10 : 2, ' cm3
000150: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 45 4E  ');..         EN
000160: 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 0D  D;..           .
000170: 0A 20 20 20 20 20 20 35 3A 20 42 45 47 49 4E 0D  .      5: BEGIN.
000180: 0A 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54  .           WRIT
000190: 45 4C 4E 28 27 52 55 4D 46 41 4E 47 20 41 46 20  ELN('RUMFANG AF 
0001A0: 45 4E 20 4B 45 47 4C 45 3A 27 29 3B 0D 0A 20 20  EN KEGLE:');..  
0001B0: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E           WRITELN
0001C0: 28 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D  ('--------------
0001D0: 2D 2D 2D 2D 2D 2D 27 29 3B 0D 0A 20 20 20 20 20  ------');..     
0001E0: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A        WRITELN;..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45             WRITE

Size : 512 (Real : 512)
000000: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 74  .............. t
000010: 61 73 74 20 35 27 29 3B 0D 0A 20 20 20 20 57 52  ast 5');..    WR
000020: 49 54 45 4C 4E 28 27 4B 45 47 4C 45 53 54 55 42  ITELN('KEGLESTUB
000030: 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E   ...............
000040: 2E 2E 20 74 61 73 74 20 36 27 29 3B 0D 0A 20 20  .. tast 6');..  
000050: 20 20 57 52 49 54 45 4C 4E 28 27 4B 55 47 4C 45    WRITELN('KUGLE
000060: 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E   ...............
000070: 2E 2E 2E 2E 2E 2E 20 74 61 73 74 20 37 27 29 3B  ...... tast 7');
000080: 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 53  ..    WRITELN('S
000090: 4C 55 54 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E  LUT ............
0000A0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 74 61 73 74 20  .......... tast 
0000B0: 38 27 29 3B 20 20 20 20 20 20 20 0D 0A 20 20 20  8');       ..   
0000C0: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 57   WRITELN;..    W
0000D0: 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 7C 6E  RITE('Indtast |n
0000E0: 73 6B 65 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28  ske: '); READLN(
0000F0: 6F 65 6E 73 6B 65 29 3B 0D 0A 20 20 20 20 57 52  oenske);..    WR
000100: 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20  ITE(CLRHOM);..  
000110: 20 20 0D 0A 20 20 20 20 43 41 53 45 20 6F 65 6E    ..    CASE oen
000120: 73 6B 65 20 4F 46 0D 0A 0D 0A 20 20 20 20 20 20  ske OF....      
000130: 31 3A 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20  1: BEGIN..      
000140: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 52 55       WRITELN('RU
000150: 4D 46 41 4E 47 20 41 46 20 45 4E 20 4B 41 53 53  MFANG AF EN KASS
000160: 45 3A 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20  E:');..         
000170: 20 20 57 52 49 54 45 4C 4E 28 27 2D 2D 2D 2D 2D    WRITELN('-----
000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27  ---------------'
000190: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57  );..           W
0001A0: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20  RITELN;..       
0001B0: 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 61      WRITE('Indta
0001C0: 73 74 20 6B 61 73 73 65 6E 73 20 62 72 65 64 64  st kassens bredd
0001D0: 65 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 62 72  e: '); READLN(br
0001E0: 65 64 64 65 29 3B 0D 0A 20 20 20 20 20 20 20 20  edde);..        
0001F0: 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 73     WRITE('Indtas