PolyPascal-80 v3.10 (UK) (128K) (Face C) (1985) (2. Training Files) [UTILITAIRE].dsk
   
Choose sector :
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 43 50 52 4E 55 4D 52 45 50 41 53 00 00 00 08 .CPRNUMREPAS....
000010: 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000020: 00 43 52 41 50 53 32 20 20 50 41 53 00 00 00 10 .CRAPS2 PAS....
000030: 03 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 00 44 45 4D 4F 4C 45 4E 20 50 41 53 00 00 00 08 .DEMOLEN PAS....
000050: 05 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000060: 00 44 45 4D 4F 5F 53 54 52 50 41 53 00 00 00 08 .DEMO_STRPAS....
000070: 06 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000080: 00 44 49 56 49 53 49 4F 4E 50 41 53 00 00 00 20 .DIVISIONPAS...
000090: 07 08 09 0A 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: 00 44 49 56 49 53 4F 52 20 50 41 53 00 00 00 08 .DIVISOR PAS....
0000B0: 0B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000C0: 00 44 49 56 49 53 4F 52 32 50 41 53 00 00 00 08 .DIVISOR2PAS....
0000D0: 0C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000E0: 00 44 4F 42 42 45 4C 54 20 50 41 53 00 00 00 40 .DOBBELT PAS...@
0000F0: 0D 0E 0F 10 11 12 13 14 00 00 00 00 00 00 00 00 ................
000100: 00 45 4E 47 53 54 49 4C 20 50 41 53 00 00 00 08 .ENGSTIL PAS....
000110: 15 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000120: 00 45 52 41 54 4F 53 54 48 50 41 53 00 00 00 10 .ERATOSTHPAS....
000130: 16 17 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000140: 00 46 41 48 52 45 4E 48 45 50 41 53 00 00 00 08 .FAHRENHEPAS....
000150: 18 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000160: 00 46 41 4B 54 55 52 41 20 50 41 53 00 00 00 18 .FAKTURA PAS....
000170: 19 1A 1B 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000180: 00 46 49 42 4F 20 20 20 20 50 41 53 00 00 00 08 .FIBO PAS....
000190: 1C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001A0: 00 46 49 42 4F 46 4F 52 48 50 41 53 00 00 00 08 .FIBOFORHPAS....
0001B0: 1D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001C0: 00 46 49 42 4F 4E 41 43 31 50 41 53 00 00 00 08 .FIBONAC1PAS....
0001D0: 1E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001E0: 00 46 49 42 4F 4E 41 43 32 50 41 53 00 00 00 08 .FIBONAC2PAS....
0001F0: 1F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
Size : 512 (Real : 512)
000000: 20 46 4F 52 20 68 20 3A 3D 20 30 20 54 4F 20 39 FOR h := 0 TO 9
000010: 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 42 DO.. B
000020: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
000030: 20 20 68 73 75 6D 20 3A 3D 20 67 73 75 6D 20 2B hsum := gsum +
000040: 20 68 20 2A 20 33 3B 0D 0A 20 20 20 20 20 20 20 h * 3;..
000050: 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 30 20 FOR i := 0
000060: 54 4F 20 39 20 44 4F 0D 0A 20 20 20 20 20 20 20 TO 9 DO..
000070: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 BEGIN..
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 73 is
000090: 75 6D 20 3A 3D 20 68 73 75 6D 20 2B 20 69 20 2A um := hsum + i *
0000A0: 20 32 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 2;..
0000B0: 20 20 20 20 20 46 4F 52 20 63 68 65 63 6B 20 3A FOR check :
0000C0: 3D 20 30 20 54 4F 20 39 20 44 4F 0D 0A 20 20 20 = 0 TO 9 DO..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 I
0000E0: 46 20 28 69 73 75 6D 20 2B 20 63 68 65 63 6B 29 F (isum + check)
0000F0: 20 4D 4F 44 20 31 31 20 3D 20 30 0D 0A 20 20 20 MOD 11 = 0..
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 20 54 48 45 4E 20 57 52 49 54 45 28 61 2C 20 62 THEN WRITE(a, b
000120: 2C 20 63 2C 20 64 2C 20 65 2C 20 66 2C 20 27 2D , c, d, e, f, '-
000130: 27 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ',..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 67 2C 20 68 2C 20 69 2C 20 63 68 65 63 g, h, i, chec
000160: 6B 2C 20 27 20 20 20 20 20 27 29 3B 0D 0A 20 20 k, ' ');..
000170: 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B END;
000180: 0D 0A 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B .. END;
000190: 0D 0A 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 .. END;..
0001A0: 45 4E 44 2E 0D 0A 1A 20 65 2C 20 66 2C 20 27 2D END.... e, f, '-
0001B0: 27 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ',..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001D0: 20 20 20 67 2C 20 68 2C 20 69 2C 20 63 68 65 63 g, h, i, chec
0001E0: 6B 2C 20 27 20 20 20 20 20 27 29 3B 0D 0A 20 20 k, ' ');..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B END;
Size : 512 (Real : 512)
000000: 00 46 49 4C 4B 4F 50 49 20 50 41 53 00 00 00 08 .FILKOPI PAS....
000010: 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ...............
000020: 00 46 4C 41 44 45 20 20 20 50 41 53 00 00 00 08 .FLADE PAS....
000030: 21 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 !...............
000040: 00 46 4C 45 54 4E 49 4E 47 50 41 53 00 00 00 28 .FLETNINGPAS...(
000050: 22 23 24 25 26 00 00 00 00 00 00 00 00 00 00 00 "#$%&...........
000060: 00 46 4F 52 4B 4F 52 54 20 50 41 53 00 00 00 08 .FORKORT PAS....
000070: 27 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 '...............
000080: 00 47 41 45 54 54 45 47 4E 50 41 53 00 00 00 10 .GAETTEGNPAS....
000090: 28 29 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ()..............
0000A0: 00 47 52 55 4E 44 54 41 4C 50 41 53 00 00 00 18 .GRUNDTALPAS....
0000B0: 2A 2B 2C 00 00 00 00 00 00 00 00 00 00 00 00 00 *+,.............
0000C0: 00 48 41 52 4D 4F 4E 49 43 50 41 53 00 00 00 08 .HARMONICPAS....
0000D0: 2D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -...............
0000E0: 00 48 41 53 48 54 41 42 20 50 41 53 00 00 00 20 .HASHTAB PAS...
0000F0: 2E 2F 30 31 00 00 00 00 00 00 00 00 00 00 00 00 ./01............
000100: 00 48 45 4E 54 50 4F 53 54 50 41 53 00 00 00 10 .HENTPOSTPAS....
000110: 32 33 00 00 00 00 00 00 00 00 00 00 00 00 00 00 23..............
000120: 00 49 42 4D 20 20 20 20 20 50 41 53 00 00 00 08 .IBM PAS....
000130: 34 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4...............
000140: 00 49 44 45 41 4C 20 20 20 50 41 53 00 00 00 28 .IDEAL PAS...(
000150: 35 36 37 38 39 00 00 00 00 00 00 00 00 00 00 00 56789...........
000160: 00 49 44 45 4E 54 49 46 49 50 41 53 00 00 00 20 .IDENTIFIPAS...
000170: 3A 3B 3C 3D 00 00 00 00 00 00 00 00 00 00 00 00 :;<=............
000180: 00 49 4E 54 45 52 48 59 50 50 41 53 00 00 00 10 .INTERHYPPAS....
000190: 3E 3F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 >?..............
0001A0: 00 49 4E 56 45 52 53 20 20 50 41 53 00 00 00 10 .INVERS PAS....
0001B0: 40 41 00 00 00 00 00 00 00 00 00 00 00 00 00 00 @A..............
0001C0: 00 4A 4F 55 52 4E 41 4C 20 50 41 53 00 00 00 08 .JOURNAL PAS....
0001D0: 42 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 B...............
0001E0: 00 4B 41 45 44 45 32 20 20 50 41 53 00 00 00 28 .KAEDE2 PAS...(
0001F0: 43 44 45 46 47 00 00 00 00 00 00 00 00 00 00 00 CDEFG...........
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
000010: 63 72 61 70 73 32 3B 0D 0A 20 20 20 20 20 20 20 craps2;..
000020: 20 0D 0A 20 20 20 20 20 20 20 20 56 41 52 0D 0A .. VAR..
000030: 20 20 20 20 20 20 20 20 20 20 61 6E 74 61 6C 2C antal,
000040: 20 76 75 6E 64 65 74 2C 20 69 2C 20 6B 61 73 74 vundet, i, kast
000050: 31 2C 20 6B 61 73 74 32 2C 20 70 6F 69 6E 74 73 1, kast2, points
000060: 2C 20 73 75 6D 20 3A 20 49 4E 54 45 47 45 52 3B , sum : INTEGER;
000070: 0D 0A 20 20 20 20 20 20 20 20 20 20 64 65 6C 73 .. dels
000080: 65 6A 72 2C 20 61 66 67 6A 6F 72 74 20 3A 20 42 ejr, afgjort : B
000090: 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 20 20 20 20 20 OOLEAN;..
0000A0: 20 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49 4E .. BEGIN
0000B0: 0D 0A 20 20 20 20 20 20 20 20 20 20 52 41 4E 44 .. RAND
0000C0: 4F 4D 49 5A 45 3B 0D 0A 20 20 20 20 20 20 20 20 OMIZE;..
0000D0: 20 20 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B WRITE(CLRHOM);
0000E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 76 75 6E 64 .. vund
0000F0: 65 74 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 20 20 et := 0;..
000100: 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 20 WRITE('Tast
000110: 61 6E 74 61 6C 20 73 70 69 6C 3A 20 27 29 3B 20 antal spil: ');
000120: 52 45 41 44 4C 4E 28 61 6E 74 61 6C 29 3B 0D 0A READLN(antal);..
000130: 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 ..
000140: 20 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 FOR i := 1
000150: 20 54 4F 20 61 6E 74 61 6C 20 44 4F 0D 0A 20 20 TO antal DO..
000160: 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D BEGIN.
000170: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 . d
000180: 65 6C 73 65 6A 72 20 3A 3D 20 46 41 4C 53 45 3B elsejr := FALSE;
000190: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0001A0: 6B 61 73 74 31 20 3A 3D 20 52 41 4E 44 4F 4D 28 kast1 := RANDOM(
0001B0: 36 29 20 2B 20 31 3B 0D 0A 20 20 20 20 20 20 20 6) + 1;..
0001C0: 20 20 20 20 20 20 20 6B 61 73 74 32 20 3A 3D 20 kast2 :=
0001D0: 52 41 4E 44 4F 4D 28 36 29 20 2B 20 31 3B 0D 0A RANDOM(6) + 1;..
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6F po
0001F0: 69 6E 74 73 20 3A 3D 20 6B 61 73 74 31 20 2B 20 ints := kast1 +
Size : 512 (Real : 512)
000000: 00 4B 41 45 44 45 33 20 20 50 41 53 00 00 00 28 .KAEDE3 PAS...(
000010: 48 49 4A 4B 4C 00 00 00 00 00 00 00 00 00 00 00 HIJKL...........
000020: 00 4B 41 45 44 45 34 20 20 50 41 53 00 00 00 30 .KAEDE4 PAS...0
000030: 4D 4E 4F 50 51 52 00 00 00 00 00 00 00 00 00 00 MNOPQR..........
000040: 00 4B 41 4C 4B 55 20 20 20 50 41 53 00 00 00 30 .KALKU PAS...0
000050: 53 54 55 56 57 58 00 00 00 00 00 00 00 00 00 00 STUVWX..........
000060: 00 4B 41 4E 4E 49 42 41 4C 50 41 53 00 00 00 28 .KANNIBALPAS...(
000070: 59 5A 5B 5C 5D 00 00 00 00 00 00 00 00 00 00 00 YZ[\]...........
000080: 00 4B 4F 4E 54 52 4F 4C 20 50 41 53 00 00 00 08 .KONTROL PAS....
000090: 5E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ^...............
0000A0: 00 4C 49 46 45 20 20 20 20 50 41 53 00 00 00 30 .LIFE PAS...0
0000B0: 5F 60 61 62 63 64 00 00 00 00 00 00 00 00 00 00 _`abcd..........
0000C0: 00 4C 49 4E 49 45 20 20 20 50 41 53 00 00 00 10 .LINIE PAS....
0000D0: 65 66 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ef..............
0000E0: 00 4C 4F 4E 47 41 44 44 20 50 41 53 00 00 00 18 .LONGADD PAS....
0000F0: 67 68 69 00 00 00 00 00 00 00 00 00 00 00 00 00 ghi.............
000100: 00 4C 4F 4E 47 4D 55 4C 54 50 41 53 00 00 00 10 .LONGMULTPAS....
000110: 6A 6B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 jk..............
000120: 00 4D 41 41 4E 45 44 32 20 50 41 53 00 00 00 08 .MAANED2 PAS....
000130: 6C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 l...............
000140: 00 4D 41 58 49 4D 55 4D 32 50 41 53 00 00 00 10 .MAXIMUM2PAS....
000150: 6D 6E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 mn..............
000160: 00 4D 41 58 50 55 4E 4B 54 50 41 53 00 00 00 10 .MAXPUNKTPAS....
000170: 6F 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 op..............
000180: 00 4D 45 4E 55 46 49 4C 20 50 41 53 00 00 00 40 .MENUFIL PAS...@
000190: 71 72 73 74 75 76 77 78 00 00 00 00 00 00 00 00 qrstuvwx........
0001A0: 00 4D 4F 52 53 45 31 20 20 50 41 53 00 00 00 10 .MORSE1 PAS....
0001B0: 79 7A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 yz..............
0001C0: 00 4D 4F 52 53 45 32 20 20 50 41 53 00 00 00 20 .MORSE2 PAS...
0001D0: 7B 7C 7D 7E 00 00 00 00 00 00 00 00 00 00 00 00 {|}~............
0001E0: 00 4E 41 56 4E 53 4F 45 47 50 41 53 00 00 00 18 .NAVNSOEGPAS....
0001F0: 7F 80 81 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
Size : 512 (Real : 512)
000000: 6B 61 73 74 32 3B 0D 0A 20 20 20 20 20 20 20 20 kast2;..
000010: 20 20 20 20 20 20 43 41 53 45 20 70 6F 69 6E 74 CASE point
000020: 73 20 4F 46 0D 0A 20 20 20 20 20 20 20 20 20 20 s OF..
000030: 20 20 20 20 20 20 37 2C 20 31 31 20 20 20 20 3A 7, 11 :
000040: 20 42 45 47 49 4E 0D 0A 20 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: 20 20 20 20 20 76 75 6E 64 65 74 20 3A 3D 20 76 vundet := v
000070: 75 6E 64 65 74 20 2B 31 3B 0D 0A 20 20 20 20 20 undet +1;..
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 64 65 6C 73 65 6A 72 20 delsejr
0000A0: 3A 3D 20 54 52 55 45 3B 0D 0A 20 20 20 20 20 20 := TRUE;..
0000B0: 20 20 20 20 20 20 20 20 20 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 20 20 20 20 20 20 20 20 32 2C 20 33 2C 2, 3,
0000E0: 20 31 32 20 3A 20 28 2A 20 69 6E 74 65 74 20 2A 12 : (* intet *
0000F0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
000100: 20 20 4F 54 48 45 52 57 49 53 45 0D 0A 20 20 20 OTHERWISE..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 61 66 67 afg
000120: 6A 6F 72 74 20 3A 3D 20 46 41 4C 53 45 3B 0D 0A jort := FALSE;..
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000140: 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20 REPEAT..
000150: 20 20 20 20 20 20 20 20 20 20 6B 61 73 74 31 20 kast1
000160: 3A 3D 20 52 41 4E 44 4F 4D 28 36 29 20 2B 20 31 := RANDOM(6) + 1
000170: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
000180: 20 20 20 20 20 6B 61 73 74 32 20 3A 3D 20 52 41 kast2 := RA
000190: 4E 44 4F 4D 28 36 29 20 2B 20 31 3B 0D 0A 20 20 NDOM(6) + 1;..
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001B0: 73 75 6D 20 3A 3D 20 6B 61 73 74 31 20 2B 20 6B sum := kast1 + k
0001C0: 61 73 74 32 3B 0D 0A 20 20 20 20 20 20 20 20 20 ast2;..
0001D0: 20 20 20 20 20 20 20 20 20 49 46 20 73 75 6D 20 IF sum
0001E0: 3D 20 70 6F 69 6E 74 73 20 0D 0A 20 20 20 20 20 = points ..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 T
Size : 512 (Real : 512)
000000: 00 4E 41 56 4E 53 4F 52 54 50 41 53 00 00 00 10 .NAVNSORTPAS....
000010: 82 83 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000020: 00 4E 59 47 41 41 52 44 20 50 41 53 00 00 00 10 .NYGAARD PAS....
000030: 84 85 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 00 4F 52 44 48 59 50 20 20 50 41 53 00 00 00 28 .ORDHYP PAS...(
000050: 86 87 88 89 8A 00 00 00 00 00 00 00 00 00 00 00 ................
000060: 00 4F 56 45 52 46 5F 31 20 50 41 53 00 00 00 20 .OVERF_1 PAS...
000070: 8B 8C 8D 8E 00 00 00 00 00 00 00 00 00 00 00 00 ................
000080: 00 4F 56 45 52 46 5F 32 20 50 41 53 00 00 00 20 .OVERF_2 PAS...
000090: 8F 90 91 92 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: 00 50 41 4B 4B 45 50 53 54 50 41 53 00 00 00 10 .PAKKEPSTPAS....
0000B0: 93 94 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000C0: 00 50 41 4C 49 4E 44 52 20 50 41 53 00 00 00 08 .PALINDR PAS....
0000D0: 95 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
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: 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 HEN..
000010: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E BEGIN
000020: 0D 0A 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 76 75 6E 64 65 74 vundet
000040: 20 3A 3D 20 76 75 6E 64 65 74 20 2B 31 3B 0D 0A := vundet +1;..
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 64 65 6C 73 65 6A 72 20 delsejr
000070: 3A 3D 20 54 52 55 45 3B 0D 0A 20 20 20 20 20 20 := TRUE;..
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000090: 20 20 61 66 67 6A 6F 72 74 20 3A 3D 20 54 52 55 afgjort := TRU
0000A0: 45 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 E;..
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 20 20
0000D0: 20 20 49 46 20 73 75 6D 20 3D 20 37 20 0D 0A 20 IF sum = 7 ..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 54 48 45 4E 20 61 66 67 6A 6F 72 74 20 THEN afgjort
000100: 3A 3D 20 54 52 55 45 3B 0D 0A 20 20 20 20 20 20 := TRUE;..
000110: 20 20 20 20 20 20 20 20 20 20 55 4E 54 49 4C 20 UNTIL
000120: 61 66 67 6A 6F 72 74 3B 0D 0A 20 20 20 20 20 20 afgjort;..
000130: 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 END;..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 64 IF d
000150: 65 6C 73 65 6A 72 0D 0A 20 20 20 20 20 20 20 20 elsejr..
000160: 20 20 20 20 20 20 20 20 54 48 45 4E 20 57 52 49 THEN WRI
000170: 54 45 28 27 53 65 6A 72 20 20 27 29 0D 0A 20 20 TE('Sejr ')..
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4C EL
000190: 53 45 20 57 52 49 54 45 28 27 54 61 62 20 20 20 SE WRITE('Tab
0001A0: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ');..
0001B0: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 56 75 WRITELN('Vu
0001C0: 6E 64 65 74 3A 20 27 2C 20 76 75 6E 64 65 74 2C ndet: ', vundet,
0001D0: 20 27 20 20 20 54 61 62 74 3A 20 27 2C 20 69 20 ' Tabt: ', i
0001E0: 2D 20 76 75 6E 64 65 74 29 3B 0D 0A 20 20 20 20 - vundet);..
0001F0: 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 END;..
Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 63 70 72 6E 75 6D 72 65 PROGRAM cprnumre
000010: 3B 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 ;.... VAR..
000020: 61 2C 20 62 2C 20 63 2C 20 64 2C 20 65 2C 20 66 a, b, c, d, e, f
000030: 2C 20 67 2C 20 68 2C 20 69 2C 20 64 61 74 6F 73 , g, h, i, datos
000040: 75 6D 2C 20 67 73 75 6D 2C 20 68 73 75 6D 2C 20 um, gsum, hsum,
000050: 69 73 75 6D 2C 20 63 68 65 63 6B 20 3A 20 49 4E isum, check : IN
000060: 54 45 47 45 52 3B 0D 0A 20 20 0D 0A 20 20 42 45 TEGER;.. .. BE
000070: 47 49 4E 0D 0A 20 20 20 20 57 52 49 54 45 28 43 GIN.. WRITE(C
000080: 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 57 52 49 LRHOM);.. WRI
000090: 54 45 4C 4E 28 27 44 65 20 36 20 66 7C 72 73 74 TELN('De 6 f|rst
0000A0: 65 20 63 69 66 72 65 20 69 20 63 70 72 2D 6E 75 e cifre i cpr-nu
0000B0: 6D 6D 65 72 65 74 20 53 4B 41 4C 20 74 61 73 74 mmeret SKAL tast
0000C0: 65 73 20 69 6E 64 20 6D 65 64 20 6D 65 6C 6C 65 es ind med melle
0000D0: 6D 72 75 6D 27 29 3B 20 20 20 20 20 0D 0A 20 20 mrum'); ..
0000E0: 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 WRITELN;..
0000F0: 57 52 49 54 45 4C 4E 28 27 49 6E 64 74 61 73 74 WRITELN('Indtast
000100: 20 65 6E 20 64 61 74 6F 20 73 7D 6C 65 64 65 73 en dato s}ledes
000110: 3A 20 44 20 44 20 4D 20 4D 20 5D 20 5D 27 29 3B : D D M M ] ]');
000120: 0D 0A 20 20 20 20 57 52 49 54 45 28 27 20 20 20 .. WRITE('
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000140: 20 20 20 20 20 20 27 29 3B 20 52 45 41 44 4C 4E '); READLN
000150: 28 61 2C 20 62 2C 20 63 2C 20 64 2C 20 65 2C 20 (a, b, c, d, e,
000160: 66 29 3B 0D 0A 20 20 20 20 64 61 74 6F 73 75 6D f);.. datosum
000170: 20 3A 3D 20 61 20 2A 20 34 20 2B 20 62 20 2A 20 := a * 4 + b *
000180: 33 20 2B 20 63 20 2A 20 32 20 2B 20 64 20 2A 20 3 + c * 2 + d *
000190: 37 20 2B 20 65 20 2A 20 36 20 2B 20 66 20 2A 20 7 + e * 6 + f *
0001A0: 35 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B 5;.. WRITELN;
0001B0: 0D 0A 20 20 20 20 46 4F 52 20 67 20 3A 3D 20 30 .. FOR g := 0
0001C0: 20 54 4F 20 39 20 44 4F 0D 0A 20 20 20 20 20 20 TO 9 DO..
0001D0: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 67 BEGIN.. g
0001E0: 73 75 6D 20 3A 3D 20 64 61 74 6F 73 75 6D 20 2B sum := datosum +
0001F0: 20 67 20 2A 20 34 3B 0D 0A 20 20 20 20 20 20 20 g * 4;..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 ..
000010: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B WRITELN;
000020: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 57 52 .. WR
000030: 49 54 45 4C 4E 28 27 55 64 20 61 66 20 27 2C 20 ITELN('Ud af ',
000040: 61 6E 74 61 6C 20 3A 20 35 2C 20 27 20 73 70 69 antal : 5, ' spi
000050: 6C 20 62 6C 65 76 20 64 65 20 27 2C 20 76 75 6E l blev de ', vun
000060: 64 65 74 20 3A 20 35 2C 0D 0A 20 20 20 20 20 20 det : 5,..
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 20 '
000080: 73 70 69 6C 20 76 75 6E 64 65 74 27 29 3B 0D 0A spil vundet');..
000090: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
0000A0: 45 4C 4E 28 27 46 72 65 6B 76 65 6E 73 65 6E 20 ELN('Frekvensen
0000B0: 61 66 20 76 75 6E 64 6E 65 20 73 70 69 6C 3A 20 af vundne spil:
0000C0: 27 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ',..
0000D0: 20 20 20 20 20 20 20 20 76 75 6E 64 65 74 20 2F vundet /
0000E0: 20 61 6E 74 61 6C 20 2A 20 31 30 30 20 3A 20 35 antal * 100 : 5
0000F0: 20 3A 20 32 2C 20 27 20 25 27 29 3B 0D 0A 20 20 : 2, ' %');..
000100: 20 20 20 20 20 20 45 4E 44 2E 0D 0A 1A 3B 0D 0A END....;..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
000120: 45 4C 4E 28 27 46 72 65 6B 76 65 6E 73 65 6E 20 ELN('Frekvensen
000130: 61 66 20 76 75 6E 64 6E 65 20 73 70 69 6C 3A 20 af vundne spil:
000140: 27 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ',..
000150: 20 20 20 20 20 20 20 20 76 75 6E 64 65 74 20 2F vundet /
000160: 20 61 6E 74 61 6C 20 2A 20 31 30 30 20 3A 20 35 antal * 100 : 5
000170: 20 3A 20 32 2C 20 27 20 25 27 29 3B 0D 0A 20 20 : 2, ' %');..
000180: 76 FD 52 55 4D 46 5F 31 2E 50 41 53 5B 32 38 2F v.RUMF_1.PAS[28/
000190: 30 31 2F 31 39 39 31 5D 00 11 10 00 05 ED 77 3B 01/1991]......w;
0001A0: 3D 1C 3E 5F 5F 55 FC FF FD FE 1E 9D DF 17 2F 94 =.>__U......../.
0001B0: BE 8B 01 58 F0 60 58 8C 03 59 AB F3 EF FC CF E5 ...X.`X..Y......
0001C0: A4 CF 50 A5 CF 57 A5 CF A0 A5 CF 18 A6 CF 07 A6 ..P..W..........
0001D0: CF 03 A6 CF FE A4 CF 7F A5 CF 99 A5 CF C6 A5 CF ................
0001E0: 53 A6 CF 92 A6 30 CD 07 9C 8D 24 00 03 07 00 AA S....0....$.....
0001F0: 00 3F 00 C0 00 10 00 02 00 41 09 2A 52 E5 02 04 .?.......A.*R...
Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 64 69 76 69 73 69 6F 6E PROGRAM division
000010: 3B 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 ;.... VAR..
000020: 6E 61 76 6E 20 3A 20 53 54 52 49 4E 47 28 2E 33 navn : STRING(.3
000030: 30 2E 29 3B 0D 0A 20 20 20 20 63 68 20 3A 20 43 0.);.. ch : C
000040: 48 41 52 3B 0D 0A 20 20 20 20 64 69 76 69 73 6F HAR;.. diviso
000050: 72 2C 20 64 69 76 69 73 6F 72 31 2C 20 64 69 76 r, divisor1, div
000060: 69 73 6F 72 32 2C 20 64 69 76 69 64 65 6E 64 2C isor2, dividend,
000070: 0D 0A 20 20 20 20 64 69 76 69 64 65 6E 64 31 2C .. dividend1,
000080: 20 64 69 76 69 64 65 6E 64 32 2C 20 67 72 61 64 dividend2, grad
000090: 2C 20 61 6E 74 61 6C 2C 0D 0A 20 20 20 20 72 69 , antal,.. ri
0000A0: 67 74 69 67 65 2C 20 66 6F 72 73 6F 65 67 2C 20 gtige, forsoeg,
0000B0: 74 61 65 6C 6C 65 72 2C 20 6E 61 65 76 6E 65 72 taeller, naevner
0000C0: 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 : INTEGER;..
0000D0: 20 66 65 6A 6C 20 3A 20 42 4F 4F 4C 45 41 4E 3B fejl : BOOLEAN;
0000E0: 0D 0A 20 20 0D 0A 20 20 46 55 4E 43 54 49 4F 4E .. .. FUNCTION
0000F0: 20 73 66 64 28 6E 2C 20 6D 20 3A 20 49 4E 54 45 sfd(n, m : INTE
000100: 47 45 52 29 20 3A 20 49 4E 54 45 47 45 52 3B 0D GER) : INTEGER;.
000110: 0A 20 20 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A . .. VAR..
000120: 20 20 20 20 20 20 72 65 73 74 20 3A 20 49 4E 54 rest : INT
000130: 45 47 45 52 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 EGER;.. ..
000140: 20 42 45 47 49 4E 20 28 2A 20 73 66 64 20 2A 29 BEGIN (* sfd *)
000150: 0D 0A 20 20 20 20 20 20 57 48 49 4C 45 20 6D 20 .. WHILE m
000160: 3E 20 30 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 > 0 DO..
000170: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 BEGIN..
000180: 20 72 65 73 74 20 3A 3D 20 6E 20 4D 4F 44 20 6D rest := n MOD m
000190: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 6E 20 3A ;.. n :
0001A0: 3D 20 6D 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 = m;..
0001B0: 6D 20 3A 3D 20 72 65 73 74 3B 0D 0A 20 20 20 20 m := rest;..
0001C0: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 END;..
0001D0: 73 66 64 20 3A 3D 20 6E 3B 0D 0A 20 20 20 20 45 sfd := n;.. E
0001E0: 4E 44 3B 20 28 2A 20 73 66 64 20 2A 29 0D 0A 20 ND; (* sfd *)..
0001F0: 20 20 20 0D 0A 20 20 50 52 4F 43 45 44 55 52 45 .. PROCEDURE
Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 .. PROGRA
000010: 4D 20 64 65 6D 6F 6C 65 6E 3B 0D 0A 20 20 20 20 M demolen;..
000020: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 54 59 .. TY
000030: 50 45 0D 0A 20 20 20 20 20 20 20 20 20 20 73 74 PE.. st
000040: 72 65 6E 67 74 79 70 65 20 3D 20 53 54 52 49 4E rengtype = STRIN
000050: 47 28 2E 31 35 2E 29 3B 0D 0A 20 20 20 20 20 20 G(.15.);..
000060: 20 20 0D 0A 20 20 20 20 20 20 20 20 56 41 52 0D .. VAR.
000070: 0A 20 20 20 20 20 20 20 20 20 20 73 74 72 65 6E . stren
000080: 67 20 3A 20 73 74 72 65 6E 67 74 79 70 65 3B 0D g : strengtype;.
000090: 0A 20 20 20 20 20 20 20 20 20 20 69 20 3A 20 49 . i : I
0000A0: 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 20 NTEGER;..
0000B0: 20 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49 4E .. BEGIN
0000C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 73 74 72 65 .. stre
0000D0: 6E 67 20 3A 3D 20 27 27 3B 0D 0A 20 20 20 20 20 ng := '';..
0000E0: 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 FOR i := 1
0000F0: 54 4F 20 35 20 44 4F 0D 0A 20 20 20 20 20 20 20 TO 5 DO..
000100: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
000110: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
000120: 4E 28 73 74 72 65 6E 67 3A 31 32 2C 20 4C 45 4E N(streng:12, LEN
000130: 28 73 74 72 65 6E 67 29 3A 33 29 3B 0D 0A 20 20 (streng):3);..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 65 stre
000150: 6E 67 20 3A 3D 20 73 74 72 65 6E 67 20 2B 27 41 ng := streng +'A
000160: 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ';..
000170: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 END;..
000180: 57 52 49 54 45 4C 4E 28 73 74 72 65 6E 67 3A 31 WRITELN(streng:1
000190: 32 2C 20 4C 45 4E 28 73 74 72 65 6E 67 29 3A 33 2, LEN(streng):3
0001A0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 73 74 );.. st
0001B0: 72 65 6E 67 20 3A 3D 20 73 74 72 65 6E 67 20 2B reng := streng +
0001C0: 20 73 74 72 65 6E 67 20 3B 0D 0A 20 20 20 20 20 streng ;..
0001D0: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 73 74 72 WRITELN(str
0001E0: 65 6E 67 3A 31 32 2C 20 4C 45 4E 28 73 74 72 65 eng:12, LEN(stre
0001F0: 6E 67 29 3A 33 29 3B 0D 0A 20 20 20 20 20 20 20 ng):3);..
Size : 512 (Real : 512)
000000: 20 66 6F 72 6B 6F 72 74 28 56 41 52 20 74 61 65 forkort(VAR tae
000010: 6C 6C 65 72 2C 20 6E 61 65 76 6E 65 72 20 3A 20 ller, naevner :
000020: 49 4E 54 45 47 45 52 29 3B 0D 0A 20 20 0D 0A 20 INTEGER);.. ..
000030: 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 66 61 VAR.. fa
000040: 6B 74 6F 72 20 3A 20 49 4E 54 45 47 45 52 3B 0D ktor : INTEGER;.
000050: 0A 20 20 20 20 0D 0A 20 20 20 20 42 45 47 49 4E . .. BEGIN
000060: 20 28 2A 20 66 6F 72 6B 6F 72 74 20 2A 29 0D 0A (* forkort *)..
000070: 20 20 20 20 20 20 66 61 6B 74 6F 72 20 3A 3D 20 faktor :=
000080: 73 66 64 28 74 61 65 6C 6C 65 72 2C 20 6E 61 65 sfd(taeller, nae
000090: 76 6E 65 72 29 3B 0D 0A 20 20 20 20 20 20 74 61 vner);.. ta
0000A0: 65 6C 6C 65 72 20 3A 3D 20 74 61 65 6C 6C 65 72 eller := taeller
0000B0: 20 44 49 56 20 66 61 6B 74 6F 72 3B 0D 0A 20 20 DIV faktor;..
0000C0: 20 20 20 20 6E 61 65 76 6E 65 72 20 3A 3D 20 6E naevner := n
0000D0: 61 65 76 6E 65 72 20 44 49 56 20 66 61 6B 74 6F aevner DIV fakto
0000E0: 72 3B 0D 0A 20 20 20 20 45 4E 44 3B 20 28 2A 20 r;.. END; (*
0000F0: 66 6F 72 6B 6F 72 74 20 2A 29 0D 0A 20 20 0D 0A forkort *).. ..
000100: 20 20 42 45 47 49 4E 20 28 2A 20 64 69 76 69 73 BEGIN (* divis
000110: 69 6F 6E 20 2A 29 0D 0A 20 20 20 20 57 52 49 54 ion *).. WRIT
000120: 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 E(CLRHOM);..
000130: 52 41 4E 44 4F 4D 49 5A 45 3B 0D 0A 20 20 20 20 RANDOMIZE;..
000140: 57 52 49 54 45 28 27 48 76 61 64 20 68 65 64 64 WRITE('Hvad hedd
000150: 65 72 20 64 75 3A 20 27 29 3B 20 52 45 41 44 4C er du: '); READL
000160: 4E 28 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 52 45 N(navn);.. RE
000170: 50 45 41 54 0D 0A 20 20 20 20 20 20 57 52 49 54 PEAT.. WRIT
000180: 45 28 27 48 76 69 6C 6B 65 6E 20 73 76 7B 72 68 E('Hvilken sv{rh
000190: 65 64 73 67 72 61 64 20 7C 6E 73 6B 65 72 20 64 edsgrad |nsker d
0001A0: 75 20 28 31 20 2D 20 31 30 29 3A 20 27 29 3B 0D u (1 - 10): ');.
0001B0: 0A 20 20 20 20 20 20 52 45 41 44 4C 4E 28 67 72 . READLN(gr
0001C0: 61 64 29 3B 0D 0A 20 20 20 20 55 4E 54 49 4C 20 ad);.. UNTIL
0001D0: 28 31 20 3C 3D 20 67 72 61 64 29 20 41 4E 44 20 (1 <= grad) AND
0001E0: 28 67 72 61 64 20 3C 3D 20 31 30 29 3B 0D 0A 20 (grad <= 10);..
0001F0: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
Size : 512 (Real : 512)
000000: 20 45 4E 44 2E 0D 0A 0D 0A 20 20 20 20 20 20 20 END.....
000010: 20 0D 0A 1A 45 4E 28 73 74 72 65 6E 67 29 3A 33 ...EN(streng):3
000020: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 73 74 );.. st
000030: 72 65 6E 67 20 3A 3D 20 73 74 72 65 6E 67 20 2B reng := streng +
000040: 20 73 74 72 65 6E 67 20 3B 0D 0A 20 20 20 20 20 streng ;..
000050: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 73 74 72 WRITELN(str
000060: 65 6E 67 3A 31 32 2C 20 4C 45 4E 28 73 74 72 65 eng:12, LEN(stre
000070: 6E 67 29 3A 33 29 3B 0D 0A 20 20 20 20 20 20 20 ng):3);..
000080: 03 00 CA BE 04 00 B9 A1 05 00 DF F7 A0 C9 00 00 ................
000090: 49 F9 05 0C C0 08 DF 01 A1 C9 F6 C1 05 DF 0A A1 I...............
0000A0: C3 96 E4 E3 D2 05 00 00 00 00 00 00 00 00 00 00 ................
0000B0: 00 00 00 00 00 00 00 00 00 00 FC 00 01 00 01 00 ................
0000C0: 01 52 55 4E 22 44 49 53 43 0D C5 89 68 B4 D6 2E .RUN"DISC...h...
0000D0: 24 3C CC 23 0A 5B 81 28 8F 37 DE 4E F2 95 17 D4 $<.#.[.(.7.N....
0000E0: 1E C4 1E FB AE B5 4F F0 BB F1 4A B9 49 62 34 75 ......O...J.Ib4u
0000F0: EC EE 35 5B 9F 5B 6F 2F 4C 12 C1 60 C1 BE 10 7B ..5[.[o/L..`...{
000100: E8 74 CB 23 00 00 E3 F5 7C FE C0 38 0C 3A 00 C0 .t.#....|..8.:..
000110: FE 80 20 05 F1 E3 CF 97 83 F1 E3 F3 D9 21 6C A1 .. ..........!l.
000120: 5E 77 F6 C0 ED 79 7B D9 FB C9 00 00 00 00 00 00 ^w...y{.........
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 BD A2 06 00 DF D9 A1 00 00 00 C9 DF DC A1 ................
000160: 00 00 00 C9 DF DF A1 00 00 00 C9 DF E2 A1 00 00 ................
000170: 00 C9 16 DF 06 49 DF 06 9E DE 06 B6 DE 06 00 00 .....I..........
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: 20 57 52 49 54 45 4C 4E 28 27 56 65 6C 6B 6F 6D WRITELN('Velkom
000010: 6D 65 6E 2C 20 27 2C 20 6E 61 76 6E 2C 20 27 2E men, ', navn, '.
000020: 20 44 75 20 66 7D 72 20 6E 75 20 73 74 69 6C 6C Du f}r nu still
000030: 65 74 20 35 20 64 69 76 69 73 69 6F 6E 73 6F 70 et 5 divisionsop
000040: 67 61 76 65 72 27 29 3B 0D 0A 20 20 20 20 57 52 gaver');.. WR
000050: 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 61 6E 74 61 ITELN;.. anta
000060: 6C 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 72 69 67 l := 0;.. rig
000070: 74 69 67 65 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 tige := 0;..
000080: 66 65 6A 6C 20 3A 3D 20 46 41 4C 53 45 3B 0D 0A fejl := FALSE;..
000090: 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 REPEAT..
0000A0: 20 20 61 6E 74 61 6C 20 3A 3D 20 61 6E 74 61 6C antal := antal
0000B0: 20 2B 20 31 3B 0D 0A 20 20 20 20 20 20 64 69 76 + 1;.. div
0000C0: 69 64 65 6E 64 31 20 3A 3D 20 52 41 4E 44 4F 4D idend1 := RANDOM
0000D0: 28 67 72 61 64 20 2B 20 31 29 3B 0D 0A 20 20 20 (grad + 1);..
0000E0: 20 20 20 64 69 76 69 64 65 6E 64 32 20 3A 3D 20 dividend2 :=
0000F0: 52 41 4E 44 4F 4D 28 67 72 61 64 20 2B 20 31 29 RANDOM(grad + 1)
000100: 3B 0D 0A 20 20 20 20 20 20 64 69 76 69 73 6F 72 ;.. divisor
000110: 31 20 3A 3D 20 52 41 4E 44 4F 4D 28 67 72 61 64 1 := RANDOM(grad
000120: 29 20 2B 31 20 3B 0D 0A 20 20 20 20 20 20 64 69 ) +1 ;.. di
000130: 76 69 73 6F 72 32 20 3A 3D 20 52 41 4E 44 4F 4D visor2 := RANDOM
000140: 28 67 72 61 64 29 20 2B 20 31 3B 0D 0A 20 20 20 (grad) + 1;..
000150: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
000160: 20 20 20 57 52 49 54 45 4C 4E 28 64 69 76 69 64 WRITELN(divid
000170: 65 6E 64 31 2C 20 27 2F 27 2C 20 64 69 76 69 73 end1, '/', divis
000180: 6F 72 31 2C 20 0D 0A 20 20 20 20 20 20 20 20 20 or1, ..
000190: 20 20 20 20 20 27 20 2B 20 27 2C 20 64 69 76 69 ' + ', divi
0001A0: 64 65 6E 64 32 2C 20 27 2F 27 2C 20 64 69 76 69 dend2, '/', divi
0001B0: 73 6F 72 32 2C 20 27 20 3D 20 3F 27 29 3B 0D 0A sor2, ' = ?');..
0001C0: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A WRITELN;..
0001D0: 20 20 20 20 20 20 64 69 76 69 64 65 6E 64 20 3A dividend :
0001E0: 3D 20 64 69 76 69 64 65 6E 64 31 20 2A 20 64 69 = dividend1 * di
0001F0: 76 69 73 6F 72 32 20 2B 20 64 69 76 69 64 65 6E visor2 + dividen
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
000010: 64 65 6D 6F 5F 73 74 72 3B 0D 0A 20 20 20 20 20 demo_str;..
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 65 6E 67 20 3D 20 53 54 52 49 4E 47 streng = STRING
000050: 28 2E 33 30 2E 29 3B 0D 0A 20 20 20 20 20 20 20 (.30.);..
000060: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 56 .. V
000070: 41 52 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 AR..
000080: 74 61 6C 31 20 3A 20 52 45 41 4C 3B 0D 0A 20 20 tal1 : REAL;..
000090: 20 20 20 20 20 20 20 20 20 20 74 61 6C 32 20 3A tal2 :
0000A0: 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 INTEGER;..
0000B0: 20 20 20 20 20 20 20 73 74 72 65 6E 67 31 2C 20 streng1,
0000C0: 73 74 72 65 6E 67 32 20 3A 20 73 74 72 65 6E 67 streng2 : streng
0000D0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 ;.. ..
0000E0: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A BEGIN..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 74 61 6C 31 tal1
000100: 20 3A 3D 20 50 49 3B 0D 0A 20 20 20 20 20 20 20 := PI;..
000110: 20 20 20 20 20 74 61 6C 32 20 3A 3D 20 54 52 55 tal2 := TRU
000120: 4E 43 28 32 33 20 2F 20 33 29 3B 0D 0A 20 20 20 NC(23 / 3);..
000130: 20 20 20 20 20 20 20 20 20 53 54 52 28 74 61 6C STR(tal
000140: 31 3A 36 3A 34 2C 20 73 74 72 65 6E 67 31 29 3B 1:6:4, streng1);
000150: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 53 54 .. ST
000160: 52 28 74 61 6C 32 3A 34 2C 20 73 74 72 65 6E 67 R(tal2:4, streng
000170: 32 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 2);..
000180: 20 57 52 49 54 45 4C 4E 28 73 74 72 65 6E 67 31 WRITELN(streng1
000190: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
0001A0: 57 52 49 54 45 4C 4E 28 73 74 72 65 6E 67 32 29 WRITELN(streng2)
0001B0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 45 4E 44 ;.. END
0001C0: 2E 0D 0A 1A 34 2C 20 73 74 72 65 6E 67 31 29 3B ....4, streng1);
0001D0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 53 54 .. ST
0001E0: 52 28 74 61 6C 32 3A 34 2C 20 73 74 72 65 6E 67 R(tal2:4, streng
0001F0: 32 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 2);..
Size : 512 (Real : 512)
000000: 64 32 20 2A 20 64 69 76 69 73 6F 72 31 3B 0D 0A d2 * divisor1;..
000010: 20 20 20 20 20 20 64 69 76 69 73 6F 72 20 3A 3D divisor :=
000020: 20 64 69 76 69 73 6F 72 31 20 2A 20 64 69 76 69 divisor1 * divi
000030: 73 6F 72 32 3B 0D 0A 20 20 20 20 20 20 66 6F 72 sor2;.. for
000040: 6B 6F 72 74 28 64 69 76 69 64 65 6E 64 2C 20 64 kort(dividend, d
000050: 69 76 69 73 6F 72 29 3B 0D 0A 20 20 20 20 20 20 ivisor);..
000060: 66 6F 72 73 6F 65 67 20 3A 3D 20 30 3B 0D 0A 20 forsoeg := 0;..
000070: 20 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 REPEAT..
000080: 20 20 20 20 20 66 6F 72 73 6F 65 67 20 3A 3D 20 forsoeg :=
000090: 66 6F 72 73 6F 65 67 20 2B 20 31 3B 0D 0A 20 20 forsoeg + 1;..
0000A0: 20 20 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 WRITE('Ind
0000B0: 74 61 73 74 20 74 7B 6C 6C 65 72 3A 20 27 29 3B tast t{ller: ');
0000C0: 20 52 45 41 44 4C 4E 28 74 61 65 6C 6C 65 72 29 READLN(taeller)
0000D0: 3B 0D 0A 20 20 20 20 20 20 20 20 57 52 49 54 45 ;.. WRITE
0000E0: 28 27 49 6E 64 74 61 73 74 20 6E 7B 76 6E 65 72 ('Indtast n{vner
0000F0: 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 6E 61 65 : '); READLN(nae
000100: 76 6E 65 72 29 3B 0D 0A 20 20 20 20 20 20 20 20 vner);..
000110: 49 46 20 28 64 69 76 69 64 65 6E 64 20 3D 20 74 IF (dividend = t
000120: 61 65 6C 6C 65 72 29 20 41 4E 44 20 28 64 69 76 aeller) AND (div
000130: 69 73 6F 72 20 3D 20 6E 61 65 76 6E 65 72 29 0D isor = naevner).
000140: 0A 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 0D . THEN.
000150: 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 . BEG
000160: 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 IN..
000170: 20 20 57 52 49 54 45 4C 4E 28 27 53 76 61 72 65 WRITELN('Svare
000180: 74 20 65 72 20 6B 6F 72 72 65 6B 74 27 29 3B 0D t er korrekt');.
000190: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 . r
0001A0: 69 67 74 69 67 65 20 3A 3D 20 72 69 67 74 69 67 igtige := rigtig
0001B0: 65 20 2B 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 e + 1;..
0001C0: 20 20 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 20 END..
0001D0: 20 20 20 45 4C 53 45 0D 0A 20 20 20 20 20 20 20 ELSE..
0001E0: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
0001F0: 20 20 20 20 20 20 20 20 20 20 66 65 6A 6C 20 3A fejl :
Size : 512 (Real : 512)
000000: F4 08 79 C8 D7 94 1F 9A C7 D1 B8 66 B0 F5 6C C2 ..y........f..l.
000010: 64 18 90 2E 98 83 54 6A DC AE 68 06 80 69 0C 26 d.....Tj..h..i.&
000020: A6 48 41 D6 D2 48 98 92 89 8C 1D 7E AC 50 26 27 .HA..H.....~.P&'
000030: EB B2 40 4E 9D 31 F1 6F 69 B4 19 A2 8A 4E 56 DA ..@N.1.oi....NV.
000040: 1D 6C 02 AB 57 12 B4 F6 88 A7 E9 C0 83 0E 82 11 .l..W...........
000050: DE EB E6 93 4C F8 9B 61 A3 49 76 A2 F5 16 76 20 ....L..a.Iv...v
000060: 66 47 3F 57 86 BF E5 D5 C7 BD 54 91 84 4B A9 58 fG?W......T..K.X
000070: 50 D8 75 F5 D3 47 E6 DE 18 14 63 43 D2 33 A8 C9 P.u..G....cC.3..
000080: BC DF 36 F9 D0 92 92 6B 78 C3 8E 05 58 74 F8 55 ..6....kx...Xt.U
000090: AD DD 52 4C 16 AF 54 8B 54 68 5A 5D C8 15 7E F1 ..RL..T.ThZ]..~.
0000A0: 0A 39 92 00 66 6E 5A ED 57 F5 24 82 EF 0F 1A 46 .9..fnZ.W.$....F
0000B0: 70 6A CD DD 13 AA 9E 9D F7 30 B7 F6 DA E9 38 46 pj.......0....8F
0000C0: 55 F3 CF C7 44 1D 07 9E ED 61 97 82 FD 3F 30 2A U...D....a...?0*
0000D0: 78 6A 21 44 7A 8E 05 22 35 B8 60 22 C7 91 8E A7 xj!Dz.."5.`"....
0000E0: CC C5 62 8B 80 A9 D6 3F 14 ED CA 43 C8 B1 7E 67 ..b....?...C..~g
0000F0: 2C B5 C2 EB 90 D9 66 8F 74 4D 2A 03 68 D1 7E E7 ,.....f.tM*.h.~.
000100: 0C A5 A2 4B 00 49 56 5F 54 CD 5A 23 78 F1 1E 47 ...K.IV_T.Z#x..G
000110: AC 15 62 6B 10 39 36 4F 64 8D 6A 43 38 71 0E 27 ..bk.96Od.jC8q.'
000120: 5C A5 22 4B 50 89 06 9F 74 ED 6A C3 28 11 0E E7 \."KP...t.j.(...
000130: 6C 55 12 CB 40 D9 C6 AF 64 ED 3A E3 88 B1 6E 27 lU..@...d.:...n'
000140: F3 11 ED 45 ED 53 38 00 31 F8 BF 01 C4 7F ED 49 ...E.S8.1......I
000150: 21 00 C0 11 00 40 01 A0 0F ED B0 CD 00 40 01 C0 !....@.......@..
000160: 7F ED 49 0E 8C ED 49 21 42 03 11 E0 92 01 3A 2C ..I...I!B.....:,
000170: ED B0 CD B4 7E CD D3 7E CD 56 8B CD 44 7F FB C3 ....~..~.V..D...
000180: E0 79 CC CC EC CC CC CC EC CC CC CC EC CC CC CC .y..............
000190: EC CC CC CC EC CC CC CC EC CC CC CC EC CC CC CC ................
0001A0: EC CC CC CC EC CC CC CC EC CC CC CC CC CC CC CC ................
0001B0: EC CC CC CC CC EC CC CC CC EC CC CC CC EC CC CC ................
0001C0: CC EC CC CC CC EC CC CC CC EC CC CC CC EC CC CC ................
0001D0: CC EC CC CC CC EC CC CC CC EC CC CC FF BB 33 39 ..............39
0001E0: CC EC CC CC CC CC EC CC CC CC EC CC CC CC EC CC ................
0001F0: CC CC EC CC CC CC EC CC CC CC EC CC CC CC EC CC ................
Size : 512 (Real : 512)
000000: 3D 20 54 52 55 45 3B 0D 0A 20 20 20 20 20 20 20 = TRUE;..
000010: 20 20 20 20 20 20 20 49 46 20 66 6F 72 73 6F 65 IF forsoe
000020: 67 20 3C 20 33 0D 0A 20 20 20 20 20 20 20 20 20 g < 3..
000030: 20 20 20 20 20 20 20 54 48 45 4E 20 57 52 49 54 THEN WRIT
000040: 45 4C 4E 28 27 53 76 61 72 65 74 20 65 72 20 69 ELN('Svaret er i
000050: 6B 6B 65 20 6B 6F 72 72 65 6B 74 20 2D 20 50 72 kke korrekt - Pr
000060: 7C 76 20 69 67 65 6E 3A 27 29 0D 0A 20 20 20 20 |v igen:')..
000070: 20 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 ELSE
000080: 20 57 52 49 54 45 4C 4E 28 27 4E 65 6A 2C 20 64 WRITELN('Nej, d
000090: 65 74 20 6B 6F 72 72 65 6B 74 65 20 73 76 61 72 et korrekte svar
0000A0: 20 65 72 20 27 2C 0D 0A 20 20 20 20 20 20 20 20 er ',..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 20 20 20 20 64 69 76 69 64 65 6E 64 2C 20 27 dividend, '
0000D0: 2F 27 2C 20 64 69 76 69 73 6F 72 29 3B 0D 0A 20 /', divisor);..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D END;.
0000F0: 0A 20 20 20 20 20 20 55 4E 54 49 4C 20 28 66 6F . UNTIL (fo
000100: 72 73 6F 65 67 20 3D 20 33 29 20 4F 52 0D 0A 20 rsoeg = 3) OR..
000110: 20 20 20 20 20 20 20 20 20 20 20 28 28 64 69 76 ((div
000120: 69 64 65 6E 64 20 3D 20 74 61 65 6C 6C 65 72 29 idend = taeller)
000130: 20 41 4E 44 20 28 64 69 76 69 73 6F 72 20 3D 20 AND (divisor =
000140: 6E 61 65 76 6E 65 72 29 29 3B 0D 0A 20 20 20 20 naevner));..
000150: 20 20 57 52 49 54 45 28 27 54 61 73 74 20 3C 52 WRITE('Tast <R
000160: 45 54 55 52 4E 3E 3A 20 27 29 3B 20 52 45 41 44 ETURN>: '); READ
000170: 4C 4E 28 63 68 29 3B 0D 0A 20 20 20 20 55 4E 54 LN(ch);.. UNT
000180: 49 4C 20 61 6E 74 61 6C 20 3D 20 35 3B 0D 0A 20 IL antal = 5;..
000190: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
0001A0: 20 43 41 53 45 20 72 69 67 74 69 67 65 20 4F 46 CASE rigtige OF
0001B0: 0D 0A 20 20 20 20 20 20 30 20 3A 20 57 52 49 54 .. 0 : WRIT
0001C0: 45 4C 4E 28 27 49 6B 6B 65 20 65 74 20 65 6E 65 ELN('Ikke et ene
0001D0: 73 74 65 20 72 69 67 74 69 67 74 20 73 76 61 72 ste rigtigt svar
0001E0: 21 20 4A 61 6D 65 6E 20 27 2C 20 6E 61 76 6E 2C ! Jamen ', navn,
0001F0: 20 27 20 64 6F 67 21 27 29 3B 0D 0A 20 20 20 20 ' dog!');..
Size : 512 (Real : 512)
000000: 73 6F 72 20 2B 20 31 3B 0D 0A 20 20 20 20 55 4E sor + 1;.. UN
000010: 54 49 4C 20 64 69 76 69 73 6F 72 20 3E 20 53 51 TIL divisor > SQ
000020: 52 54 28 68 65 6C 74 61 6C 29 3B 0D 0A 20 20 20 RT(heltal);..
000030: 20 57 52 49 54 45 4C 4E 28 68 65 6C 74 61 6C 20 WRITELN(heltal
000040: 3A 20 36 29 3B 0D 0A 20 20 45 4E 44 2E 0D 0A 1A : 6);.. END....
000050: 73 6F 72 20 3A 20 36 29 3B 0D 0A 20 20 20 20 20 sor : 6);..
000060: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
000070: 20 64 69 76 69 73 6F 72 20 3A 3D 20 64 69 76 69 divisor := divi
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 31 20 3A 20 57 52 49 54 45 4C 4E 28 27 4B 1 : WRITELN('K
000010: 75 6E 20 31 20 72 69 67 74 69 67 74 20 73 76 61 un 1 rigtigt sva
000020: 72 20 2D 20 65 6C 65 6E 64 69 67 74 20 27 2C 20 r - elendigt ',
000030: 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 20 20 32 20 navn);.. 2
000040: 3A 20 57 52 49 54 45 4C 4E 28 27 32 20 72 69 67 : WRITELN('2 rig
000050: 74 69 67 65 20 73 76 61 72 20 2D 20 64 65 74 20 tige svar - det
000060: 65 72 20 69 6B 6B 65 20 73 74 72 7D 6C 65 6E 64 er ikke str}lend
000070: 65 20 27 2C 20 6E 61 76 6E 29 3B 0D 0A 20 20 20 e ', navn);..
000080: 20 20 20 33 20 3A 20 57 52 49 54 45 4C 4E 28 27 3 : WRITELN('
000090: 33 20 72 69 67 74 69 67 65 20 73 76 61 72 20 2D 3 rigtige svar -
0000A0: 20 64 65 74 20 6B 75 6E 6E 65 20 76 7B 72 65 20 det kunne v{re
0000B0: 62 65 64 72 65 20 27 2C 20 6E 61 76 6E 29 3B 0D bedre ', navn);.
0000C0: 0A 20 20 20 20 20 20 34 20 3A 20 57 52 49 54 45 . 4 : WRITE
0000D0: 4C 4E 28 27 4B 75 6E 20 65 74 20 66 6F 72 6B 65 LN('Kun et forke
0000E0: 72 74 20 73 76 61 72 20 2D 20 69 6B 6B 65 20 76 rt svar - ikke v
0000F0: 7B 72 73 74 20 27 2C 20 6E 61 76 6E 29 3B 0D 0A {rst ', navn);..
000100: 20 20 20 20 20 20 35 20 3A 20 42 45 47 49 4E 0D 5 : BEGIN.
000110: 0A 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 . IF
000120: 66 65 6A 6C 0D 0A 20 20 20 20 20 20 20 20 20 20 fejl..
000130: 20 20 20 20 54 48 45 4E 20 57 52 49 54 45 4C 4E THEN WRITELN
000140: 28 27 47 6F 64 74 20 27 2C 20 6E 61 76 6E 2C 20 ('Godt ', navn,
000150: 27 20 35 20 72 69 67 74 69 67 65 20 73 76 61 72 ' 5 rigtige svar
000160: 20 2D 20 6F 6D 65 6E 64 20 27 2C 0D 0A 20 20 20 - omend ',..
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 20 20 20 20 20 20 20 20 27 69 6B 6B 65 20 61 6C 'ikke al
000190: 6C 65 20 69 20 66 7C 72 73 74 65 20 66 6F 72 73 le i f|rste fors
0001A0: 7C 67 27 29 0D 0A 20 20 20 20 20 20 20 20 20 20 |g')..
0001B0: 20 20 20 20 45 4C 53 45 20 57 52 49 54 45 4C 4E ELSE WRITELN
0001C0: 28 27 50 65 72 66 65 6B 74 20 27 2C 20 6E 61 76 ('Perfekt ', nav
0001D0: 6E 2C 20 27 20 2D 20 64 65 74 20 6B 75 6E 6E 65 n, ' - det kunne
0001E0: 20 69 6B 6B 65 20 76 7B 72 65 20 62 65 64 72 65 ikke v{re bedre
0001F0: 21 27 29 3B 0D 0A 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: 64 69 76 69 73 6F 72 32 3B 0D 0A 20 20 20 20 20 divisor2;..
000020: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 56 41 52 .. VAR
000030: 0D 0A 20 20 20 20 20 20 20 20 20 20 74 61 6C 2C .. tal,
000040: 20 67 6C 74 61 6C 2C 20 66 61 6B 74 6F 72 2C 20 gltal, faktor,
000050: 64 69 76 69 73 6F 72 20 3A 20 49 4E 54 45 47 45 divisor : INTEGE
000060: 52 3B 0D 0A 20 20 20 20 20 20 20 20 0D 0A 20 20 R;.. ..
000070: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
000080: 20 20 20 20 20 20 20 57 52 49 54 45 28 43 48 52 WRITE(CHR
000090: 28 31 32 29 2C 20 27 49 6E 64 74 61 73 74 20 65 (12), 'Indtast e
0000A0: 74 20 68 65 6C 74 20 74 61 6C 3A 20 27 29 3B 20 t helt tal: ');
0000B0: 52 45 41 44 4C 4E 28 74 61 6C 29 3B 0D 0A 20 20 READLN(tal);..
0000C0: 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49 WRITE('I
0000D0: 6E 64 74 61 73 74 20 64 69 76 69 73 6F 72 3A 20 ndtast divisor:
0000E0: 27 29 3B 20 52 45 41 44 4C 4E 28 64 69 76 69 73 '); READLN(divis
0000F0: 6F 72 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 or);..
000100: 66 61 6B 74 6F 72 20 3A 3D 20 30 3B 0D 0A 20 20 faktor := 0;..
000110: 20 20 20 20 20 20 20 20 67 6C 74 61 6C 20 3A 3D gltal :=
000120: 20 74 61 6C 3B 0D 0A 20 20 20 20 20 20 20 20 20 tal;..
000130: 20 57 48 49 4C 45 20 74 61 6C 20 4D 4F 44 20 64 WHILE tal MOD d
000140: 69 76 69 73 6F 72 20 3D 20 30 20 44 4F 0D 0A 20 ivisor = 0 DO..
000150: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E BEGIN
000160: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000170: 66 61 6B 74 6F 72 20 3A 3D 20 66 61 6B 74 6F 72 faktor := faktor
000180: 20 2B 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 +1;..
000190: 20 20 20 20 74 61 6C 20 3A 3D 20 74 61 6C 20 44 tal := tal D
0001A0: 49 56 20 64 69 76 69 73 6F 72 3B 0D 0A 20 20 20 IV divisor;..
0001B0: 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 END;..
0001C0: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
0001D0: 28 67 6C 74 61 6C 2C 20 27 20 69 6E 64 65 68 6F (gltal, ' indeho
0001E0: 6C 64 65 72 20 66 61 6B 74 6F 72 65 6E 20 27 2C lder faktoren ',
0001F0: 20 64 69 76 69 73 6F 72 2C 20 27 20 27 2C 0D 0A divisor, ' ',..
Size : 512 (Real : 512)
000000: 45 4E 44 3B 0D 0A 20 20 20 20 45 4E 44 3B 0D 0A END;.. END;..
000010: 20 20 45 4E 44 2E 20 28 2A 64 69 76 69 73 69 6F END. (*divisio
000020: 6E 20 2A 29 0D 0A 1A 20 20 20 20 20 20 20 20 20 n *)...
000030: 20 20 20 20 45 4C 53 45 20 57 52 49 54 45 4C 4E ELSE WRITELN
000040: 28 27 50 65 72 66 65 6B 74 20 27 2C 20 6E 61 76 ('Perfekt ', nav
000050: 6E 2C 20 27 20 2D 20 64 65 74 20 6B 75 6E 6E 65 n, ' - det kunne
000060: 20 69 6B 6B 65 20 76 7B 72 65 20 62 65 64 72 65 ikke v{re bedre
000070: 21 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 !');..
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 18 3C 7E FF 18 18 18 18 18 18 18 18 FF ....<~..........
000150: 7E 3C 18 10 30 70 FF FF 70 30 10 08 0C 0E FF FF ~<..0p..p0......
000160: 0E 0C 08 00 00 18 3C 7E FF FF 00 00 00 FF FF 7E ......<~.......~
000170: 3C 18 00 80 E0 F8 FE F8 E0 80 00 02 0E 3E FE 3E <............>.>
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: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 20 66 61 6B 74 6F 72 2C 20 27 20 67 61 6E 67 faktor, ' gang
000020: 65 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E e');.. EN
000030: 44 2E 0D 0A 1A 20 20 20 20 45 4E 44 3B 0D 0A 20 D.... END;..
000040: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
000050: 28 67 6C 74 61 6C 2C 20 27 20 69 6E 64 65 68 6F (gltal, ' indeho
000060: 6C 64 65 72 20 66 61 6B 74 6F 72 65 6E 20 27 2C lder faktoren ',
000070: 20 64 69 76 69 73 6F 72 2C 20 27 20 27 2C 0D 0A divisor, ' ',..
000080: 24 00 03 07 00 AA 00 3F 00 C0 00 10 00 02 00 02 $......?........
000090: 03 00 28 09 41 00 02 2A 52 60 43 50 43 20 43 50 ..(.A..*R`CPC CP
0000A0: 2F 4D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 /M
0000B0: 24 00 03 07 00 B3 00 3F 00 C0 00 10 00 00 00 02 $......?........
0000C0: 03 00 28 09 C1 00 02 2A 52 60 43 50 43 20 44 41 ..(....*R`CPC DA
0000D0: 54 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 TA
0000E0: 20 00 03 07 00 9B 00 3F 00 C0 00 10 00 01 00 02 ......?........
0000F0: 03 00 28 08 01 00 02 2A 50 60 43 50 43 20 49 42 ..(....*P`CPC IB
000100: 4D 20 20 20 20 20 20 20 20 20 20 20 20 20 30 A2 M 0.
000110: 03 00 00 0F 01 D1 00 7F 00 C0 00 20 00 00 00 02 ........... ....
000120: 03 01 2A 0A 21 00 02 18 28 60 44 72 61 67 6F 6E ..*.!...(`Dragon
000130: 42 72 65 65 64 20 34 32 30 4B DE F5 C5 3A 1C AD Breed 420K...:..
000140: 4F CD 0F B9 79 32 15 AD C1 F1 ED B0 F5 C5 0E 00 O...y2..........
000150: CD 0F B9 C1 F1 C9 02 2A 00 60 56 6F 72 74 FF 78 .......*.`Vort.x
000160: 20 20 20 20 20 20 01 00 20 20 20 20 20 20 20 20 ..
000170: 24 00 05 1F 03 B0 00 7F 00 80 00 20 00 02 00 02 $.......... ....
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: FF FF FF BA BB FD FF FB F3 3C 3C 3C 28 00 00 00 .........<<<(...
000010: 00 00 DC 38 30 33 33 FF FF FF FF FF FF BB FD FF ...8033.........
000020: CF 3C 00 00 00 00 00 00 00 00 44 39 33 33 FF FF .<........D933..
000030: FE FC 3C 3C 6D DD BB FC EF 8A 00 00 00 00 00 00 ..<<m...........
000040: 00 00 00 44 FC FC FC FC FC 28 00 00 00 00 DF 27 ...D.....(.....'
000050: 0F FD 3C 00 00 00 00 00 00 00 00 00 00 00 00 00 ..<.............
000060: 00 00 00 00 00 00 00 DF 0E 0C 5B FF 3C 00 00 00 ..........[.<...
000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 14 ................
000080: AF 0C 0C 0D F9 FF BC 00 00 00 00 00 00 00 00 00 ................
000090: 00 00 00 00 00 00 00 00 7D 07 0C 0C 0D FC FF 32 ........}......2
0000A0: 28 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 (...............
0000B0: 01 75 07 0C 0C 0D 3C 3C FF 74 00 00 00 00 00 00 .u....<<.t......
0000C0: 00 00 00 00 00 00 00 00 00 B8 AB 07 0C 0C 0D A8 ................
0000D0: 00 3C 3C 00 00 00 00 00 00 00 00 00 00 00 00 00 .<<.............
0000E0: 00 54 FF BC 7C 0E 0C 4E A2 00 00 00 00 00 00 00 .T..|..N........
0000F0: 00 00 00 00 00 00 00 00 00 00 A9 16 00 00 8D 0F ................
000100: 44 88 00 00 00 00 00 00 00 00 00 00 00 00 00 00 D...............
000110: 00 00 00 00 00 00 44 00 00 00 00 00 00 00 00 00 ......D.........
000120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000130: 3F 3F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ??..............
000140: 00 00 00 00 00 00 00 00 15 31 F9 2A 00 00 00 00 .........1.*....
000150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000160: 00 3A 33 F9 B7 00 00 00 00 00 00 00 00 00 00 00 .:3.............
000170: 00 00 00 00 00 00 00 00 00 00 3B B3 F9 B7 00 00 ..........;.....
000180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000190: 00 00 14 7B B3 F9 B7 28 00 00 00 00 00 00 00 00 ...{...(........
0001A0: 00 00 00 00 00 00 00 00 00 00 00 38 7B B3 F9 B7 ...........8{...
0001B0: BE 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001C0: 00 00 00 FC B9 35 B3 F9 3F FE FC A8 00 00 00 00 .....5..?.......
0001D0: 00 00 00 00 00 00 00 00 00 00 FC FC 33 76 32 3B ............3v2;
0001E0: BD B6 BC 79 F6 FC A8 00 00 00 00 00 00 00 44 00 ...y..........D.
0001F0: 00 FC FC 32 30 30 33 12 31 FD B6 BC F3 FF FF FC ...2003.1.......
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
000010: 64 6F 62 62 65 6C 74 3B 0D 0A 20 20 20 20 20 20 dobbelt;..
000020: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 54 59 .. TY
000030: 50 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 PE..
000040: 73 74 72 34 30 20 3D 20 53 54 52 49 4E 47 28 2E str40 = STRING(.
000050: 34 30 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 40.);..
000060: 20 20 20 6C 69 6E 6B 20 3D 20 5E 20 70 6F 73 74 link = ^ post
000070: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 70 ;.. p
000080: 6F 73 74 20 3D 20 52 45 43 4F 52 44 0D 0A 20 20 ost = RECORD..
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000A0: 20 20 20 66 72 65 6D 2C 20 74 69 6C 62 61 67 65 frem, tilbage
0000B0: 20 3A 20 6C 69 6E 6B 3B 0D 0A 20 20 20 20 20 20 : link;..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6E n
0000D0: 61 76 6E 20 3A 20 73 74 72 34 30 3B 0D 0A 20 20 avn : str40;..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 61 64 72 65 73 73 65 20 3A 20 73 74 72 adresse : str
000100: 34 30 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 40;..
000110: 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 END;..
000120: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 ..
000130: 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 20 VAR..
000140: 20 20 20 20 20 75 64 2C 20 74 6F 70 2C 20 62 75 ud, top, bu
000150: 6E 64 2C 20 70 70 20 3A 20 6C 69 6E 6B 3B 0D 0A nd, pp : link;..
000160: 20 20 20 20 20 20 20 20 20 20 20 20 63 68 20 3A ch :
000170: 20 43 48 41 52 3B 0D 0A 20 20 20 20 20 20 20 20 CHAR;..
000180: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 50 52 .. PR
000190: 4F 43 45 44 55 52 45 20 72 65 74 75 72 6E 3B 0D OCEDURE return;.
0001A0: 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 . ..
0001B0: 20 20 20 20 20 20 20 20 20 56 41 52 0D 0A 20 20 VAR..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 63 68 20 3A ch :
0001D0: 20 43 48 41 52 3B 0D 0A 20 20 20 20 20 20 20 20 CHAR;..
0001E0: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 42 45 .. BE
0001F0: 47 49 4E 20 28 2A 20 72 65 74 75 72 6E 20 2A 29 GIN (* return *)
Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 64 69 76 69 73 6F 72 3B PROGRAM divisor;
000010: 0D 0A 0D 0A 28 2A 20 50 72 6F 67 72 61 6D 6D 65 ....(* Programme
000020: 74 20 66 69 6E 64 65 72 20 64 69 76 69 73 6F 72 t finder divisor
000030: 65 72 6E 65 20 69 20 65 74 20 68 65 6C 74 61 6C erne i et heltal
000040: 20 2A 29 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 *).... VAR..
000050: 20 20 68 65 6C 74 61 6C 2C 20 64 69 76 69 73 6F heltal, diviso
000060: 72 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 r : INTEGER;..
000070: 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 57 .. BEGIN.. W
000080: 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 RITE(CLRHOM);..
000090: 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 73 WRITE('Indtas
0000A0: 74 20 65 74 20 68 65 6C 74 61 6C 3A 20 27 29 3B t et heltal: ');
0000B0: 20 52 45 41 44 4C 4E 28 68 65 6C 74 61 6C 29 3B READLN(heltal);
0000C0: 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 68 65 .. WRITELN(he
0000D0: 6C 74 61 6C 2C 20 27 20 68 61 72 20 66 7C 6C 67 ltal, ' har f|lg
0000E0: 65 6E 64 65 20 64 69 76 69 73 6F 72 65 72 3A 27 ende divisorer:'
0000F0: 29 3B 0D 0A 20 20 20 20 64 69 76 69 73 6F 72 20 );.. divisor
000100: 3A 3D 20 32 3B 0D 0A 20 20 20 20 52 45 50 45 41 := 2;.. REPEA
000110: 54 0D 0A 20 20 20 20 20 20 49 46 20 28 68 65 6C T.. IF (hel
000120: 74 61 6C 20 4D 4F 44 20 64 69 76 69 73 6F 72 29 tal MOD divisor)
000130: 20 3D 20 30 0D 0A 20 20 20 20 20 20 20 20 54 48 = 0.. TH
000140: 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 42 45 EN.. BE
000150: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
000160: 20 57 52 49 54 45 28 64 69 76 69 73 6F 72 20 3A WRITE(divisor :
000170: 20 36 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 6);..
000180: 20 20 49 46 20 64 69 76 69 73 6F 72 20 3C 3E 20 IF divisor <>
000190: 28 68 65 6C 74 61 6C 20 44 49 56 20 64 69 76 69 (heltal DIV divi
0001A0: 73 6F 72 29 0D 0A 20 20 20 20 20 20 20 20 20 20 sor)..
0001B0: 20 20 20 20 54 48 45 4E 20 57 52 49 54 45 4C 4E THEN WRITELN
0001C0: 28 68 65 6C 74 61 6C 20 44 49 56 20 64 69 76 69 (heltal DIV divi
0001D0: 73 6F 72 20 3A 20 36 29 3B 0D 0A 20 20 20 20 20 sor : 6);..
0001E0: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
0001F0: 20 64 69 76 69 73 6F 72 20 3A 3D 20 64 69 76 69 divisor := divi
Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 57 52 .. WR
000010: 49 54 45 28 27 54 61 73 74 20 3C 52 45 54 55 52 ITE('Tast <RETUR
000020: 4E 3E 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 N>: ');..
000030: 20 20 20 20 20 52 45 50 45 41 54 0D 0A 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 55 4E 54 49 4C 20 63 68 20 UNTIL ch
000070: 3D 20 43 48 52 28 31 33 29 3B 0D 0A 20 20 20 20 = CHR(13);..
000080: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B WRITELN;
000090: 0D 0A 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B .. END;
0000A0: 20 28 2A 20 72 65 74 75 72 6E 20 2A 29 0D 0A 20 (* return *)..
0000B0: 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 ..
0000C0: 20 20 20 20 20 50 52 4F 43 45 44 55 52 45 20 69 PROCEDURE i
0000D0: 6E 64 73 61 65 74 28 56 41 52 20 66 6F 65 72 73 ndsaet(VAR foers
0000E0: 74 65 2C 20 73 69 64 73 74 65 20 3A 20 6C 69 6E te, sidste : lin
0000F0: 6B 3B 20 6E 79 70 6F 73 74 20 3A 20 6C 69 6E 6B k; nypost : link
000100: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
000110: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 56 41 .. VA
000120: 52 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 R..
000130: 20 66 6F 72 61 6E 2C 20 6B 61 6E 64 69 64 61 74 foran, kandidat
000140: 20 3A 20 6C 69 6E 6B 3B 0D 0A 20 20 20 20 20 20 : link;..
000150: 20 20 20 20 20 20 20 20 66 75 6E 64 65 74 20 3A fundet :
000160: 20 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 20 20 20 BOOLEAN;..
000170: 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 ..
000180: 20 20 20 20 20 42 45 47 49 4E 20 28 2A 20 69 6E BEGIN (* in
000190: 64 73 61 65 74 20 2A 29 0D 0A 20 20 20 20 20 20 dsaet *)..
0001A0: 20 20 20 20 20 20 20 20 49 46 20 66 6F 65 72 73 IF foers
0001B0: 74 65 20 3D 20 4E 49 4C 20 28 2A 20 6B 7B 64 65 te = NIL (* k{de
0001C0: 6E 20 65 72 20 74 6F 6D 20 2A 29 0D 0A 20 20 20 n er tom *)..
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 THE
0001E0: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 N..
0001F0: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 49 46 20 66 6F 65 IF foe
000010: 72 73 74 65 5E 2E 66 72 65 6D 20 3D 20 4E 49 4C rste^.frem = NIL
000020: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000030: 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 THEN..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 20 20 42 45 47 49 4E 0D 0A 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 6F 65 72 73 74 65 20 3A 3D 20 4E 49 4C 3B foerste := NIL;
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 73 69 64 73 74 65 sidste
0000A0: 20 3A 3D 20 4E 49 4C 3B 0D 0A 20 20 20 20 20 20 := NIL;..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 20 66 75 6E 64 65 74 20 3A 3D 20 54 52 55 45 fundet := TRUE
0000D0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
0000E0: 20 20 20 20 20 20 20 20 20 45 4E 44 0D 0A 20 20 END..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 20 45 4C 53 45 0D 0A 20 20 20 20 20 20 20 20 ELSE..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 BE
000120: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6F 65 foe
000140: 72 73 74 65 5E 2E 66 72 65 6D 5E 2E 74 69 6C 62 rste^.frem^.tilb
000150: 61 67 65 20 3A 3D 20 4E 49 4C 3B 0D 0A 20 20 20 age := NIL;..
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000170: 20 20 20 20 20 66 6F 65 72 73 74 65 20 3A 3D 20 foerste :=
000180: 66 6F 65 72 73 74 65 5E 2E 66 72 65 6D 3B 0D 0A foerste^.frem;..
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 66 75 6E 64 65 74 20 3A fundet :
0001B0: 3D 20 54 52 55 45 3B 0D 0A 20 20 20 20 20 20 20 = TRUE;..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
0001D0: 4E 44 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ND..
0001E0: 20 20 45 4C 53 45 20 28 2A 20 53 7C 67 20 65 66 ELSE (* S|g ef
0001F0: 74 65 72 20 6E 61 76 6E 65 74 20 2A 29 0D 0A 20 ter navnet *)..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 66 6F 65 72 73 74 65 20 3A 3D 20 6E 79 70 6F 73 foerste := nypos
000020: 74 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 t;..
000030: 20 20 20 20 20 20 20 20 73 69 64 73 74 65 20 3A sidste :
000040: 3D 20 6E 79 70 6F 73 74 3B 0D 0A 20 20 20 20 20 = nypost;..
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 END
000060: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000070: 45 4C 53 45 20 49 46 20 6E 79 70 6F 73 74 5E 2E ELSE IF nypost^.
000080: 6E 61 76 6E 20 3C 20 66 6F 65 72 73 74 65 5E 2E navn < foerste^.
000090: 6E 61 76 6E 20 28 2A 20 66 7C 72 20 66 7C 72 73 navn (* f|r f|rs
0000A0: 74 65 20 70 6F 73 74 20 2A 29 0D 0A 20 20 20 20 te post *)..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E THEN
0000C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0000D0: 20 20 20 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 6E n
0000F0: 79 70 6F 73 74 5E 2E 66 72 65 6D 20 3A 3D 66 6F ypost^.frem :=fo
000100: 65 72 73 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 erste;..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 66 6F 65 72 foer
000120: 73 74 65 5E 2E 74 69 6C 62 61 67 65 20 3A 3D 20 ste^.tilbage :=
000130: 6E 79 70 6F 73 74 3B 0D 0A 20 20 20 20 20 20 20 nypost;..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6F 65 foe
000150: 72 73 74 65 20 3A 3D 6E 79 70 6F 73 74 3B 0D 0A rste :=nypost;..
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000170: 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 20 20 20 END..
000180: 20 20 20 20 20 45 4C 53 45 20 28 2A 20 66 69 6E ELSE (* fin
000190: 64 20 72 69 67 74 69 67 20 70 6C 61 64 73 20 74 d rigtig plads t
0001A0: 69 6C 20 6E 79 70 6F 73 74 20 2A 29 0D 0A 20 20 il nypost *)..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 BE
0001C0: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
0001D0: 20 20 20 20 20 20 20 66 75 6E 64 65 74 20 3A 3D fundet :=
0001E0: 46 41 4C 53 45 3B 0D 0A 20 20 20 20 20 20 20 20 FALSE;..
0001F0: 20 20 20 20 20 20 20 20 20 20 66 6F 72 61 6E 20 foran
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 B
000010: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
000020: 20 20 20 20 20 20 20 20 66 75 6E 64 65 74 20 3A fundet :
000030: 3D 20 46 41 4C 53 45 3B 0D 0A 20 20 20 20 20 20 = FALSE;..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 66 6F 72 61 fora
000050: 6E 20 3A 3D 20 66 6F 65 72 73 74 65 3B 0D 0A 20 n := foerste;..
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 6B 61 6E 64 69 64 61 74 20 3A 3D 20 66 6F 65 kandidat := foe
000080: 72 73 74 65 5E 2E 66 72 65 6D 3B 0D 0A 20 20 20 rste^.frem;..
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 W
0000A0: 48 49 4C 45 20 28 6B 61 6E 64 69 64 61 74 20 3C HILE (kandidat <
0000B0: 3E 20 4E 49 4C 29 20 41 4E 44 20 4E 4F 54 20 66 > NIL) AND NOT f
0000C0: 75 6E 64 65 74 20 44 4F 0D 0A 20 20 20 20 20 20 undet DO..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 IF
0000E0: 20 67 6C 70 6F 73 74 5E 2E 6E 61 76 6E 20 3D 20 glpost^.navn =
0000F0: 6B 61 6E 64 69 64 61 74 5E 2E 6E 61 76 6E 0D 0A kandidat^.navn..
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 THEN..
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000130: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 20 20 49 46 20 6B 61 6E 64 69 64 61 74 IF kandidat
000160: 20 3C 3E 20 73 69 64 73 74 65 0D 0A 20 20 20 20 <> sidste..
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 20 20 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 THEN..
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 BEGI
0001B0: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 N..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001D0: 20 20 20 66 6F 72 61 6E 5E 2E 66 72 65 6D 20 3A foran^.frem :
0001E0: 3D 20 6B 61 6E 64 69 64 61 74 5E 2E 66 72 65 6D = kandidat^.frem
0001F0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
Size : 512 (Real : 512)
000000: 3A 3D 20 66 6F 65 72 73 74 65 3B 0D 0A 20 20 20 := foerste;..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6B k
000020: 61 6E 64 69 64 61 74 20 3A 3D 66 6F 65 72 73 74 andidat :=foerst
000030: 65 5E 2E 66 72 65 6D 3B 0D 0A 20 20 20 20 20 20 e^.frem;..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 57 48 49 4C WHIL
000050: 45 20 28 6B 61 6E 64 69 64 61 74 20 3C 3E 20 4E E (kandidat <> N
000060: 49 4C 29 20 41 4E 44 20 4E 4F 54 20 66 75 6E 64 IL) AND NOT fund
000070: 65 74 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 et DO..
000080: 20 20 20 20 20 20 20 20 20 20 20 49 46 20 6E 79 IF ny
000090: 70 6F 73 74 5E 2E 6E 61 76 6E 20 3C 20 6B 61 6E post^.navn < kan
0000A0: 64 69 64 61 74 5E 2E 6E 61 76 6E 0D 0A 20 20 20 didat^.navn..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 20 20 54 48 45 4E 20 66 75 6E 64 65 74 20 3A THEN fundet :
0000D0: 3D 20 54 52 55 45 0D 0A 20 20 20 20 20 20 20 20 = TRUE..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4C EL
0000F0: 53 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 SE..
000100: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 BEGI
000110: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 N..
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6F 72 for
000130: 61 6E 20 3A 3D 20 6B 61 6E 64 69 64 61 74 3B 0D an := kandidat;.
000140: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000150: 20 20 20 20 20 20 20 20 20 20 20 6B 61 6E 64 69 kandi
000160: 64 61 74 20 3A 3D 20 6B 61 6E 64 69 64 61 74 5E dat := kandidat^
000170: 2E 66 72 65 6D 3B 0D 0A 20 20 20 20 20 20 20 20 .frem;..
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000190: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 END;..
0001A0: 20 20 20 20 20 20 20 20 49 46 20 66 6F 72 61 6E IF foran
0001B0: 20 3C 3E 20 73 69 64 73 74 65 0D 0A 20 20 20 20 <> sidste..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001D0: 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 THEN..
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 BEGI
0001F0: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 N..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 20 20 6B 61 6E 64 69 64 61 74 5E 2E 66 72 65 kandidat^.fre
000020: 6D 5E 2E 74 69 6C 62 61 67 65 20 3A 3D 20 66 6F m^.tilbage := fo
000030: 72 61 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ran;..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 20 20 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 20 END..
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 20 20 20 20 45 4C 53 45 0D 0A 20 20 20 20 20 ELSE..
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 42 45 47 49 4E 0D 0A BEGIN..
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 66 6F 72 61 6E 5E 2E 66 72 65 6D 20 3A 3D 20 4E foran^.frem := N
0000D0: 49 4C 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 IL;..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 20 20 73 69 64 73 74 65 20 3A 3D 20 66 sidste := f
000100: 6F 72 61 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20 oran;..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000120: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000140: 20 20 20 20 20 66 75 6E 64 65 74 20 3A 3D 20 54 fundet := T
000150: 52 55 45 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 RUE;..
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E EN
000170: 44 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 D..
000180: 20 20 20 20 20 20 20 20 20 45 4C 53 45 0D 0A 20 ELSE..
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 42 45 47 49 4E 0D 0A 20 20 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 66 6F 72 61 6E 20 3A 3D foran :=
0001D0: 20 6B 61 6E 64 69 64 61 74 3B 0D 0A 20 20 20 20 kandidat;..
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001F0: 20 20 20 20 20 20 6B 61 6E 64 69 64 61 74 20 3A kandidat :
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 6E 79 70 6F 73 nypos
000010: 74 5E 2E 66 72 65 6D 20 3A 3D 20 6B 61 6E 64 69 t^.frem := kandi
000020: 64 61 74 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 dat;..
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6E 79 ny
000040: 70 6F 73 74 5E 2E 74 69 6C 62 61 67 65 20 3A 3D post^.tilbage :=
000050: 20 66 6F 72 61 6E 3B 0D 0A 20 20 20 20 20 20 20 foran;..
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 6B 61 6E 64 69 64 61 74 5E 2E 74 69 6C 62 61 kandidat^.tilba
000080: 67 65 20 3A 3D 20 6E 79 70 6F 73 74 3B 0D 0A 20 ge := nypost;..
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 66 6F 72 61 6E 5E 2E 66 72 foran^.fr
0000B0: 65 6D 20 3A 3D 6E 79 70 6F 73 74 3B 0D 0A 20 20 em :=nypost;..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 20 END..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 ELS
0000F0: 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 E..
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 20 20 66 6F 72 61 6E 5E 2E 66 foran^.f
000130: 72 65 6D 20 3A 3D 20 6E 79 70 6F 73 74 3B 0D 0A rem := nypost;..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 20 20 20 20 20 6E 79 70 6F 73 74 5E 2E nypost^.
000160: 74 69 6C 62 61 67 65 20 3A 3D 20 66 6F 72 61 6E tilbage := foran
000170: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
000180: 20 20 20 20 20 20 20 20 20 20 20 73 69 64 73 74 sidst
000190: 65 20 3A 3D 20 6E 79 70 6F 73 74 3B 0D 0A 20 20 e := nypost;..
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001B0: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 END;..
0001C0: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 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 57 52 49 54 45 28 6E 79 70 6F WRITE(nypo
Size : 512 (Real : 512)
000000: 3D 20 6B 61 6E 64 69 64 61 74 5E 2E 66 72 65 6D = kandidat^.frem
000010: 3B 0D 0A 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 45 4E 44 3B 0D END;.
000030: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000040: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 END;..
000050: 20 20 20 20 20 49 46 20 66 75 6E 64 65 74 0D 0A IF fundet..
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 54 48 45 4E 20 57 52 49 54 45 28 67 6C 70 6F 73 THEN WRITE(glpos
000080: 74 5E 2E 6E 61 76 6E 2C 20 27 20 65 72 20 73 6C t^.navn, ' er sl
000090: 65 74 74 65 74 20 66 72 61 20 6B 7B 64 65 6E 2E ettet fra k{den.
0000A0: 20 27 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ')..
0000B0: 20 20 20 20 20 45 4C 53 45 20 57 52 49 54 45 28 ELSE WRITE(
0000C0: 67 6C 70 6F 73 74 5E 2E 6E 61 76 6E 2C 20 27 20 glpost^.navn, '
0000D0: 66 69 6E 64 65 73 20 69 6B 6B 65 20 69 20 6B 7B findes ikke i k{
0000E0: 64 65 6E 2E 20 27 29 3B 0D 0A 20 20 20 20 20 20 den. ');..
0000F0: 20 20 20 20 20 20 20 20 72 65 74 75 72 6E 3B 0D return;.
000100: 0A 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 . END
000110: 3B 20 28 2A 20 66 6A 65 72 6E 20 2A 29 0D 0A 20 ; (* fjern *)..
000120: 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 ..
000130: 20 20 20 20 20 50 52 4F 43 45 44 55 52 45 20 75 PROCEDURE u
000140: 64 73 6B 72 69 76 66 72 65 6D 28 66 6F 65 72 73 dskrivfrem(foers
000150: 74 65 20 3A 20 6C 69 6E 6B 29 3B 0D 0A 20 20 20 te : link);..
000160: 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 ..
000170: 20 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 VAR..
000180: 20 20 20 20 20 20 20 20 70 70 20 3A 20 6C 69 6E pp : lin
000190: 6B 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 k;..
0001A0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 45 .. BE
0001B0: 47 49 4E 20 28 2A 20 75 64 73 6B 72 69 76 66 72 GIN (* udskrivfr
0001C0: 65 6D 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 em *)..
0001D0: 20 20 20 20 20 70 70 20 3A 3D 20 66 6F 65 72 73 pp := foers
0001E0: 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 te;..
0001F0: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
Size : 512 (Real : 512)
000000: 73 74 5E 2E 6E 61 76 6E 2C 20 27 20 65 72 20 6E st^.navn, ' er n
000010: 75 20 69 6E 64 73 61 74 20 69 20 6B 7B 64 65 6E u indsat i k{den
000020: 2E 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 . ');..
000030: 20 20 20 20 20 72 65 74 75 72 6E 3B 0D 0A 20 20 return;..
000040: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 20 28 END; (
000050: 2A 20 69 6E 64 73 61 65 74 20 2A 29 0D 0A 20 20 * indsaet *)..
000060: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 ..
000070: 20 20 20 20 50 52 4F 43 45 44 55 52 45 20 66 6A PROCEDURE fj
000080: 65 72 6E 28 56 41 52 20 66 6F 65 72 73 74 65 2C ern(VAR foerste,
000090: 20 73 69 64 73 74 65 20 3A 20 6C 69 6E 6B 3B 20 sidste : link;
0000A0: 67 6C 70 6F 73 74 20 3A 20 6C 69 6E 6B 29 3B 0D glpost : link);.
0000B0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A 20 . ..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 56 41 52 0D 0A VAR..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6F fo
0000E0: 72 61 6E 2C 20 6B 61 6E 64 69 64 61 74 20 3A 20 ran, kandidat :
0000F0: 6C 69 6E 6B 3B 0D 0A 20 20 20 20 20 20 20 20 20 link;..
000100: 20 20 20 20 20 66 75 6E 64 65 74 20 3A 20 42 4F fundet : BO
000110: 4F 4C 45 41 4E 3B 0D 0A 20 20 20 20 20 20 20 20 OLEAN;..
000120: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 ..
000130: 20 20 42 45 47 49 4E 20 28 2A 20 66 6A 65 72 6E BEGIN (* fjern
000140: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 *)..
000150: 20 20 20 49 46 20 66 6F 65 72 73 74 65 20 3D 20 IF foerste =
000160: 4E 49 4C 20 28 2A 20 6B 7B 64 65 6E 20 74 6F 6D NIL (* k{den tom
000170: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 *)..
000180: 20 20 20 20 20 54 48 45 4E 20 66 75 6E 64 65 74 THEN fundet
000190: 20 3A 3D 20 46 41 4C 53 45 0D 0A 20 20 20 20 20 := FALSE..
0001A0: 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 ELSE IF
0001B0: 20 66 6F 65 72 73 74 65 5E 2E 6E 61 76 6E 20 3D foerste^.navn =
0001C0: 20 67 6C 70 6F 73 74 5E 2E 6E 61 76 6E 20 28 2A glpost^.navn (*
0001D0: 20 66 6A 65 72 6E 20 70 6F 73 74 20 31 20 2A 29 fjern post 1 *)
0001E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0001F0: 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 THEN..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
000010: 4C 4E 28 27 4B 7B 64 65 6E 20 69 6E 64 65 68 6F LN('K{den indeho
000020: 6C 64 65 72 20 66 7C 6C 67 65 6E 64 65 20 70 65 lder f|lgende pe
000030: 72 73 6F 6E 65 72 3A 27 29 3B 0D 0A 20 20 20 20 rsoner:');..
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 20 20 N;..
000060: 20 20 57 48 49 4C 45 20 70 70 20 3C 3E 20 4E 49 WHILE pp <> NI
000070: 4C 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 L DO..
000080: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 W
0000A0: 52 49 54 45 4C 4E 28 70 70 5E 2E 6E 61 76 6E 29 RITELN(pp^.navn)
0000B0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
0000C0: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 70 70 5E WRITELN(pp^
0000D0: 2E 61 64 72 65 73 73 65 29 3B 0D 0A 20 20 20 20 .adresse);..
0000E0: 20 20 20 20 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 20 20 20 20 20 20 20 20 70 70 20 3A 3D 20 pp :=
000110: 70 70 5E 2E 66 72 65 6D 3B 0D 0A 20 20 20 20 20 pp^.frem;..
000120: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D END;.
000130: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 . r
000140: 65 74 75 72 6E 3B 0D 0A 20 20 20 20 20 20 20 20 eturn;..
000150: 20 20 20 20 45 4E 44 3B 20 28 2A 20 75 64 73 6B END; (* udsk
000160: 72 69 76 66 72 65 6D 20 2A 29 0D 0A 20 20 20 20 rivfrem *)..
000170: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 ..
000180: 20 50 52 4F 43 45 44 55 52 45 20 75 64 73 6B 72 PROCEDURE udskr
000190: 69 76 74 69 6C 62 61 67 65 28 73 69 64 73 74 65 ivtilbage(sidste
0001A0: 20 3A 20 6C 69 6E 6B 29 3B 0D 0A 20 20 20 20 20 : link);..
0001B0: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 ..
0001C0: 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 VAR..
0001D0: 20 20 20 20 20 20 70 70 20 3A 20 6C 69 6E 6B 3B pp : link;
0001E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A .. ..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 BEGI
Size : 512 (Real : 512)
000000: 76 74 69 6C 62 61 67 65 28 62 75 6E 64 29 3B 0D vtilbage(bund);.
000010: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 . E
000020: 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ND;..
000030: 20 55 4E 54 49 4C 20 63 68 20 49 4E 20 28 2E 27 UNTIL ch IN (.'
000040: 41 27 2C 20 27 61 27 2E 29 3B 0D 0A 20 20 20 20 A', 'a'.);..
000050: 20 20 20 20 20 20 45 4E 44 2E 20 28 2A 20 64 6F END. (* do
000060: 62 62 65 6C 74 20 2A 29 0D 0A 1A 20 20 20 20 27 bbelt *)... '
000070: 42 27 2C 20 27 62 27 20 3A 20 75 64 73 6B 72 69 B', 'b' : udskri
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: 4E 20 28 2A 20 75 64 73 6B 72 69 76 74 69 6C 62 N (* udskrivtilb
000010: 61 67 65 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 age *)..
000020: 20 20 20 20 20 20 70 70 20 3A 3D 20 73 69 64 73 pp := sids
000030: 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 te;..
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 20 20 20 20 57 52 49 54 45 WRITE
000060: 4C 4E 28 27 4B 7B 64 65 6E 20 69 6E 64 65 68 6F LN('K{den indeho
000070: 6C 64 65 72 20 66 7C 6C 67 65 6E 64 65 20 70 65 lder f|lgende pe
000080: 72 73 6F 6E 65 72 3A 27 29 3B 0D 0A 20 20 20 20 rsoner:');..
000090: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
0000A0: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 N;..
0000B0: 20 20 57 48 49 4C 45 20 70 70 20 3C 3E 20 4E 49 WHILE pp <> NI
0000C0: 4C 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 L DO..
0000D0: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 W
0000F0: 52 49 54 45 4C 4E 28 70 70 5E 2E 6E 61 76 6E 29 RITELN(pp^.navn)
000100: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
000110: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 70 70 5E WRITELN(pp^
000120: 2E 61 64 72 65 73 73 65 29 3B 0D 0A 20 20 20 20 .adresse);..
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 WR
000140: 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 ITELN;..
000150: 20 20 20 20 20 20 20 20 20 20 70 70 20 3A 3D 20 pp :=
000160: 70 70 5E 2E 74 69 6C 62 61 67 65 3B 0D 0A 20 20 pp^.tilbage;..
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E EN
000180: 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 D;..
000190: 20 20 72 65 74 75 72 6E 3B 0D 0A 20 20 20 20 20 return;..
0001A0: 20 20 20 20 20 20 20 45 4E 44 3B 20 28 2A 20 75 END; (* u
0001B0: 64 73 6B 72 69 76 74 69 6C 62 61 67 65 20 2A 29 dskrivtilbage *)
0001C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A .. ..
0001D0: 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 20 BEGIN
0001E0: 28 2A 20 64 6F 62 62 65 6C 74 20 2A 29 0D 0A 20 (* dobbelt *)..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 74 6F 70 20 3A top :
Size : 512 (Real : 512)
000000: 20 20 20 0D 0A 20 20 20 20 20 20 54 68 65 72 65 .. There
000010: 20 77 61 73 20 61 20 6C 6F 74 20 6F 66 20 70 65 was a lot of pe
000020: 6F 70 6C 65 2C 20 74 68 65 72 65 20 77 61 73 20 ople, there was
000030: 73 69 74 74 69 6E 67 20 69 6E 20 74 68 65 20 64 sitting in the d
000040: 65 63 6B 20 63 68 61 69 72 73 2E 0D 0A 20 20 20 eck chairs...
000050: 20 20 20 0D 0A 20 20 20 20 20 20 4F 6E 65 20 6F .. One o
000060: 66 20 74 68 65 6D 20 77 61 73 20 73 69 74 74 69 f them was sitti
000070: 6E 67 20 77 69 74 68 20 68 65 72 20 66 65 65 74 ng with her feet
000080: 73 20 69 6E 20 61 20 70 61 69 6C 20 6F 66 20 77 s in a pail of w
000090: 61 74 65 72 2E 0D 0A 20 20 20 20 20 20 0D 0A 20 ater... ..
0000A0: 20 20 20 20 20 41 6E 20 6F 74 68 65 72 20 77 61 An other wa
0000B0: 73 20 73 6D 6F 6B 69 6E 67 20 68 69 73 20 70 69 s smoking his pi
0000C0: 70 65 2E 20 54 68 65 20 72 65 73 74 20 6F 66 20 pe. The rest of
0000D0: 74 68 65 20 70 65 6F 70 6C 65 20 77 61 73 20 73 the people was s
0000E0: 6C 65 65 70 69 6E 67 0D 0A 20 20 20 20 20 20 0D leeping.. .
0000F0: 0A 20 20 20 20 20 20 69 6E 20 74 68 65 69 72 20 . in their
000100: 64 65 63 6B 20 63 68 61 69 72 73 2E 20 41 20 63 deck chairs. A c
000110: 68 69 6C 64 20 68 61 64 20 62 75 69 6C 64 65 64 hild had builded
000120: 20 73 6F 6D 65 20 6E 69 63 65 20 74 6F 77 65 72 some nice tower
000130: 73 2C 0D 0A 20 20 20 20 20 20 0D 0A 20 20 20 20 s,.. ..
000140: 20 20 62 75 74 20 74 68 65 79 20 77 65 72 65 20 but they were
000150: 66 75 6C 6C 20 6F 66 20 6F 69 6C 2E 0D 0A 20 20 full of oil...
000160: 20 20 20 20 0D 0A 20 20 20 20 20 20 41 20 64 6F .. A do
000170: 67 2C 20 67 6F 69 6E 67 20 69 6E 20 74 68 65 20 g, going in the
000180: 73 61 6E 64 2C 20 6D 65 74 20 61 20 77 6F 6D 61 sand, met a woma
000190: 6E 20 61 6E 64 20 6A 75 6D 70 65 64 20 6F 6E 20 n and jumped on
0001A0: 68 65 72 2E 0D 0A 20 20 20 20 20 20 0D 0A 20 20 her... ..
0001B0: 20 20 20 20 48 65 72 20 64 72 65 73 73 20 62 65 Her dress be
0001C0: 63 61 6D 65 20 66 75 6C 6C 20 6F 66 20 62 6C 61 came full of bla
0001D0: 63 6B 20 64 6F 79 73 70 61 77 2E 28 4B 65 6E 64 ck doyspaw.(Kend
0001E0: 65 72 20 69 6B 6B 65 20 6F 72 64 65 74 29 0D 0A er ikke ordet)..
0001F0: 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 41 20 .. A
Size : 512 (Real : 512)
000000: 3D 20 4E 49 4C 3B 0D 0A 20 20 20 20 20 20 20 20 = NIL;..
000010: 20 20 20 20 62 75 6E 64 20 3A 3D 20 4E 49 4C 3B bund := NIL;
000020: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 4E 45 .. NE
000030: 57 28 75 64 29 3B 0D 0A 20 20 20 20 20 20 20 20 W(ud);..
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 20 20 20 20 57 52 49 54 45 28 WRITE(
000060: 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 20 20 CLRHOM);..
000070: 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 31 GOTOXY(1
000080: 30 2C 34 29 3B 20 57 52 49 54 45 28 27 53 4F 52 0,4); WRITE('SOR
000090: 54 45 52 45 54 20 4B 5B 44 45 27 29 3B 0D 0A 20 TERET K[DE');..
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 GOT
0000B0: 4F 58 59 28 31 30 2C 37 29 3B 20 57 52 49 54 45 OXY(10,7); WRITE
0000C0: 28 27 49 2E 20 49 6E 64 73 7B 74 20 70 65 72 73 ('I. Inds{t pers
0000D0: 6F 6E 20 69 20 6B 7B 64 65 6E 2E 27 29 3B 0D 0A on i k{den.');..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4F GO
0000F0: 54 4F 58 59 28 31 30 2C 39 29 3B 20 57 52 49 54 TOXY(10,9); WRIT
000100: 45 28 27 46 2E 20 46 6A 65 72 6E 65 20 70 65 72 E('F. Fjerne per
000110: 73 6F 6E 20 66 72 61 20 6B 7B 64 65 6E 2E 27 29 son fra k{den.')
000120: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
000130: 20 47 4F 54 4F 58 59 28 31 30 2C 31 31 29 3B 20 GOTOXY(10,11);
000140: 57 52 49 54 45 28 27 55 2E 20 55 64 73 6B 72 69 WRITE('U. Udskri
000150: 76 65 20 6B 7B 64 65 6E 20 66 6F 72 66 72 61 2E ve k{den forfra.
000160: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ');..
000170: 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 31 33 29 GOTOXY(10,13)
000180: 3B 20 57 52 49 54 45 28 27 42 2E 20 55 64 73 6B ; WRITE('B. Udsk
000190: 72 69 76 65 20 6B 7B 64 65 6E 20 62 61 67 66 72 rive k{den bagfr
0001A0: 61 2E 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 a.');..
0001B0: 20 20 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 31 GOTOXY(10,1
0001C0: 35 29 3B 20 57 52 49 54 45 28 27 41 2E 20 41 66 5); WRITE('A. Af
0001D0: 73 6C 75 74 74 65 20 70 72 6F 67 72 61 6D 6D 65 slutte programme
0001E0: 74 2E 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 t.');..
0001F0: 20 20 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 31 GOTOXY(10,1
Size : 512 (Real : 512)
000000: 6D 61 6E 20 74 6F 6F 6B 6B 65 64 20 68 69 73 20 man tookked his
000010: 73 74 69 63 6B 20 61 6E 64 20 67 6F 74 20 74 68 stick and got th
000020: 65 20 64 6F 67 20 61 77 61 79 2E 0D 0A 20 20 20 e dog away...
000030: 20 20 20 0D 0A 20 20 20 20 20 20 54 68 65 20 6C .. The l
000040: 61 73 74 20 74 68 69 6E 67 2C 20 74 68 61 74 20 ast thing, that
000050: 68 61 70 70 65 6E 65 64 20 74 68 61 74 20 64 61 happened that da
000060: 79 2C 20 77 61 73 20 3F 3F 3F 3F 3F 3F 3F 3F 3F y, was ?????????
000070: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 0D 0A 20 20 20 20 ??????????..
000080: 20 20 0D 0A 20 20 20 20 20 20 3F 3F 3F 3F 3F 3F .. ??????
000090: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 20 66 72 ????????????? fr
0000A0: 6F 6D 20 61 20 77 6F 6D 61 6E 20 61 6E 64 20 3F om a woman and ?
0000B0: 3F 3F 20 20 74 68 65 20 3F 3F 3F 20 69 6E 20 74 ?? the ??? in t
0000C0: 68 65 20 77 61 74 65 72 2E 0D 0A 20 20 20 20 20 he water...
0000D0: 20 0D 0A 20 20 20 20 20 20 48 65 20 74 6F 6F 6B .. He took
0000E0: 20 61 20 6D 61 74 63 68 20 61 6E 64 20 61 20 6C a match and a l
0000F0: 69 67 68 74 65 72 20 3F 3F 3F 3F 3F 2E 20 53 6F ighter ?????. So
000100: 6D 77 68 65 72 65 20 69 6E 20 74 68 65 20 77 61 mwhere in the wa
000110: 74 65 72 20 74 68 65 72 65 0D 0A 20 20 20 20 20 ter there..
000120: 20 0D 0A 20 20 20 20 20 20 77 61 73 20 61 20 66 .. was a f
000130: 69 72 65 2E 20 41 20 6D 61 6E 20 74 6F 6F 6B 20 ire. A man took
000140: 61 20 77 61 74 65 72 3F 3F 3F 3F 20 61 6E 64 20 a water???? and
000150: 61 66 74 65 72 20 33 20 6D 69 6E 75 74 65 73 20 after 3 minutes
000160: 74 68 65 20 66 69 72 65 20 77 61 73 20 0D 0A 20 the fire was ..
000170: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 70 75 74 .. put
000180: 20 6F 75 74 2E 0D 0A 20 20 20 20 20 20 0D 0A 20 out... ..
000190: 20 20 20 20 20 54 68 61 74 20 77 61 73 20 74 68 That was th
0001A0: 65 20 65 6E 64 20 61 66 20 61 20 73 75 6D 6D 65 e end af a summe
0001B0: 72 68 6F 6C 69 64 61 79 2E 0D 0A 20 20 20 20 20 rholiday...
0001C0: 20 20 0D 0A 1A 65 72 3F 3F 3F 3F 20 61 6E 64 20 ...er???? and
0001D0: 61 66 74 65 72 20 33 20 6D 69 6E 75 74 65 73 20 after 3 minutes
0001E0: 74 68 65 20 66 69 72 65 20 77 61 73 20 0D 0A 20 the fire was ..
0001F0: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 70 75 74 .. put
Size : 512 (Real : 512)
000000: 37 29 3B 20 57 52 49 54 45 28 27 54 61 73 74 20 7); WRITE('Tast
000010: 6B 6F 6D 6D 61 6E 64 6F 3A 20 27 29 3B 0D 0A 20 kommando: ');..
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 REP
000030: 45 41 54 0D 0A 20 20 20 20 20 20 20 20 20 20 20 EAT..
000040: 20 20 20 20 20 52 45 41 44 28 4B 42 44 2C 20 63 READ(KBD, c
000050: 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 h);..
000060: 20 20 20 55 4E 54 49 4C 20 63 68 20 49 4E 20 28 UNTIL ch IN (
000070: 2E 27 49 27 2C 20 27 69 27 2C 20 27 46 27 2C 20 .'I', 'i', 'F',
000080: 27 66 27 2C 20 27 55 27 2C 20 27 75 27 2C 20 27 'f', 'U', 'u', '
000090: 42 27 2C 20 27 62 27 2C 0D 0A 20 20 20 20 20 20 B', 'b',..
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000B0: 20 20 20 20 27 41 27 2C 20 27 61 27 2E 29 3B 0D 'A', 'a'.);.
0000C0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 . W
0000D0: 52 49 54 45 4C 4E 28 63 68 29 3B 0D 0A 20 20 20 RITELN(ch);..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 43 41 53 45 20 CASE
0000F0: 63 68 20 4F 46 0D 0A 20 20 20 20 20 20 20 20 20 ch OF..
000100: 20 20 20 20 20 20 20 27 49 27 2C 20 27 69 27 20 'I', 'i'
000110: 3A 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 : 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 4E 45 57 28 70 70 29 3B 0D 0A NEW(pp);..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
000160: 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 TELN;..
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 20 20 20 20 57 52 49 54 45 28 27 4E 61 76 6E 3A WRITE('Navn:
000190: 20 27 29 3B 20 52 45 41 44 4C 4E 28 70 70 5E 2E '); READLN(pp^.
0001A0: 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 20 20 20 20 navn);..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001C0: 20 20 20 20 20 57 52 49 54 45 28 27 41 64 72 65 WRITE('Adre
0001D0: 73 73 65 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 sse: '); READLN(
0001E0: 70 70 5E 2E 61 64 72 65 73 73 65 29 3B 0D 0A 20 pp^.adresse);..
0001F0: 20 20 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 65 72 61 74 6F 73 74 68 PROGRAM eratosth
000010: 3B 0D 0A 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 ;.... TYPE..
000020: 20 61 72 72 61 79 74 79 70 65 20 3D 20 41 52 52 arraytype = ARR
000030: 41 59 28 2E 31 20 2E 2E 20 31 36 33 38 34 2E 29 AY(.1 .. 16384.)
000040: 20 4F 46 20 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 OF BOOLEAN;..
000050: 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 74 61 62 .. VAR.. tab
000060: 20 3A 20 61 72 72 61 79 74 79 70 65 3B 20 28 2A : arraytype; (*
000070: 20 74 61 62 28 2E 69 2E 29 20 72 65 70 72 7B 73 tab(.i.) repr{s
000080: 65 6E 74 65 72 65 72 20 64 65 74 20 75 6C 69 67 enterer det ulig
000090: 65 20 74 61 6C 20 32 20 2A 20 69 20 2B 20 31 20 e tal 2 * i + 1
0000A0: 2A 29 0D 0A 20 20 20 20 67 72 61 65 6E 73 65 2C *).. graense,
0000B0: 20 67 72 61 65 6E 73 65 32 2C 20 67 72 61 65 6E graense2, graen
0000C0: 73 65 33 2C 20 69 2C 20 6A 2C 20 6B 20 3A 20 49 se3, i, j, k : I
0000D0: 4E 54 45 47 45 52 3B 0D 0A 20 20 0D 0A 20 20 42 NTEGER;.. .. B
0000E0: 45 47 49 4E 0D 0A 20 20 20 20 57 52 49 54 45 28 EGIN.. WRITE(
0000F0: 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 57 52 CLRHOM);.. WR
000100: 49 54 45 28 27 49 6E 64 74 61 73 74 20 7C 76 72 ITE('Indtast |vr
000110: 65 20 67 72 7B 6E 73 65 20 28 6D 61 78 3A 20 33 e gr{nse (max: 3
000120: 32 37 36 37 29 3A 20 27 29 3B 20 52 45 41 44 4C 2767): '); READL
000130: 4E 28 67 72 61 65 6E 73 65 29 3B 0D 0A 20 20 20 N(graense);..
000140: 20 67 72 61 65 6E 73 65 32 20 3A 3D 20 67 72 61 graense2 := gra
000150: 65 6E 73 65 20 44 49 56 20 32 3B 0D 0A 20 20 20 ense DIV 2;..
000160: 20 67 72 61 65 6E 73 65 33 20 3A 3D 20 67 72 61 graense3 := gra
000170: 65 6E 73 65 20 44 49 56 20 33 20 2B 20 31 3B 0D ense DIV 3 + 1;.
000180: 0A 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 . FOR i := 1
000190: 54 4F 20 67 72 61 65 6E 73 65 32 20 44 4F 0D 0A TO graense2 DO..
0001A0: 20 20 20 20 20 20 74 61 62 28 2E 69 2E 29 20 3A tab(.i.) :
0001B0: 3D 20 54 52 55 45 3B 0D 0A 20 20 20 20 57 52 49 = TRUE;.. WRI
0001C0: 54 45 4C 4E 3B 0D 0A 20 20 20 20 49 46 20 67 72 TELN;.. IF gr
0001D0: 61 65 6E 73 65 20 3E 20 31 0D 0A 20 20 20 20 20 aense > 1..
0001E0: 20 54 48 45 4E 20 57 52 49 54 45 28 32 20 3A 20 THEN WRITE(2 :
0001F0: 38 29 3B 0D 0A 20 20 20 20 46 4F 52 20 69 20 3A 8);.. FOR i :
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 70 70 5E 2E pp^.
000010: 66 72 65 6D 20 3A 3D 20 4E 49 4C 3B 0D 0A 20 20 frem := NIL;..
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000030: 20 20 20 20 20 20 20 20 20 20 20 70 70 5E 2E 74 pp^.t
000040: 69 6C 62 61 67 65 20 3A 3D 20 4E 49 4C 3B 0D 0A ilbage := NIL;..
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6E 64 ind
000070: 73 61 65 74 28 74 6F 70 2C 20 62 75 6E 64 2C 20 saet(top, bund,
000080: 70 70 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 pp);..
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000A0: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 END;..
0000B0: 20 20 20 20 20 20 20 27 46 27 2C 20 27 66 27 20 'F', 'f'
0000C0: 3A 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 : BEGIN..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A WRITELN;..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
000110: 54 45 28 27 48 76 65 6D 20 73 6B 61 6C 20 66 6A TE('Hvem skal fj
000120: 65 72 6E 65 73 3A 20 27 29 3B 0D 0A 20 20 20 20 ernes: ');..
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 52 45 41 44 4C 4E 28 READLN(
000150: 75 64 5E 2E 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 ud^.navn);..
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 66 6A 65 72 6E 28 74 fjern(t
000180: 6F 70 2C 20 62 75 6E 64 2C 20 75 64 29 3B 0D 0A op, bund, ud);..
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 45 4E 44 3B 0D END;.
0001B0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0001C0: 20 27 55 27 2C 20 27 75 27 20 3A 20 75 64 73 6B 'U', 'u' : udsk
0001D0: 72 69 76 66 72 65 6D 28 74 6F 70 29 3B 0D 0A 20 rivfrem(top);..
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 '
0001F0: 42 27 2C 20 27 62 27 20 3A 20 75 64 73 6B 72 69 B', 'b' : udskri
Size : 512 (Real : 512)
000000: 3D 20 31 20 54 4F 20 67 72 61 65 6E 73 65 32 20 = 1 TO graense2
000010: 44 4F 0D 0A 20 20 20 20 20 20 49 46 20 74 61 62 DO.. IF tab
000020: 28 2E 69 2E 29 0D 0A 20 20 20 20 20 20 20 20 54 (.i.).. T
000030: 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 42 HEN.. B
000040: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
000050: 20 20 6A 20 3A 3D 20 69 20 2B 20 69 20 2B 20 31 j := i + i + 1
000060: 3B 20 20 20 20 20 20 28 2A 20 6A 20 65 72 20 65 ; (* j er e
000070: 74 20 70 72 69 6D 74 61 6C 20 2A 29 0D 0A 20 20 t primtal *)..
000080: 20 20 20 20 20 20 20 20 20 20 49 46 20 6A 20 3C IF j <
000090: 3D 20 67 72 61 65 6E 73 65 0D 0A 20 20 20 20 20 = graense..
0000A0: 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 57 52 THEN WR
0000B0: 49 54 45 28 6A 20 3A 20 38 29 3B 0D 0A 20 20 20 ITE(j : 8);..
0000C0: 20 20 20 20 20 20 20 20 20 49 46 20 6A 20 3C 3D IF j <=
0000D0: 20 67 72 61 65 6E 73 65 33 20 20 20 20 20 28 2A graense3 (*
0000E0: 20 6E 75 20 73 6C 65 74 74 65 73 20 64 65 20 75 nu slettes de u
0000F0: 6C 69 67 65 20 6D 75 6C 74 69 70 6C 61 20 61 66 lige multipla af
000100: 20 6A 20 2D 20 20 2A 29 0D 0A 20 20 20 20 20 20 j - *)..
000110: 20 20 20 20 20 20 20 20 54 48 45 4E 20 20 20 20 THEN
000120: 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 64 65 (* de
000130: 74 20 65 72 20 6E 65 74 6F 70 20 68 76 65 72 74 t er netop hvert
000140: 20 6A 2E 20 65 6C 65 6D 65 6E 74 20 69 20 74 61 j. element i ta
000150: 62 20 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 b *)..
000160: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 BEGIN..
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 6B 20 3A 3D 20 69 20 2B 20 6A 3B 20 20 20 20 28 k := i + j; (
000190: 2A 20 74 61 62 28 2E 6B 2E 29 20 65 72 20 64 65 * tab(.k.) er de
0001A0: 6D 2C 20 64 65 72 20 73 6B 61 6C 20 73 6C 65 74 m, der skal slet
0001B0: 74 65 73 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 tes *)..
0001C0: 20 20 20 20 20 20 20 20 20 20 57 48 49 4C 45 20 WHILE
0001D0: 6B 20 3C 3D 20 67 72 61 65 6E 73 65 32 20 44 4F k <= graense2 DO
0001E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0001F0: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 66 61 6B 74 75 72 61 3B PROGRAM faktura;
000010: 0D 0A 0D 0A 20 20 43 4F 4E 53 54 0D 0A 20 20 20 .... CONST..
000020: 20 6D 61 78 20 3D 20 32 30 30 3B 0D 0A 20 20 20 max = 200;..
000030: 20 6D 6F 6D 73 70 63 74 20 3D 20 32 32 3B 0D 0A momspct = 22;..
000040: 20 20 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 20 .. TYPE..
000050: 73 74 72 33 30 20 3D 20 53 54 52 49 4E 47 28 2E str30 = STRING(.
000060: 33 30 2E 29 3B 0D 0A 20 20 20 20 74 61 62 69 6E 30.);.. tabin
000070: 74 20 3D 20 41 52 52 41 59 28 2E 31 20 2E 2E 20 t = ARRAY(.1 ..
000080: 6D 61 78 2E 29 20 4F 46 20 49 4E 54 45 47 45 52 max.) OF INTEGER
000090: 3B 0D 0A 20 20 20 20 74 61 62 72 65 61 6C 20 3D ;.. tabreal =
0000A0: 20 41 52 52 41 59 28 2E 31 20 2E 2E 20 6D 61 78 ARRAY(.1 .. max
0000B0: 2E 29 20 4F 46 20 52 45 41 4C 3B 0D 0A 20 20 20 .) OF REAL;..
0000C0: 20 74 61 62 73 74 72 20 3D 20 41 52 52 41 59 28 tabstr = ARRAY(
0000D0: 2E 31 20 2E 2E 20 6D 61 78 2E 29 20 4F 46 20 73 .1 .. max.) OF s
0000E0: 74 72 33 30 3B 0D 0A 20 20 0D 0A 20 20 56 41 52 tr30;.. .. VAR
0000F0: 0D 0A 20 20 20 20 69 2C 20 61 6E 74 61 6C 5F 76 .. i, antal_v
000100: 61 72 65 72 20 3A 20 49 4E 54 45 47 45 52 3B 0D arer : INTEGER;.
000110: 0A 20 20 20 20 76 61 72 65 6E 75 6D 6D 65 72 2C . varenummer,
000120: 20 76 61 72 65 61 6E 74 61 6C 20 3A 20 74 61 62 vareantal : tab
000130: 69 6E 74 3B 0D 0A 20 20 20 20 76 61 72 65 6E 61 int;.. varena
000140: 76 6E 20 3A 20 74 61 62 73 74 72 3B 0D 0A 20 20 vn : tabstr;..
000150: 20 20 76 61 72 65 70 72 69 73 20 3A 20 74 61 62 varepris : tab
000160: 72 65 61 6C 3B 0D 0A 20 20 20 20 6B 75 6E 64 65 real;.. kunde
000170: 6E 61 76 6E 20 3A 20 73 74 72 33 30 3B 0D 0A 20 navn : str30;..
000180: 20 20 20 73 75 6D 2C 20 6D 6F 6D 73 20 3A 20 52 sum, moms : R
000190: 45 41 4C 3B 0D 0A 20 20 0D 0A 20 20 50 52 4F 43 EAL;.. .. PROC
0001A0: 45 44 55 52 45 20 69 6E 64 28 56 41 52 20 6B 75 EDURE ind(VAR ku
0001B0: 6E 64 65 20 3A 20 73 74 72 33 30 3B 20 56 41 52 nde : str30; VAR
0001C0: 20 70 6F 73 74 61 6E 74 61 6C 20 3A 20 49 4E 54 postantal : INT
0001D0: 45 47 45 52 3B 20 0D 0A 20 20 20 20 20 20 20 20 EGER; ..
0001E0: 20 20 20 20 20 20 20 20 56 41 52 20 6E 75 6D 6D VAR numm
0001F0: 65 72 20 3A 20 74 61 62 69 6E 74 3B 20 56 41 52 er : tabint; VAR
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 t
000010: 61 62 28 2E 6B 2E 29 20 3A 3D 20 46 41 4C 53 45 ab(.k.) := FALSE
000020: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
000030: 20 20 20 20 20 20 20 6B 20 3A 3D 20 6B 20 2B 20 k := k +
000040: 6A 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 j;..
000050: 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 END;..
000060: 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B END;
000070: 0D 0A 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B .. END;
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 6E 61 76 6E 20 3A 20 74 61 62 73 74 72 3B 20 navn : tabstr;
000010: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000020: 20 20 56 41 52 20 61 6E 74 61 6C 20 3A 20 74 61 VAR antal : ta
000030: 62 69 6E 74 3B 20 56 41 52 20 70 72 69 73 20 3A bint; VAR pris :
000040: 20 74 61 62 72 65 61 6C 29 3B 0D 0A 20 20 20 20 tabreal);..
000050: 56 41 52 0D 0A 20 20 20 20 20 20 69 2C 20 6E 72 VAR.. i, nr
000060: 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 : INTEGER;..
000070: 20 0D 0A 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 .. BEGIN..
000080: 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F 4D WRITE(CLRHOM
000090: 29 3B 0D 0A 20 20 20 20 20 20 69 20 3A 3D 20 30 );.. i := 0
0000A0: 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 45 28 27 ;.. WRITE('
0000B0: 4B 75 6E 64 65 3A 20 27 29 3B 20 52 45 41 44 4C Kunde: '); READL
0000C0: 4E 28 6B 75 6E 64 65 29 3B 0D 0A 20 20 20 20 20 N(kunde);..
0000D0: 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 REPEAT..
0000E0: 20 69 20 3A 3D 20 69 20 2B 20 31 3B 0D 0A 20 20 i := i + 1;..
0000F0: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A WRITELN;..
000100: 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 54 WRITE('T
000110: 61 73 74 20 76 61 72 65 6E 73 20 6E 75 6D 6D 65 ast varens numme
000120: 72 20 28 30 20 73 74 6F 70 70 65 72 29 3A 20 27 r (0 stopper): '
000130: 29 3B 20 52 45 41 44 4C 4E 28 6E 72 29 3B 0D 0A ); READLN(nr);..
000140: 20 20 20 20 20 20 20 20 49 46 20 6E 72 20 3C 3E IF nr <>
000150: 20 30 0D 0A 20 20 20 20 20 20 20 20 20 20 54 48 0.. TH
000160: 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 EN..
000170: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 BEGIN..
000180: 20 20 20 20 20 6E 75 6D 6D 65 72 28 2E 69 2E 29 nummer(.i.)
000190: 20 3A 3D 20 6E 72 3B 0D 0A 20 20 20 20 20 20 20 := nr;..
0001A0: 20 20 20 20 20 20 20 57 52 49 54 45 28 27 54 61 WRITE('Ta
0001B0: 73 74 20 76 61 72 65 6E 73 20 6E 61 76 6E 3A 20 st varens navn:
0001C0: 20 20 27 29 3B 20 52 45 41 44 4C 4E 28 6E 61 76 '); READLN(nav
0001D0: 6E 28 2E 69 2E 29 29 3B 0D 0A 20 20 20 20 20 20 n(.i.));..
0001E0: 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 54 WRITE('T
0001F0: 61 73 74 20 61 6E 74 61 6C 20 65 6E 68 65 64 65 ast antal enhede
Size : 512 (Real : 512)
000000: CC 24 57 CC 24 56 1C 25 56 1C 25 55 6C 25 55 6B .$W.$V.%V.%Ul%Uk
000010: 25 54 BB 25 54 BB 25 53 BB 25 52 BA 25 51 B9 25 %T.%T.%S.%R.%Q.%
000020: 50 B8 25 4F 08 26 4F 08 26 4E 08 26 4D 08 26 4C P.%O.&O.&N.&M.&L
000030: A8 26 4C 48 27 4C 18 22 5B 18 22 5B 68 22 5B 68 .&LH'L."[."[h"[h
000040: 22 5A B8 22 5A 08 23 59 08 23 58 58 23 58 A8 23 "Z."Z.#Y.#XX#X.#
000050: 57 A8 23 56 F8 23 56 48 24 56 47 24 55 97 24 55 W.#V.#VH$VG$U.$U
000060: E7 24 54 37 25 54 87 25 53 87 25 52 D6 25 51 D5 .$T7%T.%S.%R.%Q.
000070: 25 50 D4 25 4F D4 25 4E D4 25 4D 14 27 4C B6 21 %P.%O.%N.%M.'L.!
000080: 5B B6 21 5B 06 22 5B 56 22 5A F6 22 59 46 23 58 [.![."[V"Z."YF#X
000090: 46 23 57 E5 23 56 95 23 55 35 24 55 85 24 54 D4 F#W.#V.#U5$U.$T.
0000A0: 24 53 D4 24 53 D4 24 52 74 25 52 13 26 51 12 26 $S.$S.$Rt%R.&Q.&
0000B0: 50 12 26 4F 62 26 4F 61 26 4E 61 26 4D B0 26 4D P.&Ob&Oa&Na&M.&M
0000C0: B0 26 4C 50 27 4C D8 21 5B 28 22 5B 28 22 5A C7 .&LP'L.![("[("Z.
0000D0: 22 58 17 23 57 17 23 56 67 23 56 16 23 55 66 23 "X.#W.#Vg#V.#Uf#
0000E0: 55 B6 23 54 56 24 54 F6 24 53 46 25 53 46 25 52 U.#TV$T.$SF%SF%R
0000F0: 96 25 52 35 26 51 85 26 51 85 26 50 D5 26 50 84 .%R5&Q.&Q.&P.&P.
000100: 26 4F D4 26 4F D3 26 4E D3 26 4D 23 27 4C BF 21 &O.&O.&N.&M#'L.!
000110: 5B 0F 22 5B 5F 22 5A AF 22 59 4E 23 58 EE 23 57 [."[_"Z."YN#X.#W
000120: 3E 24 57 3E 24 56 8E 24 56 8D 24 55 DD 24 55 DD >$W>$V.$V.$U.$U.
000130: 24 54 2D 25 54 2D 25 53 7D 25 53 7D 25 52 CD 25 $T-%T-%S}%S}%R.%
000140: 52 6C 26 51 6B 26 50 BB 26 4F BA 26 4E BA 26 4D Rl&Qk&P.&O.&N.&M
000150: BA 26 4C 5A 27 4C 55 21 71 A5 21 71 F5 21 71 45 .&LZ'LU!q.!q.!qE
000160: 22 70 95 22 70 95 22 6F E5 22 6F 94 22 6E E4 22 "p."p."o."o."n."
000170: 6E 94 22 6D E4 22 6D 34 23 6C 84 23 6C E4 22 6B n."m."m4#l.#l."k
000180: 34 23 6B 94 22 6A E4 22 6A E3 22 69 33 23 68 32 4#k."j."j."i3#h2
000190: 23 67 32 23 66 32 23 65 D2 23 65 31 23 64 39 22 #g2#f2#e.#e1#d9"
0001A0: 71 39 22 71 89 22 71 89 22 70 D9 22 70 D9 22 6F q9"q."q."p."p."o
0001B0: 29 23 6F 89 22 6E D9 22 6E 89 22 6D D9 22 6D 29 )#o."n."n."m."m)
0001C0: 23 6C 79 23 6C 29 23 6B 79 23 6B D9 22 6A 29 23 #ly#l)#ky#k."j)#
0001D0: 6A 89 22 69 29 23 69 D8 22 68 D7 22 67 D7 22 66 j."i)#i."h."g."f
0001E0: D7 22 65 D7 22 64 59 22 71 59 22 71 A9 22 71 A9 ."e."dY"qY"q."q.
0001F0: 22 70 F9 22 70 A8 22 6F F8 22 6F F8 22 6E 48 23 "p."p."o."o."nH#
Size : 512 (Real : 512)
000000: 72 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 61 6E r: '); READLN(an
000010: 74 61 6C 28 2E 69 2E 29 29 3B 0D 0A 20 20 20 20 tal(.i.));..
000020: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 WRITE(
000030: 27 54 61 73 74 20 65 6E 68 65 64 73 70 72 69 73 'Tast enhedspris
000040: 3A 20 20 20 20 27 29 3B 20 52 45 41 44 4C 4E 28 : '); READLN(
000050: 70 72 69 73 28 2E 69 2E 29 29 3B 0D 0A 20 20 20 pris(.i.));..
000060: 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 END;..
000070: 20 20 20 20 20 55 4E 54 49 4C 20 28 6E 72 20 3D UNTIL (nr =
000080: 20 30 29 20 4F 52 20 28 69 20 3D 20 6D 61 78 29 0) OR (i = max)
000090: 3B 0D 0A 20 20 20 20 20 20 49 46 20 6E 72 20 3D ;.. IF nr =
0000A0: 20 30 0D 0A 20 20 20 20 20 20 20 20 54 48 45 4E 0.. THEN
0000B0: 20 70 6F 73 74 61 6E 74 61 6C 20 3A 3D 20 69 20 postantal := i
0000C0: 2D 20 31 0D 0A 20 20 20 20 20 20 20 20 45 4C 53 - 1.. ELS
0000D0: 45 20 70 6F 73 74 61 6E 74 61 6C 20 3A 3D 20 6D E postantal := m
0000E0: 61 78 3B 0D 0A 20 20 20 20 45 4E 44 3B 0D 0A 20 ax;.. END;..
0000F0: 20 20 20 0D 0A 20 20 50 52 4F 43 45 44 55 52 45 .. PROCEDURE
000100: 20 73 6B 72 69 76 28 6B 75 6E 64 65 20 3A 20 73 skriv(kunde : s
000110: 74 72 33 30 3B 20 70 6F 73 74 61 6E 74 61 6C 20 tr30; postantal
000120: 3A 20 49 4E 54 45 47 45 52 3B 20 56 41 52 20 6E : INTEGER; VAR n
000130: 75 6D 6D 65 72 20 3A 20 74 61 62 69 6E 74 3B 20 ummer : tabint;
000140: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000150: 20 20 20 20 56 41 52 20 6E 61 76 6E 20 3A 20 74 VAR navn : t
000160: 61 62 73 74 72 3B 20 56 41 52 20 61 6E 74 61 6C abstr; VAR antal
000170: 20 3A 20 74 61 62 69 6E 74 3B 20 56 41 52 20 70 : tabint; VAR p
000180: 72 69 73 20 3A 20 74 61 62 72 65 61 6C 3B 20 0D ris : tabreal; .
000190: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0001A0: 20 20 20 74 6F 74 61 6C 2C 20 6D 6F 6D 73 20 3A total, moms :
0001B0: 20 52 45 41 4C 29 3B 0D 0A 20 20 20 20 0D 0A 20 REAL);.. ..
0001C0: 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 70 72 VAR.. pr
0001D0: 69 6B 6B 65 72 20 3A 20 73 74 72 33 30 3B 0D 0A ikker : str30;..
0001E0: 20 20 20 20 20 20 69 20 3A 20 49 4E 54 45 47 45 i : INTEGE
0001F0: 52 3B 0D 0A 20 20 20 20 20 20 0D 0A 20 20 20 20 R;.. ..
Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 66 61 68 72 65 6E 68 65 PROGRAM fahrenhe
000010: 3B 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 ;.... VAR..
000020: 63 65 6C 73 69 75 73 2C 20 66 61 68 72 65 6E 68 celsius, fahrenh
000030: 65 69 74 2C 20 72 65 61 6D 75 72 20 3A 20 52 45 eit, reamur : RE
000040: 41 4C 3B 0D 0A 20 20 0D 0A 20 20 42 45 47 49 4E AL;.. .. BEGIN
000050: 0D 0A 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 .. WRITE(CLRH
000060: 4F 4D 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C OM);.. WRITEL
000070: 4E 28 27 50 72 6F 67 72 61 6D 6D 65 74 20 75 64 N('Programmet ud
000080: 73 6B 72 69 76 65 72 20 43 45 4C 53 49 55 53 2D skriver CELSIUS-
000090: 20 6F 67 20 52 45 41 55 4D 55 52 2D 67 72 61 64 og REAUMUR-grad
0000A0: 74 61 6C 6C 65 6E 65 2C 27 29 3B 0D 0A 20 20 20 tallene,');..
0000B0: 20 57 52 49 54 45 4C 4E 28 27 6E 7D 72 20 6D 61 WRITELN('n}r ma
0000C0: 6E 20 69 6E 64 74 61 73 74 65 72 20 67 72 61 64 n indtaster grad
0000D0: 74 61 6C 6C 65 74 20 66 6F 72 20 46 41 48 52 45 tallet for FAHRE
0000E0: 4E 48 45 49 54 27 29 3B 0D 0A 20 20 20 20 57 52 NHEIT');.. WR
0000F0: 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 ITELN;.. WRIT
000100: 45 28 27 49 6E 64 74 61 73 74 20 46 41 48 52 45 E('Indtast FAHRE
000110: 4E 48 45 49 54 3A 20 27 29 3B 20 52 45 41 44 4C NHEIT: '); READL
000120: 4E 28 66 61 68 72 65 6E 68 65 69 74 29 3B 0D 0A N(fahrenheit);..
000130: 20 20 20 20 63 65 6C 73 69 75 73 20 3A 3D 20 28 celsius := (
000140: 66 61 68 72 65 6E 68 65 69 74 20 2D 20 33 32 29 fahrenheit - 32)
000150: 20 2F 20 31 2E 38 3B 0D 0A 20 20 20 20 72 65 61 / 1.8;.. rea
000160: 6D 75 72 20 3A 3D 20 63 65 6C 73 69 75 73 20 2A mur := celsius *
000170: 20 30 2E 38 3B 0D 0A 20 20 20 20 57 52 49 54 45 0.8;.. WRITE
000180: 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E LN;.. WRITELN
000190: 28 27 46 61 68 72 65 6E 68 65 69 74 3A 20 27 2C ('Fahrenheit: ',
0001A0: 20 66 61 68 72 65 6E 68 65 69 74 20 3A 20 37 20 fahrenheit : 7
0001B0: 3A 20 32 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 : 2);.. WRITE
0001C0: 4C 4E 28 27 43 65 6C 73 69 75 73 3A 20 20 20 20 LN('Celsius:
0001D0: 27 2C 20 63 65 6C 73 69 75 73 20 3A 20 37 20 3A ', celsius : 7 :
0001E0: 20 32 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 2);.. WRITEL
0001F0: 4E 28 27 52 65 61 6D 75 72 3A 20 20 20 20 20 27 N('Reamur: '
Size : 512 (Real : 512)
000000: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 57 52 49 BEGIN.. WRI
000010: 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 TE(CLRHOM);..
000020: 20 20 20 70 72 69 6B 6B 65 72 20 3A 3D 20 27 2E prikker := '.
000030: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E ................
000040: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 27 3B 0D 0A ............';..
000050: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 41 WRITELN('A
000060: 2E 42 2E 43 61 72 6C 73 65 6E 20 41 70 73 27 29 .B.Carlsen Aps')
000070: 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 45 4C 4E ;.. WRITELN
000080: 28 27 53 7C 67 61 64 65 20 34 30 30 27 29 3B 0D ('S|gade 400');.
000090: 0A 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 . WRITELN('
0000A0: 30 30 30 30 20 56 65 73 74 62 79 27 29 3B 0D 0A 0000 Vestby');..
0000B0: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A WRITELN;..
0000C0: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4B WRITELN('K
0000D0: 55 4E 44 45 3A 20 27 2C 20 6B 75 6E 64 65 29 3B UNDE: ', kunde);
0000E0: 0D 0A 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B .. WRITELN;
0000F0: 0D 0A 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 .. WRITELN(
000100: 27 20 20 20 20 20 20 20 20 4E 52 20 20 20 20 20 ' NR
000110: 56 41 52 45 20 20 20 20 20 20 20 20 20 20 20 20 VARE
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 4E AN
000130: 54 41 4C 20 20 20 20 20 20 50 52 49 53 27 2C 0D TAL PRIS',.
000140: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 . '
000150: 20 20 20 20 20 42 45 4C 5C 42 27 29 3B 0D 0A 20 BEL\B');..
000160: 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 WRITELN;..
000170: 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 FOR i := 1
000180: 54 4F 20 70 6F 73 74 61 6E 74 61 6C 20 44 4F 0D TO postantal DO.
000190: 0A 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A . BEGIN..
0001A0: 20 20 20 20 20 20 20 20 20 20 6E 61 76 6E 28 2E navn(.
0001B0: 69 2E 29 20 3A 3D 20 6E 61 76 6E 28 2E 69 2E 29 i.) := navn(.i.)
0001C0: 20 2B 20 27 20 27 20 2B 20 70 72 69 6B 6B 65 72 + ' ' + prikker
0001D0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 ;.. WRI
0001E0: 54 45 4C 4E 28 6E 75 6D 6D 65 72 28 2E 69 2E 29 TELN(nummer(.i.)
0001F0: 20 3A 20 31 30 2C 20 27 20 20 20 20 20 27 2C 20 : 10, ' ',
Size : 512 (Real : 512)
000000: 2C 20 72 65 61 6D 75 72 20 3A 20 37 20 3A 20 32 , reamur : 7 : 2
000010: 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B );.. WRITELN;
000020: 0D 0A 20 20 45 4E 44 2E 0D 0A 1A 20 3A 20 37 20 .. END.... : 7
000030: 3A 20 32 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 : 2);.. WRITE
000040: 4C 4E 28 27 43 65 6C 73 69 75 73 3A 20 20 20 20 LN('Celsius:
000050: 27 2C 20 63 65 6C 73 69 75 73 20 3A 20 37 20 3A ', celsius : 7 :
000060: 20 32 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 2);.. WRITEL
000070: 4E 28 27 52 65 61 6D 75 72 3A 20 20 20 20 20 27 N('Reamur: '
000080: 31 35 20 20 53 09 22 5E 27 23 43 30 27 22 09 53 15 S."^'#C0'".S
000090: 6D 61 72 74 4B 65 79 20 73 65 74 75 70 0D 0A 31 martKey setup..1
0000A0: 36 20 4E 09 22 5E 47 22 09 09 43 43 50 20 63 6C 6 N."^G"..CCP cl
0000B0: 72 0D 0A 31 36 20 20 53 09 22 5E 54 22 09 09 45 r..16 S."^T"..E
0000C0: 38 30 20 64 65 6C 20 77 6F 72 64 20 72 69 67 68 80 del word righ
0000D0: 74 0D 0A 31 36 20 20 20 43 09 22 5E 27 23 38 32 t..16 C."^'#82
0000E0: 27 22 09 45 38 30 20 64 65 6C 20 74 6F 20 65 6E '".E80 del to en
0000F0: 64 20 6F 66 20 6C 69 6E 65 0D 0A 32 30 20 4E 09 d of line..20 N.
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: 6E 61 76 6E 28 2E 69 2E 29 2C 20 61 6E 74 61 6C navn(.i.), antal
000010: 28 2E 69 2E 29 20 3A 20 35 2C 20 0D 0A 20 20 20 (.i.) : 5, ..
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 p
000030: 72 69 73 28 2E 69 2E 29 20 3A 20 31 30 20 3A 20 ris(.i.) : 10 :
000040: 32 2C 20 61 6E 74 61 6C 28 2E 69 2E 29 20 2A 20 2, antal(.i.) *
000050: 70 72 69 73 28 2E 69 2E 29 20 3A 20 31 30 20 3A pris(.i.) : 10 :
000060: 20 32 29 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E 2);.. EN
000070: 44 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 45 4C D;.. WRITEL
000080: 4E 28 27 20 27 20 3A 20 34 35 2C 20 27 2D 2D 2D N(' ' : 45, '---
000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000A0: 2D 2D 2D 2D 2D 2D 27 29 3B 0D 0A 20 20 20 20 20 ------');..
0000B0: 20 57 52 49 54 45 4C 4E 28 27 20 27 20 3A 20 34 WRITELN(' ' : 4
0000C0: 35 2C 20 27 54 4F 54 41 4C 27 2C 20 74 6F 74 61 5, 'TOTAL', tota
0000D0: 6C 20 3A 20 32 30 20 3A 20 32 29 3B 0D 0A 20 20 l : 20 : 2);..
0000E0: 20 20 20 20 57 52 49 54 45 4C 4E 28 27 20 27 20 WRITELN(' '
0000F0: 3A 20 34 35 2C 20 27 4D 4F 4D 53 20 27 2C 20 6D : 45, 'MOMS ', m
000100: 6F 6D 73 20 3A 20 32 30 20 3A 20 32 29 3B 0D 0A oms : 20 : 2);..
000110: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 20 WRITELN('
000120: 27 20 3A 20 34 35 2C 20 27 2D 2D 2D 2D 2D 2D 2D ' : 45, '-------
000130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000140: 2D 2D 27 29 3B 0D 0A 20 20 20 20 20 20 57 52 49 --');.. WRI
000150: 54 45 4C 4E 28 27 20 27 20 3A 20 34 35 2C 20 20 TELN(' ' : 45,
000160: 27 49 41 4C 54 20 27 2C 20 74 6F 74 61 6C 20 2B 'IALT ', total +
000170: 20 6D 6F 6D 73 20 3A 20 32 30 20 3A 20 32 29 3B moms : 20 : 2);
000180: 0D 0A 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 .. END;..
000190: 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 69 .. BEGIN.. i
0001A0: 6E 64 28 6B 75 6E 64 65 6E 61 76 6E 2C 20 61 6E nd(kundenavn, an
0001B0: 74 61 6C 5F 76 61 72 65 72 2C 20 76 61 72 65 6E tal_varer, varen
0001C0: 75 6D 6D 65 72 2C 20 76 61 72 65 6E 61 76 6E 2C ummer, varenavn,
0001D0: 20 76 61 72 65 61 6E 74 61 6C 2C 20 76 61 72 65 vareantal, vare
0001E0: 70 72 69 73 29 3B 0D 0A 20 20 20 20 73 75 6D 20 pris);.. sum
0001F0: 3A 3D 20 30 3B 0D 0A 20 20 20 20 46 4F 52 20 69 := 0;.. FOR i
Size : 512 (Real : 512)
000000: 00 44 3F CE 00 89 3F CE 88 00 65 A8 00 00 FC A8 .D?...?...e.....
000010: 00 00 CC 88 00 04 0B 44 CC CC CC 00 00 28 00 00 .......D.....(..
000020: 54 6C 00 00 74 FC 20 00 35 6F 20 44 BD 3F CC 89 Tl..t. .5o D.?..
000030: 17 3F CE FC 6D 9F 88 00 B8 FC 8A 00 FC FC A8 00 .?..m...........
000040: 44 CC 00 06 0C CF CC CC CC CC CD 00 00 50 28 00 D............P(.
000050: 00 00 00 D8 6C 88 00 00 10 FC FC 64 00 00 10 9D ....l......d....
000060: 6E 64 00 00 44 3F 3F CC 00 44 03 3F 3F CF 88 03 nd..D??..D.??...
000070: A9 6D 9F CC CC 00 54 FC FC 88 00 00 00 52 F4 A8 .m....T......R..
000080: 00 00 00 46 CC A8 00 00 00 CC CC 00 00 08 0D CF ...F............
000090: CC CC CC CC CC CF CF 00 00 00 B4 00 00 00 00 00 ................
0000A0: 00 46 B4 CC 00 00 00 00 00 74 FC EC 20 00 00 00 .F.......t.. ...
0000B0: 00 64 3F CD 20 00 00 00 00 CC 3F 6E 88 00 00 00 .d?. .....?n....
0000C0: 45 17 3F 6E CE 00 00 44 CF BD 3F 6E CE CC 00 45 E.?n...D..?n...E
0000D0: 45 3D FC 9D 88 44 00 00 00 7C FC EC 8A 00 00 00 E=...D...|......
0000E0: 00 A9 F0 ED 00 00 00 00 00 F8 CC CF 00 00 00 00 ................
0000F0: 00 44 CC 88 00 00 00 0A 11 CF CE CC CC CC CC CC .D..............
000100: CC CF CF 00 00 00 00 F0 28 00 00 00 00 00 00 00 ........(.......
000110: 00 F0 6C 00 00 00 00 00 00 00 46 B4 6C 88 00 00 ..l.......F.l...
000120: 00 00 00 10 74 7C FC 98 88 00 00 00 00 10 34 CC ....t|........4.
000130: DC 98 88 00 00 00 00 10 CC 6E 3F 9A 88 00 00 00 .........n?.....
000140: 00 DC BD 66 3F CC 88 00 00 00 44 A9 17 66 3F CD ...f?.....D..f?.
000150: CE 00 00 44 89 FC BD 6E 3F CD CC 88 00 44 56 A9 ...D...n?....DV.
000160: 3D CF 9D 6E CC CC 00 44 45 01 3D FC EC 6E 45 44 =..n...DE.=..nED
000170: 00 00 05 54 A9 FC FC ED 04 00 00 00 00 00 A9 F0 ...T............
000180: 7C A8 00 00 00 00 00 00 F8 CC CC A8 00 00 00 00 |...............
000190: 00 00 46 CC CC 88 00 00 00 00 00 00 44 CC CC 88 ..F.........D...
0001A0: 00 00 00 0B 11 CF CF CC CC CC CC CC CC CC CD CF ................
0001B0: 00 00 00 00 00 78 88 00 00 00 00 00 00 00 00 54 .....x.........T
0001C0: 78 CC 00 00 00 00 00 00 00 01 DC 3C CC CC 00 00 x..........<....
0001D0: 00 00 00 00 30 FC FC FC 98 88 00 00 00 00 00 30 ....0..........0
0001E0: 7C CC DC 98 88 00 00 00 00 00 64 9D 6E 3F CE 88 |.........d.n?..
0001F0: 00 00 00 00 00 DC 7F 6E 3F CD 88 00 00 00 00 44 .......n?......D
Size : 512 (Real : 512)
000000: 20 3A 3D 20 31 20 54 4F 20 61 6E 74 61 6C 5F 76 := 1 TO antal_v
000010: 61 72 65 72 20 44 4F 0D 0A 20 20 20 20 20 20 73 arer DO.. s
000020: 75 6D 20 3A 3D 20 73 75 6D 20 2B 20 76 61 72 65 um := sum + vare
000030: 61 6E 74 61 6C 28 2E 69 2E 29 20 2A 20 76 61 72 antal(.i.) * var
000040: 65 70 72 69 73 28 2E 69 2E 29 3B 0D 0A 20 20 20 epris(.i.);..
000050: 20 6D 6F 6D 73 20 3A 3D 20 73 75 6D 20 2A 20 6D moms := sum * m
000060: 6F 6D 73 70 63 74 20 2F 20 31 30 30 3B 0D 0A 20 omspct / 100;..
000070: 20 20 20 73 6B 72 69 76 28 6B 75 6E 64 65 6E 61 skriv(kundena
000080: 76 6E 2C 20 61 6E 74 61 6C 5F 76 61 72 65 72 2C vn, antal_varer,
000090: 20 76 61 72 65 6E 75 6D 6D 65 72 2C 20 76 61 72 varenummer, var
0000A0: 65 6E 61 76 6E 2C 20 76 61 72 65 61 6E 74 61 6C enavn, vareantal
0000B0: 2C 20 76 61 72 65 70 72 69 73 2C 0D 0A 20 20 20 , varepris,..
0000C0: 20 20 20 20 20 20 20 73 75 6D 2C 20 6D 6F 6D 73 sum, moms
0000D0: 29 3B 0D 0A 20 20 45 4E 44 2E 0D 0A 1A 2A 20 6D );.. END....* m
0000E0: 6F 6D 73 70 63 74 20 2F 20 31 30 30 3B 0D 0A 20 omspct / 100;..
0000F0: 20 20 20 73 6B 72 69 76 28 6B 75 6E 64 65 6E 61 skriv(kundena
000100: 44 23 D7 F6 1D EB D9 DE 82 10 34 00 06 72 5B AB D#........4..r[.
000110: 64 D9 8D AE 84 CD A3 44 D1 94 6D 1B C7 23 E4 29 d......D..m..#.)
000120: 01 4C 86 6B 6A 2D 40 A0 AB 7A CD 8C A1 EC 07 39 .L.kj-@..z.....9
000130: 43 20 BE D4 DA E8 EB 04 2D CF E5 A4 CF 50 A5 CF C ......-....P..
000140: 57 A5 CF A0 A5 CF 18 A6 CF 07 A6 CF 03 A6 CF FE W...............
000150: A4 CF 7F A5 CF 99 A5 CF C6 A5 CF 53 A6 CF 92 A6 ...........S....
000160: 53 CB 07 03 E1 24 00 03 07 00 AA 00 3F 00 C0 00 S....$......?...
000170: 10 00 02 00 41 09 2A 52 E5 02 04 00 27 20 20 A5 ....A.*R....' .
000180: 0C 40 8B 5B 0A 80 44 1F 00 D1 9A 05 00 58 F2 09 .@.[..D......X..
000190: 90 72 1C 32 58 78 33 47 FB F7 88 C0 AA 19 09 58 .r.2Xx3G.......X
0001A0: 68 27 03 38 FA 24 00 05 1F 03 B0 00 3F 00 80 00 h'.8.$......?...
0001B0: 10 00 02 00 41 09 2A 52 E5 02 04 00 4F 01 7C 00 ....A.*R....O.|.
0001C0: 40 74 20 D2 68 0A 00 C0 84 57 01 03 93 1A C1 A8 @t .h....W......
0001D0: 11 32 0E 09 62 03 C1 84 25 00 28 0E 02 D1 D8 61 .2..b...%.(....a
0001E0: 46 B7 D2 02 C2 00 00 0C A3 BA 40 05 70 6C A6 CC F.........@.pl..
0001F0: A5 E5 A5 F5 A5 00 00 50 0A 0E 84 E0 10 6C A6 0C .......P.....l..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
000010: 66 69 62 6F 6E 61 63 31 3B 0D 0A 20 20 20 20 20 fibonac1;..
000020: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 56 .. V
000030: 41 52 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 AR..
000040: 69 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 i : INTEGER;..
000050: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 ..
000060: 20 20 20 20 46 55 4E 43 54 49 4F 4E 20 66 69 62 FUNCTION fib
000070: 28 6E 20 3A 20 49 4E 54 45 47 45 52 29 20 3A 20 (n : INTEGER) :
000080: 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 INTEGER;..
000090: 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 ..
0000A0: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
0000B0: 20 20 20 20 20 20 20 20 20 49 46 20 6E 20 3C 20 IF n <
0000C0: 33 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 3..
0000D0: 20 20 20 54 48 45 4E 20 66 69 62 20 3A 3D 20 31 THEN fib := 1
0000E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0000F0: 20 20 45 4C 53 45 20 66 69 62 20 3A 3D 20 66 69 ELSE fib := fi
000100: 62 28 6E 20 2D 20 31 29 20 2B 20 66 69 62 28 6E b(n - 1) + fib(n
000110: 20 2D 20 32 29 3B 0D 0A 20 20 20 20 20 20 20 20 - 2);..
000120: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 END;..
000130: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 ..
000140: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 BEGIN..
000150: 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F FOR i := 1 TO
000160: 20 32 33 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 23 DO..
000170: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 46 WRITELN('F
000180: 69 62 28 27 2C 20 69 2C 20 27 29 20 3D 20 27 2C ib(', i, ') = ',
000190: 20 66 69 62 28 69 29 29 3B 0D 0A 20 20 20 20 20 fib(i));..
0001A0: 20 20 20 20 20 45 4E 44 2E 0D 0A 1A 20 20 20 20 END....
0001B0: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 ..
0001C0: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 BEGIN..
0001D0: 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F FOR i := 1 TO
0001E0: 20 32 33 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 23 DO..
0001F0: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 46 WRITELN('F
Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 66 69 62 6F 3B 0D 0A 0D PROGRAM fibo;...
000010: 0A 20 20 56 41 52 0D 0A 20 20 20 20 61 2C 20 62 . VAR.. a, b
000020: 2C 20 73 75 6D 20 3A 20 49 4E 54 45 47 45 52 3B , sum : INTEGER;
000030: 0D 0A 20 20 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 .. .. BEGIN..
000040: 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 WRITE(CLRHOM)
000050: 3B 0D 0A 20 20 20 20 57 52 49 54 45 28 27 54 61 ;.. WRITE('Ta
000060: 73 74 20 64 65 74 20 66 7C 72 73 74 65 20 74 61 st det f|rste ta
000070: 6C 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 61 29 l: '); READLN(a)
000080: 3B 0D 0A 20 20 20 20 57 52 49 54 45 28 27 54 61 ;.. WRITE('Ta
000090: 73 74 20 64 65 74 20 61 6E 64 65 74 20 74 61 6C st det andet tal
0000A0: 3A 20 20 27 29 3B 20 52 45 41 44 4C 4E 28 62 29 : '); READLN(b)
0000B0: 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 61 ;.. WRITELN(a
0000C0: 20 3A 20 36 29 3B 0D 0A 20 20 20 20 57 52 49 54 : 6);.. WRIT
0000D0: 45 4C 4E 28 62 20 3A 20 36 29 3B 0D 0A 20 20 20 ELN(b : 6);..
0000E0: 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 73 REPEAT.. s
0000F0: 75 6D 20 3A 3D 20 61 20 2B 20 62 3B 0D 0A 20 20 um := a + b;..
000100: 20 20 20 20 57 52 49 54 45 4C 4E 28 73 75 6D 20 WRITELN(sum
000110: 3A 20 36 29 3B 0D 0A 20 20 20 20 20 20 61 20 3A : 6);.. a :
000120: 3D 20 62 3B 0D 0A 20 20 20 20 20 20 62 20 3A 3D = b;.. b :=
000130: 20 73 75 6D 3B 0D 0A 20 20 20 20 55 4E 54 49 4C sum;.. UNTIL
000140: 20 73 75 6D 20 3E 20 28 4D 41 58 49 4E 54 20 44 sum > (MAXINT D
000150: 49 56 20 32 29 3B 0D 0A 20 20 45 4E 44 2E 0D 0A IV 2);.. END...
000160: 1A 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 73 .REPEAT.. s
000170: 75 6D 20 3A 3D 20 61 20 2B 20 62 3B 0D 0A 20 20 um := a + b;..
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: 64 EC 3F 6E 3F 6E CE 64 00 00 00 00 00 00 00 44 d.?n?n.d.......D
000010: DC 3D 3B 6E 3F 3F CD CC 00 00 00 00 00 00 44 89 .=;n??........D.
000020: 03 3D 3B 6E 3F 3F CD CF CC 00 00 00 00 44 89 03 .=;n??.......D..
000030: 03 3D 37 6E 3F 3F CD CF CC CC 00 00 44 89 03 FC .=7n??......D...
000040: FC 3D 3F 6E 3F 3F CD CE CC CC CC 00 89 03 FC FC .=?n??..........
000050: 16 3D 6F CF CC 3F 6E CC CC CC CC 88 89 00 8A 00 .=o..?n.........
000060: 16 3F DE FC FC 9D 6E 88 00 8A 44 88 02 00 08 00 .?....n...D.....
000070: BC 7E FC FC FC EC 6E 8A 00 08 00 88 00 05 87 00 .~....n.........
000080: FC A9 56 FC FC FC EC 8A 05 87 00 00 00 00 0A 00 ..V.............
000090: 54 03 52 F0 7C FC ED 00 00 0A 00 00 00 00 00 00 T.R.|...........
0000A0: 54 03 E4 CC CC DC FC 00 00 00 00 00 00 00 00 00 T...............
0000B0: 54 52 CC CC CC CC FC 00 00 00 00 00 00 00 00 00 TR..............
0000C0: 01 E4 CC CC CC CC CC 00 00 00 00 00 00 00 00 00 ................
0000D0: 00 CC CC CC CC CC 88 00 00 00 00 00 00 00 00 00 ................
0000E0: 00 00 CC CC CC 88 00 00 00 00 00 00 0D 1B 00 00 ................
0000F0: 00 00 00 14 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: 46 FC 00 00 00 00 00 00 00 00 00 00 00 46 FC 00 F............F..
000110: 00 00 00 00 00 00 00 00 00 00 16 FC 00 00 00 00 ................
000120: 00 00 00 00 00 00 CC 56 CF CC 00 00 00 00 00 00 .......V........
000130: 00 00 44 CC 56 CF CC 88 00 00 00 00 00 00 00 D8 ..D.V...........
000140: F0 56 CF E4 CC 00 00 00 00 00 00 00 D8 F0 56 CF .V............V.
000150: E4 CC 00 00 00 00 00 00 44 E4 CC 56 CF CC D8 88 ........D..V....
000160: 00 00 00 00 00 44 CC CC 46 CF CC CC 88 00 00 00 .....D..F.......
000170: 00 00 44 F0 F0 CC CC F0 CC 88 00 00 00 00 00 D8 ..D.............
000180: E4 CC CC CC CC CC CC 00 00 00 00 00 CC CC CC CC ................
000190: CC CC CC E4 00 00 00 00 44 CC CC CC CC CC CC CC ........D.......
0001A0: CC 88 00 00 00 44 89 03 56 ED CF CC CC CC 88 00 .....D..V.......
0001B0: 00 00 CC 89 03 FC CF CC CC CC CC CC 88 00 44 F0 ..............D.
0001C0: 89 FC ED CC CC CC CC CC CC 88 00 CC CC CC EC CC ................
0001D0: CC CC CC CC CC CC CC 00 D8 03 46 CC CC CC CC CC ..........F.....
0001E0: CC CC DC A9 88 CC CC CC CC CC CC CC CC CC CC CC ................
0001F0: CC 88 CC CC CC CC CC CC CC CC CC CC CC CC 88 89 ................
Size : 512 (Real : 512)
000000: 54 CC CC CD DE FC FC FC FC FC FC 00 00 00 00 00 T...............
000010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 DE ................
000020: FC FC FC FC FC FC FC A8 00 00 00 00 00 00 00 00 ................
000030: 00 00 00 00 00 00 00 00 00 00 88 00 00 3C 3C 3C .............<<<
000040: 3C FC FC 00 00 00 00 00 00 00 00 00 00 00 00 00 <...............
000050: 00 00 00 00 00 88 00 00 00 00 00 00 7C FC 00 00 ............|...
000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000070: 0A 00 00 00 00 00 00 00 00 1B 17 00 00 00 00 00 ................
000080: 00 00 00 00 00 00 00 00 00 54 00 00 00 00 00 00 .........T......
000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: A8 00 00 00 54 00 00 00 00 00 00 00 00 00 00 00 ....T...........
0000B0: 00 00 00 00 00 00 00 00 00 00 00 FC 00 00 00 54 ...............T
0000C0: 00 00 00 00 00 00 00 00 00 03 03 03 00 00 00 00 ................
0000D0: 00 00 00 00 00 00 54 A8 00 00 54 00 00 00 00 00 ......T...T.....
0000E0: 00 00 00 00 03 03 03 00 00 00 00 00 00 00 00 00 ................
0000F0: 00 00 FC FC 54 FC 00 00 00 00 00 00 3C 3C 3C 3C ....T.......<<<<
000100: 29 03 00 00 00 00 00 00 00 00 00 00 00 54 FC FC )............T..
000110: FC A8 00 00 00 CF FC 3C 3C 3C 3C 03 00 00 00 00 .......<<<<.....
000120: 00 00 00 00 00 00 00 00 54 FC FC FC EC CC CC CD ........T.......
000130: DE FC FC BC 3C 03 00 00 00 00 00 00 00 00 00 00 ....<...........
000140: 00 00 00 00 FC BD 7E FC CC CC CF FC FC FC FC FC ......~.........
000150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 54 FC ..............T.
000160: F7 3F FC CC CC DE FC A9 7C A8 00 00 00 00 00 00 .?......|.......
000170: 00 00 00 00 00 00 00 00 00 54 FC B3 B7 FC B8 CC .........T......
000180: DE FC FC 16 00 00 00 00 00 00 00 00 00 00 00 00 ................
000190: 00 00 00 00 FC FC F7 73 3E EC E4 CD FC FC EC 00 .......s>.......
0001A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 54 FC ..............T.
0001B0: 74 F9 BF FC EC 46 CD DE 00 44 0A 00 00 00 00 00 t....F...D......
0001C0: 00 00 00 00 00 00 00 00 00 56 B8 DC FC FC FC EC .........V......
0001D0: 47 CD 00 00 00 0A 00 00 00 00 00 00 00 00 00 00 G...............
0001E0: 00 00 00 03 03 B8 DC F8 56 FC CC CF 00 00 00 00 ........V.......
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 03 03 FC ................
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
000010: 66 69 62 6F 6E 61 63 32 3B 0D 0A 20 20 20 20 20 fibonac2;..
000020: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 56 .. V
000030: 41 52 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 AR..
000040: 69 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 i : INTEGER;..
000050: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 ..
000060: 20 20 20 20 46 55 4E 43 54 49 4F 4E 20 66 69 62 FUNCTION fib
000070: 28 6E 20 3A 20 49 4E 54 45 47 45 52 29 20 3A 20 (n : INTEGER) :
000080: 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 INTEGER;..
000090: 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 ..
0000A0: 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 20 VAR..
0000B0: 20 20 20 20 20 20 20 66 6F 65 72 73 74 65 2C 20 foerste,
0000C0: 6E 61 65 73 74 65 2C 20 69 2C 20 67 65 6D 20 3A naeste, i, gem :
0000D0: 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 INTEGER;..
0000E0: 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 ..
0000F0: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
000100: 20 20 20 20 20 20 20 20 20 20 66 6F 65 72 73 74 foerst
000110: 65 20 3A 3D 20 31 3B 0D 0A 20 20 20 20 20 20 20 e := 1;..
000120: 20 20 20 20 20 20 20 6E 61 65 73 74 65 20 3A 3D naeste :=
000130: 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 1;..
000140: 20 20 20 46 4F 52 20 69 20 3A 3D 20 33 20 54 4F FOR i := 3 TO
000150: 20 6E 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 n DO..
000160: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 BEGIN..
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 67 65 6D 20 3A 3D 20 6E 61 65 73 74 65 3B 0D 0A gem := naeste;..
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001A0: 20 20 6E 61 65 73 74 65 20 3A 3D 20 66 6F 65 72 naeste := foer
0001B0: 73 74 65 20 2B 20 6E 61 65 73 74 65 3B 0D 0A 20 ste + naeste;..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001D0: 20 66 6F 65 72 73 74 65 20 3A 3D 20 67 65 6D 3B foerste := gem;
0001E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0001F0: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 END;..
Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 66 69 62 6F 66 6F 72 68 PROGRAM fiboforh
000010: 3B 0D 0A 0D 0A 20 20 43 4F 4E 53 54 0D 0A 20 20 ;.... CONST..
000020: 20 20 61 6E 74 61 6C 20 3D 20 35 30 3B 0D 0A 20 antal = 50;..
000030: 20 20 20 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 .. VAR..
000040: 61 2C 20 62 2C 20 67 65 6D 2C 20 66 6F 72 68 6F a, b, gem, forho
000050: 6C 64 20 3A 20 52 45 41 4C 3B 0D 0A 20 20 20 20 ld : REAL;..
000060: 69 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 i : INTEGER;..
000070: 20 20 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20 .. BEGIN..
000080: 20 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D WRITE(CLRHOM);.
000090: 0A 20 20 20 20 61 20 3A 3D 20 31 3B 0D 0A 20 20 . a := 1;..
0000A0: 20 20 62 20 3A 3D 20 31 3B 0D 0A 20 20 20 20 46 b := 1;.. F
0000B0: 4F 52 20 69 20 3A 3D 20 31 20 54 4F 20 61 6E 74 OR i := 1 TO ant
0000C0: 61 6C 20 44 4F 0D 0A 20 20 20 20 20 20 42 45 47 al DO.. BEG
0000D0: 49 4E 0D 0A 20 20 20 20 20 20 20 20 67 65 6D 20 IN.. gem
0000E0: 3A 3D 20 62 3B 0D 0A 20 20 20 20 20 20 20 20 62 := b;.. b
0000F0: 20 3A 3D 20 61 20 2B 20 62 3B 0D 0A 20 20 20 20 := a + b;..
000100: 20 20 20 20 61 20 3A 3D 20 67 65 6D 3B 0D 0A 20 a := gem;..
000110: 20 20 20 20 20 20 20 66 6F 72 68 6F 6C 64 20 3A forhold :
000120: 3D 20 62 20 2F 20 61 3B 0D 0A 20 20 20 20 20 20 = b / a;..
000130: 20 20 57 52 49 54 45 4C 4E 28 61 20 3A 20 31 35 WRITELN(a : 15
000140: 20 3A 20 30 2C 20 62 20 3A 20 31 35 20 3A 20 30 : 0, b : 15 : 0
000150: 2C 20 66 6F 72 68 6F 6C 64 20 3A 20 31 35 20 3A , forhold : 15 :
000160: 20 38 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 8,..
000170: 20 20 20 20 20 53 51 52 28 32 20 2A 20 66 6F 72 SQR(2 * for
000180: 68 6F 6C 64 20 2D 20 31 29 20 3A 20 31 35 20 3A hold - 1) : 15 :
000190: 20 38 29 3B 0D 0A 20 20 20 20 20 20 45 4E 44 3B 8);.. END;
0001A0: 0D 0A 20 20 45 4E 44 2E 0D 0A 1A 20 20 20 20 20 .. END....
0001B0: 20 20 57 52 49 54 45 4C 4E 28 61 20 3A 20 31 35 WRITELN(a : 15
0001C0: 20 3A 20 30 2C 20 62 20 3A 20 31 35 20 3A 20 30 : 0, b : 15 : 0
0001D0: 2C 20 66 6F 72 68 6F 6C 64 20 3A 20 31 35 20 3A , forhold : 15 :
0001E0: 20 38 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 8,..
0001F0: 20 20 20 20 20 53 51 52 28 32 20 2A 20 66 6F 72 SQR(2 * for
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 66 69 62 20 3A 3D 20 6E 61 65 fib := nae
000010: 73 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ste;..
000020: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 END;..
000030: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 42 45 .. BE
000040: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
000050: 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F 20 32 FOR i := 1 TO 2
000060: 33 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 3 DO..
000070: 20 20 20 20 57 52 49 54 45 4C 4E 28 27 20 20 20 WRITELN('
000080: 20 20 20 20 20 46 69 62 28 27 2C 20 69 2C 20 27 Fib(', i, '
000090: 29 20 3D 20 27 2C 20 66 69 62 28 69 29 29 3B 0D ) = ', fib(i));.
0000A0: 0A 20 20 20 20 20 20 20 20 20 20 45 4E 44 2E 0D . END..
0000B0: 0A 1A 0D 0A 20 20 20 20 20 20 20 20 20 20 42 45 .... BE
0000C0: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
0000D0: 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F 20 32 FOR i := 1 TO 2
0000E0: 33 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 3 DO..
0000F0: 20 20 20 20 57 52 49 54 45 4C 4E 28 27 20 20 20 WRITELN('
000100: 1F 3A A9 2E 3C C2 12 02 3E 2A CD BB 1F 3E 3F C3 .:..<...>*...>?.
000110: 20 02 3D F5 5F CD C9 17 F1 6F 26 00 CD BD 1C AF .=._....o&.....
000120: 32 5B 2F CD AA 1F 3A 00 21 5C 2F E5 CD C7 15 CD 2[/...:.!\/.....
000130: AA 1F 20 20 00 21 FF FF 22 AC 2E 23 22 CC 2E 22 .. .!.."..#".."
000140: CE 2E CD E1 1C 21 28 3E 11 5B 2F CD F4 13 7D B4 .....!(>.[/...}.
000150: 2B CA 68 02 23 22 AC 2E CD 8B 1A CD CF 1A CD 9C +.h.#"..........
000160: 1B 2A B7 2E 2B 22 AC 2E E5 CD F8 02 E1 23 CD F2 .*..+".......#..
000170: 1F 22 BF 2E 21 00 00 22 B3 2E 22 D0 2E 22 D2 2E ."..!.."..".."..
000180: 31 28 3E 3A A9 2E 32 DB 2E CD CE 17 2A AC 2E 23 1(>:..2.....*..#
000190: 7D B4 C2 BB 02 CD AA 1F 0D 0A 0D 0A 4E 6F 20 66 }...........No f
0001A0: 69 6C 65 73 2E 00 CD 40 17 FE 58 CA E4 02 FE 4C iles...@..X....L
0001B0: CA 2D 07 FE 53 CA B0 03 C3 80 02 CD A3 1F 2A B3 .-..S.........*.
0001C0: 2E CD F2 1F CD CE 15 CD 40 17 47 21 80 02 E5 21 ........@.G!...!
0001D0: 35 03 7E B7 C8 B8 23 CA DF 02 23 23 C3 D2 02 5E 5.~...#...##...^
0001E0: 23 56 D5 C9 3A A6 2E 5F 0E 0E CD 05 00 3A A8 2E #V..:.._.....:..
0001F0: 5F CD C9 17 31 00 00 C9 E5 CD 43 1C 2A CE 2E 0E _...1.....C.*...
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
000010: 66 6C 65 74 6E 69 6E 67 3B 0D 0A 20 20 20 20 20 fletning;..
000020: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 28 .. (
000030: 2A 20 42 6C 61 6E 64 69 6E 67 20 61 66 20 6B 6F * Blanding af ko
000040: 72 74 20 76 65 64 20 73 61 6D 6D 65 6E 66 6C 65 rt ved sammenfle
000050: 74 6E 69 6E 67 20 2A 29 0D 0A 20 20 20 20 20 20 tning *)..
000060: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 43 4F .. CO
000070: 4E 53 54 0D 0A 20 20 20 20 20 20 20 20 20 20 20 NST..
000080: 20 61 6E 74 61 6C 6B 6F 72 74 20 3D 20 35 32 3B antalkort = 52;
000090: 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 .. ..
0000A0: 20 20 20 20 20 20 20 20 54 59 50 45 0D 0A 20 20 TYPE..
0000B0: 20 20 20 20 20 20 20 20 20 20 6B 75 6C 6F 65 72 kuloer
0000C0: 65 72 20 3D 20 28 6B 6C 6F 65 72 2C 20 72 75 64 er = (kloer, rud
0000D0: 65 72 2C 20 68 6A 65 72 74 65 72 2C 20 73 70 61 er, hjerter, spa
0000E0: 72 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 r);..
0000F0: 20 76 61 65 72 64 69 20 3D 20 52 45 43 4F 52 44 vaerdi = RECORD
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 6B 75 6C 6F 65 72 20 3A 20 kuloer :
000120: 6B 75 6C 6F 65 72 65 72 3B 0D 0A 20 20 20 20 20 kuloerer;..
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000140: 6E 72 20 3A 20 31 20 2E 2E 20 31 33 3B 0D 0A 20 nr : 1 .. 13;..
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000160: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 END;..
000170: 20 20 20 20 70 6F 69 6E 74 65 72 20 3D 20 5E 20 pointer = ^
000180: 6B 6F 72 74 3B 0D 0A 20 20 20 20 20 20 20 20 20 kort;..
000190: 20 20 20 6B 6F 72 74 20 3D 20 52 45 43 4F 52 44 kort = RECORD
0001A0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0001B0: 20 20 20 20 20 20 20 62 69 6C 6C 65 64 65 20 3A billede :
0001C0: 20 76 61 65 72 64 69 3B 0D 0A 20 20 20 20 20 20 vaerdi;..
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6E n
0001E0: 61 65 73 74 65 20 3A 20 70 6F 69 6E 74 65 72 3B aeste : pointer;
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 66 69 6C 6B 6F 70 69 3B PROGRAM filkopi;
000010: 0D 0A 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 20 .... TYPE..
000020: 62 75 66 66 65 72 74 79 70 65 20 3D 20 41 52 52 buffertype = ARR
000030: 41 59 28 2E 31 20 2E 2E 20 31 32 38 30 30 2E 29 AY(.1 .. 12800.)
000040: 20 4F 46 20 43 48 41 52 3B 0D 0A 20 20 20 20 73 OF CHAR;.. s
000050: 74 72 31 34 20 3D 20 53 54 52 49 4E 47 28 2E 31 tr14 = STRING(.1
000060: 34 2E 29 3B 0D 0A 20 20 20 20 0D 0A 20 20 56 41 4.);.. .. VA
000070: 52 0D 0A 20 20 20 20 62 75 66 66 65 72 20 3A 20 R.. buffer :
000080: 62 75 66 66 65 72 74 79 70 65 3B 0D 0A 20 20 20 buffertype;..
000090: 20 69 6E 64 6E 61 76 6E 2C 20 75 64 6E 61 76 6E indnavn, udnavn
0000A0: 20 3A 20 73 74 72 31 34 3B 0D 0A 20 20 20 20 69 : str14;.. i
0000B0: 6E 64 66 69 6C 2C 20 75 64 66 69 6C 20 3A 20 46 ndfil, udfil : F
0000C0: 49 4C 45 3B 0D 0A 20 20 20 20 69 2C 20 6C 61 65 ILE;.. i, lae
0000D0: 6E 67 64 65 20 3A 20 49 4E 54 45 47 45 52 3B 0D ngde : INTEGER;.
0000E0: 0A 20 20 20 20 0D 0A 20 20 42 45 47 49 4E 0D 0A . .. BEGIN..
0000F0: 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F 4D WRITE(CLRHOM
000100: 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 28 27 48 );.. WRITE('H
000110: 76 69 6C 6B 65 6E 20 66 69 6C 20 73 6B 61 6C 20 vilken fil skal
000120: 6B 6F 70 69 65 72 65 73 3A 20 27 29 3B 20 52 45 kopieres: '); RE
000130: 41 44 4C 4E 28 69 6E 64 6E 61 76 6E 29 3B 0D 0A ADLN(indnavn);..
000140: 20 20 20 20 57 52 49 54 45 28 27 48 76 61 64 20 WRITE('Hvad
000150: 73 6B 61 6C 20 6B 6F 70 69 65 6E 20 68 65 64 64 skal kopien hedd
000160: 65 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 75 64 e: '); READLN(ud
000170: 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 41 53 53 49 navn);.. ASSI
000180: 47 4E 28 69 6E 64 66 69 6C 2C 20 69 6E 64 6E 61 GN(indfil, indna
000190: 76 6E 29 3B 0D 0A 20 20 20 20 41 53 53 49 47 4E vn);.. ASSIGN
0001A0: 28 75 64 66 69 6C 2C 20 75 64 6E 61 76 6E 29 3B (udfil, udnavn);
0001B0: 0D 0A 20 20 20 20 52 45 53 45 54 28 69 6E 64 66 .. RESET(indf
0001C0: 69 6C 29 3B 0D 0A 20 20 20 20 52 45 57 52 49 54 il);.. REWRIT
0001D0: 45 28 75 64 66 69 6C 29 3B 0D 0A 20 20 20 20 6C E(udfil);.. l
0001E0: 61 65 6E 67 64 65 20 3A 3D 20 4C 45 4E 47 54 48 aengde := LENGTH
0001F0: 28 69 6E 64 66 69 6C 29 3B 0D 0A 20 20 20 20 69 (indfil);.. i
Size : 512 (Real : 512)
000000: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
000010: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 ..
000020: 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 20 20 VAR..
000030: 20 20 74 6F 70 20 3A 20 70 6F 69 6E 74 65 72 3B top : pointer;
000040: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 61 6E .. an
000050: 74 61 6C 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A tal : INTEGER;..
000060: 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 ..
000070: 20 20 20 20 20 20 20 20 50 52 4F 43 45 44 55 52 PROCEDUR
000080: 45 20 6F 70 72 65 74 73 70 69 6C 3B 0D 0A 20 20 E opretspil;..
000090: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 ..
0000A0: 20 20 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 VAR..
0000B0: 20 20 20 20 20 20 20 20 20 66 61 72 76 65 20 3A farve :
0000C0: 20 6B 75 6C 6F 65 72 65 72 3B 0D 0A 20 20 20 20 kuloerer;..
0000D0: 20 20 20 20 20 20 20 20 20 20 69 20 3A 20 49 4E i : IN
0000E0: 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 20 20 TEGER;..
0000F0: 20 20 20 20 20 20 6B 70 20 3A 20 70 6F 69 6E 74 kp : point
000100: 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 er;..
000110: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 .. B
000120: 45 47 49 4E 20 28 2A 20 6F 70 72 65 74 73 70 69 EGIN (* opretspi
000130: 6C 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 l *)..
000140: 20 20 20 20 74 6F 70 20 3A 3D 20 4E 49 4C 3B 0D top := NIL;.
000150: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 . F
000160: 4F 52 20 66 61 72 76 65 20 3A 3D 20 73 70 61 72 OR farve := spar
000170: 20 44 4F 57 4E 54 4F 20 6B 6C 6F 65 72 20 44 4F DOWNTO kloer DO
000180: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000190: 20 20 46 4F 52 20 69 20 3A 3D 20 31 33 20 44 4F FOR i := 13 DO
0001A0: 57 4E 54 4F 20 31 20 44 4F 0D 0A 20 20 20 20 20 WNTO 1 DO..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 BEG
0001C0: 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 IN..
0001D0: 20 20 20 20 20 20 20 20 4E 45 57 28 6B 70 29 3B NEW(kp);
0001E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0001F0: 20 20 20 20 20 20 57 49 54 48 20 6B 70 5E 20 44 WITH kp^ D
Size : 512 (Real : 512)
000000: 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 49 46 20 6C := 0;.. IF l
000010: 61 65 6E 67 64 65 20 3E 3D 20 31 30 30 20 0D 0A aengde >= 100 ..
000020: 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 THEN..
000030: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
000040: 20 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 REPEAT..
000050: 20 20 20 20 20 20 20 20 20 42 4C 4F 43 4B 52 45 BLOCKRE
000060: 41 44 28 69 6E 64 66 69 6C 2C 20 62 75 66 66 65 AD(indfil, buffe
000070: 72 2C 20 31 30 30 29 3B 0D 0A 20 20 20 20 20 20 r, 100);..
000080: 20 20 20 20 20 20 42 4C 4F 43 4B 57 52 49 54 45 BLOCKWRITE
000090: 28 75 64 66 69 6C 2C 20 62 75 66 66 65 72 2C 20 (udfil, buffer,
0000A0: 31 30 30 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 100);..
0000B0: 20 20 20 69 20 3A 3D 20 69 20 2B 20 31 30 30 3B i := i + 100;
0000C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 55 4E 54 49 .. UNTI
0000D0: 4C 20 28 6C 61 65 6E 67 64 65 20 2D 20 69 29 20 L (laengde - i)
0000E0: 3C 20 31 30 30 3B 0D 0A 20 20 20 20 20 20 20 20 < 100;..
0000F0: 45 4E 44 3B 0D 0A 20 20 20 20 49 46 20 28 6C 61 END;.. IF (la
000100: 65 6E 67 64 65 20 2D 20 69 29 20 3E 20 30 0D 0A engde - i) > 0..
000110: 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 THEN..
000120: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
000130: 20 20 20 20 20 42 4C 4F 43 4B 52 45 41 44 28 69 BLOCKREAD(i
000140: 6E 64 66 69 6C 2C 20 62 75 66 66 65 72 2C 20 6C ndfil, buffer, l
000150: 61 65 6E 67 64 65 20 2D 20 69 29 3B 0D 0A 20 20 aengde - i);..
000160: 20 20 20 20 20 20 20 20 42 4C 4F 43 4B 57 52 49 BLOCKWRI
000170: 54 45 28 75 64 66 69 6C 2C 20 62 75 66 66 65 72 TE(udfil, buffer
000180: 2C 20 6C 61 65 6E 67 64 65 20 2D 20 69 29 3B 0D , laengde - i);.
000190: 0A 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 . END;..
0001A0: 20 20 20 43 4C 4F 53 45 28 69 6E 64 66 69 6C 29 CLOSE(indfil)
0001B0: 3B 0D 0A 20 20 20 20 43 4C 4F 53 45 28 75 64 66 ;.. CLOSE(udf
0001C0: 69 6C 29 3B 0D 0A 20 20 45 4E 44 2E 0D 0A 1A 6C il);.. END....l
0001D0: 61 65 6E 67 64 65 20 2D 20 69 29 3B 0D 0A 20 20 aengde - i);..
0001E0: 20 20 20 20 20 20 20 20 42 4C 4F 43 4B 57 52 49 BLOCKWRI
0001F0: 54 45 28 75 64 66 69 6C 2C 20 62 75 66 66 65 72 TE(udfil, buffer
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 20 20 20 20 20 20 42 45 47 49 4E 0D 0A BEGIN..
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 6E 61 65 73 74 65 20 3A naeste :
000040: 3D 20 74 6F 70 3B 0D 0A 20 20 20 20 20 20 20 20 = top;..
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 62 69 6C 6C 65 64 65 2E 6B 75 6C 6F 65 72 20 3A billede.kuloer :
000070: 3D 20 66 61 72 76 65 3B 0D 0A 20 20 20 20 20 20 = farve;..
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000090: 20 20 62 69 6C 6C 65 64 65 2E 6E 72 20 3A 3D 20 billede.nr :=
0000A0: 69 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 i;..
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 20 20
0000D0: 20 20 20 20 74 6F 70 20 3A 3D 20 6B 70 3B 0D 0A top := kp;..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 45 4E 44 3B 20 28 2A 20 74 6F 70 20 65 72 END; (* top er
000100: 20 6E 75 20 64 65 74 20 66 7C 72 73 74 65 20 6B nu det f|rste k
000110: 6F 72 74 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 ort *)..
000120: 20 20 20 20 45 4E 44 3B 20 28 2A 20 6F 70 72 65 END; (* opre
000130: 74 73 70 69 6C 20 2A 29 0D 0A 20 20 20 20 20 20 tspil *)..
000140: 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 ..
000150: 20 20 50 52 4F 43 45 44 55 52 45 20 75 64 73 6B PROCEDURE udsk
000160: 72 69 76 28 73 74 61 72 74 20 3A 20 70 6F 69 6E riv(start : poin
000170: 74 65 72 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 ter);..
000180: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 ..
000190: 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 VAR..
0001A0: 20 20 20 20 20 20 69 20 3A 20 49 4E 54 45 47 45 i : INTEGE
0001B0: 52 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 R;..
0001C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 45 .. BE
0001D0: 47 49 4E 20 28 2A 20 75 64 73 6B 72 69 76 20 2A GIN (* udskriv *
0001E0: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 )..
0001F0: 20 69 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 20 20 i := 0;..
Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 66 6C 61 64 65 3B 0D 0A PROGRAM flade;..
000010: 20 20 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 62 .. VAR.. b
000020: 72 65 64 64 65 2C 20 6C 61 65 6E 67 64 65 2C 20 redde, laengde,
000030: 68 6F 65 6A 64 65 2C 20 6F 76 65 72 66 6C 61 64 hoejde, overflad
000040: 65 20 3A 20 52 45 41 4C 3B 0D 0A 20 20 20 20 0D e : REAL;.. .
000050: 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 57 52 . BEGIN.. WR
000060: 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 ITE(CLRHOM);..
000070: 20 20 57 52 49 54 45 4C 4E 28 27 50 72 6F 67 72 WRITELN('Progr
000080: 61 6D 6D 65 74 20 66 69 6E 64 65 72 20 6F 76 65 ammet finder ove
000090: 72 66 6C 61 64 65 6E 20 61 66 20 65 6E 20 6B 61 rfladen af en ka
0000A0: 73 73 65 2C 20 6E 7D 72 20 6D 61 6E 20 69 6E 64 sse, n}r man ind
0000B0: 74 61 73 74 65 72 27 29 3B 0D 0A 20 20 20 20 57 taster');.. W
0000C0: 52 49 54 45 4C 4E 28 27 6B 61 73 73 65 6E 73 20 RITELN('kassens
0000D0: 68 7C 6A 64 65 2C 20 6C 7B 6E 67 64 65 20 6F 67 h|jde, l{ngde og
0000E0: 20 62 72 65 64 64 65 2E 27 29 3B 0D 0A 20 20 20 bredde.');..
0000F0: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 57 WRITELN;.. W
000100: 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 6B 61 RITE('Indtast ka
000110: 73 73 65 6E 73 20 62 72 65 64 64 65 3A 20 27 29 ssens bredde: ')
000120: 3B 20 52 45 41 44 4C 4E 28 62 72 65 64 64 65 29 ; READLN(bredde)
000130: 3B 0D 0A 20 20 20 20 57 52 49 54 45 28 27 49 6E ;.. WRITE('In
000140: 64 74 61 73 74 20 6B 61 73 73 65 6E 73 20 6C 7B dtast kassens l{
000150: 6E 67 64 65 3A 20 27 29 3B 20 52 45 41 44 4C 4E ngde: '); READLN
000160: 28 6C 61 65 6E 67 64 65 29 3B 0D 0A 20 20 20 20 (laengde);..
000170: 57 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 6B WRITE('Indtast k
000180: 61 73 73 65 6E 73 20 68 7C 6A 64 65 3A 20 20 27 assens h|jde: '
000190: 29 3B 20 52 45 41 44 4C 4E 28 68 6F 65 6A 64 65 ); READLN(hoejde
0001A0: 29 3B 0D 0A 20 20 20 20 6F 76 65 72 66 6C 61 64 );.. overflad
0001B0: 65 20 3A 3D 20 28 62 72 65 64 64 65 20 2A 20 6C e := (bredde * l
0001C0: 61 65 6E 67 64 65 20 2B 20 62 72 65 64 64 65 20 aengde + bredde
0001D0: 2A 20 68 6F 65 6A 64 65 20 2B 20 6C 61 65 6E 67 * hoejde + laeng
0001E0: 64 65 20 2A 20 68 6F 65 6A 64 65 29 20 2A 20 32 de * hoejde) * 2
0001F0: 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D ;.. WRITELN;.
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 57 48 49 4C 45 20 73 74 WHILE st
000010: 61 72 74 20 3C 3E 20 4E 49 4C 20 44 4F 0D 0A 20 art <> NIL DO..
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 B
000030: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
000040: 20 20 20 20 20 20 20 20 57 49 54 48 20 73 74 61 WITH sta
000050: 72 74 5E 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 rt^ DO..
000060: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 BEGI
000070: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 N..
000080: 20 20 20 20 20 20 20 20 20 43 41 53 45 20 62 69 CASE bi
000090: 6C 6C 65 64 65 2E 6B 75 6C 6F 65 72 20 4F 46 0D llede.kuloer OF.
0000A0: 0A 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 6B 6C 6F 65 72 20 20 kloer
0000C0: 20 3A 20 57 52 49 54 45 28 27 20 4B 27 29 3B 0D : WRITE(' K');.
0000D0: 0A 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 72 75 64 65 72 20 20 ruder
0000F0: 20 3A 20 57 52 49 54 45 28 27 20 52 27 29 3B 0D : WRITE(' R');.
000100: 0A 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 68 6A 65 72 74 65 72 hjerter
000120: 20 3A 20 57 52 49 54 45 28 27 20 48 27 29 3B 0D : WRITE(' H');.
000130: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000140: 20 20 20 20 20 20 20 20 20 73 70 61 72 20 20 20 spar
000150: 20 3A 20 57 52 49 54 45 28 27 20 53 27 29 3B 0D : WRITE(' S');.
000160: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000170: 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 END;..
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000190: 20 20 20 57 52 49 54 45 28 62 69 6C 6C 65 64 65 WRITE(billede
0001A0: 2E 6E 72 20 3A 32 29 3B 0D 0A 20 20 20 20 20 20 .nr :2);..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E EN
0001C0: 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 D;..
0001D0: 20 20 20 20 20 20 73 74 61 72 74 20 3A 3D 20 73 start := s
0001E0: 74 61 72 74 5E 2E 6E 61 65 73 74 65 3B 0D 0A 20 tart^.naeste;..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
Size : 512 (Real : 512)
000000: 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 42 72 . WRITELN('Br
000010: 65 64 64 65 6E 3A 20 20 20 20 27 2C 20 62 72 65 edden: ', bre
000020: 64 64 65 20 3A 20 38 20 3A 20 32 2C 20 27 20 63 dde : 8 : 2, ' c
000030: 6D 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C m');.. WRITEL
000040: 4E 28 27 4C 7B 6E 67 64 65 6E 3A 20 20 20 20 27 N('L{ngden: '
000050: 2C 20 6C 61 65 6E 67 64 65 20 3A 20 38 20 3A 20 , laengde : 8 :
000060: 32 2C 20 27 20 63 6D 27 29 3B 0D 0A 20 20 20 20 2, ' cm');..
000070: 57 52 49 54 45 4C 4E 28 27 48 7C 6A 64 65 6E 3A WRITELN('H|jden:
000080: 20 20 20 20 20 27 2C 20 68 6F 65 6A 64 65 20 3A ', hoejde :
000090: 20 38 20 3A 20 32 2C 20 27 20 63 6D 27 29 3B 0D 8 : 2, ' cm');.
0000A0: 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4F 76 . WRITELN('Ov
0000B0: 65 72 66 6C 61 64 65 6E 20 20 27 2C 20 6F 76 65 erfladen ', ove
0000C0: 72 66 6C 61 64 65 20 3A 20 38 20 3A 20 32 2C 20 rflade : 8 : 2,
0000D0: 27 20 63 6D 32 27 29 3B 0D 0A 20 20 20 20 57 52 ' cm2');.. WR
0000E0: 49 54 45 4C 4E 3B 0D 0A 20 20 45 4E 44 2E 0D 0A ITELN;.. END...
0000F0: 1A 52 49 54 45 4C 4E 28 27 48 7C 6A 64 65 6E 3A .RITELN('H|jden:
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 69 20 3A 3D 20 69 20 2B 20 31 3B 0D 0A 20 20 i := i + 1;..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 49 46 20 69 20 4D 4F 44 20 31 33 20 3D 20 30 0D IF i MOD 13 = 0.
000030: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000040: 20 20 20 20 20 54 48 45 4E 20 57 52 49 54 45 4C THEN WRITEL
000050: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 N;..
000060: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 END;..
000070: 20 20 20 20 20 20 45 4E 44 3B 20 28 2A 20 75 64 END; (* ud
000080: 73 6B 72 69 76 20 2A 29 0D 0A 20 20 20 20 20 20 skriv *)..
000090: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 50 .. P
0000A0: 52 4F 43 45 44 55 52 45 20 62 6C 61 6E 64 65 28 ROCEDURE blande(
0000B0: 61 6E 74 61 6C 20 3A 20 49 4E 54 45 47 45 52 29 antal : INTEGER)
0000C0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 ;.. ..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 56 41 52 0D 0A VAR..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6B 70 kp
0000F0: 2C 20 66 6F 65 72 73 74 65 64 65 6C 2C 20 61 6E , foerstedel, an
000100: 64 65 6E 64 65 6C 20 3A 20 70 6F 69 6E 74 65 72 dendel : pointer
000110: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
000120: 20 69 2C 20 6A 20 3A 20 49 4E 54 45 47 45 52 3B i, j : INTEGER;
000130: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A .. ..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 BEGI
000150: 4E 20 28 2A 20 62 6C 61 6E 64 65 20 2A 29 0D 0A N (* blande *)..
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 4F FO
000170: 52 20 69 20 3A 3D 20 31 20 54 4F 20 61 6E 74 61 R i := 1 TO anta
000180: 6C 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 l DO..
000190: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6B k
0001B0: 70 20 3A 3D 20 74 6F 70 3B 0D 0A 20 20 20 20 20 p := top;..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 46 4F 52 FOR
0001D0: 20 6A 20 3A 3D 20 31 20 54 4F 20 28 52 41 4E 44 j := 1 TO (RAND
0001E0: 4F 4D 28 61 6E 74 61 6C 6B 6F 72 74 29 2D 20 31 OM(antalkort)- 1
0001F0: 29 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 ) DO..
Size : 512 (Real : 512)
000000: CD 19 86 E1 36 00 C3 CA 81 E1 11 04 00 19 C1 10 ....6...........
000010: AE C9 CB 3A DA DC 81 C6 08 FE 99 C9 D6 08 FE 99 ...:............
000020: C9 3A BF 84 D6 01 D2 1D 82 ED 5B B9 84 21 10 9C .:........[..!..
000030: 3A 6E 7F A7 CA FF 81 01 26 02 09 3D C2 FA 81 EB :n......&..=....
000040: 01 16 19 C3 20 83 3A AC 84 0F 0F 0F 5F 0F 0F 83 .... .:....._...
000050: 6F 26 00 29 ED 5B B7 84 19 22 B9 84 C9 32 BF 84 o&.).[..."...2..
000060: D6 08 DA 4E 82 E6 FE 6F 26 00 11 ED 84 19 5E 23 ...N...o&.....^#
000070: 66 6B 7E 23 47 5E 23 56 23 4E 23 7E 23 E5 C5 47 fk~#G^#V#N#~#..G
000080: 2A B9 84 09 01 16 07 CD 20 83 C1 E1 10 E7 2A B5 *....... .....*.
000090: 84 11 40 01 19 7C FE 2B D0 22 B5 84 11 45 33 01 ..@..|.+."...E3.
0000A0: 10 05 C3 20 83 21 00 03 3A CE 91 E6 01 3E 90 CA ... .!..:....>..
0000B0: 77 82 21 40 04 3E 8C 11 00 C0 D5 01 50 00 ED B0 w.!@.>......P...
0000C0: D1 EB 01 00 08 09 D2 8D 82 01 50 C0 09 EB 3D C2 ..........P...=.
0000D0: 7A 82 C9 08 06 F5 ED 78 CB 1F 30 FA 08 C9 F3 ED z......x..0.....
0000E0: 73 E2 82 31 00 30 3E 30 21 C0 C0 E5 E5 E5 E5 E5 s..1.0>0!.......
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 3D C2 AB 82 3E 60 25 24 21 00 00 C2 AB ...=...>`%$!....
000120: 82 31 00 00 FB C9 00 3A E6 82 3C 32 E6 82 E6 03 .1.....:..<2....
000130: 1E 00 57 CB 22 CB 3F CB 1B 82 57 2A AD 84 19 3A ..W.".?...W*...:
000140: BB 84 E6 60 E5 5F 87 6F 26 00 54 29 19 54 5D 21 ...`._.o&.T).T]!
000150: 80 02 A7 ED 52 44 4D 21 80 1E 19 D1 EB ED B0 C9 ....RDM!........
000160: C5 E5 1A A7 CA 3B 83 E6 AA C2 2F 83 7E E6 AA 4F .....;..../.~..O
000170: 1A E6 55 C2 39 83 7E E6 55 B1 77 13 23 10 E3 E1 ..U.9.~.U.w.#...
000180: 7D C6 50 6F D2 48 83 24 C1 0D C2 20 83 C9 F3 E5 }.Po.H.$... ....
000190: C5 F5 3A 51 7F 3C E6 0F 32 51 7F CB 3F 4F 06 00 ..:Q.<..2Q..?O..
0001A0: 21 81 83 3A AA 84 FE 04 DA 6E 83 21 89 83 09 3E !..:.....n.!...>
0001B0: 02 01 00 7F ED 79 7E F6 40 ED 79 F1 C1 E1 FB ED .....y~.@.y.....
0001C0: 45 0C 0C 0C 0C 0E 0E 0E 0E 0C 0E 0A 0B 0B 0A 0E E...............
0001D0: 0C 00 01 00 00 DE 39 00 00 00 00 00 00 00 00 00 ......9.........
0001E0: 00 00 01 00 00 DE 39 00 00 00 00 00 00 00 00 00 ......9.........
0001F0: 00 00 01 00 00 DE 39 00 00 00 00 00 00 00 00 00 ......9.........
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 6B 70 20 3A 3D 20 kp :=
000010: 6B 70 5E 2E 6E 61 65 73 74 65 3B 0D 0A 20 20 20 kp^.naeste;..
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
000030: 2A 20 4B 6F 72 74 65 6E 65 20 73 6B 69 6C 6C 65 * Kortene skille
000040: 73 20 65 66 74 65 72 20 6B 70 5E 20 2A 29 0D 0A s efter kp^ *)..
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 20 20 66 6F 65 72 73 74 65 64 65 6C 20 3A 3D 20 foerstedel :=
000070: 74 6F 70 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 top;..
000080: 20 20 20 20 20 20 20 20 61 6E 64 65 6E 64 65 6C andendel
000090: 20 3A 3D 20 6B 70 5E 2E 6E 61 65 73 74 65 3B 0D := kp^.naeste;.
0000A0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0000B0: 20 20 20 6B 70 5E 2E 6E 61 65 73 74 65 20 3A 3D kp^.naeste :=
0000C0: 20 4E 49 4C 3B 0D 0A 20 20 20 20 20 20 20 20 20 NIL;..
0000D0: 20 20 20 20 20 20 20 20 20 49 46 20 52 41 4E 44 IF RAND
0000E0: 4F 4D 28 32 29 20 3D 20 30 0D 0A 20 20 20 20 20 OM(2) = 0..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 T
000100: 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 HEN..
000110: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E BEGIN
000120: 0D 0A 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 6B 70 20 3A 3D 20 kp :=
000140: 66 6F 65 72 73 74 65 64 65 6C 3B 0D 0A 20 20 20 foerstedel;..
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000160: 20 20 20 20 20 66 6F 65 72 73 74 65 64 65 6C 20 foerstedel
000170: 3A 3D 20 61 6E 64 65 6E 64 65 6C 3B 0D 0A 20 20 := andendel;..
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000190: 20 20 20 20 20 20 61 6E 64 65 6E 64 65 6C 20 3A andendel :
0001A0: 3D 20 6B 70 3B 0D 0A 20 20 20 20 20 20 20 20 20 = kp;..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 END
0001C0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
0001D0: 20 20 20 20 20 74 6F 70 20 3A 3D 20 66 6F 65 72 top := foer
0001E0: 73 74 65 64 65 6C 3B 0D 0A 20 20 20 20 20 20 20 stedel;..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 6B 70 20 3A 3D kp :=
Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 66 6F 72 6B 6F 72 74 3B PROGRAM forkort;
000010: 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 74 .... VAR.. t
000020: 2C 20 6E 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A , n : INTEGER;..
000030: 20 20 0D 0A 20 20 50 52 4F 43 45 44 55 52 45 20 .. PROCEDURE
000040: 66 6F 72 68 6F 6C 64 28 74 61 65 6C 6C 65 72 2C forhold(taeller,
000050: 20 6E 61 65 76 6E 65 72 20 3A 20 49 4E 54 45 47 naevner : INTEG
000060: 45 52 29 3B 0D 0A 20 20 0D 0A 20 20 20 20 56 41 ER);.. .. VA
000070: 52 0D 0A 20 20 20 20 20 20 74 61 65 6C 6C 65 72 R.. taeller
000080: 6B 6F 70 69 2C 20 6E 61 65 76 6E 65 72 6B 6F 70 kopi, naevnerkop
000090: 69 2C 20 72 65 73 74 20 3A 20 49 4E 54 45 47 45 i, rest : INTEGE
0000A0: 52 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 42 45 R;.. .. BE
0000B0: 47 49 4E 0D 0A 20 20 20 20 20 20 74 61 65 6C 6C GIN.. taell
0000C0: 65 72 6B 6F 70 69 20 3A 3D 20 74 61 65 6C 6C 65 erkopi := taelle
0000D0: 72 3B 0D 0A 20 20 20 20 20 20 6E 61 65 76 6E 65 r;.. naevne
0000E0: 72 6B 6F 70 69 20 3A 3D 20 6E 61 65 76 6E 65 72 rkopi := naevner
0000F0: 3B 0D 0A 20 20 20 20 20 20 52 45 50 45 41 54 0D ;.. REPEAT.
000100: 0A 20 20 20 20 20 20 20 20 72 65 73 74 20 3A 3D . rest :=
000110: 20 74 61 65 6C 6C 65 72 6B 6F 70 69 20 4D 4F 44 taellerkopi MOD
000120: 20 6E 61 65 76 6E 65 72 6B 6F 70 69 3B 0D 0A 20 naevnerkopi;..
000130: 20 20 20 20 20 20 20 74 61 65 6C 6C 65 72 6B 6F taellerko
000140: 70 69 20 3A 3D 20 6E 61 65 76 6E 65 72 6B 6F 70 pi := naevnerkop
000150: 69 3B 0D 0A 20 20 20 20 20 20 20 20 6E 61 65 76 i;.. naev
000160: 6E 65 72 6B 6F 70 69 20 3A 3D 20 72 65 73 74 3B nerkopi := rest;
000170: 0D 0A 20 20 20 20 20 20 55 4E 54 49 4C 20 6E 61 .. UNTIL na
000180: 65 76 6E 65 72 6B 6F 70 69 20 3D 20 30 3B 0D 0A evnerkopi = 0;..
000190: 20 20 20 20 20 20 57 52 49 54 45 28 74 61 65 6C WRITE(tael
0001A0: 6C 65 72 2C 20 27 20 2F 20 27 2C 20 6E 61 65 76 ler, ' / ', naev
0001B0: 6E 65 72 29 3B 0D 0A 20 20 20 20 20 20 49 46 20 ner);.. IF
0001C0: 74 61 65 6C 6C 65 72 6B 6F 70 69 20 3D 20 31 0D taellerkopi = 1.
0001D0: 0A 20 20 20 20 20 20 20 20 54 48 45 4E 20 57 52 . THEN WR
0001E0: 49 54 45 4C 4E 28 27 20 65 72 20 75 66 6F 72 6B ITELN(' er ufork
0001F0: 6F 72 74 65 6C 69 67 27 29 0D 0A 20 20 20 20 20 ortelig')..
Size : 512 (Real : 512)
000000: 20 66 6F 65 72 73 74 65 64 65 6C 3B 0D 0A 20 20 foerstedel;..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 28 2A 20 4E 75 20 66 6C 65 74 74 65 73 20 66 6F (* Nu flettes fo
000030: 65 72 73 74 65 64 65 6C 20 6F 67 20 61 6E 64 65 erstedel og ande
000040: 6E 64 65 6C 20 73 61 6D 6D 65 6E 20 2A 29 0D 0A ndel sammen *)..
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 20 20 57 48 49 4C 45 20 28 66 6F 65 72 73 74 65 WHILE (foerste
000070: 64 65 6C 5E 2E 6E 61 65 73 74 65 20 3C 3E 20 4E del^.naeste <> N
000080: 49 4C 29 20 41 4E 44 20 0D 0A 20 20 20 20 20 20 IL) AND ..
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000A0: 20 20 20 20 28 61 6E 64 65 6E 64 65 6C 5E 2E 6E (andendel^.n
0000B0: 61 65 73 74 65 20 3C 3E 20 4E 49 4C 29 20 44 4F aeste <> NIL) DO
0000C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0000D0: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 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 66 6F 65 72 73 74 65 64 65 6C 20 3A 3D foerstedel :=
000100: 20 66 6F 65 72 73 74 65 64 65 6C 5E 2E 6E 61 65 foerstedel^.nae
000110: 73 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ste;..
000120: 20 20 20 20 20 20 20 20 20 20 20 20 6B 70 5E 2E kp^.
000130: 6E 61 65 73 74 65 20 3A 3D 20 61 6E 64 65 6E 64 naeste := andend
000140: 65 6C 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 el;..
000150: 20 20 20 20 20 20 20 20 20 20 20 6B 70 20 3A 3D kp :=
000160: 20 61 6E 64 65 6E 64 65 6C 3B 0D 0A 20 20 20 20 andendel;..
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 20 20 61 6E 64 65 6E 64 65 6C 20 3A 3D 20 61 6E andendel := an
000190: 64 65 6E 64 65 6C 5E 2E 6E 61 65 73 74 65 3B 0D dendel^.naeste;.
0001A0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0001B0: 20 20 20 20 20 20 20 6B 70 5E 2E 6E 61 65 73 74 kp^.naest
0001C0: 65 20 3A 3D 20 66 6F 65 72 73 74 65 64 65 6C 3B e := foerstedel;
0001D0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0001E0: 20 20 20 20 20 20 20 20 6B 70 3A 3D 66 6F 65 72 kp:=foer
0001F0: 73 74 65 64 65 6C 3B 0D 0A 20 20 20 20 20 20 20 stedel;..
Size : 512 (Real : 512)
000000: 20 45 4C 53 45 20 49 46 20 74 61 65 6C 6C 65 72 ELSE IF taeller
000010: 20 4D 4F 44 20 6E 61 65 76 6E 65 72 20 3D 20 30 MOD naevner = 0
000020: 0D 0A 20 20 20 20 20 20 20 20 54 48 45 4E 20 57 .. THEN W
000030: 52 49 54 45 4C 4E 28 27 20 3D 20 27 2C 20 74 61 RITELN(' = ', ta
000040: 65 6C 6C 65 72 20 44 49 56 20 6E 61 65 76 6E 65 eller DIV naevne
000050: 72 29 0D 0A 20 20 20 20 20 20 45 4C 53 45 0D 0A r).. ELSE..
000060: 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 BEGIN..
000070: 20 20 20 20 20 20 20 20 20 74 61 65 6C 6C 65 72 taeller
000080: 20 3A 3D 20 74 61 65 6C 6C 65 72 20 44 49 56 20 := taeller DIV
000090: 74 61 65 6C 6C 65 72 6B 6F 70 69 3B 0D 0A 20 20 taellerkopi;..
0000A0: 20 20 20 20 20 20 20 20 6E 61 65 76 6E 65 72 20 naevner
0000B0: 3A 3D 20 6E 61 65 76 6E 65 72 20 44 49 56 20 74 := naevner DIV t
0000C0: 61 65 6C 6C 65 72 6B 6F 70 69 3B 0D 0A 20 20 20 aellerkopi;..
0000D0: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 WRITELN('
0000E0: 20 3D 20 27 2C 20 74 61 65 6C 6C 65 72 2C 20 27 = ', taeller, '
0000F0: 20 2F 20 27 2C 20 6E 61 65 76 6E 65 72 29 3B 20 / ', naevner);
000100: 0D 0A 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A .. END;..
000110: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 0D 0A 20 20 END;.. ..
000120: 42 45 47 49 4E 0D 0A 20 20 20 20 57 52 49 54 45 BEGIN.. WRITE
000130: 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 57 (CLRHOM);.. W
000140: 52 49 54 45 28 27 54 61 73 74 20 74 7B 6C 6C 65 RITE('Tast t{lle
000150: 72 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 74 29 r: '); READLN(t)
000160: 3B 0D 0A 20 20 20 20 57 52 49 54 45 28 27 54 61 ;.. WRITE('Ta
000170: 73 74 20 6E 7B 76 6E 65 72 3A 20 27 29 3B 20 52 st n{vner: '); R
000180: 45 41 44 4C 4E 28 6E 29 3B 0D 0A 20 20 20 20 66 EADLN(n);.. f
000190: 6F 72 68 6F 6C 64 28 74 2C 20 6E 29 3B 0D 0A 20 orhold(t, n);..
0001A0: 20 45 4E 44 2E 0D 0A 1A 20 20 20 57 52 49 54 45 END.... WRITE
0001B0: 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 57 (CLRHOM);.. W
0001C0: 52 49 54 45 28 27 54 61 73 74 20 74 7B 6C 6C 65 RITE('Tast t{lle
0001D0: 72 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 74 29 r: '); READLN(t)
0001E0: 3B 0D 0A 20 20 20 20 57 52 49 54 45 28 27 54 61 ;.. WRITE('Ta
0001F0: 73 74 20 6E 7B 76 6E 65 72 3A 20 27 29 3B 20 52 st n{vner: '); R
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 END
000010: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
000020: 20 20 20 20 20 28 2A 20 45 66 74 65 72 20 73 61 (* Efter sa
000030: 6D 6D 65 6E 66 6C 65 74 6E 69 6E 67 65 6E 20 68 mmenfletningen h
000040: 65 66 74 65 73 20 68 61 6C 65 6E 20 70 7D 3A 20 eftes halen p}:
000050: 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 *)..
000060: 20 20 20 20 20 20 49 46 20 66 6F 65 72 73 74 65 IF foerste
000070: 64 65 6C 5E 2E 6E 61 65 73 74 65 20 3C 3E 20 4E del^.naeste <> N
000080: 49 4C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 IL..
000090: 20 20 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 THEN..
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000B0: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 20 61 6E 64 65 6E 64 65 6C 5E 2E 6E 61 65 andendel^.nae
0000E0: 73 74 65 20 3A 3D 20 66 6F 65 72 73 74 65 64 65 ste := foerstede
0000F0: 6C 5E 2E 6E 61 65 73 74 65 3B 0D 0A 20 20 20 20 l^.naeste;..
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 20 20 20 20 6B 70 5E 2E 6E 61 65 73 74 65 20 3A kp^.naeste :
000120: 3D 20 61 6E 64 65 6E 64 65 6C 3B 0D 0A 20 20 20 = andendel;..
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000140: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 END;..
000150: 20 20 20 20 20 20 20 20 20 20 20 49 46 20 61 6E IF an
000160: 64 65 6E 64 65 6C 5E 2E 6E 61 65 73 74 65 20 3C dendel^.naeste <
000170: 3E 20 4E 49 4C 0D 0A 20 20 20 20 20 20 20 20 20 > NIL..
000180: 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 THEN
000190: 6B 70 5E 2E 6E 61 65 73 74 65 20 3A 3D 20 61 6E kp^.naeste := an
0001A0: 64 65 6E 64 65 6C 3B 0D 0A 20 20 20 20 20 20 20 dendel;..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 49 46 20 28 66 IF (f
0001C0: 6F 65 72 73 74 65 64 65 6C 5E 2E 6E 61 65 73 74 oerstedel^.naest
0001D0: 65 20 3D 20 4E 49 4C 29 20 41 4E 44 20 28 61 6E e = NIL) AND (an
0001E0: 64 65 6E 64 65 6C 5E 2E 6E 61 65 73 74 65 20 3D dendel^.naeste =
0001F0: 20 4E 49 4C 29 0D 0A 20 20 20 20 20 20 20 20 20 NIL)..
Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 67 61 65 74 74 65 67 6E PROGRAM gaettegn
000010: 3B 0D 0A 20 20 0D 0A 20 20 54 59 50 45 0D 0A 20 ;.. .. TYPE..
000020: 20 20 20 74 65 67 6E 20 3D 20 53 45 54 20 4F 46 tegn = SET OF
000030: 20 27 41 27 20 2E 2E 20 27 5D 27 3B 0D 0A 20 20 'A' .. ']';..
000040: 20 20 73 74 72 33 30 20 3D 20 53 54 52 49 4E 47 str30 = STRING
000050: 28 2E 33 30 2E 29 3B 0D 0A 20 20 0D 0A 20 20 56 (.30.);.. .. V
000060: 41 52 0D 0A 20 20 20 20 64 61 74 61 6D 61 74 2C AR.. datamat,
000070: 20 73 70 69 6C 6C 65 72 2C 20 66 61 65 6C 6C 65 spiller, faelle
000080: 73 20 3A 20 74 65 67 6E 3B 0D 0A 20 20 20 20 69 s : tegn;.. i
000090: 2C 20 67 61 65 74 2C 20 74 61 65 6C 6C 65 72 20 , gaet, taeller
0000A0: 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 : INTEGER;..
0000B0: 63 68 20 3A 20 43 48 41 52 3B 0D 0A 20 20 20 20 ch : CHAR;..
0000C0: 74 65 6B 73 74 20 3A 20 73 74 72 33 30 3B 0D 0A tekst : str30;..
0000D0: 20 20 0D 0A 20 20 46 55 4E 43 54 49 4F 4E 20 75 .. FUNCTION u
0000E0: 70 70 65 72 63 61 73 65 28 73 74 72 20 3A 20 73 ppercase(str : s
0000F0: 74 72 33 30 29 20 3A 20 73 74 72 33 30 3B 0D 0A tr30) : str30;..
000100: 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A 20 20 20 .. VAR..
000110: 20 20 20 69 20 3A 20 49 4E 54 45 47 45 52 3B 0D i : INTEGER;.
000120: 0A 20 20 20 20 20 20 73 20 3A 20 73 74 72 33 30 . s : str30
000130: 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 42 45 47 ;.. .. BEG
000140: 49 4E 20 28 2A 20 75 70 70 65 72 63 61 73 65 20 IN (* uppercase
000150: 2A 29 0D 0A 20 20 20 20 20 20 73 20 3A 3D 20 27 *).. s := '
000160: 27 3B 0D 0A 20 20 20 20 20 20 46 4F 52 20 69 20 ';.. FOR i
000170: 3A 3D 20 31 20 54 4F 20 4C 45 4E 28 73 74 72 29 := 1 TO LEN(str)
000180: 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 49 46 20 DO.. IF
000190: 28 27 61 27 20 3C 3D 20 73 74 72 28 2E 69 2E 29 ('a' <= str(.i.)
0001A0: 29 20 41 4E 44 20 28 73 74 72 28 2E 69 2E 29 20 ) AND (str(.i.)
0001B0: 3C 3D 20 27 7D 27 29 0D 0A 20 20 20 20 20 20 20 <= '}')..
0001C0: 20 20 20 54 48 45 4E 20 73 20 3A 3D 20 73 20 2B THEN s := s +
0001D0: 20 43 48 52 28 4F 52 44 28 73 74 72 28 2E 69 2E CHR(ORD(str(.i.
0001E0: 29 29 20 2D 20 33 32 29 0D 0A 20 20 20 20 20 20 )) - 32)..
0001F0: 20 20 20 20 45 4C 53 45 20 73 20 3A 3D 20 73 20 ELSE s := s
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 THEN
000010: 66 6F 65 72 73 74 65 64 65 6C 5E 2E 6E 61 65 73 foerstedel^.naes
000020: 74 65 20 3A 3D 20 61 6E 64 65 6E 64 65 6C 3B 0D te := andendel;.
000030: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000040: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 END;..
000050: 20 20 20 45 4E 44 3B 20 28 2A 20 62 6C 61 6E 64 END; (* bland
000060: 65 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 e *)..
000070: 0D 0A 20 20 20 20 20 20 20 20 20 20 42 45 47 49 .. BEGI
000080: 4E 20 28 2A 20 62 6C 61 6E 64 20 2A 29 0D 0A 20 N (* bland *)..
000090: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
0000A0: 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 20 (CLRHOM);..
0000B0: 20 20 20 20 20 20 20 52 41 4E 44 4F 4D 49 5A 45 RANDOMIZE
0000C0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 6F ;.. o
0000D0: 70 72 65 74 73 70 69 6C 3B 0D 0A 20 20 20 20 20 pretspil;..
0000E0: 20 20 20 20 20 20 20 57 52 49 54 45 28 27 48 76 WRITE('Hv
0000F0: 6F 72 20 6D 61 6E 67 65 20 73 61 6D 6D 65 6E 66 or mange sammenf
000100: 6C 65 74 6E 69 6E 67 65 72 20 7C 6E 73 6B 65 73 letninger |nskes
000110: 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 : ');..
000120: 20 20 20 52 45 41 44 4C 4E 28 61 6E 74 61 6C 29 READLN(antal)
000130: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 62 ;.. b
000140: 6C 61 6E 64 65 28 61 6E 74 61 6C 29 3B 0D 0A 20 lande(antal);..
000150: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
000160: 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 LN;..
000170: 20 75 64 73 6B 72 69 76 28 74 6F 70 29 3B 0D 0A udskriv(top);..
000180: 20 20 20 20 20 20 20 20 20 20 45 4E 44 2E 20 28 END. (
000190: 2A 20 62 6C 61 6E 64 20 2A 29 0D 0A 1A 20 20 20 * bland *)...
0001A0: 20 20 20 52 45 41 44 4C 4E 28 61 6E 74 61 6C 29 READLN(antal)
0001B0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 62 ;.. b
0001C0: 6C 61 6E 64 65 28 61 6E 74 61 6C 29 3B 0D 0A 20 lande(antal);..
0001D0: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
0001E0: 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 LN;..
0001F0: 20 75 64 73 6B 72 69 76 28 74 6F 70 29 3B 0D 0A udskriv(top);..
Size : 512 (Real : 512)
000000: 2B 20 73 74 72 28 2E 69 2E 29 3B 0D 0A 20 20 20 + str(.i.);..
000010: 20 20 20 75 70 70 65 72 63 61 73 65 20 3A 3D 20 uppercase :=
000020: 73 3B 0D 0A 20 20 20 20 45 4E 44 3B 20 28 2A 20 s;.. END; (*
000030: 75 70 70 65 72 63 61 73 65 20 2A 29 0D 0A 0D 0A uppercase *)....
000040: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 57 52 49 BEGIN.. WRI
000050: 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 TE(CLRHOM);..
000060: 20 57 52 49 54 45 4C 4E 28 27 44 61 74 61 6D 61 WRITELN('Datama
000070: 74 65 6E 20 76 7B 6C 67 65 72 20 66 69 72 65 20 ten v{lger fire
000080: 66 6F 72 73 6B 65 6C 6C 69 67 65 20 62 6F 67 73 forskellige bogs
000090: 74 61 76 65 72 27 29 3B 0D 0A 20 20 20 20 57 52 taver');.. WR
0000A0: 49 54 45 4C 4E 28 27 44 75 20 73 6B 61 6C 20 69 ITELN('Du skal i
0000B0: 20 73 7D 20 66 7D 20 67 7B 74 20 73 6F 6D 20 6D s} f} g{t som m
0000C0: 75 6C 69 67 74 20 66 69 6E 64 65 20 66 72 65 6D uligt finde frem
0000D0: 20 74 69 6C 20 64 69 73 73 65 20 62 6F 67 73 74 til disse bogst
0000E0: 61 76 65 72 27 29 3B 0D 0A 20 20 20 20 57 52 49 aver');.. WRI
0000F0: 54 45 4C 4E 28 27 44 75 20 67 7B 74 74 65 72 20 TELN('Du g{tter
000100: 76 65 64 20 61 74 20 73 6B 72 69 76 65 20 53 46 ved at skrive SF
000110: 54 2C 20 41 42 43 44 45 46 20 65 2E 6C 2E 27 29 T, ABCDEF e.l.')
000120: 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 ;.. WRITELN('
000130: 53 6F 6D 20 73 76 61 72 20 66 7D 72 20 64 75 20 Som svar f}r du
000140: 41 4E 54 41 4C 4C 45 54 20 61 66 20 62 6F 67 73 ANTALLET af bogs
000150: 74 61 76 65 72 2C 20 64 65 72 20 65 72 20 66 7B taver, der er f{
000160: 6C 6C 65 73 20 66 6F 72 20 64 69 74 27 29 3B 0D lles for dit');.
000170: 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 67 7B . WRITELN('g{
000180: 74 20 6F 67 20 64 61 74 61 6D 61 74 65 6E 73 20 t og datamatens
000190: 62 6F 67 73 74 61 76 65 72 27 29 3B 0D 0A 20 20 bogstaver');..
0001A0: 20 20 57 52 49 54 45 4C 4E 28 27 44 69 74 20 73 WRITELN('Dit s
0001B0: 69 64 73 74 65 20 67 7B 74 20 73 6B 61 6C 20 76 idste g{t skal v
0001C0: 7B 72 65 20 70 7D 20 6E 65 74 6F 70 20 34 20 62 {re p} netop 4 b
0001D0: 6F 67 73 74 61 76 65 72 27 29 3B 0D 0A 20 20 20 ogstaver');..
0001E0: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 52 WRITELN;.. R
0001F0: 41 4E 44 4F 4D 49 5A 45 3B 0D 0A 20 20 20 20 64 ANDOMIZE;.. d
Size : 512 (Real : 512)
000000: 72 65 73 74 20 2B 20 31 2E 29 3B 0D 0A 20 20 20 rest + 1.);..
000010: 20 20 20 57 48 49 4C 45 20 6B 76 6F 74 69 65 6E WHILE kvotien
000020: 74 20 3E 20 30 2E 31 20 44 4F 0D 0A 20 20 20 20 t > 0.1 DO..
000030: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
000040: 20 20 20 20 20 64 69 76 69 64 65 6E 64 20 3A 3D dividend :=
000050: 20 6B 76 6F 74 69 65 6E 74 3B 0D 0A 20 20 20 20 kvotient;..
000060: 20 20 20 20 20 20 6B 76 6F 74 69 65 6E 74 20 3A kvotient :
000070: 3D 20 49 4E 54 28 64 69 76 69 64 65 6E 64 20 2F = INT(dividend /
000080: 20 67 20 2B 20 30 2E 30 30 30 31 29 3B 0D 0A 20 g + 0.0001);..
000090: 20 20 20 20 20 20 20 20 20 72 65 73 74 20 3A 3D rest :=
0000A0: 20 52 4F 55 4E 44 28 64 69 76 69 64 65 6E 64 20 ROUND(dividend
0000B0: 20 2D 20 6B 76 6F 74 69 65 6E 74 20 2A 20 67 29 - kvotient * g)
0000C0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 74 69 6C ;.. til
0000D0: 20 3A 3D 20 63 69 66 72 65 28 2E 72 65 73 74 20 := cifre(.rest
0000E0: 2B 20 31 2E 29 20 2B 20 74 69 6C 3B 0D 0A 20 20 + 1.) + til;..
0000F0: 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 END;..
000100: 45 4E 44 3B 20 28 2A 20 66 72 61 31 30 20 2A 29 END; (* fra10 *)
000110: 0D 0A 20 20 0D 0A 20 20 42 45 47 49 4E 20 28 2A .. .. BEGIN (*
000120: 20 67 72 75 6E 64 74 61 6C 20 2A 29 0D 0A 20 20 grundtal *)..
000130: 20 20 63 69 66 72 65 20 3A 3D 20 27 30 31 32 33 cifre := '0123
000140: 34 35 36 37 38 39 27 3B 0D 0A 20 20 20 20 46 4F 456789';.. FO
000150: 52 20 69 20 3A 3D 20 31 31 20 54 4F 20 6D 61 78 R i := 11 TO max
000160: 20 44 4F 0D 0A 20 20 20 20 20 20 63 69 66 72 65 DO.. cifre
000170: 20 3A 3D 20 63 69 66 72 65 20 2B 20 43 48 52 28 := cifre + CHR(
000180: 4F 52 44 28 27 41 27 29 20 2D 20 31 31 20 2B 20 ORD('A') - 11 +
000190: 69 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 28 43 i);.. WRITE(C
0001A0: 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 52 45 50 LRHOM);.. REP
0001B0: 45 41 54 0D 0A 20 20 20 20 20 20 52 45 50 45 41 EAT.. REPEA
0001C0: 54 0D 0A 20 20 20 20 20 20 20 20 47 4F 54 4F 58 T.. GOTOX
0001D0: 59 28 35 2C 20 31 29 3B 0D 0A 20 20 20 20 20 20 Y(5, 1);..
0001E0: 20 20 57 52 49 54 45 28 43 4C 52 45 4F 4C 29 3B WRITE(CLREOL);
0001F0: 0D 0A 20 20 20 20 20 20 20 20 42 55 46 4C 45 4E .. BUFLEN
Size : 512 (Real : 512)
000000: 61 74 61 6D 61 74 20 3A 3D 20 28 2E 20 2E 29 3B atamat := (. .);
000010: 0D 0A 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 .. REPEAT..
000020: 20 20 20 20 63 68 20 3A 3D 20 43 48 52 28 52 41 ch := CHR(RA
000030: 4E 44 4F 4D 28 4F 52 44 28 27 5D 27 29 20 2D 20 NDOM(ORD(']') -
000040: 4F 52 44 28 27 41 27 29 20 2B 20 31 29 20 2B 20 ORD('A') + 1) +
000050: 4F 52 44 28 27 41 27 29 29 3B 0D 0A 20 20 20 20 ORD('A'));..
000060: 20 20 64 61 74 61 6D 61 74 20 3A 3D 20 64 61 74 datamat := dat
000070: 61 6D 61 74 20 2B 20 28 2E 63 68 2E 29 3B 0D 0A amat + (.ch.);..
000080: 20 20 20 20 20 20 74 61 65 6C 6C 65 72 20 3A 3D taeller :=
000090: 20 30 3B 0D 0A 20 20 20 20 20 20 46 4F 52 20 63 0;.. FOR c
0000A0: 68 20 3A 3D 20 27 41 27 20 54 4F 20 27 5D 27 20 h := 'A' TO ']'
0000B0: 44 4F 0D 0A 20 20 20 20 20 20 20 20 49 46 20 63 DO.. IF c
0000C0: 68 20 49 4E 20 64 61 74 61 6D 61 74 0D 0A 20 20 h IN datamat..
0000D0: 20 20 20 20 20 20 20 20 54 48 45 4E 20 74 61 65 THEN tae
0000E0: 6C 6C 65 72 20 3A 3D 20 74 61 65 6C 6C 65 72 20 ller := taeller
0000F0: 2B 20 31 3B 0D 0A 20 20 20 20 55 4E 54 49 4C 20 + 1;.. UNTIL
000100: 74 61 65 6C 6C 65 72 20 3D 20 34 3B 0D 0A 20 20 taeller = 4;..
000110: 20 20 28 2A 20 46 4F 52 20 63 68 20 3A 3D 20 27 (* FOR ch := '
000120: 41 27 20 54 4F 20 27 5D 27 20 44 4F 20 2A 29 0D A' TO ']' DO *).
000130: 0A 20 20 20 20 28 2A 20 20 49 46 20 63 68 20 49 . (* IF ch I
000140: 4E 20 64 61 74 61 6D 61 74 20 20 20 20 20 20 20 N datamat
000150: 2A 29 0D 0A 20 20 20 20 28 2A 20 20 20 20 54 48 *).. (* TH
000160: 45 4E 20 57 52 49 54 45 28 63 68 2C 20 27 20 27 EN WRITE(ch, ' '
000170: 29 3B 20 2A 29 0D 0A 20 20 20 20 57 52 49 54 45 ); *).. WRITE
000180: 4C 4E 3B 0D 0A 20 20 20 20 67 61 65 74 20 3A 3D LN;.. gaet :=
000190: 20 30 3B 0D 0A 20 20 20 20 52 45 50 45 41 54 0D 0;.. REPEAT.
0001A0: 0A 20 20 20 20 20 20 67 61 65 74 20 3A 3D 20 67 . gaet := g
0001B0: 61 65 74 20 2B 20 31 3B 0D 0A 20 20 20 20 20 20 aet + 1;..
0001C0: 57 52 49 54 45 28 27 54 61 73 74 20 67 7B 74 20 WRITE('Tast g{t
0001D0: 6E 72 2E 20 27 2C 20 67 61 65 74 2C 20 27 3A 20 nr. ', gaet, ':
0001E0: 27 29 3B 0D 0A 20 20 20 20 20 20 52 45 41 44 4C ');.. READL
0001F0: 4E 28 74 65 6B 73 74 29 3B 0D 0A 20 20 20 20 20 N(tekst);..
Size : 512 (Real : 512)
000000: 20 3A 3D 20 32 3B 0D 0A 20 20 20 20 20 20 20 20 := 2;..
000010: 57 52 49 54 45 28 27 46 72 61 20 68 76 69 6C 6B WRITE('Fra hvilk
000020: 65 74 20 74 61 6C 73 79 73 74 65 6D 20 28 32 20 et talsystem (2
000030: 2D 20 27 2C 20 6D 61 78 2C 20 27 29 3A 20 27 29 - ', max, '): ')
000040: 3B 0D 0A 20 20 20 20 20 20 20 20 52 45 41 44 4C ;.. READL
000050: 4E 28 66 72 61 67 72 75 6E 64 74 61 6C 29 3B 0D N(fragrundtal);.
000060: 0A 20 20 20 20 20 20 20 20 56 41 4C 28 66 72 61 . VAL(fra
000070: 67 72 75 6E 64 74 61 6C 2C 20 66 72 61 67 2C 20 grundtal, frag,
000080: 74 65 73 74 29 3B 0D 0A 20 20 20 20 20 20 55 4E test);.. UN
000090: 54 49 4C 20 74 65 73 74 20 3D 20 30 3B 0D 0A 20 TIL test = 0;..
0000A0: 20 20 20 55 4E 54 49 4C 20 28 32 20 3C 3D 20 66 UNTIL (2 <= f
0000B0: 72 61 67 29 20 41 4E 44 20 28 66 72 61 67 20 3C rag) AND (frag <
0000C0: 3D 20 6D 61 78 29 3B 0D 0A 20 20 20 20 47 4F 54 = max);.. GOT
0000D0: 4F 58 59 28 35 2C 20 33 29 3B 0D 0A 20 20 20 20 OXY(5, 3);..
0000E0: 57 52 49 54 45 28 27 43 69 66 72 65 6E 65 20 69 WRITE('Cifrene i
0000F0: 20 27 2C 20 66 72 61 67 2C 20 27 2D 74 61 6C 73 ', frag, '-tals
000100: 79 73 74 65 6D 65 74 3A 20 27 29 3B 0D 0A 20 20 ystemet: ');..
000110: 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F 20 FOR i := 1 TO
000120: 66 72 61 67 20 44 4F 0D 0A 20 20 20 20 20 20 57 frag DO.. W
000130: 52 49 54 45 28 63 69 66 72 65 28 2E 69 2E 29 2C RITE(cifre(.i.),
000140: 20 27 20 27 29 3B 0D 0A 20 20 20 20 52 45 50 45 ' ');.. REPE
000150: 41 54 0D 0A 20 20 20 20 20 20 47 4F 54 4F 58 59 AT.. GOTOXY
000160: 28 35 2C 20 37 29 3B 0D 0A 20 20 20 20 20 20 57 (5, 7);.. W
000170: 52 49 54 45 28 43 4C 52 45 4F 4C 29 3B 0D 0A 20 RITE(CLREOL);..
000180: 20 20 20 20 20 42 55 46 4C 45 4E 20 3A 3D 20 33 BUFLEN := 3
000190: 30 3B 0D 0A 20 20 20 20 20 20 6F 6B 20 3A 3D 20 0;.. ok :=
0001A0: 54 52 55 45 3B 0D 0A 20 20 20 20 20 20 57 52 49 TRUE;.. WRI
0001B0: 54 45 28 27 48 76 69 6C 6B 65 74 20 74 61 6C 20 TE('Hvilket tal
0001C0: 73 6B 61 6C 20 6F 6D 66 6F 72 6D 65 73 3A 20 27 skal omformes: '
0001D0: 29 3B 0D 0A 20 20 20 20 20 20 52 45 41 44 4C 4E );.. READLN
0001E0: 28 66 72 61 74 61 6C 29 3B 0D 0A 20 20 20 20 20 (fratal);..
0001F0: 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F 20 4C FOR i := 1 TO L
Size : 512 (Real : 512)
000000: 20 74 65 6B 73 74 20 3A 3D 20 75 70 70 65 72 63 tekst := upperc
000010: 61 73 65 28 74 65 6B 73 74 29 3B 0D 0A 20 20 20 ase(tekst);..
000020: 20 20 20 73 70 69 6C 6C 65 72 20 3A 3D 20 28 2E spiller := (.
000030: 20 2E 29 3B 0D 0A 20 20 20 20 20 20 46 4F 52 20 .);.. FOR
000040: 69 20 3A 3D 20 31 20 54 4F 20 4C 45 4E 28 74 65 i := 1 TO LEN(te
000050: 6B 73 74 29 20 44 4F 0D 0A 20 20 20 20 20 20 20 kst) DO..
000060: 20 73 70 69 6C 6C 65 72 20 3A 3D 20 73 70 69 6C spiller := spil
000070: 6C 65 72 20 2B 20 28 2E 43 4F 50 59 28 74 65 6B ler + (.COPY(tek
000080: 73 74 2C 20 69 2C 20 31 29 2E 29 3B 0D 0A 20 20 st, i, 1).);..
000090: 20 20 20 20 66 61 65 6C 6C 65 73 20 3A 3D 20 64 faelles := d
0000A0: 61 74 61 6D 61 74 20 2A 20 73 70 69 6C 6C 65 72 atamat * spiller
0000B0: 3B 0D 0A 20 20 20 20 20 20 74 61 65 6C 6C 65 72 ;.. taeller
0000C0: 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 20 20 46 4F := 0;.. FO
0000D0: 52 20 63 68 20 3A 3D 20 27 41 27 20 54 4F 20 27 R ch := 'A' TO '
0000E0: 5D 27 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 49 ]' DO.. I
0000F0: 46 20 63 68 20 49 4E 20 66 61 65 6C 6C 65 73 0D F ch IN faelles.
000100: 0A 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 . THEN
000110: 74 61 65 6C 6C 65 72 20 3A 3D 20 74 61 65 6C 6C taeller := taell
000120: 65 72 20 2B 20 31 3B 0D 0A 20 20 20 20 20 20 57 er + 1;.. W
000130: 52 49 54 45 4C 4E 28 27 41 6E 74 61 6C 20 66 7B RITELN('Antal f{
000140: 6C 6C 65 73 20 62 6F 67 73 74 61 76 65 72 3A 20 lles bogstaver:
000150: 27 2C 20 74 61 65 6C 6C 65 72 29 3B 0D 0A 20 20 ', taeller);..
000160: 20 20 55 4E 54 49 4C 20 28 74 61 65 6C 6C 65 72 UNTIL (taeller
000170: 20 3D 20 34 29 20 41 4E 44 20 28 4C 45 4E 28 74 = 4) AND (LEN(t
000180: 65 6B 73 74 29 20 3D 20 34 29 3B 0D 0A 20 20 20 ekst) = 4);..
000190: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 57 WRITELN;.. W
0001A0: 52 49 54 45 4C 4E 28 27 44 75 20 6B 6C 61 72 65 RITELN('Du klare
0001B0: 64 65 20 64 65 74 20 70 7D 20 27 2C 20 67 61 65 de det p} ', gae
0001C0: 74 2C 20 27 20 66 6F 72 73 7C 67 27 29 3B 0D 0A t, ' fors|g');..
0001D0: 20 20 45 4E 44 2E 0D 0A 1A 72 29 3B 0D 0A 20 20 END....r);..
0001E0: 20 20 55 4E 54 49 4C 20 28 74 61 65 6C 6C 65 72 UNTIL (taeller
0001F0: 20 3D 20 34 29 20 41 4E 44 20 28 4C 45 4E 28 74 = 4) AND (LEN(t
Size : 512 (Real : 512)
000000: 45 4E 28 66 72 61 74 61 6C 29 20 44 4F 0D 0A 20 EN(fratal) DO..
000010: 20 20 20 20 20 20 20 49 46 20 50 4F 53 28 66 72 IF POS(fr
000020: 61 74 61 6C 28 2E 69 2E 29 2C 20 43 4F 50 59 28 atal(.i.), COPY(
000030: 63 69 66 72 65 2C 20 31 2C 20 66 72 61 67 29 29 cifre, 1, frag))
000040: 20 3D 20 30 0D 0A 20 20 20 20 20 20 20 20 20 20 = 0..
000050: 54 48 45 4E 20 6F 6B 20 3A 3D 20 46 41 4C 53 45 THEN ok := FALSE
000060: 3B 0D 0A 20 20 20 20 55 4E 54 49 4C 20 6F 6B 20 ;.. UNTIL ok
000070: 41 4E 44 20 28 4C 45 4E 28 66 72 61 74 61 6C 29 AND (LEN(fratal)
000080: 20 3E 20 30 29 3B 0D 0A 20 20 20 20 52 45 50 45 > 0);.. REPE
000090: 41 54 0D 0A 20 20 20 20 20 20 52 45 50 45 41 54 AT.. REPEAT
0000A0: 0D 0A 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 .. GOTOXY
0000B0: 28 35 2C 20 31 31 29 3B 0D 0A 20 20 20 20 20 20 (5, 11);..
0000C0: 20 20 57 52 49 54 45 28 43 4C 52 45 4F 4C 29 3B WRITE(CLREOL);
0000D0: 0D 0A 20 20 20 20 20 20 20 20 42 55 46 4C 45 4E .. BUFLEN
0000E0: 20 3A 3D 20 32 3B 0D 0A 20 20 20 20 20 20 20 20 := 2;..
0000F0: 57 52 49 54 45 28 27 54 69 6C 20 68 76 69 6C 6B WRITE('Til hvilk
000100: 65 74 20 74 61 6C 73 79 73 74 65 6D 20 28 32 20 et talsystem (2
000110: 2D 20 27 2C 20 6D 61 78 2C 20 27 29 3A 20 27 29 - ', max, '): ')
000120: 3B 0D 0A 20 20 20 20 20 20 20 20 52 45 41 44 4C ;.. READL
000130: 4E 28 74 69 6C 67 72 75 6E 64 74 61 6C 29 3B 0D N(tilgrundtal);.
000140: 0A 20 20 20 20 20 20 20 20 56 41 4C 28 74 69 6C . VAL(til
000150: 67 72 75 6E 64 74 61 6C 2C 20 74 69 6C 67 2C 20 grundtal, tilg,
000160: 74 65 73 74 29 3B 0D 0A 20 20 20 20 20 20 55 4E test);.. UN
000170: 54 49 4C 20 74 65 73 74 20 3D 20 30 3B 0D 0A 20 TIL test = 0;..
000180: 20 20 20 55 4E 54 49 4C 20 28 32 20 3C 3D 20 74 UNTIL (2 <= t
000190: 69 6C 67 29 20 41 4E 44 20 28 74 69 6C 67 20 3C ilg) AND (tilg <
0001A0: 3D 20 6D 61 78 29 3B 0D 0A 20 20 20 20 47 4F 54 = max);.. GOT
0001B0: 4F 58 59 28 35 2C 20 31 33 29 3B 0D 0A 20 20 20 OXY(5, 13);..
0001C0: 20 57 52 49 54 45 28 27 43 69 66 72 65 6E 65 20 WRITE('Cifrene
0001D0: 69 20 27 2C 20 74 69 6C 67 2C 20 27 2D 74 61 6C i ', tilg, '-tal
0001E0: 73 79 73 74 65 6D 65 74 3A 20 27 29 3B 0D 0A 20 systemet: ');..
0001F0: 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F FOR i := 1 TO
Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 67 72 75 6E 64 74 61 6C PROGRAM grundtal
000010: 3B 0D 0A 20 20 0D 0A 20 20 43 4F 4E 53 54 0D 0A ;.. .. CONST..
000020: 20 20 20 20 6D 61 78 20 3D 20 32 30 3B 0D 0A 20 max = 20;..
000030: 20 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 20 73 .. TYPE.. s
000040: 74 72 33 30 20 3D 20 53 54 52 49 4E 47 28 2E 33 tr30 = STRING(.3
000050: 30 2E 29 3B 0D 0A 20 20 20 20 73 74 72 32 20 3D 0.);.. str2 =
000060: 20 53 54 52 49 4E 47 28 2E 32 2E 29 3B 0D 0A 20 STRING(.2.);..
000070: 20 20 20 73 74 72 20 3D 20 53 54 52 49 4E 47 28 str = STRING(
000080: 2E 6D 61 78 2E 29 3B 0D 0A 20 20 20 20 0D 0A 20 .max.);.. ..
000090: 20 56 41 52 0D 0A 20 20 20 20 63 69 66 72 65 20 VAR.. cifre
0000A0: 3A 20 73 74 72 3B 0D 0A 20 20 20 20 66 72 61 74 : str;.. frat
0000B0: 61 6C 2C 20 74 69 6C 74 61 6C 20 3A 20 73 74 72 al, tiltal : str
0000C0: 33 30 3B 0D 0A 20 20 20 20 66 72 61 67 72 75 6E 30;.. fragrun
0000D0: 64 74 61 6C 2C 20 74 69 6C 67 72 75 6E 64 74 61 dtal, tilgrundta
0000E0: 6C 20 3A 20 73 74 72 32 3B 0D 0A 20 20 20 20 66 l : str2;.. f
0000F0: 72 61 67 2C 20 74 69 6C 67 2C 20 74 65 73 74 2C rag, tilg, test,
000100: 20 69 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 i : INTEGER;..
000110: 20 20 20 74 61 6C 31 30 20 3A 20 52 45 41 4C 3B tal10 : REAL;
000120: 0D 0A 20 20 20 20 6F 6B 20 3A 20 42 4F 4F 4C 45 .. ok : BOOLE
000130: 41 4E 3B 0D 0A 20 20 20 20 0D 0A 20 20 50 52 4F AN;.. .. PRO
000140: 43 45 44 55 52 45 20 74 69 6C 31 30 28 67 20 3A CEDURE til10(g :
000150: 20 49 4E 54 45 47 45 52 3B 20 66 72 61 20 3A 20 INTEGER; fra :
000160: 73 74 72 33 30 3B 20 56 41 52 20 74 61 6C 74 69 str30; VAR talti
000170: 20 3A 20 52 45 41 4C 29 3B 0D 0A 20 20 20 20 0D : REAL);.. .
000180: 0A 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 . VAR..
000190: 69 2C 20 66 61 6B 74 6F 72 20 3A 20 49 4E 54 45 i, faktor : INTE
0001A0: 47 45 52 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 GER;.. ..
0001B0: 42 45 47 49 4E 20 28 2A 20 74 69 6C 31 30 20 2A BEGIN (* til10 *
0001C0: 29 0D 0A 20 20 20 20 20 20 74 61 6C 31 30 20 3A ).. tal10 :
0001D0: 3D 20 30 2E 30 3B 0D 0A 20 20 20 20 20 20 46 4F = 0.0;.. FO
0001E0: 52 20 69 20 3A 3D 20 31 20 54 4F 20 4C 45 4E 28 R i := 1 TO LEN(
0001F0: 66 72 61 29 20 44 4F 0D 0A 20 20 20 20 20 20 20 fra) DO..
Size : 512 (Real : 512)
000000: 20 74 69 6C 67 20 44 4F 0D 0A 20 20 20 20 20 20 tilg DO..
000010: 57 52 49 54 45 28 63 69 66 72 65 28 2E 69 2E 29 WRITE(cifre(.i.)
000020: 2C 20 27 20 27 29 3B 0D 0A 20 20 20 20 47 4F 54 , ' ');.. GOT
000030: 4F 58 59 28 35 2C 20 31 37 29 3B 0D 0A 20 20 20 OXY(5, 17);..
000040: 20 57 52 49 54 45 28 66 72 61 67 2C 20 27 2D 74 WRITE(frag, '-t
000050: 61 6C 73 79 73 74 65 6D 65 74 3A 20 27 2C 20 66 alsystemet: ', f
000060: 72 61 74 61 6C 29 3B 0D 0A 20 20 20 20 47 4F 54 ratal);.. GOT
000070: 4F 58 59 28 35 2C 20 31 39 29 3B 0D 0A 20 20 20 OXY(5, 19);..
000080: 20 57 52 49 54 45 28 74 69 6C 67 2C 20 27 2D 74 WRITE(tilg, '-t
000090: 61 6C 73 79 73 74 65 6D 65 74 3A 20 27 29 3B 0D alsystemet: ');.
0000A0: 0A 20 20 20 20 74 69 6C 31 30 28 66 72 61 67 2C . til10(frag,
0000B0: 20 66 72 61 74 61 6C 2C 20 74 61 6C 31 30 29 3B fratal, tal10);
0000C0: 0D 0A 20 20 20 20 66 72 61 31 30 28 74 69 6C 67 .. fra10(tilg
0000D0: 2C 20 74 61 6C 31 30 2C 20 74 69 6C 74 61 6C 29 , tal10, tiltal)
0000E0: 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 74 ;.. WRITELN(t
0000F0: 69 6C 74 61 6C 29 3B 0D 0A 20 20 20 20 57 52 49 iltal);.. WRI
000100: 54 45 4C 4E 3B 0D 0A 20 20 45 4E 44 2E 20 28 2A TELN;.. END. (*
000110: 20 67 72 75 6E 64 74 61 6C 20 2A 29 0D 0A 1A 0D grundtal *)....
000120: 0A 20 20 20 20 74 69 6C 31 30 28 66 72 61 67 2C . til10(frag,
000130: 20 66 72 61 74 61 6C 2C 20 74 61 6C 31 30 29 3B fratal, tal10);
000140: 0D 0A 20 20 20 20 66 72 61 31 30 28 74 69 6C 67 .. fra10(tilg
000150: 2C 20 74 61 6C 31 30 2C 20 74 69 6C 74 61 6C 29 , tal10, tiltal)
000160: 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 74 ;.. WRITELN(t
000170: 69 6C 74 61 6C 29 3B 0D 0A 20 20 20 20 57 52 49 iltal);.. WRI
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 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 BEGIN..
000010: 20 20 49 46 20 4F 52 44 28 66 72 61 28 2E 69 2E IF ORD(fra(.i.
000020: 29 29 20 3C 20 4F 52 44 28 27 41 27 29 0D 0A 20 )) < ORD('A')..
000030: 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 THEN
000040: 66 61 6B 74 6F 72 20 3A 3D 20 4F 52 44 28 66 72 faktor := ORD(fr
000050: 61 28 2E 69 2E 29 29 20 2D 20 4F 52 44 28 27 30 a(.i.)) - ORD('0
000060: 27 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ')..
000070: 45 4C 53 45 20 66 61 6B 74 6F 72 20 3A 3D 20 4F ELSE faktor := O
000080: 52 44 28 66 72 61 28 2E 69 2E 29 29 20 2D 20 4F RD(fra(.i.)) - O
000090: 52 44 28 27 41 27 29 20 2B 20 31 30 3B 0D 0A 20 RD('A') + 10;..
0000A0: 20 20 20 20 20 20 20 20 20 74 61 6C 74 69 20 3A talti :
0000B0: 3D 20 74 61 6C 74 69 20 2A 20 67 20 2B 20 66 61 = talti * g + fa
0000C0: 6B 74 6F 72 3B 0D 0A 20 20 20 20 20 20 20 20 45 ktor;.. E
0000D0: 4E 44 3B 0D 0A 20 20 20 20 45 4E 44 3B 20 28 2A ND;.. END; (*
0000E0: 20 74 69 6C 31 30 20 2A 29 0D 0A 20 20 0D 0A 20 til10 *).. ..
0000F0: 20 50 52 4F 43 45 44 55 52 45 20 66 72 61 31 30 PROCEDURE fra10
000100: 28 67 20 3A 20 49 4E 54 45 47 45 52 3B 20 74 61 (g : INTEGER; ta
000110: 6C 74 69 20 3A 20 52 45 41 4C 3B 20 56 41 52 20 lti : REAL; VAR
000120: 74 69 6C 20 3A 20 73 74 72 33 30 29 3B 0D 0A 20 til : str30);..
000130: 20 0D 0A 20 20 20 20 56 41 52 0D 0A 20 20 20 20 .. VAR..
000140: 20 20 72 65 73 74 20 3A 20 49 4E 54 45 47 45 52 rest : INTEGER
000150: 3B 0D 0A 20 20 20 20 20 20 64 69 76 69 64 65 6E ;.. dividen
000160: 64 2C 20 6B 76 6F 74 69 65 6E 74 20 3A 20 52 45 d, kvotient : RE
000170: 41 4C 3B 0D 0A 20 20 20 20 20 20 0D 0A 20 20 20 AL;.. ..
000180: 20 42 45 47 49 4E 20 28 2A 20 66 72 61 31 30 20 BEGIN (* fra10
000190: 2A 29 0D 0A 20 20 20 20 20 20 6B 76 6F 74 69 65 *).. kvotie
0001A0: 6E 74 20 3A 3D 20 49 4E 54 28 74 61 6C 74 69 20 nt := INT(talti
0001B0: 2F 20 67 20 2B 20 30 2E 30 30 30 31 29 3B 0D 0A / g + 0.0001);..
0001C0: 20 20 20 20 20 20 72 65 73 74 20 3A 3D 20 52 4F rest := RO
0001D0: 55 4E 44 28 74 61 6C 74 69 20 2D 20 6B 76 6F 74 UND(talti - kvot
0001E0: 69 65 6E 74 20 2A 20 67 29 3B 0D 0A 20 20 20 20 ient * g);..
0001F0: 20 20 74 69 6C 20 3A 3D 20 63 69 66 72 65 28 2E til := cifre(.
Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 68 61 72 6D 6F 6E 69 63 PROGRAM harmonic
000010: 3B 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 ;.... VAR..
000020: 69 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 i : INTEGER;..
000030: 20 20 73 75 6D 2C 20 67 72 61 65 6E 73 65 20 3A sum, graense :
000040: 20 52 45 41 4C 3B 0D 0A 20 20 20 20 0D 0A 20 20 REAL;.. ..
000050: 42 45 47 49 4E 0D 0A 20 20 20 20 57 52 49 54 45 BEGIN.. WRITE
000060: 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 57 (CLRHOM);.. W
000070: 52 49 54 45 28 27 54 61 73 74 20 67 72 7B 6E 73 RITE('Tast gr{ns
000080: 65 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 67 72 e: '); READLN(gr
000090: 61 65 6E 73 65 29 3B 0D 0A 20 20 20 20 73 75 6D aense);.. sum
0000A0: 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 69 20 3A 3D := 0;.. i :=
0000B0: 20 30 3B 0D 0A 20 20 20 20 57 48 49 4C 45 20 73 0;.. WHILE s
0000C0: 75 6D 20 3C 20 67 72 61 65 6E 73 65 20 44 4F 0D um < graense DO.
0000D0: 0A 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 . BEGIN..
0000E0: 20 20 20 20 20 20 69 20 3A 3D 20 69 20 2B 20 31 i := i + 1
0000F0: 3B 0D 0A 20 20 20 20 20 20 20 20 73 75 6D 20 3A ;.. sum :
000100: 3D 20 73 75 6D 20 2B 20 31 20 2F 20 69 3B 0D 0A = sum + 1 / i;..
000110: 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 END;..
000120: 57 52 49 54 45 4C 4E 28 27 4D 65 64 20 27 2C 20 WRITELN('Med ',
000130: 69 2C 20 27 20 6C 65 64 20 62 6C 69 76 65 72 20 i, ' led bliver
000140: 73 75 6D 6D 65 6E 3A 20 27 2C 20 73 75 6D 29 3B summen: ', sum);
000150: 0D 0A 20 20 45 4E 44 2E 0D 0A 1A 4E 0D 0A 20 20 .. END....N..
000160: 20 20 20 20 20 20 69 20 3A 3D 20 69 20 2B 20 31 i := i + 1
000170: 3B 0D 0A 20 20 20 20 20 20 20 20 73 75 6D 20 3A ;.. sum :
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 20 20 42 45 47 49 4E 0D BEGIN.
000010: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000020: 20 20 20 20 20 57 52 49 54 45 28 27 55 6C 6F 76 WRITE('Ulov
000030: 6C 69 67 74 20 63 70 72 6E 72 2E 20 2D 20 74 61 ligt cprnr. - ta
000040: 73 74 20 3C 52 45 54 55 52 4E 3E 27 29 3B 0D 0A st <RETURN>');..
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 20 20 20 20 52 45 41 44 4C 4E 28 63 68 29 3B 0D READLN(ch);.
000070: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000080: 20 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 20 20 END..
000090: 20 20 20 20 20 20 45 4C 53 45 20 49 46 20 20 4E ELSE IF N
0000A0: 4F 54 20 73 6F 65 67 28 74 61 62 28 2E 69 6E 64 OT soeg(tab(.ind
0000B0: 65 78 2E 29 2C 20 6E 72 29 0D 0A 20 20 20 20 20 ex.), nr)..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 0D THEN.
0000D0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0000E0: 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 BEGIN..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4E 45 NE
000100: 57 28 70 70 29 3B 0D 0A 20 20 20 20 20 20 20 20 W(pp);..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 70 70 5E 2E pp^.
000120: 6E 61 65 73 74 65 20 3A 3D 20 74 61 62 28 2E 69 naeste := tab(.i
000130: 6E 64 65 78 2E 29 3B 0D 0A 20 20 20 20 20 20 20 ndex.);..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 70 70 5E pp^
000150: 2E 6E 75 6D 6D 65 72 20 3A 3D 20 6E 72 3B 0D 0A .nummer := nr;..
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000170: 20 20 20 20 74 61 62 28 2E 69 6E 64 65 78 2E 29 tab(.index.)
000180: 20 3A 3D 20 70 70 3B 0D 0A 20 20 20 20 20 20 20 := pp;..
000190: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 0D 0A END..
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4C EL
0001B0: 53 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 SE..
0001C0: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001E0: 20 57 52 49 54 45 28 6E 72 2C 20 27 20 66 69 6E WRITE(nr, ' fin
0001F0: 64 65 73 20 61 6C 6C 65 72 65 64 65 20 2D 20 74 des allerede - t
Size : 512 (Real : 512)
000000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
Size : 512 (Real : 512)
000000: 61 73 74 20 3C 52 45 54 55 52 4E 3E 27 29 3B 0D ast <RETURN>');.
000010: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000020: 20 20 20 20 20 52 45 41 44 4C 4E 28 63 68 29 3B READLN(ch);
000030: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000040: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 END;..
000050: 20 20 20 20 20 20 45 4E 44 3B 20 28 2A 20 69 6E END; (* in
000060: 64 73 61 65 74 20 2A 29 0D 0A 20 20 20 20 20 20 dsaet *)..
000070: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 ..
000080: 42 45 47 49 4E 20 28 2A 20 68 61 73 68 74 61 62 BEGIN (* hashtab
000090: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 *)..
0000A0: 20 46 4F 52 20 69 20 3A 3D 20 30 20 54 4F 20 39 FOR i := 0 TO 9
0000B0: 39 39 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 99 DO..
0000C0: 20 20 20 20 20 74 61 62 65 6C 28 2E 69 2E 29 20 tabel(.i.)
0000D0: 3A 3D 20 4E 49 4C 3B 0D 0A 20 20 20 20 20 20 20 := NIL;..
0000E0: 20 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 REPEAT..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
000100: 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 20 (CLRHOM);..
000110: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
000120: 28 27 20 20 20 20 20 49 2E 20 49 6E 64 73 7B 74 (' I. Inds{t
000130: 27 29 3B 0D 0A 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 57 52 49 54 45 WRITE
000160: 4C 4E 28 27 20 20 20 20 20 53 2E 20 53 7C 67 27 LN(' S. S|g'
000170: 29 3B 0D 0A 20 20 20 20 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 20 20 20 20 57 52 49 54 45 4C WRITEL
0001A0: 4E 28 27 20 20 20 20 20 41 2E 20 41 66 73 6C 75 N(' A. Afslu
0001B0: 74 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 t');..
0001C0: 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 WRITELN;..
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 45 REPE
0001E0: 41 54 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 AT..
0001F0: 20 20 20 20 52 45 41 44 28 4B 42 44 2C 20 63 68 READ(KBD, ch
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
000010: 68 61 73 68 74 61 62 3B 0D 0A 20 20 20 20 20 20 hashtab;..
000020: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 28 2A .. (*
000030: 20 63 70 72 2D 6B 6F 6E 74 72 6F 6C 6C 65 6E 20 cpr-kontrollen
000040: 69 20 64 65 74 74 65 20 70 72 6F 67 72 61 6D 20 i dette program
000050: 63 68 65 63 6B 65 72 20 6B 75 6E 20 2A 29 0D 0A checker kun *)..
000060: 20 20 20 20 20 20 20 20 20 20 28 2A 20 6F 6D 20 (* om
000070: 64 65 20 74 72 65 20 73 69 64 73 74 65 20 74 65 de tre sidste te
000080: 67 6E 20 65 72 20 6C 6F 76 6C 69 67 65 20 20 20 gn er lovlige
000090: 20 20 20 20 20 20 20 20 2A 29 0D 0A 20 20 20 20 *)..
0000A0: 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 ..
0000B0: 20 20 54 59 50 45 0D 0A 20 20 20 20 20 20 20 20 TYPE..
0000C0: 20 20 20 20 73 74 72 31 30 20 3D 20 53 54 52 49 str10 = STRI
0000D0: 4E 47 28 2E 31 30 2E 29 3B 0D 0A 20 20 20 20 20 NG(.10.);..
0000E0: 20 20 20 20 20 20 20 69 6E 64 65 78 74 79 70 65 indextype
0000F0: 20 3D 20 30 20 2E 2E 20 39 39 39 3B 0D 0A 20 20 = 0 .. 999;..
000100: 20 20 20 20 20 20 20 20 20 20 70 6F 69 6E 74 65 pointe
000110: 72 20 3D 20 5E 20 70 6F 73 74 3B 0D 0A 20 20 20 r = ^ post;..
000120: 20 20 20 20 20 20 20 20 20 70 6F 73 74 20 3D 20 post =
000130: 52 45 43 4F 52 44 0D 0A 20 20 20 20 20 20 20 20 RECORD..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 6E 61 65 nae
000150: 73 74 65 20 3A 20 70 6F 69 6E 74 65 72 3B 0D 0A ste : pointer;..
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000170: 20 20 20 20 20 6E 75 6D 6D 65 72 20 3A 20 73 74 nummer : st
000180: 72 31 30 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 r10;..
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 68 61 73 68 74 hasht
0001B0: 61 62 65 6C 20 3D 20 41 52 52 41 59 28 2E 69 6E abel = ARRAY(.in
0001C0: 64 65 78 74 79 70 65 2E 29 20 4F 46 20 70 6F 69 dextype.) OF poi
0001D0: 6E 74 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 nter;..
0001E0: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 56 41 52 .. VAR
0001F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 74 61 .. ta
Size : 512 (Real : 512)
000000: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
000010: 20 20 55 4E 54 49 4C 20 63 68 20 49 4E 20 28 2E UNTIL ch IN (.
000020: 27 49 27 2C 20 27 69 27 2C 20 27 53 27 2C 20 27 'I', 'i', 'S', '
000030: 73 27 2C 20 27 41 27 2C 20 27 61 27 2E 29 3B 0D s', 'A', 'a'.);.
000040: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 . C
000050: 41 53 45 20 63 68 20 4F 46 0D 0A 20 20 20 20 20 ASE ch OF..
000060: 20 20 20 20 20 20 20 20 20 20 20 27 49 27 2C 20 'I',
000070: 27 69 27 20 3A 20 42 45 47 49 4E 0D 0A 20 20 20 'i' : BEGIN..
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 57 52 49 54 45 28 WRITE(
0000A0: 27 54 61 73 74 20 63 70 72 6E 75 6D 6D 65 72 3A 'Tast cprnummer:
0000B0: 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ');..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 20 42 55 46 4C 45 4E 20 3A 3D 20 31 30 3B BUFLEN := 10;
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 20 20 20 20 20 20 20 52 R
000100: 45 41 44 4C 4E 28 63 70 72 29 3B 0D 0A 20 20 20 EADLN(cpr);..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000120: 20 20 20 20 20 20 20 20 20 20 69 6E 64 73 61 65 indsae
000130: 74 28 74 61 62 65 6C 2C 20 63 70 72 29 3B 0D 0A t(tabel, cpr);..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D END;.
000160: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000170: 20 27 53 27 2C 20 27 73 27 20 3A 20 42 45 47 49 'S', 's' : BEGI
000180: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 N..
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001A0: 57 52 49 54 45 28 27 48 76 69 6C 6B 65 74 20 63 WRITE('Hvilket c
0001B0: 70 72 6E 75 6D 6D 65 72 20 73 7C 67 65 73 3A 20 prnummer s|ges:
0001C0: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ');..
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001E0: 20 20 42 55 46 4C 45 4E 20 3A 3D 20 31 30 3B 0D BUFLEN := 10;.
0001F0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
Size : 512 (Real : 512)
000000: 62 65 6C 20 3A 20 68 61 73 68 74 61 62 65 6C 3B bel : hashtabel;
000010: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 63 70 .. cp
000020: 72 20 3A 20 73 74 72 31 30 3B 0D 0A 20 20 20 20 r : str10;..
000030: 20 20 20 20 20 20 20 20 63 68 20 3A 20 43 48 41 ch : CHA
000040: 52 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 R;..
000050: 69 6E 64 65 78 20 3A 20 69 6E 64 65 78 74 79 70 index : indextyp
000060: 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 e;..
000070: 69 2C 20 74 65 73 74 20 3A 20 49 4E 54 45 47 45 i, test : INTEGE
000080: 52 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 R;..
000090: 0D 0A 20 20 20 20 20 20 20 20 20 20 46 55 4E 43 .. FUNC
0000A0: 54 49 4F 4E 20 73 6F 65 67 28 74 61 62 70 6F 69 TION soeg(tabpoi
0000B0: 6E 74 65 72 20 3A 20 70 6F 69 6E 74 65 72 3B 20 nter : pointer;
0000C0: 6E 72 20 3A 20 73 74 72 31 30 29 20 3A 20 42 4F nr : str10) : BO
0000D0: 4F 4C 45 41 4E 3B 0D 0A 20 20 20 20 20 20 20 20 OLEAN;..
0000E0: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ..
0000F0: 56 41 52 0D 0A 20 20 20 20 20 20 20 20 20 20 20 VAR..
000100: 20 20 20 66 75 6E 64 65 74 20 3A 20 42 4F 4F 4C fundet : BOOL
000110: 45 41 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 EAN;..
000120: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ..
000130: 42 45 47 49 4E 20 28 2A 20 73 6F 65 67 20 2A 29 BEGIN (* soeg *)
000140: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000150: 66 75 6E 64 65 74 20 3A 3D 46 41 4C 53 45 3B 0D fundet :=FALSE;.
000160: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 . W
000170: 48 49 4C 45 20 28 74 61 62 70 6F 69 6E 74 65 72 HILE (tabpointer
000180: 20 3C 3E 20 4E 49 4C 29 20 41 4E 44 20 4E 4F 54 <> NIL) AND NOT
000190: 20 66 75 6E 64 65 74 20 44 4F 0D 0A 20 20 20 20 fundet DO..
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 74 IF t
0001B0: 61 62 70 6F 69 6E 74 65 72 5E 2E 6E 75 6D 6D 65 abpointer^.numme
0001C0: 72 20 3D 20 6E 72 0D 0A 20 20 20 20 20 20 20 20 r = nr..
0001D0: 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 66 THEN f
0001E0: 75 6E 64 65 74 20 3A 3D 20 54 52 55 45 0D 0A 20 undet := TRUE..
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 52 45 RE
000010: 41 44 4C 4E 28 63 70 72 29 3B 0D 0A 20 20 20 20 ADLN(cpr);..
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 56 41 4C 28 43 4F 50 VAL(COP
000040: 59 28 63 70 72 2C 20 38 2C 20 33 29 2C 20 69 6E Y(cpr, 8, 3), in
000050: 64 65 78 2C 20 74 65 73 74 29 3B 0D 0A 20 20 20 dex, test);..
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 20 20 20 20 20 20 20 20 20 49 46 20 28 74 65 IF (te
000080: 73 74 20 3C 3E 20 30 29 20 4F 52 20 28 4C 45 4E st <> 0) OR (LEN
000090: 28 63 70 72 29 20 3C 20 31 30 29 0D 0A 20 20 20 (cpr) < 10)..
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 54 48 45 4E THEN
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 20
0000E0: 20 20 20 57 52 49 54 45 4C 4E 28 27 55 6C 6F 76 WRITELN('Ulov
0000F0: 6C 69 67 74 20 63 70 72 6E 72 2E 27 29 0D 0A 20 ligt cprnr.')..
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4C EL
000120: 53 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 SE..
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000140: 20 20 20 20 20 49 46 20 73 6F 65 67 28 74 61 62 IF soeg(tab
000150: 65 6C 28 2E 69 6E 64 65 78 2E 29 2C 20 63 70 72 el(.index.), cpr
000160: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 )..
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 20 20 20 20 20 20 54 48 45 4E 20 57 52 49 54 45 THEN WRITE
000190: 4C 4E 28 63 70 72 2C 20 27 20 66 69 6E 64 65 73 LN(cpr, ' findes
0001A0: 27 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ')..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001C0: 20 20 20 20 20 20 20 45 4C 53 45 20 57 52 49 54 ELSE WRIT
0001D0: 45 4C 4E 28 63 70 72 2C 20 27 20 66 69 6E 64 65 ELN(cpr, ' finde
0001E0: 73 20 69 6B 6B 65 27 29 3B 0D 0A 20 20 20 20 20 s ikke');..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
Size : 512 (Real : 512)
000000: 20 45 4C 53 45 20 74 61 62 70 6F 69 6E 74 65 72 ELSE tabpointer
000010: 20 3A 3D 20 74 61 62 70 6F 69 6E 74 65 72 5E 2E := tabpointer^.
000020: 6E 61 65 73 74 65 3B 0D 0A 20 20 20 20 20 20 20 naeste;..
000030: 20 20 20 20 20 20 20 73 6F 65 67 20 3A 3D 20 66 soeg := f
000040: 75 6E 64 65 74 3B 0D 0A 20 20 20 20 20 20 20 20 undet;..
000050: 20 20 20 20 45 4E 44 3B 20 28 2A 20 73 6F 65 67 END; (* soeg
000060: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 *)..
000070: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 50 52 4F .. PRO
000080: 43 45 44 55 52 45 20 69 6E 64 73 61 65 74 28 56 CEDURE indsaet(V
000090: 41 52 20 74 61 62 20 3A 20 68 61 73 68 74 61 62 AR tab : hashtab
0000A0: 65 6C 3B 20 6E 72 20 3A 20 73 74 72 31 30 29 3B el; nr : str10);
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 20 20 56 41 52 0D 0A 20 VAR..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6E 64 ind
0000E0: 65 78 20 3A 20 69 6E 64 65 78 74 79 70 65 3B 0D ex : indextype;.
0000F0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6E . n
000100: 61 65 73 74 65 2C 20 70 70 20 3A 20 70 6F 69 6E aeste, pp : poin
000110: 74 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ter;..
000120: 20 20 20 20 74 65 73 74 20 3A 20 49 4E 54 45 47 test : INTEG
000130: 45 52 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ER;..
000140: 20 20 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A 20 ch : CHAR;..
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A 20 ..
000160: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E BEGIN
000170: 20 28 2A 20 69 6E 64 73 61 65 74 20 2A 29 0D 0A (* indsaet *)..
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 56 41 VA
000190: 4C 28 43 4F 50 59 28 6E 72 2C 20 38 2C 20 33 29 L(COPY(nr, 8, 3)
0001A0: 2C 20 69 6E 64 65 78 2C 20 74 65 73 74 29 3B 0D , index, test);.
0001B0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 . I
0001C0: 46 20 20 28 74 65 73 74 20 3C 3E 20 30 29 20 4F F (test <> 0) O
0001D0: 52 20 28 4C 45 4E 28 6E 72 29 20 3C 20 31 30 29 R (LEN(nr) < 10)
0001E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0001F0: 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 THEN..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 54 WRITE('T
000010: 61 73 74 20 3C 52 45 54 55 52 4E 3E 20 27 29 3B ast <RETURN> ');
000020: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 R
000040: 45 41 44 4C 4E 28 63 68 29 3B 0D 0A 20 20 20 20 EADLN(ch);..
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 45 4E 44 3B 0D 0A 20 20 20 END;..
000070: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D END;.
000080: 0A 20 20 20 20 20 20 20 20 20 20 20 20 55 4E 54 . UNT
000090: 49 4C 20 63 68 20 49 4E 20 28 2E 27 41 27 2C 20 IL ch IN (.'A',
0000A0: 27 61 27 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 'a'.);..
0000B0: 20 20 45 4E 44 2E 20 28 2A 20 68 61 73 68 74 61 END. (* hashta
0000C0: 62 20 2A 29 0D 0A 1A 68 29 3B 0D 0A 20 20 20 20 b *)...h);..
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 45 4E 44 3B 0D 0A 20 20 20 END;..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D END;.
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: 70 72 6F 67 72 61 6D 20 66 69 6C 5F 6F 76 65 72 program fil_over
000010: 66 6F 65 72 73 65 6C 3B 0D 0A 76 61 72 0D 0A 20 foersel;..var..
000020: 20 20 6C 69 6E 3A 20 73 74 72 69 6E 67 5B 20 32 lin: string[ 2
000030: 35 35 5D 3B 0D 0A 20 20 20 66 3A 20 74 65 78 74 55];.. f: text
000040: 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 20 72 65 70 ;..begin.. rep
000050: 65 61 74 0D 0A 20 20 20 20 20 20 77 72 69 74 65 eat.. write
000060: 6C 6E 28 20 61 75 78 29 3B 0D 0A 20 20 20 20 20 ln( aux);..
000070: 20 72 65 61 64 6C 6E 28 20 61 75 78 2C 20 6C 69 readln( aux, li
000080: 6E 29 3B 20 20 20 0D 0A 20 20 20 20 20 20 69 66 n); .. if
000090: 20 6C 69 6E 20 3D 20 27 63 6C 6F 73 65 26 23 78 lin = 'close&#x
0000A0: 79 7A 27 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 yz' then..
0000B0: 20 20 20 63 6C 6F 73 65 28 20 66 29 0D 0A 20 20 close( f)..
0000C0: 20 20 20 20 20 20 20 65 6C 73 65 20 69 66 20 63 else if c
0000D0: 6F 70 79 28 20 6C 69 6E 2C 20 31 2C 20 35 29 20 opy( lin, 1, 5)
0000E0: 3D 20 27 26 23 78 79 7A 27 20 74 68 65 6E 0D 0A = '&#xyz' then..
0000F0: 20 20 20 20 20 20 20 20 20 62 65 67 69 6E 0D 0A begin..
000100: 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 writ
000110: 65 6C 6E 28 20 6C 69 6E 29 3B 0D 0A 20 20 20 20 eln( lin);..
000120: 20 20 20 20 20 20 20 20 61 73 73 69 67 6E 28 20 assign(
000130: 66 2C 20 63 6F 70 79 28 20 6C 69 6E 2C 20 36 2C f, copy( lin, 6,
000140: 20 6C 65 6E 28 6C 69 6E 29 2D 35 20 29 29 3B 0D len(lin)-5 ));.
000150: 0A 20 20 20 20 20 20 20 20 20 20 20 20 72 65 77 . rew
000160: 72 69 74 65 28 20 66 29 3B 0D 0A 20 20 20 20 20 rite( f);..
000170: 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 20 end..
000180: 20 20 65 6C 73 65 20 62 65 67 69 6E 0D 0A 20 20 else begin..
000190: 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 6C writel
0001A0: 6E 28 20 66 2C 20 6C 69 6E 29 3B 0D 0A 20 20 20 n( f, lin);..
0001B0: 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 75 end;.. u
0001C0: 6E 74 69 6C 20 6C 69 6E 20 3D 20 27 64 65 74 20 ntil lin = 'det
0001D0: 76 61 72 20 61 6C 74 20 66 6F 72 20 69 64 61 67 var alt for idag
0001E0: 27 3B 0D 0A 65 6E 64 2E 0D 0A 1A 1A 1A 1A 1A 1A ';..end.........
0001F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
000010: 68 65 6E 74 70 6F 73 74 3B 0D 0A 20 20 20 20 20 hentpost;..
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 6D 65 64 6C 65 6D 73 70 6F 73 74 20 3D 20 52 medlemspost = R
000050: 45 43 4F 52 44 0D 0A 20 20 20 20 20 20 20 20 20 ECORD..
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 20 20 6C 6F 65 62 65 6E 72 20 3A 20 49 4E 54 loebenr : INT
000080: 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 20 20 20 EGER;..
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000A0: 20 20 20 6E 61 76 6E 20 3A 20 53 54 52 49 4E 47 navn : STRING
0000B0: 28 2E 33 30 2E 29 3B 0D 0A 20 20 20 20 20 20 20 (.30.);..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 20 20 20 67 61 64 65 20 3A 20 53 54 52 49 gade : STRI
0000E0: 4E 47 28 2E 33 30 2E 29 3B 0D 0A 20 20 20 20 20 NG(.30.);..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 20 20 20 20 20 20 70 6F 73 74 6E 72 62 79 20 postnrby
000110: 3A 20 53 54 52 49 4E 47 28 2E 33 30 2E 29 3B 0D : STRING(.30.);.
000120: 0A 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 69 6E 66 inf
000140: 6F 20 3A 20 53 54 52 49 4E 47 28 2E 31 30 30 2E o : STRING(.100.
000150: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E EN
000170: 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A D;.. ..
000180: 20 20 20 20 20 20 20 20 20 20 20 20 72 65 67 69 regi
000190: 73 74 65 72 20 3D 20 46 49 4C 45 20 4F 46 20 6D ster = FILE OF m
0001A0: 65 64 6C 65 6D 73 70 6F 73 74 3B 0D 0A 20 20 20 edlemspost;..
0001B0: 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 ..
0001C0: 20 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 VAR..
0001D0: 20 20 20 20 20 20 6D 65 64 6C 65 6D 20 3A 20 6D medlem : m
0001E0: 65 64 6C 65 6D 73 70 6F 73 74 3B 0D 0A 20 20 20 edlemspost;..
0001F0: 20 20 20 20 20 20 20 20 20 72 65 67 69 73 74 65 registe
Size : 512 (Real : 512)
000000: 00 04 FD 2A 00 04 FD 2A F3 A2 F3 A2 3A F3 B2 F3 ...*...*....:...
000010: B2 2A F3 A2 00 A2 2A 2A 00 04 FD 2A 00 04 FD 2A .*....**...*...*
000020: 00 04 FD 3A 00 10 00 10 2A 00 04 FD 2A 2A 0F 03 ...:....*...**..
000030: FD 0A 2A F3 A2 00 00 3F 0F FD 2A 2A 0A 00 00 0A ..*....?..**....
000040: 2A 00 A2 00 00 3A 30 04 FD 3A 30 04 FD 2A 00 04 *....:0..:0..*..
000050: FD 2A 2A 0A 00 00 0A 2A 00 A2 00 00 3A F3 B2 F3 .**....*....:...
000060: B2 3A F3 B2 F3 B2 2A F3 A2 F3 A2 2A 2A 05 0F 0F .:....*....**...
000070: 00 2A 00 04 FD 3A 00 B2 A2 B2 3A 00 B2 A2 B2 2A .*...:....:....*
000080: 00 A2 03 FD 2A 2A 00 04 FD 2A F3 A2 00 00 3A F3 ....**...*....:.
000090: B2 F3 B2 3A F3 B2 F3 B2 2A 51 A2 03 FD 2A 2A 0F ...:....*Q...**.
0000A0: 03 FD 0A 2A A2 A2 00 00 3A A2 10 A2 B2 3A A2 10 ...*....:....:..
0000B0: 00 B2 2A 00 A2 03 FD 2A 2A 0A 00 00 0A 2A F3 F3 ..*....**....*..
0000C0: A2 00 3A F3 B2 F3 B2 3A F3 B2 30 B2 2A F3 A2 F3 ..:....:..0.*...
0000D0: A2 2A 2A 0A 00 00 0A 2A 00 04 FD 3A 00 10 00 10 .**....*...:....
0000E0: 3A 00 10 30 10 2A 00 04 FD 2A 2A 05 0F 0F 00 2A :..0.*...**....*
0000F0: 00 04 FD 3F 0F FD 2A 2A 00 04 FD 2A 00 04 FD 3A ...?..**...*...:
000100: 30 04 FD 2A 00 04 FD 3A 30 04 FD 2A 3F 05 FD 2A 0..*...:0..*?..*
000110: 00 04 FD 3A F3 B2 71 30 2A F3 A2 F3 A2 3A F3 B2 ...:..q0*....:..
000120: F3 B2 2A 2A 0A 00 0A 00 2A 00 04 FD 3A 00 B2 F3 ..**....*...:...
000130: 30 2A 00 A2 00 A2 3A 00 B2 00 B2 2A 2A 0F 03 FD 0*....:....**...
000140: 0A 2A 00 04 FD 3A 71 B2 51 30 2A 51 A2 F3 A2 3A .*...:q.Q0*Q...:
000150: 71 B2 71 B2 2A 2A 0A 00 03 FD 2A 00 04 FD 3A 20 q.q.**....*...:
000160: B2 71 30 2A 00 A2 A2 00 3A 20 B2 20 B2 2A 2A 00 .q0*....: . .**.
000170: 00 0F 0A 2A 0A 00 05 00 3A F3 B2 F3 B2 2A F3 A2 ...*....:....*..
000180: F3 A2 3A F3 B2 F3 B2 2A 2A 00 00 0A 0A 2A 0F 03 ..:....**....*..
000190: FD 0A 3A 00 10 00 10 2A 00 04 FD 3A 00 10 00 10 ..:....*...:....
0001A0: 2A 2A 0F 03 FD 0A 2A 0A 00 03 FD 3F 0F FD 2A 2A **....*....?..**
0001B0: 00 51 00 00 2A 00 04 FD 2A 00 04 FD 3A 30 04 FD .Q..*...*...:0..
0001C0: 2A 00 04 FD 2A 2A 00 51 00 00 2A 00 00 05 00 2A *...**.Q..*....*
0001D0: F3 A2 A2 00 3A F3 B2 F3 B2 2A F3 A2 A2 00 2A 2A ....:....*....**
0001E0: 0A 00 00 0A 2A 0F 0A 00 0A 2A 00 A2 A2 00 3A 00 ....*....*....:.
0001F0: B2 A2 10 2A 00 A2 A2 00 2A 2A 0A 05 00 0A 2A 0A ...*....**....*.
Size : 512 (Real : 512)
000000: 72 66 69 6C 20 3A 20 72 65 67 69 73 74 65 72 3B rfil : register;
000010: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 63 70 .. cp
000020: 6D 6E 61 76 6E 20 3A 20 53 54 52 49 4E 47 28 2E mnavn : STRING(.
000030: 31 34 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 14.);..
000040: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 42 .. B
000050: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
000060: 20 20 57 52 49 54 45 28 43 48 52 28 31 32 29 29 WRITE(CHR(12))
000070: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 57 ;.. W
000080: 52 49 54 45 28 27 48 76 61 64 20 68 65 64 64 65 RITE('Hvad hedde
000090: 72 20 6B 61 72 74 6F 74 65 6B 65 74 20 28 43 50 r kartoteket (CP
0000A0: 2F 4D 20 6E 61 76 6E 29 3A 20 27 29 3B 0D 0A 20 /M navn): ');..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 4C READL
0000C0: 4E 28 63 70 6D 6E 61 76 6E 29 3B 0D 0A 20 20 20 N(cpmnavn);..
0000D0: 20 20 20 20 20 20 20 20 20 41 53 53 49 47 4E 28 ASSIGN(
0000E0: 72 65 67 69 73 74 65 72 66 69 6C 2C 20 63 70 6D registerfil, cpm
0000F0: 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 20 20 20 20 navn);..
000100: 20 20 20 20 52 45 53 45 54 28 72 65 67 69 73 74 RESET(regist
000110: 65 72 66 69 6C 29 3B 0D 0A 20 20 20 20 20 20 20 erfil);..
000120: 20 20 20 20 20 57 48 49 4C 45 20 4E 4F 54 20 45 WHILE NOT E
000130: 4F 46 28 72 65 67 69 73 74 65 72 66 69 6C 29 20 OF(registerfil)
000140: 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 DO..
000150: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 BEGIN..
000160: 20 20 20 20 20 20 20 20 20 52 45 41 44 28 72 65 READ(re
000170: 67 69 73 74 65 72 66 69 6C 2C 20 6D 65 64 6C 65 gisterfil, medle
000180: 6D 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 m);..
000190: 20 20 20 20 20 57 49 54 48 20 6D 65 64 6C 65 6D WITH medlem
0001A0: 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 DO..
0001B0: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 BEGIN..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001D0: 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 WRITELN;..
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001F0: 57 52 49 54 45 4C 4E 28 27 4D 65 64 6C 65 6D 73 WRITELN('Medlems
Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 69 64 65 61 6C 3B 0D 0A PROGRAM ideal;..
000010: 20 20 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 0D 0A 20 20 56 41 52 0D 0A .);.. .. VAR..
000040: 20 20 20 20 6B 6F 65 6E 20 3A 20 73 74 72 36 3B koen : str6;
000050: 0D 0A 20 20 20 20 63 68 20 3A 20 43 48 41 52 3B .. ch : CHAR;
000060: 0D 0A 20 20 20 20 68 6F 65 6A 64 65 20 3A 20 49 .. hoejde : I
000070: 4E 54 45 47 45 52 3B 0D 0A 20 20 0D 0A 20 20 50 NTEGER;.. .. P
000080: 52 4F 43 45 44 55 52 45 20 66 6F 72 73 69 64 65 ROCEDURE forside
000090: 3B 0D 0A 20 20 20 0D 0A 20 20 20 20 43 4F 4E 53 ;.. .. CONS
0000A0: 54 0D 0A 20 20 20 20 20 20 78 20 3D 20 31 30 3B T.. x = 10;
0000B0: 0D 0A 20 20 20 20 20 20 79 20 3D 20 34 3B 0D 0A .. y = 4;..
0000C0: 20 20 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A 20 .. VAR..
0000D0: 20 20 20 20 20 63 68 20 3A 20 43 48 41 52 3B 0D ch : CHAR;.
0000E0: 0A 20 20 20 20 0D 0A 20 20 20 20 42 45 47 49 4E . .. BEGIN
0000F0: 20 28 2A 20 66 6F 72 73 69 64 65 20 2A 29 0D 0A (* forside *)..
000100: 20 20 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 WRITE(CLRH
000110: 4F 4D 29 3B 0D 0A 20 20 20 20 20 20 47 4F 54 4F OM);.. GOTO
000120: 58 59 28 78 2C 20 79 29 3B 0D 0A 20 20 20 20 20 XY(x, y);..
000130: 20 57 52 49 54 45 28 27 2A 2A 2A 2A 2A 2A 2A 2A WRITE('********
000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
000170: 2A 27 29 3B 0D 0A 20 20 20 20 20 20 47 4F 54 4F *');.. GOTO
000180: 58 59 28 78 2C 20 79 20 2B 20 31 29 3B 0D 0A 20 XY(x, y + 1);..
000190: 20 20 20 20 20 57 52 49 54 45 28 27 2A 2A 2A 2A WRITE('****
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001D0: 20 2A 2A 2A 2A 27 29 3B 0D 0A 20 20 20 20 20 20 ****');..
0001E0: 47 4F 54 4F 58 59 28 78 2C 20 79 20 2B 20 32 29 GOTOXY(x, y + 2)
0001F0: 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 45 28 27 ;.. WRITE('
Size : 512 (Real : 512)
000000: 6E 75 6D 6D 65 72 3A 20 27 2C 20 6C 6F 65 62 65 nummer: ', loebe
000010: 6E 72 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 nr);..
000020: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
000030: 4E 28 27 4E 61 76 6E 3A 20 27 2C 20 6E 61 76 6E N('Navn: ', navn
000040: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
000050: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 WRITELN(
000060: 27 47 61 64 65 20 6F 67 20 6E 72 3A 20 27 2C 20 'Gade og nr: ',
000070: 67 61 64 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 gade);..
000080: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
000090: 45 4C 4E 28 27 50 6F 73 74 6E 72 2E 20 6F 67 20 ELN('Postnr. og
0000A0: 62 79 3A 20 27 2C 20 70 6F 73 74 6E 72 62 79 29 by: ', postnrby)
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 57 52 49 54 45 4C 4E 28 27 WRITELN('
0000D0: 4F 70 6C 79 73 6E 69 6E 67 65 72 3A 20 27 2C 20 Oplysninger: ',
0000E0: 69 6E 66 6F 29 3B 0D 0A 20 20 20 20 20 20 20 20 info);..
0000F0: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A END;..
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E EN
000110: 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 D;..
000120: 43 4C 4F 53 45 28 72 65 67 69 73 74 65 72 66 69 CLOSE(registerfi
000130: 6C 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 45 l);.. E
000140: 4E 44 2E 0D 0A 1A 20 57 52 49 54 45 4C 4E 28 27 ND.... WRITELN('
000150: 4F 70 6C 79 73 6E 69 6E 67 65 72 3A 20 27 2C 20 Oplysninger: ',
000160: 69 6E 66 6F 29 3B 0D 0A 20 20 20 20 20 20 20 20 info);..
000170: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A END;..
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 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 ****
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000030: 20 20 20 20 20 2A 2A 2A 2A 27 29 3B 0D 0A 20 20 ****');..
000040: 20 20 20 20 47 4F 54 4F 58 59 28 78 2C 20 79 20 GOTOXY(x, y
000050: 2B 20 33 29 3B 0D 0A 20 20 20 20 20 20 57 52 49 + 3);.. WRI
000060: 54 45 28 27 2A 2A 2A 2A 20 20 20 20 20 20 20 20 TE('****
000070: 20 20 20 20 20 20 20 20 49 20 44 20 45 20 41 20 I D E A
000080: 4C 20 56 20 5B 20 47 20 54 20 20 20 20 20 20 20 L V [ G T
000090: 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 27 29 3B ****');
0000A0: 0D 0A 20 20 20 20 20 20 47 4F 54 4F 58 59 28 78 .. GOTOXY(x
0000B0: 2C 20 79 20 2B 20 34 29 3B 0D 0A 20 20 20 20 20 , y + 4);..
0000C0: 20 57 52 49 54 45 28 27 2A 2A 2A 2A 20 20 20 20 WRITE('****
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A ***
000100: 2A 27 29 3B 0D 0A 20 20 20 20 20 20 47 4F 54 4F *');.. GOTO
000110: 58 59 28 78 2C 20 79 20 2B 20 35 29 3B 0D 0A 20 XY(x, y + 5);..
000120: 20 20 20 20 20 57 52 49 54 45 28 27 2A 2A 2A 2A WRITE('****
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000140: 20 20 20 20 20 20 48 20 4F 20 53 20 20 20 20 20 H O S
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000160: 20 2A 2A 2A 2A 27 29 3B 0D 0A 20 20 20 20 20 20 ****');..
000170: 47 4F 54 4F 58 59 28 78 2C 20 79 20 2B 20 36 29 GOTOXY(x, y + 6)
000180: 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 45 28 27 ;.. WRITE('
000190: 2A 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 ****
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001C0: 20 20 20 20 20 2A 2A 2A 2A 27 29 3B 0D 0A 20 20 ****');..
0001D0: 20 20 20 20 47 4F 54 4F 58 59 28 78 2C 20 79 20 GOTOXY(x, y
0001E0: 2B 20 37 29 3B 0D 0A 20 20 20 20 20 20 57 52 49 + 7);.. WRI
0001F0: 54 45 28 27 2A 2A 2A 2A 20 20 20 20 20 20 20 20 TE('****
Size : 512 (Real : 512)
000000: 3A 30 04 FD 3A 30 04 FD 2A 00 04 FD 2A 2A 0A 05 :0..:0..*...**..
000010: 00 0A 2A 00 00 05 00 3A 71 30 F3 B2 3A 71 30 71 ..*....:q0..:q0q
000020: 30 2A 51 00 F3 A2 2A 2A 00 04 FD 2A 0F 0A 00 0A 0*Q...**...*....
000030: 3A F3 30 A2 B2 3A F3 30 F3 30 2A F3 00 00 A2 2A :.0..:.0.0*....*
000040: 2A 0F 03 FD 0A 2A 0A 05 00 0A 3A 51 30 B2 B2 3A *....*....:Q0..:
000050: 51 30 51 30 2A 51 00 F3 A2 2A 2A 00 03 FD 0A 2A Q0Q0*Q...**....*
000060: 0A 05 0F 00 3A 71 30 B2 B2 3A 71 30 71 30 2A 51 ....:q0..:q0q0*Q
000070: 00 A2 00 2A 2A 0F 03 FD 0A 2A 00 04 FD 3A F3 B2 ...**....*...:..
000080: F3 B2 3A F3 B2 F3 B2 2A F3 A2 F3 A2 2A 2A 00 04 ..:....*....**..
000090: FD 2A 00 04 FD 3A 00 10 00 10 3A 00 10 00 10 2A .*...:....:....*
0000A0: 00 04 FD 2A 3F 19 FD 2A 2A 00 04 FD 2A 00 04 FD ...*?..**...*...
0000B0: 3A 30 04 FD 2A 00 04 FD 3A 30 04 FD 2A 2A 00 04 :0..*...:0..**..
0000C0: FD 2A 00 04 FD 3A 71 30 F3 B2 2A 51 51 00 00 3A .*...:q0..*QQ..:
0000D0: 71 30 F3 B2 2A 2A 0F 03 FD 0A 2A 00 00 05 00 3A q0..**....*....:
0000E0: F3 30 00 B2 2A F3 51 00 00 3A F3 30 A2 10 2A 2A .0..*.Q..:.0..**
0000F0: 00 05 00 0A 2A 0F 0A 00 0A 3A 51 30 71 B2 2A 51 ....*....:Q0q.*Q
000100: 03 FD 00 3A 51 30 F3 B2 2A 2A 00 05 00 0A 2A 0A ...:Q0..**....*.
000110: 05 00 0A 3A 71 30 20 B2 2A 51 51 F3 A2 3A 71 30 ...:q0 .*QQ..:q0
000120: 00 B2 2A 2A 0F 0A 0F 00 2A 0A 05 0F 00 3A F3 B2 ..**....*....:..
000130: F3 B2 2A F3 A2 51 00 3A F3 B2 F3 B2 2A 2A 00 04 ..*..Q.:....**..
000140: FD 2A 00 04 FD 3A 00 10 00 10 2A 00 04 FD 3A 00 .*...:....*...:.
000150: 10 00 10 2A 2A 0F 03 FD 0A 2A 00 04 FD 3F 0F FD ...**....*...?..
000160: 2A 2A 0A 05 00 0A 2A F3 F3 00 00 2A 00 04 FD 3A **....*....*...:
000170: 30 04 FD 2A 00 04 FD 2A 2A 0A 00 00 0A 2A 00 51 0..*...**....*.Q
000180: 00 00 2A 51 00 A2 00 3A 71 30 F3 B2 2A 51 00 F3 ..*Q...:q0..*Q..
000190: A2 2A 2A 00 04 FD 2A F3 F3 00 00 2A F3 00 A2 00 .**...*....*....
0001A0: 3A F3 30 00 B2 2A F3 00 A2 A2 2A 2A 0F 03 FD 0A :.0..*....**....
0001B0: 2A 00 04 FD 2A 51 00 F3 A2 3A 51 30 30 B2 2A 51 *...*Q...:Q00.*Q
0001C0: 00 F3 A2 2A 2A 0A 00 00 0A 2A F3 A2 00 00 2A 51 ...**....*....*Q
0001D0: 00 A2 A2 3A 71 30 30 B2 2A 51 00 A2 A2 2A 2A 05 ...:q00.*Q...**.
0001E0: 0F 0F 00 2A A2 A2 00 00 2A F3 A2 F3 A2 3A F3 B2 ...*....*....:..
0001F0: 30 B2 2A F3 A2 F3 A2 2A 2A 00 04 FD 2A F3 F3 A2 0.*....**...*...
Size : 512 (Real : 512)
000000: 20 20 20 20 4B 20 56 20 49 20 4E 20 44 20 45 20 K V I N D E
000010: 52 20 20 26 20 20 4D 20 5B 20 4E 20 44 20 20 20 R & M [ N D
000020: 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 27 29 3B ****');
000030: 0D 0A 20 20 20 20 20 20 47 4F 54 4F 58 59 28 78 .. GOTOXY(x
000040: 2C 20 79 20 2B 20 38 29 3B 0D 0A 20 20 20 20 20 , y + 8);..
000050: 20 57 52 49 54 45 28 27 2A 2A 2A 2A 20 20 20 20 WRITE('****
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A ***
000090: 2A 27 29 3B 0D 0A 20 20 20 20 20 20 47 4F 54 4F *');.. GOTO
0000A0: 58 59 28 78 2C 20 79 20 2B 20 39 29 3B 0D 0A 20 XY(x, y + 9);..
0000B0: 20 20 20 20 20 57 52 49 54 45 28 27 2A 2A 2A 2A WRITE('****
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 2A 2A 2A 2A 27 29 3B 0D 0A 20 20 20 20 20 20 ****');..
000100: 47 4F 54 4F 58 59 28 78 2C 20 79 20 2B 20 31 30 GOTOXY(x, y + 10
000110: 29 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 45 28 );.. WRITE(
000120: 27 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A '***************
000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 27 29 3B 0D 0A 20 **********');..
000160: 20 20 20 20 20 47 4F 54 4F 58 59 28 78 2C 20 32 GOTOXY(x, 2
000170: 30 29 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 45 0);.. WRITE
000180: 28 27 50 72 6F 67 72 61 6D 6D 65 74 20 75 64 73 ('Programmet uds
000190: 6B 72 69 76 65 72 20 69 64 65 61 6C 76 7B 67 74 kriver idealv{gt
0001A0: 65 6E 20 68 6F 73 20 6B 76 69 6E 64 65 72 20 6F en hos kvinder o
0001B0: 67 20 6D 7B 6E 64 2C 20 6E 7D 72 27 29 3B 0D 0A g m{nd, n}r');..
0001C0: 20 20 20 20 20 20 47 4F 54 4F 58 59 28 78 2C 20 GOTOXY(x,
0001D0: 32 31 29 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 21);.. WRIT
0001E0: 45 28 27 6D 61 6E 20 69 6E 64 74 61 73 74 65 72 E('man indtaster
0001F0: 20 68 7C 6A 64 65 6E 20 69 20 63 6D 2E 27 29 3B h|jden i cm.');
Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 20 20 20 20 52 45 41 44 28 73 .. READ(s
000010: 74 72 65 6E 67 29 3B 0D 0A 20 20 20 20 20 20 20 treng);..
000020: 20 56 41 4C 28 73 74 72 65 6E 67 2C 20 68 6F 65 VAL(streng, hoe
000030: 6A 64 65 2C 20 74 65 73 74 29 3B 0D 0A 20 20 20 jde, test);..
000040: 20 20 20 55 4E 54 49 4C 20 74 65 73 74 20 3D 20 UNTIL test =
000050: 30 3B 0D 0A 20 20 20 20 20 20 75 64 73 6B 72 69 0;.. udskri
000060: 66 74 28 6B 6F 65 6E 2C 20 68 6F 65 6A 64 65 29 ft(koen, hoejde)
000070: 3B 0D 0A 20 20 20 20 45 4E 44 3B 20 28 2A 20 73 ;.. END; (* s
000080: 70 6F 65 72 67 20 2A 29 0D 0A 20 20 20 20 0D 0A poerg *).. ..
000090: 20 20 42 45 47 49 4E 20 28 2A 20 69 64 65 61 6C BEGIN (* ideal
0000A0: 20 2A 29 0D 0A 20 20 20 20 52 45 50 45 41 54 0D *).. REPEAT.
0000B0: 0A 20 20 20 20 20 20 66 6F 72 73 69 64 65 3B 0D . forside;.
0000C0: 0A 20 20 20 20 20 20 73 70 6F 65 72 67 28 6B 6F . spoerg(ko
0000D0: 65 6E 2C 20 68 6F 65 6A 64 65 29 3B 0D 0A 20 20 en, hoejde);..
0000E0: 20 20 20 20 75 64 73 6B 72 69 66 74 28 6B 6F 65 udskrift(koe
0000F0: 6E 2C 20 68 6F 65 6A 64 65 29 3B 0D 0A 20 20 20 n, hoejde);..
000100: 20 20 20 47 4F 54 4F 58 59 28 35 2C 20 32 30 29 GOTOXY(5, 20)
000110: 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 45 28 27 ;.. WRITE('
000120: 5C 6E 73 6B 65 72 20 64 75 20 61 74 20 70 72 7C \nsker du at pr|
000130: 76 65 20 69 67 65 6E 20 28 6A 2F 6E 29 3A 20 27 ve igen (j/n): '
000140: 29 3B 0D 0A 20 20 20 20 20 20 52 45 50 45 41 54 );.. REPEAT
000150: 0D 0A 20 20 20 20 20 20 20 20 52 45 41 44 28 4B .. READ(K
000160: 42 44 2C 20 63 68 29 3B 0D 0A 20 20 20 20 20 20 BD, ch);..
000170: 55 4E 54 49 4C 20 63 68 20 49 4E 20 28 2E 27 4A UNTIL ch IN (.'J
000180: 27 2C 20 27 6A 27 2C 20 27 4E 27 2C 20 27 6E 27 ', 'j', 'N', 'n'
000190: 2E 29 3B 0D 0A 20 20 20 20 55 4E 54 49 4C 20 63 .);.. UNTIL c
0001A0: 68 20 49 4E 20 28 2E 27 4E 27 2C 20 27 6E 27 2E h IN (.'N', 'n'.
0001B0: 29 3B 0D 0A 20 20 20 20 47 4F 54 4F 58 59 28 35 );.. GOTOXY(5
0001C0: 2C 20 32 31 29 3B 0D 0A 20 20 20 20 57 52 49 54 , 21);.. WRIT
0001D0: 45 4C 4E 28 27 53 7D 20 73 6C 75 74 74 65 72 20 ELN('S} slutter
0001E0: 76 69 20 66 6F 72 20 69 20 64 61 67 2E 27 29 3B vi for i dag.');
0001F0: 0D 0A 20 20 45 4E 44 2E 20 28 2A 20 69 64 65 61 .. END. (* idea
Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 20 20 47 4F 54 4F 58 59 28 36 .. GOTOXY(6
000010: 35 2C 20 32 32 29 3B 0D 0A 20 20 20 20 20 20 57 5, 22);.. W
000020: 52 49 54 45 28 27 54 61 73 74 20 3C 52 45 54 55 RITE('Tast <RETU
000030: 52 4E 3E 21 27 29 3B 0D 0A 20 20 20 20 20 20 52 RN>!');.. R
000040: 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20 52 EPEAT.. R
000050: 45 41 44 28 4B 42 44 2C 20 63 68 29 3B 0D 0A 20 EAD(KBD, ch);..
000060: 20 20 20 20 20 55 4E 54 49 4C 20 63 68 20 3D 20 UNTIL ch =
000070: 43 48 52 28 31 33 29 3B 0D 0A 20 20 20 20 45 4E CHR(13);.. EN
000080: 44 3B 20 28 2A 20 66 6F 72 73 69 64 65 20 2A 29 D; (* forside *)
000090: 0D 0A 20 20 0D 0A 20 20 50 52 4F 43 45 44 55 52 .. .. PROCEDUR
0000A0: 45 20 75 64 73 6B 72 69 66 74 28 6B 6F 65 6E 20 E udskrift(koen
0000B0: 3A 20 73 74 72 36 3B 20 68 6F 65 6A 64 65 20 3A : str6; hoejde :
0000C0: 20 49 4E 54 45 47 45 52 29 3B 0D 0A 20 20 0D 0A INTEGER);.. ..
0000D0: 20 20 20 20 50 52 4F 43 45 44 55 52 45 20 75 6E PROCEDURE un
0000E0: 6F 72 6D 61 6C 3B 0D 0A 20 20 0D 0A 20 20 20 20 ormal;.. ..
0000F0: 20 20 42 45 47 49 4E 20 28 2A 20 75 6E 6F 72 6D BEGIN (* unorm
000100: 61 6C 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 57 al *).. W
000110: 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 RITE(CLRHOM);..
000120: 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 35 2C GOTOXY(5,
000130: 20 39 29 3B 0D 0A 20 20 20 20 20 20 20 20 57 52 9);.. WR
000140: 49 54 45 28 27 44 75 20 6C 69 67 67 65 72 20 75 ITE('Du ligger u
000150: 64 65 6E 20 66 6F 72 20 64 65 20 6E 6F 72 6D 61 den for de norma
000160: 6C 65 20 72 61 6D 6D 65 72 2E 20 50 72 7C 76 20 le rammer. Pr|v
000170: 69 67 65 6E 21 27 29 3B 0D 0A 20 20 20 20 20 20 igen!');..
000180: 45 4E 44 3B 20 28 2A 20 75 6E 6F 72 6D 61 6C 20 END; (* unormal
000190: 2A 29 0D 0A 20 20 20 20 0D 0A 20 20 20 20 50 52 *).. .. PR
0001A0: 4F 43 45 44 55 52 45 20 75 64 3B 0D 0A 20 20 20 OCEDURE ud;..
0001B0: 20 0D 0A 20 20 20 20 20 20 56 41 52 0D 0A 20 20 .. VAR..
0001C0: 20 20 20 20 20 20 76 61 65 67 74 20 3A 20 52 45 vaegt : RE
0001D0: 41 4C 3B 0D 0A 20 20 20 20 20 20 20 20 0D 0A 20 AL;.. ..
0001E0: 20 20 20 20 20 42 45 47 49 4E 20 28 2A 20 75 64 BEGIN (* ud
0001F0: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 49 46 20 *).. IF
Size : 512 (Real : 512)
000000: 6C 20 2A 29 0D 0A 1A 20 27 4E 27 2C 20 27 6E 27 l *)... 'N', 'n'
000010: 2E 29 3B 0D 0A 20 20 20 20 55 4E 54 49 4C 20 63 .);.. UNTIL c
000020: 68 20 49 4E 20 28 2E 27 4E 27 2C 20 27 6E 27 2E h IN (.'N', 'n'.
000030: 29 3B 0D 0A 20 20 20 20 47 4F 54 4F 58 59 28 35 );.. GOTOXY(5
000040: 2C 20 32 31 29 3B 0D 0A 20 20 20 20 57 52 49 54 , 21);.. WRIT
000050: 45 4C 4E 28 27 53 7D 20 73 6C 75 74 74 65 72 20 ELN('S} slutter
000060: 76 69 20 66 6F 72 20 69 20 64 61 67 2E 27 29 3B vi for i dag.');
000070: 0D 0A 20 20 45 4E 44 2E 20 28 2A 20 69 64 65 61 .. END. (* idea
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: 6B 6F 65 6E 20 3D 20 27 6D 61 6E 64 27 0D 0A 20 koen = 'mand'..
000010: 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 76 61 THEN va
000020: 65 67 74 20 3A 3D 20 28 68 6F 65 6A 64 65 20 2D egt := (hoejde -
000030: 20 31 30 30 29 20 2A 20 30 2E 39 30 0D 0A 20 20 100) * 0.90..
000040: 20 20 20 20 20 20 20 20 45 4C 53 45 20 76 61 65 ELSE vae
000050: 67 74 20 3A 3D 20 28 68 6F 65 6A 64 65 20 2D 20 gt := (hoejde -
000060: 31 30 30 29 20 2A 20 30 2E 38 38 3B 0D 0A 20 20 100) * 0.88;..
000070: 20 20 20 20 20 20 47 4F 54 4F 58 59 28 30 2C 20 GOTOXY(0,
000080: 39 29 3B 0D 0A 20 20 20 20 20 20 20 20 57 52 49 9);.. WRI
000090: 54 45 4C 4E 28 27 20 20 20 20 20 2A 2A 2A 2A 2A TELN(' *****
0000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
0000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
0000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
0000D0: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 57 52 49 ');.. WRI
0000E0: 54 45 4C 4E 28 27 20 20 20 20 20 2A 2A 2A 2A 20 TELN(' ****
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A ****
000120: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 57 52 49 ');.. WRI
000130: 54 45 4C 4E 28 27 20 20 20 20 20 2A 2A 2A 2A 20 TELN(' ****
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000160: 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A ****
000170: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 57 52 49 ');.. WRI
000180: 54 45 4C 4E 28 27 20 20 20 20 20 2A 2A 2A 2A 20 TELN(' ****
000190: 20 20 20 20 20 20 44 75 20 73 6B 61 6C 20 6D 65 Du skal me
0001A0: 64 20 65 6E 20 68 7C 6A 64 65 20 70 7D 20 27 2C d en h|jde p} ',
0001B0: 20 68 6F 65 6A 64 65 2C 20 27 20 63 6D 2E 27 2C hoejde, ' cm.',
0001C0: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0001D0: 20 20 20 27 20 20 20 20 20 20 20 2A 2A 2A 2A 27 ' ****'
0001E0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 57 52 49 54 );.. WRIT
0001F0: 45 4C 4E 28 27 20 20 20 20 20 2A 2A 2A 2A 20 20 ELN(' ****
Size : 512 (Real : 512)
000000: C0 80 00 00 34 92 00 07 FD 61 3C 20 00 00 40 00 ....4....a< ..@.
000010: 03 FD 61 F0 20 00 00 40 00 03 FD 65 E5 20 00 00 ..a. ..@...e. ..
000020: 40 00 03 FD E5 CF 20 00 00 40 00 00 10 78 CB 20 @..... ..@...x.
000030: 00 00 40 00 00 10 3C C3 38 00 00 40 00 00 10 96 ..@...<.8..@....
000040: 96 B0 00 00 40 00 00 65 C3 3C B0 00 00 40 00 00 ....@..e.<...@..
000050: 70 CB 78 CF 20 00 11 00 10 78 CB E5 CB 38 00 11 p.x. ....x...8..
000060: 00 61 D2 E5 E5 9E 78 20 00 10 F0 96 E5 CF 96 78 .a....x .......x
000070: 92 30 61 78 96 F0 B4 69 9E 92 30 E1 DA 69 CF DA .0ax...i..0..i..
000080: 69 9E 20 00 10 9E C3 DA DA 3C 9A 00 03 FD 34 C7 i. ......<....4.
000090: DA CF B4 20 00 22 00 10 CF B4 C7 9E 20 00 22 00 ... ."...... .".
0000A0: 10 DA B4 C7 9A 00 00 A8 00 00 70 3C 69 9A 00 00 ..........p<i...
0000B0: A8 00 00 14 69 3C 92 00 00 A8 00 00 10 C3 B4 20 ....i<.........
0000C0: 00 00 A8 00 00 10 C7 F0 20 00 00 A8 00 03 FD DA ........ .......
0000D0: DA 20 00 00 54 00 03 FD F0 CF 20 00 00 54 00 03 . ..T..... ..T..
0000E0: FD 34 C3 20 00 00 54 00 00 91 34 38 00 03 FD FC .4. ..T...48....
0000F0: 80 C0 00 61 38 00 00 54 FC C0 00 00 65 B0 00 00 ...a8..T....e...
000100: 54 B9 C0 00 00 65 9A 00 00 FC A8 C0 00 00 70 92 T....e........p.
000110: 00 54 00 C0 80 00 00 34 92 11 A8 00 40 00 03 FD .T.....4....@...
000120: 61 3C 20 00 06 FD 61 F0 20 00 03 FD 80 00 00 65 a< ...a. ......e
000130: E5 20 00 03 FD 80 00 00 E5 CF 20 00 03 FD 80 00 . ........ .....
000140: 10 78 CB 20 00 03 FD 80 00 10 3C C3 38 00 03 FD .x. ......<.8...
000150: 40 00 10 96 96 B0 00 03 FD 40 00 65 C3 3C B0 00 @........@.e.<..
000160: 03 FD 11 00 70 CB 78 CF 20 00 00 11 10 78 CB E5 ....p.x. ....x..
000170: CB 38 00 03 FD 61 D2 E5 E5 9E 78 20 00 10 F0 96 .8...a....x ....
000180: E5 CF 96 78 92 30 61 78 96 F0 B4 69 9E 92 30 E1 ...x.0ax...i..0.
000190: DA 69 CF DA 69 9E 20 00 10 9E C3 DA DA 3C 9A 00 .i..i. ......<..
0001A0: 03 FD 34 C7 DA CF B4 20 00 03 FD 10 CF B4 C7 9E ..4.... ........
0001B0: 20 22 00 00 10 DA B4 C7 9A 00 22 00 03 FD 70 3C "........"...p<
0001C0: 69 9A 00 A8 00 03 FD 14 69 3C 92 00 54 00 03 FD i.......i<..T...
0001D0: 10 C3 B4 20 00 54 00 03 FD 10 C7 F0 20 00 54 00 ... .T...... .T.
0001E0: 03 FD 11 DA DA 20 00 00 A8 00 00 80 F0 CF 20 00 ..... ........ .
0001F0: 00 A8 00 40 00 34 C3 20 00 04 FD 80 00 34 38 00 ...@.4. .....48.
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 27 ****'
000030: 29 3B 0D 0A 20 20 20 20 20 20 20 20 57 52 49 54 );.. WRIT
000040: 45 4C 4E 28 27 20 20 20 20 20 2A 2A 2A 2A 20 20 ELN(' ****
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 v
000060: 65 6A 65 20 27 2C 20 52 4F 55 4E 44 28 76 61 65 eje ', ROUND(vae
000070: 67 74 29 2C 20 27 20 6B 67 2E 27 2C 0D 0A 20 20 gt), ' kg.',..
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 20 '
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000A0: 2A 2A 2A 2A 27 29 3B 0D 0A 20 20 20 20 20 20 20 ****');..
0000B0: 20 57 52 49 54 45 4C 4E 28 27 20 20 20 20 20 2A WRITELN(' *
0000C0: 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 ***
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 2A 2A 2A 2A 27 29 3B 0D 0A 20 20 20 20 20 20 20 ****');..
000100: 20 57 52 49 54 45 4C 4E 28 27 20 20 20 20 20 2A WRITELN(' *
000110: 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 ***
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000140: 2A 2A 2A 2A 27 29 3B 0D 0A 20 20 20 20 20 20 20 ****');..
000150: 20 57 52 49 54 45 4C 4E 28 27 20 20 20 20 20 2A WRITELN(' *
000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
000180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
000190: 2A 2A 2A 2A 27 29 3B 0D 0A 20 20 20 20 20 45 4E ****');.. EN
0001A0: 44 3B 20 28 2A 20 75 64 20 2A 29 0D 0A 20 20 0D D; (* ud *).. .
0001B0: 0A 20 20 20 20 42 45 47 49 4E 20 28 2A 20 75 64 . BEGIN (* ud
0001C0: 73 6B 72 69 66 74 20 2A 29 0D 0A 20 20 20 20 20 skrift *)..
0001D0: 20 49 46 20 28 68 6F 65 6A 64 65 20 3C 20 31 34 IF (hoejde < 14
0001E0: 30 29 20 4F 52 20 28 32 30 30 20 3C 20 68 6F 65 0) OR (200 < hoe
0001F0: 6A 64 65 29 0D 0A 20 20 20 20 20 20 20 20 54 48 jde).. TH
Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 69 64 65 6E 74 69 66 69 PROGRAM identifi
000010: 3B 0D 0A 0D 0A 28 2A 20 44 65 74 74 65 20 70 72 ;....(* Dette pr
000020: 6F 67 72 61 6D 20 66 6F 72 75 64 73 7B 74 74 65 ogram foruds{tte
000030: 72 2C 20 61 74 20 73 74 61 6E 64 61 72 64 69 64 r, at standardid
000040: 65 6E 74 69 66 69 65 72 6E 65 20 65 72 20 62 6C entifierne er bl
000050: 65 76 65 74 20 69 6E 64 6C 7B 73 74 20 2A 29 0D evet indl{st *).
000060: 0A 28 2A 20 69 20 66 69 6C 65 6E 20 49 44 45 4E .(* i filen IDEN
000070: 54 49 2E 44 41 54 20 69 20 61 6C 66 61 62 65 74 TI.DAT i alfabet
000080: 69 73 6B 20 72 7B 6B 6B 65 66 7C 6C 67 65 20 76 isk r{kkef|lge v
000090: 65 64 20 68 6A 7B 6C 70 20 61 66 20 70 72 6F 67 ed hj{lp af prog
0000A0: 72 61 6D 6D 65 74 20 20 20 2A 29 0D 0A 28 2A 20 rammet *)..(*
0000B0: 49 44 45 4E 54 49 46 49 2E 48 4C 50 20 20 20 20 IDENTIFI.HLP
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 20 20 2A 29 0D 0A 0D 0A 20 20 43 4F 4E *).... CON
000100: 53 54 0D 0A 20 20 20 20 62 6F 67 73 74 61 76 65 ST.. bogstave
000110: 72 20 3A 20 53 45 54 20 4F 46 20 43 48 41 52 20 r : SET OF CHAR
000120: 3D 20 28 2E 27 41 27 20 2E 2E 20 27 5A 27 2E 29 = (.'A' .. 'Z'.)
000130: 3B 0D 0A 20 20 20 20 0D 0A 20 20 54 59 50 45 0D ;.. .. TYPE.
000140: 0A 20 20 20 20 73 74 72 31 30 20 3D 20 53 54 52 . str10 = STR
000150: 49 4E 47 28 2E 31 30 2E 29 3B 0D 0A 20 20 20 20 ING(.10.);..
000160: 73 74 72 31 34 20 3D 20 53 54 52 49 4E 47 28 2E str14 = STRING(.
000170: 31 34 2E 29 3B 0D 0A 20 20 20 20 73 74 72 32 30 14.);.. str20
000180: 20 3D 20 53 54 52 49 4E 47 28 2E 32 30 2E 29 3B = STRING(.20.);
000190: 0D 0A 20 20 20 20 73 74 72 38 30 20 3D 20 53 54 .. str80 = ST
0001A0: 52 49 4E 47 28 2E 38 30 2E 29 3B 0D 0A 20 20 20 RING(.80.);..
0001B0: 20 69 64 65 6E 74 69 66 69 66 69 6C 20 3D 20 46 identififil = F
0001C0: 49 4C 45 20 4F 46 20 73 74 72 31 30 3B 0D 0A 20 ILE OF str10;..
0001D0: 20 20 20 69 64 65 6E 74 69 66 69 65 72 74 61 62 identifiertab
0001E0: 65 6C 20 3D 20 41 52 52 41 59 28 2E 31 20 2E 2E el = ARRAY(.1 ..
0001F0: 20 31 33 30 2E 29 20 4F 46 20 73 74 72 31 30 3B 130.) OF str10;
Size : 512 (Real : 512)
000000: 45 4E 20 75 6E 6F 72 6D 61 6C 0D 0A 20 20 20 20 EN unormal..
000010: 20 20 20 20 45 4C 53 45 20 75 64 3B 0D 0A 20 20 ELSE ud;..
000020: 20 20 45 4E 44 3B 20 28 2A 20 75 64 73 6B 72 69 END; (* udskri
000030: 66 74 20 2A 29 0D 0A 20 20 20 20 0D 0A 20 20 50 ft *).. .. P
000040: 52 4F 43 45 44 55 52 45 20 73 70 6F 65 72 67 28 ROCEDURE spoerg(
000050: 56 41 52 20 6B 6F 65 6E 20 3A 20 73 74 72 36 3B VAR koen : str6;
000060: 20 56 41 52 20 68 6F 65 6A 64 65 20 3A 20 49 4E VAR hoejde : IN
000070: 54 45 47 45 52 29 3B 0D 0A 20 20 0D 0A 20 20 20 TEGER);.. ..
000080: 20 56 41 52 0D 0A 20 20 20 20 20 20 73 74 72 65 VAR.. stre
000090: 6E 67 20 3A 20 73 74 72 36 3B 0D 0A 20 20 20 20 ng : str6;..
0000A0: 20 20 74 65 73 74 20 3A 20 49 4E 54 45 47 45 52 test : INTEGER
0000B0: 3B 0D 0A 20 20 20 20 20 20 0D 0A 20 20 20 20 42 ;.. .. B
0000C0: 45 47 49 4E 20 28 2A 20 73 70 6F 65 72 67 20 2A EGIN (* spoerg *
0000D0: 29 0D 0A 20 20 20 20 20 20 57 52 49 54 45 28 43 ).. WRITE(C
0000E0: 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 20 20 52 LRHOM);.. R
0000F0: 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20 47 EPEAT.. G
000100: 4F 54 4F 58 59 28 35 2C 20 32 29 3B 0D 0A 20 20 OTOXY(5, 2);..
000110: 20 20 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 WRITE('Ind
000120: 74 61 73 74 20 6B 7C 6E 20 28 6B 76 69 6E 64 65 tast k|n (kvinde
000130: 2F 6D 61 6E 64 29 3A 20 27 2C 20 43 4C 52 45 4F /mand): ', CLREO
000140: 4C 29 3B 0D 0A 20 20 20 20 20 20 20 20 42 55 46 L);.. BUF
000150: 4C 45 4E 20 3A 3D 20 36 3B 0D 0A 20 20 20 20 20 LEN := 6;..
000160: 20 20 20 52 45 41 44 28 6B 6F 65 6E 29 3B 0D 0A READ(koen);..
000170: 20 20 20 20 20 20 55 4E 54 49 4C 20 28 6B 6F 65 UNTIL (koe
000180: 6E 20 3D 20 27 6B 76 69 6E 64 65 27 29 20 4F 52 n = 'kvinde') OR
000190: 20 28 6B 6F 65 6E 20 3D 20 27 6D 61 6E 64 27 29 (koen = 'mand')
0001A0: 3B 0D 0A 20 20 20 20 20 20 52 45 50 45 41 54 0D ;.. REPEAT.
0001B0: 0A 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 . GOTOXY(
0001C0: 35 2C 20 35 29 3B 0D 0A 20 20 20 20 20 20 20 20 5, 5);..
0001D0: 57 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 64 WRITE('Indtast d
0001E0: 69 6E 20 68 7C 6A 64 65 20 69 20 68 65 6C 65 20 in h|jde i hele
0001F0: 63 6D 2E 3A 20 27 2C 20 43 4C 52 45 4F 4C 29 3B cm.: ', CLREOL);
Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 0D 0A 20 20 56 41 52 0D 0A 20 .. .. VAR..
000010: 20 20 20 69 6E 64 6E 61 76 6E 2C 20 75 64 6E 61 indnavn, udna
000020: 76 6E 20 3A 20 73 74 72 31 34 3B 0D 0A 20 20 20 vn : str14;..
000030: 20 69 6E 64 66 69 6C 2C 20 75 64 66 69 6C 20 3A indfil, udfil :
000040: 20 54 45 58 54 3B 0D 0A 20 20 20 20 64 61 74 61 TEXT;.. data
000050: 66 69 6C 20 3A 20 69 64 65 6E 74 69 66 69 66 69 fil : identififi
000060: 6C 3B 0D 0A 20 20 20 20 6C 69 6E 69 65 20 3A 20 l;.. linie :
000070: 73 74 72 38 30 3B 0D 0A 20 20 20 20 6F 72 64 5F str80;.. ord_
000080: 20 3A 20 73 74 72 32 30 3B 0D 0A 20 20 20 20 63 : str20;.. c
000090: 68 20 3A 20 43 48 41 52 3B 0D 0A 20 20 20 20 69 h : CHAR;.. i
0000A0: 2C 20 6A 2C 20 73 74 61 72 74 2C 20 73 6C 75 74 , j, start, slut
0000B0: 2C 20 74 61 62 65 6C 6C 61 65 6E 67 64 65 20 3A , tabellaengde :
0000C0: 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 74 INTEGER;.. t
0000D0: 61 62 65 6C 20 3A 20 69 64 65 6E 74 69 66 69 65 abel : identifie
0000E0: 72 74 61 62 65 6C 3B 0D 0A 20 20 0D 0A 20 20 46 rtabel;.. .. F
0000F0: 55 4E 43 54 49 4F 4E 20 62 69 6E 73 6F 65 67 28 UNCTION binsoeg(
000100: 73 6F 65 67 65 6F 72 64 20 3A 20 73 74 72 32 30 soegeord : str20
000110: 29 20 3A 20 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 ) : BOOLEAN;..
000120: 20 20 20 20 20 20 0D 0A 20 20 20 20 56 41 52 0D .. VAR.
000130: 0A 20 20 20 20 20 20 62 75 6E 64 2C 20 74 6F 70 . bund, top
000140: 2C 20 6D 69 64 74 20 3A 20 49 4E 54 45 47 45 52 , midt : INTEGER
000150: 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 42 45 47 ;.. .. BEG
000160: 49 4E 0D 0A 20 20 20 20 20 20 62 75 6E 64 20 3A IN.. bund :
000170: 3D 20 31 3B 0D 0A 20 20 20 20 20 20 74 6F 70 20 = 1;.. top
000180: 3A 3D 20 74 61 62 65 6C 6C 61 65 6E 67 64 65 3B := tabellaengde;
000190: 0D 0A 20 20 20 20 20 20 52 45 50 45 41 54 0D 0A .. REPEAT..
0001A0: 20 20 20 20 20 20 20 20 6D 69 64 74 20 3A 3D 20 midt :=
0001B0: 28 74 6F 70 20 2B 20 62 75 6E 64 29 20 44 49 56 (top + bund) DIV
0001C0: 20 32 3B 0D 0A 20 20 20 20 20 20 20 20 49 46 20 2;.. IF
0001D0: 73 6F 65 67 65 6F 72 64 20 3E 20 74 61 62 65 6C soegeord > tabel
0001E0: 28 2E 6D 69 64 74 2E 29 20 0D 0A 20 20 20 20 20 (.midt.) ..
0001F0: 20 20 20 20 20 54 48 45 4E 20 62 75 6E 64 20 3A THEN bund :
Size : 512 (Real : 512)
000000: 3D 20 31 20 54 4F 20 4C 45 4E 28 6C 69 6E 69 65 = 1 TO LEN(linie
000010: 29 20 2D 20 31 20 44 4F 0D 0A 20 20 20 20 20 20 ) - 1 DO..
000020: 20 20 20 20 57 52 49 54 45 28 75 64 66 69 6C 2C WRITE(udfil,
000030: 20 6C 69 6E 69 65 28 2E 69 2E 29 29 3B 0D 0A 20 linie(.i.));..
000040: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 75 WRITELN(u
000050: 64 66 69 6C 29 3B 0D 0A 20 20 20 20 20 20 45 4E dfil);.. EN
000060: 44 3B 0D 0A 20 20 20 20 43 4C 4F 53 45 28 69 6E D;.. CLOSE(in
000070: 64 66 69 6C 29 3B 0D 0A 20 20 20 20 43 4C 4F 53 dfil);.. CLOS
000080: 45 28 75 64 66 69 6C 29 3B 0D 0A 20 20 45 4E 44 E(udfil);.. END
000090: 2E 0D 0A 1A 31 20 44 4F 0D 0A 20 20 20 20 20 20 ....1 DO..
0000A0: 20 20 20 20 57 52 49 54 45 28 75 64 66 69 6C 2C WRITE(udfil,
0000B0: 20 6C 69 6E 69 65 28 2E 69 2E 29 29 3B 0D 0A 20 linie(.i.));..
0000C0: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 75 WRITELN(u
0000D0: 64 66 69 6C 29 3B 0D 0A 20 20 20 20 20 20 45 4E dfil);.. EN
0000E0: 44 3B 0D 0A 20 20 20 20 43 4C 4F 53 45 28 69 6E D;.. CLOSE(in
0000F0: 64 66 69 6C 29 3B 0D 0A 20 20 20 20 43 4C 4F 53 dfil);.. CLOS
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: 3D 20 6D 69 64 74 20 2B 20 31 0D 0A 20 20 20 20 = midt + 1..
000010: 20 20 20 20 20 20 45 4C 53 45 20 74 6F 70 20 3A ELSE top :
000020: 3D 20 6D 69 64 74 20 2D 20 31 3B 0D 0A 20 20 20 = midt - 1;..
000030: 20 20 20 55 4E 54 49 4C 20 28 73 6F 65 67 65 6F UNTIL (soegeo
000040: 72 64 20 3D 20 74 61 62 65 6C 28 2E 6D 69 64 74 rd = tabel(.midt
000050: 2E 29 29 20 4F 52 20 28 74 6F 70 20 3C 20 62 75 .)) OR (top < bu
000060: 6E 64 29 3B 0D 0A 20 20 20 20 20 20 49 46 20 73 nd);.. IF s
000070: 6F 65 67 65 6F 72 64 20 3D 20 74 61 62 65 6C 28 oegeord = tabel(
000080: 2E 6D 69 64 74 2E 29 0D 0A 20 20 20 20 20 20 20 .midt.)..
000090: 20 54 48 45 4E 20 62 69 6E 73 6F 65 67 20 3A 3D THEN binsoeg :=
0000A0: 20 54 52 55 45 0D 0A 20 20 20 20 20 20 20 20 45 TRUE.. E
0000B0: 4C 53 45 20 62 69 6E 73 6F 65 67 20 3A 3D 20 46 LSE binsoeg := F
0000C0: 41 4C 53 45 3B 0D 0A 20 20 20 20 45 4E 44 3B 0D ALSE;.. END;.
0000D0: 0A 20 20 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 20 . .. BEGIN..
0000E0: 20 20 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B WRITE(CLRHOM);
0000F0: 0D 0A 20 20 20 20 41 53 53 49 47 4E 28 64 61 74 .. ASSIGN(dat
000100: 61 66 69 6C 2C 20 27 49 44 45 4E 54 49 46 49 2E afil, 'IDENTIFI.
000110: 44 41 54 27 29 3B 0D 0A 20 20 20 20 52 45 53 45 DAT');.. RESE
000120: 54 28 64 61 74 61 66 69 6C 29 3B 0D 0A 20 20 20 T(datafil);..
000130: 20 69 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 57 48 i := 0;.. WH
000140: 49 4C 45 20 4E 4F 54 20 45 4F 46 28 64 61 74 61 ILE NOT EOF(data
000150: 66 69 6C 29 20 44 4F 0D 0A 20 20 20 20 20 20 42 fil) DO.. B
000160: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 69 20 EGIN.. i
000170: 3A 3D 20 69 20 2B 20 31 3B 0D 0A 20 20 20 20 20 := i + 1;..
000180: 20 20 20 52 45 41 44 28 64 61 74 61 66 69 6C 2C READ(datafil,
000190: 20 74 61 62 65 6C 28 2E 69 2E 29 29 3B 0D 0A 20 tabel(.i.));..
0001A0: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 43 END;.. C
0001B0: 4C 4F 53 45 28 64 61 74 61 66 69 6C 29 3B 0D 0A LOSE(datafil);..
0001C0: 20 20 20 20 74 61 62 65 6C 6C 61 65 6E 67 64 65 tabellaengde
0001D0: 20 3A 3D 20 69 3B 0D 0A 20 20 20 20 57 52 49 54 := i;.. WRIT
0001E0: 45 28 27 48 76 69 6C 6B 65 6E 20 50 61 73 63 61 E('Hvilken Pasca
0001F0: 6C 2D 6B 69 6C 64 65 74 65 6B 73 74 20 73 6B 61 l-kildetekst ska
Size : 512 (Real : 512)
000000: 0A FD 35 3A 30 35 3A 35 3A 30 35 3A 35 3A 30 35 ..5:05:5:05:5:05
000010: 3A 30 0A FD 35 3A 30 35 3A 35 3A 30 35 3A 35 3A :0..5:05:5:05:5:
000020: 30 35 3A 30 0A FD 35 3A 30 35 3A 30 0A FD 35 3A 05:0..5:05:0..5:
000030: 30 35 3A 35 3A 30 35 3A 35 3A 30 35 3A 20 10 30 05:5:05:5:05: .0
000040: 20 10 30 05 FD 35 3A 30 35 3A 35 3A 30 35 3A 35 .0..5:05:5:05:5
000050: 3A 30 35 3A 20 10 30 20 10 30 05 FD 35 3A 30 35 :05: .0 .0..5:05
000060: 3A 35 3A 30 35 3A 35 3A 30 35 3A 20 10 30 20 10 :5:05:5:05: .0 .
000070: 30 05 FD 35 3A 30 35 3A 30 0A FD 35 3A 30 35 3A 0..5:05:0..5:05:
000080: 35 3A 30 35 3A 35 3A 30 35 3A 30 0A FD 35 3A 30 5:05:5:05:0..5:0
000090: 35 3A 35 3A 30 35 3A 35 3A 30 35 3A 30 0A FD 33 5:5:05:5:05:0..3
0000A0: 05 FD 30 0F FD 35 3A 30 35 3A 30 0A FD 35 3A 30 ..0..5:05:0..5:0
0000B0: 35 3A 35 3A 30 35 3A 35 3A 30 35 3A 30 0A FD 33 5:5:05:5:05:0..3
0000C0: 05 FD 30 25 FD 3F 30 30 35 3A 30 35 3A 30 0A FD ..0%.?005:05:0..
0000D0: 33 05 FD 30 25 FD 3F 30 04 FD 3F 30 04 FD 3F 30 3..0%.?0..?0..?0
0000E0: 11 FD 21 AB 98 06 02 C5 E5 7E FE 02 CA 9F 4B 23 ..!......~....K#
0000F0: 23 35 C2 9F 4B 23 7E 2B 77 2B 2B 7E FE 00 28 3B #5..K#~+w++~..(;
000100: 0E 00 FE 01 28 02 0E 0F 23 04 FD 7E 81 47 23 4E ....(...#..~.G#N
000110: CD 81 75 CD AA 4B E1 E5 46 23 04 FD 7E 80 80 77 ..u..K..F#..~..w
000120: FE 02 20 08 E1 E5 7E EE FE 77 18 0D FE 28 20 09 .. ...~..w...( .
000130: E1 E5 7E FE 01 20 02 36 00 E1 E5 23 04 FD 46 23 ..~.. .6...#..F#
000140: 4E 23 7E 3C FE 18 20 02 3E 00 77 21 D6 42 11 55 N#~<.. .>.w!.B.U
000150: 00 FE 00 28 04 19 3D 20 FC EB D5 CD 81 75 D1 06 ...(..= .....u..
000160: 11 0E 05 CD CD 75 E1 E5 7E FE 00 20 43 23 03 FD .....u..~.. C#..
000170: 7E 2B 2B 86 23 23 77 FE 05 20 06 2B 2B 36 01 18 ~++.##w.. .++6..
000180: 2F FE 4B 38 2B D1 C1 C5 D5 78 21 A9 98 FE 02 28 /.K8+....x!....(
000190: 01 23 46 E1 E5 23 06 FD 7E E6 03 FE 00 20 0E 7E .#F..#..~.... .~
0001A0: E6 FC CB 3F CB 3F B8 20 04 E1 E5 36 02 E1 01 07 ...?.?. ...6....
0001B0: 00 09 C1 05 C2 D3 4A C9 06 02 0E 05 E5 36 00 23 ......J......6.#
0001C0: 0D 20 FA E1 CD BE 75 10 F1 C9 21 AB 98 0E 06 06 . ....u...!.....
0001D0: 02 36 FF 23 36 FF 23 36 1E 23 36 14 23 36 28 23 .6.#6.#6.#6.#6(#
0001E0: 71 23 36 00 23 79 C6 10 4F 10 E6 C9 CD D5 99 CD q#6.#y..O.......
0001F0: BC 4B 3E 02 32 AB 98 32 B2 98 32 BB 98 21 64 00 .K>.2..2..2..!d.
Size : 512 (Real : 512)
000000: 6C 20 7B 6E 64 72 65 73 3A 20 27 29 3B 0D 0A 20 l {ndres: ');..
000010: 20 20 20 52 45 41 44 4C 4E 28 69 6E 64 6E 61 76 READLN(indnav
000020: 6E 29 3B 0D 0A 20 20 20 20 41 53 53 49 47 4E 28 n);.. ASSIGN(
000030: 69 6E 64 66 69 6C 2C 20 69 6E 64 6E 61 76 6E 29 indfil, indnavn)
000040: 3B 0D 0A 20 20 20 20 52 45 53 45 54 28 69 6E 64 ;.. RESET(ind
000050: 66 69 6C 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 fil);.. WRITE
000060: 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 28 27 LN;.. WRITE('
000070: 48 76 61 64 20 73 6B 61 6C 20 64 65 74 20 6B 6F Hvad skal det ko
000080: 72 72 69 67 65 72 65 64 65 20 70 72 6F 67 72 61 rrigerede progra
000090: 6D 20 68 65 64 64 65 3A 20 27 29 3B 0D 0A 20 20 m hedde: ');..
0000A0: 20 20 52 45 41 44 4C 4E 28 75 64 6E 61 76 6E 29 READLN(udnavn)
0000B0: 3B 0D 0A 20 20 20 20 41 53 53 49 47 4E 28 75 64 ;.. ASSIGN(ud
0000C0: 66 69 6C 2C 20 75 64 6E 61 76 6E 29 3B 0D 0A 20 fil, udnavn);..
0000D0: 20 20 20 52 45 57 52 49 54 45 28 75 64 66 69 6C REWRITE(udfil
0000E0: 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B );.. WRITELN;
0000F0: 0D 0A 20 20 20 20 57 48 49 4C 45 20 4E 4F 54 20 .. WHILE NOT
000100: 45 4F 46 28 69 6E 64 66 69 6C 29 20 44 4F 0D 0A EOF(indfil) DO..
000110: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
000120: 20 20 20 20 20 6C 69 6E 69 65 20 3A 3D 20 27 27 linie := ''
000130: 3B 0D 0A 20 20 20 20 20 20 20 20 57 48 49 4C 45 ;.. WHILE
000140: 20 4E 4F 54 20 45 4F 4C 4E 28 69 6E 64 66 69 6C NOT EOLN(indfil
000150: 29 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 ) DO..
000160: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 BEGIN..
000170: 20 20 20 52 45 41 44 28 69 6E 64 66 69 6C 2C 20 READ(indfil,
000180: 63 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ch);..
000190: 20 20 6C 69 6E 69 65 20 3A 3D 20 6C 69 6E 69 65 linie := linie
0001A0: 20 2B 20 63 68 3B 0D 0A 20 20 20 20 20 20 20 20 + ch;..
0001B0: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 END;..
0001C0: 6C 69 6E 69 65 20 3A 3D 20 6C 69 6E 69 65 20 2B linie := linie +
0001D0: 20 27 20 27 3B 0D 0A 20 20 20 20 20 20 20 20 52 ' ';.. R
0001E0: 45 41 44 4C 4E 28 69 6E 64 66 69 6C 29 3B 0D 0A EADLN(indfil);..
0001F0: 20 20 20 20 20 20 20 20 49 46 20 4C 45 4E 28 6C IF LEN(l
Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 69 6E 74 65 72 68 79 70 PROGRAM interhyp
000010: 3B 0D 0A 20 20 0D 0A 20 20 43 4F 4E 53 54 0D 0A ;.. .. CONST..
000020: 20 20 20 20 6D 61 78 61 6E 74 61 6C 20 3D 20 32 maxantal = 2
000030: 30 30 3B 0D 0A 20 20 0D 0A 20 20 54 59 50 45 0D 00;.. .. TYPE.
000040: 0A 20 20 20 20 74 61 62 65 6C 74 79 70 65 20 3D . tabeltype =
000050: 20 41 52 52 41 59 28 2E 31 20 2E 2E 20 6D 61 78 ARRAY(.1 .. max
000060: 61 6E 74 61 6C 2E 29 20 4F 46 20 49 4E 54 45 47 antal.) OF INTEG
000070: 45 52 3B 0D 0A 20 20 0D 0A 20 20 56 41 52 0D 0A ER;.. .. VAR..
000080: 20 20 20 20 74 61 62 65 6C 20 3A 20 74 61 62 65 tabel : tabe
000090: 6C 74 79 70 65 3B 0D 0A 20 20 20 20 6D 69 6E 2C ltype;.. min,
0000A0: 20 6D 61 78 2C 20 69 6E 74 65 72 76 61 6C 62 72 max, intervalbr
0000B0: 65 64 64 65 20 3A 20 49 4E 54 45 47 45 52 3B 0D edde : INTEGER;.
0000C0: 0A 20 20 0D 0A 20 20 50 52 4F 43 45 44 55 52 45 . .. PROCEDURE
0000D0: 20 66 69 6E 64 74 61 6C 28 56 41 52 20 74 61 62 findtal(VAR tab
0000E0: 65 6C 20 3A 20 74 61 62 65 6C 74 79 70 65 29 3B el : tabeltype);
0000F0: 0D 0A 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A 20 .. .. VAR..
000100: 20 20 20 20 20 69 2C 20 78 2C 20 79 2C 20 7A 20 i, x, y, z
000110: 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 : INTEGER;..
000120: 0D 0A 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 .. BEGIN..
000130: 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F FOR i := 1 TO
000140: 20 6D 61 78 61 6E 74 61 6C 20 44 4F 0D 0A 20 20 maxantal DO..
000150: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
000160: 20 20 20 20 20 20 20 78 20 3A 3D 20 52 41 4E 44 x := RAND
000170: 4F 4D 28 34 37 29 20 2B 20 33 30 3B 0D 0A 20 20 OM(47) + 30;..
000180: 20 20 20 20 20 20 20 20 79 20 3A 3D 20 52 41 4E y := RAN
000190: 44 4F 4D 28 33 32 29 20 2B 20 32 30 3B 20 20 28 DOM(32) + 20; (
0001A0: 2A 20 52 65 74 20 74 69 6C 66 7B 6C 64 69 67 74 * Ret tilf{ldigt
0001B0: 20 76 61 6C 67 74 21 20 2A 29 0D 0A 20 20 20 20 valgt! *)..
0001C0: 20 20 20 20 20 20 7A 20 3A 3D 20 52 41 4E 44 4F z := RANDO
0001D0: 4D 28 31 31 29 20 2B 20 34 30 3B 0D 0A 20 20 20 M(11) + 40;..
0001E0: 20 20 20 20 20 20 20 74 61 62 65 6C 28 2E 69 2E tabel(.i.
0001F0: 29 20 3A 3D 20 78 20 2B 20 79 20 2B 20 7A 3B 0D ) := x + y + z;.
Size : 512 (Real : 512)
000000: 69 6E 69 65 29 20 3E 20 30 0D 0A 20 20 20 20 20 inie) > 0..
000010: 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 THEN..
000020: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 BEGIN..
000030: 20 20 20 20 20 20 20 20 20 20 20 20 69 20 3A 3D i :=
000040: 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 1;..
000050: 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 REPEAT..
000060: 20 20 20 20 20 20 20 20 20 20 20 63 68 20 3A 3D ch :=
000070: 20 6C 69 6E 69 65 28 2E 69 2E 29 3B 0D 0A 20 20 linie(.i.);..
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 48 WH
000090: 49 4C 45 20 28 69 20 3C 20 4C 45 4E 28 6C 69 6E ILE (i < LEN(lin
0000A0: 69 65 29 29 20 41 4E 44 20 4E 4F 54 20 28 63 68 ie)) AND NOT (ch
0000B0: 20 49 4E 20 62 6F 67 73 74 61 76 65 72 29 20 44 IN bogstaver) D
0000C0: 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 O..
0000D0: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 69 20 3A 3D 20 69 20 2B 20 31 3B 0D 0A 20 20 20 i := i + 1;..
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 20 63 68 20 3A 3D 20 6C 69 6E 69 65 28 2E 69 2E ch := linie(.i.
000120: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
000130: 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 END;..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 63 IF c
000150: 68 20 49 4E 20 62 6F 67 73 74 61 76 65 72 20 0D h IN bogstaver .
000160: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000170: 20 20 20 54 48 45 4E 20 0D 0A 20 20 20 20 20 20 THEN ..
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 BE
000190: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
0001A0: 20 20 20 20 20 20 20 20 20 73 74 61 72 74 20 3A start :
0001B0: 3D 20 69 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 = i;..
0001C0: 20 20 20 20 20 20 20 20 20 20 57 48 49 4C 45 20 WHILE
0001D0: 28 69 20 3C 20 4C 45 4E 28 6C 69 6E 69 65 29 29 (i < LEN(linie))
0001E0: 20 41 4E 44 20 28 20 63 68 20 49 4E 20 62 6F 67 AND ( ch IN bog
0001F0: 73 74 61 76 65 72 29 20 44 4F 0D 0A 20 20 20 20 staver) DO..
Size : 512 (Real : 512)
000000: 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 . WRITE
000010: 28 74 61 62 65 6C 28 2E 69 2E 29 20 3A 20 34 29 (tabel(.i.) : 4)
000020: 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E 44 3B 0D ;.. END;.
000030: 0A 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 20 . WRITELN;
000040: 20 0D 0A 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 .. END;..
000050: 20 0D 0A 20 20 50 52 4F 43 45 44 55 52 45 20 6D .. PROCEDURE m
000060: 69 6E 6D 61 78 28 56 41 52 20 6D 69 6E 2C 20 6D inmax(VAR min, m
000070: 61 78 20 3A 20 49 4E 54 45 47 45 52 3B 20 56 41 ax : INTEGER; VA
000080: 52 20 74 61 62 65 6C 20 3A 20 74 61 62 65 6C 74 R tabel : tabelt
000090: 79 70 65 29 3B 0D 0A 20 20 0D 0A 20 20 20 20 56 ype);.. .. V
0000A0: 41 52 0D 0A 20 20 20 20 20 20 69 20 3A 20 49 4E AR.. i : IN
0000B0: 54 45 47 45 52 3B 0D 0A 20 20 20 20 0D 0A 20 20 TEGER;.. ..
0000C0: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 6D BEGIN.. m
0000D0: 69 6E 20 3A 3D 20 74 61 62 65 6C 28 2E 31 2E 29 in := tabel(.1.)
0000E0: 3B 0D 0A 20 20 20 20 20 20 6D 61 78 20 3A 3D 20 ;.. max :=
0000F0: 74 61 62 65 6C 28 2E 31 2E 29 3B 0D 0A 20 20 20 tabel(.1.);..
000100: 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F FOR i := 1 TO
000110: 20 6D 61 78 61 6E 74 61 6C 20 44 4F 0D 0A 20 20 maxantal DO..
000120: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
000130: 20 20 20 20 20 20 20 49 46 20 74 61 62 65 6C 28 IF tabel(
000140: 2E 69 2E 29 20 3C 20 6D 69 6E 0D 0A 20 20 20 20 .i.) < min..
000150: 20 20 20 20 20 20 20 20 54 48 45 4E 20 6D 69 6E THEN min
000160: 20 3A 3D 20 74 61 62 65 6C 28 2E 69 2E 29 3B 0D := tabel(.i.);.
000170: 0A 20 20 20 20 20 20 20 20 20 20 49 46 20 74 61 . IF ta
000180: 62 65 6C 28 2E 69 2E 29 20 3E 20 6D 61 78 20 0D bel(.i.) > max .
000190: 0A 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 . THE
0001A0: 4E 20 6D 61 78 20 3A 3D 20 74 61 62 65 6C 28 2E N max := tabel(.
0001B0: 69 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E i.);.. EN
0001C0: 44 3B 0D 0A 20 20 20 20 45 4E 44 3B 0D 0A 20 20 D;.. END;..
0001D0: 0D 0A 20 20 50 52 4F 43 45 44 55 52 45 20 75 64 .. PROCEDURE ud
0001E0: 28 6D 69 6E 2C 20 6D 61 78 2C 20 62 72 65 64 64 (min, max, bredd
0001F0: 65 20 3A 20 49 4E 54 45 47 45 52 3B 20 56 41 52 e : INTEGER; VAR
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 BEGIN..
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000030: 20 69 20 3A 3D 20 69 20 2B 20 31 3B 0D 0A 20 20 i := i + 1;..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 20 20 20 20 20 20 63 68 20 3A 3D 20 6C 69 6E 69 ch := lini
000060: 65 28 2E 69 2E 29 3B 0D 0A 20 20 20 20 20 20 20 e(.i.);..
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
000080: 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ND;..
000090: 20 20 20 20 20 20 20 20 20 73 6C 75 74 20 3A 3D slut :=
0000A0: 20 69 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 i;..
0000B0: 20 20 20 20 20 20 20 20 20 6F 72 64 5F 20 3A 3D ord_ :=
0000C0: 20 43 4F 50 59 28 6C 69 6E 69 65 2C 20 73 74 61 COPY(linie, sta
0000D0: 72 74 2C 20 73 6C 75 74 20 2D 20 73 74 61 72 74 rt, slut - start
0000E0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
0000F0: 20 20 20 20 20 20 20 20 49 46 20 62 69 6E 73 6F IF binso
000100: 65 67 28 6F 72 64 5F 29 0D 0A 20 20 20 20 20 20 eg(ord_)..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000120: 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 THEN..
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 4F FO
000140: 52 20 6A 20 3A 3D 20 73 74 61 72 74 20 54 4F 20 R j := start TO
000150: 73 6C 75 74 20 2D 20 31 20 44 4F 0D 0A 20 20 20 slut - 1 DO..
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 6C 69 6E 69 65 28 2E 6A 2E linie(.j.
000180: 29 20 3A 3D 20 43 48 52 28 4F 52 44 28 6C 69 6E ) := CHR(ORD(lin
000190: 69 65 28 2E 6A 2E 29 29 20 2B 20 33 32 29 3B 0D ie(.j.)) + 32);.
0001A0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0001B0: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 END;..
0001C0: 20 20 20 20 20 20 20 55 4E 54 49 4C 20 69 20 3E UNTIL i >
0001D0: 3D 20 4C 45 4E 28 6C 69 6E 69 65 29 3B 0D 0A 20 = LEN(linie);..
0001E0: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D END;.
0001F0: 0A 20 20 20 20 20 20 20 20 46 4F 52 20 69 20 3A . FOR i :
Size : 512 (Real : 512)
000000: 20 74 61 62 65 6C 20 3A 20 74 61 62 65 6C 74 79 tabel : tabelty
000010: 70 65 29 3B 0D 0A 20 20 0D 0A 20 20 20 20 56 41 pe);.. .. VA
000020: 52 0D 0A 20 20 20 20 20 20 68 79 70 20 3A 20 74 R.. hyp : t
000030: 61 62 65 6C 74 79 70 65 3B 0D 0A 20 20 20 20 20 abeltype;..
000040: 20 69 2C 20 6E 72 20 3A 20 49 4E 54 45 47 45 52 i, nr : INTEGER
000050: 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 42 45 47 ;.. .. BEG
000060: 49 4E 0D 0A 20 20 20 20 20 20 46 4F 52 20 69 20 IN.. FOR i
000070: 3A 3D 20 31 20 54 4F 20 6D 61 78 61 6E 74 61 6C := 1 TO maxantal
000080: 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 68 79 70 DO.. hyp
000090: 28 2E 69 2E 29 20 3A 3D 20 30 3B 0D 0A 20 20 20 (.i.) := 0;..
0000A0: 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F FOR i := 1 TO
0000B0: 20 6D 61 78 61 6E 74 61 6C 20 44 4F 0D 0A 20 20 maxantal DO..
0000C0: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
0000D0: 20 20 20 20 20 20 20 6E 72 20 3A 3D 20 28 74 61 nr := (ta
0000E0: 62 65 6C 28 2E 69 2E 29 20 2D 20 6D 69 6E 29 20 bel(.i.) - min)
0000F0: 44 49 56 20 62 72 65 64 64 65 20 2B 20 31 3B 0D DIV bredde + 1;.
000100: 0A 20 20 20 20 20 20 20 20 20 20 68 79 70 28 2E . hyp(.
000110: 6E 72 2E 29 20 3A 3D 20 68 79 70 28 2E 6E 72 2E nr.) := hyp(.nr.
000120: 29 20 2B 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 ) + 1;..
000130: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 46 4F 52 20 END;.. FOR
000140: 69 20 3A 3D 20 31 20 54 4F 20 28 6D 61 78 20 2D i := 1 TO (max -
000150: 20 6D 69 6E 29 20 44 49 56 20 62 72 65 64 64 65 min) DIV bredde
000160: 20 2B 20 31 20 44 4F 0D 0A 20 20 20 20 20 20 20 + 1 DO..
000170: 20 57 52 49 54 45 4C 4E 28 27 28 27 2C 20 6D 69 WRITELN('(', mi
000180: 6E 20 2B 20 62 72 65 64 64 65 20 2A 20 28 69 20 n + bredde * (i
000190: 2D 20 31 29 20 3A 20 34 2C 20 27 2C 27 2C 0D 0A - 1) : 4, ',',..
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001B0: 6D 69 6E 20 2B 20 62 72 65 64 64 65 20 2A 20 69 min + bredde * i
0001C0: 20 2D 20 31 20 3A 20 34 2C 20 27 29 20 3A 20 27 - 1 : 4, ') : '
0001D0: 2C 20 68 79 70 28 2E 69 2E 29 20 3A 20 34 29 3B , hyp(.i.) : 4);
0001E0: 0D 0A 20 20 20 20 45 4E 44 3B 0D 0A 20 20 0D 0A .. END;.. ..
0001F0: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 28 2A 20 BEGIN.. (*
Size : 512 (Real : 512)
000000: 14 15 13 14 15 16 17 18 16 17 18 19 1A 1B 19 1A ................
000010: 1B 1C 1D 1E 1C 1D 1E 1F 20 21 1F 20 21 22 23 24 ........ !. !"#$
000020: 00 25 00 06 FD 01 02 04 05 02 03 05 06 04 05 07 .%..............
000030: 08 05 06 08 09 07 08 0A 0B 08 09 0B 0C 0A 0B 0D ................
000040: 0E 0B 0C 0E 0F 0D 0E 10 11 0E 0F 11 12 10 11 13 ................
000050: 14 11 12 14 15 13 14 16 17 14 15 17 18 16 17 19 ................
000060: 1A 17 18 1A 1B 19 1A 1C 1D 1A 1B 1D 1E 1C 1D 1F ................
000070: 20 1D 1E 20 21 1F 20 22 23 20 21 23 24 00 01 02 .. !. "# !#$...
000080: 00 25 02 25 02 03 01 02 03 04 05 06 07 08 09 0A .%.%............
000090: 0B 0C 0D 0E 0F 10 11 12 13 14 15 16 17 18 19 1A ................
0000A0: 1B 1C 1D 1E 1F 20 21 22 23 24 00 25 00 01 00 02 ..... !"#$.%....
0000B0: 25 02 25 03 01 02 02 03 01 04 02 05 03 06 04 05 %.%.............
0000C0: 05 06 04 07 05 08 06 09 07 08 08 09 07 0A 08 0B ................
0000D0: 09 0C 0A 0B 0B 0C 0A 0D 0B 0E 0C 0F 0D 0E 0E 0F ................
0000E0: 0D 10 0E 11 0F 12 10 11 11 12 10 13 11 14 12 15 ................
0000F0: 13 14 14 15 13 16 14 17 15 18 16 17 17 18 16 19 ................
000100: 17 1A 18 1B 19 1A 1A 1B 19 1C 1A 1D 1B 1E 1C 1D ................
000110: 1D 1E 1C 1F 1D 20 1E 21 1F 20 20 21 1F 22 20 23 ..... .!. !." #
000120: 21 24 00 25 01 02 03 04 05 06 07 08 09 0A 0B 0C !$.%............
000130: 0D 0E 0F 10 11 12 13 14 15 16 17 18 19 1A 1B 1C ................
000140: 1D 1E 1F 20 21 22 23 24 54 5A 06 12 04 C0 5A 06 ... !"#$TZ....Z.
000150: 0C 03 08 5B 0B 06 03 4A 5B 01 08 03 52 5B 16 04 ...[...J[...R[..
000160: 03 AA 5B 0F 03 04 D7 5B 3C 02 04 4F 5C 26 01 04 ..[....[<..O\&..
000170: 0F 01 20 01 30 01 40 01 51 01 62 01 18 06 37 06 .. .0.@.Q.b...7.
000180: 57 06 6C 0B 6C 10 6C 15 10 09 18 09 1F 09 27 09 W.l.l.l.......'.
000190: 2F 09 37 09 3F 09 47 09 4F 09 57 09 5F 09 08 09 /.7.?.G.O.W._...
0001A0: 0F 0E 0F 13 17 0E 17 13 20 0E 20 13 28 0E 28 13 ........ . .(.(.
0001B0: 2F 0E 2F 13 37 0E 37 13 3F 0E 3F 13 47 0E 47 13 /./.7.7.?.?.G.G.
0001C0: 4F 0E 4F 13 57 0E 57 13 5F 0E 5F 13 08 0E 08 10 O.O.W.W._._.....
0001D0: 08 13 0C 09 14 09 1C 09 24 09 2C 09 34 09 3C 09 ........$.,.4.<.
0001E0: 44 09 4C 09 54 09 5C 09 64 09 04 10 08 0B 08 0F D.L.T.\.d.......
0001F0: 08 11 08 15 0C 0E 0C 13 10 0B 10 03 FD 15 14 0E ................
Size : 512 (Real : 512)
000000: 56 69 20 6C 61 64 65 72 20 64 61 74 61 6D 61 74 Vi lader datamat
000010: 65 6E 20 66 69 6E 64 65 20 6E 6F 67 6C 65 20 74 en finde nogle t
000020: 61 6C 20 74 69 6C 20 6F 73 20 2A 29 0D 0A 20 20 al til os *)..
000030: 20 20 66 69 6E 64 74 61 6C 28 74 61 62 65 6C 29 findtal(tabel)
000040: 3B 0D 0A 20 20 20 20 6D 69 6E 6D 61 78 28 6D 69 ;.. minmax(mi
000050: 6E 2C 20 6D 61 78 2C 20 74 61 62 65 6C 29 3B 0D n, max, tabel);.
000060: 0A 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 . WRITE('Tast
000070: 20 69 6E 74 65 72 76 61 6C 62 72 65 64 64 65 6E intervalbredden
000080: 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 69 6E 74 : '); READLN(int
000090: 65 72 76 61 6C 62 72 65 64 64 65 29 3B 0D 0A 20 ervalbredde);..
0000A0: 20 20 20 75 64 28 6D 69 6E 2C 20 6D 61 78 2C 20 ud(min, max,
0000B0: 69 6E 74 65 72 76 61 6C 62 72 65 64 64 65 2C 20 intervalbredde,
0000C0: 74 61 62 65 6C 29 3B 0D 0A 20 20 45 4E 44 2E 0D tabel);.. END..
0000D0: 0A 1A 20 6D 61 78 2C 20 74 61 62 65 6C 29 3B 0D .. max, tabel);.
0000E0: 0A 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 . WRITE('Tast
0000F0: 20 69 6E 74 65 72 76 61 6C 62 72 65 64 64 65 6E intervalbredden
000100: 20 20 57 52 49 54 45 4C 4E 28 69 20 3A 20 36 2C WRITELN(i : 6,
000110: 20 74 61 62 65 6C 28 2E 69 2E 29 20 2F 20 61 6E tabel(.i.) / an
000120: 74 61 6C 20 2A 20 31 30 30 20 3A 20 32 30 20 3A tal * 100 : 20 :
000130: 20 32 2C 20 27 20 25 27 29 3B 0D 0A 20 20 45 4E 2, ' %');.. EN
000140: 44 2E 0D 0A 1A 53 27 29 3B 0D 0A 20 20 20 20 57 D....S');.. W
000150: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 46 4F 52 RITELN;.. FOR
000160: 20 69 20 3A 3D 20 30 20 54 4F 20 73 65 72 69 65 i := 0 TO serie
000170: 6C 61 65 6E 67 64 65 20 44 4F 0D 0A 20 20 20 20 laengde DO..
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 6A 6F 75 72 6E 61 6C 3B PROGRAM journal;
000010: 0D 0A 20 20 0D 0A 20 20 54 59 50 45 0D 0A 20 20 .. .. TYPE..
000020: 20 20 73 74 72 33 30 20 3D 20 53 54 52 49 4E 47 str30 = STRING
000030: 28 2E 33 30 2E 29 3B 0D 0A 20 20 0D 0A 20 20 56 (.30.);.. .. V
000040: 41 52 0D 0A 20 20 20 20 74 65 6B 73 74 20 3A 20 AR.. tekst :
000050: 73 74 72 33 30 3B 0D 0A 20 20 20 20 69 2C 20 73 str30;.. i, s
000060: 74 61 72 74 2C 20 73 6C 75 74 20 3A 20 49 4E 54 tart, slut : INT
000070: 45 47 45 52 3B 0D 0A 20 20 20 20 6F 6B 20 3A 20 EGER;.. ok :
000080: 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 20 20 0D 0A BOOLEAN;.. ..
000090: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 57 52 49 BEGIN.. WRI
0000A0: 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 TE(CLRHOM);..
0000B0: 20 57 52 49 54 45 28 27 53 6B 72 69 76 20 6A 6F WRITE('Skriv jo
0000C0: 75 72 6E 61 6C 6E 75 6D 6D 65 72 20 28 41 2D 30 urnalnummer (A-0
0000D0: 30 2D 30 30 30 29 3A 20 27 29 3B 0D 0A 20 20 20 0-000): ');..
0000E0: 20 52 45 41 44 4C 4E 28 74 65 6B 73 74 29 3B 0D READLN(tekst);.
0000F0: 0A 20 20 20 20 69 20 3A 3D 20 31 3B 0D 0A 20 20 . i := 1;..
000100: 20 20 57 48 49 4C 45 20 74 65 6B 73 74 28 2E 69 WHILE tekst(.i
000110: 2E 29 20 3D 20 27 20 27 20 44 4F 0D 0A 20 20 20 .) = ' ' DO..
000120: 20 20 20 69 20 3A 3D 20 69 20 2B 20 31 3B 0D 0A i := i + 1;..
000130: 20 20 20 20 73 74 61 72 74 20 3A 3D 20 69 3B 0D start := i;.
000140: 0A 20 20 20 20 69 20 3A 3D 20 4C 45 4E 28 74 65 . i := LEN(te
000150: 6B 73 74 29 3B 0D 0A 20 20 20 20 57 48 49 4C 45 kst);.. WHILE
000160: 20 74 65 6B 73 74 28 2E 69 2E 29 20 3D 20 27 20 tekst(.i.) = '
000170: 27 20 44 4F 0D 0A 20 20 20 20 20 20 69 20 3A 3D ' DO.. i :=
000180: 20 69 20 2D 20 31 3B 0D 0A 20 20 20 20 73 6C 75 i - 1;.. slu
000190: 74 20 3A 3D 20 69 3B 0D 0A 20 20 20 20 74 65 6B t := i;.. tek
0001A0: 73 74 20 3A 3D 20 43 4F 50 59 28 74 65 6B 73 74 st := COPY(tekst
0001B0: 2C 20 73 74 61 72 74 2C 20 73 6C 75 74 20 2D 20 , start, slut -
0001C0: 73 74 61 72 74 20 2B 20 31 29 3B 20 28 2A 20 62 start + 1); (* b
0001D0: 6C 61 6E 6B 74 65 67 6E 20 73 6C 65 74 74 65 73 lanktegn slettes
0001E0: 20 2A 29 0D 0A 20 20 20 20 6F 6B 20 3A 3D 20 54 *).. ok := T
0001F0: 52 55 45 3B 0D 0A 20 20 20 20 49 46 20 4C 45 4E RUE;.. IF LEN
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
000010: 69 6E 76 65 72 73 3B 0D 0A 20 20 20 20 20 20 20 invers;..
000020: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 56 41 52 .. VAR
000030: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 69 20 .. i
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 20 20 78 20 3A 20 52 45 41 4C x : REAL
000060: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 0D ;.. .
000070: 0A 20 20 20 20 20 20 20 20 20 20 46 55 4E 43 54 . FUNCT
000080: 49 4F 4E 20 61 72 63 73 69 6E 28 78 20 3A 20 52 ION arcsin(x : R
000090: 45 41 4C 29 20 3A 20 52 45 41 4C 3B 0D 0A 20 20 EAL) : REAL;..
0000A0: 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 ..
0000B0: 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 BEGIN..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 IF
0000D0: 41 42 53 28 78 29 20 3C 20 31 0D 0A 20 20 20 20 ABS(x) < 1..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E THEN
0000F0: 20 61 72 63 73 69 6E 20 3A 3D 20 41 52 43 54 41 arcsin := ARCTA
000100: 4E 28 78 20 2F 20 53 51 52 54 28 31 20 2D 20 78 N(x / SQRT(1 - x
000110: 20 2A 20 78 29 29 0D 0A 20 20 20 20 20 20 20 20 * x))..
000120: 20 20 20 20 20 20 45 4C 53 45 20 49 46 20 78 20 ELSE IF x
000130: 3D 20 31 0D 0A 20 20 20 20 20 20 20 20 20 20 20 = 1..
000140: 20 20 20 20 20 54 48 45 4E 20 61 72 63 73 69 6E THEN arcsin
000150: 20 3A 3D 20 50 49 20 2F 20 32 0D 0A 20 20 20 20 := PI / 2..
000160: 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 ELSE I
000170: 46 20 78 20 3D 20 2D 31 0D 0A 20 20 20 20 20 20 F x = -1..
000180: 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 61 THEN a
000190: 72 63 73 69 6E 20 3A 3D 20 2D 50 49 20 2F 20 32 rcsin := -PI / 2
0001A0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 45 ;.. E
0001B0: 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D ND;.. .
0001C0: 0A 20 20 20 20 20 20 20 20 20 20 46 55 4E 43 54 . FUNCT
0001D0: 49 4F 4E 20 61 72 63 63 6F 73 28 78 20 3A 20 52 ION arccos(x : R
0001E0: 45 41 4C 29 20 3A 20 52 45 41 4C 3B 0D 0A 20 20 EAL) : REAL;..
0001F0: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 ..
Size : 512 (Real : 512)
000000: 28 74 65 6B 73 74 29 20 3C 3E 20 38 0D 0A 20 20 (tekst) <> 8..
000010: 20 20 20 20 54 48 45 4E 20 6F 6B 20 3A 3D 20 46 THEN ok := F
000020: 41 4C 53 45 0D 0A 20 20 20 20 45 4C 53 45 20 49 ALSE.. ELSE I
000030: 46 20 28 74 65 6B 73 74 28 2E 31 2E 29 20 3C 20 F (tekst(.1.) <
000040: 27 41 27 29 20 4F 52 20 28 74 65 6B 73 74 28 2E 'A') OR (tekst(.
000050: 31 2E 29 20 3E 20 27 5D 27 29 0D 0A 20 20 20 20 1.) > ']')..
000060: 20 20 54 48 45 4E 20 6F 6B 20 3A 3D 20 46 41 4C THEN ok := FAL
000070: 53 45 0D 0A 20 20 20 20 45 4C 53 45 20 49 46 20 SE.. ELSE IF
000080: 28 74 65 6B 73 74 28 2E 32 2E 29 20 3C 3E 20 27 (tekst(.2.) <> '
000090: 2D 27 29 20 4F 52 20 28 74 65 6B 73 74 28 2E 35 -') OR (tekst(.5
0000A0: 2E 29 20 3C 3E 20 27 2D 27 29 0D 0A 20 20 20 20 .) <> '-')..
0000B0: 20 20 54 48 45 4E 20 6F 6B 20 3A 3D 20 46 41 4C THEN ok := FAL
0000C0: 53 45 0D 0A 20 20 20 20 45 4C 53 45 0D 0A 20 20 SE.. ELSE..
0000D0: 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 33 20 54 FOR i := 3 T
0000E0: 4F 20 38 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 O 8 DO..
0000F0: 49 46 20 69 20 3C 3E 20 35 0D 0A 20 20 20 20 20 IF i <> 5..
000100: 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 THEN..
000110: 20 20 20 20 20 20 20 49 46 20 28 74 65 6B 73 74 IF (tekst
000120: 28 2E 69 2E 29 20 3C 20 27 30 27 29 20 4F 52 20 (.i.) < '0') OR
000130: 28 74 65 6B 73 74 28 2E 69 2E 29 20 3E 20 27 39 (tekst(.i.) > '9
000140: 27 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ')..
000150: 20 20 54 48 45 4E 20 6F 6B 20 3A 3D 20 46 41 4C THEN ok := FAL
000160: 53 45 3B 0D 0A 20 20 20 20 49 46 20 6F 6B 0D 0A SE;.. IF ok..
000170: 20 20 20 20 20 20 54 48 45 4E 20 57 52 49 54 45 THEN WRITE
000180: 4C 4E 28 74 65 6B 73 74 2C 20 27 20 65 72 20 69 LN(tekst, ' er i
000190: 20 6F 72 64 65 6E 27 29 0D 0A 20 20 20 20 20 20 orden')..
0001A0: 45 4C 53 45 20 57 52 49 54 45 4C 4E 28 74 65 6B ELSE WRITELN(tek
0001B0: 73 74 2C 20 27 20 65 72 20 69 6B 6B 65 20 6B 6F st, ' er ikke ko
0001C0: 72 72 65 6B 74 27 29 3B 0D 0A 20 20 45 4E 44 2E rrekt');.. END.
0001D0: 0D 0A 20 20 20 20 20 20 20 0D 0A 1A 20 46 41 4C .. ... FAL
0001E0: 53 45 3B 0D 0A 20 20 20 20 49 46 20 6F 6B 0D 0A SE;.. IF ok..
0001F0: 20 20 20 20 20 20 54 48 45 4E 20 57 52 49 54 45 THEN WRITE
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
000010: 20 20 20 20 20 20 20 20 20 20 20 49 46 20 78 20 IF x
000020: 3D 20 30 0D 0A 20 20 20 20 20 20 20 20 20 20 20 = 0..
000030: 20 20 20 20 20 54 48 45 4E 20 61 72 63 63 6F 73 THEN arccos
000040: 20 3A 3D 20 50 49 20 2F 20 32 0D 0A 20 20 20 20 := PI / 2..
000050: 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 ELSE I
000060: 46 20 28 30 20 3C 20 78 20 29 20 41 4E 44 20 28 F (0 < x ) AND (
000070: 78 20 3C 3D 20 31 29 0D 0A 20 20 20 20 20 20 20 x <= 1)..
000080: 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 61 72 THEN ar
000090: 63 63 6F 73 20 3A 3D 20 41 52 43 54 41 4E 28 53 ccos := ARCTAN(S
0000A0: 51 52 54 28 31 20 2D 20 78 20 2A 20 78 29 20 2F QRT(1 - x * x) /
0000B0: 20 78 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 x)..
0000C0: 20 20 20 45 4C 53 45 20 49 46 20 28 2D 31 20 3C ELSE IF (-1 <
0000D0: 3D 20 78 29 20 41 4E 44 20 28 78 20 3C 20 30 29 = x) AND (x < 0)
0000E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0000F0: 20 20 54 48 45 4E 20 61 72 63 63 6F 73 20 3A 3D THEN arccos :=
000100: 20 41 52 43 54 41 4E 28 53 51 52 54 28 31 20 2D ARCTAN(SQRT(1 -
000110: 20 78 20 2A 20 78 29 20 2F 20 78 29 20 2B 20 50 x * x) / x) + P
000120: 49 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 I;..
000130: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 END;..
000140: 0D 0A 20 20 20 20 20 20 20 20 20 20 42 45 47 49 .. BEGI
000150: 4E 20 28 2A 20 69 6E 76 65 72 73 20 2A 29 0D 0A N (* invers *)..
000160: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
000170: 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 E(CLRHOM);..
000180: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 WRITELN(
000190: 27 78 27 20 3A 20 34 2C 20 27 41 52 43 53 49 4E 'x' : 4, 'ARCSIN
0001A0: 28 78 29 27 20 3A 20 31 35 2C 20 27 41 52 43 43 (x)' : 15, 'ARCC
0001B0: 4F 53 28 78 29 27 20 3A 20 31 35 29 3B 0D 0A 20 OS(x)' : 15);..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
0001D0: 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 LN;..
0001E0: 20 46 4F 52 20 69 20 3A 3D 20 2D 31 30 20 54 4F FOR i := -10 TO
0001F0: 20 31 30 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 10 DO..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
000010: 6B 61 65 64 65 32 3B 0D 0A 20 20 20 20 20 20 20 kaede2;..
000020: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 54 59 50 .. TYP
000030: 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 73 E.. s
000040: 74 72 34 30 20 3D 20 53 54 52 49 4E 47 28 2E 34 tr40 = STRING(.4
000050: 30 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0.);..
000060: 20 20 6C 69 6E 6B 20 3D 20 5E 20 70 6F 73 74 3B link = ^ post;
000070: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 70 6F .. po
000080: 73 74 20 3D 20 52 45 43 4F 52 44 0D 0A 20 20 20 st = RECORD..
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000A0: 20 20 6E 61 65 73 74 65 20 3A 20 6C 69 6E 6B 3B naeste : link;
0000B0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0000C0: 20 20 20 20 20 20 20 6E 61 76 6E 20 3A 20 73 74 navn : st
0000D0: 72 34 30 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 r40;..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 61 64 72 65 73 adres
0000F0: 73 65 20 3A 20 73 74 72 34 30 3B 0D 0A 20 20 20 se : str40;..
000100: 20 20 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: 0D 0A 20 20 20 20 20 20 20 20 20 20 56 41 52 0D .. VAR.
000130: 0A 20 20 20 20 20 20 20 20 20 20 20 20 75 64 2C . ud,
000140: 20 74 6F 70 2C 20 70 70 20 3A 20 6C 69 6E 6B 3B top, pp : link;
000150: 0D 0A 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 0D 0A 20 20 20 20 20 20 20 20 20 20 ..
000180: 50 52 4F 43 45 44 55 52 45 20 69 6E 64 73 61 65 PROCEDURE indsae
000190: 74 28 56 41 52 20 66 6F 65 72 73 74 65 20 3A 20 t(VAR foerste :
0001A0: 6C 69 6E 6B 3B 20 6E 79 70 6F 73 74 20 3A 20 6C link; nypost : l
0001B0: 69 6E 6B 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 ink);..
0001C0: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ..
0001D0: 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 20 20 VAR..
0001E0: 20 20 20 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A ch : CHAR;..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A ..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 78 20 3A x :
000020: 3D 20 69 20 2F 20 31 30 3B 0D 0A 20 20 20 20 20 = i / 10;..
000030: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
000040: 4C 4E 28 78 20 3A 20 34 20 3A 20 31 2C 20 61 72 LN(x : 4 : 1, ar
000050: 63 73 69 6E 28 78 29 20 3A 20 31 35 20 3A 20 38 csin(x) : 15 : 8
000060: 2C 20 61 72 63 63 6F 73 28 78 29 20 3A 20 31 35 , arccos(x) : 15
000070: 20 3A 20 38 29 3B 0D 0A 20 20 20 20 20 20 20 20 : 8);..
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 45 4E 44 2E 20 28 2A 20 69 6E END. (* in
0000A0: 76 65 72 73 20 2A 29 0D 0A 1A 0A 20 20 20 20 20 vers *)....
0000B0: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
0000C0: 4C 4E 28 78 20 3A 20 34 20 3A 20 31 2C 20 61 72 LN(x : 4 : 1, ar
0000D0: 63 73 69 6E 28 78 29 20 3A 20 31 35 20 3A 20 38 csin(x) : 15 : 8
0000E0: 2C 20 61 72 63 63 6F 73 28 78 29 20 3A 20 31 35 , arccos(x) : 15
0000F0: 20 3A 20 38 29 3B 0D 0A 20 20 20 20 20 20 20 20 : 8);..
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 20 20 20 20 42 45 47 49 BEGI
000010: 4E 20 28 2A 20 69 6E 64 73 61 65 74 20 2A 29 0D N (* indsaet *).
000020: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 . I
000030: 46 20 66 6F 65 72 73 74 65 20 3D 20 4E 49 4C 20 F foerste = NIL
000040: 28 2A 20 6B 7B 64 65 6E 20 65 72 20 74 6F 6D 20 (* k{den er tom
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 20 66 6F 65 72 73 74 65 THEN foerste
000070: 20 3A 3D 20 6E 79 70 6F 73 74 0D 0A 20 20 20 20 := nypost..
000080: 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 ELSE I
000090: 46 20 6E 79 70 6F 73 74 5E 2E 6E 61 76 6E 20 3C F nypost^.navn <
0000A0: 20 66 6F 65 72 73 74 65 5E 2E 6E 61 76 6E 20 28 foerste^.navn (
0000B0: 2A 20 66 7C 72 20 66 7C 72 73 74 65 20 70 6F 73 * f|r f|rste pos
0000C0: 74 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 t *)..
0000D0: 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 THEN..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 BE
0000F0: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
000100: 20 20 20 20 20 20 20 20 20 6E 79 70 6F 73 74 5E nypost^
000110: 2E 6E 61 65 73 74 65 20 3A 3D 66 6F 65 72 73 74 .naeste :=foerst
000120: 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 e;..
000130: 20 20 20 20 20 20 20 20 66 6F 65 72 73 74 65 20 foerste
000140: 3A 3D 6E 79 70 6F 73 74 3B 0D 0A 20 20 20 20 20 :=nypost;..
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 W
000160: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 RITELN;..
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
000180: 54 45 28 6E 79 70 6F 73 74 5E 2E 6E 61 76 6E 2C TE(nypost^.navn,
000190: 20 27 20 65 72 20 6E 75 20 69 6E 64 73 61 74 20 ' er nu indsat
0001A0: 69 20 6B 7B 64 65 6E 2E 20 27 2C 0D 0A 20 20 20 i k{den. ',..
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 27 54 61 73 74 20 3C 52 45 'Tast <RE
0001D0: 54 55 52 4E 3E 20 27 29 3B 0D 0A 20 20 20 20 20 TURN> ');..
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 R
0001F0: 45 41 44 4C 4E 28 63 68 29 3B 0D 0A 20 20 20 20 EADLN(ch);..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 57 48 49 4C 45 20 70 70 20 WHILE pp
000010: 3C 3E 20 4E 49 4C 20 44 4F 0D 0A 20 20 20 20 20 <> NIL DO..
000020: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E BEGIN
000030: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000040: 20 20 20 20 57 52 49 54 45 4C 4E 28 70 70 5E 2E WRITELN(pp^.
000050: 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 20 20 20 20 navn);..
000060: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
000070: 4E 28 70 70 5E 2E 61 64 72 65 73 73 65 29 3B 0D N(pp^.adresse);.
000080: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000090: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 p
0000B0: 70 20 3A 3D 20 70 70 5E 2E 6E 61 65 73 74 65 3B p := pp^.naeste;
0000C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0000D0: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 END;..
0000E0: 20 20 20 20 20 20 57 52 49 54 45 28 27 54 61 73 WRITE('Tas
0000F0: 74 20 3C 52 45 54 55 52 4E 3E 3A 20 27 29 3B 0D t <RETURN>: ');.
000100: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 . R
000110: 45 41 44 4C 4E 28 63 68 29 3B 0D 0A 20 20 20 20 EADLN(ch);..
000120: 20 20 20 20 20 20 20 20 45 4E 44 3B 20 28 2A 20 END; (*
000130: 75 64 73 6B 72 69 76 20 2A 29 0D 0A 20 20 20 20 udskriv *)..
000140: 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 ..
000150: 20 20 42 45 47 49 4E 20 28 2A 20 6B 61 65 64 65 BEGIN (* kaede
000160: 32 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 2 *)..
000170: 20 20 74 6F 70 20 3A 3D 20 4E 49 4C 3B 0D 0A 20 top := NIL;..
000180: 20 20 20 20 20 20 20 20 20 20 20 4E 45 57 28 75 NEW(u
000190: 64 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 d);..
0001A0: 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 REPEAT..
0001B0: 20 20 20 20 20 20 20 57 52 49 54 45 28 43 4C 52 WRITE(CLR
0001C0: 48 4F 4D 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 HOM);..
0001D0: 20 20 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 34 GOTOXY(10,4
0001E0: 29 3B 20 57 52 49 54 45 28 27 53 4F 52 54 45 52 ); WRITE('SORTER
0001F0: 45 54 20 4B 5B 44 45 27 29 3B 0D 0A 20 20 20 20 ET K[DE');..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E EN
000010: 44 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 D..
000020: 20 45 4C 53 45 20 28 2A 20 66 69 6E 64 20 72 69 ELSE (* find ri
000030: 67 74 69 67 20 70 6C 61 64 73 20 74 69 6C 20 6E gtig plads til n
000040: 79 70 6F 73 74 20 76 69 61 20 72 65 6B 75 72 73 ypost via rekurs
000050: 69 76 74 20 6B 61 6C 64 20 2A 29 0D 0A 20 20 20 ivt kald *)..
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6E 64 ind
000070: 73 61 65 74 28 66 6F 65 72 73 74 65 5E 2E 6E 61 saet(foerste^.na
000080: 65 73 74 65 2C 20 6E 79 70 6F 73 74 29 3B 0D 0A este, nypost);..
000090: 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B END;
0000A0: 20 28 2A 20 69 6E 64 73 61 65 74 20 2A 29 0D 0A (* indsaet *)..
0000B0: 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 ..
0000C0: 20 20 20 20 20 20 50 52 4F 43 45 44 55 52 45 20 PROCEDURE
0000D0: 66 6A 65 72 6E 28 56 41 52 20 66 6F 65 72 73 74 fjern(VAR foerst
0000E0: 65 20 3A 20 6C 69 6E 6B 3B 20 67 6C 70 6F 73 74 e : link; glpost
0000F0: 20 3A 20 6C 69 6E 6B 29 3B 0D 0A 20 20 20 20 20 : link);..
000100: 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 ..
000110: 20 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 VAR..
000120: 20 20 20 20 20 20 20 20 66 6F 72 61 6E 2C 20 6B foran, k
000130: 61 6E 64 69 64 61 74 20 3A 20 6C 69 6E 6B 3B 0D andidat : link;.
000140: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 . f
000150: 75 6E 64 65 74 20 3A 20 42 4F 4F 4C 45 41 4E 3B undet : BOOLEAN;
000160: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000170: 63 68 20 3A 20 43 48 41 52 3B 0D 0A 20 20 20 20 ch : CHAR;..
000180: 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 ..
000190: 20 20 20 20 20 20 20 20 42 45 47 49 4E 20 28 2A BEGIN (*
0001A0: 20 66 6A 65 72 6E 20 2A 29 0D 0A 20 20 20 20 20 fjern *)..
0001B0: 20 20 20 20 20 20 20 20 20 49 46 20 66 6F 65 72 IF foer
0001C0: 73 74 65 20 3D 20 4E 49 4C 20 28 2A 20 6B 7B 64 ste = NIL (* k{d
0001D0: 65 6E 20 74 6F 6D 20 2A 29 0D 0A 20 20 20 20 20 en tom *)..
0001E0: 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 THEN
0001F0: 66 75 6E 64 65 74 20 3A 3D 20 46 41 4C 53 45 0D fundet := FALSE.
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 37 29 3B 20 57 52 49 54 45 28 27 49 (10,7); WRITE('I
000020: 2E 20 49 6E 64 73 7B 74 20 70 65 72 73 6F 6E 20 . Inds{t person
000030: 69 20 6B 7B 64 65 6E 2E 27 29 3B 0D 0A 20 20 20 i k{den.');..
000040: 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 GOTOX
000050: 59 28 31 30 2C 39 29 3B 20 57 52 49 54 45 28 27 Y(10,9); WRITE('
000060: 46 2E 20 46 6A 65 72 6E 65 20 70 65 72 73 6F 6E F. Fjerne person
000070: 20 66 72 61 20 6B 7B 64 65 6E 2E 27 29 3B 0D 0A fra k{den.');..
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4F GO
000090: 54 4F 58 59 28 31 30 2C 31 31 29 3B 20 57 52 49 TOXY(10,11); WRI
0000A0: 54 45 28 27 55 2E 20 55 64 73 6B 72 69 76 65 20 TE('U. Udskrive
0000B0: 6B 7B 64 65 6E 2E 27 29 3B 0D 0A 20 20 20 20 20 k{den.');..
0000C0: 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 GOTOXY(
0000D0: 31 30 2C 31 33 29 3B 20 57 52 49 54 45 28 27 41 10,13); WRITE('A
0000E0: 2E 20 41 66 73 6C 75 74 74 65 20 70 72 6F 67 72 . Afslutte progr
0000F0: 61 6D 6D 65 74 2E 27 29 3B 0D 0A 20 20 20 20 20 ammet.');..
000100: 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 GOTOXY(
000110: 31 30 2C 31 35 29 3B 20 57 52 49 54 45 28 27 54 10,15); WRITE('T
000120: 61 73 74 20 6B 6F 6D 6D 61 6E 64 6F 3A 20 27 29 ast kommando: ')
000130: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
000140: 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 REPEAT..
000150: 20 20 20 20 20 20 20 20 20 52 45 41 44 28 4B 42 READ(KB
000160: 44 2C 20 63 68 29 3B 0D 0A 20 20 20 20 20 20 20 D, ch);..
000170: 20 20 20 20 20 20 20 55 4E 54 49 4C 20 63 68 20 UNTIL ch
000180: 49 4E 20 28 2E 27 49 27 2C 20 27 69 27 2C 20 27 IN (.'I', 'i', '
000190: 46 27 2C 20 27 66 27 2C 20 27 55 27 2C 20 27 75 F', 'f', 'U', 'u
0001A0: 27 2C 20 27 41 27 2C 20 27 61 27 2E 29 3B 0D 0A ', 'A', 'a'.);..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 WR
0001C0: 49 54 45 4C 4E 28 63 68 29 3B 0D 0A 20 20 20 20 ITELN(ch);..
0001D0: 20 20 20 20 20 20 20 20 20 20 43 41 53 45 20 63 CASE c
0001E0: 68 20 4F 46 0D 0A 20 20 20 20 20 20 20 20 20 20 h OF..
0001F0: 20 20 20 20 20 20 27 49 27 2C 20 27 69 27 20 3A 'I', 'i' :
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 66 6F 65 72 73 74 65 5E 2E LSE IF foerste^.
000020: 6E 61 76 6E 20 3D 20 67 6C 70 6F 73 74 5E 2E 6E navn = glpost^.n
000030: 61 76 6E 20 28 2A 20 66 6A 65 72 6E 20 70 6F 73 avn (* fjern pos
000040: 74 20 31 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 t 1 *)..
000050: 20 20 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 THEN..
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 BEGIN..
000080: 20 20 20 20 20 20 20 20 20 20 20 66 6F 65 72 73 foers
000090: 74 65 20 3A 3D 20 66 6F 65 72 73 74 65 5E 2E 6E te := foerste^.n
0000A0: 61 65 73 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 aeste;..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 66 75 6E 64 fund
0000C0: 65 74 20 3A 3D 20 54 52 55 45 3B 0D 0A 20 20 20 et := TRUE;..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
0000E0: 4E 44 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ND..
0000F0: 20 20 45 4C 53 45 20 28 2A 20 53 7C 67 20 65 66 ELSE (* S|g ef
000100: 74 65 72 20 6E 61 76 6E 65 74 20 2A 29 0D 0A 20 ter navnet *)..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 B
000120: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
000130: 20 20 20 20 20 20 20 20 66 75 6E 64 65 74 20 3A fundet :
000140: 3D 20 46 41 4C 53 45 3B 0D 0A 20 20 20 20 20 20 = FALSE;..
000150: 20 20 20 20 20 20 20 20 20 20 20 20 66 6F 72 61 fora
000160: 6E 20 3A 3D 20 66 6F 65 72 73 74 65 3B 0D 0A 20 n := foerste;..
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 20 6B 61 6E 64 69 64 61 74 20 3A 3D 20 66 6F 65 kandidat := foe
000190: 72 73 74 65 5E 2E 6E 61 65 73 74 65 3B 0D 0A 20 rste^.naeste;..
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001B0: 20 57 48 49 4C 45 20 28 6B 61 6E 64 69 64 61 74 WHILE (kandidat
0001C0: 20 3C 3E 20 4E 49 4C 29 20 41 4E 44 20 4E 4F 54 <> NIL) AND NOT
0001D0: 20 66 75 6E 64 65 74 20 44 4F 0D 0A 20 20 20 20 fundet DO..
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001F0: 49 46 20 67 6C 70 6F 73 74 5E 2E 6E 61 76 6E 20 IF glpost^.navn
Size : 512 (Real : 512)
000000: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 BEGIN..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 20 20 20 20 20 4E 45 57 28 70 70 29 3B 0D 0A 20 NEW(pp);..
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000040: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
000050: 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ELN;..
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 20 20 57 52 49 54 45 28 27 4E 61 76 6E 3A 20 WRITE('Navn:
000080: 27 29 3B 20 52 45 41 44 4C 4E 28 70 70 5E 2E 6E '); READLN(pp^.n
000090: 61 76 6E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 avn);..
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000B0: 20 20 20 20 57 52 49 54 45 28 27 41 64 72 65 73 WRITE('Adres
0000C0: 73 65 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 70 se: '); READLN(p
0000D0: 70 5E 2E 61 64 72 65 73 73 65 29 3B 0D 0A 20 20 p^.adresse);..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 20 20 20 20 20 20 20 20 70 70 5E 2E 6E pp^.n
000100: 61 65 73 74 65 20 3A 3D 20 4E 49 4C 3B 0D 0A 20 aeste := NIL;..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000120: 20 20 20 20 20 20 20 20 20 20 20 20 69 6E 64 73 inds
000130: 61 65 74 28 74 6F 70 2C 20 70 70 29 3B 0D 0A 20 aet(top, pp);..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A END;..
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000170: 27 46 27 2C 20 27 66 27 20 3A 20 42 45 47 49 4E 'F', 'f' : BEGIN
000180: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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 20 20 20 20 20 20 20 20 20 20 20 20
0001C0: 20 20 20 20 20 20 57 52 49 54 45 28 27 48 76 65 WRITE('Hve
0001D0: 6D 20 73 6B 61 6C 20 66 6A 65 72 6E 65 73 3A 20 m skal fjernes:
0001E0: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ');..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
Size : 512 (Real : 512)
000000: 3D 20 6B 61 6E 64 69 64 61 74 5E 2E 6E 61 76 6E = kandidat^.navn
000010: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000020: 20 20 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 THEN..
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000040: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 20 20 20 20 20 20 20 66 6F 72 61 6E 5E 2E 6E 61 foran^.na
000070: 65 73 74 65 20 3A 3D 20 6B 61 6E 64 69 64 61 74 este := kandidat
000080: 5E 2E 6E 61 65 73 74 65 3B 0D 0A 20 20 20 20 20 ^.naeste;..
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000A0: 20 20 20 20 20 66 75 6E 64 65 74 20 3A 3D 20 54 fundet := T
0000B0: 52 55 45 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 RUE;..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E EN
0000D0: 44 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 D..
0000E0: 20 20 20 20 20 20 20 20 20 45 4C 53 45 0D 0A 20 ELSE..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 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 20 20 66 6F 72 61 6E 20 3A 3D foran :=
000130: 20 6B 61 6E 64 69 64 61 74 3B 0D 0A 20 20 20 20 kandidat;..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 20 20 20 6B 61 6E 64 69 64 61 74 20 3A kandidat :
000160: 3D 20 6B 61 6E 64 69 64 61 74 5E 2E 6E 61 65 73 = kandidat^.naes
000170: 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 te;..
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 END
000190: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
0001A0: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 END;..
0001B0: 20 20 20 20 20 20 20 49 46 20 66 75 6E 64 65 74 IF fundet
0001C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0001D0: 20 20 54 48 45 4E 20 57 52 49 54 45 4C 4E 28 67 THEN WRITELN(g
0001E0: 6C 70 6F 73 74 5E 2E 6E 61 76 6E 2C 20 20 27 20 lpost^.navn, '
0001F0: 65 72 20 73 6C 65 74 74 65 74 20 66 72 61 20 6B er slettet fra k
Size : 512 (Real : 512)
000000: 20 20 52 45 41 44 4C 4E 28 75 64 5E 2E 6E 61 76 READLN(ud^.nav
000010: 6E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 n);..
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000030: 20 20 66 6A 65 72 6E 28 74 6F 70 2C 20 75 64 29 fjern(top, ud)
000040: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E EN
000060: 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 D;..
000070: 20 20 20 20 27 55 27 2C 20 27 75 27 20 3A 20 75 'U', 'u' : u
000080: 64 73 6B 72 69 76 28 74 6F 70 29 3B 0D 0A 20 20 dskriv(top);..
000090: 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B END;
0000A0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 55 4E .. UN
0000B0: 54 49 4C 20 63 68 20 49 4E 20 28 2E 27 41 27 2C TIL ch IN (.'A',
0000C0: 20 27 61 27 2E 29 3B 0D 0A 20 20 20 20 20 20 20 'a'.);..
0000D0: 20 20 20 45 4E 44 2E 20 28 2A 20 6B 61 65 64 65 END. (* kaede
0000E0: 32 20 2A 29 0D 0A 1A 20 20 20 20 20 20 20 20 20 2 *)...
0000F0: 20 20 20 20 27 55 27 2C 20 27 75 27 20 3A 20 75 'U', 'u' : u
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: 7B 64 65 6E 27 29 0D 0A 20 20 20 20 20 20 20 20 {den')..
000010: 20 20 20 20 20 20 20 20 45 4C 53 45 20 57 52 49 ELSE WRI
000020: 54 45 4C 4E 28 67 6C 70 6F 73 74 5E 2E 6E 61 76 TELN(glpost^.nav
000030: 6E 2C 20 20 27 20 66 69 6E 64 65 73 20 69 6B 6B n, ' findes ikk
000040: 65 20 69 20 6B 7B 64 65 6E 27 29 3B 0D 0A 20 20 e i k{den');..
000050: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
000060: 45 28 27 54 61 73 74 20 3C 52 45 54 55 52 4E 3E E('Tast <RETURN>
000070: 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 : ');..
000080: 20 20 20 20 20 52 45 41 44 4C 4E 28 63 68 29 3B READLN(ch);
000090: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 45 4E .. EN
0000A0: 44 3B 20 28 2A 20 66 6A 65 72 6E 20 2A 29 0D 0A D; (* fjern *)..
0000B0: 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 ..
0000C0: 20 20 20 20 20 20 50 52 4F 43 45 44 55 52 45 20 PROCEDURE
0000D0: 75 64 73 6B 72 69 76 28 66 6F 65 72 73 74 65 20 udskriv(foerste
0000E0: 3A 20 6C 69 6E 6B 29 3B 0D 0A 20 20 20 20 20 20 : link);..
0000F0: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 ..
000100: 20 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 20 VAR..
000110: 20 20 20 20 20 70 70 20 3A 20 6C 69 6E 6B 3B 0D pp : link;.
000120: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 . c
000130: 68 20 3A 20 43 48 41 52 3B 0D 0A 20 20 20 20 20 h : CHAR;..
000140: 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 ..
000150: 20 20 20 20 20 20 20 42 45 47 49 4E 20 28 2A 20 BEGIN (*
000160: 75 64 73 6B 72 69 76 20 2A 29 0D 0A 20 20 20 20 udskriv *)..
000170: 20 20 20 20 20 20 20 20 20 20 70 70 20 3A 3D 20 pp :=
000180: 66 6F 65 72 73 74 65 3B 0D 0A 20 20 20 20 20 20 foerste;..
000190: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B WRITELN;
0001A0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0001B0: 57 52 49 54 45 4C 4E 28 27 4B 7B 64 65 6E 20 69 WRITELN('K{den i
0001C0: 6E 64 65 68 6F 6C 64 65 72 20 66 7C 6C 67 65 6E ndeholder f|lgen
0001D0: 64 65 20 70 65 72 73 6F 6E 65 72 3A 27 29 3B 0D de personer:');.
0001E0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 . W
0001F0: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 RITELN;..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
000010: 6B 61 65 64 65 33 3B 0D 0A 20 20 20 20 20 20 20 kaede3;..
000020: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 54 59 50 .. TYP
000030: 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 73 E.. s
000040: 74 72 34 30 20 3D 20 53 54 52 49 4E 47 28 2E 34 tr40 = STRING(.4
000050: 30 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0.);..
000060: 20 20 6C 69 6E 6B 20 3D 20 5E 20 70 6F 73 74 3B link = ^ post;
000070: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 70 6F .. po
000080: 73 74 20 3D 20 52 45 43 4F 52 44 0D 0A 20 20 20 st = RECORD..
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000A0: 20 20 6E 61 65 73 74 65 20 3A 20 6C 69 6E 6B 3B naeste : link;
0000B0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0000C0: 20 20 20 20 20 20 20 6E 61 76 6E 20 3A 20 73 74 navn : st
0000D0: 72 34 30 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 r40;..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 61 64 72 65 73 adres
0000F0: 73 65 20 3A 20 73 74 72 34 30 3B 0D 0A 20 20 20 se : str40;..
000100: 20 20 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: 0D 0A 20 20 20 20 20 20 20 20 20 20 56 41 52 0D .. VAR.
000130: 0A 20 20 20 20 20 20 20 20 20 20 20 20 75 64 2C . ud,
000140: 20 74 6F 70 2C 20 70 70 20 3A 20 6C 69 6E 6B 3B top, pp : link;
000150: 0D 0A 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 0D 0A 20 20 20 20 20 20 20 20 20 20 ..
000180: 50 52 4F 43 45 44 55 52 45 20 69 6E 64 73 61 65 PROCEDURE indsae
000190: 74 28 56 41 52 20 66 6F 65 72 73 74 65 20 3A 20 t(VAR foerste :
0001A0: 6C 69 6E 6B 3B 20 6E 79 70 6F 73 74 20 3A 20 6C link; nypost : l
0001B0: 69 6E 6B 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 ink);..
0001C0: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ..
0001D0: 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 20 20 VAR..
0001E0: 20 20 20 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A ch : CHAR;..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 ..
Size : 512 (Real : 512)
000000: 20 20 20 57 52 49 54 45 4C 4E 28 70 70 5E 2E 61 WRITELN(pp^.a
000010: 64 72 65 73 73 65 29 3B 0D 0A 20 20 20 20 20 20 dresse);..
000020: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
000030: 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ELN;..
000040: 20 20 20 20 20 20 20 20 70 70 20 3A 3D 20 70 70 pp := pp
000050: 5E 2E 6E 61 65 73 74 65 3B 0D 0A 20 20 20 20 20 ^.naeste;..
000060: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D END;.
000070: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 . W
000080: 52 49 54 45 28 27 54 61 73 74 20 3C 52 45 54 55 RITE('Tast <RETU
000090: 52 4E 3E 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 RN>: ');..
0000A0: 20 20 20 20 20 20 20 20 52 45 41 44 4C 4E 28 63 READLN(c
0000B0: 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 h);..
0000C0: 20 45 4E 44 3B 20 28 2A 20 75 64 73 6B 72 69 76 END; (* udskriv
0000D0: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 0D *).. .
0000E0: 0A 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E . BEGIN
0000F0: 20 28 2A 20 6B 61 65 64 65 33 20 2A 29 0D 0A 20 (* kaede3 *)..
000100: 20 20 20 20 20 20 20 20 20 20 20 74 6F 70 20 3A top :
000110: 3D 20 4E 49 4C 3B 0D 0A 20 20 20 20 20 20 20 20 = NIL;..
000120: 20 20 20 20 4E 45 57 28 75 64 29 3B 0D 0A 20 20 NEW(ud);..
000130: 20 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 REPEAT
000140: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000150: 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A WRITE(CLRHOM);..
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4F GO
000170: 54 4F 58 59 28 31 30 2C 34 29 3B 20 57 52 49 54 TOXY(10,4); WRIT
000180: 45 28 27 53 4F 52 54 45 52 45 54 20 4B 5B 44 45 E('SORTERET K[DE
000190: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ');..
0001A0: 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 37 29 3B GOTOXY(10,7);
0001B0: 20 57 52 49 54 45 28 27 49 2E 20 49 6E 64 73 7B WRITE('I. Inds{
0001C0: 74 20 70 65 72 73 6F 6E 20 69 20 6B 7B 64 65 6E t person i k{den
0001D0: 2E 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 .');..
0001E0: 20 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 39 29 GOTOXY(10,9)
0001F0: 3B 20 57 52 49 54 45 28 27 46 2E 20 46 6A 65 72 ; WRITE('F. Fjer
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 20 BEGIN
000010: 28 2A 20 69 6E 64 73 61 65 74 20 2A 29 0D 0A 20 (* indsaet *)..
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 IF
000030: 66 6F 65 72 73 74 65 20 3D 20 4E 49 4C 20 28 2A foerste = NIL (*
000040: 20 6B 7B 64 65 6E 20 65 72 20 74 6F 6D 20 2A 29 k{den er tom *)
000050: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000060: 20 20 54 48 45 4E 20 66 6F 65 72 73 74 65 20 3A THEN foerste :
000070: 3D 20 6E 79 70 6F 73 74 0D 0A 20 20 20 20 20 20 = nypost..
000080: 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 20 ELSE IF
000090: 6E 79 70 6F 73 74 5E 2E 6E 61 76 6E 20 3C 20 66 nypost^.navn < f
0000A0: 6F 65 72 73 74 65 5E 2E 6E 61 76 6E 20 28 2A 20 oerste^.navn (*
0000B0: 66 7C 72 20 66 7C 72 73 74 65 20 70 6F 73 74 20 f|r f|rste post
0000C0: 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 *)..
0000D0: 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 THEN..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 BEGI
0000F0: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 N..
000100: 20 20 20 20 20 20 20 6E 79 70 6F 73 74 5E 2E 6E nypost^.n
000110: 61 65 73 74 65 20 3A 3D 66 6F 65 72 73 74 65 3B aeste :=foerste;
000120: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000130: 20 20 20 20 20 20 66 6F 65 72 73 74 65 20 3A 3D foerste :=
000140: 6E 79 70 6F 73 74 3B 0D 0A 20 20 20 20 20 20 20 nypost;..
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
000160: 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 TELN;..
000170: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
000180: 28 6E 79 70 6F 73 74 5E 2E 6E 61 76 6E 2C 20 27 (nypost^.navn, '
000190: 20 65 72 20 6E 75 20 69 6E 64 73 61 74 20 69 20 er nu indsat i
0001A0: 6B 7B 64 65 6E 2E 20 27 2C 0D 0A 20 20 20 20 20 k{den. ',..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001C0: 20 20 20 20 20 27 54 61 73 74 20 3C 52 45 54 55 'Tast <RETU
0001D0: 52 4E 3E 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 RN> ');..
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 REA
0001F0: 44 4C 4E 28 63 68 29 3B 0D 0A 20 20 20 20 20 20 DLN(ch);..
Size : 512 (Real : 512)
000000: 6E 65 20 70 65 72 73 6F 6E 20 66 72 61 20 6B 7B ne person fra k{
000010: 64 65 6E 2E 27 29 3B 0D 0A 20 20 20 20 20 20 20 den.');..
000020: 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 31 30 GOTOXY(10
000030: 2C 31 31 29 3B 20 57 52 49 54 45 28 27 55 2E 20 ,11); WRITE('U.
000040: 55 64 73 6B 72 69 76 65 20 6B 7B 64 65 6E 2E 27 Udskrive k{den.'
000050: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
000060: 20 20 47 4F 54 4F 58 59 28 31 30 2C 31 33 29 3B GOTOXY(10,13);
000070: 20 57 52 49 54 45 28 27 41 2E 20 41 66 73 6C 75 WRITE('A. Afslu
000080: 74 74 65 20 70 72 6F 67 72 61 6D 6D 65 74 2E 27 tte programmet.'
000090: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
0000A0: 20 20 47 4F 54 4F 58 59 28 31 30 2C 31 35 29 3B GOTOXY(10,15);
0000B0: 20 57 52 49 54 45 28 27 54 61 73 74 20 6B 6F 6D WRITE('Tast kom
0000C0: 6D 61 6E 64 6F 3A 20 27 29 3B 0D 0A 20 20 20 20 mando: ');..
0000D0: 20 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 REPEAT
0000E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0000F0: 20 20 52 45 41 44 28 4B 42 44 2C 20 63 68 29 3B READ(KBD, ch);
000100: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000110: 55 4E 54 49 4C 20 63 68 20 49 4E 20 28 2E 27 49 UNTIL ch IN (.'I
000120: 27 2C 20 27 69 27 2C 20 27 46 27 2C 20 27 66 27 ', 'i', 'F', 'f'
000130: 2C 20 27 55 27 2C 20 27 75 27 2C 20 27 41 27 2C , 'U', 'u', 'A',
000140: 20 27 61 27 2E 29 3B 0D 0A 20 20 20 20 20 20 20 'a'.);..
000150: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 63 WRITELN(c
000160: 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 h);..
000170: 20 20 20 43 41 53 45 20 63 68 20 4F 46 0D 0A 20 CASE ch OF..
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 '
000190: 49 27 2C 20 27 69 27 20 3A 20 42 45 47 49 4E 0D I', 'i' : BEGIN.
0001A0: 0A 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 4E 45 NE
0001C0: 57 28 70 70 29 3B 0D 0A 20 20 20 20 20 20 20 20 W(pp);..
0001D0: 20 20 20 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: 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 0D END.
000010: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 . E
000020: 4C 53 45 20 28 2A 20 66 69 6E 64 20 72 69 67 74 LSE (* find rigt
000030: 69 67 20 70 6C 61 64 73 20 74 69 6C 20 6E 79 70 ig plads til nyp
000040: 6F 73 74 20 76 69 61 20 72 65 6B 75 72 73 69 76 ost via rekursiv
000050: 74 20 6B 61 6C 64 20 2A 29 0D 0A 20 20 20 20 20 t kald *)..
000060: 20 20 20 20 20 20 20 20 20 20 20 69 6E 64 73 61 indsa
000070: 65 74 28 66 6F 65 72 73 74 65 5E 2E 6E 61 65 73 et(foerste^.naes
000080: 74 65 2C 20 6E 79 70 6F 73 74 29 3B 0D 0A 20 20 te, nypost);..
000090: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 20 28 END; (
0000A0: 2A 20 69 6E 64 73 61 65 74 20 2A 29 0D 0A 20 20 * indsaet *)..
0000B0: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 ..
0000C0: 20 20 20 20 50 52 4F 43 45 44 55 52 45 20 66 6A PROCEDURE fj
0000D0: 65 72 6E 28 56 41 52 20 66 6F 65 72 73 74 65 20 ern(VAR foerste
0000E0: 3A 20 6C 69 6E 6B 3B 20 67 6C 70 6F 73 74 20 3A : link; glpost :
0000F0: 20 6C 69 6E 6B 29 3B 0D 0A 20 20 20 20 20 20 20 link);..
000100: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 ..
000110: 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 VAR..
000120: 20 20 20 20 20 20 63 68 20 3A 20 43 48 41 52 3B ch : CHAR;
000130: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000140: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 45 .. BE
000150: 47 49 4E 20 28 2A 20 66 6A 65 72 6E 20 2A 29 0D GIN (* fjern *).
000160: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 . I
000170: 46 20 66 6F 65 72 73 74 65 20 3D 20 4E 49 4C 20 F foerste = NIL
000180: 28 2A 20 6B 7B 64 65 6E 20 74 6F 6D 20 2A 29 0D (* k{den tom *).
000190: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0001A0: 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 THEN..
0001B0: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A BEGIN..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001D0: 20 20 20 20 57 52 49 54 45 4C 4E 28 67 6C 70 6F WRITELN(glpo
0001E0: 73 74 5E 2E 6E 61 76 6E 2C 20 27 20 66 69 6E 64 st^.navn, ' find
0001F0: 65 73 20 69 6B 6B 65 20 69 20 6B 7B 64 65 6E 27 es ikke i k{den'
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
000010: 45 28 27 4E 61 76 6E 3A 20 27 29 3B 20 52 45 41 E('Navn: '); REA
000020: 44 4C 4E 28 70 70 5E 2E 6E 61 76 6E 29 3B 0D 0A DLN(pp^.navn);..
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
000050: 54 45 28 27 41 64 72 65 73 73 65 3A 20 27 29 3B TE('Adresse: ');
000060: 20 52 45 41 44 4C 4E 28 70 70 5E 2E 61 64 72 65 READLN(pp^.adre
000070: 73 73 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 sse);..
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000090: 20 20 20 20 70 70 5E 2E 6E 61 65 73 74 65 20 3A pp^.naeste :
0000A0: 3D 20 4E 49 4C 3B 0D 0A 20 20 20 20 20 20 20 20 = NIL;..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 20 20 20 20 69 6E 64 73 61 65 74 28 74 6F 70 indsaet(top
0000D0: 2C 20 70 70 29 3B 0D 0A 20 20 20 20 20 20 20 20 , pp);..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 END;..
000100: 20 20 20 20 20 20 20 20 20 27 46 27 2C 20 27 66 'F', 'f
000110: 27 20 3A 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 ' : 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 57 52 49 54 45 4C 4E 3B WRITELN;
000140: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 W
000160: 52 49 54 45 28 27 48 76 65 6D 20 73 6B 61 6C 20 RITE('Hvem skal
000170: 66 6A 65 72 6E 65 73 3A 20 27 29 3B 0D 0A 20 20 fjernes: ');..
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000190: 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 4C READL
0001A0: 4E 28 75 64 5E 2E 6E 61 76 6E 29 3B 0D 0A 20 20 N(ud^.navn);..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001C0: 20 20 20 20 20 20 20 20 20 20 20 66 6A 65 72 6E fjern
0001D0: 28 74 6F 70 2C 20 75 64 29 3B 0D 0A 20 20 20 20 (top, ud);..
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001F0: 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 END;..
Size : 512 (Real : 512)
000000: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
000010: 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 54 WRITE('T
000020: 61 73 74 20 3C 52 45 54 55 52 4E 3E 20 27 29 3B ast <RETURN> ');
000030: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000040: 20 20 20 20 20 20 52 45 41 44 4C 4E 28 63 68 29 READLN(ch)
000050: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
000060: 20 20 20 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 END..
000070: 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 20 ELSE IF
000080: 66 6F 65 72 73 74 65 5E 2E 6E 61 76 6E 20 3D 20 foerste^.navn =
000090: 67 6C 70 6F 73 74 5E 2E 6E 61 76 6E 20 28 2A 20 glpost^.navn (*
0000A0: 66 6A 65 72 6E 20 70 6F 73 74 20 31 20 2A 29 0D fjern post 1 *).
0000B0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0000C0: 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 THEN..
0000D0: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A BEGIN..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 20 66 6F 65 72 73 74 65 20 3A 3D 20 66 foerste := f
000100: 6F 65 72 73 74 65 5E 2E 6E 61 65 73 74 65 3B 0D oerste^.naeste;.
000110: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000120: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 67 6C 70 WRITELN(glp
000130: 6F 73 74 5E 2E 6E 61 76 6E 2C 20 27 20 65 72 20 ost^.navn, ' er
000140: 73 6C 65 74 74 65 74 20 66 72 61 20 6B 7B 64 65 slettet fra k{de
000150: 6E 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 n');..
000160: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 WRITE(
000170: 27 54 61 73 74 20 3C 52 45 54 55 52 4E 3E 20 27 'Tast <RETURN> '
000180: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
000190: 20 20 20 20 20 20 20 20 52 45 41 44 4C 4E 28 63 READLN(c
0001A0: 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 h);..
0001B0: 20 20 20 20 20 20 20 45 4E 44 0D 0A 20 20 20 20 END..
0001C0: 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 28 ELSE (
0001D0: 2A 20 53 7C 67 20 65 66 74 65 72 20 6E 61 76 6E * S|g efter navn
0001E0: 65 74 20 76 69 61 20 72 65 6B 75 72 73 69 76 74 et via rekursivt
0001F0: 20 6B 61 6C 64 20 2A 29 0D 0A 20 20 20 20 20 20 kald *)..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 27 55 27 'U'
000010: 2C 20 27 75 27 20 3A 20 75 64 73 6B 72 69 76 28 , 'u' : udskriv(
000020: 74 6F 70 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 top);..
000030: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
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 41 27 2C 20 27 61 27 2E 29 3B IN (.'A', 'a'.);
000060: 0D 0A 20 20 20 20 20 20 20 20 20 20 45 4E 44 2E .. END.
000070: 20 28 2A 20 6B 61 65 64 65 33 20 2A 29 0D 0A 1A (* kaede3 *)...
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 20 20 66 6A 65 72 6E 28 fjern(
000010: 66 6F 65 72 73 74 65 5E 2E 6E 61 65 73 74 65 2C foerste^.naeste,
000020: 20 67 6C 70 6F 73 74 29 3B 0D 0A 20 20 20 20 20 glpost);..
000030: 20 20 20 20 20 20 20 45 4E 44 3B 20 28 2A 20 66 END; (* f
000040: 6A 65 72 6E 20 2A 29 0D 0A 20 20 20 20 20 20 20 jern *)..
000050: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 50 .. P
000060: 52 4F 43 45 44 55 52 45 20 75 64 73 6B 72 69 76 ROCEDURE udskriv
000070: 28 66 6F 65 72 73 74 65 20 3A 20 6C 69 6E 6B 29 (foerste : link)
000080: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 ;.. ..
000090: 20 20 20 20 20 20 20 20 20 20 20 56 41 52 0D 0A VAR..
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 70 pp
0000B0: 20 3A 20 6C 69 6E 6B 3B 0D 0A 20 20 20 20 20 20 : link;..
0000C0: 20 20 20 20 20 20 20 20 63 68 20 3A 20 43 48 41 ch : CHA
0000D0: 52 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 R;..
0000E0: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ..
0000F0: 42 45 47 49 4E 20 28 2A 20 75 64 73 6B 72 69 76 BEGIN (* udskriv
000100: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 *)..
000110: 20 20 20 70 70 20 3A 3D 20 66 6F 65 72 73 74 65 pp := foerste
000120: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
000130: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 WRITELN;..
000140: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
000150: 28 27 4B 7B 64 65 6E 20 69 6E 64 65 68 6F 6C 64 ('K{den indehold
000160: 65 72 20 66 7C 6C 67 65 6E 64 65 20 70 65 72 73 er f|lgende pers
000170: 6F 6E 65 72 3A 27 29 3B 0D 0A 20 20 20 20 20 20 oner:');..
000180: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B WRITELN;
000190: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0001A0: 57 48 49 4C 45 20 70 70 20 3C 3E 20 4E 49 4C 20 WHILE pp <> NIL
0001B0: 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 DO..
0001C0: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
0001E0: 54 45 4C 4E 28 70 70 5E 2E 6E 61 76 6E 29 3B 0D TELN(pp^.navn);.
0001F0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
Size : 512 (Real : 512)
000000: C4 21 C0 5A 06 24 3A 6B 98 4F CD B3 78 3D 21 53 .!.Z.$:k.O..x=!S
000010: 68 06 00 4F 09 09 7E 32 A9 98 23 7E 32 AA 98 C9 h..O..~2..#~2...
000020: FF 0F FD 3F 3F FF BF 3F 7F BF FF BF BF 3F 3F FF ...??..?.....??.
000030: BF FF FF 7F 7F FF BF BF 7F 3F BF FF 03 FD BF FF .........?......
000040: 03 FD 7F FF BF BF 3F 3F BF FF 03 FD BF FF 03 FD ......??........
000050: 7F FF BF 05 FD FF 03 FD BF FF 03 FD 7F FF BF BF ................
000060: FF BF BF 3F 7F FF BF FF 03 FD 7F FF BF BF FF BF ...?............
000070: BF FF 03 FD BF FF 03 FD 7F FF BF BF FF BF BF FF ................
000080: 03 FD BF FF 03 FD 7F FF BF BF FF BF BF FF 03 FD ................
000090: BF FF FF 7F 7F FF BF BF FF BF BF FF 04 FD 3F 3F ..............??
0000A0: FF BF 3F 7F BF FF BF BF 3F 3F FF 0F FD 22 01 04 ..?.....??..."..
0000B0: 04 D9 64 26 01 03 04 E9 64 29 01 06 04 F5 64 2F ..d&....d)....d/
0000C0: 01 03 04 0D 65 32 01 08 04 19 65 3A 01 04 04 39 ....e2....e:...9
0000D0: 65 22 0B 04 0D 49 65 26 0B 03 0D 7D 65 29 0B 06 e"...Ie&...}e)..
0000E0: 0D A4 65 2F 0B 03 0D F2 65 32 0B 08 0D 19 66 3A ..e/....e2....f:
0000F0: 0B 04 0D 81 66 21 63 98 11 D5 98 06 04 7E 12 23 ....f!c......~.#
000100: 13 10 FA CD DE 4B CD F2 9D 32 D2 98 FE 07 28 45 .....K...2....(E
000110: FE 0B 28 41 FE 02 28 4B FE 03 28 47 FE 0C 28 43 ..(A..(K..(G..(C
000120: 21 4F 9C CD EB 9E CD EE 98 CD 02 9E CD E1 4D 3A !O............M:
000130: 62 98 FE 0C 28 3B CD DE 4B CD F2 9D 47 3A D2 98 b...(;..K...G:..
000140: B8 28 12 78 FE 07 28 1B 06 05 CD D6 4D CD E1 4D .(.x..(.....M..M
000150: CD EE 98 18 E1 CD 29 9F 06 05 CD D6 4D CD EE 98 ......).....M...
000160: C3 BF 4C CD 68 9F 06 05 CD D6 4D CD EE 98 C3 BF ..L.h.....M.....
000170: 4C CD 6A 9E CD 88 77 CD 7B 9A CD 92 9E CD BA 9E L.j...w.{.......
000180: 3E 00 32 D4 98 CD DE 4B CD EE 98 CD F2 9D 32 DE >.2....K......2.
000190: 98 18 59 FE 07 20 22 21 D4 98 7E E6 01 FE 01 28 ..Y.. "!..~....(
0001A0: 03 CD 68 9F 21 D4 98 7E E6 02 FE 02 28 03 CD BE ..h.!..~....(...
0001B0: 9F 06 05 CD D6 4D C3 BF 4C 21 D4 98 7E FE 03 28 .....M..L!..~..(
0001C0: F0 CD EE 98 06 05 CD D6 4D CD E1 4D CD DE 4B CD ........M..M..K.
0001D0: F2 9D 47 3A D2 98 B8 20 05 CD 8E 9D 18 DB 3A DE ..G:... ......:.
0001E0: 98 B8 20 05 CD 9F 9D 18 D0 78 18 A7 3A DE 98 FE .. ......x..:...
0001F0: 02 28 3F FE 03 28 3B FE 0C 28 37 FE 0B 28 48 FE .(?..(;..(7..(H.
Size : 512 (Real : 512)
000000: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000010: 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 THEN..
000020: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A BEGIN..
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 67 6C 70 6F 73 74 WRITE(glpost
000050: 5E 2E 6E 61 76 6E 2C 20 27 20 66 69 6E 64 65 73 ^.navn, ' findes
000060: 20 69 6B 6B 65 20 69 20 6B 7B 64 65 6E 27 2C 0D ikke i k{den',.
000070: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 27 20 54 ' T
000090: 61 73 74 20 3C 52 45 54 55 52 4E 3E 3A 20 27 29 ast <RETURN>: ')
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 52 45 41 44 4C 4E 28 63 68 READLN(ch
0000C0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
0000D0: 20 20 20 20 20 20 45 4E 44 0D 0A 20 20 20 20 20 END..
0000E0: 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 ELSE IF
0000F0: 20 66 6F 65 72 73 74 65 5E 2E 6E 61 76 6E 20 3D foerste^.navn =
000100: 20 67 6C 70 6F 73 74 5E 2E 6E 61 76 6E 20 28 2A glpost^.navn (*
000110: 20 66 6A 65 72 6E 20 70 6F 73 74 20 31 20 2A 29 fjern post 1 *)
000120: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000130: 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 THEN..
000140: 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D BEGIN.
000150: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000160: 20 20 20 20 20 75 64 20 3A 3D 20 66 6F 65 72 73 ud := foers
000170: 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 te;..
000180: 20 20 20 20 20 20 20 20 20 66 6F 65 72 73 74 65 foerste
000190: 20 3A 3D 20 66 6F 65 72 73 74 65 5E 2E 6E 61 65 := foerste^.nae
0001A0: 73 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ste;..
0001B0: 20 20 20 20 20 20 20 20 20 20 66 72 69 67 6F 65 frigoe
0001C0: 72 28 75 64 29 3B 0D 0A 20 20 20 20 20 20 20 20 r(ud);..
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
0001E0: 45 28 67 6C 70 6F 73 74 5E 2E 6E 61 76 6E 2C 20 E(glpost^.navn,
0001F0: 27 20 65 72 20 6E 75 20 73 6C 65 74 74 65 74 20 ' er nu slettet
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
000010: 6B 61 65 64 65 34 3B 0D 0A 20 20 20 20 20 20 20 kaede4;..
000020: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 54 59 50 .. TYP
000030: 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 73 E.. s
000040: 74 72 34 30 20 3D 20 53 54 52 49 4E 47 28 2E 34 tr40 = STRING(.4
000050: 30 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0.);..
000060: 20 20 6C 69 6E 6B 20 3D 20 5E 20 70 6F 73 74 3B link = ^ post;
000070: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 70 6F .. po
000080: 73 74 20 3D 20 52 45 43 4F 52 44 0D 0A 20 20 20 st = RECORD..
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000A0: 20 20 6E 61 65 73 74 65 20 3A 20 6C 69 6E 6B 3B naeste : link;
0000B0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0000C0: 20 20 20 20 20 20 20 6E 61 76 6E 20 3A 20 73 74 navn : st
0000D0: 72 34 30 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 r40;..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 61 64 72 65 73 adres
0000F0: 73 65 20 3A 20 73 74 72 34 30 3B 0D 0A 20 20 20 se : str40;..
000100: 20 20 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: 0D 0A 20 20 20 20 20 20 20 20 20 20 56 41 52 0D .. VAR.
000130: 0A 20 20 20 20 20 20 20 20 20 20 20 20 75 64 2C . ud,
000140: 20 74 6F 70 2C 20 70 70 2C 20 66 72 69 6C 69 73 top, pp, frilis
000150: 74 65 20 3A 20 6C 69 6E 6B 3B 0D 0A 20 20 20 20 te : link;..
000160: 20 20 20 20 20 20 20 20 63 68 20 3A 20 43 48 41 ch : CHA
000170: 52 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A R;.. ..
000180: 20 20 20 20 20 20 20 20 20 20 50 52 4F 43 45 44 PROCED
000190: 55 52 45 20 66 72 69 67 6F 65 72 28 70 70 20 3A URE frigoer(pp :
0001A0: 20 6C 69 6E 6B 29 3B 0D 0A 20 20 20 20 20 20 20 link);..
0001B0: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ..
0001C0: 20 42 45 47 49 4E 20 28 2A 20 66 72 69 67 6F 65 BEGIN (* frigoe
0001D0: 72 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 r *)..
0001E0: 20 20 20 20 70 70 5E 2E 6E 61 65 73 74 65 20 3A pp^.naeste :
0001F0: 3D 20 66 72 69 6C 69 73 74 65 3B 0D 0A 20 20 20 = friliste;..
Size : 512 (Real : 512)
000000: 66 72 61 20 6B 7B 64 65 6E 2E 20 27 2C 0D 0A 20 fra k{den. ',..
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 27 54 61 73 74 'Tast
000030: 20 3C 52 45 54 55 52 4E 3E 3A 20 27 29 3B 0D 0A <RETURN>: ');..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 20 20 20 20 52 45 41 44 4C 4E 28 63 68 29 3B 0D READLN(ch);.
000060: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000070: 20 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 20 20 END..
000080: 20 20 20 20 20 20 45 4C 53 45 20 28 2A 20 53 7C ELSE (* S|
000090: 67 20 65 66 74 65 72 20 6E 61 76 6E 65 74 20 76 g efter navnet v
0000A0: 69 61 20 72 65 6B 75 72 73 69 76 74 20 6B 61 6C ia rekursivt kal
0000B0: 64 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 d *)..
0000C0: 20 20 20 20 20 20 66 6A 65 72 6E 28 66 6F 65 72 fjern(foer
0000D0: 73 74 65 5E 2E 6E 61 65 73 74 65 2C 20 67 6C 70 ste^.naeste, glp
0000E0: 6F 73 74 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 ost);..
0000F0: 20 20 20 45 4E 44 3B 20 28 2A 20 66 6A 65 72 6E END; (* fjern
000100: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 0D *).. .
000110: 0A 20 20 20 20 20 20 20 20 20 20 50 52 4F 43 45 . PROCE
000120: 44 55 52 45 20 75 64 73 6B 72 69 76 28 66 6F 65 DURE udskriv(foe
000130: 72 73 74 65 20 3A 20 6C 69 6E 6B 29 3B 0D 0A 20 rste : link);..
000140: 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 ..
000150: 20 20 20 20 20 20 20 56 41 52 0D 0A 20 20 20 20 VAR..
000160: 20 20 20 20 20 20 20 20 20 20 70 70 20 3A 20 6C pp : l
000170: 69 6E 6B 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ink;..
000180: 20 20 20 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A ch : CHAR;..
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A ..
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 BEGI
0001B0: 4E 20 28 2A 20 75 64 73 6B 72 69 76 20 2A 29 0D N (* udskriv *).
0001C0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 . p
0001D0: 70 20 3A 3D 20 66 6F 65 72 73 74 65 3B 0D 0A 20 p := foerste;..
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
0001F0: 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 TELN;..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 66 72 69 6C 69 frili
000010: 73 74 65 20 3A 3D 20 70 70 3B 0D 0A 20 20 20 20 ste := pp;..
000020: 20 20 20 20 20 20 20 20 45 4E 44 3B 20 28 2A 20 END; (*
000030: 66 72 69 67 6F 65 72 20 2A 29 0D 0A 20 20 20 20 frigoer *)..
000040: 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 ..
000050: 20 20 50 52 4F 43 45 44 55 52 45 20 6F 70 72 65 PROCEDURE opre
000060: 74 28 56 41 52 20 70 70 20 3A 20 6C 69 6E 6B 29 t(VAR pp : link)
000070: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 ;.. ..
000080: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E BEGIN
000090: 20 28 2A 20 6F 70 72 65 74 20 2A 29 0D 0A 20 20 (* opret *)..
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 66 IF f
0000B0: 72 69 6C 69 73 74 65 20 3D 20 4E 49 4C 0D 0A 20 riliste = NIL..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 T
0000D0: 48 45 4E 20 4E 45 57 28 70 70 29 0D 0A 20 20 20 HEN NEW(pp)..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 ELS
0000F0: 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 E..
000100: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000120: 70 70 20 3A 3D 20 66 72 69 6C 69 73 74 65 3B 0D pp := friliste;.
000130: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000140: 20 20 20 20 20 66 72 69 6C 69 73 74 65 20 3A 3D friliste :=
000150: 20 66 72 69 6C 69 73 74 65 5E 2E 6E 61 65 73 74 friliste^.naest
000160: 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 e;..
000170: 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 END;..
000180: 20 20 20 20 20 20 20 20 20 20 70 70 5E 2E 6E 61 pp^.na
000190: 65 73 74 65 20 3A 3D 20 4E 49 4C 3B 0D 0A 20 20 este := NIL;..
0001A0: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 20 28 END; (
0001B0: 2A 20 6F 70 72 65 74 20 2A 29 0D 0A 20 20 20 20 * opret *)..
0001C0: 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 ..
0001D0: 20 20 50 52 4F 43 45 44 55 52 45 20 69 6E 64 73 PROCEDURE inds
0001E0: 61 65 74 28 56 41 52 20 66 6F 65 72 73 74 65 20 aet(VAR foerste
0001F0: 3A 20 6C 69 6E 6B 3B 20 6E 79 70 6F 73 74 20 3A : link; nypost :
Size : 512 (Real : 512)
000000: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4B 7B WRITELN('K{
000010: 64 65 6E 20 69 6E 64 65 68 6F 6C 64 65 72 20 66 den indeholder f
000020: 7C 6C 67 65 6E 64 65 20 70 65 72 73 6F 6E 65 72 |lgende personer
000030: 3A 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 :');..
000040: 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 WRITELN;..
000050: 20 20 20 20 20 20 20 20 20 20 20 20 57 48 49 4C WHIL
000060: 45 20 70 70 20 3C 3E 20 4E 49 4C 20 44 4F 0D 0A E pp <> NIL DO..
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 BEGIN..
000090: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
0000A0: 28 70 70 5E 2E 6E 61 76 6E 29 3B 0D 0A 20 20 20 (pp^.navn);..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 W
0000C0: 52 49 54 45 4C 4E 28 70 70 5E 2E 61 64 72 65 73 RITELN(pp^.adres
0000D0: 73 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 se);..
0000E0: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B WRITELN;
0000F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000100: 20 20 20 20 70 70 20 3A 3D 20 70 70 5E 2E 6E 61 pp := pp^.na
000110: 65 73 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 este;..
000120: 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 END;..
000130: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
000140: 28 27 54 61 73 74 20 3C 52 45 54 55 52 4E 3E 3A ('Tast <RETURN>:
000150: 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ');..
000160: 20 20 20 20 52 45 41 44 4C 4E 28 63 68 29 3B 0D READLN(ch);.
000170: 0A 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 . END
000180: 3B 20 28 2A 20 75 64 73 6B 72 69 76 20 2A 29 0D ; (* udskriv *).
000190: 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 . ..
0001A0: 20 20 20 20 20 20 20 42 45 47 49 4E 20 28 2A 20 BEGIN (*
0001B0: 6B 61 65 64 65 34 20 2A 29 0D 0A 20 20 20 20 20 kaede4 *)..
0001C0: 20 20 20 20 20 20 20 74 6F 70 20 3A 3D 20 4E 49 top := NI
0001D0: 4C 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 L;..
0001E0: 66 72 69 6C 69 73 74 65 20 3A 3D 20 4E 49 4C 3B friliste := NIL;
0001F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 4E 45 .. NE
Size : 512 (Real : 512)
000000: 20 6C 69 6E 6B 29 3B 0D 0A 20 20 20 20 20 20 20 link);..
000010: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 ..
000020: 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 VAR..
000030: 20 20 20 20 20 20 63 68 20 3A 20 43 48 41 52 3B ch : CHAR;
000040: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A .. ..
000050: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 BEGI
000060: 4E 20 28 2A 20 69 6E 64 73 61 65 74 20 2A 29 0D N (* indsaet *).
000070: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 . I
000080: 46 20 66 6F 65 72 73 74 65 20 3D 20 4E 49 4C 20 F foerste = NIL
000090: 28 2A 20 6B 7B 64 65 6E 20 65 72 20 74 6F 6D 20 (* k{den er tom
0000A0: 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 *)..
0000B0: 20 20 20 20 54 48 45 4E 20 66 6F 65 72 73 74 65 THEN foerste
0000C0: 20 3A 3D 20 6E 79 70 6F 73 74 0D 0A 20 20 20 20 := nypost..
0000D0: 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 ELSE I
0000E0: 46 20 6E 79 70 6F 73 74 5E 2E 6E 61 76 6E 20 3C F nypost^.navn <
0000F0: 20 66 6F 65 72 73 74 65 5E 2E 6E 61 76 6E 20 28 foerste^.navn (
000100: 2A 20 66 7C 72 20 66 7C 72 73 74 65 20 70 6F 73 * f|r f|rste pos
000110: 74 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 t *)..
000120: 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 THEN..
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 BE
000140: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
000150: 20 20 20 20 20 20 20 20 20 6E 79 70 6F 73 74 5E nypost^
000160: 2E 6E 61 65 73 74 65 20 3A 3D 66 6F 65 72 73 74 .naeste :=foerst
000170: 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 e;..
000180: 20 20 20 20 20 20 20 20 66 6F 65 72 73 74 65 20 foerste
000190: 3A 3D 6E 79 70 6F 73 74 3B 0D 0A 20 20 20 20 20 :=nypost;..
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 W
0001B0: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 RITELN;..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
0001D0: 54 45 28 6E 79 70 6F 73 74 5E 2E 6E 61 76 6E 2C TE(nypost^.navn,
0001E0: 20 27 20 65 72 20 6E 75 20 69 6E 64 73 61 74 20 ' er nu indsat
0001F0: 69 20 6B 7B 64 65 6E 2E 20 27 2C 0D 0A 20 20 20 i k{den. ',..
Size : 512 (Real : 512)
000000: 57 28 75 64 29 3B 0D 0A 20 20 20 20 20 20 20 20 W(ud);..
000010: 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 REPEAT..
000020: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 WRITE(
000030: 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 20 20 CLRHOM);..
000040: 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 31 GOTOXY(1
000050: 30 2C 34 29 3B 20 57 52 49 54 45 28 27 53 4F 52 0,4); WRITE('SOR
000060: 54 45 52 45 54 20 4B 5B 44 45 27 29 3B 0D 0A 20 TERET K[DE');..
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 GOT
000080: 4F 58 59 28 31 30 2C 37 29 3B 20 57 52 49 54 45 OXY(10,7); WRITE
000090: 28 27 49 2E 20 49 6E 64 73 7B 74 20 70 65 72 73 ('I. Inds{t pers
0000A0: 6F 6E 20 69 20 6B 7B 64 65 6E 2E 27 29 3B 0D 0A on i k{den.');..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4F GO
0000C0: 54 4F 58 59 28 31 30 2C 39 29 3B 20 57 52 49 54 TOXY(10,9); WRIT
0000D0: 45 28 27 46 2E 20 46 6A 65 72 6E 65 20 70 65 72 E('F. Fjerne per
0000E0: 73 6F 6E 20 66 72 61 20 6B 7B 64 65 6E 2E 27 29 son fra k{den.')
0000F0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
000100: 20 47 4F 54 4F 58 59 28 31 30 2C 31 31 29 3B 20 GOTOXY(10,11);
000110: 57 52 49 54 45 28 27 55 2E 20 55 64 73 6B 72 69 WRITE('U. Udskri
000120: 76 65 20 6B 7B 64 65 6E 2E 27 29 3B 0D 0A 20 20 ve k{den.');..
000130: 20 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F GOTO
000140: 58 59 28 31 30 2C 31 33 29 3B 20 57 52 49 54 45 XY(10,13); WRITE
000150: 28 27 41 2E 20 41 66 73 6C 75 74 74 65 20 70 72 ('A. Afslutte pr
000160: 6F 67 72 61 6D 6D 65 74 2E 27 29 3B 0D 0A 20 20 ogrammet.');..
000170: 20 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F GOTO
000180: 58 59 28 31 30 2C 31 35 29 3B 20 57 52 49 54 45 XY(10,15); WRITE
000190: 28 27 4C 2E 20 4C 65 64 69 67 20 6C 61 67 65 72 ('L. Ledig lager
0001A0: 70 6C 61 64 73 2E 27 29 3B 0D 0A 20 20 20 20 20 plads.');..
0001B0: 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 GOTOXY(
0001C0: 31 30 2C 31 37 29 3B 20 57 52 49 54 45 28 27 54 10,17); WRITE('T
0001D0: 61 73 74 20 6B 6F 6D 6D 61 6E 64 6F 3A 20 27 29 ast kommando: ')
0001E0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
0001F0: 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 REPEAT..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 20 20 20 20 20 20 27 54 61 73 74 20 3C 52 45 'Tast <RE
000020: 54 55 52 4E 3E 3A 20 27 29 3B 0D 0A 20 20 20 20 TURN>: ');..
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000040: 52 45 41 44 4C 4E 28 63 68 29 3B 0D 0A 20 20 20 READLN(ch);..
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E EN
000060: 44 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 D..
000070: 20 45 4C 53 45 20 28 2A 20 66 69 6E 64 20 72 69 ELSE (* find ri
000080: 67 74 69 67 20 70 6C 61 64 73 20 74 69 6C 20 6E gtig plads til n
000090: 79 70 6F 73 74 20 76 69 61 20 72 65 6B 75 72 73 ypost via rekurs
0000A0: 69 76 74 20 6B 61 6C 64 20 2A 29 0D 0A 20 20 20 ivt kald *)..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6E 64 ind
0000C0: 73 61 65 74 28 66 6F 65 72 73 74 65 5E 2E 6E 61 saet(foerste^.na
0000D0: 65 73 74 65 2C 20 6E 79 70 6F 73 74 29 3B 0D 0A este, nypost);..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B END;
0000F0: 20 28 2A 20 69 6E 64 73 61 65 74 20 2A 29 0D 0A (* indsaet *)..
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: 66 6A 65 72 6E 28 56 41 52 20 66 6F 65 72 73 74 fjern(VAR foerst
000130: 65 20 3A 20 6C 69 6E 6B 3B 20 56 41 52 20 67 6C e : link; VAR gl
000140: 70 6F 73 74 20 3A 20 6C 69 6E 6B 29 3B 0D 0A 20 post : link);..
000150: 20 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 ..
000160: 20 20 20 20 20 20 20 20 20 56 41 52 0D 0A 20 20 VAR..
000170: 20 20 20 20 20 20 20 20 20 20 20 20 63 68 20 3A ch :
000180: 20 43 48 41 52 3B 0D 0A 20 20 20 20 20 20 20 20 CHAR;..
000190: 20 20 20 20 20 20 75 64 20 3A 20 6C 69 6E 6B 3B ud : link;
0001A0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0001B0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 45 .. BE
0001C0: 47 49 4E 20 28 2A 20 66 6A 65 72 6E 20 2A 29 0D GIN (* fjern *).
0001D0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 . I
0001E0: 46 20 66 6F 65 72 73 74 65 20 3D 20 4E 49 4C 20 F foerste = NIL
0001F0: 28 2A 20 6B 7B 64 65 6E 20 74 6F 6D 20 2A 29 0D (* k{den tom *).
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 52 45 41 44 28 4B 42 READ(KB
000010: 44 2C 20 63 68 29 3B 0D 0A 20 20 20 20 20 20 20 D, ch);..
000020: 20 20 20 20 20 20 20 55 4E 54 49 4C 20 63 68 20 UNTIL ch
000030: 49 4E 20 28 2E 27 49 27 2C 20 27 69 27 2C 20 27 IN (.'I', 'i', '
000040: 46 27 2C 20 27 66 27 2C 20 27 55 27 2C 20 27 75 F', 'f', 'U', 'u
000050: 27 2C 20 27 41 27 2C 20 27 61 27 2C 0D 0A 20 20 ', 'A', 'a',..
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 20 20 20 20 20 20 20 20 20 27 4C 27 2C 20 27 'L', '
000080: 6C 27 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 l'.);..
000090: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 63 68 29 WRITELN(ch)
0000A0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
0000B0: 20 43 41 53 45 20 63 68 20 4F 46 0D 0A 20 20 20 CASE ch OF..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 27 49 27 'I'
0000D0: 2C 20 27 69 27 20 3A 20 42 45 47 49 4E 0D 0A 20 , 'i' : 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 20 20 20 20 6F 70 72 65 opre
000100: 74 28 70 70 29 3B 0D 0A 20 20 20 20 20 20 20 20 t(pp);..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000120: 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 WRITELN;..
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 57 52 49 54 WRIT
000150: 45 28 27 4E 61 76 6E 3A 20 27 29 3B 20 52 45 41 E('Navn: '); REA
000160: 44 4C 4E 28 70 70 5E 2E 6E 61 76 6E 29 3B 0D 0A DLN(pp^.navn);..
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
000190: 54 45 28 27 41 64 72 65 73 73 65 3A 20 27 29 3B TE('Adresse: ');
0001A0: 20 52 45 41 44 4C 4E 28 70 70 5E 2E 61 64 72 65 READLN(pp^.adre
0001B0: 73 73 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 sse);..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001D0: 20 20 20 20 69 6E 64 73 61 65 74 28 74 6F 70 2C indsaet(top,
0001E0: 20 70 70 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 pp);..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
Size : 512 (Real : 512)
000000: 6B 6F 64 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 kode;..
000010: 20 20 20 20 20 20 20 55 4E 54 49 4C 20 63 68 3C UNTIL ch<
000020: 3E 27 20 27 3B 0D 0A 20 20 20 20 20 20 20 20 45 >' ';.. E
000030: 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 0D 0A 20 ND;.. ..
000040: 20 20 20 20 20 20 20 7B 2D 2D 2D 2D 2D 2D 2D 2D {--------
000050: 2D 2D 2D 2D 2D 2D 2D 2D 20 20 70 6C 75 73 2D 6D -------- plus-m
000060: 69 6E 75 73 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D inus ----------
000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 7D 0D 0A 20 20 -----------}..
000080: 20 20 20 20 20 20 46 55 4E 43 54 49 4F 4E 20 70 FUNCTION p
000090: 6C 75 73 5F 6D 69 6E 75 73 20 3A 20 72 65 61 6C lus_minus : real
0000A0: 3B 20 20 46 4F 52 57 41 52 44 3B 0D 0A 20 20 20 ; FORWARD;..
0000B0: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 7B .. {
0000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000D0: 20 20 66 61 6B 74 6F 72 20 20 2D 2D 2D 2D 2D 2D faktor ------
0000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000F0: 2D 2D 2D 7D 0D 0A 20 20 20 20 20 20 20 20 0D 0A ---}.. ..
000100: 20 20 20 20 20 20 20 20 46 55 4E 43 54 49 4F 4E FUNCTION
000110: 20 66 61 6B 74 6F 72 3A 20 72 65 61 6C 3B 0D 0A faktor: real;..
000120: 20 20 20 20 20 20 20 20 56 41 52 0D 0A 20 20 20 VAR..
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 70 2C 6C p,l
000140: 2C 65 20 20 20 3A 20 69 6E 74 65 67 65 72 3B 0D ,e : integer;.
000150: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000160: 20 66 20 20 20 20 20 20 20 3A 20 72 65 61 6C 3B f : real;
000170: 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49 4E 20 .. BEGIN
000180: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000190: 20 20 49 46 20 63 68 20 49 4E 20 5B 27 30 27 2E IF ch IN ['0'.
0001A0: 2E 27 39 27 5D 20 54 48 45 4E 0D 0A 20 20 20 20 .'9'] THEN..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 BEGI
0001C0: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 N..
0001D0: 20 20 20 20 20 20 20 20 20 20 20 70 3A 3D 70 6F p:=po
0001E0: 73 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 s;..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 45 REPE
Size : 512 (Real : 512)
000000: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 END;..
000010: 20 20 20 20 20 20 20 20 27 46 27 2C 20 27 66 27 'F', 'f'
000020: 20 3A 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 : BEGIN..
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000040: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D WRITELN;.
000050: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 WR
000070: 49 54 45 28 27 48 76 65 6D 20 73 6B 61 6C 20 66 ITE('Hvem skal f
000080: 6A 65 72 6E 65 73 3A 20 27 29 3B 0D 0A 20 20 20 jernes: ');..
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 52 45 41 44 4C 4E READLN
0000B0: 28 75 64 5E 2E 6E 61 76 6E 29 3B 0D 0A 20 20 20 (ud^.navn);..
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 66 6A 65 72 6E 28 fjern(
0000E0: 74 6F 70 2C 20 75 64 29 3B 0D 0A 20 20 20 20 20 top, ud);..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 END;..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 27 55 27 2C 'U',
000120: 20 27 75 27 20 3A 20 75 64 73 6B 72 69 76 28 74 'u' : udskriv(t
000130: 6F 70 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 op);..
000140: 20 20 20 20 20 20 27 4C 27 2C 20 27 6C 27 20 3A 'L', 'l' :
000150: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 BEGIN..
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000170: 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 WRITELN;..
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000190: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
0001A0: 45 28 27 52 65 73 74 20 6C 61 67 65 72 3A 20 27 E('Rest lager: '
0001B0: 2C 20 4D 45 4D 41 56 41 49 4C 2C 20 27 20 62 79 , MEMAVAIL, ' by
0001C0: 74 65 73 2E 27 29 3B 0D 0A 20 20 20 20 20 20 20 tes.');..
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001E0: 20 20 20 20 20 20 57 52 49 54 45 28 27 20 54 61 WRITE(' Ta
0001F0: 73 74 20 3C 52 45 54 55 52 4E 3E 3A 20 27 29 3B st <RETURN>: ');
Size : 512 (Real : 512)
000000: 41 54 20 20 6C 3A 3D 70 6F 73 3B 0D 0A 20 20 20 AT l:=pos;..
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 76 69 64 vid
000030: 65 72 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ere;..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 4E UN
000050: 54 49 4C 20 4E 4F 54 20 28 63 68 20 49 4E 20 5B TIL NOT (ch IN [
000060: 27 30 27 2E 2E 27 39 27 2C 27 2E 27 5D 29 3B 0D '0'..'9','.']);.
000070: 0A 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 49 46 20 28 63 68 3D IF (ch=
000090: 27 45 27 29 20 4F 52 20 28 63 68 3D 27 65 27 29 'E') OR (ch='e')
0000A0: 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 THEN..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 B
0000C0: 45 47 49 4E 20 20 20 0D 0A 20 20 20 20 20 20 20 EGIN ..
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 76 69 64 65 72 65 3B videre;
0000F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 20 20 49 46 20 20 20 20 20 20 28 63 68 3D 27 2D IF (ch='-
000120: 27 29 20 4F 52 20 28 63 68 3D 27 2B 27 29 20 54 ') OR (ch='+') T
000130: 48 45 4E 20 76 69 64 65 72 65 3B 0D 0A 20 20 20 HEN videre;..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 48 49 WHI
000160: 4C 45 20 20 20 28 63 68 3D 27 30 27 29 20 41 4E LE (ch='0') AN
000170: 44 20 28 63 68 3C 3D 27 39 27 29 20 44 4F 0D 0A D (ch<='9') DO..
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001A0: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 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 20 20 20 20 20 6C l
0001D0: 3A 3D 70 6F 73 3B 0D 0A 20 20 20 20 20 20 20 20 :=pos;..
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 R
000020: 45 41 44 4C 4E 28 63 68 29 3B 0D 0A 20 20 20 20 EADLN(ch);..
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000040: 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 END;..
000050: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D END;.
000060: 0A 20 20 20 20 20 20 20 20 20 20 20 20 55 4E 54 . UNT
000070: 49 4C 20 63 68 20 49 4E 20 28 2E 27 41 27 2C 20 IL ch IN (.'A',
000080: 27 61 27 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 'a'.);..
000090: 20 20 45 4E 44 2E 20 28 2A 20 6B 61 65 64 65 34 END. (* kaede4
0000A0: 20 2A 29 0D 0A 1A 63 68 29 3B 0D 0A 20 20 20 20 *)...ch);..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 END;..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D END;.
0000E0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 55 4E 54 . UNT
0000F0: 49 4C 20 63 68 20 49 4E 20 28 2E 27 41 27 2C 20 IL ch IN (.'A',
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: 76 69 64 65 72 65 3B 0D 0A 20 20 20 20 20 20 20 videre;..
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 45 4E 44 3B 0D 0A 20 END;..
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000040: 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 END;..
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 20 20 20 20 20 76 61 6C 28 63 6F 70 79 28 73 2C val(copy(s,
000070: 70 2C 6C 2D 70 2B 31 29 2C 66 2C 65 29 3B 0D 0A p,l-p+1),f,e);..
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 49 46 20 65 3C 3E 30 20 IF e<>0
0000A0: 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 THEN..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 BE
0000C0: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 20 20 70 6F 73 3A 3D 70 2B 65 2D 31 3B pos:=p+e-1;
0000F0: 20 20 20 20 20 63 68 3A 3D 66 65 6A 6C 6B 6F 64 ch:=fejlkod
000100: 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 e;..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B END;
000120: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000130: 20 20 20 45 4E 44 20 45 4C 53 45 20 0D 0A 20 20 END ELSE ..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 20 20 20 49 46 20 63 68 3D 27 28 27 20 IF ch='('
000160: 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 THEN..
000170: 20 20 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 20 20 20 20 20 20 20 20 20 20 20 20 20
0001A0: 20 20 20 20 20 76 69 64 65 72 65 3B 0D 0A 20 20 videre;..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 3A f:
0001D0: 3D 70 6C 75 73 5F 6D 69 6E 75 73 3B 0D 0A 20 20 =plus_minus;..
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A ..
Size : 512 (Real : 512)
000000: FF 04 0D FE 00 03 0D 3F FF 04 0D F0 00 0C 0D 0F .......?........
000010: FF 04 0D FC 1F FF 04 0D FE 00 28 0D FF 04 0D FE ..........(.....
000020: 00 03 0D 3F FF 04 0D 80 00 0C 0D 01 FF 04 0D FC ...?............
000030: 1F FF 04 0D FC 00 28 0D 7F FF 03 0D FE 00 03 0D ......(.........
000040: 3F FF 03 0D FE 00 0E 0D FF 04 0D FC 1F FF 04 0D ?...............
000050: F0 00 28 0D 1F FF 03 0D FE 00 03 0D 3F FF 03 0D ..(.........?...
000060: FC 00 0E 0D 3F FF 03 0D FC 1F FF 04 0D E0 00 28 ....?..........(
000070: 0D 0F FF 03 0D FE 00 03 0D 3F FF 03 0D F8 00 0E .........?......
000080: 0D 1F FF 03 0D FC 1F FF 04 0D E0 00 28 0D 0F FF ............(...
000090: 03 0D FE 00 03 0D 3F FF 03 0D F8 00 0E 0D 1F FF ......?.........
0000A0: 03 0D FC 1F FF 04 0D E0 00 28 0D 0F FF 03 0D FE .........(......
0000B0: 00 03 0D 3F FF 03 0D F8 00 0E 0D 1F FF 03 0D FC ...?............
0000C0: 1F FF 04 0D C0 00 28 0D 07 FF 04 0D 00 03 0D 3F ......(........?
0000D0: FF 03 0D F0 00 0E 0D 0F FF 03 0D FC 1F FF 04 0D ................
0000E0: C0 00 28 0D 07 FF 04 0D 00 03 0D 3F FF 03 0D F0 ..(........?....
0000F0: 00 0E 0D 0F FF 03 0D FC 1F FF 04 0D C0 00 28 0D ..............(.
000100: 07 FF 04 0D 00 03 0D 3F FF 03 0D F0 00 0E 0D 0F .......?........
000110: FF 03 0D FC 1F FF 04 0D C0 00 28 0D 07 FF 04 0D ..........(.....
000120: 00 03 0D 3F FF 03 0D F0 00 0E 0D 0F FF 03 0D FC ...?............
000130: 1F FF 04 0D C0 00 28 0D 07 FF 04 0D 00 03 0D 3F ......(........?
000140: FF 03 0D F0 00 0E 0D 0F FF 03 0D FC 1F FF 04 0D ................
000150: C0 00 28 0D 07 FF 04 0D 00 03 0D 3F FF 03 0D F0 ..(........?....
000160: 00 0E 0D 0F FF 03 0D FC 1F FF 04 0D C0 00 28 0D ..............(.
000170: 07 FF 04 0D 00 03 0D 3F FF 03 0D F0 00 0E 0D 0F .......?........
000180: FF 03 0D FC 1F FF 04 0D C0 00 28 0D 07 FF 03 0D ..........(.....
000190: FE 00 03 0D 3F FF 03 0D F0 00 0E 0D 0F FF 03 0D ....?...........
0001A0: FC 1F FF 04 0D C0 00 28 0D 07 FF 03 0D FE 00 03 .......(........
0001B0: 0D 3F FF 03 0D F0 00 0E 0D 0F FF 03 0D FC 1F FF .?..............
0001C0: 04 0D C0 00 28 0D 07 FF 03 0D FE 00 03 0D 3F FF ....(.........?.
0001D0: 03 0D F0 00 0E 0D 0F FF 03 0D FC 1F FF 04 0D C0 ................
0001E0: 00 28 0D 07 FF 03 0D FE 00 03 0D 3F FF 03 0D F0 .(.........?....
0001F0: 00 0E 0D 0F FF 03 0D FC 1F FF 04 0D C0 00 28 0D ..............(.
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 7B 20 64 65 72 20 76 65 6E 64 65 73 20 74 69 6C { der vendes til
000030: 62 61 67 65 20 68 65 72 74 69 6C 20 6E 61 61 72 bage hertil naar
000040: 20 65 6E 20 29 20 65 72 20 69 6E 64 74 61 73 74 en ) er indtast
000050: 65 74 20 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 et }..
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A ..
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000090: 49 46 20 63 68 3D 27 29 27 20 54 48 45 4E 20 76 IF ch=')' THEN v
0000A0: 69 64 65 72 65 20 45 4C 53 45 20 63 68 3A 3D 66 idere ELSE ch:=f
0000B0: 65 6A 6C 6B 6F 64 65 3B 0D 0A 20 20 20 20 20 20 ejlkode;..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 45 4E 44 20 45 4C 53 45 0D 0A 20 20 20 20 END ELSE..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 63 68 3A 3D ch:=
000100: 66 65 6A 6C 6B 6F 64 65 3B 0D 0A 20 20 20 20 20 fejlkode;..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000120: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000130: 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 ..
000140: 20 20 20 20 20 20 20 20 20 66 61 6B 74 6F 72 3A faktor:
000150: 3D 66 3B 20 20 7B 20 74 61 6C 76 61 65 72 64 69 =f; { talvaerdi
000160: 65 6E 20 72 65 74 75 6E 65 72 65 73 20 7D 0D 0A en retuneres }..
000170: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A END;..
000180: 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 ..
000190: 20 20 20 20 20 20 7B 2D 2D 2D 2D 2D 2D 2D 2D 2D {---------
0001A0: 2D 2D 2D 2D 2D 2D 20 20 66 6F 72 74 65 67 6E 20 ------ fortegn
0001B0: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------------
0001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 7D 0D 0A -------------}..
0001D0: 20 20 20 20 20 20 20 20 20 20 46 55 4E 43 54 49 FUNCTI
0001E0: 4F 4E 20 66 6F 72 74 65 67 6E 3A 20 72 65 61 6C ON fortegn: real
0001F0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 42 45 47 ;.. BEG
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
000010: 6B 61 6C 6B 75 6C 61 74 6F 72 3B 0D 0A 20 20 20 kalkulator;..
000020: 20 20 20 20 20 43 4F 4E 53 54 0D 0A 20 20 20 20 CONST..
000030: 20 20 20 20 20 20 20 20 20 20 20 20 73 6C 75 74 slut
000040: 6B 6F 64 65 20 3D 20 40 31 33 3B 20 20 20 20 20 kode = @13;
000050: 20 20 20 20 66 65 6A 6C 6B 6F 64 65 20 3D 20 27 fejlkode = '
000060: 3F 27 3B 0D 0A 20 20 20 20 20 20 20 20 56 41 52 ?';.. VAR
000070: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000080: 20 20 73 20 20 20 20 20 20 20 3A 20 53 54 52 49 s : STRI
000090: 4E 47 5B 32 35 35 5D 3B 0D 0A 20 20 20 20 20 20 NG[255];..
0000A0: 20 20 20 20 20 20 20 20 20 20 63 68 20 20 20 20 ch
0000B0: 20 20 3A 20 63 68 61 72 3B 0D 0A 20 20 20 20 20 : char;..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 70 6F 73 20 20 pos
0000D0: 20 20 20 3A 20 69 6E 74 65 67 65 72 3B 0D 0A 20 : integer;..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 r
0000F0: 65 73 75 6C 74 20 20 3A 20 72 65 61 6C 3B 0D 0A esult : real;..
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 0D 0A 20 20 20 20 20 20 20 20 7B 2D 2D 2D 2D 2D .. {-----
000120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 76 69 64 ----------- vid
000130: 65 72 65 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ere -----------
000140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 7D 0D --------------}.
000150: 0A 20 20 20 20 20 20 20 20 50 52 4F 43 45 44 55 . PROCEDU
000160: 52 45 20 76 69 64 65 72 65 3B 0D 0A 20 20 20 20 RE videre;..
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 52 45 50 45 41 REPEA
000190: 54 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 T..
0001A0: 20 20 20 20 20 20 20 20 20 20 20 70 6F 73 3A 3D pos:=
0001B0: 73 75 63 63 28 70 6F 73 29 3B 0D 0A 20 20 20 20 succ(pos);..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001D0: 20 20 20 20 49 46 20 70 6F 73 3C 3D 6C 65 6E 28 IF pos<=len(
0001E0: 73 29 20 54 48 45 4E 20 63 68 3A 3D 73 5B 70 6F s) THEN ch:=s[po
0001F0: 73 5D 20 45 4C 53 45 20 63 68 3A 3D 73 6C 75 74 s] ELSE ch:=slut
Size : 512 (Real : 512)
000000: 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 IN..
000010: 20 20 20 20 49 46 20 63 68 3D 27 2D 27 20 54 48 IF ch='-' TH
000020: 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 EN..
000030: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 20 20 20 76 69 64 65 72 65 3B 0D 0A 20 20 20 20 videre;..
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 20 20 20 66 6F 72 74 65 67 6E 3A 3D 2D 66 61 fortegn:=-fa
000080: 6B 74 6F 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 ktor;..
000090: 20 20 20 20 20 20 20 45 4E 44 20 20 45 4C 53 45 END ELSE
0000A0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0000B0: 20 20 20 20 20 20 20 66 6F 72 74 65 67 6E 3A 3D fortegn:=
0000C0: 66 61 6B 74 6F 72 3B 0D 0A 20 20 20 20 20 20 20 faktor;..
0000D0: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 END;..
0000E0: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 7B .. {
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 ---------------
000100: 20 67 61 6E 67 65 5F 64 69 76 69 73 69 6F 6E 20 gange_division
000110: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------------
000120: 2D 2D 2D 2D 2D 2D 7D 0D 0A 20 20 20 20 20 20 20 ------}..
000130: 20 20 20 46 55 4E 43 54 49 4F 4E 20 67 61 6E 67 FUNCTION gang
000140: 65 5F 64 69 76 69 73 69 6F 6E 3A 20 72 65 61 6C e_division: real
000150: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 56 41 52 ;.. VAR
000160: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000170: 20 20 20 67 64 3A 20 72 65 61 6C 3B 0D 0A 20 20 gd: real;..
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6F 70 op
000190: 72 5F 67 64 3A 20 63 68 61 72 3B 0D 0A 20 20 20 r_gd: char;..
0001A0: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 BEGIN..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 64 gd
0001C0: 3A 3D 66 6F 72 74 65 67 6E 3B 0D 0A 20 20 20 20 :=fortegn;..
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 57 48 49 4C WHIL
0001E0: 45 20 63 68 20 49 4E 5B 20 27 2A 27 2C 27 2F 27 E ch IN[ '*','/'
0001F0: 20 5D 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 ] DO..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 0D 0A 1A 1A 1A 1A 1A .......
000010: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000020: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000030: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000040: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000050: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000060: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000070: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000080: 20 20 20 45 4E 44 2E 20 28 2A 20 62 72 69 64 67 END. (* bridg
000090: 65 31 20 2A 29 0D 0A 1A 0A 20 20 20 20 20 20 20 e1 *)....
0000A0: 20 20 20 20 57 52 49 54 45 28 27 53 59 44 20 3A WRITE('SYD :
0000B0: 20 27 29 3B 20 75 64 73 6B 72 69 76 68 61 61 6E '); udskrivhaan
0000C0: 64 28 73 79 64 29 3B 0D 0A 20 20 20 20 20 20 20 d(syd);..
0000D0: 20 20 20 20 57 52 49 54 45 28 27 56 45 53 54 3A WRITE('VEST:
0000E0: 20 27 29 3B 20 75 64 73 6B 72 69 76 68 61 61 6E '); udskrivhaan
0000F0: 64 28 76 65 73 74 29 3B 0D 0A 20 20 20 20 20 20 d(vest);..
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 42 45 47 49 4E 0D 0A 20 20 BEGIN..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 20 20 20 20 20 20 6F 70 72 5F 67 64 3A 3D 63 68 opr_gd:=ch
000030: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
000040: 20 20 20 20 20 20 20 20 20 20 20 76 69 64 65 72 vider
000050: 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 e;..
000060: 20 20 20 20 20 20 20 20 20 20 20 20 43 41 53 45 CASE
000070: 20 6F 70 72 5F 67 64 20 4F 46 0D 0A 20 20 20 20 opr_gd OF..
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 27 2A 27 3A 20 67 64 20 '*': gd
0000A0: 3A 3D 20 67 64 20 2A 20 66 6F 72 74 65 67 6E 3B := gd * fortegn;
0000B0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 2F '/
0000D0: 27 3A 20 67 64 20 3A 3D 20 67 64 20 2F 20 66 6F ': gd := gd / fo
0000E0: 72 74 65 67 6E 3B 0D 0A 20 20 20 20 20 20 20 20 rtegn;..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 END;..
000110: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
000120: 20 20 20 20 20 20 20 20 20 20 67 61 6E 67 65 5F gange_
000130: 64 69 76 69 73 69 6F 6E 20 3A 3D 20 67 64 3B 0D division := gd;.
000140: 0A 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D . END;.
000150: 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 . ..
000160: 20 20 20 20 20 20 20 7B 2D 2D 2D 2D 2D 2D 2D 2D {--------
000170: 2D 2D 2D 2D 2D 2D 2D 20 20 70 6C 75 73 5F 6D 69 ------- plus_mi
000180: 6E 75 73 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D nus -----------
000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 7D 0D --------------}.
0001A0: 0A 20 20 20 20 20 20 20 20 20 20 46 55 4E 43 54 . FUNCT
0001B0: 49 4F 4E 20 70 6C 75 73 5F 6D 69 6E 75 73 3B 0D ION plus_minus;.
0001C0: 0A 20 20 20 20 20 20 20 20 20 20 56 41 52 0D 0A . VAR..
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001E0: 70 6D 3A 20 72 65 61 6C 3B 0D 0A 20 20 20 20 20 pm: real;..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 6F 70 72 5F 70 opr_p
Size : 512 (Real : 512)
000000: F2 D4 E1 4E 54 28 F2 DA 40 42 85 C2 7D 80 90 D4 ...NT(..@B..}...
000010: E1 4E 54 27 F2 EA 7C BE 63 32 75 F0 DE 86 2D 06 .NT'..|.c2u...-.
000020: 26 E3 27 36 BF B9 1B 4E 92 6B 7C D3 C2 05 5E AA &.'6...N.k|...^.
000030: B1 0E CE CE 82 B3 05 92 B9 80 73 E7 64 67 0B 16 ..........s.dg..
000040: 38 C9 CD 01 CE 9C 93 9C 2D E9 E0 70 CE 3B EE 92 8.......-..p.;..
000050: 93 E3 73 36 BF B9 1B EB 92 D5 9D E0 6D 74 F7 43 ..s6........mt.C
000060: 68 77 CC 2C 89 9B 9C 13 9E C1 73 CA FC 1E E0 07 hw.,......s.....
000070: 57 29 9E 84 BF FC CD DF 1E 66 C2 0F FE 3B 77 54 W).......f...;wT
000080: 78 98 9C 12 EF CB 55 CA 9D 8C 06 DE 51 18 5A A3 x.....U.....Q.Z.
000090: 13 09 63 E4 D7 BA AB 1A 27 B2 B6 21 8E 61 7C 88 ..c.....'..!.a|.
0000A0: 3A 16 C0 56 C3 9E D4 E7 38 C5 70 57 9C 75 5C 29 :..V....8.pW.u\)
0000B0: 29 8A AA C3 91 49 0D BA 2F 13 83 18 28 9D 7A 21 )....I../...(.z!
0000C0: 82 C2 AC A6 32 39 3E 68 70 A3 E5 8E 96 39 5A 0D ....29>hp....9Z.
0000D0: DE 6D 08 42 97 37 94 92 67 06 67 5A 8E 68 39 A3 .m.B.7..g.gZ.h9.
0000E0: E5 8E 96 39 5A 9A D3 2C C4 A4 44 46 64 88 37 57 ...9Z..,..DFd.7W
0000F0: A2 A1 3C 12 62 B1 F2 11 0B 19 29 8D 11 14 E5 50 ..<.b.....)....P
000100: 28 84 A2 6F A8 AA 41 51 3B 70 A1 BA FC 0B 0D BA (..o..AQ;p......
000110: A0 13 15 E8 F2 2E 34 E8 82 2E 3F 42 83 2E E8 58 ......4...?B...X
000120: 85 5A FE 25 0D 5A A2 E3 0E 68 F9 96 34 68 89 80 .Z.%.Z...h..4h..
000130: 96 7E B8 06 5D D0 85 0A 5D F9 89 1A 74 41 17 1F .~..]...]...tA..
000140: 74 41 97 74 A1 42 17 7E AC 06 5D D0 85 0A 5D FE tA.t.B.~..]...].
000150: 89 0D 7A D1 33 8C 9E 69 F4 62 CD 22 16 32 52 14 ..z.3..i.b.".2R.
000160: 23 C9 36 4A 21 DD 1B 30 71 45 E6 B9 12 0B E5 97 #.6J!..0qE......
000170: 10 88 95 89 58 C8 48 50 8C 24 DB 28 85 75 6F C3 ....X.HP.$.(.uo.
000180: C4 8A 9A 28 14 42 51 37 54 D5 A0 A8 1D 50 DC 68 ...(.BQ7T....P.h
000190: 13 67 43 28 26 20 09 0D C5 31 88 49 40 DF 05 E5 .gC(& ...1.I@...
0001A0: 2D BA D4 6C 13 8A 41 48 02 7B 2F 6D 42 31 88 62 -..l..AH.{/mB1.b
0001B0: 43 4B 2F E5 69 06 B1 09 28 3D 23 D1 05 19 2D 09 CK/.i...(=#...-.
0001C0: E8 3D 23 D0 05 B0 5F 33 BA 12 D0 8B 41 1F DB ED .=#..._3....A...
0001D0: 79 20 2F E5 79 93 EA 37 D5 4C E8 FC 24 97 F7 7A y /.y..7.L..$..z
0001E0: 7E BE 0B CB 5B B6 89 0A 5D DD 50 49 9E C1 9B 0D ~...[...].PI....
0001F0: A1 E8 B2 86 52 F2 EC D0 4C EE 9A 3D 53 17 BD 5B ....R...L..=S..[
Size : 512 (Real : 512)
000000: 6D 3A 20 63 68 61 72 3B 0D 0A 20 20 20 20 20 20 m: char;..
000010: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
000020: 20 20 20 20 20 20 20 20 20 20 20 70 6D 3A 3D 67 pm:=g
000030: 61 6E 67 65 5F 64 69 76 69 73 69 6F 6E 3B 0D 0A ange_division;..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 57 48 49 4C 45 20 63 68 20 49 4E 20 5B 20 27 2B WHILE ch IN [ '+
000060: 27 2C 27 2D 27 20 5D 20 44 4F 0D 0A 20 20 20 20 ','-' ] DO..
000070: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 BEGI
000080: 4E 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 N ..
000090: 20 20 20 20 20 20 20 20 20 20 20 20 6F 70 72 5F opr_
0000A0: 70 6D 3A 3D 63 68 3B 0D 0A 20 20 20 20 20 20 20 pm:=ch;..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 76 69 64 65 72 65 3B 0D 0A 20 20 20 20 20 20 videre;..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 43 41 53 45 20 6F 70 72 5F 70 6D 20 4F 46 CASE opr_pm OF
0000F0: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 '
000110: 2B 27 3A 20 70 6D 20 3A 3D 20 70 6D 20 2B 20 67 +': pm := pm + g
000120: 61 6E 67 65 5F 64 69 76 69 73 69 6F 6E 3B 0D 0A ange_division;..
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 27 2D 27 3A '-':
000150: 20 70 6D 20 3A 3D 20 70 6D 20 2D 20 67 61 6E 67 pm := pm - gang
000160: 65 5F 64 69 76 69 73 69 6F 6E 3B 0D 0A 20 20 20 e_division;..
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 45 4E 44 3B 0D END;.
0001A0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0001B0: 20 70 6C 75 73 5F 6D 69 6E 75 73 20 3A 3D 20 70 plus_minus := p
0001C0: 6D 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 45 4E m;.. EN
0001D0: 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A D;.. ..
0001E0: 20 20 20 20 20 20 20 20 20 20 7B 2D 2D 2D 2D 2D {-----
0001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 68 6F 76 65 64 --------- hoved
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
000010: 6B 61 6E 6E 69 62 61 6C 3B 0D 0A 20 20 20 20 20 kannibal;..
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 70 6F 69 6E 74 65 72 20 3D 20 5E 20 6D 61 6E pointer = ^ man
000050: 64 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 d;..
000060: 6D 61 6E 64 20 3D 20 52 45 43 4F 52 44 0D 0A 20 mand = RECORD..
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 20 6E 61 65 73 74 65 20 3A 20 70 6F 69 naeste : poi
000090: 6E 74 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 nter;..
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 6E 72 20 3A nr :
0000B0: 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 INTEGER;..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E EN
0000D0: 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A D;.. ..
0000E0: 20 20 20 20 20 20 20 20 20 20 56 41 52 0D 0A 20 VAR..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 74 6F 70 20 3A top :
000100: 20 70 6F 69 6E 74 65 72 3B 0D 0A 20 20 20 20 20 pointer;..
000110: 20 20 20 20 20 20 20 61 6E 74 61 6C 2C 20 66 72 antal, fr
000120: 65 6D 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 em : INTEGER;..
000130: 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 ..
000140: 20 20 20 20 20 46 55 4E 43 54 49 4F 4E 20 6A 61 FUNCTION ja
000150: 20 3A 20 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 20 : BOOLEAN;..
000160: 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 ..
000170: 20 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 VAR..
000180: 20 20 20 20 20 20 20 20 63 68 20 3A 20 43 48 41 ch : CHA
000190: 52 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 R;..
0001A0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 45 .. BE
0001B0: 47 49 4E 20 28 2A 20 6A 61 20 2A 29 0D 0A 20 20 GIN (* ja *)..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 45 REPE
0001D0: 41 54 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 AT..
0001E0: 20 20 20 20 52 45 41 44 28 4B 42 44 2C 20 63 68 READ(KBD, ch
0001F0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 20 2D 2D 2D 2D 2D 2D 2D program -------
000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000020: 2D 2D 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 42 --}.. B
000030: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
000040: 20 20 20 20 20 20 52 45 50 45 41 54 20 0D 0A 20 REPEAT ..
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 77 72 69 74 65 28 27 2A 27 write('*'
000070: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
000080: 20 20 20 20 20 20 20 20 20 20 20 20 72 65 61 64 read
000090: 28 73 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 (s);..
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 IF
0000B0: 20 28 73 3C 3E 27 27 29 20 41 4E 44 20 28 73 3C (s<>'') AND (s<
0000C0: 3E 27 51 27 29 20 54 48 45 4E 0D 0A 20 20 20 20 >'Q') THEN..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 20 20 20 20 20 20 20 20 20 20 70 6F 73 20 3A pos :
000110: 3D 20 30 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 = 0;..
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000130: 20 20 20 20 20 20 76 69 64 65 72 65 3B 0D 0A 20 videre;..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 r
000160: 65 73 75 6C 74 20 3A 3D 20 70 6C 75 73 5F 6D 69 esult := plus_mi
000170: 6E 75 73 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 nus;..
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000190: 20 20 20 20 20 20 49 46 20 63 68 20 3C 3E 20 66 IF ch <> f
0001A0: 65 6A 6C 6B 6F 64 65 20 54 48 45 4E 0D 0A 20 20 ejlkode THEN..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 BE
0001D0: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 wri
Size : 512 (Real : 512)
000000: 20 20 55 4E 54 49 4C 20 63 68 20 49 4E 20 28 2E UNTIL ch IN (.
000010: 27 4A 27 2C 20 27 6A 27 2C 20 27 4E 27 2C 20 27 'J', 'j', 'N', '
000020: 6E 27 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 n'.);..
000030: 20 20 20 20 20 43 41 53 45 20 63 68 20 4F 46 0D CASE ch OF.
000040: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000050: 20 27 4A 27 2C 20 27 6A 27 20 3A 20 6A 61 20 3A 'J', 'j' : ja :
000060: 3D 20 54 52 55 45 3B 0D 0A 20 20 20 20 20 20 20 = TRUE;..
000070: 20 20 20 20 20 20 20 20 20 27 4E 27 2C 20 27 6E 'N', 'n
000080: 27 20 3A 20 6A 61 20 3A 3D 20 46 41 4C 53 45 3B ' : ja := FALSE;
000090: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0000A0: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 END;..
0000B0: 20 20 45 4E 44 3B 20 28 2A 20 6A 61 20 2A 29 0D END; (* ja *).
0000C0: 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 . ..
0000D0: 20 20 20 20 20 20 20 46 55 4E 43 54 49 4F 4E 20 FUNCTION
0000E0: 66 61 65 72 64 69 67 20 3A 20 42 4F 4F 4C 45 41 faerdig : BOOLEA
0000F0: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A N;.. ..
000100: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 BEGI
000110: 4E 20 28 2A 20 66 61 65 72 64 69 67 20 2A 29 0D N (* faerdig *).
000120: 0A 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 57 52 49 54 45 28 27 5C 6E WRITE('\n
000150: 73 6B 65 72 20 64 75 20 65 74 20 6E 79 74 20 67 sker du et nyt g
000160: 69 6C 64 65 20 28 6A 2F 6E 29 3A 20 27 29 3B 0D ilde (j/n): ');.
000170: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 . f
000180: 61 65 72 64 69 67 20 3A 3D 20 4E 4F 54 20 6A 61 aerdig := NOT ja
000190: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 45 ;.. E
0001A0: 4E 44 3B 20 28 2A 20 66 61 65 72 64 69 67 20 2A ND; (* faerdig *
0001B0: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 ).. ..
0001C0: 20 20 20 20 20 20 20 20 20 50 52 4F 43 45 44 55 PROCEDU
0001D0: 52 45 20 6F 70 72 65 74 6E 69 6E 67 3B 0D 0A 20 RE opretning;..
0001E0: 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 ..
0001F0: 20 20 20 20 20 20 20 46 55 4E 43 54 49 4F 4E 20 FUNCTION
Size : 512 (Real : 512)
000000: 74 65 28 27 20 3D 20 27 2C 72 65 73 75 6C 74 3A te(' = ',result:
000010: 31 38 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 18);..
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000030: 20 20 20 20 20 20 45 4E 44 20 20 45 4C 53 45 20 END ELSE
000040: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 BEGIN..
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000090: 20 77 72 69 74 65 6C 6E 3B 0D 0A 20 20 20 20 20 writeln;..
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 20 20 77 72 69 74 65 28 27 5E 20 66 65 6A 6C write('^ fejl
0000D0: 27 3A 70 6F 73 2B 37 29 3B 0D 0A 20 20 20 20 20 ':pos+7);..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D END;.
000100: 0A 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 45 4E 44 3B 0D 0A END;..
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 77 72 69 74 65 6C 6E writeln
000140: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
000150: 20 20 20 55 4E 54 49 4C 20 28 73 3D 27 71 27 29 UNTIL (s='q')
000160: 20 4F 52 20 28 73 3D 27 51 27 29 3B 0D 0A 20 20 OR (s='Q');..
000170: 20 20 20 20 20 20 20 20 45 4E 44 2E 20 20 20 0D END. .
000180: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000190: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 .. ..
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0D .
0001B0: 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 . ..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A 20 ..
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001E0: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ..
0001F0: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 ..
Size : 512 (Real : 512)
000000: 6E 61 65 73 74 65 70 65 72 73 6F 6E 28 69 20 3A naesteperson(i :
000010: 20 49 4E 54 45 47 45 52 29 20 3A 20 70 6F 69 6E INTEGER) : poin
000020: 74 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ter;..
000030: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ..
000040: 20 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 20 VAR..
000050: 20 20 20 20 20 20 20 70 20 3A 20 70 6F 69 6E 74 p : point
000060: 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 er;..
000070: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ..
000080: 20 20 20 42 45 47 49 4E 20 28 2A 20 6E 61 65 73 BEGIN (* naes
000090: 74 65 70 65 72 73 6F 6E 20 2A 29 0D 0A 20 20 20 teperson *)..
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 IF
0000B0: 69 20 3C 3D 20 61 6E 74 61 6C 0D 0A 20 20 20 20 i <= antal..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 TH
0000D0: 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 EN..
0000E0: 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 BEGIN..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 20 20 20 20 4E 45 57 28 70 29 3B 0D 0A 20 20 NEW(p);..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000120: 20 20 20 20 6E 61 65 73 74 65 70 65 72 73 6F 6E naesteperson
000130: 20 3A 3D 20 70 3B 0D 0A 20 20 20 20 20 20 20 20 := p;..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 5E p^
000150: 2E 6E 72 20 3A 3D 20 69 3B 0D 0A 20 20 20 20 20 .nr := i;..
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000170: 20 70 5E 2E 6E 61 65 73 74 65 20 3A 3D 20 6E 61 p^.naeste := na
000180: 65 73 74 65 70 65 72 73 6F 6E 28 69 20 2B 20 31 esteperson(i + 1
000190: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
0001A0: 20 20 20 20 20 20 20 20 45 4E 44 0D 0A 20 20 20 END..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
0001C0: 4C 53 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 LSE..
0001D0: 20 20 20 20 20 20 20 20 20 6E 61 65 73 74 65 70 naestep
0001E0: 65 72 73 6F 6E 20 3A 3D 20 74 6F 70 3B 20 28 2A erson := top; (*
0001F0: 20 72 69 6E 67 65 6E 20 73 6C 75 74 74 65 73 20 ringen sluttes
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 20 20 20 20 20 46 4F 52 20 6A 20 FOR j
000020: 3A 3D 20 31 20 54 4F 20 66 72 65 6D 20 2D 20 32 := 1 TO frem - 2
000030: 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 DO..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 t
000050: 6F 70 20 3A 3D 20 74 6F 70 5E 2E 6E 61 65 73 74 op := top^.naest
000060: 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 e;..
000070: 20 20 20 20 20 20 20 20 20 20 20 20 75 64 6D 65 udme
000080: 64 28 74 6F 70 5E 2E 6E 61 65 73 74 65 5E 2E 6E d(top^.naeste^.n
000090: 72 2C 20 69 29 3B 0D 0A 20 20 20 20 20 20 20 20 r, i);..
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000B0: 70 20 3A 3D 20 74 6F 70 5E 2E 6E 61 65 73 74 65 p := top^.naeste
0000C0: 5E 2E 6E 61 65 73 74 65 3B 0D 0A 20 20 20 20 20 ^.naeste;..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 74 6F 70 5E 2E 6E 61 65 73 74 65 20 3A top^.naeste :
0000F0: 3D 20 70 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 = p;..
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 6F to
000110: 70 20 3A 3D 20 70 3B 0D 0A 20 20 20 20 20 20 20 p := p;..
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
000130: 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ND;..
000140: 20 20 20 20 20 20 20 20 20 75 64 6D 65 64 28 74 udmed(t
000150: 6F 70 5E 2E 6E 72 2C 20 61 6E 74 61 6C 29 3B 0D op^.nr, antal);.
000160: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000170: 20 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 20 20 END..
000180: 20 20 20 20 20 20 20 20 45 4C 53 45 20 0D 0A 20 ELSE ..
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001A0: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 BEGIN..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 46 4F 52 20 FOR
0001C0: 69 20 3A 3D 20 31 20 54 4F 20 61 6E 74 61 6C 20 i := 1 TO antal
0001D0: 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 DO..
0001E0: 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D BEGIN.
0001F0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
Size : 512 (Real : 512)
000000: 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 *)..
000010: 20 20 45 4E 44 3B 20 28 2A 20 6E 61 65 73 74 65 END; (* naeste
000020: 70 65 72 73 6F 6E 20 2A 29 0D 0A 20 20 20 20 20 person *)..
000030: 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 ..
000040: 20 20 20 20 20 42 45 47 49 4E 20 28 2A 20 6F 70 BEGIN (* op
000050: 72 65 74 6E 69 6E 67 20 2A 29 0D 0A 20 20 20 20 retning *)..
000060: 20 20 20 20 20 20 20 20 20 20 4E 45 57 28 74 6F NEW(to
000070: 70 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 p);..
000080: 20 20 20 74 6F 70 5E 2E 6E 72 20 3A 3D 20 31 3B top^.nr := 1;
000090: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0000A0: 74 6F 70 5E 2E 6E 61 65 73 74 65 20 3A 3D 20 6E top^.naeste := n
0000B0: 61 65 73 74 65 70 65 72 73 6F 6E 28 32 29 3B 0D aesteperson(2);.
0000C0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 . END
0000D0: 3B 20 28 2A 20 6F 70 72 65 74 6E 69 6E 67 20 2A ; (* opretning *
0000E0: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 ).. ..
0000F0: 20 20 20 20 20 20 20 20 20 50 52 4F 43 45 44 55 PROCEDU
000100: 52 45 20 69 6E 69 74 69 61 6C 69 73 65 72 3B 0D RE initialiser;.
000110: 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 . ..
000120: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 20 28 BEGIN (
000130: 2A 20 69 6E 69 74 69 61 6C 69 73 65 72 20 2A 29 * initialiser *)
000140: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000150: 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A WRITE(CLRHOM);..
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 WR
000170: 49 54 45 4C 4E 28 27 56 45 4C 4B 4F 4D 4D 45 4E ITELN('VELKOMMEN
000180: 20 54 49 4C 20 4B 41 4E 4E 49 42 41 4C 47 49 4C TIL KANNIBALGIL
000190: 44 45 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 DE');..
0001A0: 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 WRITELN;..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
0001C0: 54 45 4C 4E 28 27 45 74 20 73 6B 69 62 20 66 6F TELN('Et skib fo
0001D0: 72 6C 69 73 65 72 2C 20 6F 67 20 6E 6F 67 6C 65 rliser, og nogle
0001E0: 20 61 66 20 73 7C 6D 7B 6E 64 65 6E 65 20 72 65 af s|m{ndene re
0001F0: 64 64 65 72 20 20 27 29 3B 0D 0A 20 20 20 20 20 dder ');..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 75 64 6D 65 64 28 74 udmed(t
000010: 6F 70 5E 2E 6E 72 2C 20 69 29 3B 0D 0A 20 20 20 op^.nr, i);..
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000030: 20 20 20 20 20 74 6F 70 20 3A 3D 20 74 6F 70 5E top := top^
000040: 2E 6E 61 65 73 74 65 3B 0D 0A 20 20 20 20 20 20 .naeste;..
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 END;..
000070: 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 END;..
000080: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 20 28 END; (
000090: 2A 20 73 70 69 73 20 2A 29 0D 0A 20 20 20 20 20 * spis *)..
0000A0: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 ..
0000B0: 20 42 45 47 49 4E 20 28 2A 20 6B 61 6E 6E 69 62 BEGIN (* kannib
0000C0: 61 6C 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 al *)..
0000D0: 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 REPEAT..
0000E0: 20 20 20 20 20 20 20 20 20 69 6E 69 74 69 61 6C initial
0000F0: 69 73 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 iser;..
000100: 20 20 20 20 20 73 70 69 73 3B 0D 0A 20 20 20 20 spis;..
000110: 20 20 20 20 20 20 20 20 55 4E 54 49 4C 20 66 61 UNTIL fa
000120: 65 72 64 69 67 3B 0D 0A 20 20 20 20 20 20 20 20 erdig;..
000130: 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 WRITELN;..
000140: 20 20 20 20 20 20 20 20 45 4E 44 2E 20 28 2A 20 END. (*
000150: 6B 61 6E 6E 69 62 61 6C 20 2A 29 0D 0A 1A 20 20 kannibal *)...
000160: 20 20 20 20 20 20 20 20 20 69 6E 69 74 69 61 6C initial
000170: 69 73 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 iser;..
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 20 57 52 49 54 45 4C 4E WRITELN
000010: 28 27 73 69 67 20 6D 69 72 61 6B 75 6C 7C 73 74 ('sig mirakul|st
000020: 20 69 20 6C 61 6E 64 2E 20 4D 65 6E 20 64 65 73 i land. Men des
000030: 76 7B 72 72 65 20 74 61 67 65 73 20 64 65 20 74 v{rre tages de t
000040: 69 6C 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 il');..
000050: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 66 61 WRITELN('fa
000060: 6E 67 65 20 61 66 20 6E 6F 67 6C 65 20 6B 61 6E nge af nogle kan
000070: 6E 69 62 61 6C 65 72 2E 20 44 69 73 73 65 20 73 nibaler. Disse s
000080: 74 69 6C 6C 65 72 20 73 7C 6D 7B 6E 2D 20 27 29 tiller s|m{n- ')
000090: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
0000A0: 20 57 52 49 54 45 4C 4E 28 27 64 65 6E 65 20 6F WRITELN('dene o
0000B0: 70 20 69 20 72 69 6E 67 20 6F 67 20 67 7C 72 20 p i ring og g|r
0000C0: 6B 6C 61 72 20 74 69 6C 20 67 69 6C 64 65 2E 20 klar til gilde.
0000D0: 20 20 20 20 20 20 20 20 20 20 27 29 3B 0D 0A 20 ');..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
0000F0: 54 45 4C 4E 28 27 46 6F 72 20 61 74 20 66 69 6E TELN('For at fin
000100: 64 65 20 75 64 20 61 66 20 68 76 65 6D 20 64 65 de ud af hvem de
000110: 72 20 73 6B 61 6C 20 73 70 69 73 65 73 2C 20 74 r skal spises, t
000120: 7B 6C 6C 65 72 20 27 29 3B 0D 0A 20 20 20 20 20 {ller ');..
000130: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
000140: 28 27 64 65 20 68 65 6C 65 20 74 69 64 65 6E 20 ('de hele tiden
000150: 65 74 20 62 65 73 74 65 6D 74 20 61 6E 74 61 6C et bestemt antal
000160: 20 66 72 65 6D 2E 20 20 20 20 20 20 20 20 20 20 frem.
000170: 20 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 ');..
000180: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 44 75 WRITELN('Du
000190: 20 73 6B 61 6C 20 6E 75 20 62 65 73 74 65 6D 6D skal nu bestemm
0001A0: 65 2C 20 68 76 6F 72 20 6D 61 6E 67 65 20 73 7C e, hvor mange s|
0001B0: 6D 7B 6E 64 2C 20 64 65 72 20 72 65 64 2D 27 29 m{nd, der red-')
0001C0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
0001D0: 20 57 52 49 54 45 4C 4E 28 27 64 65 72 20 73 69 WRITELN('der si
0001E0: 67 20 69 20 6C 61 6E 64 2C 20 6F 67 20 68 76 6F g i land, og hvo
0001F0: 72 20 6D 65 67 65 74 20 6B 61 6E 6E 69 62 61 6C r meget kannibal
Size : 512 (Real : 512)
000000: 21 80 54 95 D6 8C C2 C1 67 E4 47 39 3B 0C 97 0E !.T.....g.G9;...
000010: 51 4C 6A AB 2E E1 AA 4B 5C 60 52 99 A3 2A 68 96 QLj....K\`R..*h.
000020: 4F C6 A4 BC AC C6 28 BF 7C 7E 7A C0 91 BA 3C E5 O.....(.|~z...<.
000030: 9D 22 5D 61 14 D7 21 04 0C D6 88 C2 95 67 8C 47 ."]a..!......g.G
000040: C1 3A E4 72 E5 D6 DC E0 9D 19 A3 E5 F2 58 E7 A3 .:.r.........X..
000050: 35 A3 40 F1 19 97 61 5D E7 EA 0F AF 82 97 16 07 5.@...a]........
000060: FB 35 F9 A1 F0 6B 99 DE 3D 9C 0A 34 75 D1 BD 48 .5...k..=..4u..H
000070: 0B 68 64 81 BB 9D 0F 24 74 78 AD 15 C0 B5 78 5B .hd....$tx....x[
000080: 26 EC 5F E4 1F E7 CB 07 C3 28 C7 E7 38 F4 1C A3 &._......(..8...
000090: 75 EF 8C 20 9C 25 D9 8F B1 00 C0 00 00 A6 29 16 u.. .%........).
0000A0: F6 E7 DC D1 B0 9B 91 82 79 5A 48 3E 32 1A 0C 0A ........yZH>2...
0000B0: 08 06 04 02 00 A1 6E 5E 43 38 F9 CD B4 9D 85 34 ......n^C8.....4
0000C0: 24 19 17 15 13 11 0F BC A5 8A 46 25 C1 69 26 1F $.........F%.i&.
0000D0: 1D 1B 42 F3 2A 2A 28 26 24 22 F7 4D 17 FC A0 2B ..B.**(&$".M...+
0000E0: 2E 2C 30 37 31 2F 81 1D 33 40 67 3C 3A 38 36 3D .,071/..3@g<:86=
0000F0: 3F 6F 8B 14 41 43 57 1B 45 27 BB 48 19 3B 4A 4C ?o..ACW.E'.H.;JL
000100: 4D 4F 51 53 54 57 3C E1 C3 5A 5C 55 5D 1E CF 87 MOQSTW<..Z\U]...
000110: 0D 62 63 65 66 67 68 88 06 01 6B 6C 6D 02 6E 6F .bcefgh...klm.no
000120: 70 08 DF 1F 7F 73 8F 75 77 05 79 7B 7C 7E 04 07 p....s.uw.y{|~..
000130: 82 84 86 16 03 88 8A 8C 8E 90 29 93 94 96 FF 99 ..........).....
000140: 0F 9C 9E A0 A2 A4 FB F4 DE D2 C7 A3 98 84 7E 68 ..............~h
000150: 58 45 3D 2C 0D 0B 09 07 05 03 01 CE 70 61 5D 41 XE=,........pa]A
000160: 12 D0 C2 9E 90 7C 28 1C 18 16 14 12 10 0E AB 96 .....|(.........
000170: 4B 36 1A 8E 50 20 1E 1C E0 21 2D 2B 29 27 25 23 K6..P ...!-+)'%#
000180: FE 83 21 15 C0 60 18 2D F1 2E 32 30 F8 47 34 AE ..!..`.-..20.G4.
000190: 8D 20 3B 39 37 35 8C 3E 40 89 42 9F 80 23 46 44 . ;975.>@.B..#FD
0001A0: 47 49 4E 66 13 4B 4E 4C 50 10 52 55 56 DD 58 59 GINf.KNLP.RUV.XY
0001B0: 78 5B AA 5E 5F 60 61 3F 09 64 0B EE 99 44 69 11 x[.^_`a?.d...Di.
0001C0: 6A 22 2F 0C 0A 4F BF 33 71 72 77 EF CC 74 76 78 j"/..O.3qrw..tvx
0001D0: F0 7A 0E 7D 7F 80 81 83 85 AF 5F 87 89 8B 8D 8F .z.}......_.....
0001E0: 91 92 00 95 97 98 9A 9B 9D 9F A1 A3 FF FC 07 FF ................
0001F0: 81 FE 38 3F 33 60 73 6D 03 97 81 C4 7A 43 18 22 ..8?3`sm....zC."
Size : 512 (Real : 512)
000000: 65 72 6E 65 20 73 6B 61 6C 20 27 29 3B 0D 0A 20 erne skal ');..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
000020: 54 45 4C 4E 28 27 74 7B 6C 6C 65 20 66 72 65 6D TELN('t{lle frem
000030: 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 :
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 20 20 20 20 20 20 27 29 3B 0D 0A 20 20 20 20 20 ');..
000060: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
000070: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
000080: 20 57 52 49 54 45 28 27 48 76 6F 72 20 6D 61 6E WRITE('Hvor man
000090: 67 65 20 73 7C 6D 7B 6E 64 3A 20 27 29 3B 0D 0A ge s|m{nd: ');..
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 RE
0000B0: 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20 20 20 PEAT..
0000C0: 20 20 20 20 20 20 52 45 41 44 4C 4E 28 61 6E 74 READLN(ant
0000D0: 61 6C 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 al);..
0000E0: 20 20 20 20 55 4E 54 49 4C 20 61 6E 74 61 6C 20 UNTIL antal
0000F0: 3E 3D 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 >= 1;..
000100: 20 20 20 20 20 57 52 49 54 45 28 27 48 76 6F 72 WRITE('Hvor
000110: 20 6D 65 67 65 74 20 73 6B 61 6C 20 64 65 72 20 meget skal der
000120: 74 7B 6C 6C 65 73 20 66 72 65 6D 3A 20 27 29 3B t{lles frem: ');
000130: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000140: 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 REPEAT..
000150: 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 READ
000160: 4C 4E 28 66 72 65 6D 29 3B 0D 0A 20 20 20 20 20 LN(frem);..
000170: 20 20 20 20 20 20 20 20 20 20 20 55 4E 54 49 4C UNTIL
000180: 20 66 72 65 6D 20 3E 3D 31 3B 0D 0A 20 20 20 20 frem >=1;..
000190: 20 20 20 20 20 20 20 20 20 20 6F 70 72 65 74 6E opretn
0001A0: 69 6E 67 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ing;..
0001B0: 20 20 45 4E 44 3B 20 28 2A 20 69 6E 69 74 69 61 END; (* initia
0001C0: 6C 69 73 65 72 20 2A 29 0D 0A 20 20 20 20 20 20 liser *)..
0001D0: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 ..
0001E0: 50 52 4F 43 45 44 55 52 45 20 73 70 69 73 3B 0D PROCEDURE spis;.
0001F0: 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 . ..
Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 6B 6F 6E 74 72 6F 6C 3B PROGRAM kontrol;
000010: 0D 0A 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 20 .... TYPE..
000020: 73 74 72 32 20 3D 20 53 54 52 49 4E 47 28 2E 32 str2 = STRING(.2
000030: 2E 29 3B 0D 0A 20 20 0D 0A 20 20 56 41 52 0D 0A .);.. .. VAR..
000040: 20 20 20 20 73 74 72 65 6E 67 20 3A 20 73 74 72 streng : str
000050: 32 3B 0D 0A 20 20 20 20 74 61 6C 2C 20 74 65 73 2;.. tal, tes
000060: 74 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 t : INTEGER;..
000070: 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 57 .. BEGIN.. W
000080: 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 RITE(CLRHOM);..
000090: 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 REPEAT..
0000A0: 20 47 4F 54 4F 58 59 28 30 2C 20 35 29 3B 0D 0A GOTOXY(0, 5);..
0000B0: 20 20 20 20 20 20 57 52 49 54 45 28 43 4C 52 45 WRITE(CLRE
0000C0: 4F 4C 2C 20 27 54 61 73 74 20 65 74 20 68 65 6C OL, 'Tast et hel
0000D0: 74 61 6C 20 66 72 61 20 32 30 20 74 69 6C 20 33 tal fra 20 til 3
0000E0: 30 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 42 55 0: ');.. BU
0000F0: 46 4C 45 4E 20 3A 3D 20 32 3B 0D 0A 20 20 20 20 FLEN := 2;..
000100: 20 20 52 45 41 44 4C 4E 28 73 74 72 65 6E 67 29 READLN(streng)
000110: 3B 0D 0A 20 20 20 20 20 20 56 41 4C 28 73 74 72 ;.. VAL(str
000120: 65 6E 67 2C 20 74 61 6C 2C 20 74 65 73 74 29 3B eng, tal, test);
000130: 0D 0A 20 20 20 20 55 4E 54 49 4C 20 28 74 65 73 .. UNTIL (tes
000140: 74 20 3D 20 30 29 20 41 4E 44 20 28 32 30 20 3C t = 0) AND (20 <
000150: 3D 20 74 61 6C 29 20 41 4E 44 20 28 74 61 6C 20 = tal) AND (tal
000160: 3C 3D 20 33 30 29 3B 0D 0A 20 20 20 20 57 52 49 <= 30);.. WRI
000170: 54 45 4C 4E 28 27 44 65 74 20 69 6E 64 74 61 73 TELN('Det indtas
000180: 74 65 64 65 20 74 61 6C 20 65 72 20 6F 6B 27 29 tede tal er ok')
000190: 3B 0D 0A 20 20 45 4E 44 2E 0D 0A 1A 28 73 74 72 ;.. END....(str
0001A0: 65 6E 67 2C 20 74 61 6C 2C 20 74 65 73 74 29 3B eng, tal, test);
0001B0: 0D 0A 20 20 20 20 55 4E 54 49 4C 20 28 74 65 73 .. UNTIL (tes
0001C0: 74 20 3D 20 30 29 20 41 4E 44 20 28 32 30 20 3C t = 0) AND (20 <
0001D0: 3D 20 74 61 6C 29 20 41 4E 44 20 28 74 61 6C 20 = tal) AND (tal
0001E0: 3C 3D 20 33 30 29 3B 0D 0A 20 20 20 20 57 52 49 <= 30);.. WRI
0001F0: 54 45 4C 4E 28 27 44 65 74 20 69 6E 64 74 61 73 TELN('Det indtas
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 56 41 52 0D 0A 20 20 VAR..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 69 2C 20 6A i, j
000020: 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 : INTEGER;..
000030: 20 20 20 20 20 20 20 20 20 20 20 70 20 3A 20 70 p : p
000040: 6F 69 6E 74 65 72 3B 0D 0A 20 20 20 20 20 20 20 ointer;..
000050: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 ..
000060: 20 20 20 50 52 4F 43 45 44 55 52 45 20 75 64 6D PROCEDURE udm
000070: 65 64 28 6B 2C 20 6C 3A 20 49 4E 54 45 47 45 52 ed(k, l: INTEGER
000080: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
000090: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0000A0: 42 45 47 49 4E 20 28 2A 20 75 64 6D 65 64 20 2A BEGIN (* udmed *
0000B0: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 )..
0000C0: 20 20 20 57 52 49 54 45 4C 4E 28 27 4E 75 6D 6D WRITELN('Numm
0000D0: 65 72 27 2C 20 6B 20 3A 20 33 2C 20 27 20 62 6C er', k : 3, ' bl
0000E0: 65 76 20 73 70 69 73 74 20 69 20 27 2C 20 6C 20 ev spist i ', l
0000F0: 3A 20 33 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 : 3,..
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 2E '.
000110: 20 6F 6D 67 61 6E 67 27 29 3B 0D 0A 20 20 20 20 omgang');..
000120: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 20 28 END; (
000130: 2A 20 75 64 6D 65 64 20 2A 29 0D 0A 20 20 20 20 * udmed *)..
000140: 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 ..
000150: 20 20 20 20 20 20 20 20 42 45 47 49 4E 20 28 2A BEGIN (*
000160: 20 73 70 69 73 20 2A 29 0D 0A 20 20 20 20 20 20 spis *)..
000170: 20 20 20 20 20 20 20 20 49 46 20 66 72 65 6D 20 IF frem
000180: 3E 3D 20 32 0D 0A 20 20 20 20 20 20 20 20 20 20 >= 2..
000190: 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 THEN..
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 BE
0001B0: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
0001C0: 20 20 20 20 20 20 20 20 20 46 4F 52 20 69 20 3A FOR i :
0001D0: 3D 20 31 20 54 4F 20 61 6E 74 61 6C 20 2D 20 31 = 1 TO antal - 1
0001E0: 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 DO..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E BEGIN
Size : 512 (Real : 512)
000000: 60 60 BD 9A 13 0C 90 12 F8 02 57 4A 1E E4 E5 80 ``........WJ....
000010: A0 35 9E C2 26 E0 07 C6 85 76 18 80 3D 25 8F 57 .5..&....v..=%.W
000020: 6E 0C 37 27 1B 48 57 75 41 84 18 46 41 51 94 85 n.7'.HWuA..FAQ..
000030: 2D 58 00 A1 C1 4D 50 82 50 B4 95 3D B3 5C 54 C9 -X...MP.P..=.\T.
000040: 4B B6 05 F9 60 F8 42 AA 12 DC 80 97 5A 61 16 05 K...`.B.....Za..
000050: 07 B8 AF 73 E6 C0 01 B6 2A DE 2D 0B 03 A0 B3 DC ...s....*.-.....
000060: 12 C0 C5 AB C5 21 0A 5D F3 AB 29 C1 5B F2 80 6B .....!.]..).[..k
000070: 00 72 A8 EA 18 8C 96 9C 06 C0 81 25 29 59 3D E9 .r.........%)Y=.
000080: E5 CE 80 94 DB E2 2D B7 80 6B 7D AB E5 57 EB F7 ......-..k}..W..
000090: 5E EC 45 61 E4 7D 2C 47 7F 84 3D 57 3E 02 85 54 ^.Ea.},G..=W>..T
0000A0: D5 18 F2 E3 8C E0 11 B5 F1 E2 CB 79 70 D6 CE F7 ...........yp...
0000B0: 5C 3D E9 E5 98 EF 2F AF CE 0B D7 79 17 9F FC CA \=..../....y....
0000C0: 9F B8 51 CF FD 7D 3F F1 F4 7C 7D 7F F7 7B B7 C3 ..Q..}?..|}..{..
0000D0: 3D DF BE 0F 72 C5 E0 E5 78 BE 5C 6A E0 E5 E7 D6 =...r...x.\j....
0000E0: EB 3C 3F CF 0C 2F 9A E7 7A BE E2 1E AD 50 A2 68 .<?../..z....P.h
0000F0: C2 A6 A8 B5 CD 5D 77 8E 31 A1 5C 82 5F 6B 5F 6B .....]w.1.\._k_k
000100: F5 6B 3E 90 F8 00 2C 34 6E C4 B8 C6 5C E3 4B 11 .k>...,4n...\.K.
000110: 61 DE 48 78 5D 98 9C 97 6B 85 B5 66 6C 36 36 D3 a.Hx]...k..fl66.
000120: 6B 6A 85 64 5B 6B D0 25 5B 49 F3 74 C1 04 6B 22 kj.d[k.%[I.t..k"
000130: DD 8D 0F A0 F0 D5 F0 B1 1A DC D0 00 AE ED 8D 09 ................
000140: 5B 82 60 DB A8 8B 89 22 4D 85 9B 9A 25 35 A6 76 [.`...."M...%5.v
000150: 97 0C 8E 0D 32 3A 74 38 E2 C8 8E 8C 76 0D 19 D3 ....2:t8....v...
000160: 91 9C CD 5C 2E 99 60 3A 66 C6 33 DD 66 6E 6D 06 ...\..`:f.3.fnm.
000170: 65 1A 39 73 16 1A CD 91 66 D3 5D 46 64 B4 68 E4 e.9s....f.]Fd.h.
000180: 93 D1 46 66 8E 4E 0D 28 1A 1C 51 5C C3 C1 ED A6 ..Ff.N.(..Q\....
000190: A3 53 60 8A 71 64 4C 4E 91 8C A6 1A 91 C6 6D 1A .S`.qdLN......m.
0001A0: 48 86 11 A9 CC A6 8E 8C 11 29 CC A6 1A 91 D9 34 H........).....4
0001B0: 9A 91 8D 42 8C 18 1A 91 C8 60 E1 C8 C8 70 26 D3 ...B.....`...p&.
0001C0: 48 46 19 8D 36 19 64 64 C4 D8 B3 C1 64 2A 70 64 HF..6.dd....d*pd
0001D0: 6D 6D A2 75 08 EA 21 12 89 45 90 34 92 7C 19 4D mm.u..!..E.4.|.M
0001E0: C9 07 D0 A2 4D 92 28 2B 45 21 D2 13 45 44 2A 5E ....M.(+E!..ED*^
0001F0: 97 3D 5E D4 23 46 DA E2 54 51 3F 82 65 FE 0B C2 .=^.#F..TQ?.e...
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 6E 79 67 65 6E 28 2E 4F 52 44 nygen(.ORD
000010: 28 70 6C 61 63 28 2E 31 2E 29 29 20 2D 20 39 36 (plac(.1.)) - 96
000020: 2C 20 4F 52 44 28 70 6C 61 63 28 2E 32 2E 29 29 , ORD(plac(.2.))
000030: 20 2D 20 36 34 2E 29 20 3A 3D 20 27 20 27 3B 0D - 64.) := ' ';.
000040: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000050: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 END;..
000060: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
000070: 20 55 4E 54 49 4C 20 63 68 20 49 4E 20 28 2E 27 UNTIL ch IN (.'
000080: 41 27 2C 20 27 61 27 2E 29 3B 0D 0A 20 20 20 20 A', 'a'.);..
000090: 20 20 47 4F 54 4F 58 59 28 35 34 2C 20 31 29 3B GOTOXY(54, 1);
0000A0: 20 57 52 49 54 45 28 27 47 4C 20 47 45 4E 45 52 WRITE('GL GENER
0000B0: 41 54 49 4F 4E 27 29 3B 0D 0A 20 20 20 20 20 20 ATION');..
0000C0: 46 4F 52 20 79 20 3A 3D 20 35 20 54 4F 20 31 34 FOR y := 5 TO 14
0000D0: 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 42 45 47 DO.. BEG
0000E0: 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 47 4F IN.. GO
0000F0: 54 4F 58 59 28 34 35 2C 20 79 29 3B 20 57 52 49 TOXY(45, y); WRI
000100: 54 45 28 43 4C 52 45 4F 4C 29 3B 0D 0A 20 20 20 TE(CLREOL);..
000110: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
000120: 20 47 4F 54 4F 58 59 28 34 34 2C 20 33 29 3B 0D GOTOXY(44, 3);.
000130: 0A 20 20 20 20 20 20 46 4F 52 20 63 68 20 3A 3D . FOR ch :=
000140: 20 27 61 27 20 54 4F 20 27 71 27 20 44 4F 0D 0A 'a' TO 'q' DO..
000150: 20 20 20 20 20 20 20 20 57 52 49 54 45 28 63 68 WRITE(ch
000160: 2C 20 27 20 27 29 3B 0D 0A 20 20 20 20 20 20 47 , ' ');.. G
000170: 4F 54 4F 58 59 28 34 34 2C 20 32 31 29 3B 0D 0A OTOXY(44, 21);..
000180: 20 20 20 20 20 20 46 4F 52 20 63 68 20 3A 3D 20 FOR ch :=
000190: 27 61 27 20 54 4F 20 27 71 27 20 44 4F 0D 0A 20 'a' TO 'q' DO..
0001A0: 20 20 20 20 20 20 20 57 52 49 54 45 28 63 68 2C WRITE(ch,
0001B0: 20 27 20 27 29 3B 0D 0A 20 20 20 20 20 20 46 4F ' ');.. FO
0001C0: 52 20 63 68 20 3A 3D 20 27 41 27 20 54 4F 20 27 R ch := 'A' TO '
0001D0: 51 27 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 42 Q' DO.. B
0001E0: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
0001F0: 47 4F 54 4F 58 59 28 34 32 2C 20 4F 52 44 28 63 GOTOXY(42, ORD(c
Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 6C 69 66 65 3B 0D 0A 0D PROGRAM life;...
000010: 0A 20 20 54 59 50 45 0D 0A 20 20 20 20 74 61 76 . TYPE.. tav
000020: 6C 65 20 3D 20 41 52 52 41 59 28 2E 30 20 2E 2E le = ARRAY(.0 ..
000030: 20 31 38 2C 20 30 20 2E 2E 20 31 38 2E 29 20 4F 18, 0 .. 18.) O
000040: 46 20 43 48 41 52 3B 0D 0A 20 20 0D 0A 20 20 56 F CHAR;.. .. V
000050: 41 52 0D 0A 20 20 20 20 67 6C 67 65 6E 2C 20 6E AR.. glgen, n
000060: 79 67 65 6E 20 3A 20 74 61 76 6C 65 3B 0D 0A 20 ygen : tavle;..
000070: 20 20 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A 20 ch : CHAR;..
000080: 20 20 20 67 65 6E 65 72 61 74 69 6F 6E 20 3A 20 generation :
000090: 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 0D 0A INTEGER;.. ..
0000A0: 20 20 50 52 4F 43 45 44 55 52 45 20 69 6E 69 74 PROCEDURE init
0000B0: 3B 0D 0A 20 20 0D 0A 20 20 20 20 54 59 50 45 0D ;.. .. TYPE.
0000C0: 0A 20 20 20 20 20 20 73 74 72 32 20 3D 20 53 54 . str2 = ST
0000D0: 52 49 4E 47 28 2E 32 2E 29 3B 0D 0A 20 20 20 20 RING(.2.);..
0000E0: 0D 0A 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 .. VAR..
0000F0: 20 70 6C 61 63 20 3A 20 73 74 72 32 3B 0D 0A 20 plac : str2;..
000100: 20 20 20 20 20 78 2C 20 79 20 3A 20 49 4E 54 45 x, y : INTE
000110: 47 45 52 3B 0D 0A 20 20 20 20 20 20 63 68 20 3A GER;.. ch :
000120: 20 43 48 41 52 3B 0D 0A 20 20 20 20 20 20 0D 0A CHAR;.. ..
000130: 20 20 20 20 42 45 47 49 4E 20 28 2A 20 69 6E 69 BEGIN (* ini
000140: 74 20 2A 29 0D 0A 20 20 20 20 20 20 46 4F 52 20 t *).. FOR
000150: 78 20 3A 3D 20 30 20 54 4F 20 31 38 20 44 4F 0D x := 0 TO 18 DO.
000160: 0A 20 20 20 20 20 20 20 20 46 4F 52 20 79 20 3A . FOR y :
000170: 3D 20 30 20 54 4F 20 31 38 20 44 4F 0D 0A 20 20 = 0 TO 18 DO..
000180: 20 20 20 20 20 20 20 20 6E 79 67 65 6E 28 2E 78 nygen(.x
000190: 2C 20 79 2E 29 20 3A 3D 20 27 20 27 3B 0D 0A 20 , y.) := ' ';..
0001A0: 20 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F WRITE(CLRHO
0001B0: 4D 29 3B 0D 0A 20 20 20 20 20 20 47 4F 54 4F 58 M);.. GOTOX
0001C0: 59 28 31 32 2C 20 31 29 3B 20 57 52 49 54 45 28 Y(12, 1); WRITE(
0001D0: 27 4E 59 20 47 45 4E 45 52 41 54 49 4F 4E 27 29 'NY GENERATION')
0001E0: 3B 0D 0A 20 20 20 20 20 20 47 4F 54 4F 58 59 28 ;.. GOTOXY(
0001F0: 32 2C 20 33 29 3B 0D 0A 20 20 20 20 20 20 46 4F 2, 3);.. FO
Size : 512 (Real : 512)
000000: 68 29 20 2D 20 36 31 29 3B 20 57 52 49 54 45 28 h) - 61); WRITE(
000010: 63 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ch);..
000020: 47 4F 54 4F 58 59 28 37 38 2C 20 4F 52 44 28 63 GOTOXY(78, ORD(c
000030: 68 29 20 2D 20 36 31 29 3B 20 57 52 49 54 45 28 h) - 61); WRITE(
000040: 63 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E ch);.. EN
000050: 44 3B 0D 0A 20 20 20 20 20 20 67 65 6E 65 72 61 D;.. genera
000060: 74 69 6F 6E 20 3A 3D 20 31 3B 0D 0A 20 20 20 20 tion := 1;..
000070: 45 4E 44 3B 20 28 2A 20 69 6E 69 74 20 2A 29 0D END; (* init *).
000080: 0A 20 20 0D 0A 20 20 50 52 4F 43 45 44 55 52 45 . .. PROCEDURE
000090: 20 6E 79 67 65 6E 65 72 61 74 69 6F 6E 3B 0D 0A nygeneration;..
0000A0: 20 20 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A 20 .. VAR..
0000B0: 20 20 20 20 20 78 2C 20 79 2C 20 61 6E 74 61 6C x, y, antal
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 46 55 4E 43 54 49 4F 4E 20 .. FUNCTION
0000E0: 6E 61 62 6F 28 78 2C 20 79 20 3A 20 49 4E 54 45 nabo(x, y : INTE
0000F0: 47 45 52 29 20 3A 20 49 4E 54 45 47 45 52 3B 0D GER) : INTEGER;.
000100: 0A 20 20 20 20 0D 0A 20 20 20 20 20 20 56 41 52 . .. VAR
000110: 0D 0A 20 20 20 20 20 20 20 20 69 2C 20 6A 2C 20 .. i, j,
000120: 61 6E 74 61 6C 20 3A 20 49 4E 54 45 47 45 52 3B antal : INTEGER;
000130: 0D 0A 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 .. ..
000140: 42 45 47 49 4E 20 28 2A 20 6E 61 62 6F 20 2A 29 BEGIN (* nabo *)
000150: 0D 0A 20 20 20 20 20 20 20 20 61 6E 74 61 6C 20 .. antal
000160: 3A 3D 20 30 3B 0D 0A 20 20 20 20 20 20 20 20 46 := 0;.. F
000170: 4F 52 20 69 20 3A 3D 20 78 20 2D 31 20 54 4F 20 OR i := x -1 TO
000180: 78 20 2B 20 31 20 44 4F 0D 0A 20 20 20 20 20 20 x + 1 DO..
000190: 20 20 20 20 49 46 20 67 6C 67 65 6E 28 2E 69 2C IF glgen(.i,
0001A0: 20 79 20 2D 20 31 2E 29 20 3D 20 27 2A 27 0D 0A y - 1.) = '*'..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E THEN
0001C0: 20 61 6E 74 61 6C 20 3A 3D 20 61 6E 74 61 6C 20 antal := antal
0001D0: 2B 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 46 4F + 1;.. FO
0001E0: 52 20 69 20 3A 3D 20 78 2D 31 20 54 4F 20 78 20 R i := x-1 TO x
0001F0: 2B 20 31 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 + 1 DO..
Size : 512 (Real : 512)
000000: 52 20 63 68 20 3A 3D 20 27 61 27 20 54 4F 20 27 R ch := 'a' TO '
000010: 71 27 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 57 q' DO.. W
000020: 52 49 54 45 28 63 68 2C 20 27 20 27 29 3B 0D 0A RITE(ch, ' ');..
000030: 20 20 20 20 20 20 47 4F 54 4F 58 59 28 32 2C 20 GOTOXY(2,
000040: 32 31 29 3B 0D 0A 20 20 20 20 20 20 46 4F 52 20 21);.. FOR
000050: 63 68 20 3A 3D 20 27 61 27 20 54 4F 20 27 71 27 ch := 'a' TO 'q'
000060: 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 57 52 49 DO.. WRI
000070: 54 45 28 63 68 2C 20 27 20 27 29 3B 0D 0A 20 20 TE(ch, ' ');..
000080: 20 20 20 20 46 4F 52 20 63 68 20 3A 3D 20 27 41 FOR ch := 'A
000090: 27 20 54 4F 20 27 51 27 20 44 4F 0D 0A 20 20 20 ' TO 'Q' DO..
0000A0: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
0000B0: 20 20 20 20 20 20 47 4F 54 4F 58 59 28 30 2C 20 GOTOXY(0,
0000C0: 4F 52 44 28 63 68 29 20 2D 20 36 31 29 3B 20 57 ORD(ch) - 61); W
0000D0: 52 49 54 45 28 63 68 29 3B 0D 0A 20 20 20 20 20 RITE(ch);..
0000E0: 20 20 20 20 20 47 4F 54 4F 58 59 28 33 36 2C 20 GOTOXY(36,
0000F0: 4F 52 44 28 63 68 29 20 2D 20 36 31 29 3B 20 57 ORD(ch) - 61); W
000100: 52 49 54 45 28 63 68 29 3B 0D 0A 20 20 20 20 20 RITE(ch);..
000110: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 47 END;.. G
000120: 4F 54 4F 58 59 28 34 35 2C 20 35 29 3B 20 57 52 OTOXY(45, 5); WR
000130: 49 54 45 28 27 45 6E 20 6F 72 67 61 6E 69 73 6D ITE('En organism
000140: 65 73 20 70 6C 61 63 65 72 69 6E 67 20 61 6E 67 es placering ang
000150: 69 76 65 73 27 29 3B 0D 0A 20 20 20 20 20 20 47 ives');.. G
000160: 4F 54 4F 58 59 28 34 35 2C 20 36 29 3B 20 57 52 OTOXY(45, 6); WR
000170: 49 54 45 28 27 66 2E 65 6B 73 2E 20 73 7D 6C 65 ITE('f.eks. s}le
000180: 64 65 73 3A 20 3C 66 4B 3E 27 29 3B 0D 0A 20 20 des: <fK>');..
000190: 20 20 20 20 47 4F 54 4F 58 59 28 34 35 2C 20 38 GOTOXY(45, 8
0001A0: 29 3B 20 57 52 49 54 45 28 27 49 2E 20 49 6E 64 ); WRITE('I. Ind
0001B0: 73 7B 74 20 6F 72 67 61 6E 69 73 6D 65 27 29 3B s{t organisme');
0001C0: 0D 0A 20 20 20 20 20 20 47 4F 54 4F 58 59 28 34 .. GOTOXY(4
0001D0: 35 2C 20 39 29 3B 20 57 52 49 54 45 28 27 53 2E 5, 9); WRITE('S.
0001E0: 20 53 6C 65 74 20 6F 72 67 61 6E 69 73 6D 65 27 Slet organisme'
0001F0: 29 3B 0D 0A 20 20 20 20 20 20 47 4F 54 4F 58 59 );.. GOTOXY
Size : 512 (Real : 512)
000000: 20 20 49 46 20 67 6C 67 65 6E 28 2E 69 2C 20 79 IF glgen(.i, y
000010: 20 2B 20 31 2E 29 20 3D 20 27 2A 27 0D 0A 20 20 + 1.) = '*'..
000020: 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 61 THEN a
000030: 6E 74 61 6C 20 3A 3D 20 61 6E 74 61 6C 20 2B 20 ntal := antal +
000040: 31 3B 0D 0A 20 20 20 20 20 20 20 20 49 46 20 67 1;.. IF g
000050: 6C 67 65 6E 28 2E 78 20 2D 20 31 2C 20 79 2E 29 lgen(.x - 1, y.)
000060: 20 3D 20 27 2A 27 0D 0A 20 20 20 20 20 20 20 20 = '*'..
000070: 20 20 54 48 45 4E 20 61 6E 74 61 6C 20 3A 3D 20 THEN antal :=
000080: 61 6E 74 61 6C 20 2B 20 31 3B 0D 0A 20 20 20 20 antal + 1;..
000090: 20 20 20 20 49 46 20 67 6C 67 65 6E 28 2E 78 20 IF glgen(.x
0000A0: 2B 20 31 2C 20 79 2E 29 20 3D 20 27 2A 27 0D 0A + 1, y.) = '*'..
0000B0: 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 61 THEN a
0000C0: 6E 74 61 6C 20 3A 3D 20 61 6E 74 61 6C 20 2B 20 ntal := antal +
0000D0: 31 3B 0D 0A 20 20 20 20 20 20 20 20 6E 61 62 6F 1;.. nabo
0000E0: 20 3A 3D 20 61 6E 74 61 6C 3B 0D 0A 20 20 20 20 := antal;..
0000F0: 20 20 45 4E 44 3B 20 28 2A 20 6E 61 62 6F 20 2A END; (* nabo *
000100: 29 0D 0A 20 20 20 20 0D 0A 20 20 20 20 50 52 4F ).. .. PRO
000110: 43 45 44 55 52 45 20 74 65 67 6E 62 61 6E 65 28 CEDURE tegnbane(
000120: 6E 72 20 3A 20 49 4E 54 45 47 45 52 29 3B 0D 0A nr : INTEGER);..
000130: 20 20 20 20 0D 0A 20 20 20 20 20 20 56 41 52 0D .. VAR.
000140: 0A 20 20 20 20 20 20 20 20 69 2C 20 6A 20 3A 20 . i, j :
000150: 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 INTEGER;..
000160: 0D 0A 20 20 20 20 20 20 42 45 47 49 4E 20 28 2A .. BEGIN (*
000170: 20 74 65 67 6E 62 61 6E 65 20 2A 29 0D 0A 20 20 tegnbane *)..
000180: 20 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 FOR i := 1
000190: 20 54 4F 20 31 37 20 44 4F 0D 0A 20 20 20 20 20 TO 17 DO..
0001A0: 20 20 20 20 20 46 4F 52 20 6A 20 3A 3D 20 31 20 FOR j := 1
0001B0: 54 4F 20 31 37 20 44 4F 0D 0A 20 20 20 20 20 20 TO 17 DO..
0001C0: 20 20 20 20 20 20 49 46 20 6E 72 20 3D 20 31 0D IF nr = 1.
0001D0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 . T
0001E0: 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 HEN..
0001F0: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
Size : 512 (Real : 512)
000000: 28 34 35 2C 20 31 30 29 3B 20 57 52 49 54 45 28 (45, 10); WRITE(
000010: 27 41 2E 20 41 66 73 6C 75 74 20 69 6E 64 74 61 'A. Afslut indta
000020: 73 74 6E 69 6E 67 27 29 3B 0D 0A 20 20 20 20 20 stning');..
000030: 20 47 4F 54 4F 58 59 28 34 35 2C 20 31 32 29 3B GOTOXY(45, 12);
000040: 20 57 52 49 54 45 28 27 5C 6E 73 6B 65 3A 20 3C WRITE('\nske: <
000050: 20 3E 27 29 3B 0D 0A 20 20 20 20 20 20 47 4F 54 >');.. GOT
000060: 4F 58 59 28 34 35 2C 20 31 34 29 3B 20 57 52 49 OXY(45, 14); WRI
000070: 54 45 28 27 50 6C 61 63 65 72 69 6E 67 3A 20 3C TE('Placering: <
000080: 20 20 3E 27 29 3B 0D 0A 20 20 20 20 20 20 52 45 >');.. RE
000090: 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20 47 4F PEAT.. GO
0000A0: 54 4F 58 59 28 35 33 2C 20 31 32 29 3B 20 57 52 TOXY(53, 12); WR
0000B0: 49 54 45 28 27 20 27 2C 20 43 48 52 28 38 29 29 ITE(' ', CHR(8))
0000C0: 3B 0D 0A 20 20 20 20 20 20 20 20 52 45 50 45 41 ;.. REPEA
0000D0: 54 0D 0A 20 20 20 20 20 20 20 20 20 20 52 45 41 T.. REA
0000E0: 44 28 4B 42 44 2C 20 63 68 29 3B 0D 0A 20 20 20 D(KBD, ch);..
0000F0: 20 20 20 20 20 55 4E 54 49 4C 20 63 68 20 49 4E UNTIL ch IN
000100: 20 28 2E 27 49 27 2C 20 27 69 27 2C 20 27 53 27 (.'I', 'i', 'S'
000110: 2C 20 27 73 27 2C 20 27 41 27 2C 20 27 61 27 2E , 's', 'A', 'a'.
000120: 29 3B 0D 0A 20 20 20 20 20 20 20 20 57 52 49 54 );.. WRIT
000130: 45 4C 4E 28 63 68 29 3B 0D 0A 20 20 20 20 20 20 ELN(ch);..
000140: 20 20 49 46 20 63 68 20 49 4E 20 28 2E 27 49 27 IF ch IN (.'I'
000150: 2C 20 27 69 27 2C 20 27 53 27 2C 20 27 73 27 2E , 'i', 'S', 's'.
000160: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 54 48 45 ).. THE
000170: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 N.. B
000180: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
000190: 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 REPEAT..
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F GOTO
0001B0: 58 59 28 35 37 2C 20 31 34 29 3B 20 57 52 49 54 XY(57, 14); WRIT
0001C0: 45 28 27 20 20 27 2C 20 43 48 52 28 38 29 2C 20 E(' ', CHR(8),
0001D0: 43 48 52 28 38 29 29 3B 0D 0A 20 20 20 20 20 20 CHR(8));..
0001E0: 20 20 20 20 20 20 20 20 20 20 42 55 46 4C 45 4E BUFLEN
0001F0: 20 3A 3D 20 32 3B 0D 0A 20 20 20 20 20 20 20 20 := 2;..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4F GO
000010: 54 4F 58 59 28 32 20 2A 20 69 2C 20 6A 20 2B 20 TOXY(2 * i, j +
000020: 33 29 3B 20 57 52 49 54 45 28 6E 79 67 65 6E 28 3); WRITE(nygen(
000030: 2E 69 2C 20 6A 2E 29 29 3B 0D 0A 20 20 20 20 20 .i, j.));..
000040: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 0D 0A END..
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4C EL
000060: 53 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 SE..
000070: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 GOT
000090: 4F 58 59 28 32 20 2A 20 69 20 2B 20 34 32 2C 20 OXY(2 * i + 42,
0000A0: 6A 20 2B 20 33 29 3B 20 57 52 49 54 45 28 6E 79 j + 3); WRITE(ny
0000B0: 67 65 6E 28 2E 69 2C 20 6A 2E 29 29 3B 0D 0A 20 gen(.i, j.));..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
0000D0: 4E 44 3B 0D 0A 20 20 20 20 20 20 45 4E 44 3B 20 ND;.. END;
0000E0: 28 2A 20 74 65 67 6E 62 61 6E 65 20 2A 29 0D 0A (* tegnbane *)..
0000F0: 20 20 20 20 0D 0A 20 20 20 20 42 45 47 49 4E 20 .. BEGIN
000100: 28 2A 20 6E 79 67 65 6E 65 72 61 74 69 6F 6E 20 (* nygeneration
000110: 2A 29 0D 0A 20 20 20 20 20 20 67 6C 67 65 6E 20 *).. glgen
000120: 3A 3D 20 6E 79 67 65 6E 3B 0D 0A 20 20 20 20 20 := nygen;..
000130: 20 74 65 67 6E 62 61 6E 65 28 32 29 3B 0D 0A 20 tegnbane(2);..
000140: 20 20 20 20 20 46 4F 52 20 78 20 3A 3D 20 31 20 FOR x := 1
000150: 54 4F 20 31 37 20 44 4F 0D 0A 20 20 20 20 20 20 TO 17 DO..
000160: 20 20 46 4F 52 20 79 20 3A 3D 20 31 20 54 4F 20 FOR y := 1 TO
000170: 31 37 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 17 DO..
000180: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 BEGIN..
000190: 20 20 20 20 61 6E 74 61 6C 20 3A 3D 20 6E 61 62 antal := nab
0001A0: 6F 28 78 2C 79 29 3B 0D 0A 20 20 20 20 20 20 20 o(x,y);..
0001B0: 20 20 20 20 20 43 41 53 45 20 61 6E 74 61 6C 20 CASE antal
0001C0: 4F 46 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 OF..
0001D0: 20 20 34 2C 20 35 2C 20 36 2C 20 37 2C 20 38 20 4, 5, 6, 7, 8
0001E0: 3A 20 6E 79 67 65 6E 28 2E 78 2C 20 79 2E 29 20 : nygen(.x, y.)
0001F0: 3A 3D 20 27 20 27 3B 0D 0A 20 20 20 20 20 20 20 := ' ';..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 52 45 41 44 28 70 6C 61 READ(pla
000010: 63 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 c);..
000020: 20 20 20 55 4E 54 49 4C 20 28 70 6C 61 63 28 2E UNTIL (plac(.
000030: 31 2E 29 20 49 4E 20 28 2E 27 61 27 20 2E 2E 20 1.) IN (.'a' ..
000040: 27 71 27 2E 29 29 20 41 4E 44 0D 0A 20 20 20 20 'q'.)) AND..
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 28 70 6C 61 63 28 2E 32 2E 29 20 49 4E 20 28 2E (plac(.2.) IN (.
000070: 27 41 27 20 2E 2E 20 27 51 27 2E 29 29 3B 0D 0A 'A' .. 'Q'.));..
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4F GO
000090: 54 4F 58 59 28 28 4F 52 44 28 70 6C 61 63 28 2E TOXY((ORD(plac(.
0000A0: 31 2E 29 29 20 2D 20 39 36 29 20 2A 20 32 2C 20 1.)) - 96) * 2,
0000B0: 4F 52 44 28 70 6C 61 63 28 2E 32 2E 29 29 20 2D ORD(plac(.2.)) -
0000C0: 20 36 31 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 61);..
0000D0: 20 20 20 20 20 49 46 20 63 68 20 49 4E 20 28 2E IF ch IN (.
0000E0: 27 49 27 2C 20 27 69 27 2E 29 0D 0A 20 20 20 20 'I', 'i'.)..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E THEN
000100: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000110: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 W
000130: 52 49 54 45 28 27 2A 27 29 3B 0D 0A 20 20 20 20 RITE('*');..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 6E 79 67 65 6E 28 2E 4F 52 44 28 70 6C 61 63 28 nygen(.ORD(plac(
000160: 2E 31 2E 29 29 20 2D 20 39 36 2C 20 4F 52 44 28 .1.)) - 96, ORD(
000170: 70 6C 61 63 28 2E 32 2E 29 29 20 2D 20 36 34 2E plac(.2.)) - 64.
000180: 29 20 3A 3D 20 27 2A 27 3B 0D 0A 20 20 20 20 20 ) := '*';..
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 END
0001A0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0001B0: 20 20 45 4C 53 45 0D 0A 20 20 20 20 20 20 20 20 ELSE..
0001C0: 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D BEGIN.
0001D0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0001E0: 20 20 20 20 20 57 52 49 54 45 28 27 20 27 29 3B WRITE(' ');
0001F0: 0D 0A 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 30 2C 20 31 2C 20 32 2C 20 0, 1, 2,
000010: 33 2C 20 34 20 3A 20 42 45 47 49 4E 0D 0A 20 20 3, 4 : BEGIN..
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 IF
000040: 20 28 67 6C 67 65 6E 28 2E 78 2C 20 79 2E 29 20 (glgen(.x, y.)
000050: 3D 20 27 20 27 29 20 41 4E 44 20 28 61 6E 74 61 = ' ') AND (anta
000060: 6C 20 3D 20 33 29 0D 0A 20 20 20 20 20 20 20 20 l = 3)..
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 54 48 45 4E 20 6E THEN n
000090: 79 67 65 6E 28 2E 78 2C 20 79 2E 29 20 3A 3D 20 ygen(.x, y.) :=
0000A0: 27 2A 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 '*';..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 20 20 20 20 20 49 46 20 28 67 6C 67 65 6E 28 IF (glgen(
0000D0: 2E 78 2C 20 79 2E 29 20 3D 20 27 2A 27 29 20 41 .x, y.) = '*') A
0000E0: 4E 44 20 28 28 61 6E 74 61 6C 20 3D 20 30 29 0D ND ((antal = 0).
0000F0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 20 20 20 20 4F 52 20 28 61 6E 74 61 6C 20 3D 20 OR (antal =
000120: 31 29 20 4F 52 20 28 61 6E 74 61 6C 20 3D 20 34 1) OR (antal = 4
000130: 29 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ))..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 20 20 20 54 48 45 4E 20 6E 79 67 65 6E THEN nygen
000160: 28 2E 78 2C 20 79 2E 29 20 3A 3D 20 27 20 27 3B (.x, y.) := ' ';
000170: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000190: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 END;..
0001A0: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 END;..
0001B0: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 47 4F END;.. GO
0001C0: 54 4F 58 59 28 32 36 2C 32 33 29 3B 20 57 52 49 TOXY(26,23); WRI
0001D0: 54 45 28 67 65 6E 65 72 61 74 69 6F 6E 29 3B 0D TE(generation);.
0001E0: 0A 20 20 20 20 20 20 74 65 67 6E 62 61 6E 65 28 . tegnbane(
0001F0: 31 29 3B 0D 0A 20 20 20 20 45 4E 44 3B 20 28 2A 1);.. END; (*
Size : 512 (Real : 512)
000000: 20 79 31 20 2D 20 61 20 2A 20 78 31 3B 0D 0A 20 y1 - a * x1;..
000010: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A BEGIN..
000020: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
000030: 45 28 27 4C 69 67 6E 69 6E 67 65 6E 20 66 6F 72 E('Ligningen for
000040: 20 6C 69 6E 69 65 6E 20 65 72 20 79 20 3D 20 27 linien er y = '
000050: 2C 20 61 20 3A 20 36 20 3A 20 32 2C 20 27 78 20 , a : 6 : 2, 'x
000060: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ');..
000070: 20 49 46 20 62 20 3E 20 30 0D 0A 20 20 20 20 20 IF b > 0..
000080: 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 57 52 THEN WR
000090: 49 54 45 4C 4E 28 27 2B 20 27 2C 20 62 20 3A 20 ITELN('+ ', b :
0000A0: 36 20 3A 20 32 29 0D 0A 20 20 20 20 20 20 20 20 6 : 2)..
0000B0: 20 20 20 20 20 20 45 4C 53 45 20 57 52 49 54 45 ELSE WRITE
0000C0: 4C 4E 28 62 20 3A 20 36 20 3A 20 32 29 3B 0D 0A LN(b : 6 : 2);..
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 20 20 45 4E 44 3B 0D 0A 20 20 END;..
0000F0: 20 20 45 4E 44 3B 20 28 2A 20 72 65 74 20 2A 29 END; (* ret *)
000100: 0D 0A 20 20 0D 0A 20 20 42 45 47 49 4E 20 28 2A .. .. BEGIN (*
000110: 20 6C 69 6E 69 65 20 2A 29 0D 0A 20 20 20 20 57 linie *).. W
000120: 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 RITE(CLRHOM);..
000130: 20 20 20 57 52 49 54 45 28 27 54 61 73 74 20 31 WRITE('Tast 1
000140: 2E 20 70 75 6E 6B 74 73 20 31 2E 20 6B 6F 6F 72 . punkts 1. koor
000150: 64 69 6E 61 74 3A 20 27 29 3B 20 52 45 41 44 4C dinat: '); READL
000160: 4E 28 78 31 29 3B 0D 0A 20 20 20 20 57 52 49 54 N(x1);.. WRIT
000170: 45 28 27 54 61 73 74 20 31 2E 20 70 75 6E 6B 74 E('Tast 1. punkt
000180: 73 20 32 2E 20 6B 6F 6F 72 64 69 6E 61 74 3A 20 s 2. koordinat:
000190: 27 29 3B 20 52 45 41 44 4C 4E 28 79 31 29 3B 0D '); READLN(y1);.
0001A0: 0A 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 . WRITE('Tast
0001B0: 20 32 2E 20 70 75 6E 6B 74 73 20 31 2E 20 6B 6F 2. punkts 1. ko
0001C0: 6F 72 64 69 6E 61 74 3A 20 27 29 3B 20 52 45 41 ordinat: '); REA
0001D0: 44 4C 4E 28 78 32 29 3B 0D 0A 20 20 20 20 57 52 DLN(x2);.. WR
0001E0: 49 54 45 28 27 54 61 73 74 20 32 2E 20 70 75 6E ITE('Tast 2. pun
0001F0: 6B 74 73 20 32 2E 20 6B 6F 6F 72 64 69 6E 61 74 kts 2. koordinat
Size : 512 (Real : 512)
000000: 20 6E 79 67 65 6E 65 72 61 74 69 6F 6E 20 2A 29 nygeneration *)
000010: 0D 0A 20 20 20 20 0D 0A 20 20 42 45 47 49 4E 20 .. .. BEGIN
000020: 28 2A 20 6C 69 66 65 20 2A 29 0D 0A 20 20 20 20 (* life *)..
000030: 69 6E 69 74 3B 0D 0A 20 20 20 20 47 4F 54 4F 58 init;.. GOTOX
000040: 59 28 31 31 2C 32 33 29 3B 20 57 52 49 54 45 28 Y(11,23); WRITE(
000050: 27 47 65 6E 65 72 61 74 69 6F 6E 20 6E 72 2E 20 'Generation nr.
000060: 31 27 29 3B 0D 0A 20 20 20 20 47 4F 54 4F 58 59 1');.. GOTOXY
000070: 28 34 37 2C 20 32 33 29 3B 20 57 52 49 54 45 28 (47, 23); WRITE(
000080: 27 45 6E 20 67 65 6E 65 72 61 74 69 6F 6E 20 6D 'En generation m
000090: 65 72 65 20 28 6A 2F 6E 29 3A 20 27 29 3B 0D 0A ere (j/n): ');..
0000A0: 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 REPEAT..
0000B0: 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 REPEAT..
0000C0: 20 20 47 4F 54 4F 58 59 28 37 33 2C 20 32 33 29 GOTOXY(73, 23)
0000D0: 3B 20 57 52 49 54 45 28 27 20 27 2C 20 43 48 52 ; WRITE(' ', CHR
0000E0: 28 38 29 29 3B 0D 0A 20 20 20 20 20 20 20 20 52 (8));.. R
0000F0: 45 41 44 28 4B 42 44 2C 20 63 68 29 3B 0D 0A 20 EAD(KBD, ch);..
000100: 20 20 20 20 20 55 4E 54 49 4C 20 63 68 20 49 4E UNTIL ch IN
000110: 20 28 2E 27 4A 27 2C 20 27 6A 27 2C 20 27 4E 27 (.'J', 'j', 'N'
000120: 2C 20 27 6E 27 2E 29 3B 0D 0A 20 20 20 20 20 20 , 'n'.);..
000130: 57 52 49 54 45 28 63 68 29 3B 0D 0A 20 20 20 20 WRITE(ch);..
000140: 20 20 49 46 20 63 68 20 49 4E 20 28 2E 27 4A 27 IF ch IN (.'J'
000150: 2C 20 27 6A 27 2E 29 0D 0A 20 20 20 20 20 20 20 , 'j'.)..
000160: 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 THEN..
000170: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 BEGIN..
000180: 20 20 20 20 67 65 6E 65 72 61 74 69 6F 6E 20 3A generation :
000190: 3D 20 67 65 6E 65 72 61 74 69 6F 6E 20 2B 20 31 = generation + 1
0001A0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 6E ;.. n
0001B0: 79 67 65 6E 65 72 61 74 69 6F 6E 3B 0D 0A 20 20 ygeneration;..
0001C0: 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 END;..
0001D0: 20 20 55 4E 54 49 4C 20 63 68 20 49 4E 20 28 2E UNTIL ch IN (.
0001E0: 27 4E 27 2C 20 27 6E 27 2E 29 3B 0D 0A 20 20 20 'N', 'n'.);..
0001F0: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 45 4E 44 WRITELN;.. END
Size : 512 (Real : 512)
000000: 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 79 32 29 : '); READLN(y2)
000010: 3B 0D 0A 20 20 20 20 72 65 74 28 78 31 2C 20 79 ;.. ret(x1, y
000020: 31 2C 20 78 32 2C 20 79 32 29 3B 0D 0A 20 20 45 1, x2, y2);.. E
000030: 4E 44 2E 20 28 2A 20 6C 69 6E 69 65 20 2A 29 0D ND. (* linie *).
000040: 0A 1A 64 69 6E 61 74 3A 20 27 29 3B 20 52 45 41 ..dinat: '); REA
000050: 44 4C 4E 28 78 32 29 3B 0D 0A 20 20 20 20 57 52 DLN(x2);.. WR
000060: 49 54 45 28 27 54 61 73 74 20 32 2E 20 70 75 6E ITE('Tast 2. pun
000070: 6B 74 73 20 32 2E 20 6B 6F 6F 72 64 69 6E 61 74 kts 2. koordinat
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: 2E 20 28 2A 20 6C 69 66 65 20 2A 29 0D 0A 1A 3A . (* life *)...:
000010: 3D 20 67 65 6E 65 72 61 74 69 6F 6E 20 2B 20 31 = generation + 1
000020: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 6E ;.. n
000030: 79 67 65 6E 65 72 61 74 69 6F 6E 3B 0D 0A 20 20 ygeneration;..
000040: 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 END;..
000050: 20 20 55 4E 54 49 4C 20 63 68 20 49 4E 20 28 2E UNTIL ch IN (.
000060: 27 4E 27 2C 20 27 6E 27 2E 29 3B 0D 0A 20 20 20 'N', 'n'.);..
000070: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 45 4E 44 WRITELN;.. 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: 45 47 31 4A 48 4B 1A 78 1B AF 7D 35 52 50 0A 56 EG1JHK.x..}5RP.V
000010: 54 58 2B 3F 5B 5D 5E 1C F0 0C 60 62 66 64 67 19 TX+?[]^...`bfdg.
000020: 80 6A 6C CB 6D 6E 05 73 75 E6 77 78 FD 79 7A 7D .jl.mn.su.wx.yz}
000030: 80 C0 82 83 B4 85 0E 88 8B 11 2A 8D 09 90 92 23 ..........*....#
000040: 77 94 96 30 98 9B 9C 9D 9E 9F ED A1 A3 A4 03 21 w..0...........!
000050: A7 A9 AB AD AF B1 32 B3 B5 B6 DD B9 BB FF BE C0 ......2.........
000060: C2 C3 C5 C7 C9 CA CC CE D0 D1 D3 D4 D5 D7 D9 DB ................
000070: DD DF E1 E3 E5 E7 E9 EB ED 00 F0 F2 F4 F6 F8 FA ................
000080: FC FF ED FE FF 9F 9B BF E7 9E 38 F3 9A 76 11 9D ..........8..v..
000090: 1B B0 93 1A 58 C1 61 20 4C 4F 28 0A 02 22 C0 00 ....X.a LO(.."..
0000A0: 01 F7 EF FF 7D CF DF FF F6 DB 1D F3 DF 53 9D 5D ....}........S.]
0000B0: DC 8F C8 C7 06 49 21 29 A6 40 8C 08 90 00 00 01 .....I!).@......
0000C0: 01 E4 90 E1 8C 12 C0 AD C1 6E 53 39 D8 79 57 4F .........nS9.yWO
0000D0: 1C 1E BB 7B C7 18 1A 47 95 68 4E 03 F2 F6 A2 62 ...{...G.hN....b
0000E0: 20 7C E6 C4 5E 5C 0C 8B CF 81 D8 99 8B 7B F1 31 |..^\.......{.1
0000F0: 10 3E 73 62 2F 2E 06 C5 67 40 EC CC C5 BD F8 18 .>sb/...g@......
000100: 88 9F B9 B1 17 17 03 E2 33 20 F6 E6 62 5E 7C 0C ........3 ..b^|.
000110: C4 CF 5C CD B9 14 8B 7A 05 17 9D 59 A8 15 01 D0 ..\....z...Y....
000120: 28 D4 8B F3 0E 7A A2 2C F6 A4 4B 03 9C 97 21 20 (....z.,..K...!
000130: A2 8B D7 D6 12 35 B2 54 B1 B1 8F 22 D4 4D F3 6D .....5.T...".M.m
000140: 3F 0A 68 09 F5 10 72 B1 6C 46 C4 3D C6 1D AC 60 ?.h...r.lF.=...`
000150: ED 8F 2E D2 4D 39 F5 F0 35 33 22 23 B5 10 E0 1E ....M9..53"#....
000160: EC 88 34 C1 1C 48 E3 CC 81 34 1E 1C 88 FA 92 CA ..4..H...4......
000170: 56 08 2D 06 BD FB 29 40 6B A9 57 CE 20 58 52 A9 V.-...)@k.W. XR.
000180: 75 16 A0 86 85 60 A0 B6 27 F2 FC 03 BA F1 44 52 u....`..'.....DR
000190: 6B 0D C8 3D 16 20 46 27 7D 69 89 0E FF B0 A4 7F k..=. F'}i......
0001A0: EA 82 C3 AA 00 4E 5A 47 21 0C 5E 04 33 17 A1 64 .....NZG!.^.3..d
0001B0: B1 A4 6B 01 9C CB 68 C9 DD C8 62 C5 D6 3E 52 50 ..k...h...b..>RP
0001C0: C7 F3 97 0F F8 CD 6E D0 34 68 4B F4 0A D2 35 B7 ......n.4hK...5.
0001D0: A9 40 40 C5 59 80 3B 20 5A 03 56 EC 63 A1 75 AF .@@.Y.; Z.V.c.u.
0001E0: 02 77 FC 7E 4E 5F F8 11 DA 37 D3 21 D3 55 58 6C .w.~N_...7.!.UXl
0001F0: 6A C2 07 4A D2 AF 27 F2 51 97 4B 50 50 86 AA 20 j..J..'.Q.KPP..
Size : 512 (Real : 512)
000000: 97 0E F3 72 93 3F 3A 30 81 81 44 DD 73 49 C1 9F ...r.?:0..D.sI..
000010: 46 44 17 44 82 1D BA 97 F8 CD 9B 89 20 9B 82 B6 FD.D........ ...
000020: 3F 22 DA 97 A7 DE E7 C1 EF 67 B9 A2 C4 03 04 82 ?".......g......
000030: 17 A2 F6 40 D1 85 EE D2 64 5E 4C FE 37 EF 03 EC ...@....d^L.7...
000040: 88 BA 2C 09 0B 76 18 AB F8 13 89 28 02 70 61 26 ..,..v.....(.pa&
000050: 9E 79 22 5E 1D 22 FB 93 12 D6 B6 01 86 8E D6 C8 .y"^."..........
000060: 68 D1 7F 42 C9 10 96 79 B2 03 E9 66 03 10 99 BA h..B...y...f....
000070: 01 D2 2D D8 FC A0 EC 80 D6 16 26 02 EC 60 51 17 ..-.......&..`Q.
000080: 3A 13 2F 40 29 88 C6 79 C0 B7 4B 96 00 29 90 C6 :./@)..y..K..)..
000090: C3 83 97 A8 44 9A 91 F2 58 10 3B 30 98 A9 96 1D ....D...X.;0....
0000A0: 05 BB 0B B4 50 E0 60 07 B0 B6 1E 11 FE 2D 41 0A ....P.`......-A.
0000B0: 99 A8 D0 9D E1 A5 E5 37 B2 F6 B2 35 01 34 D2 BB .......7...5.4..
0000C0: E6 00 15 90 A0 7D 6D 0D 01 0F B0 AD 6B 37 AD 41 .....}m.....k7.A
0000D0: 01 DC 07 F0 E0 DA 5B 03 37 DE 00 37 B8 7E 28 06 ......[.7..7.~(.
0000E0: 6F F8 A6 46 DD 0D B1 BB E9 B8 D6 00 D1 EE B7 3B o..F...........;
0000F0: 06 70 EE 80 50 8C FD 01 0D D8 3C 6D F6 41 44 83 .p..P.....<m.AD.
000100: 10 D1 9B 6B 04 B0 B5 56 40 7E D2 88 6D F8 1B 68 ...k...V@~..m..h
000110: 50 BD D7 3E 90 92 B5 0F 2C A2 78 7F 33 27 33 A4 P..>....,.x.3'3.
000120: AB 30 20 C2 DA 62 6D 81 C1 08 EA FD 39 F8 34 70 .0 ..bm.....9.4p
000130: 1E 45 03 52 BD 76 5B 95 2D 66 65 57 72 21 B4 21 .E.R.v[.-feWr!.!
000140: 90 AA 3E 18 F5 D6 6B 90 58 F4 EA 17 33 28 C0 AF ..>...k.X...3(..
000150: B6 E6 BF 03 02 A9 68 CB EF 00 6D 96 AA 06 52 96 ......h...m...R.
000160: AA 1F D5 CF 2F 7E A6 35 3A 17 1C E0 1D 80 AC 28 ..../~.5:......(
000170: 1A C0 0B D3 C0 57 62 E4 CD C5 A2 F0 29 9B C5 01 .....Wb.....)...
000180: 04 11 AD 55 15 70 AA 6F 78 F1 E5 43 03 52 EB C7 ...U.p.ox..C.R..
000190: F6 8B 80 2C 61 8A 5C E3 80 5F EE 80 9B AB 68 A7 ...,a.\.._....h.
0001A0: BC 46 65 6E 5E A8 78 31 2A BF E4 DE 7B B9 5B 5C .Fen^.x1*...{.[\
0001B0: 52 D5 BF FC 71 31 29 56 F9 7F 13 57 D1 5B 79 D9 R...q1)V...W.[y.
0001C0: AB B5 7B 8B 29 C5 62 48 AF AA A9 52 55 0C 58 6F ..{.).bH...RU.Xo
0001D0: 4A BD F9 55 25 57 DD 53 4A 21 0A E2 4A 29 54 29 J..U%W.SJ!..J)T)
0001E0: 29 AE 64 45 A5 40 52 20 C2 95 0A C4 8A 52 87 F4 ).dE.@R .....R..
0001F0: E5 BE FB 8A FB 92 FD EA E5 EF C8 BD AB B7 A8 F7 ................
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
000010: 6C 6F 6E 67 61 64 64 3B 0D 0A 20 20 20 20 20 20 longadd;..
000020: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 43 4F .. CO
000030: 4E 53 54 0D 0A 20 20 20 20 20 20 20 20 20 20 20 NST..
000040: 20 6D 61 78 6C 61 65 6E 67 64 65 20 3D 20 31 32 maxlaengde = 12
000050: 3B 0D 0A 20 20 20 20 20 20 20 20 0D 0A 20 20 20 ;.. ..
000060: 20 20 20 20 20 20 20 54 59 50 45 0D 0A 20 20 20 TYPE..
000070: 20 20 20 20 20 20 20 20 20 63 69 66 72 65 20 3D cifre =
000080: 20 30 20 2E 2E 20 39 3B 0D 0A 20 20 20 20 20 20 0 .. 9;..
000090: 20 20 20 20 20 20 76 65 6B 74 6F 72 20 3D 20 41 vektor = A
0000A0: 52 52 41 59 28 2E 30 20 2E 2E 20 6D 61 78 6C 61 RRAY(.0 .. maxla
0000B0: 65 6E 67 64 65 2E 29 20 4F 46 20 63 69 66 72 65 engde.) OF cifre
0000C0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 6D ;.. m
0000D0: 61 78 73 74 72 65 6E 67 20 3D 20 53 54 52 49 4E axstreng = STRIN
0000E0: 47 28 2E 6D 61 78 6C 61 65 6E 67 64 65 2E 29 3B G(.maxlaengde.);
0000F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 .. ..
000100: 20 20 20 20 20 20 20 20 56 41 52 0D 0A 20 20 20 VAR..
000110: 20 20 20 20 20 20 20 20 20 73 74 72 65 6E 67 31 streng1
000120: 2C 20 73 74 72 65 6E 67 32 20 3A 20 6D 61 78 73 , streng2 : maxs
000130: 74 72 65 6E 67 3B 0D 0A 20 20 20 20 20 20 20 20 treng;..
000140: 20 20 20 20 76 31 2C 20 76 32 2C 20 76 33 20 3A v1, v2, v3 :
000150: 20 76 65 6B 74 6F 72 3B 0D 0A 20 20 20 20 20 20 vektor;..
000160: 20 20 20 20 20 20 69 2C 20 6A 2C 20 73 75 6D 2C i, j, sum,
000170: 20 6D 65 6E 74 65 20 3A 20 49 4E 54 45 47 45 52 mente : INTEGER
000180: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 ;.. ..
000190: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A BEGIN..
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
0001B0: 45 28 43 48 52 28 31 32 29 2C 20 27 54 61 73 74 E(CHR(12), 'Tast
0001C0: 20 31 2E 20 74 61 6C 20 28 6D 61 78 20 27 2C 6D 1. tal (max ',m
0001D0: 61 78 6C 61 65 6E 67 64 65 2C 20 27 20 63 69 66 axlaengde, ' cif
0001E0: 72 65 29 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 re): ');..
0001F0: 20 20 20 20 20 20 42 55 46 4C 45 4E 20 3A 3D 20 BUFLEN :=
Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 6C 69 6E 69 65 3B 0D 0A PROGRAM linie;..
000010: 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 78 31 2C .. VAR.. x1,
000020: 20 79 31 2C 20 78 32 2C 20 79 32 20 3A 20 52 45 y1, x2, y2 : RE
000030: 41 4C 3B 0D 0A 20 20 0D 0A 20 20 50 52 4F 43 45 AL;.. .. PROCE
000040: 44 55 52 45 20 72 65 74 28 78 31 2C 20 79 31 2C DURE ret(x1, y1,
000050: 20 78 32 2C 20 79 32 20 3A 20 52 45 41 4C 29 3B x2, y2 : REAL);
000060: 0D 0A 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A 20 .. .. VAR..
000070: 20 20 20 20 20 61 2C 20 62 20 3A 20 52 45 41 4C a, b : REAL
000080: 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 42 45 47 ;.. .. BEG
000090: 49 4E 20 28 2A 20 72 65 74 20 2A 29 0D 0A 20 20 IN (* ret *)..
0000A0: 20 20 20 20 49 46 20 28 78 31 20 3D 20 78 32 29 IF (x1 = x2)
0000B0: 20 41 4E 44 20 28 79 31 20 3D 20 79 32 29 20 0D AND (y1 = y2) .
0000C0: 0A 20 20 20 20 20 20 20 20 54 48 45 4E 20 57 52 . THEN WR
0000D0: 49 54 45 4C 4E 28 27 44 65 20 74 6F 20 70 75 6E ITELN('De to pun
0000E0: 6B 74 65 72 20 65 72 20 73 61 6D 6D 65 6E 66 61 kter er sammenfa
0000F0: 6C 64 65 6E 64 65 27 29 0D 0A 20 20 20 20 20 20 ldende')..
000100: 45 4C 53 45 20 49 46 20 28 78 31 20 3D 20 78 32 ELSE IF (x1 = x2
000110: 29 0D 0A 20 20 20 20 20 20 20 20 54 48 45 4E 20 ).. THEN
000120: 57 52 49 54 45 4C 4E 28 27 4C 69 67 6E 69 6E 67 WRITELN('Ligning
000130: 65 6E 20 66 6F 72 20 6C 69 6E 69 65 6E 20 65 72 en for linien er
000140: 20 78 20 3D 20 27 2C 20 78 31 20 3A 20 36 20 3A x = ', x1 : 6 :
000150: 20 32 29 0D 0A 20 20 20 20 20 20 45 4C 53 45 20 2).. ELSE
000160: 49 46 20 28 79 31 20 3D 20 79 32 29 0D 0A 20 20 IF (y1 = y2)..
000170: 20 20 20 20 20 20 54 48 45 4E 20 57 52 49 54 45 THEN WRITE
000180: 4C 4E 28 27 4C 69 67 6E 69 6E 67 65 6E 20 66 6F LN('Ligningen fo
000190: 72 20 6C 69 6E 69 65 6E 20 65 72 20 79 20 3D 20 r linien er y =
0001A0: 27 2C 20 79 31 20 3A 20 36 20 3A 20 32 29 0D 0A ', y1 : 6 : 2)..
0001B0: 20 20 20 20 20 20 45 4C 53 45 0D 0A 20 20 20 20 ELSE..
0001C0: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
0001D0: 20 20 20 20 20 61 20 3A 3D 20 28 79 32 20 2D 20 a := (y2 -
0001E0: 79 31 29 20 2F 20 28 78 32 20 2D 20 78 31 29 3B y1) / (x2 - x1);
0001F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 62 20 3A 3D .. b :=
Size : 512 (Real : 512)
000000: 6D 61 78 6C 61 65 6E 67 64 65 3B 0D 0A 20 20 20 maxlaengde;..
000010: 20 20 20 20 20 20 20 20 20 52 45 41 44 4C 4E 28 READLN(
000020: 73 74 72 65 6E 67 31 29 3B 0D 0A 20 20 20 20 20 streng1);..
000030: 20 20 20 20 20 20 20 57 52 49 54 45 28 27 54 61 WRITE('Ta
000040: 73 74 20 32 2E 20 74 61 6C 20 28 6D 61 78 20 27 st 2. tal (max '
000050: 2C 6D 61 78 6C 61 65 6E 67 64 65 2C 20 27 20 63 ,maxlaengde, ' c
000060: 69 66 72 65 29 3A 20 27 29 3B 0D 0A 20 20 20 20 ifre): ');..
000070: 20 20 20 20 20 20 20 20 42 55 46 4C 45 4E 20 3A BUFLEN :
000080: 3D 20 6D 61 78 6C 61 65 6E 67 64 65 3B 0D 0A 20 = maxlaengde;..
000090: 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 4C READL
0000A0: 4E 28 73 74 72 65 6E 67 32 29 3B 0D 0A 20 20 20 N(streng2);..
0000B0: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
0000C0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 57 ;.. W
0000D0: 52 49 54 45 4C 4E 28 73 74 72 65 6E 67 31 3A 6D RITELN(streng1:m
0000E0: 61 78 6C 61 65 6E 67 64 65 20 2B 31 30 29 3B 0D axlaengde +10);.
0000F0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 46 4F 52 . FOR
000100: 20 69 20 3A 3D 20 31 20 54 4F 20 6D 61 78 6C 61 i := 1 TO maxla
000110: 65 6E 67 64 65 20 2B 20 37 20 2D 20 4C 45 4E 28 engde + 7 - LEN(
000120: 73 74 72 65 6E 67 32 29 20 44 4F 0D 0A 20 20 20 streng2) DO..
000130: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
000140: 28 27 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 (' ');..
000150: 20 20 20 20 57 52 49 54 45 4C 4E 28 27 20 2B 20 WRITELN(' +
000160: 27 2C 20 73 74 72 65 6E 67 32 29 3B 0D 0A 20 20 ', streng2);..
000170: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 WRITE(
000180: 27 20 20 20 20 20 20 20 20 20 20 27 29 3B 0D 0A ' ');..
000190: 20 20 20 20 20 20 20 20 20 20 20 20 46 4F 52 20 FOR
0001A0: 69 20 3A 3D 20 31 20 54 4F 20 6D 61 78 6C 61 65 i := 1 TO maxlae
0001B0: 6E 67 64 65 20 44 4F 0D 0A 20 20 20 20 20 20 20 ngde DO..
0001C0: 20 20 20 20 20 20 20 57 52 49 54 45 28 27 2D 27 WRITE('-'
0001D0: 29 3B 0D 0A 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 46 4F 52 20 69 20 3A 3D 20 4C FOR i := L
Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 6C 6F 6E 67 6D 75 6C 74 PROGRAM longmult
000010: 3B 0D 0A 20 20 0D 0A 20 20 43 4F 4E 53 54 0D 0A ;.. .. CONST..
000020: 20 20 20 20 6D 61 78 6C 61 65 6E 67 64 65 20 3D maxlaengde =
000030: 20 31 32 3B 0D 0A 20 20 20 20 64 6F 62 62 65 6C 12;.. dobbel
000040: 74 6D 61 78 20 3D 20 32 34 3B 0D 0A 20 20 20 20 tmax = 24;..
000050: 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 20 63 69 .. TYPE.. ci
000060: 66 72 65 20 3D 20 30 20 2E 2E 20 39 3B 0D 0A 20 fre = 0 .. 9;..
000070: 20 20 20 6C 69 6C 6C 65 76 65 6B 74 6F 72 20 3D lillevektor =
000080: 20 41 52 52 41 59 28 2E 31 20 2E 2E 20 6D 61 78 ARRAY(.1 .. max
000090: 6C 61 65 6E 67 64 65 2E 29 20 4F 46 20 63 69 66 laengde.) OF cif
0000A0: 72 65 3B 0D 0A 20 20 20 20 73 74 6F 72 76 65 6B re;.. storvek
0000B0: 74 6F 72 20 3D 20 41 52 52 41 59 28 2E 31 20 2E tor = ARRAY(.1 .
0000C0: 2E 20 64 6F 62 62 65 6C 74 6D 61 78 2E 29 20 4F . dobbeltmax.) O
0000D0: 46 20 63 69 66 72 65 3B 0D 0A 20 20 20 20 73 74 F cifre;.. st
0000E0: 72 20 3D 20 53 54 52 49 4E 47 28 2E 6D 61 78 6C r = STRING(.maxl
0000F0: 61 65 6E 67 64 65 2E 29 3B 0D 0A 20 20 20 20 0D aengde.);.. .
000100: 0A 20 20 56 41 52 0D 0A 20 20 20 20 73 31 2C 20 . VAR.. s1,
000110: 73 32 20 3A 20 73 74 72 3B 0D 0A 20 20 20 20 76 s2 : str;.. v
000120: 31 2C 20 76 32 20 3A 20 6C 69 6C 6C 65 76 65 6B 1, v2 : lillevek
000130: 74 6F 72 3B 0D 0A 20 20 20 20 76 2C 20 77 20 3A tor;.. v, w :
000140: 20 73 74 6F 72 76 65 6B 74 6F 72 3B 0D 0A 20 20 storvektor;..
000150: 20 20 69 2C 20 6A 2C 20 6B 2C 20 6C 2C 20 6D 65 i, j, k, l, me
000160: 6E 74 65 2C 20 61 64 64 6D 65 6E 74 65 2C 20 70 nte, addmente, p
000170: 72 6F 64 75 6B 74 2C 20 73 75 6D 20 3A 20 49 4E rodukt, sum : IN
000180: 54 45 47 45 52 3B 0D 0A 20 20 0D 0A 20 20 42 45 TEGER;.. .. BE
000190: 47 49 4E 0D 0A 20 20 20 20 57 52 49 54 45 28 43 GIN.. WRITE(C
0001A0: 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 57 52 49 LRHOM);.. WRI
0001B0: 54 45 28 27 54 61 73 74 20 31 2E 20 66 61 6B 74 TE('Tast 1. fakt
0001C0: 6F 72 20 28 6D 61 78 20 27 2C 20 6D 61 78 6C 61 or (max ', maxla
0001D0: 65 6E 67 64 65 2C 20 27 20 63 69 66 72 65 29 3A engde, ' cifre):
0001E0: 20 27 29 3B 0D 0A 20 20 20 20 42 55 46 4C 45 4E ');.. BUFLEN
0001F0: 20 3A 3D 20 6D 61 78 6C 61 65 6E 67 64 65 3B 0D := maxlaengde;.
Size : 512 (Real : 512)
000000: 45 4E 28 73 74 72 65 6E 67 31 29 20 2B 20 31 20 EN(streng1) + 1
000010: 54 4F 20 6D 61 78 6C 61 65 6E 67 64 65 20 44 4F TO maxlaengde DO
000020: 20 28 2A 20 46 79 6C 64 20 6F 70 20 6D 65 64 20 (* Fyld op med
000030: 30 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 0 *)..
000040: 20 20 20 20 73 74 72 65 6E 67 31 20 3A 3D 20 27 streng1 := '
000050: 30 27 20 2B 20 73 74 72 65 6E 67 31 3B 0D 0A 20 0' + streng1;..
000060: 20 20 20 20 20 20 20 20 20 20 20 46 4F 52 20 69 FOR i
000070: 20 3A 3D 20 4C 45 4E 28 73 74 72 65 6E 67 32 29 := LEN(streng2)
000080: 20 2B 20 31 20 54 4F 20 6D 61 78 6C 61 65 6E 67 + 1 TO maxlaeng
000090: 64 65 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 de DO..
0000A0: 20 20 20 20 20 73 74 72 65 6E 67 32 20 3A 3D 20 streng2 :=
0000B0: 27 30 27 20 2B 20 73 74 72 65 6E 67 32 3B 0D 0A '0' + streng2;..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 46 4F 52 20 FOR
0000D0: 69 20 3A 3D 20 31 20 54 4F 20 6D 61 78 6C 61 65 i := 1 TO maxlae
0000E0: 6E 67 64 65 20 44 4F 20 28 2A 20 54 61 6C 6C 65 ngde DO (* Talle
0000F0: 6E 65 20 6F 76 65 72 66 7C 72 65 73 20 74 69 6C ne overf|res til
000100: 20 76 31 20 6F 67 20 76 32 20 2A 29 0D 0A 20 20 v1 og v2 *)..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 76 31 28 2E v1(.
000120: 69 2E 29 20 3A 3D 20 4F 52 44 28 73 74 72 65 6E i.) := ORD(stren
000130: 67 31 28 2E 69 2E 29 29 20 2D 20 4F 52 44 28 27 g1(.i.)) - ORD('
000140: 30 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0');..
000150: 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F 20 FOR i := 1 TO
000160: 6D 61 78 6C 61 65 6E 67 64 65 20 44 4F 0D 0A 20 maxlaengde DO..
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 76 32 28 v2(
000180: 2E 69 2E 29 20 3A 3D 20 4F 52 44 28 73 74 72 65 .i.) := ORD(stre
000190: 6E 67 32 28 2E 69 2E 29 29 20 2D 20 4F 52 44 28 ng2(.i.)) - ORD(
0001A0: 27 30 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 '0');..
0001B0: 20 20 20 6D 65 6E 74 65 20 3A 3D 20 30 3B 0D 0A mente := 0;..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 46 4F 52 20 FOR
0001D0: 69 20 3A 3D 20 6D 61 78 6C 61 65 6E 67 64 65 20 i := maxlaengde
0001E0: 44 4F 57 4E 54 4F 20 31 20 44 4F 20 28 2A 20 54 DOWNTO 1 DO (* T
0001F0: 61 6C 6C 65 6E 65 20 61 64 64 65 72 65 73 20 2A allene adderes *
Size : 512 (Real : 512)
000000: 0A 20 20 20 20 52 45 41 44 4C 4E 28 73 31 29 3B . READLN(s1);
000010: 0D 0A 20 20 20 20 49 46 20 73 31 20 3D 20 27 27 .. IF s1 = ''
000020: 0D 0A 20 20 20 20 20 20 54 48 45 4E 20 73 31 20 .. THEN s1
000030: 3A 3D 20 27 30 27 3B 0D 0A 20 20 20 20 57 52 49 := '0';.. WRI
000040: 54 45 28 27 54 61 73 74 20 32 2E 20 66 61 6B 74 TE('Tast 2. fakt
000050: 6F 72 20 28 6D 61 78 20 27 2C 20 6D 61 78 6C 61 or (max ', maxla
000060: 65 6E 67 64 65 2C 20 27 20 63 69 66 72 65 29 3A engde, ' cifre):
000070: 20 27 29 3B 0D 0A 20 20 20 20 42 55 46 4C 45 4E ');.. BUFLEN
000080: 20 3A 3D 20 6D 61 78 6C 61 65 6E 67 64 65 3B 0D := maxlaengde;.
000090: 0A 20 20 20 20 52 45 41 44 4C 4E 28 73 32 29 3B . READLN(s2);
0000A0: 0D 0A 20 20 20 20 49 46 20 73 32 20 3D 20 27 27 .. IF s2 = ''
0000B0: 0D 0A 20 20 20 20 20 20 54 48 45 4E 20 73 32 20 .. THEN s2
0000C0: 3A 3D 20 27 30 27 3B 0D 0A 20 20 20 20 57 52 49 := '0';.. WRI
0000D0: 54 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 TELN;.. WRITE
0000E0: 28 73 31 2C 20 27 20 2A 20 27 2C 20 73 32 2C 20 (s1, ' * ', s2,
0000F0: 27 20 3D 20 27 29 3B 0D 0A 20 20 20 20 46 4F 52 ' = ');.. FOR
000100: 20 69 20 3A 3D 20 4C 45 4E 28 73 31 29 20 2B 20 i := LEN(s1) +
000110: 31 20 54 4F 20 6D 61 78 6C 61 65 6E 67 64 65 20 1 TO maxlaengde
000120: 44 4F 0D 0A 20 20 20 20 20 20 73 31 20 3A 3D 20 DO.. s1 :=
000130: 27 30 27 20 2B 20 73 31 3B 0D 0A 20 20 20 20 46 '0' + s1;.. F
000140: 4F 52 20 69 20 3A 3D 20 4C 45 4E 28 73 32 29 20 OR i := LEN(s2)
000150: 2B 20 31 20 54 4F 20 6D 61 78 6C 61 65 6E 67 64 + 1 TO maxlaengd
000160: 65 20 44 4F 0D 0A 20 20 20 20 20 20 73 32 20 3A e DO.. s2 :
000170: 3D 20 27 30 27 20 2B 20 73 32 3B 0D 0A 20 20 20 = '0' + s2;..
000180: 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F 20 6D FOR i := 1 TO m
000190: 61 78 6C 61 65 6E 67 64 65 20 44 4F 0D 0A 20 20 axlaengde DO..
0001A0: 20 20 20 20 76 31 28 2E 69 2E 29 20 3A 3D 20 4F v1(.i.) := O
0001B0: 52 44 28 73 31 28 2E 69 2E 29 29 20 2D 20 4F 52 RD(s1(.i.)) - OR
0001C0: 44 28 27 30 27 29 3B 0D 0A 20 20 20 20 46 4F 52 D('0');.. FOR
0001D0: 20 69 20 3A 3D 20 31 20 54 4F 20 6D 61 78 6C 61 i := 1 TO maxla
0001E0: 65 6E 67 64 65 20 44 4F 0D 0A 20 20 20 20 20 20 engde DO..
0001F0: 76 32 28 2E 69 2E 29 20 3A 3D 20 4F 52 44 28 73 v2(.i.) := ORD(s
Size : 512 (Real : 512)
000000: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 )..
000010: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 BEGIN..
000020: 20 20 20 20 20 20 20 20 73 75 6D 20 3A 3D 20 76 sum := v
000030: 31 28 2E 69 2E 29 20 2B 20 76 32 28 2E 69 2E 29 1(.i.) + v2(.i.)
000040: 20 2B 20 6D 65 6E 74 65 3B 0D 0A 20 20 20 20 20 + mente;..
000050: 20 20 20 20 20 20 20 20 20 20 20 76 33 28 2E 69 v3(.i
000060: 2E 29 20 3A 3D 20 73 75 6D 20 4D 4F 44 20 31 30 .) := sum MOD 10
000070: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
000080: 20 20 20 6D 65 6E 74 65 20 3A 3D 20 73 75 6D 20 mente := sum
000090: 44 49 56 20 31 30 3B 0D 0A 20 20 20 20 20 20 20 DIV 10;..
0000A0: 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 END;..
0000B0: 20 20 20 20 20 20 20 20 20 76 33 28 2E 30 2E 29 v3(.0.)
0000C0: 20 3A 3D 20 6D 65 6E 74 65 3B 0D 0A 20 20 20 20 := mente;..
0000D0: 20 20 20 20 20 20 20 20 46 4F 52 20 69 20 3A 3D FOR i :=
0000E0: 20 31 20 54 4F 20 39 20 44 4F 0D 0A 20 20 20 20 1 TO 9 DO..
0000F0: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 WRITE(
000100: 27 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 ' ');..
000110: 20 20 20 6A 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 j := 0;..
000120: 20 20 20 20 20 20 20 20 57 48 49 4C 45 20 28 76 WHILE (v
000130: 33 28 2E 6A 2E 29 20 3D 20 30 29 20 41 4E 44 20 3(.j.) = 0) AND
000140: 28 6A 20 3C 20 6D 61 78 6C 61 65 6E 67 64 65 29 (j < maxlaengde)
000150: 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 DO..
000160: 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 BEGIN..
000170: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 WRITE(
000180: 27 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 ' ');..
000190: 20 20 20 20 20 20 20 6A 20 3A 3D 20 6A 20 2B 20 j := j +
0001A0: 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 1;..
0001B0: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 END;..
0001C0: 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 6A 20 54 FOR i := j T
0001D0: 4F 20 6D 61 78 6C 61 65 6E 67 64 65 20 44 4F 0D O maxlaengde DO.
0001E0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 . W
0001F0: 52 49 54 45 28 76 33 28 2E 69 2E 29 29 3B 0D 0A RITE(v3(.i.));..
Size : 512 (Real : 512)
000000: 32 28 2E 69 2E 29 29 20 2D 20 4F 52 44 28 27 30 2(.i.)) - ORD('0
000010: 27 29 3B 0D 0A 20 20 20 20 46 4F 52 20 6B 20 3A ');.. FOR k :
000020: 3D 20 31 20 54 4F 20 64 6F 62 62 65 6C 74 6D 61 = 1 TO dobbeltma
000030: 78 20 44 4F 0D 0A 20 20 20 20 20 20 76 28 2E 6B x DO.. v(.k
000040: 2E 29 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 46 4F .) := 0;.. FO
000050: 52 20 69 20 3A 3D 20 6D 61 78 6C 61 65 6E 67 64 R i := maxlaengd
000060: 65 20 44 4F 57 4E 54 4F 20 31 20 44 4F 0D 0A 20 e DOWNTO 1 DO..
000070: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
000080: 20 20 20 20 6D 65 6E 74 65 20 3A 3D 20 30 3B 0D mente := 0;.
000090: 0A 20 20 20 20 20 20 20 20 46 4F 52 20 6B 20 3A . FOR k :
0000A0: 3D 20 31 20 54 4F 20 64 6F 62 62 65 6C 74 6D 61 = 1 TO dobbeltma
0000B0: 78 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 x DO..
0000C0: 77 28 2E 6B 2E 29 20 3A 3D 20 30 3B 0D 0A 20 20 w(.k.) := 0;..
0000D0: 20 20 20 20 20 20 6B 20 3A 3D 20 6D 61 78 6C 61 k := maxla
0000E0: 65 6E 67 64 65 20 2B 20 31 20 2B 20 69 3B 0D 0A engde + 1 + i;..
0000F0: 20 20 20 20 20 20 20 20 46 4F 52 20 6A 20 3A 3D FOR j :=
000100: 20 6D 61 78 6C 61 65 6E 67 64 65 20 44 4F 57 4E maxlaengde DOWN
000110: 54 4F 20 31 20 44 4F 0D 0A 20 20 20 20 20 20 20 TO 1 DO..
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 6B 20 3A 3D 20 6B 20 2D 20 31 k := k - 1
000140: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 70 ;.. p
000150: 72 6F 64 75 6B 74 20 3A 3D 20 76 31 28 2E 69 2E rodukt := v1(.i.
000160: 29 20 2A 20 76 32 28 2E 6A 2E 29 20 2B 20 6D 65 ) * v2(.j.) + me
000170: 6E 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 nte;..
000180: 20 20 77 28 2E 6B 2E 29 20 3A 3D 20 70 72 6F 64 w(.k.) := prod
000190: 75 6B 74 20 4D 4F 44 20 31 30 3B 0D 0A 20 20 20 ukt MOD 10;..
0001A0: 20 20 20 20 20 20 20 20 20 6D 65 6E 74 65 20 3A mente :
0001B0: 3D 20 70 72 6F 64 75 6B 74 20 44 49 56 20 31 30 = produkt DIV 10
0001C0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 45 4E 44 ;.. END
0001D0: 3B 0D 0A 20 20 20 20 20 20 20 20 61 64 64 6D 65 ;.. addme
0001E0: 6E 74 65 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 20 nte := 0;..
0001F0: 20 20 20 46 4F 52 20 6B 20 3A 3D 20 64 6F 62 62 FOR k := dobb
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
000010: 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ELN;..
000020: 45 4E 44 2E 0D 0A 1A 20 20 20 20 20 20 20 20 20 END....
000030: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 END;..
000040: 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 6A 20 54 FOR i := j T
000050: 4F 20 6D 61 78 6C 61 65 6E 67 64 65 20 44 4F 0D O maxlaengde DO.
000060: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 . W
000070: 52 49 54 45 28 76 33 28 2E 69 2E 29 29 3B 0D 0A RITE(v3(.i.));..
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: 65 6C 74 6D 61 78 20 44 4F 57 4E 54 4F 20 31 20 eltmax DOWNTO 1
000010: 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 42 45 DO.. BE
000020: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
000030: 20 73 75 6D 20 3A 3D 20 76 28 2E 6B 2E 29 20 2B sum := v(.k.) +
000040: 20 77 28 2E 6B 2E 29 20 2B 20 61 64 64 6D 65 6E w(.k.) + addmen
000050: 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 te;..
000060: 20 76 28 2E 6B 2E 29 20 3A 3D 20 73 75 6D 20 4D v(.k.) := sum M
000070: 4F 44 20 31 30 3B 0D 0A 20 20 20 20 20 20 20 20 OD 10;..
000080: 20 20 20 20 61 64 64 6D 65 6E 74 65 20 3A 3D 20 addmente :=
000090: 73 75 6D 20 44 49 56 20 31 30 3B 0D 0A 20 20 20 sum DIV 10;..
0000A0: 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 END;..
0000B0: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 6B 20 3A END;.. k :
0000C0: 3D 20 31 3B 0D 0A 20 20 20 20 57 48 49 4C 45 20 = 1;.. WHILE
0000D0: 28 76 28 2E 6B 2E 29 20 3D 20 30 29 20 41 4E 44 (v(.k.) = 0) AND
0000E0: 20 28 6B 20 3C 20 64 6F 62 62 65 6C 74 6D 61 78 (k < dobbeltmax
0000F0: 29 20 44 4F 0D 0A 20 20 20 20 20 20 6B 20 3A 3D ) DO.. k :=
000100: 20 6B 20 2B 20 31 3B 0D 0A 20 20 20 20 46 4F 52 k + 1;.. FOR
000110: 20 6C 20 3A 3D 20 6B 20 54 4F 20 64 6F 62 62 65 l := k TO dobbe
000120: 6C 74 6D 61 78 20 44 4F 0D 0A 20 20 20 20 20 20 ltmax DO..
000130: 57 52 49 54 45 28 76 28 2E 6C 2E 29 29 3B 0D 0A WRITE(v(.l.));..
000140: 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 WRITELN;..
000150: 45 4E 44 2E 0D 0A 1A 20 3D 20 30 29 20 41 4E 44 END.... = 0) AND
000160: 20 28 6B 20 3C 20 64 6F 62 62 65 6C 74 6D 61 78 (k < dobbeltmax
000170: 29 20 44 4F 0D 0A 20 20 20 20 20 20 6B 20 3A 3D ) DO.. k :=
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: 4D 56 FA 2E E2 45 60 12 CC 87 AD 24 12 E2 6C 83 MV...E`....$..l.
000010: 44 3B 47 D1 AC DE CE 39 1A D3 C0 3B 47 1C 85 5C D;G....9...;G..\
000020: 48 C4 51 85 86 48 1C 51 90 9C C4 C4 21 C4 85 90 H.Q..H.Q....!...
000030: 38 87 D0 24 12 E2 10 6C 4E 42 E2 9C ED 91 48 3B 8..$...lNB....H;
000040: C7 8E AF F3 76 70 8E 8E 37 7F 73 E0 1C 39 3E 7C ....vp..7.s..9>|
000050: DA 86 73 CE 7D FB 74 F4 9C 9C FB 7D 52 22 CE CE ..s.}.t....}R"..
000060: 7D 7D DA 2B CE E7 3E 4F 69 DC B9 73 9F A7 8B E3 }}.+..>Oi..s....
000070: DC F7 49 22 39 CE 7D 9F EB B7 73 EE 93 36 70 CE ..I"9.}...s..6p.
000080: 7D 9F 6F 80 73 DC E7 39 ED 39 F7 7D 7A D4 CE B9 }.o.s..9.9.}z...
000090: CF 59 C0 3A F7 9F 4E A3 73 DC A7 EC E9 9D FB 7D .Y.:..N.s......}
0000A0: 2E 0D CE B9 CF 05 C9 77 CE 73 59 BC 9D 73 2E A5 .......w.sY..s..
0000B0: 81 73 CE 73 79 06 9C E7 5C 1B 0E 3B 80 C0 0D C3 .s.sy...\..;....
0000C0: 1E 02 70 6E 98 46 00 9D 1B 1B B6 57 9C CE 0D C3 ..pn.F.....W....
0000D0: D2 B9 73 E7 86 61 17 C6 B9 6E 98 46 72 9D 1B 86 ..s..a...n.Fr...
0000E0: D7 6F E7 DC 30 6E E0 9C 1B 86 DF 01 E7 B9 E1 78 .o..0n.........x
0000F0: DA 72 6E 1B F6 A9 9D 73 C3 B8 80 74 6E 86 9D 47 .rn....s...tn..G
000100: E7 B9 61 DC D3 3A 37 1B 5E 1B 9C 73 C3 CD 80 E0 ..a..:7.^..s....
000110: 1C 7B 6B 08 80 8E B9 DF B9 A5 64 FB CD 2E 25 14 .{k.......d...%.
000120: FD 5C 4A 94 DC 5D 4A D9 FA 73 29 B2 73 E6 58 92 .\J..]J..s).s.X.
000130: FD BC EC 11 E0 EE C9 6B 8D 0E C9 2D 04 31 D2 EE .......k...-.1..
000140: E4 04 50 B2 75 52 43 B2 55 53 43 4C C4 62 97 17 ..P.uRC.USCL.b..
000150: 31 28 62 D8 85 32 8B 45 EC 76 21 B0 22 88 5D 2B 1(b..2.E.v!.".]+
000160: 98 1D B1 D8 55 91 89 23 80 C0 10 44 11 02 18 C6 ....U..#...D....
000170: 2C 8A 00 80 41 B0 22 04 30 13 4C 47 00 C0 54 32 ,...A.".0.LG..T2
000180: 11 88 DF DF C4 A2 88 E2 37 DB 2C 14 F1 F8 8D C3 ........7.,.....
000190: 8A 22 7E EF 60 75 C4 E2 77 4B 26 18 81 81 8B 42 ."~.`u..wK&....B
0001A0: 14 45 E0 70 99 90 22 11 B8 2E 58 4C 04 C0 15 AA .E.p.."...XL....
0001B0: 8E 44 E0 E8 CA 25 46 8A D0 E8 22 9A 45 45 E8 E8 .D...%F...".EE..
0001C0: 22 61 45 22 74 DD 60 EA 08 08 DD 2C 99 62 44 44 "aE"t.`....,.bDD
0001D0: 2C 0B 51 16 11 88 65 42 8A 45 C4 B1 60 30 11 22 ,.Q...eB.E..`0."
0001E0: 56 AB 3A 13 11 71 26 8C 18 28 E2 71 86 66 16 14 V.:..q&..(.q.f..
0001F0: 71 71 86 83 15 89 38 CE 82 AA 23 22 CE 59 64 88 qq....8...#".Yd.
Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 6D 61 61 6E 65 64 32 3B PROGRAM maaned2;
000010: 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 6E .... VAR.. n
000020: 75 6D 6D 65 72 20 3A 20 49 4E 54 45 47 45 52 3B ummer : INTEGER;
000030: 0D 0A 20 20 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 .. .. BEGIN..
000040: 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 WRITE(CLRHOM)
000050: 3B 0D 0A 20 20 20 20 47 4F 54 4F 58 59 28 35 2C ;.. GOTOXY(5,
000060: 20 32 29 3B 20 57 52 49 54 45 28 27 41 6E 67 69 2); WRITE('Angi
000070: 76 65 6C 73 65 20 61 66 20 61 6E 74 61 6C 20 64 velse af antal d
000080: 61 67 65 20 69 20 65 6E 20 6D 7D 6E 65 64 3A 27 age i en m}ned:'
000090: 29 3B 0D 0A 20 20 20 20 47 4F 54 4F 58 59 28 35 );.. GOTOXY(5
0000A0: 2C 20 33 29 3B 20 57 52 49 54 45 28 27 2D 2D 2D , 3); WRITE('---
0000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000D0: 27 29 3B 0D 0A 20 20 20 20 47 4F 54 4F 58 59 28 ');.. GOTOXY(
0000E0: 35 2C 20 35 29 3B 20 57 52 49 54 45 28 27 49 6E 5, 5); WRITE('In
0000F0: 64 74 61 73 74 20 6D 7D 6E 65 64 65 6E 73 20 6E dtast m}nedens n
000100: 75 6D 6D 65 72 20 28 66 2E 65 6B 73 2E 20 34 29 ummer (f.eks. 4)
000110: 3A 20 27 29 3B 20 0D 0A 20 20 20 20 52 45 41 44 : '); .. READ
000120: 4C 4E 28 6E 75 6D 6D 65 72 29 3B 0D 0A 20 20 20 LN(nummer);..
000130: 20 47 4F 54 4F 58 59 28 35 2C 20 31 30 29 3B 0D GOTOXY(5, 10);.
000140: 0A 20 20 20 20 43 41 53 45 20 6E 75 6D 6D 65 72 . CASE nummer
000150: 20 4F 46 0D 0A 20 20 20 20 20 20 31 2C 20 33 2C OF.. 1, 3,
000160: 20 35 2C 20 37 2C 20 38 2C 20 31 30 2C 20 31 32 5, 7, 8, 10, 12
000170: 20 3A 20 57 52 49 54 45 28 27 4D 7D 6E 65 64 20 : WRITE('M}ned
000180: 6E 72 2E 20 27 2C 20 6E 75 6D 6D 65 72 2C 20 27 nr. ', nummer, '
000190: 20 68 61 72 20 33 31 20 64 61 67 65 27 29 3B 0D har 31 dage');.
0001A0: 0A 20 20 20 20 20 20 32 20 3A 20 57 52 49 54 45 . 2 : WRITE
0001B0: 28 27 4D 7D 6E 65 64 20 6E 72 2E 20 32 20 68 61 ('M}ned nr. 2 ha
0001C0: 72 20 32 38 20 28 32 39 29 20 64 61 67 65 27 29 r 28 (29) dage')
0001D0: 3B 0D 0A 20 20 20 20 20 20 34 2C 20 36 2C 20 39 ;.. 4, 6, 9
0001E0: 2C 20 31 31 20 3A 20 57 52 49 54 45 28 27 4D 7D , 11 : WRITE('M}
0001F0: 6E 65 64 20 6E 72 2E 20 27 2C 20 6E 75 6D 6D 65 ned nr. ', numme
Size : 512 (Real : 512)
000000: 0C EA 42 D4 14 DA 32 CB F8 02 23 98 09 C0 7C AF ..B...2...#...|.
000010: 85 A9 8C 96 F1 82 5C 1F 66 14 E4 F5 EE B4 9B 96 ......\.f.......
000020: 71 50 0C 54 86 B2 01 C2 99 10 53 C4 04 66 33 A1 qP.T......S..f3.
000030: C0 B7 0C 03 68 3D 7E 5D 0D 21 CD 2A F2 A7 A0 AC ....h=~].!.*....
000040: CB 48 DA 18 24 4F 7E 49 86 0F C2 E1 CC 03 8B 3F .H..$O~I.......?
000050: 61 99 00 08 72 65 34 5A E5 69 B1 BC 89 04 B9 3F a...re4Z.i.....?
000060: 1A 56 E9 DA A7 6F 62 41 2E BC 04 F8 A4 97 20 46 .V...obA...... F
000070: 93 67 1F 3F B1 AD F4 84 AF 90 CB 2F 41 3E 29 25 .g.?......./A>)%
000080: 08 D1 E4 D9 87 16 EC 95 7E 2C B1 CA 04 82 4F 79 ........~,....Oy
000090: 09 61 34 ED F0 E6 6B 0F 36 65 42 C1 27 BC 04 30 .a4...k.6eB.'..0
0000A0: 9A 76 F8 FE 0F 63 63 4C 38 F8 A4 96 20 29 AE 2D .v...ccL8... ).-
0000B0: E8 2A 04 1F 9C D8 8F 53 C5 2A 8C 3B 6F A1 E8 4E .*.....S.*.;o..N
0000C0: B5 EA 0F 89 FC 72 53 29 B0 04 A4 96 BB 39 A8 55 .....rS).....9.U
0000D0: 45 2B 37 88 02 BB D9 12 B4 8F F2 F5 43 44 7E 7A E+7.........CD~z
0000E0: FC FE 0F 11 60 53 5C 56 D0 3C C3 6E 28 93 6E DD ....`S\V.<.n(.n.
0000F0: 2C D0 24 3F 25 46 40 F8 CF A0 04 04 32 B9 A1 7F ,.$?%F@.....2...
000100: BA 8D 00 15 21 CF 52 4E 05 76 AA 28 CE 51 20 A9 ....!.RN.v.(.Q .
000110: CA 85 67 49 9C 59 E8 BB C1 84 B3 AD 27 2A 04 18 ..gI.Y......'*..
000120: 96 E0 54 7C D4 6F 78 CE 02 93 E5 F1 83 58 FB 84 ..T|.ox......X..
000130: 9D C1 35 5F 8C 06 45 9C 6C FA 62 37 29 60 73 41 ..5_..E.l.b7)`sA
000140: 56 68 CA 41 16 9C EC 8F 1F E0 22 39 A8 1D 4D 88 Vh.A......"9..M.
000150: 95 43 D9 64 31 CE 1E 9E 10 39 A8 ED 44 9F 94 12 .C.d1....9..D...
000160: 04 BB E8 64 02 0E 07 F9 8B 07 BE 71 05 C3 2C F4 ...d.......q..,.
000170: DD 15 7A BD 93 4F 2E 82 E4 00 22 6C A4 0D DA 72 ..z..O...."l...r
000180: 8B 84 03 F9 4B 07 BE 9E 06 98 80 C6 C7 7C C3 29 ....K........|.)
000190: 02 66 51 EF 99 F8 E6 16 1C 20 D5 EC 81 B3 28 7D .fQ...... ....(}
0001A0: 54 9D 42 B0 DF 50 17 A8 B5 CB 65 08 A6 85 14 36 T.B..P....e....6
0001B0: D4 A2 92 EA CB EA 42 2F 0D C2 F4 97 8C C3 E0 30 ......B/.......0
0001C0: FD 63 09 0A F5 BF 2C 01 49 02 FA 29 02 42 8F E6 .c....,.I..).B..
0001D0: C7 5D 14 20 81 92 2F 69 F0 B2 7E CC 0F 8A E1 96 .]. ../i..~.....
0001E0: F1 A8 4B 44 51 38 32 A9 F9 E9 83 04 F8 75 C9 3F ..KDQ82......u.?
0001F0: 04 5E 43 90 D4 92 8C 67 5F B3 A4 21 83 6B CA 92 .^C....g_..!.k..
Size : 512 (Real : 512)
000000: 72 2C 20 27 20 68 61 72 20 33 30 20 64 61 67 65 r, ' har 30 dage
000010: 27 29 3B 0D 0A 20 20 20 20 4F 54 48 45 52 57 49 ');.. OTHERWI
000020: 53 45 0D 0A 20 20 20 20 20 20 57 52 49 54 45 28 SE.. WRITE(
000030: 27 44 75 20 68 61 72 20 74 61 73 74 65 74 20 65 'Du har tastet e
000040: 74 20 75 6C 6F 76 6C 69 67 74 20 6E 75 6D 6D 65 t ulovligt numme
000050: 72 27 29 3B 0D 0A 20 20 20 20 45 4E 44 3B 0D 0A r');.. END;..
000060: 20 20 20 20 47 4F 54 4F 58 59 28 30 2C 20 32 30 GOTOXY(0, 20
000070: 29 3B 0D 0A 20 20 45 4E 44 2E 0D 0A 1A 6D 6D 65 );.. END....mme
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: 50 52 4F 47 52 41 4D 20 6D 61 78 70 75 6E 6B 74 PROGRAM maxpunkt
000010: 3B 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 ;.... VAR..
000020: 61 2C 20 62 2C 20 62 79 74 2C 20 78 2C 20 66 78 a, b, byt, x, fx
000030: 2C 20 66 6D 61 78 2C 20 78 6D 61 78 2C 20 64 65 , fmax, xmax, de
000040: 6C 74 61 20 3A 20 52 45 41 4C 3B 0D 0A 20 20 20 lta : REAL;..
000050: 20 69 2C 20 61 6E 74 61 6C 20 3A 20 49 4E 54 45 i, antal : INTE
000060: 47 45 52 3B 0D 0A 20 20 0D 0A 20 20 46 55 4E 43 GER;.. .. FUNC
000070: 54 49 4F 4E 20 66 28 78 20 3A 20 52 45 41 4C 29 TION f(x : REAL)
000080: 20 3A 20 52 45 41 4C 3B 0D 0A 20 20 0D 0A 20 20 : REAL;.. ..
000090: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 66 BEGIN.. f
0000A0: 20 3A 3D 20 28 28 78 20 2D 20 33 29 20 2A 20 78 := ((x - 3) * x
0000B0: 20 2D 20 39 29 20 2A 20 78 20 2B 20 32 3B 0D 0A - 9) * x + 2;..
0000C0: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 0D 0A 20 20 END;.. ..
0000D0: 42 45 47 49 4E 0D 0A 20 20 20 20 57 52 49 54 45 BEGIN.. WRITE
0000E0: 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 57 (CLRHOM);.. W
0000F0: 52 49 54 45 28 27 54 61 73 74 20 61 20 69 20 69 RITE('Tast a i i
000100: 6E 74 65 72 76 61 6C 6C 65 74 20 28 61 2C 62 29 ntervallet (a,b)
000110: 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 61 29 3B : '); READLN(a);
000120: 0D 0A 20 20 20 20 57 52 49 54 45 28 27 54 61 73 .. WRITE('Tas
000130: 74 20 62 20 69 20 69 6E 74 65 72 76 61 6C 6C 65 t b i intervalle
000140: 74 20 28 61 2C 62 29 3A 20 27 29 3B 20 52 45 41 t (a,b): '); REA
000150: 44 4C 4E 28 62 29 3B 0D 0A 20 20 20 20 57 52 49 DLN(b);.. WRI
000160: 54 45 28 27 48 76 6F 72 20 6D 61 6E 67 65 20 64 TE('Hvor mange d
000170: 65 6C 69 6E 74 65 72 76 61 6C 6C 65 72 20 73 6B elintervaller sk
000180: 61 6C 20 28 61 2C 62 29 20 64 65 6C 65 73 20 6F al (a,b) deles o
000190: 70 20 69 3A 20 27 29 3B 20 0D 0A 20 20 20 20 52 p i: '); .. R
0001A0: 45 41 44 4C 4E 28 61 6E 74 61 6C 29 3B 0D 0A 20 EADLN(antal);..
0001B0: 20 20 20 49 46 20 61 20 3E 20 62 0D 0A 20 20 20 IF a > b..
0001C0: 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 THEN..
0001D0: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 BEGIN..
0001E0: 20 20 62 79 74 20 3A 3D 20 61 3B 0D 0A 20 20 20 byt := a;..
0001F0: 20 20 20 20 20 20 20 61 20 3A 3D 20 62 3B 0D 0A a := b;..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
000010: 20 6D 61 78 69 6D 75 6D 32 3B 0D 0A 20 20 20 20 maximum2;..
000020: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 28 2A .. (*
000030: 20 50 72 6F 67 72 61 6D 6D 65 74 20 66 69 6E 64 Programmet find
000040: 65 72 20 6D 61 78 69 6D 75 6D 20 62 6C 61 6E 64 er maximum bland
000050: 74 20 65 6E 20 72 7B 6B 6B 65 20 74 61 6C 20 2A t en r{kke tal *
000060: 29 0D 0A 20 20 20 20 20 20 20 20 28 2A 20 55 64 ).. (* Ud
000070: 73 6B 72 69 66 74 65 6E 20 6B 6F 6D 6D 65 72 20 skriften kommer
000080: 70 7D 20 70 72 69 6E 74 65 72 65 6E 20 20 20 20 p} printeren
000090: 20 20 20 20 20 20 20 20 20 20 20 20 2A 29 0D 0A *)..
0000A0: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 ..
0000B0: 20 20 43 4F 4E 53 54 0D 0A 20 20 20 20 20 20 20 CONST..
0000C0: 20 20 20 61 6E 74 61 6C 20 3D 20 32 30 30 3B 0D antal = 200;.
0000D0: 0A 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 . ..
0000E0: 20 20 20 54 59 50 45 0D 0A 20 20 20 20 20 20 20 TYPE..
0000F0: 20 20 20 76 65 6B 74 6F 72 20 3D 20 41 52 52 41 vektor = ARRA
000100: 59 28 2E 31 20 2E 2E 20 61 6E 74 61 6C 2E 29 20 Y(.1 .. antal.)
000110: 4F 46 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 OF INTEGER;..
000120: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 56 .. V
000130: 41 52 0D 0A 20 20 20 20 20 20 20 20 20 20 76 20 AR.. v
000140: 3A 20 76 65 6B 74 6F 72 3B 0D 0A 20 20 20 20 20 : vektor;..
000150: 20 20 20 20 20 69 2C 20 6E 72 2C 20 6D 61 78 20 i, nr, max
000160: 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 : INTEGER;..
000170: 20 20 20 20 0D 0A 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 52 GIN.. R
000190: 41 4E 44 4F 4D 49 5A 45 3B 0D 0A 20 20 20 20 20 ANDOMIZE;..
0001A0: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 4C 53 54 WRITELN(LST
0001B0: 2C 43 48 52 28 31 32 29 2C 20 27 46 7C 72 73 74 ,CHR(12), 'F|rst
0001C0: 20 76 7B 6C 67 65 72 20 76 69 20 6E 6F 67 6C 65 v{lger vi nogle
0001D0: 20 74 61 6C 3A 27 29 3B 0D 0A 20 20 20 20 20 20 tal:');..
0001E0: 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 FOR i := 1 T
0001F0: 4F 20 61 6E 74 61 6C 20 44 4F 0D 0A 20 20 20 20 O antal DO..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 62 20 3A 3D 20 62 b := b
000010: 79 74 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E 44 yt;.. END
000020: 3B 0D 0A 20 20 20 20 64 65 6C 74 61 20 3A 3D 20 ;.. delta :=
000030: 28 62 20 2D 20 61 29 20 2F 20 61 6E 74 61 6C 3B (b - a) / antal;
000040: 0D 0A 20 20 20 20 66 6D 61 78 20 3A 3D 20 66 28 .. fmax := f(
000050: 61 29 3B 0D 0A 20 20 20 20 78 6D 61 78 20 3A 3D a);.. xmax :=
000060: 20 61 3B 0D 0A 20 20 20 20 78 20 3A 3D 20 61 3B a;.. x := a;
000070: 0D 0A 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 .. FOR i := 1
000080: 20 54 4F 20 61 6E 74 61 6C 20 44 4F 0D 0A 20 20 TO antal DO..
000090: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
0000A0: 20 20 20 78 20 3A 3D 20 78 20 2B 20 64 65 6C 74 x := x + delt
0000B0: 61 3B 0D 0A 20 20 20 20 20 20 20 20 66 78 20 3A a;.. fx :
0000C0: 3D 20 66 28 78 29 3B 0D 0A 20 20 20 20 20 20 20 = f(x);..
0000D0: 20 49 46 20 66 78 20 3E 20 66 6D 61 78 0D 0A 20 IF fx > fmax..
0000E0: 20 20 20 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 THEN..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E BEGIN
000100: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000110: 66 6D 61 78 20 3A 3D 20 66 78 3B 0D 0A 20 20 20 fmax := fx;..
000120: 20 20 20 20 20 20 20 20 20 20 20 78 6D 61 78 20 xmax
000130: 3A 3D 20 78 3B 0D 0A 20 20 20 20 20 20 20 20 20 := x;..
000140: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 45 END;.. E
000150: 4E 44 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E ND;.. WRITELN
000160: 28 27 4D 61 78 69 6D 75 6D 73 76 7B 72 64 69 65 ('Maximumsv{rdie
000170: 6E 20 66 6F 72 20 66 75 6E 6B 74 69 6F 6E 65 6E n for funktionen
000180: 20 69 20 28 27 2C 20 61 20 3A 20 36 20 3A 20 32 i (', a : 6 : 2
000190: 20 2C 20 27 2C 27 2C 20 0D 0A 20 20 20 20 20 20 , ',', ..
0001A0: 20 20 20 20 20 20 20 62 20 3A 20 36 20 3A 20 32 b : 6 : 2
0001B0: 2C 20 27 29 27 29 3B 0D 0A 20 20 20 20 57 52 49 , ')');.. WRI
0001C0: 54 45 4C 4E 28 27 62 61 73 65 72 65 74 20 70 7D TELN('baseret p}
0001D0: 20 27 2C 20 61 6E 74 61 6C 20 2B 20 31 2C 20 27 ', antal + 1, '
0001E0: 20 73 74 7C 74 74 65 70 75 6E 6B 74 65 72 3A 20 st|ttepunkter:
0001F0: 27 2C 20 66 6D 61 78 20 3A 20 31 30 20 3A 20 34 ', fmax : 10 : 4
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 76 28 2E 69 2E 29 20 3A v(.i.) :
000010: 3D 20 52 41 4E 44 4F 4D 28 35 30 30 29 3B 0D 0A = RANDOM(500);..
000020: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
000030: 4E 28 4C 53 54 29 3B 0D 0A 20 20 20 20 20 20 20 N(LST);..
000040: 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F FOR i := 1 TO
000050: 20 61 6E 74 61 6C 20 44 4F 20 20 20 28 2A 20 54 antal DO (* T
000060: 61 6C 6C 65 6E 65 20 75 64 73 6B 72 69 76 65 73 allene udskrives
000070: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 *)..
000080: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 BEGIN..
000090: 20 20 20 20 20 20 57 52 49 54 45 28 4C 53 54 2C WRITE(LST,
0000A0: 76 28 2E 69 2E 29 3A 34 29 3B 0D 0A 20 20 20 20 v(.i.):4);..
0000B0: 20 20 20 20 20 20 20 20 20 20 49 46 20 69 20 4D IF i M
0000C0: 4F 44 20 32 30 20 3D 20 30 0D 0A 20 20 20 20 20 OD 20 = 0..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 THEN
0000E0: 57 52 49 54 45 4C 4E 28 4C 53 54 29 3B 0D 0A 20 WRITELN(LST);..
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 57 52 49 54 45 . WRITE
000110: 4C 4E 28 4C 53 54 29 3B 0D 0A 20 20 20 20 20 20 LN(LST);..
000120: 20 20 20 20 6D 61 78 20 3A 3D 20 76 28 2E 31 2E max := v(.1.
000130: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 6E 72 );.. nr
000140: 20 3A 3D 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 := 1;..
000150: 20 20 46 4F 52 20 69 20 3A 3D 20 32 20 54 4F 20 FOR i := 2 TO
000160: 61 6E 74 61 6C 20 44 4F 0D 0A 20 20 20 20 20 20 antal DO..
000170: 20 20 20 20 20 20 20 20 49 46 20 76 28 2E 69 2E IF v(.i.
000180: 29 20 3E 20 6D 61 78 0D 0A 20 20 20 20 20 20 20 ) > max..
000190: 20 20 20 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 THEN..
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001B0: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 BEGIN..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 6D 61 78 20 max
0001D0: 3A 3D 20 76 28 2E 69 2E 29 3B 0D 0A 20 20 20 20 := v(.i.);..
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001F0: 6E 72 20 3A 3D 20 69 3B 20 20 20 20 20 20 20 28 nr := i; (
Size : 512 (Real : 512)
000000: 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 );.. WRITELN(
000010: 27 4D 61 78 69 6D 75 6D 73 70 75 6E 6B 74 65 74 'Maximumspunktet
000020: 20 65 72 3A 20 27 2C 20 78 6D 61 78 20 3A 20 36 er: ', xmax : 6
000030: 20 3A 20 32 29 3B 0D 0A 20 20 45 4E 44 2E 0D 0A : 2);.. END...
000040: 20 20 20 20 0D 0A 1A 61 73 65 72 65 74 20 70 7D ...aseret p}
000050: 20 27 2C 20 61 6E 74 61 6C 20 2B 20 31 2C 20 27 ', antal + 1, '
000060: 20 73 74 7C 74 74 65 70 75 6E 6B 74 65 72 3A 20 st|ttepunkter:
000070: 27 2C 20 66 6D 61 78 20 3A 20 31 30 20 3A 20 34 ', fmax : 10 : 4
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: 2A 20 56 69 20 6E 6F 74 65 72 65 72 2C 20 68 76 * Vi noterer, hv
000010: 6F 72 20 6D 61 78 20 73 74 7D 72 20 2A 29 0D 0A or max st}r *)..
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000030: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 END;..
000040: 20 20 57 52 49 54 45 4C 4E 28 4C 53 54 2C 27 44 WRITELN(LST,'D
000050: 65 74 20 73 74 7C 72 73 74 65 20 74 61 6C 20 65 et st|rste tal e
000060: 72 20 27 2C 20 6D 61 78 2C 20 27 20 6F 67 20 64 r ', max, ' og d
000070: 65 74 20 73 74 7D 72 20 73 6F 6D 20 6E 72 2E 20 et st}r som nr.
000080: 27 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ',..
000090: 20 20 20 20 20 20 6E 72 2C 20 27 20 69 20 6F 76 nr, ' i ov
0000A0: 65 6E 73 74 7D 65 6E 64 65 20 72 7B 6B 6B 65 27 enst}ende r{kke'
0000B0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E 44 2E );.. END.
0000C0: 0D 0A 1A 52 49 54 45 4C 4E 28 4C 53 54 2C 27 44 ...RITELN(LST,'D
0000D0: 65 74 20 73 74 7C 72 73 74 65 20 74 61 6C 20 65 et st|rste tal e
0000E0: 72 20 27 2C 20 6D 61 78 2C 20 27 20 6F 67 20 64 r ', max, ' og d
0000F0: 65 74 20 73 74 7D 72 20 73 6F 6D 20 6E 72 2E 20 et st}r som nr.
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: D3 41 D1 CC F8 E9 32 0D 82 E5 96 0F 53 10 A5 D0 .A....2.....S...
000010: B3 56 FF 0C 00 5F 5A C3 8C CC 28 C2 00 24 66 EE .V..._Z...(..$f.
000020: 99 54 D6 B3 A8 C3 40 DB 39 2C 0A 76 D2 27 FE 97 .T....@.9,.v.'..
000030: 22 96 01 03 33 62 C9 3C 5E B1 E4 C0 E4 CB F5 30 "...3b.<^......0
000040: 10 63 39 AC 2F CB 65 CC 10 C0 40 E5 C0 04 89 0C .c9./.e...@.....
000050: 4C 38 C7 98 3C 81 E0 06 66 34 58 25 66 39 8F 62 L8..<...f4X%f9.b
000060: C9 60 56 3A 66 85 C7 41 E2 CB 78 58 E7 F2 F5 F2 .`V:f..A..xX....
000070: 58 81 60 C0 E4 91 18 2C D7 F1 5C 03 1C B6 18 FA X.`....,..\.....
000080: C1 64 C5 0C 7B 5F 7C C1 1A 16 9F 5C 71 88 88 BE .d..{_|....\q...
000090: 38 E2 33 19 B9 57 18 11 98 2B D6 1F 23 A8 19 85 8.3..W...+..#...
0000A0: A0 57 5C 62 39 CB 4C D4 25 26 29 5C 19 EA B2 1C .W\b9.L.%&)\....
0000B0: C3 A9 3C 19 26 AA 03 15 B1 CC 50 85 2B 55 28 CC ..<.&.....P.+U(.
0000C0: C2 99 72 A1 C3 66 0A 75 C9 8A 0E 46 48 42 54 F2 ..r..f.u...FHBT.
0000D0: EB 82 AC 13 1F 52 99 32 4C 24 B9 DE 97 54 D6 92 .....R.2L$...T..
0000E0: C2 92 11 00 EE 90 F4 AB 8C E8 41 D7 85 1F E4 06 ..........A.....
0000F0: 41 45 C0 82 67 61 A9 BA 85 07 C5 D5 B5 22 56 19 AE..ga......."V.
000100: AA B2 82 67 25 95 92 66 2C 47 B4 EA DA 19 AB A1 ...g%..f,G......
000110: 4A 2A B3 AE 5A AB A8 C2 AA B2 BA D5 95 25 CF 10 J*..Z........%..
000120: DC D0 10 07 B5 75 C9 48 0A 4B 46 10 5F 21 7A F9 .....u.H.KF._!z.
000130: 75 F0 12 43 40 54 D9 E9 C3 BE 58 67 3B 7C 8C 85 u..C@T....Xg;|..
000140: 68 E4 D7 04 CD 3D 1B 4C 95 95 3E E4 8A CF 76 C1 h....=.L..>...v.
000150: 1A 17 A2 91 5F 10 A4 DA 6D E9 1A AF A2 7C 69 18 ...._...m....|i.
000160: D2 98 CE 17 A2 A5 5E 05 11 C2 4C 45 AB 7B 80 88 ......^...LE.{..
000170: 08 2E 29 A6 82 4A 69 73 B4 77 F6 5D B0 8C 00 85 ..)..Jis.w.]....
000180: EA 54 81 C6 D8 68 15 2A 2C 88 6D AD 0A 52 06 E5 .T...h.*,.m..R..
000190: A6 55 40 39 68 6F AA 9F 30 12 12 99 B1 29 3A 19 .U@9ho..0....):.
0001A0: 26 60 64 00 41 AE 6D 09 94 ED 29 51 7B 14 83 BE &`d.A.m...)Q{...
0001B0: F6 6B 0E 9E DA 9C D7 B2 41 49 54 5C D2 0D ED 05 .k......AIT\....
0001C0: 7D 6D 2E 60 51 02 48 EF 75 40 80 6F BD A5 0C E2 }m.`Q.H.u@.o....
0001D0: FB 2F FA 35 BE F4 EB 04 D5 98 09 03 32 C7 F7 A8 ./.5........2...
0001E0: A6 9A 46 5E 7B 5E 00 38 F8 C0 80 87 46 11 A1 17 ..F^{^.8....F...
0001F0: D0 89 E8 56 D1 2C E8 19 74 09 BA E6 45 AE 84 83 ...V.,..t...E...
Size : 512 (Real : 512)
000000: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
000010: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 62 WRITELN(b
000020: 79 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 y);..
000030: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
000040: 28 69 6E 66 6F 29 3B 0D 0A 20 20 20 20 20 20 20 (info);..
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 45 4E 44 3B 0D 0A 20 END;..
000080: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D END;.
000090: 0A 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 . END;..
0000A0: 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 WRITELN;..
0000B0: 20 20 20 20 20 72 65 74 75 72 3B 0D 0A 20 20 20 retur;..
0000C0: 20 45 4E 44 3B 20 28 2A 20 75 64 73 6B 72 69 76 END; (* udskriv
0000D0: 20 2A 29 0D 0A 20 20 0D 0A 20 20 50 52 4F 43 45 *).. .. PROCE
0000E0: 44 55 52 45 20 73 6C 65 74 3B 0D 0A 20 20 0D 0A DURE slet;.. ..
0000F0: 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 6D VAR.. m
000100: 65 64 6C 65 6D 73 6E 72 20 3A 20 49 4E 54 45 47 edlemsnr : INTEG
000110: 45 52 3B 0D 0A 20 20 20 20 20 20 63 68 20 3A 20 ER;.. ch :
000120: 43 48 41 52 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 CHAR;.. ..
000130: 20 42 45 47 49 4E 20 28 2A 20 73 6C 65 74 20 2A BEGIN (* slet *
000140: 29 0D 0A 20 20 20 20 20 20 57 52 49 54 45 28 43 ).. WRITE(C
000150: 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 20 20 47 LRHOM);.. G
000160: 4F 54 4F 58 59 28 31 30 2C 20 35 29 3B 0D 0A 20 OTOXY(10, 5);..
000170: 20 20 20 20 20 57 52 49 54 45 28 27 48 76 65 6D WRITE('Hvem
000180: 20 73 6B 61 6C 20 73 6C 65 74 74 65 73 3F 20 54 skal slettes? T
000190: 61 73 74 20 6D 65 64 6C 65 6D 73 6E 75 6D 6D 65 ast medlemsnumme
0001A0: 72 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 52 45 r: ');.. RE
0001B0: 41 44 4C 4E 28 6D 65 64 6C 65 6D 73 6E 72 29 3B ADLN(medlemsnr);
0001C0: 0D 0A 20 20 20 20 20 20 47 4F 54 4F 58 59 28 31 .. GOTOXY(1
0001D0: 30 2C 20 37 29 3B 0D 0A 20 20 20 20 20 20 49 46 0, 7);.. IF
0001E0: 20 6D 65 64 6C 65 6D 73 6E 72 20 3E 20 4C 45 4E medlemsnr > LEN
0001F0: 47 54 48 28 66 69 6C 29 0D 0A 20 20 20 20 20 20 GTH(fil)..
Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 6D 65 6E 75 66 69 6C 3B PROGRAM menufil;
000010: 0D 0A 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 20 .... TYPE..
000020: 73 74 72 33 30 20 3D 20 53 54 52 49 4E 47 28 2E str30 = STRING(.
000030: 33 30 2E 29 3B 0D 0A 20 20 20 20 6D 65 64 6C 65 30.);.. medle
000040: 6D 73 70 6F 73 74 20 3D 20 52 45 43 4F 52 44 0D mspost = RECORD.
000050: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000060: 20 20 20 20 20 6E 61 76 6E 2C 20 61 64 72 65 73 navn, adres
000070: 73 65 2C 20 62 79 2C 20 69 6E 66 6F 20 3A 20 73 se, by, info : s
000080: 74 72 33 30 3B 0D 0A 20 20 20 20 20 20 20 20 20 tr30;..
000090: 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 END;..
0000A0: 20 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 66 69 .. VAR.. fi
0000B0: 6C 20 3A 20 46 49 4C 45 20 4F 46 20 6D 65 64 6C l : FILE OF medl
0000C0: 65 6D 73 70 6F 73 74 3B 0D 0A 20 20 20 20 6D 65 emspost;.. me
0000D0: 64 6C 65 6D 20 3A 20 6D 65 64 6C 65 6D 73 70 6F dlem : medlemspo
0000E0: 73 74 3B 0D 0A 20 20 20 20 63 68 20 3A 20 43 48 st;.. ch : CH
0000F0: 41 52 3B 0D 0A 20 20 0D 0A 20 20 50 52 4F 43 45 AR;.. .. PROCE
000100: 44 55 52 45 20 72 65 74 75 72 3B 0D 0A 20 20 20 DURE retur;..
000110: 20 0D 0A 20 20 20 20 56 41 52 0D 0A 20 20 20 20 .. VAR..
000120: 20 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A 20 20 ch : CHAR;..
000130: 20 20 0D 0A 20 20 20 20 42 45 47 49 4E 20 28 2A .. BEGIN (*
000140: 20 72 65 74 75 72 20 2A 29 0D 0A 20 20 20 20 20 retur *)..
000150: 20 57 52 49 54 45 28 27 54 61 73 74 20 3C 52 45 WRITE('Tast <RE
000160: 54 55 52 4E 3E 3A 20 27 29 3B 0D 0A 20 20 20 20 TURN>: ');..
000170: 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 REPEAT..
000180: 20 20 52 45 41 44 28 4B 42 44 2C 20 63 68 29 3B READ(KBD, ch);
000190: 0D 0A 20 20 20 20 20 20 55 4E 54 49 4C 20 63 68 .. UNTIL ch
0001A0: 20 3D 20 43 48 52 28 31 33 29 3B 0D 0A 20 20 20 = CHR(13);..
0001B0: 20 45 4E 44 3B 20 28 2A 20 72 65 74 75 72 20 2A END; (* retur *
0001C0: 29 0D 0A 20 20 0D 0A 20 20 50 52 4F 43 45 44 55 ).. .. PROCEDU
0001D0: 52 45 20 6F 70 72 65 74 3B 0D 0A 20 20 20 20 0D RE opret;.. .
0001E0: 0A 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 . VAR..
0001F0: 66 69 6C 6E 61 76 6E 20 3A 20 53 54 52 49 4E 47 filnavn : STRING
Size : 512 (Real : 512)
000000: 20 20 54 48 45 4E 20 57 52 49 54 45 28 27 4D 65 THEN WRITE('Me
000010: 64 6C 65 6D 73 6E 75 6D 6D 65 72 65 74 20 65 72 dlemsnummeret er
000020: 20 66 6F 72 20 73 74 6F 72 74 27 29 0D 0A 20 20 for stort')..
000030: 20 20 20 20 20 20 45 4C 53 45 0D 0A 20 20 20 20 ELSE..
000040: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
000050: 20 20 20 20 20 20 20 20 20 53 45 45 4B 28 66 69 SEEK(fi
000060: 6C 2C 20 6D 65 64 6C 65 6D 73 6E 72 20 2D 20 31 l, medlemsnr - 1
000070: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
000080: 52 45 41 44 28 66 69 6C 2C 20 6D 65 64 6C 65 6D READ(fil, medlem
000090: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
0000A0: 57 49 54 48 20 6D 65 64 6C 65 6D 20 44 4F 0D 0A WITH medlem DO..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 BE
0000C0: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
0000D0: 20 20 20 20 20 49 46 20 6E 61 76 6E 20 3D 20 27 IF navn = '
0000E0: 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 '..
0000F0: 20 20 20 20 20 54 48 45 4E 20 57 52 49 54 45 4C THEN WRITEL
000100: 4E 28 27 44 65 72 20 65 72 20 69 6E 74 65 74 20 N('Der er intet
000110: 6D 65 64 6C 65 6D 20 6D 65 64 20 64 65 74 74 65 medlem med dette
000120: 20 6E 75 6D 6D 65 72 27 29 0D 0A 20 20 20 20 20 nummer')..
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 ELS
000140: 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 E..
000150: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 BEGIN..
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000170: 20 20 20 20 57 52 49 54 45 28 27 53 6B 61 6C 20 WRITE('Skal
000180: 27 2C 20 6E 61 76 6E 2C 20 27 20 73 6C 65 74 74 ', navn, ' slett
000190: 65 73 20 28 6A 2F 6E 29 3A 20 27 29 3B 0D 0A 20 es (j/n): ');..
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001B0: 20 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 REPEAT..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001D0: 20 20 20 20 20 52 45 41 44 28 4B 42 44 2C 20 63 READ(KBD, c
0001E0: 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 h);..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 55 4E 54 49 4C UNTIL
Size : 512 (Real : 512)
000000: 28 2E 31 34 2E 29 3B 0D 0A 20 20 20 20 20 20 0D (.14.);.. .
000010: 0A 20 20 20 20 42 45 47 49 4E 20 28 2A 20 6F 70 . BEGIN (* op
000020: 72 65 74 20 2A 29 0D 0A 20 20 20 20 20 20 57 52 ret *).. WR
000030: 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 ITE(CLRHOM);..
000040: 20 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 20 35 GOTOXY(10, 5
000050: 29 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 45 28 );.. WRITE(
000060: 27 48 76 61 64 20 73 6B 61 6C 20 6B 61 72 74 6F 'Hvad skal karto
000070: 74 65 6B 65 74 20 68 65 64 64 65 3A 20 27 29 3B teket hedde: ');
000080: 0D 0A 20 20 20 20 20 20 52 45 41 44 4C 4E 28 66 .. READLN(f
000090: 69 6C 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 20 20 ilnavn);..
0000A0: 41 53 53 49 47 4E 28 66 69 6C 2C 20 66 69 6C 6E ASSIGN(fil, filn
0000B0: 61 76 6E 29 3B 0D 0A 20 20 20 20 20 20 52 45 57 avn);.. REW
0000C0: 52 49 54 45 28 66 69 6C 29 3B 0D 0A 20 20 20 20 RITE(fil);..
0000D0: 20 20 47 4F 54 4F 58 59 28 31 30 2C 20 37 29 3B GOTOXY(10, 7);
0000E0: 0D 0A 20 20 20 20 20 20 57 52 49 54 45 28 66 69 .. WRITE(fi
0000F0: 6C 6E 61 76 6E 2C 20 27 20 65 72 20 6E 75 20 6F lnavn, ' er nu o
000100: 70 72 65 74 74 65 74 27 29 3B 0D 0A 20 20 20 20 prettet');..
000110: 20 20 47 4F 54 4F 58 59 28 31 30 2C 20 39 29 3B GOTOXY(10, 9);
000120: 0D 0A 20 20 20 20 20 20 72 65 74 75 72 3B 0D 0A .. retur;..
000130: 20 20 20 20 45 4E 44 3B 20 28 2A 20 6F 70 72 65 END; (* opre
000140: 74 20 2A 29 0D 0A 20 20 0D 0A 20 20 50 52 4F 43 t *).. .. PROC
000150: 45 44 55 52 45 20 68 76 69 6C 6B 65 6E 66 69 6C EDURE hvilkenfil
000160: 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 56 41 52 ;.. .. VAR
000170: 0D 0A 20 20 20 20 20 20 66 69 6C 6E 61 76 6E 20 .. filnavn
000180: 3A 20 53 54 52 49 4E 47 28 2E 31 34 2E 29 3B 0D : STRING(.14.);.
000190: 0A 20 20 20 20 0D 0A 20 20 20 20 42 45 47 49 4E . .. BEGIN
0001A0: 20 28 2A 20 68 76 69 6C 6B 65 6E 66 69 6C 20 2A (* hvilkenfil *
0001B0: 29 0D 0A 20 20 20 20 20 20 57 52 49 54 45 28 43 ).. WRITE(C
0001C0: 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 20 20 47 LRHOM);.. G
0001D0: 4F 54 4F 58 59 28 31 30 2C 20 35 29 3B 0D 0A 20 OTOXY(10, 5);..
0001E0: 20 20 20 20 20 57 52 49 54 45 28 27 48 76 61 64 WRITE('Hvad
0001F0: 20 68 65 64 64 65 72 20 64 65 6E 20 65 6B 73 69 hedder den eksi
Size : 512 (Real : 512)
000000: 20 63 68 20 49 4E 20 28 2E 20 27 4A 27 2C 20 27 ch IN (. 'J', '
000010: 6A 27 2C 20 27 4E 27 2C 20 27 6E 27 2E 29 3B 0D j', 'N', 'n'.);.
000020: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000030: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 63 WRITELN(c
000040: 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 h);..
000050: 20 20 20 20 20 20 20 20 20 20 20 49 46 20 63 68 IF ch
000060: 20 49 4E 20 28 2E 20 27 4A 27 2C 20 27 6A 27 2E IN (. 'J', 'j'.
000070: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 )..
000080: 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 THEN
000090: 6E 61 76 6E 20 3A 3D 20 27 27 3B 0D 0A 20 20 20 navn := '';..
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000B0: 20 20 20 53 45 45 4B 28 66 69 6C 2C 20 6D 65 64 SEEK(fil, med
0000C0: 6C 65 6D 73 6E 72 20 2D 20 31 29 3B 0D 0A 20 20 lemsnr - 1);..
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 28 66 69 6C 2C 20 6D WRITE(fil, m
0000F0: 65 64 6C 65 6D 29 3B 0D 0A 20 20 20 20 20 20 20 edlem);..
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 END
000110: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
000120: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 END;..
000130: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 END;..
000140: 20 47 4F 54 4F 58 59 28 31 30 2C 20 39 29 3B 0D GOTOXY(10, 9);.
000150: 0A 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 . retur
000160: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 45 4E 44 ;.. END
000170: 3B 20 28 2A 20 73 6C 65 74 20 2A 29 0D 0A 20 20 ; (* slet *)..
000180: 0D 0A 20 20 50 52 4F 43 45 44 55 52 45 20 72 65 .. PROCEDURE re
000190: 74 3B 0D 0A 20 20 0D 0A 20 20 20 20 56 41 52 0D t;.. .. VAR.
0001A0: 0A 20 20 20 20 20 20 6D 65 64 6C 65 6D 73 6E 72 . medlemsnr
0001B0: 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 : INTEGER;..
0001C0: 20 20 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A 20 ch : CHAR;..
0001D0: 20 20 20 20 20 0D 0A 20 20 20 20 42 45 47 49 4E .. BEGIN
0001E0: 20 28 2A 20 72 65 74 20 2A 29 0D 0A 20 20 20 20 (* ret *)..
0001F0: 20 20 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B WRITE(CLRHOM);
Size : 512 (Real : 512)
000000: 73 74 65 72 65 6E 64 65 20 66 69 6C 3A 20 27 29 sterende fil: ')
000010: 3B 0D 0A 20 20 20 20 20 20 52 45 41 44 4C 4E 28 ;.. READLN(
000020: 66 69 6C 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 20 filnavn);..
000030: 20 41 53 53 49 47 4E 28 66 69 6C 2C 20 66 69 6C ASSIGN(fil, fil
000040: 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 20 20 52 45 navn);.. RE
000050: 53 45 54 28 66 69 6C 29 3B 0D 0A 20 20 20 20 20 SET(fil);..
000060: 20 47 4F 54 4F 58 59 28 31 30 2C 20 37 29 3B 0D GOTOXY(10, 7);.
000070: 0A 20 20 20 20 20 20 72 65 74 75 72 3B 0D 0A 20 . retur;..
000080: 20 20 20 45 4E 44 3B 20 28 2A 20 68 76 69 6C 6B END; (* hvilk
000090: 65 6E 66 69 6C 20 2A 29 0D 0A 20 20 0D 0A 20 20 enfil *).. ..
0000A0: 50 52 4F 43 45 44 55 52 45 20 75 64 73 6B 72 69 PROCEDURE udskri
0000B0: 76 3B 0D 0A 20 20 0D 0A 20 20 20 20 56 41 52 0D v;.. .. VAR.
0000C0: 0A 20 20 20 20 20 20 69 20 3A 20 49 4E 54 45 47 . i : INTEG
0000D0: 45 52 3B 0D 0A 20 20 20 20 20 20 63 68 20 3A 20 ER;.. ch :
0000E0: 43 48 41 52 3B 0D 0A 20 20 20 20 20 20 75 64 66 CHAR;.. udf
0000F0: 69 6C 20 3A 20 54 45 58 54 3B 0D 0A 20 20 20 20 il : TEXT;..
000100: 20 20 75 64 6E 61 76 6E 20 3A 20 53 54 52 49 4E udnavn : STRIN
000110: 47 28 2E 34 2E 29 3B 0D 0A 20 20 20 20 0D 0A 20 G(.4.);.. ..
000120: 20 20 20 42 45 47 49 4E 20 28 2A 20 75 64 73 6B BEGIN (* udsk
000130: 72 69 76 20 2A 29 0D 0A 20 20 20 20 20 20 57 52 riv *).. WR
000140: 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 ITE(CLRHOM);..
000150: 20 20 20 20 57 52 49 54 45 28 27 5C 6E 73 6B 65 WRITE('\nske
000160: 73 20 75 64 73 6B 72 69 66 74 20 70 7D 20 73 6B s udskrift p} sk
000170: 7B 72 6D 20 65 6C 6C 65 72 20 70 72 69 6E 74 65 {rm eller printe
000180: 72 20 28 73 2F 70 29 3A 20 27 29 3B 0D 0A 20 20 r (s/p): ');..
000190: 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 REPEAT..
0001A0: 20 20 20 20 52 45 41 44 28 4B 42 44 2C 20 63 68 READ(KBD, ch
0001B0: 29 3B 0D 0A 20 20 20 20 20 20 55 4E 54 49 4C 20 );.. UNTIL
0001C0: 63 68 20 49 4E 20 28 2E 20 27 53 27 2C 20 27 73 ch IN (. 'S', 's
0001D0: 27 2C 20 27 50 27 2C 20 27 70 27 2E 29 3B 0D 0A ', 'P', 'p'.);..
0001E0: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 63 68 WRITELN(ch
0001F0: 29 3B 0D 0A 20 20 20 20 20 20 49 46 20 63 68 20 );.. IF ch
Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 20 20 47 4F 54 4F 58 59 28 31 .. GOTOXY(1
000010: 30 2C 20 30 29 3B 20 57 52 49 54 45 28 27 54 61 0, 0); WRITE('Ta
000020: 73 74 20 6D 65 64 6C 65 6D 73 6E 75 6D 6D 65 72 st medlemsnummer
000030: 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 6D 65 64 : '); READLN(med
000040: 6C 65 6D 73 6E 72 29 3B 0D 0A 20 20 20 20 20 20 lemsnr);..
000050: 53 45 45 4B 28 66 69 6C 2C 20 6D 65 64 6C 65 6D SEEK(fil, medlem
000060: 73 6E 72 20 2D 20 31 29 3B 0D 0A 20 20 20 20 20 snr - 1);..
000070: 20 52 45 41 44 28 66 69 6C 2C 20 6D 65 64 6C 65 READ(fil, medle
000080: 6D 29 3B 0D 0A 20 20 20 20 20 20 53 45 45 4B 28 m);.. SEEK(
000090: 66 69 6C 2C 20 6D 65 64 6C 65 6D 73 6E 72 20 2D fil, medlemsnr -
0000A0: 20 31 29 3B 0D 0A 20 20 20 20 20 20 57 49 54 48 1);.. WITH
0000B0: 20 6D 65 64 6C 65 6D 20 44 4F 0D 0A 20 20 20 20 medlem DO..
0000C0: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
0000D0: 20 20 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 20 GOTOXY(10,
0000E0: 32 29 3B 20 57 52 49 54 45 28 27 4E 61 76 6E 3A 2); WRITE('Navn:
0000F0: 20 27 2C 20 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 ', navn);..
000100: 20 20 20 20 20 20 47 4F 54 4F 58 59 28 31 30 2C GOTOXY(10,
000110: 20 33 29 3B 20 57 52 49 54 45 28 27 41 64 72 65 3); WRITE('Adre
000120: 73 73 65 3A 20 27 2C 20 61 64 72 65 73 73 65 29 sse: ', adresse)
000130: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 47 4F 54 ;.. GOT
000140: 4F 58 59 28 31 30 2C 20 34 29 3B 20 57 52 49 54 OXY(10, 4); WRIT
000150: 45 28 27 42 79 3A 20 27 2C 20 62 79 29 3B 0D 0A E('By: ', by);..
000160: 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 GOTOXY
000170: 28 31 30 2C 20 35 29 3B 20 57 52 49 54 45 28 27 (10, 5); WRITE('
000180: 49 6E 66 6F 3A 20 27 2C 20 69 6E 66 6F 29 3B 0D Info: ', info);.
000190: 0A 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 . GOTOX
0001A0: 59 28 31 30 2C 20 37 29 3B 20 57 52 49 54 45 28 Y(10, 7); WRITE(
0001B0: 27 48 76 61 64 20 73 6B 61 6C 20 72 65 74 74 65 'Hvad skal rette
0001C0: 73 3A 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 s:');..
0001D0: 20 47 4F 54 4F 58 59 28 31 30 2C 20 38 29 3B 20 GOTOXY(10, 8);
0001E0: 57 52 49 54 45 28 27 4E 20 4E 61 76 6E 27 29 3B WRITE('N Navn');
0001F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F .. GOTO
Size : 512 (Real : 512)
000000: 49 4E 20 28 2E 20 27 53 27 2C 20 27 73 27 2E 29 IN (. 'S', 's'.)
000010: 0D 0A 20 20 20 20 20 20 20 20 54 48 45 4E 20 75 .. THEN u
000020: 64 6E 61 76 6E 20 3A 3D 20 27 43 4F 4E 3A 27 0D dnavn := 'CON:'.
000030: 0A 20 20 20 20 20 20 20 20 45 4C 53 45 20 75 64 . ELSE ud
000040: 6E 61 76 6E 20 3A 3D 20 27 4C 53 54 3A 27 3B 0D navn := 'LST:';.
000050: 0A 20 20 20 20 20 20 41 53 53 49 47 4E 28 75 64 . ASSIGN(ud
000060: 66 69 6C 2C 20 75 64 6E 61 76 6E 29 3B 0D 0A 20 fil, udnavn);..
000070: 20 20 20 20 20 52 45 53 45 54 28 66 69 6C 29 3B RESET(fil);
000080: 0D 0A 20 20 20 20 20 20 52 45 57 52 49 54 45 28 .. REWRITE(
000090: 75 64 66 69 6C 29 3B 0D 0A 20 20 20 20 20 20 69 udfil);.. i
0000A0: 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 20 20 57 48 := 0;.. WH
0000B0: 49 4C 45 20 4E 4F 54 20 45 4F 46 28 66 69 6C 29 ILE NOT EOF(fil)
0000C0: 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 42 45 47 DO.. BEG
0000D0: 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 69 20 IN.. i
0000E0: 3A 3D 20 69 20 2B 20 31 3B 0D 0A 20 20 20 20 20 := i + 1;..
0000F0: 20 20 20 20 20 52 45 41 44 28 66 69 6C 2C 20 6D READ(fil, m
000100: 65 64 6C 65 6D 29 3B 0D 0A 20 20 20 20 20 20 20 edlem);..
000110: 20 20 20 57 49 54 48 20 6D 65 64 6C 65 6D 20 44 WITH medlem D
000120: 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 O.. B
000130: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
000140: 20 20 20 20 49 46 20 6E 61 76 6E 20 3C 3E 20 27 IF navn <> '
000150: 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 '..
000160: 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 THEN..
000170: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E BEGIN
000180: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000190: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4D WRITELN('M
0001A0: 65 64 6C 65 6D 20 6E 72 2E 20 27 2C 20 69 2C 20 edlem nr. ', i,
0001B0: 27 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 ': ');..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
0001D0: 45 4C 4E 28 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 ELN(navn);..
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001F0: 57 52 49 54 45 4C 4E 28 61 64 72 65 73 73 65 29 WRITELN(adresse)
Size : 512 (Real : 512)
000000: 58 59 28 31 30 2C 20 39 29 3B 20 57 52 49 54 45 XY(10, 9); WRITE
000010: 28 27 41 20 41 64 72 65 73 73 65 27 29 3B 0D 0A ('A Adresse');..
000020: 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 GOTOXY
000030: 28 31 30 2C 20 31 30 29 3B 20 57 52 49 54 45 28 (10, 10); WRITE(
000040: 27 42 20 42 79 27 29 3B 0D 0A 20 20 20 20 20 20 'B By');..
000050: 20 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 20 31 GOTOXY(10, 1
000060: 31 29 3B 20 57 52 49 54 45 28 27 49 20 49 6E 66 1); WRITE('I Inf
000070: 6F 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 o');..
000080: 47 4F 54 4F 58 59 28 31 30 2C 20 31 32 29 3B 20 GOTOXY(10, 12);
000090: 57 52 49 54 45 28 27 46 20 46 5B 52 44 49 47 27 WRITE('F F[RDIG'
0000A0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 52 45 );.. RE
0000B0: 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20 20 20 PEAT..
0000C0: 20 20 47 4F 54 4F 58 59 28 30 2C 20 31 34 29 3B GOTOXY(0, 14);
0000D0: 20 57 52 49 54 45 28 43 4C 52 45 4F 53 29 3B 0D WRITE(CLREOS);.
0000E0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 . GOT
0000F0: 4F 58 59 28 31 30 2C 20 31 34 29 3B 20 57 52 49 OXY(10, 14); WRI
000100: 54 45 28 27 54 61 73 74 20 6B 6F 6D 6D 61 6E 64 TE('Tast kommand
000110: 6F 20 28 4E 2F 41 2F 42 2F 49 2F 46 29 3A 20 27 o (N/A/B/I/F): '
000120: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
000130: 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20 REPEAT..
000140: 20 20 20 20 20 20 52 45 41 44 28 4B 42 44 2C 20 READ(KBD,
000150: 63 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ch);..
000160: 20 20 55 4E 54 49 4C 20 63 68 20 49 4E 20 28 2E UNTIL ch IN (.
000170: 20 27 4E 27 2C 20 27 6E 27 2C 20 27 41 27 2C 20 'N', 'n', 'A',
000180: 27 61 27 2C 20 27 42 27 2C 20 27 62 27 2C 20 27 'a', 'B', 'b', '
000190: 49 27 2C 20 27 69 27 2C 20 27 46 27 2C 20 27 66 I', 'i', 'F', 'f
0001A0: 27 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 '.);..
0001B0: 20 20 57 52 49 54 45 28 63 68 29 3B 0D 0A 20 20 WRITE(ch);..
0001C0: 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 GOTOXY
0001D0: 28 31 30 2C 20 31 36 29 3B 20 57 52 49 54 45 28 (10, 16); WRITE(
0001E0: 27 54 61 73 74 20 7B 6E 64 72 69 6E 67 3A 20 27 'Tast {ndring: '
0001F0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
Size : 512 (Real : 512)
000000: 30 2C 20 31 31 29 3B 20 57 52 49 54 45 28 27 53 0, 11); WRITE('S
000010: 6C 65 74 74 65 20 6D 65 64 6C 65 6D 27 29 3B 0D lette medlem');.
000020: 0A 20 20 20 20 20 20 47 4F 54 4F 58 59 28 31 30 . GOTOXY(10
000030: 2C 20 31 33 29 3B 20 57 52 49 54 45 28 27 52 65 , 13); WRITE('Re
000040: 74 74 65 20 69 20 6D 65 64 6C 65 6D 73 70 6F 73 tte i medlemspos
000050: 74 27 29 3B 0D 0A 20 20 20 20 20 20 47 4F 54 4F t');.. GOTO
000060: 58 59 28 31 30 2C 20 31 35 29 3B 20 57 52 49 54 XY(10, 15); WRIT
000070: 45 28 27 49 6E 64 73 7B 74 74 65 20 6E 79 74 20 E('Inds{tte nyt
000080: 6D 65 64 6C 65 6D 20 69 20 6B 61 72 74 6F 74 65 medlem i kartote
000090: 6B 27 29 3B 0D 0A 20 20 20 20 20 20 47 4F 54 4F k');.. GOTO
0000A0: 58 59 28 31 30 2C 20 31 37 29 3B 20 57 52 49 54 XY(10, 17); WRIT
0000B0: 45 28 27 41 46 53 4C 55 54 54 45 20 70 72 6F 67 E('AFSLUTTE prog
0000C0: 72 61 6D 6B 7C 72 73 6C 65 6E 27 29 3B 0D 0A 20 ramk|rslen');..
0000D0: 20 20 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 20 GOTOXY(10,
0000E0: 31 39 29 3B 20 57 52 49 54 45 28 27 54 61 73 74 19); WRITE('Tast
0000F0: 20 6B 6F 6D 6D 61 6E 64 6F 3A 20 28 55 2F 53 2F kommando: (U/S/
000100: 52 2F 49 2F 41 29 3A 20 27 29 3B 0D 0A 20 20 20 R/I/A): ');..
000110: 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 REPEAT..
000120: 20 20 20 52 45 41 44 28 4B 42 44 2C 20 63 68 29 READ(KBD, ch)
000130: 3B 0D 0A 20 20 20 20 20 20 55 4E 54 49 4C 20 63 ;.. UNTIL c
000140: 68 20 49 4E 20 28 2E 20 27 55 27 2C 20 27 75 27 h IN (. 'U', 'u'
000150: 2C 20 27 53 27 2C 20 27 73 27 2C 20 27 52 27 2C , 'S', 's', 'R',
000160: 20 27 72 27 2C 20 27 49 27 2C 20 27 69 27 2C 20 'r', 'I', 'i',
000170: 27 41 27 2C 20 27 61 27 2E 29 3B 0D 0A 20 20 20 'A', 'a'.);..
000180: 20 20 20 57 52 49 54 45 4C 4E 28 63 68 29 3B 0D WRITELN(ch);.
000190: 0A 20 20 20 20 20 20 43 41 53 45 20 63 68 20 4F . CASE ch O
0001A0: 46 0D 0A 20 20 20 20 20 20 20 20 27 55 27 2C 20 F.. 'U',
0001B0: 27 75 27 20 3A 20 75 64 73 6B 72 69 76 3B 0D 0A 'u' : udskriv;..
0001C0: 20 20 20 20 20 20 20 20 27 53 27 2C 20 27 73 27 'S', 's'
0001D0: 20 3A 20 73 6C 65 74 3B 0D 0A 20 20 20 20 20 20 : slet;..
0001E0: 20 20 27 52 27 2C 20 27 72 27 20 3A 20 72 65 74 'R', 'r' : ret
0001F0: 3B 0D 0A 20 20 20 20 20 20 20 20 27 49 27 2C 20 ;.. 'I',
Size : 512 (Real : 512)
000000: 43 41 53 45 20 63 68 20 4F 46 0D 0A 20 20 20 20 CASE ch OF..
000010: 20 20 20 20 20 20 20 20 20 20 27 4E 27 2C 20 27 'N', '
000020: 6E 27 20 3A 20 52 45 41 44 28 6E 61 76 6E 29 3B n' : READ(navn);
000030: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000040: 27 41 27 2C 20 27 61 27 20 3A 20 52 45 41 44 28 'A', 'a' : READ(
000050: 61 64 72 65 73 73 65 29 3B 0D 0A 20 20 20 20 20 adresse);..
000060: 20 20 20 20 20 20 20 20 20 27 42 27 2C 20 27 62 'B', 'b
000070: 27 20 3A 20 52 45 41 44 28 62 79 29 3B 0D 0A 20 ' : READ(by);..
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 27 49 27 'I'
000090: 2C 20 27 69 27 20 3A 20 52 45 41 44 28 69 6E 66 , 'i' : READ(inf
0000A0: 6F 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 o);..
0000B0: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 END;..
0000C0: 20 20 20 49 46 20 4E 4F 54 20 28 63 68 20 49 4E IF NOT (ch IN
0000D0: 20 28 2E 27 46 27 2C 20 27 66 27 2E 29 29 0D 0A (.'F', 'f'.))..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 TH
0000F0: 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 EN..
000100: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
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 20 31 38 29 3B 20 0D 0A 20 OXY(10, 18); ..
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000140: 20 72 65 74 75 72 3B 0D 0A 20 20 20 20 20 20 20 retur;..
000150: 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 END;..
000160: 20 20 20 20 20 20 20 20 20 55 4E 54 49 4C 20 63 UNTIL c
000170: 68 20 49 4E 20 28 2E 27 46 27 2C 20 27 66 27 2E h IN (.'F', 'f'.
000180: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 );.. WR
000190: 49 54 45 28 66 69 6C 2C 20 6D 65 64 6C 65 6D 29 ITE(fil, medlem)
0001A0: 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E 44 3B 0D ;.. END;.
0001B0: 0A 20 20 20 20 45 4E 44 3B 20 28 2A 20 72 65 74 . END; (* ret
0001C0: 20 2A 29 0D 0A 0D 0A 20 20 50 52 4F 43 45 44 55 *).... PROCEDU
0001D0: 52 45 20 74 69 6C 66 6F 65 6A 3B 0D 0A 20 20 0D RE tilfoej;.. .
0001E0: 0A 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 . VAR..
0001F0: 66 69 6C 70 6F 69 6E 74 65 72 20 3A 20 49 4E 54 filpointer : INT
Size : 512 (Real : 512)
000000: 27 69 27 20 3A 20 74 69 6C 66 6F 65 6A 3B 0D 0A 'i' : tilfoej;..
000010: 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 END;..
000020: 55 4E 54 49 4C 20 63 68 20 49 4E 20 28 2E 20 27 UNTIL ch IN (. '
000030: 41 27 2C 20 27 61 27 2E 29 3B 0D 0A 20 20 20 20 A', 'a'.);..
000040: 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 43 4C WRITELN;.. CL
000050: 4F 53 45 28 66 69 6C 29 3B 0D 0A 20 20 45 4E 44 OSE(fil);.. END
000060: 2E 20 28 2A 20 6D 65 6E 75 66 69 6C 20 2A 29 0D . (* menufil *).
000070: 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
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: 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 6E 79 74 EGER;.. nyt
000010: 6D 65 64 6C 65 6D 20 3A 20 6D 65 64 6C 65 6D 73 medlem : medlems
000020: 70 6F 73 74 3B 0D 0A 20 20 20 20 20 20 0D 0A 20 post;.. ..
000030: 20 20 20 42 45 47 49 4E 20 28 2A 20 74 69 6C 66 BEGIN (* tilf
000040: 6F 65 6A 20 2A 29 0D 0A 20 20 20 20 20 20 57 52 oej *).. WR
000050: 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 ITE(CLRHOM);..
000060: 20 20 20 20 52 45 53 45 54 28 66 69 6C 29 3B 0D RESET(fil);.
000070: 0A 20 20 20 20 20 20 66 69 6C 70 6F 69 6E 74 65 . filpointe
000080: 72 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 20 20 49 r := 0;.. I
000090: 46 20 4C 45 4E 47 54 48 28 66 69 6C 29 20 3E 20 F LENGTH(fil) >
0000A0: 30 0D 0A 20 20 20 20 20 20 20 20 54 48 45 4E 20 0.. THEN
0000B0: 0D 0A 20 20 20 20 20 20 20 20 20 20 42 45 47 49 .. BEGI
0000C0: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 52 45 41 N.. REA
0000D0: 44 28 66 69 6C 2C 20 6D 65 64 6C 65 6D 29 3B 0D D(fil, medlem);.
0000E0: 0A 20 20 20 20 20 20 20 20 20 20 66 69 6C 70 6F . filpo
0000F0: 69 6E 74 65 72 20 3A 3D 20 31 3B 0D 0A 20 20 20 inter := 1;..
000100: 20 20 20 20 20 20 20 57 48 49 4C 45 20 28 6D 65 WHILE (me
000110: 64 6C 65 6D 2E 6E 61 76 6E 20 3C 3E 20 27 27 29 dlem.navn <> '')
000120: 20 41 4E 44 20 4E 4F 54 20 45 4F 46 28 66 69 6C AND NOT EOF(fil
000130: 29 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 ) DO..
000140: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 BEGIN..
000150: 20 20 20 20 20 20 20 52 45 41 44 28 66 69 6C 2C READ(fil,
000160: 20 6D 65 64 6C 65 6D 29 3B 0D 0A 20 20 20 20 20 medlem);..
000170: 20 20 20 20 20 20 20 20 20 66 69 6C 70 6F 69 6E filpoin
000180: 74 65 72 20 3A 3D 20 66 69 6C 70 6F 69 6E 74 65 ter := filpointe
000190: 72 20 2B 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 r + 1;..
0001A0: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 END;..
0001B0: 20 20 20 20 49 46 20 6D 65 64 6C 65 6D 2E 6E 61 IF medlem.na
0001C0: 76 6E 20 3D 20 27 27 0D 0A 20 20 20 20 20 20 20 vn = ''..
0001D0: 20 20 20 20 20 54 48 45 4E 20 66 69 6C 70 6F 69 THEN filpoi
0001E0: 6E 74 65 72 20 3A 3D 20 66 69 6C 70 6F 69 6E 74 nter := filpoint
0001F0: 65 72 20 2D 20 31 3B 0D 0A 20 20 20 20 20 20 20 er - 1;..
Size : 512 (Real : 512)
000000: 00 D1 67 C3 0D 70 C4 5E C4 DF 39 E6 38 F3 05 8A ..g..p.^..9.8...
000010: B4 E2 D8 AF C1 FE 13 2F 80 15 16 BC 8E B1 7A 8B ......./......z.
000020: 78 05 DA F1 F0 31 1C 8E 17 31 62 08 CC F5 0C AD x....1...1b.....
000030: 08 2C 8E F1 1A 20 3B F1 45 44 FC 9C 67 0C 43 47 .,... ;.ED..g.CG
000040: 3C 45 0C 18 CD D1 C4 61 88 E0 5D 3C 2D 35 58 7F <E.....a..]<-5X.
000050: E2 05 D0 FC F1 08 44 7C 81 47 3C 45 0C 4A F1 E2 ......D|.G<E.J..
000060: 35 81 60 2B 70 1C 6E 82 88 C4 26 0F 37 C3 11 7C 5.`+p.n...&.7..|
000070: 11 8A 52 B2 38 E0 A2 B8 5D 8E B8 8B 18 46 B0 56 ..R.8...]....F.V
000080: BD 08 B4 99 DB 58 13 C0 62 6A 83 E4 E1 91 48 2B .....X..bj....H+
000090: B0 09 6E 44 04 C5 51 38 82 2F 62 F5 1C 20 2E 8D ..nD..Q8./b.. ..
0000A0: 00 08 AC 71 84 8B 20 5C 0C 0C 47 D8 45 5C 23 40 ...q.. \..G.E\#@
0000B0: 07 1B 01 88 48 86 B9 1B 24 2E 6E 86 23 F7 22 DB ....H...$.n.#.".
0000C0: CE 00 88 6E 23 A2 7A 90 F8 20 EC 10 E3 03 8E 6E ...n#.z.. .....n
0000D0: 3B 00 20 B9 8D 08 91 38 0C 86 81 EA 75 A0 B5 B9 ;. ....8....u...
0000E0: 1D 35 91 2C 86 58 0A B1 EA 59 A6 5B 90 AC 0B AC .5.,.X...Y.[....
0000F0: E1 96 E9 15 64 7D 89 64 AB 05 32 C2 D6 56 FB 03 ....d}.d..2..V..
000100: C2 CC 5A E5 82 B3 4C B6 20 59 17 59 C3 2C D3 2F ..Z...L. Y.Y.,./
000110: C8 0A F2 EB 92 E2 32 CC 1A A4 82 CE BA 10 98 D3 ......2.........
000120: 59 54 2E 32 CB 61 0B 9C 75 9D 35 CC 32 FF 82 A3 YT.2.a..u.5.2...
000130: A6 1A 42 86 BC A9 DA 74 96 68 D4 59 43 A9 C3 BA ..B....t.h.YC...
000140: 90 1D BE B4 4B 62 81 AC 4B 63 D0 6B 23 05 32 2E ....Kb..Kc.k#.2.
000150: 89 71 B3 8D 0C DC 2C 56 43 19 24 74 16 74 16 7B .q....,VC.$t.t.{
000160: 56 AB 4B 32 C8 E8 2C F6 2F CC 7A C7 16 8D 10 96 V.K2..,./.z.....
000170: 2B CC 7A CA 15 46 0C C4 D6 72 19 59 A6 5B 90 AC +.z..F...r.Y.[..
000180: 0B AC E1 96 E9 16 64 B5 BD EA 16 15 92 2E 50 AA ......d.......P.
000190: A9 6A A8 35 9A 0A 41 B5 9D EA 16 15 92 2E 50 8B .j.5..A.......P.
0001A0: B4 36 3D 5C 60 86 38 A1 46 05 82 82 89 28 15 95 .6=\`.8.F....(..
0001B0: 31 A9 DE A6 67 0B CC 10 87 D4 C8 28 35 65 F7 87 1...g......(5e..
0001C0: 3C E9 A9 1A FF 15 99 76 2F C9 53 A4 53 83 AA 41 <......v/.S.S..A
0001D0: 45 31 06 D5 54 FF 52 8C 41 2A 8D E9 59 4B 62 10 E1..T.R.A*..YKb.
0001E0: 87 24 B1 10 6C 4B 2C 54 30 C6 A0 95 46 F4 2C 25 .$..lK,T0...F.,%
0001F0: B1 A3 D4 94 DD 1E F2 A7 A7 6D 83 35 2F DD 4B F2 .........m.5/.K.
Size : 512 (Real : 512)
000000: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 57 49 54 END;.. WIT
000010: 48 20 6E 79 74 6D 65 64 6C 65 6D 20 44 4F 0D 0A H nytmedlem DO..
000020: 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 BEGIN..
000030: 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 GOTOXY(
000040: 31 30 2C 20 35 29 3B 20 57 52 49 54 45 28 27 4E 10, 5); WRITE('N
000050: 79 74 20 6D 65 64 6C 65 6D 20 6E 72 3A 20 27 2C yt medlem nr: ',
000060: 20 66 69 6C 70 6F 69 6E 74 65 72 20 2B 20 31 29 filpointer + 1)
000070: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 47 4F 54 ;.. GOT
000080: 4F 58 59 28 31 30 2C 20 37 29 3B 20 57 52 49 54 OXY(10, 7); WRIT
000090: 45 28 27 4E 61 76 6E 3A 20 27 29 3B 20 52 45 41 E('Navn: '); REA
0000A0: 44 28 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 20 20 D(navn);..
0000B0: 20 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 20 39 GOTOXY(10, 9
0000C0: 29 3B 20 57 52 49 54 45 28 27 41 64 72 65 73 73 ); WRITE('Adress
0000D0: 65 3A 20 27 29 3B 20 52 45 41 44 28 61 64 72 65 e: '); READ(adre
0000E0: 73 73 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 sse);..
0000F0: 20 47 4F 54 4F 58 59 28 31 30 2C 20 31 31 29 3B GOTOXY(10, 11);
000100: 20 57 52 49 54 45 28 27 42 79 3A 20 27 29 3B 20 WRITE('By: ');
000110: 52 45 41 44 28 62 79 29 3B 0D 0A 20 20 20 20 20 READ(by);..
000120: 20 20 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 20 GOTOXY(10,
000130: 31 33 29 3B 20 57 52 49 54 45 28 27 49 6E 66 6F 13); WRITE('Info
000140: 3A 20 27 29 3B 20 52 45 41 44 28 69 6E 66 6F 29 : '); READ(info)
000150: 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E 44 3B 0D ;.. END;.
000160: 0A 20 20 20 20 20 20 53 45 45 4B 28 66 69 6C 2C . SEEK(fil,
000170: 20 66 69 6C 70 6F 69 6E 74 65 72 29 3B 0D 0A 20 filpointer);..
000180: 20 20 20 20 20 57 52 49 54 45 28 66 69 6C 2C 20 WRITE(fil,
000190: 6E 79 74 6D 65 64 6C 65 6D 29 3B 0D 0A 20 20 20 nytmedlem);..
0001A0: 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 20 31 35 GOTOXY(10, 15
0001B0: 29 3B 0D 0A 20 20 20 20 20 20 72 65 74 75 72 3B );.. retur;
0001C0: 0D 0A 20 20 20 20 45 4E 44 3B 20 28 2A 20 74 69 .. END; (* ti
0001D0: 6C 66 6F 65 6A 20 2A 29 0D 0A 20 20 0D 0A 20 20 lfoej *).. ..
0001E0: 42 45 47 49 4E 20 28 2A 20 6D 65 6E 75 66 69 6C BEGIN (* menufil
0001F0: 20 2A 29 0D 0A 20 20 20 20 57 52 49 54 45 28 43 *).. WRITE(C
Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 6D 6F 72 73 65 31 3B 0D PROGRAM morse1;.
000010: 0A 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 20 73 ... TYPE.. s
000020: 74 72 31 32 37 20 3D 20 53 54 52 49 4E 47 28 2E tr127 = STRING(.
000030: 31 32 37 2E 29 3B 0D 0A 20 20 20 20 73 74 72 35 127.);.. str5
000040: 20 3D 20 53 54 52 49 4E 47 28 2E 35 2E 29 3B 0D = STRING(.5.);.
000050: 0A 20 20 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 . .. VAR..
000060: 74 65 6B 73 74 20 3A 20 73 74 72 31 32 37 3B 0D tekst : str127;.
000070: 0A 20 20 20 20 6D 6F 72 73 65 20 3A 20 73 74 72 . morse : str
000080: 35 3B 0D 0A 20 20 20 20 63 68 20 3A 20 43 48 41 5;.. ch : CHA
000090: 52 3B 0D 0A 20 20 20 20 69 2C 20 70 6F 73 69 74 R;.. i, posit
0000A0: 69 6F 6E 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A ion : INTEGER;..
0000B0: 20 20 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20 .. BEGIN..
0000C0: 20 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D WRITE(CLRHOM);.
0000D0: 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 49 6E . WRITELN('In
0000E0: 64 74 61 73 74 20 74 65 6B 73 74 65 6E 20 28 6B dtast teksten (k
0000F0: 75 6E 20 73 6D 7D 20 62 6F 67 73 74 61 76 65 72 un sm} bogstaver
000100: 20 6F 67 20 6D 65 6C 6C 65 6D 72 75 6D 29 3A 27 og mellemrum):'
000110: 29 3B 0D 0A 20 20 20 20 52 45 41 44 4C 4E 28 74 );.. READLN(t
000120: 65 6B 73 74 29 3B 0D 0A 20 20 20 20 57 52 49 54 ekst);.. WRIT
000130: 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C ELN;.. WRITEL
000140: 4E 28 27 4D 6F 72 73 65 74 65 6B 73 74 65 6E 20 N('Morseteksten
000150: 28 75 6C 6F 76 6C 69 67 65 20 74 65 67 6E 20 73 (ulovlige tegn s
000160: 6B 72 69 76 65 73 20 73 6F 6D 20 27 27 2A 27 27 krives som ''*''
000170: 29 3A 27 29 3B 0D 0A 20 20 20 20 70 6F 73 69 74 ):');.. posit
000180: 69 6F 6E 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 46 ion := 0;.. F
000190: 4F 52 20 69 20 3A 3D 20 31 20 54 4F 20 4C 45 4E OR i := 1 TO LEN
0001A0: 28 74 65 6B 73 74 29 20 44 4F 0D 0A 20 20 20 20 (tekst) DO..
0001B0: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 BEGIN..
0001C0: 20 63 68 20 3A 3D 20 74 65 6B 73 74 28 2E 69 2E ch := tekst(.i.
0001D0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 43 41 53 45 );.. CASE
0001E0: 20 63 68 20 4F 46 0D 0A 20 20 20 20 20 20 20 20 ch OF..
0001F0: 20 20 27 20 27 20 3A 20 6D 6F 72 73 65 20 3A 3D ' ' : morse :=
Size : 512 (Real : 512)
000000: 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 47 4F 54 LRHOM);.. GOT
000010: 4F 58 59 28 31 30 2C 20 35 29 3B 20 57 52 49 54 OXY(10, 5); WRIT
000020: 45 28 27 4D 20 45 20 44 20 4C 20 45 20 4D 20 53 E('M E D L E M S
000030: 20 4B 20 41 20 52 20 54 20 4F 20 54 20 45 20 4B K A R T O T E K
000040: 27 29 3B 0D 0A 20 20 20 20 47 4F 54 4F 58 59 28 ');.. GOTOXY(
000050: 31 30 2C 20 37 29 3B 20 57 52 49 54 45 28 27 53 10, 7); WRITE('S
000060: 6B 61 6C 20 64 75 20 61 72 62 65 6A 64 65 20 6D kal du arbejde m
000070: 65 64 20 65 74 20 6E 79 74 20 65 6C 6C 65 72 20 ed et nyt eller
000080: 65 74 20 61 6C 6C 65 72 65 64 65 27 29 3B 0D 0A et allerede');..
000090: 20 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 20 38 GOTOXY(10, 8
0000A0: 29 3B 20 57 52 49 54 45 28 27 65 6B 73 69 73 74 ); WRITE('eksist
0000B0: 65 72 65 6E 64 65 20 6B 61 72 74 6F 74 65 6B 20 erende kartotek
0000C0: 28 4E 2F 45 29 3A 20 27 29 3B 0D 0A 20 20 20 20 (N/E): ');..
0000D0: 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 52 45 REPEAT.. RE
0000E0: 41 44 28 4B 42 44 2C 20 63 68 29 3B 0D 0A 20 20 AD(KBD, ch);..
0000F0: 20 20 55 4E 54 49 4C 20 63 68 20 49 4E 20 28 2E UNTIL ch IN (.
000100: 20 27 4E 27 2C 20 27 6E 27 2C 20 27 45 27 2C 20 'N', 'n', 'E',
000110: 27 65 27 2E 29 3B 0D 0A 20 20 20 20 49 46 20 63 'e'.);.. IF c
000120: 68 20 49 4E 20 28 2E 20 27 4E 27 2C 20 27 6E 27 h IN (. 'N', 'n'
000130: 2E 29 0D 0A 20 20 20 20 20 20 54 48 45 4E 20 6F .).. THEN o
000140: 70 72 65 74 0D 0A 20 20 20 20 20 20 45 4C 53 45 pret.. ELSE
000150: 20 68 76 69 6C 6B 65 6E 66 69 6C 3B 0D 0A 20 20 hvilkenfil;..
000160: 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 REPEAT..
000170: 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A WRITE(CLRHOM);..
000180: 20 20 20 20 20 20 47 4F 54 4F 58 59 28 31 30 2C GOTOXY(10,
000190: 20 37 29 3B 20 57 52 49 54 45 28 27 4D 20 45 20 7); WRITE('M E
0001A0: 44 20 4C 20 45 20 4D 20 53 20 4B 20 41 20 52 20 D L E M S K A R
0001B0: 54 20 4F 20 54 20 45 20 4B 27 29 3B 0D 0A 20 20 T O T E K');..
0001C0: 20 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 20 39 GOTOXY(10, 9
0001D0: 29 3B 20 57 52 49 54 45 28 27 55 64 73 6B 72 69 ); WRITE('Udskri
0001E0: 76 65 20 6B 61 72 74 6F 74 65 6B 65 74 27 29 3B ve kartoteket');
0001F0: 0D 0A 20 20 20 20 20 20 47 4F 54 4F 58 59 28 31 .. GOTOXY(1
Size : 512 (Real : 512)
000000: 20 27 20 20 27 3B 0D 0A 20 20 20 20 20 20 20 20 ' ';..
000010: 20 20 27 61 27 20 3A 20 6D 6F 72 73 65 20 3A 3D 'a' : morse :=
000020: 20 27 2E 2D 27 3B 0D 0A 20 20 20 20 20 20 20 20 '.-';..
000030: 20 20 27 62 27 20 3A 20 6D 6F 72 73 65 20 3A 3D 'b' : morse :=
000040: 20 27 2D 2E 2E 2E 27 3B 0D 0A 20 20 20 20 20 20 '-...';..
000050: 20 20 20 20 27 63 27 20 3A 20 6D 6F 72 73 65 20 'c' : morse
000060: 3A 3D 20 27 2D 2E 2D 2E 27 3B 0D 0A 20 20 20 20 := '-.-.';..
000070: 20 20 20 20 20 20 27 64 27 20 3A 20 6D 6F 72 73 'd' : mors
000080: 65 20 3A 3D 20 27 2D 2E 2E 27 3B 0D 0A 20 20 20 e := '-..';..
000090: 20 20 20 20 20 20 20 27 65 27 20 3A 20 6D 6F 72 'e' : mor
0000A0: 73 65 20 3A 3D 20 27 2E 27 3B 0D 0A 20 20 20 20 se := '.';..
0000B0: 20 20 20 20 20 20 27 66 27 20 3A 20 6D 6F 72 73 'f' : mors
0000C0: 65 20 3A 3D 20 27 2E 2E 2D 2E 27 3B 0D 0A 20 20 e := '..-.';..
0000D0: 20 20 20 20 20 20 20 20 27 67 27 20 3A 20 6D 6F 'g' : mo
0000E0: 72 73 65 20 3A 3D 20 27 2D 2D 2E 27 3B 0D 0A 20 rse := '--.';..
0000F0: 20 20 20 20 20 20 20 20 20 27 68 27 20 3A 20 6D 'h' : m
000100: 6F 72 73 65 20 3A 3D 20 27 2E 2E 2E 2E 27 3B 0D orse := '....';.
000110: 0A 20 20 20 20 20 20 20 20 20 20 27 69 27 20 3A . 'i' :
000120: 20 6D 6F 72 73 65 20 3A 3D 20 27 2E 2E 27 3B 0D morse := '..';.
000130: 0A 20 20 20 20 20 20 20 20 20 20 27 6A 27 20 3A . 'j' :
000140: 20 6D 6F 72 73 65 20 3A 3D 20 27 2E 2D 2D 2D 27 morse := '.---'
000150: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 27 6B 27 ;.. 'k'
000160: 20 3A 20 6D 6F 72 73 65 20 3A 3D 20 27 2D 2E 2D : morse := '-.-
000170: 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 27 6C ';.. 'l
000180: 27 20 3A 20 6D 6F 72 73 65 20 3A 3D 20 27 2E 2D ' : morse := '.-
000190: 2E 2E 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ..';..
0001A0: 27 6D 27 20 3A 20 6D 6F 72 73 65 20 3A 3D 20 27 'm' : morse := '
0001B0: 2D 2D 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 --';..
0001C0: 27 6E 27 20 3A 20 6D 6F 72 73 65 20 3A 3D 20 27 'n' : morse := '
0001D0: 2D 2E 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 -.';..
0001E0: 27 6F 27 20 3A 20 6D 6F 72 73 65 20 3A 3D 20 27 'o' : morse := '
0001F0: 2D 2D 2D 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 ---';..
Size : 512 (Real : 512)
000000: 20 69 73 74 61 72 74 20 3E 20 31 0D 0A 20 20 20 istart > 1..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 THE
000020: 4E 20 6B 6C 61 72 74 65 6B 73 74 20 3A 3D 20 6B N klartekst := k
000030: 6C 61 72 74 65 6B 73 74 20 2B 20 27 20 27 3B 0D lartekst + ' ';.
000040: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 . t
000050: 65 67 6E 20 3A 3D 20 27 27 3B 0D 0A 20 20 20 20 egn := '';..
000060: 20 20 20 20 20 20 20 20 20 20 57 48 49 4C 45 20 WHILE
000070: 28 69 20 3C 20 6C 29 20 41 4E 44 20 28 28 74 65 (i < l) AND ((te
000080: 6B 73 74 28 2E 69 2E 29 20 3D 20 27 2E 27 29 20 kst(.i.) = '.')
000090: 4F 52 20 28 74 65 6B 73 74 28 2E 69 2E 29 20 3D OR (tekst(.i.) =
0000A0: 20 27 2D 27 29 29 20 44 4F 0D 0A 20 20 20 20 20 '-')) DO..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E BEGIN
0000C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0000D0: 20 20 20 20 74 65 67 6E 20 3A 3D 20 74 65 67 6E tegn := tegn
0000E0: 20 2B 20 74 65 6B 73 74 28 2E 69 2E 29 3B 0D 0A + tekst(.i.);..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 20 69 20 3A 3D 20 69 20 2B 20 31 3B 0D 0A 20 i := i + 1;..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
000120: 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ND;..
000130: 20 20 20 49 46 20 74 65 67 6E 20 3C 3E 20 27 27 IF tegn <> ''
000140: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000150: 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 THEN..
000160: 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D BEGIN.
000170: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000180: 20 20 20 20 20 49 46 20 74 65 67 6E 20 3D 20 27 IF tegn = '
000190: 2E 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 .'..
0001A0: 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 63 THEN c
0001B0: 68 20 3A 3D 20 27 65 27 0D 0A 20 20 20 20 20 20 h := 'e'..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4C EL
0001D0: 53 45 20 49 46 20 74 65 67 6E 20 3D 20 27 2D 27 SE IF tegn = '-'
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 54 48 45 4E 20 63 68 20 THEN ch
Size : 512 (Real : 512)
000000: 20 27 70 27 20 3A 20 6D 6F 72 73 65 20 3A 3D 20 'p' : morse :=
000010: 27 2E 2D 2D 2E 27 3B 0D 0A 20 20 20 20 20 20 20 '.--.';..
000020: 20 20 20 27 71 27 20 3A 20 6D 6F 72 73 65 20 3A 'q' : morse :
000030: 3D 20 27 2D 2D 2E 2D 27 3B 0D 0A 20 20 20 20 20 = '--.-';..
000040: 20 20 20 20 20 27 72 27 20 3A 20 6D 6F 72 73 65 'r' : morse
000050: 20 3A 3D 20 27 2E 2D 2E 27 3B 0D 0A 20 20 20 20 := '.-.';..
000060: 20 20 20 20 20 20 27 73 27 20 3A 20 6D 6F 72 73 's' : mors
000070: 65 20 3A 3D 20 27 2E 2E 2E 27 3B 0D 0A 20 20 20 e := '...';..
000080: 20 20 20 20 20 20 20 27 74 27 20 3A 20 6D 6F 72 't' : mor
000090: 73 65 20 3A 3D 20 27 2D 27 3B 0D 0A 20 20 20 20 se := '-';..
0000A0: 20 20 20 20 20 20 27 75 27 20 3A 20 6D 6F 72 73 'u' : mors
0000B0: 65 20 3A 3D 20 27 2E 2E 2D 27 3B 0D 0A 20 20 20 e := '..-';..
0000C0: 20 20 20 20 20 20 20 27 76 27 20 3A 20 6D 6F 72 'v' : mor
0000D0: 73 65 20 3A 3D 20 27 2E 2E 2E 2D 27 3B 0D 0A 20 se := '...-';..
0000E0: 20 20 20 20 20 20 20 20 20 27 77 27 20 3A 20 6D 'w' : m
0000F0: 6F 72 73 65 20 3A 3D 20 27 2E 2D 2D 27 3B 0D 0A orse := '.--';..
000100: 20 20 20 20 20 20 20 20 20 20 27 78 27 20 3A 20 'x' :
000110: 6D 6F 72 73 65 20 3A 3D 20 27 2D 2E 2E 2D 27 3B morse := '-..-';
000120: 0D 0A 20 20 20 20 20 20 20 20 20 20 27 79 27 20 .. 'y'
000130: 3A 20 6D 6F 72 73 65 20 3A 3D 20 27 2D 2E 2D 2D : morse := '-.--
000140: 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 27 7A ';.. 'z
000150: 27 20 3A 20 6D 6F 72 73 65 20 3A 3D 20 27 2D 2D ' : morse := '--
000160: 2E 2E 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ..';..
000170: 27 7B 27 20 3A 20 6D 6F 72 73 65 20 3A 3D 20 27 '{' : morse := '
000180: 2E 2D 2E 2D 27 3B 0D 0A 20 20 20 20 20 20 20 20 .-.-';..
000190: 20 20 27 7C 27 20 3A 20 6D 6F 72 73 65 20 3A 3D '|' : morse :=
0001A0: 20 27 2D 2D 2D 2E 27 3B 0D 0A 20 20 20 20 20 20 '---.';..
0001B0: 20 20 20 20 27 7D 27 20 3A 20 6D 6F 72 73 65 20 '}' : morse
0001C0: 3A 3D 20 27 2E 2D 2D 2E 2D 27 3B 0D 0A 20 20 20 := '.--.-';..
0001D0: 20 20 20 20 20 4F 54 48 45 52 57 49 53 45 0D 0A OTHERWISE..
0001E0: 20 20 20 20 20 20 20 20 20 20 6D 6F 72 73 65 20 morse
0001F0: 3A 3D 20 27 2A 27 3B 0D 0A 20 20 20 20 20 20 20 := '*';..
Size : 512 (Real : 512)
000000: 3A 3D 20 27 74 27 0D 0A 20 20 20 20 20 20 20 20 := 't'..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 ELSE
000020: 20 49 46 20 74 65 67 6E 20 3D 20 27 2E 2E 27 0D IF tegn = '..'.
000030: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000040: 20 20 20 20 20 20 20 54 48 45 4E 20 63 68 20 3A THEN ch :
000050: 3D 20 27 69 27 0D 0A 20 20 20 20 20 20 20 20 20 = 'i'..
000060: 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 ELSE
000070: 49 46 20 74 65 67 6E 20 3D 20 27 2E 2D 27 0D 0A IF tegn = '.-'..
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000090: 20 20 20 20 20 20 54 48 45 4E 20 63 68 20 3A 3D THEN ch :=
0000A0: 20 27 61 27 0D 0A 20 20 20 20 20 20 20 20 20 20 'a'..
0000B0: 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 ELSE I
0000C0: 46 20 74 65 67 6E 20 3D 20 27 2D 2E 27 0D 0A 20 F tegn = '-.'..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 20 20 54 48 45 4E 20 63 68 20 3A 3D 20 THEN ch :=
0000F0: 27 6E 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 'n'..
000100: 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 ELSE IF
000110: 20 74 65 67 6E 20 3D 20 27 2D 2D 27 0D 0A 20 20 tegn = '--'..
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000130: 20 20 20 20 54 48 45 4E 20 63 68 20 3A 3D 20 27 THEN ch := '
000140: 6D 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 m'..
000150: 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 20 ELSE IF
000160: 74 65 67 6E 20 3D 20 27 2E 2E 2E 27 0D 0A 20 20 tegn = '...'..
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 20 20 20 20 54 48 45 4E 20 63 68 20 3A 3D 20 27 THEN ch := '
000190: 73 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 s'..
0001A0: 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 20 ELSE IF
0001B0: 74 65 67 6E 20 3D 20 27 2E 2E 2D 27 0D 0A 20 20 tegn = '..-'..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001D0: 20 20 20 20 54 48 45 4E 20 63 68 20 3A 3D 20 27 THEN ch := '
0001E0: 75 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 u'..
0001F0: 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 20 ELSE IF
Size : 512 (Real : 512)
000000: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 49 END;.. I
000010: 46 20 6D 6F 72 73 65 20 3D 20 27 20 20 27 0D 0A F morse = ' '..
000020: 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 0D THEN .
000030: 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 . BEG
000040: 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 IN..
000050: 20 20 57 52 49 54 45 28 27 2F 20 27 29 3B 0D 0A WRITE('/ ');..
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6F po
000070: 73 69 74 69 6F 6E 20 3A 3D 20 70 6F 73 69 74 69 sition := positi
000080: 6F 6E 20 2B 20 32 3B 0D 0A 20 20 20 20 20 20 20 on + 2;..
000090: 20 20 20 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 END..
0000A0: 20 20 20 20 45 4C 53 45 20 0D 0A 20 20 20 20 20 ELSE ..
0000B0: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 BEGIN..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
0000D0: 45 28 6D 6F 72 73 65 2C 20 27 20 20 27 29 3B 0D E(morse, ' ');.
0000E0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 . p
0000F0: 6F 73 69 74 69 6F 6E 20 3A 3D 20 70 6F 73 69 74 osition := posit
000100: 69 6F 6E 20 2B 20 4C 45 4E 28 6D 6F 72 73 65 29 ion + LEN(morse)
000110: 20 2B 20 32 3B 0D 0A 20 20 20 20 20 20 20 20 20 + 2;..
000120: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 END;..
000130: 20 49 46 20 70 6F 73 69 74 69 6F 6E 20 3E 20 37 IF position > 7
000140: 33 0D 0A 20 20 20 20 20 20 20 20 20 20 54 48 45 3.. THE
000150: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 N.. B
000160: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
000170: 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 WRITELN;..
000180: 20 20 20 20 20 20 20 20 20 20 20 20 70 6F 73 69 posi
000190: 74 69 6F 6E 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 tion := 0;..
0001A0: 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 END;..
0001B0: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 57 52 END;.. WR
0001C0: 49 54 45 4C 4E 3B 0D 0A 20 20 45 4E 44 2E 0D 0A ITELN;.. END...
0001D0: 1A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 ... B
0001E0: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
0001F0: 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 WRITELN;..
Size : 512 (Real : 512)
000000: 74 65 67 6E 20 3D 20 27 2E 2D 2E 27 0D 0A 20 20 tegn = '.-.'..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 20 20 20 20 54 48 45 4E 20 63 68 20 3A 3D 20 27 THEN ch := '
000030: 72 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 r'..
000040: 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 20 ELSE IF
000050: 74 65 67 6E 20 3D 20 27 2D 2E 2E 27 0D 0A 20 20 tegn = '-..'..
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 20 20 20 54 48 45 4E 20 63 68 20 3A 3D 20 27 THEN ch := '
000080: 64 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 d'..
000090: 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 20 ELSE IF
0000A0: 74 65 67 6E 20 3D 20 27 2E 2D 2D 27 0D 0A 20 20 tegn = '.--'..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 20 20 20 54 48 45 4E 20 63 68 20 3A 3D 20 27 THEN ch := '
0000D0: 77 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 w'..
0000E0: 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 20 ELSE IF
0000F0: 74 65 67 6E 20 3D 20 27 2D 2E 2D 27 0D 0A 20 20 tegn = '-.-'..
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 20 20 20 20 54 48 45 4E 20 63 68 20 3A 3D 20 27 THEN ch := '
000120: 6B 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 k'..
000130: 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 20 ELSE IF
000140: 74 65 67 6E 20 3D 20 27 2D 2D 2E 27 0D 0A 20 20 tegn = '--.'..
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000160: 20 20 20 20 54 48 45 4E 20 63 68 20 3A 3D 20 27 THEN ch := '
000170: 67 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 g'..
000180: 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 20 ELSE IF
000190: 74 65 67 6E 20 3D 20 27 2D 2D 2D 27 0D 0A 20 20 tegn = '---'..
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001B0: 20 20 20 20 54 48 45 4E 20 63 68 20 3A 3D 20 27 THEN ch := '
0001C0: 6F 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 o'..
0001D0: 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 20 ELSE IF
0001E0: 74 65 67 6E 20 3D 20 27 2E 2E 2E 2E 27 0D 0A 20 tegn = '....'..
0001F0: 20 20 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 6D 6F 72 73 65 32 3B 0D PROGRAM morse2;.
000010: 0A 20 20 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 . .. TYPE..
000020: 20 73 74 72 32 35 35 20 3D 20 53 54 52 49 4E 47 str255 = STRING
000030: 28 2E 32 35 35 2E 29 3B 0D 0A 20 20 20 20 73 74 (.255.);.. st
000040: 72 37 38 20 3D 20 53 54 52 49 4E 47 28 2E 37 38 r78 = STRING(.78
000050: 2E 29 3B 0D 0A 20 20 0D 0A 20 20 56 41 52 0D 0A .);.. .. VAR..
000060: 20 20 20 20 6B 6C 61 72 74 65 6B 73 74 20 3A 20 klartekst :
000070: 73 74 72 32 35 35 3B 0D 0A 20 20 20 20 74 65 6B str255;.. tek
000080: 73 74 2C 20 74 65 67 6E 20 3A 20 73 74 72 37 38 st, tegn : str78
000090: 3B 0D 0A 20 20 20 20 63 68 20 3A 20 43 48 41 52 ;.. ch : CHAR
0000A0: 3B 0D 0A 20 20 20 20 69 2C 20 69 73 74 61 72 74 ;.. i, istart
0000B0: 2C 20 69 73 6C 75 74 2C 20 6C 20 3A 20 49 4E 54 , islut, l : INT
0000C0: 45 47 45 52 3B 0D 0A 20 20 20 20 0D 0A 20 20 42 EGER;.. .. B
0000D0: 45 47 49 4E 0D 0A 20 20 20 20 57 52 49 54 45 28 EGIN.. WRITE(
0000E0: 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 57 52 CLRHOM);.. WR
0000F0: 49 54 45 4C 4E 28 27 46 72 61 20 6D 6F 72 73 65 ITELN('Fra morse
000100: 74 65 6B 73 74 20 74 69 6C 20 61 6C 6D 2E 20 74 tekst til alm. t
000110: 65 6B 73 74 27 29 3B 0D 0A 20 20 20 20 57 52 49 ekst');.. WRI
000120: 54 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 TELN;.. WRITE
000130: 4C 4E 28 27 4B 75 6E 20 70 72 69 6B 6B 65 72 2C LN('Kun prikker,
000140: 20 73 74 72 65 67 65 72 20 6F 67 20 6D 65 6C 6C streger og mell
000150: 65 6D 72 75 6D 20 65 72 20 74 69 6C 6C 61 64 74 emrum er tilladt
000160: 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E ');.. WRITELN
000170: 28 27 45 76 74 2E 20 61 6E 64 72 65 20 74 65 67 ('Evt. andre teg
000180: 6E 20 76 69 6C 20 62 6C 69 76 65 20 6F 70 66 61 n vil blive opfa
000190: 74 74 65 74 20 73 6F 6D 20 6D 65 6C 6C 65 6D 72 ttet som mellemr
0001A0: 75 6D 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 um');.. WRITE
0001B0: 4C 4E 28 27 55 6C 6F 76 6C 69 67 65 20 6D 6F 72 LN('Ulovlige mor
0001C0: 73 65 74 65 67 6E 20 76 69 6C 20 62 6C 69 76 65 setegn vil blive
0001D0: 20 6F 76 65 72 73 61 74 20 74 69 6C 20 27 27 2A oversat til ''*
0001E0: 27 27 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 ''');.. WRITE
0001F0: 4C 4E 28 27 49 6E 64 74 61 73 74 20 6D 6F 72 73 LN('Indtast mors
Size : 512 (Real : 512)
000000: 20 20 20 20 20 54 48 45 4E 20 63 68 20 3A 3D 20 THEN ch :=
000010: 27 68 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 'h'..
000020: 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 ELSE IF
000030: 20 74 65 67 6E 20 3D 20 27 2D 2E 2E 2E 27 0D 0A tegn = '-...'..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 20 20 20 20 20 20 54 48 45 4E 20 63 68 20 3A 3D THEN ch :=
000060: 20 27 62 27 0D 0A 20 20 20 20 20 20 20 20 20 20 'b'..
000070: 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 ELSE I
000080: 46 20 74 65 67 6E 20 3D 20 27 2E 2D 2E 2E 27 0D F tegn = '.-..'.
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 54 48 45 4E 20 63 68 20 3A THEN ch :
0000B0: 3D 20 27 6C 27 0D 0A 20 20 20 20 20 20 20 20 20 = 'l'..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 ELSE
0000D0: 49 46 20 74 65 67 6E 20 3D 20 27 2E 2E 2D 2E 27 IF tegn = '..-.'
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 54 48 45 4E 20 63 68 20 THEN ch
000100: 3A 3D 20 27 66 27 0D 0A 20 20 20 20 20 20 20 20 := 'f'..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 ELSE
000120: 20 49 46 20 74 65 67 6E 20 3D 20 27 2E 2E 2E 2D IF tegn = '...-
000130: 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 '..
000140: 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 63 68 THEN ch
000150: 20 3A 3D 20 27 76 27 0D 0A 20 20 20 20 20 20 20 := 'v'..
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 ELS
000170: 45 20 49 46 20 74 65 67 6E 20 3D 20 27 2D 2D 2E E IF tegn = '--.
000180: 2E 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 .'..
000190: 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 63 THEN c
0001A0: 68 20 3A 3D 20 27 7A 27 0D 0A 20 20 20 20 20 20 h := 'z'..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4C EL
0001C0: 53 45 20 49 46 20 74 65 67 6E 20 3D 20 27 2D 2E SE IF tegn = '-.
0001D0: 2D 2E 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 -.'..
0001E0: 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 THEN
0001F0: 63 68 20 3A 3D 20 27 63 27 0D 0A 20 20 20 20 20 ch := 'c'..
Size : 512 (Real : 512)
000000: 65 74 65 6B 73 74 65 6E 20 28 5E 20 61 6C 65 6E eteksten (^ alen
000010: 65 20 73 74 6F 70 70 65 72 29 3A 27 29 3B 0D 0A e stopper):');..
000020: 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 WRITELN;..
000030: 20 20 6B 6C 61 72 74 65 6B 73 74 20 3A 3D 20 27 klartekst := '
000040: 27 3B 0D 0A 20 20 20 20 52 45 50 45 41 54 0D 0A ';.. REPEAT..
000050: 20 20 20 20 20 20 57 52 49 54 45 28 27 3A 20 27 WRITE(': '
000060: 29 3B 0D 0A 20 20 20 20 20 20 42 55 46 4C 45 4E );.. BUFLEN
000070: 20 3A 3D 20 37 38 3B 0D 0A 20 20 20 20 20 20 52 := 78;.. R
000080: 45 41 44 4C 4E 28 74 65 6B 73 74 29 3B 0D 0A 20 EADLN(tekst);..
000090: 20 20 20 20 20 49 46 20 74 65 6B 73 74 20 3C 3E IF tekst <>
0000A0: 20 27 5E 27 0D 0A 20 20 20 20 20 20 20 20 54 48 '^'.. TH
0000B0: 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 42 45 EN.. BE
0000C0: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
0000D0: 20 74 65 6B 73 74 20 3A 3D 20 74 65 6B 73 74 20 tekst := tekst
0000E0: 2B 20 27 20 27 3B 0D 0A 20 20 20 20 20 20 20 20 + ' ';..
0000F0: 20 20 20 20 6C 20 3A 3D 20 4C 45 4E 28 74 65 6B l := LEN(tek
000100: 73 74 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 st);..
000110: 20 20 69 20 3A 3D 20 31 3B 0D 0A 20 20 20 20 20 i := 1;..
000120: 20 20 20 20 20 20 20 52 45 50 45 41 54 0D 0A 20 REPEAT..
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 69 73 74 ist
000140: 61 72 74 20 3A 3D 20 69 3B 0D 0A 20 20 20 20 20 art := i;..
000150: 20 20 20 20 20 20 20 20 20 57 48 49 4C 45 20 28 WHILE (
000160: 69 20 3C 20 6C 29 20 41 4E 44 20 28 74 65 6B 73 i < l) AND (teks
000170: 74 28 2E 69 2E 29 20 3C 3E 20 27 2E 27 29 0D 0A t(.i.) <> '.')..
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000190: 20 20 20 20 41 4E 44 20 28 74 65 6B 73 74 28 2E AND (tekst(.
0001A0: 69 2E 29 20 3C 3E 20 27 2D 27 29 20 44 4F 0D 0A i.) <> '-') DO..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001C0: 69 20 3A 3D 20 69 20 2B 20 31 3B 0D 0A 20 20 20 i := i + 1;..
0001D0: 20 20 20 20 20 20 20 20 20 20 20 69 73 6C 75 74 islut
0001E0: 20 3A 3D 20 69 3B 0D 0A 20 20 20 20 20 20 20 20 := i;..
0001F0: 20 20 20 20 20 20 49 46 20 69 73 6C 75 74 20 2D IF islut -
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
000010: 4C 53 45 20 49 46 20 74 65 67 6E 20 3D 20 27 2D LSE IF tegn = '-
000020: 2E 2E 2D 27 0D 0A 20 20 20 20 20 20 20 20 20 20 ..-'..
000030: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E THEN
000040: 20 63 68 20 3A 3D 20 27 78 27 0D 0A 20 20 20 20 ch := 'x'..
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 45 4C 53 45 20 49 46 20 74 65 67 6E 20 3D 20 27 ELSE IF tegn = '
000070: 2E 2D 2D 2E 27 0D 0A 20 20 20 20 20 20 20 20 20 .--.'..
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 THE
000090: 4E 20 63 68 20 3A 3D 20 27 70 27 0D 0A 20 20 20 N ch := 'p'..
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000B0: 20 45 4C 53 45 20 49 46 20 74 65 67 6E 20 3D 20 ELSE IF tegn =
0000C0: 27 2E 2D 2E 2D 27 0D 0A 20 20 20 20 20 20 20 20 '.-.-'..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 TH
0000E0: 45 4E 20 63 68 20 3A 3D 20 27 7B 27 0D 0A 20 20 EN ch := '{'..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 20 45 4C 53 45 20 49 46 20 74 65 67 6E 20 3D ELSE IF tegn =
000110: 20 27 2D 2D 2D 2E 27 0D 0A 20 20 20 20 20 20 20 '---.'..
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 T
000130: 48 45 4E 20 63 68 20 3A 3D 20 27 7C 27 0D 0A 20 HEN ch := '|'..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 45 4C 53 45 20 49 46 20 74 65 67 6E 20 ELSE IF tegn
000160: 3D 20 27 2D 2D 2E 2D 27 0D 0A 20 20 20 20 20 20 = '--.-'..
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 54 48 45 4E 20 63 68 20 3A 3D 20 27 71 27 0D 0A THEN ch := 'q'..
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001A0: 20 20 20 20 45 4C 53 45 20 49 46 20 74 65 67 6E ELSE IF tegn
0001B0: 20 3D 20 27 2D 2E 2D 2D 27 0D 0A 20 20 20 20 20 = '-.--'..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001D0: 20 54 48 45 4E 20 63 68 20 3A 3D 20 27 79 27 0D THEN ch := 'y'.
0001E0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0001F0: 20 20 20 20 20 45 4C 53 45 20 49 46 20 74 65 67 ELSE IF teg
Size : 512 (Real : 512)
000000: 72 74 6F 74 65 6B 20 3A 20 61 72 72 61 79 74 79 rtotek : arrayty
000010: 70 65 29 20 3A 20 42 4F 4F 4C 45 41 4E 3B 0D 0A pe) : BOOLEAN;..
000020: 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A 20 20 20 .. VAR..
000030: 20 20 20 6D 69 64 74 20 3A 20 49 4E 54 45 47 45 midt : INTEGE
000040: 52 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 42 45 R;.. .. BE
000050: 47 49 4E 20 28 2A 20 66 75 6E 64 65 74 20 2A 29 GIN (* fundet *)
000060: 0D 0A 20 20 20 20 20 20 52 45 50 45 41 54 0D 0A .. REPEAT..
000070: 20 20 20 20 20 20 20 20 6D 69 64 74 20 3A 3D 20 midt :=
000080: 28 76 65 6E 73 74 72 65 20 2B 20 68 6F 65 6A 72 (venstre + hoejr
000090: 65 29 20 44 49 56 20 32 3B 0D 0A 20 20 20 20 20 e) DIV 2;..
0000A0: 20 20 20 49 46 20 61 72 74 69 6B 65 6C 20 3E 20 IF artikel >
0000B0: 76 61 72 65 6B 61 72 74 6F 74 65 6B 28 2E 6D 69 varekartotek(.mi
0000C0: 64 74 2E 29 0D 0A 20 20 20 20 20 20 20 20 20 20 dt.)..
0000D0: 54 48 45 4E 20 76 65 6E 73 74 72 65 20 3A 3D 20 THEN venstre :=
0000E0: 6D 69 64 74 20 2B 20 31 0D 0A 20 20 20 20 20 20 midt + 1..
0000F0: 20 20 20 20 45 4C 53 45 20 68 6F 65 6A 72 65 20 ELSE hoejre
000100: 3A 3D 20 6D 69 64 74 20 2D 20 31 3B 0D 0A 20 20 := midt - 1;..
000110: 20 20 20 20 55 4E 54 49 4C 20 28 61 72 74 69 6B UNTIL (artik
000120: 65 6C 20 3D 20 76 61 72 65 6B 61 72 74 6F 74 65 el = varekartote
000130: 6B 28 2E 6D 69 64 74 2E 29 29 20 4F 52 20 28 68 k(.midt.)) OR (h
000140: 6F 65 6A 72 65 20 3C 20 76 65 6E 73 74 72 65 29 oejre < venstre)
000150: 3B 0D 0A 20 20 20 20 20 20 49 46 20 61 72 74 69 ;.. IF arti
000160: 6B 65 6C 20 3D 20 76 61 72 65 6B 61 72 74 6F 74 kel = varekartot
000170: 65 6B 28 2E 6D 69 64 74 2E 29 0D 0A 20 20 20 20 ek(.midt.)..
000180: 20 20 20 20 54 48 45 4E 20 66 75 6E 64 65 74 20 THEN fundet
000190: 3A 3D 20 54 52 55 45 0D 0A 20 20 20 20 20 20 20 := TRUE..
0001A0: 20 45 4C 53 45 20 66 75 6E 64 65 74 20 3A 3D 20 ELSE fundet :=
0001B0: 46 41 4C 53 45 3B 0D 0A 20 20 20 20 45 4E 44 3B FALSE;.. END;
0001C0: 20 28 2A 20 66 75 6E 64 65 74 20 2A 29 0D 0A 20 (* fundet *)..
0001D0: 20 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 .. BEGIN..
0001E0: 69 6E 64 6C 61 65 73 28 6B 61 72 74 6F 74 65 6B indlaes(kartotek
0001F0: 2C 20 61 6E 74 61 6C 29 3B 0D 0A 20 20 20 20 73 , antal);.. s
Size : 512 (Real : 512)
000000: 6E 20 3D 20 27 2E 2D 2D 2D 27 0D 0A 20 20 20 20 n = '.---'..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 20 20 54 48 45 4E 20 63 68 20 3A 3D 20 27 6A 27 THEN ch := 'j'
000030: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000040: 20 20 20 20 20 20 45 4C 53 45 20 49 46 20 74 65 ELSE IF te
000050: 67 6E 20 3D 20 27 2E 2D 2D 2E 2D 27 0D 0A 20 20 gn = '.--.-'..
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 20 20 20 54 48 45 4E 20 63 68 20 3A 3D 20 27 THEN ch := '
000080: 7D 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 }'..
000090: 20 20 20 20 20 20 20 20 45 4C 53 45 20 63 68 20 ELSE ch
0000A0: 3A 3D 20 27 2A 27 3B 0D 0A 20 20 20 20 20 20 20 := '*';..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 6B 6C 61 kla
0000C0: 72 74 65 6B 73 74 20 3A 3D 20 6B 6C 61 72 74 65 rtekst := klarte
0000D0: 6B 73 74 20 2B 20 63 68 3B 0D 0A 20 20 20 20 20 kst + ch;..
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 55 ;.. U
000100: 4E 54 49 4C 20 69 20 3D 20 6C 3B 0D 0A 20 20 20 NTIL i = l;..
000110: 20 20 20 20 20 20 20 45 4E 44 3B 20 28 2A 20 49 END; (* I
000120: 46 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 F *)..
000130: 6B 6C 61 72 74 65 6B 73 74 20 3A 3D 20 6B 6C 61 klartekst := kla
000140: 72 74 65 6B 73 74 20 2B 20 27 20 27 3B 0D 0A 20 rtekst + ' ';..
000150: 20 20 20 55 4E 54 49 4C 20 74 65 6B 73 74 20 3D UNTIL tekst =
000160: 20 27 5E 27 3B 0D 0A 20 20 20 20 57 52 49 54 45 '^';.. WRITE
000170: 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E LN;.. WRITELN
000180: 28 6B 6C 61 72 74 65 6B 73 74 29 3B 0D 0A 20 20 (klartekst);..
000190: 45 4E 44 2E 0D 0A 1A 45 4E 44 3B 20 28 2A 20 49 END....END; (* I
0001A0: 46 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 F *)..
0001B0: 6B 6C 61 72 74 65 6B 73 74 20 3A 3D 20 6B 6C 61 klartekst := kla
0001C0: 72 74 65 6B 73 74 20 2B 20 27 20 27 3B 0D 0A 20 rtekst + ' ';..
0001D0: 20 20 20 55 4E 54 49 4C 20 74 65 6B 73 74 20 3D UNTIL tekst =
0001E0: 20 27 5E 27 3B 0D 0A 20 20 20 20 57 52 49 54 45 '^';.. WRITE
0001F0: 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E LN;.. WRITELN
Size : 512 (Real : 512)
000000: 6F 72 74 65 72 28 31 2C 20 61 6E 74 61 6C 2C 20 orter(1, antal,
000010: 6B 61 72 74 6F 74 65 6B 29 3B 0D 0A 20 20 20 20 kartotek);..
000020: 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F 20 61 6E FOR i := 1 TO an
000030: 74 61 6C 20 44 4F 0D 0A 20 20 20 20 20 20 57 52 tal DO.. WR
000040: 49 54 45 4C 4E 28 27 2A 2A 2A 20 27 2C 20 6B 61 ITELN('*** ', ka
000050: 72 74 6F 74 65 6B 28 2E 69 2E 29 29 3B 0D 0A 20 rtotek(.i.));..
000060: 20 20 20 57 52 49 54 45 28 27 48 76 69 6C 6B 65 WRITE('Hvilke
000070: 6E 20 76 61 72 65 20 73 6B 61 6C 20 73 7C 67 65 n vare skal s|ge
000080: 73 20 69 20 6B 61 72 74 6F 74 65 6B 65 74 3A 20 s i kartoteket:
000090: 27 29 3B 20 52 45 41 44 4C 4E 28 61 72 74 69 6B '); READLN(artik
0000A0: 65 6C 29 3B 0D 0A 20 20 20 20 49 46 20 66 75 6E el);.. IF fun
0000B0: 64 65 74 28 31 2C 20 61 6E 74 61 6C 2C 20 61 72 det(1, antal, ar
0000C0: 74 69 6B 65 6C 2C 20 6B 61 72 74 6F 74 65 6B 29 tikel, kartotek)
0000D0: 0D 0A 20 20 20 20 20 20 54 48 45 4E 20 57 52 49 .. THEN WRI
0000E0: 54 45 4C 4E 28 61 72 74 69 6B 65 6C 2C 20 27 20 TELN(artikel, '
0000F0: 66 69 6E 64 65 73 20 69 20 76 61 72 65 6B 61 72 findes i varekar
000100: 74 6F 74 65 6B 65 74 27 29 0D 0A 20 20 20 20 20 toteket')..
000110: 20 45 4C 53 45 20 57 52 49 54 45 4C 4E 28 61 72 ELSE WRITELN(ar
000120: 74 69 6B 65 6C 2C 20 27 20 66 69 6E 64 65 73 20 tikel, ' findes
000130: 69 6B 6B 65 20 69 20 76 61 72 65 6B 61 72 74 6F ikke i varekarto
000140: 74 65 6B 65 74 27 29 3B 0D 0A 20 20 45 4E 44 2E teket');.. END.
000150: 0D 0A 1A 20 20 20 20 20 54 48 45 4E 20 57 52 49 ... THEN WRI
000160: 54 45 4C 4E 28 61 72 74 69 6B 65 6C 2C 20 27 20 TELN(artikel, '
000170: 66 69 6E 64 65 73 20 69 20 76 61 72 65 6B 61 72 findes i varekar
000180: 76 FD 52 55 4D 46 5F 31 2E 50 41 53 5B 32 38 2F v.RUMF_1.PAS[28/
000190: 30 31 2F 31 39 39 31 5D 00 11 10 00 05 ED 77 3B 01/1991]......w;
0001A0: 3D 1C 3E 5F 5F 55 FC FF FD FE 1E 9D DF 17 2F 94 =.>__U......../.
0001B0: BE 8B 01 58 F0 60 58 8C 03 59 AB F3 EF FC CF E5 ...X.`X..Y......
0001C0: A4 CF 50 A5 CF 57 A5 CF A0 A5 CF 18 A6 CF 07 A6 ..P..W..........
0001D0: CF 03 A6 CF FE A4 CF 7F A5 CF 99 A5 CF C6 A5 CF ................
0001E0: 53 A6 CF 92 A6 30 CD 07 9C 8D 24 00 03 07 00 AA S....0....$.....
0001F0: 00 3F 00 C0 00 10 00 02 00 41 09 2A 52 E5 02 04 .?.......A.*R...
Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 6E 61 76 6E 73 6F 65 67 PROGRAM navnsoeg
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 32 30 30 3B 0D 0A 20 20 max = 200;..
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 61 72 72 61 79 74 79 .);.. arrayty
000060: 70 65 20 3D 20 41 52 52 41 59 28 2E 31 20 2E 2E pe = ARRAY(.1 ..
000070: 20 6D 61 78 2E 29 20 4F 46 20 73 74 72 33 30 3B max.) OF str30;
000080: 0D 0A 20 20 0D 0A 20 20 56 41 52 0D 0A 20 20 20 .. .. VAR..
000090: 20 6B 61 72 74 6F 74 65 6B 20 3A 20 61 72 72 61 kartotek : arra
0000A0: 79 74 79 70 65 3B 0D 0A 20 20 20 20 61 72 74 69 ytype;.. arti
0000B0: 6B 65 6C 20 3A 20 73 74 72 33 30 3B 0D 0A 20 20 kel : str30;..
0000C0: 20 20 69 2C 20 61 6E 74 61 6C 20 3A 20 49 4E 54 i, antal : INT
0000D0: 45 47 45 52 3B 0D 0A 20 20 20 20 0D 0A 20 20 50 EGER;.. .. P
0000E0: 52 4F 43 45 44 55 52 45 20 69 6E 64 6C 61 65 73 ROCEDURE indlaes
0000F0: 28 56 41 52 20 6B 61 72 74 6F 74 65 6B 20 3A 20 (VAR kartotek :
000100: 61 72 72 61 79 74 79 70 65 3B 20 56 41 52 20 6E arraytype; VAR n
000110: 20 3A 20 49 4E 54 45 47 45 52 29 3B 0D 0A 20 20 : INTEGER);..
000120: 0D 0A 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 .. VAR..
000130: 20 76 61 72 65 20 3A 20 73 74 72 33 30 3B 0D 0A vare : str30;..
000140: 20 20 20 20 20 20 69 20 3A 20 49 4E 54 45 47 45 i : INTEGE
000150: 52 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 42 45 R;.. .. BE
000160: 47 49 4E 20 28 2A 20 69 6E 64 6C 61 65 73 20 2A GIN (* indlaes *
000170: 29 0D 0A 20 20 20 20 20 20 57 52 49 54 45 28 43 ).. WRITE(C
000180: 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 20 20 69 LRHOM);.. i
000190: 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 20 20 57 52 := 0;.. WR
0001A0: 49 54 45 4C 4E 28 27 49 6E 64 74 61 73 74 20 76 ITELN('Indtast v
0001B0: 61 72 65 72 20 74 69 6C 20 76 61 72 65 6B 61 72 arer til varekar
0001C0: 74 6F 74 65 6B 65 74 20 28 30 20 73 74 6F 70 70 toteket (0 stopp
0001D0: 65 72 29 3A 27 29 3B 0D 0A 20 20 20 20 20 20 52 er):');.. R
0001E0: 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20 69 EPEAT.. i
0001F0: 20 3A 3D 20 69 20 2B 20 31 3B 0D 0A 20 20 20 20 := i + 1;..
Size : 512 (Real : 512)
000000: 00 CF 1B F4 25 3D 8E 0C 55 35 0B F6 94 E5 79 0D ....%=..U5....y.
000010: CC 74 07 BC 09 DC 99 9A CB CD 66 26 28 0A 81 F4 .t........f&(...
000020: 6B 8C 84 43 AC 69 1A 9A 89 9A C6 86 B5 D0 98 49 k..C.i.........I
000030: 72 F4 16 FC BB A7 43 AA 2A 60 26 87 91 21 4A 3A r.....C.*`&..!J:
000040: 20 B8 B3 6F 61 E2 C3 46 B9 17 0C C7 25 50 0E BD ..oa..F....%P..
000050: 99 89 C5 49 23 45 AE 12 28 98 7E 27 6B 56 AD 63 ...I#E..(.~'kV.c
000060: 21 4A AB 3C 3D 2C D6 55 5B 1B 9A BE 49 74 12 DC !J.<=,.U[...It..
000070: 67 08 5E 1B 27 7F 67 20 08 21 D5 18 20 74 26 4C g.^.'.g .!.. t&L
000080: 10 3E FC 94 2B C1 60 5C 72 98 79 DA 1D FD 35 D3 .>..+.`\r.y...5.
000090: 84 CD 34 50 9A C1 24 B2 66 D3 7A 60 50 55 8C 51 ..4P..$.f.z`PU.Q
0000A0: 5E 58 33 BA 46 0D DB BE C5 B9 0B BB 2B 2C 0C C5 ^X3.F.......+,..
0000B0: 04 61 38 7F 5B C4 92 F9 B1 85 21 BE 07 97 48 67 .a8.[.....!...Hg
0000C0: 69 CC 2F A4 33 CC 61 CB 64 44 34 20 C1 6B 8E 23 i./.3.a.dD4 .k.#
0000D0: 91 66 75 D6 C8 68 4E 11 DE 84 75 44 3B C9 72 04 .fu..hN...uD;.r.
0000E0: 30 AD 6B C8 9A 60 34 4E 2E EE 5F 6C BB 3E 09 EA 0.k..`4N.._l.>..
0000F0: A6 05 86 FC E8 2D 96 26 AD 38 C1 55 24 B2 C6 BE .....-.&.8.U$...
000100: D4 05 4B B8 9C 88 77 CA 86 B9 27 EC 83 9B 26 A9 ..K...w...'...&.
000110: 8B 68 BA 19 98 51 C5 35 50 BA 9A 4F 33 02 4A 11 .h...Q.5P..O3.J.
000120: CE B5 AE 8A 41 0E 1A 24 5D 23 DC F3 3F 5B 43 A8 ....A..$]#..?[C.
000130: 2F 57 18 9A BF FD FE 9A BF 3B 16 5C EE 5E A3 39 /W.......;.\.^.9
000140: 09 6B 4F 95 83 13 C5 25 DD C1 C4 6E 3B A4 11 52 .kO....%...n;..R
000150: C6 59 83 5F 63 3F A9 90 3B 0C 76 A9 99 2F 28 46 .Y._c?..;.v../(F
000160: B8 D5 BA 28 06 86 75 BC 39 A6 9B 45 27 12 08 55 ...(..u.9..E'..U
000170: 76 06 47 8A 05 6D F3 29 27 05 36 58 12 77 B5 E3 v.G..m.)'.6X.w..
000180: 28 BD C7 CA 74 7A DF 41 84 33 CC 07 73 42 DC 5F (...tz.A.3..sB._
000190: 88 94 C8 15 04 57 F6 86 F4 BF 64 49 FA 29 FA 54 .....W....dI.).T
0001A0: 5E E3 90 3A 14 86 D5 68 2C 3C 18 F1 26 6C 8C 7B ^..:...h,<..&l.{
0001B0: 6C 89 00 86 A0 34 16 16 08 A7 D0 E6 3F BD 85 39 l....4......?..9
0001C0: C9 C9 45 28 16 C7 C1 A9 FD F3 48 11 9F 2C 72 27 ..E(......H..,r'
0001D0: 71 DE 2F 4E 67 19 49 0A 4C 7F F9 F5 24 A4 BC 93 q./Ng.I.L...$...
0001E0: 0B 5C 5D 69 4C 82 23 3D 86 0C EB 0B 6D 62 30 F1 .\]iL.#=....mb0.
0001F0: AA 1B E0 24 B6 04 43 A7 74 74 BA D6 08 CA 2D 2F ...$..C.tt....-/
Size : 512 (Real : 512)
000000: 20 20 20 20 57 52 49 54 45 28 27 3A 20 27 29 3B WRITE(': ');
000010: 20 52 45 41 44 4C 4E 28 76 61 72 65 29 3B 0D 0A READLN(vare);..
000020: 20 20 20 20 20 20 20 20 49 46 20 76 61 72 65 20 IF vare
000030: 3C 3E 20 27 30 27 0D 0A 20 20 20 20 20 20 20 20 <> '0'..
000040: 20 20 54 48 45 4E 20 6B 61 72 74 6F 74 65 6B 28 THEN kartotek(
000050: 2E 69 2E 29 20 3A 3D 20 76 61 72 65 3B 0D 0A 20 .i.) := vare;..
000060: 20 20 20 20 20 55 4E 54 49 4C 20 28 76 61 72 65 UNTIL (vare
000070: 20 3D 20 27 30 27 29 20 4F 52 20 28 69 20 3D 20 = '0') OR (i =
000080: 6D 61 78 29 3B 0D 0A 20 20 20 20 20 20 49 46 20 max);.. IF
000090: 69 20 3D 20 6D 61 78 0D 0A 20 20 20 20 20 20 20 i = max..
0000A0: 20 54 48 45 4E 20 6E 20 3A 3D 20 6D 61 78 0D 0A THEN n := max..
0000B0: 20 20 20 20 20 20 20 20 45 4C 53 45 20 6E 20 3A ELSE n :
0000C0: 3D 20 69 20 2D 20 31 3B 0D 0A 20 20 20 20 45 4E = i - 1;.. EN
0000D0: 44 3B 20 28 2A 20 69 6E 64 6C 61 65 73 20 2A 29 D; (* indlaes *)
0000E0: 0D 0A 20 20 0D 0A 20 20 50 52 4F 43 45 44 55 52 .. .. PROCEDUR
0000F0: 45 20 73 6F 72 74 65 72 28 76 65 6E 73 74 72 65 E sorter(venstre
000100: 2C 20 68 6F 65 6A 72 65 20 3A 20 49 4E 54 45 47 , hoejre : INTEG
000110: 45 52 3B 20 56 41 52 20 72 65 67 69 73 74 65 72 ER; VAR register
000120: 20 3A 20 61 72 72 61 79 74 79 70 65 29 3B 0D 0A : arraytype);..
000130: 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A 20 20 20 .. VAR..
000140: 20 20 20 69 2C 20 6A 2C 20 6D 69 64 74 2C 20 76 i, j, midt, v
000150: 2C 20 68 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A , h : INTEGER;..
000160: 20 20 20 20 20 20 6E 61 65 73 74 65 20 3A 20 73 naeste : s
000170: 74 72 33 30 3B 0D 0A 20 20 20 20 20 20 0D 0A 20 tr30;.. ..
000180: 20 20 20 42 45 47 49 4E 20 28 2A 20 73 6F 72 74 BEGIN (* sort
000190: 65 72 20 2A 29 0D 0A 20 20 20 20 20 20 46 4F 52 er *).. FOR
0001A0: 20 69 20 3A 3D 20 76 65 6E 73 74 72 65 20 2B 20 i := venstre +
0001B0: 31 20 54 4F 20 68 6F 65 6A 72 65 20 44 4F 0D 0A 1 TO hoejre DO..
0001C0: 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 BEGIN..
0001D0: 20 20 20 20 20 20 20 20 20 6E 61 65 73 74 65 20 naeste
0001E0: 3A 3D 20 72 65 67 69 73 74 65 72 28 2E 69 2E 29 := register(.i.)
0001F0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 76 20 3A ;.. v :
Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 6E 61 76 6E 73 6F 72 74 PROGRAM navnsort
000010: 3B 0D 0A 0D 0A 20 20 43 4F 4E 53 54 0D 0A 20 20 ;.... CONST..
000020: 20 20 61 6E 74 61 6C 20 3D 20 31 30 3B 0D 0A 20 antal = 10;..
000030: 20 20 20 6D 61 78 74 65 67 6E 20 3D 20 33 30 3B maxtegn = 30;
000040: 0D 0A 20 20 20 20 0D 0A 20 20 54 59 50 45 0D 0A .. .. TYPE..
000050: 20 20 20 20 73 74 72 65 6E 67 20 3D 20 53 54 52 streng = STR
000060: 49 4E 47 28 2E 6D 61 78 74 65 67 6E 2E 29 3B 0D ING(.maxtegn.);.
000070: 0A 20 20 20 20 61 72 72 20 3D 20 41 52 52 41 59 . arr = ARRAY
000080: 28 2E 31 20 2E 2E 20 61 6E 74 61 6C 2E 29 20 4F (.1 .. antal.) O
000090: 46 20 73 74 72 65 6E 67 3B 0D 0A 20 20 0D 0A 20 F streng;.. ..
0000A0: 20 56 41 52 0D 0A 20 20 20 20 74 61 62 65 6C 20 VAR.. tabel
0000B0: 3A 20 61 72 72 3B 0D 0A 20 20 0D 0A 20 20 50 52 : arr;.. .. PR
0000C0: 4F 43 45 44 55 52 45 20 69 6E 64 28 56 41 52 20 OCEDURE ind(VAR
0000D0: 74 61 62 20 3A 20 61 72 72 29 3B 0D 0A 20 20 20 tab : arr);..
0000E0: 20 0D 0A 20 20 20 20 56 41 52 0D 0A 20 20 20 20 .. VAR..
0000F0: 20 20 69 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A i : INTEGER;..
000100: 20 20 20 20 0D 0A 20 20 20 20 42 45 47 49 4E 20 .. BEGIN
000110: 28 2A 20 69 6E 64 20 2A 29 0D 0A 20 20 20 20 20 (* ind *)..
000120: 20 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D WRITE(CLRHOM);.
000130: 0A 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 . WRITELN('
000140: 49 6E 64 74 61 73 74 20 27 2C 20 61 6E 74 61 6C Indtast ', antal
000150: 2C 20 27 20 6E 61 76 6E 65 3A 27 29 3B 0D 0A 20 , ' navne:');..
000160: 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 WRITELN;..
000170: 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 FOR i := 1
000180: 54 4F 20 61 6E 74 61 6C 20 44 4F 0D 0A 20 20 20 TO antal DO..
000190: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
0001A0: 20 20 20 20 20 20 57 52 49 54 45 28 27 4E 61 76 WRITE('Nav
0001B0: 6E 20 6E 72 2E 20 27 2C 20 69 20 3A 20 33 2C 20 n nr. ', i : 3,
0001C0: 27 3A 20 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 ': ');..
0001D0: 20 20 20 42 55 46 4C 45 4E 20 3A 3D 20 6D 61 78 BUFLEN := max
0001E0: 74 65 67 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20 tegn;..
0001F0: 20 52 45 41 44 4C 4E 28 74 61 62 28 2E 69 2E 29 READLN(tab(.i.)
Size : 512 (Real : 512)
000000: 3D 20 76 65 6E 73 74 72 65 3B 0D 0A 20 20 20 20 = venstre;..
000010: 20 20 20 20 20 20 68 20 3A 3D 20 69 20 2D 20 31 h := i - 1
000020: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 48 49 ;.. WHI
000030: 4C 45 20 76 20 3C 3D 20 68 20 44 4F 0D 0A 20 20 LE v <= h DO..
000040: 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D BEGIN.
000050: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6D . m
000060: 69 64 74 20 3A 3D 20 28 76 20 2B 20 68 29 20 44 idt := (v + h) D
000070: 49 56 20 32 3B 0D 0A 20 20 20 20 20 20 20 20 20 IV 2;..
000080: 20 20 20 20 20 49 46 20 6E 61 65 73 74 65 20 3C IF naeste <
000090: 20 72 65 67 69 73 74 65 72 28 2E 6D 69 64 74 2E register(.midt.
0000A0: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 )..
0000B0: 20 20 20 54 48 45 4E 20 68 20 3A 3D 20 6D 69 64 THEN h := mid
0000C0: 74 20 2D 20 31 0D 0A 20 20 20 20 20 20 20 20 20 t - 1..
0000D0: 20 20 20 20 20 20 20 45 4C 53 45 20 76 20 3A 3D ELSE v :=
0000E0: 20 6D 69 64 74 20 2B 20 31 3B 0D 0A 20 20 20 20 midt + 1;..
0000F0: 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 END;..
000100: 20 20 20 20 20 20 20 20 46 4F 52 20 6A 20 3A 3D FOR j :=
000110: 20 69 20 2D 20 31 20 44 4F 57 4E 54 4F 20 76 20 i - 1 DOWNTO v
000120: 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 DO..
000130: 72 65 67 69 73 74 65 72 28 2E 6A 20 2B 20 31 2E register(.j + 1.
000140: 29 20 3A 3D 20 72 65 67 69 73 74 65 72 28 2E 6A ) := register(.j
000150: 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 72 .);.. r
000160: 65 67 69 73 74 65 72 28 2E 76 2E 29 20 3A 3D 20 egister(.v.) :=
000170: 6E 61 65 73 74 65 3B 0D 0A 20 20 20 20 20 20 20 naeste;..
000180: 20 45 4E 44 3B 0D 0A 20 20 20 20 45 4E 44 3B 20 END;.. END;
000190: 28 2A 20 73 6F 72 74 65 72 20 2A 29 0D 0A 20 20 (* sorter *)..
0001A0: 20 20 0D 0A 20 20 46 55 4E 43 54 49 4F 4E 20 66 .. FUNCTION f
0001B0: 75 6E 64 65 74 28 76 65 6E 73 74 72 65 2C 20 68 undet(venstre, h
0001C0: 6F 65 6A 72 65 20 3A 20 49 4E 54 45 47 45 52 20 oejre : INTEGER
0001D0: 3B 20 61 72 74 69 6B 65 6C 20 3A 20 73 74 72 33 ; artikel : str3
0001E0: 30 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 0;..
0001F0: 20 20 20 20 20 20 56 41 52 20 76 61 72 65 6B 61 VAR vareka
Size : 512 (Real : 512)
000000: 29 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E 44 3B );.. END;
000010: 0D 0A 20 20 20 20 45 4E 44 3B 20 28 2A 20 69 6E .. END; (* in
000020: 64 20 2A 29 0D 0A 20 20 0D 0A 20 20 0D 0A 20 20 d *).. .. ..
000030: 50 52 4F 43 45 44 55 52 45 20 75 64 28 74 61 62 PROCEDURE ud(tab
000040: 20 3A 20 61 72 72 29 3B 0D 0A 20 20 0D 0A 20 20 : arr);.. ..
000050: 20 20 56 41 52 0D 0A 20 20 20 20 20 20 69 20 3A VAR.. i :
000060: 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 0D INTEGER;.. .
000070: 0A 20 20 20 20 42 45 47 49 4E 20 28 2A 20 75 64 . BEGIN (* ud
000080: 20 2A 29 0D 0A 20 20 20 20 20 20 57 52 49 54 45 *).. WRITE
000090: 4C 4E 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 45 LN;.. WRITE
0000A0: 4C 4E 28 27 4E 61 76 6E 65 6E 65 20 69 20 61 6C LN('Navnene i al
0000B0: 66 61 62 65 74 69 73 6B 20 72 7B 6B 6B 65 66 7C fabetisk r{kkef|
0000C0: 6C 67 65 3A 27 29 3B 0D 0A 20 20 20 20 20 20 57 lge:');.. W
0000D0: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 46 RITELN;.. F
0000E0: 4F 52 20 69 20 3A 3D 20 31 20 54 4F 20 61 6E 74 OR i := 1 TO ant
0000F0: 61 6C 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 57 al DO.. W
000100: 52 49 54 45 4C 4E 28 69 20 3A 20 33 2C 20 27 20 RITELN(i : 3, '
000110: 20 27 2C 20 74 61 62 28 2E 69 2E 29 29 3B 0D 0A ', tab(.i.));..
000120: 20 20 20 20 45 4E 44 3B 20 28 2A 20 75 64 20 2A END; (* ud *
000130: 29 0D 0A 20 20 0D 0A 20 20 50 52 4F 43 45 44 55 ).. .. PROCEDU
000140: 52 45 20 73 6F 72 74 65 72 69 6E 67 28 56 41 52 RE sortering(VAR
000150: 20 74 20 3A 20 61 72 72 29 3B 0D 0A 20 20 20 20 t : arr);..
000160: 0D 0A 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 .. VAR..
000170: 20 69 2C 20 6A 20 3A 20 49 4E 54 45 47 45 52 3B i, j : INTEGER;
000180: 0D 0A 20 20 20 20 20 20 6E 61 76 6E 20 3A 20 73 .. navn : s
000190: 74 72 65 6E 67 3B 0D 0A 20 20 20 20 20 20 73 6C treng;.. sl
0001A0: 75 74 20 3A 20 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 ut : BOOLEAN;..
0001B0: 20 20 20 0D 0A 20 20 20 20 42 45 47 49 4E 20 28 .. BEGIN (
0001C0: 2A 20 73 6F 72 74 65 72 69 6E 67 20 2A 29 0D 0A * sortering *)..
0001D0: 20 20 20 20 20 20 69 20 3A 3D 20 61 6E 74 61 6C i := antal
0001E0: 3B 0D 0A 20 20 20 20 20 20 52 45 50 45 41 54 0D ;.. REPEAT.
0001F0: 0A 20 20 20 20 20 20 20 20 69 20 3A 3D 20 69 20 . i := i
Size : 512 (Real : 512)
000000: 2B 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 + 1;..
000010: 20 20 20 20 20 20 61 66 67 6A 6F 72 74 20 3A 3D afgjort :=
000020: 20 54 52 55 45 3B 0D 0A 20 20 20 20 20 20 20 20 TRUE;..
000030: 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 42 WRITE('B
000040: 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ');..
000050: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 END;..
000060: 20 20 55 4E 54 49 4C 20 61 66 67 6A 6F 72 74 3B UNTIL afgjort;
000070: 0D 0A 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 .. END;..
000080: 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 WRITELN;..
000090: 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 WRITELN;.. WR
0000A0: 49 54 45 4C 4E 28 27 55 64 20 61 66 20 27 2C 20 ITELN('Ud af ',
0000B0: 61 6E 74 61 6C 2C 20 27 20 73 70 69 6C 20 68 61 antal, ' spil ha
0000C0: 72 20 41 20 76 75 6E 64 65 74 20 27 2C 0D 0A 20 r A vundet ',..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 61 73 65 6A 72 asejr
0000E0: 20 2F 20 61 6E 74 61 6C 20 2A 20 31 30 30 20 3A / antal * 100 :
0000F0: 20 35 20 3A 20 32 2C 20 27 20 25 20 6F 67 20 42 5 : 2, ' % og B
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: 2D 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 73 6C - 1;.. sl
000010: 75 74 20 3A 3D 20 54 52 55 45 3B 0D 0A 20 20 20 ut := TRUE;..
000020: 20 20 20 20 20 46 4F 52 20 6A 20 3A 3D 20 31 20 FOR j := 1
000030: 54 4F 20 69 20 44 4F 0D 0A 20 20 20 20 20 20 20 TO i DO..
000040: 20 20 20 49 46 20 74 28 2E 6A 2E 29 20 3E 20 74 IF t(.j.) > t
000050: 28 2E 6A 20 2B 20 31 2E 29 0D 0A 20 20 20 20 20 (.j + 1.)..
000060: 20 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 THEN..
000070: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E BEGIN
000080: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000090: 20 20 73 6C 75 74 20 3A 3D 20 46 41 4C 53 45 3B slut := FALSE;
0000A0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0000B0: 20 20 6E 61 76 6E 20 3A 3D 20 74 28 2E 6A 2E 29 navn := t(.j.)
0000C0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
0000D0: 20 20 20 74 28 2E 6A 2E 29 20 3A 3D 20 74 28 2E t(.j.) := t(.
0000E0: 6A 20 2B 20 31 2E 29 3B 0D 0A 20 20 20 20 20 20 j + 1.);..
0000F0: 20 20 20 20 20 20 20 20 20 20 74 28 2E 6A 20 2B t(.j +
000100: 20 31 2E 29 20 3A 3D 20 6E 61 76 6E 3B 0D 0A 20 1.) := navn;..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 END
000120: 3B 0D 0A 20 20 20 20 20 20 55 4E 54 49 4C 20 28 ;.. UNTIL (
000130: 69 20 3D 20 31 29 20 4F 52 20 73 6C 75 74 3B 0D i = 1) OR slut;.
000140: 0A 20 20 20 20 45 4E 44 3B 20 28 2A 20 73 6F 72 . END; (* sor
000150: 74 65 72 69 6E 67 20 2A 29 0D 0A 20 20 0D 0A 20 tering *).. ..
000160: 20 42 45 47 49 4E 20 28 2A 20 6E 61 76 6E 73 6F BEGIN (* navnso
000170: 72 74 20 2A 29 0D 0A 20 20 20 20 69 6E 64 28 74 rt *).. ind(t
000180: 61 62 65 6C 29 3B 0D 0A 20 20 20 20 73 6F 72 74 abel);.. sort
000190: 65 72 69 6E 67 28 74 61 62 65 6C 29 3B 0D 0A 20 ering(tabel);..
0001A0: 20 20 20 75 64 28 74 61 62 65 6C 29 3B 0D 0A 20 ud(tabel);..
0001B0: 20 45 4E 44 2E 20 28 2A 20 6E 61 76 6E 73 6F 72 END. (* navnsor
0001C0: 74 20 2A 29 0D 0A 1A 44 3B 20 28 2A 20 73 6F 72 t *)...D; (* sor
0001D0: 74 65 72 69 6E 67 20 2A 29 0D 0A 20 20 0D 0A 20 tering *).. ..
0001E0: 20 42 45 47 49 4E 20 28 2A 20 6E 61 76 6E 73 6F BEGIN (* navnso
0001F0: 72 74 20 2A 29 0D 0A 20 20 20 20 69 6E 64 28 74 rt *).. ind(t
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: 1A 97 3F 41 BC A5 C9 B3 06 A2 07 EF 0D 9A 38 93 ..?A..........8.
000010: 43 21 2B 5A 17 1E 21 9F 45 D4 75 3B 28 E2 C4 AF C!+Z..!.E.u;(...
000020: A7 BF DB ED D7 A7 BA 97 F0 8F 63 0C 84 02 13 60 ..........c....`
000030: E0 CA 9A 09 55 10 BD B2 26 E5 0F 20 FC 91 51 B5 ....U...&.. ..Q.
000040: 3D BA BF 6B F0 EF D0 27 7B BB CE BC 74 87 FE 38 =..k...'{...t..8
000050: 31 24 96 2F 56 DC B3 91 5C BB 24 55 1C 14 86 C6 1$./V...\.$U....
000060: DF 33 16 E9 5F 52 07 D6 58 36 A2 F8 03 0E 31 F6 .3.._R..X6....1.
000070: 44 F2 D6 DE 7C BA E7 17 E6 A4 31 22 42 A5 57 D7 D...|.....1"B.W.
000080: 14 E9 A4 72 BE B3 71 7E 39 35 97 79 97 2E B9 2D ...r..q~95.y...-
000090: 4F 0D 06 30 90 F1 61 89 32 D4 1A C0 46 06 7F C8 O..0..a.2...F...
0000A0: 31 DA 9E 04 CC 1D 26 C4 CB B1 57 B7 1C 3D 9C 32 1.....&...W..=.2
0000B0: CF 25 79 6C 71 DC 33 B8 6B 9F BA 58 C2 56 9E 76 .%ylq.3.k..X.V.v
0000C0: 18 D6 40 A9 53 6B 2C 1B 51 FC 01 83 11 F6 84 60 ..@.Sk,.Q......`
0000D0: D6 F1 F6 E7 1D CD F6 2F 9F E1 8A 6B A4 8B 86 A9 ......./...k....
0000E0: 35 DE 2F 9E 5F 24 71 90 C8 82 52 C1 40 C1 83 60 5./._$q...R.@..`
0000F0: 82 0C 6D 4C 19 83 D7 88 D8 0F 32 57 E1 6A 82 8B ..mL......2W.j..
000100: 3D 3D 18 36 27 48 B2 48 7A 43 82 1E BE 75 ED EF ==.6'H.HzC...u..
000110: DD 05 0C 45 A9 AE 38 52 6B 81 FF 55 22 66 FF 08 ...E..8Rk..U"f..
000120: 0F DF 58 30 E8 33 E5 8F 8D 88 3E 07 33 23 AA CF ..X0.3....>.3#..
000130: D3 E5 24 51 7F 64 E2 3D 52 92 6E 2F 1B 34 AC 85 ..$Q.d.=R.n/.4..
000140: 43 4B 15 F6 B8 C5 ED 60 F8 BF 65 94 08 89 AC 60 CK.....`..e....`
000150: 56 B6 55 1A 05 18 AA AA 33 E1 79 59 E7 28 AD 9D V.U.....3.yY.(..
000160: 35 0E 49 51 BF 09 04 93 A4 F0 5C 69 F7 F7 EC C2 5.IQ......\i....
000170: ED 4F F7 F4 AE C3 53 22 01 49 62 52 59 A5 B2 AC .O....S".IbRY...
000180: 35 B4 30 9B C6 A3 E0 8F 05 CF 3A 4C DF 52 04 8C 5.0.......:L.R..
000190: 6F 0D 12 7F 33 25 14 63 4A 2A 14 9F D6 0C 33 89 o...3%.cJ*....3.
0001A0: 04 25 89 4A 65 94 CA B8 E2 43 1B 66 06 92 7B 86 .%.Je....C.f..{.
0001B0: BB 1C 0E 98 75 BB BB DE CB A6 BF 5A 0B 7B F8 D7 ....u......Z.{..
0001C0: B3 C2 25 EB FC CF DC 24 8A BB 66 40 E9 94 24 C8 ..%....$..f@..$.
0001D0: 48 54 79 87 61 02 61 17 A7 F6 14 EB 38 4A 31 A5 HTy.a.a.....8J1.
0001E0: 6E 29 F7 CA C8 94 A3 34 A4 14 DB 51 24 AB 22 05 n).....4...Q$.".
0001F0: E3 CA 71 C0 40 F1 5B 91 28 56 92 81 E9 AA 42 E9 ..q.@.[.(V....B.
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
000010: 6F 72 64 68 79 70 3B 0D 0A 20 20 20 20 20 20 20 ordhyp;..
000020: 20 0D 0A 20 20 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 20 20 ST..
000040: 6D 61 78 6F 72 64 6C 61 65 6E 67 64 65 20 3D 20 maxordlaengde =
000050: 32 30 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20;..
000060: 20 62 6F 67 73 74 61 76 65 72 20 3A 20 53 45 54 bogstaver : SET
000070: 20 4F 46 20 43 48 41 52 20 3D 20 28 2E 27 41 27 OF CHAR = (.'A'
000080: 20 2E 2E 20 27 5D 27 2C 20 27 61 27 20 2E 2E 20 .. ']', 'a' ..
000090: 27 7D 27 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 '}'.);..
0000A0: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 ..
0000B0: 54 59 50 45 0D 0A 20 20 20 20 20 20 20 20 20 20 TYPE..
0000C0: 20 20 6F 72 64 74 79 70 65 20 3D 20 53 54 52 49 ordtype = STRI
0000D0: 4E 47 28 2E 6D 61 78 6F 72 64 6C 61 65 6E 67 64 NG(.maxordlaengd
0000E0: 65 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 e.);..
0000F0: 20 20 70 6F 69 6E 74 65 72 20 3D 20 5E 20 70 6F pointer = ^ po
000100: 73 74 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 st;..
000110: 20 70 6F 73 74 20 3D 20 52 45 43 4F 52 44 0D 0A post = RECORD..
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000130: 20 20 20 20 20 76 65 6E 73 74 72 65 2C 20 68 6F venstre, ho
000140: 65 6A 72 65 20 3A 20 70 6F 69 6E 74 65 72 3B 0D ejre : pointer;.
000150: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000160: 20 20 20 20 20 20 6F 72 64 5F 20 3A 20 6F 72 64 ord_ : ord
000170: 74 79 70 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 type;..
000180: 20 20 20 20 20 20 20 20 20 20 20 20 6F 72 64 74 ordt
000190: 61 65 6C 6C 65 72 20 3A 20 49 4E 54 45 47 45 52 aeller : INTEGER
0001A0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
0001B0: 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 END;..
0001C0: 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 ..
0001D0: 20 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 20 VAR..
0001E0: 20 20 20 6F 72 64 74 72 61 65 20 3A 20 70 6F 69 ordtrae : poi
0001F0: 6E 74 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 nter;..
Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 6E 79 67 61 61 72 64 3B PROGRAM nygaard;
000010: 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 61 .... VAR.. a
000020: 73 65 6B 76 65 6E 73 2C 20 62 73 65 6B 76 65 6E sekvens, bsekven
000030: 73 2C 20 61 73 65 6A 72 2C 20 62 73 65 6A 72 2C s, asejr, bsejr,
000040: 20 61 6E 74 61 6C 20 3A 20 49 4E 54 45 47 45 52 antal : INTEGER
000050: 3B 0D 0A 20 20 20 20 69 2C 20 70 2C 20 71 2C 20 ;.. i, p, q,
000060: 72 2C 20 73 2C 20 73 75 6D 20 3A 20 49 4E 54 45 r, s, sum : INTE
000070: 47 45 52 3B 0D 0A 20 20 20 20 61 66 67 6A 6F 72 GER;.. afgjor
000080: 74 20 3A 20 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 t : BOOLEAN;..
000090: 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 57 .. BEGIN.. W
0000A0: 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 RITE(CLRHOM);..
0000B0: 20 20 20 57 52 49 54 45 28 27 54 61 73 74 20 41 WRITE('Tast A
0000C0: 27 27 73 20 76 69 6E 64 65 72 73 65 6B 76 65 6E ''s vindersekven
0000D0: 73 20 28 66 2E 65 6B 73 2E 20 31 30 31 31 29 3A s (f.eks. 1011):
0000E0: 20 27 29 3B 20 52 45 41 44 4C 4E 28 61 73 65 6B '); READLN(asek
0000F0: 76 65 6E 73 29 3B 0D 0A 20 20 20 20 57 52 49 54 vens);.. WRIT
000100: 45 28 27 54 61 73 74 20 42 27 27 73 20 76 69 6E E('Tast B''s vin
000110: 64 65 72 73 65 6B 76 65 6E 73 20 20 20 20 20 20 dersekvens
000120: 20 20 20 20 20 20 20 20 3A 20 27 29 3B 20 52 45 : '); RE
000130: 41 44 4C 4E 28 62 73 65 6B 76 65 6E 73 29 3B 0D ADLN(bsekvens);.
000140: 0A 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 . WRITE('Tast
000150: 20 61 6E 74 61 6C 20 73 70 69 6C 20 20 20 20 20 antal spil
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000170: 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 61 6E 74 : '); READLN(ant
000180: 61 6C 29 3B 0D 0A 20 20 20 20 52 41 4E 44 4F 4D al);.. RANDOM
000190: 49 5A 45 3B 0D 0A 20 20 20 20 61 73 65 6A 72 20 IZE;.. asejr
0001A0: 3A 3D 20 30 3B 0D 0A 20 20 20 20 62 73 65 6A 72 := 0;.. bsejr
0001B0: 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 46 4F 52 20 := 0;.. FOR
0001C0: 69 20 3A 3D 20 31 20 54 4F 20 61 6E 74 61 6C 20 i := 1 TO antal
0001D0: 44 4F 0D 0A 20 20 20 20 20 20 42 45 47 49 4E 0D DO.. BEGIN.
0001E0: 0A 20 20 20 20 20 20 20 20 71 20 3A 3D 20 52 41 . q := RA
0001F0: 4E 44 4F 4D 28 32 29 3B 0D 0A 20 20 20 20 20 20 NDOM(2);..
Size : 512 (Real : 512)
000000: 20 20 20 6E 61 65 73 74 65 6F 72 64 20 3A 20 6F naesteord : o
000010: 72 64 74 79 70 65 3B 0D 0A 20 20 20 20 20 20 20 rdtype;..
000020: 20 20 20 20 20 66 69 6C 6E 61 76 6E 20 3A 20 53 filnavn : S
000030: 54 52 49 4E 47 28 2E 31 34 2E 29 3B 0D 0A 20 20 TRING(.14.);..
000040: 20 20 20 20 20 20 20 20 20 20 69 6E 64 66 69 6C indfil
000050: 20 3A 20 54 45 58 54 3B 0D 0A 20 20 20 20 20 20 : TEXT;..
000060: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 ..
000070: 50 52 4F 43 45 44 55 52 45 20 6C 61 65 73 6F 72 PROCEDURE laesor
000080: 64 28 56 41 52 20 73 74 72 65 6E 67 20 3A 20 6F d(VAR streng : o
000090: 72 64 74 79 70 65 29 3B 0D 0A 20 20 20 20 20 20 rdtype);..
0000A0: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 ..
0000B0: 20 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 20 VAR..
0000C0: 20 20 20 20 20 74 61 65 6C 6C 65 72 20 3A 20 30 taeller : 0
0000D0: 20 2E 2E 20 6D 61 78 6F 72 64 6C 61 65 6E 67 64 .. maxordlaengd
0000E0: 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 e;..
0000F0: 20 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A 20 20 ch : CHAR;..
000100: 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 ..
000110: 20 20 20 20 20 20 20 20 46 55 4E 43 54 49 4F 4E FUNCTION
000120: 20 73 6D 61 61 62 6F 67 73 74 61 76 65 72 28 73 smaabogstaver(s
000130: 74 72 65 6E 67 20 3A 20 6F 72 64 74 79 70 65 29 treng : ordtype)
000140: 20 3A 20 6F 72 64 74 79 70 65 3B 0D 0A 20 20 20 : ordtype;..
000150: 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 ..
000160: 20 20 20 20 20 20 20 20 20 56 41 52 0D 0A 20 20 VAR..
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 20 t
000180: 3A 20 31 20 2E 2E 20 6D 61 78 6F 72 64 6C 61 65 : 1 .. maxordlae
000190: 6E 67 64 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 ngde;..
0001A0: 20 20 20 20 20 20 20 73 20 3A 20 6F 72 64 74 79 s : ordty
0001B0: 70 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 pe;..
0001C0: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ..
0001D0: 20 20 20 42 45 47 49 4E 20 28 2A 20 73 6D 61 61 BEGIN (* smaa
0001E0: 62 6F 67 73 74 61 76 65 72 20 2A 29 0D 0A 20 20 bogstaver *)..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 20 s
Size : 512 (Real : 512)
000000: 20 20 72 20 3A 3D 20 52 41 4E 44 4F 4D 28 32 29 r := RANDOM(2)
000010: 3B 0D 0A 20 20 20 20 20 20 20 20 73 20 3A 3D 20 ;.. s :=
000020: 52 41 4E 44 4F 4D 28 32 29 3B 0D 0A 20 20 20 20 RANDOM(2);..
000030: 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 REPEAT..
000040: 20 20 20 20 20 20 61 66 67 6A 6F 72 74 20 3A 3D afgjort :=
000050: 20 46 41 4C 53 45 3B 0D 0A 20 20 20 20 20 20 20 FALSE;..
000060: 20 20 20 70 20 3A 3D 20 71 3B 0D 0A 20 20 20 20 p := q;..
000070: 20 20 20 20 20 20 71 20 3A 3D 20 72 3B 0D 0A 20 q := r;..
000080: 20 20 20 20 20 20 20 20 20 72 20 3A 3D 20 73 3B r := s;
000090: 0D 0A 20 20 20 20 20 20 20 20 20 20 73 20 3A 3D .. s :=
0000A0: 20 52 41 4E 44 4F 4D 28 32 29 3B 0D 0A 20 20 20 RANDOM(2);..
0000B0: 20 20 20 20 20 20 20 73 75 6D 20 3A 3D 20 70 20 sum := p
0000C0: 2A 20 31 30 30 30 20 2B 20 71 20 2A 20 31 30 30 * 1000 + q * 100
0000D0: 20 2B 20 72 20 2A 20 31 30 20 2B 20 73 3B 0D 0A + r * 10 + s;..
0000E0: 20 20 20 20 20 20 20 20 20 20 49 46 20 73 75 6D IF sum
0000F0: 20 3D 20 61 73 65 6B 76 65 6E 73 0D 0A 20 20 20 = asekvens..
000100: 20 20 20 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 THEN..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 BEG
000120: 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 IN..
000130: 20 20 20 20 61 73 65 6A 72 20 3A 3D 20 61 73 65 asejr := ase
000140: 6A 72 20 2B 20 31 3B 0D 0A 20 20 20 20 20 20 20 jr + 1;..
000150: 20 20 20 20 20 20 20 20 20 61 66 67 6A 6F 72 74 afgjort
000160: 20 3A 3D 20 54 52 55 45 3B 0D 0A 20 20 20 20 20 := TRUE;..
000170: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
000180: 28 27 41 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 ('A ');..
000190: 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 END;..
0001A0: 20 20 20 20 20 20 20 49 46 20 73 75 6D 20 3D 20 IF sum =
0001B0: 62 73 65 6B 76 65 6E 73 0D 0A 20 20 20 20 20 20 bsekvens..
0001C0: 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 THEN..
0001D0: 20 20 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 20 20 20 20 20 .
0001F0: 20 62 73 65 6A 72 20 3A 3D 20 62 73 65 6A 72 20 bsejr := bsejr
Size : 512 (Real : 512)
000000: 3A 3D 20 27 27 3B 0D 0A 20 20 20 20 20 20 20 20 := '';..
000010: 20 20 20 20 20 20 20 20 46 4F 52 20 74 20 3A 3D FOR t :=
000020: 20 31 20 54 4F 20 4C 45 4E 28 73 74 72 65 6E 67 1 TO LEN(streng
000030: 29 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 ) DO..
000040: 20 20 20 20 20 20 20 20 49 46 20 28 73 74 72 65 IF (stre
000050: 6E 67 28 2E 74 2E 29 20 3E 3D 20 27 41 27 29 20 ng(.t.) >= 'A')
000060: 41 4E 44 20 28 73 74 72 65 6E 67 28 2E 74 2E 29 AND (streng(.t.)
000070: 20 3C 3D 20 27 5D 27 29 0D 0A 20 20 20 20 20 20 <= ']')..
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 TH
000090: 45 4E 20 73 20 3A 3D 20 73 20 2B 20 43 48 52 28 EN s := s + CHR(
0000A0: 4F 52 44 28 73 74 72 65 6E 67 28 2E 74 2E 29 29 ORD(streng(.t.))
0000B0: 20 2B 20 33 32 29 0D 0A 20 20 20 20 20 20 20 20 + 32)..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 ELSE
0000D0: 20 73 20 3A 3D 20 73 20 2B 20 73 74 72 65 6E 67 s := s + streng
0000E0: 28 2E 74 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 (.t.);..
0000F0: 20 20 20 20 20 20 20 20 73 6D 61 61 62 6F 67 73 smaabogs
000100: 74 61 76 65 72 20 3A 3D 20 73 3B 0D 0A 20 20 20 taver := s;..
000110: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 20 END;
000120: 28 2A 20 73 6D 61 61 62 6F 67 73 74 61 76 65 72 (* smaabogstaver
000130: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 *)..
000140: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 .. B
000150: 45 47 49 4E 20 28 2A 20 6C 61 65 73 6F 72 64 20 EGIN (* laesord
000160: 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 *)..
000170: 20 20 49 46 20 4E 4F 54 20 45 4F 46 28 69 6E 64 IF NOT EOF(ind
000180: 66 69 6C 29 0D 0A 20 20 20 20 20 20 20 20 20 20 fil)..
000190: 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 THEN..
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 RE
0001B0: 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20 20 20 PEAT..
0001C0: 20 20 20 20 20 20 20 20 20 20 52 45 41 44 28 69 READ(i
0001D0: 6E 64 66 69 6C 2C 20 63 68 29 3B 0D 0A 20 20 20 ndfil, ch);..
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 U
0001F0: 4E 54 49 4C 20 45 4F 46 28 69 6E 64 66 69 6C 29 NTIL EOF(indfil)
Size : 512 (Real : 512)
000000: 6B 72 69 76 6F 72 64 20 2A 29 0D 0A 20 20 20 20 krivord *)..
000010: 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 ..
000020: 20 20 42 45 47 49 4E 20 28 2A 20 6F 72 64 68 79 BEGIN (* ordhy
000030: 70 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 p *)..
000040: 20 20 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B WRITE(CLRHOM);
000050: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 6F 72 .. or
000060: 64 74 72 61 65 20 3A 3D 20 4E 49 4C 3B 0D 0A 20 dtrae := NIL;..
000070: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
000080: 28 27 48 76 69 6C 6B 65 6E 20 66 69 6C 20 73 6B ('Hvilken fil sk
000090: 61 6C 20 6F 70 74 61 65 6C 6C 65 73 3A 20 27 29 al optaelles: ')
0000A0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 ;.. B
0000B0: 55 46 4C 45 4E 20 3A 3D 20 31 34 3B 0D 0A 20 20 UFLEN := 14;..
0000C0: 20 20 20 20 20 20 20 20 20 20 52 45 41 44 4C 4E READLN
0000D0: 28 66 69 6C 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 (filnavn);..
0000E0: 20 20 20 20 20 20 20 20 41 53 53 49 47 4E 28 69 ASSIGN(i
0000F0: 6E 64 66 69 6C 2C 20 66 69 6C 6E 61 76 6E 29 3B ndfil, filnavn);
000100: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 52 45 .. RE
000110: 53 45 54 28 69 6E 64 66 69 6C 29 3B 0D 0A 20 20 SET(indfil);..
000120: 20 20 20 20 20 20 20 20 20 20 57 48 49 4C 45 20 WHILE
000130: 4E 4F 54 20 45 4F 46 28 69 6E 64 66 69 6C 29 20 NOT EOF(indfil)
000140: 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 DO..
000150: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 BEGIN..
000160: 20 20 20 20 20 20 20 20 20 6C 61 65 73 6F 72 64 laesord
000170: 28 6E 61 65 73 74 65 6F 72 64 29 3B 0D 0A 20 20 (naesteord);..
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 IF
000190: 20 4E 4F 54 20 45 4F 46 28 69 6E 64 66 69 6C 29 NOT EOF(indfil)
0001A0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0001B0: 20 20 20 20 54 48 45 4E 20 67 65 6D 6F 72 64 28 THEN gemord(
0001C0: 6F 72 64 74 72 61 65 2C 20 6E 61 65 73 74 65 6F ordtrae, naesteo
0001D0: 72 64 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 rd);..
0001E0: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 END;..
0001F0: 20 20 20 20 20 20 43 4C 4F 53 45 28 69 6E 64 66 CLOSE(indf
Size : 512 (Real : 512)
000000: 20 4F 52 20 28 63 68 20 49 4E 20 62 6F 67 73 74 OR (ch IN bogst
000010: 61 76 65 72 29 3B 0D 0A 20 20 20 20 20 20 20 20 aver);..
000020: 20 20 20 20 20 20 73 74 72 65 6E 67 20 3A 3D 20 streng :=
000030: 27 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 '';..
000040: 20 20 20 49 46 20 4E 4F 54 20 45 4F 46 28 69 6E IF NOT EOF(in
000050: 64 66 69 6C 29 0D 0A 20 20 20 20 20 20 20 20 20 dfil)..
000060: 20 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 THEN..
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 B
000080: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
000090: 20 20 20 20 20 20 20 20 20 20 74 61 65 6C 6C 65 taelle
0000A0: 72 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 20 20 20 r := 0;..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 48 49 WHI
0000C0: 4C 45 20 63 68 20 49 4E 20 62 6F 67 73 74 61 76 LE ch IN bogstav
0000D0: 65 72 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 er DO..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 BEG
0000F0: 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 IN..
000100: 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 74 IF t
000110: 61 65 6C 6C 65 72 20 3C 20 6D 61 78 6F 72 64 6C aeller < maxordl
000120: 61 65 6E 67 64 65 0D 0A 20 20 20 20 20 20 20 20 aengde..
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000140: 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 THEN..
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000160: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 20 20 20 20 20 20 20 20 20 74 61 65 6C 6C 65 72 taeller
000190: 20 3A 3D 20 74 61 65 6C 6C 65 72 20 2B 20 31 3B := taeller + 1;
0001A0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001C0: 73 74 72 65 6E 67 20 3A 3D 20 73 74 72 65 6E 67 streng := streng
0001D0: 20 2B 20 63 68 3B 0D 0A 20 20 20 20 20 20 20 20 + ch;..
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001F0: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 END;..
Size : 512 (Real : 512)
000000: 69 6C 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 il);..
000010: 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 WRITELN;..
000020: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 WRITELN(
000030: 27 48 79 70 70 69 67 68 65 64 73 66 6F 72 64 65 'Hyppighedsforde
000040: 6C 69 6E 67 20 61 66 20 6F 72 64 65 6E 65 20 69 ling af ordene i
000050: 20 66 69 6C 65 6E 3A 20 27 2C 20 66 69 6C 6E 61 filen: ', filna
000060: 76 6E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 vn);..
000070: 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 WRITELN;..
000080: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 WRITELN(
000090: 27 48 59 50 50 49 47 48 45 44 20 20 4F 52 44 27 'HYPPIGHED ORD'
0000A0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
0000B0: 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 WRITELN;..
0000C0: 20 20 20 20 20 20 73 6B 72 69 76 6F 72 64 28 6F skrivord(o
0000D0: 72 64 74 72 61 65 29 3B 0D 0A 20 20 20 20 20 20 rdtrae);..
0000E0: 20 20 20 20 45 4E 44 2E 20 28 2A 20 6F 72 64 68 END. (* ordh
0000F0: 79 70 20 2A 29 0D 0A 1A 4E 3B 0D 0A 20 20 20 20 yp *)...N;..
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 18 3C 7E FF 18 18 18 18 18 18 18 18 FF ....<~..........
000150: 7E 3C 18 10 30 70 FF FF 70 30 10 08 0C 0E FF FF ~<..0p..p0......
000160: 0E 0C 08 00 00 18 3C 7E FF FF 00 00 00 FF FF 7E ......<~.......~
000170: 3C 18 00 80 E0 F8 FE F8 E0 80 00 02 0E 3E FE 3E <............>.>
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: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 20 49 46 20 4E 4F 54 20 45 4F 46 28 69 6E 64 IF NOT EOF(ind
000020: 66 69 6C 29 0D 0A 20 20 20 20 20 20 20 20 20 20 fil)..
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000040: 54 48 45 4E 20 52 45 41 44 28 69 6E 64 66 69 6C THEN READ(indfil
000050: 2C 20 63 68 29 0D 0A 20 20 20 20 20 20 20 20 20 , ch)..
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 45 4C 53 45 20 63 68 20 3A 3D 20 27 20 27 3B ELSE ch := ' ';
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 45 4E 44 3B 0D 0A 20 20 END;..
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000B0: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 END;..
0000C0: 20 20 20 20 73 74 72 65 6E 67 20 3A 3D 20 73 6D streng := sm
0000D0: 61 61 62 6F 67 73 74 61 76 65 72 28 73 74 72 65 aabogstaver(stre
0000E0: 6E 67 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ng);..
0000F0: 20 20 45 4E 44 3B 20 28 2A 20 6C 61 65 73 6F 72 END; (* laesor
000100: 64 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 d *)..
000110: 0D 0A 20 20 20 20 20 20 20 20 20 20 50 52 4F 43 .. PROC
000120: 45 44 55 52 45 20 67 65 6D 6F 72 64 28 56 41 52 EDURE gemord(VAR
000130: 20 74 72 61 65 20 3A 20 70 6F 69 6E 74 65 72 3B trae : pointer;
000140: 20 73 74 72 65 6E 67 20 3A 20 6F 72 64 74 79 70 streng : ordtyp
000150: 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D e);.. .
000160: 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 . BEG
000170: 49 4E 20 28 2A 20 67 65 6D 6F 72 64 20 2A 29 0D IN (* gemord *).
000180: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 . I
000190: 46 20 74 72 61 65 20 3D 20 4E 49 4C 0D 0A 20 20 F trae = NIL..
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 TH
0001B0: 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 EN..
0001C0: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001E0: 20 4E 45 57 28 74 72 61 65 29 3B 0D 0A 20 20 20 NEW(trae);..
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
Size : 512 (Real : 512)
000000: E0 40 F0 80 10 17 F0 03 90 33 15 02 00 77 FF 4C .@.......3...w.L
000010: 00 11 88 77 FF 88 AE AF 33 15 02 10 00 70 80 07 ...w....3....p..
000020: 0F 13 0C 40 15 02 EE 00 FF 8C 00 33 FF 77 FF 98 ...@.......3.w..
000030: 5F 09 15 02 CC C0 A0 F0 A0 A1 0E 17 A0 07 B0 A0 _...............
000040: B0 A0 A0 90 11 15 02 CC 11 CE 00 33 FF 77 FF EF ...........3.w..
000050: AF 9D 15 02 30 10 50 F0 90 50 1E 17 50 03 70 17 ....0.P..P..P.p.
000060: 50 04 D0 50 D0 50 40 60 77 15 02 88 23 00 77 FF P..P.P@`w...#.w.
000070: 77 FF 9B 5F 5F FF CC C0 A0 A0 F0 A0 A0 C0 A0 E0 w..__...........
000080: 17 A0 03 B0 A0 A0 E0 17 A0 04 90 91 15 03 88 09 ................
000090: 7F FF 77 CC 01 AF BB FF 30 10 50 50 F0 94 40 10 ..w.....0.PP..@.
0000A0: 50 D0 50 70 50 50 D0 50 70 50 50 D0 50 40 60 77 P.PpPP.PpPP.P@`w
0000B0: 15 03 07 1F FF 66 10 C1 0F 77 CC C0 17 F0 04 30 .....f...w.....0
0000C0: E0 00 17 F0 0E 90 91 FF EF 17 0F 03 3B 00 30 E0 ............;.0.
0000D0: 33 BB B8 13 17 60 77 8F 0D 17 0F 03 11 30 F0 33 3....`w......0.3
0000E0: EF C8 17 A0 03 E0 13 02 E0 00 30 17 A0 05 E0 A0 ..........0.....
0000F0: A0 E0 17 A0 05 90 80 0E 0B 0E 0F 0F 66 30 F0 31 ............f0.1
000100: EF 18 17 50 03 D0 00 10 C0 00 17 50 03 70 17 50 ...P.......P.p.P
000110: 05 70 50 50 70 50 50 40 61 0D 05 0D 0D 0F 66 30 .pPPpPP@a.....f0
000120: F0 71 CC AC A0 A0 B0 A0 A0 B0 A0 A0 B0 17 A0 08 .q..............
000130: B0 A0 A0 B0 17 A0 03 83 0A 0B 0B 0A 0F 66 30 F0 .............f0.
000140: 60 11 5C 17 50 05 70 50 50 70 50 50 70 50 50 70 `.\.P.pPPpPPpPPp
000150: 17 50 03 D0 50 50 D0 50 50 43 04 07 07 05 07 66 .P..PP.PPC.....f
000160: 30 F0 60 27 AC A0 B0 17 A0 03 E0 17 A0 08 B0 17 0.`'............
000170: A0 03 E0 17 A0 05 83 0A 0E 0E 0A 0F 66 10 F0 40 ............f..@
000180: F0 70 17 F0 18 83 0E 01 0D 05 0F 66 10 F0 90 F0 .p.........f....
000190: 13 19 03 0E 03 0A 0A 0F 66 10 F0 B0 E0 17 50 05 ........f.....P.
0001A0: 70 17 50 06 70 17 50 03 D0 50 50 70 17 50 03 70 p.P.p.P..PPp.P.p
0001B0: 50 07 0C 05 01 05 0D 54 40 E0 B0 C0 A0 E0 17 A0 P......T@.......
0001C0: 03 E0 17 A0 0A E0 A0 A0 B0 17 A0 03 B0 A0 87 0C ................
0001D0: 0A 02 0B 0B 70 60 60 B0 90 50 D0 17 50 03 D0 17 ....p``..P..P...
0001E0: 50 03 D0 50 50 70 17 50 0C 07 08 04 05 07 07 40 P..PPp.P.......@
0001F0: 70 70 F0 20 B0 17 A0 03 B0 17 A0 03 B0 17 A0 0F pp. ............
Size : 512 (Real : 512)
000000: 20 57 49 54 48 20 74 72 61 65 5E 20 44 4F 0D 0A WITH trae^ DO..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000040: 20 20 20 20 20 76 65 6E 73 74 72 65 20 3A 3D 20 venstre :=
000050: 4E 49 4C 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 NIL;..
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 6F ho
000070: 65 6A 72 65 20 3A 3D 20 4E 49 4C 3B 0D 0A 20 20 ejre := NIL;..
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000090: 20 20 20 20 20 20 6F 72 64 5F 20 3A 3D 20 73 74 ord_ := st
0000A0: 72 65 6E 67 3B 0D 0A 20 20 20 20 20 20 20 20 20 reng;..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6F o
0000C0: 72 64 74 61 65 6C 6C 65 72 20 3A 3D 20 31 3B 0D rdtaeller := 1;.
0000D0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0000E0: 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 END;..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
000100: 4E 44 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ND..
000110: 20 20 20 20 45 4C 53 45 20 0D 0A 20 20 20 20 20 ELSE ..
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 49 54 WIT
000130: 48 20 74 72 61 65 5E 20 44 4F 0D 0A 20 20 20 20 H trae^ DO..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 49 46 20 73 74 72 65 6E 67 20 3C 20 6F 72 64 5F IF streng < ord_
000160: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000170: 20 20 20 20 20 20 20 20 54 48 45 4E 20 67 65 6D THEN gem
000180: 6F 72 64 28 76 65 6E 73 74 72 65 2C 20 73 74 72 ord(venstre, str
000190: 65 6E 67 29 0D 0A 20 20 20 20 20 20 20 20 20 20 eng)..
0001A0: 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 ELSE I
0001B0: 46 20 73 74 72 65 6E 67 20 3E 20 6F 72 64 5F 0D F streng > ord_.
0001C0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0001D0: 20 20 20 20 20 20 20 54 48 45 4E 20 67 65 6D 6F THEN gemo
0001E0: 72 64 28 68 6F 65 6A 72 65 2C 20 73 74 72 65 6E rd(hoejre, stren
0001F0: 67 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 g)..
Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 6F 76 65 72 66 5F 31 3B PROGRAM overf_1;
000010: 0D 0A 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: 0D 0A 20 20 20 20 6C 61 65 6E 67 64 65 2C 20 62 .. laengde, b
000040: 72 65 64 64 65 2C 20 68 6F 65 6A 64 65 2C 20 6F redde, hoejde, o
000050: 76 65 72 66 6C 61 64 65 2C 20 74 6F 74 61 6C 6F verflade, totalo
000060: 76 65 72 66 6C 61 64 65 20 3A 20 52 45 41 4C 3B verflade : REAL;
000070: 0D 0A 20 20 20 20 72 61 64 69 75 73 2C 20 73 69 .. radius, si
000080: 64 65 2C 20 72 31 2C 20 72 32 20 3A 20 52 45 41 de, r1, r2 : REA
000090: 4C 3B 0D 0A 20 20 0D 0A 20 20 42 45 47 49 4E 0D L;.. .. BEGIN.
0000A0: 0A 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F . WRITE(CLRHO
0000B0: 4D 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E M);.. WRITELN
0000C0: 28 27 4F 20 56 20 45 20 52 20 46 20 4C 20 41 20 ('O V E R F L A
0000D0: 44 20 45 20 20 20 41 20 46 20 3A 27 29 3B 0D 0A D E A F :');..
0000E0: 20 20 20 20 57 52 49 54 45 4C 4E 28 27 2D 2D 2D WRITELN('---
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000100: 2D 2D 2D 2D 2D 2D 27 29 3B 0D 0A 20 20 20 20 57 ------');.. W
000110: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 RITELN;.. WRI
000120: 54 45 4C 4E 28 27 4B 41 53 53 45 20 2E 2E 2E 2E TELN('KASSE ....
000130: 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 74 61 73 74 20 31 ......... tast 1
000140: 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E ');.. WRITELN
000150: 28 27 43 59 4C 49 4E 44 45 52 20 2E 2E 2E 2E 2E ('CYLINDER .....
000160: 2E 2E 2E 2E 2E 20 74 61 73 74 20 32 27 29 3B 0D ..... tast 2');.
000170: 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4B 45 . WRITELN('KE
000180: 47 4C 45 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E GLE ............
000190: 2E 20 74 61 73 74 20 33 27 29 3B 0D 0A 20 20 20 . tast 3');..
0001A0: 20 57 52 49 54 45 4C 4E 28 27 4B 45 47 4C 45 53 WRITELN('KEGLES
0001B0: 54 55 42 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 74 61 TUB ......... ta
0001C0: 73 74 20 34 27 29 3B 0D 0A 20 20 20 20 57 52 49 st 4');.. WRI
0001D0: 54 45 4C 4E 28 27 4B 55 47 4C 45 20 2E 2E 2E 2E TELN('KUGLE ....
0001E0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 74 61 73 74 20 35 ......... tast 5
0001F0: 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E ');.. WRITELN
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 45 4C 53 45 0D 0A 20 20 ELSE..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 20 20 20 20 6F 72 64 74 61 65 6C 6C 65 72 20 3A ordtaeller :
000030: 3D 20 6F 72 64 74 61 65 6C 6C 65 72 20 2B 20 31 = ordtaeller + 1
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 67 65 6D 6F 72 64 20 2A 29 ND; (* gemord *)
000060: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A .. ..
000070: 20 20 20 20 20 20 20 20 20 20 50 52 4F 43 45 44 PROCED
000080: 55 52 45 20 73 6B 72 69 76 6F 72 64 28 74 72 61 URE skrivord(tra
000090: 65 20 3A 20 70 6F 69 6E 74 65 72 29 3B 0D 0A 20 e : pointer);..
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 42 45 47 49 4E 20 28 2A 20 BEGIN (*
0000C0: 73 6B 72 69 76 6F 72 64 20 2A 29 0D 0A 20 20 20 skrivord *)..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 49 46 20 74 72 IF tr
0000E0: 61 65 20 3C 3E 20 4E 49 4C 0D 0A 20 20 20 20 20 ae <> NIL..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 0D THEN.
000100: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000110: 20 20 20 57 49 54 48 20 74 72 61 65 5E 20 44 4F WITH trae^ DO
000120: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000130: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 73 6B 72 69 76 6F 72 64 28 76 65 6E 73 skrivord(vens
000160: 74 72 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 tre);..
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
000180: 54 45 4C 4E 28 6F 72 64 74 61 65 6C 6C 65 72 20 TELN(ordtaeller
000190: 3A 20 34 2C 20 27 20 20 20 20 20 20 20 27 2C 20 : 4, ' ',
0001A0: 6F 72 64 5F 29 3B 0D 0A 20 20 20 20 20 20 20 20 ord_);..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6B sk
0001C0: 72 69 76 6F 72 64 28 68 6F 65 6A 72 65 29 3B 0D rivord(hoejre);.
0001D0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0001E0: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
0001F0: 20 20 20 20 20 20 20 45 4E 44 3B 20 28 2A 20 73 END; (* s
Size : 512 (Real : 512)
000000: 3B 0D 0A 20 20 20 20 57 52 49 54 45 28 27 49 6E ;.. WRITE('In
000010: 64 74 61 73 74 20 7C 6E 73 6B 65 3A 20 27 29 3B dtast |nske: ');
000020: 20 52 45 41 44 4C 4E 28 6F 65 6E 73 6B 65 29 3B READLN(oenske);
000030: 0D 0A 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 .. WRITE(CLRH
000040: 4F 4D 29 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 OM);.. ..
000050: 49 46 20 6F 65 6E 73 6B 65 20 3D 20 31 0D 0A 20 IF oenske = 1..
000060: 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 THEN..
000070: 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 BEGIN..
000080: 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4F 56 45 WRITELN('OVE
000090: 52 46 4C 41 44 45 20 41 46 20 45 4E 20 4B 41 53 RFLADE AF EN KAS
0000A0: 53 45 3A 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 SE:');..
0000B0: 20 20 57 52 49 54 45 4C 4E 28 27 2D 2D 2D 2D 2D WRITELN('-----
0000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000D0: 2D 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 -');..
0000E0: 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 WRITELN;..
0000F0: 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 WRITE('Indta
000100: 73 74 20 6B 61 73 73 65 6E 73 20 62 72 65 64 64 st kassens bredd
000110: 65 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 62 72 e: '); READLN(br
000120: 65 64 64 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 edde);..
000130: 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 73 74 WRITE('Indtast
000140: 20 6B 61 73 73 65 6E 73 20 6C 7B 6E 67 64 65 3A kassens l{ngde:
000150: 20 27 29 3B 20 52 45 41 44 4C 4E 28 6C 61 65 6E '); READLN(laen
000160: 67 64 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 gde);..
000170: 20 57 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 WRITE('Indtast
000180: 6B 61 73 73 65 6E 73 20 68 7C 6A 64 65 3A 20 20 kassens h|jde:
000190: 27 29 3B 20 52 45 41 44 4C 4E 28 68 6F 65 6A 64 '); READLN(hoejd
0001A0: 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 e);.. W
0001B0: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 RITELN;..
0001C0: 20 20 20 6F 76 65 72 66 6C 61 64 65 20 3A 3D 20 overflade :=
0001D0: 6C 61 65 6E 67 64 65 20 2A 20 62 72 65 64 64 65 laengde * bredde
0001E0: 20 2B 20 62 72 65 64 64 65 20 2A 20 68 6F 65 6A + bredde * hoej
0001F0: 64 65 20 2B 20 6C 61 65 6E 67 64 65 20 2A 20 68 de + laengde * h
Size : 512 (Real : 512)
000000: 2A 20 53 51 52 28 72 32 29 3B 0D 0A 20 20 20 20 * SQR(r2);..
000010: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4B WRITELN('K
000020: 65 67 6C 65 73 74 75 62 62 65 6E 73 20 6B 72 75 eglestubbens kru
000030: 6D 6D 65 20 6F 76 65 72 66 6C 61 64 65 3A 20 27 mme overflade: '
000040: 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ,..
000050: 20 20 20 20 20 6F 76 65 72 66 6C 61 64 65 20 3A overflade :
000060: 20 31 30 20 3A 20 32 2C 20 27 20 63 6D 32 27 29 10 : 2, ' cm2')
000070: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 ;.. WRI
000080: 54 45 4C 4E 28 27 4B 65 67 6C 65 73 74 75 62 62 TELN('Keglestubb
000090: 65 6E 73 20 74 6F 74 61 6C 65 20 6F 76 65 72 66 ens totale overf
0000A0: 6C 61 64 65 3A 20 27 2C 0D 0A 20 20 20 20 20 20 lade: ',..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 74 6F 74 61 tota
0000C0: 6C 6F 76 65 72 66 6C 61 64 65 20 3A 20 31 30 20 loverflade : 10
0000D0: 3A 20 32 2C 20 27 20 63 6D 32 27 29 3B 0D 0A 20 : 2, ' cm2');..
0000E0: 20 20 20 20 20 20 20 45 4E 44 0D 0A 20 20 20 20 END..
0000F0: 0D 0A 20 20 20 20 45 4C 53 45 20 49 46 20 6F 65 .. ELSE IF oe
000100: 6E 73 6B 65 20 3D 20 35 0D 0A 20 20 20 20 20 20 nske = 5..
000110: 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 42 45 THEN.. BE
000120: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 57 GIN.. W
000130: 52 49 54 45 4C 4E 28 27 4F 56 45 52 46 4C 41 44 RITELN('OVERFLAD
000140: 45 20 41 46 20 45 4E 20 4B 55 47 4C 45 3A 27 29 E AF EN KUGLE:')
000150: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 ;.. WRI
000160: 54 45 4C 4E 28 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D TELN('----------
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 29 3B 0D ------------');.
000180: 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 . WRITE
000190: 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 LN;.. W
0001A0: 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 6B 75 RITE('Indtast ku
0001B0: 67 6C 65 6E 73 20 72 61 64 69 75 73 3A 20 27 29 glens radius: ')
0001C0: 3B 20 52 45 41 44 4C 4E 28 72 61 64 69 75 73 29 ; READLN(radius)
0001D0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 ;.. WRI
0001E0: 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 TELN;..
0001F0: 20 6F 76 65 72 66 6C 61 64 65 20 3A 3D 20 34 20 overflade := 4
Size : 512 (Real : 512)
000000: 6F 65 6A 64 65 3B 0D 0A 20 20 20 20 20 20 20 20 oejde;..
000010: 20 20 6F 76 65 72 66 6C 61 64 65 20 3A 3D 20 32 overflade := 2
000020: 20 2A 20 6F 76 65 72 66 6C 61 64 65 3B 0D 0A 20 * overflade;..
000030: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
000040: 28 27 4B 61 73 73 65 6E 73 20 6F 76 65 72 66 6C ('Kassens overfl
000050: 61 64 65 3A 20 27 2C 20 6F 76 65 72 66 6C 61 64 ade: ', overflad
000060: 65 20 3A 20 31 30 20 3A 20 32 2C 20 27 20 63 6D e : 10 : 2, ' cm
000070: 32 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E 2');.. EN
000080: 44 0D 0A 20 20 20 20 0D 0A 20 20 20 20 45 4C 53 D.. .. ELS
000090: 45 20 49 46 20 6F 65 6E 73 6B 65 20 3D 20 32 0D E IF oenske = 2.
0000A0: 0A 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 . THEN..
0000B0: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
0000C0: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4F WRITELN('O
0000D0: 56 45 52 46 4C 41 44 45 20 41 46 20 45 4E 20 43 VERFLADE AF EN C
0000E0: 59 4C 49 4E 44 45 52 3A 27 29 3B 0D 0A 20 20 20 YLINDER:');..
0000F0: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 WRITELN('
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 27 29 3B 0D 0A 20 20 ---------');..
000120: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B WRITELN;
000130: 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 .. WRIT
000140: 45 28 27 49 6E 64 74 61 73 74 20 63 79 6C 69 6E E('Indtast cylin
000150: 64 65 72 65 6E 73 20 68 7C 6A 64 65 3A 20 20 27 derens h|jde: '
000160: 29 3B 20 52 45 41 44 4C 4E 28 68 6F 65 6A 64 65 ); READLN(hoejde
000170: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 );.. WR
000180: 49 54 45 28 27 49 6E 64 74 61 73 74 20 63 79 6C ITE('Indtast cyl
000190: 69 6E 64 65 72 65 6E 73 20 72 61 64 69 75 73 3A inderens radius:
0001A0: 20 27 29 3B 20 52 45 41 44 4C 4E 28 72 61 64 69 '); READLN(radi
0001B0: 75 73 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 us);..
0001C0: 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 WRITELN;..
0001D0: 20 20 20 20 6F 76 65 72 66 6C 61 64 65 20 3A 3D overflade :=
0001E0: 20 32 20 2A 20 50 49 20 2A 20 72 61 64 69 75 73 2 * PI * radius
0001F0: 20 2A 20 68 6F 65 6A 64 65 3B 0D 0A 20 20 20 20 * hoejde;..
Size : 512 (Real : 512)
000000: 2A 20 50 49 20 2A 20 53 51 52 28 72 61 64 69 75 * PI * SQR(radiu
000010: 73 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 s);.. W
000020: 52 49 54 45 4C 4E 28 27 4B 75 67 6C 65 6E 73 20 RITELN('Kuglens
000030: 6F 76 65 72 66 6C 61 64 65 3A 20 27 2C 20 6F 76 overflade: ', ov
000040: 65 72 66 6C 61 64 65 20 3A 20 31 30 20 3A 20 32 erflade : 10 : 2
000050: 2C 20 27 20 63 6D 32 27 29 3B 0D 0A 20 20 20 20 , ' cm2');..
000060: 20 20 20 20 45 4E 44 0D 0A 20 20 20 20 0D 0A 20 END.. ..
000070: 20 20 20 45 4C 53 45 20 49 46 20 6F 65 6E 73 6B ELSE IF oensk
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: 20 20 20 20 20 20 74 6F 74 61 6C 6F 76 65 72 66 totaloverf
000010: 6C 61 64 65 20 3A 3D 20 6F 76 65 72 66 6C 61 64 lade := overflad
000020: 65 20 2B 20 32 20 2A 20 50 49 20 2A 20 53 51 52 e + 2 * PI * SQR
000030: 28 72 61 64 69 75 73 29 3B 0D 0A 20 20 20 20 20 (radius);..
000040: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 43 79 WRITELN('Cy
000050: 6C 69 6E 64 65 72 65 6E 73 20 6B 72 75 6D 6D 65 linderens krumme
000060: 20 6F 76 65 72 66 6C 61 64 65 3A 20 27 2C 20 0D overflade: ', .
000070: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000080: 20 20 20 6F 76 65 72 66 6C 61 64 65 20 3A 20 31 overflade : 1
000090: 30 20 3A 20 32 2C 20 27 20 63 6D 32 27 29 3B 0D 0 : 2, ' cm2');.
0000A0: 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 . WRITE
0000B0: 4C 4E 28 27 43 79 6C 69 6E 64 65 72 65 6E 73 20 LN('Cylinderens
0000C0: 74 6F 74 61 6C 6F 76 65 72 66 6C 61 64 65 3A 20 totaloverflade:
0000D0: 20 20 27 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 ',..
0000E0: 20 20 20 20 20 20 20 20 74 6F 74 61 6C 6F 76 65 totalove
0000F0: 72 66 6C 61 64 65 20 3A 20 31 30 20 3A 20 32 2C rflade : 10 : 2,
000100: 20 27 20 63 6D 32 27 29 3B 0D 0A 20 20 20 20 20 ' cm2');..
000110: 20 20 20 45 4E 44 0D 0A 20 20 20 20 0D 0A 20 20 END.. ..
000120: 20 20 45 4C 53 45 20 49 46 20 6F 65 6E 73 6B 65 ELSE IF oenske
000130: 20 3D 20 33 0D 0A 20 20 20 20 20 20 54 48 45 4E = 3.. THEN
000140: 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D .. BEGIN.
000150: 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 . WRITE
000160: 4C 4E 28 27 4F 56 45 52 46 4C 41 44 45 20 41 46 LN('OVERFLADE AF
000170: 20 45 4E 20 4B 45 47 4C 45 3A 27 29 3B 0D 0A 20 EN KEGLE:');..
000180: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
000190: 28 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ('--------------
0001A0: 2D 2D 2D 2D 2D 2D 2D 2D 27 29 3B 0D 0A 20 20 20 --------');..
0001B0: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D WRITELN;.
0001C0: 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 . WRITE
0001D0: 28 27 49 6E 64 74 61 73 74 20 6B 65 67 6C 65 6E ('Indtast keglen
0001E0: 73 20 68 7C 6A 64 65 3A 20 20 27 29 3B 20 52 45 s h|jde: '); RE
0001F0: 41 44 4C 4E 28 68 6F 65 6A 64 65 29 3B 0D 0A 20 ADLN(hoejde);..
Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 6F 76 65 72 66 5F 32 3B PROGRAM overf_2;
000010: 0D 0A 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: 0D 0A 20 20 20 20 6C 61 65 6E 67 64 65 2C 20 62 .. laengde, b
000040: 72 65 64 64 65 2C 20 68 6F 65 6A 64 65 2C 20 6F redde, hoejde, o
000050: 76 65 72 66 6C 61 64 65 2C 20 74 6F 74 61 6C 6F verflade, totalo
000060: 76 65 72 66 6C 61 64 65 20 3A 20 52 45 41 4C 3B verflade : REAL;
000070: 0D 0A 20 20 20 20 72 61 64 69 75 73 2C 20 73 69 .. radius, si
000080: 64 65 2C 20 72 31 2C 20 72 32 20 3A 20 52 45 41 de, r1, r2 : REA
000090: 4C 3B 0D 0A 20 20 0D 0A 20 20 42 45 47 49 4E 0D L;.. .. BEGIN.
0000A0: 0A 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F . WRITE(CLRHO
0000B0: 4D 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E M);.. WRITELN
0000C0: 28 27 4F 20 56 20 45 20 52 20 46 20 4C 20 41 20 ('O V E R F L A
0000D0: 44 20 45 20 20 20 41 20 46 20 3A 27 29 3B 0D 0A D E A F :');..
0000E0: 20 20 20 20 57 52 49 54 45 4C 4E 28 27 2D 2D 2D WRITELN('---
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000100: 2D 2D 2D 2D 2D 2D 27 29 3B 0D 0A 20 20 20 20 57 ------');.. W
000110: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 RITELN;.. WRI
000120: 54 45 4C 4E 28 27 4B 41 53 53 45 20 2E 2E 2E 2E TELN('KASSE ....
000130: 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 74 61 73 74 20 31 ......... tast 1
000140: 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E ');.. WRITELN
000150: 28 27 43 59 4C 49 4E 44 45 52 20 2E 2E 2E 2E 2E ('CYLINDER .....
000160: 2E 2E 2E 2E 2E 20 74 61 73 74 20 32 27 29 3B 0D ..... tast 2');.
000170: 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4B 45 . WRITELN('KE
000180: 47 4C 45 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E GLE ............
000190: 2E 20 74 61 73 74 20 33 27 29 3B 0D 0A 20 20 20 . tast 3');..
0001A0: 20 57 52 49 54 45 4C 4E 28 27 4B 45 47 4C 45 53 WRITELN('KEGLES
0001B0: 54 55 42 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 74 61 TUB ......... ta
0001C0: 73 74 20 34 27 29 3B 0D 0A 20 20 20 20 57 52 49 st 4');.. WRI
0001D0: 54 45 4C 4E 28 27 4B 55 47 4C 45 20 2E 2E 2E 2E TELN('KUGLE ....
0001E0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 74 61 73 74 20 35 ......... tast 5
0001F0: 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E ');.. WRITELN
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 WRITE('
000010: 49 6E 64 74 61 73 74 20 6B 65 67 6C 65 6E 73 20 Indtast keglens
000020: 72 61 64 69 75 73 3A 20 27 29 3B 20 52 45 41 44 radius: '); READ
000030: 4C 4E 28 72 61 64 69 75 73 29 3B 0D 0A 20 20 20 LN(radius);..
000040: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D WRITELN;.
000050: 0A 20 20 20 20 20 20 20 20 20 20 73 69 64 65 20 . side
000060: 3A 3D 20 53 51 52 54 28 53 51 52 28 68 6F 65 6A := SQRT(SQR(hoej
000070: 64 65 29 20 2B 20 53 51 52 28 72 61 64 69 75 73 de) + SQR(radius
000080: 29 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 6F ));.. o
000090: 76 65 72 66 6C 61 64 65 20 3A 3D 20 50 49 20 2A verflade := PI *
0000A0: 20 72 61 64 69 75 73 20 2A 20 73 69 64 65 3B 0D radius * side;.
0000B0: 0A 20 20 20 20 20 20 20 20 20 20 74 6F 74 61 6C . total
0000C0: 6F 76 65 72 66 6C 61 64 65 20 3A 3D 20 6F 76 65 overflade := ove
0000D0: 72 66 6C 61 64 65 20 2B 20 50 49 20 2A 20 53 51 rflade + PI * SQ
0000E0: 52 28 72 61 64 69 75 73 29 3B 0D 0A 20 20 20 20 R(radius);..
0000F0: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4B WRITELN('K
000100: 65 67 6C 65 6E 73 20 6B 72 75 6D 6D 65 20 6F 76 eglens krumme ov
000110: 65 72 66 6C 61 64 65 3A 20 27 2C 20 0D 0A 20 20 erflade: ', ..
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000130: 6F 76 65 72 66 6C 61 64 65 20 3A 20 31 30 20 3A overflade : 10 :
000140: 20 32 2C 20 27 20 63 6D 32 27 29 3B 0D 0A 20 20 2, ' cm2');..
000150: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 WRITELN(
000160: 27 4B 65 67 6C 65 6E 73 20 74 6F 74 61 6C 65 20 'Keglens totale
000170: 6F 76 65 72 66 6C 61 64 65 3A 20 27 2C 0D 0A 20 overflade: ',..
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000190: 20 74 6F 74 61 6C 6F 76 65 72 66 6C 61 64 65 20 totaloverflade
0001A0: 3A 20 31 30 20 3A 20 32 2C 20 27 20 63 6D 32 27 : 10 : 2, ' cm2'
0001B0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E 44 0D );.. END.
0001C0: 0A 20 20 20 20 0D 0A 20 20 20 20 45 4C 53 45 20 . .. ELSE
0001D0: 49 46 20 6F 65 6E 73 6B 65 20 3D 20 34 0D 0A 20 IF oenske = 4..
0001E0: 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 THEN..
0001F0: 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 BEGIN..
Size : 512 (Real : 512)
000000: 3B 0D 0A 20 20 20 20 57 52 49 54 45 28 27 49 6E ;.. WRITE('In
000010: 64 74 61 73 74 20 7C 6E 73 6B 65 3A 20 27 29 3B dtast |nske: ');
000020: 20 52 45 41 44 4C 4E 28 6F 65 6E 73 6B 65 29 3B READLN(oenske);
000030: 0D 0A 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 .. WRITE(CLRH
000040: 4F 4D 29 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 OM);.. ..
000050: 43 41 53 45 20 6F 65 6E 73 6B 65 20 4F 46 0D 0A CASE oenske OF..
000060: 20 20 20 20 0D 0A 20 20 20 20 20 20 31 3A 20 42 .. 1: B
000070: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
000080: 20 57 52 49 54 45 4C 4E 28 27 4F 56 45 52 46 4C WRITELN('OVERFL
000090: 41 44 45 20 41 46 20 45 4E 20 4B 41 53 53 45 3A ADE AF EN KASSE:
0000A0: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ');..
0000B0: 57 52 49 54 45 4C 4E 28 27 2D 2D 2D 2D 2D 2D 2D WRITELN('-------
0000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 ---------------'
0000D0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57 );.. W
0000E0: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 RITELN;..
0000F0: 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 WRITE('Indta
000100: 73 74 20 6B 61 73 73 65 6E 73 20 62 72 65 64 64 st kassens bredd
000110: 65 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 62 72 e: '); READLN(br
000120: 65 64 64 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 edde);..
000130: 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 73 WRITE('Indtas
000140: 74 20 6B 61 73 73 65 6E 73 20 6C 7B 6E 67 64 65 t kassens l{ngde
000150: 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 6C 61 65 : '); READLN(lae
000160: 6E 67 64 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 ngde);..
000170: 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 73 WRITE('Indtas
000180: 74 20 6B 61 73 73 65 6E 73 20 68 7C 6A 64 65 3A t kassens h|jde:
000190: 20 20 27 29 3B 20 52 45 41 44 4C 4E 28 68 6F 65 '); READLN(hoe
0001A0: 6A 64 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 jde);..
0001B0: 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 WRITELN;..
0001C0: 20 20 20 20 20 20 20 6F 76 65 72 66 6C 61 64 65 overflade
0001D0: 20 3A 3D 20 6C 61 65 6E 67 64 65 20 2A 20 62 72 := laengde * br
0001E0: 65 64 64 65 20 2B 20 62 72 65 64 64 65 20 2A 20 edde + bredde *
0001F0: 68 6F 65 6A 64 65 20 2B 20 6C 61 65 6E 67 64 65 hoejde + laengde
Size : 512 (Real : 512)
000000: 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4F 56 45 WRITELN('OVE
000010: 52 46 4C 41 44 45 20 41 46 20 45 4E 20 4B 45 47 RFLADE AF EN KEG
000020: 4C 45 53 54 55 42 3A 27 29 3B 0D 0A 20 20 20 20 LESTUB:');..
000030: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 2D WRITELN('-
000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 29 3B 0D 0A 20 20 ---------');..
000060: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B WRITELN;
000070: 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 .. WRIT
000080: 45 28 27 49 6E 64 74 61 73 74 20 72 61 64 69 75 E('Indtast radiu
000090: 73 20 69 20 64 65 6E 20 7C 76 65 72 73 74 65 20 s i den |verste
0000A0: 63 69 72 6B 65 6C 3A 20 20 27 29 3B 20 52 45 41 cirkel: '); REA
0000B0: 44 4C 4E 28 72 31 29 3B 0D 0A 20 20 20 20 20 20 DLN(r1);..
0000C0: 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 WRITE('Indta
0000D0: 73 74 20 72 61 64 69 75 73 20 69 20 64 65 6E 20 st radius i den
0000E0: 6E 65 64 65 72 73 74 65 20 63 69 72 6B 65 6C 3A nederste cirkel:
0000F0: 20 27 29 3B 20 52 45 41 44 4C 4E 28 72 32 29 3B '); READLN(r2);
000100: 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 .. WRIT
000110: 45 28 27 49 6E 64 74 61 73 74 20 6B 65 67 6C 65 E('Indtast kegle
000120: 73 74 75 62 62 65 6E 73 20 68 7C 6A 64 65 3A 20 stubbens h|jde:
000130: 20 20 20 20 20 20 20 20 20 27 29 3B 20 52 45 41 '); REA
000140: 44 4C 4E 28 68 6F 65 6A 64 65 29 3B 0D 0A 20 20 DLN(hoejde);..
000150: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B WRITELN;
000160: 0D 0A 20 20 20 20 20 20 20 20 20 20 73 69 64 65 .. side
000170: 20 3A 3D 20 53 51 52 54 28 53 51 52 28 72 32 20 := SQRT(SQR(r2
000180: 2D 20 72 31 29 20 2B 20 53 51 52 28 68 6F 65 6A - r1) + SQR(hoej
000190: 64 65 29 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 de));..
0001A0: 20 6F 76 65 72 66 6C 61 64 65 20 3A 3D 20 50 49 overflade := PI
0001B0: 20 2A 20 73 69 64 65 20 2A 20 28 72 31 20 2B 20 * side * (r1 +
0001C0: 72 32 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 r2);..
0001D0: 74 6F 74 61 6C 6F 76 65 72 66 6C 61 64 65 20 3A totaloverflade :
0001E0: 3D 20 6F 76 65 72 66 6C 61 64 65 20 2B 20 50 49 = overflade + PI
0001F0: 20 2A 20 53 51 52 28 72 31 29 20 2B 20 50 49 20 * SQR(r1) + PI
Size : 512 (Real : 512)
000000: 20 2A 20 68 6F 65 6A 64 65 3B 0D 0A 20 20 20 20 * hoejde;..
000010: 20 20 20 20 20 20 20 6F 76 65 72 66 6C 61 64 65 overflade
000020: 20 3A 3D 20 32 20 2A 20 6F 76 65 72 66 6C 61 64 := 2 * overflad
000030: 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57 e;.. W
000040: 52 49 54 45 4C 4E 28 27 4B 61 73 73 65 6E 73 20 RITELN('Kassens
000050: 6F 76 65 72 66 6C 61 64 65 3A 20 27 2C 20 6F 76 overflade: ', ov
000060: 65 72 66 6C 61 64 65 20 3A 20 31 30 20 3A 20 32 erflade : 10 : 2
000070: 2C 20 27 20 63 6D 32 27 29 3B 0D 0A 20 20 20 20 , ' cm2');..
000080: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
000090: 20 20 0D 0A 20 20 20 20 20 20 32 3A 20 42 45 47 .. 2: BEG
0000A0: 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57 IN.. W
0000B0: 52 49 54 45 4C 4E 28 27 4F 56 45 52 46 4C 41 44 RITELN('OVERFLAD
0000C0: 45 20 41 46 20 45 4E 20 43 59 4C 49 4E 44 45 52 E AF EN CYLINDER
0000D0: 3A 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 :');..
0000E0: 20 57 52 49 54 45 4C 4E 28 27 2D 2D 2D 2D 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 20 20 20 20 ---');..
000110: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
000120: 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49 WRITE('I
000130: 6E 64 74 61 73 74 20 63 79 6C 69 6E 64 65 72 65 ndtast cylindere
000140: 6E 73 20 68 7C 6A 64 65 3A 20 20 27 29 3B 20 52 ns h|jde: '); R
000150: 45 41 44 4C 4E 28 68 6F 65 6A 64 65 29 3B 0D 0A EADLN(hoejde);..
000160: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
000170: 28 27 49 6E 64 74 61 73 74 20 63 79 6C 69 6E 64 ('Indtast cylind
000180: 65 72 65 6E 73 20 72 61 64 69 75 73 3A 20 27 29 erens radius: ')
000190: 3B 20 52 45 41 44 4C 4E 28 72 61 64 69 75 73 29 ; READLN(radius)
0001A0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57 52 ;.. WR
0001B0: 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 ITELN;..
0001C0: 20 20 20 6F 76 65 72 66 6C 61 64 65 20 3A 3D 20 overflade :=
0001D0: 32 20 2A 20 50 49 20 2A 20 72 61 64 69 75 73 20 2 * PI * radius
0001E0: 2A 20 68 6F 65 6A 64 65 3B 0D 0A 20 20 20 20 20 * hoejde;..
0001F0: 20 20 20 20 20 20 74 6F 74 61 6C 6F 76 65 72 66 totaloverf
Size : 512 (Real : 512)
000000: 61 64 65 20 3A 20 31 30 20 3A 20 32 2C 20 27 20 ade : 10 : 2, '
000010: 63 6D 32 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 cm2');..
000020: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 0D 0A 20 END;.. ..
000030: 20 20 20 4F 54 48 45 52 57 49 53 45 0D 0A 20 20 OTHERWISE..
000040: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
000050: 20 20 20 47 4F 54 4F 58 59 28 33 38 2C 20 31 32 GOTOXY(38, 12
000060: 29 3B 20 57 52 49 54 45 28 27 53 4C 55 54 27 29 ); WRITE('SLUT')
000070: 3B 0D 0A 20 20 20 20 20 20 20 20 47 4F 54 4F 58 ;.. GOTOX
000080: 59 28 30 2C 20 32 30 29 3B 0D 0A 20 20 20 20 20 Y(0, 20);..
000090: 20 45 4E 44 3B 0D 0A 20 20 0D 0A 20 20 20 20 45 END;.. .. E
0000A0: 4E 44 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E ND;.. WRITELN
0000B0: 3B 0D 0A 20 20 45 4E 44 2E 0D 0A 1A 0D 0A 20 20 ;.. END......
0000C0: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
0000D0: 20 20 20 47 4F 54 4F 58 59 28 33 38 2C 20 31 32 GOTOXY(38, 12
0000E0: 29 3B 20 57 52 49 54 45 28 27 53 4C 55 54 27 29 ); WRITE('SLUT')
0000F0: 3B 0D 0A 20 20 20 20 20 20 20 20 47 4F 54 4F 58 ;.. GOTOX
000100: 4D 20 20 20 20 20 20 20 20 20 20 20 20 20 30 A2 M 0.
000110: 03 00 00 0F 01 D1 00 7F 00 C0 00 20 00 00 00 02 ........... ....
000120: 03 01 2A 0A 21 00 02 18 28 60 44 72 61 67 6F 6E ..*.!...(`Dragon
000130: 42 72 65 65 64 20 34 32 30 4B DE F5 C5 3A 1C AD Breed 420K...:..
000140: 4F CD 0F B9 79 32 15 AD C1 F1 ED B0 F5 C5 0E 00 O...y2..........
000150: CD 0F B9 C1 F1 C9 02 2A 00 60 56 6F 72 74 FF 78 .......*.`Vort.x
000160: 20 20 20 20 20 20 01 00 20 20 20 20 20 20 20 20 ..
000170: 24 00 05 1F 03 B0 00 7F 00 80 00 20 00 02 00 02 $.......... ....
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: 6C 61 64 65 20 3A 3D 20 6F 76 65 72 66 6C 61 64 lade := overflad
000010: 65 20 2B 20 32 20 2A 20 50 49 20 2A 20 53 51 52 e + 2 * PI * SQR
000020: 28 72 61 64 69 75 73 29 3B 0D 0A 20 20 20 20 20 (radius);..
000030: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 43 WRITELN('C
000040: 79 6C 69 6E 64 65 72 65 6E 73 20 6B 72 75 6D 6D ylinderens krumm
000050: 65 20 6F 76 65 72 66 6C 61 64 65 3A 20 27 2C 20 e overflade: ',
000060: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000070: 20 20 20 20 20 6F 76 65 72 66 6C 61 64 65 20 3A overflade :
000080: 20 31 30 20 3A 20 32 2C 20 27 20 63 6D 32 27 29 10 : 2, ' cm2')
000090: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57 52 ;.. WR
0000A0: 49 54 45 4C 4E 28 27 43 79 6C 69 6E 64 65 72 65 ITELN('Cylindere
0000B0: 6E 73 20 74 6F 74 61 6C 6F 76 65 72 66 6C 61 64 ns totaloverflad
0000C0: 65 3A 20 20 20 27 2C 0D 0A 20 20 20 20 20 20 20 e: ',..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 74 6F 74 61 tota
0000E0: 6C 6F 76 65 72 66 6C 61 64 65 20 3A 20 31 30 20 loverflade : 10
0000F0: 3A 20 32 2C 20 27 20 63 6D 32 27 29 3B 0D 0A 20 : 2, ' cm2');..
000100: 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 END;..
000110: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 33 3A 20 .. 3:
000120: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 BEGIN..
000130: 20 20 57 52 49 54 45 4C 4E 28 27 4F 56 45 52 46 WRITELN('OVERF
000140: 4C 41 44 45 20 41 46 20 45 4E 20 4B 45 47 4C 45 LADE AF EN KEGLE
000150: 3A 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 :');..
000160: 20 57 52 49 54 45 4C 4E 28 27 2D 2D 2D 2D 2D 2D WRITELN('------
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000180: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ');..
000190: 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 WRITELN;..
0001A0: 20 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 WRITE('Indt
0001B0: 61 73 74 20 6B 65 67 6C 65 6E 73 20 68 7C 6A 64 ast keglens h|jd
0001C0: 65 3A 20 20 27 29 3B 20 52 45 41 44 4C 4E 28 68 e: '); READLN(h
0001D0: 6F 65 6A 64 65 29 3B 0D 0A 20 20 20 20 20 20 20 oejde);..
0001E0: 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 WRITE('Indta
0001F0: 73 74 20 6B 65 67 6C 65 6E 73 20 72 61 64 69 75 st keglens radiu
Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 70 61 6B 6B 65 70 73 74 PROGRAM pakkepst
000010: 3B 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 ;.... VAR..
000020: 76 61 65 67 74 2C 20 70 6F 72 74 6F 6B 72 20 3A vaegt, portokr :
000030: 20 52 45 41 4C 3B 0D 0A 20 20 20 20 70 6F 72 74 REAL;.. port
000040: 6F 2C 20 67 72 75 70 70 65 20 3A 20 49 4E 54 45 o, gruppe : INTE
000050: 47 45 52 3B 0D 0A 20 20 0D 0A 20 20 42 45 47 49 GER;.. .. BEGI
000060: 4E 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 43 N.. WRITELN(C
000070: 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 57 52 49 LRHOM);.. WRI
000080: 54 45 4C 4E 28 27 50 4F 53 54 54 41 4B 53 54 45 TELN('POSTTAKSTE
000090: 52 20 46 4F 52 20 50 41 4B 4B 45 50 4F 53 54 27 R FOR PAKKEPOST'
0000A0: 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 );.. WRITELN(
0000B0: 27 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F '_______________
0000C0: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 27 29 3B 0D 0A 20 __________');..
0000D0: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
0000E0: 20 57 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 WRITE('Indtast
0000F0: 70 61 6B 6B 65 6E 73 20 76 7B 67 74 20 69 20 6B pakkens v{gt i k
000100: 67 20 28 69 6B 6B 65 20 6F 76 65 72 20 32 30 20 g (ikke over 20
000110: 6B 67 29 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 kg): '); READLN(
000120: 76 61 65 67 74 29 3B 0D 0A 20 20 20 20 57 52 49 vaegt);.. WRI
000130: 54 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 TELN;.. WRITE
000140: 4C 4E 28 27 41 6C 6D 69 6E 64 65 6C 69 67 20 70 LN('Almindelig p
000150: 61 6B 6B 65 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 akke ..........
000160: 74 61 73 74 20 31 27 29 3B 0D 0A 20 20 20 20 57 tast 1');.. W
000170: 52 49 54 45 28 27 56 6F 6C 75 6D 69 6E 7C 73 20 RITE('Volumin|s
000180: 70 61 6B 6B 65 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E pakke ..........
000190: 2E 20 74 61 73 74 20 32 3A 20 20 20 20 27 29 3B . tast 2: ');
0001A0: 20 52 45 41 44 4C 4E 28 67 72 75 70 70 65 29 3B READLN(gruppe);
0001B0: 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A .. WRITELN;..
0001C0: 20 20 20 20 49 46 20 76 61 65 67 74 20 3C 3D 20 IF vaegt <=
0001D0: 35 0D 0A 20 20 20 20 20 20 54 48 45 4E 20 70 6F 5.. THEN po
0001E0: 72 74 6F 20 3A 3D 20 31 37 30 30 0D 0A 20 20 20 rto := 1700..
0001F0: 20 45 4C 53 45 20 49 46 20 76 61 65 67 74 20 3C ELSE IF vaegt <
Size : 512 (Real : 512)
000000: 73 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 72 61 s: '); READLN(ra
000010: 64 69 75 73 29 3B 0D 0A 20 20 20 20 20 20 20 20 dius);..
000020: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
000030: 20 20 20 20 20 20 20 20 73 69 64 65 20 3A 3D 20 side :=
000040: 53 51 52 54 28 53 51 52 28 68 6F 65 6A 64 65 29 SQRT(SQR(hoejde)
000050: 20 2B 20 53 51 52 28 72 61 64 69 75 73 29 29 3B + SQR(radius));
000060: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 6F 76 65 .. ove
000070: 72 66 6C 61 64 65 20 3A 3D 20 50 49 20 2A 20 72 rflade := PI * r
000080: 61 64 69 75 73 20 2A 20 73 69 64 65 3B 0D 0A 20 adius * side;..
000090: 20 20 20 20 20 20 20 20 20 20 74 6F 74 61 6C 6F totalo
0000A0: 76 65 72 66 6C 61 64 65 20 3A 3D 20 6F 76 65 72 verflade := over
0000B0: 66 6C 61 64 65 20 2B 20 50 49 20 2A 20 53 51 52 flade + PI * SQR
0000C0: 28 72 61 64 69 75 73 29 3B 0D 0A 20 20 20 20 20 (radius);..
0000D0: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4B WRITELN('K
0000E0: 65 67 6C 65 6E 73 20 6B 72 75 6D 6D 65 20 6F 76 eglens krumme ov
0000F0: 65 72 66 6C 61 64 65 3A 20 27 2C 20 0D 0A 20 20 erflade: ', ..
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 20 6F 76 65 72 66 6C 61 64 65 20 3A 20 31 30 20 overflade : 10
000120: 3A 20 32 2C 20 27 20 63 6D 32 27 29 3B 0D 0A 20 : 2, ' cm2');..
000130: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
000140: 4E 28 27 4B 65 67 6C 65 6E 73 20 74 6F 74 61 6C N('Keglens total
000150: 65 20 6F 76 65 72 66 6C 61 64 65 3A 20 27 2C 0D e overflade: ',.
000160: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000170: 20 20 20 20 74 6F 74 61 6C 6F 76 65 72 66 6C 61 totaloverfla
000180: 64 65 20 3A 20 31 30 20 3A 20 32 2C 20 27 20 63 de : 10 : 2, ' c
000190: 6D 32 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 m2');..
0001A0: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 0D 0A 20 END;.. ..
0001B0: 20 20 20 20 20 34 3A 20 42 45 47 49 4E 0D 0A 20 4: BEGIN..
0001C0: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
0001D0: 4E 28 27 4F 56 45 52 46 4C 41 44 45 20 41 46 20 N('OVERFLADE AF
0001E0: 45 4E 20 4B 45 47 4C 45 53 54 55 42 3A 27 29 3B EN KEGLESTUB:');
0001F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57 52 49 .. WRI
Size : 512 (Real : 512)
000000: 3D 20 31 30 0D 0A 20 20 20 20 20 20 54 48 45 4E = 10.. THEN
000010: 20 70 6F 72 74 6F 20 3A 3D 20 33 30 30 30 0D 0A porto := 3000..
000020: 20 20 20 20 45 4C 53 45 20 49 46 20 76 61 65 67 ELSE IF vaeg
000030: 74 20 3C 3D 20 31 35 0D 0A 20 20 20 20 20 20 54 t <= 15.. T
000040: 48 45 4E 20 70 6F 72 74 6F 20 3A 3D 20 35 35 30 HEN porto := 550
000050: 30 0D 0A 20 20 20 20 45 4C 53 45 20 49 46 20 76 0.. ELSE IF v
000060: 61 65 67 74 20 3C 3D 20 32 30 0D 0A 20 20 20 20 aegt <= 20..
000070: 20 20 54 48 45 4E 20 70 6F 72 74 6F 20 3A 3D 20 THEN porto :=
000080: 36 35 30 30 0D 0A 20 20 20 20 45 4C 53 45 20 57 6500.. ELSE W
000090: 52 49 54 45 4C 4E 28 27 44 65 6E 6E 65 20 70 61 RITELN('Denne pa
0000A0: 6B 6B 65 20 65 72 20 64 61 20 76 69 73 74 20 66 kke er da vist f
0000B0: 72 61 67 74 67 6F 64 73 21 27 29 3B 0D 0A 20 20 ragtgods!');..
0000C0: 20 20 49 46 20 67 72 75 70 70 65 20 3D 20 32 0D IF gruppe = 2.
0000D0: 0A 20 20 20 20 20 20 54 48 45 4E 20 70 6F 72 74 . THEN port
0000E0: 6F 20 3A 3D 20 70 6F 72 74 6F 20 2A 20 32 3B 0D o := porto * 2;.
0000F0: 0A 20 20 20 20 70 6F 72 74 6F 6B 72 20 3A 3D 20 . portokr :=
000100: 70 6F 72 74 6F 20 2F 20 31 30 30 3B 0D 0A 20 20 porto / 100;..
000110: 20 20 49 46 20 28 76 61 65 67 74 20 3C 3D 20 32 IF (vaegt <= 2
000120: 30 29 20 41 4E 44 20 28 28 67 72 75 70 70 65 20 0) AND ((gruppe
000130: 3D 20 31 29 20 4F 52 20 28 67 72 75 70 70 65 20 = 1) OR (gruppe
000140: 3D 20 32 29 29 0D 0A 20 20 20 20 20 20 54 48 45 = 2)).. THE
000150: 4E 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49 4E N.. BEGIN
000160: 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 .. WRIT
000170: 45 4C 4E 28 27 50 61 6B 6B 65 6E 73 20 76 7B 67 ELN('Pakkens v{g
000180: 74 3A 20 27 2C 20 76 61 65 67 74 20 3A 20 35 20 t: ', vaegt : 5
000190: 3A 20 32 2C 20 27 20 6B 67 27 29 3B 0D 0A 20 20 : 2, ' kg');..
0001A0: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B WRITELN;
0001B0: 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 .. WRIT
0001C0: 45 4C 4E 28 27 50 6F 72 74 6F 3A 20 27 2C 20 70 ELN('Porto: ', p
0001D0: 6F 72 74 6F 6B 72 20 3A 20 36 20 3A 20 32 2C 20 ortokr : 6 : 2,
0001E0: 27 20 6B 72 27 29 3B 0D 0A 20 20 20 20 20 20 20 ' kr');..
0001F0: 20 45 4E 44 3B 0D 0A 20 20 20 20 57 52 49 54 45 END;.. WRITE
Size : 512 (Real : 512)
000000: 54 45 4C 4E 28 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D TELN('----------
000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000020: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ');..
000030: 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 WRITELN;..
000040: 20 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 WRITE('Indt
000050: 61 73 74 20 72 61 64 69 75 73 20 69 20 64 65 6E ast radius i den
000060: 20 7C 76 65 72 73 74 65 20 63 69 72 6B 65 6C 3A |verste cirkel:
000070: 20 20 27 29 3B 20 52 45 41 44 4C 4E 28 72 31 29 '); READLN(r1)
000080: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57 52 ;.. WR
000090: 49 54 45 28 27 49 6E 64 74 61 73 74 20 72 61 64 ITE('Indtast rad
0000A0: 69 75 73 20 69 20 64 65 6E 20 6E 65 64 65 72 73 ius i den neders
0000B0: 74 65 20 63 69 72 6B 65 6C 3A 20 27 29 3B 20 52 te cirkel: '); R
0000C0: 45 41 44 4C 4E 28 72 32 29 3B 0D 0A 20 20 20 20 EADLN(r2);..
0000D0: 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49 6E WRITE('In
0000E0: 64 74 61 73 74 20 6B 65 67 6C 65 73 74 75 62 62 dtast keglestubb
0000F0: 65 6E 73 20 68 7C 6A 64 65 3A 20 20 20 20 20 20 ens h|jde:
000100: 20 20 20 20 27 29 3B 20 52 45 41 44 4C 4E 28 68 '); READLN(h
000110: 6F 65 6A 64 65 29 3B 0D 0A 20 20 20 20 20 20 20 oejde);..
000120: 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 WRITELN;..
000130: 20 20 20 20 20 20 20 20 20 73 69 64 65 20 3A 3D side :=
000140: 20 53 51 52 54 28 53 51 52 28 72 32 20 2D 20 72 SQRT(SQR(r2 - r
000150: 31 29 20 2B 20 53 51 52 28 68 6F 65 6A 64 65 29 1) + SQR(hoejde)
000160: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 6F );.. o
000170: 76 65 72 66 6C 61 64 65 20 3A 3D 20 50 49 20 2A verflade := PI *
000180: 20 73 69 64 65 20 2A 20 28 72 31 20 2B 20 72 32 side * (r1 + r2
000190: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 74 );.. t
0001A0: 6F 74 61 6C 6F 76 65 72 66 6C 61 64 65 20 3A 3D otaloverflade :=
0001B0: 20 6F 76 65 72 66 6C 61 64 65 20 2B 20 50 49 20 overflade + PI
0001C0: 2A 20 53 51 52 28 72 31 29 20 2B 20 50 49 20 2A * SQR(r1) + PI *
0001D0: 20 53 51 52 28 72 32 29 3B 0D 0A 20 20 20 20 20 SQR(r2);..
0001E0: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4B WRITELN('K
0001F0: 65 67 6C 65 73 74 75 62 62 65 6E 73 20 6B 72 75 eglestubbens kru
Size : 512 (Real : 512)
000000: 4C 4E 3B 0D 0A 20 20 45 4E 44 2E 0D 0A 0D 0A 1A LN;.. END......
000010: 3A 20 32 2C 20 27 20 6B 67 27 29 3B 0D 0A 20 20 : 2, ' kg');..
000020: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B WRITELN;
000030: 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 .. WRIT
000040: 45 4C 4E 28 27 50 6F 72 74 6F 3A 20 27 2C 20 70 ELN('Porto: ', p
000050: 6F 72 74 6F 6B 72 20 3A 20 36 20 3A 20 32 2C 20 ortokr : 6 : 2,
000060: 27 20 6B 72 27 29 3B 0D 0A 20 20 20 20 20 20 20 ' kr');..
000070: 20 45 4E 44 3B 0D 0A 20 20 20 20 57 52 49 54 45 END;.. WRITE
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: 6D 6D 65 20 6F 76 65 72 66 6C 61 64 65 3A 20 27 mme overflade: '
000010: 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ,..
000020: 20 20 20 20 20 20 6F 76 65 72 66 6C 61 64 65 20 overflade
000030: 3A 20 31 30 20 3A 20 32 2C 20 27 20 63 6D 32 27 : 10 : 2, ' cm2'
000040: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57 );.. W
000050: 52 49 54 45 4C 4E 28 27 4B 65 67 6C 65 73 74 75 RITELN('Keglestu
000060: 62 62 65 6E 73 20 74 6F 74 61 6C 65 20 6F 76 65 bbens totale ove
000070: 72 66 6C 61 64 65 3A 20 27 2C 0D 0A 20 20 20 20 rflade: ',..
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 t
000090: 6F 74 61 6C 6F 76 65 72 66 6C 61 64 65 20 3A 20 otaloverflade :
0000A0: 31 30 20 3A 20 32 2C 20 27 20 63 6D 32 27 29 3B 10 : 2, ' cm2');
0000B0: 0D 0A 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D .. END;.
0000C0: 0A 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 . ..
0000D0: 35 3A 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 5: BEGIN..
0000E0: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4F 56 WRITELN('OV
0000F0: 45 52 46 4C 41 44 45 20 41 46 20 45 4E 20 4B 55 ERFLADE AF EN KU
000100: 47 4C 45 3A 27 29 3B 0D 0A 20 20 20 20 20 20 20 GLE:');..
000110: 20 20 20 20 57 52 49 54 45 4C 4E 28 27 2D 2D 2D WRITELN('---
000120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000130: 2D 2D 2D 27 29 3B 0D 0A 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 57 52 49 54 45 28 27 49 WRITE('I
000160: 6E 64 74 61 73 74 20 6B 75 67 6C 65 6E 73 20 72 ndtast kuglens r
000170: 61 64 69 75 73 3A 20 27 29 3B 20 52 45 41 44 4C adius: '); READL
000180: 4E 28 72 61 64 69 75 73 29 3B 0D 0A 20 20 20 20 N(radius);..
000190: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D WRITELN;.
0001A0: 0A 20 20 20 20 20 20 20 20 20 20 20 6F 76 65 72 . over
0001B0: 66 6C 61 64 65 20 3A 3D 20 34 20 2A 20 50 49 20 flade := 4 * PI
0001C0: 2A 20 53 51 52 28 72 61 64 69 75 73 29 3B 0D 0A * SQR(radius);..
0001D0: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
0001E0: 4C 4E 28 27 4B 75 67 6C 65 6E 73 20 6F 76 65 72 LN('Kuglens over
0001F0: 66 6C 61 64 65 3A 20 27 2C 20 6F 76 65 72 66 6C flade: ', overfl
Size : 512 (Real : 512)
000000: 04 08 30 80 88 50 F0 90 E0 DF 5E 5A 5A 48 14 02 ..0..P....^ZZH..
000010: 5F 5F 4A 08 14 09 02 39 FF A1 17 AF 04 84 10 11 __J....9........
000020: 88 90 F0 30 C0 C9 AF A5 A5 80 14 02 27 AF AF 04 ...0........'...
000030: 14 09 01 31 FF 9B 17 5F 04 08 00 11 88 B0 C0 70 ...1..._.......p
000040: 91 93 5E 5A 4A 14 02 E0 13 5F 5F 4A 08 14 09 39 ..^ZJ....__J...9
000050: FF A9 17 AF 04 84 00 11 00 70 80 F0 B0 27 AF A5 .........p...'..
000060: 00 30 80 00 40 AF AF AD 04 14 08 01 31 FF 9A 17 .0..@.......1...
000070: 5F 04 08 00 33 10 70 10 F0 60 5F 5E 4A 30 14 04 _...3.p..`_^J0..
000080: 17 5F 03 4A 08 14 08 31 FF A9 17 AF 04 84 00 EE ._.J...1........
000090: 30 60 30 C0 41 AF AF 84 40 40 00 40 00 27 AF AF 0`0.A...@@.@.'..
0000A0: AD 04 14 07 03 3D FF D8 17 5F 04 19 FF EE 20 C0 .....=..._.... .
0000B0: 70 B0 1B 5F 5E 08 14 02 30 30 00 13 17 5F 03 4A p.._^...00..._.J
0000C0: 08 14 06 03 3D FF CD 17 AF 04 84 FF EE 20 00 C0 ....=........ ..
0000D0: 01 AF AF AD 00 80 80 00 20 00 01 17 AF 04 84 14 ........ .......
0000E0: 06 03 3D FF DC 17 5F 04 4A FF EE 40 F9 FC 93 5F ..=..._.J..@..._
0000F0: 5F 5A 00 80 50 00 80 20 00 17 5F 04 4A 00 0A 08 _Z..P.. .._.J...
000100: 14 03 03 35 FF ED 17 AF 04 84 FF EE 91 F3 E8 27 ...5...........'
000110: AF AF A4 00 80 14 05 27 17 AF 04 01 05 04 14 03 .......'........
000120: 01 39 FF FE 17 5F 04 4A F7 EE 32 C4 13 5F 5F 5E .9..._.J..2..__^
000130: 4A 00 80 10 14 04 13 17 5F 04 0A 0A 08 14 04 31 J......._......1
000140: FF EF A7 17 AF 03 84 F7 CC 64 01 17 AF 03 AD 84 .........d......
000150: 00 A0 14 05 01 17 AF 04 8D 05 04 14 03 03 39 FF ..............9.
000160: FE 17 5F 04 4A F3 CC 00 17 5F 04 5A 08 14 08 17 .._.J...._.Z....
000170: 5F 04 4E 0A 08 14 03 03 1A FF EF A7 17 AF 03 84 _.N.............
000180: 14 02 A7 17 AF 04 A5 14 09 27 17 AF 04 05 04 14 .........'......
000190: 03 03 1A FF FE 17 5F 04 4A 0A 1B 17 5F 04 5E 4A ......_.J..._.^J
0001A0: 14 02 50 14 06 13 17 5F 04 0A 08 14 03 03 1A 16 ..P...._........
0001B0: 02 A7 17 AF 03 85 A7 17 AF 05 AD 84 14 02 40 14 ..............@.
0001C0: 06 01 17 AF 03 A7 8D 04 14 03 03 1A 16 02 17 5F ..............._
0001D0: 04 1B 17 5F 06 5A 48 14 02 40 53 5E 14 04 02 17 ..._.ZH..@S^....
0001E0: 5F 04 4E 08 14 03 03 12 16 02 A7 17 AF 03 27 17 _.N...........'.
0001F0: AF 06 A5 80 14 02 40 A7 A7 08 14 03 01 27 AF AF ......@......'..
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 20 70 61 6C 69 6E 64 72 3B PROGRAM palindr;
000010: 0D 0A 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 20 .... TYPE..
000020: 73 74 72 34 30 20 3D 20 53 54 52 49 4E 47 28 2E str40 = STRING(.
000030: 34 30 2E 29 3B 0D 0A 20 20 0D 0A 20 20 56 41 52 40.);.. .. VAR
000040: 0D 0A 20 20 20 20 74 65 6B 73 74 20 3A 20 73 74 .. tekst : st
000050: 72 34 30 3B 0D 0A 20 20 20 20 69 20 3A 20 49 4E r40;.. i : IN
000060: 54 45 47 45 52 3B 0D 0A 20 20 20 20 6F 6B 20 3A TEGER;.. ok :
000070: 20 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 0D 0A 20 BOOLEAN;.. ..
000080: 20 42 45 47 49 4E 0D 0A 20 20 20 20 57 52 49 54 BEGIN.. WRIT
000090: 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 E(CLRHOM);..
0000A0: 57 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 65 WRITE('Indtast e
0000B0: 6E 20 74 65 6B 73 74 3A 20 27 29 3B 0D 0A 20 20 n tekst: ');..
0000C0: 20 20 52 45 41 44 4C 4E 28 74 65 6B 73 74 29 3B READLN(tekst);
0000D0: 0D 0A 20 20 20 20 6F 6B 20 3A 3D 20 54 52 55 45 .. ok := TRUE
0000E0: 3B 0D 0A 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 ;.. FOR i :=
0000F0: 31 20 54 4F 20 4C 45 4E 28 74 65 6B 73 74 29 20 1 TO LEN(tekst)
000100: 44 49 56 20 32 20 44 4F 0D 0A 20 20 20 20 20 20 DIV 2 DO..
000110: 49 46 20 74 65 6B 73 74 28 2E 69 2E 29 20 3C 3E IF tekst(.i.) <>
000120: 20 74 65 6B 73 74 28 2E 4C 45 4E 28 74 65 6B 73 tekst(.LEN(teks
000130: 74 29 20 2B 20 31 20 2D 20 69 2E 29 0D 0A 20 20 t) + 1 - i.)..
000140: 20 20 20 20 20 20 54 48 45 4E 20 6F 6B 20 3A 3D THEN ok :=
000150: 20 46 41 4C 53 45 3B 0D 0A 20 20 20 20 49 46 20 FALSE;.. IF
000160: 6F 6B 0D 0A 20 20 20 20 20 20 54 48 45 4E 20 57 ok.. THEN W
000170: 52 49 54 45 4C 4E 28 74 65 6B 73 74 2C 20 27 20 RITELN(tekst, '
000180: 65 72 20 65 74 20 70 61 6C 69 6E 64 72 6F 6D 27 er et palindrom'
000190: 29 0D 0A 20 20 20 20 20 20 45 4C 53 45 20 57 52 ).. ELSE WR
0001A0: 49 54 45 4C 4E 28 74 65 6B 73 74 2C 20 27 20 65 ITELN(tekst, ' e
0001B0: 72 20 69 6B 6B 65 20 65 74 20 70 61 6C 69 6E 64 r ikke et palind
0001C0: 72 6F 6D 27 29 3B 0D 0A 20 20 45 4E 44 2E 0D 0A rom');.. END...
0001D0: 1A 46 41 4C 53 45 3B 0D 0A 20 20 20 20 49 46 20 .FALSE;.. IF
0001E0: 6F 6B 0D 0A 20 20 20 20 20 20 54 48 45 4E 20 57 ok.. THEN W
0001F0: 52 49 54 45 4C 4E 28 74 65 6B 73 74 2C 20 27 20 RITELN(tekst, '
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 0D 07 0F 0E 0F 02 00 04 01 08 08 02 02 16 02 04 ................
000010: 01 08 08 00 05 01 04 0A 0A 05 05 06 05 00 05 05 ................
000020: 02 0A 03 03 0D 03 0F 0D 0F 01 00 02 00 0A 05 00 ................
000030: 05 02 09 09 04 02 08 01 01 04 02 04 09 02 04 09 ................
000040: 08 03 04 08 04 00 09 03 0A 09 0F 0B 0F 03 0C 01 ................
000050: 00 08 02 16 06 04 02 00 08 00 09 0F 0E 00 05 00 ................
000060: 06 05 02 05 00 0A 04 03 0A 0A 0F 0F 0D 04 06 00 ................
000070: 1A 08 03 05 01 04 04 09 01 16 03 03 0A 05 0F 0F ................
000080: 02 00 02 01 00 01 00 04 04 01 03 0A 0B 07 0F 09 ................
000090: 07 0E 08 04 0A 04 00 02 16 03 05 01 02 01 01 00 ................
0000A0: 09 07 0F 0C 09 00 08 02 05 04 1A 08 03 03 0A 0D ................
0000B0: 0B 0F 05 07 0E 08 02 08 00 09 00 02 04 04 16 04 ................
0000C0: 09 02 02 0B FF 0F 00 05 02 00 08 00 08 04 01 03 ................
0000D0: 0A 0C 09 0E 0B 07 0E 05 01 09 04 00 05 04 09 00 ................
0000E0: 04 04 16 04 14 05 1F 8F 09 04 00 04 00 08 02 00 ................
0000F0: 01 03 0A 0C 02 0D 0B 07 0E 02 08 16 02 04 07 0C ................
000100: 16 03 08 04 00 05 08 00 82 0F 4F 0E 00 09 00 0A ..........O.....
000110: 02 08 02 08 03 0A 0C 01 07 0B 07 0A 02 04 00 01 ................
000120: 00 07 0E 00 02 16 03 02 00 07 00 41 17 8F 0E 02 ...........A....
000130: 16 03 08 16 03 0B 0B 01 00 0B 0B 07 0F 05 0E 01 ................
000140: 02 01 0F 8F 09 16 04 02 04 0F 08 20 0B 0F 0F 00 ........... ....
000150: 05 04 16 02 02 05 02 01 0A 00 01 0B 0F 07 0E 0F ................
000160: 0F 16 02 03 0F CF 0E 00 0A 01 01 16 02 0A 0D 10 ................
000170: 05 0F 0F 0C 16 02 0E 02 16 04 0C 08 00 0C 0F 07 ................
000180: 0D 0D 0F 08 00 01 09 2F 0F 0F 16 04 08 0F 0C 00 ......./........
000190: 82 0F 0F 0E 02 01 0F 00 04 08 05 02 16 02 02 0D ................
0001A0: 07 07 0A 0B 0F 0C 02 03 00 1A 0F 03 16 05 0C 0C ................
0001B0: 00 41 07 0F 0F 00 01 0F 08 00 01 16 02 01 01 08 .A..............
0001C0: 0E 0B 07 0F 07 0D 2F 00 03 08 1A 0F 03 16 04 04 ....../.........
0001D0: 07 08 08 20 0B 0F 0F 08 01 02 08 04 08 01 02 00 ... ............
0001E0: 07 0C 07 02 0F 0C 0E 0D 1F 88 0A 00 07 0F 0F 09 ................
0001F0: 00 04 16 02 03 01 00 10 05 0F 0F 08 01 0B 08 16 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 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 ................
   
Tous droits réservés. Reproduction sans autorisation interdite. © Kukulcan